客服QQ:2246654824
返回首页 自助教程 免费广告 服务条款
gom单职业传奇sf玩家结义金兰功能的脚本教程
  • 作者四百发布网
  • 来源400fb.com--四百传奇手游发布网
  • 点击7
  • 日期2020/3/28 18:24:08


         本期给大家打来单职业传奇sf游戏中增加桃园结义功能的脚本教程,本功能可以让两位玩家结义金兰同时获得属性奖励,并可以通过传送命令互相传送,此脚本适用于GOM殷勤


[@main]

#IF
CHECKLEVELEX > 0
#ACT
OPENMERCHANTBIGDLG 9 318 1 0 1 1 1 430 12
#SAY
\ \ \ \ \ \
   <结义需要『结义之石』一颗,结义时2人面对面站好。/SCOLOR=254>\ \

   <结义后2个人均可获得1.1倍攻击+1.1倍爆率 。/SCOLOR=253>\ \

   <传唤命令@允许传唤兄弟 @传唤兄弟 /SCOLOR=253>\ \

        <【/SCOLOR=249><开始结拜/@开始结拜><】/SCOLOR=249>  <【/SCOLOR=249><割袍断义/@解除关系><】/SCOLOR=249>\ \
;====================================================================================
[@开始结拜]
#IF
CHECKPOSEDIR
#ACT
GetOppositeHumName S0
#ELSEACT
MESSAGEBOX [提示]:\ \你们二个人面对面站好,不要乱动!
BREAK

#IF
INSAFEZONE
<$STR(S0)>.INSAFEZONE
#ELSEACT
MESSAGEBOX [提示]:\ \二个人必须站在安全区内,以免被乱刀砍死!
BREAK

#IF
CheckContainsText <$STR(T10)> 兄弟
#ACT
MESSAGEBOX [提示]:\ \你已经结义过了,不能背信弃义!
BREAK

#IF
<$STR(S0)>.CheckContainsText <$STR(T10)> 兄弟
#ACT
MESSAGEBOX [提示]:\ \『<$STR(S0)>』已经结义过了,他不配做你兄弟!
BREAK

#IF
ChecKitem 结义之石 1
#ACT
Take 结义之石 1
MOV T10 <$STR(S0)>·的兄弟
MOV A40 <$USERNAME>
<$STR(S0)>.MOV T10 <$STR(A40)>·的兄弟
MESSAGEBOX [提示]:\ \你与〖<$STR(S0)>〗已结拜为生死兄弟,从此有福同享有难同当!
<$STR(S0)>.MESSAGEBOX [提示]:\ \你与〖<$STR(A40)>〗已结拜为生死兄弟,从此有福同享有难同当!\ \小退后获得结拜属性!
MOV A40
MOV T9 <$MONTH><$DAY><$HOUR><$MINUTE><$SECOND>
<$STR(S0)>.MOV T9 <$MONTH><$DAY><$HOUR><$MINUTE><$SECOND>
GuildNoticeMsg 250 249 〖恭喜〗玩家『<$USERNAME>』与『<$STR(S0)>』已结拜为生死兄弟,从此有福同享有难同当!
GuildNoticeMsg 250 249 〖恭喜〗玩家『<$USERNAME>』与『<$STR(S0)>』已结拜为生死兄弟,从此有福同享有难同当!
<$STR(S0)>.SETRANKLEVELNAME %s\─转生等级:Lv.<$RELEVEL>─\─═切割总值:<$STR(N$切割总数)>点═─\─═≡倍攻[<$STR(S19)>]倍·爆率[<$KILLMONBURSTRATE>]倍≡═─\──═≡≮斩杀(<$STR(U20)>)人↘★↙牺牲(<$STR(U21)>)次≯≡═──\<$STR(T10)>
#CALL [\游戏登陆\攻击倍数.txt] @倍数触发
#CALL [\游戏登陆\爆率倍数.txt] @爆率叠加
#CALL [\游戏登陆\封号系统.txt] @封号触发
BREAK
#ELSEACT
MESSAGEBOX [提示]:\ \想要结为生死兄弟就要拿出点诚意!快去准备一颗结义之石吧!
BREAK
;======================================================================================================================

[@解除关系]
#IF
CheckContainsText <$STR(T10)> 兄弟
#ACT
MOV S0 <$STR(T10)>
DEC S0 ·的兄弟
MESSAGEBOX [提示]:\ \你确定要与〖<$STR(S0)>〗已解除兄弟关系? @确定解除关系 @取消
BREAK
#ELSEACT
MESSAGEBOX [提示]:\ \你还没有结义呢,跑来做什么?
BREAK


[@确定解除关系]
#IF
CheckContainsText <$STR(T10)> 兄弟
#ACT
MOV S0 <$STR(T10)>
DEC S0 ·的兄弟
MOV A40 <$USERNAME>
GOTO @兄弟在线
MOV T10 已解除
<$STR(S0)>.MOV T10 已解除
MESSAGEBOX [提示]:\ \你与〖<$STR(S0)>〗已解除兄弟关系,从此老死不相往来!
<$STR(S0)>.MESSAGEBOX [提示]:\ \〖<$STR(A40)>〗与你解除了兄弟关系,从此老死不相往来!
MOV A40
GuildNoticeMsg 255 233 〖提示〗玩家『<$USERNAME>』与『<$STR(S0)>』解除兄弟关系,从此老死不相往来!
GuildNoticeMsg 255 233 〖提示〗玩家『<$USERNAME>』与『<$STR(S0)>』解除兄弟关系,从此老死不相往来!
GMEXECUTE 开始提问 @解除兄弟
BREAK
#ELSEACT
MOV A40
MESSAGEBOX [提示]:\ \你还没有结义呢,跑来做什么?
BREAK

[@兄弟在线]
#IF
S0.CHECKONLINE
#ELSEACT
AddTextListEx ..\QuestDiary\解除名单.txt <$STR(S0)>
BREAK

;======================================================================================================================


[@刷新关系]

#IF
CheckContainsText <$STR(T10)> 兄弟
#ACT
VAR String GLOBAL <$STR(T9)>
LOADVAR GLOBAL <$STR(T9)> ..\QuestDiary\数据文件\结义编号.txt

#IF
CheckContainsText <$STR(T10)> 兄弟
#ACT
CALCVAR GLOBAL <$STR(T9)> = <$USERNAME><$STR(T9)>
SAVEVAR GLOBAL <$STR(T9)> ..\QuestDiary\数据文件\结义编号.txt
GMEXECUTE 开始提问 @刷新兄弟
BREAK

#IF
EQUAL <$GLOBAL(<$STR(T9)>)> 0
#ACT
BREAK


[@刷新兄弟]
#IF
EQUAL <$GLOBAL(<$STR(T9)>)> <$USERNAME><$STR(T9)>
#ACT
BREAK
#IF
CheckContainsText <$GLOBAL(<$STR(T9)>)> <$STR(T9)>
#ACT
MOV S1 <$GLOBAL(<$STR(T9)>)>
DEC S1 <$STR(T9)>
MOV T10 <$STR(S1)>·的兄弟
#CALL [\游戏登陆\攻击倍数.txt] @倍数触发
#CALL [\游戏登陆\爆率倍数.txt] @爆率叠加
#CALL [\游戏登陆\封号系统.txt] @封号触发
CALCVAR GLOBAL <$STR(T9)> = 0
SAVEVAR GLOBAL <$STR(T9)> ..\QuestDiary\数据文件\结义编号.txt
BREAK