Вот написал скрипт но...

LamaKING · 08.01.2010, 02:35

delphi Код:

const
x=2000    ;
p0='1F 1A 22 10 48 C8 C4 01 00 8B 2A 01 00 66 F5 FF FF 00';
p1='22 7A 00 7A 00 7A 00 5F 00 72 00 65 00 6C 00 61 00 78 00 5F 00 63 00 61 00 74 00 31 00 5F 00 36 00 30 00 30 00 2E 00 68 00 74 00 6D 00 00 00';
p2='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 30 00 00 00';
p3='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 32 00 00 00';
p4='39 C7 05 00 00 00 00 00 00 00';
p5='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 30 00 00 00';
p6='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 33 00 00 00';
p7='39 BE 05 00 00 00 00 00 00 00';
p8='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 34 00 00 00';
p9='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 34 00 00 00';
p10='39 10 02 00 00 00 00 00 00 00';
var
timer0:TTimer;
timer1:TTimer; 
timer2:TTimer; 
timer3:TTimer; 
timer4:TTimer; 
timer5:TTimer; 
timer6:TTimer;
timer7:TTimer;
timer8:TTimer;
timer9:TTimer;
timer10:TTimer;
procedure Init;
begin

timer0:=TTimer.Create(nil);
timer0.OnTimer:=@OnTimer0;
timer0.enabled:=true;
timer0.interval:=3000;
 
timer1:=TTimer.Create(nil); 
timer1.OnTimer:=@OnTimer1; 
timer1.enabled:=true; 
timer1.interval:=3000;

timer2:=TTimer.Create(nil); 
timer2.OnTimer:=@OnTimer2; 
timer2.enabled:=false; 
timer2.interval:=3000;

timer3:=TTimer.Create(nil); 
timer3.OnTimer:=@OnTimer3; 
timer3.enabled:=false; 
timer3.interval:=3000;

timer4:=TTimer.Create(nil); 
timer4.OnTimer:=@OnTimer4; 
timer4.enabled:=false; 
timer4.interval:=3000;

timer5:=TTimer.Create(nil); 
timer5.OnTimer:=@OnTimer5; 
timer5.enabled:=false; 
timer5.interval:=3000;

timer6:=TTimer.Create(nil); 
timer6.OnTimer:=@OnTimer6; 
timer6.enabled:=false; 
timer6.interval:=3000;

timer7:=TTimer.Create(nil);
timer7.OnTimer:=@OnTimer7;
timer7.enabled:=false;
timer7.interval:=3000;

timer8:=TTimer.Create(nil);
timer8.OnTimer:=@OnTimer8;
timer8.enabled:=true;
timer8.interval:=3000;

timer9:=TTimer.Create(nil);
timer9.OnTimer:=@OnTimer9;
timer9.enabled:=true;
timer9.interval:=3000;

timer10:=TTimer.Create(nil);
timer10.OnTimer:=@OnTimer10;
timer10.enabled:=true;
timer10.interval:=3000;

end;
procedure OnTimer0(Sender: TObject);
begin 
buf:=hstr(p0);
SendToServer; 
timer0.enabled:=false;
timer1.enabled:=true;
end;
procedure OnTimer1(Sender: TObject); 
begin 
buf:=hstr(p1); 
SendToServer; 
timer1.enabled:=false; 
timer2.enabled:=true; 
end; 
procedure OnTimer2(Sender: TObject); 
begin 
buf:=hstr(p2); 
SendToServer; 
timer2.enabled:=false; 
timer3.enabled:=true; 
end; 
procedure OnTimer3(Sender: TObject); 
begin 
buf:=hstr(p3); 
SendToServer; 
timer3.enabled:=false; 
timer4.enabled:=true; 
end; 
procedure OnTimer4(Sender: TObject); 
begin 
buf:=hstr(p4); 
SendToServer; 
timer4.enabled:=false; 
timer5.enabled:=true; 
end; 
procedure OnTimer5(Sender: TObject); 
begin 
buf:=hstr(p5); 
SendToServer; 
timer5.enabled:=false; 
timer6.enabled:=true; 
end; 
procedure OnTimer6(Sender: TObject); 
begin 
buf:=hstr(p6); 
SendToServer; 
timer6.enabled:=false; 
timer7.enabled:=true;
end;
procedure OnTimer7(Sender: TObject);
begin 
buf:=hstr(p7);
SendToServer; 
timer7.enabled:=false;
timer8.enabled:=true;
end;
procedure OnTimer8(Sender: TObject);
begin 
buf:=hstr(p8);
SendToServer; 
timer8.enabled:=false;
timer9.enabled:=true;
end;
procedure OnTimer9(Sender: TObject);
begin 
buf:=hstr(p9);
SendToServer; 
timer9.enabled:=false;
timer10.enabled:=true;
end;
procedure OnTimer10(Sender: TObject);
begin 
buf:=hstr(p10);
SendToServer; 
timer10.enabled:=false;
timer0.enabled:=true;
end;

procedure Free; 
begin
timer0.Free;
timer1.Free; 
timer2.Free; 
timer3.Free; 
timer4.Free; 
timer5.Free; 
timer6.Free;
timer7.Free;
timer8.Free;
timer9.Free;
timer10.Free;
end;
begin 
end. 


end.

Вот написал скрипт.Его смысл заключается в том что меняются сабы и баффается с камаеля импульс,прах и с шк уд.
Так у меня какая то фигня что бывает баффаетсяток с шк и импульс камаеля.или прах и импульс.В чем проблема? Подскажите.

NLObP · 08.01.2010, 03:53

Попробуй выставить

Код:

timer0.enabled:=true;

а остальные в

Код:

timerX.enabled:=false;

LamaKING · 08.01.2010, 05:35

Все сделал как ты сказал.Проходит

Цитата:

p0='1F 1A 22 10 48 C8 C4 01 00 8B 2A 01 00 66 F5 FF FF 00';
p1='22 7A 00 7A 00 7A 00 5F 00 72 00 65 00 6C 00 61 00 78 00 5F 00 63 00 61 00 74 00 31 00 5F 00 36 00 30 00 30 00 2E 00 68 00 74 00 6D 00 00 00';
p2='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 30 00 00 00';
p3='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 32 00 00 00';
p4='39 C7 05 00 00 00 00 00 00 00';
p5='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 30 00 00 00';
p6='23 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 2D 00 36 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 33 00 33 00 00 00';
p7='39 BE 05 00 00 00 00 00 00 00';

часть скрипта.А дальше неидет((

QaK · 08.01.2010, 19:45

Holy shit!!! LamaKING, проще поищи по форуму - отправление по таймеру, или как-то так, я делал ... только не помню где точно ...

Добавлено через 1 минуту
сначала запускай след. таймер, а потом тормози текущий а не наоборот.

LamaKING · 10.01.2010, 13:47

Цитата:

Сообщение от QaK

Holy shit!!! LamaKING, проще поищи по форуму - отправление по таймеру, или как-то так, я делал ... только не помню где точно ...

Добавлено через 1 минуту
сначала запускай след. таймер, а потом тормози текущий а не наоборот.

щас попробую.большое спасибо.