button 任务日志
dim @ts
let @ts,=,1

msg 《石器so-渔村送贝壳》||达成条件后手动继续：||一，记录在渔村储存点。在村外打到一个乌力斯坦的肉就去图腾处记录。||提醒：||* 接任务、买羽毛时如果没有道具空格、石币则会暂停。
pause
input @ts,请输入选项数字：1，完成任务；2，获得贝壳。,# 选择目的

label 主程序
if @ts,!=,1,+2
check 任务,?,like,*贝壳*已完成*,call R任务已完成
call R回城
walkpos 87,51 
walkpos 85,51 
walkpos 83,51 
walkpos 81,51 
walkpos 80,52 
walkpos 79,53 
walkpos 78,54 
walkpos 77,55 
walkpos 76,56 
walkpos 74,56 
walkpos 72,56 
walkpos 70,56 
walkpos 68,56 
walkpos 66,56 
walkpos 65,57 
walkpos 64,58 
walkpos 63,59 
walkpos 63,61 
walkpos 63,63 
walkpos 63,65 
walkpos 63,67 
walkpos 63,69 
walkpos 63,71 
walkpos 63,73 
walkpos 63,75 
walkpos 63,77 
walkpos 63,79 
walkpos 63,81 
walkpos 63,83 
walkpos 63,85 
walkpos 63,87 
walkpos 63,89 
walkpos 63,91 
walkpos 61,91 
walkpos 59,91 
walkpos 57,91 
walkpos 56,92 
walkpos 56,94 
walkpos 55,95
label C对话接任务
cls
call R检测道具空位
walkpos 54,96 
w 54,96,E 
say 你好，你需要帮忙吗？
delay 500
check 对话,1,=,不太可能,R修复任务
check 对话,1,=,有点事情,R接任务
check 说话,?,like,弥生：你好啊*,R不能接任务

label C送贝壳
if @ts,=,2,+2
check 道具,不可思议的贝壳,<,1,主程序
call R回城
walkpos 88,52 
call R检测道具空位
walkpos 88,53 
w 88,53,D 
say 买东西。
waitdlg 少女,1,1,C送贝壳
buy 2,1
delay 500
check 道具,飞行至萨,>=,1,+4
msg 没有买到羽毛，请检查你的石币。
pause
goto C送贝壳
useitem 飞行至萨
delay 1000
check 地图,编号,!=,1000,C送贝壳
walkpos 90,99 
walkpos 88,99 
walkpos 86,99 
walkpos 84,99 
walkpos 82,99 
walkpos 80,99 
walkpos 78,99 
walkpos 78,101 
walkpos 78,103 
walkpos 78,105 
walkpos 78,107 
walkpos 78,109 
walkpos 78,111 
walkpos 78,113 
walkpos 78,115 
walkpos 77,116 
walkpos 76,117 
walkpos 75,118 
walkpos 74,119 
walkpos 73,120 
walkpos 72,121 
walkpos 71,122 
walkpos 70,123 
walkpos 68,123 
walkpos 66,123 
walkpos 64,123 
walkpos 62,123 
walkpos 60,123 
if @ts,=,2,C来拿贝壳
label C对话交贝壳
walkpos 58,123 
w 58,123,F
if @ts,!=,2,+2
goto C来拿贝壳
say 你好，弥生要把这个贝壳给你。
delay 500
check 对话,1,!=,要给我的,C对话交贝壳
button 确定
delay 500
check 对话,1,!=,这朵花,主程序
button OK
delay 500
check 说话,?,like,交出不可思议的贝壳*,+2
goto 主程序
end

label C来拿贝壳
check 道具,仙尼亚的花,<,1,+2
doffitem 仙尼亚的花
walkpos 58,123 
w 58,123,F
say 你好，今天天气怎么样？
delay 500
check 对话,1,!=,花不见啦,C来拿贝壳
button 确定
delay 500
check 对话,1,!=,生的来信,主程序
button OK
goto 主程序
end

label R记录点错误
beep
msg 你没有记录在渔村储存点。
end

label R接任务
button 确定
delay 500
check 对话,0,!=,?,C对话接任务
button OK
if @ts,=,2,+2
goto C送贝壳
end

label R修复任务
print 接任务。
button 确定
delay 500
check 对话,0,!=,?,R修复任务
button OK
delay 500
say 你好，可以再试一次吗？
delay 500
goto R接任务

label R检测道具空位
ifitem 空位,>=,1,C检测道具空位返回
label 处理空位不足
msg 道具空位不足1个，请处理后继续。
pause
goto R检测道具空位
label C检测道具空位返回
return

label R回城
delay 100
iffight >,0,-1
check 地图,编号,=,2000,+3
log 1
goto +3
check 座标,=,89,51,+2
log 1
waitmap 2000,1,R回城
return

label R不能接任务
if @ts,=,2,C送贝壳
msg 已经完成这个任务。
end

label R任务已完成
msg 外挂检测到你已经完成这个任务，只对检测过的第一个人物有效。|想要使脚本正确的判断任务进度，应该关闭外挂后重新打开。||确认后手动继续或停止。
pause
return