C A N N A B I S

jest an sieci na pewno wpisz w google to 胫骨精灵机器人 lub to قزم بوت الإنتر lub to एल्फ बीओटी टिबिया

var Loot: array of integer; LootCount: integer; function GetTileFromXYZ(X, Y, Z: integer): TTile; begin Result := nil; if abs((Self.X - 7) - X) > 14 then Exit; if abs((Self.Y - 5) - Y) > 11 then Exit; if Self.Z <> Z then Exit; Result := Screen.Tile[abs((Self.X - 7) - X), abs((Self.Y - 5) - Y)]; end; function GetItemOnTile(ID: integer; Tile: TTile): TItem; var Z: integer; begin Result := nil; for Z := 0 to Tile.Count - 1 do begin if Z >= Tile.Count then Break; if Tile.Item[Z].ID = ID then begin Result := Tile.Item[Z]; Break; end; end; end; function GetItemFromOpenBackpack(Index, ID: integer): TItem; var y: integer; begin Result := nil; if Index >= Self.Containers.Count then Exit; for y := 0 to Self.Containers.Container[Index].Count - 1 do begin if y >= Self.Containers.Container[Index].Count then Break; end; end; procedure Event_ContainerOpened(Index, ID: integer; Name: string); var x: integer; Found: boolean; begin if Index = 0 then Exit; repeat Found := False; for x := 0 to LootCount - 1 do begin UpdateWorld; Item := GetItemFromOpenBackpack(Index, Loot[x]); if Item <> nil then begin Found := True; Item.MoveToContainer(Self.Containers.Container[0], 0, 0); Sleep(200); var Corpse: TItem; Tile: TTile; begin UpdateWorld; if abs(Self.X - X) > 1 then Exit; if abs(Self.Y - Y) > 1 then Exit; if Self.Z <> Z then Exit; Tile := GetTileFromXYZ(X, Y, Z); if Tile = nil then Exit; Corpse := GetItemOnTile(ID, Tile); if Corpse = nil then Exit; if (Corpse.Properties.Container) and (not Corpse.Properties.Movable) then Corpse.Open; end; begin Loot := [3079, 3392]; //gold = 3031 and worms = 3492 <<<<<here is ur items wich u want loot LootCount := 2; //2 loot items while not Terminated do begin ProcessEvents; Sleep(100); end; end; ten jest OK!

warn to bedzie dla ciebei za spam w tym topicu prosilem wyraźnie moda! a ty nie jestes modem wiec zamknij jape bo ci naszcze no MODZIE ODPISUJ! bo kurwa czas mija @DOWN ŻAL!

jak w temacie jaki spam etc licze na wyjasnienia do kurwy nedzy!! co za mod i za co to na co i po co.. tylko mod ma odpowiedzieć [quote]POPATRZ NA SWĄ TWARZ BO TWÓJ STARY SADZI LAS NIE DO TEMATU TO JAK COŚ XDX [/quote]

www.rapidshare.com tam masz dużo czitów do TIBI LICZE NA 5*

Już można zamknąc wybrałem tego jednego sposród nie wiem 20

JEABNE RASISTY!!! CHUJ IM DO DUPY @up TAK

sieci nie istnieją FAKE!

witam mogę zahostwać komuś serwer w zamian chcę GM INFO HOSTING ME - Internet 120mb/s - UPC HOST INTERNET - MOJA LOKALIZACJA - POLSKA - > LUBELSKIE -> ŚWIDNIK czemu chce hostować ? - bo nie wiem jak założyć swój pzdr.. CHCESZ ABYM ZAHOSTOWAŁ CIĘ PISZ PW/ LUB GG 10647012