[@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
;贵行会未能占领【地利据点】，还不能使用战备物资兑换药品召唤强力雇佣征服sf兵。\
;现在就占领此据点吗？\ \
;占领此据点/@占领 \
[@占领]
#IF
ISATTACKGUILD
#ACT
MOV A31
MO传奇185完整客户端V 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
CHECKBAGSIZ传奇七星辅助E 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
贵行会没有足够的战备物资......