36 lines
427 B
Text
36 lines
427 B
Text
|
Filename:SINK-GC
|
||
|
If N=0
|
||
|
Then ClrText
|
||
|
"Player 1..."
|
||
|
2->L
|
||
|
Prog "S-TIMER"
|
||
|
0->T
|
||
|
0->P
|
||
|
Prog "SINK-SS"
|
||
|
ClrText
|
||
|
"Player 2..."
|
||
|
2->L
|
||
|
Prog "S-TIMER"
|
||
|
21->T
|
||
|
21->P
|
||
|
Prog "SINK-SS"
|
||
|
0->Mat H[6,43]
|
||
|
IfEnd
|
||
|
ClrText
|
||
|
"Game starting..."
|
||
|
2->L
|
||
|
Prog "S-TIMER"
|
||
|
Do
|
||
|
T->Mat H[6,43]
|
||
|
1->U
|
||
|
Prog "SINK-CP"
|
||
|
ClrText
|
||
|
"Next player get ready"
|
||
|
2->L
|
||
|
Prog "S-TIMER"
|
||
|
Prog "SINK-YT"
|
||
|
LpWhile W=0
|
||
|
If W=666
|
||
|
Then Prog "SINK-WIN"
|
||
|
IfEnd
|
||
|
Return
|