传奇私服一条龙结义系统脚本-义结金兰全流程配置详解
| [@main] <┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13> <结义系统/SCOLOR=254> <┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13> <1.你一直在结义他也的人必须在线,输入结义对象名字并提交即可./SCOLOR=239> <2.结义时将收取/SCOLOR=239><各方各50万元宝费用/SCOLOR=249> <50万元宝就可以鼓励生死之交/SCOLOR=239> <1.结义后可/SCOLOR=239><使用"穿云箭"技能/SCOLOR=249><进行无限制互相传送(任何地图)./SCOLOR=239> <1.***结义收取各方30万元宝,强制***收取执行方70万元宝./SCOLOR=239> <开始结义/@Mrrp_开始结义> <***结义/@Mrrp_***结义> <强制***/@Mrrp_强制***> 结义兄弟在五格范围内内，触发双方<80-80/SCOLOR=249>全属性加成 [@Mrrp_开始结义] #IF CHECKVAR HUMAN $Mrrp_结义状态 = #ELSEACT GOTO @MAIN MESSAGEBOX [错误]:你已是结义过了,无能再次结义. break #IF CHECKLEVELEX > 0 #ACT SetStringBlank S2 30 0 #SAY <┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13> <结义系统/SCOLOR=254> <┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13> <结义说明:/SCOLOR=250>{<$STR(S2)>/SCOLOR=239} <1.你一直在结义他也的人必须在线,面对要结义他也的人接着点提交输入结义人姓名./SCOLOR=239> <2.结义时将收取/SCOLOR=239><各方各50万元宝费用/SCOLOR=249>， <兄弟情深何言元宝/SCOLOR=239> <┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13> <提交结义/@@InPutString11> <***结义/@Mrrp_***结义> <强制***/@Mrrp_强制***> <结义兄弟在五格范围内内，触发双方80-80攻击加成/SCOLOR=13> [@Mrrp_***结义] #IF CHECKVAR HUMAN $Mrrp_结义状态 = 已结义 #ACT MOV S2 <$HUMAN($Mrrp_结义对象一)> #ELSEACT GOTO @MAIN MESSAGEBOX [错误]:你并都没结义. break #IF CheckOnline <$STR(S2)> #ACT GOTO @开始***结义8 #ELSEACT GOTO @MAIN MESSAGEBOX [错误]:结义对象[<$STR(S2)>]玩家并没在线! break [@开始***结义8] #IF #ACT S2.CALCVAR HUMAN $Mrrp_结义状态 = ***吧结义 S2.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME> GMEXECUTE 开始*** @***抛弃结义 #SAY 已向对方提出***结义申请，请耐心等待答复... 的话对方拒绝，不扣除元宝. [@Mrrp_强制***] #IF CHECKVAR HUMAN $Mrrp_结义状态 = 已结义 #ELSEACT GOTO @MAIN MESSAGEBOX [错误]:你并都没结义. break #IF CHECKGAMEGOLD ? 699999 #ACT GAMEGOLD - 700000 AddTextList .QuestDiaryMrrp系列脚本结义系统Mrrp_强制***结义名单.txt <$HUMAN($Mrrp_结义对象一)> CALCVAR HUMAN $Mrrp_结义状态 = CALCVAR HUMAN $Mrrp_结义对象一 = SAVEVAR HUMAN $Mrrp_结义状态 ..QuestDiaryMrrp系列脚本结义系统Mrrp_结义数据.txt SAVEVAR HUMAN $Mrrp_结义对象一 ..QuestDiaryMrrp系列脚本结义系统Mrrp_结义数据.txt DELSKILL 穿云箭 GuildNoticeMsg 239 0 玩家[%s]强制***他也的结义兄弟，从此割袍断义，再见面并不仇人。 GMEXECUTE 开始*** @Mrrp_清理结义 MESSAGEBOX 你强制***结义 close break #ELSEACT GOTO @MAIN MESSAGEBOX [错误]:你并没用700000元宝! break [@CallInPutString11] #IF CHECKGAMEGOLD > 299999 #ELSEACT MESSAGEBOX [错误]:元宝不足300000个！ BREAK #IF CHECKVAR HUMAN $Mrrp_结义状态 = #ELSEACT GOTO @MAIN MESSAGEBOX [错误]:你已是结义过了,无能再次结义. break #IF CheckOnline <$STR(S11)> #ELSEACT GOTO @Mrrp_开始结义 MESSAGEBOX [错误]:结义对象[<$STR(S11)>]玩家并没在线! break #IF CHECKPOSEDIR #ACT GetOppositeHumName S0 GOTO @Mrrp_开始结义1 #ELSEACT GOTO @Mrrp_开始结义 MESSAGEBOX [错误]:请与结义对象[<$STR(S11)>]玩家面对面! break [@Mrrp_开始结义1] #IF EQUAL S0 <$STR(S11)> #ELSEACT MESSAGEBOX [错误]:您对面的玩家更是你所输入的[<$STR(S11)>]玩家! break #IF S0.CHECKVAR HUMAN $Mrrp_结义状态 = #ELSEACT MESSAGEBOX [错误]:你输入的玩家已是结义过了,无能再次结义. BREAK #IF S0.CHECKGAMEGOLD > 299999 #ELSEACT MESSAGEBOX [错误]:你输入的玩家元宝不足300000个 BREAK #IF #ACT S0.CALCVAR HUMAN $Mrrp_结义状态 = 等待结义 S0.CALCVAR HUMAN $Mrrp_结义对象一 = <$USERNAME> GMEXECUTE 开始*** @Mrrp_结义*** #SAY 已向对方提出结义申请，请耐心等待答复... 的话对方拒绝，不扣除元宝. |