当前位置: > 超变传奇> 正文
最新传奇sf发布网站完整的传奇地利据点脚本案例分析
发布时间:2020-10-23 14:45:05 来源:http://www.hu87.com 作者:
[@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
BREAsf175战歌网K
#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
贵行会没有足够的战备物资......
上一篇: 传奇龍帝助理刺杀挂功能是如何实现…
下一篇: 烈焰sf发布网添加传奇地图乾坤源的…
猜你喜欢
[12-11]
·天狼传奇游戏反杀懂我兄弟统统干翻链什么属性[12-11]
·朱雀传奇游戏龙啸九天时装怎么获得?[12-11]
·传奇攻略--快速升级[12-11]
·觅道传奇中终极称号有哪些属性加成呢?[12-11]
·火王传奇时装的属性好不好?[12-11]
·海底世界副本有什么好装备?[12-11]
·新手玩传奇私服不知道怎么样升级?我来教你[12-11]
·谈谈道士职业的看法[12-11]
·佛门传奇散人攻略[12-11]
·皇朝传奇致命攻击超神器的属性如何