义结金兰系统传奇脚本

22pk论坛 · 发表于 2017-10-6 15:16:35

[@main]
#if
CHECKLEVELEX > 0
#ACT
CALCVAR GLOBAL YJJL-结义文字费用显示 = 4万
CALCVAR GLOBAL YJJL-结义扣除费用 = 40000
CALCVAR GLOBAL YJJL-结义条件费用 = 39999

CALCVAR GLOBAL YJJL-解除文字费用显示 = 2万
CALCVAR GLOBAL YJJL-解除扣除费用 = 20000
CALCVAR GLOBAL YJJL-解除条件费用 = 19999

CALCVAR GLOBAL YJJL-强制解除文字费用显示 = 10万
CALCVAR GLOBAL YJJL-强制解除扣除费用 = 100000
CALCVAR GLOBAL YJJL-强制解除条件费用 = 99999

#if
CHECKLEVELEX > 0
#ACT
GOTO @检测结义对方在线
#SAY
　\
<【义结金兰系统】/SCOLOR=250>  <一支穿云箭,生死之交来相见! /SCOLOR=31> \
<………………………………………………………………………………/SCOLOR=227>\
<1.你要结义的人必须在线,输入结义对象名字,等待对方同意即可完成结义！/SCOLOR=242>\
<2.结义时将收取/SCOLOR=242><结义双方各><$GLOBAL(YJJL-结义文字费用显示)><元宝费用><结义时双方必须在我4*4范围内!/SCOLOR=242>\
<3.结义后可输入/SCOLOR=242><‘@穿云箭’><命令来传唤对方过来支援你！/SCOLOR=242>\
<4.解除结义收取各方/SCOLOR=242><$GLOBAL(YJJL-解除文字费用显示)><元宝/SCOLOR=254><,强制解除收取执行方/SCOLOR=242><$GLOBAL(YJJL-强制解除文字费用显示)><元宝/SCOLOR=254>\
<结义兄弟在5*5范围内,触发金兰BUFF:双方增加50-50全属性加成！/SCOLOR=243>\
<『你的义结金兰』：/SCOLOR=253><$HUMAN(YJJL-结义对象)>    <『是否在线』：/SCOLOR=253><$HUMAN(YJJL-是否在线)>\
<开始结义/@@InPutString85>　　　　<解除结义/@解除结义>　　　　<强制解除/@强制解除结义>　　

[@强制解除结义]
#IF
CHECKVAR HUMAN YJJL-是否结义 = 1
#ELSEACT
messagebox 不要瞎点！你孤家寡人一个,解除什么？
BREAK
#IF
checkgamegold > <$GLOBAL(YJJL-强制解除条件费用)>
#ACT
gamegold - <$GLOBAL(YJJL-强制解除扣除费用)>
MOV S90 <$HUMAN(YJJL-结义对象)>
CALCVAR HUMAN YJJL-结义对象 = 　
SAVEVAR HUMAN YJJL-结义对象 ..\QuestDiary\盘古独家制作\义结金兰系统\义结金兰数据.txt
CALCVAR HUMAN YJJL-是否结义 = 0
SAVEVAR HUMAN YJJL-是否结义 ..\QuestDiary\盘古独家制作\义结金兰系统\义结金兰数据.txt
GOTO @main
messagebox 强制解除成功！
#ELSEACT
messagebox 强制解除失败,你元宝不足！
BREAK
#IF
<$STR(S90)>.CheckOnline
#ACT
S90.GOTO @通知对方强制解除

[@通知对方强制解除]
#ACT
messagebox 【<$HUMAN(YJJL-结义对象)>】对你进行了强制解除金兰关系,从此恩断义绝,不再是金兰关系了！
CALCVAR HUMAN YJJL-结义对象 = 　
SAVEVAR HUMAN YJJL-结义对象 ..\QuestDiary\盘古独家制作\义结金兰系统\义结金兰数据.txt
CALCVAR HUMAN YJJL-是否结义 = 0
SAVEVAR HUMAN YJJL-是否结义 ..\QuestDiary\盘古独家制作\义结金兰系统\义结金兰数据.txt

[@解除结义]
#IF
CHECKVAR HUMAN YJJL-是否结义 = 1
#ELSEACT
messagebox 不要瞎点！你孤家寡人一个,解除什么？
BREAK
#IF
<$HUMAN(YJJL-结义对象)>.CheckOnline
#ELSEACT
messagebox ‘<$HUMAN(YJJL-结义对象)>’不在线,不能完成结义！
BREAK
#if
CHECKLEVELEX > 0
#act
CALCVAR GLOBAL YJJL-临时记录 = <$USERNAME>
MOV S90 <$HUMAN(YJJL-结义对象)>
S90.GOTO @向对方发送解除申请
#SAY
　\
　\
  <你的解除结义申请已发送给/SCOLOR=253><【/SCOLOR=254><$HUMAN(YJJL-结义对方名)><】/SCOLOR=254><了,等待他的同意……/SCOLOR=253>

[@向对方发送解除申请]
#ACT
CALCVAR HUMAN YJJL-结义对方名 = <$GLOBAL(YJJL-临时记录)>
messagebox 你收到了来自【<$HUMAN(YJJL-结义对方名)>】的解除结义请求,要与你割袍断义！\　\点‘确定’表示同意解除金兰关系(收取<$GLOBAL(YJJL-解除文字费用显示)>元宝)\点‘取消’表示拒绝 @确认解除 @取消解除

[@InPutString85]
#IF
CHECKVAR HUMAN YJJL-是否结义 = 1
#ACT
messagebox 操作失败！你有结义的人了,不能与他人结义！
BREAK
#IF
EQUAL S85
#ACT
messagebox 请输入正确的名字！
BREAK
#IF
CheckHumInRange 3 344 322 4
#ELSEACT
messagebox 请站在与我4*4范围内！
BREAK
#IF
<$STR(S85)>.CheckOnline
#ACT
CALCVAR HUMAN YJJL-结义对方名 = <$STR(S85)>
#ELSEACT
messagebox ‘<$STR(S85)>’不在线,不能完成结义！
BREAK
#IF
S85.CHECKVAR HUMAN YJJL-是否结义 = 1
#ACT
messagebox 结义失败！对方【<$HUMAN(YJJL-结义对方名)>】已有结义的人了！
BREAK
#IF
S85.CheckHumInRange 3 344 322 4
#ELSEACT
messagebox 结义失败！对方【<$HUMAN(YJJL-结义对方名)>】不在范围4*4内！
BREAK
#if
CHECKLEVELEX > 0
#act
CALCVAR GLOBAL YJJL-临时记录 = <$USERNAME>
S85.GOTO @向对方发送结义申请
#SAY
　\
　\
  <你的结义申请已发送给/SCOLOR=253><【/SCOLOR=254><$HUMAN(YJJL-结义对方名)><】/SCOLOR=254><了,等待他的同意……/SCOLOR=253>

[@向对方发送结义申请]
#ACT
CALCVAR HUMAN YJJL-结义对方名 = <$GLOBAL(YJJL-临时记录)>
messagebox 你收到了来自【<$HUMAN(YJJL-结义对方名)>】的结义请求,希望与你义结金兰！\　\点‘确定’表示同意结义(收取<$GLOBAL(YJJL-结义文字费用显示)>元宝)\点‘取消’表示拒绝 @确认结义 @取消结义

[@检测结义对方在线]
#IF
CHECKVAR HUMAN YJJL-是否结义 = 1
#ELSEACT
CALCVAR HUMAN YJJL-是否在线 = 　
BREAK
#IF
<$HUMAN(YJJL-结义对象)>.CheckOnline
#ACT
CALCVAR HUMAN YJJL-是否在线 = 在线
#ELSEACT
CALCVAR HUMAN YJJL-是否在线 = 不在线

[@确认结义]
#ACT
#CALL [\盘古独家制作\义结金兰系统\义结金兰系统结义触发.txt] @义结金兰系统-确认结义
[@取消结义]
#ACT
#CALL [\盘古独家制作\义结金兰系统\义结金兰系统结义触发.txt] @义结金兰系统-取消结义
[@确认解除]
#ACT
#CALL [\盘古独家制作\义结金兰系统\义结金兰系统结义触发.txt] @义结金兰系统-确认解除
[@取消解除]
#ACT
#CALL [\盘古独家制作\义结金兰系统\义结金兰系统结义触发.txt] @义结金兰系统-取消解除