Цитата:
Сообщение от Arhangel
Весь день сегогодня ковыряюсь с этими скриптами...=)
Есть два рабочих скрипта:
1-ый на БД
Код:
const MainChar = 'ApxaHrel';
BD = 'Dancerr';
var Timer2:TTimer;
actions2:array[1..6] of string;
nmm:integer;
procedure Init;
begin
nmm:=1;
Timer2:=TTimer.Create(nil);
Timer2.OnTimer:=@proba;
Timer2.enabled:=false;
Timer2.interval:=2300; //задержка 1 сек;
actions2[1]:='56 00 00 00 00 00 00 00 00 00 ';
actions2[2]:='39 13 01 00 00 00 00 00 00 00 ';
actions2[3]:='39 12 01 00 00 00 00 00 00 00 ';
actions2[4]:='39 0F 01 00 00 00 00 00 00 00 ';
actions2[5]:='44';
actions2[6]:='56 00 00 00 00 00 00 00 00 00 ';
end;
procedure proba(Sender:Tobject);
begin if nmm>6 then Timer2.Enabled:=false;
if nmm>6 then nmm:=1
else begin buf:=Hstr(actions2[nmm]);
SendToServerEx(BD);
nmm:=nmm+1;
end;
end;
procedure Free;
begin
Timer2.Free;
end;
begin
if FromServer and (pck[1]=#$39) and (ConnectName=BD) then begin//посылаю с 1-го окна пакет "SocialActionYes"
buf:=hstr('43 01 00 00 00'); //Создаем пакет "принять пати"
SendToServerEx(BD);
pck:='';
Timer2.Enabled:=true;
end;
end.
2-ой на СВСа:
Код:
const MainChar = 'ApxaHrel';
SWS = 'KaHapeuka';
var Timer1:TTimer;
actions:array[1..6] of string;
nm:integer;
procedure Init;
begin
nm:=1;
Timer1:=TTimer.Create(nil);
Timer1.OnTimer:=@proba;
Timer1.enabled:=false;
Timer1.interval:=2000; //задержка 1 сек;
actions[1]:='56 00 00 00 00 00 00 00 00 00 ';
actions[2]:='39 0C 01 00 00 00 00 00 00 00 ';
actions[3]:='39 0D 01 00 00 00 00 00 00 00 ';
actions[4]:='39 0B 01 00 00 00 00 00 00 00 ';
actions[5]:='44';
actions[6]:='56 00 00 00 00 00 00 00 00 00 ';
end;
procedure proba(Sender:Tobject);
begin if nm>6 then Timer1.enabled:=false;
if nm>6 then nm:=1
else begin buf:=Hstr(actions[nm]);
SendToServerEx(SWS);
nm:=nm+1;
end;
end;
procedure Free;
begin
Timer1.Free;
end;
begin
if FromServer and (pck[1]=#$39) and (ConnectName=SWS) then begin//посылаю с 1-го окна пакет "SocialActionYes"
buf:=hstr('43 01 00 00 00'); //Создаем пакет "принять пати"
SendToServerEx(SWS);
pck:='';
Timer1.Enabled:=true;
end;
pck:='';
end.
По отдельность работают без проблем...но вот если активировать их 2 одновременно,то один скрипт работает нормально,а второй выдает ошибку Access violation at address 00550C21 in module 'l2pbx.exe'. Read of address 00000000.
|
хммм...
пользуюсь немножко другими скриптами, из раздела да будет БОТ! (переделал скрипт по поводу буффа ота варка)
т.е у меня и кидает пати ему, дансит и выходит, ну и так круглые суточки...
Не идеально но всеже...
А твой скрипт я как понимаю берем в пати он танцует и усе?