SHARE
TWEET

Untitled

a guest Nov 19th, 2019 78 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Const
  2.   RuneID = 3155
  3.   MinHP = 100
  4.    
  5. function GetAttackedCreature:TCreature;  
  6. begin  
  7.   UpdateWorld;  
  8.   result := nil;  
  9.   for i := 0 to Creatures.Count -1 do  
  10.   begin  
  11.     if i >= Creatures.Count then break;  
  12.     if Creatures.Creature[i].ID = Self.Attacking then  
  13.     Begin  
  14.       result := Creatures.Creature[i];  
  15.       exit;  
  16.     end;  
  17.   end;  
  18. end;  
  19.  
  20. while not terminated do
  21. begin  
  22.   UpdateWorld;
  23.   Creature := GetAttackedCreature;  
  24.   if Creature <> nil then  
  25.   if Self.Health >= MinHP then
  26.   Self.Containers.UseItemWithCreature(RuneID,Creature);  
  27.   sleep(100);
  28. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top