新手免费领取虎卫宝宝Npc脚本

用于战神引擎的新手玩家免费领取虎卫宝宝Npc脚本，支持三职业，无条件领取，输入99999验证码就行，脚本是明文版的，领取码可以任意修改，领取的宝宝也可以任意修改，脚本牵扯到了taozhuang文件，需要单独提取在增加，不能直接覆盖使用。

新手免费领取虎卫宝宝Npc脚本

部分脚本

           {
*******************************************************************}
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.

分享到：

赞(0)