This page (revision-13) was last changed on 03-Feb-2023 15:21 by Gromit 

This page was created on 29-Mar-2011 14:00 by Gromit

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
13 03-Feb-2023 15:21 24 KB Gromit to previous
12 14-May-2011 18:11 24 KB Gromit to previous | to last
11 03-May-2011 09:23 24 KB Gromit to previous | to last
10 28-Apr-2011 14:34 24 KB Gromit to previous | to last
9 06-Apr-2011 12:37 24 KB Gromit to previous | to last
8 06-Apr-2011 12:28 24 KB Gromit to previous | to last
7 04-Apr-2011 15:05 24 KB Gromit to previous | to last
6 30-Mar-2011 11:22 8 KB Gromit to previous | to last
5 29-Mar-2011 15:10 8 KB Gromit to previous | to last
4 29-Mar-2011 15:06 8 KB Gromit to previous | to last
3 29-Mar-2011 14:43 6 KB Gromit to previous | to last
2 29-Mar-2011 14:28 1 KB Gromit to previous | to last
1 29-Mar-2011 14:00 151 bytes Gromit to last

Page References

Incoming links Outgoing links
Roto
Roto

Version management

Difference between version and

At line 95 changed one line
; R.O.T.O. by Mike Stortz
; R.O.T.O. by Mike Stortz
At line 157 changed one line
37 37 37 37 37 84 80 0],
37 37 37 37 37 84 88 0],
At line 185 changed one line
0 198 230 246 254 238 230 230
0 198 238 246 254 238 230 230
At line 216 changed one line
24 36 42 46 52 0 0 8
24 36 42 46 52 8 8 8
At line 220 changed one line
16 8 8 0 0],
16 8 8 8 0],
At line 223 changed one line
[ 0 254 16 16 16 20 20 20
[ 0 254 16 16 16 26 26 28
At line 230 changed 2 lines
rotor=[254 124 56 16 56 124
127 62 28 8 28 62],
rotor= [254 124 56 16 56 124
127 62 28 8 28 62],
At line 233 changed one line
can=[24 60 126 90 195 195 219 255],
can= [24 60 126 90 195 195 219 255],
At line 236 changed 2 lines
[ 112 112 112 68 0 misc_page
4 6 11 6 139 48],
[112 112 112 68 0 misc_page
4 6 11 6 139 48],
At line 240 changed 2 lines
[ 112 70 160 misc_page 136
65 0 dl_page],
[112 70 160 misc_page 136
65 0 dl_page],
At line 244 changed one line
missile,mdata=[3 12 48 192],
missile,mdata=[ 3 12 48 192],
At line 249 changed one line
CARD ARRAY table(bytes),fall(20)
CARD ARRAY table(bytes),fall (20)
At line 252 changed one line
INT ARRAY mxd(4)
INT ARRAY mxd(4)
At line 261 changed one line
vscrol=ys hscrol=xs+xsm
vscrol=ys hscrol=xs*xsm
At line 266 changed one line
At line 283 changed one line
IF enable=1 THEN
IF enable=1 THEN
At line 313 changed 2 lines
w1=rtclok
DO until rtclok=W1+w OD
W1=rtclok
DO until rtclok=w1+w OD
At line 338 changed one line
phase==+1
Phase==+1
At line 360 changed one line
shield==+carried LSH 2
shield==+carried LSH 2
At line 368 changed one line
carried=0 fuel=50 whine=0
carried=0 fuel=50 whine=0
At line 380 changed 3 lines
IF Rand(0)=255 AND
Rand(5)=0 AND
shake=0 THEN
IF Rand (0)=255 AND
Rand (5)=0 and
shake=0 THEN
At line 386 changed 2 lines
IF shield<0 THEN shield=0 FI
IF shield=0 THEN end=2 FI
IF Shield<0 THEN shield=0 FI
IF Shield=0 THEN end=2 FI
At line 391 changed one line
shakec==-1
shakec==-l
At line 399 changed one line
IF screen(a)=0 THEN
IF screen(a)=0 THEN
At line 403 added 5 lines
Sound(2,255-shake,2,6)
xsm=Rand(5)
ELSE
xsm=0
Sound(2,0,0,0)
At line 404 removed 5 lines
Sound(2,255-shake,2,6)
xsm=Rand(5)
ELSE
xsm=0
Sound(2,0,0,0)
At line 413 removed one line
At line 425 changed one line
Zero(Misc_adr+80,80) ZeroOut()
Zero(Misc_adr+80,80) ZeroOut()
At line 427 changed one line
dindex=2 rowcrs=4 colcrs=0
dindex=2 rowcrs=4 colcrs=0
At line 429 changed 12 lines
IF end=1 THEN
PrintDE(6," NO PACKS LEFT")
ELSEIF end=2 THEN
PrintDE(6," SHIELD DEPLETED")
ELSEIF end=3 THEN
PrintDE(6," CANNISTER RUPTURED")
ELSEIF end=4 THEN
PrintD(6," TOO MANY CANNISTERS")
ELSEIF end=5 THEN
PrintDE(6," ARCADIA THANKS YOU")
FI
PutDE(6) PrintDE(6," game over")
IF end=1 THEN
PrintDE(6," NO PACKS LEFT")
ELSEIF end=2 THEN
PrintDE(6," SHIELD DEPLETED")
ELSEIF end=3 THEN
PrintDE(6," CANNISTER RUPTURED")
ELSEIF end=4 THEN
PrintD(6," TOO MANY CANNISTERS")
ELSEIF end=5 THEN
PrintDE(6," ARCADIA THANKS YOU")
FI
PutDE(6) PrintDE(6," game over")
At line 442 changed 8 lines
FOR a=1 TO 400 DO
Sound(0,a RSH 1,8,6)
DO UNTIL vcount=128 OD
FOR i=0 TO 60 DO
colpf0=vcount+rtclok
wsync=0
OD
OD
FOR a=1 TO 400 DO
Sound(0,a rsh 1,8,6)
DO UNTIL vcount=128 OD
FOR i=0 TO 60 DO
colpf0=vcount+rtclok
wsync=0
OD
OD
At line 455 changed 2 lines
joy=15!Stick(0) xd=0 yd=0
IF (joy&8)<>0 THEN xd=1 FI
joy=15!stick(0) xd=0 yd=0
IF (joy&8)<>0 THEN xd= 1 FI
At line 458 changed one line
IF (joy&2)<>0 THEN yd=2 FI
IF (joy&2)<>0 THEN yd= 2 FI
At line 461 changed one line
oxd=xd oyd=yd
oxd=xd oyd=yd
At line 466 changed one line
PROC Scroll()
PROC Scroll()
At line 468 changed one line
IF (joy&4)<>0 THEN xs==+1 x==+1
IF (joy&4)<>0 THEN xs==+1 x==+1
At line 471 changed one line
ELSE cx==-1 xs=0
ELSE cx==-1 xs=0
At line 474 changed one line
ELSEIF (joy&8)<>0 THEN xs==-1 x==-1
ELSEIF (joy&8)<>0 THEN xs==-1 X==-1
At line 477 changed one line
ELSE cx==+1 xs=7
ELSE cx==+1 xs=7
At line 482 changed 3 lines
IF ys=8 THEN
IF cy=68 THEN ys==-1
ELSE cy==+1 ys=0
IF ys=8 THEN
IF cy=68 THEN ys==-1
ELSE cy==+1 ys=0
At line 490 changed one line
ELSE cy==-1 ys=7
ELSE cy==-1 ys=7
At line 496 changed one line
ary=@a a=screen+table(cy)+cx j=12
ary=@a a=screen*table(cy)+cx j=12
At line 530 changed 2 lines
SndRst()
Zero(missile,256) mx(0)=0 mx(1)=0
SndRSt()
Zero(missile,256) mx(0)=0 mx(1)=0
At line 536 changed one line
FOR j=1 to 20 DO
FOR j=1 TO 20 DO
At line 541 changed 2 lines
k=Rand(24) ary(k)==&Rand(0)
k=Rand(24) ary(k+256)==&Rand(0)
k=Rand(24) ary(k)==&Rand(0)
k=Rand(24) ary(k+256)==&Rand(0)
At line 562 removed one line
At line 586 removed one line
At line 596 changed one line
Falling(bb-64)
Falling(bb-64)
At line 605 changed 3 lines
j=mx(zz)-31-l RSH 2-xs
k=my(zz)-72+ys
j==RSH 3 k==RSH 3
j=mx(ZZ)-31-1 RSH 2-xs
k=my(ZZ)-72*ys
j==RSH 3 k==RSH 3
At line 611 removed one line
At line 620 changed one line
FOR k=1 TO 100 DO OD
FOR k=l TO 100 DO OD
At line 624 changed one line
Sound(1,0,0,0)
Sound(l,0,0,0)
At line 631 removed 2 lines
i=pxpf(0) j=pxpf(1)
At line 634 changed one line
IF (i&1)<>0 OR (j&1)<>0 OR
i=pxpf(0) j=pxpf(1)
IF (i&1)<>0 OR (j&l)<>0 OR
At line 638 changed one line
At line 641 changed one line
ChargeShield()
ChargeShield()
At line 649 changed one line
IF mxpf(1)<>0 THEN ZapIt(1) FI
IF mxpf(l)<>0 THEN ZapIt(l) FI
At line 655 changed 2 lines
IF Strig(0)=0 AND flag=0 THEN
flag=1 mc==!1
IF strig(0)=0 and flag=0 THEN
flag=1 mc==!1
At line 658 changed one line
missile(my(mc))==&(255!mdata(mc))
Missile(my(mc))==&(255!mdata(mc))
At line 660 changed one line
missile(my(mc))==%mdata(mc)
Missile(my(mc))==%mdata(mc)
At line 686 changed one line
IF j=0 THEN Sound(1,0,0,0) FI
IF j=0 THEN Sound(1,0,0,0) FI
At line 701 changed one line
temp=0
temp=0
At line 706 changed one line
temp==+64
temp==+64
At line 717 changed one line
fallc==-1
fallc==-l
At line 759 changed one line
FOR i=0 to 7 DO
FOR i=0 to 7 DO
At line 768 changed one line
rowcrs=2 colcrs=0
rowcrs=2 colcrs=0
At line 771 changed one line
PrintE("shield score:")
PrintE("shield score:")
At line 781 changed one line
At line 784 changed 3 lines
IF (k&1)<>0 THEN
DrawWall(a,3,1,4) FI
IF (k&l)<>0 THEN
DrawWall(a,3,l,4) FI
At line 788 changed one line
DrawWall(a+3,5,bytes,10) FI
DrawWall(a*3,5,bytes,10) FI
At line 797 changed one line
IF (K&16)<>0 AND
IF (k&16)<>0 AND
At line 825 changed one line
Zero(missile,1280)
Zero(Missile,1280)
At line 829 changed one line
colr2=40 colr3=68 colr4=64
colr2=40 colr3=68 colr4=64
At line 840 changed one line
screen(j*20+i)=logo(k)
screen(j*20+i) = logo (k)
At line 844 removed one line
At line 856 changed one line
dlist(i)=0
dlist(i)=0
At line 867 changed one line
rowcrs=0 colcrs=1
rowcrs=0 colcrs=l
At line 882 changed one line
PrintDE(6,"1000, ARCADIA HAS ")
PrintDE(6,"1000. ARCADIA HAS ")
At line 885 changed one line
PrintDE(6,"ARRIVE. DON'T ")
PrintDE(6,"ARRIVE. DON'T ")
At line 888 changed one line
PrintDE(6,"10 AT A TIME, AND ")
PrintDE(6,"10 AT A TIME. AND ")
At line 895 changed one line
PRINTDE(6," to play")
PrintDE(6," to play")
At line 901 changed one line
IF yd=-1 THEN
IF yd=-l THEN
At line 907 changed 2 lines
ELSE xd=0 yd=1
ELSE
xd=0 yd=1
At line 927 changed 2 lines
b=misc_adr FI
b=misc_adr
FI
At line 930 changed one line
dlist(33)=Peek(@b)
dlist(33)=Peek(@b)
At line 933 changed one line
Wait(2)
Wait(2)
At line 935 changed 4 lines
EXIT
FI
OD
UNTIL consol=6 OR Strig(0)=0 OD
EXIT
FI
OD
UNTIL consol=6 OR Strig(0)=0 OD
At line 949 changed 2 lines
MoveBlock(cb_adr+264,cset+80,208)
MoveBlock(cb_adr+512,cset+288,120)
MoveBlock(cb_adr+264,cset+80(208)
MoveBlock(cb_adr+512,cset+288,128)
At line 989 changed 8 lines
vdslst=Dli nmien=192
GetDir()
IF fuel=0 THEN
yd=2 joy==%2
ELSE
DoPhase()
FI
MoveMan()
vdslst=Dli nmien=l92
GetDir()
IF fuel=0 THEN
yd=2 joy==%2
ELSE
DoPhase()
FI
MoveMan()
At line 998 changed 6 lines
IF x<70 OR x>176 OR
y<90 OR y>172 THEN
Scroll()
ELSE
Wait(1)
FI
IF x<70 OR x>176 OR
y<90 OR y>172 THEN
Scroll()
ELSE
Wait(1)
FI
At line 1,005 changed 5 lines
CheckFuel()
CheckShake()
CheckRocks()
StartMiss() MoveMiss()
Bump()
CheckFuel()
CheckShake()
CheckRocks()
StartMiss() MoveMiss()
Bump()
At line 1,011 changed 6 lines
IF whine<>0 THEN
whine==-1
Sound(3,whine,10,4)
IF whine=0 THEN
Sound(3,0,0,0)
FI
IF whine<>0 THEN
whine==-1
Sound(3,whine,10,4)
IF whine=0 THEN
Sound(3,0,0,0)
At line 1,018 changed 7 lines
IF ch<255 THEN
ch=255 SndRst()
DO UNTIL ch<255 OR
consol<>7 OR
Strig(0)=0 OD
ch=255
FI
FI
IF ch<255 THEN
ch=255 SndRst()
DO UNTIL ch<255 OR
consol<>7 OR
Strig(0)=0 OD
ch=255
FI
At line 1,038 changed one line
At line 1,052 removed 2 lines
----
PDF: [roto_action.pdf]
This page (revision-13) was last changed on 03-Feb-2023 15:21 by Gromit  Top