Stealth Client Forum

Code: Select all

[size=9]program xxx;
...
procedure Heal;
begin
....
end;

procedure CheckFriend;
begin
....
end;

procedure Checkequip;
begin
....
end;

Begin
while true do
  begin
If not(isDead(self)) then Heal;
If not(isDead(self)) then CheckFriend;
If not(isDead(self)) then Checkequip;[/size]

Code: Select all

[size=9]begin
      If FindType($2006, ground) <> 0 then
      begin
       AddToSystemJournal('Найден труп ' + IntToStr(finditem));
         Corpse := finditem;
         UseObject(Corpse);[/size]

Code: Select all

procedure CheckGhost; 
var 
  Corpse: Cardinal;
  GetName: String;

begin 
  If IsDead(self) then 
   begin 
If FindType($2006,ground) <> 0 then
begin 
Corpse := GetCliloc(Findtype($2006,ground)));
if GetName(self) = Corpse then begin
..

Code: Select all

program Ghost;
var
Corpse: Cardinal;

procedure CheckGhost; 

begin
FindDistance := 1; 
If FindType($2006,ground) <> 0 then
AddToSysTemJournal ('Обнаружен: '+GetName(finditem));
Corpse := finditem;
???? =  ('Corpse of '+GetName(self)) then
begin
UOSay('БУ');
end;

BEGIN 
 while true do 
  begin 
  If not(isDead(self)) then CheckGhost;
  end; 
END.

Code: Select all

if GetName(finditem) =  ('Corpse of '+GetName(self)) then

Code: Select all

program Ghost;
var
Corpse: Cardinal;

procedure CheckGhost; 

begin
FindDistance := 1; 
If FindType($2006,ground) <> 0 then
begin
Corpse := finditem;
GetCliloc(finditem);
AddToSysTemJournal ('Обнаружен: '+GetName(finditem));
if GetName(finditem) = ('Corpse of '+GetName(self)) then
begin
UOSay('БУ');
end
else AddToSystemJournal('Подранок не обнаружен. Ждём...'); wait(500); exit;
end;
end;

BEGIN 
 while true do 
  begin 
  If not(isDead(self)) then CheckGhost;
  end; 
END.

Code: Select all

GetCliloc(finditem); 
AddToSysTemJournal ('Обнаружен: '+GetName(finditem));

Code: Select all

AddToSysTemJournal ('Обнаружен: '+GetCliloc(finditem));

Code: Select all

CurName := GetCliloc(FindItem);
while CurName = '' do CurName := GetCliloc(FindItem);
AddToSysTemJournal ('Обнаружен: ' + CurName);

Code: Select all

BEGIN 
 while true do 
  begin 
  If not(isDead(self)) then CheckGhost; 
else
 WAIT(5000);
  end; 
END.