да тут пролемка выходит такая шняга как пинг есть вот смотри народу на евент зарегатса хочет многа все с киликерами ботами и т.д а я получетса если спамю я регаюсь быстрей даже до прихода собщения согласны ли вы на регу
а проверка локацыии ет для економии на сое)))
Добавлено через 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;
но к сожылению не пашыт(
Последний раз редактировалось wimax, 11.01.2011 в 00:09.
Причина: Добавлено сообщение
|