当前位置: > 嘟嘟传奇> 正文
完超级变态合击整的传奇地利据点脚本案例分析
发布时间:2020-5-19 21:30:35 来源:http://www.eshibojinxun.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
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
ADDTEXTL传奇私服超变发布网IST $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网站有新意的传奇装备化…
猜你喜欢
[03-07]
·传奇游戏里面的名人众多但是总有在你心中留下阴影的PK之王[03-03]
·早期的时候热血传奇荣誉称号是多么的牛逼而且属性超标[02-21]
·六大特戒为什么防御戒指不是很出名到底都有哪些神秘属性[12-28]
·主号与水泊梁山传奇英雄的连击[12-28]
·法师这个职业具有哪些传奇吉吉辅助重要的作用[12-28]
·想发财新开轻变传奇私服之重要的交易指南(上)[12-28]
·道士强?新开玫瑰传奇法师更强![12-28]
·道军统传奇士应该不弱[12-28]
·PK是找传奇私服解决问题的最好办法[12-28]
·怎样的组合是最为省半兽勇士钱的?