;;QQ:67762207
[@FREDID_1]
{
#IF
check [588] 1
#SAY
Congratulations you join Mary Enamel mainland tribes, at the same time you also have a tribal sense of talent!\
<The use of tribal natural induction/@部落天赋>\
#ELSESAY
You did not join the tribe, and can not have tribal induction talent?!\
<退出/@Exit>

[@部落天赋]
#ACT
LOADVALUE D0 "QuestDiary\winma\Tribeinduction\FDLIST.txt" %username 总好友数
MOV A5 ""
GOTO @HYCYCLIST

[@HYCYCLIST]
#IF
LARGE D0 0
#ACT
LOADVALUE A0 "QuestDiary\winma\Tribeinduction\FDLIST.txt" %username %D0
LOADVALUE D1 "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %A0 %USERNAME 
GOTO @YSFRID
#ELSEACT
goto @FREDDIY

[@YSFRID]
#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}Status:{FCOLOR/12}{FCOLOR/13} Accepted{FCOLOR/12}\"
DEC D0 1
GOTO @HYCYCLIST
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}Status:{FCOLOR/12}{FCOLOR/1} Deny{FCOLOR/12}\"
DEC D0 1
GOTO @HYCYCLIST
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}Status:{FCOLOR/12} None\"
DEC D0 1
GOTO @HYCYCLIST
BREAK

[@FREDDIY]
#ACT
Loadvalue D6 "QuestDiary\winma\Tribeinduction\FDLIST\参数控制.txt" 参数控制 好友列表移动消耗积分
Loadvalue D1 "QuestDiary\winma\Tribeinduction\FDLIST\参数控制.txt" 参数控制 好友列表改名积分
Loadvalue D2 "QuestDiary\winma\Tribeinduction\FDLIST\参数控制.txt" 参数控制 好友列表增加用户积分
Loadvalue D3 "QuestDiary\winma\Tribeinduction\FDLIST\参数控制.txt" 参数控制 好友列表用户最大个数
LOADVALUE A2 "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %USERNAME 申请者

#IF
EQUAL A2 ""
#SAY
<[部落感应说明]/@好友列表说明>\
你目前还有{FCOLOR/10}<$USERJF>{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}<$USERJF>{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\winma\Tribeinduction\FDLIST.txt" %username 总好友数

#IF
     checkcmd CHECKUSERJF  %D2
ELARGE D3 %D0
#SAY
目前你的积分有{FCOLOR/10}<$USERJF>{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 
   actcmd SETUSERJF   - %D2
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST.txt" %username %D0 %A6
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST.txt" %username 总好友数 %D0
DELAYGOTO [LOCAL] 3 @FREDID_1
#SAY
数据处理中....

[@申请传送()]
#ACT
MOV D8 %ARG(1)
LOADVALUE A6 "QuestDiary\winma\Tribeinduction\FDLIST.txt" %username %D8
LOADVALUE A4 "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %A6 申请者
#IF
EQUAL A4 "" 
#ACT
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %A6 申请者 %username
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %A6 %username 0
#SAY
申请完毕,请等待该玩家回应,接受后,请立刻使用传送功能\
<[返回]/@FREDID_1>
#ELSESAY
对不起,该玩家在使用该功能,请稍候使用\
<[返回]/@FREDID_1>
 
[@接受申请]
#ACT
LOADVALUE A2 "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %USERNAME 申请者
MOV A7 %USERMAP
#IF
!checkcmd CHECKMAPFLAG KSNOMOVE 
#ACT
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %USERNAME %A2 1
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\玩家坐标.txt" %USERNAME 地图 %A7 
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\玩家坐标.txt" %USERNAME X坐标 %USERX
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\玩家坐标.txt" %USERNAME Y坐标 %USERY
#SAY
请逗留在此等待你的好友一会儿...\\\
{FCOLOR/1}请用私聊,提醒他...马上过来{FCOLOR/12}
#ELSEACT
SYSMSG "对不起,该地区被禁止,我无法感应任何信息!"
BREAK


[@拒绝申请]
#ACT
LOADVALUE A2 "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %USERNAME 申请者
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %USERNAME %A2 2
MOV A2 ""
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %USERNAME 申请者 %A2
#SAY
你选择了拒绝,拒绝成功,该部落成员不能来到你身边\
<[返回]/@FREDID_1>


[@@修改好友()]
#ACT
MOV A6 %INPUTSTR
MOV D0 %ARG(1)
GOTO @积分分1

[@积分分1]
#IF
     checkcmd CHECKUSERJF  %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 @SERDXT43

[@SERDXT43]
#ACT
   actcmd SETUSERJF   - %D1
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST.txt" %username %D0 %A6
SYSMSG "修改成功"
DELAYGOTO [LOCAL] 3 @FREDID_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}个部落成员好友\
<[返回]/@FREDID_1>

[@好友列表()]
#ACT
MOV D8 %ARG(1)
LOADVALUE A6 "QuestDiary\winma\Tribeinduction\FDLIST.txt" %username %D8
LOADVALUE D1 "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %A6 %USERNAME
#IF
EQUAL D1 1
#ACT
GOTO @JIFENKKF
#ELSESAY
没有经得对方接受同意,你无法传送!\
<[返回]/@FREDID_1>

[@JIFENKKF]
#IF
   checkcmd CHECKUSERJF    %D6
#ACT
   actcmd SETUSERJF   - %D6 
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %A6 %USERNAME 0
MOV A2 ""
SAVEVALUE "QuestDiary\winma\Tribeinduction\FDLIST\接受者资料.txt" %A6 申请者 %A2
LOADVALUE A3 "QuestDiary\winma\Tribeinduction\FDLIST\玩家坐标.txt" %A6 地图
LOADVALUE A4 "QuestDiary\winma\Tribeinduction\FDLIST\玩家坐标.txt" %A6 X坐标
LOADVALUE A5 "QuestDiary\winma\Tribeinduction\FDLIST\玩家坐标.txt" %A6 Y坐标
MAPMOVE %A3 %A4 %A5
SYSMSG "花费了<$OUTPUT(D6)>点积分"
CLOSE
BREAK
#ELSEACT
SYSMSG "你积分不足"
}
;;QQ:67762207

