var i:integer;
begin
for i:=1 to 255 do
begin
buf:=HStr('9C 57 5B D9 19 00 00 EA 03 01 00 04 00 FE 0C 00 00 00 00');
SendToServer;
buf:=HStr('9C 57 5B D9 19 00 00 F1 03 01 00 04 00 FE 0C 00 00 00 00');
SendToServer;
buf:=HStr('9C 57 5B D9 19 00 00 08 00 01 00 05 00 FE 0C 00 00 00 00');
SendToServer;
delay(100);
end;
end.
и скрипт для удаления плиток
Код:
var id:integer;
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromClient and(pck[1]=#$32) then begin
buf:=HStr('DA 57 99');
buf:= buf + pck[4] + pck[5] + pck[6] + pck[7];
SendToServer;
end;
end.
З.Ы. У меня на сервере с 25 только до 34 выходит прокачаться. по 211к опыта.
Последний раз редактировалось kviki1990; 09.08.2011 в 00:12.