Szukasz skryptu? Zajrzyj tutaj!

Czy jest wgl taki skrypt ? Żeby stawał na ukos obok dragów ? Jeżli tak to poprosił bym, bo nie chcę się cały czas na weawy nadziewać xD I jeszcze 1, jak expie na tombie to jest tam mnóstwo monsterów, jest taki skrypt żeby brał 2 potwory na klate i uciekał z tymi 2, a nie stał obtoczony 9 potworkami ? NG

#up wez sie naucz ze jak chcesz skrypt to musisz odpowiedziec na pytanie na gorze kur**

Kod:

---

//Original Hiho
//Edited By AllucarDBR for no Up Ramps , and Follow  DRagon with Low Health


Const
Wanted='Dragon';// whice monster to keep diagnoling
AttackAt = 25
RampsID = [1950, 1952, 1954, 1956, 385, 1947, 434, 414, 604]

var
  x,Bla:Integer;
  Looting: boolean;


function IsCreatureBesideYou(c: TCreature): boolean;
begin
  UpdateWorld;
  if (abs(c.X-self.X) <= 1) and (abs(c.Y-self.Y) <= 1) then begin
    if c.Z = self.Z then
    begin
    Result := True;
    Exit;
    end;
  end;
  Result := False;
end;


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 IsTileWalkable(Tile: TTile): boolean;
begin
  Result := True;
  for Z := 0 to Tile.Count - 1 do
  begin
    if Tile.Item[Z].Properties.Hole then
    begin
      Result := False;
    end
    else if Tile.Item[Z].Properties.Stairs then
    begin
      Result := False;
    end
    else if not Tile.Item[Z].Properties.Walkable then
    begin
      OutputDebugString('Not Walk: ' + IntToStr(Tile.Item[Z].ID));
      Result := False;
    end;
    else
    begin
      for x := low(RampsID) to high(RampsID) do
      begin
      if Tile.Item[Z].ID = RampsID[x] then Result := False;
      end;
    end;
  end;
end;

function GetCreatureBesideYou: TCreature;
begin
  UpdateWorld;
  Result := Nil;
  for x := 0 to Creatures.Count - 1 do
  begin
      UpdateWorld;
      if (Creatures.Creature[x].Name=Wanted) then
      if IsCreatureBesideYou(Creatures.Creature[x]) then
      begin
      if Creatures.Creature[x].ID <> Self.ID then
        begin
        UpdateWorld;
        Result := Creatures.Creature[x];
        Exit;
        end;
      end;
  end;
end;

var
Moved:boolean;

begin
updateworld;
G:=false;
T:=false;
while not terminated do
    begin
    Bla:=Self.Containers.Count;
    updateworld;
    Creature:=GetCreatureBesideYou;
    if Creature<>nil then
    if Creatures.Creature[x].Health>AttackAt then
        begin
            if (Self.X<>Creature.X) and (Self.Y=Creature.Y) then
            begin
            Tile:=GetTileFromXYZ(Self.x,Self.y-1,self.z);
            if Tile<>nil then
            if IsTileWalkable(Tile) then
              begin
              Self.MoveUp;
              Moved:=true;
              end;
            If (Moved=False) then
              begin
              Tile:=GetTileFromXYZ(Self.x,Self.y+1,self.z);
              if Tile<>nil then
              if IsTileWalkable(Tile) then
              Self.MoveDown;
              end;
            end;
            Moved:=false;
            if (Self.X=Creature.X) and (Self.Y<>Creature.Y) then
            begin
            Tile:=GetTileFromXYZ(Self.x-1,Self.y,self.z);
            if Tile<>nil then
            if IsTileWalkable(Tile) then
              begin
              Self.MoveLeft;
              Moved:=true;
              end;
            If (Moved=False) then
              begin
              Tile:=GetTileFromXYZ(Self.x+1,Self.y,self.z);
              if Tile<>nil then
              if IsTileWalkable(Tile) then
              Self.MoveRight;
              end;
            end;
            end;
        sleep(1000);
    end;
end;

---

^ Stanie na ukos


2 Co ty bys chcial moze jeszcze zeby sam gral od 1 lv do 100 ci wbil automatycznie NIE MA TAKIEGO SKRYPTU NA NG !

@ up
Dzieki ;D Działa elegancko. Ale mam 1 problem ;/ W NG nie ma funkcji <lol2> follow ? Postac bije draga, stoi ukosem all right, ale jak dragon na redzie postać nic i dragon spieprza. Jak postać idzie po waypointach i nagle wyskoczy drag to zaznacza jako follow, ale jak drag red nic -.- Da się coś na to poradzić ?

Cytuj:

---

const
minMana = 200; //ile many
ManaPotionId = 268;//moglem dac zle ID, przetestuj przed uzyciem ;d


function GetItemFromOpenBackpack(ItemID, ItemType: integer): TItem;
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 = ItemID then
begin
if Self.Containers.Container[x].Item[y].Amount = ItemType then
begin
Result := Self.Containers.Container[x].Item[y];
Exit;
end;
end;
end;
end;
end;

while not Terminated do
begin
UpdateWorld;
if Self.Mana < minMana then
begin
Vial := GetItemFromOpenBackpack(ManaPotionId,0);
if Vial <> nil then
begin
Vial.UseWithSelf;
Sleep(500);
end;
end;
Sleep(500);
end;

---

Z tym skryptem też coś jest źle. Ztorga mam ten.

@up
zaznacz folloow w tibi wtedy postac powinna chodzi za potworem a z manasem chodzilo ci o to ze jezeli ponizej 280 many to uzyj mf tak ?

Kod:

---

const
  minMana =200// Change this to when you want it to heal.

while not terminated do
begin
  UpdateWorld;
  if Self.Mana < minMana then
      Self.Containers.UseItemWithSelf(237); //  Change this to the HEALTH potion's ID. 239 is Great. 236 is Strong.
      Sleep(1000);
end;

---

Zólte to ponizej ile bedzie pic pota
Czerwone to Id potionka
(scrypt Muucka)

Cytuj:

---

Sifersix napisał

Jako ze dwaj panowie up beda mieli warna prosze o moj skrypt :

a wiec na koncu tego qesta jest taki "pokoj" z minosami. Link :
hwwp://tibia.pl/quest_pokaz/Alawar's_Vault

Prosze wiec o to aby moj har skillowal na minosach w danym miejscu , bil je a kiedy niema przy nim zadnego minosa szedl w dane miejsce lurowal 2 minosy i wracal.Uzywam blackd proxy i oczywiscie mam pacc. Z gory dziex :)

#down : no moze ty nie ale kolega up odemnie bedzie mial warna bo nie dostales odp/nie minelo 24h

---

To samoooo

Ten skypt na manasy coś nie działa ;/ albo coś źle robię albo skrypt zły ?
Mam te :// usuwać ? Powiedzcie dokładnie ;( Help plz

Szukam skrytu który bedzię chodzić od rotów koło dp w ab do rotów koło biblioteki i będzie trenić mi dysta
chodzi o skrypt do tibii auto
może być jakieś podobny do tego o który mi chodzi czekam na wasze propozycje

Witam
Ma ktoś może taki skrypt ,że skiluje na slimach i mam włączone mc mojego knighta i ed i potrzebował bym taki skrypt żeby siochał mojego knighta jak ma ileś tam hp ... ma ktoś może coś takiego? Pod TibiaBotNG

#Edit
Zapomnialem ze pod requestem musi minac 24h

Witam
Ma ktoś może taki skrypt ,że skiluje na slimach i mam włączone mc mojego knighta i ed i potrzebował bym taki skrypt żeby siochał mojego knighta jak ma ileś tam hp ... ma ktoś może coś takiego?

Cytuj:

---

Gallana napisał

Witam
Ma ktoś może taki skrypt ,że skiluje na slimach i mam włączone mc mojego knighta i ed i potrzebował bym taki skrypt żeby siochał mojego knighta jak ma ileś tam hp ... ma ktoś może coś takiego?

---

jaki bot ?

Mam TibiaBotNG

Cytuj:

---

Gallana napisał

Witam
Ma ktoś może taki skrypt ,że skiluje na slimach i mam włączone mc mojego knighta i ed i potrzebował bym taki skrypt żeby siochał mojego knighta jak ma ileś tam hp ... ma ktoś może coś takiego?

---

uzywaj edycji postu

Kod:

---

Const
  //        Dodaj lub usuń graczy tutaj ...
  SioPlayers = ['Player1', 'Player2'];
  //Procent zdrowia, w którym do nich Sio ...
  SioAt = 40
  // To zostaw
  Delay = 1000

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;
    for i := low(SioPlayers) to high(SioPlayers) do
    begin
      Creature := GetCreatureByName(SioPlayers[i]);
      if Creature <> nil then
        if SioPlayers[i] = Creature.Name then
          if Creature.Health <= SioAt then
              Self.Say('Exura Sio "' + SioPlayers[i]);
    end;
    Sleep(Delay);
  end;

---

Kod:

---

Const MiniCreatureHP =50; // if your firned has 50% of his hp it will heal..change it as you like it.
const ITEM_RUNE_UH = 3160;
// Follow first the friend you want to sio and then start script //
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 GetFollowedCreature: 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].Following then
    begin
      Result := Creatures.Creature[x];
      Exit;
    end;
  end;
end;

begin
  UpdateWorld;
  Creature := GetFollowedCreature;
  while not Terminated do
  begin
    UpdateWorld;
      If Creature<> nil then
      If IsCreatureVisible(Creature.Name) then
      begin
      if ((Creature.Health) <(MiniCreatureHP)) and ((Self.Mana)>(70)) then
      Self.Say('exura sio "'+ Creature.Name) //name of friend
      else
      if ((Creature.Health) <(MiniCreatureHP)) then Self.Containers.UseItemWithCreature(ITEM_RUNE_UH, Creature);
      end;
      Sleep(1000);
  end;
 
end;

---

Badz sproboj tego
zobcz czy dziala

Cytuj:

---

Ten skypt na manasy coś nie działa ;/ albo coś źle robię albo skrypt zły ?
Mam te :// usuwać ? Powiedzcie dokładnie ;( Help plz

---

Scrypt Muccka ktory wstawilem ?

Szukam skryptu:Robienie Enchanted Spearów za pomocą TibiaAuto, lub TibiaBot NG
Widziałem na forum Tibiabot NG skrypt, ale nie działa.

Cytuj:

---

Blues Man napisał

Szukam skryptu:Robienie Enchanted Spearów za pomocą TibiaAuto, lub TibiaBot NG
Widziałem na forum Tibiabot NG skrypt, ale nie działa.

---

Do TA:
http://forum.tibia.org.pl/showthread.php?t=230275

Do NG:

Kod PHP:

---

Const SpearID = 3277 Spell = 'Exeta con' MinMana = 600 MinSoul = 5 WeaponID = 3272 function GetItemFromOpenBackpack(ID: integer): TItem; var 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.Mana >= MinMana then if Self.Soul >= MinSoul then begin Spear := GetItemFromOpenBackpack(SpearID); if Spear <> nil then Spear.MoveToBody(Self.RightHand,1); Sleep(800); UpdateWorld; If Self.RightHand.ID = SpearID then Self.Say(Spell); UpdateWorld; Weapon := GetItemFromOpenBackpack(WeaponID); if Weapon <> nil then Weapon.MoveToBody(Self.RightHand,0); end; sleep(500); end;

---