Stealth Client Forum

Code: Select all

function GetCurrentRegion:Integer;
begin
  Result := -1;
  CheckSave;
  UOSAY('.where');
  if not WaitJournalLine(Now,'I am in|Britain|Northern Territory|WasteLands|Minoc|Desert|Trinsic|Yew',75000) then exit;
  {
  Получаем текущее местоположение чара в виде цифры от 0 до .. , 
  в зависимости от позиции региона в параметре функции WaitJournalLine.
   
    Britain = 1
    WasteLands = 3
    Minoc = 4
    ....
  }
  Result:=FoundedParamID;
end;

procedure RecallFromPaperdol(town:Integer);
var
ATown,CurRegion,StartRegion:Integer;
begin 
SetWarMode(false);
StartRegion:=GetCurrentRegion;

WaitConnection(3000);
UseObject(self);
wait(1000);
checksave;
HelpRequest;//Нажать  "Help"
wait(1000);
checksave;
waitgump('3');//Нажать "Help i am stuck"
wait(1000);
checksave;
waitgump(IntToStr(town));//Нажать на кнопку города 

//привязка к GetCurrentRegion
Case Town of
	1:ATown:=1;//Brit
	2:ATown:=4;//Minoc
	3:ATown:=6;//Trinsic
	4:ATown:=7;//Yew
end; 

//ждем пока не прыгнет (нельзя прыгать в тот-же регион где стоял чар перед прыжком)
CurRegion := GetCurrentRegion;
while (CurRegion = StartRegion) do 
begin
	AddToSystemJournal('Waiting for teleport...')
	wait(5000);
            CurRegion := GetCurrentRegion; 
end;
if (CurRegion = ATown)  then AddToSystemJournal('Jump is OK...') else AddToSystemJournal('Ups...');
end;

Code: Select all

procedure TryResurrect;
begin
 AddToSystemJournal('TryResurrect...');
 FindDistance:=10;
 RecallFromPaperdol(2);//to Minoc
 while findtype($0004,ground)=0 do wait(500);
  moveXY(getX(findItem),getY(findItem),false,1,false);
 repeat 
	useObject(findItem);
	wait(1000);
 until HP>0;
 AddToSystemJournal('I am alive...');
end;