spirit speak

[burn7]

Code: Select all

Program Spirit;
 
 {$Include 'all.inc'}
  
 var
 k : integer;
 n: integer;
 ctime : TDateTime;
  
 procedure bot;
 begin
 Cast('Dispel');
 waittargetself;
 wait(1000);
 end;
  
    procedure TrySpirit;
 begin
   ctime:=Now;
 n:=0;
    repeat
       UseSkill('Spirit Speak');
       Wait(3000);
 bot;
 n:=n+1;
    until n=3;
    ctime:=Timer;
 end; 
  
 procedure TryMedit;
       begin
          while (Mana           begin
             waitconnection(1000);
             ctime := Now;
            k := 0
             UseSkill('Meditation');
             repeat
                wait(100);
                k := k + 1;
            until (InJournalBetweenTimes('You stop med', ctime, Now)-1) or (k > 100) or (Mana =maxmana);
            wait(1000);
          end;
       end; 
  
 Begin
   while not Dead do
   begin      
      TrySpirit; 
       TryMedit;
   end;
End.

почему то не работает

[Alex]

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

ну и классика, если у меня скрипт не работает, то я везде добавляю AddToSystemJournal('test') и вижу докуда скрипт доходит, еще один вариант - в пошаговке проверять скрипт - http://stealth.od.ua/wiki/doku.php?id=editor-debuger

[nah nah]

Code: Select all

 while (Mana           begin

[MuDaCk]

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

Code: Select all

Program Spirit;
 
{$Include 'all.inc'}
 
var
k : integer;
n: integer;
ctime : TDateTime;
 
procedure bot;
begin
Cast('Dispel');
waittargetself;
wait(1000);
end;
 
   procedure TrySpirit;
begin
   ctime:=Now;
n:=0;
   repeat
      UseSkill('Spirit Speak');
      Wait(3000);
bot;
n:=n+1;
   until n=3;
   ctime:=Timer;
end; 
 
procedure TryMedit;
      begin
         while (Mana < 30) do
         begin
            waitconnection(1000);
            ctime := Now;
            k := 0
            UseSkill('Meditation');
            repeat
               wait(100);
               k := k + 1;
            until (InJournalBetweenTimes('You stop med', ctime, Now)<>-1) or (k > 100) or (Mana =maxmana);
            wait(1000);
         end;
      end; 
 
Begin
   while not Dead do
   begin      
      TrySpirit; 
      TryMedit;
   end;
End.