战神引擎开发手册 升级触发

说明：
角色每次升级将会触发 D:\mud2.0\Mir200\Envir\PsMapQuest\RunQuest.pas 文件中的 PlayerExpLevelUp()方法

procedure PlayerExpLevelUp();
var
iLev : integer;
begin
iLev := This_Player.Level;

case iLev of
7:
begin

           case This_Player.Job of
0 :
begin
This_Player.Give(‘基本剑术’,1);
end;
1 :
begin
This_Player.Give(‘火球术’,1);
This_Player.GiveBindItem(‘魔血石(小)’,1);
end;
2 :
begin

This_Player.Give(‘治愈术’,1);
This_Player.Give(‘精神力战法’,1);
end;
end;
end;
15:
begin
case This_Player.Job of
0 :
begin
This_Player.Give(‘八荒’,1);
This_Player.Give(‘攻杀剑术’,1);
if This_Player.Gender = 0 then
This_Player.Give(‘中型盔甲(男)’,1)
else
This_Player.Give(‘中型盔甲(女)’,1);
end;
1 :
begin
This_Player.Give(‘海魂’,1);
This_Player.Give(‘雷电术’,1);
if This_Player.Gender = 0 then
This_Player.Give(‘中型盔甲(男)’,1)
else
This_Player.Give(‘中型盔甲(女)’,1);
end;
2 :
begin
This_Player.Give(‘半月’,1);
This_Player.Give(‘灵魂火符’,1);
if This_Player.Gender = 0 then
This_Player.Give(‘中型盔甲(男)’,1)
else
This_Player.Give(‘中型盔甲(女)’,1);
end;
end;
end;
end;
end;

begin

end.

改文件入口函数为空，对应方法程序会直接调用

该文件中不可以使用This_NPC对象调用接口，只能使用This_Player对象调用

角色每次登录聊天框都会显示“欢迎登陆战神传奇”