TIB: Source to Arcade1.82p


[Prev][Next][Index][Thread]

TIB: Source to Arcade1.82p




More Source...

\START82\
\COMMENT=Program file dated 03/09/97, 21:17
\NAME=ARCADE1
\FILE=D:\PERSONAL\ARCADE1.82P
:Lbl A
:ClrHome
:Menu("ARCADE GAMES","I.C.",B,"C.M.",I,"C.S.",N,"EXIT",\@\)
:Lbl B
:0\->\R
:0\->\L
:0\->\W
:ClrHome
:Menu("INTERNALCALC-BAT","PLAY",C,"",B,"HELP",U,"MENU",A)
:Lbl U
:ClrHome
:Disp "     -HELP-","M. L/R: L/R ARW","BLOCK: D ARW","FIREBALL: U
ARW",\#\
"HI KICK: EXIT","LOW KICK: X\(-)\VAR","  PRESS  ENTER"
:Pause 
:Disp "     -HELP-","HI PUNCH: 2ND","LOW PUNCH: ALPHA","QUIT/PAUSE:
9/8\#\
","","","  PRESS  ENTER"
:Pause 
:Goto B
:Lbl C
:0\->\G
:Repeat (G\>=\1 and G\<=\4) or G=8
:ClrHome
:Disp "SELECT
OPPONENT:","1)ANGULAR","2)HERMAN","3)OBERAN","4)KILLATOUS\#\
","8)PRACTICE",""
:Input "(1-4 or 8): ",G
:iPart (G)\->\G
:End
:Lbl D
:100\->\T
:99\->\A
:99\->\B
:3\->\C
:14\->\D
:R+1\->\R
:If R\>=\4
:Goto B
:ClrHome
:Disp "+-P1-+----+-P2-+","!    !    !    !","+----+----+----+"
:Output(8,1,"+--------------+")
:If G\<=\8
:Output(1,12,"CALC")
:Output(2,7,W)
:Output(2,10,L)
:Output(5,C,"O")
:Output(5,D,"O")
:Output(6,C,"\@\=")
:Output(6,D-1,"=2")
:If G=8
:Output(6,D,"P")
:If G=1
:Output(6,D,"A")
:If G=2
:Output(6,D,"H")
:If G=3
:Output(6,D,"O")
:If G=4
:Output(6,D,"K")
:Output(7,C,"!>")
:Output(7,D-1,"<!")
:Output(4,5,"ROUND")
:Output(4,12,R)
:For(I,1,500)
:End
:Output(4,5," FIGHT! ")
:For(I,1,500)
:End
:Lbl E
:T-1\->\T
:Output(1,9,"-")
:Output(1,8,T)
:Output(2,4," ")
:Output(2,3,A)
:Output(2,14," ")
:Output(2,13,B)
:If G=8 and B\<=\0
:Goto B
:If B\<=\0 or A\<=\0 or T\<=\0
:Goto G
:0\->\E
:0\->\F
:If G\<>\9
:getKey\->\E
:If G=9
:Then
:getKey\->\Y
:Y\->\F
:Send(F)
:Get(F)
:Y\->\E
:End
:If G\<=\7
:Then
:If G=1
:iPart 5rand+1\->\K
:If G=2
:iPart 10rand+1\->\K
:If G=3
:iPart 15rand+1\->\K
:If G=4
:iPart 21rand+1\->\K
:If K=1 or K=13 or D-4>C
:26\->\F
:If K=11 and D-3\<=\C or K=12 and D-3\<=\C or K=18 and D-3\<=\C
:22\->\F
:If K=2 and D-3\<=\C or K=14 and D-3\<=\C or K=19 and D-3\<=\C
:32\->\F
:If K=8 and D-3\<=\C or K=16 and D-3\<=\C
:21\->\F
:If K=9 and D-3\<=\C or K=3 and D-3\<=\C
:31\->\F
:If K=6 or K=17
:24\->\F
:If K=4
:34\->\F
:If K=7
:25\->\F
:If K=5 and D-3>C
:11\->\F
:If K=10
:12\->\F
:If K=15
:13\->\F
:If K=20
:14\->\F
:If K=21
:15\->\F
:If F=0 and D-3\<=\C
:22\->\F
:If F=0 and D-3>C
:26\->\F
:End
:If E=74 or F=74
:Menu("PAUSED","UN-PAUSE",E,"QUIT",B)
:If E=26 and C+4\<=\D
:C+1\->\C
:If F=26 and D-4\>=\C
:D-1\->\D
:If E=24 and C\>=\3
:C-1\->\C
:If F=24 and D\<=\14
:D+1\->\D
:If E=34
:Output(6,C+1,")")
:If F=34
:Output(6,D-1,"(")
:If E=25 and C+4<D
:Then
:Output(4,5,"FIREBALL")
:C+2\->\K
:Repeat K+2>D
:Output(6,K," *")
:For(I,1,100)
:End
:K+1\->\K
:End
:If F\<>\34
:B-3\->\B
:End
:If F=25 and D-4>C
:Then
:Output(4,5,"FIREBALL")
:D-3\->\K
:Repeat K-1<C
:Output(6,K,"* ")
:For(I,1,100)
:End
:K-1\->\K
:End
:If E\<>\34
:A-3\->\A
:End
:If E=21
:Then
:Output(5,C+1,"/")
:Output(6,C-1,"<\@\ ")
:If F\<>\34 and C+3\>=\D
:B-1\->\B
:End
:If F=21
:Then
:Output(5,D-1,"!")
:Output(6,D+1,">")
:Output(6,D-1," ")
:If E\<>\34 and D-3\<=\C
:A-1\->\A
:End
:If E=22
:Then
:Output(5,C-1,"<O//")
:Output(6,C+1,"/")
:Output(7,C+1," ")
:If F\<>\34 and C+3\>=\D
:B-3\->\B
:End
:If F=22
:Then
:Output(5,D-2,"!<O>")
:Output(6,D-1,"-")
:Output(7,D-1," ")
:If E\<>\34 and D-3\<=\C
:A-3\->\A
:End
:If E=31
:Then
:Output(5,C-1,"<")
:Output(6,C+1,"-")
:If F\<>\34 and C+3\>=\D
:B-1\->\B
:End
:If F=31
:Then
:Output(5,D+1,">")
:Output(6,D-1,"-")
:If E\<>\34 and D-3\<=\C
:A-1\->\A
:End
:If E=32
:Then
:Output(5,C-1,"<O>")
:Output(6,C+1,"--")
:Output(7,C+1," ")
:If F\<>\34 and C+4=D
:B-1\->\B
:If F\<>\34 and C+3\>=\D
:B-2\->\B
:End
:If F=32
:Then
:Output(5,D-1,"<O>")
:Output(6,D-2,"--")
:Output(7,D-1," !")
:If E\<>\34 and D-4=C
:A-1\->\A
:If E\<>\34 and D-3\<=\C
:A-2\->\A
:End
:If E=11 and C+3<D
:Then
:C+2\->\K
:Output(6,C,"\@\<")
:While K+1<D
:Output(6,K,"-\>=\")
:K+1\->\K
:End
:If F\<>\34
:Then
:Output(4,4,"COME HERE!")
:For(I,1,50)
:End
:Repeat D-3\<=\C
:Output(5,D,"(O ")
:Output(6,D-1,"\>=\X) ")
:Output(7,D-1,"<! ")
:D-1\->\D
:End
:B-5\->\B
:End
:End
:If F=11 and D-3>C
:Then
:D-3\->\K
:Output(6,D-1,">")
:While K-1>C
:Output(6,K,"\<=\-")
:K-1\->\K
:End
:If F\<>\34
:Then
:Output(4,4,"COME HERE!")
:For(I,1,50)
:End
:Repeat C+3\>=\D
:Output(5,C-1," O)")
:Output(6,C-1," (X\<=\")
:Output(7,C," !>")
:C+1\->\C
:End
:A-5\->\A
:End
:End
:If F=12
:Then
:D-2\->\K
:Output(4,4,"FLOOR SAW!")
:For(I,1,200)
:End
:While K-1>C
:Output(7,K,"Q")
:K-1\->\K
:End
:A-6\->\A
:End
:If F=13
:Then
:Output(4,4,"HIGH JUMP!")
:For(I,1,200)
:End
:Output(6,D-1,"   ")
:Output(7,D-1,"   ")
:While D-3>C
:Output(4,D-1,"<O> ")
:Output(5,D-2,"--M-- ")
:For(I,1,75)
:End
:D-1\->\D
:End
:C+3\->\D
:A-7\->\A
:End
:If F=14
:Then
:C+3\->\K
:Output(7,D-1,"   ")
:Output(6,D-1,"   ")
:Output(5,D-1,"   ")
:For(I,1,400)
:End
:Output(4,3,"WHERE IS HE?")
:For(I,1,300)
:End
:Output(5,K-1,"!O")
:Output(6,K,"?>")
:Output(7,K-1,"<!")
:For(I,1,200)
:End
:A-8\->\A
:End
:If F=15
:Then
:Output(4,4,"LIGHTNING!")
:For(I,1,200)
:End
:Output(5,D-1,"!O!")
:Output(6,D-1,"'?'")
:For(I,1,200)
:End
:Output(4,7,"         ")
:Output(4,D-1,"Y Y")
:Output(4,C-1,"YYY")
:For(I,1,300)
:End
:A-9\->\A
:End
:If E\<>\0 or F\<>\0
:Then
:For(I,4,7)
:Output(I,1,"                ")
:End
:Output(5,C,"O")
:Output(6,C,"\@\=")
:Output(7,C,"!>")
:Output(5,D,"O")
:Output(6,D-1,"=2")
:If G=8
:Output(6,D,"P")
:If G=1
:Output(6,D,"A")
:If G=2
:Output(6,D,"H")
:If G=3
:Output(6,D,"O")
:If G=4
:Output(6,D,"K")
:Output(7,D-1,"<!")
:End
:If B=0 and R\>=\3 and W\>=\2 or E=53 or F=53
:Goto F
:Goto E
:Lbl F
:Output(3,5,"FATALITY")
:iPart 5rand\->\K
:If K=0
:Then
:Output(4,2,"I'M SHRINKING!"
:Output(5,D-1,"   ")
:Output(6,D-1," O ")
:For(I,1,600)
:End
:Output(6,D-1,"   ")
:Output(7,D-1," O ")
:End
:If K=1
:Then
:Output(4,2,"ICE COLD STUFF")
:Output(6,C+1,"<")
:Output(5,C,"G")
:C+2\->\E
:Repeat E\>=\D-2
:Output(5,E+1," \@\")
:For(I,1,100)
:End
:E+1\->\E
:End
:Output(5,D-1,"[O]")
:Output(6,D-1,"[\@\]")
:Output(7,D-1,"[!]")
:End
:If K=2
:Then
:Output(4,1,"A TYRANNOSAURUS!")
:For(I,1,600)
:End
:Output(4,1,"                ")
:Output(4,D-1,"U U")
:For(I,1,200)
:End
:Output(5,D-1,"UOU")
:For(I,1,100)
:End
:Output(5,D-1,"   ")
:0\->\E
:Repeat E\>=\5
:Output(4,D-1," U")
:For(I,1,75)
:End
:Output(4,D-1,"U ")
:For(I,1,75)
:End
:E+1\->\E
:End
:End
:If K=3
:Then
:Output(4,3,"LET'S DANCE!")
:Output(5,D+1,"/")
:Output(5,C+1,"/")
:Output(6,D-1,"/")
:Output(6,C-1,"/\@\ ")
:End
:If K=4
:Then
:Output(4,2,"DON'T LOOK UP!")
:For(I,1,600)
:End
:Output(5,D-1,"+-+"
:Output(6,D-1,"!\T\!")
:Output(7,D-1,"+-+")
:Output(4,1,"THATS A BIG SAFE")
:End
:Output(8,3,"PRESS--ENTER"
:Pause 
:Lbl G
:If A>B
:1\->\K
:If B>A or B=A
:2\->\K
:If B>A and G\<=\8 or B=A and G\<=\8
:3\->\K
:If K=2 or K=3
:L+1\->\L
:If K=1
:W+1\->\W
:ClrHome
:Output(1,1,"    RESULTS:")
:Output(7,1,"  PRESS  ENTER")
:Output(3,4," PLAYER   ")
:Output(3,12,K)
:Output(4,7,"WINS")
:If K=3
:Output(3,4,"CALCULATER")
:Pause 
:If R\>=\3
:Then
:Output(3,4," PLAYER 1 ")
:If L>W and G=9
:Output(3,12,"2")
:If L>W and G\<=\8
:Output(3,4,"CALCULATER")
:Output(5,6,"FIGHT!")
:Pause 
:End
:Goto D
:Lbl I
:ClrHome
:{1,1}\->\dim [E]
:0\->\C
:0\->\B
:3\->\D
:0\->\E
:2\->\G
:1\->\H
:8\->\J
:16\->\K
:Menu("CALC MAN","PLAY",K,"",I,"HELP",J,"MENU",A)
:Lbl J
:ClrHome
:Disp "     -HELP-","YOU MUST GET ALL"," THE PELLETS TO","WIN.","MOVE:
\#\
DIREC.KEYS","QUIT/PAUSE: 8/9","  PRESS  ENTER"
:Pause 
:Goto I
:Lbl K
:0\->\\@\
:{7,16}\->\dim [E]
:ClrHome
:Fill(0,[E])
:C+10\->\C
:If C\>=\100
:Goto B
:Repeat \@\\>=\C
:Output(4,3,"THINKING ..."
:iPart (7)rand+1\->\Z
:iPart (16)rand+1\->\Y
:If (Z\<>\G and Y\<>\H and [E](Z,Y)=0) or (Z\<>\J and Y\<>\K and
[E](Z,\#\
Y)=0)
:Then
:1\->\[E](Z,Y)
:\@\+1\->\\@\
:End
:End
:Disp "","","LEVEL:",C/10,"","  PRESS  ENTER"
:Pause 
:ClrHome
:Disp "+L:----+P:-----+"
:Repeat N\>=\C
:0\->\N
:For(\@\,2,8)
:For(Z,1,16)
:If [E](\@\-1,Z)=1
:Then
:Output(\@\,Z,".")
:N+1\->\N
:End
:End
:End
:End
:0\->\I
:Lbl L
:Repeat D\<=\0
:For(\@\,1,25)
:End
:Output(1,5,D)
:Output(1,12,E)
:Output(G,H," ")
:Output(J,K," ")
:getKey\->\F
:If F=74 or F=73
:Menu("PAUSE","UN-PAUSE",L,"QUIT",I)
:If F=24 and H-1\>=\1
:H-1\->\H
:If F=26 and H+1\<=\16
:H+1\->\H
:If F=25 and G-1\>=\2
:G-1\->\G
:If F=34 and G+1\<=\8
:G+1\->\G
:If [E](G-1,H)=1
:Then
:0\->\[E](G-1,H)
:E+1\->\E
:I+1\->\I
:If fPart (E/10)=0
:D+1\->\D
:End
:J\->\L
:K\->\M
:If J<G and J+1\<=\8
:J+1\->\J
:If K<H and K+1\<=\16 and L=J
:K+1\->\K
:If J>G and J-1\>=\2
:J-1\->\J
:If K>H and K-1\>=\1 and L=J
:K-1\->\K
:If [E](J-1,K)=1
:Then
:L\->\J
:M\->\K
:End
:Output(G,H,"C")
:If G=J and H=K
:Then
:D-1\->\D
:16\->\K
:8\->\J
:End
:Output(J,K,"\pi\")
:If I=C
:Goto K
:End
:Goto I
:Lbl N
:ClrHome
:CoordOn
:AxesOn
:ZStandard
:0\->\A
:0\->\B
:55\->\E
:94\->\F
:0\->\L
:Menu("CALC SNAKES","PLAY",O,"",Q,"HELP",M,"MENU",A)
:Lbl M
:ClrHome
:Disp "     -HELP-","USE THE ARW KEYS"," TO MOVE AROUND","AND GET THE
D\#\
OTS","P/Q: PAUSE/QUIT","","  PRESS  ENTER"
:Pause 
:Goto N
:Lbl Q
:Repeat A\>=\0 and A\<=\9
:ClrHome
:Disp "LEVEL SELECTOR"
:Input "(0-9): ",A
:End
:Lbl O
:A+1\->\A
:A*2\->\I
:ClrHome
:Disp "  CALC  SNAKES","LEVEL:",A,"DOTS TO GET:",I,"","  PRESS  ENTER"
:If A\<>\11
:Pause 
:0\->\Xmin
:94\->\Xmax
:0\->\Ymin
:62\->\Ymax
:1\->\Xscl
:1\->\Yscl
:CoordOff
:AxesOff
:GridOff
:LabelOff
:PlotsOff 
:ClrDraw
:If A>10
:Then
:Disp "  CALC  SNAKES",""," WOW YOUR GOOD!","","   GAME OVER!",""," 
PR\#\
ESS  ENTER"
:Pause 
:Goto N
:End
:Horizontal 0
:Vertical 0
:Horizontal 55
:Vertical 94
:Text(0,2,"LEVEL: ",A,"/10")
:If A=1 or A=5 or A=6 or A=9
:Line(26,28,73,28)
:If A=2 or A=4 or A=7 or A=8 or A=9
:Then
:Line(26,14,26,42)
:Line(73,14,73,42)
:End
:If A=3 or A=5 or A=6 or A=8 or A=9
:Then
:Line(26,14,73,14)
:Line(26,42,73,42)
:End
:If A=4 or A=7 or A=9
:Line(47,14,47,42)
:If A=6
:Then
:Line(26,14,26,28)
:Line(73,28,73,42)
:End
:If A=7
:Then
:Line(26,14,47,14)
:Line(47,42,73,42)
:End
:If A=8 or A=9
:Then
:Line(42,42,52,42,0)
:Line(42,14,52,14,0)
:Line(26,23,26,32,0)
:Line(73,23,73,32,0)
:End
:If A=10
:Then
:Circle(47,28,15)
:Circle(47,28,25)
:For(\@\,10,80)
:Text(32,\@\," ")
:End
:End
:10\->\B
:4\->\C
:0\->\F
:0\->\J
:0\->\K
:26\->\E
:getKey\->\D
:Lbl P
:Repeat B\<=\7 or B\>=\62 or C\<=\0 or C\>=\94 or (K\<>\0 and
pxl-Test(\#\
B,C)=1)
:Text(0,55,"DOTS:",J,"/",I)
:Pxl-On(B,C)
:0\->\D
:getKey\->\D
:If D=24 or D=25 or D=26 or D=34 or D=73 or D=74
:Then
:D\->\E
:K+1\->\K
:End
:If E=25
:B-1\->\B
:If E=26
:C+1\->\C
:If E=34
:B+1\->\B
:If E=24
:C-1\->\C
:If E=74 or E=73
:Then
:0\->\K
:0\->\E
:Menu("PAUSE","UN-PAUSE",P,"QUIT",N)
:End
:If F=0 and J<I
:Then
:Repeat F=1
:iPart (55)rand+7\->\G
:iPart (91)rand+2\->\H
:If pxl-Test(G,H)\<>\1 and pxl-Test(G-1,H)\<>\1 and
pxl-Test(G+1,H)\<>\\#\
1 and pxl-Test(G,H-1)\<>\1 and pxl-Test(G,H+1)\<>\1
:Then
:Pxl-On(G,H)
:1\->\F
:End
:End
:End
:If G=B and H=C
:Then
:J+1\->\J
:0\->\F
:0\->\K
:End
:If J\>=\I
:Goto O
:End
:ClrHome
:Disp "  CALC  SNAKES",""," OUCH THAT HURT","","   GAME OVER!",""," 
PR\#\
ESS  ENTER"
:Pause 
:Goto N
:Lbl \@\
:ClrHome
\STOP82\