完整的传奇地利据点脚本案例分析

[@main]

#IF
CHECKCASTLEWAR幻境沙巴克
#ACT

#ELSEACT
BREAK
#ELSESAY
硝烟不断，战火再起。\
勇士们何时才能刀枪入库，马放南山，玛法大陆何时才能恢复往日的\
宁静。\
只有沙巴克行会和申请了攻城的行会才能占领据点旗帜。\\
<每次攻城站开始的时候，所有据点会恢复中立状态；如果当天/FColor=56>\
<没有攻城站，则据点将延续前一天的占领状态。/FColor=56>\

#IF
CHECKGUILDLIST..\QuestDiary\重要数据\沙巴克积分赛\地利占领.txt
#ACT
MOVS10
GetRandomName..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txtS10
BREAK
#SAY
贵行会已经占领【地利据点】，可使用战备物资兑换药品召唤强力雇佣兵。\
现在就要兑换吗？\
行会战备物资：<$STR(S10)>。\\
<使用10点行会战备物资兑换1个疗伤药包(任务)/@资源1>\
<使用100点行会战备物资兑换10个疗伤药包(任务)/@资源2>\
<使用1000点行会战备物资兑换1个强力雇佣兵/@资源3>\\
<返回/@MAIN>


;#ELSEACT
;BREAK
;#ELSESAY
;贵行会未能占领【地利据点】，还不能使用战备物资兑换药品召唤强力雇佣兵。\
;现在就占领此据点吗？\\
;<占领此据点/@占领>\

[@占领]
#IF
ISATTACKGUILD
#ACT
MOVA31
MOVA31地利据点\
INCA31<$GUILDNAME>
CLEARNAMELIST..\QuestDiary\重要数据\沙巴克积分赛\地利占领.txt
ADDGUILDLIST..\QuestDiary\重要数据\沙巴克积分赛\地利占领.txt
SENDMSG0[地利据点　已被　<$GUILDNAME>　占领]
BREAK
CLOSE

#IF
ISATTACKALLYGUILD
#ACT
MOVA31
MOVA31地利据点\
INCA31<$GUILDNAME>
CLEARNAMELIST..\QuestDiary\重要数据\沙巴克积分赛\地利占领.txt
ADDGUILDLIST..\QuestDiary\重要数据\沙巴克积分赛\地利占领.txt
SENDMSG0[地利据点　已被　<$GUILDNAME>　占领]
BREAK
CLOSE

#IF
ISDEFENSEGUILD
#ACT
MOVA31
MOVA31地利据点\
INCA31<$GUILDNAME>
CLEARNAMELIST..\QuestDiary\重要数据\沙巴克积分赛\地利占领.txt
ADDGUILDLIST..\QuestDiary\重要数据\沙巴克积分赛\地利占领.txt
SENDMSG0[地利据点　已被　<$GUILDNAME>　占领]
BREAK
CLOSE

#IF
ISDEFENSEALLYGUILD
#ACT
MOVA31
MOVA31地利据点\
INCA31<$GUILDNAME>
CLEARNAMELIST..\QuestDiary\重要数据\沙巴克积分赛\地利占领.txt
ADDGUILDLIST..\QuestDiary\重要数据\沙巴克积分赛\地利占领.txt
SENDMSG0[地利据点　已被　<$GUILDNAME>　占领]
BREAK
CLOSE

#ELSEACT
SENDMSG7贵行会目前还不能占领此据点！
BREAK

[@资源3]
#IF
CheckSlaveCount<2
#ACT
MOVS10
GetRandomName..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txtS10
MOVN10
MOVN10S10
GOTO@资源31
BREAK

#ELSEACT
SENDMSG7操作失败，您的署下数量已经达到上限！
BREAK

[@资源31]
#IF
LARGEN10999
#ACT
DECN101000
CLEARNAMELIST..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
ADDTEXTLIST<$STR(N10)>..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
RECALLMOB强力雇佣兵012000
SENDMSG8恭喜：%S成功地召唤了：1名强力雇佣兵
BREAK
CLOSE

#ELSEACT
break
#ELSESAY
贵行会没有足够的战备物资......

[@资源2]
#IF
CHECKBAGSIZE10
#ACT
MOVS10
GetRandomName..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txtS10
MOVN10
MOVN10S10

#ELSEACT
break
#ELSESAY
请预留10格以上包裹空间后再来购买！

#IF
LARGEN1099
#ACT
DECN10100
CLEARNAMELIST..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
ADDTEXTLIST<$STR(N10)>..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
GIVE疗伤药包(任务)10
SENDMSG7恭喜：你获得了：疗伤药包(任务)*10
GOTO@MAIN
BREAK

#ELSEACT
break
#ELSESAY
贵行会没有足够的战备物资......

[@资源1]
#IF
CHECKBAGSIZE1
#ACT
MOVS10
GetRandomName..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txtS10
MOVN10
MOVN10S10

#ELSEACT
break
#ELSESAY
请预留1格以上包裹空间后再来购买！

#IF
LARGEN109
#ACT
DECN1010
CLEARNAMELIST..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
ADDTEXTLIST<$STR(N10)>..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
GIVE疗伤药包(任务)1
SENDMSG7恭喜：你获得了：疗伤药包(任务)*1
GOTO@MAIN
BREAK

#ELSEACT
break
#ELSESAY
贵行会没有足够的战备物资......