Stealth Client Forum

Code: Select all

GotoXY(111,222,1,true);

Code: Select all

procedure GotoXY(x,y,prec : integer; runflag : boolean);
// x,y - координаты, в которые идем
// prec - точность подхода
// runflag - бежать или идти

Code: Select all

Program Resist;

  {$Include 'GotoXY.inc'}
  {$Include 'all.inc'}

Var
   xxMage,yyMage: integer;
   x0,x1,x2,y: integer;
Const
   Gloves=$13C6;

Procedure InitCoord;
Begin
repeat
AddToSystemJournal('Считываем координаты мага ...');
xxMage:=myStrToInt(GetGlobal('stealth','xMage'));
yyMage:=myStrToInt(GetGlobal('stealth','yMage'));
Wait(2000);
until ((xxMage<>-666) AND (yyMage<>-666));
AddToSystemJournal('Координаты мага инициализированы. X='+IntToStr(xxMage)+', Y='+IntToStr(yyMage));
x0:=xxMage-2;
x1:=xxMage;
x2:=xxMage+2;
y:=yyMage+3;
end;

Procedure CheckSkill;
Begin
If GetSkillValue('Magic Resistance')>=100 then
    begin
    GotoXY(xxMage,yyMage+2,0,false);
    SetGlobal('stealth','TargetStatus','STOP');
    FullllDisconnect;
    raiseException(erCustomError,'Скилл достиг максимума!');
    end;
End;

Procedure CheckHealth;
Begin
If Life<80 then 
   begin
   AddToSystemJournal('Со здоровьем совсем хреновенько! Выходим из огня! ');
   GotoXY(xxMage,yyMage+2,0,false);
   While (Life<>STR) do Wait(500);
   end;
end;


BEGIN
WaitConnection(3000);
SetARStatus(true);
InitCoord;
SetGlobal('stealth','ResistTargetID',IntToStr(self));
SetGlobal('stealth','TargetStatus','Ready');
While Not Dead do
    begin
    If Connected then 
        begin
	CheckSkill;
	PutTheGloves;
	UOSay('.resync');
        Wait(300);
	
	CheckHealth;
	GotoXY(x0,y,0,false);
        
	CheckHealth;
	GotoXY(x1,y,0,false);
	
	CheckHealth;
	GotoXY(x2,y,0,false);
	end
    Else 
        Wait(3000);
    end;
If Dead then 
   begin
   AddToSystemJournal('Я  ПОДОХЛА!!');
   PlayWav('death2.wav');
   Exit;
   end;
END.

Code: Select all

program Resist_Mage;

{$Include 'all.inc'}

Const
   ReagsChest=$40028EC0;
   FFType=$3996;

   
Procedure CastFF;

Var
   STime: TDateTime;
Begin
FindType(FFType,ground);
AddToSystemJournal(IntToStr(FindCount)+' FireField tiles found');
UOSay('.resync');
Wait(700);
If FindCount<6 then
   Repeat
       STime:=Now;
       IF Mana<20 then Exit;
       Cast('Fire Field');
       WaitTargetTile(400,GetX(self),GetY(self)+3,GetZ(self));
       Wait(5000);
   Until (InJournalBetweenTimes('Заклинание не удалось!',STime,Now)=-1);
End;

Procedure CoordInit;
Begin
UOSay('.resync');
Wait(700);
SetGlobal('stealth','xMage',IntToStr(GetX(self)));
SetGlobal('stealth','yMage',IntToStr(GetY(self)));
End;

Procedure meditation;
VAR
STime:TDateTime;

Begin
repeat
  //AddToSystemJournal('Медитируем...') ;
  STime:=Now;
  SetWarMode(false);
  UseSkill('Meditation')
  wait(1500);
  WaitJournalLine(STime,'at peace.|прервана',60000); 
  If (InJournalBetweenTimes('прервана',STime,Now)<>-1) then Wait(500);
until (InJournalBetweenTimes('at peace',STime,Now)<>-1);   
end;

BEGIN
SetARStatus(true);
WaitConnection(2000);
FindDistance:=8;
FindVertical:=8;
CoordInit;

While Not Dead do
    begin
    If Connected then
        begin
	If (GetGlobal('stealth','TargetStatus')='STOP') then
	    begin
	    FullllDisconnect;
            raiseException(erCustomError,'Резист прокачан!');
	    end;
	LoadItem(BP,$FFFF,ReagsChest,40,10);
	LoadItem(SS,$FFFF,ReagsChest,40,10);
	LoadItem(SA,$FFFF,ReagsChest,40,10);
	CastFF;
	Meditation;
	Wait(100000); 
	end
    Else 
        Wait(30000);

    end;
END.