(@storage @getback )
%100
[@MAIN]
看来您已经在天关找到宝藏了,你可以将宝藏先寄存在我这里\
别看我不起眼,我找了通往玛法大陆的捷径,想去那里就和我说\
为每一位勇士保管好武器和战斗装备是我的天职\ \
<角色仓库/@角色仓库> \ \
\
<返回/@返回>玛法大陆 <退出/@exit>\
[@返回]
#ACT
GoHome
[@药品仓库]
药品仓库:目前能存取疗伤药包、万年雪霜包,强化生命药剂、\
超级疗伤药、强效万年雪霜包、强效疗伤药包。\
<存取疗伤药包、万年雪霜包/@仓库1>\ \
<存取强化生命药剂/@仓库2> <存取强效万年雪霜包/@仓库3>\
<存取超级疗伤药/@仓库4> <存取强效疗伤药包/@仓库5>\
<存取疗伤药包(任务)/@仓库6>\ \
<返回/@MAIN>\
[@仓库6]
#ACT
MOV S1
MOV S2
MOV S2 HUMAN 疗伤药包(任务)
MOV S1 <
INC S1 S2
INC S1 /FColor=56>
#SAY
你储存的疗伤药包(任务)数量为(该药品仓库可储存总量为44):\
疗伤药包(任务):<$STR(S1)>\ \
你想要储存或取回什么药品呢?\ \
<存储疗伤药包(任务)/@仓库61> <取回疗伤药包(任务)/@仓库62>\
<存储5包疗伤药包(任务)/@仓库63> <取回5包疗伤药包(任务)/@仓库64>\ \
<返回/@药品仓库>\
[@仓库64]
#IF
CHECKBAGSIZE 5
#ACT
#ELSEACT
MESSAGEBOX 请预留5格以上包裹空间!
break
#IF
CHECKVAR HUMAN 疗伤药包(任务) > 4
#ACT
GIVE 疗伤药包(任务) 5
CALCVAR HUMAN 疗伤药包(任务) - 5
SAVEVAR HUMAN 疗伤药包(任务) ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库6
break
#ELSEACT
MESSAGEBOX 疗伤药包(任务)可取回数量超过下限!
break
[@仓库63]
#IF
CHECKVAR HUMAN 疗伤药包(任务) < 40
#ACT
#ELSEACT
MESSAGEBOX 疗伤药包(任务)可储存数量超过上限!
break
#IF
checkitem 疗伤药包(任务) 5
#ACT
TAKE 疗伤药包(任务) 5
CALCVAR HUMAN 疗伤药包(任务) + 5
SAVEVAR HUMAN 疗伤药包(任务) ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库6
break
#ELSEACT
MESSAGEBOX 你没有5个疗伤药包(任务)!
break
[@仓库62]
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MESSAGEBOX 请预留1格以上包裹空间!
break
#IF
CHECKVAR HUMAN 疗伤药包(任务) > 0
#ACT
GIVE 疗伤药包(任务) 1
CALCVAR HUMAN 疗伤药包(任务) - 1
SAVEVAR HUMAN 疗伤药包(任务) ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库6
break
#ELSEACT
MESSAGEBOX 疗伤药包(任务)可取回数量超过下限!
break
[@仓库61]
#IF
CHECKVAR HUMAN 疗伤药包(任务) < 44
#ACT
#ELSEACT
MESSAGEBOX 疗伤药包(任务)可储存数量超过上限!
break
#IF
checkitem 疗伤药包(任务) 1
#ACT
TAKE 疗伤药包(任务) 1
CALCVAR HUMAN 疗伤药包(任务) + 1
SAVEVAR HUMAN 疗伤药包(任务) ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库6
break
#ELSEACT
MESSAGEBOX 你没有1个疗伤药包(任务)!
break
[@仓库5]
#ACT
MOV S1
MOV S2
MOV S2 HUMAN 强效疗伤药包
MOV S1 <
INC S1 S2
INC S1 /FColor=56>
#SAY
你储存的强效疗伤药包数量为(该药品仓库可储存总量为44):\
强效疗伤药包:<$STR(S1)>\ \
你想要储存或取回什么药品呢?\ \
<存储强效疗伤药包/@仓库51> <取回强效疗伤药包/@仓库52>\
<存储5包强效疗伤药包/@仓库53> <取回5包强效疗伤药包/@仓库54>\ \
<返回/@药品仓库>\
[@仓库54]
#IF
CHECKBAGSIZE 5
#ACT
#ELSEACT
MESSAGEBOX 请预留5格以上包裹空间!
break
#IF
CHECKVAR HUMAN 强效疗伤药包 > 4
#ACT
GIVE 强效疗伤药包 5
CALCVAR HUMAN 强效疗伤药包 - 5
SAVEVAR HUMAN 强效疗伤药包 ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库5
break
#ELSEACT
MESSAGEBOX 强效疗伤药包可取回数量超过下限!
break
[@仓库53]
#IF
CHECKVAR HUMAN 强效疗伤药包 < 40
#ACT
#ELSEACT
MESSAGEBOX 强效疗伤药包可储存数量超过上限!
break
#IF
checkitem 强效疗伤药包 5
#ACT
TAKE 强效疗伤药包 5
CALCVAR HUMAN 强效疗伤药包 + 5
SAVEVAR HUMAN 强效疗伤药包 ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库5
break
#ELSEACT
MESSAGEBOX 你没有5个强效疗伤药包!
break
[@仓库52]
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MESSAGEBOX 请预留1格以上包裹空间!
break
#IF
CHECKVAR HUMAN 强效疗伤药包 > 0
#ACT
GIVE 强效疗伤药包 1
CALCVAR HUMAN 强效疗伤药包 - 1
SAVEVAR HUMAN 强效疗伤药包 ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库5
break
#ELSEACT
MESSAGEBOX 强效疗伤药包可取回数量超过下限!
break
[@仓库51]
#IF
CHECKVAR HUMAN 强效疗伤药包 < 44
#ACT
#ELSEACT
MESSAGEBOX 强效疗伤药包可储存数量超过上限!
break
#IF
checkitem 强效疗伤药包 1
#ACT
TAKE 强效疗伤药包 1
CALCVAR HUMAN 强效疗伤药包 + 1
SAVEVAR HUMAN 强效疗伤药包 ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库5
break
#ELSEACT
MESSAGEBOX 你没有1个强效疗伤药包!
break
[@仓库4]
#ACT
MOV S1
MOV S2
MOV S2 HUMAN 超级疗伤药
MOV S1 <
INC S1 S2
INC S1 /FColor=56>
#SAY
你储存的超级疗伤药数量为(该药品仓库可储存总量为44):\
超级疗伤药:<$STR(S1)>\ \
你想要储存或取回什么药品呢?\ \
<存储超级疗伤药/@仓库41> <取回超级疗伤药/@仓库42>\
<存储5瓶超级疗伤药/@仓库43> <取回5瓶超级疗伤药/@仓库44>\ \
<返回/@药品仓库>\
[@仓库44]
#IF
CHECKBAGSIZE 5
#ACT
#ELSEACT
MESSAGEBOX 请预留5格以上包裹空间!
break
#IF
CHECKVAR HUMAN 超级疗伤药 > 4
#ACT
GIVE 超级疗伤药 5
CALCVAR HUMAN 超级疗伤药 - 5
SAVEVAR HUMAN 超级疗伤药 ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库4
break
#ELSEACT
MESSAGEBOX 超级疗伤药可取回数量超过下限!
break
[@仓库43]
#IF
CHECKVAR HUMAN 超级疗伤药 < 40
#ACT
#ELSEACT
MESSAGEBOX 超级疗伤药可储存数量超过上限!
break
#IF
checkitem 超级疗伤药 5
#ACT
TAKE 超级疗伤药 5
CALCVAR HUMAN 超级疗伤药 + 5
SAVEVAR HUMAN 超级疗伤药 ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库4
break
#ELSEACT
MESSAGEBOX 你没有5个超级疗伤药!
break
[@仓库42]
#IF
CHECKBAGSIZE 1
#ACT
#ELSEACT
MESSAGEBOX 请预留1格以上包裹空间!
break
#IF
CHECKVAR HUMAN 超级疗伤药 > 0
#ACT
GIVE 超级疗伤药 1
CALCVAR HUMAN 超级疗伤药 - 1
SAVEVAR HUMAN 超级疗伤药 ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库4
break
#ELSEACT
MESSAGEBOX 超级疗伤药可取回数量超过下限!
break
[@仓库41]
#IF
CHECKVAR HUMAN 超级疗伤药 < 44
#ACT
#ELSEACT
MESSAGEBOX 超级疗伤药可储存数量超过上限!
break
#IF
checkitem 超级疗伤药 1
#ACT
TAKE 超级疗伤药 1
CALCVAR HUMAN 超级疗伤药 + 1
SAVEVAR HUMAN 超级疗伤药 ..\QuestDiary\数据文件\变量.txt
DELAYGOTO 3 @仓库4
break
#ELSEACT
MESSAGEBOX 你没有1个超级疗伤药!
break
|