判断转生等级及等级 
 
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 
        Player.SendMessage('22级', 0); 
    end; 
  end; 
end; 
 
 
示例中使用了if和case两种判断等级的方式 
 
 |