``` procedure Main(Npc: TNormNPC; Player: TPlayObject; Args: TArgs); begin case Player.Gender of 0: Player.SendMessage('你是一个男人', 0); 1: Player.SendMessage('你是一个女人', 0); end; end; ```