``` procedure PlayerOnLogin(Npc: TNormNpc; Player: TPlayObject); //该函数定义位于“系统固定NPC\ManagerNpc”中，角色登陆将触发该函数 begin if Player.NewHuman then //如果角色是新人 begin Npc.Give(Player, '乌木剑'); //给乌木剑1把 Npc.Give(Player, '金币', 100000); //给金币10W Gamelib.BroadcastCenterMessage('欢迎玩家“{S=' + Player.Name + ';C=249}”来到{S=' + Gamelib.ServerName + ';C=250}'); //广播新角色登陆 end; end; ```