Причины зависания ПХ)

[dyh9l]

Вобщем ПХ зависает блин и все окна с ним, зависает всегда рандомно от первых 5 минут до 5+ часов, в чем может быть причина, слабая ОЗУ или видеокарта могут на это повлиять?
p.s: скрипт без делая

[spoil99]

от 5 минут, это со вчера шоле?)

[dyh9l]

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

от 5 минут, это со вчера шоле?)

не) комп сгорел, щас приходится работать на ноуте а тут видео карта 256 и озу 768)) дописал свой убер скрипт слива пвп в 2 окна на ночь оставил а оно зависло, щас поставил о5 зависло) цабака

[kolr]

надо дилей или таймер дописывать

[dyh9l]

делея нет, таймер есть
а зависает как будто delay(500000) примерное время)

[supernewbie]

ящитаю нужен код

У меня вот кстати другая проблема, пх критует если я запустил скрипт, офнул скрипт и снова запустил его без изменений. Помогает только отключение процесса. Скорее всего это либо из-за for i:= to do, либо из-за долбаных таймеров.
PS во Free ставлю enabled:=false и .free всем таймерам, хз че за \

[dyh9l]

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

ящитаю нужен код

У меня вот кстати другая проблема, пх критует если я запустил скрипт, офнул скрипт и снова запустил его без изменений. Помогает только отключение процесса. Скорее всего это либо из-за for i:= to do, либо из-за долбаных таймеров.
PS во Free ставлю enabled:=false и .free всем таймерам, хз че за \

код чего?

[supernewbie]

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

убер скрипт слива пвп

//

[dyh9l]

// Îòôèëüòðîâàòü ïàêåòû 0A, 04, 14, C5
const
name1 = 'bbpulse' ;  //Íèê òîãî íà êîãî íàáèâàåì ïâï
name2 = 'glpulse' ; //Íèê òîãî ñ êîãî ñëèâàåì ïâï (òâèíê 1 ëâë)
ObjectID = '0A 28 D5 80 48' ; //èä òâèíêà
ObjectID2 = '0A 60 E8 80 48' ; //èä ìåéíà
target = '04 28 D5 80 48' ; //Òàðãåò ïî òâèíêó
useitem = '14 2C 9E 12 40 00 00 00 00' ; //Þçàíèå ðåñà ïî òâèíêó

var
Timer01:TTimer; //Òàéìåð íà÷àëà àòàêè òâèíêîì ïî ìåéíó
TimerCyrcle01:Integer;
k,karma: integer;

procedure Init; 
begin
Timer01 := TTimer.Create(nil) ;
Timer01.Interval := 1500;
Timer01.Enabled := True ;
Timer01.Ontimer := @OnTimer01 ;
end;

procedure Free; 
begin
Timer01.Free ;
end;

Procedure OnTimer01(Sender : TObject) ;
begin
case TimerCyrcle01 of
1: begin       buf := hstr(ObjectID2) ;
               SendToServerEx(name2) ;
   end;
end;
end;



begin
if FromServer and (connectname=name1)  and (pck[1] = #$05) then //Ìåéí îòâå÷àåò íà ôëàã òâèíêà
   begin
   buf:=Hstr(ObjectID);
   sendtoserverex(name1);
   end;
if FromServer and (connectname=name2)  and (pck[1] = #$5E) then //Ïðè òðåéäå çàïóñêàåòñÿ òàéìåð àòàêè òâèíêîì ïî ìåéíó
   begin
   TimerCyrcle01:=1;
   Timer01.enabled:=true;
   end;
{if FromClient and (connectname=name2) and (pck[1] = #$37) then //Ïðè ñíÿòèè òàðãåòà ñ ìåéíà îñòàíàâëèâàåò òàéìåð
   begin
   Timer01.enabled:=false;
   end;}
if FromServer and (connectname=name1)  and (pck[1] = #$2A) then //Ïðè ñíÿòèè òàðãåòà ñ ìåéíà áåðåò â òàðãåò òâèíêà è âîñêðåøàåò
   begin
   buf:=HStr(target) ;
   SendToServerEx(name1) ;
   buf:=Hstr(useitem) ;
   SendToServerEx(name1) ;
   end;
if FromServer and (connectname=name2)  and (pck[1] = #$ED) then //Îòâåòèòü "Äà" â äèàëîãå ñîãëàñíû ëè âîñêðåñèòñÿ
   begin
   buf:=Hstr('C5 E6 05 00 00 01 00 00 00') ;
   SendToServerEx(name2) ;
   TimerCyrcle01:=1;
   Timer01.enabled:=true;
   end;

{if FromServer and (connectname=name1)  and (pck[1]=#$04) then begin
  k:=22; 
  ReadS(k);
  k:=k+62*4;
  karma:=ReadD(k);
   // if (karma>1) then
   // begin
    // buf:=hstr('38 6B 00 61 00 72 00 6D 00 61 00 61 00 61 00 00 00 00 00 00 00') ;
     buf:=#$38;
     WriteS('1');
     WriteD(1);
     SendToServerEx(dance) ;
    //end;
end; }


end.

[J-Fobos]

dyh9l, зачем TimerCyrcle01 если в таймере всего один пакет?)