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

(@@InPutString @@InPutInteger )[@main]蜀国总统信息/SCOLOR=221：战绩最高/@的可以登基总统宝座！[退位让贤]/@退位让贤\===========================================================\蜀国当前就任的总统：$STR(A64) 好评率:$STR(A72)% 低于50%部分总统权利禁用\当前等级为：$STR(A62)\当前战绩为：$STR(A61)\今日贡献：$ST中变无英雄传奇私服R(A63) 贡献度说明/@贡献说明1 如何做总统/@做总统\===========================================================\如果你的个人实力/@实力有2项超过了总统，你就可以争夺总统宝座/AUTOCOLOR=250,253,254\夺取总统宝座/@夺取总统宝座 领取总统龙珠/@领取总统专用物品 总统至高权利/@总统至高权利\[@贡献说明1]#actMESSAGEBOX 向国家捐款（国家使者），可以获得相应数量的贡献度!\贡献度按天计算，每天0点重新计算！！[@实力]#say=========================总统实力==========================\ \当前等级为：$STR(A62) 当前战绩为：$STR(A61) 今日贡献：$STR(A63) \=========================个人实力==========================\ \当前等级为：$LEVEL 当前战绩为：$GAMEPOINT 今日贡献：$HUMAN(JUAN)\===========================================================\[@退位让贤]#CALL [\总统让位\蜀国.txt] @蜀国让位[@领取总统专用物品]#IFIsKing 3#ACTGOTO @领取物品#ELSESAY对不起你不是蜀王总统![@领取物品]尊敬的总统:\领取总统龙珠需要,2W元宝+500点战绩/SCOLOR=251\说明:宝石不可以修理，可以触发1.6倍攻击属性/SCOLOR=254\　\　\　　确定领取/@确定领取★━━━━★/AUTOCOLOR=250,253,254,241确定领取/@确定领取\[@确定领取]#IFIsKing 1CheckGAMEPOINT 499CHECKGAMEGOLD 19999#ACTGAMEPOINT - 500GAMEGOLD - 20000give 总统龙珠 1SENDMSG 1 恭喜： 蜀国总统[%s]成功领取总统龙珠！#ELSESAY对不起你不是总统，或者你没有2W元宝和500点战绩\[@做总统]当前无总统状态，只要是上将官员并且有1000点战绩你就能做总统\只要上将官的战绩超过了总统就可以抢夺总统王位\要是你是款爷的并且还是上将官的话，只要花点元宝就能抢夺王位\总统能带上总统专属宝石！并且发挥1.6倍的攻击\并能享受只有总统才有的权利，心动了吗，那就行动吧\[@夺取总统宝座]-----------------------------------------------------------\当前国家可用国库资金：$NATIONGOL传奇私服发布网D元\　\争夺总统/@夺取总统宝座2 我的战绩比总统的战绩多，我觉得我有资格。\夺取总统/@夺取总统 我要花20000元宝来领导国家。\　\-----------------------------------------------------------\[@夺取总统宝座2]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国人，不能争夺总统宝座。BREAK#ifIsKing#actMESSAGEBOX 您现在已经是总统了。break;-----------------------------------------------------------------------#ifCheckNationRankLevel 8#ACTMOV S99 $NATIONKING#elseactmessagebox 对不起，你不是上将军衔!BREAK#IFEQUAL S99#ACTGOTO @无总统BREAK#ifCHECKGAMEPOINT $STR(A61)CHECKLEVELEX $STR(A62)CheckNational 3#ACTMOV A36 $STR(A64)ChangeKing 3MOV A61 $GAMEPOINTMOV A62 $LEVELMOV A63 $HUMAN(JUAN)MOV A64 $USERNAMEMOV A72 $ARMChangeNationPro 2 - 20000ChangeNationPro 2 + 50SetOnTimer 3 60GuildNoticeMsg 245 255 恭喜$USERNAME成为蜀国新的总统,在$USERNAME的领导下，蜀国会强大无比!GOTO @清除精英closebreak#ELSEACTgoto @夺取总统宝座2aBREAK;=====================================增加无总统操作开始=======================[@无总统]#IFCHECKGAMEPOINT 999CheckNational 3#ACTChangeKing 3MOV A61 $GAMEPOINTMOV A62 $LEVELMOV A63 $HUMAN(JUAN)MOV A64 $USERNAMEMOV A72 $ARMGAMEPOINT - 1000SetOnTimer 3 60GuildNoticeMsg 245 255 恭喜$USERNAME成为蜀国新的总统,在$USERNAME的领导下，蜀国会强大无比!goto @清除精英close#elseactmessagebox 对不起，你的战绩不够1000点;=====================================增加无总统操作结束=======================;=====================================增加元宝夺取总统操作开始=======================[@夺取总统]#IFCHECKGAMEGOLD 19999#elseACTmessagebox 你的元宝不够20000，不能夺取！break#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国人，不能争夺总统宝座。BREAK#ifIsKing#actMESSAGEBOX 您现在已经是总统了。break#ifCheckNationRankLevel 8#ACTMOV S99 $NATIONKING#elseactmessagebox 对不起，你不是上将军衔!BREAK#IFEQUAL S99#ACTGOTO @无总统BREAK#ifCHECKGAMEGOLD 19999CheckNational 3#ACTChangeKing 3MOV A61 $GAMEPOINTMOV A62 $LEVELMOV A63 $HUMAN(JUAN)MOV A64 $USERNAMEMOV A72 $ARMChangeNationPro 0 + 500gamegold - 20000GuildNoticeMsg 245 255 恭喜$USERNAME成为蜀国新的总统,在$USERNAME的领导下，蜀国会强大无比!goto @清除精英closebreak;=====================================增加元宝夺取总统操作结束=======================[@清除变量]#IFISADMIN#ACTMOV A61 0MOV A63 0MOV A62 0GOTO @MAINMESSAGEBOX 成功！#ELSEACTMESSAGEBOX 你并非管理员[@夺取总统宝座2a]#ifCHECKGAMEPOINT $STR(A61)CHECKVAR HUMAN JUAN $STR(A63)CheckNational 3#ACTMOV A36 $STR(A64)ChangeKing 3MOV A61 $GAMEPOINTMOV A62 $LEVELMOV A63 $HUMAN(JUAN)MOV A64 $USERNAMEMOV A72 $ARMChangeNationPro 2 - 20000ChangeNationPro 2 + 50SetOnTimer 3 60GuildNoticeMsg 245 255 恭喜$USERNAME成为蜀国新的总统,在$USERNAME的领导下，蜀国会强大无比!GOTO @清除精英closebreak#ELSEACTgoto @夺取总统宝座2bBREAK[@夺取总统宝座2b]#ifCHECKVAR HUMAN JUAN $STR(A63)CHECKLEVELEX $STR(A62)CheckNational 3#ACTMOV A36 $STR(A64)ChangeKing 3MOV A61 $GAMEPOINTMOV A62 $LEVELMOV A63 $HUMAN(JUAN)MOV A64 $USERNAMEMOV A72 $ARMChangeNationPro 2 - 20000ChangeNationPro 2 + 50SetOnTimer 3 60GuildNoticeMsg 245 255 恭喜$USERNAME成为蜀国新的总统,在$USERNAME的领导下，蜀国会强大无比!GOTO @清除精英closebreak#ELSEACTMESSAGEBOX 申请失败原因：1.你的等级没能超过总统 2.你的捐献没有超过总统 3.你的战绩没有超过总统 要继续加油喔！BREAK;--------------------------------------------------------------------------[@总统至高权利]#IFIsKing 3CheckNational 3#ELSEACTMESSAGEBOX 您不是总统，不能享受权利。BREAK#say总统可以对本国成员封国家精英称号，国家精英得到10%的攻击\ \精英在得到提示后，即攻击加高10%，精英人数限定为10人\ \封国家精英/@封国家精英 册封为国家精英攻击力提高10%\开启国战/@开启国战 所有地图杀敌方人物可以获得战绩！\号令天下/@公告 召唤本国国民到总统身边。命令：总统令.\赦免囚禁/@赦免囚禁 赦免 洗红、释放本国臣民\[@赦免囚禁]#IFCheckNationPro 2 50#ACT#CALL [\总统关押\蜀国.txt] @关押国民A#elseactmessagebox 作为总统50%好评度都没有，此功能禁用![@开启国战]#IF#SAY总统可以开启国战功能:所有地图杀敌方人物可以获得战绩,时长15分钟\ \开启条件/@1:开启国战系统需要100两国库资金。\ \国库资金:$NATIONGOLD\ \开启国战/@开启国战1[@开启国战1]#IFCheckNationPro 0 99EQUAL G26 0#ACTChangeNationPro 0 - 100MOV G26 15GuildNoticeMsg 246 162 [战报]：蜀国总统[$NATIONKING]开启了国战,时长15分钟!#elseactmessagebox 现在国战还在进行中...或者国库资金不足....请稍后开启![@封国家精英]国家精英名额一是:$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]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精传奇私发服网英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL A44 $STR(S0)#ACTMESSAGEBOX $STR(S0)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S0)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S0)#ACTMOV A7 $STR(S0)MOV G71 0HCALL $STR(S0) @精英设置3GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S0)不在线，不能设置。[@CallInPutString1]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL A44 $STR(S1)#ACTMESSAGEBOX $STR(S1)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S1)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S1)#ACTMOV A7 $STR(S1)MOV G71 1HCALL $STR(S1) @精英设置3GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S1)不在线，不能设置。[@CallInPutString2]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL A44 $STR(S2)#ACTMESSAGEBOX $STR(S2)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S2)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S2)#ACTMOV A7 $STR(S2)MOV G71 2HCALL $STR(S2) @精英设置3GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S2)不在线，不能设置。[@CallInPutString3]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL A44 $STR(S3)#ACTMESSAGEBOX $STR(S3)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S3)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S3)#ACTMOV A7 $STR(S3)MOV G71 3HCALL $STR(S3) @精英设置2GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S3)不在线，不能新开仿盛大私服设置。[@CallInPutString4]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL A44 $STR(S4)#ACTMESSAGEBOX $STR(S4)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S4)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S4)#ACTMOV A7 $STR(S4)MOV G71 4HCALL $STR(S4) @精英设置3GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S4)不在线，不能设置。[@CallInPutString5]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL A44 $STR(S5)#ACTMESSAGEBOX $STR(S5)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S5)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S5)#ACTMOV A7 $STR(S5)MOV G71 5HCALL $STR(S5) @精英设置3GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S5)不在线，不能设置。[@CallInPutString6]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL A44 $STR(S6)#ACTMESSAGEBOX $STR(S6)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S6)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S6)#ACTMOV A7 $STR(S6)MOV G71 6HCALL $STR(S6) @精英设置3GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S6)不在线，不能设置。[@CallInPutString7]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL A44 $STR(S7)#ACTMESSAGEBOX $STR(S7)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S7)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S7)#ACTMOV A7 $STR(S7)MOV G71 7HCALL $STR(S7) @精英设置3GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S7)不在线，不能设置。[@CallInPutString8]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL 170金币复古A44 $STR(S8)#ACTMESSAGEBOX $STR(S8)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S8)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S8)#ACTMOV A7 $STR(S8)MOV G71 8HCALL $STR(S8) @精英设置3GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S8)不在线，不能设置。[@CallInPutString9]#IFCheckNational 3#ELSEACTMESSAGEBOX 您不是蜀国总统，不能封精英。BREAK#IFISKING 3#ELSEACTMESSAGEBOX 您不是总统,不能设置BREAK#IFEQUAL A44 $STR(S9)#ACTMESSAGEBOX $STR(S9)是总统，不能设置为精英BREAK#IFEQUAL A64 $STR(S9)#ACTMESSAGEBOX 不能设置自己，不能设置为精英BREAK#ifCheckOnline $STR(S9)#ACTMOV A7 $STR(S9)MOV G71 9HCALL $STR(S9) @精英设置3GOTO @封国家精英CLOSE#ELSEACTMESSAGEBOX $STR(S9)不在线，不能设置。[@IsInFilterList]#ACTMESSAGEBOX 输入数据中包含了非法字符,请重新编辑![@设置总统封号]#ifisking 1#actSetIcon 0 17SetIcon 1 18SetIcon 2 19SetIcon 3 20#ifisking 2#actSetIcon 0 21SetIcon 1 22SetIcon 2 23SetIcon 3 24#ifisking 3#actSetIcon 0 25SetIcon 1 26SetIcon 2 27SetIcon 3 28[@清除精英]#IFEQUAL A10 $USERNAME#ACTMOV A10 $STR(A35)#IFEQUAL A11 $USERNAME#ACTMOV A11 $STR(A35)#IFEQUAL A12 $USERNAME#ACTMOV A12 $STR(A35)#IFEQUAL A13 $USERNAME#ACTMOV A13 $STR(A35)#IFEQUAL A14 $USERNAME#ACTMOV A14 $STR(A35)#IFEQUAL A15 $USERNAME#ACTMOV A15 $STR(A35)#IFEQUAL A16 $USERNAME#ACTMOV A16 $STR(A35)#IFEQUAL A17 $USERNAME#ACTMOV A17 $STR(A35)#IFEQUAL A18 $USERNAME#ACTMOV A18 $STR(A35)#IFEQUAL A19 $USERNAME#ACTMOV A19 $STR(A35)#IFEQUAL A20 $USERNAME#ACTMOV A20 $STR(A35)#IFEQUAL A21 $USERNAME#ACTMOV A21 $STR(A35)#IFEQUAL A22 $USERNAME#ACTMOV A22 $STR(A35)#IFEQUAL A23 $USERNAME#ACTMOV A23 $STR(A35)#IFEQUAL A24 $USERNAME#ACTMOV A24 $STR(A35)#IFEQUAL A25 $USERNAME#ACTMOV A25 $STR(A35)#IFEQUAL A26 $USERNAME#ACTMOV A26 $STR(A35)#IFEQUAL A27 $USERNAME#ACTMOV A27 $STR(A35)#IFEQUAL A28 $USERNAME#ACTMOV A28 $STR(A35)#IFEQUAL A29 $USERNAME#ACTMOV A29 $STR(A35)#IFEQUAL A30 $USERNAME#ACTMOV A30 $STR(A35)#IFEQUAL A31 $USERNAME#ACTMOV A31 $STR(A35)#IFEQUAL A22 $USERNAME#ACTMOV A22 $STR(A35)#IFEQUAL A33 $USERNAME#ACTMOV A33 $STR(A35)#IFEQUAL A34 $USERNAME#ACTMOV A34 $STR(A35)#IFEQUAL A35 $USERNAME#ACTMOV A35 $STR(A35)#IFEQUAL A36 $USERNAME#ACTMOV A36 $STR(A35)#IFEQUAL A37 $USERNAME#ACTMOV A37 $STR(A35)#IFEQUAL A38 $USERNAME#ACTMOV A38 $STR(A35)#IFEQUAL A39 $USERNAME#ACTMOV A39 $STR(A35)