%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:997
File Name:EGGSHOOT
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\File1
\ClrText
0\->K:0\->O:0\->P:15\->Q:\Cls
\Orange "~~~~~Eggshooting~~~~~"
"\Rby \microali"
"\-> hit any key"
"active eggs ?"
"[alpha=yes]"
\Do
\Getkey\->O
\LpWhile O=0
O=77\=>1\->K
\ClrText
\Orange " "
0\->A
0\->T
200\->G
11\->B
\Int (18\Ran#)+2\->M
\Int (18\Ran#)+2\->N
\Locate M,2,"\Deg>"
\Locate N,2,"\Deg>"
\Locate 9,1,"sc\ore"
\Locate B,7," ^ "
\Do
K=0\=>\Goto5
P+1\->P
\If P=25
\Then 0\->P
\Locate M,2," "
\Int (19\Ran#)+2\->M
\Locate M,2,"\Deg>"
\IfEnd
Q+1\->Q
\If Q=25
\Then 0\->Q
\Locate N,2," "
\Int (19\Ran#)+2\->N
\Locate N,2,"\Deg>"
\IfEnd
\Lbl 5
G-1\->G
G=0\=>\Goto9
G=99\=>\Locate 1,1,"   "
G=9\=>\Locate 1,1,"  "
\Locate 1,1,G
\Getkey\->A
\If A
\Then \If A=78
\Then \Locate 1,4,"pause (F1 TO RESUME)"
\Do
\LpWhile \Getkey\<>79
\Locate 1,4,"                    "
\Goto6
\IfEnd
A=27\=>B+1\->B
A=38\=>B-1\->B
B>20\=>1\->B
B<1\=>20\->B
\Locate B,7," ^ "
B=1\=>\Locate 21,7," "
B=20\=>\Locate 2,7," "
\If A=77
\Then \For 5\->C \To 2 \Step \(-)1
C=4\ Or C=2\=>\Locate B+1,C,"*":C=5\ Or C=3\=>\Locate B+1,C,"+"
\Locate B+1,C+1," "
\Next 
\Locate B+1,C," "
B+1\<>21\=>\Locate B+2,C+1,"\aster"
\Locate B,C+1,"\aster"
\If B+1\<>21
\Then \Locate B,C+1,"   "
\Else \Locate B,C+1," "
\IfEnd
\If B+1=M
\Then \Int (19\Ran#)+2\->M
\Locate 15,1,1+T
\Locate M,2,"\Deg>"
0\->P
T+1\->T
\IfEnd
\If B+1=N
\Then \Int (19\Ran#)+2\->N
\Locate 15,1,T+1
\Locate N,2,"\Deg>"
0\->Q
T+1\->T
\IfEnd
\IfEnd
A=78\=>\Break
G=0\=>\Goto9
\Else \For 1\->W \To 50
\Next 
\IfEnd
\Lbl 6
\LpWhile 1=1
\Lbl 9
\ClrText
"death eggs:"
" "
\Locate 6,2,T
\If T>\Max(\List 4)
\Then "new rec\ord"
\Fill(T,\List 4)
\IfEnd
"highsc\ore:"
\Locate 1,5,\Max(\List 4)
\Stop

%End