``` procedure Main(Npc: TNormNPC; Player: TPlayObject; Args: TArgs); begin case Player.Job of 0: Player.SendMessage('你是一个战士', 0); 1: Player.SendMessage('你是一个法师', 0); 2: Player.SendMessage('你是一个道士', 0); 3: Player.SendMessage('你是一个刺客', 0); 4: Player.SendMessage('你是一个弓箭手', 0); else begin Player.SendMessage('你是一个不可识别的职业', 0); Player.Kick; end; end; end; ```