JSE - Jay's Scripting Engine

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|513\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 3 4 5 Prev 6 7 Next 8 9 10 11 12 13 14
Fri, 21 May 2021, 10:48
Pakz	Yeah, those lines are gone. Now I pressed that x before a project and pressed cancel on the are you sure box. Then the project list moves away from the mousepointer making it a bit hard to select a project. This stops if you switch between those floppy menu's and back.
Fri, 21 May 2021, 10:57
Jayenkai	Aarg, maths!!!!! I'll have a poke. How many projects were in your list at the time? -=-=- ''Load, Next List!''
Fri, 21 May 2021, 10:57
Pakz	Only 2.
Fri, 21 May 2021, 10:58
Jayenkai	Ok, I'll fiddle
Sat, 22 May 2021, 04:10
Jayenkai	Fucking browsers, ffs.. Not a drop of CSS in sight, and still things haphazardly misalign. My lovely font (the checkered pattern in the middle) is all over the damn place. And WTF is with Firefox being super-vibrant!?! -=-=- ''Load, Next List!''
Sat, 22 May 2021, 07:12
Jayenkai	// Font List // by Jayenkai // Created 2021/5/22 Graphics 1280,900,1 Border 128,128,128;CLS 160,160,160;SetCol 0,0,0 SetFontSize 40 x=16;y=16 For n=0 to 33 SetFont n Text x,y+20,Right$("00"+n,2)+" ABCDabcd0123",0 y=y+52 If n==16 then y=16:x=x+640 Next --v JSE Link Added some more fonts, from This Site. An email has been sent seeing absolute permission for the fonts. -=-=- ''Load, Next List!''
Sun, 23 May 2021, 14:29
Jayenkai	// File Access Example if FileExists==0 LastScore=37 HighScore=128 BestWord="Giraffe" // Save Values WriteFile 0,LastScore WriteFile 1,HighScore WriteFile 2,BestWord SaveFile Print "Saved!" // Clear Values LastScore=0 HighScore=0 BestWord=0 Print:Print "Reset" Print "Last Score "+LastScore Print "High Score "+HighScore Print "Best Word "+BestWord Endif // Load Values LoadFile LastScore=ReadFile(0) HighScore=ReadFile(1) BestWord=ReadFile(2) Print:Print "Loaded" Print "Last Score "+LastScore Print "High Score "+HighScore Print "Best Word "+BestWord --v JSE Link Loading and saving. \o/yeay\o/ Dealing with Javascript requires us to think outside the box. Rather than a proper file access, you're given basically an array, can pop data into that, and then save it. You're limited to 256 slots in the virtual file, however, those values can be strings, so if you need more you could use your ingenuity and clump together multiple values into a text string, then save that into one of the available slots. The save "file" has a maximum length of 32*1024, (32kb) and will unceremoniously chop off anything beyond that. -=-=- ''Load, Next List!''
Mon, 24 May 2021, 17:01
Jayenkai	// A Rather Short Game // by Jayenkai // Created 2021/5/24 Symbol 0,"1__0!;.0_00;!0_;@0@;@0@;@0@;@0_;!0_0;!0_00;.0_0,;.0_0.;;0_0_0_0,;;0_0.;.0_0,;.0_0.;;"; GameHandler("A Rather\|Short\|Game") .StartGame GameColor=jRand(0,360) Return .Ingame CLS:InkRot GameColor,0.5,1:SetFontSize 32 Text 100,100,Score : Text ScreenWidth/2,ScreenHeight*0.75,"Tap to End",1 If GamePadHit>0 or MouseHit>0 then EndGame "Oh no. The game has ended!" if GameOver==0 then Score=Score+1 Return --v I'll let this code (hopefully) speak for itself. -=-=- ''Load, Next List!''
Fri, 28 May 2021, 09:44
Jayenkai	// Scroll Test - Time Vortex // by Jayenkai // Created 2021/5/21 Symbol 0,"2__0_0_0_0_0_00ee0_0_0_0,HH0_0_0_0,HH0_0_0?e_e/0_0/e_e/0_0/ee:_:,ee0_0/ee:_:,ee0_0/e_e/0_0/eeyeyeyeeyeyeyee0_0/eeyeyeyeeyeyeyee0_0/e_e/0_0/eeyeyeyeeyeyeyee0_0/eeyeyeyeeyeyeyee0_0/e_e/0_0/e_e/0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/e_e/0_0/e_e/0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0!f_f_0_0?f_f_"; Symbol 1,"2__0_0_0_0_0_00ee0_0_0_0,LL0_0_0_0,LL0_0_0?e_e/0_0/e_e/0_0/ee:_:,ee0_0/ee:_:,ee0_0/e_e/0_0/eeyeyeyeeyeyeyee0_0/eeyeyeyeeyeyeyee0_0/e_e/0_0/eeyeyeyeeyeyeyee0_0/eeyeyeyeeyeyeyee0_0/e_e/0_0/e_e/0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/e_e/0_0/e_e/0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0/eed?eed?ee0_0!f_f_0_0?f_f_"; Graphics 256,256,2 SetFontSize 8 Repeat CLS 0,0,0,0.01 // Fade out the screen a bit SetCLSColor Rand(0,255),0,0 // Sets the CLS colour. Since we're not using it for actual CLSing, // in this instance, this is the colour that will be drawn on any scrolled area, // which started outside the boundary of the screen. Scroll(Sin(Mills()0.1)4,Sin(Mills()0.13)4) SetRot(Sin(Mills()0.1)16) lit=0 if Mills()%300>150 then lit=1 DrawImg ScreenWidth/2,ScreenHeight/2,lit flip Forever --v Note that the site now has a separate JSE bbcode tag, which will do the same as the code tag, but adds a little "GOTO JSE" button that when clicked will(*should!) copy the code over, so you don't have to copy+paste. -=-=- ''Load, Next List!''
Fri, 28 May 2021, 12:15
Dan	That is great !
Fri, 28 May 2021, 12:33
rockford	It's all gone Timey Wimey! Awesome
Sat, 29 May 2021, 09:54
Jayenkai	View on YouTube
Sun, 30 May 2021, 06:12
Jayenkai	// Particle Test // by Jayenkai // Created 2021/5/30 Symbol 0,"0__0_0_0!P@"; Symbol 1,"0__4_40?440!440!440!440!440?4_4"; Symbol 2,"0__0,II0?I00I0.I00I0,I0.I00I0.I0I00II00II0I00I0I0I0.I"; Symbol 3,"2__0_0,y@0_0_0!y_0,y00y0_0/y?zyy0,z0,y0_0/y/:0!z0_y@0/:y.:yyz0@y@0z00yz00y.:yy:0@y@0,::0,zy/0y0!y.zy,0!:0y,:y.0_0,z.yzy,:yzzy!:00y0/y0yz,yzy_y?0!y0,:0zz:zy_y/:0_y0yz,y_y/0@y:,y.0.:zyz?yz,0?y0z:?yyz0y0zyz!yzzyz0y0!:.y,:z0,yz.yz,:zz0@:?y,0.z.yz?yz0.y,zy:yyz:zyz.y0y:z@0.y@zyz!yz00z_0,y,::y,zyz.yz0,z.yyzyz00:0y.zy::z?y:yz0,z@0.y?zyyz,y?:,z?0z0!yyzy?z,y,:zz:,z,y0@y.:zyz,yz?:z::z,y00z:0.yyzyy:y:z:zzy.:.z.0@y_0y0:yzzy:yz,:z0@y/z0.zyyz_0@y,zy.00y0z,yz@0@yyzy?00z0z_z,0z0_z0,z:.0_0_0/:00:.0z0_0_0!:0:.0z00z0_0_0,z0:.00z0!z"; Symbol 4,"0__0_0_;00;0?;;0!;;0?;00;"; Graphics 800,600,1 Repeat CLS 30,30,80 ResetDraw Print "Particle Test" SetSize(0.25); Starfield(0,3,4);ResetDraw(); for t=0 to 7 tu=t+1 x=t mod 4;y=Floor(t/4) x=(x/4)+0.125 y=(y/3)+0.33 dx=ScreenWidth()x;dy=ScreenHeight()y SetSize(1) If MouseIn(dx,dy,32,32,1) and MouseDown()>0 Text(dx,dy,tu,1) SetSize(2) p=0 if tu==2 or tu==3 or tu==6 then p=1 if tu==4 or tu==5 then p=2 if tu==7 then p=3 if tu==8 then p=4 spd=1 if tu==5 or tu==7 then spd=0.25 ang=180; if tu==2 or tu==3 then ang=45:spd=1.5 if tu==7 then ang=45 if tu==8 then spd=Rnd(0.5,1.5) ThrowParticle(MouseX(),MouseY(),tu,Rnd(0-ang,ang),spd,p,Rand(0,9)) Endif DrawImg(dx,dy,1,t) Next Flip Forever --v JSE got simple particles, today. -=-=- ''Load, Next List!''
Sun, 30 May 2021, 10:21
rockford	Nice and fast
Sun, 30 May 2021, 15:40
Jayenkai	// Particle Test // by Jayenkai // Created 2021/5/30 Symbol 0,"0__0_0_0!P@"; Symbol 1,"0__4_40?440!440!440!440!440?4_4"; Symbol 2,"0__0,II0?I00I0.I00I0,I0.I00I0.I0I00II00II0I00I0I0I0.I"; Symbol 3,"2__0_0,y@0_0_0!y_0,y00y0_0/y?zyy0,z0,y0_0/y/:0!z0_y@0/:y.:yyz0@y@0z00yz00y.:yy:0@y@0,::0,zy/0y0!y.zy,0!:0y,:y.0_0,z.yzy,:yzzy!:00y0/y0yz,yzy_y?0!y0,:0zz:zy_y/:0_y0yz,y_y/0@y:,y.0.:zyz?yz,0?y0z:?yyz0y0zyz!yzzyz0y0!:.y,:z0,yz.yz,:zz0@:?y,0.z.yz?yz0.y,zy:yyz:zyz.y0y:z@0.y@zyz!yz00z_0,y,::y,zyz.yz0,z.yyzyz00:0y.zy::z?y:yz0,z@0.y?zyyz,y?:,z?0z0!yyzy?z,y,:zz:,z,y0@y.:zyz,yz?:z::z,y00z:0.yyzyy:y:z:zzy.:.z.0@y_0y0:yzzy:yz,:z0@y/z0.zyyz_0@y,zy.00y0z,yz@0@yyzy?00z0z_z,0z0_z0,z:.0_0_0/:00:.0z0_0_0!:0:.0z00z0_0_0,z0:.00z0!z"; Symbol 4,"0__0_0_;00;0?;;0!;;0?;00;"; Symbol 5,"0__00T.0,TTccTT0TTcVVcT,cV.cTTcV.cT,cVVcTT0TTccTT0,T."; Graphics 800,600,1 SetParticleSize 16 ScrollX=0;ScrollY Blend=0 SetFont "CPC" Repeat CLS 30,30,80 ResetDraw Print "Particle Test" SetSize(0.25); Starfield(0,3,4);ResetDraw(); Text ScreenWidth/2,ScreenHeight0.2,Chr$(242)+" "+Blend+" "+BlendName(Blend)+" "+Chr$(243),1 if MouseHit() and MouseIn(ScreenWidth/2,ScreenHeight0.2,256,32,1)>0 then Blend=Blend+1 if GamePad(ButtonLeft)<0.5 and GamePad(ButtonRight)<0.5 then kdis=0 if GamePad(ButtonLeft)>0.5 and kdis==0 then kdis=1:Blend=Blend-1 if GamePad(ButtonRight)>0.5 and kdis==0 then kdis=1:Blend=Blend+1 if Blend<0 then Blend=11 if Blend>11 then Blend=0 ScrollX=ScrollX+1 ParticleOffset(ScrollX,ScrollY) for t=0 to 7 tu=t+1 x=t mod 4;y=Floor(t/4) x=(x/4)+0.125 y=(y/3)+0.33 dx=ScreenWidth()x;dy=ScreenHeight()y SetSize(1) If MouseIn(dx,dy,32,32,1) and MouseDown()>0 Text(dx,dy,tu,1) SetSize(2) p=0;spd=1;ang=180;c=Rand(0,9);b=Blend if tu==2 or tu==3 or tu==6 then p=1 if tu==4 or tu==5 then p=2 if tu==7 then p=3 if tu==8 then p=5 if tu==5 or tu==7 then spd=0.25 if tu==2 or tu==3 then ang=45:spd=1.5 if tu==7 then ang=45 if tu==8 then spd=Rnd(0.5,1.5);p=5;c=0; ThrowParticle(MouseX(),MouseY(),tu,Rnd(0-ang,ang),spd,p,c,b) Endif DrawImg(dx,dy,1,t) Next Flip Forever --v Now enhanced with Blend Modes.. -=-=- ''Load, Next List!''
Tue, 01 Jun 2021, 05:44
AndyH	Looking really good - I had a little play with the language last week. -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Thu, 03 Jun 2021, 07:02
Jayenkai	If you click the "Open Project" button, you'll now find two new disks. A pink "Examples" disk, and a black "Games" disk. These will download projects from the server. There's a number of my original test examples in there, alongside a bunch of retro styled games. -=-=- ''Load, Next List!''
Thu, 03 Jun 2021, 07:31
AndyH	Neat - I'm also seeing how you generate the symbols now ! (I wondered if there was a tool, or if you had some magic structure to what that data represented). Don't know if this is possible, are you able to capture the F1 key in the text editor and jump to the help with a bookmark for the word the cursor is on eg: #symbol, to bring up that command? -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Thu, 03 Jun 2021, 09:09
Jayenkai	It ends up being fussy on different browsers, much like the paste functionality. I could maybe do Ctrl+H, instead? Maybe see if I can get the help icon for to go directly to the commands, too, so it's functional on mobiles... hmm.. -=-=- ''Load, Next List!''
Thu, 03 Jun 2021, 12:35
Jayenkai	goes through documentation adding id links to each and every command documented OMG.. My Eyes!!!! Now I have to code something to find the word your text cursor's on, and translate that to the documentation... .. Yea, should be easy!! -=-=- ''Load, Next List!''
Thu, 03 Jun 2021, 13:47
Jayenkai	Ugh.. Command and H hides the browser.. Well of course it sodding well does. God forbid we have the ability to make a logical [H] Help button.. Nnngh.. Right then, next option .. Question Mark. Ctrl+Question mark, or Alt+Question Mark, or Command+Question Mark.. Either/or should, maybe, possibly work. Be in a word, or select a word, and it should pop open the command list to that command, assuming I've added that command to the command list. Clicking on the little [?] icon should also work, but seems to occasionally glitch out because it's moving the cursor/selection away from the text area before figuring out what word is currently selected in said texture.. Hmm. But, yeah, should "more or less" work. I need a lie down, now, that was a lot of very-repetitive work!!! -=-=- ''Load, Next List!''
Fri, 04 Jun 2021, 23:01
Jayenkai	A whole bunch of updates, yesterday, from Fixing Arrays, to an overhaul of the Symbol Editor. There are now PreProcessors, though they're not fully fledged just yet, and are simple little If/End things with your own parameters. In addition, there are Wrap and Limit commands to stop/allow a value to pass the extents of a range. I also added a bunch of Shape Collision commands, which would most definitely come in handy. Yep.. Lots of newness.. v tired!! -=-=- ''Load, Next List!''
Sat, 05 Jun 2021, 06:33
Afr0	Hm, could you port Doom now? What with arrays being implemented and all -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Sat, 05 Jun 2021, 09:10
Jayenkai	Feel free to give it a go. Probably not very well, I'd imagine. -=-=- ''Load, Next List!''
Wed, 09 Jun 2021, 08:32
Jayenkai	// Falling Petals // by Jayenkai // Created 2021/6/9 Symbol 0,"0__220.2,4400442046.40,60060.60060,46.4024400442,0.22"; Graphics 512,512,2 petals=30 flrs=5 skips=3 pt=0 Dim petl(500,10) Dim flr(500,10) y=ScreenHeight()/(flrs+2) for n=0 to flrs flr(n,2)=y(n+1) w=jRand(160,256) h=jRand(-32,32) flr(n,1)=jRand(0,ScreenWidth()-w) flr(n,3)=flr(n,1)+w flr(n,4)=flr(n,2)+h flr(n,5)=Neg(0.1) if h>0 then flr(n,5)=0.1 next for d=0 to petals petl(d,1)=jRand(16,ScreenWidth()-16) petl(d,2)=0-jRand(16,ScreenHeight()) petl(d,3)=0 petl(d,4)=0 petl(d,5)=h next Repeat CLS pt=((pt+1) mod skips) SetFontSize 32 SetCol 255,128,0 for n=0 to flrs SetSize 1 x1=flr(n,1);y1=flr(n,2);x2=flr(n,3);y2=flr(n,4) Line(x1,y1,x2,y2) next for d=0 to petals ResetDraw() if pt==(d mod skips) x1=petl(d,1) y1=petl(d,2) x2=petl(d,1) y2=petl(d,2)+petl(d,4)+7 for n=0 to flrs if CollideLineToLine(flr(n,1),flr(n,2),flr(n,3),flr(n,4),x1,y1,x2,y2) petl(d,2)=LineCollidePointY-6 ang=flr(n,5) petl(d,3)=petl(d,3)+ang petl(d,4)=0.5 endif next petl(d,2)=petl(d,2)+4+petl(d,4) petl(d,4)=petl(d,4) petl(d,4)=petl(d,4)+0.5 if petl(d,4)>6 then petl(d,4)=6 if petl(d,2)>jscrh+32 petl(d,2)=-32 petl(d,1)=jRand(16,ScreenWidth()-16); petl(d,3)=0 petl(d,4)=0 endif s=petl(d,3) petl(d,1)=petl(d,1)+s4 petl(d,3)=s0.94 petl(d,5)=petl(d,5)+s8 endif x=petl(d,1);y=petl(d,2) SetSize 0.25;SetRot petl(d,5) DrawImg x,y,0 next Flip Forever --v A couple of bugs quenched, today, and a significant chunk of the parser has been rewritten. I'd like to apologise in advance if I've fucked up anyone's code. If anything's gone awry, please do do do let me know what it is, and I'll see about fixing it. -=-=- ''Load, Next List!''
Page : 1 2 3 4 5 Prev 6 7 Next 8 9 10 11 12 13 14