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

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 88 0],
37 37 37 37 37 84 80 0],
At line 185 changed one line
0 198 238 246 254 238 230 230
0 198 230 246 254 238 230 230
At line 216 changed one line
24 36 42 46 52 8 8 8
24 36 42 46 52 0 0 8
At line 220 changed one line
16 8 8 8 0],
16 8 8 0 0],
At line 223 changed one line
[ 0 254 16 16 16 26 26 28
[ 0 254 16 16 16 20 20 20
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==-l
shakec==-1
At line 399 changed one line
IF screen(a)=0 THEN
IF screen(a)=0 THEN
At line 403 removed 5 lines
Sound(2,255-shake,2,6)
xsm=Rand(5)
ELSE
xsm=0
Sound(2,0,0,0)
At line 404 added 5 lines
Sound(2,255-shake,2,6)
xsm=Rand(5)
ELSE
xsm=0
Sound(2,0,0,0)
At line 413 added one line
At line 424 changed one line
Zero(Misc_adr+80,80) ZeroOut()
Zero(Misc_adr+80,80) ZeroOut()
At line 426 changed one line
dindex=2 rowcrs=4 colcrs=0
dindex=2 rowcrs=4 colcrs=0
At line 428 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 441 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 454 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 457 changed one line
IF (joy&2)<>0 THEN yd= 2 FI
IF (joy&2)<>0 THEN yd=2 FI
At line 460 changed one line
oxd=xd oyd=yd
oxd=xd oyd=yd
At line 465 changed one line
PROC Scroll()
PROC Scroll()
At line 467 changed one line
IF (joy&4)<>0 THEN xs==+1 x==+1
IF (joy&4)<>0 THEN xs==+1 x==+1
At line 470 changed one line
ELSE cx==-1 xs=0
ELSE cx==-1 xs=0
At line 473 changed one line
ELSEIF (joy&8)<>0 THEN xs==-1 X==-1
ELSEIF (joy&8)<>0 THEN xs==-1 x==-1
At line 476 changed one line
ELSE cx==+1 xs=7
ELSE cx==+1 xs=7
At line 481 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 489 changed one line
ELSE cy==-1 ys=7
ELSE cy==-1 ys=7
At line 495 changed one line
ary=@a a=screen*table(cy)+cx j=12
ary=@a a=screen+table(cy)+cx j=12
At line 529 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 535 changed one line
FOR j=1 TO 20 DO
FOR j=1 to 20 DO
At line 540 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 added one line
At line 586 added one line
At line 593 changed one line
Falling(bb-64)
Falling(bb-64)
At line 602 changed 3 lines
j=mx(ZZ)-31-1 RSH 2-xs
k=my(ZZ)-72*ys
j==RSH 3 k==RSH 3
j=mx(zz)-31-l RSH 2-xs
k=my(zz)-72+ys
j==RSH 3 k==RSH 3
At line 611 added one line
At line 616 changed one line
FOR k=l TO 100 DO OD
FOR k=1 TO 100 DO OD
At line 620 changed one line
Sound(l,0,0,0)
Sound(1,0,0,0)
At line 627 changed one line
At line 629 changed one line
IF (i&1)<>0 OR (j&l)<>0 OR
IF (i&1)<>0 OR (j&1)<>0 OR
At line 633 changed one line
At line 636 changed one line
ChargeShield()
ChargeShield()
At line 644 changed one line
IF mxpf(l)<>0 THEN ZapIt(l) FI
IF mxpf(1)<>0 THEN ZapIt(1) FI
At line 650 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 653 changed one line
Missile(my(mc))==&(255!mdata(mc))
missile(my(mc))==&(255!mdata(mc))
At line 655 changed one line
Missile(my(mc))==%mdata(mc)
missile(my(mc))==%mdata(mc)
At line 681 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 696 changed one line
temp=0
temp=0
At line 701 changed one line
temp==+64
temp==+64
At line 712 changed one line
fallc==-l
fallc==-1
At line 754 changed one line
FOR i=0 to 7 DO
FOR i=0 to 7 DO
At line 763 changed one line
rowcrs=2 colcrs=0
rowcrs=2 colcrs=0
At line 766 changed one line
PrintE("shield score:")
PrintE("shield score:")
At line 776 changed one line
At line 779 changed 3 lines
IF (k&l)<>0 THEN
DrawWall(a,3,l,4) FI
IF (k&1)<>0 THEN
DrawWall(a,3,1,4) FI
At line 783 changed one line
DrawWall(a*3,5,bytes,10) FI
DrawWall(a+3,5,bytes,10) FI
At line 792 changed one line
IF (k&16)<>0 AND
IF (K&16)<>0 AND
At line 820 changed one line
Zero(Missile,1280)
Zero(missile,1280)
At line 824 changed one line
colr2=40 colr3=68 colr4=64
colr2=40 colr3=68 colr4=64
At line 835 changed one line
screen(j*20+i) = logo (k)
screen(j*20+i)=logo(k)
At line 844 added one line
At line 850 changed one line
dlist(i)=0
dlist(i)=0
At line 861 changed one line
rowcrs=0 colcrs=l
rowcrs=0 colcrs=1
At line 876 changed one line
PrintDE(6,"1000. ARCADIA HAS ")
PrintDE(6,"1000, ARCADIA HAS ")
At line 879 changed one line
PrintDE(6,"ARRIVE. DON'T ")
PrintDE(6,"ARRIVE. DON'T ")
At line 882 changed one line
PrintDE(6,"10 AT A TIME. AND ")
PrintDE(6,"10 AT A TIME, AND ")
At line 889 changed one line
PrintDE(6," to play")
PRINTDE(6," to play")
At line 895 changed one line
IF yd=-l THEN
IF yd=-1 THEN
At line 901 changed 2 lines
ELSE
xd=0 yd=1
ELSE xd=0 yd=1
At line 921 changed 2 lines
b=misc_adr
FI
b=misc_adr FI
At line 924 changed one line
dlist(33)=Peek(@b)
dlist(33)=Peek(@b)
At line 927 changed one line
Wait(2)
Wait(2)
At line 929 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 943 changed 2 lines
MoveBlock(cb_adr+264,cset+80(208)
MoveBlock(cb_adr+512,cset+288,128)
MoveBlock(cb_adr+264,cset+80,208)
MoveBlock(cb_adr+512,cset+288,120)
At line 983 changed 8 lines
vdslst=Dli nmien=l92
GetDir()
IF fuel=0 THEN
yd=2 joy==%2
ELSE
DoPhase()
FI
MoveMan()
vdslst=Dli nmien=192
GetDir()
IF fuel=0 THEN
yd=2 joy==%2
ELSE
DoPhase()
FI
MoveMan()
At line 992 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 999 changed 5 lines
CheckFuel()
CheckShake()
CheckRocks()
StartMiss() MoveMiss()
Bump()
CheckFuel()
CheckShake()
CheckRocks()
StartMiss() MoveMiss()
Bump()
At line 1,005 changed 5 lines
IF whine<>0 THEN
whine==-1
Sound(3,whine,10,4)
IF whine=0 THEN
Sound(3,0,0,0)
IF whine<>0 THEN
whine==-1
Sound(3,whine,10,4)
IF whine=0 THEN
Sound(3,0,0,0)
FI
At line 1,011 changed 8 lines
FI
IF ch<255 THEN
ch=255 SndRst()
DO UNTIL ch<255 OR
consol<>7 OR
Strig(0)=0 OD
ch=255
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,032 changed one line
At line 1,052 added 2 lines
----
PDF: [roto_action.pdf]