TILEMASTER2004 DATA V1
SCRIPT: 100
0 CheckFlagSwitch SFLAG  1 600
0 Check FP == 1 50
0 CheckZoom ATTACKTYPE 60
0 CheckZoom ACTIVE 30
0 CM "Refill: Well (W), Fountain (F), or None (N)? "
0 AddKeyWords W 100  F 200
0 DoKeyInput
10 M "NONE"
11 BREAK
20 M "INVALID SELECTION"
0 BREAK
30 M "Not here!"
0 BREAK
50 M "Refill using a fountain"
0 GOTO 210
60 CheckTile 11 PC 30
0 CheckTile 4 PC 30
0 CheckTile 3 PC 30
0 GOTO 300
100 M "WELL"
0 M "Select center point (water)"
0 CM "TARGET"
0 SelectTargetEx -TAG 10 -RANGE 2
0 M "SELECT"
0 CheckTile 9 TARGET 20 -NOT
0 CheckTile 29 TARGET 20 -NOT -YOS -1
0 CheckTile 29 TARGET 20 -NOT -YOS 1
0 CheckTile 29 TARGET 20 -NOT -XOS -1
0 CheckTile 29 TARGET 20 -NOT -XOS 1
0 GOTO 500
200 M "FOUNTAIN"
0 Check FP == 1 210
0 CM "TARGET"
0 SelectTargetEx -TAG 10 -RANGE 2
0 M "SELECT"
0 GOTO 220
210 CM "TARGET"
0 SelectTargetEx -TAG 11 -FPMODE 1
0 CM -NL
220 PosItem TARGET -TAG 230 -STOPTRUEONLY -GETGI -CHECKDEF 60 -CHECKDEF 61 -CHECKDEF 62 -CHECKDEF 63 -CHECKDEF 64 -CHECKDEF 69 -CHECKDEF 235
0 CheckTile 36 TARGET 240
0 GOTO 20
230 PosItem TARGET -GETGI -TAG 231 -CHECKUSED 1
0 M "You must try this water before you can take it."
0 PosItem TARGET -GETGI -GSCRIPT -TAG 0 -CHECKUSED 0
0 Pause
231 PosItem TARGET -TAG 232 -STOPTRUEONLY -GETGI -CHECKDEF 61 -CHECKDEF 63
0 M "You have determined that the water is clean."
0 GOTO 500
232 M "You obviously decide not to take this tainted water."
0 BREAK
240 GOTO 500
300 M "Refill using a natural source"
500 CCheckItem 176 == 1 502
501 CM "Refill how many (you have " -ICOUNT TARGET ")? "
0 SelectAmount 0
0 GOTO 505
502 Util -SETAMOUNT 1
505 TakeItemEx 176 -QSA -SHOW -TAG 510
0 GiveItem 42 -QSA -SHOW
0 BREAK
510 M "Invalid amount"
0 Pause
0 GOTO 501
600 CM "Already full; pour out? "
0 Verify 610
601 BREAK ABORT
610 CCheckItem 42 == 1 612
611 CM "How many (you have " -ICOUNT TARGET ")? "
0 SelectAmount 601
0 GOTO 615
612 Util -SETAMOUNT 1
615 TakeItemEx 42 -QSA -SHOW -TAG 620
0 GiveItem 176 -QSA -SHOW
0 BREAK TRM
620 M "Invalid amount"
0 Pause
0 GOTO 611
