以下内容自己根据格式插入到ogonQuest.pas
procedure NewMan();
begin
if This_Player.GetV(50, 1) = -1 then
begin
This_Player.GiveBindItem('金条',1);
ServerSay('★★★欢迎玩家<' + This_Player.Name + '>登录35博客，请大家多多关照！★★★',3);
This_Player.SetV(50,1,1);
end;
end;
begin
NewMan();
end.