[size=18.018px]说明:
角色每次升级将会触发 D:\mud2.0\Mir200\Envir\PsMapQuest\RunQuest.pas 文件中的 PlayerExpLevelUp()方法 [size=18.018px]procedure PlayerExpLevelUp();
var
iLev : integer;
begin
iLev := This_Player.Level;
case iLev of
7:
begin [size=18.018px] 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;
[size=18.018px]begin
[size=18.018px]end.
[size=18.018px]改文件入口函数为空,对应方法程序会直接调用 [size=18.018px]该文件中不可以使用This_NPC对象调用接口,只能使用This_Player对象调用
[size=18.018px]角色每次登录聊天框都会显示“欢迎登陆战神传奇”
|