(@@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 $S圣爵传奇TR(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
M传奇sf用什么外挂好ESSAGEBOX 您不是总统,不能设置
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)