用于战神引擎的新手玩家免费领取虎卫宝宝Npc脚本，支持三职业，无条件领取，输入99999验证码就行，脚本是明文版的，领取码可以任意修改，领取的宝宝也可以任意修改，脚本牵扯到了taozhuang文件，需要单独提取在增加，不能直接覆盖使用。
部分脚本
{
*******************************************************************}
program Mir2;
{$I TaoZhuang.pas}
var
shuru : string;
procedure xianshi;
begin
This_Npc.NpcDialog(This_Player,
'输入并验证邀请码可获得一只<新手宝宝/SCOLOR=254>。'
+'|请输入邀请码: <99999 /SCOLOR=250>'
+'|您输入的邀请码: <'+shuru+'/c=red>'
+'|{cmd}<输入邀请码/@Dailima>\'
+'|{cmd}<确定/@queding>\'
+'||{cmd}<我不需要新手宝宝,送我出去！/@queding2>\'
);
end;
procedure _exit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _Dailima;
begin
This_Npc.InputDialog(This_Player, '请输入邀请码', 0, 203);
end;
procedure p203;
begin
if This_Npc.InputOK then
begin
shuru := This_Npc.InputStr;
xianshi;
end;
end;
procedure _ValidateActive;
var StorageNum_b , StorageNum_N : integer;
begin
if This_Player.ActiveAuthen(1,100) = 1 then
begin
StorageNum_N := This_Player.GetStorageSpaceCount;
This_Player.ExpandStorageSpace(StorageNum_b + 24 - StorageNum_N);
end;
end;
end;
end;
procedure _queding2;
var
StorageNum_b , StorageNum_N,i :integer;
begin
This_Player.SetS(25,1,1);
This_Player.Flyto('0',331 + random(3),262 + random(3));
This_Player.IncActivePoint(200);
if This_Player.CheckAuthen(1,100) = false then
if This_Player.ActiveAuthen(1,100) = 1 then
begin
StorageNum_N := This_Player.GetStorageSpaceCount;
This_Player.ExpandStorageSpace(StorageNum_b + 24 - StorageNum_N);
end;
end;
end;
end;
procedure _queding;
begin
if This_NPC.ChkStrInFile('\Agent\agentlist.txt',shuru)=true then
begin
if This_NPC.AddStrToFile('\Agent\agentchrname.txt',This_Player.Name+' '+shuru)=true then
begin
This_Player.SetS(25,1,1);
This_Player.PlayerNotice('邀请码已验证通过！',2);
This_Player.Flyto('0',331 + random(3),274 + random(3));
This_Player.MakeSlaveEx('新手宝宝' , 1 ,0);
This_Player.IncActivePoint(200);
if This_Player.CheckAuthen(1,100) = false then
begin
if This_Player.GetActivePoint + This_Player.GetTmpActivePoint >= 0 then
begin
end;
end;
end;
end;
end else
begin
This_NPC.NpcDialog(This_Player,'邀请码输入错误！\\');
end;
end;
begin
TZJH_NPC;
shuru := '当前还未输入邀请码';
xianshi;
end.