Szukasz skryptu? Zajrzyj tutaj!

Cytuj:

---

Serllo napisał

#up
ng nie ucieka, kup elfa.
#szukam skryptu na jumpowanie (starhopping) ale zeby automatycznie wystrzeliwalo rune icicle. Tibia NGBot ewentualnie Elf

---

Sprobuj to, choc nie jestem pewien czy to wogole do tego jest uzywane. Mialem w folderze jako "up-down atk", wiec moze zadziala. Nie testowalem.

Kod PHP:

---

Const MonsterToShoot = 'Giant Spider' Rune_ID = 3198 KeyToRelease = 88 function GetCreatureByName(Name:String): TCreature; begin UpdateWorld; for x := 0 to Creatures.Count - 1 do begin UpdateWorld; if Creatures.Creature[x].Z = Self.Z then if Creatures.Creature[x].Name = Name 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 Shoot; begin UpdateWorld; Creature := GetCreatureByName(MonsterToShoot); if Creature <> nil then Self.Containers.UseItemWithCreature(Rune_ID,Creature); else Self.DisplayText('A ' + MonsterToShoot + ' wasnt found on the screen.'); end; procedure Event_KeyUp(Key:Integer); begin if Key = KeyToRelease then begin UpdateWorld; case Self.Direction of 0: begin Z := Self.Z; repeat Self.MoveUp; sleep(1000); UpdateWorld; until (Z <> Self.Z) or (Terminated = true); Shoot; Z := Self.Z; repeat Self.MoveDown; sleep(200); UpdateWorld; until (Z <> Self.Z) or (Terminated = true); end; 1: begin Z := Self.Z; repeat Self.MoveRight; sleep(1000); UpdateWorld; until (Z <> Self.Z) or (Terminated = true); Shoot; Z := Self.Z; repeat Self.MoveLeft; sleep(200); UpdateWorld; until (Z <> Self.Z) or (Terminated = true); end; 2: begin Z := Self.Z; repeat Self.MoveDown; sleep(1000); UpdateWorld; until (Z <> Self.Z) or (Terminated = true); Shoot; Z := Self.Z; repeat Self.MoveUp; sleep(200); UpdateWorld; until (Z <> Self.Z) or (Terminated = true); end; 3: begin Z := Self.Z; repeat Self.MoveLeft; sleep(1000); UpdateWorld; until (Z <> Self.Z) or (Terminated = true); Shoot; Z := Self.Z; repeat Self.MoveRight; sleep(200); UpdateWorld; until (Z <> Self.Z) or (Terminated = true); end; end; // end of the case. sleep(500); end; end; while not terminated do begin UpdateWorld; ProcessEvents; Sleep(300); end;

---

ja mam pytanie czy jest jakiś sprawdzony SCRIPT , który zalogowałby daną postać po kicku internetu np. (chodzi mi o to , że np. neostrada mnie kicknie w nocy , i gdy już połączenie zostanie wznowione script "zaloguje" postać)

chodzi mi o jakiś sprawdzony , działający script (żeby działał na account name)

----

oraz czy jest jakiś script , który logowałby nas X minut po server save ? (żeby uniknąć bana)


----

I takie pytanko

czy w NG jest script na uciekanie przed potworem i trzymanie go na dystans (albo w blackD)

-----


jeśli nie ma takich scriptów , które opisałem pod NG to czy ma ktoś takowe pod blackD ?


@down
wielkie dzięki ; d

a wiadomo coś z scripten na trzymanie dystansu (uciekanie przed powtorem) w NG / blackD ?

Logowanie jest i na 100% dziala. Za chwile editne i bedzie. A z tym diagonal to chodzi Ci o stanie na ukos czy trzymanie dystansu np. 3 kratki? Jesli ukos to ten skrypt powinien dzialac.

Kod PHP:

---

//Original Hiho //Edited By AllucarDBR for no Up Ramps , and Follow DRagon with Low Health //without Diagonal // 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;

---

LOGOWANIE PO SS.

Wpisz passy, nick postaci, swiat i o ktorej jest SS. W ip nic nie ruszaj.

Kod PHP:

---

const Account = 'xxxxxx'; Password= 'xxxxxx'; Character = 'xxxxxx'; World= 'xxxxxx'; Ip = ''; ServerSave = '08:00:00' begin while not terminated do begin if TimeToStr(Now) = 'ServerSave-00:10:00' then begin Self.Logout(True); Sleep(3000000); Self.Login(Account, Password, Character, World, Ip); Sleep(15000); UpdateWorld; Self.Backpack.Open; Sleep(2000) UpdateWorld; for x := 0 to Self.Containers.Container[0].Count do begin if x >= Self.Containers.Container[0].Count then Break; if Self.Containers.Container[0].Item[x].Properties.Container then begin Self.Containers.Container[0].Item[x].OpenInNewWindow; Sleep(2000); end; Sleep(1000); exit; end; Sleep(100); end; Sleep(500); end; end;

---

LOGOWANIE PO KICKU NETA!

Kod PHP:

---

//change this info to match your own const Account = 1234567; Password = 'mypassword'; Character = 'LordOfWar'; World = 'Antica'; while not Terminated do begin UpdateWorld; if not Self.Connected then begin Self.Login(Account, Password, Character, World); Sleep(15000); end; Sleep(100); end;

---

Cytuj:

---

pawel1992 napisał

ja mam pytanie czy jest jakiś sprawdzony SCRIPT , który zalogowałby daną postać po kicku internetu np. (chodzi mi o to , że np. neostrada mnie kicknie w nocy , i gdy już połączenie zostanie wznowione script "zaloguje" postać)

chodzi mi o jakiś sprawdzony , działający script (żeby działał na account name)

----

oraz czy jest jakiś script , który logowałby nas X minut po server save ? (żeby uniknąć bana)


----

I takie pytanko

czy w NG jest script na uciekanie przed potworem i trzymanie go na dystans (albo w blackD)

-----


jeśli nie ma takich scriptów , które opisałem pod NG to czy ma ktoś takowe pod blackD ?


#down
wielkie dzięki ; d

a wiadomo coś z scripten na trzymanie dystansu (uciekanie przed powtorem) w NG / blackD ?

---

Oto co znalazłem i co ja myślę o tym scrypcie

Sam skrypt ucieczki jest praktycznie niemożliwy do napisania, jeśli nie zastosujemy do jego tworzenia jakiegoś "triku". A możliwości jest kilka.

Tutaj widzimy przykładową "jaskinię" - ekran gry:
http://img84.imageshack.us/img84/8994/mapka3it1.png

Sposób nr.1:
Jak widać dróg do których możemy uciekać są cztery. Nasz skrypt odczytuje widok mapy z pamięci gry i na podstawie niespecjalnie skomplikowanego algorytmu szuka możliwe ścieżki. Automatycznie orientuje się, że uciekając do najbliższej "jedynki" szybko skończy mu się droga; do "dwójki" tak samo.
Bot musi wybrać teraz pomiędzy "trójką" i "czwórką". Nie wie co jest dalej, więc będzie uciekał na chybił trafił, biorąc na ten przykład drogę "4". Co nie zmienia faktu, że skrypt musi cały czas monitorować czy potwór jest w naszym zasięgu i oczywiście go atakować. Co więcej, w trakcie poruszania się w kierunku drogi "4", może okazać się, że "czwórka" się kończy i lepiej będzie szybko skręcić do "trójki".
I to jeszcze nie koniec! Skrypt musi uwzględniać też to, że potwór może blokować mu jedyną drogę ucieczki, gdy znajdziemy się w ślepej uliczce. Wtedy skrypt musi przestawić się na jedyną możliwą opcję - uciekać dalej w głąb tej uliczki i zatrzymać się na jej końcu (może przeżyjemy, może nie...)
Całość była by więc cokolwiek trudna do opracowania :)

Sposób nr.2:
Nic nie stoi na przeszkodzie zapisywać drogę z której przyszliśmy. Nasz skrypt może wykorzystać drogę jaką dotarliśmy do potwora, aby po tej samej ścieżce uciekać przed nim. Ten sposób byłby łatwiejszy do wykonania niż "sposób nr.1" (i pewnie łatwiejszy od poniższych).

Sposób nr.3:
Tutaj szczególne wskazanie na bota Tibia Auto. Posiada on funkcję zapisywania mapy w mapięci. Chodząc po jaskini robimy sobię mapę korytarzy. Korzystając ze skrpytera możemy napisac funkcję, która na podstawie mapy korytarzy, obierze najdłuższą drogę, po której będziemy mogli uciekac od potwora. Niestety sposób ten jest tylko trochę (troszeczkę) łatwiejszy od "sposobu nr.1"...

Sposób nr.4:
Jest jeszcze jedna opcja i ta wydaje się dość prosta i logiczna - aby bot odczytywał możliwe drogi na podstawie minimapy. Z regóły mamy tam wszystkie ścieżki i dzięki temu możemy opracować drogę, którą się poruszać. (algorytmy jak w przypadkach "1" i "3").

Podsumowując - ja bym stawiał na Tibię Auto. Jego mapa może być bardzo przydatna ;)
Oczywiście dla ambitnych pozostaje opcja "4" - minimapa służąca za mapę.
Tak więc ten scrypt jest praktycznie nie do napisania
#edit
Gray jak myślisz dało by radę napisać taki scrypt ?

Proszę o skrypt gdy widzi rotworma podchodzi do niego.. a nie dopiero jak uderzy rot w postać

NG

druga sprawa

gdy ma mniej niż 100 hp to niech użyje exura... da się coś wykombinować?

Cytuj:

---

korekis napisał

Proszę o skrypt gdy widzi rotworma podchodzi do niego.. a nie dopiero jak uderzy rot w postać

NG

druga sprawa

gdy ma mniej niż 100 hp to niech użyje exura... da się coś wykombinować?

---

EXUROWANIE = Tools-> Self Healing -> Minimum health: np. 100 ->Healing spell: wpisujesz EXURA -> Mana Needed: w przypadku Exury wpisujesz ' 20 '/ Naciskasz na Use Spell / i DZIAŁA

a co do 2 pytania Zaznaczasz w cave hunterze "Target all" i smiga :)

Witam przejzalem caly temat i nie znalazlem tego co szukalem wiec napisze. Ptrzebuje scryptu do ng na life ringa aby bot mi go wkladal jak mam np 300 hp a zdjemowal jak mam 600

Cytuj:

---

Magic Karp napisał

Witam przejzalem caly temat i nie znalazlem tego co szukalem wiec napisze. Ptrzebuje scryptu do ng na life ringa aby bot mi go wkladal jak mam np 300 hp a zdjemowal jak mam 600

---

Numer bp w którym jest life ring.


Hp potrzebne do włożenia life ringa. - MinHealth = 600

Hp do sciągnięcia life ringa - HealthToRemoveRing = 700

Kod PHP:

---

Const BPIndex = 2 RingID = 3052 MinHealth = 600 HealthToRemoveRing = 700 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 begin If HealthToRemoveRing <= MinHealth Then begin Self.DisplayText('HealthToRemoveRing must be higher then MinHealth! Script will turn off now. Please try again.'); exit; end; UpdateWorld; if Self.Health <= MinHealth then begin if self.ring.ID = 0 then begin Ring := GetItemFromOpenBackpack(RingID); if Ring <> nil then Ring.MoveToBody(Self.Ring,0); else Self.DisplayText('The Ring wasnt found in any opened backpack.'); end; end; UpdateWorld; if Self.Health >= HealthToRemoveRing then begin if self.ring.id <> 0 then begin Ring := Self.Ring; Ring.MoveToContainer(Self.Containers.Container[BPIndex - 1],0,0); end; end; sleep(500); end;

---

Witam, poszukuje skrypta do tibii auto, na fortece elfów. Jeśli ktoś posiada prosze wysyłać pw lub gadu-gadu 8240872.
Pozdrawiam,
Alf.

Cytuj:

---

AlfonZik napisał

Witam, poszukuje skrypta do tibii auto, na fortece elfów. Jeśli ktoś posiada prosze wysyłać pw lub gadu-gadu 8240872.
Pozdrawiam,
Alf.

---

http://tibiaauto.net/forum/viewtopic.php?f=21&t=1003751
http://tibiaauto.net/forum/viewtopic.php?f=21&t=1005938

Witam, szukam skryptu na leczenie strong health potionem na 500hp, a exura poniżej 900 oraz dobrego respondera.
Mam tibiabot ng


@edit
dzieki Gray

Cytuj:

---

niezły zenek napisał

Witam, szukam skryptu na leczenie strong health potionem na 500hp, a exura poniżej 900 oraz dobrego respondera.
Mam tibiabot ng

---

Kod PHP:

---

const ////////// Potion Healing ////////// Minimum_Potion_Health = 500 Health_Potion_ID = 236 //////////////////////////////////// ////////// Spell Healing ////////// Minimum_Spell_Health = 900 Healing_Spell = 'exura' Mana_Needed = 20 Restore_Mana_At = 0 Mana_Potion_ID = 268 //////////////////////////////////// while not Terminated do begin UpdateWorld; if (Self.Health < Minimum_Potion_Health) then Self.Containers.UseItemWithSelf(Health_Potion_ID); if (Self.Health < Minimum_Spell_Health) and (Self.Mana >= Mana_Needed) then begin Self.Say(Healing_Spell); Sleep(1000); end; else if (Self.Mana < Restore_Mana_At) and (Self.Health > Minimum_Potion_Health) then begin Self.Containers.UseItemWithSelf(Mana_Potion_ID); Sleep(1000); end; Sleep(100); end;

---

Responder później ;d

Cytuj:

---

niezły zenek napisał

Witam, szukam skryptu na leczenie strong health potionem na 500hp, a exura poniżej 900 oraz dobrego respondera.
Mam tibiabot ng


#edit
dzieki Gray

---

forums.tibiabot.com/showthread.php?t=34000

Dobry jest, ale nie tak bardzo bo ja padlem wczoraj :D

Nie wiedzialem jak tego posta usuniac wiec cos tu pisze ;|

Witam potrzebuje skrypt do TibiaBot NG
Chodzi mi o autoresponder...proszę o szybkie odp