从其他玩家身上获取属性加成的脚本

QF：

[@USERCMD5]
#IF
EQUAL U57 0
#ACT
MOV U57 1
SENDMSG 6 你开启了【楔】开关！
#ELSEACT
MOV U57 0
SENDMSG 6 你关闭了【楔】开关！



[@USERCMD4]
#IF
NOT CHECKITEMW 楔
#ACT
MESSAGEBOX 你没有【楔】!
BREAK

#IF
NOT EQUAL T19
#ACT
MESSAGEBOX 你已【楔】过他人了！
BREAK

#IF
#ACT
MOV S$楔用户输入参数 <$PARAM(1)>

#IF
EQUAL S$楔用户输入参数
#ACT
MESSAGEBOX 请输入你想要【楔】的玩家姓名！
BREAK

#IF
NOT CHECKONLINE <$STR(S$楔用户输入参数)>
#ACT
MESSAGEBOX 该玩家目前不在线！
BREAK

#IF
#ACT
GetHumVar <$STR(S$楔用户输入参数)> <$STR(U56)> N$对象被楔次数

#IF
LARGE N$对象被楔次数 0
#ACT
MESSAGEBOX 该玩家已被【楔】过了！
BREAK

#IF
#ACT
GetHumVar <$STR(S$楔用户输入参数)> <$STR(U57)> N$对象被楔开关

#IF
EQUAL N$对象被楔开关 0
#ACT
MESSAGEBOX 该玩家不允许被【楔】！
BREAK

#IF
#ACT
MOV T19 <$STR(S$楔用户输入参数)>
MOV N$对象被楔次数 1
SetHumVar <$STR(S$楔用户输入参数)> <$STR(U56)> <$STR(N$对象被楔次数)>
GuildNoticeMsg 244 0 {[公告]|250:0}{『<$USERNAME>』|245:0}{选择了|251:0}{[<$STR(S$楔用户输入参数)>]|254:0}{作为他的|251:0}{[楔]|254:0}{,他现在可以借用楔的力量了|251:0}


[@TAKEONEX]
#IF
#ACT

MOV N$楔加攻击 0
MOV N$楔加魔法 0
MOV N$楔加道术 0



#IF
NOT EQUAL T19
CHECKITEMW 楔
#ACT
GOTO @_@获取楔的属性



[@_@获取楔的属性]
#IF
NOT CHECKONLINE <$STR(T19)>
#ACT
SENDMSG 6 你的【楔】不在线，你没有属性获取！
BREAK

#IF
<$STR(T19)>.CHECKJOB Warrior
#ACT
<$STR(T19)>.GetObjectAbilityEx  9 N$楔对象攻击上限
GetHumVar <$STR(T19)> <$STR(N$楔对象攻击上限)> N$获取楔对象攻击上限

#IF
<$STR(T19)>.CHECKJOB Taoist
#ACT
<$STR(T19)>.GetObjectAbilityEx  13 N$楔对象攻击上限
GetHumVar <$STR(T19)> <$STR(N$楔对象攻击上限)> N$获取楔对象攻击上限

#IF
<$STR(T19)>.CHECKJOB Wizard
#ACT
<$STR(T19)>.GetObjectAbilityEx  11 N$楔对象攻击上限
GetHumVar <$STR(T19)> <$STR(N$楔对象攻击上限)> N$获取楔对象攻击上限

#IF
CHECKJOB Warrior
#ACT
CalcPercent <$STR(N$获取楔对象攻击上限)> 3 N$楔加攻击
SENDMSG 6 你从你的楔对象【<$STR(T19)>】处借用到了<$STR(N$楔加攻击)>点主属性

#IF
CHECKJOB Taoist
#ACT
CalcPercent <$STR(N$获取楔对象攻击上限)> 3 N$楔加道术
SENDMSG 6 你从你的楔对象【<$STR(T19)>】处借用到了<$STR(N$楔加道术)>点主属性

#IF
CHECKJOB Wizard
#ACT
CalcPercent <$STR(N$获取楔对象攻击上限)> 3 N$楔加魔法
SENDMSG 6 你从你的楔对象【<$STR(T19)>】处借用到了<$STR(N$楔加魔法)>点主属性