Szukasz skryptu? Zajrzyj tutaj!

Potrzebny mi skrypt który gdy na ekranie pojawi sie demon skeleton wlaczy alarm i ucieknie w dane miejsce

Cytuj:

---

Eskaitezet napisał

potrzebuję skrypta który mi będzie uciekał przed potworem ale go bił np. frost dragonem.. obojętnie do jakiej wersji ng..

---

było wyżej już proszone.

Szukam skrypta który mi w NG będzie widział niewidzialne warlocki.. Nie potrzebuję tego do najnowszego NG.

Potrbuje skryptu do nG zeby na x poziomie logowal sie albo szedl do Miejsca Y

Zna ktoś moze scrypt żeby Tibia Ng pod Tibie 8.50 Otwierała Ciała?

Otóż mam problem ze znalezieniem skryptu. Dokładnie chodzi o to, by skrypt podmieniał bronie w danym momencie. Np. Gdy bije Carrion Worm zakłada różdżkę, a gdy walczy ze zwykłym Rotworm zakłada przykładowo miecz.

---------------
Game Support

TibiaBot NG Wersja 4.9.0 (tibia 8.5)
Żeby mi skillował na slimach i matki nie bił. x]

Cytuj:

---

Nss napisał

Zna ktoś moze scrypt żeby Tibia Ng pod Tibie 8.50 Otwierała Ciała?

---

Zaktualizuj ng.
ew.

Cytuj:

---

////////// Cave Hunting //////////
Const

Loot_Items = [3031]
Loot = 1

//////////////////////////////////



Var
Looting: Boolean



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;

Procedure Event_ItemCreated(ID, X, Y, Z: integer);
Var
i: Integer
Tile: TTile;
begin
if not Loot then Exit;
Tile := GetTileFromXYZ(X, Y, Z);
for i := 0 to Tile.Count-1 do
begin
if i >= Tile.Count then Break;
if Tile.Item[i].ID = ID then
begin
if Tile.Item[i].Properties.Container then Tile.Item[i].OpenInNewWindow;
Exit;
end;
end;
end;


Procedure Event_ContainerOpened(Index, ID: integer; Name: String);
begin
if not Loot then Exit;
Looting := True;
end;


Function GetItemFromOpenBackpack(ID, Index: 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;
if x = Index then Continue;
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;


Procedure EatFood;
Const
FoodList = [3595,3577,3578,3579,3582,3583,3584,3600,3584,3585, 3586,3587,3588,3589,3590,3591,3592,3593,3594,3598, 3599,3601,3602,3607,3725]
Var
i: Integer
begin
for i := Low(FoodList) to High(FoodList) do
begin
Food := GetItemFromOpenBackpack(FoodList[i], Self.Containers.Count);
if Food <> nil then
begin
Food.Use;
break;
end;
end;
end;

function OpenBags: Boolean;
var
x: integer;
y: integer;
begin
Result := False;
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 = 2853 then
begin
Self.Containers.Container[x].Item[y].Open;
Result := True;
end;
end;
end;
end;

Function SortLoot: Boolean;
var
Item: TItem
begin
Result := False
for x := Low(Loot_Items) to High(Loot_Items) do
begin
if x > High(Loot_Items) then break;
Item := GetItemFromOpenBackpack(Loot_Items[x], x);
If Item <> nil then
begin
Item.MoveToContainer(Self.Containers.Container[X], 0, 0);
Result := True;
Exit;
end;
end;
end;


begin
Looting := False
while not Terminated do
begin
ProcessEvents;
UpdateWorld;

if Looting then
begin
Looting := SortLoot;
if not Looting then
begin
EatFood;
if OpenBags then Looting := SortLoot;
end;
end;

Sleep(100);
end;
end;

---

Loot items-dopisujesz id itemow po przecinku
Loot- nie wiem o co chodzi z tym,musisz sprobowac sam (podejrzewam ze chodzi o bp ale nie jestem pewien)

Potrzebuję skryptu do elf bota gdy skończą się sd to będzie bił w dragi i dl z exori frigo. Ale TYLKO WTEDY GDY SKOŃCZĄ SIĘ SD !

Poszukuje skrypta do NG 8.42 :

* zeby bił z SD

* żeby dawał utamo vita i utani gran hur

* używał określonej runy , gdy mana jest X

* zmieniał roha , gdy się skończy

Szukam AKTUALNEGO spisu potworkow i hotkeya cos w stylu " 1 hotkey wszystkie exori" do Elfbota.
Kiedys to miałem ale teraz nie moge tego znalezc ;/

ELFBOT NG 8.41

Szukam skrypta na leczenie takim burning heart ma on 0 exhaused i klika się na niego i dodaje hp chcę skrypt żeby leczył poniżej np 300 hp

ID - 3240

Scrypty trzeba z zedytowac do swoich potrzeb.

KUBICA

Utamo Vita:

Cytuj:

---

while not terminated do
Begin
Updateworld;
If Self.MagicShield = false then Self.Say('Utamo Vita');
Sleep(500);
end;

---

Atakowanie z SD:

Cytuj:

---

//By Ash Katchup at 30 nov 2008
//Remember: This script use your Right Hand (--->)
Const
MonsterNames = ['Frost Dragon']; //Monster's list to attack with all
RuneId = 3155; //Id of the rune to use on monster
UseRune = 1 //0-Off, 1-On
WeaponId = 8082; //Id of weapon to use when attacking this monster
EquipWeapon = 0; //0-Off, 1 -On
OldWeaponId = 3280; //Id of weapon to use when NOT attacking this monster

function NeedAtk(Name:string):integer;
var
x:integer;
begin
Result:=1000;
for x:=Low(MonsterNames) To High(MonsterNames) do begin
if MonsterNames[x]=Name then Result:=x;
end;
end;

function GetCreatureByName(Id: integer): 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].Z <> Self.Z then Continue;
If Creatures.Creature[x].Id = Id then begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

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;

While Not Terminated do begin
updateworld;
if (Self.Attacking <> nil) then begin
Creature:=GetCreatureByName(Self.Attacking);
If Creature <> nil then begin
If NeedAtk(Creature.Name) <> 1000 then begin
If EquipWeapon = 1 then begin
Weapon:= GetItemFromOpenBackpack(WeaponId);
if (Self.RightHand.Id <> WeaponId) and (Weapon <> nil) then
Weapon.MoveToBody(Self.RightHand,0);
end;
If UseRune = 1 then begin
Self.Containers.UseItemWithCreature(RuneId, Creature);
Sleep(2000);
end;
end else begin
Weapon:= GetItemFromOpenBackpack(OldWeaponId);
If (Weapon <> nil ) and (Self.RightHand.Id <> OldWeaponId) then
Weapon.MoveToBody(Self.RightHand,0);
end;
end;
end;
end;

---

Ring Refiler:

Cytuj:

---

var
Life_Ring: Integer;
Ring: TItem;

//Made for TibiaBot NG by LordofWar.
//Created by Forge, copyright 2006-2007.
//Puts a life ring in your ringslot whenever the ringslot is empty.

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;

begin
Life_Ring := 3052;
while not Terminated do
begin
UpdateWorld;
if Self.Ring.ID = 0 then
begin
Ring := GetItemFromOpenBackpack(Life_Ring);
if Ring <> nil then Ring.MoveToBody(Self.Ring, 0);
end;
Sleep(5000);
end;
end;

---

Haste:

Cytuj:

---

if not Self.Hasting then
begin
Self.Say('Utani Hur');
Sleep (2000);
end;
sleep(100);
end;

---

GAME SUPPORT

Cytuj:

---

const List = ['Ghost'] //List of creatures to use enchanted Weapon

var
MeleeID: integer;
RodWandID: integer;

function GetCreatureByID(ID: integer): 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].ID = ID then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

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;

procedure Change;
var
Melee: TItem;
RodWand: TItem;
Attack: Boolean;
begin
UpdateWorld;
Attack := False;
if Self.Attacking <> nil then
begin
creature := GetCreatureByID(self.attacking);
if creature <> nil then
begin
for x := Low(List) to High(List) do
begin
IF AnsiLowerCase(creature.Name) = AnsiLowerCase(List[x]) then
Attack := true;
end;
end;
end;
if Attack then
begin
RodWand := GetItemFromOpenBackpack(RodWandID);
if RodWand <> nil then RodWand.MoveToBody(Self.RightHand, 0);
end;
else
begin
Melee := GetItemFromOpenBackpack(MeleeID);
if Melee <> nil then Melee.MoveToBody(Self.RightHand, 0);
end;
end;

begin
MeleeID := 3337; // Weapon 1 > Normal
RodWandID := 3316; //Weapon 2 > Enchanted
while not Terminated do
begin
updateworld;
Change;
Sleep(100);
end;
end;

---

COMRADEK

Musisz dać fallow na matke i dopiero execute script !

Slime Trainer:

Cytuj:

---

function Attacking: boolean;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
Result := True;
Exit;
end;
end;
Result := False;
Exit;
end;

function GetFollowedCreatureID: integer;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Following then
begin
Result := Creatures.Creature[x].ID;
Exit;
end;
end;
end;

var
MotherSlime, X1, Y1: integer;
begin
MotherSlime := GetFollowedCreatureID;
while not Terminated do
begin
UpdateWorld;
if not Attacking then
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID <> MotherSlime then
begin
if (Creatures.Creature[x].Name <> Self.Name) and Creatures.Creature[x].NPC then
begin
UpdateWorld;
X1 := Creatures.Creature[x].X;
Y1 := Creatures.Creature[x].Y;
if (X1 - Self.X = 1) or (X1 - Self.X = 0) or (X1 - Self.X = -1) then
begin
UpdateWorld;
if (Y1 - Self.Y = 1) or (Y1 - Self.Y = 0) or (Y1 - Self.Y = -1) then
begin
Creatures.Creature[x].Attacking := true;
Break;
end;
end;
end;
end;
end;
end;
Sleep(1000);
end;
end;

---

Szukam jakiegoś skryptu pod blackd dla 27 druida pod tibie 8.5 z bankierem na dwarfy w kazzo. Ciężko teraz ze skryptami kiedy bankier jest w dp :/

Cytuj:

---

Kaczor14 napisał

Szukam jakiegoś skryptu pod blackd dla 27 druida pod tibie 8.5 z bankierem na dwarfy w kazzo. Ciężko teraz ze skryptami kiedy bankier jest w dp :/

---

Tu masz bardzo dobry skrypt:

http://botting.pl/showthread.php?t=3279

Btw. masz napisane w 1 poście gdzie szukać ...