Szukasz skryptu? Zajrzyj tutaj!

Wersja do druku

Pokaż 50 post(ów) z tego tematu na jednej stronie

18-12-2008, 11:42
Czerez

#zbysio
Skrypt Nie Chodzi Caly Czas Mi Dzwoni Alert ;//
18-12-2008, 13:58
zbysio

Cytuj:

Czerez napisał

#zbysio
Skrypt Nie Chodzi Caly Czas Mi Dzwoni Alert ;//

to zmien sound allarm na 0
SoundAlarm = 1 zmien na SoundAlarm = 0

Cytuj:

twoja stara napisał

szukam skryptu do ng zeby char automatycznie jedl co ma w backpacku

nie wystarczy zaznaczyc "eat food"?
18-12-2008, 14:45
Tosik

Poszukuje nadal skryptu na chdozenie po ogniach na cave bocie do TibaiaBot NG oraz 2 skryptów:

-strzelanie z SD w potwory powyzej X HP
-strzelanie z exori frigo i i flam i tera w potwory

Najważniejsze dla mnie są jednak SD-ki.

Najlepsze by było gdybym np. na numpadzie wciskał 1 i włącza exori mort, wciskam 2 włącza frigo etc. wciskam 5 wale z sdkow

Pozdrawiam
18-12-2008, 14:55
Gray

Cytuj:

tosik napisał

-strzelanie z exori frigo i i flam i tera w potwory

Kod PHP:

const frigo = ['banshee', 'bear', 'behemoth', 'betrayed wraith', 'blue djinn', 'dark torturer', 'demon', 'destroyer', 'diabolic imp', 'dragon', 'dragon hatchling', 'dragon lord', 'dragon lord hatchling', 'dwarf geomancer', 'demon skeleton','fire devil', 'fire elemental', 'green djinn', 'hand of cursed fate', 'hellfire fighter', 'hellhound', 'kongra', 'lion', 'marid', 'merlkin', 'nomad', 'plaguesmith', 'priestess', 'rat', 'sibang', 'son of verminor', 'stone golem', 'tiger', 'undead dragon', 'war wolf','wyvern']; flam = ['ancient scarab','crypt shambler', 'azure frog', 'beholder', 'blightwalker', 'blood crab', 'bonebeast', 'braindeath', 'bug', 'carniphila', 'carrion worm', 'cave rat', 'centipede', 'crab', 'crocodile', 'dark monk', 'defiler', 'dwarf', 'dwarf guard', 'dwarf soldier', 'dworc fleshhunter', 'dworc venomsniper', 'dworc voodoomaster', 'elder beholder', 'gargoyle', 'gazer', 'ghoul', 'giant spider', 'hunter', 'larva', 'lich', 'lizard sentinel', 'lizard snakecharmer', 'lizard templar', 'mammoth', 'monk', 'mummy', 'necromancer', 'nightmare', 'panda', 'phantasm', 'pirate buccaneer', 'pirate corsair', 'pirate cutthroat', 'pirate ghost', 'pirate marauder', 'pirate skeleton', 'poacher', 'poison spider', 'scarab', 'serpent spawn', 'slime', 'spectre', 'spit nettle', 'stalker', 'swamp troll', 'tarantula', 'terror bird', 'thornback tortoise', 'toad', 'tortoise', 'vampire', 'wasp']; tera = ['cyclops', 'cyclops drone', 'cyclops smith', 'elf arcanist', 'frost troll', 'fury', 'orc', 'orc berserker', 'orc leader', 'orc rider', 'orc shaman', 'orc spearman', 'orc warlord', 'orc warrior', 'quara constrictor', 'quara hydromancer', 'quara mantassin', 'quara pincher', 'quara predator', 'quara constrictor scout', 'quara hydromancer scout', 'quara mantassin scout', 'quara pincher scout', 'quara predator scout', 'troll', 'troll champion']; vis = ['acolyte of the cult', 'adept of the cult', 'chakoya toolshaper', 'chakoya tribewarden', 'chakoya windcaller', 'crystal spider', 'elephant', 'enlightened of the cult', 'frost dragon', 'frost dragon hatchling', 'frost giant', 'frost giantess', 'ghost', 'hydra', 'ice golem', 'ice witch', 'juggernaut', 'lost soul', 'novice of the cult', 'penguin', 'polar bear', 'water elemental', 'winter wolf']; mort = ['black knight','amazon', 'assassin', 'bandit', 'barbarian bloodwalker', 'barbarian brutetamer', 'barbarian headsplitter', 'barbarian skullhunter', 'dark apprentice', 'dark magician', 'elf', 'elf scout', 'goblin', 'hero', 'minotaur', 'minotaur archer', 'minotaur guard', 'minotaur mage', 'rotworm', 'smuggler', 'valkyrie', 'warlock', 'wild warrior', 'witch']; useWand = 1 // 1 to attack with wand also, 0 to do not attack with wand. function GetExoriType(Crea: TCreature): String; begin Result := ''; for z := Low(frigo) to High(frigo) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(frigo[z]) then Result := 'exori frigo'; end; for z := Low(flam) to High(flam) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(flam[z]) then Result := 'exori flam'; end; for z := Low(tera) to High(tera) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(tera[z]) then Result := 'exori tera'; end; for z := Low(vis) to High(vis) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(vis[z]) then Result := 'exori vis'; end; for z := Low(mort) to High(mort) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(mort[z]) then Result := 'exori mort'; 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; begin sleepTime := 1100; if useWand = 0 then sleepTime := 1000; while not terminated do begin updateworld; if Self.Attacking <> nil then begin creature := GetCreatureByID(self.attacking); if creature <> nil then begin exori := GetExoriType(creature); if exori <> '' then begin updateworld; if (abs(creature.x - self.x) <= 3) and (abs(creature.y - self.y) <= 3) and (self.z = creature.z) then begin if Self.Attacking > 0 then if creature.visible then self.say(exori); end; end; end; end; sleep(sleepTime); end; end;

Cytuj:

tosik napisał

Poszukuje nadal skryptu na chdozenie po ogniach na cave bocie do TibaiaBot NG oraz 2 skryptów:

http://forum.tibia.org.pl/showthread.php?t=289097

Edytuj plik tibia.dat, znajdź Fire Field i odznacz 'blocking for pathfinder'.

Cytuj:

tosik napisał

Najważniejsze dla mnie są jednak SD-ki.

I przy okazji najtrudniejsze do znalezienia ^^

@dół
Nie dziwię się, bo ja też nie znalazłem ;p
18-12-2008, 15:29
Tosik

przysięgam na sdki nic nie znalazłem ;/ szukam i szukam, zalazlem tlyko tematy bez odpowiedzi ...

Chciałbym do SD coś w stylu exori mort czyli auto ataku :)

tu coś znalazłem ale nie wiem jak przerobić żebym sobie włączał auto atak z sd i wyłączał :)
Attack Monster list:

Kod PHP:

Const MonsterList = ['Demon','Dragon Lord','Hydra','Dragon','Ice Dragon'] function GetCreatureByName: 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 for i := low(MonsterList) to high(monsterlist) do if Creatures.Creature[x].Name = MonsterList[i] then begin Result := Creatures.Creature[x]; Exit; end; end; end; While not terminated do begin UpdateWorld; C := GetCreatureByName; if C <> nil then if not self.attacking then C.Attacking := true; sleep(100); end;

Oraz Runes Attack

Kod PHP:

const delay = 1.5 // delay to wait between shooting SDs on the demon. MonsterName = 'Bonebeast' MinHP = 0 // if YOU have under this HP you will not shoot sd. MonsterHP = 0 // if MONSTER has this % of HP or less it will not shoot on it. RuneID = 3155 // enter the ID of rune. 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; procedure Attack(Name:string); var Player:TCreature; x:integer; begin updateworld; Monster :=GetCreatureByName(Name); if monster <> nil then if Self.Health>MinHp then begin Self.Containers.UseItemWithCreature(RuneID, Monster); updateworld; end end; while not terminated do begin Yes := false; UpdateWorld; for i := 0 to creatures.Count - 1 do begin if creatures.Creature[i].Z = Self.Z then If Creatures.Creature[i].Name = MonsterName then begin Yes := true; repeat Attack(MonsterName); Sleep(Delay * 1000); UpdateWorld; for g := 0 to creatures.Count -1 do begin if creatures.Creature[i].Z = Self.Z then If Creatures.Creature[i].Name = MonsterName then Yes := True else Yes := false; else yes := false; end; until Yes = false; end; sleep(100); end; Sleep(100); end;

I jak przerobić te 2 żeby 10sec przed końcem czaru dopiero rzucal nowy:

Kod PHP:

Const Spell = 'Utamo Vita' // Spell words MinMana = 50 // Mana needed Seconds = 20 // Sleep time (Magic Shield wears off after 200s) while not terminated do begin UpdateWorld; if (Self.Mana >= MinMana) then begin self.say(Spell); end; Sleep(Seconds*1000); end;

oraz utani gran hur:

Kod PHP:

Const Spell = 'utani gran hur' MinMana = 100 while not terminated do begin UpdateWorld; if not self.hasting then if self.mana >= MinMana then Self.Say(Spell); sleep(1000); end;

PS co zaznaczyć żeby bot nie zaznaczał follow ?
19-12-2008, 09:53
kamxp125

Witam a ja potrzebuje skryptu do NG by chodził po speary do dp lub kupował. Np. expi, expi i zostaje mu 2 speary idzie do dp (lub kupuje) i bierze z 7 i wraca spowrotem expi i tak wkółko :) a jeśli tto możliwe to by przy okazji zostawial tez kase w dp ta co uzbierał :) No i jeszcze 1 skrypt by mi byl potrzebny by mój palladyn walił potwora z odległości...
19-12-2008, 10:19
Devils Sword

Cytuj:

kamxp125 napisał

Witam a ja potrzebuje skryptu do NG by chodził po speary do dp lub kupował. Np. expi, expi i zostaje mu 2 speary idzie do dp (lub kupuje) i bierze z 7 i wraca spowrotem expi i tak wkółko :) a jeśli tto możliwe to by przy okazji zostawial tez kase w dp ta co uzbierał :) No i jeszcze 1 skrypt by mi byl potrzebny by mój palladyn walił potwora z odległości...

nie jestem pewien , ale sa chyba takie skrypty , wiem ze napewno w bocie BlackD jest takie cos i latwo nawet to ustawic , a powiedz nam czy masz oryginalne ng czy crack ? bo jest jakas tam roznica w tym
19-12-2008, 10:20
kamxp125

crack :) i jak taki sprypt sie ładuje?
19-12-2008, 10:23
Devils Sword

Cytuj:

kamxp125 napisał

crack :) i jak taki sprypt sie ładuje?

jesli chcesz zaladowac skrpyt to szukasz zakladki podajrze to jest 3 zakladka , klikasz na nia i bierzesz scripter , nastepnie kopiujesz caly skrypt i wklejasz go w ta 1 ramke i gotowe : ] jesli masz z czyms problemy to pisz na pw , niechce warmow za niby spam , chodz bardziej tymi postami to pomagam ; D
19-12-2008, 12:01
Sholy

Cytuj:

Tosik napisał

PS co zaznaczyć żeby bot nie zaznaczał follow ?

To znaczy, żeby nie chodził za potworem np. jak ucieka albo skilujesz na slimach to żeby nie szedł do slima tylko czekał aż on podejdzie.
19-12-2008, 12:40
Power Is Back!!

Potrzebnuje skryptu na Mintwallin zeby chodzil ubijal, zbieral loota ,wycinal skorki i zeby skladal loota do baga ktorego gdzies wrzuce.
JCT 93 Knight z k setem c shieldem i fire axem.
19-12-2008, 19:58
Xyrdion

Cytuj:

Power Is Back!! napisał

Potrzebnuje skryptu na Mintwallin zeby chodzil ubijal, zbieral loota ,wycinal skorki i zeby skladal loota do baga ktorego gdzies wrzuce.
JCT 93 Knight z k setem c shieldem i fire axem.

mam na obsidian knife zeby wycinal skorki

const
obsidian_knife = 5908;
skin_body = [4011, 4047, 4052, 4057];

function searchIntArray(id:integer): boolean;
var
i: integer;
begin
result := false;
for i := low(skin_body) to high(skin_body) do begin
if skin_body[i] = id then result := true;
end;
end;

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 SkinBodies(id:integer): Boolean;
var
x, y: integer;
knife: TItem;
t: integer;
begin
UpdateWorld;
knife := GetItemFromOpenBackpack(obsidian_knife);
if knife = nil then
begin
Self.DisplayText('An Obsidian Knife could not be found, please open a container with it.');
exit;
end;
t := -1;
for x := -1 to 1 do begin
for y := -1 to 1 do begin
// if Screen.Tile[7+x, 5+y].Count >= 3 then begin
// t := -2
// end else t := -1;
if searchIntArray(Screen.Tile[7+x, 5+y].Item[Screen.Tile[7+x, 5+y].Count+t].ID) = true then begin
UpdateWorld;
knife := GetItemFromOpenBackpack(obsidian_knife);
if knife <> nil then begin
knife.UseWithGround(Self.X+X, Self.Y+Y, Self.Z);
Self.DisplayText('Attempted to skin a creature with the ID ' + IntToStr(Screen.Tile[7+x, 5+y].Item[Screen.Tile[7+x, 5+y].Count-1].ID) + '.');
Sleep(100);
UpdateWorld;
end;
end;
end;
end;
end;

begin
while not terminated do begin
UpdateWorld;
SkinBodies(skin_body);
Sleep(100);
end;
end;

Sam prosze o skrypt aby rzucal na depo raz jajko raz 1 gp na przemian
19-12-2008, 20:19
Gray

Cytuj:

xyrdion napisał

Sam prosze o skrypt aby rzucal na depo raz jajko raz 1 gp na przemian

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

Mam nadzieję, że się połapiesz w x i y, jeśli nie to PW.
20-12-2008, 15:30
Xyrdion

Cytuj:

Oli22 napisał

Witajcie, potrzebuje skryptu ktory zmnienia z broni do skilowania na mocna bron gdzy mam mniej niz x hp.

Potrzebuje rowniez czegos takiego, jak mnie atakuja 2 potwory bije z slabej broni (sickle) a jak przyjdzie 3 potwor ubija go z mocnej broni tak aby zostaly tylko 2

To samo :)
20-12-2008, 16:22
Stalker

Szukam skryptu do tibia auto hellgate

Szukam skryptu do tibia auto hellgate
proszę o małą arenę
Napiszcie co da się zrobić.

Pokaż 50 post(ów) z tego tematu na jednej stronie