Stealth Client Forum

Code: Select all

If (HP <=60) then
      begin
      addtosystemjournal('HP < 60');
      If poisoned = true then
        begin
        addtosystemjournal('poisoned');
        If FindType(pak[5],backpack) <> 0 then
          begin
          wait(4000);
          UOSay(chr(39) + 'pc quaf cure');
          wait(5000);
          end
        else
          sunduk;
        end;
      end;

Code: Select all

Program New;
begin
while not dead do
 begin
 If (HP <=110) then
   begin
   addtosystemjournal('HP < 110'); 
   If poisoned then
     begin
     addtosystemjournal('poisoned');
     end;
   end;
   wait(2000);
 end;
end.