[wimax]

да тут пролемка выходит такая шняга как пинг есть вот смотри народу на евент зарегатса хочет многа все с киликерами ботами и т.д а я получетса если спамю я регаюсь быстрей даже до прихода собщения согласны ли вы на регу
а проверка локацыии ет для економии на сое)))

Добавлено через 2 минуты
да смотрел я все ети проверки вот чтота наклюкал

procedure CreateItemBase;
var j,ItmID,ObjID,Scroll:integer;
begin
ObjID:=ReadD(j);
ItmID:=ReadD(j);
case ItmID of
ScrollID:
begin
Scroll:=ObjID;
end;
end;
end;

procedure UpdateItemBase;
var j,ObjID,ItmID,Scroll:integer;
begin
ObjID:=ReadD(j);
ItmID:=ReadD(j);
case ItmID of
ScrollID: begin
Scroll:=ObjID;
end;
end;
end;

но к сожылению не пашыт(