procedure Main(Npc: TNormNPC; Player: TPlayObject; Args: TArgs);
begin
case Player.ReNewLevel of
0:
begin
case Player.Level of
7: ;player.SendMessage('7级', 0);
9: ;player.SendMessage('9级', 0);
end;
end;
1:
begin
case Player.Level of
7: ;player.SendMessage('1转7级', 0);
9: ;player.SendMessage('1转9级', 0);
end;
end;
else
begin
if player.Level = 22 then
;layer.SendMessage('22级', 0);
end;
end;
end;