在玩传奇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)>
</@好友列表(1)></@好友列表(2)></@好友列表(3)></@好友列表(4)></@好友列表(5)></@好友列表(6)></@好友列表(7)></@好友列表(8)></@好友列表(9)></@好友列表(10)></@好友列表(11)></@好友列表(12)></@好友列表(13)></@好友列表(14)></@好友列表(15)></@好友列表(16)></@好友列表(17)></@好友列表(18)></@好友列表(19)></@好友列表(20)>
</@@修改好友(1)></@@修改好友(2)></@@修改好友(3)></@@修改好友(4)></@@修改好友(5)></@@修改好友(6)></@@修改好友(7)></@@修改好友(8)></@@修改好友(9)></@@修改好友(10)></@@修改好友(11)></@@修改好友(12)></@@修改好友(13)></@@修改好友(14)></@@修改好友(15)></@@修改好友(16)></@@修改好友(17)></@@修改好友(18)></@@修改好友(19)></@@修改好友(20)></@申请传送(1)></@申请传送(2)></@申请传送(3)></@申请传送(4)></@申请传送(5)></@申请传送(6)></@申请传送(7)></@申请传送(8)></@申请传送(9)></@申请传送(10)></@申请传送(11)></@申请传送(12)></@申请传送(13)></@申请传送(14)></@申请传送(15)></@申请传送(16)></@申请传送(17)></@申请传送(18)></@申请传送(19)></@申请传送(20)>
#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)>\
</@好友列表(1)></@好友列表(2)></@好友列表(3)></@好友列表(4)></@好友列表(5)></@好友列表(6)></@好友列表(7)></@好友列表(8)></@好友列表(9)></@好友列表(10)></@好友列表(11)></@好友列表(12)></@好友列表(13)></@好友列表(14)></@好友列表(15)></@好友列表(16)></@好友列表(17)></@好友列表(18)></@好友列表(19)></@好友列表(20)></@@修改好友(1)></@@修改好友(2)></@@修改好友(3)></@@修改好友(4)></@@修改好友(5)></@@修改好友(6)></@@修改好友(7)></@@修改好友(8)></@@修改好友(9)></@@修改好友(10)></@@修改好友(11)></@@修改好友(12)></@@修改好友(13)></@@修改好友(14)></@@修改好友(15)></@@修改好友(16)></@@修改好友(17)></@@修改好友(18)></@@修改好友(19)></@@修改好友(20)></@接受申请></@拒绝申请></@申请传送(1)></@申请传送(2)></@申请传送(3)></@申请传送(4)></@申请传送(5)></@申请传送(6)></@申请传送(7)></@申请传送(8)></@申请传送(9)></@申请传送(10)></@申请传送(11)></@申请传送(12)></@申请传送(13)></@申请传送(14)></@申请传送(15)></@申请传送(16)></@申请传送(17)></@申请传送(18)></@申请传送(19)></@申请传送(20)>
[@申请好友]
#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 "你积分不足"
}
本文出自:
搜传奇3转载请注明来处：http://www.so373.com/showarticle.asp?id=246
