ae galera,

to procurando um script para repor royal spear, isto é, quando tiver restando apenas 1 royal spear na mão, ele colocaria mais spears que estivessem na BP.

espero que tenham entendido meu pedido

vaaleu

function GetItemFromOpenBackpack(ID: integer): TItem;  

var  

  x: integer;  

  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;



function CountItemAmountFromOpenBackpack(ID: integer): integer;

var

  x: integer;

  y: integer;

begin

  Result := 0;

  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 := Result + Self.Containers.Container[x].Item[y].Amount;

  	end;

	end;

  end;

end;



Procedure PutWeaponInRightHand(ID:Integer); 

var 

Weapon:TItem; 

begin

updateworld; 

Weapon:=GetItemFromOpenBackpack(ID);

if Weapon <> nil then 

begin 

Weapon.MoveToBody(self.RightHand, 0); 

sleep(1000); 

end; 

end;




While Not Terminated Do

Begin

  UpdateWorld

  Ammo := CountItemAmountFromOpenBackpack(7378) + Self.RightHand.Amount

  If Self.RightHand.ID = 0 Then

  PutWeaponInArightHand(7378)

  Sleep(500)

  If Ammo = 0 then

  begin

	beep

	Sleep(1000)

  End

End

Esse ae, coloca RS na mão direita.

valeu ae, vou testar