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

