战神引擎3.0自定义英雄npc动态面板脚本

部分脚本

program mir2;
{$I MSG.pas}
procedure _exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _doexit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _CJNZS1;//男战士
begin
   This_Player.SetV(12,3,1);
   This_Npc.InputDialog(This_Player,'请输入英雄的名字：',0,101);
end;
procedure _CJFS1;//男法师
begin
   This_Player.SetV(12,3,2);
   This_Npc.InputDialog(This_Player,'请输入英雄的名字：',0,101);
end;
procedure _CJDS1;//男道士
begin
   This_Player.SetV(12,3,3);
   This_Npc.InputDialog(This_Player,'请输入英雄的名字：',0,101);
end;
procedure _CJZS2;//女战士
begin
   This_Player.SetV(12,3,4);
   This_Npc.InputDialog(This_Player,'请输入英雄的名字：',0,101);
end;
procedure _CJFS2;//女法师
begin
   This_Player.SetV(12,3,5);
   This_Npc.InputDialog(This_Player,'请输入英雄的名字：',0,101);
end;
procedure _CJDS2;//女道士
begin
   This_Player.SetV(12,3,6);
   This_Npc.InputDialog(This_Player,'请输入英雄的名字：',0,101);
end;
Procedure p101;
var
j : integer;