桃园结义脚本

meinvwudi

[@DS桃园结义MAIN]
{

#IF
CHECK [060] 0
#ACT
MOV S$DS0801召唤状态 <Img:723:1:0:-10|58#当前：禁止结义召唤^{231#如需开启召唤请点击/@DS开启结义状态>}

#IF
CHECK [060] 1
#ACT
MOV S$DS0801召唤状态 <Img:724:1:0:-10|250#当前：允许结义召唤^{231#如需关闭召唤请点击/@DS开启结义状态>}

#IF
#ACT
MOV S$DS队长名字 <$STR(T44)>
DEC S$DS队长名字 <$SERVERNAME>

#OR
EQUAL T44
EQUAL S$DS队长名字 <$USERNAME>
#ACT
DELAYGOTO 100 @DS队长界面MAIN
BREAK

#IF
#ACT
DELAYGOTO 100 @DS队员界面MAIN
BREAK

[@DS队员界面MAIN]
#IF
#ACT
MOV S$DS第一名字
MOV S$DS第二名字
MOV S$DS第三名字
MOV S$DS第四名字
GetRandomText ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt S$DS第一名字 0
GetRandomText ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt S$DS第二名字 1
GetRandomText ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt S$DS第三名字 2
GetRandomText ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt S$DS第四名字 3

#IF
CheckContainsText S$DS第一名字 ]<$USERNAME>
#ACT
MOV S$DS第一名字 <$STR(S$DS队长名字)>

#IF
CheckContainsText S$DS第二名字 ]<$USERNAME>
#ACT
MOV S$DS第二名字 <$STR(S$DS队长名字)>

#IF
CheckContainsText S$DS第三名字 ]<$USERNAME>
#ACT
MOV S$DS第三名字 <$STR(S$DS队长名字)>

#IF
CheckContainsText S$DS第四名字 ]<$USERNAME>
#ACT
MOV S$DS第四名字 <$STR(S$DS队长名字)>

;——————————————————————————————————————————-
#OR
EQUAL S$DS第一名字 <$STR(S$DS队长名字)>
CheckContainsText S$DS第一名字 ]<$USERNAME>
CheckContainsText S$DS第一名字 [男]
#ACT
MOV S$DS第一图片显示 <Img:731:1:0:44/@DS点击召唤第一>

#IF
CheckContainsText S$DS第一名字 [女]
#ACT
MOV S$DS第一图片显示 <Img:732:1:0:44/@DS点击召唤第一>

#IF
#ACT
MOV S$ZSDS第一名字 <$STR(S$DS第一名字)>
DEC S$ZSDS第一名字 [男]
DEC S$ZSDS第一名字 [女]

#IF
<$STR(S$ZSDS第一名字)>.CHECKONLINE
#ACT
MOV S$DS第一图片在线 <Img:733:1:-33:47>
#ELSEACT
MOV S$DS第一图片在线 <Img:734:1:-33:47>

#IF
EQUAL S$DS第一名字
#ACT
MOV S$DS第一图片在线
MOV S$DS第一图片显示 <Img:742:1:0:44>

;——————————————————————————————————————————-
#OR
EQUAL S$DS第二名字 <$STR(S$DS队长名字)>
CheckContainsText S$DS第二名字 ]<$USERNAME>
CheckContainsText S$DS第二名字 [男]
#ACT
MOV S$DS第二图片显示 <Img:731:1:0:108/@DS点击召唤第二>

#IF
CheckContainsText S$DS第二名字 [女]
#ACT
MOV S$DS第二图片显示 <Img:732:1:0:108/@DS点击召唤第二>

#IF
#ACT
MOV S$ZSDS第二名字 <$STR(S$DS第二名字)>
DEC S$ZSDS第二名字 [男]
DEC S$ZSDS第二名字 [女]

#IF
<$STR(S$ZSDS第二名字)>.CHECKONLINE
#ACT
MOV S$DS第二图片在线 <Img:733:1:-33:111>
#ELSEACT
MOV S$DS第二图片在线 <Img:734:1:-33:111>

#IF
EQUAL S$DS第二名字
#ACT
MOV S$DS第二图片在线
MOV S$DS第二图片显示 <Img:742:1:0:108>
;——————————————————————————————————————————-
#OR
EQUAL S$DS第三名字 <$STR(S$DS队长名字)>
CheckContainsText S$DS第三名字 ]<$USERNAME>
CheckContainsText S$DS第三名字 [男]
#ACT
MOV S$DS第三图片显示 <Img:731:1:0:172/@DS点击召唤第三>

#IF
CheckContainsText S$DS第三名字 [女]
#ACT
MOV S$DS第三图片显示 <Img:732:1:0:172/@DS点击召唤第三>

#IF
#ACT
MOV S$ZSDS第三名字 <$STR(S$DS第三名字)>
DEC S$ZSDS第三名字 [男]
DEC S$ZSDS第三名字 [女]

#IF
<$STR(S$ZSDS第三名字)>.CHECKONLINE
#ACT
MOV S$DS第三图片在线 <Img:733:1:-33:174>
#ELSEACT
MOV S$DS第三图片在线 <Img:734:1:-33:174>

#IF
EQUAL S$ZSDS第三名字
#ACT
MOV S$DS第三图片在线
MOV S$DS第三图片显示 <Img:742:1:0:172>
;——————————————————————————————————————————-
#OR
EQUAL S$DS第四名字 <$STR(S$DS队长名字)>
CheckContainsText S$DS第四名字 ]<$USERNAME>
CheckContainsText S$DS第四名字 [男]
#ACT
MOV S$DS第四图片显示 <Img:731:1:0:238/@DS点击召唤第四>

#IF
CheckContainsText S$DS第四名字 [女]
#ACT
MOV S$DS第四图片显示 <Img:732:1:0:238/@DS点击召唤第四>

#IF
#ACT
MOV S$ZSDS第四名字 <$STR(S$DS第四名字)>
DEC S$ZSDS第四名字 [男]
DEC S$ZSDS第四名字 [女]

#IF
<$STR(S$ZSDS第四名字)>.CHECKONLINE
#ACT
MOV S$DS第四图片在线 <Img:733:1:-33:236>
#ELSEACT
MOV S$DS第四图片在线 <Img:734:1:-33:236>

#IF
EQUAL S$DS第四名字
#ACT
MOV S$DS第四图片在线
MOV S$DS第四图片显示 <Img:742:1:0:238>
;——————————————————————————————————————————-

#IF
#ACT
OPENMERCHANTBIGDLG 1 722 1 0 90 80 1 197 8
#SAY
<$STR(S$DS第一图片显示)><$STR(S$DS第一图片在线)>\
<$STR(S$DS第二图片显示)><$STR(S$DS第二图片在线)>\
<$STR(S$DS第三图片显示)><$STR(S$DS第三图片在线)>\
<$STR(S$DS第四图片显示)><$STR(S$DS第四图片在线)>\
<><>\
<> <$STR(S$ZSDS第一名字)>\
<><>\
<><>\
<><>\
<><>\
<> <$STR(S$ZSDS第二名字)>\
<>\
<>\
<>\
<>\
<> <$STR(S$ZSDS第三名字)>\
<><><><>\
<> <$STR(S$ZSDS第四名字)>\
<>\
<$STR(S$DS0801召唤状态)>\
<ImgEx:1:725:726:725:-12:-9|161#点击召唤全体结义成员^-161#每使用一次扣除10W元宝/@DS0726全体召唤> \
<ImgEx:1:727:728:727:78:-42/@DS添加结义1><ImgEx:1:74:741:740:78:-42/@DS0726退出结义> \
<> <查看桃源结义系统详细说明|250#结义说明：第一个发起结义的玩家为老大，只有老大可添加成员和解散结义。
^-250#召唤说明：点击结义兄弟的名字，即可单独召唤，也可以点击下面全体召唤。
^-146#支援说明：被召唤者需要达到召唤者所在地图的进入条件，并扣除相应货币。
^-161#召唤费用：全体召唤每次需要10W元宝，也可以单独召唤，单人每次1W元宝。
^-250#操作说明：桃源结义达成之后只有老大才能添加和删除结义成员！
^-151#合区说明：合区之后删除所有结义数据，请大家合区后重新添加！
^-58#结义条件：需要开启桃园结义状态！/scolor=161><>\

[@DS0726退出结义]
#IF
#ACT
MOV S$DS队长名字 <$STR(T44)>
DEC S$DS队长名字 <$SERVERNAME>

#IF
gender man
#ACT
MOV T44
DELTEXTLIST ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt [男]<$USERNAME>
;DELTEXTLIST ..\QuestDiary\神墓制作\桃园结义\结义数据<$USERNAME>.TXT <$USERNAME>
MESSAGEBOX 　　　[操作成功]：\　\　　　　　当前成功退出结义系统！
BREAK
#elseact
MOV T44
DELTEXTLIST ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt [女]<$USERNAME>
;DELTEXTLIST ..\QuestDiary\神墓制作\桃园结义\结义数据<$USERNAME>.TXT <$USERNAME>
MESSAGEBOX 　　　[操作成功]：\　\　　　　　当前成功退出结义系统！
BREAK

[@DS添加结义1]
#IF
#ACT
MESSAGEBOX 　　　[添加失败]：\　\　　　　　只有结义老大才可以添加结义成员！
BREAK

[@DS队长界面MAIN]
#IF
#ACT
MOV S$DS第一名字
MOV S$DS第二名字
MOV S$DS第三名字
MOV S$DS第四名字

#IF
NOT EQUAL S$DS队长名字
#ACT
GetRandomText ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt S$DS第一名字 0
GetRandomText ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt S$DS第二名字 1
GetRandomText ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt S$DS第三名字 2
GetRandomText ..\QuestDiary\神墓制作\桃园结义\结义数据<$STR(S$DS队长名字)>.txt S$DS第四名字 3

;——————————————————————————————————————————-
#IF
CheckContainsText S$DS第一名字 [男]
#ACT
MOV S$DS第一图片显示 <Img:731:1:0:44/@DS点击召唤第一>

#IF
CheckContainsText S$DS第一名字 [女]
#ACT
MOV S$DS第一图片显示 <Img:732:1:0:44/@DS点击召唤第一>

#IF
#ACT
MOV S$ZSDS第一名字 <$STR(S$DS第一名字)>
DEC S$ZSDS第一名字 [男]
DEC S$ZSDS第一名字 [女]

#IF
<$STR(S$ZSDS第一名字)>.CHECKONLINE
#ACT
MOV S$DS第一图片在线 <Img:733:1:-33:47>
#ELSEACT
MOV S$DS第一图片在线 <Img:734:1:-33:47>

#IF
EQUAL S$DS第一名字
#ACT
MOV S$DS第一图片在线
MOV S$DS第一图片显示 <Img:742:1:0:44>
MOV S$DS第一图片删除

#IF
NOT EQUAL S$DS第一名字
#ACT
MOV S$DS第一图片删除 <ImgEx:1:735:736:735:8:-22/@DS0731删除第一人>
;——————————————————————————————————————————-
#IF
CheckContainsText S$DS第二名字 [男]
#ACT
MOV S$DS第二图片显示 <Img:731:1:0:108/@DS点击召唤第二>

#IF
CheckContainsText S$DS第二名字 [女]
#ACT
MOV S$DS第二图片显示 <Img:732:1:0:108/@DS点击召唤第二>

#IF
#ACT
MOV S$ZSDS第二名字 <$STR(S$DS第二名字)>
DEC S$ZSDS第二名字 [男]
DEC S$ZSDS第二名字 [女]

#IF
<$STR(S$ZSDS第二名字)>.CHECKONLINE
#ACT
MOV S$DS第二图片在线 <Img:733:1:-33:111>
#ELSEACT
MOV S$DS第二图片在线 <Img:734:1:-33:111>

#IF
EQUAL S$DS第二名字
#ACT
MOV S$DS第二图片在线
MOV S$DS第二图片显示 <Img:742:1:0:108>
MOV S$DS第二图片删除

#IF
NOT EQUAL S$DS第二名字
#ACT
MOV S$DS第二图片删除 <ImgEx:1:735:736:735:8:43/@DS0731删除第二人>
;——————————————————————————————————————————-
#IF
CheckContainsText S$DS第三名字 [男]
#ACT
MOV S$DS第三图片显示 <Img:731:1:0:172/@DS点击召唤第三>

#IF
CheckContainsText S$DS第三名字 [女]
#ACT
MOV S$DS第三图片显示 <Img:732:1:0:172/@DS点击召唤第三>

#IF
#ACT
MOV S$ZSDS第三名字 <$STR(S$DS第三名字)>
DEC S$ZSDS第三名字 [男]
DEC S$ZSDS第三名字 [女]

#IF
<$STR(S$ZSDS第三名字)>.CHECKONLINE
#ACT
MOV S$DS第三图片在线 <Img:733:1:-33:174>
#ELSEACT
MOV S$DS第三图片在线 <Img:734:1:-33:174>

#IF
EQUAL S$DS第三名字
#ACT
MOV S$DS第三图片在线
MOV S$DS第三图片显示 <Img:742:1:0:172>
MOV S$DS第三图片删除

#IF
NOT EQUAL S$DS第三名字
#ACT
MOV S$DS第三图片删除 <ImgEx:1:735:736:735:8:108/@DS0731删除第三人>
;——————————————————————————————————————————-
#IF
CheckContainsText S$DS第四名字 [男]
#ACT
MOV S$DS第四图片显示 <Img:731:1:0:236/@DS点击召唤第四>

#IF
CheckContainsText S$DS第四名字 [女]
#ACT
MOV S$DS第四图片显示 <Img:732:1:0:236/@DS点击召唤第四>

#IF
#ACT
MOV S$ZSDS第四名字 <$STR(S$DS第四名字)>
DEC S$ZSDS第四名字 [男]
DEC S$ZSDS第四名字 [女]

#IF
<$STR(S$ZSDS第四名字)>.CHECKONLINE
#ACT
MOV S$DS第四图片在线 <Img:733:1:-33:238>
#ELSEACT
MOV S$DS第四图片在线 <Img:734:1:-33:238>

#IF
EQUAL S$DS第四名字
#ACT
MOV S$DS第四图片在线
MOV S$DS第四图片显示 <Img:742:1:0:236>
MOV S$DS第四图片删除

#IF
NOT EQUAL S$DS第四名字
#ACT
MOV S$DS第四图片删除 <ImgEx:1:735:736:735:8:171/@DS0731删除第四人>
;——————————————————————————————————————————-

#IF
#ACT
OPENMERCHANTBIGDLG 1 722 1 0 90 80 1 197 8
#SAY
<$STR(S$DS第一图片显示)><$STR(S$DS第一图片在线)>\
<$STR(S$DS第二图片显示)><$STR(S$DS第二图片在线)>\
<$STR(S$DS第三图片显示)><$STR(S$DS第三图片在线)>\
<$STR(S$DS第四图片显示)><$STR(S$DS第四图片在线)>\
<><>\
<> <$STR(S$ZSDS第一名字)>\
<><$STR(S$DS第一图片删除)>\
<><$STR(S$DS第二图片删除)>\
<><$STR(S$DS第三图片删除)>\
<><$STR(S$DS第四图片删除)>\
<> <$STR(S$ZSDS第二名字)>\
<>\
<>\
<>\
<>\
<> <$STR(S$ZSDS第三名字)>\
<><><><>\
<> <$STR(S$ZSDS第四名字)>\
<>\
<$STR(S$DS0801召唤状态)>\
<ImgEx:1:725:726:725:-12:-9|161#点击召唤全体结义成员^-161#每使用一次扣除10W元宝/@DS0726全体召唤> \
<ImgEx:1:727:728:727:78:-42/@@InPutString60(请输入需要添加的玩家姓名【玩家必须在线】：)><ImgEx:1:729:730:729:78:-42/@DS0726解散关系> \
<> <查看桃源结义系统详细说明|250#结义说明：第一个发起结义的玩家为老大，只有老大可添加成员和解散结义。
^-250#召唤说明：点击结义兄弟的名字，即可单独召唤，也可以点击下面全体召唤。
^-146#支援说明：被召唤者需要达到召唤者所在地图的进入条件，并扣除相应货币。
^-161#召唤费用：全体召唤每次需要10W元宝，也可以单独召唤，单人每次1W元宝。
^-250#操作说明：桃源结义达成之后只有老大才能添加和删除结义成员！
^-151#合区说明：合区之后删除所有结义数据，请大家合区后重新添加！
^-58#结义条件：需要开启桃园结义状态！/scolor=161><>\

[@DS0726全体召唤]
#IF
checkgamegold < 100000
#ACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　元宝不足，当前召唤需要100000元宝费用。
BREAK

#IF
NOT checkgamegold < 100000
#ACT
gamegold - 100000
SendCenterMsg 151 249 桃源结义)：当前危机的情况已经发给兄弟们，请等待兄弟们前来支援！ 0 10
SendCenterMsg 151 249 桃源结义)：当前危机的情况已经发给兄弟们，请等待兄弟们前来支援！ 0 10
SendCenterMsg 151 249 桃源结义)：当前危机的情况已经发给兄弟们，请等待兄弟们前来支援！ 0 10

#IF
<$STR(S$ZSDS第一名字)>.CHECKTITLE 桃园结义
<$STR(S$ZSDS第一名字)>.CHECKONLINE
#ACT
<$STR(S$ZSDS第一名字)>.MOVEX S$DS0801召唤玩家 <$USERNAME>
HCALL <$STR(S$ZSDS第一名字)> @DS桃源结义召唤

#IF
<$STR(S$ZSDS第二名字)>.CHECKTITLE 桃园结义
<$STR(S$ZSDS第二名字)>.CHECKONLINE
#ACT
<$STR(S$ZSDS第二名字)>.MOVEX S$DS0801召唤玩家 <$USERNAME>
HCALL <$STR(S$ZSDS第二名字)> @DS桃源结义召唤

#IF
<$STR(S$ZSDS第三名字)>.CHECKTITLE 桃园结义
<$STR(S$ZSDS第三名字)>.CHECKONLINE
#ACT
<$STR(S$ZSDS第三名字)>.MOVEX S$DS0801召唤玩家 <$USERNAME>
HCALL <$STR(S$ZSDS第三名字)> @DS桃源结义召唤

#IF
<$STR(S$ZSDS第四名字)>.CHECKTITLE 桃园结义
<$STR(S$ZSDS第四名字)>.CHECKONLINE
#ACT
<$STR(S$ZSDS第四名字)>.MOVEX S$DS0801召唤玩家 <$USERNAME>
HCALL <$STR(S$ZSDS第四名字)> @DS桃源结义召唤

;————————————————————————————————————————————
[@DS点击召唤第一]
#IF
<$STR(S$ZSDS第一名字)>.CHECKONLINE
#ELSEACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　当前玩家：[<$STR(S$ZSDS第一名字)>]不在线，无法召唤。
BREAK

#IF
<$STR(S$ZSDS第一名字)>.CHECKTITLE 桃园结义
#ELSEACT
MESSAGEBOX 　　　[操作失败]：\　\　　　当前玩家没有开启桃园结义，无法召唤。
BREAK

#IF
checkgamegold < 10000
#ACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　元宝不足，当前召唤需要10000元宝费用。
BREAK

#IF
<$STR(S$ZSDS第一名字)>.CHECKTITLE 桃园结义
<$STR(S$ZSDS第一名字)>.CHECKONLINE
NOT checkgamegold < 10000
#ACT
gamegold - 10000
<$STR(S$ZSDS第一名字)>.MOVEX S$DS0801召唤玩家 <$USERNAME>
HCALL <$STR(S$ZSDS第一名字)> @DS桃源结义召唤
BREAK
;————————————————————————————————————————————
[@DS点击召唤第二]
#IF
<$STR(S$ZSDS第二名字)>.CHECKONLINE
#ELSEACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　当前玩家：[<$STR(S$ZSDS第二名字)>]不在线，无法召唤。
BREAK

#IF
<$STR(S$ZSDS第二名字)>.CHECKTITLE 桃园结义
#ELSEACT
MESSAGEBOX 　　　[操作失败]：\　\　　　当前玩家没有开启桃园结义，无法召唤。
BREAK

#IF
checkgamegold < 10000
#ACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　元宝不足，当前召唤需要10000元宝费用。
BREAK

#IF
<$STR(S$ZSDS第二名字)>.CHECKTITLE 桃园结义
<$STR(S$ZSDS第二名字)>.CHECKONLINE
NOT checkgamegold < 10000
#ACT
gamegold - 10000
<$STR(S$ZSDS第二名字)>.MOVEX S$DS0801召唤玩家 <$USERNAME>
HCALL <$STR(S$ZSDS第二名字)> @DS桃源结义召唤
BREAK
;————————————————————————————————————————————
[@DS点击召唤第三]
#IF
<$STR(S$ZSDS第三名字)>.CHECKONLINE
#ELSEACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　当前玩家：[<$STR(S$ZSDS第三名字)>]不在线，无法召唤。
BREAK

#IF
<$STR(S$ZSDS第三名字)>.CHECKTITLE 桃园结义
#ELSEACT
MESSAGEBOX 　　　[操作失败]：\　\　　　当前玩家没有开启桃园结义，无法召唤。
BREAK

#IF
checkgamegold < 10000
#ACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　元宝不足，当前召唤需要10000元宝费用。
BREAK

#IF
<$STR(S$ZSDS第三名字)>.CHECKTITLE 桃园结义
<$STR(S$ZSDS第三名字)>.CHECKONLINE
NOT checkgamegold < 10000
#ACT
gamegold - 10000
<$STR(S$ZSDS第三名字)>.MOVEX S$DS0801召唤玩家 <$USERNAME>
HCALL <$STR(S$ZSDS第三名字)> @DS桃源结义召唤
BREAK
;————————————————————————————————————————————
[@DS点击召唤第四]
#IF
<$STR(S$ZSDS第四名字)>.CHECKONLINE
#ELSEACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　当前玩家：[<$STR(S$ZSDS第四名字)>]不在线，无法召唤。
BREAK

#IF
<$STR(S$ZSDS第四名字)>.CHECKTITLE 桃园结义
#ELSEACT
MESSAGEBOX 　　　[操作失败]：\　\　　　当前玩家没有开启桃园结义，无法召唤。
BREAK

#IF
checkgamegold < 10000
#ACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　元宝不足，当前召唤需要10000元宝费用。
BREAK

#IF
<$STR(S$ZSDS第四名字)>.CHECKTITLE 桃园结义
<$STR(S$ZSDS第四名字)>.CHECKONLINE
NOT checkgamegold < 10000
#ACT
gamegold - 10000
<$STR(S$ZSDS第四名字)>.MOVEX S$DS0801召唤玩家 <$USERNAME>
HCALL <$STR(S$ZSDS第四名字)> @DS桃源结义召唤
BREAK
;————————————————————————————————————————————

[@DS0726解散关系]
#IF
NOT EQUAL S$DS队长名字 <$USERNAME>
#ACT
MESSAGEBOX 　　　[操作失败]：\　\　　　　　只有队长才可以解散结义。
BREAK

#IF
#ACT
HCALL <$STR(S$ZSDS第一名字)> @DS删除结义提问
HCALL <$STR(S$ZSDS第二名字)> @DS删除结义提问
HCALL <$STR(S$ZSDS第三名字)> @DS删除结义提问
HCALL <$STR(S$ZSDS第四名字)> @DS删除结义提问
CLEARNAMELIST ..\QuestDiary\神墓制作\桃园结义\结义数据<$USERNAME>.TXT
MOV T44
BREAK

[@InPutString60]
#IF
CHECKTITLE 桃园结义
#ELSEACT
MESSAGEBOX 　　　[添加失败]：\　\　　　　　请先开启桃园结义。
BREAK

#IF
EQUAL S60
#ACT
MESSAGEBOX 　　　[添加失败]：\　\　　　　　请先输入要加入桃源结义的玩家。
BREAK

#IF
<$STR(S60)>.CHECKONLINE
#ELSEACT
MESSAGEBOX 　　　[添加失败]：\　\　　　　　当前输入玩家不在线，无法结义。
BREAK

#IF
<$STR(S60)>.EQUAL T44
#ELSEACT
MESSAGEBOX 　　　[添加失败]：\　\　　　　　当前输入玩家已经与别人结义。
BREAK

#IF
NOT EQUAL S$DS第四名字
#ACT
MESSAGEBOX 　　　[添加失败]：\　\　　　　　桃源结义系统最多只可与四人结义！
BREAK

#IF
<$STR(S60)>.CHECKTITLE 桃园结义
#ACT
<$STR(S60)>.MOVEX S$DS0801队长名字 <$USERNAME>
HCALL <$STR(S60)> @DS桃源结义提问
#ELSEACT
MESSAGEBOX 　　　[添加失败]：\　\　　　　　当前输入玩家不符合结义条件！
BREAK

[@DS开启结义状态]
#IF
CHECK [060] 1
#ACT
SET [060] 0
GOTO @DS桃园结义MAIN
MESSAGEBOX 　　　√开启召唤：\　\　　　　　　你已经关闭了桃源结义的队友召唤功能。\　　　　　　当桃源结义的队友召唤时你不会有提示。
BREAK

#IF
CHECK [060] 0
#ACT
SET [060] 1
GOTO @DS桃园结义MAIN
MESSAGEBOX 　　　√开启召唤：\　\　　　　　　你已经开启了桃源结义的队友召唤功能。\　　　　　　当桃源结义的队友召唤时将会弹出提示。
BREAK

[@DS0731删除第一人]
#IF
#ACT
MessageBox 　　　[结义操作]：\　\　　　　当前操作删除结义玩家【<$STR(S$ZSDS第一名字)>】 @确定删除结义1 @取消删除
BREAK

[@确定删除结义1]
#IF
#ACT
DELTEXTLIST ..\QuestDiary\神墓制作\桃园结义\结义数据<$USERNAME>.TXT <$STR(S$DS第一名字)>
HCALL <$STR(S$ZSDS第一名字)> @DS删除结义提问
MessageBox 　　　[结义操作]：\　\　　　　操作成功！！
BREAK

[@DS0731删除第二人]
#IF
#ACT
MessageBox 　　　[结义操作]：\　\　　　　当前操作删除结义玩家【<$STR(S$ZSDS第二名字)>】 @确定删除结义2 @取消删除
BREAK

[@确定删除结义2]
#IF
#ACT
DELTEXTLIST ..\QuestDiary\神墓制作\桃园结义\结义数据<$USERNAME>.TXT <$STR(S$DS第二名字)>
HCALL <$STR(S$ZSDS第二名字)> @DS删除结义提问
MessageBox 　　　[结义操作]：\　\　　　　操作成功！！
BREAK

[@DS0731删除第三人]
#IF
#ACT
MessageBox 　　　[结义操作]：\　\　　　　当前操作删除结义玩家【<$STR(S$ZSDS第三名字)>】 @确定删除结义3 @取消删除
BREAK

[@确定删除结义3]
#IF
#ACT
DELTEXTLIST ..\QuestDiary\神墓制作\桃园结义\结义数据<$USERNAME>.TXT <$STR(S$DS第三名字)>
HCALL <$STR(S$ZSDS第三名字)> @DS删除结义提问
MessageBox 　　　[结义操作]：\　\　　　　操作成功！！
BREAK

[@DS0731删除第四人]
#IF
#ACT
MessageBox 　　　[结义操作]：\　\　　　　当前操作删除结义玩家【<$STR(S$ZSDS第四名字)>】 @确定删除结义4 @取消删除
BREAK

[@确定删除结义4]
#IF
#ACT
DELTEXTLIST ..\QuestDiary\神墓制作\桃园结义\结义数据<$USERNAME>.TXT <$STR(S$DS第四名字)>
HCALL <$STR(S$ZSDS第四名字)> @DS删除结义提问
MessageBox 　　　[结义操作]：\　\　　　　操作成功！！
BREAK

}

meinvwudi

[@DS0801结义进入地图]
{
#IF
CHECKUNDERWAR 沙巴克
#ACT
MESSAGEBOX 　　　[传送失败]：\　\　　　　攻城期间，禁止使用该功能！
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP qygd
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP mhfy
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP xjsd
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP sgsd
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP mjld
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP srsj
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP hdsj
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP D2081
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP D2082
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP D2083
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP D2084
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP D2085
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP D2086
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP D2087
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP juanxianditu
check [059] 1
CHECKNAMEDATETIMELIST ..\QuestDiary\神墓制作\地图捐献\捐献名单.txt 1 S$1 N$1 N$2 N$3
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKRENEWLEVEL > 4
<$STR(S$DS0801召唤玩家)>.ISONMAP WUZHUAN
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKRENEWLEVEL > 5
<$STR(S$DS0801召唤玩家)>.ISONMAP LIUZHUAN
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKRENEWLEVEL > 6
<$STR(S$DS0801召唤玩家)>.ISONMAP QIZHUAN
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKRENEWLEVEL > 7
<$STR(S$DS0801召唤玩家)>.ISONMAP BAZHUAN
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKRENEWLEVEL > 8
<$STR(S$DS0801召唤玩家)>.ISONMAP JIUZHUAN
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKRENEWLEVEL > 3
<$STR(S$DS0801召唤玩家)>.ISONMAP sjzc
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
checkitemw 剑武·毁天灭地
<$STR(S$DS0801召唤玩家)>.ISONMAP SHIZHUANG
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
checkitemw (终)剑武·毁天灭地
<$STR(S$DS0801召唤玩家)>.ISONMAP SHIZHUANG
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
checkitemw (终)剑武·毁天灭地
<$STR(S$DS0801召唤玩家)>.ISONMAP SHIZHUANG2
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
large U2 4
large U3 4
large U4 4
large U5 4
<$STR(S$DS0801召唤玩家)>.ISONMAP xiaoshenmoditu
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
large U2 9
large U3 9
large U4 9
large U5 9
<$STR(S$DS0801召唤玩家)>.ISONMAP xiaoshenmoditu2
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
large U1 4
<$STR(S$DS0801召唤玩家)>.ISONMAP shenmoditu
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
large U1 9
<$STR(S$DS0801召唤玩家)>.ISONMAP shenmoditu2
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
checkitemw 鸿蒙·治疗宝珠
<$STR(S$DS0801召唤玩家)>.ISONMAP ZJBZDT
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
checkitemw 剑武·神珠
<$STR(S$DS0801召唤玩家)>.ISONMAP ZJBZDT
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
checkitemw 剑武·神珠
<$STR(S$DS0801召唤玩家)>.ISONMAP DQBZDT
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKITEMW 剑武斗笠
CHECKITEMW 剑武·盾
<$STR(S$DS0801召唤玩家)>.ISONMAP QYLDDT
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKITEMW 剑武斗笠
CHECKITEMW 鸿蒙·盾
<$STR(S$DS0801召唤玩家)>.ISONMAP QYLDDT
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKITEMW 鸿蒙斗笠
CHECKITEMW 剑武·盾
<$STR(S$DS0801召唤玩家)>.ISONMAP QYLDDT
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKITEMW 鸿蒙斗笠
CHECKITEMW 鸿蒙·盾
<$STR(S$DS0801召唤玩家)>.ISONMAP QYLDDT
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKITEMW 剑武斗笠
CHECKITEMW 剑武·盾
<$STR(S$DS0801召唤玩家)>.ISONMAP DQLDDT
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
CHECKRENEWLEVEL > 3
<$STR(S$DS0801召唤玩家)>.ISONMAP sjj1
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP HDDT77
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP HDDT88
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
<$STR(S$DS0801召唤玩家)>.ISONMAP HDDT99
#ACT
GmExeCute 追 <$STR(S$DS0801召唤玩家)>
;CloseClientBuff 1
BREAK

#IF
#ACT
MESSAGEBOX 　　　[传送失败]：\　\　　　　你尚未达到召唤者所在地图的条件！或者此地图不允许召唤！无法传送过去！
BREAK

}