|
<返回/@main>
#ELSEACT
BREAK
#ELSESAY
非常抱歉，我只听从主宰大人的命令！
[@收回主宰龙卫]
#IF
CheckStringlength <$HUMAN(我的主宰龙卫1)> > 3
#ACT
MOV S20
MOV S21
MOV S21 HUMAN 我的主宰龙卫1
MOV S22
MOV S23
MOV S22 <收回
INC S22 S21
INC S22 的主宰龙卫称号/@确认收回龙卫1>
INC S23 S22
INC S20 S23
GOTO @收回主宰龙卫1
BREAK
#ELSEACT
MOV S20
GOTO @收回主宰龙卫1
BREAK
[@收回主宰龙卫1]
#IF
CheckStringlength <$HUMAN(我的主宰龙卫2)> > 3
#ACT
MOV S21
MOV S21 HUMAN 我的主宰龙卫2
MOV S22
MOV S23
MOV S22 <收回
INC S22 S21
INC S22 的主宰龙卫称号/@确认收回龙卫2>\
INC S23 S22
INC S20 S23
GOTO @收回主宰龙卫2
BREAK
#ELSEACT
GOTO @收回主宰龙卫2
BREAK
[@收回主宰龙卫2]
#IF
CheckStringlength <$HUMAN(我的主宰龙卫3)> > 3
#ACT
MOV S21
MOV S21 HUMAN 我的主宰龙卫3
MOV S22
MOV S23
MOV S22 <收回
INC S22 S21
INC S22 的主宰龙卫称号/@确认收回龙卫3>
INC S23 S22
INC S20 S23
GOTO @收回主宰龙卫3
BREAK
#ELSEACT
GOTO @收回主宰龙卫3
BREAK
[@收回主宰龙卫3]
#IF
CheckStringlength <$HUMAN(我的主宰龙卫4)> > 3
#ACT
MOV S21
MOV S21 HUMAN 我的主宰龙卫4
MOV S22
MOV S23
MOV S22 <收回
INC S22 S21
INC S22 的主宰龙卫称号/@确认收回龙卫4> \ \
INC S23 S22
INC S20 S23
GOTO @收回龙卫显示
BREAK
#ELSEACT
GOTO @收回龙卫显示
BREAK
[@收回龙卫显示]
#IF
CheckStringlength <$STR(S20)> > 0
#ACT
BREAK
#SAY
收回主宰龙卫:\ \
<$STR(S20)>\ \ \
<返回/@主宰龙卫>
#ELSEACT
BREAK
#ELSESAY
收回主宰龙卫:\ \
您目前还没有任命任何一位主宰龙卫！\ \ \
<返回/@主宰龙卫>
[@确认收回龙卫4]
#IF
CheckOnline <$HUMAN(我的主宰龙卫4)>
#ACT
MOV S75
MOV S75 HUMAN 我的主宰龙卫4
CALCVAR HUMAN 我的主宰龙卫4 = 无
SAVEVAR HUMAN 我的主宰龙卫4 ..\QuestDiary\数据文件\玛法主宰者\我的主宰龙卫.txt
SENDMSG 7 恭喜:你已经注销了<$STR(S75)>目前拥有的主宰龙卫称号！
hcall <$STR(S75)> @在线收回主宰龙卫
break
CLOSE
#ELSEACT
MOV S75
MOV S75 HUMAN 我的主宰龙卫4
CALCVAR HUMAN 我的主宰龙卫4 = 无
SAVEVAR HUMAN 我的主宰龙卫4 ..\QuestDiary\数据文件\玛法主宰者\我的主宰龙卫.txt
AddTextList <$STR(S75)> ..\QuestDiary\数据文件\玛法主宰者\主宰龙卫等待删除名单.txt
SENDMSG 7 恭喜:你已经注销了<$STR(S75)>目前拥有的主宰龙卫称号！
break
CLOSE
[@确认收回龙卫3]
#IF
CheckOnline <$HUMAN(我的主宰龙卫3)>
#ACT
MOV S75
MOV S75 HUMAN 我的主宰龙卫3
CALCVAR HUMAN 我的主宰龙卫3 = 无
SAVEVAR HUMAN 我的主宰龙卫3 ..\QuestDiary\数据文件\玛法主宰者\我的主宰龙卫.txt
SENDMSG 7 恭喜:你已经注销了<$STR(S75)>目前拥有的主宰龙卫称号！
hcall <$STR(S75)> @在线收回主宰龙卫
break
CLOSE
#ELSEACT
MOV S75
MOV S75 HUMAN 我的主宰龙卫3
CALCVAR HUMAN 我的主宰龙卫3 = 无
SAVEVAR HUMAN 我的主宰龙卫3 ..\QuestDiary\数据文件\玛法主宰者\我的主宰龙卫.txt
AddTextList <$STR(S75)> ..\QuestDiary\数据文件\玛法主宰者\主宰龙卫等待删除名单.txt
SENDMSG 7 恭喜:你已经注销了<$STR(S75)>目前拥有的主宰龙卫称号！
break
CLOSE
[@确认收回龙卫2]
#IF
CheckOnline <$HUMAN(我的主宰龙卫2)>
#ACT
MOV S75
MOV S75 HUMAN 我的主宰龙卫2
CALCVAR HUMAN 我的主宰龙卫2 = 无
SAVEVAR HUMAN 我的主宰龙卫2 ..\QuestDiary\数据文件\玛法主宰者\我的主宰龙卫.txt
SENDMSG 7 恭喜:你已经注销了<$STR(S75)>目前拥有的主宰龙卫称号！
hcall <$STR(S75)> @在线收回主宰龙卫
break
CLOSE
#ELSEACT
MOV S75
MOV S75 HUMAN 我的主宰龙卫2
CALCVAR HUMAN 我的主宰龙卫2 = 无
SAVEVAR HUMAN 我的主宰龙卫2 ..\QuestDiary\数据文件\玛法主宰者\我的主宰龙卫.txt
AddTextList <$STR(S75)> ..\QuestDiary\数据文件\玛法主宰者\主宰龙卫等待删除名单.txt
SENDMSG 7 恭喜:你已经注销了<$STR(S75)>目前拥有的主宰龙卫称号！
break
CLOSE
[@确认收回龙卫1]
#IF
CheckOnline <$HUMAN(我的主宰龙卫1)>
#ACT
MOV S75
MOV S75 HUMAN 我的主宰龙卫1
CALCVAR HUMAN 我的主宰龙卫1 = 无
SAVEVAR HUMAN 我的主宰龙卫1 ..\QuestDiary\数据文件\玛法主宰者\我的主宰龙卫.txt
SENDMSG 7 恭喜:你已经注销了<$STR(S75)>目前拥有的主宰龙卫称号！
hcall <$STR(S75)> @在线收回主宰龙卫
break
CLOSE
#ELSEACT
MOV S75
MOV S75 HUMAN 我的主宰龙卫1
CALCVAR HUMAN 我的主宰龙卫1 = 无
SAVEVAR HUMAN 我的主宰龙卫1 ..\QuestDiary\数据文件\玛法主宰者\我的主宰龙卫.txt
AddTextList <$STR(S75)> ..\QuestDiary\数据文件\玛法主宰者\主宰龙卫等待删除名单.txt
SENDMSG 7 恭喜:你已经注销了<$STR(S75)>目前拥有的主宰龙卫称号！
break
CLOSE
[@任命主宰龙卫]
#IF
CHECKFENGHAOLISTCOUNT 1 = 0
#ACT
MOV S21
break
#SAY
尊敬的玛法主宰者，你目前还没有任命主宰龙卫，\
还可以任命4位主宰龙卫。任命第1位免费。\ \
<输入对方名字/@@InPutString21> 任命为第1位主宰龙卫\
#IF
CHECKFENGHAOLISTCOUNT 1 = 1
#ACT
MOV S20
break
#SAY
尊敬的玛法主宰者，你已经任命了1位主宰龙卫，\
还可以任命3位主宰龙卫。任命第2位需花费200个辉煌印记。\ \
<输入对方名字/@@InPutString20> 任命为第2位主宰龙卫\
#IF
CHECKFENGHAOLISTCOUNT 1 = 2
#ACT
MOV S19
break
#SAY
尊敬的玛法主宰者，你已经任命了2位主宰龙卫，\
还可以任命2位主宰龙卫。任命第3位需花费500个辉煌印记。\ \
<输入对方名字/@@InPutString19> 任命为第3位主宰龙卫\
#IF
CHECKFENGHAOLISTCOUNT 1 = 3
#ACT
MOV S18
break
#SAY
尊敬的玛法主宰者，你已经任命了3位主宰龙卫，\
还可以任命1位主宰龙卫。任命第4位需花费1000个辉煌印记。\ \
<输入对方名字/@@InPutString18> 任命为第4位主宰龙卫\
#ELSEACT
break
#ELSESAY
尊敬的玛法主宰者，你已经任命了4位主宰龙卫，\
无法任命更多的主宰龙卫了。\
[@@InPutString18]
#ACT
DelaYGoto 1 ~InPutString18
break
[~InPutString18]
#IF
EQUAL <$STR(S18)> <$USERNAME>
#ACT
MESSAGEBOX 主宰龙卫只可以任命其他玩家，不可以任命自己！
MOV S18
BREAK
CLOSE
#IF
LARGE HUMAN 辉煌印记 999
#ACT
#ELSEACT
MESSAGEBOX 你没有足够数量的辉煌印记!
MOV S18
break
CLOSE
#IF
CheckOnline <$STR(S18)>
#ACT
MOV A281
MOV A281 <$USERNAME>
MOV A282
MOV A282 S18
hcall <$STR(S18)> @在线任命主宰龙卫4
#say
请等对方确认！
break
#ELSEACT
MESSAGEBOX <$STR(S18)>没有在线!
break
CLOSE
[@@InPutString19]
#ACT
DelaYGoto 1 ~InPutString19
break
[~InPutString19]
#IF
EQUAL <$STR(S19)> <$USERNAME>
#ACT
MESSAGEBOX 主宰龙卫只可以任命其他玩家，不可以任命自己！
MOV S19
BREAK
CLOSE
#IF
LARGE HUMAN 辉煌印记 499
#ACT
#ELSEACT
MESSAGEBOX 你没有足够数量的辉煌印记!
MOV S19
break
CLOSE
#IF
CheckOnline <$STR(S19)>
#ACT
MOV A281
MOV A281 <$USERNAME>
MOV A282
MOV A282 S19
hcall <$STR(S19)> @在线任命主宰龙卫3
#say
请等对方确认！
break
#ELSEACT
MESSAGEBOX <$STR(S19)>没有在线!
break
CLOSE
[@@InPutString20]
#ACT
DelaYGoto 1 ~InPutString20
break
[~InPutString20]
#IF
EQUAL <$STR(S20)> <$USERNAME>
#ACT
MESSAGEBOX 主宰龙卫只可以任命其他玩家，不可以任命自己！
MOV S20
BREAK
CLOSE
#IF
LARGE HUMAN 辉煌印记 199
#ACT
#ELSEACT
MESSAGEBOX 你没有足够数量的辉煌印记!
MOV S20
break
CLOSE
#IF
CheckOnline <$STR(S20)>
#ACT
MOV A281
MOV A281 <$USERNAME>
MOV A282
MOV A282 S20
hcall <$STR(S20)> @在线任命主宰龙卫2
#say
请等对方确认！
break
#ELSEACT
MESSAGEBOX <$STR(S20)>没有在线!
break
CLOSE
[@@InPutString21]
#ACT
DelaYGoto 1 ~InPutString21
break
[~InPutString21]
#IF
EQUAL <$STR(S21)> <$USERNAME>
#ACT
MESSAGEBOX 主宰龙卫只可以任命其他玩家，不可以任命自己！
MOV S21
BREAK
CLOSE
#IF
CheckOnline <$STR(S21)>
#ACT
MOV A281
MOV A281 <$USERNAME>
MOV A282
MOV A282 S21
hcall <$STR(S21)> @在线任命主宰龙卫1
#say
请等对方确认！
break
#ELSEACT
MESSAGEBOX <$STR(S21)>没有在线!
break
CLOSE
[@龙卫规则]
1、玛法主宰着可以使用任命文书来赋予称号，也可以使用辉煌印记\
来赋予称号，任命的主宰龙卫数量越多，消耗的辉煌印记越多。\
2、目前每名主宰者可以任命最多4名主宰龙卫。\
3、主宰者可以传送到主宰龙卫身边，也可以召唤主宰龙卫来到自己\
身边。\
4、主宰者有权利使用主宰令牌的力量随时收回主宰龙卫获得的称号。\ \
(责任编辑：找搜服传奇发布网) |
主宰守卫特权脚本(3)
时间:2017-05-05 00:15来源:传奇私服 作者:新开传奇网站
返回/@main #ELSEACT BREAK #ELSESAY 非常抱歉，我只听从主宰大人的命令！ [@收回主宰龙卫] #IF CheckStringlength $HUMAN(我的主宰龙卫1) 3 #ACT MOV S20 MOV S21 MOV S21 HUMAN 我的
------分隔线----------------------------
- 推荐内容
-
- 传奇私服非常好玩，所以避坑攻略
传奇私服的好处可能有以下几个方面： 传奇私服可以让玩家体验...
- 热血传奇这款游戏是用什么语言编
热血传奇这款游戏是一款基于精灵的等距3D大型多人在线角色扮...
- 传奇QQ群新手礼包脚本
[@main] #IF #ACT OPENMERCHANTDLG npctp|37|1|564|382|4|0|0|1|530|80 BREAK #SAY {x=...
- 传奇趣味实物回收脚本
[@main] #if #ACT OPENMERCHANTBIGDLG 50 127 1 0 0 -10 1 491 53 #say ImgEx:50:43:44...
- 玩传奇更要记得让自己勇敢些
人海茫茫相识相知需要莫大的缘分现实如此传奇私服游戏里亦是...
- 自己写的传奇英雄、英雄合击技能
前提：该脚本自己测试，并开服使用！没有任何漏洞！但是还要...
- 传奇私服非常好玩，所以避坑攻略
Copyright © ZhaoSF.info 找搜服-传奇私服发布网 版权所有沪ICP备17017149号-1