JSE - Jay's Scripting Engine

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|571\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> JSE -> JSE - Jay's Scripting Engine
Page : 1 2 3 4 5 6 7 8 Prev 9 10 Next 11 12 13 14
Thu, 08 Jul 2021, 06:51
Jayenkai	// Rocket Man // by Jayenkai // Created 2021/7/8 Symbol 0,"0__0,I0!I,0?I,0?I,0?I,0?I,0.I?00II0I0II"; 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_0_0_0_0_0_0_0_0_0_0_0_0_0_00;;0_0_0_0_0_0_0@;;0_0_0_0_0_0_0_0_0_0@;0;00;;00;0;0_0_00;0;00;;00;0;0_0_0_0_0_0_0_0_0_0@;;0_0_0_0_0_0_0@;;"; Symbol 2,"0__0_0I0_0_0I0_0.I"; Graphics 320,240,1 GameHandler("Rocket Man") .StartGame x=0 y=screenheight()-8 yg=0 plr=251 bonus=5000 return .InGame CLS 0,0,0;ResetDraw For bg=0 to ScreenHeight() step 8 SetColor 0,0,bg0.3 Rect 0,bg,ScreenWidth(),8 Next SetSize 0.25 Starfield Neg(-1),0,1 ResetDraw SetColor 0,50,0 Rect 0,ScreenHeight()-10,ScreenWidth(),10 SetFontSize 8 SetColor 255,255,0 if yg==0 then bonus=bonus-1 if yg!=0 then Score=Bonus if x<ScreenWidth()-16 then Text X,ScreenHeight()-8,chr$(plr),0 if x>ScreenWidth()-16 then if yg==0 then PlaySFX("Explode_Low_5",jRnd(0.4,0.6)):PlaySFX("Explode_Low_3",jRnd(0.4,0.6)):PlaySFX("Explode_Low_6",jRnd(0.4,0.6)) y=y-yg:yg=yg+0.01 v=(Abs(ScreenHeight()-y)0.01)+0.5 if y>ScreenHeight()-24 then ThrowParticle ScreenWidth()-10,y+6,3,jRnd(45,315),jRnd(1,3),2,0 if y<=ScreenHeight()-24 then ThrowParticle ScreenWidth()-10,y+6,2,jRnd(178,182),jRnd(1,3),2,0 PlaySFX("noise",v) endif SetFontSize 16 Text ScreenWidth()-16,y-4,chr$(239),0 if Mousehit() and y>ScreenHeight()-16 then x=x+4 PlaySFX("Metal_2") plr=plr+1 if plr>251 then plr=250 endif if Bonus<0 then Bonus=0 Text ScreenWidth()/2,ScreenHeight()/2,Bonus,1 if y<0 then EndGame Flip Return --v A silly clicker minigame, inspired by one of the examples in the CPC Manual. Most of the development of this "game" can be viewed here. View on YouTube -=-=- ''Load, Next List!''
Sat, 10 Jul 2021, 09:10
Dan	Sailor's Jig : Music - Demo. // Sailors Jig - Music/Demo // by Dan // Created 2021/5/19 Symbol 0,"1__0/CC0_0.;CC;0_00;;CC;;0_;,CC;,0/;.CC;.0?;?CC;?0.;?CC;?0,;!CC;!00;!CC;!0;/CC;/0/CC0/D_D!E0D_D.E0,D_DDE0?D_E0/E@"; Symbol 1,"2__f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f/"; 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_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f/"; 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_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,f/0_0_0?f_ff0_0f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f/"; Symbol 4,"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_0_0_0_0_0_0_0_0_0_0f_f,0_0_f_f/0/f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f/"; Symbol 5,"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_0_0_0_0_0_0!f_0_0_00f_f?0_0/f_f_f0!f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f/"; Symbol 6,"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_0_0_0,f/0_0_0.f_f,0_0@f_f_0_00f_f_f?0.f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f/"; Symbol 7,"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/f!0_0_0!f_ff0_0_f_f/0_0.f_f_f.0/f_f_f_00f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f_f/"; Symbol 8,"0__0_0_0_0@G"; Symbol 9,"2__0_0/G,I.0_0_0@G?I,0_0_0@G.I,0_0_0@G.IIG0_0_0/G?II0_0_0/G!II0_0_0/G!II0_0_0!G/I0_0_0!G/I0_0_0!G/II0_0_0?G@II0_0_0.G@II0_0_0.G@II0_0_0,G_II0_0_0,G_II0_0_0,G_II0_0_0,G_II0_0_00G_GII0_0_00G_GI0_0_00G_GII0_0_00G_GII00G0_0/G_GGI0,GG0_0.G_G.I0.GG0_G_G!I0?G_G_G/II0!G_G_G?II0@G_G_GGI,0_0G_G_I,0_0,G_G.I!0_0!I_I?0_0_0,I@"; Graphics 320,240,1 sngdat="49324662493200022462000224643692329231123692493246624932622255424932554427720002277455424932466241523692000236944152466249324662415236924152369232923112329231122772246227722462233220721842246223322772246231122772329231130002246300022464369232923112369249323692311236924932369241530002329300023294415236923492415255424152349241525542415246630002369300023694311432944153000241523692329231123292311227722462277224622332207218422462233227722462311227723292311300022463000224643692329231123692493236923112369249323692415300023293000232944152369234924152554241523492415255424152466300023693000236943114329441530002415236923292311232923112277224622772246223322072184224622332277224623112277232923113000224630002246400020002" SNGL= Len(SNGDAT)/4 SNGP=0 SNGSND=1 ts=millisec() SNGPAUS=10 SetEcho "Off" firstdraw=0 dr=0 Shipx=320 a$=" " for x=1 to 10 txt$=txt$+a$ Next gosub gettext for x=1 to 4 txt$=txt$+a$ Next SetFont "StarRanger" SetFont "Anchovy" SetFOntsize 24 TT=Millisecs() TY=1 Repeat cls locate 0,0 DrawImage 200,20,9 DrawImage 10+rnd(0,2),10+rnd(0,2),8 DrawImage 50+rnd(0,2),60+rnd(0,2),8 DrawImage 80+rnd(0,2),5+rnd(0,2),8 DrawImage 110+rnd(0,2),80+rnd(0,2),8 DrawImage 120+rnd(0,2),5+rnd(0,2),8 DrawImage 240+rnd(0,2),50+rnd(0,2),8 DrawImage 280+rnd(0,2),100+rnd(0,2),8 DrawImage 300+rnd(0,2),70+rnd(0,2),8 for x=0 to 10 DrawImage x31,154,1 DrawImage x31,184,1 DrawImage x31,215,1 Next drawok=0 if MilliSec()-Secs>150 then secs=Millisec() drawok=1 EndIf if drawok=1 then if dr==0 then z=z+1 if z==6 then dr=1 endIf if dr==1 then z=z-1 if z==0 then dr=0 endIf EndIf drawimage shipx,115,0 For x=0 to 11 DrawImage x31,123,2+z Next x if millisec()-ts>85INT(SNGPAUS) then ts=millisec() sngp=sngp+1 if sngp=>sngl then sngp=1 SNGSND=RAND(0,2) if ty==(len(txt$)-24) then ty=1 EndIf SNGNOTE=MID$(SNGDAT,SNGP4,3) SNGPAUS=MID$(SNGDAT,(SNGP*4)+3,1) if SNGSND==0 then if SNGNOTE<>"000" THEN PlaySFX("Pickup_3",int(SNGNOTE)/172,1,1) ENDIF EndIf if SNGSND==1 then if SNGNOTE<>"000" THEN PlaySFX("Sonniss_Pop_1",int(SNGNOTE)/172,1,1) ENDIF EndIf if SNGSND==2 then if SNGNOTE<>"000" THEN PlaySFX("Eat_1",int(SNGNOTE)/172,1,1) ENDIF EndIf EndIf if sr==0 then shipx=shipx-1 if shipx==0 then sr=1 endIf if sr==1 then shipx=shipx+1 if shipx==320 then sr=0 endIf if millisecs()-tt> 200 then ty=ty+1 if ty>(len(txt$)-24) then ty=len(txt$)-24 tt=Millisecs() EndIf Text 0,221, (mid$(txt$,ty,14)) ScreenEffect("Glitch+Noise+Scanlines+VLines",1) flip Forever END .GETTEXT txt$=txt$+"Sailor's Jig, an old Demo, from the old times, when the Boats were actually sailing on the Sea" txt$=txt$+" and the Spinach was giving extraordinary strength to one particular Sailor. " txt$=txt$+"In search for Olive's Oil, the Sailors would sail, from Mykonos to Naxos, forth and back, back and forth" txt$=txt$+" until the Song ends. But it never ends. And so the Sailors are sailing, rolling, rolling, rolling, they " txt$=txt$+"they ? They see me mowin' My front lawn I know they're all thinking I'm so White 'n' Salty ... " txt$=txt$+" If you make something with oil, use a bit of Salt, it will not spoil it ... Unless it is a Motor-Oil. " txt$=txt$+" Testing the limits of the Sea, you can see an a at the End. It was America, in which Columbus laid his " txt$=txt$+"Egg. PARTY TIME ! EGGCELLENT ! The Eggnd !" RETURN --v
Sat, 10 Jul 2021, 10:37
Jayenkai	That's awesome Popped into the Pink Examples disk, and also copied to AGameAWeek blog. -=-=- ''Load, Next List!''
Sun, 11 Jul 2021, 03:58
Jayenkai	The past couple of days have seen a few additions to JSE. Search box in Project List - At the top of the Project List is now a handy box you can type into, to filter the names of projects. Swap a,b - Swaps the values of two variables. Doesn't work for Arrays. Hmm.. sgn (+/-) - Returns -1 for a negative number, 1 for a positive number or 0 for .... zero! asin/acos - I added atan ages ago.. Not sure why I didn't add asin/acos, to go along with it. Replace / ReplaceAll - Simple replace functions for strings. ReplaceAt/InsertString - places string b into string a, at position c, via either replace or insert methods. Maybe that should be InsertAt? Hmmm... Handy commands, but nothing particularly amazing. Incidentally, I also added Inc and Dec, but ultimately removed them. Inc a was a teensy bit faster than a=a+1, but Inc a,b was oddly a heck of a lot slower than a=a+b a=a+b is ordered, and exact.. 1. take a 2. add b 3. place into a, return. Inc a,b on the other hand is a case of 1. instruction - inc 2. find value of a 3. is there a second value? 4. if so find value of b to a, or just add 1 to a. 5. return. So.. Yeah, it ended up being slower.. I decided that, in the end, I might as well stick with the classic. -=-=- ''Load, Next List!''
Mon, 12 Jul 2021, 13:45
Jayenkai	// Futrino Emissions // by Jayenkai // Created 2021/7/8 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,v_v0_0_00vv2_2v,0_0/v2@v.2,vv0_0.v2_v6IIv2.v0_00v2_2v6II6vv2,v0_v2_2,vI6Bz6v2,v0@v2_2,vBB66zv2.v0/v2.y!2,v?2?v0@vy,N!y_y,v0@vN_N_N.v0/vN?y_y@v?0,vy_y!z_z.v00vKKy_y.zzx?z!v0,vxK_K?zy.KKv?0?vx_x!K.x,v0@vN_N!x.v,0_vN_N_Nv0_00wN_N_Nv0_00vO_O_Ov0_0v,NNO_O!Nvv0@vN.v_v!N.v0/vNOOvv0_0.vvOONv0@vO.vv0_vvO.v0_vOyO.v0/vO.yOv0@vy@v0?vy@v0@v@0/v@"; 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_0_0_0?90_0_0_0.90_0_0/90.9,0.90_0_0099009,00990_0_0,9,0?9,0_0_0.9009,0090_0_0/9?0_0_0?9909/0990_0@9.09/09.0_0@9909/0990_0_0?9?0_0_0/9009,0090_0_0.9,0?9,0_0_0,99009,00990_0_0090.9,0.90_0_0/90_0_0_0.9"; 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,g_gg0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,g_gg"; 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_0_0_0_0_00O?0!O?0_0!OOwwO,0.O,wwOO0_0?Ow.OO0.OOw.O0_0?OwMMwwOO00OOwwMMwO0_0?O,MMwO!wMMO,0_0!O_O/0_0@O_O?0_0_0O?w,O.0_0_0,OO0KCwCK0OO0_0_0,OO0KCwCK0OO0_0_0,OO0KCwCK0OO0_0_00OOK0KC,K0KOO0_0_0O,0KC,K0O,0_0_0OOK0KKCKK0KOO0_0_0O,00K,00O,0_0_O,KK0?KKO,0_0@Ow,O0?Ow,O0_0/O/0,O/"; Symbol 4,"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!U/0!U/0_0,UX?UU0.UUX?U0_0,UUX?UU00UUX?UU0_0.UUX?U.X?UU0_0!UUX?UUX?UU0_0/UUX?UUX?UU0_0!UUX?U.X?UU0_0.UUX?UU00UUX?UU0_0,UX?UU0.UUX?U0_0,U/0!U/"; Symbol 5,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/5?z_z,5?0_5!z_z,5?0@5/z/5,zz5?0@5/z/5,zz5?0@5/z/5,zz5?0@5/z/5,zz5?0@5/z/5,zz5?0@5/z_z,5?0@5/z_z,5?0@5_5_5!0@5_5_5!0@5,;_;_5,0@5,;_;_5,0@5,;_;_5,0@5,;_;_5,0@5,;_;_5,0@5,;_;_5,0@5,;_;_5,0@5,;_;_5,0@5,;_;_5,0@5,;_;_5,0@5752_2_5050@5,2_2_5,"; Symbol 6,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/Q?z_z,Q?0_Q!z_z,Q?0@Q/z/Q,zzQ?0@Q/z/Q,zzQ?0@Q/z/Q,zzQ?0@Q/z/Q,zzQ?0@Q/z/Q,zzQ?0@Q/z_z,Q?0@Q/z_z,Q?0@Q_Q_Q!0@Q_Q_Q!0@Q,;_;_Q,0@Q,;_;_Q,0@Q,;_;_Q,0@Q,;_;_Q,0@Q,;_;_Q,0@Q,;_;_Q,0@Q,;_;_Q,0@Q,;_;_Q,0@Q,;_;_Q,0@Q,;_;_Q,0@QSQN_N_Q0Q0@Q,N_N_Q,"; Symbol 7,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0/e?z_z,e?0_e!z_z,e?0@e/z/e,zze?0@e/z/e,zze?0@e/z/e,zze?0@e/z/e,zze?0@e/z/e,zze?0@e/z_z,e?0@e/z_z,e?0@e_e_e!0@e_e_e!0@e,;_;_e,0@e,;_;_e,0@e,;_;_e,0@e,;_;_e,0@e,;_;_e,0@e,;_;_e,0@e,;_;_e,0@e,;_;_e,0@e,;_;_e,0@e,;_;_e,0@eZei_i_e0e0@e,i_i_e,"; Symbol 8,"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,g_gg0_0_0,g4_g0_0_0,g4_g0_0_0,g4_g0_0_0,g4_g0_0_0,g4_g0_0_0,g4_g0_0_0,g4_g0_0_0,g4_g0_0_0,g4_g0_0_0,g_gg"; Symbol 9,"0__0@6040260?220,2260,40240_0042200420,20,2206"; Symbol 10,"2__0_0_0_0v.0_0.v_v/4,0_v!66v_vv4.0!v!4,554.554.643,0?v.4_4_543,0.v,4?3,443.443,443.0,v,5443_3_43.0,vv4,3_3_3!0,vv443_3_3/00vv443_3_3,43.00vv443_443.443,443.00vv443_4_4,543,00v443_4554.554.643,0vv443@4466v_vv4.0vv443/445v_v?4,0v65443.4456v_v_0v65443.4456v_v_0vv443!44v_v/4,0vv443!44v_v!4.0vv443!44v_v4.643,0vv443!44v@4!543,0vv5443.445v/4,3,443.0vv5443.445v/4,3.43.0vv443!44v!443!43.0vv443!44v!443!43.0vv443!44v!443?4543,0vv4,3.4,v!4,3,44543,0vv6544334456v!654.55v4433vv4,3!4,v.4,3.4,v443v443_344vv443@4,34v443_344vv443_4344v443_344vv443_344v"; Symbol 11,"2__v.0_0_0!v.4,v_v_v@4/v_vv66v_vv4.3,464.554.554.554.643!454_4_4.543/443,443.443.443,443@43_3_3.43_3_3_3_3_3_3_3_43_3_3.43@443,443.443.443,443/454_4_4.543!464.554.554.554.643,4.v_vv66v_vv4/v_v_v@4,v_v_v_v_v_v_v_v4,v_v_v@4/v_vv66v_vv4.3,464.554.554.554.643!454_4_4.543/443,443.443.443,443@43_3_3.43_3_3_3_3_3_3_3_43_3_3.43@443,443.443.443,443/454_4_4.543!464.554.554.554.643,4.v_vv66v_vv4/v_v_v@4,v.0_0_0!v."; Symbol 12,"2__v.0_0_0_04,v_v/0_0.4.v_vv66v!0_3,464.554.554,v!0!3,454_4_v.0?3.443,443.443,4?v,0.3.43_3_445v,0,3_3_3!4,vv0,3_3_3/44vv0,3.43_3_3,44vv003.443,443.443_44vv003,454_4,3_44vv003,464.554.5543_44v004.v_vv66443@44vv04,v_v?5443/44vv0v_v_65443.4456v0v_v_65443.4456v04,v_v?5443/44vv04.v_vv66443@44vv03,464.554.5543_44v003,454_4,3_44vv003.443,443.443_44vv003.43_3_3,44vv003_3_3/44vv0,3_3_3!4,vv0,3.43_3_445v,0,3.443,443.443,4?v,0.3,454_4_v.0?3,464.554.554,v!0!4.v_vv66v!0_4,v_v/0_0.v."; Symbol 13,"2__0_0!v?0_0_0!v?7v?0_0_0v?7?v?0_0/v.7_v.0_0?v,7_7.v,0_0,v,7_7!v,0_00vv7_7@vv0_00vv7_7@vv0_0vv7_7_7vv0_vv7_7_7vv0_vv7_7_7vv0_v7_7_7,v0@vv7_7_7,vv0/vv7_7v7_7vv0/v7_7v,7_7v0/v7_7v,7_7v0/v7_7v.7_v0/v7/v,4,v_v.0?v7,v!64.v_vv60?v/4,5433464.554.50?v.4/3,454_440.v,4?3,43.443,443.40,v,5443_3343_330,vv4,3_3_3!0,vv443_3_3/00vv443_3?43_3300vv443_43.443,443.400vv443_43,454_4400v443_45433464.554.50vv443@4454.v_vv60vv443/445v4,v_v.0v65443.4456v_v_"; Symbol 14,"2__0_0.v?0_0_0!v?Sv?0_0_0v?S?v?0_0/v.S_v.0_0?v,S_S.v,0_0,v,S/RS/v,0_00vvS!R?S!vv0_00vvS.R_S.vv0_0vvS.R_RRS.vv0_vvS.R?SR?S.vv0_vvS.R.S,R.S.vv0_vS.R?S,R?S.v0@vvS.R.S?R.S.vv0/vvS.R,S,vS,R,S.vv0/vS.R,S,v,S,R,S.v0/vS.R,S,v,S.RRS.v0/vS.R,Sv@SRRS.v0.v_v.4!v_v.6v_vv4@v_vv654.554.643!464.554.54_44543!454_4,3.443,443@443,443.43_3343@43_3_3_3_3_3_3_3_3_3?43@43_3343.443,443@443,443.4_4,543!454_4454.554.643!464.554.56v_vv4@v_vv6v_v.4!v_v_v_v_v_"; Symbol 15,"2__0_0,v?0_0_0!v?gv?0_0_0v?g?v?0_0/v.g_v.0_0?v,g_g.v,0_0,v,g/Zg/v,0_00vvg!Z?g!vv0_00vvg.Z_g.vv0_0vvg.Z_ZZg.vv0_vvg.Z?gZ?g.vv0_vvg.Z.g,Z.g.vv0_vg.Z?g,Z?g.v0@vvg.Z.g?Z.g.vv0/vvg.Z,g,vg,Z,g.vv0/vg.Z,g,v,g,Z,g.v0/vg.Z,g,v,g,Z,g.v0/vg.Z,ggv.g,Z,g.v0?v_v.4,v,Z,g.v0?6v_vv4.6v!g,v0?54.554.6433454,v/0?4_44543,4/v.0?43.443,443.43,4?v,0.3_3343_33445v,0,3_3_3!4,vv0,3_3_3/44vv0,3_3343_3?44vv0043.443,443.43_44vv004_44543,43_44vv0054.554.64334543_44v006v_vv4.5443@44vv0v_v.4,v5443/44vv0v_v_65443.4456v"; Symbol 16,"2__0_0!w?0_0_0!w?3w?0_0_0w?3?w?0_0/w.3_w.0_0?w,3.2?3.w,0_0,w,3,2_3,w,0_00ww3,2_223,ww0_00ww332_2.33ww0_0ww332_2!33ww0_ww332_2!33ww0_ww332/32/33ww0_w332@32@33w0@ww332/3,2/33ww0/ww332/3w32/33ww0/w3,2?33w,332?3,w0/w3,2?33w,332?3,w0/w3,2?33v.32?3,w0/w3,2.v,4,v_v.0?w3,v!64.v_vv60?wv!4,5433464.554.50?v.4/3,454_440.v,4?3,43.443,443.40,v,5443_3343_330,vv4,3_3_3!0,vv443_3_3/00vv443_3?43_3300vv443_43.443,443.400vv443_43,454_4400v443_45433464.554.50vv443@4454.v_vv60vv443/445v4,v_v.0v65443.4456v_v_"; Symbol 17,"2__0_0.w?0_0_0!w?Ow?0_0_0w?O?w?0_0/w.O_w.0_0?w,O.N?O.w,0_0,w,O,N_O,w,0_00wwOON_N.OOww0_00wwOON_N.OOww0_0wwOON_N!OOww0_wwOON_N!OOww0_wwOON/ON/OOww0_wOON@ON@OOw0@wwOON/O,N/OOww0/wwOON/OwON/OOww0/wO,N?OOw,OON?O,w0/wO,N?OOw,OON?O,w0/wO,N?v@N.O,w0.v_v.4!v_v.6v_vv4@v_vv654.554.643!464.554.54_44543!454_4,3.443,443@443,443.43_3343@43_3_3_3_3_3_3_3_3_3?43@43_3343.443,443@443,443.4_4,543!454_4454.554.643!464.554.56v_vv4@v_vv6v_v.4!v_v_v_v_v_"; Symbol 18,"2__0_0,w?0_0_0!w?cw?0_0_0w?V?w?0_0/w.V_w.0_0?w,V_V.w,0_0,w,V?bbUbbV?w,0_00wwV.bbU?bbV.ww0_00wwV,bU_bV,ww0_0wwV,bU_UUbV,ww0_wwV,bU?VU?bV,ww0_wwV,bU.bVbU.bV,ww0_wV,bU?V,U?bV,w0@wwV,bU.bVcVbU.bV,ww0/wwV,bU,bVVwVVbU,bV,ww0/wcV,U,V,w,V,U,V,cw0/wcV,U,V,w,V,U,V,cw0/wcV,U,VVv.V,U,V,cw0?v_v.4,v,U,V,cw0?6v_vv4.6v!VVcw0?54.554.6433454,v!w0?4_44543,4/v.0?43.443,443.43,4?v,0.3_3343_33445v,0,3_3_3!4,vv0,3_3_3/44vv0,3_3343_3?44vv0043.443,443.43_44vv004_44543,43_44vv0054.554.64334543_44v006v_vv4.5443@44vv0v_v.4,v5443/44vv0v_v_65443.4456v"; Symbol 20,"26_0_0_0_0_0_v!0_0_0.v.JH?v.0_0!v,J?H_v,0_0vvJ/H_H.vv0/vJ_H_H!v0?vJ_JH_H/v0.vJ_JH_H/v0.vJ/Y@f,YH/v0.vJ/Y@f,YH/v0.vJ/Y@f,YH/v0.vJ/Y_Y,H/v0.vJ_J,H_H?v0.vJ_J.H_H.v0.vJ_J?H_H,v0?vJ_J?H_Hv0/v.J_J.H,v.0/vJ.v_v/H.v0?vJ_JJH_H!v0.vJ_JJH_H!v0.vJ_JJH_H!v0.vJ_JJH_H!v0.vJ_JJH_H!v0.vJ_J,H_H?v0.vJ_J,H_H?v0.v!J@H@v!0.v4?v_v/3?v0,v4_4!3_3.v00v4_4v@3_3v00v4!v?0!v?3!v00v@0_0?v@"; Symbol 21,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0?g@0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0.g_g,0_0_00gI_Ig0_0?g/I_Ig/0@g3?gI_Ig53.g0@g3?gI_Iv53.g0@g3?gI_Iv53.g0@g3?gI_Iv53.g0@g3?gI_Iv53.g0@g3?gI_Iv53.g0@g/I_Ivg!0_0?gI_Ig0_0_00g.v!gg0_0_0.g5!g0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0!g@"; Symbol 22,"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,g.0@g.0_0/gPPg0@gPPg0_0/gPPg_gQQg0_0/g,3_3g,0_0_g3_3g0_0_00g3_3g0_0_00g3_3v0_0_00g3_3v0_0_00g3_3v0_0_00g3_3v0_0_00g3_3v0_0_00g3_3v0_0_g,3_3g,0_0/gPQg,v!gRQg0_0/gPQg0@gQQg0_0/g.0@g."; Symbol 23,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0,g@0_0_0!gV!g0_0_0!gV!g0_0_0!gV!g0_0_0!gV!g0_0_0!gV!g0_0_0!gV!g0_0_0!g_g!0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0!g_g!0_0_0!gV!g0_0_0!gV!g0_0_0!gV!g0_0_0!gV!g0_0_0!gV!g0_0_0!gV!g0_0_0!g@"; Symbol 24,"2__0_0_0_0_0_0_0_0_0_0_0_0_g@0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_0!g3!g0_0_00g?3!gvg,0_0/gNNOg3!gLKOg0_0/gNNOg@LKOg0_0/gN,OKL!KONg0_0/gN,OOK!OONg0_0/gN?O!N,g0_0/gN_N?g0_0/gN_N?g0_0/gN_N?g0_0/gN_N?g0_0/gN_N?g0_0/gN_N?g0_0/gN_N?g0_0/gN_N?g0_0/gN_N?g0_0/g_g/"; Symbol 25,"2__0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_0_g_gg0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,gI_g0_0_0,g_gg0_0_0_0_0@g@0_0_0!gN!g0_0_0!gN!g0_0_0!gN!g0_0_0!gN!g0_0_0!gN!g0_0_0!gN!g0_0_0!g@"; Symbol 26,"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/g_g_g/0/g9_9_9.g0@g9_9_9,g0_g9_9_99g0_0g9_9_9g0_00g9_9_g0_0,g_g_g0_0_0_0_0_0_0_0_0?g_g_g0_0.gN_N_g0_0,gN_N_Ng0_00gN_N_NNg0_0gN_N_N,g0_gN_N_N.g0@g_g_g/"; dim Tune$(10) Tune$(1)="C16C16C16>G16r4r8<C16C16C16>G16r8\|>G16r8r16G16r8r16G16r8r16G16r8r16\|r4r8<C16C16C16>G16r4r8\|r8C32r32C32r8r32C32r32C32r8r32C32r32C32r8r32C32r32C32r32\|r1\|[d]\|C4C4C4C4\|C4D4C4D4\|C8G+8D8G+8C8G+8D8G+16D16\|r1\|" Tune$(2)="C16>G16<C16G16F16D16F16D16C16>G16<C16G16F16D16F16D16C16>G16<C16G16F16D16F16D16C16>G16<C16G16F16D16F16D16\|E8r16C8r16>G8<E8r16F8r16G8E8r16C8r16>G8<E8r8E32r16r32F32r16r32\|E8r16C8r16r2C16D16E8r16C2r16C16r16D16r16\|r16C16C16>G16<C16G16r8r16C16C16>G16<C16G16E16D16r16C16C16>G16<C16G16r8r16C16C16>G16<C16G16E16D16\|C16C16C16>G16<C16G16>G16A+16<C16C16C16>G16<C16G16E16D16C16C16C16>G16<C16G16>G16A+16<C16C16C16>G16<C16G16E16D16\|E8r16F8r16G8G8r16F8r16E8F16E16r16C8r16r2r8\|C16E16G16B16<C16r2r8r16C16>B16G16E16C16r2r8r16\|r1\|[d]\|r8G+4G+16r32G+8r32G+4G+16r32G+8r32G+16r8r16G+16r32G+8r32G+4G+16r32G+32\|C8G+8C8G+16r32G+32C16r32r32G+8C8G+16r32G+32C16r32r32G+8C8G+16r32G+32C16r32r32G+8C8G+16r32G+32\|C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8\|r1\|" Tune$(3)="E16r32E32C16r32C32G16r32G32E16C16D16D32E32F16E16C8>G8<E16r32E32C16r32C32G16r32G32E16C16D16D32E32F16E16C8r8\|>G16<G16C16G16>G16<G16C16G16>F16<F16D16F16D16>F16<D16F16>G16<G16C16G16>G16<G16C16G16>F16<F16D16F16D16>F16<D16F16\|C16r16D16r16E16D16C16D16C16r32r16r32G16r32r4r32F16F16G16A16G16F16G16F16r16C16r16D16r16E16r16\|C2D2E2D2\|r16C16C16>G16<C16G16C16r2r8C16C16>G16<C16G16C16r2r16\|r2r16C16C16>G16<C16G16E16D16r2r16C16C16D16E16D16C16r16\|r1\|[d]\|C16G+16C16G+16C16G+32D16r32D16C16G+16C16G+16C16G+32D16r32D16C16G+16C16G+16C16G+32D16r32D16C16G+16C16G+16C32D32C32G+32D16D16\|C8C8C8C8C8C8C8C16C16C8C8C8C8C8C8C4\|r1\|" #Const $BulletAlive=0 #Const $BulletXb=3 #Const $BulletYb=4 #Const $BulletXSpd=5 #Const $BulletYSpd=6 #Const $BulletX=1 #Const $BulletY=2 #Const $BulletType=7 #Const $BulletRoom=9 SetFont "Magnetic" SetMenuFont "Magnetic" Graphics 448,288,1:Border 10,10,40;AntiAlias Off Dim Bul(50,10) SetTilemapSize(160,160) GameHandler("Futrino\|Emissions","Path 1\|Path 2\|Random Path") .StartGame Lives=2 Level=0 BShot=0 Gosub GetLev Return .BuildingLevel Reset For m=0 to 50 bul(m,$BulletAlive)=0 Next ShootButton=1 ShootButtonB=1 CLS 10,10,50 ResetDraw() SetSize 0.25 Starfield Neg(1),0,1,1 ResetDraw() Text ScreenWidth()/2,ScreenHeight()/2-16,"Forming",1 Text ScreenWidth()/2,ScreenHeight()/2+16,"Futrinos",1 SetCol 255,100,100,0.2 Rect 0,(ScreenHeight()/2)+64,((rx14)+ry)3.2,6 Rect 0,(ScreenHeight()/2)+64,((rx14)+ry)3.2,5 Rect 0,(ScreenHeight()/2)+64,((rx14)+ry)3.2,4 Flip return .GetLev SetEcho "Walkman" JMTrackr(150,Tune$(3),38) ScreenEffect "Noise+Glitch" Level=Level+1 SeedRnd Holding=0 Saved=0 NextLevel=0 gt=GameType if GameType==3 then gt=jRand(0,3717) SeedRnd Level+(gt3717) px=Floor(4.514) py=Floor(4.58)-1 pxs=0 pys=0 pfall=0 Facing=1 RoomX=Floor((px+pxs)/14) RoomY=Floor((py+pys)/8) ScrollXAim=RoomX14 ScrollYAim=(RoomY8)-1 ScrollX=ScrollXAim ScrollY=ScrollYAim scrx=((ScrollX32)) scry=((ScrollY32)) for rx=0 to 9 for ry=0 to 9 SeedRnd Level+(gt3717)+((rx3)+(ry40)) t=Rand(0,7) t2=Rand(0,7) if rx==4 and ry==4 then t=0 cx=Rand(2,11) cy=Rand(2,5) cw=Rand(1,3) ch=Rand(1,3) SetTileData(rx14,ry8,Rand(2,9)) SetTileData(rx14,(ry8)+1,Rand(2,4)) for x=0 to 13 for y=0 to 7 s=-1:r=0:c=0 tx=rx14+x ty=ry8+y c=Rand(0,7) if (GameType>1 or Level>1) and Abs(x-cx)<cw and Abs(y-cy)<ch and x>1 and y>1 and x<12 and y<6 then s=20 if rx==4 and ry==4 then s=-1 if y==0 then s=11:r=0:c=t if y==7 then s=11:r=180:c=t if x==0 then s=11:r=270:c=t if x==13 then s=11:r=90:c=t if x==0 and y==0 then s=10:r=0:c=t if x==13 and y==0 then s=10:r=90:c=t if x==13 and y==7 then s=10:r=180:c=t if x==0 and y==7 then s=10:r=270:c=t SetTile(tx,ty,s) SetTileCol(tx,ty,c) SetTileRot(tx,ty,r) next next Gosub BuildingLevel next next tx=(414)+6 ty=(48)+4 SetTile(tx,ty,13) SetTileCol(tx,ty,0) SetTileRot(tx,ty,0) SetTileOffset(tx,ty,0,-0.55) SetTile(tx+1,ty,14) SetTileCol(tx+1,ty,0) SetTileRot(tx+1,ty,0) SetTileOffset(tx+1,ty,0,-0.55) SetTile(tx+2,ty,15) SetTileCol(tx+2,ty,0) SetTileRot(tx+2,ty,0) SetTileOffset(tx+2,ty,0,-0.55) rot=Rand(0,3) for path=0 to 2 SeedRnd Level+(gt(3717(3+path)):for n=0 to 10:r=Rand(0,10):next dir=((path+rot) mod 4)+1 l=(Level3)-3 x=4:y=4 for n=0 to l if dir==4 and x==0 then dir=0 if dir==4 and x>0 then cy=GetTileData(x14,(y8)+1) tx=x14+0 ty=y8+cy SetTile(tx,ty,-1) SetTile(tx-1,ty,-1) SetTile(tx,ty+1,-1) SetTile(tx-1,ty+1,-1) SetTile(tx,ty-1,12):SetTileRot(tx,ty-1,90) SetTile(tx-1,ty-1,12) SetTile(tx,ty+2,12) SetTile(tx-1,ty+2,12):SetTileRot(tx-1,ty+2,270) x=x-1 endif if dir==2 and x==9 then dir=0 if dir==2 and x<9 then cy=GetTileData((x+1)14,(y8)+1) tx=(x+1)14+0 ty=y8+cy SetTile(tx,ty,-1) SetTile(tx-1,ty,-1) SetTile(tx,ty+1,-1) SetTile(tx-1,ty+1,-1) SetTile(tx,ty-1,12):SetTileRot(tx,ty-1,90) SetTile(tx-1,ty-1,12) SetTile(tx,ty+2,12) SetTile(tx-1,ty+2,12):SetTileRot(tx-1,ty+2,270) x=x+1 endif if dir==1 and y==0 then dir=0 if dir==1 and y>0 then cx=GetTileData((x14),(y8)) tx=x14+cx ty=y8+0 SetTile(tx,ty,-1) SetTile(tx,ty-1,-1) SetTile(tx+1,ty,-1) SetTile(tx+1,ty-1,-1) SetTile(tx+2,ty,-1) SetTile(tx+2,ty-1,-1) SetTile(tx-1,ty,12):SetTileRot(tx-1,ty-1,0) SetTile(tx-1,ty-1,12) SetTile(tx+3,ty,12) SetTile(tx+3,ty-1,12):SetTileRot(tx+3,ty,180) y=y-1 endif if dir==3 and y==9 then dir=0 if dir==3 and y<9 then cx=GetTileData((x14),((y+1)8)) tx=x14+cx ty=(y+1)8+0 SetTile(tx,ty,-1) SetTile(tx,ty-1,-1) SetTile(tx+1,ty,-1) SetTile(tx+1,ty-1,-1) SetTile(tx+2,ty,-1) SetTile(tx+2,ty-1,-1) SetTile(tx-1,ty,12):SetTileRot(tx-1,ty-1,0) SetTile(tx-1,ty-1,12) SetTile(tx+3,ty,12) SetTile(tx+3,ty-1,12):SetTileRot(tx+3,ty,180) y=y+1 endif if Rnd(0,10)<4 or dir==0 od=dir if od==0 then dir=Rand(1,4) if od==1 or od==3 dir=2 if Rnd(0,10)<5 then dir=4 endif if od==2 or od==4 dir=3 if Rnd(0,10)<5 then dir=1 endif endif if x==4 and y==4 and n==l then n=n-1 next // n repeat nx=Rand(2,11) ny=Rand(2,5) ix=(x14)+nx iy=(y8)+ny until GetTile(ix,iy)<1 SetTile(ix,iy,20) SetTileData(ix,iy,path+5) SetTileCol(ix,iy,0) SetTileRot(ix,iy,0) next // path SeedRnd Level+(gt(37(4+path)):for n=0 to 10:r=Rand(0,10):next h=1 if Level>2 then h=2 if Level>4 then h=3 for rx=0 to 9 for ry=0 to 9 bx=rx14 by=ry8 SeedRnd Level+(gt3717)+rx3+ry40:for n=0 to 10:r=Rand(0,10):next if GameType>1 or Level>1 for m=0 to h x=Rand(1,12):y=Rand(1,6) c=Rand(0,3) t=1:if rx==4 and ry==4 then t=0 if c==0 y=1 if GetTile(bx+x,by+y-1)<4 then t=0 endif if c==1 x=12 if GetTile(bx+x+1,by+y)<4 then t=0 endif if c==2 y=6 if GetTile(bx+x,by+y+1)<4 then t=0 endif if c==3 x=1 if GetTile(bx+x-1,by+y)<4 then t=0 endif if t==1 SetTile(bx+x,by+y,Rand(21,23)) SetTileData(bx+x,by+y,Rand(1,3)) SetTileRot(bx+x,by+y,jRnd(0,360)) endif next endif next next SeedRnd Mills():for n=0 to 10:r=Rand(0,10):next JMTrackr((Rand(1,3)10)+100,Tune$(Rand(1,3)) ScreenEffect "None" SetEcho "None" Return .Ingame CLS 10,10,50 ResetDraw() hold=0 RoomX=Floor(((px+pxs)+0.5)/14) RoomY=Floor(((py+pys)+0.5)/8) Room=RoomX10+RoomY ScrollXAim=RoomX14 ScrollYAim=(RoomY8)-1 shot=0 rx=RoomX14:ry=RoomY8 for x=1 to 12 for y=1 to 6 ix=rx+x:iy=ry+y i=GetTile(ix,iy) if i>20 and i<24 then r=GetTileRot(ix,iy) if r=="NaN" then r=0 r=r+Rnd(0,3)+(Level2) if r>360 then r=r-360 if i==21 rot=0 for m=0 to 3 BShot=BShot+1 if BShot>40 then BShot=0 if Bul(BShot,$BulletAlive)<1 Bul(BShot,$BulletAlive)=120 Bul(BShot,$BulletX)=ix Bul(BShot,$BulletY)=iy Bul(BShot,$BulletXb)=0 Bul(BShot,$BulletYb)=0 Bul(BShot,$BulletXSpd)=Sin(rot+m90)0.2 Bul(BShot,$BulletYSpd)=-Cos(rot+m90)0.2 Bul(BShot,$BulletType)=51 shot=1 endif next endif if i==22 rot=45 for m=0 to 3 BShot=BShot+1 if BShot>40 then BShot=0 if Bul(BShot,$BulletAlive)<1 Bul(BShot,$BulletAlive)=120 Bul(BShot,$BulletX)=ix Bul(BShot,$BulletY)=iy Bul(BShot,$BulletXb)=0 Bul(BShot,$BulletYb)=0 Bul(BShot,$BulletXSpd)=Sin(rot+m90)0.2 Bul(BShot,$BulletYSpd)=-Cos(rot+m90)0.2 Bul(BShot,$BulletType)=51 shot=1 endif next endif if i==23 rot=Rnd(0,360) for m=0 to 1 BShot=BShot+1 if BShot>40 then BShot=0 if Bul(BShot,$BulletAlive)<1 Bul(BShot,$BulletAlive)=120 Bul(BShot,$BulletX)=ix Bul(BShot,$BulletY)=iy Bul(BShot,$BulletXb)=0 Bul(BShot,$BulletYb)=0 Bul(BShot,$BulletXSpd)=Sin(rot+m180)0.2 Bul(BShot,$BulletYSpd)=-Cos(rot+m180)0.2 Bul(BShot,$BulletType)=51 shot=1 endif next endif endif SetTileRot(ix,iy,r) endif next next if shot==1 then PlaySFX("Lazer_10") if ScrollXAim<ScrollX then ScrollX=ScrollX-1:hold=5 if ScrollXAim>ScrollX then ScrollX=ScrollX+1:hold=5 if ScrollYAim<ScrollY then ScrollY=ScrollY-1:hold=5 if ScrollYAim>ScrollY then ScrollY=ScrollY+1:hold=5 dx=(scrx-((ScrollX32)))/8 dy=(scry-((ScrollY32)))/8 scrx=scrx-dx scry=scry-dy // Main Draw SetSize 0.25 Starfield Neg(1)+(dx0.5),0+(dy0.5),1,1 ResetDraw() DrawTilemap 16-scrx,16-scry // Bullets FreeBullet=-1 ResetDraw() SetFontSize 8 ty=64 for m=0 to 50 if Bul(m,$BulletAlive)<1 then FreeBullet=m if Bul(m,$BulletAlive)>0 then // Bullet Movement Bul(m,$BulletAlive)=Bul(m,$BulletAlive)-1 Bul(m,$BulletXb)=Bul(m,$BulletXb)+Bul(m,$BulletXSpd) Bul(m,$BulletYb)=Bul(m,$BulletYb)+Bul(m,$BulletYSpd) if Bul(m,$BulletXb)<-0.5 then Bul(m,$BulletXb)=Bul(m,$BulletXb)+1:Bul(m,$BulletX)=Bul(m,$BulletX)-1 if Bul(m,$BulletXb)>0.5 then Bul(m,$BulletXb)=Bul(m,$BulletXb)-1:Bul(m,$BulletX)=Bul(m,$BulletX)+1 if Bul(m,$BulletYb)<-0.5 then Bul(m,$BulletYb)=Bul(m,$BulletYb)+1:Bul(m,$BulletY)=Bul(m,$BulletY)-1 if Bul(m,$BulletYb)>0.5 then Bul(m,$BulletYb)=Bul(m,$BulletYb)-1:Bul(m,$BulletY)=Bul(m,$BulletY)+1 dx=Floor((Bul(m,$BulletX)+Bul(m,$BulletXb)+0.5)32)-scrx dy=Floor((Bul(m,$BulletY)+Bul(m,$BulletYb)+0.5)32)-scry // Collision x=Bul(m,$BulletX):y=Bul(m,$BulletY) h=GetTile(x,y):c=GetTileCol(x,y) if Bul(m,$BulletType)>50 then if Abs((x+Bul(m,$BulletXb))-(px+pxs))<0.5 and Abs((y+Bul(m,$BulletYb))-(py+pys))<0.5 and pdead==0 then pdead=1 endif endif if h>20 and Bul(m,$BulletType)<50 then ang=ATan2(Bul(m,$BulletXSpd)10,0-Bul(m,$BulletYSpd)10)+180 Bul(m,$BulletAlive)=0 PlaySFX("Metal_"+Rand(2,3)) d=GetTileData(x,y)-1; SetTileData(x,y,d); t=3 Score=Score+5 if d<1 then SetTile(x,y,-1);PlaySFX("Explode_High_"+Rand(1,5));t=16;Score=Score+15 for q=0 to t ThrowParticle dx,dy,2,ang+Rnd(0-60,60),Rnd(0.5,1.5),1,4 next endif if h>9 and h<13 then Bul(m,$BulletAlive)=0 ang=ATan2(Bul(m,$BulletXSpd)10,0-Bul(m,$BulletYSpd)10)+180 for q=0 to 3 ThrowParticle dx,dy,2,ang+Rnd(0-20,20),Rnd(0.1,1),1,c next PlaySFX("Metal_"+Rand(2,3)) endif if h==20 then ang=ATan2(Bul(m,$BulletXSpd)10,0-Bul(m,$BulletYSpd)10)+180 Bul(m,$BulletAlive)=0; if Bul(m,$BulletType)>50 // Enemy bullets dont impact crates PlaySFX("Metal_"+Rand(2,3)) for q=0 to 3 ThrowParticle dx,dy,2,ang+Rnd(0-20,20),Rnd(0.1,1),1,4 next endif if Bul(m,$BulletType)<50 SetTile(x,y,-1);PlaySFX("Explode_High_"+Rand(1,5)) e=GetTileData(x,y) if e>0 then SetTile(x,y,e) Score=Score+10 SetCol(x,y,0) for q=0 to 12 ThrowParticle dx,dy,2,ang+Rnd(0-60,60),Rnd(0.5,1.5),1,4 next endif endif DrawImg dx,dy,2 RX=Floor(((Bul(m,$BulletX)+Bul(m,$BulletXb))+0.5)/14) RY=Floor(((Bul(m,$BulletY)+Bul(m,$BulletYb))+0.5)/8) if (RX10+RY)<>Room then Bul(m,$BulletAlive)=0 endif next // Player SetSize Facing,1 dx=(px+pxs+0.5)32-scrx dy=(py+pys+0.5)32-scry if pdead==0 DrawImg dx,dy,0 if Holding>0 SetSize 0.5,0.5:DrawImg dx+Sin(Mills()0.5)16,dy-Cos(Mills()0.3)16,Holding:SetSize 1,1 endif endif if pdead==1 then PlaySFX("Beeper_Die_2") PlaySFX("Beeper_Fall") PlaySFX("Explode_Low_6") for q=0 to 15 ThrowParticle dx,dy,1,q45,1,9,0 ThrowParticle dx,dy,4,q45,1.5,9,0 ThrowParticle dx,dy,4,q45,0.5,9,0 next if Holding>0 then SetTile(px,py,Holding):SetTileCol(px,py,0):Holding=0 endif if pdead>0 then pdead=pdead+1 if pdead>100 and Lives<0 and GameOver==0 then JMStop:EndGame "Game Over":PlaySFX("Beeper_Toot_Lose") if pdead>120 and Lives>-1 then Lives=Lives-1 pdead=0:px=Floor(4.514):py=Floor(4.58)-1:pxs=0:pys=0 endif gx=(GamePad(ButtonRight)-GamePad(ButtonLeft))0.1 pfall=(pfall+0.01)-(GamePad(ButtonUp)0.025) if pfall>0.1 then pfall=0.1 if pfall<-0.1 then pfall=-0.1 gy=pfall hold=hold-1 if hold>0 or pdead>0 then gx=0:gy=0 h=GetTile(px,py) if h==5 and Holding==0 and pdead==0 then SetTile(px,py,-1):SetCol(px,py,0):PlaySFX("Beeper_Rise"):Holding=5:Score=Score+25 if h==6 and Holding==0 and pdead==0 then SetTile(px,py,-1):SetCol(px,py,0):PlaySFX("Beeper_Rise"):Holding=6:Score=Score+25 if h==7 and Holding==0 and pdead==0 then SetTile(px,py,-1):SetCol(px,py,0):PlaySFX("Beeper_Rise"):Holding=7:Score=Score+25 l=GetTile(px-1,py) r=GetTile(px+1,py) u=GetTile(px,py-1) d=GetTile(px,py+1) if gx<0 and pxs<=0 and ((l>9 and l<13) or l==20) then gx=0 if gx>0 and pxs>=0 and ((r>9 and r<13) or r==20) then gx=0 if gy<0 and pys<=0 and ((u>9 and u<13) or u==20) then gy=0 if gy>0 and pys>=0 and ((d>9 and d<19) or d==20) then gy=0:pys=0 if d==13 and Holding==5 then SetTile(px,py+1,16):PlaySFX("Beeper_Powerup"):Score=Score+100:Holding=0:Saved=Saved+1 if d==14 and Holding==6 then SetTile(px,py+1,17):PlaySFX("Beeper_Powerup"):Score=Score+100:Holding=0:Saved=Saved+1 if d==15 and Holding==7 then SetTile(px,py+1,18):PlaySFX("Beeper_Powerup"):Score=Score+100:Holding=0:Saved=Saved+1 if gx>0.05 then Facing=1 if gx<0-0.05 then Facing=0-1 pxs=pxs+gx pys=pys+gy if pxs<-0.5 then pxs=pxs+1:px=px-1 if pys<-0.5 then pys=pys+1:py=py-1 if pxs>0.5 then pxs=pxs-1:px=px+1 if pys>0.5 then pys=pys-1:py=py+1 // Secondary Shooty Button if GamePad(ButtonB)<0.5 then ShootButtonB=0 // Primary Shooty Button if GamePad(ButtonA)<0.5 then ShootButton=0 if GamePad(ButtonA)>0.5 and ShootButton==0 and FreeBullet>-1 and pdead==0 then PlaySFX("Lazer_1") ShootButton=1 Bul(FreeBullet,$BulletAlive)=120 Bul(FreeBullet,$BulletX)=px Bul(FreeBullet,$BulletY)=py Bul(FreeBullet,$BulletXb)=pxs Bul(FreeBullet,$BulletYb)=pys Bul(FreeBullet,$BulletXSpd)=Facing0.3 Bul(FreeBullet,$BulletYSpd)=0 Bul(FreeBullet,$BulletType)=1 endif // Draw GUI ResetDraw() SetCol 10,10,40 GUI=16 Rect 0,GUI-16,ScreenWidth(),32 SetCol 100,255,100 SetFontSize 16 TextScore ScreenWidth()/2,GUI,1 SetFontSize 8 SetCol 100,180,255 Text ScreenWidth()-32,GUI,Right$("00000000"+Highscore,8),1 for x=0 to 2 if Lives>=x then DrawImg (x+1)32,GUI,0 Next if Saved==3 then if NextLevel==0 then JMStop:Notify "Level Complete",60,2 NextLevel=NextLevel+1 endif if NextLevel>90 then Gosub GetLev SetParticleGravity 0.25 SetParticleSize 8 Return --v OK.. This one is DEFINITELY a system stress test!! I'll give it a proper release in the morning. For now, let me know how broken it is on your particular system! It should* look like this.. But that's running on an M1 MacBook, so.. Mileage will most definitely vary! Oh yeah, and if it insta-crashed refresh your browser to be sure it's got the most recent version of the engine. I had to tweak the Tilemap stuff a bit.. .. GetTileRot() wasn't working, 'cos I mistakenly copy+pasted the SetTileRot() functionality, and forgot to change it... Derp.. -=-=- ''Load, Next List!''
Mon, 12 Jul 2021, 16:58
therevillsgames	On my Android phone, all I get is Forming Futrios... No progress bar. Looks pretty cool though on the YouTube video.
Mon, 12 Jul 2021, 17:07
Jayenkai	I've been trying my best to optimise it as best as I can, but this is probably pushing things to their limit!! One thing I realise is, I definitely need some kind of double buffering!! ... hmmm.. -=-=- ''Load, Next List!''
Tue, 13 Jul 2021, 08:38
Dan	On my Android phone, on the preinstalled internet thing, the Game does not show the progress bar. It's kinda frozen. But with the Google Chrome it does work, although its kinda slowed down, it is running at 25 fps. (compared to 30 fps on my pc)
Tue, 13 Jul 2021, 10:47
Jayenkai	God, don't make me have to charge my crappy Samsung tablet for testing!! Noooooooooo!!!!!! \|update\| It's doing updates galore. I'll probably get to try it out by mid-August. \|update\| -=-=- ''Load, Next List!''
Tue, 13 Jul 2021, 12:20
Jayenkai	Ugh.. Switched on Android Tablet for first time since probably Sept last year, or thereabouts!? Had to wait for updates. Chrome refused to run GotoJSE.com at all, because that version of Javascript didn't yet have the ReplaceAll command. !! Note : If you hook up an Android device to your PC and run Chrome on the PC, set up USB debugging on the device, and go to a weird-ass address, you can access the device's Console.Log using your PC. I don't have Chrome on the Mac, but I do have it on the MacMini which is running Windows. Handily, it also has a USBC wire which I use to keep the Switch charged.. So, I plugged the Android Tablet into the MacMini, used the MacBook to Remote Desktop to Windows on the MacMini, used Chrome on there to connect to the Android Chrome, and .. Bingo. Debug! So, I had to update Chrome, that's easy enough, right?! Headed to the Play store and watched as it updated Word, Excel, Powerpoint, Angry Birds, and more.. "28 updates are available.." Oh boy.. Eventually it got down to two remaining updates. Chrome and some Android Web-View thing. Oh, great.. Faffing and faffing and faffing about. Eventually the update kicked in, after a few reboots, and all was good to go. Hooked everything back up again, and .. indeed, just like you both, it locked up at the progress bar. I hit reload, and it worked fine the second time, so .. This must be a cache issue with the mod file. I thought I'd solved that, but I guess not. Grrr. The second time, worked like a charm. ... If a charm were a monstrous beast running at an average of 2 fps, and taking roughly five minutes for that progress bar to reach the other side. OH MY GOD. So slow!!! Once ingame, it was painfully bad, continuing its awesome 2fps, and flickering like crazy along the way.. Yes indeed.. This is very much pushing things too far!!! -=-=- ''Load, Next List!''
Wed, 14 Jul 2021, 08:24
Dan	Right, the refreshing did worked, had to do it 2 times.
Thu, 15 Jul 2021, 03:19
Jayenkai	// Falling Petals // by Jayenkai // Created 2021/6/9 Symbol 0,"0__220.2,4400442046.40,60060.60060,46.4024400442,0.22"; Symbol 1,"01_220.2,4400442046.40,60060.60060,46.4024400442,0.22"; Symbol 2,"02_220.2,4400442046.40,60060.60060,46.4024400442,0.22"; Symbol 3,"03_220.2,4400442046.40,60060.60060,46.4024400442,0.22"; Symbol 4,"04_220.2,4400442046.40,60060.60060,46.4024400442,0.22"; Symbol 5,"05_220.2,4400442046.40,60060.60060,46.4024400442,0.22"; Symbol 6,"06_220.2,4400442046.40,60060.60060,46.4024400442,0.22"; Graphics 512,512,2 petals=25 flrs=5 skips=3 pt=0 Dim petl(250,10) Dim flr(250,20) y=ScreenHeight()/(flrs+2) for n=0 to flrs flr(n,1)=jRand(64,ScreenWidth()-64) flr(n,6)=Rnd(0.5,1.5) flr(n,7)=Rnd(0,360) flr(n,8)=Rnd(10,30) flr(n,9)=Rnd(64,196) flr(n,2)=(y(n+1))-flr(n,9) 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 30,30,80 pt=((pt+1) mod skips) SetFontSize 32 SetSize 1 for n=0 to flrs flr(n,7)=(flr(n,7)+flr(n,6)) mod 360 ang=Sin(flr(n,7))25 flr(n,11)=flr(n,1)+Sin(ang-flr(n,8))flr(n,9); flr(n,12)=flr(n,2)+Cos(ang-flr(n,8))flr(n,9); flr(n,13)=flr(n,1)+Sin(ang+flr(n,8))flr(n,9); flr(n,14)=flr(n,2)+Cos(ang+flr(n,8))flr(n,9); flr(n,15)=flr(n,1)+Sin(ang)flr(n,9)0.4; flr(n,16)=flr(n,2)+Cos(ang)flr(n,9)0.4; flr(n,5)=Neg(0.1) if flr(n,11)<flr(n,13) and flr(n,12)<flr(n,14) then flr(n,5)=0.1 if flr(n,11)>flr(n,13) and flr(n,12)>flr(n,14) then flr(n,5)=0.1 SetThick 3:SetCol 255,128,0,1 Line(flr(n,11),flr(n,12),flr(n,13),flr(n,14)) SetThick 1:SetCol 150,150,150,0.3 Line(flr(n,15),flr(n,16),flr(n,11),flr(n,12)) Line(flr(n,15),flr(n,16),flr(n,13),flr(n,14)) Line(flr(n,1),flr(n,2),flr(n,15),flr(n,16)) 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,11),flr(n,12),flr(n,13),flr(n,14),x1,y1,x2,y2) petl(d,2)=LineCollidePointY-8 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)>ScreenHeight()+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)+s*8 endif If MouseHit() then KillParticles:Debuglog "Mouse Clicked at "+Mills() x=petl(d,1);y=petl(d,2) SetSize 0.25;SetRot petl(d,5) DrawImg x,y,0 next Flip Forever --v Updated my lovely Falling Petals thing. I'm sure there's a game in here, somewhere.. hmmm... -=-=- ''Load, Next List!''
Thu, 15 Jul 2021, 03:27
Pakz	Any plans to up the tilemap system? I was thinking your language/website was maybe a nice bed for creating quick game tests. But when looking around I thought that it may be a bit more work to get started. I was thinking on how to do collision with the tilemap while browsing the manual. More maptypes and collision/animation commands could maybe make getting things done quick easier. There are some nice collision commands there already though! Good to read there is optimalisation being done!
Thu, 15 Jul 2021, 03:33
Jayenkai	I've had that stuff rattling around in my head for a few weeks, since I added the original Collision commands. There's a LOT of commands already in there, and I reckon trying to add a similar set to tile maps would get a little bit crazy! I'm trying to optimise the command set in my head, so it's a little less.. .. chaotic!! -=-=- ''Load, Next List!''
Thu, 15 Jul 2021, 16:48
Jayenkai	// Optimisationalism 2 - Electric Boogaloo // by Jayenkai // Created 2021/7/2 // https://socoder.net/?GotoPost=79450 Dim Array(2000) max=2000 Graphics 512,512,1 last=0 repeat cls lap=Mills() scry=0 y=0 Print last for m=0 to max x=array(m) y=(2000-(m140))+scry array(m)=array(m+1) if y>0 then Print array(m) endif next last=Mills()-lap for m=0 to max e=Rand(3,7) last=(laste)/e array(20)=last array(max)=array(20) next last=Mills()-lap array(20)=last array(max)=array(20) flip False forever --v Please give this code a try, and reply with a vague system/browser clue, along with the average score you're getting. (Values updated 24th July) Mac M1/Safari - 82 Mac M1/Firefox - 68 Mac M1/Opera - 55 iPad Air 3rd Gen - 148 iPhone 12 Pro - 114 MacMini 2015 running Windows / Edge - 166 MacMini 2015 running Windows / Chrome - 198 MacMini 2015 running Windows / Opera - 172 MacMini 2015 running Windows / Firefox - 220 Previous Win Laptop / Edge - 272 Previous Win Laptop / Firefox - 420 ? Previous Win Laptop / Chrome - 145 Samsung Galaxy Tab A 10" 2018 / Chrome - 1075 GPD Win / Chrome - 1300 -=-=- ''Load, Next List!''
Thu, 15 Jul 2021, 17:12
Pakz	Amd Ryzen 7 4800H Edge Browser- 125 / new 83 Ipad pro 2021 M1 Chrome - 124 Iphone se 2020 - chrome - 160 / new 103 Ipad 2017 Chrome - 703 Ipad 2020 Chrome - 210 Intel 7300h i5 mobile laptop - 176 edit : updated
Fri, 16 Jul 2021, 13:04
Dan	Windows - SrWare Iron - 150 Android GN20 - internet - 284 Android GN20 - Chrome - 204 Android S6 - Mercury - 1000~1500 Android S6 - Chrome - 960~1500 Android S6 - Internet - 1400
Fri, 16 Jul 2021, 15:07
therevillsgames	Android: Realme 7 around 400
Sat, 17 Jul 2021, 05:50
rockford	WIndows Firefox - 150
Tue, 20 Jul 2021, 04:54
Jayenkai	Extra chunky tweak, this morning, to the point where my crappy Samsung Tab now scores an average shockingly slow value of 1050, rather than the pitiful 1690 score it had last Thursday. -=-=- I previously wrote a script that tested various methods to see which was quicker. One of the tests compared a single giant switch:case vs a series of smaller switch:cases, wrapped in a switch:case.. That is.. switch (1/100) { case 1 ... case 100 } --v vs switch (1/10) { case 1 switch (1/10) { case 1-1 ... case 1-10 } case 2 switch(1/10) { case 2-1 ... case 2-10 } } --v and so on.. Essentially breaking the giant switch into lots of little switches. My test script did a massive loop of these and timed which one turned out to be faster. I tested on all of the browsers I could, and found that one giant switch was ALWAYS faster than jumping through hoops and having multiple nested switches. So I DEFINITELY didn't go down that route, and instead kept one giant switch. This morning, I booted up my old Windows laptop and found it was still running the previous None-Chromium version of Edge, which is great, because that version has some lovely debug tools. I ran the site on that, and the first thing it flagged up was that the giant switch couldn't be optimised. hmmm.. So, I set about splitting it up, in exactly the way that I'd previously tested to be "the slower method", and gave it a try. Well, what do you know.. Lesson of the day : Don't trust your tests!! -=-=- ''Load, Next List!''
Tue, 20 Jul 2021, 06:30
Pakz	I found a list on the Wonkey(Monkey2 fork) discord channel with some resources on how to learn to program your own interpreters or compilers. I think I might buy this book : How to write a interpreter in Go: interpreterbook.com/ It teaches how to write a MonkeyX interpreter in GO. On my local amazon the digital version is 18 euro's. There is also a follow up book on how to write a compiler.
Tue, 20 Jul 2021, 06:45
Jayenkai	That sounds like a good read. Personally, I think the reason I've continued to work on this (when was the last time I worked on a single project for THIS long?!) is that I'm giving my head the chance to figure things out as I go. The puzzle has kept me coming back for more!! Also, be careful.. That's not "OUR" Monkey.. -=-=- ''Load, Next List!''
Wed, 21 Jul 2021, 12:29
Pakz	I tried futrino on the ipad 2017 today. I noticed there was a blue flickering bar on top of the screen. It seemed like a bug/glitch. No idea if I can upload footage of that here on your site.
Wed, 21 Jul 2021, 13:12
Jayenkai	That's the backbuffer issue.. The GUI Bar across the top is the last thing to be drawn each frame, and since I'm not using any kind of Backbuffering, you're seeing things half-drawn. I did attempt a backbuffer method the other day, but it ended up running much slower, so .. Ctrl-Z for a while, there!!! I'll give it another go some time. It definitely does need it. -=-=- ''Load, Next List!''
Thu, 22 Jul 2021, 07:15
Pakz	I just tried to do some coding with the If command. It seems it does not do multiple conditions in one line? if x>-1 and y>-1 and x<10 and y<10 then ; ?
Thu, 22 Jul 2021, 07:46
Jayenkai	Hmmm. Testing with... Graphics 512,512,1 SetFontSize 12 repeat cls for x=-1 to 11 for y=-1 to 11 InkRot xy8,1,1 if x>-1 and y>-1 and x<10 and y<10 then text (x+2)32,(y+2)32,x,1:text ((x+2)32)+12,((y+2)32)+12,y,1 next next flip forever --v And it seems fine. What else did you have on that line? Or is that ; part of the line? tests Aaah, yeah.. take that ; away. Alternatively, take the then away. It doesn't appear to like you having both the then and the ; I'll have a look through the parser. -=-=- ''Load, Next List!''
Page : 1 2 3 4 5 6 7 8 Prev 9 10 Next 11 12 13 14