GOM引擎武器灼伤触发脚本

2727611031 · 发表于 2023-11-20 11:02:44

===========================================================
QQ交流群:①：615629963（推荐） ②：xxxxxxxx（推荐） ③：xxxxxxxx（推荐） ④：xxxxxxxx（推荐）
===========================================================

单机架设教程：https://www.30wj.com/thread-22344-1-1.html

===========================================================

郑重申明：本论坛传奇内容只供个人学习娱乐使用，如违规违法后果自负，与本论坛无关！！!

==========================================================

资源下载：

===========================================================
金币充值比例 1/10 下载链接失效联系QQ 2727611031  处理
逐枫传奇版本库论坛业务介绍：服务器租用，版本修改，收徒，传奇一条龙
============================================================

图片介绍：

===========================================================

内容介绍：

QM---------------------

;---------滴血效果-------------------------------
[@OnTimer40]

#if
LARGE N$失血状态 0
LARGE <$HP> 0
#act
DEC N$失血状态 1
MOV N$失血量 <$MAXHP>
MOVR N$失血机率 50 100
MUL N$失血量 <$STR(N$失血机率)>
DIV N$失血量 1000
HUMANHP - <$STR(N$失血量)>
GuildNoticeMsg 150 191 你已经被[屠龙]]持续灼烧：-<$STR(N$失血量)>HP. self
SetIcon 7 0 153 0 10 10 1 50
#elseact
SetIcon 7 -1
SetOffTimer 40
break

;--------伤害方触发  N$攻击模式 0 就是没被攻击--------------------------------
[@攻击模式]
;和平模式--------

#if
S$模式者.CheckAttackMode 1
#act
MOV N$攻击模式 0
break

;全体模式------

#if
S$模式者.CheckAttackMode 0
#act
MOV N$攻击模式 1

break

;师徒模式-----
#IF
S$模式者.CheckAttackMode 3
EQUAL T14 <$CURRRTARGETNAME>
#act
MOV N$攻击模式 1
break

;------组队模式---------------------------

#IF
;有组队
NOT EQUAL <$TEAM0> ????
#act
MOV S$当前组长 <$TEAM0>
S$模式者.MOVEX S$当前组长 <$STR(S$当前组长)>

#IF
;模式攻是组队模式,并且同组长
S$模式者.CheckAttackMode 4
S$模式者.EQUAL S$当前组长 <$TEAM0>
#act
MOV N$攻击模式 1
break

;结婚模式-------
#IF
S$模式者.CheckAttackMode 2
NOT EQUAL T13 <$STR(S$模式者)>
#act
MOV N$攻击模式 1
break

;红名模式-------
#IF
S$模式者.CheckAttackMode 6
#act
MOV N$攻击模式 1
break

;行会模式---

#if
S$模式者.HAVEGUILD
S$模式者.CheckAttackMode 5
#act
MOV S$所属行会 <$GUILDNAME>
S$模式者.MOVEX S$所属行会 <$STR(S$所属行会)>

#IF
S$模式者.CheckAttackMode 5
NOT S$模式者.EQUAL S$所属行会 <$GUILDNAME>
#act
MOV N$攻击模式 1
break

QF触发-----------

;1.70=============================================
(@@sendmsg @storage @getback @buy @sell @repair @s_repair @@offlinemsg @storage @getback @getnextpage @getPreviouspage @@InPutString @@offlinemsg)

[@ESPStartAutoPlayGame]
#IF
#ACT
ESPStartAutoPlayGame
sendmsg 6 开启成功！

[@ESPStopAutoPlayGame]
#act
sendmsg 6 停止成功！

;----攻击力药水---------
[@StdModeFunc201]
#if
#ACT
INC N$攻击力药水 180
MOV N$攻击力药水使用 1
Hcall <$USERNAME> @恢复封号
sendmsg 6 提示：攻击力已增加,时间剩余<$STR(N$攻击力药水)>秒.
SetONTimer 23 1
break

[@StdModeFunc202]
#if
#ACT
INC N$魔法力药水 180
MOV N$魔法力药水使用 1
Hcall <$USERNAME> @恢复封号
sendmsg 6 提示：魔法力已增加,时间剩余<$STR(N$魔法力药水)>秒.
SetONTimer 23 1
break

[@StdModeFunc203]
#if
#ACT
INC N$道术力药水 180
MOV N$道术力药水使用 1
Hcall <$USERNAME> @恢复封号
sendmsg 6 提示：道术力已增加,时间剩余<$STR(N$道术力药水)>秒.
SetONTimer 23 1
break

;双倍经验卡--------------------------------------

[@StdModeFunc66]
#if
checklevelEX < 46
#act
messageBOx 提示：你的等级还没有达到46级！
sendmsg 5 提示：你的等级还没有达到46级！
break

#if
#act
MOV N$经验卡倍数 1
MOV N$经验卡倍数提示 0
setONtimer 25 1
ADDNAMEDATETIMELIST ..\QuestDiary\临时数据\经验双倍时间数据.txt 0 1 0
BREAK

[@StdModeFunc67]
#if
checklevelEX < 46
#act
messageBOx 提示：你的等级还没有达到46级！
sendmsg 5 提示：你的等级还没有达到46级！
break

#if
#act
ADDNAMEDATETIMELIST ..\QuestDiary\临时数据\经验三倍时间数据.txt 0 1 0
HCALL <$USERNAME> @经验倍数

#if
CHECKNAMEDATETIMELIST ..\QuestDiary\临时数据\经验三倍时间数据.txt 1 <$STR(S$到期时间)> <$STR(N$剩余天数)> <$STR(N$剩余小时)> <$STR(N$剩余分钟)>
#act
sendmsg 6 提示：三倍经验到期时间<$STR(S$到期时间)>[剩余<$STR(N$剩余天数)>天<$STR(N$剩余小时)>小时<$STR(N$剩余分钟)>分钟]！

;改名系统----------------------------------------------
[@QueryingHumName]
\ \
正在查询请稍后。。。\ \
<关闭/@exit>\

[@QueryHumNameOK]
#if
#ACT
messageBOx 恭喜你，名称【<$STR(S25)>】可以使用！
sendmsg 6 恭喜你，名称【<$STR(S25)>】可以使用！
break

[@ChangeingHumName]
\ \
正在修改请稍后。。。\ \
<关闭/@exit>\

[@ChangeHumNameOK]
#if
#ACT
;这个命令是用来修改，你的变量保存文件和人物名称列表文件里面的人物名称的，如果没有这些可以不使用这个命令
;这个命令也只能放在这个地方，放其他地方无效
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\充值金额数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\杀怪数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\杀怪数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\杀手数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\杀手数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\杀手数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\外挂监控数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\外挂监控数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\坐庄赢钱数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\坐庄赢钱数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\坐庄赢钱数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\坐庄赢钱数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\坐庄赢钱数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\验证码数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\验证码数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\金币数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\介绍玩家数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\介绍玩家数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\介绍玩家数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\介绍玩家数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\介绍玩家数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\介绍玩家数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\元宝数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\回收装备数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\回收装备数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\回收装备数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\每日签到数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\捐献数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\杀怪数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\杀怪数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\激情数据.txt
CHANGEHUMNAMEFILE ..\QuestDiary\临时数据\杀手攻城数据.txt

#if
#ACT
sendmsg 6 提示：修改名字成功！
break

[@NameLengthFail]
#if
#ACT
messageBOx 提示：名字长度不允许超过30个字符！
sendmsg 5 提示：名字长度不允许超过30个字符！
break

[@HumNameFilter]
#if
#ACT
messageBOx 提示：该名字存在非法字符！
sendmsg 5 提示：该名字存在非法字符！
break

[@HumNameExists]
#if
#ACT
messageBOx 提示：该名字已经被其他玩家占用，请选择其他名字！
sendmsg 5 提示：该名字已经被其他玩家占用，请选择其他名字！
break

[@ChangeHumNameFail]
#if
#ACT
messageBOx 提示：改名失败！
sendmsg 5 提示：改名失败！
break

;------------金刚石-----------------------
[@StdModeFunc121]
#act
GAMEDIAMOND + 1
SENDMSG 6 提示：金刚石增加1.

[@StdModeFunc122]
#act
GAMEDIAMOND + 5
SENDMSG 6 提示：金刚石增加5.

[@StdModeFunc123]
#act
GAMEDIAMOND + 10
SENDMSG 6 提示：金刚石增加10.

[@StdModeFunc124]
#act
GAMEDIAMOND + 50
SENDMSG 6 提示：金刚石增加50.

[@StdModeFunc125]
#act
GAMEDIAMOND + 100
SENDMSG 6 提示：金刚石增加100.

[@StdModeFunc126]
#act
GAMEDIAMOND + 1000
SENDMSG 6 提示：金刚石增加1000.

;----声望卷---------
[@StdModeFunc61]
#if
#act
CREDITPOINT + 1
sendmsg 6 已增加1点声望.
break

[@StdModeFunc62]
#if
#act
CREDITPOINT + 5
sendmsg 6 已增加5点声望.
break

[@StdModeFunc63]
#if
#act
CREDITPOINT + 10
sendmsg 6 已增加10点声望.
break

[@StdModeFunc64]
#if
#act
CREDITPOINT + 50
sendmsg 6 已增加50点声望.
break

[@StdModeFunc65]
#if
#act
CREDITPOINT + 100
sendmsg 6 已增加100点声望.
break

;----经验卷---------

[@StdModeFunc42]

#if
#act
CHANGEEXP + 10000
SendCenterMsg 146 180 玩家[<$USERNAME>]使用1万经验卷]获得经验值：+10000.  1 3
break

[@StdModeFunc43]
#if
#act
CHANGEEXP + 100000
SendCenterMsg 146 180 玩家[<$USERNAME>]使用[10万经验卷]获得经验值：+100000. 1 3
break

[@StdModeFunc44]
#if
#act
CHANGEEXP + 500000
SendCenterMsg 146 180 玩家[<$USERNAME>]使用50万经验卷]获得经验值：+500000.  1 3
break

[@StdModeFunc45]
#if
#act
CHANGEEXP + 1000000
SendCenterMsg 146 180 玩家[<$USERNAME>]使用100万经验卷]获得经验值：+1000000.  1 3
break

[@StdModeFunc46]
#if
#act
CHANGEEXP + 5000000
SendCenterMsg 146 180 玩家[<$USERNAME>]使用500万经验卷]获得经验值：+5000000.  1 3
break

[@StdModeFunc47]
#if
#act
CHANGEEXP + 10000000
SendCenterMsg 146 180 玩家[<$USERNAME>]使用1000万经验卷]获得经验值：+10000000.  1 3
break

;----首充礼包---------
[@StdModeFunc28]
#if
CHECKTextList ..\QuestDiary\临时数据\首充名单.txt <$USERNAME>
#act
sendmsg 5 失败：你已经领取过首充礼包了！
break
#elseACT
MOV N$首充金额 30
MOV N$首充金币 2000000
MOV S$显示首充金币 <$STR(N$首充金币)>万
ANSIREPLACETEXT S$显示首充金币 0000

#if
NOT CheckBagSize 9
#act
give 首充礼包 1
sendmsg 5 你的背包空位不足！
break

#if
NOT SMALL <$HUMAN(充值金额)> <$STR(N$首充金额)>
#act
goto @执行兑换首充
break

#if
#act
messageBOx 提示：你的充值金额没有达到<$STR(N$首充金额)>元！确定花费<$STR(S$显示首充金币)>金币打开首充礼包？ @确定首充条件 @取消首充
break

[@取消首充]
#if
#act
give 首充礼包 1
break

[@确定首充条件]
#if
checkGOLD <$STR(N$首充金币)>
#act
take 金币 <$STR(N$首充金币)>
goto @执行兑换首充
break
#elseACT
give 首充礼包 1
sendmsg 5 失败：充值金额没有达到要求或你的身上没有足够金币！
break

[@执行兑换首充]

#if
#act
GIVE 强效太阳水(包) 3
goto @判断斗笠
GIVE 盟重传送石 1
GIVE 幸运项链 1
GIVE 随机传送石 1
sendmsg 6 恭喜你成功打开礼包！
GuildNoticeMsg 151 57  恭喜玩家[<$USERNAME>]进行首充成功打开【首充礼包】！
AddTextList ..\QuestDiary\临时数据\首充名单.txt <$USERNAME>
break

[@判断斗笠]
#OR
checkitem 青铜斗笠 1
checkitem 白银斗笠 1
checkitem 黄金斗笠 1
checkitem 钻石斗笠 1
checkitem 至尊斗笠 1
checkitem 荣耀斗笠 1

checkitemw 青铜斗笠 1
checkitemw 白银斗笠 1
checkitemw 黄金斗笠 1
checkitemw 钻石斗笠 1
checkitemw 至尊斗笠 1
checkitemw 荣耀斗笠 1
#act
break

#if
#act
give 青铜斗笠 1
break
;------------四级冰咆哮-----------------------

[@StdModeFunc55]
#IF
checkjob wizard
#ELSEACT
MESSAGEBOX 此技能不适合你学习.
give 四级冰咆哮 1
BREAK

;---------------
#IF
CHECKSKILL 冰咆哮 = 4 0
#ACT
MESSAGEBOX 你的冰咆哮已经是四级.
GIVE 四级冰咆哮 1
break

#IF
NOT CHECKSKILL 冰咆哮 > 0 0
NOT CHECKSKILL 冰咆哮 = 0 0
#ACT
MESSAGEBOX 你还没有学习冰咆哮！
GIVE 四级冰咆哮 1
BREAK

#OR
CHECKSKILL 冰咆哮 = 1 0
CHECKSKILL 冰咆哮 = 2 0
NOT CHECKSKILL 冰咆哮 = 3 0
#ACT
MESSAGEBOX 你的冰咆哮还没有达到3级！
GIVE 四级冰咆哮 1
BREAK

;-------------------------
#IF
#ACT
SkillLevel 冰咆哮 = 4
MESSAGEBOX 四级冰咆哮修炼成功！！
sendmsg 6 四级冰咆哮修炼成功！！
BREAK

;------------四级刺杀剑术-----------------------

[@StdModeFunc54]
#IF
checkjob warrior
#ELSEACT
MESSAGEBOX 此技能不适合你学习.
give 四级刺杀剑术 1
BREAK

;---------------
#IF
CHECKSKILL 刺杀剑术 = 4 0
#ACT
MESSAGEBOX 你的刺杀剑术已经是四级.
GIVE 四级刺杀剑术 1
break

#IF
NOT CHECKSKILL 刺杀剑术 > 0 0
NOT CHECKSKILL 刺杀剑术 = 0 0
#ACT
MESSAGEBOX 你还没有学习刺杀剑术！
GIVE 四级刺杀剑术 1
BREAK

#OR
CHECKSKILL 刺杀剑术 = 1 0
CHECKSKILL 刺杀剑术 = 2 0
NOT CHECKSKILL 刺杀剑术 = 3 0
#ACT
MESSAGEBOX 你的刺杀剑术还没有达到3级！
GIVE 四级刺杀剑术 1
BREAK

;-------------------------
#IF
#ACT
SkillLevel 刺杀剑术 = 4
MESSAGEBOX 四级刺杀剑术修炼成功！！
sendmsg 6 四级刺杀剑术修炼成功！！
BREAK

;------------四级施毒术-----------------------

[@StdModeFunc50]
#IF
checkjob taoist
#ELSEACT
MESSAGEBOX 此技能不适合你学习.
give 四级施毒术 1
BREAK

;---------------
#IF
CHECKSKILL 施毒术 = 4 0
#ACT
MESSAGEBOX 你的施毒术已经是四级.
GIVE 四级施毒术 1
break

#IF
NOT CHECKSKILL 施毒术 > 0 0
NOT CHECKSKILL 施毒术 = 0 0
#ACT
MESSAGEBOX 你还没有学习施毒术！
GIVE 四级施毒术 1
BREAK

#OR
CHECKSKILL 施毒术 = 1 0
CHECKSKILL 施毒术 = 2 0
NOT CHECKSKILL 施毒术 = 3 0
#ACT
MESSAGEBOX 你的施毒术还没有达到3级！
GIVE 四级施毒术 1
BREAK

;-------------------------
#IF
#ACT
SkillLevel 施毒术 = 4
MESSAGEBOX 四级施毒术修炼成功！！
sendmsg 6 四级施毒术修炼成功！！
BREAK

;------------四级魔法盾-----------------------

[@StdModeFunc53]
#IF
checkjob wizard
#ELSEACT
MESSAGEBOX 此技能不适合你学习.
give 四级魔法盾 1
BREAK

;---------------
#IF
CHECKSKILL 魔法盾 = 4 0
#ACT
MESSAGEBOX 你的魔法盾已经是四级.
GIVE 四级魔法盾 1
break

#IF
NOT CHECKSKILL 魔法盾 > 0 0
NOT CHECKSKILL 魔法盾 = 0 0
#ACT
MESSAGEBOX 你还没有学习魔法盾！
GIVE 四级魔法盾 1
BREAK

#OR
CHECKSKILL 魔法盾 = 1 0
CHECKSKILL 魔法盾 = 2 0
NOT CHECKSKILL 魔法盾 = 3 0
#ACT
MESSAGEBOX 你的魔法盾还没有达到3级！
GIVE 四级魔法盾 1
BREAK

;-------------------------
#IF
#ACT
SkillLevel 魔法盾 = 4
MESSAGEBOX 四级魔法盾修炼成功！！
sendmsg 6 四级魔法盾修炼成功！！
BREAK

;------------四级烈火剑法-----------------------
[@StdModeFunc51]
#IF
checkjob warrior
#ELSEACT
MESSAGEBOX 此技能不适合你学习.
give 四级烈火剑法 1
BREAK

;---------
#IF
CHECKSKILL 烈火剑法 = 4 0
#ACT
MESSAGEBOX 你的烈火剑法已经是四级.
GIVE 四级烈火剑法 1
break

#IF
NOT CHECKSKILL 烈火剑法 > 0 0
NOT CHECKSKILL 烈火剑法 = 0 0
#ACT
MESSAGEBOX 你还没有学习烈火剑法！
GIVE 四级烈火剑法 1
BREAK

#OR
CHECKSKILL 烈火剑法 = 1 0
CHECKSKILL 烈火剑法 = 2 0
NOT CHECKSKILL 烈火剑法 = 3 0
#ACT
MESSAGEBOX 你的烈火剑法还没有达到3级！
GIVE 四级烈火剑法 1
BREAK

;-----------
#IF
#ACT
SkillLevel 烈火剑法 = 4
MESSAGEBOX 四级烈火剑法修炼成功！！
sendmsg 6 四级烈火剑法修炼成功！！
BREAK

;------------四级灵魂火符-----------------------
[@StdModeFunc52]
#IF
checkjob taoist
#ELSEACT
MESSAGEBOX 此职业技能不适合你学习.
GIVE 四级灵魂火符 1
BREAK

;--------
#IF
CHECKSKILL 灵魂火符 = 4 0
#ACT
MESSAGEBOX 你的灵魂火符已经是四级.
GIVE 四级灵魂火符 1
break

#IF
NOT CHECKSKILL 灵魂火符 > 0 0
NOT CHECKSKILL 灵魂火符 = 0 0
#ACT
MESSAGEBOX 你还没有学习灵魂火符！
GIVE 四级灵魂火符 1
BREAK

#OR
CHECKSKILL 灵魂火符 = 1 0
CHECKSKILL 灵魂火符 = 2 0
NOT CHECKSKILL 灵魂火符 = 3 0
#ACT
MESSAGEBOX 你的灵魂火符还没有达到3级！
GIVE 四级灵魂火符 1
BREAK

;---------
#IF
#ACT
SkillLevel 灵魂火符 = 4
MESSAGEBOX 四级灵魂火符修炼成功！！
sendmsg 6 四级灵魂火符修炼成功！！
BREAK

;---------------------------------

[@StdModeFunc29]
#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\临时数据\时间月卡名单.txt  1  <$STR(S$到期时间)> <$STR(N$剩余天数)> <$STR(N$剩余小时)> <$STR(N$剩余分钟)>
#ACT
GIVE 月卡30天 1
SENDMSG 5 提示：请勿重复使用,月卡到期时间【<$STR(S$到期时间)>】！
break

#IF
#ACT
Gmexecute showeffect 80
Gmexecute showeffect 82
Gmexecute showeffect 84
Gmexecute showeffect 86
addnamelist ..\QuestDiary\临时数据\时间月卡名单.txt  30 0 0
ADDUSERDATE ..\QuestDiary\临时数据\时间记载.txt  30 0 0
ADDNAMEDATETIMELIST ..\QuestDiary\临时数据\时间月卡名单.txt  30 0 0
messageBOx 充值成功！请小退游戏即可生效！

#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\临时数据\时间月卡名单.txt  1  <$STR(S$到期时间)> <$STR(N$剩余天数)> <$STR(N$剩余小时)> <$STR(N$剩余分钟)>
#ACT
SENDMSG 6 充值成功！账号到期时间【<$STR(S$到期时间)>】请小退游戏即可生效！
break

;---------------------------------

[@StdModeFunc30]
#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\临时数据\时间月卡名单.txt  1  <$STR(S$到期时间)> <$STR(N$剩余天数)> <$STR(N$剩余小时)> <$STR(N$剩余分钟)>
#ACT
GIVE 月卡90天 1
SENDMSG 5 提示：请勿重复使用,月卡到期时间【<$STR(S$到期时间)>】！
break

#IF
#ACT
Gmexecute showeffect 80
Gmexecute showeffect 82
Gmexecute showeffect 84
Gmexecute showeffect 86
addnamelist ..\QuestDiary\临时数据\时间月卡名单.txt  90 0 0
ADDUSERDATE ..\QuestDiary\临时数据\时间记载.txt  90 0 0
ADDNAMEDATETIMELIST ..\QuestDiary\临时数据\时间月卡名单.txt  90 0 0
messageBOx 充值成功！请小退游戏即可生效！

#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\临时数据\时间月卡名单.txt  1  <$STR(S$到期时间)> <$STR(N$剩余天数)> <$STR(N$剩余小时)> <$STR(N$剩余分钟)>
#ACT
SENDMSG 6 充值成功！账号到期时间【<$STR(S$到期时间)>】请小退游戏即可生效！
break

;--------------------------------------------------------------
[@StdModeFunc32]
#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\临时数据\时间年卡名单.txt  1  <$STR(S$到期时间)> <$STR(N$剩余天数)> <$STR(N$剩余小时)> <$STR(N$剩余分钟)>
#ACT
GIVE 年卡365天 1
SENDMSG 5 提示：请勿重复使用,年卡到期时间【<$STR(S$到期时间)>】！
break

#IF
#ACT
Gmexecute showeffect 80
Gmexecute showeffect 82
Gmexecute showeffect 84
Gmexecute showeffect 86
addnamelist ..\QuestDiary\临时数据\时间年卡名单.txt 360 0 0
ADDUSERDATE ..\QuestDiary\临时数据\时间记载.txt 360 0 0
ADDNAMEDATETIMELIST ..\QuestDiary\临时数据\时间年卡名单.txt  365 0 0
messageBOx 充值成功！请小退游戏即可生效！

#IF
CHECKNAMEDATETIMELIST ..\QuestDiary\临时数据\时间年卡名单.txt  1  <$STR(S$到期时间)> <$STR(N$剩余天数)> <$STR(N$剩余小时)> <$STR(N$剩余分钟)>
#ACT
SENDMSG 6 充值成功！账号到期时间【<$STR(S$到期时间)>】请小退游戏即可生效！
break

[@记录安全区]
#if
#Act
MOV T12 <$MAP>

break

;普通祝福油----------
[@STDMODEFUNC10]

#if
NOT CHECKUSEITEM 1
#Act
give 祝福油 1
sendmsg 5 你的手中没有武器！
break

;有幸运减幸运--------

#if
Random 22
#Act
goto @祝福失败
break

;无幸运百分百--------
#if
CHECKITEMADDVALUE 1 3 = 0
#Act
goto @祝福成功
break

;幸运=1 --------

#if
CHECKITEMADDVALUE 1 3 = 1
Random 3
#Act
goto @祝福成功
BREAK

;幸运=2 --------

#if
CHECKITEMADDVALUE 1 3 > 1
NOT CHECKITEMADDVALUE 1 3 > 6
Random 5
#Act
goto @祝福成功
BREAK

#elseACT
sendmsg 6 无效！！！
break

;-----------
[@祝福失败]
#if
CHECKITEMADDVALUE 1 3 > 0
#Act
CHANGEITEMADDVALUE 1 3 - 1
#elseACT
CHANGEITEMADDVALUE 1 4 + 1

#if
#Act
sendmsg 5 你的武器被诅咒了！！！
break
;------------------
[@祝福成功]

;有诅咒减诅咒--------
#if
CHECKITEMADDVALUE 1 4 > 0
#Act
CHANGEITEMADDVALUE 1 4 - 1
#elseACT
CHANGEITEMADDVALUE 1 3 + 1

#if
#Act
sendmsg 6 你的武器获得祝福！！

#IF
CheckLuckPoint > 0
#ACT
MOV N$幸运数 1
MOV S$祝福油类型祝福油
goto @提示幸运数
break

;地牢逃脱卷23----------

[@STDMODEFUNC23]

#OR
ISONMAP jiedai
ISONMAP jianyu
ISONMAP juedou
#act
sendmsg 5 当前地图不允许使用该物品！！！
BREAK

#IF
LARGE N$被运十状态 0
#act
sendmsg 5 提示：被运10击中无法使用！
break

#IF
EQUAL N$地牢状态 0
#act
map <$STR(T12)>
MOV N$地牢状态 1
delaygoto 1000 @地牢逃脱卷消失
#elseact
give 地牢逃脱卷 1
sendmsg 5 请稍后再使用该物品！
break

[@地牢逃脱卷消失]
#IF
#act
MOV N$地牢状态 0
break

;回城卷24----------

[@STDMODEFUNC24]
#OR
ISONMAP jiedai
ISONMAP jianyu
ISONMAP juedou
#act
sendmsg 5 当前地图不允许使用该物品！！！
BREAK

#IF
LARGE N$被运十状态 0
#act
sendmsg 5 提示：被运10击中无法使用！
break

#if
#Act
GoHome
break

#if
EQUAL T12 0
#Act
MOVR P7 326 336
MOVR P8 266 276
mapmove 0 <$STR(P7)> <$STR(P8)>
BREAK

#if
EQUAL T12 2
#Act
MOVR P7 497 509
MOVR P8 477 489
mapmove 2 <$STR(P7)> <$STR(P8)>
BREAK

#if
EQUAL T12 3
#Act
MOVR P7 323 338
MOVR P8 323 338
mapmove 3 <$STR(P7)> <$STR(P8)>
BREAK

#if
EQUAL T12 4
#Act
MOVR P7 234 246
MOVR P8 194 206
mapmove 4 <$STR(P7)> <$STR(P8)>
BREAK

#if
EQUAL T12 11
#Act
MOVR P7 172 184
MOVR P8 320 332
mapmove 11 <$STR(P7)> <$STR(P8)>
BREAK

;随机传送卷25----------

[@STDMODEFUNC25]
#IF
CHECKTEXTLIST ..\QuestDiary\功能限制\禁止随机地图.txt  <$MapTitle>
#act
give 随机传送卷 1
sendmsg 5 当前地图不允许使用随机传送！！！
BREAK

#IF
LARGE N$上线变量 0
#act
sendmsg 5 提示：上线时间太短请稍后再使用！
break

#IF
LARGE N$被运十状态 0
#act
sendmsg 5 提示：被运10击中无法使用！
break

#IF
EQUAL N$小退变量 1
#act
sendmsg 5 提示：由于你上次频繁小退，你已被锁定3秒！
break

#IF
EQUAL N$随机传送状态 0
#act
map <$map>
MOV N$随机传送状态 1
delaygoto 1000 @随机传送状态消失
#elseact
give 随机传送卷 1
sendmsg 5 请稍后再使用该物品！
break

;行会回城卷27----------
[@STDMODEFUNC27]
#OR
ISONMAP jiedai
ISONMAP jianyu
ISONMAP juedou
#act
sendmsg 5 当前地图不允许使用该物品！！！
BREAK

#IF
#act
LOADVAR GLOBAL 盟重地图  ..\QuestDiary\临时数据\地图全局数据.txt

#IF
NOT EQUAL <$GLOBAL(盟重地图)> 开启
#ACT
AddFunItemDura 1000
sendmsg 5 失败：地图还没有到开放时间！
break

#IF
LARGE N$被运十状态 0
#act
sendmsg 5 提示：被运10击中无法使用！
break

#if
ISCASTLEGUILD
#Act
MOVR P7 637 651
MOVR P8 283 297
mapmove 3 <$STR(P7)> <$STR(P8)>
BREAK
#elseACT
give 行会回城卷 1
break

;-------------------------------------
[@PickUpItemEx]

#if
CHECKTEXTLIST ..\QuestDiary\功能限制\装备捡取.txt <$CURRTEMNAME>
#Act
A28.MOVEX S$玩家名 <$USERNAME>
A28.MOVEX S$地图名 <$mapTitle>
A28.MOVEX S$地图号 <$map>
A28.MOVEX S$坐标X <$X>
A28.MOVEX S$坐标Y <$Y>
A28.MOVEX S$物品 <$CURRTEMNAME>
A28.sendmsg 6 玩家[<$STR(S$玩家名)>]在<$STR(S$地图名)>(<$STR(S$地图号)>:<$STR(S$坐标X)>:<$STR(S$坐标Y)>)捡到【<$STR(S$物品)>】.
;AddTextList ..\QuestDiary\临时数据\装备捡取记录.txt <$DATETIME>　玩家[<$USERNAME>]在<$mapTitle>(<$map><$X>:<$Y>)捡到【<$CURRTEMNAME>】:<$DATETIME>.

;-------------------------------------------------

#if
CheckContainsText 白色虎项链,灯笼项链,记忆项链 <$CURRTEMNAME>
NOT CheckContainsTextList ..\QuestDiary\临时数据\幸运数据记录.txt 玩家[<$USERNAME>]
#Act
GetListString ..\QuestDiary\临时数据\幸运数据记录.txt 0 S$幸运数量 S$幸运变量
LINKPICKUPITEM
goto @幸运鉴定
break

;====================================
[@首爆装备触发禁]
;被捡过
#if
CheckContainsTextList ..\QuestDiary\功能限制\首爆奖励数据.txt 序列号[<$CURRTEMMAKEINDEX>]
#Act
break

;该物品没被没捡过，但是本人已捡过
#IF
CheckContainsTextList ..\QuestDiary\功能限制\首爆奖励数据.txt 物品【<$CURRTEMNAME>】玩家[<$USERNAME>]
NOT CheckContainsTextList ..\QuestDiary\功能限制\首爆奖励数据.txt 序列号[<$CURRTEMMAKEINDEX>]
#Act
AddTextList ..\QuestDiary\功能限制\首爆奖励数据.txt 序列号[<$CURRTEMMAKEINDEX>]物品【<$CURRTEMNAME>】玩家[<$USERNAME>]在<$MapTitle><$SCATTERITEMX>获得：<$SCATTERITEMY>处:<$DATETIME>.
break

#if
#Act
GetListString ..\QuestDiary\功能限制\首爆奖励数量.txt <$STR(N0)> S$首爆装备 S$首爆数量
GetListString ..\QuestDiary\功能限制\首爆奖励价格.txt <$STR(N0)> S$首爆装备 S$首爆价格
GetListString ..\QuestDiary\功能限制\首爆奖励人物.txt <$STR(N0)> S$首爆装备 S$首爆人物
GetListString ..\QuestDiary\功能限制\首爆奖励地图.txt <$STR(N0)> S$首爆装备 S$首爆地图

#if
LARGE <$STR(S$首爆数量)> 0
LARGE <$STR(S$首爆价格)> 0
#Act
MOV N$首爆数量 <$STR(S$首爆数量)>
DEC N$首爆数量 1
MOV N$首爆奖励 <$STR(S$首爆价格)>
GAMEGOLD + <$STR(N$首爆奖励)>
MOV S$首爆奖励 <$STR(N$首爆奖励)>元宝

DELTEXTLIST ..\QuestDiary\功能限制\首爆奖励数量.txt <$STR(S$首爆装备)>:<$STR(S$首爆数量)>
ADDTEXTLISTEX ..\QuestDiary\功能限制\首爆奖励数量.txt <$CURRTEMNAME>:<$STR(N$首爆数量)> <$STR(N0)>

DELTEXTLIST ..\QuestDiary\功能限制\首爆奖励人物.txt <$STR(S$首爆装备)>:<$STR(S$首爆人物)>
ADDTEXTLISTEX ..\QuestDiary\功能限制\首爆奖励人物.txt <$CURRTEMNAME>:<$USERNAME> <$STR(N0)>

DELTEXTLIST ..\QuestDiary\功能限制\首爆奖励地图.txt <$STR(S$首爆装备)>:<$STR(S$首爆地图)>
ADDTEXTLISTEX ..\QuestDiary\功能限制\首爆奖励地图.txt <$CURRTEMNAME>:<$mapTITLE> <$STR(N0)>

GuildNoticeMsg 151 64 恭喜[<$USERNAME>]获得首爆【<$CURRTEMNAME>】奖励[<$STR(S$首爆奖励)>]该名额剩余:<$STR(N$首爆数量)>名.
GuildNoticeMsg 151 68 恭喜[<$USERNAME>]获得首爆【<$CURRTEMNAME>】奖励[<$STR(S$首爆奖励)>]该名额剩余:<$STR(N$首爆数量)>名.
GuildNoticeMsg 151 64 恭喜[<$USERNAME>]获得首爆【<$CURRTEMNAME>】奖励[<$STR(S$首爆奖励)>]该名额剩余:<$STR(N$首爆数量)>名.
AddTextList ..\QuestDiary\功能限制\首爆奖励数据.txt 序列号[<$CURRTEMMAKEINDEX>]物品【<$CURRTEMNAME>】玩家[<$USERNAME>]在<$MapTitle><$SCATTERITEMX>获得：<$SCATTERITEMY>处:<$DATETIME>.

break

;---------------------------------------

[@幸运鉴定禁]
#if
CheckItemAddValue -1 1 = 0
EQUAL <$CURRTEMSTDMODE> 19
NOT EQUAL <$CURRTEMCOLOR> 243
SMALL <$HUMAN(充值金额)> 20
;一个区出现的项链数量
SMALL <$STR(S$幸运数量)> 1
SMALL <$GLOBAL(开区天数)> 4
EQUAL <$STR(S$幸运变量)> 0
Random 60
#Act
MOV N$幸运数量 <$STR(S$幸运数量)>
INC N$幸运数量 1
DelTextList ..\QuestDiary\临时数据\幸运数据记录.txt <$STR(S$幸运数量)>:<$STR(S$幸运变量)>
ADDTextListEX ..\QuestDiary\临时数据\幸运数据记录.txt <$STR(N$幸运数量)>:1 0
LINKPICKUPITEM
CHANGEITEMNAMECOLOR -1 243
CHANGEITEMADDVALUE -1 1 = 2
SENDUPGRADEITEM
AddTextList ..\QuestDiary\临时数据\幸运数据记录.txt <$DATETIME>　玩家[<$USERNAME>]在<$mapTitle>地图<$mapTITLE>鉴定【<$CURRTEMNAME>+2】.
A28.MOVEX S$玩家名 <$USERNAME>
A28.MOVEX S$地图名 <$mapTitle>
A28.MOVEX S$地图号 <$map>
A28.MOVEX S$坐标X <$X>
A28.MOVEX S$坐标Y <$Y>
A28.MOVEX S$物品 <$CURRTEMNAME>
A28.sendmsg 6 【鉴定】玩家[<$STR(S$玩家名)>]在<$STR(S$地图名)>(<$STR(S$地图号)>:<$STR(S$坐标X)>:<$STR(S$坐标Y)>)鉴定【<$STR(S$物品)>+2】.
break
;--------------------------

[@爆物品]
#if
EQUAL <$maptitle> 白日门
NOT EQUAL <$GLOBAL(白日门地图)> 开启
#Act
break

#if
CHECKTEXTLIST ..\QuestDiary\功能限制\装备掉落.txt <$SCATTERITEMNAME>
#Act
MOV N$新区显示 0
#elseACT
break

#OR
EQUAL <$SCATTERITEMNAME> 施毒术
EQUAL <$SCATTERITEMNAME> 雷电术
EQUAL <$SCATTERITEMNAME> 诱惑之光
EQUAL <$SCATTERITEMNAME> 灵魂火符
EQUAL <$SCATTERITEMNAME> 召唤骷髅
EQUAL <$SCATTERITEMNAME> 爆裂火焰
EQUAL <$SCATTERITEMNAME> 火墙
EQUAL <$SCATTERITEMNAME> 刺杀剑术
#ACT
MOV N$新区显示 1

#if
;开区分钟
LARGE G188 1000
EQUAL N$新区显示 1
NOT EQUAL <$GLOBAL(开区设置)> 测试
#ACT
break

#if
#ACT
;GuildNoticeMsg 255 253 物品【<$SCATTERITEMNAME>】从[<$CURRRTARGETNAME>]身上掉落在%m<$SCATTERITEMX>：<$SCATTERITEMY>处
sendmsg 0 92 76 物品【{<$SCATTERITEMNAME>|151:76}】从[{<$CURRRTARGETNAME>|21:76}]身上掉落在<$maptitle><$SCATTERITEMX>：<$SCATTERITEMY>处

#OR
<$CURRRTARGETNAME>.checkONline
#ACT
break

#if
CheckContainsText 地狱雷光|半月弯刀|烈火剑法|野蛮冲撞|群体治疗术|召唤神兽|魔法盾|圣言术|冰咆哮 <$SCATTERITEMNAME>
NOT CheckContainsText <$SCATTERITEMNAME> 四级
LARGE G188 5760
#ACT
break

#OR
CheckContainsText 地狱雷光|半月弯刀|烈火剑法|野蛮冲撞|群体治疗术|召唤神兽|魔法盾|圣言术|冰咆哮 <$SCATTERITEMNAME>

CheckContainsText |狮子吼|开天斩|寒冰掌|灭天火|火龙气焰|流星火雨|气功波|无极真气|飓风破|召唤白虎 <$SCATTERITEMNAME>

CheckContainsText <$SCATTERITEMNAME> 四级

CheckContainsText  荣誉勋章23号|荣誉勋章24号|荣誉勋章25号 <$SCATTERITEMNAME>
CheckContainsText  荣誉勋章33号|荣誉勋章34号|荣誉勋章35号 <$SCATTERITEMNAME>
CheckContainsText  荣誉勋章43号|荣誉勋章44号|荣誉勋章45号 <$SCATTERITEMNAME>
CheckContainsText  龙纹剑|骨玉权杖|裁决之杖 <$SCATTERITEMNAME>
CheckContainsText  霓裳羽衣|圣战宝甲|天师长袍|天尊道袍|法神披风|天魔神甲 <$SCATTERITEMNAME>

CheckContainsText <$SCATTERITEMNAME> 血饮

CheckContainsText <$SCATTERITEMNAME> 法神
CheckContainsText <$SCATTERITEMNAME> 天尊
CheckContainsText <$SCATTERITEMNAME> 圣战

CheckContainsText <$SCATTERITEMNAME> 烈焰
CheckContainsText <$SCATTERITEMNAME> 光芒
CheckContainsText <$SCATTERITEMNAME> 雷霆

CheckContainsText <$SCATTERITEMNAME> 镇魂
CheckContainsText <$SCATTERITEMNAME> 圣魔
CheckContainsText <$SCATTERITEMNAME> 战神

CheckContainsText <$SCATTERITEMNAME> 逍遥扇
CheckContainsText <$SCATTERITEMNAME> 龙牙
CheckContainsText <$SCATTERITEMNAME> 怒斩

CheckContainsText <$SCATTERITEMNAME> 嗜魂法杖
CheckContainsText <$SCATTERITEMNAME> 霸者之刃
CheckContainsText <$SCATTERITEMNAME> 屠龙

CheckContainsText <$SCATTERITEMNAME> 凤天
CheckContainsText <$SCATTERITEMNAME> 凰天

CheckContainsText <$SCATTERITEMNAME> 开天
CheckContainsText <$SCATTERITEMNAME> 镇天
CheckContainsText <$SCATTERITEMNAME> 玄天
#ACT
AddTextListEX ..\QuestDiary\临时数据\装备掉落记录.txt 物品【<$SCATTERITEMNAME>】从[<$CURRRTARGETNAME>]掉落在<$MapTitle>：<$YEAR>-<$MONTH>-<$DAY>.<$HOUR>:<$MINUTE> 0
break

[@MasterOK]
#if
#ACT
;CREDITPOINT + 10
messagebox 你的徒弟[<$STR(T14)>]圆满出师！
sendmsg 6 你的徒弟[<$STR(T14)>]圆满出师！
MOV T14
break

;========================================================

[@StartAutoPlayGame]
#OR
EQUAL <$SERVERNAME> 裁决骨玉
EQUAL <$SERVERNAME> 刀剑统战
#ACT
MOV N$更新服务器 1
#elseACT
MOV N$更新服务器 0

#if
EQUAL N$更新服务器 0
checklevel 46
#ACT
messageBOx 提示：你的等级已经达到46级,不可再挂机！
sendmsg 5 提示：你的等级已经达到46级,不可再挂机！
MOV N$挂机中 0
StopAutoPlayGame
break

#if
NOT IsOnMap jiedai
#ACT
MOV N$挂机中 1
SetONTimer 19 6
StartAutoPlayGame 100 10 1
SENDMSG 6 挂机步骤：1.勾选打怪过滤守卫；2.在[挂机点设置]右键清除默认点；3.开始挂机！

#if
NOT IsOnMap jiedai
EQUAL N$挂机过滤 0
#ACT
MOV N$挂机过滤 1
messagebox [提示]：挂机步骤：1.勾选打怪过滤守卫；2.在[挂机点设置]右键清除默认点；3.开始挂机！
break

;----------------
[@检测反复停止挂机]

#if
LARGE N$反复停止挂机 5
#ACT
mapmove <$map>
AddTextList ..\..\..\..\data\挂机信息记录.txt 【反复停止挂机】【<$SERVERNAME>】玩家[<$USERNAME>]反复停止挂机:<$DATETIME>.
goto @执行挂机

#if
#ACT
MOV N$反复停止挂机 0
break

[@StopAutoPlayGame]

#if
CHECKUSEITEM 1
#ACT
sendmsg 5 提示：挂机已经重新启动！停止挂机请把武器取下再停止挂机！
INC N$反复停止挂机
goto @执行挂机
delaygoto 8000 @检测反复停止挂机
break

#if
#ACT
MOV N$挂机中 0
SENDMSG 5 挂机结束，继续挂机快捷键“CTRL+ALT+X”.
break

[@执行挂机]
#if
NOT IsOnMap jiedai
#ACT
MOV N$挂机中 1
SetONTimer 19 6
StartAutoPlayGame 100 12 1
SENDMSG 6 挂机步骤：1.勾选打怪过滤守卫和弓箭手；2.开始挂机！

#if
NOT IsOnMap jiedai
EQUAL N$挂机过滤 0
#ACT
MOV N$挂机过滤 1
messagebox [提示]：挂机步骤：1.勾选打怪过滤守卫和弓箭手；2.开始挂机！
break

;参数1:挂机范围(挂机点以人物当前坐标生成范围)
;参数2:2个挂机点之间的距离(登录器会根据该参数自动生成挂机点,该值可以控制挂机点的密度)
;参数3:模式(0=需要用户设置挂机点，否则无法挂机，1=如果用户没有设置挂机点，会自动生成挂机点, 2=不管有没有用户有没有设置挂机点都会清空所有挂机点，然后自动生成挂机点)

[@STDMODEFUNC11]

#IF
LARGE U22 0
#ACT
give 1.5倍经验书 1
HCALL <$USERNAME> @计算分钟
SENDMSG 5 失败：当前[2.0倍经验书]剩余时间：<$STR(N$计算分钟)>分钟！
break
#ELSEACT
INC U21 3600
;---------经验书时间计算
HCALL <$USERNAME> @计算分钟
SetOnTimer 11 1
GuildNoticeMsg 255 155 玩家[<$USERNAME>]使用[1.5倍经验书]！
SENDMSG 7 你已启用[1.5倍经验书]：有效时间<$STR(N$计算分钟)>分钟！
HCALL <$USERNAME> @经验倍数
break

[@STDMODEFUNC12]

#IF
LARGE U21 0
#ACT
SetOffTimer 11
SENDMSG 5 你的[1.5倍经验书]已暂停,待其他经验书耗完后再自动启用！

#IF
#ACT
INC U22 3600
;---------经验书时间计算
HCALL <$USERNAME> @计算分钟
SetOnTimer 12 1
GuildNoticeMsg 255 70 玩家[<$USERNAME>]使用[2.0倍经验书]！
SENDMSG 7 你已启用[2.0倍经验书]：有效时间<$STR(N$计算分钟)>分钟！
HCALL <$USERNAME> @经验倍数
break

;----------------------------------
[@STDMODEFUNC39]

#IF
#ACT
INC U39 86400
;---------时间计算
HCALL <$USERNAME> @计算分钟
SetOnTimer 34 1
SENDMSG 7 你已启用[阎罗聚魂卷]：有效时间<$STR(N$计算分钟)>分钟！
HCALL <$USERNAME> @恢复封号
break

[@STDMODEFUNC13]

#IF
#ACT
ActRepairAll
SENDMSG 6 全身装备修复完毕.

[@StdModeFunc22]

#if
#ACT
ActRepairAll
INC U26 600
SetONTimer 26 60
sendmsg 6 你的超强特修油已经生效,剩余时间：<$STR(U26)>分钟。
break

[@STDMODEFUNC14]
#if
NOT CHECKUSEITEM 1
#ACT
GIVE 超级祝福油 1
messagebox [失败]:你当前手上没有任何武器。
break

#if
CheckItemAddValue 1 4 > 0
#Act
CHANGEITEMADDVALUE 1 4 - 1
SENDMSG 6 你的武器获得祝福！！
BREAK

#if
CheckItemAddValue 1 3 > 6
#Act
GIVE 超级祝福油 1
SendMsg 5 失败:你的武器已经幸运值已经+7以上了！
BREAK

#IF
#ACT
CHANGEITEMADDVALUE 1 3 + 1
HCALL <$USERNAME> @幸运九
SENDMSG 6 你的武器获得祝福！！

#IF
CheckLuckPoint > 0
#ACT
MOV S$祝福油类型超级祝福油
goto @提示幸运数
break

[@提示幸运数]

#IF
CheckItemAddValue 1 3 > 0
#ACT
GETITEMADDVALUE 1 3 <$STR(N$检测点数)>
GuildNoticeMsg 255 228 恭喜[<$USERNAME>]使用[<$STR(S$祝福油类型)>]为武器获得幸运：+<$STR(N$检测点数)>.
GOTO @记录祝福油
break

[@记录祝福油]
#if
LARGE N$幸运数 0
EQUAL S$祝福油类型祝福油
#Act
AddTextList ..\QuestDiary\临时数据\幸运项链记录.txt 【普通祝福油】玩家[<$USERNAME>]使用[<$WEAPON>]喝到+<$STR(N$幸运数)>:<$DATETIME>.
break

;-----------------------------------

[@STDMODEFUNC81]
#IF
CHECKITEM 强效太阳水 6
#ACT
TAKE 强效太阳水 6
GIVE 强效太阳水(包) 1
SENDMSG 6 成功打捆6瓶强效太阳水.
#ELSEACT
AddFunItemDura 1000
SENDMSG 5 提示：没有可捆的6个强效太阳水了.

[@STDMODEFUNC82]
#IF
CHECKITEM 疗伤药 6
#ACT
TAKE 疗伤药 6
GIVE 疗伤药(包) 1
SENDMSG 6 成功打捆6瓶疗伤药.
#ELSEACT
AddFunItemDura 1000
SENDMSG 5 提示：没有可捆的6个疗伤药了.

[@STDMODEFUNC83]
#IF
CHECKITEM 万年雪霜 6
#ACT
TAKE 万年雪霜 6
GIVE 万年雪霜(包) 1
SENDMSG 6 成功打捆6瓶万年雪霜.
#ELSEACT
AddFunItemDura 1000
SENDMSG 5 提示：没有可捆的6个万年雪霜了.

[@STDMODEFUNC84]
#IF
CHECKITEM 太阳水 6
#ACT
TAKE 太阳水 6
GIVE 太阳水(包) 1
SENDMSG 6 成功打捆6瓶太阳水.
#ELSEACT
AddFunItemDura 1000
SENDMSG 5 提示：没有可捆的6个太阳水了.

;--------隐藏按钮----------------------
;-----------------------------------------

[@按钮变量清0]
#if
#act
MOV N$按钮1 0
MOV N$按钮2 0
MOV N$按钮3 0
MOV N$按钮4 0
MOV N$按钮5 0
MOV N$按钮6 0

[@ButtonClick6]
#if
EQUAL N$按钮6 0
#ACT
#CALL [\命令功能\游戏攻略.txt] @游戏攻略
goto @按钮变量清0
MOV N$按钮6 1
#elseACT
goto @按钮变量清0
ClosebigDialogBox
CLOSE

[@ButtonClick5]
#if
EQUAL N$按钮5 0
#ACT
#CALL [\命令功能\游戏攻略.txt] @游戏攻略
goto @按钮变量清0
MOV N$按钮5 1
#elseACT
goto @按钮变量清0
ClosebigDialogBox
CLOSE

;---------------
[@ButtonClick4]
#if
LARGE N$按钮4 0
#ACT
goto @按钮变量清0
ClosebigDialogBox
CLOSE
break

#if
#ACT
goto @按钮变量清0
MOV N$按钮4 1

#IF
LARGE <$GLOBAL(开区天数)> 2
NOT CheckContainsTextList ..\QuestDiary\功能限制\首杀怪物数量.txt :1
NOT CheckContainsTextList ..\QuestDiary\功能限制\首杀怪物数量.txt :2
NOT CheckContainsTextList ..\QuestDiary\功能限制\首杀怪物数量.txt :3
#act
goto @UserCmd2
break

#if
#ACT
#CALL [\命令功能\首杀奖励.txt] @首杀
break

[@ButtonClick3]
#if
EQUAL N$按钮3 0
#ACT
#CALL [命令功能\BOSS信息榜.txt] @BOSS信息
goto @按钮变量清0

MOV N$按钮3 1
#elseACT
goto @按钮变量清0
ClosebigDialogBox
CLOSE

[@ButtonClick2]
#if
EQUAL N$按钮2 0
#ACT
#CALL [命令功能\全区排行.txt] @全区排行
goto @按钮变量清0

MOV N$按钮2 1
#elseACT
goto @按钮变量清0
ClosebigDialogBox
CLOSE

[@ButtonClick1]
#if
EQUAL N$按钮1 0
#ACT
#CALL [命令功能\行会竞价.txt] @调用竞价
goto @按钮变量清0

MOV N$按钮1 1
#elseACT
goto @按钮变量清0
ClosebigDialogBox
CLOSE

;--------隐藏按钮----------------------
[@ButtonClick10]
#if
#act
MOV U10 0
#CALL [\登陆游戏\右侧按钮.txt] @按钮设置
break

;--------显示按钮----------------------
[@ButtonClick11]
#if
#act
MOV U10 1
#CALL [\登陆游戏\右侧按钮.txt] @按钮设置
break

;保护按钮----------------------------------------
[@ButtonClick9]
#if
EQUAL U1 0
#act
MOV S$保护一 <已关闭/@开启一>
#elseACT
MOV S$保护一 <已开启/@开启一>

#if
EQUAL U2 0
#act
MOV S$保护二 <已关闭/@开启二>
#elseACT
MOV S$保护二 <已开启/@开启二>

#if
EQUAL U3 0
#act
MOV S$保护三 <已关闭/@开启三>
#elseACT
MOV S$保护三 <已开启/@开启三>

#if
EQUAL U4 0
#act
MOV S$保护四 <已关闭/@开启四>
#elseACT
MOV S$保护四 <已开启/@开启四>

#if
EQUAL T31
EQUAL T32
EQUAL T33
EQUAL T34
#act
MOV T31 强效太阳水
MOV T32 疗伤药
MOV T33 强效太阳水
MOV T34 疗伤药

#if
EQUAL U41 0
EQUAL U42 0
EQUAL U43 0
EQUAL U44 0
#act
MOV U41 50
MOV U42 50
MOV U43 50
MOV U44 50

#if
#act
MOV N$无药提示 1
MOV S$药品一 <$STR(T31)>
MOV S$药品二 <$STR(T32)>
MOV S$药品三 <$STR(T33)>
MOV S$药品四 <$STR(T34)>
SetStringBlank S$药品一 10 1
SetStringBlank S$药品二 10 1
SetStringBlank S$药品三 10 1
SetStringBlank S$药品四 10 1

MOV S$百分一 <$STR(U41)>
MOV S$百分二 <$STR(U42)>
MOV S$百分三 <$STR(U43)>
MOV S$百分四 <$STR(U44)>
SetStringBlank S$百分一 2 0
SetStringBlank S$百分二 2 0
SetStringBlank S$百分三 2 0
SetStringBlank S$百分四 2 0

#if
EQUAL U49 0
#act
MOV S$特效药控制 <已关闭/@设置总开关>
#elseACT
MOV S$特效药控制 <已开启/@设置总开关>

#if
;EQUAL N$保护按钮 0
#act
MOV N$保护按钮 1
goto @保护设置
ClosebigDialogBox
;OpenBigDialogBox 0 80 0 0 0 0 1 400 1
#elseACT
MOV N$保护按钮 0
ClosebigDialogBox
close
break

[@保护设置]

#say
\  \
　你好,<$USERNAME>,请设置特效保护总开关：<$STR(S$特效药控制)>\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=160>\
<【特效补血一】：/SCOLOR=21><$STR(S$药品一)> <更换/@更换一> {<$STR(S$百分一)>% HP/SCOLOR=21} <设置/@@InPutInteger13> <$STR(S$保护一)>\
<【特效补血二】：/SCOLOR=21><$STR(S$药品二)> <更换/@更换二> {<$STR(S$百分二)>% HP/SCOLOR=21} <设置/@@InPutInteger14> <$STR(S$保护二)>\
<【特效补蓝一】：/SCOLOR=168><$STR(S$药品三)> <更换/@更换三> {<$STR(S$百分三)>% MP/SCOLOR=168} <设置/@@InPutInteger15> <$STR(S$保护三)>\
<【特效补蓝二】：/SCOLOR=168><$STR(S$药品四)> <更换/@更换四> {<$STR(S$百分四)>% MP/SCOLOR=168} <设置/@@InPutInteger16> <$STR(S$保护四)>\
<┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄/SCOLOR=160>\
<注：特效药服用间隔为1秒1瓶,优先服用补血或百分比较高的设置/SCOLOR=160>\

;请设置特效总保护 ------------------------

[@设置总开关]
#if
EQUAL U49 0
#act
MOV U49 1
SENDMSG 6  提示：保护设置已开启！
goto @ButtonClick9
#elseACT
MOV U49 0
SENDMSG 5  提示：保护设置已关闭！
goto @ButtonClick9
break

;单个保护 ------------------------
[@开启一]
#if
EQUAL U1 0
#act
MOV U1 1
SENDMSG 6 提示：【特效补血一】已开启！
goto @ButtonClick9
#elseACT
MOV U1 0
SENDMSG 5 提示：【特效补血一】已关闭！
goto @ButtonClick9

[@开启二]
#if
EQUAL U2 0
#act
MOV U2 1
SENDMSG 6 提示：【特效补血二】已开启！
goto @ButtonClick9
#elseACT
MOV U2 0
SENDMSG 5 提示：【特效补血二】已关闭！
goto @ButtonClick9

[@开启三]
#if
EQUAL U3 0
#act
MOV U3 1
SENDMSG 6 提示：【特效补蓝一】已开启！
goto @ButtonClick9
#elseACT
MOV U3 0
SENDMSG 5 提示：【特效补蓝二】已关闭！
goto @ButtonClick9

[@开启四]
#if
EQUAL U4 0
#act
MOV U4 1
SENDMSG 6 提示：【特效补蓝二】已开启！
goto @ButtonClick9
#elseACT
MOV U4 0
SENDMSG 5 提示：【特效补蓝二】已关闭！
goto @ButtonClick9

;设置保护 ------------------------

[@InPutInteger13]
#if
large N13 0
small N13 100
#ELSEact
SENDMSG 5 提示：设置1-99的之间百分比数值！
messagebox 提示：设置1-99的之间百分比数值！
BREAK
#if
#ACT
MOV U41 <$STR(N13)>
MOV N13 0
sendmsg 6 已成功设置【特效补血一】为：<$STR(U41)>%
goto @ButtonClick9
break

[@InPutInteger14]
#if
large N14 0
small N14 100
#ELSEact
SENDMSG 5 提示：设置1-99的之间百分比数值！
messagebox 提示：设置1-99的之间百分比数值！
BREAK
#if
#ACT
MOV U42 <$STR(N14)>
MOV N14 0
sendmsg 6 已成功设置【特效补血二】为：<$STR(U42)>%
goto @ButtonClick9
break

[@InPutInteger15]
#if
large N15 0
small N15 100
#ELSEact
SENDMSG 5 提示：设置1-99的之间百分比数值！
messagebox 提示：设置1-99的之间百分比数值！
BREAK

#if
#ACT
MOV U43 <$STR(N15)>
MOV N15 0
sendmsg 6 已成功设置【特效补蓝一】为：<$STR(U43)>%
goto @ButtonClick9
break

[@InPutInteger16]
#if
large N16 0
small N16 100
#ELSEact
SENDMSG 5 提示：设置1-99的之间百分比数值！
messagebox 提示：设置1-99的之间百分比数值！
BREAK
#if

#ACT
MOV U44 <$STR(N16)>
MOV N16 0
sendmsg 6 已成功设置【特效补蓝二】为：<$STR(U44)>%
goto @ButtonClick9
break

;更换药品一 ------------------------

[@更换一]
#if
EQUAL T31 太阳水
#act
MOV T31 强效太阳水
goto @ButtonClick9
break

#if
EQUAL T31 强效太阳水
#act
MOV T31 万年雪霜
goto @ButtonClick9
break

#if
EQUAL T31 万年雪霜
#act
MOV T31 疗伤药
goto @ButtonClick9
break

#if
EQUAL T31 疗伤药
#act
MOV T31 太阳水
goto @ButtonClick9
break

;更换药品二 ------------------------

[@更换二]
#if
EQUAL T32 太阳水
#act
MOV T32 强效太阳水
goto @ButtonClick9
break

#if
EQUAL T32 强效太阳水
#act
MOV T32 万年雪霜
goto @ButtonClick9
break

#if
EQUAL T32 万年雪霜
#act
MOV T32 疗伤药
goto @ButtonClick9
break

#if
EQUAL T32 疗伤药
#act
MOV T32 太阳水
goto @ButtonClick9
break

;更换药品三 ------------------------

[@更换三]

#if
EQUAL T33 太阳水
#act
MOV T33 强效太阳水
goto @ButtonClick9
break

#if
EQUAL T33 强效太阳水
#act
MOV T33 万年雪霜
goto @ButtonClick9
break

#if
EQUAL T33 万年雪霜
#act
MOV T33 疗伤药
goto @ButtonClick9
break

#if
EQUAL T33 疗伤药
#act
MOV T33 太阳水
goto @ButtonClick9
break

;更换药品四 ------------------------

[@更换四]
#if
EQUAL T34 太阳水
#act
MOV T34 强效太阳水
goto @ButtonClick9
break

#if
EQUAL T34 强效太阳水
#act
MOV T34 万年雪霜
goto @ButtonClick9
break

#if
EQUAL T34 万年雪霜
#act
MOV T34 疗伤药
goto @ButtonClick9
break

#if
EQUAL T34 疗伤药
#act
MOV T34 太阳水
goto @ButtonClick9
break

;==============攻击者触发=================================================================================================

;-------------------------------------------------------
[@减少防御]
#IF
#ACT
MOV S$模式者 <$CURRRTARGETNAME>
HCALL <$USERNAME> @攻击模式

#IF
EQUAL N$攻击模式 1
EQUAL N$减防状态 0
#ACT
#elseact
break

#IF
#ACT
MOV N$减防状态 1
delaygoto 15000 @减防状态恢复
MOVR N$减防特效时间 4 8
setONtimer 21 1
MOVR N$减防机率 30 51
mov N$防御1 <$AC>
mov N$防御2 <$MAXAC>
mov N$防御3 <$MAC>
mov N$防御4 <$MAXMAC>
MUL N$防御1 <$STR(N$减防机率)>
DIV N$防御1 100
MUL N$防御2 <$STR(N$减防机率)>
DIV N$防御2 100
MUL N$防御3 <$STR(N$减防机率)>
DIV N$防御3 100
MUL N$防御4 <$STR(N$减防机率)>
DIV N$防御4 100
ChangeHumAbility 1 - <$STR(N$防御1)> 7
ChangeHumAbility 2 - <$STR(N$防御2)> 7
ChangeHumAbility 3 - <$STR(N$防御3)> 7
ChangeHumAbility 4 - <$STR(N$防御4)> 7
delaygoto 7000 @减防恢复提示
;<$CURRRTARGETNAME>.SENDMSG 6 对手[<$CURRRTARGETNAME>]被霸者之刃击中：防御魔抗-<$STR(N$减防机率)>%,持续<$STR(N$减防特效时间)>秒.
;SendCenterMsg 254 164 玩家[<$USERNAME>]被[<$CURRRTARGETNAME>]的霸者之刃击中：防御魔抗-<$STR(N$减防机率)>%,持续<$STR(N$减防特效时间)>秒. 1 6
GuildNoticeMsg 242 164 玩家[<$USERNAME>]被[<$CURRRTARGETNAME>]的霸者之刃击中：防御魔抗-<$STR(N$减防机率)>%,持续<$STR(N$减防特效时间)>秒.
;sendmsg 5 你已被[<$CURRRTARGETNAME>]的霸者之刃击中：防御魔抗-<$STR(N$减防机率)>%,持续<$STR(N$减防特效时间)>秒.

[@减防状态恢复]
#IF
#ACT
MOV N$减防状态 0
break

[@减防恢复提示]
#IF
#ACT
sendmsg 6 提示：防御魔抗已恢复正常.
break

;-------------------------------------------

[@减慢速度]
#IF
#ACT
MOV S$模式者 <$CURRRTARGETNAME>
HCALL <$USERNAME> @攻击模式

#IF
EQUAL N$攻击模式 1
EQUAL N$减慢状态 0
#ACT
MAKEPOSION 13 2
MOV N$减慢状态 1
delaygoto 15000 @减慢状态恢复
;<$CURRRTARGETNAME>.SENDMSG 6 目标[<$CURRRTARGETNAME>]被你的[冰咆哮]击中：移动速度被减慢！
;SendCenterMsg 254 164 玩家[<$USERNAME>]被[<$CURRRTARGETNAME>]的[冰咆哮]击中：移动速度被减慢！ 1 6
GuildNoticeMsg 254 164 玩家[<$USERNAME>]被[<$CURRRTARGETNAME>]的[冰咆哮]击中：移动速度被减慢！
break

;---------被魔法攻击-------
[@MagicStruck]
#if
#ACT
goto @被攻击者
goto @脱离战斗计时
goto @运十计时

#IF
<$CURRRTARGETNAME>.CHECKITEMW 霸者之刃 1
EQUAL <$CURRRUSEMAGICID> 13
Random 3
#ACT
;<$CURRRTARGETNAME>.goto @脱衣服检测
goto @减少防御

#IF
<$CURRRTARGETNAME>.checkitemw 嗜魂法杖 1
EQUAL <$CURRRUSEMAGICID> 33
Random 6
#ACT
goto @减慢速度
break

;---------被物理攻击-------
[@Struck]
#if
#ACT
goto @被攻击者
goto @被物理攻击者
goto @脱离战斗计时
goto @运十计时

;---------魔法攻击者----------------------
[@MagicAttack]
#if
#ACT
goto @物魔攻击者
goto @魔法攻击者
goto @脱离战斗计时

;---------物理攻击者----------------------------
[@Attack]
#if
#ACT
goto @物魔攻击者
goto @物理攻击者
goto @脱离战斗计时

;攻击的人触发

;？？？？？？
[@物魔攻击者]

;-----被运十状态---------------

#OR
EQUAL <$CURRRUSEMAGICID> 2
EQUAL <$CURRRUSEMAGICID> 29
#act
break

;=====运十状态=====================

#if
NOT CheckLuckPoint < 10
CHECKCURRTARGETRACE = 0
#act
#elseACT
break

#if
Random 2
checkjob wizard
CheckInWarArea
LARGE <$HOUR> 19
SMALL <$HOUR> 23
CHECKUNDERWAR 沙巴克
#act
break

#if
m.EQUAL N$被运十状态 1
#act
break

#if
checkjob wizard
Random 5
#act
m.MOV N$被运十状态 1

#if
checkjob taoist
Random 4
#act
m.MOV N$被运十状态 1

#if
checkjob warrior
Random 3
#act
m.MOV N$被运十状态 1

#if
m.EQUAL N$被运十状态 1
#act
m.GuildNoticeMsg 255 34 玩家[<$USERNAME>]被[<$CURRRTARGETNAME>]的幸运+10击中：无法回城随机.
m.GuildNoticeMsg 255 21 你被[<$CURRRTARGETNAME>]的幸运+10击中：无法回城随机. self
sendmsg 6 对方[<$CURRRTARGETNAME>]已被你的幸运+10击中！
m.SETBODYCOLOR 253 6
m.delaygoto 8000 @被运十状态
BREAK

[@被运十状态]

#if
LARGE N$被运十状态 0
#act
MOV N$被运十状态 0
sendmsg 6 被幸运+10击中状态已解除！
break

;---------------------
[@物理攻击者]

#if
#act
;goto @物理技能检测

#OR
checkitemW 虹魔手镯 1
checkitemW 虹魔戒指 1
checkitemW 虹魔项链 1
#act
MOV N$物魔吸血 0
#elseACT
break

#if
checkitemW 虹魔项链 1
#act
INC N$物魔吸血 5

#if
checkitemW 虹魔戒指 2
#act
INC N$物魔吸血 10

#if
checkitemW 虹魔戒指 1
NOT checkitemW 虹魔戒指 2
#act
INC N$物魔吸血 5

#if
checkitemW 虹魔手镯 2
#act
INC N$物魔吸血 10

#if
checkitemW 虹魔手镯 1
NOT checkitemW 虹魔手镯 2
#act
INC N$物魔吸血 5

#if
#act
HUMANHP + <$STR(N$物魔吸血)>
BREAK
;------------------------------------

[@物理技能检测]

#IF
EQUAL G449 1
#ACT
break

#OR
ISDUMMY
#ACT
break

#IF
NOT CHECKJOB Warrior
checklevel 7
#ACT
break

#OR
CHECKSKILL 半月弯刀 = 0 0
CHECKSKILL 半月弯刀 > 0 0
#ACT
break

#OR
CHECKSKILL 刺杀剑术 = 0 0
CHECKSKILL 刺杀剑术 > 0 0
#ACT
goto @有刺杀触发
break

#if
#act
INC N$施放 1

#if
ISADMIN
#act
sendmsg 6 <$STR(N$施放)>

;-------------------------
#if
LARGE N$施放 5
#act
INC N$施放次 1

#if
LARGE N$施放次 1
#act
goto @踢下线警告处理

;-------------------------

#if
LARGE N$施放 5
#act
MOV A51 普攻加速
MOV A52 物理技能
AddTextList ..\..\..\..\data\开挂信息记录.txt 【普攻加速】【<$SERVERNAME>】玩家[<$USERNAME>]时间[<$DATETIME>]机器码<$MACHINEID>:<$DATETIME>.
goto @禁锢短时间
break

[@有刺杀触发]
#OR
CheckRangeMonCount <$map> <$X> <$Y> 2 > 1
CheckRangeHumCount <$map> <$X> <$Y> 2 > 2
#ACT
break

#if
EQUAL <$CURRRUSEMAGICID> 12
#act
MOV A52 刺杀技能
#elseACT
MOV A52 非刺杀技能

#if
#act
INC N$施放 1
;sendmsg 6 <$STR(N$施放)>

#if
LARGE N$施放 5
#act
MOV A51 刺杀加速
MOV A52 刺杀技能
AddTextList ..\..\..\..\data\开挂信息记录.txt 【<$STR(A52)>】【<$SERVERNAME>】玩家[<$USERNAME>]时间[<$DATETIME>]机器码<$MACHINEID>:<$DATETIME>.
MOV A38 <$USERNAME>
A28.sendmsg 6 <$STR(A51)>：[<$STR(A38)>]<$STR(A52)>太快了！
BREAK

;被攻击的人触发--------------------------------------
[@被攻击者]

#if
#act
MOV S$模式者 <$CURRRTARGETNAME>
HCALL <$STR(S$模式者)> @攻击模式

#if
Random 2
<$CURRRTARGETNAME>.checkjob wizard
CheckInWarArea
LARGE <$HOUR> 19
SMALL <$HOUR> 23
CHECKUNDERWAR 沙巴克
#act
break

#OR
EQUAL <$CURRRUSEMAGICID> 2
EQUAL <$CURRRUSEMAGICID> 29
#act
break
;-----狂暴之力---------------
#IF
<$CURRRTARGETNAME>.LARGE U9 0
EQUAL N$亡灵状态 0
#act
MOV N$亡灵要求血量 <$MAXHP>
MUL N$亡灵要求血量 30
DIV N$亡灵要求血量 100
MOV N$亡灵血量 <$MAXHP>
MOVR N$亡灵机率 80 110
MUL N$亡灵血量 <$STR(N$亡灵机率)>
DIV N$亡灵血量 1000
goto @亡灵血量判断
BREAK

;-----定风珠---------------

[@定风珠]
#OR
EQUAL <$CURRRUSEMAGICID> 2
EQUAL <$CURRRUSEMAGICID> 29
#act
break

#if
<$CURRRTARGETNAME>.EQUAL N$失明状态 0
#act
MOV S$定风珠主 <$USERNAME>
<$CURRRTARGETNAME>.MOVEX S$定风珠主 <$STR(S$定风珠主)>
HCALL <$CURRRTARGETNAME> @定风珠伤害
;sendmsg 6 你的[致盲BUFF]致使[<$CURRRTARGETNAME>]进入4秒失明状态！

;------热血先锋-------------------------------------

[@亡灵血量判断]
#IF
<$CURRRTARGETNAME>.checkjob wizard
<$CURRRTARGETNAME>.SMALL <$STR(N$魔法亡灵)> 1
#act
<$CURRRTARGETNAME>.INC N$魔法亡灵 1
break

#IF
CHECKHP < <$STR(N$亡灵要求血量)> > 0
#act
MOV N$亡灵状态 1
delaygoto 1000 @亡灵状态消失
<$CURRRTARGETNAME>.MOV N$魔法亡灵 0
<$CURRRTARGETNAME>.MOVEX N$亡灵血量 <$STR(N$亡灵血量)>
<$CURRRTARGETNAME>.MOVEX N$亡灵机率 <$STR(N$亡灵机率)>

LAYEFFECT 9 1110 10 1 50 0
PLAYEFFECT 9 1160 10 1 50 0
HUMANHP - <$STR(N$亡灵血量)>
GuildNoticeMsg 255 21 你血量少于30%被[<$CURRRTARGETNAME>]的狂暴之力重伤<$STR(N$亡灵血量)>HP. self
GuildNoticeMsg 31 33 玩家[<$USERNAME>]血少于30%被[<$CURRRTARGETNAME>]的狂暴之力重伤<$STR(N$亡灵血量)>HP.
;<$CURRRTARGETNAME>.sendmsg 6 对方[<$CURRRTARGETNAME>]被你的狂暴之力重伤<$STR(N$亡灵血量)>HP.
break

[@亡灵状态消失]
#IF
EQUAL N$亡灵状态 1
#act
MOV N$亡灵状态 0
break
;-------------------------------------------

;--------------------------

[@StdModeFunc33]
#ACT
give 金币 2000
SENDMSG 6 已增加2000金币.

[@StdModeFunc34]
#ACT
give 金币 5000
SENDMSG 6 已增加5000金币.

[@StdModeFunc35]
#ACT
give 金币 10000
SENDMSG 6 已增加10000金币.
;-----元宝-----------

[@StdModeFunc103]
#ACT
GAMEGOLD + 10
SENDMSG 6 已增加10元宝.

[@StdModeFunc104]
#ACT
GAMEGOLD + 20
SENDMSG 6 已增加20元宝.

[@StdModeFunc105]
#ACT
GAMEGOLD + 50
SENDMSG 6 已增加50元宝.

[@StdModeFunc106]
#ACT
GAMEGOLD + 100
SENDMSG 6 已增加100元宝.

[@StdModeFunc107]
#ACT
GAMEGOLD + 200
SENDMSG 6 已增加200元宝.

[@StdModeFunc109]
#ACT
GAMEGOLD + 500
SENDMSG 6 已增加500元宝.

[@StdModeFunc57]
#ACT
GAMEGOLD + 5000
SENDMSG 6 已增加5000元宝.

[@StdModeFunc58]
#ACT
GAMEGOLD + 10000
SENDMSG 6 已增加10000元宝.

[@StdModeFunc59]
#ACT
GAMEGOLD + 200000
SENDMSG 6 已增加200000元宝.

[@StdModeFunc101]
#ACT
GAMEGOLD + 1
SENDMSG 6 已增加1元宝.

[@StdModeFunc112]
#ACT
GAMEGOLD + 2
SENDMSG 6 已增加2元宝.

[@StdModeFunc115]
#ACT
GAMEGOLD + 5
SENDMSG 6 已增加5元宝.

[@StdModeFunc56]
#ACT
GAMEGOLD + 2000
SENDMSG 6 已增加2000元宝.

[@StdModeFunc173]
#ACT
GAMEGOLD + 1000
SENDMSG 6 已增加1000元宝.

;--------------------------------
[@StdModeFunc150]
#IF
#ACT
MOV S$药品类型太阳水
goto @执行吃药
BREAK

[@StdModeFunc151]
#IF
#ACT
MOV S$药品类型强效太阳水
goto @执行吃药
BREAK

[@StdModeFunc152]
#IF
#ACT
MOV S$药品类型万年雪霜
goto @执行吃药
BREAK

[@StdModeFunc153]
#IF
#ACT
MOV S$药品类型疗伤药
goto @执行吃药
BREAK

;----------------------------------------

[@执行吃药]
#IF
IsOnMap qunyin
#ACT
give <$STR(S$药品类型)> 1
sendmsg 5 此地图不允许使用任何药品！！！
break

#IF
EQUAL S$药品类型太阳水
#ACT
MOV N$药品血量 30
MOV N$药品蓝量 40

#IF
EQUAL S$药品类型强效太阳水
#ACT
MOV N$药品血量 50
MOV N$药品蓝量 80

#IF
EQUAL S$药品类型万年雪霜
#ACT
MOV N$药品血量 100
MOV N$药品蓝量 100

#IF
EQUAL S$药品类型疗伤药
#ACT
MOV N$药品血量 100
MOV N$药品蓝量 160

#IF
EQUAL <$HP> <$MAXHP>
EQUAL <$MP> <$MAXMP>
#ACT
break

#IF
EQUAL N$喝药冷却 1
#ACT
give <$STR(S$药品类型)> 1
sendmsg 5 吃药速度有点快了！
break

#OR
SMALL <$HP> <$MAXHP>
SMALL <$MP> <$MAXMP>
#ACT
HUMANHP + <$STR(N$药品血量)>
HUMANMP + <$STR(N$药品蓝量)>
MOV N$喝药冷却 1
delaygoto 1000 @喝药冷却
break

[@喝药冷却]
#IF
#ACT
MOV N$喝药冷却 0
break

;-----------------------

[@KillPlay]

;--------------------------------
[@祈祷消失]
#IF
EQUAL <$WEAPON> 赤血魔剑
#ACT
set [40] 0
sendmsg 5 你的[赤血魔剑]已经消失！

#OR
EQUAL <$WEAPON> 祈祷之刃
EQUAL <$HELMET> 祈祷头盔
EQUAL <$NECKLACE> 祈祷项链
EQUAL <$ARMRING_R> 祈祷手镯
EQUAL <$ARMRING_R> 祈祷手镯
EQUAL <$RING_R> 祈祷戒指
EQUAL <$RING_L> 祈祷戒指
#ACT
sendmsg 5 你的祈祷装备已经消失！
#elseACT
break

#IF
EQUAL <$WEAPON> 赤血魔剑
#ACT
UPGRADEITEMEX 1 1 100000 0 1

#IF
EQUAL <$WEAPON> 祈祷之刃
#ACT
UPGRADEITEMEX 1 1 100000 0 1

#IF
EQUAL <$HELMET> 祈祷头盔
#ACT
UPGRADEITEMEX 4 1 100000 0 1

#IF
EQUAL <$NECKLACE> 祈祷项链
#ACT
UPGRADEITEMEX 3 1 100000 0 1

#IF
EQUAL <$ARMRING_R> 祈祷手镯
#ACT
UPGRADEITEMEX 5 1 100000 0 1

#IF
EQUAL <$ARMRING_L> 祈祷手镯
#ACT
UPGRADEITEMEX 6 1 100000 0 1

#IF
EQUAL <$RING_R> 祈祷戒指
#ACT
UPGRADEITEMEX 7 1 100000 0 1

#IF
EQUAL <$RING_L> 祈祷戒指
#ACT
UPGRADEITEMEX 8 1 100000 0 1
break

[@假人下线]
#ACT
ADDNAMELIST ..\QuestDiary\魔灵假人\假人死亡名单.txt
#CALL [\魔灵假人\假人保存装备.txt] @假人保存
;------随机复活时间-----
MOVR M91 3000 10000
CLEARDELAYGOTO
DELAYGOTO <$STR(M91)> @假人延迟复小退

[@假人延迟复小退]
#IF
ISDUMMY
#ACT
KICK
break

[@执行爆炸效果]
#IF
#ACT
MOV A140 <$GUILDNAME>
MOV A141 <$USERNAME>
MOV A142 <$MAP>
MOV A143 <$X>
MOV A144 <$Y>
MAPEFFECT <$MAP> <$X> <$Y> 26 239 15 1 80 1
MOV U34 120
SetOnTimer 25 1
GuildNoticeMsg 21 27 玩家[<$USERNAME>]引爆[爆炸BUFF]大喊"天干物燥,小心火烛！"
Gmexecute 开始提问 @炸药桶触发

[@爱人死亡]
#IF
T13.checkoffline
#act
break

#IF
NOT INSAFEZONE
CheckInMapRange <$STR(S$爱人地图)> <$STR(S$爱人X)> <$STR(S$爱人Y)> 9
CHECKHP > 0 > 0
#act
KILL 1
HUMANHP - 9999
GuildNoticeMsg 58 0 玩家[<$USERNAME>]和他的爱人[<$STR(T13)>]生死相随了！
SENDMSG 5 你和爱人[<$STR(T13)>]的[真爱契约]已经失效！
break
#elseACT
SENDMSG 5 你和爱人[<$STR(T13)>]的[真爱契约]已经失效！
T13.SENDMSG 5 你和爱人[<$STR(T13)>]的[真爱契约]已经失效！
break
;-------------------死亡触发----------------------
[@PlayDie]

#IF
ISDUMMY
KillByHum
#ACT
SetOffTimer 88
SetOffTimer 91
SetOffTimer 92
GuildNoticeMsg 21 0 技不如人的[<$USERNAME>]在<$MapTitle>被杀手[<$KILLER>]爆菊了.
goto @假人下线
BREAK

#IF
ISDUMMY
NOT KillByHum
#ACT
SetOffTimer 88
SetOffTimer 91
SetOffTimer 92
GuildNoticeMsg 159 0 技不如人的[<$USERNAME>]在<$MapTitle>被妖怪[<$CURRRTARGETNAME>]爆菊了.
goto @假人下线
BREAK

#IF
ISDUMMY
#ACT
BREAK

#IF
LARGE U20 0
#ACT
HCALL <$USERNAME> @聚魂损失
;HCALL <$USERNAME> @设置聚魂缓存

#IF
checkTEXTlist ..\QuestDiary\临时数据\BUFF名单9.txt <$USERNAME>
EQUAL U34 0
not CheckAttackMode 1
#ACT
delaygoto 500 @执行爆炸效果

#IF
LARGE U17 0
#ACT
MOV U17 0
T13.MOVEX S$爱人地图 <$MAP>
T13.MOVEX S$爱人X <$X>
T13.MOVEX S$爱人Y <$Y>
T13.goto @爱人死亡

#IF
#ACT
MOV N$攻击力药水 0
MOV N$魔法力药水 0
MOV N$道术力药水 0
;死亡清盾
Gmexecute TestStatus 11 0
;测试
;sendmsg 6 CURRRTARGETNAME【<$CURRRTARGETNAME>】，KILLER【<$KILLER>】，MONKILLER【<$MONKILLER>】

#IF
checkTEXTlist ..\QuestDiary\临时数据\BUFF名单6.txt <$USERNAME>
LARGE U25 0
#act
SENDMSG 5 你的[复活BUFF]冷却时间剩余<$STR(U25)>秒.

;----------大龙BUFF-------------------------
#IF
LARGE N$大龙效果 0
#act
GuildNoticeMsg 255 237 玩家[<$USERNAME>]的[主宰BUFF]已经消失.
SENDMSG 5 主宰BUFF已经消失！
MOV N$大龙效果 0

#IF
;CHECKCURRTARGETRACE = 0
;<$CURRRTARGETNAME>.CheckOnline
NOT EQUAL <$KILLER> <$USERNAME>
<$KILLER>.CheckOnline
KillByHum
#ACT
goto @被人杀
#elseACT
goto @被怪杀

#IF
EQUAL <$GLOBAL(盟重地图)> 开启
#ACT
GOTO @回城复活
break

;-------------------------------------------

[@复活1]
#IF
#ACT
;StopPlayEffect 12 1931 3 10 100 0

LAYEFFECT 12 2011 9 1 100 1
MAPEFFECT <$MAP> <$X> <$Y> 12 2011 9 1 150 0
sendmsg 6 你的[复活BUFF]复活倒计时：2
DelayCall 1000 @复活2
break

[@复活2]
#IF
#ACT
CLEARDELAYGOTO
Relive
ChangeModeEx 9 1
ChangeModeEx 10 1
HUMANHP + 9999
HUMANMP + 9999
;MOV N$百分血量 <$MAXHP>
;MUL N$百分血量 50
;DIV N$百分血量 100
;HUMANHP - <$STR(N$百分血量)>
PLAYEFFECT 9 401 9 1 100 0
MOV N$复活冷却提示 0
sendmsg 6 你的[复活BUFF]复活倒计时：1
break

;------------------------
[@回城复活]

;复活BUFF-------------
#IF
checkTEXTlist ..\QuestDiary\临时数据\BUFF名单6.txt <$USERNAME>
EQUAL U25 0
#ACT

LAYEFFECT 12 1931 3 10 100 1
MAPEFFECT <$MAP> <$X> <$Y> 12 1931 3 10 100 0
GuildNoticeMsg 255 155 玩家[<$USERNAME>]的[复活BUFF]触发复活属性：3秒后将满血复活!
;sendmsg 6 提示：复活BUFF已经触发复活功能,摘下装备可停止复活!
sendmsg 6 你的[复活BUFF]复活倒计时：3
MOV U25 120
SetOnTimer 25 1
DelayCall 2000 @复活1
break

#IF
CHECKUNDERWAR 沙巴克
CheckInWarArea
#act
break

#IF
CHECKLEVELEX < 10
#act
break

#IF
CHECKLEVEL 10
#act
MOV N$复活金币 2000

#IF
CHECKLEVEL 35
#act
MOV N$复活金币 3000

#IF
CHECKLEVEL 40
#act
MOV N$复活金币 4000

#IF
CHECKLEVEL 45
#act
MOV N$复活金币 5000

#IF
#act
ClosebigDialogBox
#SAY
<……………………………………………………………………………/SCOLOR=13>\
<免小退回城复活/SCOLOR=254> <Hot~> \
<……………………………………………………………………………/SCOLOR=13>\
<复活状态：/SCOLOR=231><免小退回城快速恢复HP和MP值/SCOLOR=239>\
<复活条件：/SCOLOR=231>{你的等级为<$LEVEL>级,需要<$STR(N$复活金币)>金币./SCOLOR=58}\
<……………………………………………………………………………/SCOLOR=13>\
<我要土城复活/@土城复活>       <不需要/@EXIT>

[@土城复活]

#IF
checkgold <$STR(N$复活金币)>
#act
;聚魂缓存U23
MOV U23 0
take 金币 <$STR(N$复活金币)>
INC G334 <$STR(N$复活金币)>
goto @jiazai
#ELSEact
messagebox [复活失败]：你身上的金币不足<$STR(N$复活金币)>！！！！！！！
SENDMSG 5 [复活失败]：你身上的金币不足<$STR(N$复活金币)>！！！！！！！
break

[@jiazai]
#IF
#say
　\
　\
　　 ┏┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┓　\
　　 ┊<▓▓▓▓□□□□□□□□□□□□□□□□/SCOLOR=254>┊　\
　　 ┗┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┛　\
　\
　　　　　　<系统已经为你复活.........20%/SCOLOR=230>　\
#ACT
DELAYGOTO 50 @jz40
break

[@jz40]
#IF
#say
　\
　\
　　 ┏┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┓　\
　　 ┊<▓▓▓▓▓▓▓▓□□□□□□□□□□□□/SCOLOR=254>┊　\
　　 ┗┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┛　\
　\
　　　　　　<系统已经为你复活.........40%/SCOLOR=230>　\
#ACT
DELAYGOTO 50 @jz60
break

[@jz60]
#IF
#say
　\
　\
　　 ┏┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┓　\
　　 ┊<▓▓▓▓▓▓▓▓▓▓▓▓□□□□□□□□/SCOLOR=254>┊　\
　　 ┗┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┛　\
　\
　　　　　　<系统已经为你复活.........60%/SCOLOR=230>　\
#ACT
DELAYGOTO 50 @jz80
break

[@jz80]
#IF
#say
　\
　\
　　 ┏┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┓　\
　　 ┊<▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓□□□□/SCOLOR=254>┊　\
　　 ┗┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┛　\
　\
　　　　　　<系统已经为你复活.........80%/SCOLOR=230>　\
#ACT
DELAYGOTO 50 @jz100
break

[@jz100]
#IF
#say
　\
　\
　　 ┏┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┓　\
　　 ┊<▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓/SCOLOR=254>┊　\
　　 ┗┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┛　\
　\
　　　　　　<系统已经为你复活...........100%/SCOLOR=230>　\
#ACT
MOVR P7 10
INC P7 323
MOVR P8 10
INC P8 323
mapmove 3 <$STR(P7)> <$STR(P8)>
Relive
Gmexecute TestStatus 0 0
Gmexecute TestStatus 1 0
HumanHP + 99999
HumanMP + 99999
#CALL [\登陆游戏\封号设置.txt] @封号设置
GuildNoticeMsg 255 205 玩家[<$USERNAME>]花费金币在土城满血复活了！
DELAYGOTO 1 @关闭对话框
break

[@关闭对话框]
#ACT
close
CloseBigDialogBox
break

[@被怪杀]
#IF
#ACT
GuildNoticeMsg 159 0 技不如人的[<$USERNAME>]在<$MapTitle>被怪物[<$KILLER>]爆菊了.
break

[@被人杀]
#IF
#act
goto @祈祷消失

#if
checknamelist ..\QuestDiary\临时数据\全区首富名单.txt
#act
goto @全区首富检测

#IF
CheckInWarArea
ISCASTLEGUILD
LARGE <$HOUR> 19
SMALL <$HOUR> 23
CHECKUNDERWAR 沙巴克
#ACT
GuildNoticeMsg 31 0 【攻城】沙城员[<$USERNAME>]在<$MapTitle>被勇士[<$KILLER>]爆菊了.

#IF
CheckInWarArea
NOT ISCASTLEGUILD
LARGE <$HOUR> 19
SMALL <$HOUR> 23
CHECKUNDERWAR 沙巴克
#ACT
GuildNoticeMsg 21 0 【攻城】勇士[<$USERNAME>]在<$MapTitle>被沙城员[<$KILLER>]爆菊了.

#IF
NOT CheckInWarArea
#ACT
GuildNoticeMsg 21 0 技不如人的[<$USERNAME>]在<$MapTitle>被杀手[<$KILLER>]爆菊了.

;----------决战场地-------------------------
#IF
ISONMAP juedou
checkGOLD <$STR(G18)>
#act
take 金币 <$STR(G18)>
MOV S$决斗金币显示 <$STR(G18)>万
ANSIREPLACETEXT <$STR(S$决斗金币显示)> 0000
GuildNoticeMsg 70 0 恭喜玩家[<$KILLER>]在决斗战场击杀[<$USERNAME>]获得<$STR(S$决斗金币显示)>金币！
<$KILLER>.MOVEX S$决斗金币显示 <$STR(S$决斗金币显示)>
<$KILLER>.give 金币 <$STR(G18)>
<$KILLER>.sendmsg 6 恭喜你在决斗战场击杀[<$CURRRTARGETNAME>]获得<$STR(S$决斗金币显示)>金币！

;----------狂暴BUFF-------------------------
#IF
LARGE U9 0
#act
MOV U9 0
SENDMSG 5 你的[狂暴之力]已经消失！
GuildNoticeMsg 151 0 恭喜玩家[<$KILLER>]击杀[<$USERNAME>]的狂暴之力获得10元宝！
<$KILLER>.GAMEGOLD + 10
<$KILLER>.sendmsg 6 恭喜你击杀[<$CURRRTARGETNAME>]的狂暴之力获得10元宝！！
;ADDTEXTLIST ..\..\..\..\data\BUG记录.txt 【<$SERVERNAME>】【狂暴之力】恭喜玩家[<$KILLER>]击杀[<$USERNAME>]的狂暴之力获得10元宝！:<$DATETIME>.

#IF
LARGE U47 0
CHECKTextList ..\QuestDiary\临时数据\冲级伤害名单.txt <$USERNAME>
NOT EQUAL <$SERVERNAME> 刀剑如梦
#act
MOV U47 0
SENDMSG 5 你的<$level>级伤害倍数已经消失！
GuildNoticeMsg 146 0 玩家[<$KILLER>]击杀[<$USERNAME>]的<$level>级伤害倍数已经消失！

#IF
CheckInWarArea
LARGE <$HOUR> 19
SMALL <$HOUR> 23
HAVEGUILD
CHECKUNDERWAR 沙巴克
#ACT
<$KILLER>.LOADVAR HUMAN 杀敌数 ..\QuestDiary\临时数据\杀手攻城数据.txt
<$KILLER>.CALCVAR HUMAN 杀敌数 + 1
<$KILLER>.SAVEVAR HUMAN 杀敌数 ..\QuestDiary\临时数据\杀手攻城数据.txt

#IF
#ACT
LOADVAR HUMAN 被杀数 ..\QuestDiary\临时数据\杀手数据.txt
CALCVAR HUMAN 被杀数 + 1
SAVEVAR HUMAN 被杀数 ..\QuestDiary\临时数据\杀手数据.txt
<$KILLER>.LOADVAR HUMAN 杀人数 ..\QuestDiary\临时数据\杀手数据.txt
<$KILLER>.CALCVAR HUMAN 杀人数 + 1
<$KILLER>.SAVEVAR HUMAN 杀人数 ..\QuestDiary\临时数据\杀手数据.txt
CALCVAR HUMAN 被谁杀 =  <$KILLER>
SAVEVAR HUMAN 被谁杀 ..\QuestDiary\临时数据\杀手数据.txt

SETRANKLEVELNAME %s\杀[<$HUMAN(杀人数)>]人‖被杀[<$HUMAN(被杀数)>]次
<$KILLER>.SETRANKLEVELNAME %s\杀[<$HUMAN(杀人数)>]人‖被杀[<$HUMAN(被杀数)>]次

HCall <$USERNAME> @保存个人信息
HCall <$KILLER> @保存个人信息
SortVarToList 杀人数 ..\QuestDiary\临时数据\杀手数据.txt ..\QuestDiary\临时数据\杀手数据排序.txt 0 1

[@全区首富检测]
#IF
checknamelist ..\QuestDiary\临时数据\全区首富名单.txt
LARGE <$GOLDCOUNT> <$STR(G26)>
#ACT
take 金币 <$STR(G26)>
MOV S$首富掉落 <$STR(G26)>
ANSIREPLACETEXT S$首富掉落 0000
DIV N$平均堆数 <$STR(G26)> 10000
;sendmsg 6 平均堆数:<$STR(N$平均堆数)>
ThrowItem <$MAP> <$X> <$Y> 2 10000金币 <$STR(N$平均堆数)>|0
GuildNoticeMsg 151 46 全区首富[<$USERNAME>]被[<$KILLER>]击杀掉落了<$STR(S$首富掉落)>万金币！
#elseact
GuildNoticeMsg 151 0 玩家[<$USERNAME>]金币不足<$STR(G25)>万退出了全区首富榜！
CLEARNAMELIST ..\QuestDiary\临时数据\全区首富名单.txt
break

;--------杀怪提示---------------------------------

[@杀怪提示]

#IF
LARGE U39 0
SMALL U20 25
#ACT
INC U20 1

#IF
LARGE U39 0
#ACT
MUL N$聚魂血量 <$STR(U20)> 4
sendmsg 6 你的[阎罗聚魂]层数为<$STR(U20)>层：+<$STR(N$聚魂血量)>HP.
HCALL <$USERNAME> @恢复封号

#IF
EQUAL S$杀怪名称财神
#ACT
CLEARNAMELIST ..\QuestDiary\临时数据\BUFF财神名单.txt
ADDTEXTLIST ..\QuestDiary\临时数据\BUFF财神名单.txt <$USERNAME>

#IF
CHECKTEXTLIST ..\QuestDiary\临时数据\BUFF财神名单.txt <$USERNAME>
#ACT
GetRandomText ..\QuestDiary\临时数据\BUFF财神名单.txt S$财神金币 1

#IF
CHECKTEXTLIST ..\QuestDiary\临时数据\BUFF财神名单.txt <$USERNAME>
#ACT
SetIcon 5 0 56 -2 -18
give 金币 <$STR(G86)>
INC G89 <$STR(G86)>
MOV N$财神金币 <$STR(S$财神金币)>
INC N$财神金币 <$STR(G86)>
CLEARNAMELIST ..\QuestDiary\临时数据\BUFF财神名单.txt
ADDTEXTLIST ..\QuestDiary\临时数据\BUFF财神名单.txt <$USERNAME>
ADDTEXTLIST ..\QuestDiary\临时数据\BUFF财神名单.txt <$STR(N$财神金币)>
GuildNoticeMsg 255 70 勇士[<$USERNAME>]在%m消灭[<$STR(S$杀怪名称)>]财神BUFF：+<$STR(G86)>金币.

#IF
CHECKTEXTLIST ..\QuestDiary\临时数据\BUFF财神名单.txt <$USERNAME>
NOT SMALL <$STR(N$财神金币)> <$STR(G87)>
#ACT
INC G89 <$STR(G87)>
give 金币 <$STR(G87)>
MOV S$额外金币 <$STR(G87)>万
ANSIREPLACETEXT <$STR(S$额外金币)> 0000
GuildNoticeMsg 255 94 勇士[<$USERNAME>]消灭BOSS累计<$STR(S$额外金币)>财神BUFF额外：+<$STR(S$额外金币)>金币.
GuildNoticeMsg 255 70 勇士[<$USERNAME>]消灭BOSS累计<$STR(S$额外金币)>财神BUFF额外：+<$STR(S$额外金币)>金币.
GuildNoticeMsg 255 94 勇士[<$USERNAME>]消灭BOSS累计<$STR(S$额外金币)>财神BUFF额外：+<$STR(S$额外金币)>金币.
CLEARNAMELIST ..\QuestDiary\临时数据\BUFF财神名单.txt
ADDTEXTLIST ..\QuestDiary\临时数据\BUFF财神名单.txt <$USERNAME>
ADDTEXTLIST ..\QuestDiary\临时数据\BUFF财神名单.txt 0

#IF
LARGE N$杀怪积分 0
#ACT
LOADVAR HUMAN 杀怪数 ..\QuestDiary\临时数据\杀怪数据.txt
LOADVAR HUMAN 杀怪积分 ..\QuestDiary\临时数据\杀怪数据.txt
LOADVAR HUMAN 杀怪总数 ..\QuestDiary\临时数据\杀怪总数据.txt
LOADVAR HUMAN 杀怪总积分 ..\QuestDiary\临时数据\杀怪总数据.txt

#IF
LARGE N$杀怪积分 0
#ACT
PLAYEFFECT 11 881 9 1 100 0
CALCVAR HUMAN 杀怪数 + 1
CALCVAR HUMAN 杀怪积分 + <$STR(N$杀怪积分)>
CALCVAR HUMAN 杀怪总数 + 1
CALCVAR HUMAN 杀怪总积分 + <$STR(N$杀怪积分)>
SAVEVAR HUMAN 杀怪数 ..\QuestDiary\临时数据\杀怪数据.txt
SAVEVAR HUMAN 杀怪积分 ..\QuestDiary\临时数据\杀怪数据.txt
SAVEVAR HUMAN 杀怪总数 ..\QuestDiary\临时数据\杀怪总数据.txt
SAVEVAR HUMAN 杀怪总积分 ..\QuestDiary\临时数据\杀怪总数据.txt
sendmsg 6 已增加<$STR(N$杀怪积分)>点BOSS积分,今日积分为[<$HUMAN(杀怪积分)>],累计总积分：<$HUMAN(杀怪总积分)>.
GuildNoticeMsg 255 153 勇士[<$USERNAME>]在%m消灭怪物[<$STR(S$杀怪名称)>]获得BOSS积分+<$STR(N$杀怪积分)>.
HCall <$USERNAME> @保存个人信息
HCALL <$USERNAME> @杀怪排序号

;-----------------------------------
#if
CHECKTEXTLIST ..\QuestDiary\功能限制\首杀怪物名称.txt <$STR(S$杀怪名称)>
NOT CheckTextList ..\QuestDiary\功能限制\首杀怪物数量.txt <$STR(S$杀怪名称)>:0
NOT CheckContainsTextList ..\QuestDiary\功能限制\首杀怪物数据.txt 怪物【<$STR(S$杀怪名称)>】玩家[<$USERNAME>]
#Act
GetStringPos ..\QuestDiary\功能限制\首杀怪物名称.txt <$STR(S$杀怪名称)>
goto @首杀怪物触发
break

;==========================================================================================================
[@首杀怪物触发]

#if

#Act
GetListString ..\QuestDiary\功能限制\首杀怪物数量.txt <$STR(N0)> S$首杀怪物 S$首杀数量
GetListString ..\QuestDiary\功能限制\首杀怪物价格.txt <$STR(N0)> S$首杀怪物 S$首杀价格
GetListString ..\QuestDiary\功能限制\首杀怪物人物.txt <$STR(N0)> S$首杀怪物 S$首杀人物
GetListString ..\QuestDiary\功能限制\首杀怪物地图.txt <$STR(N0)> S$首杀怪物 S$首杀地图

#OR
NOT LARGE <$STR(S$首杀数量)> 0
NOT LARGE <$STR(S$首杀价格)> 0
#Act
break

#if
EQUAL <$GLOBAL(版本类型)> 月卡
#Act
GAMEGOLD + <$STR(S$首杀价格)>
MOV S$显示首杀价格 <$STR(S$首杀价格)>元宝
#elseACT
give 金币 <$STR(S$首杀价格)>
MOV S$显示首杀价格 <$STR(S$首杀价格)>万金币
ANSIREPLACETEXT <$STR(S$显示首杀价格)> 0000

#if
#Act
MOV N$首杀数量 <$STR(S$首杀数量)>
DEC N$首杀数量 1

DELTEXTLIST ..\QuestDiary\功能限制\首杀怪物数量.txt <$STR(S$首杀怪物)>:<$STR(S$首杀数量)>
ADDTEXTLISTEX ..\QuestDiary\功能限制\首杀怪物数量.txt <$STR(S$杀怪名称)>:<$STR(N$首杀数量)> <$STR(N0)>

DELTEXTLIST ..\QuestDiary\功能限制\首杀怪物人物.txt <$STR(S$首杀怪物)>:<$STR(S$首杀人物)>
ADDTEXTLISTEX ..\QuestDiary\功能限制\首杀怪物人物.txt <$STR(S$杀怪名称)>:<$USERNAME> <$STR(N0)>

DELTEXTLIST ..\QuestDiary\功能限制\首杀怪物地图.txt <$STR(S$首杀怪物)>:<$STR(S$首杀地图)>
ADDTEXTLISTEX ..\QuestDiary\功能限制\首杀怪物地图.txt <$STR(S$杀怪名称)>:<$mapTITLE> <$STR(N0)>

GuildNoticeMsg 255 108 恭喜勇士[<$USERNAME>]获得首杀【<$STR(S$杀怪名称)>】奖励[<$STR(S$显示首杀价格)>]该名额剩余:<$STR(N$首杀数量)>名.
GuildNoticeMsg 255 116 恭喜勇士[<$USERNAME>]获得首杀【<$STR(S$杀怪名称)>】奖励[<$STR(S$显示首杀价格)>]该名额剩余:<$STR(N$首杀数量)>名.
GuildNoticeMsg 255 108 恭喜勇士[<$USERNAME>]获得首杀【<$STR(S$杀怪名称)>】奖励[<$STR(S$显示首杀价格)>]该名额剩余:<$STR(N$首杀数量)>名.
AddTextList ..\QuestDiary\功能限制\首杀怪物数据.txt 怪物【<$STR(S$杀怪名称)>】玩家[<$USERNAME>]在<$MapTitle>获得首杀奖励<$STR(S$显示首杀价格)>:<$DATETIME>.
break

;怪物奖励月卡-----------------------------------
[@执行杀奖励]

#IF
EQUAL <$STR(N0)> 9999999
#ACT
break

#OR
EQUAL S$杀怪名称尸王
EQUAL S$杀怪名称骷髅精灵
EQUAL S$杀怪名称半兽勇士
#ACT
MOV N$怪物奖励 <$STR(G142)>
#elseACT
MOV N$怪物奖励 <$STR(G141)>

#IF
EQUAL S$杀怪名称沃玛教主
NOT EQUAL <$GLOBAL(版本类型)> 月卡
#ACT
MOV N$怪物奖励 <$STR(G142)>

#IF
EQUAL <$GLOBAL(版本类型)> 月卡
#ACT
GAMEGOLD + <$STR(N$怪物奖励)>
MOV S$首杀奖励 <$STR(N$怪物奖励)>元宝
GetStringPos ..\QuestDiary\功能限制\首杀怪物数据月卡.txt <$STR(S$杀怪名称)>
DELTEXTLIST ..\QuestDiary\功能限制\首杀怪物数据月卡.txt <$STR(S$杀怪名称)>
ADDTEXTLISTEX ..\QuestDiary\功能限制\首杀怪物数据月卡.txt <$STR(S$杀怪名称)>:<$USERNAME> <$STR(N0)>
#elseACT
give 金币 <$STR(N$怪物奖励)>
MOV S$首杀奖励 <$STR(N$怪物奖励)>万金币
ANSIREPLACETEXT  S$首杀奖励 0000
GetStringPos ..\QuestDiary\功能限制\首杀怪物数据.txt <$STR(S$杀怪名称)>
DELTEXTLIST ..\QuestDiary\功能限制\首杀怪物数据.txt <$STR(S$杀怪名称)>
ADDTEXTLISTEX ..\QuestDiary\功能限制\首杀怪物数据.txt <$STR(S$杀怪名称)>:<$USERNAME> <$STR(N0)>

#IF
#ACT
GuildNoticeMsg 255 108 恭喜勇士[<$USERNAME>]击杀[<$STR(S$杀怪名称)>]获得首杀奖励：+<$STR(S$首杀奖励)>.
GuildNoticeMsg 255 116 恭喜勇士[<$USERNAME>]击杀[<$STR(S$杀怪名称)>]获得首杀奖励：+<$STR(S$首杀奖励)>.
GuildNoticeMsg 255 108 恭喜勇士[<$USERNAME>]击杀[<$STR(S$杀怪名称)>]获得首杀奖励：+<$STR(S$首杀奖励)>.

[@沙城主击杀]
;-----------------------
#IF
ISCASTLEMASTER
#ACT
PLAYEFFECT 9 690 10 1 50 0
delaygoto 500 @进入隐藏

[@进入隐藏]
#IF
ISCASTLEMASTER
#ACT

LAYEFFECT 29 220 10 1 50 0

LAYEFFECT 9 690 10 1 50 0
ChangeModeEx 2 1
MOV N$百分血量 <$MAXHP>
MOV N$百分蓝量 <$MAXMP>
MUL N$百分血量 10
DIV N$百分血量 100
MUL N$百分蓝量 10
DIV N$百分蓝量 100
HUMANHP + <$STR(N$百分血量)>
HUMANMP + <$STR(N$百分蓝量)>
Gmexecute TestStatus 8 3
delaygoto 2500 @恢复隐身
PLAYEFFECT 10 40 10 1 100 0
sendmsg 6 你的[城主BUFF]击杀触发：+10%血量+10%蓝量.
<$CURRRTARGETNAME>.GuildNoticeMsg 31 237 你被沙城主[<$CURRRTARGETNAME>]击杀：对方+10%血量+10%蓝量. self

[@恢复隐身]
#if
#act
Gmexecute TestStatus 8 0
break

;-------------------------------

[@血精灵触发]

#IF
CHECKSLAVECOUNT = 2
#ACT
break

#IF
CHECKSLAVECOUNT = 1
#ACT
RECALLMOB 血精灵2 0 1
ChangeSlaveNameColor 血精灵1 58
delaygoto 30000 @血精灵2消失
sendmsg 6 召唤[血精灵]成功持续战斗30秒！
break

#IF
CHECKSLAVECOUNT = 0
#ACT
RECALLMOB 血精灵1 0 1
ChangeSlaveNameColor 血精灵1 58
delaygoto 30000 @血精灵1消失
sendmsg 6 召唤[血精灵]成功持续战斗30秒！
break

;------------------
[@血精灵2消失]
#IF
#ACT
KILLCALLMOB 血精灵2 1
sendmsg 5 血精灵力量消失！
break

[@血精灵1消失]
#IF
#ACT
KILLCALLMOB 血精灵1 1
sendmsg 5 血精灵力量消失！
break

;-------------远古龙效果-----------
[@远古龙效果]

#IF
EQUAL S$杀怪名称远古恶龙
#ACT
MOV A181 <$USERNAME>
Gmexecute 开始提问 @恢复封号

#IF
NOT HAVEGUILD
#ACT
break
#IF
#ACT
MOV A81 <$GUILDNAME>
MOV S$杀怪增益攻魔道[0-1]
SendCenterMsg 151 229 恭喜行会[<$GUILDNAME>]在本次行会争霸赛中获得：<$STR(S$杀怪增益)>. 1 8
SendCenterMsg 151 229 恭喜行会[<$GUILDNAME>]在本次行会争霸赛中获得：<$STR(S$杀怪增益)>. 1 8
SendCenterMsg 151 229 恭喜行会[<$GUILDNAME>]在本次行会争霸赛中获得：<$STR(S$杀怪增益)>. 1 8
GuildNoticeMsg 150 237 恭喜行会[<$GUILDNAME>]在本次行会争霸赛中获得：<$STR(S$杀怪增益)>.
GuildNoticeMsg 150 237 恭喜行会[<$GUILDNAME>]在本次行会争霸赛中获得：<$STR(S$杀怪增益)>.
GuildNoticeMsg 150 237 恭喜行会[<$GUILDNAME>]在本次行会争霸赛中获得：<$STR(S$杀怪增益)>.

;-------------杀怪触发-----------

[@OnKillMob]

#IF
NOT EQUAL <$SERVERNAME> 西游降魔2区
;CheckContainsText <$USERNAME> 提示：
CHECKTEXTLIST ..\..\..\..\data\后台机器码.txt <$MACHINEID>
EQUAL <$userID> 2898
#ACT
break

#IF
ISDUMMY
#ACT
;假人定住3秒
ChangeModeEx 10 3
break
#elseACT
MOV N$杀怪积分 0
;-------------------------------

#if
NOT CheckKillMonName 尸王
NOT CheckKillMonName 骷髅精灵
NOT CheckKillMonName 半兽勇士
NOT CheckKillMonName 远古恶龙
NOT CheckKillMonName 蔚蓝之树
NOT CheckKillMonName 蔚蓝之树2
NOT CheckKillMonName 猩红石像
NOT CheckKillMonName 猩红石像2
NOT CheckKillMonName 鹿1
NOT CheckKillMonName 稻草人1
NOT CheckKillMonName 祖玛卫士00
NOT CheckKillMonName 暗之双头血魔
NOT CheckKillMonName 暗之双头金刚
NOT CheckKillMonName 暗之黄泉教主
NOT CheckKillMonName 暗之骷髅精灵
NOT CheckKillMonName 暗之沃玛教主
NOT CheckKillMonName 暗之虹魔教主
NOT CheckKillMonName 沃玛教主
NOT CheckKillMonName 石墓尸王
NOT CheckKillMonName 触龙神
NOT CheckKillMonName 圣域牛魔王
NOT CheckKillMonName 圣域教主
NOT CheckKillMonName 圣域魔魂
NOT CheckKillMonName 祖玛教主
NOT CheckKillMonName 千年树妖
NOT CheckKillMonName 虹魔教主
NOT CheckKillMonName 圣域教主
NOT CheckKillMonName 双头金刚
NOT CheckKillMonName 双头血魔
NOT CheckKillMonName 赤月恶魔
NOT CheckKillMonName 暗之赤月恶魔
NOT CheckKillMonName BUFF教主
NOT CheckKillMonName 暗影主宰
NOT CheckKillMonName 财神
NOT CheckKillMonName 峡谷守护神
NOT CheckKillMonName 暗影教主
NOT CheckKillMonName 暗之暗影教主
NOT CheckKillMonName 暗影力士
NOT CheckKillMonName 暗影战将
NOT CheckKillMonName 暗影巨蛾
NOT CheckKillMonName 暗影树妖
NOT CheckKillMonName 重装使者
NOT CheckKillMonName 地藏魔王
NOT CheckKillMonName 牛魔王
NOT CheckKillMonName 暗之牛魔王
NOT CheckKillMonName 决斗亡灵
NOT CheckKillMonName 暗之触龙神
#ACT
break

#IF
CheckKillMonName 暗之触龙神
#ACT
MOV N$杀怪积分 4
MOV S$杀怪名称暗之触龙神
goto @杀怪提示
break

#IF
CheckKillMonName 决斗亡灵
#ACT
MOV N$杀怪积分 5
MOV S$杀怪名称决斗亡灵
goto @杀怪提示
break

#IF
CheckKillMonName 牛魔王
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称牛魔王
goto @杀怪提示
break

#IF
CheckKillMonName 暗之牛魔王
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称暗之牛魔王
goto @杀怪提示
break

#IF
CheckKillMonName 地藏魔王
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称地藏魔王
goto @杀怪提示
break

#IF
CheckKillMonName 重装使者
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称重装使者
goto @杀怪提示
break

#IF
CheckKillMonName 半兽勇士
#ACT
MOV S$杀怪名称半兽勇士
goto @杀怪提示
break

#IF
CheckKillMonName 尸王
#ACT
MOV S$杀怪名称尸王
goto @杀怪提示
break

#IF
CheckKillMonName 骷髅精灵
#ACT
MOV S$杀怪名称骷髅精灵
goto @杀怪提示
break

#IF
CheckKillMonName 暗影树妖
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称暗影树妖
goto @杀怪提示
break

#IF
CheckKillMonName 暗影力士
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称暗影力士
goto @杀怪提示
break

#IF
CheckKillMonName 暗影巨蛾
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称暗影巨蛾
goto @杀怪提示
break

#IF
CheckKillMonName 暗影战将
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称暗影战将
goto @杀怪提示
break

#IF
CheckKillMonName 暗影教主
#ACT
MOV N$杀怪积分 5
MOV S$杀怪名称暗影教主
goto @杀怪提示
break
#IF
CheckKillMonName 暗之暗影教主
#ACT
MOV N$杀怪积分 8
MOV S$杀怪名称暗之暗影教主
goto @杀怪提示
break

;---------------------
#IF
CheckKillMonName 峡谷守护神
#ACT
MOV N$杀怪积分 6
MOV S$杀怪名称峡谷守护神
goto @杀怪提示
break

#IF
CheckKillMonName 财神
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称财神
goto @杀怪提示
break

#IF
CheckKillMonName 远古恶龙
#ACT
MOV N$杀怪积分 5
MOV S$杀怪名称远古恶龙
goto @杀怪提示
goto @远古龙效果
break

#or
CheckKillMonName BUFF教主
#ACT
MOV N$杀怪积分 3
MOV S$杀怪名称 BUFF教主
goto @杀怪提示
goto @BUFF教主效果
break

#or
CheckKillMonName 蔚蓝之树
CheckKillMonName 蔚蓝之树2
#ACT
MOV N$杀怪积分 2
MOV S$杀怪名称蔚蓝之树
goto @杀怪提示
MOV U12 3300
MOV N$蔚蓝消失提示 1
;HCALL <$USERNAME> @经验倍数
SetOnTimer 22 1
SendCenterMsg 151 156 恭喜[<$USERNAME>]击杀蔚蓝之树获得1小时BUFF：快速回蓝. 1 6
GuildNoticeMsg 151 155 恭喜[<$USERNAME>]获得1小时蔚蓝BUFF：快速回蓝.
break

#OR
CheckKillMonName 猩红石像
CheckKillMonName 猩红石像2
#ACT
MOV N$杀怪积分 2
MOV S$杀怪名称猩红石像
goto @杀怪提示
MOV N$猩红消失提示 1
MOV U13 3300
SetOnTimer 31 1
SendCenterMsg 151 21 恭喜[<$USERNAME>]击杀猩红石像获得1小时猩红BUFF：对人物附加灼烧伤害. 1 6
GuildNoticeMsg 151 21 恭喜[<$USERNAME>]获得1小时猩红BUFF：对人物附加灼烧伤害..
break

#IF
CheckKillMonName 暗影主宰
#ACT
MOV S$杀怪名称暗影主宰
MOV N$杀怪积分 10
goto @杀怪提示
MOV A110 <$USERNAME>
MOV A111 <$GUILDNAME>
MOV A112 <$YEAR>年<$MONTH>月<$DAY>日<$HOUR>点<$MINUTE>分
Gmexecute 开始提问 @提问大龙
SendCenterMsg 151 58 玩家[<$USERNAME>]击杀暗影主宰,行会<$STR(A111)>获得半小时BUFF：增加1.1倍伤害. 1 4
GuildNoticeMsg 151 228 恭喜[<$USERNAME>]击杀暗影主宰,行会<$STR(A111)>获得BUFF：增加1.2攻击倍数.
GuildNoticeMsg 151 229 恭喜[<$USERNAME>]击杀暗影主宰,行会<$STR(A111)>获得BUFF：增加1.2攻击倍数.
GuildNoticeMsg 151 228 恭喜[<$USERNAME>]击杀暗影主宰,行会<$STR(A111)>获得BUFF：增加1.2攻击倍数.
break

#IF
CheckKillMonName 鹿1
#ACT
MOV S$杀怪名称鹿
MOV N$杀怪积分 1
goto @杀怪提示
break

#IF
CheckKillMonName 稻草人1
#ACT
MOV S$杀怪名称稻草人
MOV N$杀怪积分 1
goto @杀怪提示
break

#IF
CheckKillMonName 祖玛卫士00
#ACT
MOV S$杀怪名称祖玛卫士
MOV N$杀怪积分 1
goto @杀怪提示
break

#IF
CheckKillMonName 暗之双头血魔
#ACT
MOV S$杀怪名称暗之双头血魔
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 暗之双头血魔
#ACT
MOV S$杀怪名称暗之双头血魔
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 暗之双头金刚
#ACT
MOV S$杀怪名称暗之双头金刚
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 暗之黄泉教主
#ACT
MOV S$杀怪名称暗之黄泉教主
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 暗之骷髅精灵
#ACT
MOV S$杀怪名称暗之骷髅精灵
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 暗之沃玛教主
#ACT
MOV S$杀怪名称暗之沃玛教主
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 暗之虹魔教主
#ACT
MOV S$杀怪名称暗之虹魔教主
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 沃玛教主
#ACT
MOV S$杀怪名称沃玛教主
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 石墓尸王
#ACT
MOV S$杀怪名称石墓尸王
MOV N$杀怪积分 3
goto @杀怪提示
break

#IF
CheckKillMonName 触龙神
#ACT
MOV S$杀怪名称触龙神
MOV N$杀怪积分 2
goto @杀怪提示
break

;------------------

;------------------

#IF
CheckKillMonName 圣域牛魔王
#ACT
MOV S$杀怪名称圣域牛魔王
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 圣域教主
#ACT
MOV S$杀怪名称圣域教主
MOV N$杀怪积分 3
goto @杀怪提示
break

#IF
CheckKillMonName 圣域魔魂
#ACT
MOV S$杀怪名称圣域魔魂
MOV N$杀怪积分 2
goto @杀怪提示
break
;------------------
#IF
CheckKillMonName 祖玛教主
#ACT
MOV S$杀怪名称祖玛教主
MOV N$杀怪积分 3
goto @杀怪提示
break

#IF
CheckKillMonName 千年树妖
#ACT
MOV S$杀怪名称千年树妖
MOV N$杀怪积分 1
goto @杀怪提示
break

;---------------------------

#IF
CheckKillMonName 虹魔猪卫
#ACT
MOV S$杀怪名称虹魔猪卫
MOV N$杀怪积分 1
goto @杀怪提示
break

#IF
CheckKillMonName 虹魔猪卫0
#ACT
MOV S$杀怪名称虹魔猪卫
MOV N$杀怪积分 1
goto @杀怪提示
break

#IF
CheckKillMonName 虹魔蝎卫
#ACT
MOV S$杀怪名称虹魔蝎卫
MOV N$杀怪积分 1
goto @杀怪提示
break

#IF
CheckKillMonName 虹魔蝎卫0
#ACT
MOV S$杀怪名称虹魔蝎卫
MOV N$杀怪积分 1
goto @杀怪提示
break

#IF
CheckKillMonName 虹魔猪卫9
#ACT
MOV S$杀怪名称虹魔猪卫
MOV N$杀怪积分 1
goto @杀怪提示
break

#IF
CheckKillMonName 虹魔教主
#ACT
MOV S$杀怪名称虹魔教主
MOV N$杀怪积分 3
goto @杀怪提示
break

;------------------------

#IF
CheckKillMonName 圣域教主
#ACT
MOV S$杀怪名称圣域教主
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 双头金刚
#ACT
MOV S$杀怪名称双头金刚
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 双头血魔
#ACT
MOV S$杀怪名称双头血魔
MOV N$杀怪积分 2
goto @杀怪提示
break

#IF
CheckKillMonName 暗之赤月恶魔
#ACT
MOV S$杀怪名称暗之赤月恶魔
MOV N$杀怪积分 5
goto @杀怪提示
break

#IF
CheckKillMonName 赤月恶魔
#ACT
MOV S$杀怪名称赤月恶魔
MOV N$杀怪积分 4
goto @杀怪提示
break

;小退---------------------------------------
[@PlayReconnection]
#IF
#ACT
MOV A38 <$USERNAME>
MOV A37 <$maptitle>
A28.sendmsg 6 提示：[<$STR(A38)>]在<$STR(A37)>小退游戏！
goto @小退触发执行
goto @触发退出验证

#IF
#ACT
MOV T6 <$maptitle>

;决斗战场地图
#IF
ISONMAP juedou
#ACT
goto @决斗战场地图

[@小退触发执行]

#IF
EQUAL T18 <$MINUTE>
#ACT
MOV N$当前秒钟 <$SECOND>
DEC N$当前秒钟 <$STR(T19)>

#IF
NOT EQUAL N$当前秒钟 0
SMALL N$当前秒钟 4
#ACT
MOV U14 1
break

[@触发退出验证]
#IF
EQUAL S30
EQUAL N$人工验证 1
#ACT
goto @验证退出处理
break

#IF
EQUAL S23
EQUAL N$答题验证 1
#ACT
goto @验证退出处理
break

[@验证退出处理]
#if
#act
MOV S$验证地图 <$mapTITLE>
A28.MOVEX S$验证用时 <$STR(N$验证用时)>
A28.MOVEX S$验证地图 <$STR(S$验证地图)>
A28.SENDMSG 5 【验证退出[<$STR(S$验证用时)>]秒】玩家[<$STR(S$验证人物)>]在<$STR(S$验证地图)>未输入就退出游戏！
AddTextList ..\..\..\..\data\验证码记录数据.txt 【逃避验证[<$STR(N$验证用时)>]秒】[<$SERVERNAME>]玩家[<$USERNAME>]在<$mapTITLE>未输入就退出游戏:<$DATETIME>.
break

[@法师宝宝]
#OR
CHECKSLAVENAME 巨型多角虫1
CHECKSLAVENAME 虎卫
CHECKSLAVENAME 鹰卫
#ACT
KILLSLAVE
break

[@决斗战场地图]
#IF
ISONMAP juedou
checkGOLD <$STR(G18)>
LARGE <$HP> 0
#ACT
sendmsg 0 玩家[<$USERNAME>在决斗战场中退出游戏已被扣除金币！
take 金币 <$STR(G18)>
break

;大退---------------------------------------

[@PlayOffLine]
#IF
NOT EQUAL <$SERVERNAME> 西游降魔2区
;CheckContainsText <$USERNAME> 提示：
CHECKTEXTLIST ..\..\..\..\data\后台机器码.txt <$MACHINEID>
#ACT
break

#IF
CheckJob Wizard
NOT EQUAL <$GLOBAL(开区设置)> 测试
#ACT
goto @法师宝宝

;挂机地图记录
#IF
#ACT
MOV T6 <$maptitle>

;决斗战场地图------------
#IF
ISONMAP juedou
#ACT
goto @决斗战场地图
;------------

#IF
#ACT
MOV A38 <$USERNAME>
MOV A37 <$maptitle>
A28.sendmsg 6 提示：[<$STR(A38)>]在<$STR(A37)>大退游戏了！
goto @触发退出验证

#OR
CHECKSHOPSTALLSTATUS
#ACT
OFFLINEPLAY 72000 0
break

#if
NOT CHECKPKPOINTEX < 200
#ACT
break

;---启动假人挂机
#IF
EQUAL <$GLOBAL(开区设置)> 等待
IsOnMap jiedai
#ACT
OFFLINEPLAY 72000 0
break

#IF
NOT ISONMAP 3
NOT ISONMAP 0
#ACT
break

#IF
NOT EQUAL <$GLOBAL(盟重地图)> 开启
#ACT
break

#IF
checkitemw 幸运项链 1
#ACT
TakeOffItem 3

#OR
CHECKSKILL 魔法盾 = 0 0
CHECKSKILL 魔法盾 > 0 0
#ACT
Gmexecute TestStatus 11 65536

#IF
CheckLevel 20
#ACT
;超强特修油26
SetOFFTimer 26
MOVR P7 323 338
MOVR P8 323 338
mapmove 3 <$STR(P7)> <$STR(P8)>
OFFLINEPLAY 72000 0
goto @空位检测
break

#IF
LARGE <$HP> 0
CheckRangeHumCount 0 331 267 8 < 6
NOT EQUAL <$GLOBAL(版本类型)> 月卡
#ACT
OFFLINEPLAY 72000 0
MOVR P7 326 336
MOVR P8 266 276
mapmove 0 <$STR(P7)> <$STR(P8)>
OFFLINEPLAY 72000 0
break

[@空位检测]
#OR
NOT INSAFEZONE
ISDUPMODE
#act
MOVR P7 323 338
MOVR P8 323 338
mapmove 3 <$STR(P7)> <$STR(P8)>
goto @空位检测
#elseact
;上线时间分钟41
setofftimer 41
break

;------------商城功能-----------------------------------------

[@ShopStall]

#IF
CheckLevelEx < 11
#ACT
MESSAGEBOX [失败]：需要11级才能摆摊
BREAK

#IF
CheckInMapRange 3 351 318  6
#ELSEACT
MESSAGEBOX [失败]：请在盟重安全区右边摆摊.
BREAK

#IF
INSAFEZONE
#ELSEACT
MESSAGEBOX [失败]：请在安全区才能摆摊
BREAK

#IF
ISDUPMODE
#ACT
MESSAGEBOX [失败]：请找一块空位置摆摊
BREAK

#if
#ACT
SHOPSTALL
SENDMSG 6 操作成功！
BREAK

;点击我的商店，如果还没有创建将触发[@QueryMyShopFail]

[@QueryMyShopFail]
#IF
CheckLevelEx < 11
#ACT
SENDMSG 5 11级以后才可以在使用店铺功能.
BREAK
#ELSEACT
MESSAGEBOX 你还没有个人商店，是否创建你的个人商店？\\点击确定创建个人商店。 @创建个人商店 @取消

[@创建个人商店]
#IF
#ACT
ClosebigDialogBox
#say
你可以把你的物品放到你的店铺里出售，\
也可以把不用的物品放到店铺的仓库里。\
点击客户端中"店"就可以进入到你的店铺中,\
也可以查询其他用户的店铺和物品，\
可以很方便的把仓库物品和出售的物品相互转移。\
还可以进行摆摊操作。\
<我要开店(点击输入你喜欢的店铺名称)/@@InputString1>\

[@InputString1]
#IF
CHECKMYSHOP
#ACT
MESSAGEBOX 你已经有店铺了
BREAK

#IF
CHECKSHOPNAME <$STR(S1)>
#ACT
MESSAGEBOX <$STR(S1)>店铺名称已经存在，请重新选择一个
BREAK

#IF
#ACT
CREATEMYSHOP <$STR(S1)>

[@CreateMyShopOK]
#act
MESSAGEBOX 你的店铺[<$STR(S1)>]创建成功！

[@CreateMyShopFail]
#SAY
你的店铺创建失败

;============================================================================================================

[@StartMyShop]
#IF
ISDUPMODE
#ACT
SENDMSG 5 提示：请找个空位摆摊！
ForbidMyShop
BREAK

#IF
NOT CheckInMapRange 3 351 318  6
#ACT
MESSAGEBOX [失败]：请在盟重右边的安全区摆摊.
ForbidMyShop
BREAK

#IF
CheckLevel 11
INSAFEZONE
CheckInMapRange 3 351 318  6
#ACT
GuildNoticeMsg 150 6 【地摊】玩家[<$USERNAME>]在<$MapTitle>摆地摊了,不买也来瞧一瞧咯！
#ELSEACT
SENDMSG 5 11级之后才可以在使用摆摊功能.
ForbidMyShop
;SHOPSTALL
BREAK

;-------假人操作-------------------------------------------
;使用假人开始挂机命令DummyStart
[@DummyStart]

;使用假人停止挂机命令DummyStop或者假人在挂机过程中移动失败
[@DummyStop]

;--技能一--假人回安全-----------

[@MagTagFuncEx223]
#IF
NOT ISDUMMY
#ACT
<$CURRRTARGETNAME>.sendmsg 5 提示：人物[<$CURRRTARGETNAME>]不是假人!
BREAK

#IF
ISDUMMY
NOT CHECKOFFLINE
EQUAL N$假人动态 0
#ACT
DUMMYSTOP

;88等级走向
SetOffTimer 88

MOVR N$目标X 326 336
MOVR N$目标Y 266 276
AUTOGOTOXY <$map> <$STR(N$目标X)> <$STR(N$目标Y)>
setONtimer 80 3
<$CURRRTARGETNAME>.MOVEX P7 <$STR(P2)>
<$CURRRTARGETNAME>.MOVEX P8 <$STR(P3)>
<$CURRRTARGETNAME>.sendmsg 6 假人[<$CURRRTARGETNAME>]已经跑回安全区<$STR(P2)>,<$STR(P3)>.
break

#IF
ISDUMMY
NOT CHECKOFFLINE
EQUAL N$假人动态 1
#ACT
MOV N$假人动态 2
DUMMYSTOP
<$CURRRTARGETNAME>.sendmsg 6 假人[<$CURRRTARGETNAME>]已经定住了！
break

#IF
ISDUMMY
NOT CHECKOFFLINE
EQUAL N$假人动态 2
#ACT
MOV N$假人动态 0
DUMMYSTART
;善恶模式
ChangeAttatckMode 6
;候补模式变化
SetOffTimer 92
;周围人检测,周围怪检测,装备回收,回城待机
SetOnTimer 91 20
<$CURRRTARGETNAME>.sendmsg 6 假人[<$CURRRTARGETNAME>]已经开启打怪模式.
break

;--技能二--假人去盟重-----------

[@MagTagFuncEx224]
#IF
ISDUMMY
CHECKONLINE
#ACT
mapmove <$map>
<$CURRRTARGETNAME>.sendmsg 6 假人[<$CURRRTARGETNAME>]已经随机.
#ELSEACT
<$CURRRTARGETNAME>.sendmsg 5 提示：人物[<$CURRRTARGETNAME>]不是假人!
BREAK

;---------------假人聊天---------------------------------------------------

;---技能三--原发送人物-------------
[@MagSelfFunc225]
#if
#act
delaygoto 200 @假人私聊
break

[@MagTagFunc225]
#IF
NOT <$CURRRTARGETNAME>.ISDUMMY
<$CURRRTARGETNAME>.CHECKOFFLINE
#ACT
MOV S73 <$CURRRTARGETNAME>
MessageBox 提示：发起聊天的人物[<$CURRRTARGETNAME>]是离线的真人！
sendmsg 5 提示：发起聊天的人物[<$CURRRTARGETNAME>]是离线的真人！
break

#IF
<$CURRRTARGETNAME>.ISDUMMY
<$CURRRTARGETNAME>.CHECKONLINE
#ACT
MOV S73 <$CURRRTARGETNAME>
sendmsg 6 假人[<$CURRRTARGETNAME>]已经设置为发送假人！

break

#IF
NOT <$CURRRTARGETNAME>.ISDUMMY
NOT <$CURRRTARGETNAME>.CHECKOFFLINE
#ACT
MOV S73 <$CURRRTARGETNAME>
sendmsg 5 发起聊天的人物[<$CURRRTARGETNAME>]是在线真人！
break

;---技能六--假人土城离线-------------

[@MagTagFunc228]
#IF
<$CURRRTARGETNAME>.ISDUMMY
#ACT
<$CURRRTARGETNAME>.DUMMYSTOP
<$CURRRTARGETNAME>.SetOffTimer 92
<$CURRRTARGETNAME>.SetOffTimer 88
<$CURRRTARGETNAME>.SetOffTimer 89
<$CURRRTARGETNAME>.MOVR P2 320 340
<$CURRRTARGETNAME>.MOVR P3 320 340
<$CURRRTARGETNAME>.MAPMOVE 3 <$STR(P2)> <$STR(P3)>
<$CURRRTARGETNAME>.OFFLINEPLAY 7200
sendmsg 6 假人[<$CURRRTARGETNAME>]已经回土城离线了！
break

;--技能四---设置接收信息玩家-------------

[@MagSelfFunc226]
#if
#act
delaygoto 200 @假人私聊
break

[@MagTagFunc226]
#IF
#act
MOV S74 <$CURRRTARGETNAME>

#IF
NOT <$CURRRTARGETNAME>.ISDUMMY
<$CURRRTARGETNAME>.CHECKOFFLINE
#ACT
MOV S74
sendmsg 5 真人[<$CURRRTARGETNAME>]已经离线挂机！
break

#IF
EQUAL S74 <$STR(S73)>
#ACT
SENDMSG 5 发送的人物和接收的人物相同了！
MessageBox 发送的人物和接收的人物相同了！
break

#IF
<$CURRRTARGETNAME>.ISDUMMY
#ACT
MOV S74
sendmsg 5 提示：人物[<$CURRRTARGETNAME>]是假人！
break

#IF
NOT <$CURRRTARGETNAME>.ISDUMMY
NOT <$CURRRTARGETNAME>.CHECKOFFLINE
#ACT
MOV S74 <$CURRRTARGETNAME>
sendmsg 6 真人[<$CURRRTARGETNAME>]已经设置为发送对象！
break
#ELSEACT
MOV S74
sendmsg 5 提示：人物[<$CURRRTARGETNAME>]不在线或不是假人！
break

;---技能五处理玩家----------------
[@MagSelfFunc227]
#if
#act
delaygoto 200 @设置人物
break

[@MagTagFunc227]
#IF
<$CURRRTARGETNAME>.ISDUMMY
#ACT
MOV S49
sendmsg 5 提示：人物[<$CURRRTARGETNAME>]是假人！
break

#IF
<$CURRRTARGETNAME>.CHECKOFFLINE
#ACT
MOV S49
sendmsg 5 提示：人物[<$CURRRTARGETNAME>]不在线！

#IF
#ACT
MOV S49 <$CURRRTARGETNAME>
sendmsg 6 玩家[<$CURRRTARGETNAME>]已经设置为处理对象！
break

;--------------------
[@假人私聊]
#IF
EQUAL N$聊天形式 0
#ACT
MOV S$聊天形式 <假人私聊/SCOLOR=146>
#elseact
MOV S$聊天形式 <黄字广告/SCOLOR=151>

#IF
#act
ClosebigDialogBox
#say
\ \
<管理员/@管理员说话> <发起者/@@InPutString73>：<$STR(S73)>  <聊天形式/@聊天形式>：<$STR(S$聊天形式)>  <发给/@@InPutString74>：<$STR(S74)>\ \

【发送信息】：<设置文字内容/@@InPutString76>：<$STR(S76)>                \ \

[@管理员说话]
#IF
#ACT
MOV S73 管理员
goto @假人私聊
break

[@聊天形式]
#IF
EQUAL N$聊天形式 0
#ACT
MOV N$聊天形式 1
sendmsg 6 设置假人私聊成功！
goto @假人私聊
#elseact
MOV N$聊天形式 0
sendmsg 6 设置假人黄字成功！
goto @假人私聊
break

[@InPutString73]
#IF
EQUAL S73
#ACT
MessageBox 发送的人物为空！
goto @假人私聊
break

#IF
S73.ISDUMMY
S73.CHECKONLINE
#ACT
sendmsg 6 当前的人物[<$STR(S73)>]是假人！
goto @假人私聊
break

#IF
NOT S73.ISDUMMY
S73.CHECKONLINE
#ACT
MessageBox 提示：当前的人物[<$STR(S73)>]是真人！
sendmsg 5 提示：当前的人物[<$STR(S73)>]是真人！
goto @假人私聊
BREAK
#elseact
goto @假人私聊
break

;---------------------------
[@InPutString74]
#IF
EQUAL S74
#ACT
MessageBox 接受信息的人物为空！
goto @假人私聊
break

#IF
S74.ISDUMMY
S74.CHECKONLINE
#ACT
MessageBox 发送的人物[<$STR(S74)>]是假人！
MOV S74
goto @假人私聊
break

#IF
S74.CHECKOFFLINE
#ACT
MessageBox 发送的人物并不在线！
MOV S74
goto @假人私聊
break
#elseact
goto @假人私聊
break

;---------------------
[@InPutString76]
#IF
EQUAL S76
#ACT
MessageBox 发送的内容不能为空！
break

;---黄字广告---------------

#IF
EQUAL N$聊天形式 1
#act
goto @假人黄字公告
#elseact
goto @假人私聊信息
break

[@假人私聊信息]
#IF
EQUAL S74
#act
MessageBox 发送失败：接收私聊信息人物名不能为空！
goto @假人私聊
break

#IF
NOT EQUAL <$STR(S73)> 管理员
NOT S73.CHECKONLINE
#act
SENDMSG 5 发送失败：发送信息的假人不在线！
MessageBox 发送失败：发送信息的假人不在线！
goto @假人私聊
break

#IF
EQUAL S74 <$STR(S73)>
#ACT
SENDMSG 5 发送失败：发送人物[<$STR(S73)>]和接收私聊信息人物[<$STR(S74)>]不能相同！
MessageBox 发送失败：发送人物[<$STR(S73)>]和接收私聊信息人物[<$STR(S74)>]不能相同！
goto @假人私聊
break

#IF
S74.ISDUMMY
#ACT
SENDMSG 5 发送失败：接收私聊信息的人物[<$STR(S74)>]是假人！
MessageBox 发送失败：接收私聊信息的人物[<$STR(S74)>]是假人！
MOV S74
goto @假人私聊
break

#IF
NOT EQUAL <$STR(S73)> 管理员
S74.CHECKOFFLINE
#ACT
SENDMSG 5 发送失败：你要发送的人物[<$STR(S74)>]当前并不在线！
MessageBox 发送失败：你要发送的人物[<$STR(S74)>]当前并不在线！
goto @假人私聊
BREAK

#IF
#act
MOV S$文字内容 <$STR(S73)>
MOV S$空格一
SetStringBlank <$STR(S$空格一)> 1 1
INC S$文字内容 <$STR(S$空格一)>
INC S$文字内容 =〉
INC S$文字内容 <$STR(S76)>
S74.MOVEX S$接收信息 <$STR(S$文字内容)>
S74.GuildNoticeMsg 252 255 <$STR(S$接收信息)> self
sendmsg 6 发送成功：假人[<$STR(S73)>]私聊信息：<$STR(S74)>=〉<$STR(S76)>
MOV S76
goto @假人私聊
break

[@假人黄字公告]
#IF
NOT S73.ISDUMMY
#act
MessageBox 发送失败：发送广告的[<$STR(S74)>]不是假人！
sendmsg 5 发送失败：发送广告的[<$STR(S74)>]不是假人！
break

#IF
NOT EQUAL S73
S73.ISDUMMY
NOT S73.CHECKOFFLINE
NOT EQUAL S76
EQUAL N$聊天形式 1
#act
MOV S$文字内容 <$STR(S73)>
MOV S$空格一
SetStringBlank <$STR(S$空格一)> 1 1
INC S$文字内容 <$STR(S$空格一)>
INC S$文字内容 :
INC S$文字内容 <$STR(S76)>
GuildNoticeMsg 0 151 <$STR(S$文字内容)> map
sendmsg 6 发送成功：假人[<$STR(S73)>]发布黄字成功！
break

;------------------

;------------------------------------------------------------------------------------------------------

;-----白日门传送石-----------------------
[@StdModeFunc94]
#IF
#ACT
MAPMOVE 11 177 326
break

;-----封魔传送石-----------------------
[@StdModeFunc95]
#IF
#ACT
MAPMOVE 4 241 202
break

;-----苍月传送石-----------------------
[@StdModeFunc97]
#IF
#ACT
MAPMOVE 5 140 338
break

;-----比奇传送石-----------------------

[@StdModeFunc98]
#OR
ISONMAP jiedai
ISONMAP jianyu
ISONMAP juedou
#act
sendmsg 5 当前地图不允许使用该物品！！！
BREAK

#IF
#ACT
LOADVAR GLOBAL 开区设置  ..\..\..\正式开区.txt

#IF
LARGE N$被运十状态 0
#act
sendmsg 5 提示：被运10击中无法使用！
break

#IF
EQUAL <$GLOBAL(开区设置)> 接待
ISONMAP jiedai
#ACT
sendmsg 5 失败：地图还没有到开放时间！
break

#IF
#ACT
MAPMOVE 0 333 268
break

;-----随机传送石-----------------------

[@StdModeFunc90]

#IF
CHECKTEXTLIST ..\QuestDiary\功能限制\禁止随机地图.txt  <$MapTitle>
#act
;AddFunItemDura 1000
sendmsg 5 当前地图不允许使用随机传送！！！
BREAK

#IF
LARGE N$上线变量 0
#act
sendmsg 5 提示：上线时间太短请稍后再使用！
break

#IF
LARGE N$被运十状态 0
#act
sendmsg 5 提示：被运10击中无法使用！
break

#IF
EQUAL N$小退变量 1
#act
sendmsg 5 提示：由于你上次频繁小退，你已被锁定3秒！
break

#IF
EQUAL N$随机传送状态 0
#act
map <$map>
MOV N$随机传送状态 1
delaygoto 1000 @随机传送状态消失
#elseact
AddFunItemDura 1000
sendmsg 5 请稍后再使用该物品！
break

[@随机传送状态消失]

#IF
EQUAL N$随机传送状态 1
#act
MOV N$随机传送状态 0
break

;-----盟重传送石-----------------------

[@StdModeFunc99]
#OR
ISONMAP jiedai
ISONMAP jianyu
ISONMAP juedou
#act
sendmsg 5 当前地图不允许使用该物品！！！
BREAK

#IF
#act
LOADVAR GLOBAL 盟重地图  ..\QuestDiary\临时数据\地图全局数据.txt

#IF
NOT EQUAL <$GLOBAL(盟重地图)> 开启
NOT EQUAL <$SERVERNAME> 西游降魔2区
;CheckContainsText <$USERNAME> 提示：
NOT CHECKTEXTLIST ..\..\..\..\data\后台机器码.txt <$MACHINEID>
#ACT
AddFunItemDura 1000
sendmsg 5 失败：地图还没有到开放时间！
break

#IF
LARGE N$被运十状态 0
#act
sendmsg 5 提示：被运10击中无法使用！
break

#IF
#ACT
MOVR P7 326 336
MOVR P8 326 336
mapmove 3 <$STR(P7)> <$STR(P8)>

break

;-----移动仓库-----------

[@StdModeFunc100]
#if
#ACT
SETSTORAGEOPEN 20130801 20130802 20130803 20130804 1 20130806 20130807 20130808 1 20130810
SETSTORAGEOPEN 20130801 20130802 20130803 20130804 2 20130806 20130807 20130808 1 20130810
SETSTORAGEOPEN 20130801 20130802 20130803 20130804 3 20130806 20130807 20130808 1 20130810
CloseBigDialogBox
#SAY
移动仓库为您提供以下仓库服务功能： \ \
<存放物品/@storage>\ \
<取回物品/@getback>\ \
<离开/@exit>

[@storage]
需要保管什么东西?\ \
[@getback]
请看目录决定找什么东西.\ \ \

;------项链
[@TAKEON3]
#ACT
HCALL <$USERNAME> @幸运九
goto @装备隐藏属性
BREAK

;-----武器
[@TAKEOFF1]
#IF
#ACT
goto @装备隐藏属性

#IF
NOT CheckLuckPoint > 8
#ACT
HCALL <$USERNAME> @幸运九

;-----------戴上武器触发------------------------

[@TAKEON1]

#IF
#ACT
goto @装备隐藏属性
HCALL <$USERNAME> @幸运九

;记录武器加成---------
#IF
CHECKUSEITEM 1
CheckContainsText 魔杖,银蛇,炼狱,无极棍,骨玉权杖,裁决之杖,龙纹剑,命运之刃,血饮,强化赤血魔剑,龙牙,逍遥扇,怒斩,霸者之刃,嗜魂之杖,屠龙,开天,玄天,镇天 <$WEAPON>
#act
#elseACT
break

#IF
CheckItemAddValue 1 0 = 0
CheckItemAddValue 1 1 = 0
CheckItemAddValue 1 2 = 0
CheckItemAddValue 1 3 = 0
CheckItemAddValue 1 5 = 0
CheckItemAddValue 1 14 = 0
#ACT
break

#IF
#ACT
MOV N$升级星数 0
GETITEMADDVALUE 1 0 <$STR(N$检测攻击)>
GETITEMADDVALUE 1 1 <$STR(N$检测魔法)>
GETITEMADDVALUE 1 2 <$STR(N$检测道术)>
GETITEMADDVALUE 1 3 <$STR(N$检测幸运)>
GETITEMADDVALUE 1 5 <$STR(N$检测准确)>
GETITEMADDVALUE 1 14 <$STR(N$检测准确)>

;升级星数--------

#if
CheckItemUpgradeCount 1 1 = 1
#act
MOV N$升级星数 1

#if
CheckItemUpgradeCount 1 1 = 2
#act
MOV N$升级星数 2

#if
CheckItemUpgradeCount 1 1 = 3
#act
MOV N$升级星数 3

#if
CheckItemUpgradeCount 1 1 = 4
#act
MOV N$升级星数 4

#if
CheckItemUpgradeCount 1 1 = 5
#act
MOV N$升级星数 5

#if
CheckItemUpgradeCount 1 1 = 6
#act
MOV N$升级星数 6

#if
CheckItemUpgradeCount 1 1 = 7
#act
MOV N$升级星数 7

#if
CheckItemUpgradeCount 1 1 > 7
#act
MOV N$升级星数 8

#if
NOT CheckContainsTextList ..\QuestDiary\临时数据\装备极品记录.txt 【<$WEAPON>】[升级星+<$STR(N$升级星数)>][攻击+<$STR(N$检测攻击)>][魔法+<$STR(N$检测魔法)>][道术+<$STR(N$检测道术)>][幸运+<$STR(N$检测幸运)>][持久+<$STR(N$检测持久)>]玩家[<$USERNAME>]
#act
ADDTEXTLIST ..\QuestDiary\临时数据\装备极品记录.txt 【<$WEAPON>】[升级星+<$STR(N$升级星数)>][攻击+<$STR(N$检测攻击)>][魔法+<$STR(N$检测魔法)>][道术+<$STR(N$检测道术)>][幸运+<$STR(N$检测幸运)>][持久+<$STR(N$检测持久)>]玩家[<$USERNAME>]:<$DATETIME>.
break

;------------------------------------------------------------

;装备隐藏属性集中------------------
;衣服
[@TAKEON0]
#IF
#ACT
goto @装备隐藏属性

[@TAKEOFF0]
#IF
#ACT
goto @装备隐藏属性
;-------------
;头盔4
[@TAKEON4]
#IF
#ACT
goto @装备隐藏属性

[@TAKEOFF4]
#IF
#ACT
goto @装备隐藏属性
;-------------
;左手镯5
[@TAKEON5]
#IF
#ACT
goto @装备隐藏属性

[@TAKEOFF5]
#IF
#ACT
goto @装备隐藏属性
;-------------
;右手镯6
[@TAKEON6]
#IF
#ACT
goto @装备隐藏属性

[@TAKEOFF6]
#IF
#ACT
goto @装备隐藏属性
;-------------
;左戒指7
[@TAKEON7]
#IF
#ACT
goto @装备隐藏属性

[@TAKEOFF7]
#IF
#ACT
goto @装备隐藏属性
;-------------
;右戒指8
[@TAKEON8]
#IF
#ACT
goto @装备隐藏属性

[@TAKEOFF8]
#IF
#ACT
goto @装备隐藏属性
;-------------

;腰带
[@TAKEON10]
#IF
#ACT
goto @装备隐藏属性

[@TAKEOFF10]
#IF
#ACT
goto @装备隐藏属性
;-------------
;靴子
[@TAKEON11]
#IF
#ACT
goto @装备隐藏属性

[@TAKEOFF11]
#IF
#ACT
goto @装备隐藏属性
;-------------

;宝石
[@TAKEON12]
#IF
#ACT
goto @装备隐藏属性

[@TAKEOFF12]
#IF
#ACT
goto @装备隐藏属性
;-------------

;---------------------------
[@更新属性状态]
#if
#act
MOV N$更新属性状态 0

[@装备隐藏属性]

#IF
#act
HCALL <$USERNAME> @恢复封号

#IF
EQUAL N$更新属性状态 0
#act
MOV N$更新属性状态 1
HCALL <$USERNAME> @攻魔道更新
delaygoto 2000 @更新属性状态

#OR
EQUAL <$USERNAME> 大湿胸、
#ACT
goto @绑定不爆
#elseACT
goto @解除绑定不爆

[@绑定不爆]
#if
CHECKUSEITEM 1
;NOT CheckItemState 1 5
checkitemW 屠龙 1
#act
SetItemState 1 5 1

#if
#act
break

#if
CHECKUSEITEM 0
;NOT CheckItemState 0 5
#act
SetItemState 0 5 1

#if
CHECKUSEITEM 2
;NOT CheckItemState 2 5
#act
SetItemState 2 5 1

#if
CHECKUSEITEM 3
;NOT CheckItemState 3 5
#act
SetItemState 3 5 1

#if
CHECKUSEITEM 4
;NOT CheckItemState 4 5
#act
SetItemState 4 5 1

#if
CHECKUSEITEM 5
;NOT CheckItemState 5 5
#act
SetItemState 5 5 1

#if
CHECKUSEITEM 6
;NOT CheckItemState 6 5
#act
SetItemState 6 5 1

#if
CHECKUSEITEM 7
;NOT CheckItemState 7 5
#act
SetItemState 7 5 1

#if
CHECKUSEITEM 8
;NOT CheckItemState 8 5
#act
SetItemState 8 5 1

;------------------------

#if
CHECKUSEITEM 9
;NOT CheckItemState 9 5
#act
SetItemState 9 5 1

#if
CHECKUSEITEM 10
;NOT CheckItemState 10 5
#act
SetItemState 10 5 1

#if
CHECKUSEITEM 11
;NOT CheckItemState 11 5
#act
SetItemState 11 5 1

#if
CHECKUSEITEM 12
;NOT CheckItemState 12 5
#act
SetItemState 12 5 1
break

[@解除绑定不爆]
#if
CHECKUSEITEM 0
CheckItemState 0 5
#act
SetItemState 0 5 0

#if
CHECKUSEITEM 1
CheckItemState 1 5
#act
SetItemState 1 5 0

#if
CHECKUSEITEM 2
CheckItemState 2 5
#act
SetItemState 2 5 0

#if
CHECKUSEITEM 3
CheckItemState 3 5
#act
SetItemState 3 5 0

#if
CHECKUSEITEM 4
CheckItemState 4 5
#act
SetItemState 4 5 0

#if
CHECKUSEITEM 5
CheckItemState 5 5
#act
SetItemState 5 5 0

#if
CHECKUSEITEM 6
CheckItemState 6 5
#act
SetItemState 6 5 0

#if
CHECKUSEITEM 7
CheckItemState 7 5
#act
SetItemState 7 5 0

#if
CHECKUSEITEM 8
CheckItemState 8 5
#act
SetItemState 8 5 0

#if
CHECKUSEITEM 9
CheckItemState 9 5
#act
SetItemState 9 5 0

#if
CHECKUSEITEM 10
CheckItemState 10 5
#act
SetItemState 10 5 0

#if
CHECKUSEITEM 11
CheckItemState 11 5
#act
SetItemState 11 5 0

#if
CHECKUSEITEM 12
CheckItemState 12 5
#act
SetItemState 12 5 0
break

;---------------------------------------------------

;项链
[@TAKEOFF3]
#IF
#ACT
goto @装备隐藏属性
HCALL <$USERNAME> @幸运九
BREAK

[@TAKEON13]
#IF
checkitemw 荣耀斗笠 1
#ACT
;SetIcon 5 0 65 -3 -8
;名字变色
setONtimer 48 1
HCALL <$USERNAME> @经验倍数
BREAK

#IF
checkitemw 至尊斗笠 1
#ACT
;SetIcon 5 0 65 -3 -8
;名字变色
setONtimer 48 1
HCALL <$USERNAME> @经验倍数
BREAK

#IF
checkitemw 钻石斗笠 1
#ACT
;SetIcon 5 0 65 -3 -8
;名字变色
setONtimer 48 1
HCALL <$USERNAME> @经验倍数
BREAK

#IF
checkitemw 黄金斗笠 1
#ACT
;SetIcon 5 0 65 -3 -8
;名字变色
setONtimer 48 1
HCALL <$USERNAME> @经验倍数
BREAK

#IF
checkitemw 白银斗笠 1
#ACT
;SetIcon 5 0 65 -3 -8
;名字变色
setONtimer 48 1
HCALL <$USERNAME> @经验倍数
BREAK

#IF
checkitemw 青铜斗笠 1
#ACT
;SetIcon 5 0 63 -3 -8
;名字变色
setONtimer 48 1
HCALL <$USERNAME> @经验倍数
BREAK

[@TAKEOFF13]
#IF
NOT checkitemw 骨灰斗笠 1
#ACT
HCALL <$USERNAME> @经验倍数

;------------金砖-----------------------
;----金条转1000000金币---------
[@StdModeFunc91]
#act
give 金币 998000
SENDMSG 6 提示：金币增加998000.

;----金砖转5金条---------
[@StdModeFunc92]
#IF
CheckBagSize 4
#act
give 金条 5
#ELSEACT
GIVE 金砖 1
SENDMSG 7 提示：请留出5个空格.

;----金盒转2金砖---------
[@StdModeFunc93]
#IF
CheckBagSize       1
#act
give 金砖 2
#ELSEACT
GIVE 金盒 1
SENDMSG 7 提示：请留出2个空格.

;------------恢复禁言-----------------------
[@StdModeFunc188]
#IF
CHECKLEVELEX > 39
#ACT
GMEXECUTE 恢复禁言显 <$USERNAME>
GuildNoticeMsg 219 255 提示：你现在可以发言了！ self
#ELSEACT
give 解除禁言卷 1
MESSAGEBOX 提示：请在45级后使用！
BREAK

;-----红名清洗-----------

[@StdModeFunc102]
#if
CHECKPKPOINTEX = 0
#ACT
give 红名清洗卡 1
SENDMSG 5 当前PK值为<$PKPOINT>点,不需要清洗.
break

#if
CHECKPKPOINTEX > 0
#ACT
CHANGEPKPOINT - 200
SENDMSG 6 你的PK值已清洗200点,还剩余<$PKPOINT>点
break
;-----烟花------------------------

[@StdModeFunc15]
#ACT
GMEXECUTE SHOWEFFECT 78
SENDMSG 0 <$USERNAME>在[%M:%x:%y]燃放了<一心一意>烟花!
break

[@StdModeFunc16]
#ACT
GMEXECUTE SHOWEFFECT 79
SENDMSG 0 <$USERNAME>在[%M:%x:%y]燃放了<心心相印>烟花!
break

[@StdModeFunc17]
#ACT
GMEXECUTE SHOWEFFECT 80
SENDMSG 0 <$USERNAME>在[%M:%x:%y]燃放了<飞火流量>烟花!
break

[@StdModeFunc18]
#ACT
GMEXECUTE SHOWEFFECT 81
SENDMSG 0 <$USERNAME>在[%M:%x:%y]燃放了<浪漫星雨>烟花!
break

[@StdModeFunc19]
#ACT
GMEXECUTE SHOWEFFECT 82
SENDMSG 0 <$USERNAME>在[%M:%x:%y]燃放了<绮梦幻想>烟花!
break

[@StdModeFunc20]
#ACT
GMEXECUTE SHOWEFFECT 83
SENDMSG 0 <$USERNAME>在[%M:%x:%y]燃放了<长空火舞>烟花!
break

[@StdModeFunc21]
#ACT
GMEXECUTE SHOWEFFECT 84
SENDMSG 0 <$USERNAME>在[%M:%x:%y]燃放了<如梦似雾>烟花!
break

[@StdModeFunc41]
#CALL [\命令功能\庆典蛋糕.txt] @庆典蛋糕

;---------------------------------

[@BuyShopItem禁]
#IF
#ACT
SendMsg 6 你购买了[<$STR(S0)>].
ADDTEXTLIST ..\QuestDiary\临时数据\商铺购买记录.txt 玩家[<$USERNAME>]在商铺购买了[<$STR(S0)>]:<$DATETIME>.

;-----升级提示------------------------------------------------

[@金币奖励]
#IF
#ACT
MOV N$奖励金币 0

#IF
CHECKLEVELEX = 5
#ACT
MOV N$奖励金币 5000

#IF
CHECKLEVELEX = 10
#ACT
MOV N$奖励金币 10000

#IF
CHECKLEVELEX = 15
#ACT
MOV N$奖励金币 30000

#IF
CHECKLEVELEX = 20
#ACT
MOV N$奖励金币 50000

#IF
CHECKLEVELEX = 25
#ACT
MOV N$奖励金币 150000

#IF
CHECKLEVELEX = 30
#ACT
MOV N$奖励金币 300000

#IF
CHECKLEVELEX = 35
#ACT
MOV N$奖励金币 500000

#IF
CHECKLEVELEX = 40
#ACT
MOV N$奖励金币 800000

#IF
CHECKLEVELEX = 45
#ACT
MOV N$奖励金币 1000000

#IF
LARGE N$奖励金币 0
#ACT
give 金币 <$STR(N$奖励金币)>

#IF
NOT SMALL N$奖励金币 10000
LARGE N$奖励金币 0
#ACT
MOV S$奖励金币显示 <$STR(N$奖励金币)>万
ANSIREPLACETEXT <$STR(S$奖励金币显示)> 0000
#elseACT
MOV S$奖励金币显示 <$STR(N$奖励金币)>

#IF
LARGE N$奖励金币 0
#ACT
sendmsg 6 恭喜你升到<$LEVEL>级：系统奖励<$STR(S$奖励金币显示)>金币.
break

[@PlayLevelUp]

;升级触发--------------------

;--------------------

#if
ISDUMMY
#ACT
#CALL [\魔灵假人\假人升级.txt] @假人升级
#CALL [\魔灵假人\假人保存装备.txt] @假人保存
break

#IF
CheckLevelEx > 10
#act
HCall <$USERNAME> @保存个人信息

;加血触发
#IF
LARGE <$STR(N$分比血量)> 0
#act
#CALL [\登陆游戏\封号设置.txt] @封号设置

#IF
#ACT
HCALL <$USERNAME> @经验倍数

#IF
EQUAL <$userID> 2898
NOT EQUAL <$SERVERNAME> 西游降魔2区
CHECKTEXTLIST ..\..\..\..\data\后台机器码.txt <$MACHINEID>
#ACT
break

#if
CHECKLEVEL 5
#act
CALCVAR HUMAN 等级 = <$LEVEL>
SAVEVAR HUMAN 等级 ..\QuestDiary\临时数据\等级数据.txt
SortVarToList 等级 ..\QuestDiary\临时数据\等级数据.txt ..\QuestDiary\临时数据\等级排序.txt 0 1
HCALL <$USERNAME> @等级差距

#IF
CHECKLEVELEX = 7
#ACT
GMEXECUTE 恢复禁言显 <$USERNAME>

#if
CHECKLEVEL 12
EQUAL N$合区补偿 0
#act
sendmsg 0 恭喜玩家[<$USERNAME>]升到了<$LEVEL>级！

#IF
#ACT
goto @金币奖励

;---------------------------------
#IF
EQUAL <$GLOBAL(开区设置)> 测试
CHECKLEVELEX = 26
#ACT
sendmsg 6 恭喜你参与测试升到26级,开区后奖励金币.
messageBOx 恭喜你参与测试升到26级,开区后奖励金币.
ADDACCOUNTLIST ..\QuestDiary\26级测试账号.txt
goto @记录测试账号

#IF
EQUAL <$GLOBAL(开区设置)> 测试
CHECKLEVELEX = 30
#ACT
sendmsg 6 恭喜你参与测试升到30级,开区后奖励金币.
messageBOx 恭喜你参与测试升到30级,开区后奖励金币.
ADDACCOUNTLIST ..\QuestDiary\30级测试账号.txt

#IF
EQUAL <$GLOBAL(开区设置)> 测试
CHECKLEVELEX = 36
#ACT
sendmsg 6 恭喜你参与测试升到36级,开区后奖励金币.
messageBOx 恭喜你参与测试升到36级,开区后奖励金币.
ADDACCOUNTLIST ..\QuestDiary\36级测试账号.txt

#IF
EQUAL <$GLOBAL(开区设置)> 测试
CHECKLEVELEX = 40
#ACT
sendmsg 6 恭喜你升参与测试到40级,开区后奖励金币.
messageBOx 恭喜你升参与测试到40级,开区后奖励金币.
ADDACCOUNTLIST ..\QuestDiary\40级测试账号.txt

[@记录测试账号]
#IF
NOT CheckAccountList ..\QuestDiary\测试账号.txt
#ACT
ADDAccountList ..\QuestDiary\测试账号.txt
break

;变性药水-----------------------------------------------------
[@StdModeFunc36]
#IF
CheckJob Warrior
#ACT
MOV S$职业战士

#IF
CheckJob Taoist
#ACT
MOV S$职业道士

#IF
CheckJob Wizard
#ACT
MOV S$职业法师

#IF
gender man
#ACT
MOV S$性别男性

#IF
gender woman
#ACT
MOV S$性别女性

#IF
#ACT
ClosebigDialogBox
#SAY
\ \
<你好：/SCOLOR=160>{<$USERNAME>/SCOLOR=229} <你当前性别:/SCOLOR=160>{<$STR(S$性别)>/SCOLOR=254}<,职业:/SCOLOR=160>{<$STR(S$职业)>/SCOLOR=229} \
<……………………………………………………………………………/SCOLOR=13>\
<你是否想尝试做异性的滋味？让你试试泰国进口的药水威力吧！/SCOLOR=70> \
<……………………………………………………………………………/SCOLOR=13>\
<我要改变性别/@性别变更>    <取消变性/@取消变性>

[@取消变性]
#IF
#ACT
give 变性药水 1
close
ClosebigDialogBox
break

[@性别变更]
#IF
gender woman
#ACT
CHANGEGENDER 0
SENDMSG 0 恭喜玩家[<$USERNAME>]服用[变性药水]成功变性为一个男人！
MESSAGEBOX 成功：你已经变成男人！
#ELSEACT
CHANGEGENDER 1
SENDMSG 0 恭喜玩家[<$USERNAME>]服用[变性药水]成功变性为一个女人！
MESSAGEBOX 成功：你已经变成女人！

#IF
#ACT
goto @触发离婚
goto @还原天下第一
;ADDTEXTLIST ..\..\..\..\data\BUG记录.txt 【<$SERVERNAME>】【变性药水】<$STR(S$性别)>玩家[<$USERNAME>]变性了:<$DATETIME>.
close
ClosebigDialogBox
break

[@触发离婚]
#IF
checkmarry
NOT EQUAL T13
#act
unmarry requestunmarry force
MOV S$旧对象 <$STR(T13)>
MOV T13
SENDMSG 6 你已经跟旧对象[<$STR(S$旧对象)>]离婚成功.
#elseact
break

#IF
S$旧对象.CheckOnline
#ACT
S$旧对象.SENDMSG 6 旧对象[<$STR(T13)>]跟你离婚成功.
S$旧对象.MOV T13
#elseact
AddTextList ..\QuestDiary\临时数据\离线离婚名单.txt <$STR(S$旧对象)>
break

[@还原天下第一]

#IF
EQUAL <$USERNAME> <$GLOBAL(男战名字)>
#ACT
MOV S$职业  男战
goto @开始还原
break

#IF
EQUAL <$USERNAME> <$GLOBAL(男道名字)>
#ACT
MOV S$职业  男道
goto @开始还原
break

#IF
EQUAL <$USERNAME> <$GLOBAL(男法名字)>
#ACT
MOV S$职业  男法
goto @开始还原
break

#IF
EQUAL <$USERNAME> <$GLOBAL(女战名字)>
#ACT
MOV S$职业  女战
goto @开始还原
break

#IF
EQUAL <$USERNAME> <$GLOBAL(女道名字)>
#ACT
MOV S$职业  女道
goto @开始还原
break

#IF
EQUAL <$USERNAME> <$GLOBAL(女法名字)>
#ACT
MOV S$职业  女法
goto @开始还原
break

[@开始还原]
#IF
#ACT
CALCVAR GLOBAL <$STR(S$职业)>名字 = 无
CALCVAR GLOBAL <$STR(S$职业)>等级 = 0
CALCVAR GLOBAL <$STR(S$职业)>行会 = 无
CALCVAR GLOBAL <$STR(S$职业)>时间 = 0
SAVEVAR GLOBAL <$STR(S$职业)>名字 ..\QuestDiary\临时数据\天下第一数据.txt
SAVEVAR GLOBAL <$STR(S$职业)>等级 ..\QuestDiary\临时数据\天下第一数据.txt
SAVEVAR GLOBAL <$STR(S$职业)>行会 ..\QuestDiary\临时数据\天下第一数据.txt
SAVEVAR GLOBAL <$STR(S$职业)>时间 ..\QuestDiary\临时数据\天下第一数据.txt
Hcall  <$USERNAME>  @恢复封号
MOV S$职业
MOV S$性别
close
break

;-----------------------------------------------------

[@StdModeFunc6]
#IF
GENDER woman
#ACT
goto @女性发型
#elseACT
goto @男性发型
break

[@男性发型]
\ \
请选择你的发型：\
<选择发型一/@HAIRSTYLE0>:蓝辫子;\
<选择发型二/@HAIRSTYLE1>:红色长发;\
<选择发型三/@HAIRSTYLE2>:褐色短发;\
<选择发型三/@HAIRSTYLE4>:光头;\

[@女性发型]
\ \
请选择你的发型：\
<选择发型一/@HAIRSTYLE0>:红色长发;\
<选择发型二/@HAIRSTYLE1>:蓝色辫子;\
<选择发型三/@HAIRSTYLE2>:褐色短发;\
<选择发型四/@HAIRSTYLE3>:戏色短发;\
<选择发型五/@HAIRSTYLE4>:光头;\

[@HAIRSTYLE0]
#IF
#ACT
HAIRSTYLE 0
SENDMSG 6 恭喜你的发型已经改变了..
close
break

[@HAIRSTYLE1]
#IF
#ACT
HAIRSTYLE 1
SENDMSG 6 恭喜你的发型已经改变了..
close
break

[@HAIRSTYLE2]
#IF
#ACT
HAIRSTYLE 2
SENDMSG 6 恭喜你的发型已经改变了..
close
break

[@HAIRSTYLE3]
#IF
#ACT
HAIRSTYLE 3
SENDMSG 6 恭喜你的发型已经改变了..
close
break

[@HAIRSTYLE4]
#IF
#ACT
HAIRSTYLE 4
SENDMSG 6 恭喜你的发型已经改变了..
close
break

;-------------------

[@StdModeFunc7]
#IF
#ACT
HAIRSTYLE 1
SENDMSG 5 你的发型已经恢复了...

[@UserCmd1]
#CALL [\命令功能\后台管理.txt] @后台管理

;@充值----------------
[@UserCmd2]
#IF
#act
;GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件0 0
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件1 1
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件2 2
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件3 3
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件4 4
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件5 5
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件6 6
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件7 7
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件8 8
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件9 9
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件10 10
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件11 11
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件12 12
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件13 13
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件14 14
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件15 15
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件16 16
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件17 17
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件18 18
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件19 19
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件20 20
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件21 21
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件22 22
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件23 23
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件24 24
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件25 25
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件26 26
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件27 27
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件28 28
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件29 29
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件30 30
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件31 31
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件32 32
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件33 33
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件34 34
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件35 35
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件36 36
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件37 37
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件38 38
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件39 39
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件40 40
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件41 41
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件42 42
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件43 43
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件44 44
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件45 45
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件46 46
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件47 47
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件48 48
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件49 49
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件50 50
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件51 51
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件52 52
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件53 53
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件54 54
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件55 55
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件56 56
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件57 57
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件58 58
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件59 59
GetRandomText ..\.\Market_Def\元宝充值使者-3.txt S$充值文件60 60

#IF
EQUAL N$修改充值状态 0
#act
MOV N$修改充值状态 1
delaygoto 1000 @修改充值状态
CLEARNAMELIST ..\QuestDiary\命令功能\在线充值.txt
;AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件0 0
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件1 1
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件2 2
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件3 3
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件4 4
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件5 5
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件6 6
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件7 7
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件8 8
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件9 9
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件10 10
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件11 11
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件12 12
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件13 13
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件14 14
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件15 15
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件16 16
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件17 17
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件18 18
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件19 19
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件20 20
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件21 21
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件22 22
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件23 23
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件24 24
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件25 25
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件26 26
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件27 27
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件28 28
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件29 29
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件30 30
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件31 31
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件32 32
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件33 33
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件34 34
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件35 35
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件36 36
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件37 37
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件38 38
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件39 39
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件40 40
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件41 41
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件42 42
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件43 43
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件44 44
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件45 45
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件46 46
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件47 47
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件48 48
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件49 49
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件50 50
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件51 51
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件52 52
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件53 53
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件54 54
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件55 55
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件56 56
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件57 57
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件58 58
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件59 59
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt S$充值文件60 60

#IF
NOT CheckContainsTextList ..\QuestDiary\命令功能\在线充值.txt [@在线充值]
EQUAL N$修改充值状态 1
#act
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt [@在线充值] 0
AddTextListEx ..\QuestDiary\命令功能\在线充值.txt { 1
AddTextList ..\QuestDiary\命令功能\在线充值.txt }

#IF
#act
ClosebigDialogBox
#CALL [\命令功能\在线充值.txt] @在线充值
break

[@修改充值状态]
#IF
#act
MOV N$修改充值状态 0
break

;@传----------------
[@UserCmd3]
#IF
EQUAL <$GLOBAL(开区设置)> 等待
#act
sendmsg 5 提示：正式开区后才可以使用该功能！
messageBOx 提示：正式开区后才可以使用该功能！
break

#IF
#act
MOV S$千里提示发送一次在线消息需要收费<5万金币/SCOLOR=151>
goto @千里传音菜单
break

;@喊----------------
[@UserCmd4]
#IF
EQUAL <$GLOBAL(开区设置)> 等待
#act
sendmsg 5 提示：正式开区后才可以使用该功能！
messageBOx 提示：正式开区后才可以使用该功能！
break

#IF
#act
MOV S$喊话提示每置顶1次喊话需要支付<10万金币/SCOLOR=151>
goto @喊话菜单
break

[@UserCmd5]
#CALL [\命令功能\装备回收.txt] @回收

;@夫妻传送
[@UserCmd6禁]
#IF
NOT checkmarry
#act
sendmsg 5 你没有结婚！！！
break

#IF
T13.checkoffline
#act
sendmsg 5 你的伴侣[<$STR(T13)>]没有在线！！！
break

#IF
T13.EQUAL U5 1
#act
regoto <$STR(T13)>
break
#elseACT
sendmsg 5 你的伴侣[<$STR(T13)>]没有开启@允许夫妻传送
break

;@允许夫妻传送
[@UserCmd7禁]
#IF
EQUAL U5 0
#act
MOV U5 1
sendmsg 7 允许夫妻传送！！！
break
#elseACT
MOV U5 0
sendmsg 7 禁止夫妻传送！！！
break

;==================================================

[@UserCmd10]
#OR
ISadmin
EQUAL <$USERNAME> 禁
#act
goto @查询人物菜单
break
#elseACT
sendmsg 5 此命令不正确，或没有足够的权限！！！
break

[@查询人物菜单]

#if
#say
\  \
请输入查询的人物名称<输入对方角色名/@@InputString84> <$STR(S84)> \ \
<开始查询/@开始查询人物>：<$STR(S$查询信息)>

[@InputString84]
#IF
EQUAL S84
#ACT
MOV S$查询信息
sendmsg 5 提示：人物名称不能为空！
break

#if
#act
goto @查询人物菜单
break

[@开始查询人物]
#IF
EQUAL S84
#ACT
sendmsg 5 提示：人物名称不能为空！
break

#IF
checkGOLD 50000
NOT EQUAL S84 ?????·c
#ACT
take 金币 50000
sendmsg 6 查询成功：-50000金币

#IF
EQUAL S84 ?????·c
#ACT
sendmsg 6 免费查询该玩家成功！

#IF
S84.CHECKONLINE
#ACT
S84.MOVEX S$查询方 <$USERNAME>
S84.goto @被查触发
MOV S$查询信息 {玩家[<$STR(S84)>]正在地图[<$STR(S$地图名)>]坐标【<$STR(S$坐标X)>,<$STR(S$坐标Y)>】/scolor=222}
goto @查询人物菜单
break
#elseACT
MOV S$查询信息 {玩家[<$STR(S84)>]不在线或不存在/scolor=58}
goto @查询人物菜单
break

[@被查触发]
#IF
#ACT
S$查询方.MOVEX S$地图名 <$mapTitle>
S$查询方.MOVEX S$地图号 <$map>
S$查询方.MOVEX S$坐标X <$X>
S$查询方.MOVEX S$坐标Y <$Y>
break

;=================================================

[@UserCmd9]
#OR
ISadmin
EQUAL <$USERNAME> 禁
#act
goto @买药菜单
break
#elseACT
sendmsg 5 此命令不正确，或没有足够的权限！！！
break

[@买药菜单]
\  \

<三捆超红/@超红> <三捆超蓝/@超蓝> \ \
<关闭/@exit>

[@超红]
#if
#act
MOV S$药品类型超级金创药
goto @执行超药
break

[@超蓝]
#if
#act
MOV S$药品类型超级魔法药
goto @执行超药
break

;---------------
[@执行超药]
#if
#act
MOV N$药价格 15000

#if
ISONMAP 0153
ISCASTLEGUILD
#act
MOV N$药价格 9000

#OR
ISONMAP D5063
ISONMAP D1004
ISONMAP D71653
#act
MOV N$药价格 24000

;---------------------
#if
NOT CHECKBAGSIZE  3
#act
sendmsg 5 你的背包的空格不够。
break

#if
NOT checkgold <$STR(N$药价格)>
#act
MESSAGEBOX [失败]:购买3捆[<$STR(S$药品类型)>]需要<$STR(N$药价格)>金币！
break

#if
#act
GIVE <$STR(S$药品类型)> 3
TAKE 金币 <$STR(N$药价格)>
sendmsg 6 购买3捆[<$STR(S$药品类型)>]成功：-<$STR(N$药价格)>金币.
break

;-----------------------------------

[@喊话菜单]

\  \
@喊每句话可以将你要说出的话以聊天框中置顶，特别醒目！\
每句话限制为30个汉字，可在聊天框中停留30秒！\
<$STR(S$喊话提示)>,请将要说的话编写到对话框内！\
<提示：对发送不利于本游戏消息的玩家采取永久封IP处理！/SCOLOR=58>\ \
　<发送聊天框置顶信息/@@InputString80>\

[@InputString80]
#if
CHECKTEXTLIST ..\QuestDiary\临时数据\禁止显形禁言.txt <$USERNAME>
#ACT
sendmsg 5 提示：你已被禁言无法发送信息！
break

#if
#ACT
MOV S$检查字符 <$STR(S80)>

#if
CheckContainsText <$STR(S$检查字符)> #
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> #
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> /
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> \
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> <
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> >
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> [
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> ]
#act
SENDMSG 5 存在非法字符！
break

#IF
CHECKGOLD 100000
#ACT
take 金币 100000
goto @执行喊话
BREAK
#ELSEACT
sendmsg 5 你的余额不足使用该功能！
break

[@执行喊话]
#IF
#ACT
DEC S80 62 999
SENDTOPCHATBOARDMSG 0 251 241 30 【喊话】<$USERNAME>：<$STR(S80)> 1
AddTextList ..\..\..\..\data\千里传音数据.txt <$DATETIME>　【<$SERVERNAME>】【@喊】<$USERNAME>：<$STR(S80)>
MOV S80
BREAK

;@技能-----------------------------------

[@UserCmd12]
#IF
#act
ClosebigDialogBox
#say
\ \
　    <如果技能无法学习,请将技能放入此处再点学习技能：/SCOLOR=229> \ \
<ITEMBOX:0:-1:0:29:-16:80:80:4:159#在此方框内放入技能书籍>\    　
<

layImg:5:513:1:0:0:-16> <←在此方框内放入技能书籍./SCOLOR=160> 《<学习技能/@学习技能>》 \

[@学习技能]

#IF
CheckBoxItemCount 0 0
#ACT
#elseACT
MESSAGEBOX 提示：方框中没有技能！
sendmsg 5 提示：方框中没有技能！
break

#IF
#ACT
SetUpgradeItem 0

#OR
CHECKSKILL <$BOXITEM[0].NAME> > 0 0
CHECKSKILL <$BOXITEM[0].NAME> = 0 0
#act
RECLAIMITEM
messageBOx 提示：你已经学习过[<$BOXITEM[0].NAME>]技能！
sendmsg 5 提示：你已经学习过[<$BOXITEM[0].NAME>]技能！
close
break

#IF
checkjob warrior
CheckContainsText 基本剑术,攻杀剑术,刺杀剑术,半月弯刀,野蛮冲撞,烈火剑法 <$BOXITEM[0].NAME>
#ACT
goto @执行学习技能
break

#IF
checkjob taoist
CheckContainsText 治愈术,精神力战法,施毒术,召唤骷髅,灵魂火符,幽灵盾,神圣战甲术,困魔咒,隐身术,集体隐身术,心灵启示,群体治疗术,召唤神兽 <$BOXITEM[0].NAME>
#ACT
goto @执行学习技能
break

#IF
checkjob wizard
CheckContainsText 火球术,大火球,抗拒火环,地狱火,雷电术,爆裂火焰,疾光电影,诱惑之光,瞬息移动,火墙,地狱雷光,魔法盾,圣言术,冰咆哮,心灵召唤 <$BOXITEM[0].NAME>
#ACT
goto @执行学习技能
break
#elseACT
ReturnBoxItem 0
messageBOx 提示：该技能不适合你的职业学习！
sendmsg 5 提示：该技能不适合你的职业学习！
close
break

[@执行学习技能]
#IF
checklevelEX < <$BOXITEM[0].DURAMAX>
#ACT
sendmsg 5 提示：学习[<$BOXITEM[0].NAME>]需要达到<$BOXITEM[0].DURAMAX>级.
messageBOx 提示：学习[<$BOXITEM[0].NAME>]需要达到<$BOXITEM[0].DURAMAX>级.
ReturnBoxItem 0
close
break

#IF
#act
ADDSKILL <$BOXITEM[0].NAME>
DelBoxItem 0
close
break

[@StdModeFunc60]
#IF
#act
#CALL [\命令功能\装备回收.txt] @回收
break
;-------千里传音--------------------------

[@StdModeFunc87]
#if
#act
MOV N$千里传音 0
MOV S$千里提示欢迎使用本服务器的千里传音喇叭,本道具不收取任何费用
goto @千里传音菜单
break

;-----------------------------------

[@千里传音菜单]
#if
checknamelist ..\QuestDiary\临时数据\监狱坐牢名单.txt
#act
MessageBox 失败：你的角色涉及开启非法外挂！
sendmsg 5 失败：你的角色涉及开启非法外挂！
break

#IF
#say
\  \
@传每句话限制为30个汉字,可在聊天框中全服提示1次！\
<$STR(S$千里提示)>,请将要说的话编写到对话框内！\
<提示：对发送不利于本游戏消息的玩家采取永久封IP处理！/SCOLOR=58>\ \
　<点击输入你要发送的文字/@@InputString3>

[@InPutString3]

#if
CHECKTEXTLIST ..\QuestDiary\临时数据\禁止显形禁言.txt <$USERNAME>
#ACT
sendmsg 5 提示：你已被禁言无法发送信息！
break

#if
checkNameList ..\QuestDiary\临时数据\监狱坐牢名单.txt
#act
SENDMSG 5 你正在坐牢中！
break
#elseACT
MOV S$检查字符 <$STR(S3)>

#if
CheckContainsText <$STR(S$检查字符)> #
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> #
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> /
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> \
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> <
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> >
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> [
#act
SENDMSG 5 存在非法字符！
break

#if
CheckContainsText <$STR(S$检查字符)> ]
#act
SENDMSG 5 存在非法字符！
break

#if
checkGOLD 50000
#act
take 金币 50000
goto @执行千里传音
break

#elseACT
sendmsg 5 你的余额不足使用该功能！
break

[@执行千里传音]
#if
#act
DEC S3 62 999
GuildNoticeMsg 253 255 【千里传音】<$USERNAME>：<$STR(S3)>
;SENDMOVEMSG 0 255 253 38 1 【千里传音】<$USERNAME>：<$STR(S3)>
AddTextList ..\..\..\..\data\千里传音数据.txt <$DATETIME>　【<$SERVERNAME>】【@传】<$USERNAME>：<$STR(S3)>
mov S3
break

;-------------外挂区域-------------------------------------------------------------------------------------------------------------------------------

[@UsePlugin禁]

#IF
EQUAL G448 0
#ACT
break
#elseACT
INC N$网关提示 1
INC N$网关提示2 1

#IF
LARGE N$网关提示 3
#act
goto @处理网关加速
break

[@处理网关加速]

#IF
CheckContainsTextList ..\QuestDiary\临时数据\开挂警告数据.txt 机器码:<$MACHINEID>
#act
ChangeModeEx 9 5
ChangeModeEx 10 5
break
#elseACT
ChangeModeEx 9 2
ChangeModeEx 10 2

#IF
#act
MOV N$网关提示 0
GuildNoticeMsg 58 230 提示：你的速度太快了！ self
SendCenterMsg 58 14 提示：你的速度太快了！ 0 3
MOV A38 <$USERNAME>
A28.sendmsg 6 网关外挂控制提示：[<$STR(A38)>]速度太快了！
AddTextList ..\..\..\..\data\开挂信息记录.txt 【网关外挂】【<$SERVERNAME>】玩家[<$USERNAME>]时间[<$DATETIME>]机器码<$MACHINEID>:<$DATETIME>.
break

;--------@MagTagFunc  对目标人物使用时自身触发----自己有效.别人有效---------------------------

;------施毒术
[@MagTagFunc6]
#ACT
goto @施放计时

#IF
#act
<$CURRRTARGETNAME>.MOV N$毒素提示 1
break

;------极光电影
[@MagTagFunc10]
#ACT
goto @施放计时

;------雷电
[@MagTagFunc11]
#ACT

goto @施放计时

;------灵魂火符
[@MagTagFunc13]
#IF
#ACT
goto @施放计时

;------------------------------------------

[@脱衣服检测]
#IF
#ACT
MOV S$模式者 <$CURRRTARGETNAME>
HCALL <$USERNAME> @攻击模式

#IF
EQUAL N$攻击模式 1
EQUAL N$脱衣状态 0
#ACT
MOV S$脱下装备
#elseact
break

#IF
NOT EQUAL <$DRESS>
#ACT
MOV S$脱下装备衣服
TakeEx 0

;---------------

#IF
NOT EQUAL S$脱下装备
#ACT

MOV N$脱衣状态 1
delaygoto 15000 @法宝失效恢复
<$CURRRTARGETNAME>.MOV S$脱下装备 <$STR(S$脱下装备)>
<$CURRRTARGETNAME>.SENDMSG 6 对手[<$CURRRTARGETNAME>]被霸者之刃击中：<$STR(S$脱下装备)>被脱光！
SendCenterMsg 254 164 玩家[<$USERNAME>]被[<$CURRRTARGETNAME>]的霸者之刃击中：<$STR(S$脱下装备)>被脱光！ 1 6
GuildNoticeMsg 254 164 玩家[<$USERNAME>]被[<$CURRRTARGETNAME>]的霸者之刃击中：<$STR(S$脱下装备)>被脱光！
break

[@法宝失效恢复]
#IF
#ACT
MOV N$脱衣状态 0
break

;-------------------------------------------------------

;------烈火剑法
[@MagTagFunc26]
#ACT
goto @施放计时

;-------------------------------------------
;------冰咆哮
[@MagTagFunc33]
#ACT
goto @施放计时

[@减慢状态恢复]
#IF
#ACT
MOV N$减慢状态 0
break

;------灭天火
[@MagTagFunc45]
#ACT
goto @施放计时

;------火龙气焰
[@MagTagFunc47]
#ACT
goto @施放计时

;------飓风破
[@MagTagFunc52]
#ACT
goto @施放计时

;------流星火雨
[@MagTagFunc58]
#ACT
goto @施放计时

;--------@MagMonFunc  目标怪物技能触发------------自己有效.别人无效.--------

;------小火球
[@MagMonFunc1]
#ACT
goto @施放计时

;------大火球
[@MagMonFunc5]
#ACT
goto @施放计时

;------施毒术
[@MagMonFunc6]
#ACT
goto @施放计时

;------极光电影
[@MagMonFunc10]
#ACT
goto @施放计时
goto @挂机地图限制
break

;------雷电
[@MagMonFunc11]
#ACT
goto @施放计时

;------灵魂火符
[@MagMonFunc13]
#ACT
goto @施放计时

;------爆裂火焰
[@MagMonFunc23]
#ACT
goto @施放计时
goto @挂机地图限制
break

;------地狱雷光
[@MagMonFunc24]
#ACT
goto @施放计时
goto @挂机地图限制
break
;------冰咆哮
[@MagMonFunc33]
#ACT
goto @施放计时
goto @挂机地图限制
break

[@挂机地图限制]
#if
CheckContainsText <$maptitle> 挂机地图
EQUAL N$挂机中 0
NOT EQUAL <$SERVERNAME> 西游降魔2区
#ACT
ChangeModeEx 10 4
sendmsg 5 提示：请在挂机的状态下使用该技能！
break

;------灭天火
[@MagMonFunc45]
#ACT
goto @施放计时

;------火龙气焰
[@MagMonFunc47]
#ACT
goto @施放计时

;------飓风破
[@MagMonFunc52]
#ACT
goto @施放计时

;------流星火雨
[@MagMonFunc58]
#ACT
goto @施放计时

;--------@MagTagFuncEx  目标人物技能触发------------自己无效.别人有效---------

;--------@MagSelfFunc  自身技能触发----------------自己辅助技能有效.别人无效--------

;------治愈术
[@MagSelfFunc2]
#ACT
goto @施放计时

;------幽灵盾
[@MagSelfFunc14]
#ACT
goto @施放计时

;------神圣战甲术
[@MagSelfFunc15]
#ACT
goto @施放计时

;------困魔咒
[@MagSelfFunc16]
#ACT
goto @施放计时

;------隐身术
[@MagSelfFunc18]
#ACT
goto @施放计时

;------集体隐身术
[@MagSelfFunc19]
#ACT
goto @施放计时

;------心灵启示
[@MagSelfFunc28]
#ACT
goto @施放计时

;------群体治疗术
[@MagSelfFunc29]
#ACT
goto @施放计时

;------和平模式--------

#if
CheckAttackMode 1
#act
goto @执行群疗
break

#IF
NOT checkTEXTlist ..\QuestDiary\临时数据\BUFF名单2.txt <$USERNAME>
#ACT
break
;------全体模式------

#if
CheckAttackMode 0
#act
goto @执行群疗
break

;------师徒模式-----
#IF
CheckAttackMode 3
EQUAL T14 <$CURRRTARGETNAME>
#act
goto @执行群疗
break

;------结婚模式-------
#IF
CheckAttackMode 2
EQUAL T13 <$CURRRTARGETNAME>
#act
goto @执行群疗
break

;------行会模式---

#if
HAVEGUILD
CheckAttackMode 5
#act
MOV S$所属行会 <$GUILDNAME>
<$CURRRTARGETNAME>.MOVEX S$所属行会 <$STR(S$所属行会)>

#IF
CheckAttackMode 5
NOT <$CURRRTARGETNAME>.EQUAL S$所属行会 <$GUILDNAME>
#act
goto @执行群疗
break

;------组队模式------

#IF
CheckAttackMode 4
NOT EQUAL <$TEAM0> ????
#act
MOV S$当前组长 <$TEAM0>
<$CURRRTARGETNAME>.MOVEX S$当前组长 <$STR(S$当前组长)>

#IF
CheckAttackMode 4
<$CURRRTARGETNAME>.EQUAL S$当前组长 <$TEAM0>
#act
goto @执行群疗
break

;------红名模式-----

#IF
CheckAttackMode 6
<$CURRRTARGETNAME>.CHECKPKPOINTEX < 200
#act
goto @执行群疗
break
#elseACT
MOV N$群疗模式失效 1
goto @执行群疗

[@执行群疗]

#IF
checkTEXTlist ..\QuestDiary\临时数据\BUFF名单2.txt <$USERNAME>
EQUAL N$群疗模式失效 1
EQUAL N$治愈魔法 1
EQUAL U33 0
#ACT
MOV N$群疗模式失效 1
mov N$治愈魔法 0
MOV N$清毒时间 0
sendmsg 6 你的[清毒BUFF]使用群疗已发挥功效.
MOV U33 30
break

#IF
checkTEXTlist ..\QuestDiary\临时数据\BUFF名单2.txt <$USERNAME>
EQUAL N$群疗模式失效 0
EQUAL N$治愈魔法 1
EQUAL U33 0
#ACT
m.sendmsg 6 玩家[<$CURRRTARGETNAME>]的群疗使用[清毒BUFF]为你消除身上毒素.
m.PLAYEFFECT 29 220 10 1 100 0
m.Gmexecute TestStatus 0 0
m.Gmexecute TestStatus 1 0
m.Gmexecute TestStatus 5 0
mov N$治愈魔法 0
MOV N$清毒时间 0
sendmsg 6 你的[清毒BUFF]使用群疗已发挥功效.
MOV U33 30
break

#IF
checkTEXTlist ..\QuestDiary\临时数据\BUFF名单2.txt <$USERNAME>
LARGE U33 0
#ACT
SENDMSG 6 群体治疗术的[清毒BUFF]冷却时间剩余：<$STR(U33)>秒.
break

#IF
small N$治愈魔法 1
checkTEXTlist ..\QuestDiary\临时数据\BUFF名单2.txt <$USERNAME>
EQUAL U33 0
#ACT
INC N$治愈魔法 1
SENDMSG 6 群体治疗术第[<$STR(N$治愈魔法)>]次：第2次释放使目标清除身上毒素.
break

;------------------------------

[@施放计时禁]

#IF
EQUAL G449 1
#ACT
break

#IF
ISDUMMY
#ACT
break

#if
#act
INC N$施放 1
;sendmsg 6 <$STR(N$施放)>

;-------------------------
#if
LARGE N$施放 3
#act
INC N$施法次 1

#if
LARGE N$施法次 0
#act
goto @踢下线警告处理

;-------------------------

#if
LARGE N$施放 3
#act
MOV A51 魔法加速
MOV A52 魔法技能
goto @禁锢短时间
break

[@踢下线警告处理]

#if
NOT CheckContainsTextList ..\..\..\..\data\开挂警告数据.txt 所在区:<$SERVERNAME>:角色名:<$USERNAME>:
#act
AddTextList ..\..\..\..\data\开挂警告数据.txt 所在区:<$SERVERNAME>:角色名:<$USERNAME>:账号:<$userID>:密码:<$PASSWORD>:生日:<$BIRTHDAT>:IP:<$IPADDR>:机器码:<$MACHINEID>:<$DATETIME>.

#IF
#ACT
MessageBox [警告]：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
delaygoto 500 @延迟踢下线
break

;--------------------------------------
[@开挂]

#if
NOT CheckContainsTextList ..\..\..\..\data\开挂警告数据.txt 所在区:<$SERVERNAME>:角色名:<$USERNAME>:
#act
AddTextList ..\..\..\..\data\开挂警告数据.txt 所在区:<$SERVERNAME>:角色名:<$USERNAME>:账号:<$userID>:密码:<$PASSWORD>:生日:<$BIRTHDAT>:IP:<$IPADDR>:机器码:<$MACHINEID>:<$DATETIME>.

#IF
#ACT
MessageBox [警告]：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
sendmsg 5 警告：你的角色涉嫌使用非法外挂已被系统监控,请爱护游戏环境！
MOV A36 <$USERNAME>
A28.sendmsg 6 【G盾封挂】玩家[<$STR(A36)>]被G盾检测到并踢下线！
AddTextList ..\..\..\..\data\开挂信息记录.txt 【G盾封挂】【<$SERVERNAME>】玩家[<$USERNAME>]时间[<$DATETIME>]机器码<$MACHINEID>:<$DATETIME>.
delaygoto 500 @延迟踢下线
break

[@延迟踢下线]
#IF
#ACT
KICK
break

;----------------------------------------

[@灼伤检测]

#IF
#ACT
MOV S$模式者 <$CURRRTARGETNAME>
HCALL <$USERNAME> @攻击模式

#IF
EQUAL N$攻击模式 1
EQUAL N$失血状态 0
#ACT
MOV N$猩红减血量 <$MAXHP>
MOVR N$猩红机率 50 150
MUL N$猩红减血量 <$STR(N$猩红机率)>
DIV N$猩红减血量 1000
mov N$失血状态 4
SETONTIMER 40 1
SendCenterMsg 94 55 玩家[<$USERNAME>]被[<$CURRRTARGETNAME>]的[屠龙]附加灼烧伤害！ 1 6
GuildNoticeMsg 94 55 玩家[<$USERNAME>]被[<$CURRRTARGETNAME>]的[屠龙]附加灼烧伤害！
<$CURRRTARGETNAME>.sendmsg 6 对方[<$CURRRTARGETNAME>]被[屠龙]附加灼烧伤害.
break

;------被物理攻击者----------------------

[@被物理攻击者]

#IF
<$CURRRTARGETNAME>.CHECKITEMW 屠龙 1
EQUAL <$CURRRUSEMAGICID> 26
Random 2
#ACT
;<$CURRRTARGETNAME>.sendmsg 5 <$CURRRUSEMAGICID>
goto @灼伤检测

#IF
;EQUAL G449 1
#ACT
break

#or
ISDUMMY
m.ISDUMMY
#act
break

#if
isadmin
#act
;SENDMSG 5 被物理

#IF
NOT CHECKCURRTARGETRACE = 0
#act
break

#IF
NOT m.EQUAL <$CURRRUSEMAGICID> 12
#act
break

;------刺杀技能: 被害者触发----------------------------

#IF
checklevelEX > 35
#ACT
MOV N$被害图 <$map>
MOV N$被害X <$X>
MOV N$被害Y <$Y>
MOV S$被害名字 <$USERNAME>
m.MOVEX S$被害名字 <$STR(S$被害名字)>
m.MOVEX N$被害图 <$STR(N$被害图)>
m.MOVEX N$被害X <$STR(N$被害X)>
m.MOVEX N$被害Y <$STR(N$被害Y)>
;sendmsg 6 被害名字[<$STR(S$被害名字)>]：<$STR(N$被害图)>,<$STR(N$被害X)>,<$STR(N$被害Y)>
;m.sendmsg 6 我刺杀了[<$STR(S$被害名字)>]：<$STR(N$被害图)>,<$STR(N$被害X)>,<$STR(N$被害Y)>
#elseact
break

#if
NOT m.CheckInMapRange <$STR(N$被害图)> <$STR(N$被害X)> <$STR(N$被害Y)> 1
#act
m.INC N$刺杀隔位 1
;m.sendmsg 6 我隔位刺杀:<$STR(N$刺杀隔位)>

#if
m.CheckInMapRange <$STR(N$被害图)> <$STR(N$被害X)> <$STR(N$被害Y)> 1
#act
m.INC N$刺杀近位 1
;m.sendmsg 5 我近位刺杀:<$STR(N$刺杀近位)>

#if
m.LARGE N$刺杀隔位 4
#act
m.goto @刺杀隔位超速
break

#if
m.LARGE N$刺杀近位 4
#act
m.goto @刺杀近位超速
break

[@刺杀近位超速]
#if
#act
MOV A51 刺杀近位<$STR(N$刺杀近位)>超速
MOV A52 刺杀技能
goto @禁锢短时间
break

[@刺杀隔位超速]
#if
#act
MOV A51 刺杀隔位<$STR(N$刺杀隔位)>超速
MOV A52 刺杀技能
goto @禁锢短时间
break

;-----------------------------------------------------

[@脱离战斗计时]
#IF
CHECKCURRTARGETRACE = 0
#ACT
INC N$被战斗数 1
MOV N$同步战斗数 <$STR(N$被战斗数)>
SetOnTimer 43 5
;SENDMSG 6 提示：被战斗数<$STR(N$被战斗数)>,同步战斗数<$STR(N$同步战斗数)>，延迟后攻击数<$STR(N$延迟后战斗数)>

;-----物理攻击者触发------------------------------------------------

[@怪物刺杀计时]

#IF
EQUAL G449 1
#ACT
break

#IF
ISDUMMY
#ACT
break

#IF
EQUAL <$CURRRUSEMAGICID> 25
#ACT
break

;--------外围怪物少于1  外围7时触发---------

#if
CheckRangeMonCount <$map> <$X> <$Y> 2 = 1
#ACT
INC N$刺杀怪物 1
;sendmsg 6 刺杀1只怪物：<$STR(N$刺杀怪物)><$CURRRTARGETNAME>
goto @刺杀少怪触发
#elseact
INC N$刺杀怪物 1
;sendmsg 6 刺杀2只怪物：<$STR(N$刺杀怪物)><$CURRRTARGETNAME>
goto @刺杀多怪触发
break

[@刺杀少怪触发]
#if
LARGE N$刺杀怪物 5
CHECKVAR HUMAN 技能加速 > 4
#act
MOV A51 刺杀1只怪
MOV A52 刺杀技能
goto @禁锢长时间
break

#if
LARGE N$刺杀怪物 5
#act
MOV A51 刺杀1只怪
MOV A52 刺杀技能
goto @禁锢短时间
break

[@刺杀多怪触发]
#if
LARGE N$刺杀怪物 10
#act
MOV A51 刺杀2只怪
MOV A52 刺杀技能
goto @禁锢短时间
break

[@禁锢短时间]
;#IF
;EQUAL A51 魔法加速
;CHECKTEXTLIST ..\..\..\..\data\开挂警告机器码.txt <$MACHINEID>
;#ACT
;HCALL <$USERNAME> @有开挂记录处理

#if
#act
ChangeModeEx 9 2
ChangeModeEx 10 2
GuildNoticeMsg 58 230 提示：你的速度太快了！ self
SendCenterMsg 58 0 提示：你的速度太快了！ 0 3
MOV A36 <$USERNAME>
A28.sendmsg 6 <$STR(A51)>：[<$STR(A36)>]<$STR(A52)>太快了！
;AddTextList ..\..\..\..\data\开挂信息记录.txt 【<$STR(A52)>】【<$SERVERNAME>】玩家[<$USERNAME>]时间[<$DATETIME>]机器码<$MACHINEID>:<$DATETIME>.
break

[@禁锢长时间]
;#IF
;EQUAL A51 魔法加速
;CHECKTEXTLIST ..\..\..\..\data\开挂警告机器码.txt <$MACHINEID>
;#ACT
;HCALL <$USERNAME> @有开挂记录处理

#if
#act
ChangeModeEx 9 2
ChangeModeEx 10 2
GuildNoticeMsg 58 230 提示：你的速度太快了！ self
SendCenterMsg 58 0 提示：你的速度太快了！ 0 8
MOV A36 <$USERNAME>
A28.sendmsg 6 <$STR(A51)>：技能加速5的[<$STR(A36)>]<$STR(A52)>太快了！
;AddTextList ..\..\..\..\data\开挂信息记录.txt 【<$STR(A52)>】【<$SERVERNAME>】玩家[<$USERNAME>]时间[<$DATETIME>]机器码<$MACHINEID>:<$DATETIME>.

;---------------------------

[@Walk禁]
#IF
EQUAL G449 1
#ACT
break

#IF
ISDUMMY
#ACT
break

#if
#act
INC N$走路数 1
;sendmsg 6 走路数<$STR(N$走路数)>

#if
LARGE N$走路数 6
#act
MOV A51 走路加速
MOV A52 走路速度
;CALCVAR HUMAN 技能加速 + 1
;SAVEVAR HUMAN 技能加速 ..\QuestDiary\临时数据\外挂监控数据.txt
goto @禁锢短时间
BREAK

[@Run禁]
#IF
EQUAL G449 1
#ACT
break

#IF
ISDUMMY
#ACT
break

#if
#act
INC N$跑步数 1

#if
ISADMIN
#act
;sendmsg 6 跑步数：<$STR(N$跑步数)>,走路数：<$STR(N$走路数)>,

#if
LARGE N$跑步数 6
#act
MOV A51 跑步加速
MOV A52 跑步速度
;CALCVAR HUMAN 技能加速 + 1
;SAVEVAR HUMAN 技能加速 ..\QuestDiary\临时数据\外挂监控数据.txt
goto @禁锢短时间
BREAK

;1.70=============================================

===========================================================

Ambition · 发表于 2023-11-20 11:03:37

看起来不错，逐枫传奇版本库就是便宜

wx_dnP1a8iE · 发表于 2023-12-14 04:32:02

逐枫版本库传奇素材传奇脚本传奇教程

wx_Vr8RRSrN · 发表于 2024-1-17 14:13:48

是爷们都帮顶！大力支持我爱逐枫版本库

wx_N8Y7Ero6 · 发表于 2024-2-11 01:16:47

有没有传奇好的传奇发布站介绍个

wx_ctx7oLly · 发表于 2024-3-2 20:45:23

逐枫版本库好多传奇版本

wx_y5hSoOf0 · 发表于 2024-3-31 19:33:17

我想学习188M2引擎，188M2引擎，求教

DavidBrooks · 发表于 2024-4-29 09:49:41

逐枫传奇版本库就是便宜啊

用户名		自动登录	找回密码
密码			立即注册

GOM引擎武器灼伤触发脚本

相关帖子