TILEMASTER2004 DATA V1
SCRIPT: 75
0 CheckFlagSwitch SFLAG  0 60  1 70
10 M "ERROR (settlement script): Invalid SFLAG"
0 BREAK INC
11 CheckFlagSwitch SFLAG  0 61  1 71
0 GOTO 10
60 M "You enter a large village"
0 AddKeyWords 1 20 2 30 3 40
61 M "Where would you like to go:"
0 M "1: Food shop"
0 M "2: Inn"
0 M "3: Pub"
0 M "(<RETURN> to exit)"
0 DoStringInput -PROMPT -ITAG 61
62 M "You leave the village"
0 BREAK INC
70 M "You enter a small town"
0 AddKeyWords 1 20 2 30 3 40 4 50
71 M "Where would you like to go:"
0 M "1: Food shop"
0 M "2: Inn"
0 M "3: Pub"
0 M "4: Shrine"
0 M "(<RETURN> to exit)"
0 DoStringInput -PROMPT -ITAG 71
72 M "You leave the town"
0 BREAK INC
20 M "You enter the shop and speak to the merchant."
1 M "What would you like:"
0 Buy 7
0 CM "Anything else? "
0 Verify P1
0 M "You leave the shop"
0 Pause
0 CM -NL
0 GOTO 11
30 M "You enter the inn and speak to the innkeeper."
0 CM "A room is 5 gp, ok? "
0 Verify 33
31 M "Good day"
32 M "You leave the inn"
0 Pause
0 CM -NL
0 GOTO 11
33 Pay 5 31
0 M "Enjoy your stay!"
0 Pause
0 M "Although the accommodations could be a little better, you are still reasonably comfortable and it is nice to sleep on a bed."
0 Pause
0 CM "You drift off"
0 Script 500
34 CM -NL
0 M "You wake up well-rested."
0 GivePCMB 2 10 20
0 Heal 8% SKIPNE
0 GiveSP 80%
0 GOTO 32
40 M "You enter the pub and speak to the barkeep."
0 Script 116
0 M "You leave the pub"
0 Pause
0 CM -NL
0 GOTO 11
50 M "You enter the shrine and speak to the cleric."
0 Script 115
0 M "You leave the shrine"
0 Pause
0 CM -NL
0 GOTO 11
