医院加魅力.txt

stoneage free server patch

ifmap 3005,+6  '加村
ifmap 2005,+7  '鱼村
ifmap 1005,+8  '萨村
cls
print 请在加村医院(13,14)或渔村医院(18,15)或萨村医院(24,15)使用脚本！ 
end
ifpos 13,14,+6
goto -4
ifpos 18,15,+6
goto -6
ifpos 24,15,+6
goto -8
w 13,14,A
goto +4
w 18,15,C
goto +2
W 24,15,C

LABEL XX
check 人物,魅力,=,100,OK
say hi
waitdlg 美容师,1,60
button 2
waitdlg 美容师,1,60
button 确定
waitdlg 美容师,1,60
button OK
delay 1000
GOTO XX

LABEL OK
cls
print 你的魅力满了.
end