战神引擎三职业申请天下第一自定义Npc脚本

用于战神引擎三职业申请天下第一自定义Npc脚本，之前看到许多申请天下第一的脚本都是传统版，今天帮主看到的这个是带大对话框，自定义的，帮主把脚本文件，属性文件，素材文件、补丁文件，全部提取出来了，NPC里面的读取的是创建角色里面的素材，默认客户端data文件夹里面就能找到chrsel.zip，如果没有，把帮主压缩在脚本里面的这份补丁放进去。

部分脚本

PROGRAM Mir2;
{$I commonjob.pas}
{$I GJSX.pas}
{$I fenghao.pas}
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
function GetjobNum(job : integer) : string;
begin
    case job of
        1 : result := '战士';
        2 : result := '法师';
        3 : result := '道士';		
    end;
end;
function GetSEXNum(job : integer) : string;
begin
    case job of
        1 : result := '男';
        2 : result := '女';
    end;
end;
function GetDYFHNum(job : integer) :integer;
begin
    case job of
        1 : result := 22;
        2 : result := 23;
        3 : result := 24;
        4 : result := 25;		
        5 : result := 26;
        6 : result := 27;
    end;
end; 
procedure _domain(str:string);
var zsname, zsleve, zshui, shenqing, Equip, EquipDiy, Return:string; i, nums:integer; 
begin
nums := StrToIntDef(str,0);                          //转类型
Equip:='';
if This_Player.Gender = (nums-1) then
begin
case This_Player.Job of
    0 : 
   begin
    shenqing:= '1:RBtn:txdy:38@39:130:436:申请@sqdy:18:161|';
   end;
    1 : 
   begin
    shenqing:= '1:RBtn:txdy:38@39:421:436:申请@sqdy:18:161|';
   end;
    2 : 
   begin
    shenqing:= '1:RBtn:txdy:38@39:686:436:申请@sqdy:18:161|';
   end; 
end; 
end; 
Equip:= Equip + shenqing;
begin  
for i:= 1 to 3 do
begin

分享到：

赞(0)