TILEMASTER2004 DATA V1
SCRIPT: 40
0 Check NOWINDMAP == 1 50
0 Message "CHOOSE: NORTH, EAST, SOUTH, WEST, CALM"
0 CMessage "WHICH? "
0 AddKeyWords N 1 UP 1 E 2 RIGHT 2 S 3 DOWN 3 W 4 LEFT 4 C 5
0 DoKeyInput
0 Message "NONE!"
0 GOTO 40
1 Message "NORTH"
0 SetWind N
0 GOTO 10
2 Message "EAST"
0 SetWind E
0 GOTO 10
3 Message "SOUTH"
0 SetWind S
0 GOTO 10
4 Message "WEST"
0 SetWind W
0 GOTO 10
5 Message "CALM"
0 SetWind CALM
0 GOTO 10
10 CheckFlagSwitch SFLAG  0 20  1 21  2 22
20 SetWindCount 10
0 GOTO 30
21 SetWindCount 1
0 GOTO 30
22 SetWindCount 30
0 GOTO 30
30 FX 3 104
0 BREAK
40 BREAK ABORT
50 Message "Not here!"
0 BREAK ABORT
