 |
 |
|
 |
|
|
|
|
私服结义系统脚本
[@main]
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/SCOLOR=13\
结义系统/SCOLOR=254 Hot~/SCOLOR=249 一支穿云箭,生死兄弟来相见! 黯然泪下制作 /SCOLOR=31\
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈1 85合击私服┈┈┈传奇私服┈┈┈┈┈┈/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 Hot~/SCOLOR=249 一支穿云箭,生死之交来相见!/SCOLOR=31\
┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈/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
\ \
已向对方提出解除结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \
传奇sf脱机挂[@Mrrp_强制解除]
#IF
CHECKVAR HUMAN $Mrrp_结义状态 = 已结义
#ELSEACT
GOTO @MAIN
MESSAGEBOX [错误]:你并没有结义.
break
#IF
CHECKGAMEGOLD ? 699999
#ACT
GAMEGOLD - 700000
AddTextList .\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_强制解除结义名单.txt $HUMAN($Mrrp_结义对象一)
CALCVAR HUMAN $Mrrp_结义状态 =
CALCVAR HUMAN $Mrrp_结义对象一 =
SAVEVAR HUMAN $Mrrp_结义状态 ..\QuestDiary\Mrrp系列脚本\结义系统\Mrrp_结义数据.txt
SAVEVAR HUMAN $Mrrp_结义对象一 ..\QuestDiary\Mrrp系列脚本\结义系统\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
\ \
已向对方提出结义申请，请耐心等待答复...\ \
如果对方拒绝，不扣除元宝.\ \
 |
|
 |
