Скрипт на дюп!!!

var obj,b,y,a,k:integer;

procedure init;
begin
obj:=268564416;
z:=-3128;
buf:=#$12;
WriteD(obj);
WriteD(1);
WriteD(x);
WriteD(y);
WriteD(z);
SendToServerEx('IamPatty');
end;

begin
{if Fromclient and (pck[1]=#$12) then begin
obj:=ReadD(2);
x:=ReadD(10);
y:=ReadD(14);
z:=ReadD(18);
end;}
if Fromserver and (pck[1]=#$64) and (ReadD(2)=98) then begin
buf:=#$04;
WriteD(obj);
WriteD(x);
WriteD(y);
WriteD(z);
WriteC(0);
SendToServerEx(ConnectName);
end;
end.

 

Подскажите чё тут не правильно!!! Он раньше работал но мне его чюток подпровляли !!!

 

RampaGeE http://gramota.ru - вначале сюда.

А потом сюда: http://allcheats.ru

// Закрыто