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 101 changed 2 lines
cb_page="128",cb_adr=""32768",
dl_page="136",dl_adr="34816"
cb_page="128",cb_adr="32768",
dl_page="136",dl_adr="34816",
At line 111 changed one line
hitclr=$D0lE,consol=$D0lF,
hitclr=$D01E,consol=$D01F,
At line 117 changed one line
pcolr0=$2C0,pcolrl=$2C1,
pcolr0=$2C0,pcolr1=$2C1,
At line 120 changed one line
colpm2-$D014,colpm3=$D015,
colpm2=$D014,colpm3=$D015,
At line 157 changed one line
37 37 37 37 37 84 88 0],
37 37 37 37 37 84 80 0],
At line 159 added 2 lines
At line 183 changed one line
0 198 238 246 254 238 230 230
0 198 230 246 254 238 230 230
At line 214 changed one line
24 36 42 46 52 8 8 8
24 36 42 46 52 0 0 8
At line 218 changed one line
16 8 8 8 0],
16 8 8 0 0],
At line 221 changed one line
[ 0 254 16 16 16 26 26 28
[ 0 254 16 16 16 20 20 20
At line 228 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 231 changed one line
can= [24 60 126 90 195 195 219 255],
can=[24 60 126 90 195 195 219 255],
At line 234 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 238 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 242 changed one line
missile,mdata=[ 3 12 48 192],
missile,mdata=[3 12 48 192],
At line 247 changed one line
CARD ARRAY table(bytes),fall (20)
CARD ARRAY table(bytes),fall(20)
At line 250 changed one line
INT ARRAY mxd(4)
INT ARRAY mxd(4)
At line 259 changed one line
vscrol=ys hscrol=xs*xsm
vscrol=ys hscrol=xs+xsm
At line 269 changed one line
$8A $48 $98 $48 $A5 $AC $48
$8A $48 $98 $48 $A5 $AC $48
At line 281 changed one line
IF enable=1 THEN
IF enable=1 THEN
At line 297 changed one line
$68 $85 SAC $68 $A8 568 $AA
$68 $85 $AC $68 $A8 $68 $AA
At line 304 changed one line
[$40] ; RTI
[$40] ; RTI
At line 311 changed 2 lines
W1=rtclok
DO until rtclok=w1+w OD
w1=rtclok
DO until rtclok=W1+w OD
At line 326 changed one line
Zero(miSSile,1280)
Zero(missile,1280)
At line 336 changed one line
Phase==+1
phase==+1
At line 346 changed one line
rovcrs=6 colcrs=l4 PrintD(6," ")
rowcrs=6 colcrs=14 PrintD(6," ")
At line 358 changed one line
shield==+carried LSH 2
shield==+carried LSH 2
At line 366 changed one line
carried=0 fuel=50 whine=0
carried=0 fuel=50 whine=0
At line 378 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 384 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 389 changed one line
shakec==-l
shakec==-1
At line 397 changed one line
IF screen(a)=0 THEN
IF screen(a)=0 THEN
At line 401 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 410 added one line
FI
At line 413 added one line
At line 421 changed one line
Zero(Misc_adr+80,80) ZeroOut()
Zero(Misc_adr+80,80) ZeroOut()
At line 423 changed one line
dindex=2 rowcrs=4 colcrs=0
dindex=2 rowcrs=4 colcrs=0
At line 425 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 438 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 451 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 454 changed one line
IF (joy&2)<>0 THEN yd= 2 FI
IF (joy&2)<>0 THEN yd=2 FI
At line 457 changed one line
oxd=xd oyd=yd
oxd=xd oyd=yd
At line 462 changed one line
PROC Scroll()
PROC Scroll()
At line 464 changed one line
IF (joy&4)<>0 THEN xs==+1 x==+1
IF (joy&4)<>0 THEN xs==+1 x==+1
At line 467 changed one line
ELSE cx==-1 xs=0
ELSE cx==-1 xs=0
At line 470 changed one line
ELSEIF (joy&8)<>0 THEN xs==-1 X==-1
ELSEIF (joy&8)<>0 THEN xs==-1 x==-1
At line 473 changed one line
ELSE cx==+1 xs=7
ELSE cx==+1 xs=7
At line 478 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 486 changed one line
ELSE cy==-1 ys=7
ELSE cy==-1 ys=7
At line 492 changed one line
ary=@a a=screen*table(cy)+cx j=12
ary=@a a=screen+table(cy)+cx j=12
At line 526 changed 3 lines
SndRSt()
Zero(missile,256) mx(0)=0 mx(1)=0
Waint(30)
SndRst()
Zero(missile,256) mx(0)=0 mx(1)=0
Wait(30)
At line 532 changed one line
FOR j=1 TO 20 DO
FOR j=1 to 20 DO
At line 537 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 568 changed one line
PROG GetCan()
PROC GetCan()
At line 573 changed one line
IF screen(a)=l59 THEN
IF screen(a)=159 THEN
At line 577 changed one line
whine-200 hitclr=0
whine=200 hitclr=0
At line 586 added one line
At line 590 changed one line
Falling(bb-64)
Falling(bb-64)
At line 599 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 613 changed one line
FOR k=l TO 100 DO OD
FOR k=1 TO 100 DO OD
At line 617 changed one line
Sound(l,0,0,0)
Sound(1,0,0,0)
At line 624 changed one line
At line 626 changed one line
IF (i&1)<>0 OR (j&l)<>0 OR
IF (i&1)<>0 OR (j&1)<>0 OR
At line 630 changed one line
At line 633 changed one line
ChargeShield()
ChargeShield()
At line 641 changed one line
IF mxpf(l)<>0 THEN ZapIt(l) FI
IF mxpf(1)<>0 THEN ZapIt(1) FI
At line 647 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 650 changed one line
Missile(my(mc))==&(255!mdata(mc))
missile(my(mc))==&(255!mdata(mc))
At line 652 changed one line
Missile(my(mc))==%mdata(mc)
missile(my(mc))==%mdata(mc)
At line 678 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 693 changed one line
temp=0
temp=0
At line 698 changed one line
temp==+64
temp==+64
At line 702 changed one line
fal1(i)=temp
fall(i)=temp
At line 709 changed one line
fallc==-l
fallc==-1
At line 751 changed one line
FOR i=0 to 7 DO
FOR i=0 to 7 DO
At line 760 changed one line
rowcrs=2 colcrs=0
rowcrs=2 colcrs=0
At line 763 changed one line
PrintE("shield score:")
PrintE("shield score:")
At line 773 changed one line
At line 776 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 780 changed one line
DrawWall(a*3,5,bytes,10) FI
DrawWall(a+3,5,bytes,10) FI
At line 789 changed one line
IF (k&16)<>0 AND
IF (K&16)<>0 AND
At line 817 changed one line
Zero(Missile,1280)
Zero(missile,1280)
At line 821 changed one line
colr2=40 colr3=68 colr4=64
colr2=40 colr3=68 colr4=64
At line 832 changed one line
screen(j*20+i) = logo (k)
screen(j*20+i)=logo(k)
At line 844 added one line
At line 847 changed one line
dlist(i)=0
dlist(i)=0
At line 858 changed one line
rowcrs=0 colcrs=l
rowcrs=0 colcrs=1
At line 873 changed one line
PrintDE(6,"1000. ARCADIA HAS ")
PrintDE(6,"1000, ARCADIA HAS ")
At line 876 changed one line
PrintDE(6,"ARRIVE. DON'T ")
PrintDE(6,"ARRIVE. DON'T ")
At line 879 changed one line
PrintDE(6,"10 AT A TIME. AND ")
PrintDE(6,"10 AT A TIME, AND ")
At line 886 changed one line
PrintDE(6," to play")
PRINTDE(6," to play")
At line 892 changed one line
IF yd=-l THEN
IF yd=-1 THEN
At line 898 changed 2 lines
ELSE
xd=0 yd=1
ELSE xd=0 yd=1
At line 918 changed 2 lines
b=misc_adr
FI
b=misc_adr FI
At line 921 changed 2 lines
dlist(33)=Peek(@b)
dlist(34)=Peek(@b+1) #
dlist(33)=Peek(@b)
dlist(34)=Peek(@b+1)
At line 924 changed one line
Wait(2)
Wait(2)
At line 926 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 940 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 974 changed one line
mx(0)=0 mx(1)=0
mx(0)=0 mx(1)=0
At line 980 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 989 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 996 changed 5 lines
CheckFuel()
CheckShake()
CheckRocks()
StartMiss() MoveMiss()
Bump()
CheckFuel()
CheckShake()
CheckRocks()
StartMiss() MoveMiss()
Bump()
At line 1,002 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,008 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,029 changed one line
At line 1,052 added 2 lines
----
PDF: [roto_action.pdf]
This page (revision-13) was last changed on 03-Feb-2023 15:21 by Gromit  Top