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