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

[@main]

#IF
CHECKCASTLEWAR 幻境沙巴克
#ACT

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

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


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

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

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

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

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

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

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

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

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

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

[@资源2]
#IF
CHECKBAGSIZE 10
#ACT
MOV S10
GetRandomName ..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txt S10
MOV N10
MOV N10 S10

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

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

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

[@资源1]
#IF
CHECKBAGSIZE 1
#ACT
MOV S10
GetRandomName ..\QuestDiary\重要数据\沙巴克积分赛\<$GUILDNAME>\战备物资.txt S10
MOV N10
MOV N10 S10

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

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

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

真是被感动的痛哭流涕……

看到这帖子真是高兴！

激动人心，无法言表！

真是被感动的痛哭流涕……

无回帖，不论坛，这才是人道。

淡定，淡定，淡定……

无回帖，不论坛，这才是人道。

强烈支持楼主ing……

激动人心，无法言表！