Я делаю скрипт, который покупает у нпц пушку, точит ее, затачивает до нужного уровня, либо ломает и покупает заного. Другие скрипты не подойдут, т.к на моем сервере пакеты меняются каждые пол часа. Сделайте пожалуйста набросок скрипта, ведь он не сложный.
На заметку:
выбрать заточку: 72 F5 99 38 40 00 00 00 00
Заточить: 3C 44 1F 34 40 00 00 00 00
Купить пушку: 3C 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 31 00 30 00 30 00 30 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 31 00 00 00
И еще. Не до конца разобрался в таймерах.
Код:
var timer01:ttimer;
procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=2100;
end;
procedure OnTimer01(Sender: TObject);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS('ololo');
SendToClient;
end;
//При поступлении пакета
begin
if fromclient and (pck[1]=#$18) and (pck[2]=#$0C) then timer01.enabled:=true;
end.
Почему таймер не работает?