procedure Init;
****
***
***
procedure InitStats;
begin
CharObjID:=ReadD(18);
end;
begin
//UserInfo
if FromServer and (ConnectName=Name) and (pck[1]=#$04) then InitStats;
ну и код где выделяем пакет 48 + иди перса если проходит берём начинает считывать время каста и кастует как робот :)
end
Добавлено спустя 45 секунд:
как всё заработает выложу скриптик мне нравиться в целом в тихом месте кастует всё на ура
|