送贝声望.txt

stoneage free server patch

'小明制作  修正于2004/8/18
msg 注意:由于脚本支持断线重登处理，请设置好登陆服务器和人物.

ifitem 1,=,萨姆吉尔,+4
cls
print 请在道具1位放上萨姆吉尔村的精灵羽毛！
end
ifitem 2,=,不可思议的贝壳,+6
ifitem 2,=,仙尼亚的花,+5
ifitem 2,=,空位,+4
cls
print 请清空道具2位！
end

log 1
waitmap 2000,5,+2
goto +4
cls
print 你必须在渔村记录点登记，才能运行脚本！
end


goto +5
'
label xx1
log 1
waitmap 2000,30,xx1
delay 250
ifpos 65,58,+2
goto xx1
ifstone >=,2000,+2
load 990000
ifitem ?,=,仙尼亚的花,xx2
ifitem ?,=,不可思议的贝壳,xx2
w 65,58,gg
w 63,58,ff
w 61,60,ee
w 61,62,ee
w 61,64,ee
w 61,66,ee
w 61,68,ee
w 61,70,fe
w 60,72,fe
w 59,74,fe
w 58,76,fe
w 57,78,fe
w 56,80,fe
w 55,82,ee
w 55,84,ee
w 55,86,ee
w 55,88,ee
w 55,90,e
w 55,91,*E
delay 1200,1
say saqz,,55,91
waitdlg ?,0,30,+4
ifdlg 有点事情想拜托你,1,+13
ifdlg 是不是不太可能,1,+6
goto xx1
cls
say hi,,55,91
waitsay 1-20,弥生: 你好啊,30,xx1
goto xx2
waitdlg 是不是不太可能,1,30,xx1
button *确定,55,91
'waitdlg 我知道了,1,30
'button *OK,55,91
delay 1200,1
say saqz,,55,91
waitdlg 有点事情想拜托你,1,30,xx1
button *确定,55,91
'waitdlg 希望你,1,30
'button *OK,55,91
'
goto xx2


label err
log 0
'
label .log.  '重登后处理
waitdlg 石器时代online石头就业所,1,30,err
button OK
delay 250
ifmap 2000,xx1  '在渔村
ifmap 1000,+4      '在萨村
log 2  '原地登出
msg 错误地图，中止处理。
end
ifitem 1,=,萨姆吉尔,xx2
ifpos 92,99,+16
ifpos 92,100,+16
ifpos 92,101,+16
ifpos 93,101,+16
goto err
'
'
label xx2
useitem 1
waitmap 1000,30,xx2
delay 250
ifpos 92,99,+2
goto xx2
ifstone >=,2000,+2
call load
'
w 92,99,e
w 92,100,e
w 92,101,c
w 93,101,*C
delay 1200,1
say 买,,93,101
waitdlg 少女,1,30,err
buy 1,1,93,101
waititem 1,萨姆吉尔,30,-2
button 取消,93,101
'
w 93,101,gg
w 91,101,gg
w 89,101,gg
w 87,101,ff
w 85,103,ff
w 83,105,ff
w 81,107,ff
w 79,109,ff
w 77,111,fe
w 76,113,fe
w 75,115,fe
w 74,117,fe
w 73,119,fe
w 72,121,ff
w 70,123,fg
w 68,124,gg
w 66,124,gg
w 64,124,gg
w 62,124,gg
w 60,124,gg
w 58,124,*G
ifitem ?,=,仙尼亚的花,+2
goto +2
doffitem 仙尼亚的花,58,124
delay 1200,1
button 取消,58,124
say hi,,58,124
waitdlg ?,0,30,+4
ifdlg 咦,1,+7
ifdlg 哎呀,1,+15
goto xx2
cls
say saqz,,58,124
waitsay 1-20,日美子: 今天天气也不错呢,30,xx2
goto xx1
waitdlg 咦,1,30,xx2
button *确定,58,124
'waitdlg 谢谢你,1,30
'button *OK,58,124
delay 100
button *OK,58,124,430
doffitem 2,58,124
delay 1200,1
say saqz,,58,124
waitdlg 哎呀,1,30,xx2
button *确定,58,124
'waitdlg 我在等,1,30
'button *OK,58,124
'
goto xx1


label load
load 990000
delay 5000
ifstone <,2000,+2
return
log 2
msg 没钱了，脚本结束！
end