Nazwa forum

Opis forum


#1 2009-06-22 18:37:01

Agent

Administrator

Zarejestrowany: 2009-06-22
Posty: 26
Punktów :   

Auto Stone Skin

const
  Elven_Amulet = ???;//Change here for the ID, you can also put the Stone Skin ID, it will work
   
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;


var
  Amulet: TItem;
while not Terminated do
  begin
    UpdateWorld;
    if Self.Amulet.ID = 0 then
    begin
      Amulet := GetItemFromOpenBackpack(Elven_Amulet);
      if Amulet <> nil then Amulet.MoveToBody(Self.Amulet, 1);
    end;
    sleep(500);
  end;

Offline

 

Stopka forum

RSS
Powered by PunBB
© Copyright 2002–2008 PunBB
Polityka cookies - Wersja Lo-Fi


Darmowe Forum | Ciekawe Fora | Darmowe Fora
www.lwiaziemiaijejstado.pun.pl www.nightwolves-guild.pun.pl www.eurotop.pun.pl www.metinboty.pun.pl www.zssf.pun.pl