``` 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; ```