``` procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); begin Gamelib.Kick('张三'); //踢出一个玩家 Gamelib.KickAll; //踢出全部玩家 end; ```