传奇私服 发表于 2017-10-3 17:29:25

传奇军团争霸脚本

今天润芒论坛又给大家带来了独家开发的军团争霸脚本实例，不懂的朋友一定不能错过哦，这里主要以弑魔军团与神影军团为例，每个军团有9个职位到达一定职位可以领取奖励等等，在游戏里加入军团争霸就是为了增加游戏的乐趣。好吧下面我们一起来看脚本编写实例吧。
[@军团说明1]
{
军团总共分为五级,以“★”为标记,每一颗星代表一级.通过每周六\
的军团争霸可以提升军团等级,在争霸地图杀死圣龙的军团为获胜方\
军团等级提升1级,另一方军团等级降1级!军团每提升1级该军团玩家\
杀怪经验都会有所提高!每个军团有9个职位,到达一定职位可以领取\
相应俸禄,职位越高俸禄越高!!军团争霸中抢夺到"军团信物"后双击\
信物可以提升职位.!!!!!!\
注意：军团争霸时有大量装备爆出，时间为每周星期六13：10\
<返回/@Member>
}
[@查看天职1]
{
所属军团：弑魔军团\
军团等级：<$STR(G4)>级\
阵亡次数：<$HUMAN(RWSW)>次\
杀敌人数：<$HUMAN(RWSR)>人\
╔┄┄┄┄┄╗    ╔┄┄┄┄┄╗    ╔┄┄┄┄┄╗\
┆一级：列兵┆    ┆二级：排长┆    ┆三级：连长┆\
┆四级：营长┆    ┆五级：团长┆    ┆六级：旅长┆\
┆七级：师长┆    ┆八级：军长┆    ┆领袖：司令┆\
╚┄┄┄┄┄╝    ╚┄┄┄┄┄╝    ╚┄┄┄┄┄╝<返回/@Member>\
}
[@查看修职1]
{
所属军团：神影军团\
军团等级：<$STR(G5)>级\
阵亡次数：<$HUMAN(RWSW)>次\
杀敌人数：<$HUMAN(RWSR)>人\
╔┄┄┄┄┄╗    ╔┄┄┄┄┄╗    ╔┄┄┄┄┄╗\
┆一级：列兵┆    ┆二级：排长┆    ┆三级：连长┆\
┆四级：营长┆    ┆五级：团长┆    ┆六级：旅长┆\
┆七级：师长┆    ┆八级：军长┆    ┆领袖：司令┆\
╚┄┄┄┄┄╝    ╚┄┄┄┄┄╝    ╚┄┄┄┄┄╝<返回/@Member>\
}
[@敌对神影1]
{
敌对军团：神影军团\
敌对等级：<$STR(G5)>级\
阵亡次数：<$HUMAN(RWSW)>次\
杀敌人数：<$HUMAN(RWSR)>人\
╔┄┄┄┄┄╗    ╔┄┄┄┄┄╗    ╔┄┄┄┄┄╗\
┆一级：列兵┆    ┆二级：排长┆    ┆三级：连长┆\
┆四级：营长┆    ┆五级：团长┆    ┆六级：旅长┆\
┆七级：师长┆    ┆八级：军长┆    ┆领袖：司令┆\
╚┄┄┄┄┄╝    ╚┄┄┄┄┄╝    ╚┄┄┄┄┄╝<返回/@Member>\
}
[@敌对弑魔1]
{
敌对军团：弑魔军团\
敌对等级：<$STR(G4)>级\
阵亡次数：<$HUMAN(RWSW)>次\
杀敌人数：<$HUMAN(RWSR)>人\
╔┄┄┄┄┄╗    ╔┄┄┄┄┄╗    ╔┄┄┄┄┄╗\
┆一级：列兵┆    ┆二级：排长┆    ┆三级：连长┆\
┆四级：营长┆    ┆五级：团长┆    ┆六级：旅长┆\
┆七级：师长┆    ┆八级：军长┆    ┆领袖：司令┆\
╚┄┄┄┄┄╝    ╚┄┄┄┄┄╝    ╚┄┄┄┄┄╝<返回/@Member>\
}
[@军团战争1]
{
#IF
CHECKLEVELEX < 44
#ACT
messagebox 只有44级以上的玩家才能参加！
break
#IF
dayofweek sat
hour 13
min 10
#ACT
mapmove 0139
break
#IF
dayofweek sat
hour 13
min 11
#ACT
mapmove 0139
break
#IF
dayofweek sat
hour 13
min 12
#ACT
mapmove 0139
break
#elseact
messagebox 请星期六下午13：10准时参加!!进入时间仅为2分钟!!
}
[@相关指令1]
{
╔┄┄┄┄┄┄╦┄┄┄┄┄┄╦┄┄┄┄┄┄╗\
┆『<禁允行聊/@行聊>』┆『<禁允私聊/@私聊>』┆『<禁允群聊/@群聊>』┆\
┆『<加入行会/@加会>』┆『<退出行会/@退会>』┆『<禁允交易/@交易>』┆\
┆『<天地合一/@合一>』┆『<行会合一>』┆『<查看时间/@时间>』┆\
┆『<禁允合一/@禁合>』┆『<禁允行一>』┆『<修改密码/@修密>』┆\
┆『<允许夫妻/@允夫>』┆『<夫妻坐标/@夫坐>』┆『<夫妻传送/@夫传>』┆\
┆『<允许师徒/@允师>』┆『<师徒坐标/@师坐>』┆『<师徒传送/@师传>』┆┄┄┄┄┄┄╗\
┆『<开启仓库/@开仓>』┆『<锁定仓库/@锁仓>』┆『<设置密码/@设密>』┆〖<返    回/@Member>〗┆\
╚┄┄┄┄┄┄╩┄┄┄┄┄┄╩┄┄┄┄┄┄╩┄┄┄┄┄┄╝\
[@时间]
#ACT
Gmexecute 查看时间
GOTO @相关指令
[@加会]
#ACT
Gmexecute 加入门派
GOTO @相关指令
[@私聊]
#ACT
Gmexecute 拒绝私聊
GOTO @相关指令
[@群聊]
#ACT
Gmexecute 拒绝组队聊天
GOTO @相关指令
[@交易]
#ACT
Gmexecute 允许交易
GOTO @相关指令
[@退会]
#ACT
Gmexecute 退出门派
GOTO @相关指令
[@行聊]
#ACT
Gmexecute 拒绝行会聊天
GOTO @相关指令
[@合一]
#ACT
Gmexecute 允许天地合一
GOTO @相关指令
[@禁行]
#ACT
Gmexecute 允许行会合一
GOTO @相关指令
[@行合]
#ACT
Gmexecute 行会合一
GOTO @相关指令
[@禁合]
#ACT
Gmexecute 允许天地合一
GOTO @相关指令
[@夫坐]
#ACT
Gmexecute 查询伴侣
GOTO @相关指令
[@师坐]
#ACT
Gmexecute 查询师徒
GOTO @相关指令
[@夫传]
#ACT
Gmexecute 夫妻传送
GOTO @相关指令
[@允夫]
#ACT
Gmexecute 允许夫妻传送
GOTO @相关指令
[@师传]
#ACT
Gmexecute 师徒传送
GOTO @相关指令
[@允师]
#ACT
Gmexecute 允许师徒传送
GOTO @相关指令
[@修密]
#ACT
Gmexecute 修改密码
GOTO @相关指令
[@设密]
#ACT
Gmexecute 设置密码
GOTO @相关指令
[@锁仓]
#ACT
Gmexecute 锁定
GOTO @相关指令
[@开仓]
#ACT
Gmexecute 仓库开锁
GOTO @相关指令
}
[@俸禄弑魔1]
{
#if
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek sun
#act
goto @弑魔sunchenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek mon
#act
goto @弑魔monchenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek tue
#act
goto @弑魔tuechenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek wed
#act
goto @弑魔wedchenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek thu
#act
goto @弑魔thuchenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek fri
#act
goto @弑魔frichenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek sat
#act
goto @弑魔satchenw02
#ELSEACT
SENDMSG 6 只有1级以上的官员才能领取俸禄！
goto @Member
break
[@弑魔satchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔国王.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD +4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔8级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔7级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔6级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD+ 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔5级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD+ 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔4级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔3级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@弑魔frichenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔国王.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔8级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔7级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔6级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔5级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔4级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔3级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD+ 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@弑魔thuchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔国王.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔8级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔7级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔6级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔5级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔4级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔3级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@弑魔wedchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔国王.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔8级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔7级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔6级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔5级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取传奇开私服大师手册：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔4级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔3级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@弑魔tuechenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔国王.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD+ 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔8级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔7级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔6级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔5级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔4级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔3级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@弑魔monchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔国王.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔8级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔7级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔6级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔5级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔4级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔3级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@弑魔sunchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔国王.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔8级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔7级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔6级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔5级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔4级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔3级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\弑魔2级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
}
[@俸禄神影1]
{
#if
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek sun
#act
goto @神影sunchenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek mon
#act
goto @神影monchenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek tue
#act
goto @神影tuechenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek wed
#act
goto @神影wedchenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek thu
#act
goto @神影thuchenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek fri
#act
goto @神影frichenw02
break
#if
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek sat
#act
goto @神影satchenw02
#ELSEACT
SENDMSG 6 只有1级以上的官员才能领取俸禄！
goto @Member
break
[@神影satchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影国王.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影8级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影7级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影6级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影5级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影4级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影3级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek sat
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@神影frichenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影国王.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影8级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影7级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影6级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影5级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影4级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影3级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek fri
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@神影thuchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影国王.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影8级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影7级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影6级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影5级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影4级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影3级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek thu
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@神影wedchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影国王.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影8级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影7级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影6级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影5级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影4级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影3级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek wed
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@神影tuechenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影国王.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影8级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影7级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影6级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影5级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影4级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影3级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek tue
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@神影monchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影国王.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影8级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影7级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影6级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影5级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影4级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影3级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek mon
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member
[@神影sunchenw02]
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影国王.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 4
give 金币 400000
SENDMSG 6 领取俸禄：声望+4　金币40万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影8级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 4
SENDMSG 6 领取俸禄：声望+4
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影7级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 3
give 金币 300000
SENDMSG 6 领取俸禄：声望+3　金币30万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影6级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 3
SENDMSG 6 领取俸禄：声望+3
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影5级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 2
give 金币 200000
SENDMSG 6 领取俸禄：声望+2　金币20万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影4级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 2
SENDMSG 6 领取俸禄：声望+2
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影3级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 1
give 金币 100000
SENDMSG 6 领取俸禄：声望+1　金币10万
goto @Member
break
#IF
checknamelist ..\QuestDiary\荣誉\军团功能\神影2级.txt
dayofweek sun
check 0
#act
reset 7
set 1
GAMEGOLD + 1
SENDMSG 6 领取俸禄：声望+1
goto @Member
break
#ELSEACT
SENDMSG 6 你好象今天已经领过了啊，怎么，还想再领？
goto @Member

页: [1]
查看完整版本: 传奇军团争霸脚本