Szukasz skryptu? Zajrzyj tutaj!

zoxo · 30-05-2009 21:34

Już nic
post niepotrzebny

MilorS · 31-05-2009 06:49

Potrzebuje skrypt podobny do combo attack w tibia bot ng tylko ,żeby można było dodać z jakiego czaru można atakować.Bo gram na otsie dragon ball i nie moge ich atakować z run bo nie ma a weapony są słabe.Wieć chce skrypt combo attack w którym wpisuje się czar.

luzak90dd · 31-05-2009 11:57

Witam, wiem ze pytanie nie na temat ale mam takie pytanko , czy ma ktos skrybta do ng żeby bylo wydać niewidzialnych..
wiem ze ng ma to w sobie ale mi nie działa ;/ mam włonczony bot ng i nie widać niewidzialnych..

z góry dziękuje.

koles · 31-05-2009 15:17

Potrzebne mi 2 skrypty do tibia bot NG aby mozna bylo atakować potworka jakimś czaren (np. exevo mas san) i gdy juz jest zabity to czar automatycznie sie wyłacza. 2 potrzebny mi jest do rzucania sd w potworki.
Proszę o jak najszybszą odpowiedz. Z góry dziękuje.

luzak90dd · 01-06-2009 10:18

koles napisał

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

Potrzebne mi 2 skrypty do tibia bot NG aby mozna bylo atakować potworka jakimś czaren (np. exevo mas san) i gdy juz jest zabity to czar automatycznie sie wyłacza. 2 potrzebny mi jest do rzucania sd w potworki.
Proszę o jak najszybszą odpowiedz. Z góry dziękuje.

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 napisał

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

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

MonsterName = Nawa Potworka jakiego ma atakować
RuneID = ID Runki jaką ma atakować =)

Ork2 · 02-06-2009 22:43

Witam
Potrzebuje skryptu dzięki któremu postać będzie wchodzić do domku gdy na ekranie pojawi się inny gracz.

Zapomniałem TibiaNG :P

GonzoTheGreat · 02-06-2009 23:36

TA.
potrzebuję skryptu żeby bot chodził po femor hills, zabijał gobliny (z kamieni), a te kamienie które wypadną z goblajnów wsadzał spowrotem w łapę. gdy zabraknie capa, goni do dp carlin. (odkłada gp i stones)
z góry dzięki ;)

koles · 03-06-2009 12:53

Potrzebny mi skryp do tibi bot NG żeby mozna bylo walić z czaru(exevo mas mega san) a gdzy przyjdzie jakiś inny gracz to żeby zamieniło sie na (exori san) Proszę o jak najszybsza odpowiedz.

macintosh · 03-06-2009 22:25

potrzebuje skryptu by jeśli pojawi sie ghost to by go atakowało z hmm

Darkus · 04-06-2009 13:12

szukam prostego skryptu aby nie atakował FE a wszystkie inne potwory zeby atakował

Polaniecki ziom · 07-06-2009 11:12

Poproszę o skrypt do elf bota, który bedzie strzelał w potworki runą o ID XXXX :). Ponieważ jest to takie "mega sd", a niestety w targetingu nic zrobić nie mogę : /.

Mini · 07-06-2009 23:19

Mam skrypta ktory mi bardzo dobrze dziala i jest ok.. ale potrzebuj jego modyfikacji tak aby postac zmienila bron na royal spiry i zabila matke oraz inne potwory wokol i sie wylogowala gdy jakis potwor udezzy go za wiecej niz 50 lub skoncza sie potiony. i jeszcze zeby uzywal health potion gdy jest mneij hp niz 300, Mopj skrypt to :
const
Spell = 'exura'
Food_Id = 3725;
MinMana = 20;
StrongWeaponID = 7378;
HealAtHp = 400;
UhAtHp = 1;
ITEM_RUNE_UH = 316;
KillAtHp=200;
var
StrongWeapon:TItem;

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;

function Attacking: boolean;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
Result := True;
Exit;
end;
end;
Result := False;
Exit;
end;

function GetFollowedCreatureID: integer;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Following then
begin
Result := Creatures.Creature[x].ID;
Exit;
end;
end;
end;

begin
updateworld;
MotherSlime := GetFollowedCreatureID;
while not Terminated do
begin
UpdateWorld;
if self.LogoutBlock=false then self.Logout(false);
if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then
Self.Say(Spell)
UpdateWorld;
if ((Self.Health) <(UhAtHp)) then Self.Containers.UseItemWithSelf(GetItemFromOpenBac kpack(ITEM_RUNE_UH));
Sleep(1000);
if not Attacking then
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID <> MotherSlime then
begin
if (Creatures.Creature[x].Name <> Self.Name) and (Creatures.Creature[x].NPC) and (Creatures.Creature[x].Z = Self.Z) then
begin
UpdateWorld;
X1 := Creatures.Creature[x].X;
Y1 := Creatures.Creature[x].Y;
if (X1 - Self.X = 1) or (X1 - Self.X = 0) or (X1 - Self.X = -1) then
begin
UpdateWorld;
if (Y1 - Self.Y = 1) or (Y1 - Self.Y = 0) or (Y1 - Self.Y = -1) then
begin
Creatures.Creature[x].Attacking := true;
Break;
end;
end;
end;
end;
end;
end;
else
begin
if self.Health < KillAtHp then
Begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID = MotherSlime then
begin
if (Creatures.Creature[x].Name <> Self.Name) and (Creatures.Creature[x].NPC) and (creatures.creature[x].Z = self.Z) then
Creatures.Creature[x].Attacking := true;
StrongWeapon:= GetItemFromOpenBackpack(StrongWeaponID);
if StrongWeapon <> nil then
StrongWeapon.MoveToBody(Self.RightHand, 0);
Break;
end;
end;
end;
if Self.Mana < MinMana then
begin
UpdateWorld;
for container := 0 to Self.Containers.Count - 1 do
begin
UpdateWorld;
for item := 0 to Self.Containers.Container[container].Count - 1 do
begin
UpdateWorld;
if Self.Containers.Container[container].Item[item].ID = Food_Id then
Self.Containers.Container[container].Item[item].Use;
end;
end;
end;
end;
Sleep(1000);
end;
end;

Roni93 · 08-06-2009 00:06

macintosh napisał

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

potrzebuje skryptu by jeśli pojawi sie ghost to by go atakowało z hmm

Jeśli pod NG to zobacz ten:

Kod :

const 
  delay = 1.5 // delay to wait between shooting HMMs on the Ghost. 
  MonsterName = 'Ghost' 
  MinHP = 300 // if YOU have under this HP you will not shoot HMM. 
  MonsterHP = 0 // if MONSTER has this % of HP or less it will not shoot on it. 
  RuneID = 3285 // enter the ID of the rune you want to shoot 

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;

Tylko pamiętaj żeby zmienić id hmm

Polaniecki ziom · 08-06-2009 14:34

Polaniecki ziom napisał

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

Poproszę o skrypt do elf bota, który bedzie strzelał w potworki runą o ID XXXX :). Ponieważ jest to takie "mega sd", a niestety w targetingu nic zrobić nie mogę : /.

24h minęły ;]

Mini · 08-06-2009 15:47

Mam skrypta ktory mi bardzo dobrze dziala i jest ok.. ale potrzebuj jego modyfikacji tak aby postac zmienila bron na royal spiry i zabila matke oraz inne potwory wokol i sie wylogowala gdy jakis potwor udezzy go za wiecej niz 50 lub skoncza sie potiony. i jeszcze zeby uzywal health potion gdy jest mneij hp niz 300, Mopj skrypt to :
const
Spell = 'exura'
Food_Id = 3725;
MinMana = 20;
StrongWeaponID = 7378;
HealAtHp = 400;
UhAtHp = 1;
ITEM_RUNE_UH = 316;
KillAtHp=200;
var
StrongWeapon:TItem;

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;

function Attacking: boolean;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Attacking then
begin
Result := True;
Exit;
end;
end;
Result := False;
Exit;
end;

function GetFollowedCreatureID: integer;
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].Following then
begin
Result := Creatures.Creature[x].ID;
Exit;
end;
end;
end;

begin
updateworld;
MotherSlime := GetFollowedCreatureID;
while not Terminated do
begin
UpdateWorld;
if self.LogoutBlock=false then self.Logout(false);
if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then
Self.Say(Spell)
UpdateWorld;
if ((Self.Health) <(UhAtHp)) then Self.Containers.UseItemWithSelf(GetItemFromOpenBac kpack(ITEM_RUNE_UH));
Sleep(1000);
if not Attacking then
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID <> MotherSlime then
begin
if (Creatures.Creature[x].Name <> Self.Name) and (Creatures.Creature[x].NPC) and (Creatures.Creature[x].Z = Self.Z) then
begin
UpdateWorld;
X1 := Creatures.Creature[x].X;
Y1 := Creatures.Creature[x].Y;
if (X1 - Self.X = 1) or (X1 - Self.X = 0) or (X1 - Self.X = -1) then
begin
UpdateWorld;
if (Y1 - Self.Y = 1) or (Y1 - Self.Y = 0) or (Y1 - Self.Y = -1) then
begin
Creatures.Creature[x].Attacking := true;
Break;
end;
end;
end;
end;
end;
end;
else
begin
if self.Health < KillAtHp then
Begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if Creatures.Creature[x].ID = MotherSlime then
begin
if (Creatures.Creature[x].Name <> Self.Name) and (Creatures.Creature[x].NPC) and (creatures.creature[x].Z = self.Z) then
Creatures.Creature[x].Attacking := true;
StrongWeapon:= GetItemFromOpenBackpack(StrongWeaponID);
if StrongWeapon <> nil then
StrongWeapon.MoveToBody(Self.RightHand, 0);
Break;
end;
end;
end;
if Self.Mana < MinMana then
begin
UpdateWorld;
for container := 0 to Self.Containers.Count - 1 do
begin
UpdateWorld;
for item := 0 to Self.Containers.Container[container].Count - 1 do
begin
UpdateWorld;
if Self.Containers.Container[container].Item[item].ID = Food_Id then
Self.Containers.Container[container].Item[item].Use;
end;
end;
end;
end;
Sleep(1000);
end;
end;

Temat: Szukasz skryptu? Zajrzyj tutaj!

Narzędzia tematu

Oceń ten temat

tibia bot ng

Pomoc

skrypt do Tibi Bot NG

Luzak

Skrypt

Skrypt na slimy...

Potrzebuje ulepszyc skrypt!

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