传奇3私服好友列表脚本

分类：Mir3    ‌‍ 阅读：421

2020-04-04 02:00:00

    ‌‍ 在玩传奇3私服的时候肯定会有好多在一起玩的很投机的好友,这个脚本就是给你提供了这方面的便利,可以将好友添加起来,做成列表,还可以对好友做一系列的操作.
    
    [@好友列表_1]
    {
    #ACT
    LOADVALUE D0 "QuestDiary\数据库\好友列表\好友资料.txt" %username 总好友数
    MOV A5 ""
    GOTO @好友循环列表
    
    [@好友循环列表]
    #IF
    LARGE D0 0
    #ACT
    LOADVALUE A0 "QuestDiary\数据库\好友列表\好友资料.txt" %username %D0
    LOADVALUE D1 "QuestDiary\数据库\好友列表\接受者资料.txt" %A0 %USERNAME
    GOTO @运算好友
    #ELSEACT
    goto @好友列表显示
    
    [@运算好友]
    #IF
    EQUAL D1 1
    #ACT
    ADDSTR A5 "<[传送:"
    ADDSTR A5 %A0
    ADDSTR A5 "]/@好友列表("
    ADDSTR A5 %D0
    ADDSTR A5 ")> <[修改]/@@修改好友("
    ADDSTR A5 %D0
    ADDSTR A5 ")> <[申请传送]/@申请传送(
    ADDSTR A5 %D0
    ADDSTR A5 ")> {FCOLOR/10}状态:{FCOLOR/12}{FCOLOR/13}接受{FCOLOR/12}\"
    DEC D0 1
    GOTO @好友循环列表
    BREAK
    #IF
    EQUAL D1 2
    #ACT
    ADDSTR A5 "<[传送:"
    ADDSTR A5 %A0
    ADDSTR A5 "]/@好友列表("
    ADDSTR A5 %D0
    ADDSTR A5 ")> <[修改]/@@修改好友("
    ADDSTR A5 %D0
    ADDSTR A5 ")> <[申请传送]/@申请传送(
    ADDSTR A5 %D0
    ADDSTR A5 ")> {FCOLOR/10}状态:{FCOLOR/12}{FCOLOR/1}拒绝{FCOLOR/12}\"
    DEC D0 1
    GOTO @好友循环列表
    BREAK
    #ELSEACT
    ADDSTR A5 "<[传送:"
    ADDSTR A5 %A0
    ADDSTR A5 "]/@好友列表("
    ADDSTR A5 %D0
    ADDSTR A5 ")> <[修改]/@@修改好友("
    ADDSTR A5 %D0
    ADDSTR A5 ")> <[申请传送]/@申请传送(
    ADDSTR A5 %D0
    ADDSTR A5 ")> {FCOLOR/10}状态:{FCOLOR/12}无\"
    DEC D0 1
    GOTO @好友循环列表
    BREAK
    
    [@好友列表显示]
    #ACT
    Loadvalue D6 "QuestDiary\数据库\好友列表\参数控制.txt" 参数控制 好友列表移动消耗积分
    Loadvalue D1 "QuestDiary\数据库\好友列表\参数控制.txt" 参数控制 好友列表改名积分
    Loadvalue D2 "QuestDiary\数据库\好友列表\参数控制.txt" 参数控制 好友列表增加用户积分
    Loadvalue D3 "QuestDiary\数据库\好友列表\参数控制.txt" 参数控制 好友列表用户最大个数
    LOADVALUE A2 "QuestDiary\数据库\好友列表\接受者资料.txt" %USERNAME 申请者
    
    #IF
    EQUAL A2 ""
    #SAY
    <[好友列表说明]/@好友列表说明>\
    你目前还有{FCOLOR/10}<$HLPOINT>{FCOLOR/12}点积分.\
    {FCOLOR/1}注意:若此人不在线,请切勿使用该功能否则后果自负!{FCOLOR/12}\
    <[添 加 列 表 好 友]/@申请好友>\
    <$OUTPUT(A5)>
    
    
    #ELSEACT
    MOV A3 "{FCOLOR/10}申请者:{FCOLOR/12}{FCOLOR/11}"
    ADDSTR A3 %A2
    ADDSTR A3 "{FCOLOR/12} <[接 受]/@接受申请> <[拒 绝]/@拒绝申请>"
    GOTO @ANOTHER
    
    [@ANOTHER]
    #IF
    #SAY
    <[好友列表说明]/@好友列表说明>\
    你目前还有{FCOLOR/10}<$HLPOINT>{FCOLOR/12}点积分.\
    {FCOLOR/1}注意:若此人不在线,请切勿使用该功能否则后果自负!{FCOLOR/12}\
    <[添 加 列 表 好 友]/@申请好友>\
    <$OUTPUT(A3)>\
    <$OUTPUT(A5)>\
    
    
    [@申请好友]
    #ACT
    LOADVALUE D0 "QuestDiary\数据库\好友列表\好友资料.txt" %username 总好友数
    
    #IF
    HLSCRIPTCMD CHECKPOINT %D2
    ELARGE D3 %D0
    #SAY
    目前你的积分有{FCOLOR/10}<$HLPOINT>{FCOLOR/12}点\
    <请输入你要加入的玩家名字/@@inputuname>
    #ELSESAY
    你的积分不足 或者 你的好友数已满!\
    
    
    [@@inputuname]
    #ACT
    MOV A6 %INPUTSTR
    FormatStr "FLD_CHARACTER=%s" %A6
    ReadValueSql "TBL_CHARACTER" %A9 "FLD_CHARACTER" @existA2
    
    [@existA2()]
    #ACT
    MOV A1 %ARG(1)
    #IF
    equal A1 %USERNAME
    #ACT
    SYSMSG "对不起,不能加自己为好友!"
    BREAK
    #IF
    EQUAL A1 ""
    #ACT
    SYSMSG "输入的信息有误~~"
    BREAK
    #ELSEACT
    GOTO @记录好友资料
    
    [@记录好友资料]
    #ACT
    INC D0 1
    HLSCRIPTCMD SETPOINT - %D2
    SAVEVALUE "QuestDiary\数据库\好友列表\好友资料.txt" %username %D0 %A6
    SAVEVALUE "QuestDiary\数据库\好友列表\好友资料.txt" %username 总好友数 %D0
    DELAYGOTO [LOCAL] 3 @好友列表_1
    #SAY
    数据处理中....
    
    [@申请传送()]
    #ACT
    MOV D8 %ARG(1)
    LOADVALUE A6 "QuestDiary\数据库\好友列表\好友资料.txt" %username %D8
    LOADVALUE A4 "QuestDiary\数据库\好友列表\接受者资料.txt" %A6 申请者
    #IF
    EQUAL A4 ""
    #ACT
    SAVEVALUE "QuestDiary\数据库\好友列表\接受者资料.txt" %A6 申请者 %username
    SAVEVALUE "QuestDiary\数据库\好友列表\接受者资料.txt" %A6 %username 0
    #SAY
    申请完毕,请等待该玩家回应,接受后,请立刻使用传送功能\
    <[返回]/@好友列表_1>
    #ELSESAY
    对不起,该玩家在使用该功能,请稍候使用\
    <[返回]/@好友列表_1>
    
    [@接受申请]
    #ACT
    LOADVALUE A2 "QuestDiary\数据库\好友列表\接受者资料.txt" %USERNAME 申请者
    MOV A7 %USERMAP
    #IF
    !EQUAL A7 D024
    !EQUAL A7 D6015
    !EQUAL A7 D1215
    !EQUAL A7 D10162
    !EQUAL A7 D515
    !EQUAL A7 D1116
    !EQUAL A7 D1506
    !EQUAL A7 D904
    !EQUAL A7 D1606
    !EQUAL A7 D2005
    !EQUAL A7 d2107
    !EQUAL A7 D71601
    !EQUAL A7 D71602
    !EQUAL A7 D71603
    !EQUAL A7 D71604
    !EQUAL A7 D71605
    !EQUAL A7 D71606
    !EQUAL A7 D71607
    !EQUAL A7 D71608
    !EQUAL A7 D71609
    !EQUAL A7 D71610
    !EQUAL A7 D71611
    !EQUAL A7 D71612
    !EQUAL A7 D71613
    !EQUAL A7 D71614
    !EQUAL A7 D71615
    !EQUAL A7 D71616
    !EQUAL A7 D71617
    !EQUAL A7 D71618
    !EQUAL A7 D905
    !EQUAL A7 D906
    !EQUAL A7 D9071
    !EQUAL A7 D9072
    !EQUAL A7 D908
    !EQUAL A7 RUSH1
    !EQUAL A7 D808
    !EQUAL A7 D8021
    !EQUAL A7 D8071
    !EQUAL A7 WEIZHI
    !EQUAL A7 T005
    !EQUAL A7 T0
    !EQUAL A7 D2304
    !EQUAL A7 D2503
    !EQUAL A7 D2303
    !EQUAL A7 DQ8_01
    !EQUAL A7 DQD003_01
    !EQUAL A7 10_001
    !EQUAL A7 2_001
    !EQUAL A7 D2701
    !EQUAL A7 D2702
    !EQUAL A7 D2703
    #ACT
    SAVEVALUE "QuestDiary\数据库\好友列表\接受者资料.txt" %USERNAME %A2 1
    SAVEVALUE "QuestDiary\数据库\好友列表\玩家坐标.txt" %USERNAME 地图 %A7
    SAVEVALUE "QuestDiary\数据库\好友列表\玩家坐标.txt" %USERNAME X坐标 %USERX
    SAVEVALUE "QuestDiary\数据库\好友列表\玩家坐标.txt" %USERNAME Y坐标 %USERY
    #SAY
    请逗留在此等待你的好友一会儿...\\\
    {FCOLOR/1}请用私聊,提醒他...马上过来{FCOLOR/12}
    #ELSEACT
    SYSMSG "对不起,该地区被禁止,不能让你的好友过来,无法通过验证.!"
    BREAK
    
    
    [@拒绝申请]
    #ACT
    LOADVALUE A2 "QuestDiary\数据库\好友列表\接受者资料.txt" %USERNAME 申请者
    SAVEVALUE "QuestDiary\数据库\好友列表\接受者资料.txt" %USERNAME %A2 2
    MOV A2 ""
    SAVEVALUE "QuestDiary\数据库\好友列表\接受者资料.txt" %USERNAME 申请者 %A2
    #SAY
    你选择了拒绝,拒绝成功,该玩家不能来到你身边\
    <[返回]/@好友列表_1>
    
    
    [@@修改好友()]
    #ACT
    MOV A6 %INPUTSTR
    MOV D0 %ARG(1)
    GOTO @积分分1
    
    [@积分分1]
    #IF
    HLSCRIPTCMD CHECKPOINT %D1
    #ACT
    FormatStr "FLD_CHARACTER=%s" %A6
    ReadValueSql "TBL_CHARACTER" %A9 "FLD_CHARACTER" @existA3
    #ELSESAY
    对不起,你的积分不足!
    
    [@existA3()]
    #ACT
    MOV A1 %ARG(1)
    #IF
    EQUAL A1 ""
    #ACT
    SYSMSG "你输入的信息不能为空!"
    BREAK
    #IF
    EQUAL A1 %USERNAME
    #ACT
    SYSMSG "不能修改自己为好友"
    BREAK
    #ELSEACT
    GOTO @发觉隧道局发
    
    [@发觉隧道局发]
    #ACT
    HLSCRIPTCMD SETPOINT - %D1
    SAVEVALUE "QuestDiary\数据库\好友列表\好友资料.txt" %username %D0 %A6
    SYSMSG "修改成功"
    DELAYGOTO [LOCAL] 3 @好友列表_1
    #SAY
    数据处理中...
    
    [@好友列表说明]
    #SAY
    {FCOLOR/10}使用说明:{FCOLOR/12}列表中的好友,可以申请移动到列表中玩家身边,但是前提是该玩家接受你的请求,请求通过后,请玩家第一时间使用移动功能,移动到该玩家身边,否则可能你所到的地点和该玩家有偏差!同时接受了请求的玩家,最好能在原地稍等片刻!\
    {FCOLOR/1}注意:{FCOLOR/12}部分地图不能使用~该功能,被申请玩家玩家无法接受该功能\
    增加一个好友需要{FCOLOR/1}<$OUTPUT(D2)>{FCOLOR/12}点积分,每次改动需要{FCOLOR/1}<$OUTPUT(D1)>{FCOLOR/12}点积分,每次移动消耗{FCOLOR/1}<$OUTPUT(D6)>{FCOLOR/12}点积分,每个玩家最多能拥有{FCOLOR/1}<$OUTPUT(D3)>{FCOLOR/12}个好友\
    <[返回]/@好友列表_1>
    
    [@好友列表()]
    #ACT
    MOV D8 %ARG(1)
    LOADVALUE A6 "QuestDiary\数据库\好友列表\好友资料.txt" %username %D8
    LOADVALUE D1 "QuestDiary\数据库\好友列表\接受者资料.txt" %A6 %USERNAME
    #IF
    EQUAL D1 1
    #ACT
    GOTO @JIFENKKF
    #ELSESAY
    没有经得对方接受同意,你无法传送!\
    <[返回]/@好友列表_1>
    
    [@JIFENKKF]
    #IF
    HLSCRIPTCMD CHECKPOINT %D6
    #ACT
    HLSCRIPTCMD SETPOINT - %D6
    SAVEVALUE "QuestDiary\数据库\好友列表\接受者资料.txt" %A6 %USERNAME 0
    MOV A2 ""
    SAVEVALUE "QuestDiary\数据库\好友列表\接受者资料.txt" %A6 申请者 %A2
    LOADVALUE A3 "QuestDiary\数据库\好友列表\玩家坐标.txt" %A6 地图
    LOADVALUE A4 "QuestDiary\数据库\好友列表\玩家坐标.txt" %A6 X坐标
    LOADVALUE A5 "QuestDiary\数据库\好友列表\玩家坐标.txt" %A6 Y坐标
    MAPMOVE %A3 %A4 %A5
    SYSMSG "花费了<$OUTPUT(D6)>点积分"
    CLOSE
    BREAK
    #ELSEACT
    SYSMSG "你积分不足"
    }