传奇服务端复活术技能脚本

gmbbs醉后知酒浓 · 发表于 2018-9-13 16:21:18

QManage.txt
[@login]
#IF
CHECKLEVELEX > 0
#act
#CALL [魔法技艺.txt] @CHECKMF

[@CHECKMF]
{
#IF
checkjob warrior
#act
DELUSERDATE  ..\QuestDiary\数据文件\技艺魔法\复生术.txt
#IF
checkjob wizard
#act
DELUSERDATE  ..\QuestDiary\数据文件\技艺魔法\复生术.txt
#IF
CHECKUSERDATE ..\QuestDiary\数据文件\技艺魔法\复生术.txt < 30 p1 p2
#act
sendmsg 6 〖提醒〗复生术技艺剩余<$STR(p2)>天
#elseact
DELUSERDATE  ..\QuestDiary\数据文件\技艺魔法\复生术.txt
Delskill 复生术
#IF
#ACT
DELNOJOBSKILL
}
[@技艺魔法]
{
按照魔法技艺类型每学习一次技艺的有用期在30天。\
您目前声望值：<$CREDITPOINT>，能否计划学习新技艺呢？\ \
武士新技艺  <彻地钉/@学习彻地钉> \
法师新技艺  <群体雷电术/@学习群体雷电术>  <寒冰掌/@学习寒冰掌>  <灭天火/@学习灭天火>\
道士新技艺  <群体施毒术/@学习群体施毒术>  <气功波/@学习顺从气功波>  <解毒术/@学习解毒术>  <解毒术/@学习复生术>\ \
<前往[url=]/@main[/url]>

[@学习复生术]
复生术：能够赐予去世的人物原地复生的时机，\
成功概率率与修炼等级及人物等级有关。\
有用时刻：30天\
学习要求：道士等级到达80级，10000元宝。\
<确定学习/@学习复生术1>\ \
<前往/@技艺魔法>
[@学习复生术1]
#IF
CheckMagicName 复生术
#act
MESSAGEBOX 您已然修炼过此技艺魔法！！！
break
#IF
checklevel 80
checkjob  taoist
ISADMIN
#act
ADDSKILL 复生术 3
ADDUSERDATE ..\QuestDiary\数据文件\技艺魔法\复生术.txt
MESSAGEBOX <$USERNAME>的复生术技艺修炼成功！！！
#IF
CHECKGAMEGOLD < 10000
#act
MESSAGEBOX 元宝不够！！！
break
#IF
checklevel 80
checkjob  taoist
CHECKGAMEGOLD > 9999
#act
GAMEGOLD - 10000
ADDSKILL 复生术 3
ADDUSERDATE ..\QuestDiary\数据文件\技艺魔法\复生术.txt
MESSAGEBOX <$USERNAME>的复生术技艺修炼成功！！！
#IF
CHECKUSERDATE ..\QuestDiary\数据文件\技艺魔法\复生术.txt < 30 p1 p2
#act
ADDSKILL 复生术 3
MESSAGEBOX <$USERNAME>的复生术技艺剩余：<$STR(p2)>天
break
#elseact
MESSAGEBOX <$USERNAME>的复生术技艺修炼失败！！！
}
QFunction-0.txt

[@PlayDie]
#if
CHECKLEVELEX > 0
#act
mov D3 1
[@MagTagFunc100]
#if
EQUAL D3 0
#act
break
#if
random 2
#act
break
#if
#SAY
你的灵魂已然归窍...\ \
复生后你的HP血量很底，请留意平安！！！\ \
<目前地位复生[url=]/@MagTagFunc100MAP[/url]> \ \
<主动回城复生[url=]/@MagTagFunc100hc[/url]>
[@MagTagFunc100hc]
#act
SENDMSG 5 正在复生中...
mapmove 3 330 330
DELAYGOTO 1000 @MagTagFunc100OK
[@MagTagFunc100MAP]
#act
SENDMSG 5 正在复生中...
DELAYGOTO 3000 @MagTagFunc100OK
[@MagTagFunc100OK]
#if
EQUAL D3 1
#act
mov D3 0
gmExeCute 复生 Self
#if
checkjob warrior
#act
HUMANHP = 1500
HUMANMP = 300
#if
checkjob wizard
#act
HUMANHP = 300
HUMANMP = 1500
#if
checkjob taoist
#act
HUMANHP = 1200
HUMANMP = 1200
#IF
CHECKUSEITEM 1
#ACT
give 回城卷 1