Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|386\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 3 4 5 6 7 8 9 10 Prev 11 12 Next 13 14
Thu, 05 Aug 2021, 07:09
Jayenkai	This link should work... Let me know if it does. Though it might require a couple of clicks for the new version to update first. lrTBGsBd.BAS -=-=- ''Load, Next List!''
Thu, 05 Aug 2021, 13:36
Pakz	It works! The link itself does look a bit dangerous though
Thu, 05 Aug 2021, 14:19
Dan	Looks like these optical illusions !
Fri, 06 Aug 2021, 04:49
Jayenkai	Copy+Pasted from this morning's AGameAWeek blog. -=-=- There's a new button on the main GUI. .. But what does it do!?! You'll want to refresh to make sure your version of JSE is up to v3gen before the new button appears. Hit the button and the current project gets uploaded to the server. If it worked, you'll be given a unique link to your project which you can share online. Click the screen to copy the link to your clipboard. And that's about as complicated as it gets. You CAN click it again to update the project, should you end up fixing it up or something. The link will remain the same, and only the code will change. The download key, and updater key are saved to your browser, and also exported/imported inside the .jse file when you use those functions in the folder view. This allows you to move from system to system, carry all your code with you, and have the ability to update projects. Be absolutely sure that you do this, because if you lose that updater key, I (currently) have absolutely no way to let you update projects in the future. Again, I'm trying my best to do everything without requiring you to log in, which will probably bite me in the arse later when people start abusing the functionality, but ... for now it's working "enough"! Downloaded projects (eg, when you click a link) won't allow you to upload them back to the server. Additionally, Duplicated projects (eg, if you click New Project then try to upload that, with it being identical to someone elses version) will appear to be uploading just fine, but will thereafter act like Downloaded projects. I need to figure out a way to not do that permanently. I can imagine people starting a new project, and hitting upload instantly, then never being able to upload their project ever again. Hmmm... So, I'll be tweaking it during the day, to do what needs to be done. I also need to add some kind of moderation functionality into the mix, so I can double/triple check on things that are being uploaded. But.. Yeah, it should work. Be sure to let me know how broken it is, on your end GotoJSE.com/WwdqwjnS.BAS -=-=- ''Load, Next List!''
Sun, 08 Aug 2021, 08:53
Jayenkai	// The Unfortunate Bike // by Jayenkai // Created 2021/8/7 Mode 1,"CPC" .Restart CLS PlaySFX("Beeper_Jingle_Up") f=0:d=0:s=0 w=ScreenWidth():h=ScreenHeight() x=Floor(w0.5):y=Floor(h0.8) Ink 6:SetThick 3 DrawRect 0,0,w,h // Border For n=0 to 32 Text Rnd(0,w),Rnd(0,h),"X",1 // Random X's Next Ink 1:Rect w0.5,h0.65,8,h0.4,1 // Clear out a starting "runway" Ink 24 Repeat s=s+1 For m=1 to 2 x=x+Sin(d):y=y-Cos(d) // Move pixel If GetPixel(x+Sin(d)2,y-Cos(d)*2,0)>150 f=1:m=5 // Crash! PlaySFX("Explode_Low_4") PlaySFX("Beeper_Fall") endif Plot x,y // Plot If GamePadDist()>0.3 then d=GamePadAng() // Controls Next Flip Until f>0 // Game Over Ink 8:Oval x,y,6,6:DrawOval x,y,32,32 Ink 11:Text 16,16,s WaitGamepad() Goto Restart --v A few new commands for today. Pen and Ink do the same thing, selecting from a predetermined set of colours. (Colour charts coming later, once I can be arsed, but .. If you know the CPC's 27 colours... Them! Unless you use UsePalette C64, in which case them, or UsePalette ZX which be those and BBC are that then.) Paper uses the same colours, and "Border n" (Not Border r,g,b) also does, too. Phew!! The Pen/Paper/Ink/Border commands were seemingly different on all the different BASIC systems, so I've tried to make them as obvious as I can, but .. there are obviously differences from the originals as you'll remember them. Sorry about that.. Tying myself up in knots with these commands, if I'm honest, and .. Oh boy, here comes Mode!!! Mode 0-4, "System", ScaleMode ScaleMode is the same as the Graphics command's third parameter. 0 for unscaled, 1 for scaled, 2 for scaled + fit to screen, 3 for Pixel scaled. System is either "Hires" or the usual systems "CPC", "C64", "ZX", "BBC" Then the mode number sets to one of a set of default resolutions. The chart for modes and resolutions is available here, in the command list. They should hopefully line up roughly to what you'd use for modes on those systems. Unfortunately, the width-scaling thing doesn't quite work right, so for example, a CPC Mode 0 ends up squished, whereas it should be 2xpixel wide to fill the screen out. I'm currently working on getting that to work. Such a simple little command, but ... OH MY GOD!!!! ... Currently unfinished commands GamePadDistance and GamePadAngle will (eventually) tell you the angle+distance of the thumbtacks or DPad. At the minute, they combine values of DPad and Left Thumbstick, as I've not yet added parameters to the mix.. But .. Yeah, that'll be the purpose of those. -=-=- ''Load, Next List!''
Mon, 09 Aug 2021, 02:31
Pakz	I have been learning Lua. While reading about it I noticed they have this special version called LuaJit. The speed with this just in time compiler version was benched at the speed of regular c language. Though not always it is mentioned which version is used in which suite. I noticed one fantasy console on android that said they used this jit version. I have no idea what a just in time system does though
Mon, 09 Aug 2021, 02:53
Jayenkai	"Compiling" would suggest taking the code and changing it directly into Javascript. JSE doesn't do that. It does do a lot of tweaking to your code to make it easier to parse, but in the end it's still just parsing the script. I have considered translating code to Javascript, but given browser securities I don't think I can do that directly in the browser. Sending all your code, every time you click run, to the server, and spitting out Javascript that it can read and run, would indeed be quicker at running, but it would.. A) definitely require a server at the other end. Turn off your internet, and you should still be able to use JSE. B) be slower when you click "run".. boooooo!!! C) bog down the server... booooooo!!! I've been avoiding that! -=-=- ''Load, Next List!''
Sat, 14 Aug 2021, 09:09
Jayenkai	// Helicopter Game // by Jayenkai // Created 2021/8/11 Symbol 0,"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_0_0.;_;0!;;0_0,;@00;.0.;;0_0,;@II0;,00;_;_;!II00;_;_;_;I0,;.00;;0_0;_;/0.;;0_0;_;/0_0_00;;0!;;0_0_0.;;0!;;0_0_00;_;?0_0_;_;?"; Symbol 1,"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,z.;;:.0_0_0.z.;;:.0_0_0@;;0_0_0_0,;;0_0_0_0,;;0_0_0_0,;;0_0_0@;_;0_0_0.;_;0@;;0_0;@00;.0!;;0_0;@II0;,00;_;_;!II00;_;_;_;I0,;!0_0,;_;/00;;0_0,;_;/0_0_00;;0!;;0_0_0.;;0!;;0_0_00;_;?0_0_;_;?"; 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?::;;zz0_0_0@::;;zz0_0_0_0;;0_0_0_0,;;0_0_0_0,;;0_0_0_0,;;0_0_0@;_;0_0_0.;_;0_0_00;@00;.0_0_;@II0;,00;_;_;!II00;_;_;_;I0,;.0_0?;_;/0_0/;_;/0_0_00;;0!;;0_0_0.;;0!;;0_0_00;_;?0_0_;_;?"; Symbol 3,"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:!;;z!0_0_:!;;z!0_0_0!;;0_0_0_0,;;0_0_0_0,;;0_0_0_0,;;0_0_0@;_;0_0_0.;_;0.;;0_0?;@00;.00;;0_0?;@II0;,00;_;_;!II00;_;_;_;I0,;.0.;;0@;_;/0!;;0@;_;/0_0_00;;0!;;0_0_0.;;0!;;0_0_00;_;?0_0_;_;?"; Symbol 4,"2__0_0_0_0_0_0_0_0.4,0_0_0_0!40_0_0_0_B040_0_0_00B040/40_0_0.B0!40_0_0040,B0_0_0!B0!B40,40_0_00B0_0.BB0_0@I0.B4I0?B0_0?4400BI0.I0.B0_0_040B004B40B0_0_0_4I4B0_0_0@B00I040040040440_0?BB00B0BBI.0!40_0_0/I0B0_0_44II44II40!B0_0!II0,B04I0@B0_0@B0?I40_0_0_40_0_0@B0?B00B0_0_0,B0.40B0.40_0_0B0_0B0_0_0/40_0_0_0_0_0_0_0/B0,40_0_0_B0.40_0_00B0_0_0_0.B"; Dim High(1024) Graphics 640,480,2 GameHandler("Helicopter\|Game",Calendar) .StartGame SeedRnd ThisLevel Start=60 MyY=ScreenHeight()/2 MyYGo=0 Speed=0 MaxSpeed=4 Goal=0 LevelHue=Rand(0,360) scrx=0 y=ScreenHeight()/2 yspd=0 gap=5 g=6 e=6 LevLong=64 // Setup tweaks depending on the day of the week if ThisWeekday==0 then LevName="Sleepy Sunday" if ThisWeekday==1 then LevName="Manic Monday":e=8:LevLong=Rand(96,200) if ThisWeekday==2 then LevName="Tortuous Tuesday":g=9:LevLong=Rand(200,300) if ThisWeekday==3 then LevName="Winding Wednesday":e=3:LevLong=Rand(96,160) if ThisWeekday==4 then LevName="Throttle Thursday":LevLong=Rand(96,300):MaxSpeed=6 if ThisWeekday==5 then LevName="Far Out Friday":LevLong=1024 if ThisWeekday==6 then LevName="Superfast Saturday":LevLong=128 // Make tunnel for x=0 to 1024 High(x)=y y=y+yspd4 gap=gap-1 if gap<0 and Rand(0,10)<e then yspd=Rand(0-g,g) if y<72 then yspd=Rand(2,g) if y>ScreenHeight()-72 then yspd=0-Rand(2,g) next Return .Ingame Speedup=1 if ThisWeekday==6 then Speedup=1.4 if ThisWeekday==0 then Speedup=0.7 SetCLSHue LevelHue,0.5,0.2 CLS;ResetDraw SetCol 0,0,0 l=Floor(scrx/64)-1 r=l+14 if r>LevLong then r=LevLong crashed=1 For x=l to r dx=(x64)-scrx SetCol 0,0,0 Rect dx-32,High(x),65,129,1 // Check if Heli's close to this rect. If it's within this space, it's not crashed if Abs(dx-32)<38 and Abs(High(x)-MyY)<60 and Start>-1 crashed=0 if x==LevLong and Goal==0 then Goal=1:PlaySFX("Beeper_Fruit_Bonus") endif Next SetCol 255,255,255 Butt=0 if GamePad(ButtonA)>0.5 or GamePad(ButtonUp)>0.5 or MouseDown() then Butt=1 if crashed==1 and Start==0 then PlaySFX("Error_4"):PlaySFX("Explode_Low_6") if crashed==1 or Start<0 then Start=Start-1 if Start>0 then Start=Start-1:Text ScreenWidth()/2,ScreenHeight()0.25,LevName,1 if Start==0 and Goal==0 MaxSpeed=MaxSpeed+0.01 if ThisWeekday!=4 and MaxSpeed>8 then MaxSpeed=8 if ThisWeekday==4 and MaxSpeed>12 then MaxSpeed=12 scrx=scrx+(SpeedSpeedup) if Speed<MaxSpeed then Speed=Speed+0.1 MyY=MyY+MyYGo0.45 if Butt==0 then MyYGo=MyYGo+(0.33Speedup) if Butt==1 then MyYGo=MyYGo-(0.33Speedup) endif n=Floor(Mills()/64) Mod 4 DrawImg 32,MyY,n if Start<0 then ThrowParticle 32,MyY,2,jRnd(0,360),jRnd(0.3,0.8),4,0 Score=l if l<0 then l=0 s=(LevLong-(l+3)):if s<0 then s=0 Text ScreenWidth()-64,32,s,1 Text ScreenWidth()-64,48,"Goal",1 SetParticleSize 32 SetParticleGravity 0.2 if Start<0-30 then EndGame "Crashed" if Goal>0 then Goal=Goal+1 if Goal>30 then Score=LevLong:WinLevel:EndGame "GOAL!" Return --v Gosh, that was a struggle to get going. Right then.. New Framework. Instead of "GameHandler("Game Name","Easy\|Normal\|Hard")" you can now use "GameHandler("Game Name","Calendar")" and you'll get a neatly presented calendar based "Time Tunnel"!! It only displays dates for the current year, but each day of the year has its own Win parameter (WinLevel command*) and also a highscore. With this new menu system, you can easily make games with 365/6 levels.. Assuming you can create those levels. I mean, you could also have entirely new adventures, and massive sprawling worlds for each day, instead of just a single level, but.. You get the idea.. .. Apologies that the mouse/touch interface is tap-only. I coded myself into a corner, there!!! You'll want to refresh to get v.3geq for it to work. -=-=- ''Load, Next List!''
Wed, 18 Aug 2021, 15:50
Jayenkai	// Spinning Platdude // by Jayenkai // Created 2021/8/18 Symbol 0,"02_4.3,24!334/34/354/54/554!65,4."; Bits="000330000003300000030000002220000202020000050000005050000050500011111110" Dim Sh(8,9) For x=0 to 7:For y=0 to 8 Sh(x+1,y+1)=Mid$(Bits,y8+x,1) Next:Next Graphics 512,512,1 Repeat CLS z=Mills()0.15 For y=1 to 9 For m=1 to 8 x=m:if Cos(z)<0 then x=9-m If Sh(x,y)>0 then DrawImg 256+Sin(z)(34(x-4)),128+y34,0,Sh(x,y)-1 Next:Next Flip Forever --v shrugs* -=-=- ''Load, Next List!''
Wed, 18 Aug 2021, 17:06
shroom_monk	Pakz I have no idea what a just in time system does though I only have a passing experience with JIT compilation, so my explanation might be a little shaky, but as I understand it: When you have a language that runs in some kind of virtual machine (like Lua and Javascript do), you naturally get some overhead, so your program runs more slowly than it might if written in a language that compiles to machine code. But you don't want to just compile the whole program to machine code, because that can take a big block of time before you can run any code at all, and tends to defeat the point of using those kinds of languages in the first place. Just-In-Time (JIT) compilation is a compromise. While running your program, the VM will keep an eye out for any small fragments of code that get run repeatedly. Such fragments of code are good candidates for optimisation, because even a small speed increase will be magnified by that code getting run many times. The VM will compile that bit of code into machine code in the background, and when it's done will drop that newly compiled machine code in where previously it would have run the original code fragment. If applied judiciously by the VM, the result ought to be that programs tend to run faster, without needing to compile the entire program. I think most Javascript VMs used in web browsers these days use JIT compilation, so JSE probably already benefits from this without needing to explicitly implement anything like it! -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Thu, 19 Aug 2021, 02:52
Jayenkai	Yeah, if you load up JSE, run the Optimisationalism 2 test, you should find that once the Javascript JIT stuff has settled, the script should speed up quite a bit. One of the things I've been trying to do lately is rewrite chunks of code to speed up that JIT stuff. Replacing a couple of ifs with a switch/case* can sometimes make quite a difference, but in other situations, the opposite is true and where you "thought" a switch/case would be better suited, it actually turns out that the JIT compiler works better with a bunch of if's. It's tricky to know what's best, but that's what optimisation's all about, right!?! Hmm.. Writing scripts in ways that make it slightly easier for the Javascript to "compile" means having to write things in ways that my 80's BASIC mindset is not quite good at!! Yeah, it'd be great if I could "actually compile" what's written in the JSE code box, but I'm fairly sure that'd mean having back+forth with the server. I don't think browser securities would allow me to do that. To be honest, I've not really looked into it, yet, but I'm pretty sure it would be more hassle than it's worth. -=-=- ''Load, Next List!''
Thu, 19 Aug 2021, 09:35
Jayenkai	A few ground tweaks, today. Not should now function in basic ways. It's probably not foolproof, so let me know if you find any instances where it's misbehaving. Minus numbers should also now function properly. .. I think.. Again, if they don't, let me know. Third and also probably broken, I did a bunch of work on And/Or stuff, and am finding those just as difficult to trip up. In all three cases, let me know if you spot any errors. And also, I DID try my best not to break anything along the way, but .. Well, this is some fairly groundwork-based stuff, and a few important things had to be tweaked to get things working. Aaagh! -=-=- ''Load, Next List!''
Fri, 20 Aug 2021, 09:35
Jayenkai	View on YouTube // Matt Heffernan's Mandlebrot Example // https://GotoJSE.com/HgjhB48c.BAS // copied by Jayenkai // Created 2021/08/20 Graphics 32,22,3 UsePalette "c64" MaxIt=14 cm=360/(MaxIt+1) For py=0 to ScreenHeight() yz=py2/ScreenHeight()-1 For px=0 to ScreenWidth() xz=px3.5/ScreenWidth()-2.5 x=0:y=0 For i=0 to MaxIt if xx+yy>4 then break xt=(xx-yy)+xz y=2xy+yz x=xt Next i=i-1 Ink i Plot px,py Next Next --v Ooooooohhhh... I was expecting the C64 version to look vaguely similar, but .. Oh my god, it's freakin' identical!!!! -=-=- ''Load, Next List!''
Sat, 21 Aug 2021, 04:09
Jayenkai	// GotoJSE.com/6DxV7wKV.BAS // Swirly Snowflake // by Jayenkai // Created 2021/8/21 Mode 0 w=ScreenWidth()/2 h=ScreenHeight()/2 Repeat CLS f=f+4 for e=0 to 35 InkRot e10,0.5,1 Line w+Sin(e10+f0.1)w,h-Cos(e10+f0.12)h,w+Sin((e+18)10+f0.13)w,h-Cos((e+18)10+f0.11)*h Next Flip Forever --v Swirly! -=-=- ''Load, Next List!''
Sun, 22 Aug 2021, 10:09
Dan	Great, i could watch it for hours ! Reminds me of the windows lines screensaver.
Sun, 22 Aug 2021, 12:29
AndyH	Looking really nice!
Fri, 27 Aug 2021, 03:14
Jayenkai	Recent additions You can now UsePalette "nes", "sms" or "atari" for NES, Sega Master System or Atari 2600 colour palettes. The Flip buffer (frontbuffer/backbuffer stuff) is now active. I think I managed to get it working in a way that doesn't cause too much of a slowdown, but do please let me know if it gets too bad, and I'll add some kind of disabler or rework the methodology. To activate it, simply use the Flip command once. Any further uses will update the screen, or otherwise won't. I'll now get to work on alt-image buffers, and see if I can keep them going nice and fast. shrugs -=-=- ''Load, Next List!''
Sat, 28 Aug 2021, 04:01
Jayenkai	// Starfield with Nebulae // Hit ' to capture the image // by Jayenkai // Created 2021/8/28 // GotoJSE.com/7MBMMFz9.BAS Graphics 1920,1080,3:CLS // Pixel stars For m=0 to 1600 d=Rand(3,10)25:SetCol d,d,d Plot Rand(1920),Rand(1080) Next:Flip // A few bigger stars For m=0 to 50 d=Rand(6,10)25:f=Rand(1,2) x=Rand(1920):y=Rand(1080) For n=-f to f SetCol d-Abs(n20),d-Abs(n20),d-Abs(n20) Plot x+n,y:Plot x,y+n Next Next:Flip // Nebulae SetBlend "Light":neb=Rand(3,6) For n=0 to neb c=Rand(0,12)30 x=Rand(1920):y=Rand(1080) a=Rnd(0,360) SetAlpha 0.01 For m=0 to 1024 d=Rnd(0.3,0.5):InkRot c,0.8,d If Rand(0,100)<3 then a=a+Rnd(-45,45) x=x+Sin(a)Rnd(0,6):y=y-Cos(a)Rnd(0,6) Oval x+Rand(-200,200),y+Rand(-200,200),Rand(128,256),Rand(128,256),64 If m mod 256==0 then Flip Next Flip:Next --v -=-=- ''Load, Next List!''
Sun, 29 Aug 2021, 02:37
Dan	I have played around with the "Starfield with Nebulae" example. I wanted to display text at the end of the example, so i have tried few things out, before i found the "ResetDraw" command in the help file. Then i have noticed something odd. Add this , at the end of the code RESETDRAW flip SetCol 255,255,255 TEXT 70,60,"THE END" Flip FOR X=1 to 100 PRINT "HI" FLIP NEXT FLIP --v When you start it for the first time, it will run ok. When you start it the next time, the Print "Hi" command will output some dots instead of "HI" This will last until you refresh the page. Then again, the 1st start will be normal and all others will have dots ... (windows - Srware iron browser)
Sun, 29 Aug 2021, 02:49
Jayenkai	Grrr... That's the text misaligning again. More work needed there, methinks. -=-=- ''Load, Next List!''
Sun, 29 Aug 2021, 04:58
Jayenkai	OK, updated again!! Those darn text alignments, grrrr!! Should now be a little more stable. Be sure to refresh to get up to version 3gfd. -=-=- ''Load, Next List!''
Sun, 29 Aug 2021, 06:09
Jayenkai	Redid the Starfield+Nebulae. This time around, the Nebulae are drawn to the BG buffer, then that's drawn alongside a scrolling starfield. Mmmm.. Needs a decent system, though! > Reveal 🔎 // Starfield with Nebulae v2 // Hit ' to capture the image // by Jayenkai // Created 2021/8/28 // GotoJSE.com/M6rSGN53.BAS #CONST $Wide=1920 #CONST $High=1080 Graphics $Wide,$High,3:CLS seed=Mills() // Nebulae SetBuffer BG:ResetDraw SetCol 0,0,0,1 Rect -10,-10,1060,1060 ResetDraw SetBlend "Light":neb=Rand(3,6) For n=0 to neb c=Rand(0,12)30 x=Rand(1024):y=Rand(1024) a=Rnd(0,360) SetAlpha 0.01 For m=0 to 256 d=Rnd(0.3,0.5):InkRot c,0.8,d If Rand(0,100)<3 then a=a+Rnd(-45,45) x=Wrap(x+Sin(a)Rnd(0,6),0,1024):y=Wrap(y-Cos(a)Rnd(0,6),0,1024) rx=x+Rand(-200,200) ry=y+Rand(-200,200) rx2=Rand(128,256) ry2=Rand(128,256) Oval rx,ry,rx2,ry2,64 Oval rx-1024,ry,rx2,ry2,64 Oval rx+1024,ry,rx2,ry2,64 Next Next SetBuffer FG scrx=0 Repeat CLS ResetDraw scrx=scrx-3 AA On SetSize 2 x=Wrap(scrx0.5,0,2048) DrawBG x,$High0.35 DrawBG x+2048,$High0.35 DrawBG x-2048,$High0.35 Alpha 0.2 x=Wrap(scrx0.3,0,2048) DrawBG x,$High0.65 DrawBG x+2048,$High0.65 DrawBG x-2048,$High0.65 AA Off ResetDraw SeedRnd Seed // Pixel stars For m=0 to 400 d=Rand(3,10) x=Wrap( (Rand($Wide)+scrxRnd(d0.2)),0,$Wide) d=d25 SetCol d,d,d Plot x,Rand($High) Next // A few bigger stars For m=0 to 50 d=Rand(6,10):f=Rand(1,2) x=Wrap( (Rand($Wide)+scrxRnd(d0.1)),0,$Wide) d=d25 y=Rand($High) For n=-f to f SetCol d-Abs(n20),d-Abs(n20),d-Abs(n20) Plot x+n,y:Plot x,y+n Next Next ResetDraw SetFontSize 64 SetAlpha 0.3 Text $Wide/2,$High/2,"Weeeeeeeee!",1 Flip Forever --v [/spoiler] -=-=- ''Load, Next List!''
Sun, 29 Aug 2021, 12:34
shroom_monk	Those are some awesome looking nebulae!
Sun, 29 Aug 2021, 12:44
Jayenkai	Aye, not bad for a bunch of ovals!
Tue, 31 Aug 2021, 04:32

Jayenkai	Created : 31 August 2021 Edited : 31 August 2021 System : Cross Platform Language : Basic A Boatload of Balls Throw your balls at the targets. Open in JSE
Screenshots
Help Platdude shoot his balls at the targets. Row your boat to and from, fire the balls, and burst all the targets before landing the balls in the buckets. Earn a score greater than 500 points for a Star. Reach 1000 points for a BIG star! SourceCode/GotoJSE > Reveal 🔎 // A Boatload of Balls // by Jayenkai // Created 2021/8/23 // GotoJSE.com/t7sskpDg.BAS Symbol 0,"1__0!22990_02.9.0/2?9?0?pp2.9?G0,p.2,9.G,00p?229,G.0p/299G!p@9G/i/bN@i!bbUN/0i.b,UUN?00i,b.U,N.0,ib?U.NN0?b?U?0/b.U.0_0bbUU"; Symbol 1,"1__0!:.0_0:@0/:/z,0?:!z.yy0,::;::;z.y.00:?z?y.0:,;:z;z,y?x:?z?y?x:.z?y!x:.z?y?xx0::z?y!x00::z.y!xx0,:z,y!xx0?zy/xx0/y?x,0_0x."; Symbol 2,"2__0_0.;!0_0_0?;_;,0_0_;?4!;?0_0?;?44;!44;?0_00;.44;_;44;.0_;.4;_;?4;.0/;.4;_;/4;.0!;,4;!4!;!4;,0?;,4;?44;!44;?4;,0.;;4;?4;_;4;?4;;0,;,4;.4;_;,4;.4;,00;;4;.4;_;?4;.4;;00;;4;.4;?4.;?4;.4;;0;;4;.4;?4;.4;?4;.4;.4;.4;.4;;44;;4;.4;.4;.4;.4;.4;4.;4;.4;.4;.4;.4;.4;4.;4;.4;.4;.4;.4;.4;;44;;4;.4;.4;.4;.4;?4;.4;?4;.4;;0;;4;.4;?4.;?4;.4;;00;;4;.4;_;?4;.4;;00;,4;.4;_;,4;.4;,0,;;4;?4;_;4;?4;;0.;,4;?44;!44;?4;,0?;,4;!4!;!4;,0!;.4;_;/4;.0/;.4;_;?4;.0_;.44;_;44;.0_00;?44;!44;?0_0?;?4!;?0_0_;_;,0_0_0?;!"; Symbol 3,"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@;;40_0_0@4;.40_0_0@4;.40_0_0@4;.40_0_0@4;.40_0_0@4;.40_0_0@4;;0;;40_0_0!4;;00;;40_0_0!4;;00;,40_0_0.4;,0,;;40_0_0.4;;0.;,40_0_004;,0?;,40_0_4;,0!;.40_0/4;.0/;.40_0?4;.0_;.440_044;.0_00;?440!44;?0_0?;?4!;?0_0_;_;,0_0_0?;!"; Symbol 4,"0__0_40.40.II0?I00I0.I00I0?II0.40.4"; Symbol 5,"2__0_0_0_0_0_0_0_0_0_0_0_0_0AA0_0_0_0,AAH00HH0_0_0/AAH?0_0_0/AAH?0_0,VVO0_0AAH?0_OV.O0_0AAH?0_OV.O0_0AA0HH0_00OV.O0_0AA0_0?OV.O0_0AA0_0?OV.O0_0AA0_0?OVV0VVO0_AA0_0.OVV00VVO0_AA0_0.OVV00V,O0@AA0_0,OV,0,VVO0@AA0_0,OVV0.V,O0/AA0_00OV,0?V,O0!AA0_0OV,0!V.O0?AA0_OV.0/V.O0.AA0@OV.0_V.OO00AA0!OOV.0_00V?OOAA0.OOV?0_0?V?O!V?0_0_V_V,0_0_0?V!"; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0AA0_0_0_0,AA00H,0_0_0/AAH?0_0_0/AAH?0_0,VVO0_0AAH?0_OV.O0_0AAH?0_OV.O0_0AAHH0_0,OV.O0_0AA0_0?OV.O0_0AA0_0?OV.O0_0AA0_0?OVV0VVO0_AA0_0.OVV00VVO0_AA0_0.OVV00V,O0@AA0_0,OV,0,VVO0@AA0_0,OVV0.V,O0/AA0_00OV,0?V,O0!AA0_0OV,0!V.O0?AA0_OV.0/V.O0.AA0@OV.0_V.OO00AA0!OOV.0_00V?OOAA0.OOV?0_0?V?O!V?0_0_V_V,0_0_0?V!"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0AA0_0_0_0,AA0H,0_0_0@AAH?0_0_0/AAH?0_0,VVO0_0AAH?0_OV.O0_0AAH?0_OV.O0_0AAH0,H0_OV.O0_0AA0_0?OV.O0_0AA0_0?OV.O0_0AA0_0?OVV0VVO0_AA0_0.OVV00VVO0_AA0_0.OVV00V,O0@AA0_0,OV,0,VVO0@AA0_0,OVV0.V,O0/AA0_00OV,0?V,O0!AA0_0OV,0!V.O0?AA0_OV.0/V.O0.AA0@OV.0_V.OO00AA0!OOV.0_00V?OOAA0.OOV?0_0?V?O!V?0_0_V_V,0_0_0?V!"; Symbol 8,"2__0_0_0_0_0_0_0_0_0_0_0_0_0AA0_0_0_0,AAH,0_0_0_AAH?0_0_0/AAH?0_0,VVO0_0AAH?0_OV.O0_0AAH?0_OV.O0_0AA0,HH0_OV.O0_0AA0_0?OV.O0_0AA0_0?OV.O0_0AA0_0?OVV0VVO0_AA0_0.OVV00VVO0_AA0_0.OVV00V,O0@AA0_0,OV,0,VVO0@AA0_0,OVV0.V,O0/AA0_00OV,0?V,O0!AA0_0OV,0!V.O0?AA0_OV.0/V.O0.AA0@OV.0_V.OO00AA0!OOV.0_00V?OOAA0.OOV?0_0?V?O!V?0_0_V_V,0_0_0?V!"; Symbol 9,"2__0_0_0_0_0_0_0_0_0_0_0_0_0AA0_0_0_0,AAHH00H0_0_0/AAH?0_0_0/AAH?0_0,VVO0_0AAH?0_OV.O0_0AAH?0_OV.O0_0AA00HH0_0OV.O0_0AA0_0?OV.O0_0AA0_0?OV.O0_0AA0_0?OVV0VVO0_AA0_0.OVV00VVO0_AA0_0.OVV00V,O0@AA0_0,OV,0,VVO0@AA0_0,OVV0.V,O0/AA0_00OV,0?V,O0!AA0_0OV,0!V.O0?AA0_OV.0/V.O0.AA0@OV.0_V.OO00AA0!OOV.0_00V?OOAA0.OOV?0_0?V?O!V?0_0_V_V,0_0_0?V!"; Symbol 10,"2__0_0@::0_0_0_00:.0_0_0_0:.0_0_0_00::0_0_00::0_0_0_00:.0_0.::0_0.:.0_0,:.0!ppU0.::0!::0?:.0,Up.U0_00:.0?::0.Up.U0_00:.0_00Up.U0_0,::0_0,Up.U0_0_0@Up.U0_0@::0/Upp0ppU0/::0!:.0?Upp00ppU0!:.0?:.0?Upp00p,U0?:.0!::0?Up,0,ppU0!::0_0?Upp0.p,U0_0_00Up,0?p,U0_0_Up,0!p.U0_0/Up.0/p.U0_0?Up.0_p.UU0_0UUp.0_00p?UU0!UUp?0_0?p?U!p?0_0_p_p,0_0_0?p!"; Symbol 11,"1__0_0_0_0_0_0_0_0_0?II0_0?II0_0?I0_0?B,0_0,B0B0BD_D_D_D?0D_D?0,D_D,0?D_D"; Symbol 12,"1__0?V0.V0_0Ve00eV0_0Ve.V0_0Ve.V0_0Ve.V0_0Ve.V0_0Ve.V0_0Ve.V0_0Ve.V0_0Ve.V"; Dim grid(50,10) Dim pos(50) Dim ball(10,10) Graphics 1280,720,1 Border 30,30,80 GameHandler("A Boatload\|of\|Balls","Calendar") .StartGame SeedRnd ThisLevel7 keydel=120 px=ScreenWidth()/2 px2=ScreenWidth()/2 ptilt=0 GotBalls=3 Sway=0 SwayAim=0 WaterCol=Rand(0,360) // Floors FloorCol=Rand(0,360) For x=0 to 9 pos(x)=x Next For x=0 to 9 r=Rand(0,9) t=pos(x) pos(x)=pos(r) pos(r)=t next For n=0 to 9 grid(n,0)=1 grid(n,1)=(120+(pos(n)115))+Rand(-30,30) grid(n,2)=96+n52 m=(12-n)0.1 grid(n,3)=Rnd(120,256)m grid(n,4)=Rnd(8,24) grid(n,5)=0 grid(n,6)=0 m=n+10 grid(m,0)=1 grid(m,1)=grid(n,1)+Rnd(0-grid(n,3),grid(n,3)) grid(m,2)=grid(n,2)-24 Next // Cups For n=20 to 29 grid(n,0)=3 if n==20 or n==22 then grid(n,0)=5 if n==24 then grid(n,0)=10 grid(n,1)=(120+(pos(n-20)115))+Rand(-50,50) grid(n,2)=ScreenHeight()-96 grid(n,3)=Rnd(64,128) grid(n,4)=Rnd(16,48) grid(n,5)=0 grid(n,6)=0 Next For n=0 to 9 ball(n,0)=0 next gets=0 Return .InGame CLS ResetDraw fs=16 butt=0 if GamePad(ButtonA)>0.5 or (MouseDown() and MouseY()<ScreenHeight()/2) then butt=1 For b=0 to 2 if ball(b,0)<1 and butt==1 and keydel<1 and GotBalls>0 PlaySFX("Beeper_4tone_Up") PlaySFX("Explode_High_5") keydel=60 ball(b,0)=1 ball(b,1)=px ball(b,2)=py ball(b,3)=ptilt0.5 ball(b,4)=-27 ball(b,5)=Rnd(0,360) ball(b,8)=0 GotBalls=GotBalls-1 endif if ball(b,0)>0 ball(b,1)=ball(b,1)+ball(b,3) ball(b,5)=ball(b,5)+ball(b,3)4 if ball(b,1)<8 then ball(b,1)=8:ball(b,3)=Abs(ball(b,3)) if ball(b,1)>ScreenWidth()-8 then ball(b,1)=ScreenWidth()-8:ball(b,3)=0-Abs(ball(b,3)) ball(b,2)=ball(b,2)+ball(b,4) ball(b,3)=ball(b,3)0.99 ball(b,4)=ball(b,4)+0.5 if ball(b,2)>ScreenHeight()+16 then ball(b,0)=0:PlaySFX("Beeper_Fall") if ball(b,4)>fs then ball(b,4)=fs endif Next SetThick 4 InkRot FloorCol,0.5,1 For n=0 to 29 if n<10 x1=(grid(n,1)-grid(n,3))+Sin(grid(n,5))32 x2=(grid(n,1)+grid(n,3))+Sin(grid(n,5))32 y1=(grid(n,2))+Sin(grid(n,5))32 y2=(grid(n,2))+Sin(grid(n,5)+180)32 Line x1,y1,x2,y2 grid(n,5)=SmoothTo(grid(n,5),grid(n,6),grid(n,4)) grid(n,6)=Sway for b=0 to 2 if ball(b,4)>0 and ball(b,0)>0 and CollideLineToLine(x1,y1,x2,y2,ball(b,1),ball(b,2)-16,ball(b,1),ball(b,2)+8) y=LineCollidePointY:l=y+3:r=y+3 if CollideLineToLine(x1,y1,x2,y2,ball(b,1)-4,ball(b,2)-16,ball(b,1)-4,ball(b,2)+8) then l=LineCollidePointY if CollideLineToLine(x1,y1,x2,y2,ball(b,1)+4,ball(b,2)-16,ball(b,1)+4,ball(b,2)+8) then r=LineCollidePointY ball(b,2)=y-8 if ball(b,4)>1.5 then PlaySFX("Noise_Thud_"+Rand(2,3)) ball(b,4)=0.5 ball(b,3)=ball(b,3)+(r-l)0.05 endif next endif if n>9 and n<20 and grid(n,0)==1 DrawImg grid(n,1),grid(n,2),2 for b=0 to 2 if ball(b,0)>0 if CollideCircleToCircle(grid(n,1),grid(n,2),32,ball(b,1),ball(b,2),30) PlaySFX("Beeper_4tone_Up") PlaySFX("Noise_Splash") grid(n,0)=0 ball(b,8)=ball(b,8)+1:Gimme(ball(b,8)20,grid(n,1),grid(n,2)) for e=0 to 15 ThrowParticle grid(n,1),grid(n,2),4,e22.5,0.2,4,jRand(0,7) next endif endif next endif if n>19 s=grid(n,0) if grid(n,0)==5 then s=5+(Floor(Mills()/40) Mod 5) x=grid(n,1):y=grid(n,2) SetSize 2,2 DrawImg x,y,s for b=0 to 2 if ball(b,0)>0 and ball(b,4)>0 if CollideCircleToCircle(x,y,48,ball(b,1),ball(b,2),16) for e=0 to 15 ThrowParticle x,y,4,e22.5,0.2,4,jRand(0,7) next ball(b,8)=ball(b,8)+5:Gimme(ball(b,8)25,grid(n,1),grid(n,2)) ball(b,0)=0 if grid(n,0)<5 then PlaySFX("Beeper_Fruit_Bonus") if grid(n,0)==5 then ball(b,8)=ball(b,8)+5:Gimme(ball(b,8)25,grid(n,1),grid(n,2)-32):GotBalls=GotBalls+1:PlaySFX("Beeper_Powerup") if grid(n,0)==10 then PlaySFX("Beeper_Collect") PlaySFX("Explode_Low_6") f=0 for p=0 to 10 if ball(p,0)==0 and f<7 f=f+1 ball(p,0)=1 ball(p,1)=x ball(p,2)=y ball(p,3)=Rnd(-6,6) ball(p,4)=0-Rnd(26,28) ball(p,8)=0 endif next endif grid(n,0)=3 endif endif next endif Next ResetDraw keydel=keydel-1 if keydel<0 then keydel=0 if butt==0 then keydel=0 bz=0 SetSize 0.5 bon=0 For b=0 to 2 if ball(b,0)>0 bon=bon+1 bz=bz+1 SetAlpha 1 SetRot ball(b,5) DrawImg ball(b,1),ball(b,2),0 SetAlpha 0.3 SetRot 0 DrawImg ball(b,1),ball(b,2),1 endif Next ResetDraw SetThick 64 InkRot WaterCol,0.6,0.5 Line 0,ScreenHeight()+Sway,ScreenWidth(),ScreenHeight()-Sway Sway=SmoothTo(Sway,SwayAim,32) spd=(GamePad(ButtonLeft)-GamePad(ButtonRight))2 if MouseDown() and MouseY()>ScreenHeight()/2 and MouseX()<ScreenWidth()/2 then spd=1.75 if MouseDown() and MouseY()>ScreenHeight()/2 and MouseX()>ScreenWidth()/2 then spd=-1.75 SwayAim=(SwayAim+spd)0.98 if SwayAim<-32 then SwayAim=-32 if SwayAim>32 then SwayAim=32 ResetDraw px2=px2-(spd3) ptilt=ptilt-spd0.75 ptilt=Limit(ptilt,-30,30) px2=Limit(px2,16,ScreenWidth()-16) px=SmoothTo(px,px2,16) py=ScreenHeight()-(32+(Sway((px-(ScreenWidth()0.5))/(ScreenWidth()0.5)))) SetRot ptilt DrawImg px,py,12 SetRot 0-Sway DrawImg px,py,11 ResetDraw SetFontSize 32 TextScore ScreenWidth()/2,32,1 For n=1 to GotBalls if GotBalls>=n then DrawImg ScreenWidth()-((n-0.5)*34),16,1 Next if Score>=500 and gets==0 then gets=1:PlaySFX("Beeper_Rise",0.5) if Score>=1000 and gets==1 then gets=2:PlaySFX("Beeper_Rise",1) if bon<1 and GotBalls<1 if gets==0 then EndGame "Out of Balls" if gets==1 then EndGame "Beat 500!":WinLevel 1 if gets==2 then EndGame "Beat 1000!":WinLevel 2 endif Return --v [/spoiler] .. It's mostly working!

Sat, 04 Sep 2021, 07:33
Dan	I was just playing around with the JSE and have noticed that the images/symbols are always drawn as 32x32 ? // New Project // by <Your Name Here!> // Created 2021/9/4 Symbol 0,"1__1_1?dd1_1?dd1_1?dd1_1?dd1_1?dd1_1?dd1_1?dd1_1?dd1_1?dd1_1?dd1_1?dd1_1?dd1_1?dd1_1?d_d_d_d/"; Graphics 512,512,1 m=0 Repeat cls m=(m+1) mod 2 if m==1 then s=16 if m==0 then s=32 For x=0 to 10 for y=0 to 10 DrawImage 32+(xs),32+(ys),0 next next Text 0,10,Str$(S) waitvbl flip wait 2 forever --v
Page : 1 2 3 4 5 6 7 8 9 10 Prev 11 12 Next 13 14

A Boatload of Balls