// 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