传奇3随身NPC功能添加

;传奇3(VR1.45)插件脚本示范
;随身NPC
;
;请在EnvirMarket_Def0Default.txt 中增加 [@_Player] [@_Die] [@_LevelUp] [@_EveryDay] 脚本节
[@随身NPC]
{
#IF
#SAY
<$USERNAME> 我是随身NPC，你好。下面是你的一些信息：
您的IP：{FCOLOR/10}<$IPADDR>{FCOLOR/12}
转生：{FCOLOR/10}<$NEWREGTIME>{FCOLOR/12}
积分：{FCOLOR/10}<$NEWJFPOINT>{FCOLOR/12}
点卷：{FCOLOR/10}<$NEWDJPOINT>{FCOLOR/12}
师傅：{FCOLOR/10}<$MASTERNAME>{FCOLOR/12}
登陆日期：{FCOLOR/10}<$LOGINDATE>{FCOLOR/12}
登陆时间：{FCOLOR/10}<$LOGINTIME>{FCOLOR/12}\
本人提供 <特殊服务/@随身服务>。

[@随身服务]
#SAY
<删除包裹全部物品/@deletebag>
<买药品/@药水类+>
<取物品/@GetBack>
<存物品/@Storage>
<一键特修(免费）/@1keytexiu>\
<返 回/@随身NPC>

[@药水类+]
#SAY
=物品名称===========价格=
<金创药（小）        [88]/@@goumaiy(金创药（小）,88)>
<魔法药（小）        [88]/@@goumaiy(魔法药（小）,88)>
<金创药（中）        [220]/@@goumaiy(金创药（中）,220)>
<魔法药（中）        [220]/@@goumaiy(魔法药（中）,220)>
<金创药（大）        [550]/@@goumaiy(金创药（大）,550)>
<魔法药（大）        [550]/@@goumaiy(魔法药（大）,550)>
<金创药（特）        [875]/@@goumaiy(金创药（特）,1375)>
<魔法药（特）        [875]/@@goumaiy(魔法药（特）,1375)>
<太阳水              [1880]/@@goumaiy(太阳水,1880)>
<强效太阳水          [2500]/@@goumaiy(强效太阳水,2500)>
<万年雪霜            [3000]/@@goumaiy(万年雪霜,1000)>
<自然神水（中）     [22000]/@@goumaiy(自然神水（中）,22000)>
<攻击神水（中）     [22000]/@@goumaiy(攻击神水（中）,22000)>
<疾风神水（中）     [22000]/@@goumaiy(疾风神水（中）,22000)>
<体力强效神水（中）     [22000]/@@goumaiy(体力强效神水（中）,22000)>
<魔力强效神水（中）     [22000]/@@goumaiy(魔力强效神水（中）,22000)>\
<返 回/@随身NPC>

[@@goumaiy()]
#ACT
mov  D4  %INPUTNUM
Mov        A3     %ARG(1)           ;;物品
Mov        D5     %ARG(2)           ;;金钱
MOV P1 %D5
MOV P2 %D4
MUL P1 P2
MOV D1 %P9
#IF
Small D4 1
#ACT
SYSMSG "你输入的数值有误!"
break
#IF
Large D4 200
#ACT
SYSMSG "数值不能超过200个!"
break
#IF
ESMALL D4 200
ELARGE D4 1
checkbaggage
checkgold   %D2
#ACT
give   %A3  %D4
take  金币  %D1
#ELSEACT
SYSMSG "你的金币不足!或者包袱已满"

[@死亡通知]
#SAY
你已经死亡，请选择：\
<安全区复活/@安全区复活>
#ELSEACT
SysMsg "你死了。"

[@安全区复活]
#ACT
TIMERECALLEX @返回安全区 3
SysMsg "将在3秒后复活.."
[@返回安全区]
#ACT
RELIFE 1

[@原地复活1]
#IF
CHECKJFPOINT 20
#ACT
SUBJFPOINT 20
RELIFE

[@升级]
#IF
CheckLevel  45
CHECKMASTER > 1
#ACT
DELSTUDENT
SysMsg "你艺满出师了。"
#ELSESAY
你升级了。

[@怪物攻城]
;;触发怪物攻城
;;假设该玩家在道观，下列脚本将触发怪物向 道观 406 123处发起攻击
#ACT
mov d0 5000000
#IF
CheckGold %d0
#ACT
take 金币 %d0
;;将自己移动到道馆
MapMove 1 406 123
;;设置怪物攻击地点，等价于GM执行命令 @任务 406 123
Execute  任务 406 123
;;产生2只黑野猪，等价于GM执行命令 @产怪地点 420 168 黑野猪 2
Execute  产怪地点 420 168 黑野猪_2
;;产生3只白野猪，等价于GM执行命令 @产怪地点 420 168 白野猪 3
Execute  产怪地点 420 168 白野猪_3
#SAY
你申请了怪物攻城。
#ELSESAY
你没有 <$OUTPUT(d0)> 金币，无法申请。

[@deletebag]
#ACT
TAKEALL
#SAY
已经清理完毕。\
<返 回/@随身NPC>

[@GetBack]
#SAY
看看你需要拿些什么东西。\
<返 回/@随身NPC>
[@Storage]
#SAY
看看你需要保存些什么。\
<返 回/@随身NPC>

[@1keytexiu]
#IF
CheckGold 20000
#ACT
TAKE 金币 20000
RepairItem 0
RepairItem 1
RepairItem 3
RepairItem 4
RepairItem 5
RepairItem 6
RepairItem 7
RepairItem 8
RepairItem 10
#SAY
修理完毕.\
<返 回/@随身NPC>
#ELSESAY
{FCOLOR/10}<$USERNAME>{FCOLOR/12}
所备现金不足,无法进行{FCOLOR/1} 全身装备修理 {FCOLOR/12}!\
<返 回/@随身NPC>
}