5 Tides at the Purple Oyster Beach (TRS-80 Color Computer) by FUED

5 Marés na Praia da Ostra Púrpura

5 Tides at the Purple Oyster Beach

This is a TRS-80 Color Computer action game, joystick controlled (left).

Your goal is to collect the purple oysters as fast you can before the tide kicks in.

There are 5 tides, go for the highest score.

Your player can jump with a button press, keep it for when it is REALLY needed :)

The game was developed with the marvelous ugBasic.

Unfortunately I ran out of time to shrink the last bits but it is visible on the code that it should be possible.

---CODE LIST

0Dim(80)=#{6,6,0,6,0,6,6,0,5,1,2,3,6,2,3,2,5,1,2,3,6,1,7,1,5,7,7,7,6,3,2,1,1,1,0,5,0,1,1,0,0,0,0,0,0,0,0,0,3,3,3,3,6,4,4,4,4,4,5,4,6,4,4,4,5,0,6,6,0,5,0,1,2,4,3,0,0,0,5,6}:l=-1:h=0:a=128:b=159:c=175:e=255:f=239:g=100:j=50:Emt=c:o::Did(30)Wi159:z=0:t=0:u=0:pf=128:pp=1108:pl=pp:pt=0:pj=0:o=0:s=0:w=0:x=0:y=0:v=0:Cl:Wh t<512:Po1024+t,a:Po1055+t,a:t=t+32:We:Do:Fot=0To29:Po1025+t+z,d(t):Nx:z=z+32:Ifz=96ThGsdn
1Ifz=128Th:Po1108,a:Wt999MS:?@161,"5 TIDES AT PURPLE OYSTER BEACH":Ifh>0Th?@225,"HS:";h;" LS:";l:WhFi(0)=0:Gsm:We:x=32:y=0:Ei:wa::Ifz>127Th:u=Rr(26):IfPk(994+z+u)=b Anz>=160Th:Po994+z+u,f:Ei:Fot=0To4:d(u+t)=e:Ift=1ORt=3Th:ExIfRr(5)=0:Ei:Nx:Boo300:Ei
2Ifz=480Th:Fild Wi255:Fot=0To9:u=Rr(30):IfPk(993+z+u)=b ThPo993+z+u,f:Nx:Ei:Ifz=512Th:t=0:u=0:Ex:Ei:Lp:?@31,w+1:Do:jx=Jyx(0):jy=Jyy(0):jx=jx/20:jy=(jy/20)*32:IfPk(pp+32)=c Th:Popp,b:Fot=129To175:Popp+32,t:Bel35,30:Nx:Gsq:Goo:Ei:IfPk(pp+jx+jy)<>b Th
3IfPk(pp+jy)=b ORPk(pp+jy)=f Th:jx=0:El:IfPk(pp+jx)=b ORPk(pp+jx)=f Th:jy=0:El:jx=0:jy=0:Ei:Ei:Ei:IfPk(pp-1)<>e AnPk(pp+1)<>e Th:IfPk(pp+31)<>e AnPk(pp+33)<>e Th:IfPk(pp+32)=b ORPk(pp+32)=f Th:jy=32:pt=2:Ei:Ei:Ei:Ifjy<0Th:IfPk(pp-1)<>e AnPk(pp+1)<>e Thjy=0
4Ei:IfFi(0)=-1Anpj=0Anpt=0Th:Gsr:Ifn=1Th:pj=1:pf=156:Bel30,j:Belj,j:Bel30,j:Belj,j:Ei:Ei:Ifpj>=1Th:INC pj:Ifpj<4Th:jx=0:jy=0:Ei:Ifpj=4Th:Bel30,j:Bel60,j:Bel30,j:Bel60,j:Ei:Ifpj>3Th:jy=-32:pf=128:Ei:Ifpj>6Thjy=0:Ifpj>9Th:pj=0:pt=0:Ei:IfPk(pp+jx)=e Thjx=0:Ei
5Ifpp+jy<1024Thjy=0:Ifpt>0Th:Gsr:Ifn=1Th:Dcpt:Ifpt=1Th:Belj,j:Bel45,j:Bel40,j:Bel35,j:pf=156:jx=0:jy=0:Ei:Ifpt=0Thpf=128:Ei:Ei:IfPk(pp+jx+jy)=f Th:o=1:s=s+1:?@0,s:Ei:Ifo>=1Th:Bel20,g:Bel30,g:Bel40,g:Belj,g:Bel60,g:o=0:Ei:pl=pp:pp=pp+jx+jy:Ifpp<>pl ThPopl,b
6Popp,pf:INC t:Ift>=g-w*20Th:Ift=g-w*20Th:u=1534:x=48:y=0:Ei:u=u-2:Ifu=1248ORu=1312ORu=1376ORu=1440ORu=1504Th:Gsn:u=u-36:Ei:Ifu=1184Th:Gsn:x=32:y=0:z=128:INC w:Gsdn:Ifw=5Th:x=64:y=0:Whx<97:Gsm:We:Gsq:Goo:Ei:Gowa:Ei:Pou,207:Pou+1,207:Pou+2,c:Pou-32,207
7Pou-31,207:Pou-30,c:Ifu<>1532Anu<>1468Anu<>1404Anu<>1340Anu<>1276Anu<>1212Th:Pou+3,c:Pou-29,c:Ei:Ei:Gsm:Lp:m::Ify=0Th:Ifm(x)=0ThWt75MS:Ifm(x)>0An m(x)<5Th:Bel14+m(x)*2,500:Ei:Ifm(x)=5Th:Bel40,g:Bel35,g:Bel30,g:Bel25,g:Bel20,g:Ei:Ifm(x)=6Th:Bel15,g:Bel45,g
8Bel15,g:Bel40,g:Bel12,g:Ei:Ifm(x)=7Th:Bel14+Rr(16),500:Ei:INC x:Ifx=32Thx=16:Ifx=48Thx=32:Ifx=64Thx=48:Ifx>79Thy=1:El:Wt75MS:Ei:Ifz<129Th:INC y:Ify>1Thy=0:Ei:Ifz>128Th:INC y:Ify>1Thy=0:Ei:Rt:n::Pou-31,c:Pou-30,c:Pou-29,c:Pou+1,c:Pou+2,c:Pou+3,c:Rt:dn::Gsi
9d(18)=e:d(19)=e:d(20)=e:d(21)=e:Rt:i::Fild Wi159:Rt:q::Gsi:Wt999MS:Ifs>h Thh=s:l=s:WtFi:Rt:r::n=0:IfPk(pp+32)=e ORPk(pp+1)=e ORPk(pp-1)=e ORPk(pp+33)=e ORPk(pp+31)=e Thn=1:Rt