_________________________________________________________________________
Title: X-Wing Gold
Version: v1.0
Author: Derek Cross (derekcross@hotmail.com)
Size: 2297 bytes
Model: 9850+
Description:
Based off of Peter Pizzo's X-WING game. The original was kinda' lame, so
I juiced it up a bit. Now has a PAUSE feature, scoring/highscoring feature,
smoother animation, amongst other things.
IMPORTANT: In List 1, you must enter 0's in the first 2 slots. This
allows the highscore feature to work.
Controls:
< Arrow Key to move left
> Arrow Key to move right
[SHIFT] Key to Fire
[OPTN] Key to fire E.M. Pulse (freezes enemy's guns)
[EXE] Key to pause ([EXE] again to unpause)
_________________________________________________________________________
Program :
ClrText
For 1 --> A To 250
Next
Locate 7,3,"D. Cross"
Locate 7,5,"PRESENTS"
For 1 --> A To 350
Next
For 1 --> A To 7
Locate 1,A,"*********************" // 21 *'s
Next
For 1 --> A To 550
Next
Locate 3,4,"LONG,LONG AGO..."
For 1 --> A To 450
Next
Locate 3,4,"****************" // 16 *'s
Locate 3,3,"IN A GALAXY FAR,"
Locate 6,4,"FAR AWAY..."
For 1 --> A To 450 Next
Locate 3,3,"****************" // 16 *'s
Locate 6,4,"***********" // 11 *'s
For 7 --> A To 2 Step -1
Locate 7,A,"STAR WARS"
Locate 7,A,"*********" // 9 *'s
Next
Locaate 7.1."STAR WARS"
Foor 1 --> A To 7
Locate A,3,"*X-WING"
Next
For 21 --> A To 9 Step -1
Locate A,5,"GOLD*"
Next While Getkey =\= 31
Locate 6,7,"PRESS [EXE]"
Locate 6,7," * " // 5 spaces to the '*'
WhileEnd
0 --> A~Z
ClrText
" DIFFICULTY" // 5 spaces to the 'D'
Orange " ~~~~~~~~~~~~" // 4 spaces to the '~'; 12 ~'s
"1 ==> LEIA"
"2 ==> HAN"
"3 ==> CHEWIE"? --> @ // @ is the Theta symbol
If @=1
Then 8 --> B
7 --> Y
IfEnd
If @=2
Then 6 --> B
10 --> Y
IfEnd
If @=3
Then 4 --> B
15 --> Y
IfEnd
0 --> r
0 --> @
3 --> R
10 --> M
2500 --> E
ClrText
Lbl Q
0 --> D
0 --> P
0 --> H
0 --> I
0 --> U
0 --> V
0 --> Q
5 --> K
9 --> X
Int 17Ran#+2 --> A
A <= 2 ==> Goto Q
A >= 20 ==> Goto Q
A>9 ==> 1 --> D
A <= 9 ==> 0 --> D
While 1
Goto 1
Lbl P
1 --> K
Lbl 1
Q+1 --> Q
Locate A,1," " // 3 spaces between the ""
D=0 ==> A+1 --> A
D=1 ==> A-1 --> A
If A=19
Then 1 --> D
18 --> A
IfEnd
If A=2
Then 0 --> D
3 --> A
IfEnd
If V=0
Then Locate A,1,"[-]"
IfEnd
If Q=B And V=0
Then Locate A,2," " // 3 spaces between the ""
K=0 ==> Goto P
For 2 --> T To 6
Locate A,T,". ."
Locate A,T,". ."
Locate A,T," " // 3 spaces between the ""
Next
If A+1=X Or A+1=X+1 Or A+1=X+2
Then Locate X,7," " // 3 spaces between the ""
Goto 2
IfEnd
0 --> Q
IfEnd
If V=1 Then Int 17Ran#+2 --> A
0 --> V
0 --> Q
IfEnd
Locate X,7,">^<"
If Getkey=38
Then Locate X,7," " // 3 spaces between the ""
X =\= 1 ==> X-1 --> X
X=2 ==> 2 --> X
IfEnd
If GetKey=27
Then Locate X,7," " // 3 spaces between the ""
X =\= 19 ==> X=1 --> X
X=19 ==> 19 --> X
IfEnd
Locate X,7,">^<"
If Getkey=78
Then For 6 --> T To 2 Step -1
Locate X,T,"! !"
Locate X,T,"! !"
Locate X,T," " // 3 spaces between the ""
Next
If X+1=A Or X+1=A+1 Or X+1=A+2
Then Locate A,1," * " // 1 space on both sides of the *
Locate A,1,"***"
Locate A,1,"* *"
Locate A,1," " // 3 spaces between the ""
1 --> V
P+1 --> P
If X+1=A+1
Then S+2 --> S
Else S+1 --> S
IfEnd
IfEnd
P=Y ==> Goto W
IfEnd
If M=0 And H=0
Then 1 --> H
For 1 --> T To 3
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4,"FREEZE-RAYS DEPLETED"
Locate 2,4," " // 20 spaces between the ""
Next
IfEnd
If Getkey=68 And M>0
Then For 1 --> T To 3
Locate X,6," @"
Locate X,6," @ "
Locate X,6,"@ "
Locate X,6," @ "
Next
Locate X,6," " // 3 spaces between the ""
0 --> K
M-1 --> M
M=0 ==> 0 -->H
Goto 1
IfEnd
If Getkey=31
Then for 1 --> T To 9
cos 5
Next
While Getkey =\= 31
Locate 8,4,"PAUSED"
WhileEnd
Locate 8,4," " // 8 spaces between the ""
IfEnd
If 130S >= E
Then R+1 --> R
For 1 --> T To 8
Locate 9,4,"1 UP"
Next
Locate 9,4," " // 4 spaces between the ""
2E --> E
IfEnd
WhileEnd
Lbl 2
X+1 --> V
For 0 --> X To 3
Locate V-X,7-X,"*"
Locate V+X,7-X,"*"
Locate V,7-X,"*"
Locate V+X,7,"*"
Locate V-X,7,"*"
Next
For 0 --> X To 3
Locate V-X,7-X," "
Locate V+X,7-X," "
Locate V,7-X," "
Locate V+X,7," "
Locate V-X,7," "
Next
R-1 --> R
R=0 ==> Goto E
ClrText
Locate 7,4,"LIVES:"
Locate 14,4,R
For 1 --> T To 350
Next
ClrText
Goto Q
Lbl W
Locate 4,4,"WAVE COMPLETE"_ // _ is the Disp symbol
ClrText
Locate 6,4,"NEXT WAVE"
For 1 --> T To 350
Next
ClrText
Locate 8,4,"READY"
For 1 --> T To 350
Next
ClrText
Locate 9,4,"GO!"
For 1 --> T To 150
Next
ClrText
I+1 --> I
I=3 ==> M+10 --> M
I=3 ==> 1 --> I
Goto Q
Lbl E
130S --> S
ClrText
Locate 1,3,"YOUR SCORE ==>"
Locate 13,1,S
Dim List 1 --> V
Locate 1,5,"HIGHSCORE ==>"
S --> List 1[(Dim List 1)-1]
SortA(List 1)
Dim List 1 --> S
Locate 12,5,List 1[V]_
If S=List 1[V]
Then For 1 --> T To 50
Locate 6,7," " // 13 spaces between the ""
Locate 4,7,"NEW HIGHSCORE"
Next
IfEnd
ClrText
_________________________________________________________________________