Szukasz skryptu? Zajrzyj tutaj!

Czerez · 18-12-2008 11:42

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

zbysio · 18-12-2008 13:58

Czerez napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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

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

twoja stara napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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

nie wystarczy zaznaczyc "eat food"?

Tosik · 18-12-2008 14:45

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

**Gray** · 18-12-2008 14:55

tosik napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

-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;

tosik napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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'.

tosik napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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

Tosik · 18-12-2008 15:29

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 ?

kamxp125 · 19-12-2008 09:53

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...

Devils Sword · 19-12-2008 10:19

kamxp125 napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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

kamxp125 · 19-12-2008 10:20

crack :) i jak taki sprypt sie ładuje?

Devils Sword · 19-12-2008 10:23

kamxp125 napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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

Sholy · 19-12-2008 12:01

Tosik napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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.

Power Is Back!! · 19-12-2008 12:40

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.

Xyrdion · 19-12-2008 19:58

Power Is Back!! napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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

**Gray** · 19-12-2008 20:19

xyrdion napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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.

Xyrdion · 20-12-2008 15:30

Oli22 napisał

Cytat został ukryty, ponieważ ignorujesz tego użytkownika. Pokaż cytat.

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 :)

Stalker · 20-12-2008 16:22

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

Temat: Szukasz skryptu? Zajrzyj tutaj!

Narzędzia tematu

Oceń ten temat

Szukam skryptu do tibia auto hellgate

Informacje o temacie

Użytkownicy przeglądający temat

Podobne tematy

Szukasz teamu? Zajrzyj tutaj!

Jaka to piosenka? Zajrzyj tutaj, jeśli szukasz tytułu zasłyszanego gdzieś kawałka.

Szukasz Mappera? Zajrzyj tu!

[7.4] Szukasz oldschoolowego ots'a pod 7.4? Zajrzyj!

Nie wiesz gdzie trenić? Zajrzyj tutaj!

Zakładki

Zakładki

Zasady postowania