Плохая работа способность скрипта :(

[Lietman]

Всем привет ! Проблема вот вчем запускаю скрипт работает нормально, проходит время скрипт перестает производить какие либо действия в уо, хотя в стесле показано что скрипт запущен.

Code: Select all

// Magery script fo DRW. crafted by Sevenamber 
Program Magery; 

{$Include 'all.inc'}  

var 
 mtime : TDateTime; 
 tmana: integer; 
 i:integer; 

const 
 minLimOfMana=7;// минимальный уровень маны, после которого начинаем медитировать 
 CastSpell='Poison'; 
 eat=$09D0;// тип еды 
 NS =$0F88;// тип NS 
 mishenb=$0EFA;// на что будем пускать
  
procedure medium;// медитируем 
begin 
 if connected then 
  repeat 
   mtime:=Now; 
   UseSkill('Meditation'); 
   repeat 
     checksave; 
   until ((InJournalBetweenTimes('concentration|peace', mtime, Now)<>-1) or (Mana=Int) or (dead) or (not connected)); 
  until ((InJournalBetweenTimes('You are at peace', mtime, Now)<>-1) or dead or (not connected)); 
 UseObject(FindType(eat,Backpack)); 
end; 

procedure Wait_Target(time_ms:Cardinal); 
var 
 TempTime,SumTime:Cardinal; 
begin 
 SumTime:=0; 
 repeat 
  checksave; 
  TempTime:=Timer; 
  SumTime:=SumTime+(Timer-TempTime); 
 until ((targetpresent) or (dead) or (not connected) or (SumTime>time_ms)); 
end; 

begin 
 clearjournal; 
 SetARStatus(true); 
 while not Dead do 
  begin 
   while not connected do wait(1000);    
   checksave; 
   tmana:=Mana; 
   if Mana > minLimOfMana then 
    begin 
    if TargetPresent then CancelTarget; 
    // подсчёт NS
    i := Count(NS); 
    addtosystemjournal('осталось: ' + inttostr(i) +' NS'); 
    // 
    cast(CastSpell); 
    Wait_Target(10000); 
    	WaitTargetType(mishenb); 
    repeat 
     checksave; 
     until ((tmana>Mana) or (not connected) or dead); 
   end 
   else medium;    
  end; 
end.

[Vizit0r]

я, честно говоря, не понял конструкцию

Code: Select all

 repeat 
  checksave; 
  TempTime:=Timer; 
  SumTime:=SumTime+(Timer-TempTime); 
 until ((targetpresent) or (dead) or (not connected) or (SumTime>time_ms)); 

лично у меня ощущение, что по таймауту никогда не выйдет из такого цикла...

[shinma]

addtosystemjournal('1');
вставляй через каждую строку своего кода, только цифры меняй и увидешь где скрипт остановился и зациклился.

посмотри пошагово какие данные сюда попадают.
(SumTime>time_ms));
условие будет повторяться если until будет верно.

[Lietman]

это не мой код ! Я играю НА ОСКОМЕ !
ребята пазарез надо помощь в скрипте !
Чара на медри взял качатьБ а тут така проблема

[shinma]

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

[Vizit0r]

это не мой код ! Я играю НА ОСКОМЕ !

мопед не мой! я просто разместил объяву! (цы)