本站主推发布：新开传奇发布网,新开传奇,新开传奇发布,176复古传奇,迷失传奇,战神传奇,传奇私服,找搜服,仙剑传奇
[网站地图] [设为首页] [加入收藏]
快速搜服找服： 复古 变态 微变 轻变 中变 超变 合击 迷失 沉默 星王 1.76 1.80 1.95 1.96 仿盛大 单职业
当前位置: zhaosf首页 > 开服资料 > 传奇脚本 >

沙巴克神秘使者脚本(2)

时间:2017-05-17 00:08来源:传奇私服 作者:新开传奇网站
递交战备物资/@资源11\ \ \ 返回/@MAIN [@资源11] #IF CHECKCASTLEWAR 沙巴克 #ACT break #SAY 攻城期间，停止递交战备物资！ #IF HAVEGUILD #ACT MOV N10 MOV N11 BREAK #SAY 提交一
<递交战备物资/@资源11>\ \ \
<返回/@MAIN>
 
[@资源11]
#IF
CHECKCASTLEWAR 沙巴克 
#ACT
break
#SAY
攻城期间，停止递交战备物资！
 
#IF
HAVEGUILD
#ACT
MOV N10
MOV N11
BREAK
#SAY
提交一块<战备金矿/FColor=56>可以获得<1/FColor=56>点个人战备物资和<1/FColor=56>点行会战备物资。\
提交一瓶<泉水/FColor=56>可以获得<10/FColor=56>点个人战备物资和<10/FColor=56>点行会战备物资。\
<行会战备物资不能超过50000，超过这个数量递交的战备金矿只能/FColor=56>\
<增加个人战备资源，单次递交战备物资的数量不能超过50000。/FColor=56>\ \
<贡献主号包裹中的战备金矿/@@InPutInteger10>\
<贡献主号包裹中的泉水/@@InPutInteger11>\ \
<返回/@资源1>
 
#ELSEACT
MOV N8
MOV N9
BREAK
#ELSESAY
提交一块<战备金矿/FColor=56>可以获得<1/FColor=56>点个人战备物资和<1/FColor=56>点行会战备物资。\
提交一瓶<泉水/FColor=56>可以获得<10/FColor=56>点个人战备物资和<10/FColor=56>点行会战备物资。\
<行会战备物资不能超过50000，超过这个数量递交的战备金矿只能/FColor=56>\
<增加个人战备资源，单次递交战备物资的数量不能超过50000。/FColor=56>\ \
<贡献主号包裹中的战备金矿/@@InPutInteger8>\
<贡献主号包裹中的泉水/@@InPutInteger9>\ \
<返回/@资源1>
 
[@@InPutInteger9]
#Act
DelaYGoto 1 ~InPutInteger9
break
 
[~InPutInteger9]
#IF
LARGE N9 0
SMALL N9 50000
#ACT
 
#ELSEACT
break
#ELSESAY
非法输入!
 
#IF
checkitem 泉水 <$STR(N9)>
#ACT
TAKE 泉水 <$STR(N9)>
MOV N8
MUL N8 N9 10
CALCVAR HUMAN 战备物资 + <$STR(N8)>
SAVEVAR HUMAN 战备物资 ..\QuestDiary\数据文件\沙巴克积分赛\战备物资.txt
SENDMSG 7 恭喜：个人战备物资增加：<$STR(N8)>
MOV N5
MUL N5 N9 100000
Changeexp + <$STR(N5)>
break
 
#ELSEACT
break
#ELSESAY
你没有足够的泉水，无法贡献战备资源......\ \
<返回/@资源11>\
 
[@@InPutInteger8]
#Act
DelaYGoto 1 ~InPutInteger8
break
 
[~InPutInteger8]
#IF
LARGE N8 0
SMALL N8 50000
#ACT
 
#ELSEACT
break
#ELSESAY
非法输入!
 
#IF
CHECKKIMNEEDLE 战备金矿 <$STR(N8)>
#ACT
TAKEKIMNEEDLE 战备金矿 <$STR(N8)>
CALCVAR HUMAN 战备物资 + <$STR(N8)>
SAVEVAR HUMAN 战备物资 ..\QuestDiary\数据文件\沙巴克积分赛\战备物资.txt
MOV N5
MUL N5 N8 50000
Changeexp + <$STR(N5)>
SENDMSG 7 恭喜：个人战备物资增加：<$STR(N10)>
break
#ELSEACT
break
#ELSESAY
你没有足够的战备金矿，无法贡献战备资源......\ \
<返回/@资源11>\
 
[@@InPutInteger11]
#Act
DelaYGoto 1 ~InPutInteger11
break
 
[~InPutInteger11]
#IF
LARGE N11 0
SMALL N11 50000
#ACT
 
#ELSEACT
break
#ELSESAY
非法输入!
 
#IF
checkitem 泉水 <$STR(N11)>
#ACT
TAKE 泉水 <$STR(N11)>
MOV N10
MUL N10 N11 10
CALCVAR HUMAN 战备物资 + <$STR(N10)>
SAVEVAR HUMAN 战备物资 ..\QuestDiary\数据文件\沙巴克积分赛\战备物资.txt
 
MOV S20
GetRandomName ..\QuestDiary\数据文件\沙巴克积分赛\<$GUILDNAME>\战备物资.txt S20
MOV N20
MOV N20 S20
INC N20 N10
CLEARNAMELIST ..\QuestDiary\数据文件\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
ADDTEXTLIST <$STR(N20)> ..\QuestDiary\数据文件\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
 
SENDMSG 7 恭喜：个人战备物资增加：<$STR(N10)>
SENDMSG 7 恭喜：行会战备物资增加：<$STR(N10)>
MOV N5
MUL N5 N11 100000
Changeexp + <$STR(N5)>
DELAYGOTO 3 @上限检测
break
#ELSEACT
break
#ELSESAY
你没有足够的泉水，无法贡献战备资源......\ \
<返回/@资源11>\
 
[@@InPutInteger10]
#Act
DelaYGoto 1 ~InPutInteger10
break
 
[~InPutInteger10]
#IF
LARGE N10 0
SMALL N10 50000
#ACT
 
#ELSEACT
break
#ELSESAY
非法输入!
 
#IF
CHECKKIMNEEDLE 战备金矿 <$STR(N10)>
#ACT
TAKEKIMNEEDLE 战备金矿 <$STR(N10)>
CALCVAR HUMAN 战备物资 + <$STR(N10)>
SAVEVAR HUMAN 战备物资 ..\QuestDiary\数据文件\沙巴克积分赛\战备物资.txt
MOV S20
GetRandomName ..\QuestDiary\数据文件\沙巴克积分赛\<$GUILDNAME>\战备物资.txt S20
MOV N20
MOV N20 S20
INC N20 N10
CLEARNAMELIST ..\QuestDiary\数据文件\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
ADDTEXTLIST <$STR(N20)> ..\QuestDiary\数据文件\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
 
MOV N5
MUL N5 N10 50000
Changeexp + <$STR(N5)>
SENDMSG 7 恭喜：个人战备物资增加：<$STR(N10)>
SENDMSG 7 恭喜：行会战备物资增加：<$STR(N10)>
DELAYGOTO 3 @上限检测
break
#ELSEACT
break
#ELSESAY
你没有足够的战备金矿，无法贡献战备资源......\ \
<返回/@资源11>\
 
[@上限检测]
#IF
LARGE N20 49999
#ACT
CLEARNAMELIST ..\QuestDiary\数据文件\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
ADDTEXTLIST 50000 ..\QuestDiary\数据文件\沙巴克积分赛\<$GUILDNAME>\战备物资.txt
SENDMSG 7 贵行会的战备物资已经达到50000，超过此限制后，不再增加！
break
 
(责任编辑：找搜服传奇发布网)
------分隔线----------------------------
栏目列表
推荐内容
工具排行
热点内容
返回顶部


Copyright © ZhaoSF.info 找搜服-传奇私服发布网 版权所有沪ICP备17017149号-1