∞ Top Gun ∞

Cls
Norm
CoordOff
GridOff
AxesOff
LabelOff
0->A~Z
4->H
Clrtext
Locate 7,4,"JL VANIER"
For 1->A To 400
Next
Clrtext
Locate 7,4,"PRESENTS"
For 1->A To 400
Next
Locate 7,4," " (8 spaces)
Locate 5,1,"=============" (13 ='s)
Locate 1,2,">>>~T~O~P~~~G~U~N~<<<" (~ => 1 SPACE)
Locate 5,3,"=============" (13 ='s)
Locate 1,5,"xxxxxxxxxxxxxxxxxxxxx" (multiplication symbol 21x)
Locate 1,7,"xxxxxxxxxxxxxxxxxxxxx" (multiplication symbol 21x)
Lbl A
If Getkey=31
Then ClrText
Goto E
IfEnd
2->Y~Z
Lbl D
Locate 1,6,"THE ULTIMATE FIGHTING"
Y-1->Y
Y=/=0=>Goto D
Lbl C
Locate 1,6," " (21 spaces)
Z-1->Z
Z=/=0=>Goto C
Goto A
Lbl E
0->C~D
15000->L
50->U~V
O->J~K
0->S
0->M~N
0->@
0->r
2700->P
127Ran#->E
96Ran#->F
Locate 7,1,"MAIN MENU"
Locate 7,2,"*********" (9 *'s)
Locate 7,4,"PLAY NOW"
Locate 7,5,"CREDITS"
Locate 7,6,"HELP"
Locate 7,7,"EXIT"
Getkey->@ (@=theta symbol)
@=28=>H>4=>H-1->H
@=37=>H<7=>H+1->H
@=31=>H=4=>Clrtext
@=31=>H=4=>Goto W
@=31=>H=5=>ClrText
@=31=>H=5=>Goto X
@=31=>H=6=>ClrText
@=31=>H=6=>Goto Y
@=31=>H=7=>Goto Z
For 1->A To 20+H
Next
Locate 7,H," " (8 spaces)
Goto E
Lbl X
Locate 1,1,"~~~~~~~CREDITS~~~~~~~~" (7~'s/8~'s)
Locate 8,3,"TOP GUN"
Locate 1,4,"THE ULTIMATE FIGHTING"
Locate 3,5,"BY JEAN-LUC VANIER"
Locate 6,6,"VERSION 2.0"
Locate 2,7,"(C) COPYRIGHT 1998"
If Getkey=31
Then ClrText
Goto E
Else Goto X
IfEnd
Lbl Y
Locate 1,1,"~~~~~~~~~help~~~~~~~~~" (9~'s/9~'s)
Locate 1,3,"ARROWS->MOVE F6->PAUSE" (2 spaces)
Locate 1,4,"+/-->SPEED OPTN->FLARE" (2 spaces)
Locate 1,5,"SHIFT->MISL ALPHA->LOCK" (1 space)
Locate 1,6,"EXIT->QUIT"
If Getkey=31
Then ClrText
Goto E
Else Goto Y
IfEnd
Lbl Z
Cls
ClrText
Stop
Lbl W
Cls
RclPict 1
If B=0
Then ViewWindow 1,127,0,1,96,0
F-Line 1,25,127,25
F-Line 1,27,127,27
F-Line 40,25,1,96
F-Line 41,25,2,96
F-Line 87,25,127,96
F-Line 86,25,126,96
F-Line 60,50,66,50
F-Line 63,47,63,53
F-Line 22,1,22,25
F-Line 23,1,23,25
F-Line 105,1,105,25
F-Line 104,1,104,25
F-Line 35,13,35,24
F-Line 78,25,78,13
F-Line 82,25,82,13
F-Line 78,19,82,19
F-Line 47,13,47,24
F-Line 93,25,93,13
F-Line 105,13,105,24
F-Line 24,13,104,13
Orange F-Line 49,28,49,74
Orange F-Line 49,74,76,74
Orange F-Line 76,74,76,28
Orange F-Line 50,71,52,71
Orange F-Line 50,64,52,64
Orange F-Line 50,56,52,56
Orange F-Line 50,48,52,48
Orange F-Line 50,41,52,41
Orange F-Line 50,33,52,33
Orange F-Line 75,71,73,71
Orange F-Line 75,64,73,64
Orange F-Line 75,56,73,56
Orange F-Line 75,48,73,48
Orange F-Line 75,41,73,41
Orange F-Line 75,33,73,33
Text 50,5,"ALT:"
Text 50,110,"SPD:"
Text 49,51,"STATUS"
StoPict 1
1->B
IfEnd
Lbl r
Orange Text 49,26,K
Orange Text 49,38,O
Orange Text 49,84,M
Orange Text 49,95,S
If C=1
Then Orange F-Line 79,24,81,24
Orange F-Line 79,22,81,22
Orange F-Line 79,21,81,21
J+1->J
IfEnd
L<10000=>Orange Text 58,17," " (1 space)
L<1000=>Orange Text 58,12," " (5 spaces)
Orange Text 58,2,L
P<1000=>Orange Text 58,108," " (4 spaces)
Orange Text 58,108,P
Green F-Line 1,U,127,V
If F>28
Then PlotOff E,F
PlotOn E,F
PlotOff E,F
IfEnd
Getkey->G
G=28=>U<90=>U+10->U
G=28=>V<90=>V+10->V
G=28=>Goto W
G=37=>U>30=>U-10->U
G=37=>V>30=>V-10->V
G=37=>Goto W
G=38=>U=30=>V=30=>U+10->U
G=38=>U=90=>V=90=>V-10->V
G=38=>U=30=>V=90=>V-10->V
G=38=>U>30=>U<90=>U+10->U
G=38=>V>30=>V<90=>V-10->V
G=38=>Goto W
G=27=>U=30=>V=30=>V+10->V
G=27=>U=90=>V=90=>U-10->U
G=27=>U=90=>V=30=>U-10=>U
G=27=>U>30=>U<90=>U-10=>U
G=27=>V>30=>V<90=>V+10->V
G=27=>Goto W
If U>50 And V>50
Then L-100->L
F+4Ran#+1->F
IfEnd
If U<50 And V<50 And L<30000
Then L+100->L
F-4Ran#-1->F
IfEnd
U>50=>V<50=>E+4Ran#+1->E
U<50=>V>50=>E-4Ran-1->E
G=29=>Goto M
G=77=>Goto N
G=68=>C=1=>Goto L
If G=68 And C=0
Then Orange Text 58,30," FLARE LAUNCHED " (1 space/3 spaces)
Orange Text 58,30," FLARE LAUNCHED " (1 space/3 spaces)
For 1->A to 200
Next
Orange Text 58,30," " (18 spaces)
S+1->S
0->C
IfEnd
If G=78
Then Orange Text 58,30,"MISSILE LAUNCHED"
Orange Text 58,30,"MISSILE LAUNCHED"
For 1->A to 200
Next
Orange Text 58,30," " (17 spaces)
M+1->M
IfEnd
G=47=>ClrText
G=47=>Goto R
G=42=>P=<3500=>P+100->P
G=32=>P>=800=>P-100->P
C=/=1=>300Ran#->R
C=/=1=>R=<5=>Goto I
J=10=>Goto U
L=<0=>Goto F
N+1000->N
10Ran#->r
r=<5=>-1->r (negative symbol)
r>5=>1->r
L<30000=>L+Int 25rRan#->L
P>700=>P<3600=>P+Int 20rRan#->P
U<50=>V<50=>P>=800=>P-Int 100Ran#->P
U>50=>V>50=>P=<3500=>P+Int 50Ran#->P
E+6Ran#-3->E
F+6Ran#-3->F
Goto r
Lbl K
Cls
Graph Y>0
Graph Y<0
Text 12,46,"GAME OVER"
Text 22,47,"DESTROYED"
Text 41,42,"SCORE:"
Text 48,42,"BEST:"
N>Mat T[1,1]=>N->Mat T[1,1]
Orange Text 41,70,N
Orange Text 48,70,Mat T[1,1]
Stop
Lbl M
Orange Text 58,30," " (17 spaces)
Text 58,50,"PAUSED"
Text 58,50," " (6 spaces)
If Getkey=31
Then Goto W
Else Goto M
IfEnd
Lbl R
Locate 1,1,"EXIT:"
Locate 1,3,"1->MAIN MENU"
Locate 1,4,"2->QUIT GAME"
Locate 1,5,"3->BACK TO GAME"
If Getkey=72
Then ClrText
4->H
Goto E
IfEnd
If Getkey=62
Then ClrText
Cls
0->A~Z
Stop
IfEnd
Getkey=52=>Goto r
Goto R
Lbl F
Cls
Graph Y>0
Graph Y<0
Text 12,46,"GAME OVER"
Text 22,50,"CRASHED"
Text 41,42,"SCORE:"
Text 48,42,"BEST:"
N>Mat T[1,1]=>N->Mat T[1,1]
Orange Text 41,70,N
Orange Text 48,70,Mat T[1,1]
Stop
Lbl I
Orange Text 58,30,"MISSILE DETECTED " (3 spaces after)
Orange Text 58,30,"MISSILE DETECTED " (3 spaces after)
For 1->A To 200
Next
Orange Text 58,30," " (19 spaces)
1->C
Goto r
Lbl L
Orange Text 58,30," FLARE LAUNCHED " (1 space/1 space)
Orange text 58,30," FLARE LAUNCHED " (1 space/1 space)
For 1->A To 200
Next
0->C
S+1->S
Int 20Ran#->A
A=<4=>Goto U
Orange Text 58,30," MISSILE AVOIDED " (1 space/2 spaces)
Orange Text 58,30," MISSILE AVOIDED " (1 space/2 spaces)
For 1->A To 200
Next
Orange Text 58,30," " (17 spaces)
N+10000->N
0->J
Goto 2
Lbl U
0->C
0->J
ClrText
Orange Text 58,30," YOU ARE HIT " (2 spaces/3 spaces)
Orange Text 58,30," YOU ARE HIT " (2 spaces/3 spaces)
N-5000->N
O+Int 20Ran#+10->O
For 1->A To 200
Next
O>=100=>Goto K
Orange Text 58,30,"PLANE DAMAGE:"
Orange Text 58,88,O
Orange Text 58,88,O
For 1->A To 200
Next
Orange Text 58,30," " (17 spaces)
Lbl 2
PlotOff 79,24
PlotOff 79,22
PlotOff 79,21
PlotOff 80,24
PlotOff 80,22
PlotOff 80,21
PlotOff 81,24
PlotOff 81,22
PlotOff 81,21
Goto r
Lbl N
If E>=60 And E=<66 And F>=47 And F=<53
Then Orange Text 58,30," TARGET LOCKED " (2 spaces/3 spaces)
Orange F-Line 79,18,81,18
Orange F-Line 79,16,81,16
Orange F-Line 79,15,81,15
Else Goto r
IfEnd
If Getkey=78
Then Goto 7
Else Goto N
IfEnd
Lbl 7
Orange Text 58,30,"MISSILE LAUNCHED"
Orange Text 58,30,"MISSILE LAUNCHED"
For 1->A To 200
Next
Int 10Ran#->A
If A=<6
Then Orange Text 58,30,"TARGET DESTROYED " (2 spaces after)
Orange Text 58,30,"TARGET DESTROYED " (2 spaces after)
For 1->A To 200
Next
Orange Text 58,30," " (18 spaces)
M+1->M
K+1->K
N+50000->N
127Ran#->E
96Ran#->F
Goto 3
IfEnd
If A>6
Then Orange Text 58,30," TARGET MISSED " (1 space/3 spaces)
Orange Text 58,30," TARGET MISSED " (1 space/3 spaces)
For 1->A To 200
Next
Orange Text 58,30," " (17 spaces)
M+1->M
N-10000->N
Lbl 3
PlotOff 79,18
PlotOff 79,16
PlotOff 79,15
PlotOff 80,18
PlotOff 80,16
PlotOff 80,15
PlotOff 81,18
PlotOff 81,16
PlotOff 81,15
Goto r
IfEnd

Instruções

Use as teclas direccionais para movimentar.

Os sinais '+' e '-' para alterar a velocidade.

A tecla SHIFT para disparar o míssil.

A tecla ALPHA para bloquear o inimigo.

A tecla OPTN para disparar.

A tecla EXIT para sair.

A tecla F6 para pausar o jogo.