传奇开区一条龙最新结义系统

[@main]

#if
CheckOnline <$STR(T60)>
#act
MOV S$在线 <在线/SCOLOR=242>
GetHumVar <$STR(T60)> <$MapTitle> S$地图
GOTO @界面
#elseact
MOV S$在线 <不在线/SCOLOR=249>
GOTO @界面

[@界面]
#IF
#ACT
OPENMERCHANTBIGDLG 1 288 1 4 0 0 0 0 0
#SAY
<ImgEx:1:83:84:85:457:22/@exit>\
\ \
\ \
\ \
　  <结义要求：/SCOLOR=150><两人必须面对面站一起/SCOLOR=146> <(均未结义)/SCOLOR=251>　<每人只允许结义一位兄弟/SCOLOR=21>\ \
　  <结义费用：/SCOLOR=150><结义双方各有“血滴子*99个”/SCOLOR=215> (<必须双方都准备充足才可结义 否则请自负/AUTOCOLOR=242,251,249,253>)\ \
　  <结义奖励：/SCOLOR=150><@允许召唤/SCOLOR=251>　<@召唤兄弟/SCOLOR=251>\ \
　　　　　　<开始义结金兰|251#需要物品：血滴子*99个,BOOS可爆/@结义>      <割袍断义|251#需要物品：忘情水/@断绝>\ \
　  <你当前的兄弟是：/SCOLOR=95><$STR(T60)>　　<在线状态：/SCOLOR=215><$STR(S$在线)>　　<当前所在地图：/SCOLOR=146>{<$STR(S$地图)>/SCOLOR=150}\

　　　　　　<购买血滴子|251#物品爆率：各大BOOS可爆/@购买1>      <购买忘情水|251#物品爆率：各大BOOS可爆/@购买2>\

[@购买2]
#IF
CHECKGAMEGOLD > 999999
#ACT
GAMEGOLD - 1000000
GIVE 忘情水 1
break
#elseact
MessageBox 失败\\购买1个忘情水需要1000000元宝
break



[@购买1]
#IF
CHECKGAMEDIAMOND > 1
#ACT
GAMEDIAMOND - 1
GIVE 血滴子 1
break
#elseact
MessageBox 失败\\购买1个血滴子需要1RMB点
break

[@结义]
#IF
EQUAL T60
#ELSEACT
MessageBox 你已经有兄弟了,要那么多兄弟搞基啊?
break

#IF
CHECKITEM 血滴子 99
#ELSEACT
MessageBox 要滴血为证,需要血滴子99个99才能完成结拜仪式做兄弟噢!
break

#IF
CHECKGAMEGIRD > 24999
#ELSEACT
MessageBox 需要25000快手币手续费噢!
break


#IF
CHECKPOSEDIR 1
#ACT
GETPOSENAME S1
S1.GETPOSENAME S1
#ELSEACT
MessageBox 既然结义两人都得到场,而且必须面对面!
break

#IF
S1.EQUAL T60
#ELSEACT
S1.MessageBox 已经有兄弟了,要那么多兄弟搞基啊?
MessageBox 对方已经有兄弟了,要那么多兄弟搞基啊?
break

#IF
S1.CHECKITEM 血滴子 99
#ELSEACT
S1.MessageBox 要滴血为证,需要血滴子99个99才能完成结拜仪式做兄弟噢!
MessageBox 对方没有准备血滴子,要滴血为证,需要血滴子99个才能完成结拜仪式做兄弟噢!
break

#IF
#ACT
MessageBox 是否确定现在烧掉手中血滴子,和对方结为兄弟？ @确定结义 @取消


[@确定结义]
#IF
CHECKITEM 血滴子 99
#ACT
TAKE 血滴子 99
S1.MessageBox 对方请求与您结义,是否喝下兄弟的血滴子,与对方结为兄弟？ @同意结义 @取消
#SAY
　\
　\
　\
手中血滴子已燃烧,对方收到了您的结义请求\

[@同意结义]
#IF
CHECKITEM 血滴子 99
#ACT
TAKE 血滴子 99
MOV T60 <$STR(S1)>
S1.MOV T60 <$STR(S1)>
;GiveFengHao ☆情义天下☆
;S1.GiveFengHao ☆情义天下☆
SENDMSG 0 <$USERNAME>与<$STR(S1)>结为兄弟,从此肝胆相照,在奇遇记中所向披靡.
SETWEATHEREFFECT 3 2 20 0
SCENESHAKE 1 2
SuperMoveMsg 1 251 0 20 100 2 恭喜[{<$USERNAME>|253:0:1}]与[{<$STR(T60)>|253:0:1}]完成桃园结义||从此多了一位好兄弟！
#ELSEACT
MessageBox 你没有血滴子!
break
[@断绝]
#IF
EQUAL T60
#ACT
MessageBox 你都没有兄弟,和谁割袍断义啊？
break

#IF
CHECKITEM 忘情水 1
#ELSEACT
MessageBox 想要和兄弟断绝关系,需要一杯忘情水.
break

#IF
CHECKITEM 忘情水 1
#ACT
TAKE 忘情水 1
SuperMoveMsg 1 251 0 20 100 2 [{<$USERNAME>|253:0:1}]与[{<$STR(T60)>|253:0:1}]割袍断义||从此成为陌路人，再无瓜葛！
T60.MOV T60
MOV T60
break








[@取消]
#act
close
S1.GOTO @拒绝了


[@拒绝了]
　\
　\
　\
对方拒绝了和你结义,你的血滴子浪费了.

看到这帖子真是高兴！

真是难得给力的帖子啊。

淡定，淡定，淡定……

感恩无私的分享与奉献 :)

淡定，淡定，淡定……

激动人心，无法言表！

淡定，淡定，淡定……

真是难得给力的帖子啊。

楼主加油，我们都看好你哦。