找回密码
 立即注册
查看: 91|回复: 0

[脚本资源] 传奇开区一条龙最新结义系统

[复制链接]

0

威望

2660

元宝

1万

金币

VIP会员

积分
6860
逍遥MIR 发表于 2024-7-14 00:34:43 | 显示全部楼层 |阅读模式
[@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 @拒绝了


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

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|小黑屋|逍遥版本库

GMT+8, 2024-11-21 22:27 , Processed in 0.048891 second(s), 29 queries .

Powered by XyBbk! X3.5

Copyright © 2001-2024, XyBbk Cloud.

快速回复 返回顶部 返回列表