[@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 贵行会没有足够的战备物资……
