Stealth Client Forum

Code: Select all

Program Spirit;

{$Include 'all.inc'}

var
k : integer;
ctime : TDateTime;

	procedure TrySpirit;
		begin
			repeat
				waitconnection(3000);
				ctime := Now;
				k := 0
				UseSkill('Spirit Speak');
				repeat
					wait(100);
					k := k + 1;
				until (InJournalBetweenTimes('You fail|You channel|You lack|You establish', ctime, Now)<>-1) or (Mana < (MaxMana - 50)) or (k > 300);
				wait(500);
				If (InJournalBetweenTimes('You establish', ctime, Now)<>-1) then
				begin
					wait(5000);
					SetWarMode(true);
					wait(500);
					SetWarMode(false);
				end;
			until (Mana < (MaxMana - 50));
		end;

	procedure TryMedit;
		begin
			while (Mana < MaxMana) do
			begin
				waitconnection(3000);
				ctime := Now;
				k := 0
				UseSkill('Meditation');
				repeat
					wait(100);
					k := k + 1;
				until (InJournalBetweenTimes('reached full mana|lost', ctime, Now)<>-1) or (k > 600);
				wait(500);
			end;
		end;

Begin
	while not Dead do
	begin
		TrySpirit;
		TryMedit;
	end;
End.

Code: Select all

Program Spirit; 

{$Include 'all.inc'} 

var 
k : integer; 
ctime : TDateTime;
const fizzle = 'You fail your attempt';
const success = 'You establish a connection';

procedure SpSpeak;
begin
	ClearJournal;
	repeat
		UseSkill('Spirit Speak');
		k := 1;
		repeat
			Wait(100);
			k: = k+1;
		until (InJournal(fizzle|success)>0) OR k>600	
	until InJournal(success)	
end;

procedure UseSp;
begin
	SpSpeak;
	ctime := Now;
		if (Now-ctime)/600>5 then
		begin
			SpSpeak;
			ctime = Now;
		end
		else
		Wait(500);		
end;

begin
   while not Dead do 
   begin 
      UseSp; 
   end;
End. 

Code: Select all

k: = k+1;

Code: Select all

:=

Code: Select all

if (Now-ctime)/600>5 then

Code: Select all

=	присваивание
==	сравнение

Code: Select all

:=	присваивание
=	сравнение

Code: Select all

ctime = Now;

Code: Select all

Program Spirit; 

{$Include 'all.inc'} 

var 
k : integer; 
ctime : TDateTime; 
const fizzle = 'You fail your attempt'; 
const success = 'You establish a connection'; 

procedure SpSpeak; 
begin 
   ClearJournal; 
   repeat 
      UseSkill('Spirit Speak'); 
      k:= 1; 
      repeat 
         Wait(100); 
         k:= k+1; 
      until (InJournal(success+'|'+success)>0) OR k>600    
   until InJournal(success)    
end; 

procedure UseSp; 
begin 
   SpSpeak; 
   ctime:= Now; 
      if (Now-ctime)%600>5 then 
      begin 
         SpSpeak; 
         ctime: = Now; 
      end 
      else 
      Wait(500);       
end; 

begin 
   while not Dead do 
   begin 
      UseSp; 
   end; 
End.

Code: Select all

until (InJournal(success+'|'+success)>0) OR k>600    
   until InJournal(success)  

Code: Select all

until (InJournal(success+'|'+success)>0) OR k>600 

Code: Select all

k>600

Code: Select all

ctime: = Now;

Code: Select all

Program Spirit;

{$Include 'all.inc'}

var
ctime : TDateTime;
const fizzle = 'You fail your attempt';
const success = 'You establish a connection';

procedure SpSpeak;
begin
	ClearJournal;
	repeat
		UseSkill('Spirit Speak');
		Wait(1000);
	until InJournal(success)<=0;
	ctime:=Now;
end;

begin
	SpSpeak;
	while not Dead do
	begin
		if Trunc((Now-ctime)/600)>5 then SpSpeak else wait(500);
	end;
End.