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 94 removed one line
! !!! CODE IS BUGGY !!!
At line 96 changed one line
; R.O.T.O. by Mike Stortz
; R.O.T.O. by Mike Stortz
At line 158 changed one line
37 37 37 37 37 84 88 0],
37 37 37 37 37 84 80 0],
At line 186 changed one line
0 198 238 246 254 238 230 230
0 198 230 246 254 238 230 230
At line 217 changed one line
24 36 42 46 52 8 8 8
24 36 42 46 52 0 0 8
At line 221 changed one line
16 8 8 8 0],
16 8 8 0 0],
At line 224 changed one line
[ 0 254 16 16 16 26 26 28
[ 0 254 16 16 16 20 20 20
At line 231 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 234 changed one line
can= [24 60 126 90 195 195 219 255],
can=[24 60 126 90 195 195 219 255],
At line 237 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 241 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 245 changed one line
missile,mdata=[ 3 12 48 192],
missile,mdata=[3 12 48 192],
At line 250 changed one line
CARD ARRAY table(bytes),fall (20)
CARD ARRAY table(bytes),fall(20)
At line 253 changed one line
INT ARRAY mxd(4)
INT ARRAY mxd(4)
At line 262 changed one line
vscrol=ys hscrol=xs*xsm
vscrol=ys hscrol=xs+xsm
At line 267 changed one line
At line 284 changed one line
IF enable=1 THEN
IF enable=1 THEN
At line 314 changed 2 lines
W1=rtclok
DO until rtclok=w1+w OD
w1=rtclok
DO until rtclok=W1+w OD
At line 339 changed one line
Phase==+1
phase==+1
At line 361 changed one line
shield==+carried LSH 2
shield==+carried LSH 2
At line 369 changed one line
carried=0 fuel=50 whine=0
carried=0 fuel=50 whine=0
At line 381 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 387 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 392 changed one line
shakec==-l
shakec==-1
At line 400 changed one line
IF screen(a)=0 THEN
IF screen(a)=0 THEN
At line 413 added 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 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 changed one line
At line 586 added one line
At line 605 changed 2 lines
k=my(zz)-72*ys
j==RSH 3 k==RSH 3
k=my(zz)-72+ys
j==RSH 3 k==RSH 3
At line 611 added one line
At line 629 changed one line
At line 633 added one line
At line 635 changed one line
At line 638 changed one line
ChargeShield()
ChargeShield()
At line 652 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 683 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 698 changed one line
temp=0
temp=0
At line 703 changed one line
temp==+64
temp==+64
At line 756 changed one line
FOR i=0 to 7 DO
FOR i=0 to 7 DO
At line 765 changed one line
rowcrs=2 colcrs=0
rowcrs=2 colcrs=0
At line 768 changed one line
PrintE("shield score:")
PrintE("shield score:")
At line 778 changed one line
At line 781 changed one line
At line 794 changed one line
IF (k&16)<>0 AND
IF (K&16)<>0 AND
At line 822 changed one line
Zero(Missile,1280)
Zero(missile,1280)
At line 826 changed one line
colr2=40 colr3=68 colr4=64
colr2=40 colr3=68 colr4=64
At line 837 changed one line
screen(j*20+i) = logo (k)
screen(j*20+i)=logo(k)
At line 844 added one line
At line 852 changed one line
dlist(i)=0
dlist(i)=0
At line 858 changed one line
PrintD(6," ìáóô ") PrintID(6,score)
PrintD(6," last ") PrintID(6,score)
At line 860 changed one line
PrintD(6,"èéçè ") PrintCD(6,high)
PrintD(6,"high ") PrintCD(6,high)
At line 865 changed 10 lines
PrintDE(6," òåóåòöå ïòå ")
PrintDE(6,"ôòáîóðïòô ïðåòáôéïî")
PrintDE(6," ÔÈÅ ÃÉÔÙ ÏÆ ")
PrintDE(6,"ÁÒÃÁÄÉÁ ÉÓ ÕÎÄÅÒ ")
PrintDE(6,"ÁÔÔÁÃË®  ÙÏÕÒ ÊÏÂ ")
PrintDE(6,"ÉÓ ÔÏ ÒÅÃÏÖÅÒ ÆÕÅÌ")
PrintDE(6,"ÃÁÎÎÉÓÔÅÒÓ ÏÆ ÈÙËÅ")
PrintDE(6,"ÁÎÄ ÒÅÔÕÒΠÔÈÅÍ ÔÏ")
PrintDE(6,"ÔÈÅ ÕÐÐÅÒ ÌÅÆÔ ÅÎÄ")
PrintDE(6,"ÏÆ ÔÈÅ ÃÁÖÅÒÎÓ® ÉÆ")
PrintDE(6," reserve ore ")
PrintDE(6,"transport operation")
PrintDE(6," THE CITY OF ")
PrintDE(6,"ARCADIA IS UNDER ")
PrintDE(6,"ATTACK. YOUR JOB ")
PrintDE(6,"IS TO RECOVER FUEL")
PrintDE(6,"CANNISTERS OF HYKE")
PrintDE(6,"AND RETURN THEM TO")
PrintDE(6,"THE UPPER LEFT END")
PrintDE(6,"OF THE CAVERNS. IF")
At line 878 changed one line
PrintDE(6,"1000. ARCADIA HAS ")
PrintDE(6,"1000, ARCADIA HAS ")
At line 881 changed one line
PrintDE(6,"ARRIVE. DON'T ")
PrintDE(6,"ARRIVE. DON'T ")
At line 884 changed one line
PrintDE(6,"10 AT A TIME. AND ")
PrintDE(6,"10 AT A TIME, AND ")
At line 890 changed 2 lines
PrintDE(6," ðòåóó START")
PrintDE(6," ôï ðìáù")
PrintDE(6," press START")
PRINTDE(6," to play")
At line 903 changed 2 lines
ELSE
xd=0 yd=1
ELSE xd=0 yd=1
At line 923 changed 2 lines
b=misc_adr
FI
b=misc_adr FI
At line 926 changed one line
dlist(33)=Peek(@b)
dlist(33)=Peek(@b)
At line 929 changed one line
Wait(2)
Wait(2)
At line 931 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 985 changed 8 lines
vdslst=Dli nmien=192
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 994 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,001 changed 5 lines
CheckFuel()
CheckShake()
CheckRocks()
StartMiss() MoveMiss()
Bump()
CheckFuel()
CheckShake()
CheckRocks()
StartMiss() MoveMiss()
Bump()
At line 1,007 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,013 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,034 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