Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|660\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 Prev 2 3 Next 4 5 6 7 8 9 10 11 12 13 14
Fri, 09 Apr 2021, 08:06
Jayenkai	Good grief, the RPN's doing my head in!!! I'm about 10% of the way done getting it working. BODMAS is completely knackered, and strings aren't working within the brackets that the RPN code adds. It's also strapping multitudes of brackets around things that already have brackets, thus confusing itself even further. Ugh... I might have to scrap all of the converting I've done, so far, and Redo-From-Start.. -=-=- ''Load, Next List!''
Sat, 10 Apr 2021, 16:09
Jayenkai	Today's insanity.. Trying to draw a Sprite, then realising all the size code was off, and having to rewrite tons of stuff to fix it. The font still isn't working right. Bah, humbug!! But.. A Sprite has been drawn. The image (Symbol!) is the 32x32 pixel Red Cross. Currently 32x32 is the largest size available, mostly because the symbol commands end up in the code, and a limit of 90 such symbols due to spritesheet limitations.. .. yeah, I know.. you'll cope. Fwiw, all the games on Browsercade use 32x32 sprites, and they all look. ... ... ok..! The next step is to write an art tool to generate said symbol code.. Oh boy.. Oh yeah, and note that the Sprite exists in two different colours. There are 10 "inks" available. Also, the AntiAlias filter has been toggled halfway, so you can see the difference that makes. // Graphics Test // by Jayenkai // Created 2021/3/10 Graphics 512,512,1 Repeat AA 0 cls ResetDraw DrawRect 0,0,512,512 SetAlpha 0.2 Rect 250,0,2,512 Rect 50,0,2,512 Rect 300,0,2,512 ResetDraw SetScale 1.0; Text 250,80,"Unscaled",1 SetAlpha 0.2; Rect 50,40,20,20; SetAlpha 1 DrawImg 300,80,0;DrawImg 332,80,0,3 DrawImg 300,112,0;DrawImg 332,112,0,3 Rect 300,80,16,16,1 Rect 332,80,16,16,1 Rect 300,112,16,16,1 Rect 332,112,16,16,1 SetScale 4.0; SetRot 20 Text 250,280,"Scaled",1 Text 250,330,"Rotated",1 SetAlpha 0.2; Rect 50,240,20,20; SetAlpha 1 DrawImg 300,240,0;DrawImg 440,240,0,10 AA 1 DrawImg 340,280,0;DrawImg 480,280,0,2 SetScale 4,0.5; SetRot 0 Text 250,480,"Stretched",1 SetAlpha 0.2; Rect 50,440,20,20; SetAlpha 1 DrawImg 300,440,0;DrawImg 440,440,0,2 Flip Forever --v (No Symbol code, yet.. The current Symbol is hardcoded!) -=-=- ''Load, Next List!''
Sun, 11 Apr 2021, 02:13
Pakz	I was wondering when we could see loops with while do? edit:Impressive how you dive into this stuff!
Sun, 11 Apr 2021, 03:56
Jayenkai	Most of that stuff needs variables. I ain't tackled those, yet!!! I have a vague idea how to get them working, but arrays might be tricky. -=-=- ''Load, Next List!''
Sun, 11 Apr 2021, 08:21
Jayenkai	It's all getting a little confusing.. I'm tempted to rip out a fuckton of code and redo-from-start.. Eeek! -=-=- ''Load, Next List!''
Sun, 11 Apr 2021, 10:34
Jayenkai	Better.. Worse.. Both..!? I dunno.. // String Tests // by Jayenkai // Created 2021/3/7 Graphics 512,512,1 Repeat CLS SetHue(0,1,1); Print "1+2+3="+(1+2+3)+" <-- Working but this is Broken!" SetHue(20,1,1); Print 1+2*3+" <-- BODMAS Issue!" SetHue(40,1,1); Print "[[ "+123+" Hello World "+321+" ]] <-- OK.." SetHue(60,1,1); Print (Mills()) SetHue(80,1,1); Print (Mills())+" <-- Very broken!" SetHue(100,1,1); Print SetHue(120,1,1); Print "Aaaarrgh!!" Flip Forever --v -=-=- ''Load, Next List!''
Tue, 13 Apr 2021, 06:18
Jayenkai	Updated the command list, via the method of going through the code and checking I'd added all the commands into the command list. .. Which I hadn't, for quite a number of the commands! Oops!! You can View the command list, here. You'll be happy to know that all of the examples currently work in the engine. Hurray!! -=-=- ''Load, Next List!''
Tue, 13 Apr 2021, 07:21
Jayenkai	View on YouTube As with all things, the main "Ready to go" will be when this is working. Code Within > Reveal 🔎 // SpikeDislike // by Jayenkai // Created 2021/4/13 Graphics 1024,720,2 Repeat CLS AA Off SetCol 255,180,96 Oval 100,((ScreenHeight()-64)-Abs(Sin(Mills() / 6) * 360)),64,64; SetCol 0,96,0 Rect 0,((ScreenHeight()-64)+32),ScreenWidth(),8 SetCol 80,40,0 Rect 0,((ScreenHeight()-64)+40),ScreenWidth(),100 SetSize 2 DrawImg 300,(ScreenHeight()-128),0,0 DrawImg 500,(ScreenHeight()-256),0,2 DrawImg 700,(ScreenHeight()-196),0,1 DrawImg 900,(ScreenHeight()-160),0,3 DrawImg 1050,(ScreenHeight()-320),0,4 Flip Forever --v Drawn Ball = Oval Floor = Rectangles Spike = Symbol/Sprite/Image Todo. 1. Variables 2. Symbols 3. Sounds 4. Input .. When I write it like that, it's not too much more!! Unfortunately, when I write it lengthier, the horrors appear. 1. I have to handle variables AND arrays. I'm hoping Javascript's "key" thing works for Variables, but god only knows how I'm going to do Arrays. 2. I have to code a whole sodding art package for this, as well as figuring out how to compress said art symbols into tiny amounts of text to fit inside the code. 3. I'm probably just going to make a library of sfx, and let you choose from those. I can't think of a good alternative, right now! 4. Between Browsercade and Shoebox, I've worked out a ton of input methods. Copy+pasting all those, and making them accessible to the Script Engine is the basic plan. Mouse, Touch, Keyboard, Gamepad and more, all automagically'ish supported. .. Doesn't sound too hard, right!?!? -=-=- ''Load, Next List!''
Thu, 15 Apr 2021, 09:13
Jayenkai	Basic sprite tool, 50% complete. Still need a sprite selection thing, and some actual tools other than Draw might be handy, but the tool is loading and saving the sprites using the Symbol command within the code. Symbol 1,"0__0,II0!II0!I0!B,0.B0B0B0?W0!W0W0?W0W"; --v Apparently Platdude's nickname is Bob Bob Bob, Wow Wow Wow! -=-=- ''Load, Next List!''
Fri, 16 Apr 2021, 07:21
Jayenkai	Which idiot reused the Symbol Canvas to draw the Symbol Editor!?! <-- That idiot! Had to rewrite a whole chunk to get the editor to draw on the standard canvas, instead. With that finally done, I added the "List of symbols you can edit" on the bottom right. You can select a Symbol, edit a symbol, save. On the bottom left is a list of the currently selected symbol at 1x scale. Anything you draw will be as you drew it, when you draw with ink 0. Inks 1,2,3,4,5,6 and 7 are recolourings of your sprite, with rotated hue. Ink 8 is Greyscale. Ink 9 is Inverted Greyscale. .. Should be plenty..! (Also, please ignore that odd "Display a Menu" option on the bottom left.. That happens when I tap the keyboard combination to take a screenshot!!) I now need to draw some icons for the rest of the functionality. -=-=- ''Load, Next List!''
Fri, 16 Apr 2021, 17:38
Jayenkai	View on YouTube Mmmm!
Sat, 17 Apr 2021, 07:43
Jayenkai	// Broken Parameters // by Jayenkai // Created 2021/4/12 Graphics 512,512,0 Repeat CLS 0,60,120 SetHue 0,0.5,1 Print Print 5=<4 Print 5=<5 Print 5=<6 Print Mills() % 1000 =< 500 + " <-- Ignores =" Print Mills() % 1000 <= 500 + " <-- Doesn't work at all" SetHue 30,1,1;Print "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-";SetHue 60,1,1 Print "This is misaligned" Text 100,123,Pyth(1,2) Text 100,138,Pyth(1,2)+1 Print;Print;Print "Due to the maths and commas getting all messed up.." SetHue 90,1,1;Print "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-";SetHue 120,1,1 Print "BODMAS is still broken" Print 12+3456 Print "Should be.." Print 3456+12 Print "But at least this works." Print 12+(3456) SetHue 150,1,1;Print "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-";SetHue 180,1,1 Print "And I can now "+"add strings together" Print " Ar" + "se" Print "This is 'Arise' with a Minus 'i'" Print " Arise" - "i" Print "And this is a string with a Multiply!" Print " Arse" 8 SetHue 210,1,1;Print "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-";SetHue 240,0.5,1 Print "Still a long long way to go.. :(" Flip Forever --v Getting there, slowly but surely.. The damn <= and =< and == and != stuff is all broken again, because they use two characters. Dangit.. I'm sure I had those working, the other day. Grrr... -=-=- ''Load, Next List!''
Sat, 24 Apr 2021, 09:07
Jayenkai	Minor tweak : Got <= and co working again, today. I've been scanning through the parser, step by step, and I think I understand now where the biggest issue is. I originally started with Line/Stack/Parameter values, but at some point Parameter morphed into "Bit of Parameter".. So, say you had. Text 100,200,Rand(300,400)+500 What would happen is.. Line : 1 Stack 0 : Parameter 0 = 100 Stack 0 : Parameter 1 = 200 Stack 1 : Parameter 0 = 300 Stack 1 : Parameter 1 = 400 Stack 0 : Parameter 2 = Rand of 1 Stack 0 : Parameter 3 = 500 Stack 0 : Parameter 4 = Work out 3 + 2, place back into slot .. 0.. ! Stack 0 : Text of 0 It's getting itself confused over what is and isn't parameters and stacks and things like that. I think it might be a good time to strip out a whole chunk and rewrite it. So, today I did just that, and chopped out most of the parser. The lexar is still working, so it's split everything up into words, and it's scanning through the words shuffling maths to the ends and whatnot. Next job is to rewrite the parser, probably adding in extra info per bit, so that it hopefully can understand it all a little better. I'll have to then rewrite a chunk of the interpreter, too. Gawd, the amount of work going into this is insane. Good thing I didn't set myself a deadline, huh!! -=-=- ''Load, Next List!''
Tue, 27 Apr 2021, 03:40
Jayenkai	It's getting better.. in places. .. It's also getting worse in other places! Go figure!! // String Tests // by Jayenkai // Created 2021/3/7 Graphics 640,480,0 Repeat CLS SetCol(0,0,128); Rect 0,0,ScreenWidth(),ScreenHeight(); SetFontSize 24; Print SetHue(60,1,1); Print 1+23+" <-- (BODMAS) Still.. Gaawd!" Print "1+2+3="+(1+2+3)+" <-- The value works, but where have all the strings gone?" SetHue(30,1,1); Print "[[ "+123+" Hello World "+(15324)+" ]] <-- Ditto.." SetHue(200,1,1); Print Mills() % 1000 < 500+" <-- This ticks like it oughta" SetHue(120,1,1); Text ScreenWidth()/2,ScreenHeight()/2-10,":D "+ScreenWidth(),1 Text ScreenWidth()/2,ScreenHeight()/2+10,":( "+ScreenHeight()+"<--Broken strings again",1 Flip Forever --v -=-=- ''Load, Next List!''
Tue, 27 Apr 2021, 06:05
cyangames	It's great to see how this language is coming along though, you can do it Jay! -=-=- Web / Game Dev, occasionally finishes off coding games also!
Tue, 27 Apr 2021, 10:05
rockford	Are you planning/hoping to make this a game programming language or is it just for fun?
Tue, 27 Apr 2021, 10:18
Jayenkai	I don't think you should expect to make decent quality games with it. It can be a little bit battery draining, even on an M1 Mac!!!! Full framerates in a browser, with parsing and interpreting and "doing".. it's not exactly super-speed. Optimisation will help, but .. shrugs I mean, you could certainly code a game in it, (or.. should be able to!) and I'm aiming to get SpikeDislike up and running as a test, so we'll see how well I can get that going. (Keep in mind how basic SpikeDislike is!) If it's "good enough", I'm thinking of adding a simple "QuickMenu()" (or something) sort of command to do what my framework's menu system does. But that's far ahead in the future. Gotta get it working properly, first!!! -=-=- ''Load, Next List!''
Tue, 27 Apr 2021, 15:17
Jayenkai	Ack... One thing I DEFINITELY need to add is an Export button. Last night's MacOS update has flushed out all of Safari's LocalStorage, so all my test scripts disappeared. Luckily I do most of my testing in Firefox (because it updates the .js, instead of caching it all the bloomin' time), but.. Yeah, that's annoying.. Grrr.. OK, after all of today's work, I'm now about 80% convinced that the syntax is working as it oughta. ALL of my test scripts, so far, appear to be working, with one single little quirk.. ... BODMAS.. I still haven't done the BODMAS.. Oh, and there are no variables, so Until, For, If, While, etc, are all currently missing. // Original Test // by Jayenkai // Created : 2021-02-21 Graphics 512,512,1 Repeat CLS // Border SetCol 255,255,255; Rect 0,0,ScreenWidth(),ScreenHeight() SetColor 0,0,0; Rect 16,16,ScreenWidth()-32,ScreenHeight()-32; // Spaceman SetColour 255,128,0; FillRect 100,100,200,300 SetCol(0,128,255); Rect(150,150,200,100); SetCol(0,0,0); Oval( 256 , 280 , 32 , 32 ); // Main Text Tests SetCol(0,128,255); SetFontSize(12); Text 32,32,"This, is an 'example' of some text."; SetFontSize(12); Text 480,480,'This (too) is merely an "example", being made up of text.',2; SetFontSize(20); Text(20,450,100,0); SetFontSize(12); Text(60,450,Sin(45),0); SetFontSize(12); Text(200,450,Mills(),0); SetFontSize(12); Text(300,450,(Sin(Mills())),0); // Shapes SetCol(0,128,255,1); Rect( ((ScreenWidth()0.5) + ((ScreenWidth()0.5) * Sin(Mills() / 16))),((ScreenHeight()/2) + ((ScreenHeight()/2) * Sin(Mills() / 10))),Rand(30,34),Rand(30,34),1); SetCol(100,255,100,0.6); Oval( ((ScreenWidth()0.5) + ((ScreenWidth()0.5) * Sin((Mills()-100) / 16))),((ScreenHeight()/2) + ((ScreenHeight()/2) * Sin((Mills()-100) / 10))),32,32,16); SetCol(255,100,100,0.3); Tri( ((ScreenWidth()0.5) + ((ScreenWidth()0.5) * Sin((Mills()-200) / 16))),((ScreenHeight()/2) + ((ScreenHeight()/2) * Sin((Mills()-200) / 10))),32,32); // Comparison Tests SetCol(255,255,255,1); SetFontSize(10); Text 62,280,"32 vs 32",1; Text 60,300,"<",2; Text(64,300,32 < 32,0); Text 60,310,">",2; Text(64,310,32 > 32,0); Text 60,320,"<=",2; Text(64,320,32 <= 32,0); Text 60,330,">=",2; Text(64,330,32 >= 32,0); SetCol(255,0,0); Text 60,340,"=",2; Text(64,340,32 = 32,0); SetCol(255,255,255); Text 60,350,"==",2; Text(64,350,32 == 32,0); Text 60,360,"!=",2; Text(64,360,32 != 32,0); Text 60,370,"<>",2; Text(64,370,32 <> 32,0); SetCol(255,0,0); Rect(0,0,32,32,1); Rect(ScreenWidth(),ScreenHeight(),32,32,1); Rect(0,ScreenHeight(),32,32,1); Rect(ScreenWidth(),0,32,32,1); Flip Forever --v // Symbol Test // by Jayenkai // Created 2021/4/13 Symbol 0,"0__20!203044030,30030,404404004044040,30030,304403020!2"; Symbol 1,"0__00A,B0,A9AB,0A9AB.CAAB?CAAB?CB!CD0B.CD0,C,D"; Graphics 1024,720,2; AA Off Repeat CLS ResetDraw SetCol 0,96,0 Rect 0,((ScreenHeight()-64)+32),ScreenWidth(),8 SetCol 80,40,0 Rect 0,((ScreenHeight()-64)+40),ScreenWidth(),100 SetCol 255,180,96 SetSize 2 DrawImg 100,((ScreenHeight()-64)-Abs(Sin(Mills()/6) * 360)),1,0; DrawImg 300,(ScreenHeight()-128),0,0 DrawImg 500,(ScreenHeight()-256),0,2 DrawImg 700,(ScreenHeight()-196),0,1 DrawImg 900,(ScreenHeight()-160),0,3 DrawImg 1050,(ScreenHeight()-320),0,4 Flip Forever --v The First Test Edition : Command List See how you get on. And if you find anything, at all, out of place.. Let me know. Don't forget to manually backup your code (Copy+paste it somewhere!) just in case. But, for the most part, it should be relatively safe unless you update or something!! -=-=- ''Load, Next List!''
Wed, 28 Apr 2021, 07:16
Jayenkai	// Clock // by Jayenkai // Created 2021/4/28 Graphics 512,512,1 Repeat CLS 0,0,160 SetCol 0,180,0 SetFontSize 96 Text 256,460,TimeString(),1 SetCol 255,255,255 SetFontSize 16 Text 256,20,DateString(),1 Text 256,40,DateWeekdayName()+", "+DateDay()+" of "+DateMonthName()+", "+DateYear(),1 SetCol 255,255,0 SetThick 12 Line 256,256,256+(Sin((TimeHour()30)+(TimeMinute()0.5))140),256-(Cos((TimeHour()30)+(TimeMinute()0.5))140) SetCol 255,128,0 SetThick 8 Line 256,256,256+(Sin(TimeMinute()6)220),256-(Cos(TimeMinute()6)220) SetCol 0,128,255 SetThick 2 Line 256,256,256+(Sin(TimeSecond()6)240),256-(Cos(TimeSecond()6)240) Flip Forever --v Added basic date and time functionality. Hurray! -=-=- ''Load, Next List!''
Thu, 29 Apr 2021, 09:15
Jayenkai	// Shape Chase // by Jayenkai // Created 2021/4/28 Graphics 512,512,1 Repeat CLS 0,120,0,0.1 // Hexagon moves around HexX=Sin(Mills()/5)240 HexY=Cos(Mills()/7)240 // Tri follows Hex TriX=TriX-((TriX-HexX)/16) TriY=TriY-((TriY-HexY)/16) // Oct follows the Mouse OctX=OctX-((OctX-MouseX())/6) OctY=OctY-((OctY-MouseY())/6) InkRot 30,1,1 Oval TriX+256,TriY+256,32,32,3 InkRot 190,1,1 Oval HexX+256,HexY+256,32,32,6 size=32*(MouseDown()+1) InkRot 280,1,1 Oval OctX,OctY,size,size,8 Flip Forever --v Ooooooh Yeahhhhh... Today's additions. 1. Basic Variable functionality. You can't set variables mid-line. Only bog standard functionality is currently working. Like how you could do.. Print "This sets a value"+(a=16) in Blitz.. Not gonna happen, here!! Maybe a future tweak. Right now I'm just honestly not sure how to achieve that. 2. Mouse Input MouseX and Y work. MouseX(),MouseY() = co-ordinates based on the scaling method with 0,0 being the top left of the "visible" screen, and ScreenWidth(),ScreenHeight() being the bottom right. MouseX(1),MouseY(1) = co-ordinates based on the browser, so 0,0 is the top left of the browser's viewport and ... Whatever the bottom right is!! MouseDown() lets you know if the left mouse button has been pressed. I'm looking into universal ways of getting right mouse button to work, but .. it's not looking good.. MouseX,Y and MouseDown also work for the first finger on a touchscreen. There's some crazy-ass code in the touch functionality, leftover from Shoebox, that I need to scrap and rewrite to get multi-touch working properly. The MouseX/Y values currently leap to -1600 (/scaled) when the mouse leaves the browser, or the finger leaves the touchscreen. I'm not 100% sure on the best way to cope with that. Thoughts and suggestions are welcome. -=-=- ''Load, Next List!''
Fri, 30 Apr 2021, 14:45
Jayenkai	// For Spirals // by Jayenkai // Created 2021/4/29 Graphics 512,512,1 Repeat CLS 0,0,0,0.05 SetThick 4 dist=158 dist2=16.515 n=0 Repeat // In place of a For loop, for the time being!! n=n+1 rot=rot+dist2 ; InkRot rot+(Mills()0.04),1,1 ; Line 256+(256Sin(rot)),256-(256Cos(rot)),256+(256Sin(rot+dist)),256-(256Cos(rot+dist)), Until n>100 // But it does the job, at least.. SetCol 255,255,255 if Gamepad(ButtonA) then Text 48,32,"A",1 if Gamepad(ButtonB) then Text 32,48,"B",1 if Gamepad(ButtonX) then Text 32,16,"X",1 if Gamepad(ButtonY) then Text 16,32,"Y",1 // Though if and the Until are working, they don't yet understand Ands, Ors, Nots and more.. // Plenty more work to do. Flip Forever --v Basic Gamepad support added, alongside tests for Until and If. And/Or/Not/etc aren't working yet, but the basic <\|>\|==\|!= comparison stuff is at least functional. I think* I'm aiming to get the engine to swap out For/Next loops for Repeat/Until loops, since those seem to at least be functional. I need to tie together the tops and bottoms of loops a little better, though. Right now, the way the If is working, is it switches on Skip mode, and scans through lines of code until it finds its nested endif. It'd be MUCH better optimised if I did that prior to running, and gave the if a line number to jump to. That functionality would also be handy for While/Wend, which is why it's currently missing. But.. Yeah, it's coming together.. -=-=- ''Load, Next List!''
Sat, 01 May 2021, 02:02
Dan	Is there a difference between = and == ?
Sat, 01 May 2021, 02:35
Jayenkai	Currently yes. Following most none-basic language syntax, = is "set value to" whereas == is "is it equal to?" The single = only really works if it's the second element at the start of a line, though. (Ie, Variablename=...) It's kinda glitchy like that, right now. I need to find a neater way of analysing what the user wants, but without ending up second guessing them and breaking their own logic. -=-=- ''Load, Next List!''
Sat, 01 May 2021, 05:03
Jayenkai	// GamePad Test // by Jayenkai // Created 2021/4/30 Graphics 640,640,1 Repeat CLS ang=360/7 port=0-1 Repeat desc="" dx=320+(Sin((port+1)ang)200) dy=320-(Cos((port+1)ang)200) If port==(0-1) then desc="Everything Combined" If port==4 then desc="Keyboard" If port==5 then desc="Onscreen Controls" Text dx,dy-48,"Port "+port,1 Text dx,dy-36,desc,1 // Combined DPad and Left Thumbstick SetCol 255,255,128;Oval dx+((GamePad(ButtonRight,port)-GamePad(ButtonLeft,port))16),dy+((GamePad(ButtonDown,port)-GamePad(ButtonUp,port))16),20,20,8 // Just the DPad SetCol 255,255,255;Oval dx+((GamePad(DPadRight,port)-GamePad(DpadLeft,port))50),dy+((GamePad(DPadDown,port)-GamePad(DPadUp,port))50),16,16,3 // Left Thumbstick SetCol 255,128,255;Oval dx+(GamePad(StickLX,port)16)-64,dy+(GamePad(StickLY,port)16)+24,18,18,8 // Right Thumbstick SetCol 128,255,255;Oval dx+(GamePad(StickRX,port)16)+64,dy+(GamePad(StickRY,port)16)+24,16,16,8 // Face Buttons s=4+(GamePad(ButtonA,port)8);SetCol 0,255,0;Oval dx-18,dy+16,s,s,8 s=4+(GamePad(ButtonB,port)8);SetCol 255,0,0;Oval dx-6,dy+16,s,s,8 s=4+(GamePad(ButtonY,port)8);SetCol 64,64,255;Oval dx+6,dy+16,s,s,8 s=4+(GamePad(ButtonX,port)8);SetCol 255,255,0;Oval dx+18,dy+16,s,s,8 // Triggers s=4+(GamePad(ButtonL1,port)8);SetCol 255,255,255;Oval dx-18,dy-16,s,s,8 s=4+(GamePad(ButtonR1,port)8);SetCol 255,255,255;Oval dx+18,dy-16,s,s,8 s=4+(GamePad(ButtonL2,port)8);SetCol 255,255,255;Oval dx-24,dy-24,s,s,8 s=4+(GamePad(ButtonR2,port)8);SetCol 255,255,255;Oval dx+24,dy-24,s,s,8 // Start and Select/Back s=4+(GamePad(ButtonStart,port)8);SetCol 255,255,255;Oval dx+32,dy,s,s,8 s=4+(GamePad(ButtonSelect,port)8);SetCol 255,255,255;Oval dx-32,dy,s,s,8 port=port+1 Until port>5 Flip Forever --v Gamepad code, so far.. Currently working on getting onscreen Touchscreen controls working, but .. ugh.. I so much hate onscreen touchscreen controls!!! \|update\| Updated to now account for Touch Controls \|update\| The touch controls only currently has a thumbstick on the left (with DPad values for digital input), and an A and B button. I might add more buttons in future, but .. gawd, I hate onscreen controls!! \|update\| Updated again! \|update\| The FPS display now looks a bit more FPS'y instead of the haphazard "wtf are these numbers" display that it used to be! -=-=- ''Load, Next List!''
Sun, 02 May 2021, 08:26
Jayenkai	// Dice Roller // An And/Or tester (Although I haven't put any Or's in...!) // by Jayenkai // Created 2021/05/01 Symbol 1,"1__0F_F?0F_F_F_F_F_F_F_F_F_F!vvF_F.v.F_F,v.F_F.vvF_F_F_F_F_F_F_F_F_F!0F_F?"; Symbol 2,"1__0F_F?0F_FFvvF_F.v.F_F,v.F_F.vvF_F_F_F_F_F_F_F_F_F_F_F,vvF_F.v.F_F,v.F_F.vvF_FF0F_F?"; Symbol 3,"1__0F_F?0F,vvF_F.v.F_F,v.F_F.vvF_F_F_F/vvF_F.v.F_F,v.F_F.vvF_F_F_F/vvF_F.v.F_F,v.F_F.vvF,0F_F?"; Symbol 4,"1__0F_F?0F,vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF_F_F_F_F_F_F_F_F_F_F_F,vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF,0F_F?"; Symbol 5,"1__0F_F?0F,vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF_F_F@vvF_F.v.F_F,v.F_F.vvF_F_F@vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF,0F_F?"; Symbol 6,"1__0F_F?0F,vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF_F_F.vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF_F_F.vvF!vvF?v.F.v.F.v.F.v.F?vvF!vvF,0F_F?"; Graphics 640,480,1 hold=1 CLS 60,120,200 SetCol 0,0,0;SetFontSize 64 Print "Dice Roller!" Print;Print Print " Click Me!!" Repeat if MouseDown()<1 then hold=0 If ((MouseDown()>0) and (hold==0)) then spin=Rand(10,30);hold=1 if spin>0 then gap=64 dx1=dx1+Rand(0-16,16) if dx1<gap then dx1=gap if dx1>(ScreenWidth()-gap) then dx1=ScreenWidth()-gap dx2=dx2+Rand(0-16,16) if dx2<gap then dx2=gap if dx2>(ScreenWidth()-gap) then dx2=ScreenWidth()-gap dy1=dy1+Rand(0-16,16) if dy1<320 then dy1=320 if dy1>(ScreenHeight()-gap) then dy1=ScreenHeight()-gap dy2=dy2+Rand(0-16,16) if dy2<320 then dy2=320 if dy2>(ScreenHeight()-gap) then dy2=ScreenHeight()-gap r1=r1+Rand(0-40,40) r2=r2+Rand(0-40,40) if ((Abs(dx1-dx2)<64) and (Abs(dy1-dy2)<64)) dx1=dx1-Rand(16,48) dx2=dx2+Rand(16,48) dy1=dy1+Rand(0-32,32) dy2=dy2+Rand(0-32,32) endif spin=spin-1 CLS 60,120,200;SetRot 0;SetSize 1 SetCol 0,0,0;SetFontSize 64 a=Rand(1,6) b=Rand(1,6) Print "Dice Roller!" if spin<1 then SetCol 255,255,255 if a==b then InkRot Mills(),0.5,1 endif Print "You rolled a "+a+"," Print " and a "+b+"." Print SetCol 0,0,0 if ((spin<1) and ((a+b)>2)) then Print "You scored "+(a+b) if ((spin<1) and ((a+b)==2) then Print " Snake Eyes!!" SetRot r1;SetSize 2 DrawImg dx1,dy1,a SetRot r2 DrawImg dx2,dy2,b Endif flip Forever --v You can Play it in JSE here A simple Dice Roller. Makes use of Symbol/sprites, repeat/forever, repeat/until, If's, and the recently added "AND" command. Ooooooh! .. Unfortunately, the syntax isn't quite perfect, so you need to bracket the hell out of anything that's nearby an AND. (Again, I think this is probably a BODMAS issue..) Also, for some really odd reason, if you switch out an "and" for an "&&", it seems to completely knacker the code. .. Even though the code switches out an "and" for an "&&" itself!!! Baffling issues.. -=-=- ''Load, Next List!''
Mon, 03 May 2021, 07:59
Jayenkai	Can it play Pong yet?! View on YouTube Sure it can! Mouse control for player one. Gamepad or keys for player two. Alternatively (by default) Player two is AI controlled. .. AI controlled.!?!?! In a script!?! That I've written!!?!? Sure does feel kinda empty without sound though, huh...? Hmmm.. The code is more or less "standard", but I've had to do a few quirky things to get the ifs working properly. // Table Tennis // by Jayenkai // Created 2021/5/3 Symbol 0,"2__0_0,O.MM0_0_0@OVVOOMM0_0_0/OVVOOMM0_0_0/OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVO,MM0_0_0!OVVOOMM0_0_0/OVVOOMM0_0_0/O.MM"; Symbol 1,"2__0_0?MMO.0_0_0/MMOOBBO0_0_0/MMOOBBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0!MMO,BBO0_0_0/MMOOBBO0_0_0/MMOOBBO0_0_0@MMO."; Symbol 2,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_00M.0_0_0_M,NNO0_0_0/M,N,OP0_0_0!MMN,OOP0_0_0!MN,OOPP0_0_0!MNNOOP,0_0_0/O,P,0_0_0_P."; Players=1 // One player mode. Use mouse for player one //Players=2 // Two player mode. Use gamepad/keys for player two Graphics 1024,768,2 AA Off reset=1 point=0;pointlit=0 y1=ScreenHeight()0.5 y2=ScreenHeight()0.5 yg2=0 Repeat CLS;ResetDraw() If reset==1 ballx=ScreenWidth()0.5 bally=ScreenHeight()0.5 ballgx=Rnd(0.8,1.2) if Rnd(10)<5 then ballgx=Neg(ballgx) ballgy=Rnd(0.8,1.2) if Rnd(10)<5 then ballgy=Neg(ballgy) speed=Neg(8) maxspeed=8 reset=0 endif if speed<maxspeed then speed=speed+0.1 size=24 SetCol 32,64,32 Rect ScreenWidth()0.5,ScreenHeight()0.5,4,ScreenHeight(),1 SetCol 100,255,100 SetSize 3 DrawImg size2,y1,0 DrawImg jscrw-(size2),y2,1 n=0 Repeat n=n+1 if speed>0 ballx=ballx+((ballgxspeed)0.25) bally=bally+((ballgyspeed)0.25) endif DrawImg ballx,bally,2 if bally<32 then bally=32;ballgy=jRnd(0.8,1.2) if bally>(jscrh-32) then bally=(jscrh-32);ballgy=Neg(jRnd(0.8,1.2)) a=(Abs(ballx-(size2))<(size)) b=(Abs(bally-(y1))<(48+(size0.5))) c=ballgx<0 if a and b and c then ballgx=jRnd(0.8,1.2); maxspeed=maxspeed+0.25 a=(Abs(ballx-(ScreenWidth()-(size2)))<(size)) b=(Abs(bally-(y2))<(48+(size0.5))) c=ballgx>0 if a and b and c then ballgx=Neg(jRnd(0.8,1.2)); maxspeed=maxspeed+0.25 Until n>4 If ballx<Neg(size) then reset=1;Score2=Score2+1;point=2;pointlit=90 If ballx>(ScreenWidth()+size) then reset=1;Score1=Score1+1;point=1;pointlit=90 if MouseY>0 then y1=MouseY() if Players!=1 then y2=y2+((Gamepad(ButtonDown)-Gamepad(ButtonUp))16) if Players==1 // Basic AI if bally<(y2-24) then yg2=yg2+Neg(Rnd(0.5,2)) if bally>(y2+24) then yg2=yg2+Rnd(0.5,2) if Abs(bally-y2)<24 then yg2=yg20.6 if yg2<Neg(16) then yg2=Neg(16) if yg2>16 then yg2=16 y2=y2+yg2 endif if y1<48 then y1=48 if y1>(ScreenHeight()-48) then y1=(ScreenHeight()-48) if y2<48 then y2=48 if y2>(ScreenHeight()-48) then y2=(ScreenHeight()-48) SetSize 4 SetCol 100,255,100 if ((point==1) and (pointlit%30>15)) then SetCol 255,100,255 Text ScreenWidth()0.25,32,Score1,1 SetCol 100,255,100 if ((point==2) and (pointlit%30>15)) then SetCol 255,100,255 Text ScreenWidth()0.75,32,Score2,1 pointlit=pointlit-1 if pointlit<1 then pointlit=0;point=0 Flip fin=0 if Score1>9 then fin=1;GameOver="Left Wins" if Score2>9 then fin=1;GameOver="Right Wins" Until fin=1 Text ScreenWidth()0.5,ScreenHeight()0.5,GameOver,1 Flip --v You can Play it here. Simply copy the code, shove it in the box, then click run! -=-=- ''Load, Next List!''
Page : 1 Prev 2 3 Next 4 5 6 7 8 9 10 11 12 13 14