本站主推发布：新开传奇发布网,新开传奇,新开传奇发布,176复古传奇,迷失传奇,战神传奇,传奇私服,找搜服,仙剑传奇
[网站地图] [设为首页] [加入收藏]
快速搜服找服： 复古 变态 微变 轻变 中变 超变 合击 迷失 沉默 星王 1.76 1.80 1.95 1.96 仿盛大 单职业
当前位置: zhaosf首页 > 开服资料 > 传奇脚本 >

管理可控门派收人脚本加强版(14)

时间:2017-02-24 23:14来源:传奇私服 作者:新开传奇网站
GOTO @行会招人 MESSAGEBOX [成功]:撤消自助招人成功！ break #IF EQUAL A50 $GUILDNAME CheckTextList $STR(A50) ..\QuestDiary\数据文件\行会数据\行会招人五.txt #ACT DEC G21 1 MOV
GOTO @行会招人
MESSAGEBOX [成功]:撤消自助招人成功！
break
#IF
EQUAL A50 <$GUILDNAME>
CheckTextList <$STR(A50)> ..\QuestDiary\数据文件\行会数据\行会招人五.txt
#ACT
DEC G21 1
MOV A50 暂无
MOV G20 0
DelTextList <$GUILDNAME> ..\QuestDiary\数据文件\行会数据\行会招人五.txt
GOTO @行会招人
MESSAGEBOX [成功]:撤消自助招人成功！
break
#IF
EQUAL A50 <$GUILDNAME>
CheckTextList <$STR(A50)> ..\QuestDiary\数据文件\行会数据\行会招人六.txt
#ACT
DEC G21 1
MOV A50 暂无
MOV G20 0
DelTextList <$GUILDNAME> ..\QuestDiary\数据文件\行会数据\行会招人六.txt
GOTO @行会招人
MESSAGEBOX [成功]:撤消自助招人成功！
break
 
[@加入该行会1]
#ACT
INC P9 <$STR(G01)>
DEC P9 1
MOV S1 <$STR(A31)>
GOTO @申请加入此行会
 
[@加入该行会2]
#ACT
MOV P9 <$STR(G02)>
DEC P9 1
MOV S1 <$STR(A32)>
GOTO @申请加入此行会
 
[@加入该行会3]
#ACT
MOV P9 <$STR(G03)>
DEC P9 1
MOV S1 <$STR(A33)>
GOTO @申请加入此行会
 
[@加入该行会4]
#ACT
MOV P9 <$STR(G04)>
DEC P9 1
MOV S1 <$STR(A34)>
GOTO @申请加入此行会
 
[@加入该行会5]
#ACT
MOV P9 <$STR(G05)>
DEC P9 1
MOV S1 <$STR(A35)>
GOTO @申请加入此行会
 
[@加入该行会6]
#ACT
MOV P9 <$STR(G06)>
DEC P9 1
MOV S1 <$STR(A36)>
GOTO @申请加入此行会
 
[@加入该行会7]
#ACT
MOV P9 <$STR(G07)>
DEC P9 1
MOV S1 <$STR(A37)>
GOTO @申请加入此行会
 
[@加入该行会8]
#ACT
MOV P9 <$STR(G08)>
DEC P9 1
MOV S1 <$STR(A38)>
GOTO @申请加入此行会
 
[@加入该行会9]
#ACT
MOV P9 <$STR(G09)>
DEC P9 1
MOV S1 <$STR(A39)>
GOTO @申请加入此行会
 
[@加入该行会10]
#ACT
MOV P9 <$STR(G10)>
DEC P9 1
MOV S1 <$STR(A40)>
GOTO @申请加入此行会
 
[@加入该行会11]
#ACT
MOV P9 <$STR(G11)>
DEC P9 1
MOV S1 <$STR(A41)>
GOTO @申请加入此行会
 
[@加入该行会12]
#ACT
MOV P9 <$STR(G12)>
DEC P9 1
MOV S1 <$STR(A42)>
GOTO @申请加入此行会
 
[@加入该行会13]
#ACT
MOV P9 <$STR(G13)>
DEC P9 1
MOV S1 <$STR(A43)>
GOTO @申请加入此行会
 
[@加入该行会14]
#ACT
MOV P9 <$STR(G14)>
DEC P9 1
MOV S1 <$STR(A44)>
GOTO @申请加入此行会
 
[@加入该行会15]
#ACT
MOV P9 <$STR(G15)>
MOV S1 <$STR(A45)>
GOTO @申请加入此行会
 
[@加入该行会16]
#ACT
MOV P9 <$STR(G16)>
DEC P9 1
MOV S1 <$STR(A46)>
GOTO @申请加入此行会
 
[@加入该行会17]
#ACT
MOV P9 <$STR(G17)>
DEC P9 1
MOV S1 <$STR(A47)>
GOTO @申请加入此行会
 
[@加入该行会18]
#ACT
MOV P9 <$STR(G18)>
DEC P9 1
MOV S1 <$STR(A48)>
GOTO @申请加入此行会
 
[@加入该行会19]
#ACT
MOV P9 <$STR(G19)>
DEC P9 1
MOV S1 <$STR(A49)>
GOTO @申请加入此行会
 
[@加入该行会20]
#ACT
MOV P9 <$STR(G20)>
DEC P9 1
MOV S1 <$STR(A50)>
GOTO @申请加入此行会
 
[@申请加入此行会]
#IF
HAVEGUILD
#ACT
MESSAGEBOX [失败]:您已经有行会了。无法申请!
break
#IF
EQUAL S1 暂无
#ACT
MESSAGEBOX [错误]:本位置没有行会申请自主招人，不能加入！
goto <$STR(S3)>
break
#IF
CHECKLEVELEX > <$STR(P9)>
#ACT
AddGuildMember <$STR(S1)> <$USERNAME>
goto <$STR(S3)>
MESSAGEBOX [成功]:您已经成功加入了【<$STR(S1)>】
break
#ELSEact
MESSAGEBOX [失败]:您的等级没有到达加入此行会的等级!
 
[@星期]
#IF
DAYOFWEEK   SUN 
#ACT
AddTextList <$GUILDNAME> ..\QuestDiary\数据文件\行会数据\行会招人日.txt
;今天是星期天 
 
#IF
DAYOFWEEK   MON 
#ACT
AddTextList <$GUILDNAME> ..\QuestDiary\数据文件\行会数据\行会招人一.txt
;今天是星期1 
 
#IF
DAYOFWEEK   TUE 
#ACT
AddTextList <$GUILDNAME> ..\QuestDiary\数据文件\行会数据\行会招人二.txt
;今天是星期2 
 
#IF
DAYOFWEEK   WED 
#ACT
AddTextList <$GUILDNAME> ..\QuestDiary\数据文件\行会数据\行会招人三.txt
;今天是星期3 
 
#IF
DAYOFWEEK   THU 
#ACT
AddTextList <$GUILDNAME> ..\QuestDiary\数据文件\行会数据\行会招人四.txt
;今天是星期4 
 
#IF
DAYOFWEEK   FRI 
#ACT
AddTextList <$GUILDNAME> ..\QuestDiary\数据文件\行会数据\行会招人五.txt
;今天是星期5 
 
#IF
DAYOFWEEK   SAT 
#ACT
AddTextList <$GUILDNAME> ..\QuestDiary\数据文件\行会数据\行会招人六.txt
;今天是星期6 
 
4、游戏管理.txt文件里的控制行会招人脚本（其他功能如果大家没用可自行删除）：
[@GAMEUSER]
{
<———————＜>< 蓝月网络游戏后台管理系统 ><＞———————>\ 
<总注册>∶<$STR(G16)> 人 <武士有>∶<$STR(G19)> 人 <法师有>∶<$STR(G20)> 人 <道士有>∶<$STR(G21)> 人\  
<总在线>∶<$USERCOUNT> 人 <总运行>∶<$STR(G0)> 天 <攻城在>∶<$STR(G1)> 天后开始\
<—————————————————————————————>\
 <[数据清除]/@清除数据>    <[领黑铁矿]/@黑铁矿>    <[怪物攻城]/@怪物攻城>\
 <[装备调整]/@装备调整>　  <[攻城设置]/@攻城设置>    <[行会管理]/@行会管理>\
 <[包裹清理]/@清理包裹>　  <[传唤人物]/@传唤人物>　  <[首饰改名]/@首饰改名>\
 <[重启通知]/@游戏重启>　  <[清除怪物]/@清除怪物>　  <[制造装备]/@制造装备>　  <[加载配置]/@加载配置>\
<—————————————————————————————>\
 
 
[@行会管理]
—————————<欢迎使用行会招人管理！/FCOLOR=250>—————————\ 
注意第一次使用一定要执行 <初始化行会招人/@清除招人> 一次,否则M2报错无法用\
<设置行会自主招人收费标准/@@InPutInteger67>      当前元宝：<$STR(G24)>\
<设置行会自主招人最低限制等级/@@InPutInteger68>　当前等级：<$STR(G22)>\
<设置行会自主招人最高限制等级/@@InPutInteger69>　当前等级：<$STR(G23)>\ \
<清除行会自主招人/@清除招人>\ \
<返回/@GAMEUSER>
 
[@InPutInteger67]
#IF
ISADMIN
#elseact
goto @notadmin
break
#IF
small N67 0
#ACT
MESSAGEBOX [警告]：非法输入！
BREAK
#ELSEACT
MOV G24 <$STR(N67)>
SENDMSG 5 调整成功！
GOTO @行会管理
break
[@InPutInteger68]
#IF
ISADMIN
#elseact
goto @notadmin
break
#IF
small N68 0
#ACT
MESSAGEBOX [警告]：非法输入！
BREAK
#ELSEACT
MOV G22 <$STR(N68)>
SENDMSG 5 调整成功！
GOTO @行会管理
break
[@InPutInteger69]
#IF
ISADMIN
#elseact
goto @notadmin
break
#IF
small N69 0
#ACT
MESSAGEBOX [警告]：非法输入！
BREAK
#ELSEACT
MOV G23 <$STR(N69)>
SENDMSG 5 调整成功！
GOTO @行会管理
break
 
[@清除招人]
#IF
ISADMIN
#ACT
;G21 一共有多少行会在线招人
MOV G21 0
MOV G01 0
MOV G02 0
MOV G03 0
MOV G04 0
MOV G05 0
MOV G06 0
MOV G07 0
MOV G08 0
MOV G09 0
MOV G10 0
MOV G11 0
MOV G12 0
MOV G13 0
MOV G14 0
MOV G15 0
MOV G16 0
MOV G17 0
MOV G18 0
MOV G19 0
MOV G20 0
MOV G22 1
MOV G23 100
MOV G24 5
MOV A31 暂无
MOV A32 暂无
MOV A33 暂无
MOV A34 暂无
MOV A35 暂无
MOV A36 暂无
MOV A37 暂无
MOV A38 暂无
MOV A39 暂无
MOV A40 暂无
MOV A41 暂无
MOV A42 暂无
MOV A43 暂无
MOV A44 暂无
MOV A45 暂无
MOV A46 暂无
MOV A47 暂无
MOV A48 暂无
MOV A49 暂无
MOV A50 暂无
CLEARNAMELIST ..\QuestDiary\数据文件\行会数据\行会招人日.txt
CLEARNAMELIST ..\QuestDiary\数据文件\行会数据\行会招人一.txt
CLEARNAMELIST ..\QuestDiary\数据文件\行会数据\行会招人二.txt
CLEARNAMELIST ..\QuestDiary\数据文件\行会数据\行会招人三.txt
CLEARNAMELIST ..\QuestDiary\数据文件\行会数据\行会招人四.txt
CLEARNAMELIST ..\QuestDiary\数据文件\行会数据\行会招人五.txt
CLEARNAMELIST ..\QuestDiary\数据文件\行会数据\行会招人六.txt
SENDMSG 5 所有行会招人的数据全部清除！
goto @行会管理
break
#elseact
goto @notadmin
[@notadmin]
#say
对不起！你不是GM！
 
[@黑铁矿]
#if
#act
GIVEMINE 黑铁矿石 1
goto @GAMEUSER
 
 
[@首饰改名]
<————————＜><首饰改名管理菜单/@><＞————————>\
请选择要改名的装备：(将要改名的装备戴身上)\ \ 
<[盔　甲]/@@useitemname0>     <[武　器]/@@useitemname1>     <[勋  章]/@@useitemname2>     <[项　链]/@@useitemname3>\
<[头　盔]/@@useitemname4>     <[右手镯]/@@useitemname5>     <[左手镯]/@@useitemname6>     <[右戒指]/@@useitemname7> \ (责任编辑：找搜服传奇发布网)
------分隔线----------------------------
栏目列表
推荐内容
工具排行
热点内容
返回顶部


Copyright © ZhaoSF.info 找搜服-传奇私服发布网 版权所有沪ICP备17017149号-1