最新传奇一条龙国王系统脚本

御剑听风

(@@InPutString @@InPutInteger )

[@main]
<蜀国总统信息/SCOLOR=221>：<战绩最高/@>的可以登基总统宝座！<[退位让贤]/@退位让贤>\
===========================================================\
蜀国当前就任的总统：<$STR(A64)>  好评率:<$STR(A72)>%  <低于50%部分总统权利禁用>\
当前等级为：<$STR(A62)>\
当前战绩为：<$STR(A61)>\
今日贡献：<$STR(A63)>   <贡献度说明/@贡献说明1>            <如何做总统/@做总统>\
===========================================================\
如果你的<个人实力/@实力>有<2项>超过了总统，你就可以<争夺总统宝座/AUTOCOLOR=250,253,254>\
<夺取总统宝座/@夺取总统宝座>    <领取总统龙珠/@领取总统专用物品>     <总统至高权利/@总统至高权利>\

[@贡献说明1]
#act
MESSAGEBOX 向国家捐款（国家使者），可以获得相应数量的贡献度!\贡献度按天计算，每天0点重新计算！！

[@实力]
#say
=========================总统实力==========================\ \
当前等级为：<$STR(A62)>  当前战绩为：<$STR(A61)>  今日贡献：<$STR(A63)> \
=========================个人实力==========================\ \
当前等级为：<$LEVEL>  当前战绩为：<$GAMEPOINT>  今日贡献：<$HUMAN(JUAN)>\
===========================================================\


[@退位让贤]
#CALL [\总统让位\蜀国.txt] @蜀国让位



[@领取总统专用物品]
#IF
IsKing 3
#ACT
GOTO @领取物品
#ELSESAY
对不起你不是蜀王总统!


[@领取物品]
尊敬的总统:\
<领取总统龙珠需要,2W元宝+500点战绩/SCOLOR=251>\
说明:<宝石不可以修理，可以触发1.6倍攻击属性/SCOLOR=254>\
　\
　\
　　<确定领取/@确定领取><★━━━━★/AUTOCOLOR=250,253,254,241><确定领取/@确定领取>\


[@确定领取]
#IF
IsKing 1
CheckGAMEPOINT > 499
CHECKGAMEGOLD > 19999
#ACT
GAMEPOINT - 500
GAMEGOLD - 20000
give 总统龙珠  1
SENDMSG 1 恭喜： 蜀国总统[%s]成功领取总统龙珠！
#ELSESAY
对不起你不是总统，或者你没有2W元宝和500点战绩\



[@做总统]
当前无总统状态，只要是上将官员并且有1000点战绩你就能做总统\
只要上将官的战绩超过了总统就可以抢夺总统王位\
要是你是款爷的并且还是上将官的话，只要花点元宝就能抢夺王位\
总统能带上总统专属宝石！并且发挥1.6倍的攻击\
并能享受只有总统才有的权利，心动了吗，那就行动吧\

[@夺取总统宝座]
-----------------------------------------------------------\
当前国家可用国库资金：<$NATIONGOLD>元\
　\
<争夺总统/@夺取总统宝座2> 我的战绩比总统的战绩多，我觉得我有资格。\
<夺取总统/@夺取总统>      我要花20000元宝来领导国家。\
　\
-----------------------------------------------------------\


[@夺取总统宝座2]

#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国人，不能争夺总统宝座。
BREAK

#if
IsKing
#act
MESSAGEBOX 您现在已经是总统了。
break
;-----------------------------------------------------------------------
#if
CheckNationRankLevel > 8
#ACT
MOV S99 <$NATIONKING>
#elseact
messagebox 对不起，你不是上将军衔!
BREAK
#IF
EQUAL S99
#ACT
GOTO @无总统
BREAK
#if
CHECKGAMEPOINT > <$STR(A61)>
CHECKLEVELEX > <$STR(A62)>
CheckNational 3
#ACT
MOV A36 <$STR(A64)>
ChangeKing 3
MOV A61 <$GAMEPOINT>
MOV A62 <$LEVEL>
MOV A63 <$HUMAN(JUAN)>
MOV A64 <$USERNAME>
MOV A72 <$ARM>
ChangeNationPro 2 - 20000
ChangeNationPro 2 + 50
SetOnTimer 3 60
GuildNoticeMsg 245 255 恭喜<$USERNAME>成为蜀国新的总统,在<$USERNAME>的领导下，蜀国会强大无比!
GOTO @清除精英

close
break
#ELSEACT
goto @夺取总统宝座2a
BREAK

;=====================================增加无总统操作开始=======================
[@无总统]
#IF
CHECKGAMEPOINT > 999
CheckNational 3
#ACT
ChangeKing 3
MOV A61 <$GAMEPOINT>
MOV A62 <$LEVEL>
MOV A63 <$HUMAN(JUAN)>
MOV A64 <$USERNAME>
MOV A72 <$ARM>
GAMEPOINT - 1000
SetOnTimer 3 60
GuildNoticeMsg 245 255 恭喜<$USERNAME>成为蜀国新的总统,在<$USERNAME>的领导下，蜀国会强大无比!
goto @清除精英

close
#elseact
messagebox 对不起，你的战绩不够1000点
;=====================================增加无总统操作结束=======================

;=====================================增加元宝夺取总统操作开始=======================
[@夺取总统]
#IF
CHECKGAMEGOLD > 19999
#elseACT
messagebox 你的元宝不够20000，不能夺取！
break

#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国人，不能争夺总统宝座。
BREAK

#if
IsKing
#act
MESSAGEBOX 您现在已经是总统了。
break

#if
CheckNationRankLevel > 8
#ACT
MOV S99 <$NATIONKING>
#elseact
messagebox 对不起，你不是上将军衔!
BREAK

#IF
EQUAL S99
#ACT
GOTO @无总统
BREAK

#if
CHECKGAMEGOLD > 19999
CheckNational 3
#ACT
ChangeKing 3
MOV A61 <$GAMEPOINT>
MOV A62 <$LEVEL>
MOV A63 <$HUMAN(JUAN)>
MOV A64 <$USERNAME>
MOV A72 <$ARM>
ChangeNationPro 0 + 500
gamegold - 20000
GuildNoticeMsg 245 255 恭喜<$USERNAME>成为蜀国新的总统,在<$USERNAME>的领导下，蜀国会强大无比!
goto @清除精英

close
break
;=====================================增加元宝夺取总统操作结束=======================

[@清除变量]
#IF
ISADMIN
#ACT
MOV A61 0
MOV A63 0
MOV A62 0
GOTO @MAIN
MESSAGEBOX 成功！
#ELSEACT
MESSAGEBOX 你并非管理员

[@夺取总统宝座2a]
#if
CHECKGAMEPOINT > <$STR(A61)>
CHECKVAR HUMAN JUAN > <$STR(A63)>
CheckNational 3
#ACT
MOV A36 <$STR(A64)>
ChangeKing 3
MOV A61 <$GAMEPOINT>
MOV A62 <$LEVEL>
MOV A63 <$HUMAN(JUAN)>
MOV A64 <$USERNAME>
MOV A72 <$ARM>
ChangeNationPro 2 - 20000
ChangeNationPro 2 + 50
SetOnTimer 3 60
GuildNoticeMsg 245 255 恭喜<$USERNAME>成为蜀国新的总统,在<$USERNAME>的领导下，蜀国会强大无比!
GOTO @清除精英

close
break
#ELSEACT
goto @夺取总统宝座2b
BREAK
[@夺取总统宝座2b]
#if
CHECKVAR HUMAN JUAN > <$STR(A63)>
CHECKLEVELEX > <$STR(A62)>
CheckNational 3
#ACT
MOV A36 <$STR(A64)>
ChangeKing 3
MOV A61 <$GAMEPOINT>
MOV A62 <$LEVEL>
MOV A63 <$HUMAN(JUAN)>
MOV A64 <$USERNAME>
MOV A72 <$ARM>
ChangeNationPro 2 - 20000
ChangeNationPro 2 + 50
SetOnTimer 3 60
GuildNoticeMsg 245 255 恭喜<$USERNAME>成为蜀国新的总统,在<$USERNAME>的领导下，蜀国会强大无比!
GOTO @清除精英

close
break
#ELSEACT
MESSAGEBOX 申请失败原因：1.你的等级没能超过总统 2.你的捐献没有超过总统 3.你的战绩没有超过总统 要继续加油喔！
BREAK
;--------------------------------------------------------------------------


[@总统至高权利]
#IF
IsKing 3
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是总统，不能享受权利。
BREAK
#say
总统可以对本国成员封<国家精英>称号，国家精英得到10%的攻击\ \
精英在得到提示后，即攻击加高10%，精英人数限定为10人\ \
<封国家精英/@封国家精英> 册封为国家精英攻击力提高10%\
<开启国战/@开启国战> 所有地图杀敌方人物可以获得战绩！\
<号令天下/@公告> 召唤本国国民到总统身边。命令：<总统令>.\
<赦免囚禁/@赦免囚禁> 赦免 洗红、释放本国臣民\


[@赦免囚禁]
#IF
CheckNationPro 2 > 50
#ACT
#CALL [\总统关押\蜀国.txt] @关押国民A
#elseact
messagebox 作为总统<50%>好评度都没有，此功能禁用!

[@开启国战]
#IF
#SAY
总统可以开启国战功能:所有地图杀敌方人物可以获得战绩,时长15分钟\  \
<开启条件/@1>:开启国战系统需要<100两>国库资金。\  \
<国库资金>:<$NATIONGOLD>\  \
<开启国战/@开启国战1>

[@开启国战1]
#IF
CheckNationPro 0 > 99
EQUAL G26 0
#ACT
ChangeNationPro 0 - 100
MOV G26 15
GuildNoticeMsg 246 162 [战报]：蜀国总统[<$NATIONKING>]开启了国战,时长15分钟!
#elseact
messagebox 现在国战还在进行中...或者国库资金不足....请稍后开启!
[@封国家精英]
国家精英名额一是:<$STR(A30)> ,总统可以 <设置/@@InPutString0>  为精英  <修改/@@InPutString0>\
国家精英名额二是:<$STR(A31)> ,总统可以 <设置/@@InPutString1>  为精英  <修改/@@InPutString1>\
国家精英名额三是:<$STR(A32)> ,总统可以 <设置/@@InPutString2>  为精英  <修改/@@InPutString2>\
国家精英名额四是:<$STR(A33)> ,总统可以 <设置/@@InPutString3>  为精英  <修改/@@InPutString3>\
国家精英名额五是:<$STR(A34)> ,总统可以 <设置/@@InPutString4>  为精英  <修改/@@InPutString4>\
国家精英名额六是:<$STR(A35)> ,总统可以 <设置/@@InPutString5>  为精英  <修改/@@InPutString5>\
国家精英名额七是:<$STR(A36)> ,总统可以 <设置/@@InPutString6>  为精英  <修改/@@InPutString6>\
国家精英名额八是:<$STR(A37)> ,总统可以 <设置/@@InPutString7>  为精英  <修改/@@InPutString7>\
国家精英名额九是:<$STR(A38)> ,总统可以 <设置/@@InPutString8>  为精英  <修改/@@InPutString8>\
国家精英名额十是:<$STR(A39)> ,总统可以 <设置/@@InPutString9>  为精英  <修改/@@InPutString9>\

[@CallInPutString0]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S0)>
#ACT
MESSAGEBOX <$STR(S0)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S0)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S0)>
#ACT
MOV A7 <$STR(S0)>
MOV G71 0
HCALL <$STR(S0)> @精英设置3
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S0)>不在线，不能设置。

[@CallInPutString1]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S1)>
#ACT
MESSAGEBOX <$STR(S1)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S1)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S1)>
#ACT
MOV A7 <$STR(S1)>
MOV G71 1
HCALL <$STR(S1)> @精英设置3
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S1)>不在线，不能设置。

[@CallInPutString2]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S2)>
#ACT
MESSAGEBOX <$STR(S2)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S2)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S2)>
#ACT
MOV A7 <$STR(S2)>
MOV G71 2
HCALL <$STR(S2)> @精英设置3
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S2)>不在线，不能设置。

[@CallInPutString3]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S3)>
#ACT
MESSAGEBOX <$STR(S3)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S3)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S3)>
#ACT
MOV A7 <$STR(S3)>
MOV G71 3
HCALL <$STR(S3)> @精英设置2
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S3)>不在线，不能设置。

[@CallInPutString4]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S4)>
#ACT
MESSAGEBOX <$STR(S4)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S4)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S4)>
#ACT
MOV A7 <$STR(S4)>
MOV G71 4
HCALL <$STR(S4)> @精英设置3
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S4)>不在线，不能设置。

[@CallInPutString5]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S5)>
#ACT
MESSAGEBOX <$STR(S5)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S5)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S5)>
#ACT
MOV A7 <$STR(S5)>
MOV G71 5
HCALL <$STR(S5)> @精英设置3
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S5)>不在线，不能设置。


[@CallInPutString6]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S6)>
#ACT
MESSAGEBOX <$STR(S6)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S6)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S6)>
#ACT
MOV A7 <$STR(S6)>
MOV G71 6
HCALL <$STR(S6)> @精英设置3
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S6)>不在线，不能设置。

[@CallInPutString7]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S7)>
#ACT
MESSAGEBOX <$STR(S7)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S7)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S7)>
#ACT
MOV A7 <$STR(S7)>
MOV G71 7
HCALL <$STR(S7)> @精英设置3
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S7)>不在线，不能设置。

[@CallInPutString8]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S8)>
#ACT
MESSAGEBOX <$STR(S8)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S8)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S8)>
#ACT
MOV A7 <$STR(S8)>
MOV G71 8
HCALL <$STR(S8)> @精英设置3
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S8)>不在线，不能设置。

[@CallInPutString9]
#IF
CheckNational 3
#ELSEACT
MESSAGEBOX 您不是蜀国总统，不能封精英。
BREAK
#IF
ISKING 3
#ELSEACT
MESSAGEBOX 您不是总统,不能设置
BREAK
#IF
EQUAL A44 <$STR(S9)>
#ACT
MESSAGEBOX <$STR(S9)>是总统，不能设置为精英
BREAK
#IF
EQUAL A64 <$STR(S9)>
#ACT
MESSAGEBOX 不能设置自己，不能设置为精英
BREAK
#if
CheckOnline <$STR(S9)>
#ACT
MOV A7 <$STR(S9)>
MOV G71 9
HCALL <$STR(S9)> @精英设置3
GOTO @封国家精英
CLOSE
#ELSEACT
MESSAGEBOX <$STR(S9)>不在线，不能设置。

[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符,请重新编辑!




[@设置总统封号]
#if
isking 1
#act
SetIcon 0 17
SetIcon 1 18
SetIcon 2 19
SetIcon 3 20
#if
isking 2
#act
SetIcon 0 21
SetIcon 1 22
SetIcon 2 23
SetIcon 3 24
#if
isking 3
#act
SetIcon 0 25
SetIcon 1 26
SetIcon 2 27
SetIcon 3 28

[@清除精英]
#IF
EQUAL A10 <$USERNAME>
#ACT
MOV A10 <$STR(A35)>
#IF
EQUAL A11 <$USERNAME>
#ACT
MOV A11 <$STR(A35)>
#IF
EQUAL A12 <$USERNAME>
#ACT
MOV A12 <$STR(A35)>
#IF
EQUAL A13 <$USERNAME>
#ACT
MOV A13 <$STR(A35)>
#IF
EQUAL A14 <$USERNAME>
#ACT
MOV A14 <$STR(A35)>
#IF
EQUAL A15 <$USERNAME>
#ACT
MOV A15 <$STR(A35)>
#IF
EQUAL A16 <$USERNAME>
#ACT
MOV A16 <$STR(A35)>
#IF
EQUAL A17 <$USERNAME>
#ACT
MOV A17 <$STR(A35)>
#IF
EQUAL A18 <$USERNAME>
#ACT
MOV A18 <$STR(A35)>
#IF
EQUAL A19 <$USERNAME>
#ACT
MOV A19 <$STR(A35)>
#IF
EQUAL A20 <$USERNAME>
#ACT
MOV A20 <$STR(A35)>
#IF
EQUAL A21 <$USERNAME>
#ACT
MOV A21 <$STR(A35)>
#IF
EQUAL A22 <$USERNAME>
#ACT
MOV A22 <$STR(A35)>
#IF
EQUAL A23 <$USERNAME>
#ACT
MOV A23 <$STR(A35)>
#IF
EQUAL A24 <$USERNAME>
#ACT
MOV A24 <$STR(A35)>
#IF
EQUAL A25 <$USERNAME>
#ACT
MOV A25 <$STR(A35)>
#IF
EQUAL A26 <$USERNAME>
#ACT
MOV A26 <$STR(A35)>
#IF
EQUAL A27 <$USERNAME>
#ACT
MOV A27 <$STR(A35)>
#IF
EQUAL A28 <$USERNAME>
#ACT
MOV A28 <$STR(A35)>
#IF
EQUAL A29 <$USERNAME>
#ACT
MOV A29 <$STR(A35)>
#IF
EQUAL A30 <$USERNAME>
#ACT
MOV A30 <$STR(A35)>
#IF
EQUAL A31 <$USERNAME>
#ACT
MOV A31 <$STR(A35)>
#IF
EQUAL A22 <$USERNAME>
#ACT
MOV A22 <$STR(A35)>
#IF
EQUAL A33 <$USERNAME>
#ACT
MOV A33 <$STR(A35)>
#IF
EQUAL A34 <$USERNAME>
#ACT
MOV A34 <$STR(A35)>
#IF
EQUAL A35 <$USERNAME>
#ACT
MOV A35 <$STR(A35)>
#IF
EQUAL A36 <$USERNAME>
#ACT
MOV A36 <$STR(A35)>
#IF
EQUAL A37 <$USERNAME>
#ACT
MOV A37 <$STR(A35)>
#IF
EQUAL A38 <$USERNAME>
#ACT
MOV A38 <$STR(A35)>
#IF
EQUAL A39 <$USERNAME>
#ACT
MOV A39 <$STR(A35)>

花瓣雨的泪珠

我也是坐沙发的

帮帮兔BBT

是爷们的娘们的都帮顶！大力支持

@Xizi_PIUN8j6b

确实不错，顶先

wangfanluck

纯粹路过，没任何兴趣，仅仅是看在老用户份上回复一下

无怨Yi无悔

好，很好，非常好！

陈辉422

LZ是天才，坚定完毕

晴天的L

支持，楼下的跟上哈~

kfy8896

楼主呀，，，您太有才了。。。

njwsr123

报告！别开枪，我就是路过来看看的。。。