Temat: Szukasz skryptu? Zajrzyj tutaj!

const SpearID = 3277; 
      PickupAmount = 4; 
      MinAmount = 3; 
          
Function GMDetected: boolean; 
begin 
  Result := False; 
  UpdateWorld; 
  for x := 0 to Creatures.Count - 1 do 
  begin 
    if Creatures.Creature[x].GM then 
      Result := True; 
  end; 
end;  
          
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; 

begin 
  while not Terminated do 
  begin 
    UpdateWorld; 
    if ((Self.RightHand.Amount < MinAmount) and (not GMDetected)) then 
    begin 
       Spear := GetItemFromOpenBackpack(SpearID); 
       if (Spear <> nil) then 
          Spear.MoveToBody(Self.RightHand, PickupAmount); 
    end; 
    Sleep(100); 
  end; 
end;