• logo_cipsoft
    Nowe serwery zostały otwarte 19 Lut 2025:
    Noctalia (Open PvP) Ignitera (Open PvP) us_logo Xybra (Open PvP)

- Skrypt Spis skrypt?w do TibiaBot NG

  • Thread starter Thread starter Thomass
  • Rozpoczęty Rozpoczęty
Odp: Spis skrypt?w do TibiaBot NG

Mogl bym dostac scripta np jak traine to gdy mnie wyrzuci zeby sie zalogowal ponownie automatycznie pls fast ;) z Gory dziekuje
 
Odp: Spis skrypt?w do TibiaBot NG

Cze??. Potrzebuj? skryptu na automatyczne zaznaczanie mobow (bez wpisywania ich nazw, od razu zobaczy i bije.) oraz na automatyczne bicie potworow ( te? bez wpisywania ich nazwy, od razu bije, wystarczy wpisanie czaru) i jeszcze na haste. Wiem, ?e te 2 skrypty o kt?re prosi?em istniej?, poniewa? je kiedy? posiada?em. Bardzo potrzebne.
 
Odp: Spis skrypt?w do TibiaBot NG

Nazwa:
Uciekanie przed potworkiem
Opis:
Skrypt, kt?ry ucieka x SQM przed potworkiem.
Link:
Nie dzia?a
M?g?by kto? reupload?
 
Odp: Spis skrypt?w do TibiaBot NG

Witam serdecznie. Potrzebuj? tylko 1 skryptu a nigdzie go nie znalaz?em. Ot??... uzupe?nianie amunicji, jednak nie spear?w czy small stones lecz bolt?w/arrows?w (w miejsce pod praw? rek?. Oczywi?cie bym sam wklepa? id bolta bo jest inne. Bardzo dzi?kuj?.
 
Odp: Spis skrypt?w do TibiaBot NG

Witam, potrzebuj? skryptu do ng na otwieranie cia? po zabiciu potwora np. Hydra. I ?eby zbiera? tego lota i jakby baga otwiera? z hydry. Ma kto? taki skrypt na zbieranie lota?
 
Odp: Spis skrypt?w do TibiaBot NG

Witam serdecznie wszystkich graczy. Potrzebuje skryptu kt?ry b?dzie mi zbiera? loota z work?w.
Przyk?ad: Zabijam dragona lorda, z niego leci worek a w worku monetki kt?re chc? zebra?. Gdy otwieram worek to nie zbiera mi tych monetek, a zbierze je dopiero gdy otworze kolejnego trupa.
ID Monetek: 13161
 
Odp: Spis skrypt?w do TibiaBot NG

Potrzebuje skrypta do NG na zak?adanie energy ringa gdy x hp i zdejmowanie gdy x hp podrzuci kto??
 
Odp: Spis skrypt?w do TibiaBot NG

Wita moge proscisc o skrypta na gdy mam xx% hp wali spella ? a jak mniej niz 80% to nie wali
 
Odp: Spis skrypt?w do TibiaBot NG

nie dzia?a anty paral i pro?be mam dajcie skrypta na magic wall timer .?
 
Ostatnia edycja:
Odp: Spis skrypt?w do TibiaBot NG

potrzebuje skrypt na manasowanie ne expie jak niem potwortk to manasuje
na ue jak niema ludzi wali ue a jak sa to sd
 
Odp: Spis skrypt?w do TibiaBot NG

SZUKAM SKRYPT NA OTWIERANIE CIAL NG


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;
if Self.Containers.Container[Index].Item[y].ID = ID then
begin
Result := Self.Containers.Container[Index].Item[y];
Exit;
end;
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);
end;
end;
until not Found;
end;
procedure Event_ItemCreated(ID, X, Y, Z: integer);
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 := [3031, 3492]; //gold = 3031 and worms = 3492
LootCount := 2; //2 loot items
while not Terminated do
begin
ProcessEvents;
Sleep(100);
end;


TEN SKRYPT NIE DZIALA NA OTS, DLACZEGO BO MAPY SA INE

PROSZE O POMOC :crying: :crying:

CZY MORZNA ZROBIC SKRYPT NA OTWIERANIE CIAL, NA ID DO NG, TAK JAK W ELF BOCIE :ops::ops:
 
Ostatnia edycja:
Odp: Spis skrypt?w do TibiaBot NG

szukam skrypt kt?ry u?yje mi destroy fielda odrazu gdy kto? rzuci pode mnie fire bombe lub fire rune
 
Odp: Spis skrypt?w do TibiaBot NG

szukam skrypt kt?ry u?yje mi destroy fielda odrazu gdy kto? rzuci pode mnie fire bombe lub fire rune

---------- Tre?? dodana o 16:21 ----------

szukam skrypt kt?ry u?yje mi destroy fielda odrazu gdy kto? rzuci pode mnie fire bombe lub fire rune
 
Odp: Spis skrypt?w do TibiaBot NG

potrzebuje skryptu na energy ring gdy ile? tam hp zak?ada z ile? zdejmuj,chce ?eby zak?ada? z belt?w
 
Odp: Spis skrypt?w do TibiaBot NG

Witam poszukuje skrypta na ringa kt?ry jest zak?adany od hp i zeby sciaga? i zak?ada? na 2 raingi w skrypcie
 
Odp: Spis skrypt?w do TibiaBot NG

[lua]Const
BPIndex = 1
RingID = 3051 // ID ringa
MinHP = 100 // liczba hp kiedy ma zalozyc ringa
RemoveRingHP = 300 // liczba hp kiedy ma zdjac ringa

var
G:integer;

Function GetItemFromOpenBackpack(ID:integer):TItem;
begin
result := nil;
UpdateWorld;
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 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];
G := x;
Exit;
end;
end;
end;
end;

while not terminated do

UpdateWorld;
if Self.Health <= MinHP then
begin
if self.ring.ID = 0 then
begin
Ring := GetItemFromOpenBackpack(RingID);
if Ring <> nil then
Ring.MoveToBody(Self.Ring,0);
else Self.DisplayText('Nie znaleziono ringa w zadnym z plecakow.');
end;
end;
UpdateWorld;
if Self.Health >= RemoveRingHP then
begin
if self.ring.id <> 0 then
begin
Ring := Self.Ring;
Ring.MoveToContainer(Self.Containers.Container[BPIndex - 1],0,0);
end;
end;
sleep(1000);[/lua]
 
Odp: Spis skrypt?w do TibiaBot NG

Potrzebuje pomocy ?eby skrypt by? na manarune i zeby dawa? mane a nie na ucha i nie dawa? zycia tylko mane.

const

MiniCreatureHP = 95; // % of his minimum HP before healing.
ITEM_RUNE = 3160; // Rune ID
Name='Zaczarowany'; //Enter here the name of your friend.

var
Creature: TCreature;
CreatureName: string;


function IsCreatureVisible(Name: string): boolean;
var
x: integer;
begin
Result := False;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Name = Name then
begin
if Creatures.Creature[x].Visible then
begin
Result := True;
Exit;
end;
end;
end;
end;

function GetCreatureByName(Name: string): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if (Creatures.Creature[x].Name = Name) then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

begin
while not Terminated do
begin
UpdateWorld;
Creature := GetCreatureByName(Name);
If Creature<> nil then
If IsCreatureVisible(Name) then
begin
if ((Creature.Health) <(MiniCreatureHP))
then Self.Containers.UseItemWithCreature(ITEM_RUNE, Creature);
end;
Sleep(100);
end;

end;
 
Ostatnia edycja:
Odp: Spis skrypt?w do TibiaBot NG

[XML]const
minMana = 5500 //

while not terminated do
begin
UpdateWorld;
if Self.Mana < minMana then
Self.Containers.UseItemWithSelf(3157); //
Sleep(100);//
end; [/XML]
 
Do góry