mirror of
https://github.com/AppleCommander/bastools.git
synced 2024-05-28 19:41:31 +00:00
41 lines
1.1 KiB
QBasic
41 lines
1.1 KiB
QBasic
10 gosub 50000:goto 100
|
|
|
|
20 for i=1 to mm:if dx(i) then next i:return
|
|
30 dx(i)=x:dy(i)=15:ds(i)=dc:return
|
|
|
|
100 hgr:vtab 21
|
|
110 hcolor=6:hplot 0,13 to 279,13
|
|
|
|
120 hcolor=3
|
|
130 x=140:sd=0:s=sh
|
|
140 di=1:mm=5:dim dx(mm),dy(mm),ds(mm),ox(mm),oy(mm),os(mm)
|
|
150 for i=1 to mm:dx(i)=0:dy(i)=0:ds(i)=0:next i
|
|
|
|
200 xdraw s at x,10:ox=x:os=s
|
|
210 ox(di)=dx(di):oy(di)=dy(di):os(di)=ds(di)
|
|
220 if dx(di) then xdraw ds(di) at dx(di),dy(di)
|
|
|
|
300 ky=peek(-16384):if ky < 128 then 400
|
|
310 poke -16368,0
|
|
320 if ky=136 then s=sh:sd=sd-1
|
|
330 if ky=149 then s=sh+1:sd=sd+1
|
|
340 if sd > 3 then sd=3
|
|
350 if sd < -3 then sd=-3
|
|
360 if ky=160 then gosub 20
|
|
|
|
400 x=x+sd
|
|
410 if x < 10 then x=10
|
|
420 if x > 270 then x=270
|
|
|
|
500 if not dx(di) then 590
|
|
510 ds(di)=ds(di)+1:if ds(di) > dc+3 then ds(di)=dc
|
|
520 dy(di)=dy(di)+3:if dy(di) > 160 then dx(di)=0:dy(di)=0:ds(di)=0
|
|
590 di=di+1:if di > mm then di = 1
|
|
|
|
600 if ox(di) then xdraw os(di) at ox(di),oy(di)
|
|
610 xdraw os at ox,10
|
|
620 goto 200
|
|
|
|
49999 end
|
|
50000 $shape src="ships.st", poke=yes, init=yes, assign=(sb="sub-left", sh="ship-left", dc="depthcharge-1")
|