Temat: Szukasz skryptu? Zajrzyj tutaj!

Const tItem = 'health potions...'; //To not waste items, i get the text 
                                 //'Using one of ...' 
      iMin = 3; //When reach this count, logout
Var iItem : integer;

procedure Event_Notice(Text: String);
begin
   if Pos(tItem, Text) = 0 then Exit;
   Delete(Text, 1, 13);
   iItem := StrToInt(Copy(Text, 1, Pos(' ', Text) - 1));
end;
   

While not terminated do
begin
  Sleep(1000);
   iItem := 0;
   updateworld;
   ProcessEvents;
   if iItem <> 0 then 
    begin
      if iItem < iMin then
         begin
            Self.Logout(true);
         end;
   end;
end;

Const 
  MinimumHP = 750 // w pierwszym wypadku
  MinimumHP2 = 300 // w drugim wypadku
  NumberOfVialsToDrink = 1
  PotionID = 7876  // ZMIEN ID NA ID MANA POTKA
  PotionID2 = 6666 // ZMIEN NA ID STRONG MANA POTKA
  MaxMana = 1000 //ZMIEN NA MAX SWOJEJ MANY

while not terminated do 
begin 
  UpdateWorld;   
  if Self.Health <= MinimumHP then 
  begin 
	if Self.Mana <= MaxMana then Self.Containers.UseItemWithSelf(PotionID); 
    for i := 1 to NumberOfVialsToDrink do 
    begin 
      if (terminated = true) then break; 
      Self.Say('exura');
      Sleep(2000); 
    end; 
  end; 
  if Self.Health <= MinimumHP2 then 
  begin 
	if Self.Mana <= MaxMana then Self.Containers.UseItemWithSelf(PotionID2); 
    for i := 1 to NumberOfVialsToDrink do 
    begin 
      if (terminated = true) then break; 
      Self.Say('exura');
      Sleep(2000); 
    end; 
  end; 
  Sleep(500); 
end;

Const  
  // Boots to use if LESS then Min_Mana //  
  Min_Mana = 100 
  SoftBoots_ID = 6529  
  SoftBoots_InUse_ID = 3549 
  // Boots to use if you have MORE then Max_Mana //  
  Max_Mana = 250
  Boh_ID = 3079 

function GetItemFromOpenBackpack(ID: integer): TItem;   
var   
  y: integer;   
begin   
  Result := nil;   
  for x := 0 to Self.Containers.Count - 1 do   
  begin   
    if x >= Self.Containers.Count then Break;   
    for y := 0 to Self.Containers.Container[x].Count - 1 do   
    begin   
      if y >= Self.Containers.Container[x].Count then Break;   
      if Self.Containers.Container[x].Item[y].ID = ID then   
      begin   
        Result := Self.Containers.Container[x].Item[y];   
        Exit;   
      end;   
    end;   
  end;   
end;  

if Max_Mana <= Min_Mana then  
begin  
  Self.DisplayText('Min health higher then max health? lol noob');  
  A := 1;  
end;  
else A := 0;  
while not terminated do  
begin  
  if A then break;  
  UpdateWorld;  
  if Self.Mana <= Min_Mana then  
  begin  
    if Self.Feet.ID  <> SoftBoots_InUse_ID then  
    begin  
      Boots := GetItemFromOpenBackpack(SoftBoots_ID);  
      if Boots <> nil then  
      Boots.MoveToBody(Self.Feet,0);  
      else Self.Displaytext('Boots werent found in open backpack!');  
    end;  
  end;  
  if Self.Mana >= Max_Mana then  
  begin  
    if Self.Feet.ID <> Boh_ID then  
    begin  
      Boots := GetItemFromOpenBackpack(Boh_ID);  
      if Boots <> nil then  
      Boots.MoveToBody(Self.Feet,0);  
      else Self.Displaytext('Boots werent found in open backpack!');  
    end;  
  end;  
  Sleep(500);  
end;