New games every week!
JSE - Sailor's Jig
10th July 2021  
A demo from Dan.

-=-=-

// 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 x*31,154,1 DrawImage x*31,184,1 DrawImage x*31,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 x*31,123,2+z Next x if millisec()-ts>85*INT(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,SNGP*4,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


Thanks Dan

Views 42, Upvotes 0
Jse , Examples
New games every week!
Site credits : Jayenkai put all his heart and soul into everything you can see on this site.
(c) Jayenkai 2017 and onwards, site design Rychan. RSS feed
Blog - JSE - Sailor's Jig - AGameAWeek