36 lines
No EOL
427 B
Text
36 lines
No EOL
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 |