Szukasz skryptu? Zajrzyj tutaj!

W związku z tym, że praktycznie nie potraficie przyzwyczaić się do tego, że skryptów należy szukać na stronie swojego bota, założyłem ten temat. Zazwyczaj użytkownicy nic nie wymyślą, tylko skopiują żywcem właśnie stamtąd, no ale mówił dziad do obrazu...

Krótki regulamin:
1. Temat ma wyglądać w ten sposób: prośba o skypt - odpowiedź. Prośba o skrypt - odpowiedź. Nie umieszczamy swoich requestów pod innym requestem.
(chyba, że miną 24h od prośby)
Za niezastosowanie się do tego minipunktu - kara #30 pkt.
Co to znaczy? Ano, ma to wyglądać w ten sposób:
Osoba nr. 1 umieszcza requesta.
Osoba nr. 2 odpowiada na pytanie osoby numer 1
Osoba nr. 3 umieszcza requesta.
Osoba nr. 4 odpowiada na pytanie osoby numer 3
Osoba nr. 4 umieszcza requesta.
itd.
2. Chciałbym, aby ten temat był OSTATECZNOŚCIĄ - szukasz już 16,5 godziny skryptu, przeszukałeś pół internetu i wszystkie fora na temat botów i dopiero na końcu prosisz o gotowca. Nie odwrotnie - najpierw poszukaj na własną rękę:

dla Blackdproxy - zapraszam tutaj oraz tutaj

dla TibiaBot NG - tutaj

dla TibiaAuto - tutaj

3. Za założenie osobnego tematu poza tym topiciem dotyczącego skryptów - #40 pkt karnych.
4. Jesteśmy dla siebie grzeczni - pamiętaj, że ktoś odwala za Ciebie czarną robotę i grzebie wśród tysięcy skryptów, żeby znaleźć coś dla Ciebie - nie besztaj go za to, że nie działa - to nie jego wina.
5. Ekipa moderatorska zastrzega sobie możliwość edytowania tego krótkiego regulaminu (z odpowiednią adnotacją oczywiście).

Sugestie? Propozycje? Pisz do mnie Prywatną Wiadomość!

Hej hej, Panowie i Panie, Lejdis end Dżentyl'men!

Małe przypomnienie (w końcu temat założyłem wieki temu :/)

Cytuj:

1. Temat ma wyglądać w ten sposób: prośba o skypt - odpowiedź. Prośba o skrypt - odpowiedź. Nie umieszczamy swoich requestów bezpośrednio pod innym requestem.
(chyba, że miną 24h od prośby)
Za niezastosowanie się do tego minipunktu - kara #10 pkt.

Usunąłem już parę postów z requestami bezpośrednio pod requestami... Zastanówcie się 5 razy, zanim coś napiszecie - post i tak zostanie usunięty (czyli nikt na niego nie odpowie), a 'zyskacie' w ten sposób jedynie (a raczej AŻ) #10 pkt karnych.

Szanujmy się nawzajem : )
Pozdrawiam!
###
Panowie do kurwy nędzy, nie wiem jak z Wami rozmawiać. Przeczytajcie proszę pierwszy punkt miniregulaminu tego tematu w pierwszym poście - już większych liter znaleźć nie mogłem.

Jeżeli sytuacja dalej bedzie się powtarzać (praktycznie co drugi/trzeci post nadaje sie do warna) - powrócimy do starej metody ze skryptami, czyli będą zabronione w ogóle. Bo to co się tutaj na razie dzieje, to parodia.
###
Jesteście kurwa beznadziejni. Już prędzej swojemu kotu bym wytłumaczył, jak to ma wszystko wyglądać.
Powtarzam po raz kolejny, tym razem na przykładzie:

Osoba nr. 1 umieszcza requesta.
Osoba nr. 2 odpowiada na pytanie osoby numer 1
Osoba nr. 3 umieszcza requesta.
Osoba nr. 4 odpowiada na pytanie osoby numer 3
Osoba nr. 4 umieszcza requesta.
Osoba nr. 5 jest POPIERDOLONA i dostaje warna, ponieważ umieszcza swojego requesta przed odpowiedzią na prośbę nr. 4

Już bardziej dosadnie tego wytłumaczyć nie potrafię. Może podwyżka z #10 pkt warna do #30 skłoni Was do bardziej rozsądnego myślenia.

Jeżeli tendencja się utrzyma - usunę temat i wrócimy do starego systemu "Absolutnie i stuprocentowe NIE dla jakichkolwiek skryptów'".
###

Wyczyściłem cały temat i połączyłem wszystkie swoje PRÓBY negocjacji z Wami. Może to pomoże? ; )

Cytuj:

SAM SIEBIE napisał

Hello.

I'm looking for a healing script which will be usable for my 50 lvl knight (facc)

I need:

Heal with Small Health Potion - when xxx hp
Heal with Exura - when xxx hp
Heal with Strong Health Potion -when xxx hp
Restore mana with Small Mana Potion - when xxx mp

I found one "Advenced healing script" .. for all profesion but it include , Great health potions , exana mort , and others .. (and beacouse im low lvl and facc i cant use them)

And Beacouse i'm newbie i don't know how to config it..

Help me plz )

To napisałem na forum tibiabot NG jednak do tej pory nie uzyskałem odpowiedzi..

Mam nadzieje forumowicze że mi pomożecie.

Poszukuje scryptu , który będzie mnie leczyć KILKOMA RODZAJAMI POTIONOW w zależności od tego jak szybko spada mi HP!

Tak więc for example (dla przykładu)

Mam 50 knighta (FACC!) (bez exany mort , nie może też GHP) .. no więc mam tego knighta.

Na full ma on ok 800~ hp .

Potrzebuje:
-użyć exury jeżeli hp spadnie sobie powoli do 700 hp.
-użyć Health Potiona jeżeli hp spadnie sobie powoli do 600 hp. (bo atakuje mnie kilka potworów naraz , albo hitają na tyle dużo że spada z 800 odrazu na 600.. ) [wiadomo że w takim wypadku exurą bym sie nie naleczył ..]

-użyć Strong Health Potiona w momencie kiedy moje hp dramatycznie spadnie np. poniżej 450~.
- do tego jeszcze w miare potrzeb uzupełniać brakującą mane Mana Potionami .

To wszystko ma być zawarte w jednym scrypcie..

Na forum tibiabot.com znalazłem jeden "Advanced Healing Scrypt" .. jednak jest on na tyle skomplikowany .. że nie mogę go ogarnąć .. (uwzględnia czary dla pacca , i potiony których nie mogę użyć .. i nie wiem jak to pominąć .. i go skonfigurować .. )

To chyba tyle czekam na odpowiedź .. sensowną ..

# Up Skrypt dziala sam sprawdzalem ;] teraz zajmijmy sie moim skryptem ;]

Kod:

const ExuraHP = 700 //hp do uzycia exury PotHP = 600 //hp do uzycia HPotiona ExuraMana = 20 //min many do uzycia exury PotSHP = 450 // hp do uzycia SHPotiona while not terminated do begin UpdateWorld; if self.health<ExuraHP and self.mana>=ExuraMana then self.say('Exura'); // czar jaki ma wypowiedzieć if self.health<PotHP then Self.Containers.UseItemWithSelf('0266'); if self.health<PotSHP then Self.Containers.UseItemWithSelf('0236'); //0266 to kod HPotiona, jezeli nie dziala sprawdz jakie ma id i popraw //0236 to kod SHPotiona, jezeli nie dziala sprawdz jakie ma id i popraw Sleep(1000); end;

Teraz ja :
Potrzebuje skrytptu do Tibi bot Ng 8.31 aby moja postac potchodzila do npc kupowala xx bp mana potion uzywala manasow ponizej many xx po czym jak skoncza sie bp manasow wyrzuca puste bp i idzie kupowac nastepne i manasowac sie ponizej xx many. I tak w kolko.Z gory dzieki

#down : prawdopodobnie masz racje zaraz poprawie tylko caly czas czekam czy ktos by mogl pomoc mi w moim skrypcie ;]

#up
Stałe muszą mieć różne nazwy. Nie może być

Kod:

const ExuraHP = 700 //hp to use exura not pot PotHP = 600 //hp to use pot/rune ExuraMP = 20 //min mana to still cast exura PotHP = 450 // hp to use pot/rune

Spóbuj tak:

Kod:

const ExuraHP = 700 //hp do uzycia exury PotHP = 600 //hp do uzycia HPotiona ExuraMana = 20 //min many do uzycia exury PotSHP = 450 // hp do uzycia SHPotiona while not terminated do begin UpdateWorld; if self.health<ExuraHP and self.mana>=ExuraMana then self.say('Exura'); // czar jaki ma wypowiedzieć if self.health<PotHP then Self.Containers.UseItemWithSelf('0266'); if self.health<PotSHP then Self.Containers.UseItemWithSelf('0236'); //0266 to kod HPotiona, jezeli nie dziala sprawdz jakie ma id i popraw //0236 to kod SHPotiona, jezeli nie dziala sprawdz jakie ma id i popraw Sleep(1000); end;

Pozdrawiam.

Witam

Potrzebuje 2 skryptow do NG:

1. Skrypt na przywitanie sie z Gm'em (zeby miec czas zminimalizowac wowa lub wstac w nocy) :)

2. Poszukuje rowniez skrypta ktory bedzie dzialal na prostej zasadzie
kiedy w zasiegu widzenia pojawi sie jakis gracz, bot nie atakuje mobow (w ogole, lub mobow innego gracza) glownie chodzi tutaj o sytuacje kiedy bot np. atakuje czyjes elf scouty na EF lub inne atakujace na dystans.
Chyba nie musze tlumaczyc czym to sie konczy na pvp =(

Z gory dziekuje
Mentos

@down
Tak wiem, ale nie zawsze spisuje sie to tak jak nalezy, tym bardziej przy wymienionych wyzej elf scoutach, ktore nie targetuja typowo na melee tylko na odleglosc i wtedy bot przy wylaczonej funkcji ktora podales troche sie miesza

Cytuj:

Mentos napisał

2. Poszukuje rowniez skrypta ktory bedzie dzialal na prostej zasadzie
kiedy w zasiegu widzenia pojawi sie jakis gracz, bot nie atakuje mobow (w ogole, lub mobow innego gracza) glownie chodzi tutaj o sytuacje kiedy bot np. atakuje czyjes elf scouty na EF lub inne atakujace na dystans.
Chyba nie musze tlumaczyc czym to sie konczy na pvp =(

Z gory dziekuje
Mentos

W ng, w cave bot masz Przycisk "Attack Monsters"- to zaznaczasz i odznaczasz "Target All"
Będzie atakowało tylko te moby, co ciebie atakują.

Tibia Bot NG
potrzebuje scryptu na takie cos:
jak postac ma ponizej np 150hp to zmiena bron na serpent sword... a jak mu sie uzupelni to zmienia znowu na knife czy cos takiego...
da sie zrobic? ;]

Cytuj:

Sc'Avenger`pR0*pLay3r napisał

Tibia Bot NG
potrzebuje scryptu na takie cos:
jak postac ma ponizej np 150hp to zmiena bron na serpent sword... a jak mu sie uzupelni to zmienia znowu na knife czy cos takiego...
da sie zrobic? ;]

Kod PHP:

Strong=3297;//ID silnej broni (domyslnie serpent) Weak=3291;//ID slabej broni (domyslnie knife) StrongHP=150; //jak spadnie ponizej tego, zmienia na serpenta WeakHP=149;//jak wzrosnie do tego, zmienia na knifa 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 PutWeaponInHand(ID:Integer); var Weapon:TItem; begin Weapon:=GetItemFromOpenBackpack(ID); if Weapon <> nil then begin Weapon.MoveToBody(self.LeftHand, 0); sleep(1000); end; end; begin while not terminated do begin updateworld; if Self.Health>=WeakHP then if Self.LeftHand.ID<>Weak then PutWeaponInHand(Weak); if Self.Health<=StrongHP then if Self.LeftHand.ID<>Strong then PutWeaponInHand(Strong); Sleep(1000); end; end;

A wiec tak. Mam problem ze skryptem ktory wyrzuca na ziemie wybrane itemy. Skrypt Wyglada tak:
----------------------------------------------------------
var
LootItems: array of integer;
Loot:TItem;
TargetXPos,
TargetYPos: integer;

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
LootItems := [3410,3264,3358,3286,3349,3354,3359]; // Comma seperated list of items you want to lootbag
LootItemsCount := 7; // Make sure this Count value is correct or not every item will be thrown out...

while not Terminated do
begin
UpdateWorld;
for x := 0 to LootItemsCount - 1 do
begin
Loot:= GetItemFromOpenBackpack(LootItems[x]);
if loot<>nil then
begin
Loot.MoveToGround(Self.X, Self.Y, Self.Z, 0);
end;
end
sleep(0);
end;
end;
---------------------------------------------------------------
wrzucam go do waypointow na sam koniec i gdy obleci mi juz cale mintwallin wyrzuca te itemy na dany sqm ale stoi pozniej i nic nie robi. Nie chce znowu isc do 1 waypointa. Prosze o pomoc..

Szukam skryptu na pierwszą kopalnie na -1, -2, -3, na soldierach, dwarfach i tych roznych slbaych ptworkach ;]

Cytuj:

Pastixor napisał

Szukam skryptu na pierwszą kopalnie na -1, -2, -3, na soldierach, dwarfach i tych roznych slbaych ptworkach ;]

Podaj bota, zrob sobie sam skrypta...Bo tutaj nikt nie daje waypointow, prawda?
Jezeli sie pomylilem to usune post, nie chce warna.

Aha, potrzebuje skrypta zeby wpisywalo mi text taki jak pokaze sie na dole ekranu jak na konu.pl !train "xxx(liczby)

W ogole jest to mozliwe? TibiaBot NG

Cytuj:

Eldereq napisał

Aha, potrzebuje skrypta zeby wpisywalo mi text taki jak pokaze sie na dole ekranu jak na konu.pl !train "xxx(liczby)

W ogole jest to mozliwe? TibiaBot NG

Nie raczej to nie jest mozliwe. Warn dla Pastixora nie minelo 24h od mojego postu ;/

TibiaBot NG:
potrzebuje scryptu, na robienie runek, a mianowicie:
char robi runki, jak ma 0 tych punktow, idzie na trole np. pod ab i wali dopoki nie bedzie mial 100 potem wraca i robi runki ...

@down

Cytuj:

coke napisał

Nie wiem czy działa.

Kod PHP:

//////////////////////////////////////////// const AfkSpotToCaveWaypoints = 'C:\Program\TibiaBot NG\a2.wpt' CaveWaypoints = 'C:\Program\TibiaBot NG\b.wpt' CaveToAfkSpotWaypoints = 'C:\Program\TibiaBot NG\c.wpt' minSoul = 5; maxSoul = 95; //////////////////////////////////////////// var Coins: 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; Procedure UseTile(X,Y,Z: Integer); Var Tile: TTile; begin if Z = Self.Z then begin Tile := GetTileFromXYZ(X, Y, Z); Tile.Item[1].Use; end; else Unreachable := True; end; Procedure UseRope(X,Y,Z: Integer); begin if Z = Self.Z then begin Self.Containers.UseItemWithGround(3003, X, Y, Z); end; else Unreachable := True; end; Procedure MoveTo(X,Y,Z: Integer); begin if Z = Self.Z then begin Self.MoveTo(X,Y,Z); end; else Unreachable := True; end; Procedure UseShovel(X,Y,Z: Integer); begin if Z = Self.Z then begin Self.Containers.UseItemWithGround(3457, X, Y, Z); Self.Containers.UseItemWithGround(5710, X, Y, Z); Sleep(1000); Self.MoveTo(X, Y, Z); end; else Unreachable := True; end; Procedure WaypointToAction(X,Y,Z,Action :Integer); begin UpdateWorld; Case Action of 1: UseRope(X,Y,Z); 2: UseTile(X,Y,Z); 3: MoveTo(X, Y+1, Z+1); 4: MoveTo(X, Y-1, Z-1); 5: MoveTo(X, Y, Z-1); 6: MoveTo(X, Y, Z); 7: UseShovel(X,Y,Z-1); 8: MoveTo(X, Y, Z); 9: Sleep(X*1000); else MoveTo(X,Y,Z); end; end; Function WaypointReached(X,Y,Z,Action :Integer): Boolean; begin UpdateWorld; Result := False; Case Action of 1: if (Z = Self.Z + 1) then Result := True; 2: if (Z = Self.Z + 1) then Result := True; 3: if (Z = Self.Z) then Result := True; 4: if (Z = Self.Z) then Result := True; 5: if (Z = Self.Z) then Result := True; 6: if ((X = Self.X) and (Y = Self.Y) and (Z = Self.Z)) then Result := True; 7: if (Z = Self.Z) then Result := True; 8: if (abs(Z - Self.Z) = 1) then Result := True; 9: Result := True; else if ((X = Self.X) and (Y = Self.Y) and (Z = Self.Z)) then Result := True; end; end; Function CountWaypoints(FilePath: String): Integre; Var i: Integer WaypointFile: TextFile begin i := 0 AssignFile(WaypointFile, FilePath); ReSet(WaypointFile); while not EoF(WaypointFile) do begin temp:= ReadLn(WaypointFile); i := i+1; end; Result:= (i/4); end; Function ExtractWaypointsFromFile(FilePath: String; Count: Integer): Integre; Var i: Integr WaypointsArray: Integer WaypointFile: TextFile begin WaypointsArray := VarArrayCreate([0, Count - 1, 0, 3], $C); AssignFile(WaypointFile, FilePath); ReSet(WaypointFile); for i:=0 to Count-1 do begin WaypointsArray[i,0] := StrToInt(ReadLn(WaypointFile)); WaypointsArray[i,1] := StrToInt(ReadLn(WaypointFile)); WaypointsArray[i,2] := StrToInt(ReadLn(WaypointFile)); WaypointsArray[i,3] := StrToInt(ReadLn(WaypointFile)); end; CloseFile(WaypointFile); Result := WaypointsArray; end; Procedure FollowWaypoint(FilePath: String) begin Index := 0 Unreachable := False WaypointsCount := CountWaypoints(FilePath); WP := ExtractWaypointsFromFile(FilePath, WaypointsCount); while (Index <> (WaypointsCount-1)) and (not Terminated) do begin if Unreachable then begin Index := Index+1; Unreachable := False; end; if Index = (WaypointsCount-1) then Index := 0; if WaypointReached(WP[Index,0],WP[Index,1],WP[Index,2],WP[Index,3]) then Index := Index +1; WaypointToAction(WP[Index,0],WP[Index,1],WP[Index,2],WP[Index,3]); Sleep(1000); end; end; while not terminated do begin updateworld; if Self.Soul <= minSoul then //----------------------------------------------// //***** Get from the Cave to the banker ***** // //----------------------------------------------// FollowWaypoint(AfkSpotToCaveWaypoints); //************************************// Sleep(2000); While (Self.Soul <= maxSoul) and (not terminated) do begin UpdateWorld; FollowWaypoint(CaveWaypoints); Sleep(2000); end; if Terminated then Exit; //----------------------------------------------// //**** Return from the banker to the cave ****// //----------------------------------------------// FollowWaypoint(CaveToAfkSpotWaypoints); //************************************// Sleep(1000); end;

moglbys powiedziec, co to znaczy:

AfkSpotToCaveWaypoints = 'C:\Program\TibiaBot NG\a2.wpt'

CaveWaypoints = 'C:\Program\TibiaBot NG\b.wpt'

CaveToAfkSpotWaypoints = 'C:\Program\TibiaBot NG\c.wpt'

xD
bo ja nie kumaty w tym jestem :P

Pozdro, Scavi ;**;**

Cytuj:

Sc'Avenger`pR0*pLay3r napisał

TibiaBot NG:
potrzebuje scryptu, na robienie runek, a mianowicie:
char robi runki, jak ma 0 tych punktow, idzie na trole np. pod ab i wali dopoki nie bedzie mial 100 potem wraca i robi runki ...

Nie wiem czy działa.

Kod PHP:

//////////////////////////////////////////// const AfkSpotToCaveWaypoints = 'C:\Program\TibiaBot NG\a2.wpt' CaveWaypoints = 'C:\Program\TibiaBot NG\b.wpt' CaveToAfkSpotWaypoints = 'C:\Program\TibiaBot NG\c.wpt' minSoul = 5; maxSoul = 95; //////////////////////////////////////////// var Coins: 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; Procedure UseTile(X,Y,Z: Integer); Var Tile: TTile; begin if Z = Self.Z then begin Tile := GetTileFromXYZ(X, Y, Z); Tile.Item[1].Use; end; else Unreachable := True; end; Procedure UseRope(X,Y,Z: Integer); begin if Z = Self.Z then begin Self.Containers.UseItemWithGround(3003, X, Y, Z); end; else Unreachable := True; end; Procedure MoveTo(X,Y,Z: Integer); begin if Z = Self.Z then begin Self.MoveTo(X,Y,Z); end; else Unreachable := True; end; Procedure UseShovel(X,Y,Z: Integer); begin if Z = Self.Z then begin Self.Containers.UseItemWithGround(3457, X, Y, Z); Self.Containers.UseItemWithGround(5710, X, Y, Z); Sleep(1000); Self.MoveTo(X, Y, Z); end; else Unreachable := True; end; Procedure WaypointToAction(X,Y,Z,Action :Integer); begin UpdateWorld; Case Action of 1: UseRope(X,Y,Z); 2: UseTile(X,Y,Z); 3: MoveTo(X, Y+1, Z+1); 4: MoveTo(X, Y-1, Z-1); 5: MoveTo(X, Y, Z-1); 6: MoveTo(X, Y, Z); 7: UseShovel(X,Y,Z-1); 8: MoveTo(X, Y, Z); 9: Sleep(X*1000); else MoveTo(X,Y,Z); end; end; Function WaypointReached(X,Y,Z,Action :Integer): Boolean; begin UpdateWorld; Result := False; Case Action of 1: if (Z = Self.Z + 1) then Result := True; 2: if (Z = Self.Z + 1) then Result := True; 3: if (Z = Self.Z) then Result := True; 4: if (Z = Self.Z) then Result := True; 5: if (Z = Self.Z) then Result := True; 6: if ((X = Self.X) and (Y = Self.Y) and (Z = Self.Z)) then Result := True; 7: if (Z = Self.Z) then Result := True; 8: if (abs(Z - Self.Z) = 1) then Result := True; 9: Result := True; else if ((X = Self.X) and (Y = Self.Y) and (Z = Self.Z)) then Result := True; end; end; Function CountWaypoints(FilePath: String): Integre; Var i: Integer WaypointFile: TextFile begin i := 0 AssignFile(WaypointFile, FilePath); ReSet(WaypointFile); while not EoF(WaypointFile) do begin temp:= ReadLn(WaypointFile); i := i+1; end; Result:= (i/4); end; Function ExtractWaypointsFromFile(FilePath: String; Count: Integer): Integre; Var i: Integr WaypointsArray: Integer WaypointFile: TextFile begin WaypointsArray := VarArrayCreate([0, Count - 1, 0, 3], $C); AssignFile(WaypointFile, FilePath); ReSet(WaypointFile); for i:=0 to Count-1 do begin WaypointsArray[i,0] := StrToInt(ReadLn(WaypointFile)); WaypointsArray[i,1] := StrToInt(ReadLn(WaypointFile)); WaypointsArray[i,2] := StrToInt(ReadLn(WaypointFile)); WaypointsArray[i,3] := StrToInt(ReadLn(WaypointFile)); end; CloseFile(WaypointFile); Result := WaypointsArray; end; Procedure FollowWaypoint(FilePath: String) begin Index := 0 Unreachable := False WaypointsCount := CountWaypoints(FilePath); WP := ExtractWaypointsFromFile(FilePath, WaypointsCount); while (Index <> (WaypointsCount-1)) and (not Terminated) do begin if Unreachable then begin Index := Index+1; Unreachable := False; end; if Index = (WaypointsCount-1) then Index := 0; if WaypointReached(WP[Index,0],WP[Index,1],WP[Index,2],WP[Index,3]) then Index := Index +1; WaypointToAction(WP[Index,0],WP[Index,1],WP[Index,2],WP[Index,3]); Sleep(1000); end; end; while not terminated do begin updateworld; if Self.Soul <= minSoul then //----------------------------------------------// //***** Get from the Cave to the banker ***** // //----------------------------------------------// FollowWaypoint(AfkSpotToCaveWaypoints); //************************************// Sleep(2000); While (Self.Soul <= maxSoul) and (not terminated) do begin UpdateWorld; FollowWaypoint(CaveWaypoints); Sleep(2000); end; if Terminated then Exit; //----------------------------------------------// //**** Return from the banker to the cave ****// //----------------------------------------------// FollowWaypoint(CaveToAfkSpotWaypoints); //************************************// Sleep(1000); end;

Szukam Skryptu, który wpłaca kase do banku jak ma np. 1k Mój bo to tibia bot ng

potrzebuje skrypta ktury bedzie chodzi wszedzie tam gdzie są kurczaki i bedzie mi zbierał pióka.

Potrzebuje scrypta do NG który po SS sie loguje otwiera bp z blankami, bp z foodem i robi runy.

Cytuj:

kosmo0505 napisał

potrzebuje skrypta ktury bedzie chodzi wszedzie tam gdzie są kurczaki i bedzie mi zbierał pióka.

Jeśli chodzi o piórka to najlpeiej na rooku.

Skrypt na atakowanie kuraczków (potwór który nie daje expa) :

Const
Monster = 'Chicken'

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].Z <> Self.Z then Continue;
if Creatures.Creature[x].Name = Name then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;

while not Terminated do
begin
UpdateWorld;
if not Self.Attacking then
begin
Creature := GetCreatureByName(Monster);
if Creature <> nil then Creature.Attacking := True;
end;
Sleep(1000);
end;

A waypointy napisz na gg mi to ci dam , bo nie mam 100 postów żeby wklejac linki ;/

3999199

Cytuj:

FluFluFlu aki daki napisał

Potrzebuje scrypta do NG który po SS sie loguje otwiera bp z blankami, bp z foodem i robi runy.

Na nastepny raz czytaj regulamin!!
A tu masz skrypt powinien działać:

Cytuj:

while not terminated do
begin
UpdateWorld;
if self.connected then
if self.containers.count = 0 then
self.backpack.open;
sleep(1500);
end;

Potrzebuje skryptu ktory bedzie atakowal z runy explosion te monsterki ktore beda mnie atakowaly

nikt niewie ?

#down : noto poleca punkty :D

Witam!

Mam pewien problem i potrzebuje skryptu :) Obczailem co mozna by zrobic, aby ominac wpisywanie kodu na konu.pl, ale potrzebny bedzie skrypt. Otoz skrypt ma dzialac tak: Postac skilluje i po 14 minutach ja wywala do temple gdy nie wpisze sie kodu.

1. Postac robi reloga w temple
2. Idzie do Train Roomu
3. Trebuje 14 minut
4. Dostaje kicka do temple

I bot dzialal by tak w kolko. Trening, tp do temple, relog, i powrot do traina. Daloby sie cos takiego napisac?

Czesc , Potrzebuje skryptu do Tibia NG na robienie enchanted spear

Cześć potrzebuję scryptu do NG.. a mianowicie

chcę żeby mi char chodził po ogniach, tzn. chcę ustawić postac np na POI dl, tam jets dużo ogni i postac nie chcę po nich chodzić

Pozdrawiam

Cytuj:

albert02 napisał

Witam!

Mam pewien problem i potrzebuje skryptu :) Obczailem co mozna by zrobic, aby ominac wpisywanie kodu na konu.pl, ale potrzebny bedzie skrypt. Otoz skrypt ma dzialac tak: Postac skilluje i po 14 minutach ja wywala do temple gdy nie wpisze sie kodu.

1. Postac robi reloga w temple
2. Idzie do Train Roomu
3. Trebuje 14 minut
4. Dostaje kicka do temple

I bot dzialal by tak w kolko. Trening, tp do temple, relog, i powrot do traina. Daloby sie cos takiego napisac?

Raczej niemożliwe bo jak juz to by musial chodzic do caly czas tego samego train room

Cytuj:

vaterion napisał

Czesc , Potrzebuje skryptu do Tibia NG na robienie enchanted spear

http://forums.tibiabot.com/showthread.php?t=31072

Cytuj:

blaze napisał

Cześć potrzebuję scryptu do NG.. a mianowicie

chcę żeby mi char chodził po ogniach, tzn. chcę ustawić postac np na POI dl, tam jets dużo ogni i postac nie chcę po nich chodzić

Pozdrawiam

Do tego nie trzeba skryptu.

http://forum.tibia.org.pl/showthread.php?t=289097
Znajdź Fire Field i odznacz 'Blocking for Pathfinder'.

@Gray

Serdeczne dzięki ;) ;*

Natychmiast potrzebuje skryptu!

Potrzebuje skryptu do NG zeby zmienial Crimson Sworda na knifa gdy jest mniej niz 2 roty a jak jest wiecej niz 1 to ma zakladac crimson sworda! i prosze od razu z wpisanymi id!!!!!!!!!!!!

#down
to sa id knife i crimsona? :D bo nie mam czasu sprawdzac ustawiam auto login i czekam az ban zejdzie ;x

co za roznica xd 1 czy 2 roty mi nie przeszkadzaja _/

Cytuj:

Eldereq napisał

Natychmiast potrzebuje skryptu!

Potrzebuje skryptu do NG zeby zmienial Crimson Sworda na knifa gdy jest mniej niz 2 roty a jak jest wiecej niz 1 to ma zakladac crimson sworda! i prosze od razu z wpisanymi id!!!!!!!!!!!!

Kod PHP:

Const NumberOfMonsters = 2 idTrain = 3291 // knife idFight = 860 // crimson function CountMonstersBesideYou:Integer; begin Result := 0; UpdateWorld; for i := 0 to creatures.Count -1 do begin if i >= Creatures.Count then break for x := -1 to 1 do begin if x >= 2 then break for y := -1 to 1 do begin if y > 1 then break; if Creatures.Creature[i].NPC then if (Creatures.Creature[i].x = Self.X +x) and (Creatures.Creature[i].y = Self.y + y) then Result := Result + 1; end; 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 (CountMonstersBesideYou > NumberOfMonsters) and (self.righthand.id = idTrain) then begin espada := GetItemFromOpenBackpack(idFight); if espada <> nil then begin espada.movetobody(self.righthand,1); end; end; if (CountMonstersBesideYou <= NumberOfMonsters) and (self.righthand.id = idFight) then begin espada := GetItemFromOpenBackpack(idTrain); if espada <> nil then begin espada.movetobody(self.righthand,1); end; end; sleep(100); end;

Nie testowałem.

Cytuj:

#down
to sa id knife i crimsona? :D bo nie mam czasu sprawdzac ustawiam auto login i czekam az ban zejdzie ;x

Tak, ID są dobre, nie wiem tylko czy w drugiej linijce powinno być wpisane 1, czy 2.

@dół
Chyba nie ma takiego skryptu ;d

Potrzebuje skrypta do ng w ktorym jest tak że ktoś cie lurnie na góre i ty tam waypointow nie ma to wracasz na dół i jeszcze ze jak widzi gs'a to olewa go i schodzi na dół . Chodzi mi o znany necro house kolo poh , padłem tam pare razy od gs'a ;/

A ja potrzebuję scrypta na ue combo :o

@edit

co ja niby złego napisałem że poszedł warned? czemu jest głupi :|?

Cytuj:

Blaze napisał

A ja potrzebuję scrypta na ue combo :o

#edit

co ja niby złego napisałem że poszedł warned? czemu jest głupi :|?

;o slepego na torgu mamy =/

Cytuj:

Pluton napisał

(...)

yyy? pluton co ty robisz ;x

PAMIETAC! MA MINA 24H OD REQUESTA ZEBY NAPISAC NNOWEGO!

UWAGA! POTRZEBUJE I JA SKRYPTU ;P.

Potrzebuje skryptu na to, ze jezeli zaczynam bic Acolyte of the Cult, Destroyera, Demona to moja postac ma walic z exori hur!
Jezeli widzi Nightmare to ma to zignorowac i nie bic z exori hur.

MIGIEM ;X

Cytuj:

Konus Elite napisał

Potrzebuje skrypta do ng w ktorym jest tak że ktoś cie lurnie na góre i ty tam waypointow nie ma to wracasz na dół i jeszcze ze jak widzi gs'a to olewa go i schodzi na dół . Chodzi mi o znany necro house kolo poh , padłem tam pare razy od gs'a ;/

oraz Depositera pod Tibia NG 4.8.2 i opisane co i jak ;d

Potrzebuje nowego depositera na żółwie w port hope pod Ng

Witam szukalem na forum ng ale jakos nie umie znalezc.
A mianowicie poszukuje skrypta ktory by zanosil kase do depo albo wplacal do banku a nastepnie wracal na expowisko wiem ze taki scrypt istnieje tylko nie umie go znalezc.
Za pomoc bede wdzieczny.

Potrzebuje skrypta do ng w ktorym jest tak że ktoś cie lurnie na góre i ty tam waypointow nie ma to wracasz na dół i jeszcze ze jak widzi gs'a to olewa go i schodzi na dół . Chodzi mi o znany necro house kolo poh , padłem tam pare razy od gs'a ;/
oraz Depositera pod Tibia NG 4.8.2 i opisane co i jak ;d

Cytuj:

Eldereq napisał

;o slepego na torgu mamy =/

PAMIETAC! MA MINA 24H OD REQUESTA ZEBY NAPISAC NNOWEGO!

UWAGA! POTRZEBUJE I JA SKRYPTU ;P.

Potrzebuje skryptu na to, ze jezeli zaczynam bic Acolyte of the Cult, Destroyera, Demona to moja postac ma walic z exori hur!
Jezeli widzi Nightmare to ma to zignorowac i nie bic z exori hur.

MIGIEM ;X

24 h minelo od tej prozby

@up dostali warny Wiec chyba moge ja zaproponowac :)

Potrzebuje skrypta o alarm Kiedy xxx strong mana potions i xxx sd

Cytuj:

noruś napisał

o alarm Kiedy xxx strong mana potions

Kod PHP:

const minPots = 100; var Pots: Integer; procedure Event_Notice(Text: String); begin if Pos('mana', Text) = 0 then Exit; Delete(Text, 1, 13); Pots := StrToInt(Copy(Text, 1, Pos(' ', Text) - 1)); end; begin Pots := minPots; while not terminated do begin UpdateWorld; ProcessEvents; if Pots < minPots then beep; Sleep(200); end; end;

Nie gwarantuję że zadziała,
http://forums.tibiabot.com/showthread.php?t=92616

Cytuj:

noruś napisał

i xxx sd

http://forums.tibiabot.com/showthrea...613#post157613
Zamiast ID Uha wstaw ID SD.

@dół
Znalazłem tylko SHP ;p

Kod PHP:

Const MinHealth = 100 // ile hp NumberOfVialsToDrink = 1 // zostaw jak jest IDPotion = 7876 // to tez zostaw jak jest Delay = 0 // i to tez ;d while not terminated do begin UpdateWorld; if Self.Health <= MinHealth then begin for i := 1 to NumberOfVialsToDrink do begin if (i >= NumberOfVialsToDrink + 1) or (terminated = true) then break; Self.Containers.UseItemWithSelf(IDPotion); Sleep(Delay*1000); end; end; Sleep(500); end;

Witajcie , potrzebuje skryptów :

1. Rzucanie mwalla odrazu przed przeciwnika uciekajacego
2. Na wrzucanie itemow do baga gdzies ukrytego , w ktorym znajduja sie bp i do nich wrzucac loota.
3. Skrypt na small health potiony na rooku
4. Na skillowanie , jak mi zabija slima nad venore to idzie na gore i czeka na respa?:]

pozdro viv3k

Liczę na pomoc od Graya:>

mam tylko ten na MW.

Kod PHP:

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; begin while not Terminated do begin UpdateWorld; if Self.Attacking <> 0 then begin Creature := GetCreatureByID(Self.Attacking); if Creature <> nil then begin case Creature.Direction of 0: Self.Containers.UseItemWithGround(3180, Creature.X, Creature.Y - 2, Creature.Z); 1: Self.Containers.UseItemWithGround(3180, Creature.X + 2, Creature.Y, Creature.Z); 2: Self.Containers.UseItemWithGround(3180, Creature.X, Creature.Y + 2, Creature.Z); 3: Self.Containers.UseItemWithGround(3180, Creature.X - 2, Creature.Y, Creature.Z); end; end; end; Sleep(2000); end; end;

Witam potrzebuje skrypt na uhanie sie health potion w bocie ng

Cytuj:

Ga Xoo napisał

Witam potrzebuje skrypt na uhanie sie health potion w bocie ng

3 posty wyżej...

Kod PHP:

Const MinHealth = 100 // ile hp NumberOfVialsToDrink = 1 // zostaw jak jest IDPotion = 266 // ID pota Delay = 0 // zostaw jak jest while not terminated do begin UpdateWorld; if Self.Health <= MinHealth then begin for i := 1 to NumberOfVialsToDrink do begin if (i >= NumberOfVialsToDrink + 1) or (terminated = true) then break; Self.Containers.UseItemWithSelf(IDPotion); Sleep(Delay*1000); end; end; Sleep(500); end;

Elo, potrzebuje skryptu do NG, skiluje na trollach w ab i jak przychodzi troll champion to mnie leje za mocno, wiec skrypt ma atakowac championa z mocnej broni a normalne trolle z slabej....

#down

Niestety ten skrypt nie dziala wyskakuje blad [Error] wzmjx.ng(2): Syntax error

Cytuj:

Oli22 napisał

Elo, potrzebuje skryptu do NG, skiluje na trollach w ab i jak przychodzi troll champion to mnie leje za mocno, wiec skrypt ma atakowac championa z mocnej broni a normalne trolle z slabej....

Trzymaj zmien tylko nazwę moba(tego mocniejszego) i ID bromi jakich używasz :)

Kod PHP:

//Enter the settings for when to change to DEFENSIVE// MonsterName = 'Dwarf Guard' weapon1_ID = 3295 //Enter the settings for when to change to OFFENSIVE back// Weapon2_ID = 3291 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; 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; procedure Event_Attacked(ID:integer); begin Creature := GetCreatureByID(ID); if Creature <> nil then begin A := 0; if Creature.Name = MonsterName then begin Self.Defensive; Weapon := GetItemFromOpenBackpack(Weapon1_ID); if Self.RightHand.ID <> Weapon1_ID then if Weapon = nil then self.DisplayText('Weapon1 wasnt found in open backpack!'); else Weapon.MoveToBody(Self.RightHand,0); A := 1; end; if not self.attacking then if A = 0 then begin Self.Offensive; if Self.RightHand.ID <> Weapon2_ID then begin Weapon := GetItemFromOpenBackpack(Weapon2_ID); if Weapon <> nil then Weapon.MoveToBody(Self.RightHand,0); else Self.DisplayText('Weapon2 wasnt found in opened backpack!'); end; end; end; end; while not terminated do begin UpdateWorld; ProcessEvents; sleep(100); end;

pomocy

mam crypta na reconnect i wsyztsko ok ale mam problem pozniewaz robie mlv na bocie i jak ktos podejdzie bot daje loga wlogowuje sie po pewnym czasie i nie zaznacza logaut player on screen co mam zrobic?

za pierwszym razem moj post zostal zignorowany wiec po jego usunieciu sprubuje jeszcze raz...

Czy wie ktoś moze jak ustawić tempo picia Great Mana Potion w ApolloBot?

Albo czy jest skrypt na picie great mana potion w TibiaAuto bez koniecznosci otwarcia bp w ktorym znajduja sie potki?

Chyba ze ktos zna jakis darmowy bot w ktorym mozna trenowac mlvl. (picie great mana potion[z mozliwoscia ustawienia tempa picia]+uzywanie czaru gdy mana osiagnie wartosc X)

Cytuj:

Uziel napisał

za pierwszym razem moj post zostal zignorowany wiec po jego usunieciu sprubuje jeszcze raz...

Czy wie ktoś moze jak ustawić tempo picia Great Mana Potion w ApolloBot?

Albo czy jest skrypt na picie great mana potion w TibiaAuto bez koniecznosci otwarcia bp w ktorym znajduja sie potki?

Chyba ze ktos zna jakis darmowy bot w ktorym mozna trenowac mlvl. (picie great mana potion[z mozliwoscia ustawienia tempa picia]+uzywanie czaru gdy mana osiagnie wartosc X)

Darmowy jest Ng / xD jak scarckujesz

macie tu linka do bota ng 8.31 ale i tak wam na niewiele sie przyda bo jutro update

Piszę post;) od ostatniej prośby minęło już 24/h

Trzeba mi scrypt na to żeby bot ng zamianiał z golda na
platinum coin przez klikniecie (ots) Był gdzieś tens krypt ale niemoge znaleźć;\

Potrzebuje skryptu na antybot system czyli ignorowanie potworow tych co nie da zabic