|
|
[mw_shl_code=delphi,true]program mir2;
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
This_NPC.NpcDialog(This_Player,
+'|尊敬的勇士欢迎来到转职神殿！\'
+'|你确定要转职吗?！\'
+'|注意:转职后所以技能需要重新修炼?！\'
+'|转职要求:需要等级10级,5万元宝， \'
+'|<转职完后请小退，然后会回到土城>！\'
+'|\'
+'|<转职战士/@zhanshi> ^<转职道士/@daoshi> ^<转职法师/@fashi>\'
+'|\'
);
end;
procedure _daoshi;
begin
This_NPC.NpcDialog(This_Player,
+'|尊敬的勇士你你确定要转职吗?！\'
+'|注意:转职后所以技能需要重新修炼?！\'
+'| \'
+'|<确定转职道士/@daoshi1> ！\ \'
+'|<转职完后请小退，然后会回到土城>！\ \'
+'|<友情提示:记得把布局恢复默认哦>！\'
);
end;
procedure _fashi;
begin
This_NPC.NpcDialog(This_Player,
+'|尊敬的勇士你你确定要转职吗?！\'
+'|注意:转职后所以技能需要重新修炼?！\'
+'| \'
+'|<确定转职法师/@fashi1> ！\ \'
+'|<转职完后请小退，然后会回到土城>！\'
+'|<友情提示:记得把布局恢复默认哦>！\'
);
end;
procedure _zhanshi;
begin
This_NPC.NpcDialog(This_Player,
+'|尊敬的勇士你你确定要转职吗?！\'
+'|注意:转职后所以技能需要重新修炼?！\'
+'| \'
+'|<确定转职战士/@zhanshi1> ！\ \'
+'|<转职完后请小退，然后会回到土城>！\'
+'|<友情提示:记得把布局恢复默认哦>！\'
);
end;
procedure _daoshi1;
begin
if (This_Player.Level >= 10) and (This_Player.YBnum >= 5) then
begin
if( This_Player.Job = 1)or (This_Player.Job = 0 )then
begin
This_Player.deleteskill('火球术');
This_Player.deleteskill('大火球');
This_Player.deleteskill('抗拒火环');
This_Player.deleteskill('地狱火');
This_Player.deleteskill('疾光电影');
This_Player.deleteskill('雷电术');
This_Player.deleteskill('诱惑之光');
This_Player.deleteskill('瞬息移动');
This_Player.deleteskill('火墙');
This_Player.deleteskill('爆裂火焰');
This_Player.deleteskill('地狱雷光');
This_Player.deleteskill('魔法盾');
This_Player.deleteskill('圣言术');
This_Player.deleteskill('冰咆哮');
This_Player.deleteskill('灭天火');
This_Player.deleteskill('寒冰掌');
This_Player.deleteskill('流星火雨');
This_Player.deleteskill('基本剑术');
This_Player.deleteskill('攻杀剑术');
This_Player.deleteskill('刺杀剑术');
This_Player.deleteskill('半月弯刀');
This_Player.deleteskill('野蛮冲撞');
This_Player.deleteskill('烈火剑法');
This_Player.deleteskill('狮子吼');
This_Player.deleteskill('逐日剑法');
This_Player.ScriptRequestSubYBNum(5);
This_Player.SetS(1,1,2);//转道士
ServerSay('玩家<' + This_Player.Name + '>转职成功，从此玛法大陆又多了一个伟大的道士', 3);
end else
This_NPC.NpcDialog(This_Player,
'|你已经是一名伟大的道士了，不用再转职道士 ！\');
end else
This_NPC.NpcDialog(This_Player,
'|尊敬的勇士你的等级或者元宝不足 ！\');
end;
procedure _fashi1;
begin
if (This_Player.Level >= 10) and (This_Player.YBnum >= 5) then
begin
if( This_Player.Job = 0)or (This_Player.Job = 2 )then
begin
This_Player.deleteskill('基本剑术');
This_Player.deleteskill('攻杀剑术');
This_Player.deleteskill('刺杀剑术');
This_Player.deleteskill('半月弯刀');
This_Player.deleteskill('野蛮冲撞');
This_Player.deleteskill('烈火剑法');
This_Player.deleteskill('狮子吼');
This_Player.deleteskill('逐日剑法');
This_Player.deleteskill('治愈术');
This_Player.deleteskill('精神力战法');
This_Player.deleteskill('施毒术');
This_Player.deleteskill('灵魂火符');
This_Player.deleteskill('幽灵盾');
This_Player.deleteskill('神圣战甲术');
This_Player.deleteskill('困魔咒');
This_Player.deleteskill('召唤骷髅');
This_Player.deleteskill('隐身术');
This_Player.deleteskill('集体隐身术');
This_Player.deleteskill('心灵启示');
This_Player.deleteskill('群体治愈术');
This_Player.deleteskill('召唤神兽');
This_Player.deleteskill('无极真气');
This_Player.deleteskill('气功波');
This_Player.deleteskill('噬血术');
This_Player.ScriptRequestSubYBNum(5);
This_Player.SetS(1,1,1);//转法师
ServerSay('玩家<' + This_Player.Name + '>转职成功，从此玛法大陆又多了一个伟大的法师', 3);
end else
This_NPC.NpcDialog(This_Player,
'|你已经是一名伟大的法师了，不用再转职法师 ！\');
end else
This_NPC.NpcDialog(This_Player,
'|尊敬的勇士你的等级或者元宝不足 ！\');
end;
procedure _zhanshi1;
begin
if (This_Player.Level >= 10) and (This_Player.YBnum >= 5) then
begin
if( This_Player.Job = 1)or (This_Player.Job = 2 )then
begin
This_Player.deleteskill('火球术');
This_Player.deleteskill('大火球');
This_Player.deleteskill('抗拒火环');
This_Player.deleteskill('地狱火');
This_Player.deleteskill('疾光电影');
This_Player.deleteskill('雷电术');
This_Player.deleteskill('诱惑之光');
This_Player.deleteskill('瞬息移动');
This_Player.deleteskill('火墙');
This_Player.deleteskill('爆裂火焰');
This_Player.deleteskill('地狱雷光');
This_Player.deleteskill('魔法盾');
This_Player.deleteskill('圣言术');
This_Player.deleteskill('冰咆哮');
This_Player.deleteskill('灭天火');
This_Player.deleteskill('寒冰掌');
This_Player.deleteskill('流星火雨');
This_Player.deleteskill('治愈术');
This_Player.deleteskill('精神力战法');
This_Player.deleteskill('施毒术');
This_Player.deleteskill('灵魂火符');
This_Player.deleteskill('幽灵盾');
This_Player.deleteskill('神圣战甲术');
This_Player.deleteskill('困魔咒');
This_Player.deleteskill('召唤骷髅');
This_Player.deleteskill('隐身术');
This_Player.deleteskill('集体隐身术');
This_Player.deleteskill('心灵启示');
This_Player.deleteskill('群体治愈术');
This_Player.deleteskill('召唤神兽');
This_Player.deleteskill('无极真气');
This_Player.deleteskill('气功波');
This_Player.deleteskill('噬血术');
This_Player.ScriptRequestSubYBNum(5);
This_Player.SetS(1,1,0);//转战士
ServerSay('玩家<' + This_Player.Name + '>转职成功，从此玛法大陆又多了一个伟大的战士', 3);
end else
This_NPC.NpcDialog(This_Player,
'|你已经是一名伟大的战士了，不用再转职战士 ！\');
end else
This_NPC.NpcDialog(This_Player,
'|尊敬的勇士你的等级或者元宝不足 ！\');
end;
Begin
domain;
end.[/mw_shl_code] |
|
发表于 2022-12-31 21:01:28
发表于 2023-12-28 08:11:47