#1 2009-08-17 13:33:19

 Mr Pawlo

Zbanowany

Zarejestrowany: 2009-03-22
Posty: 859
Server: Honera
Level: 50+ , 35+

Skrypty do TibiaBot Ng!

Elo.
W tym temacie będziemy zamieszczać skrypty do TibiaBot NG ^^
Oto kilka moich:

Anty Paral:

Spoiler:

const
minMana = 70;

while not Terminated do
begin
UpdateWorld;
if Self.Mana > minMana then
begin
if Self.Slowed then
Self.Say('utani hur')
end;
Sleep(300);
end;

Utani/Utani gran hur..itp.itd. gdy się skończy:

Spoiler:

Const
Spell = 'utani hur'
MinMana = 70

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

Bicie potwora z czaru:

Spoiler:

const
  CreatureList = ['potwór'];
  SpellList = ['czar'];
  ManaList = [ilość many];
  HealthList = [20];
  RangeList = [8];

function GetCreatureByID(ID: integer): TCreature;
var
  x: integer;
begin
  Result := nil;
  for x := 0 to Creatures.Count - 1 do
    if Creatures.Creature[x].ID = ID then
      Result := Creatures.Creature[x];
end;

var
  Creature: TCreature;
  Range,X,ID: Integer;
   
begin
  while not Terminated do
  begin
    UpdateWorld;
    if (Self.Attacking) then
    begin
      Creature:=GetCreatureByID(Self.Attacking);
      if (Assigned(Creature)) then
      begin
        ID:=-1;
        for X:=Low(CreatureList) to High(CreatureList) do
          if (CreatureList[X] = Creature.Name) then
            ID:=X;
        if (ID > -1) then
        begin
          Range := Round(Sqrt(Sqr(Self.X - Creature.X) + Sqr(Self.Y - Creature.Y)));
          if (Range <= RangeList[ID]) and (Self.Mana >= ManaList[ID]) and (Creature.Health >= HealthList[ID]) then
            Self.Say(SpellList[ID]);
        end;
      end;
    end;
    Sleep(2100);
  end;
end; 

Bicie potworów na niewidce z runki[ten skrypt nie testowany]:

Spoiler:


Const
  RuneID = 0 // enter the rune to shoot
  Delay = 1000 // in millseconds

while not terminated do
begin
  UpdateWorld;
  for i := 0 to creatures.count - 1 do
  begin
    if Creatures.Creature[i].NPC then
    if Creatures.Creature[i].Outfit = 0 then
    Self.Containers.UseItemWithCreature(
RuneID,Creatures.Creature[i]);
  end;
  sleep(Delay);
end;

To tylko kilka z tych, które mam.
Liczę na to, że i wy coś tutaj dodacie : )

Offline

 

#2 2009-08-17 14:29:30

Ariseus

Zbanowany

Skąd: Lublin
Zarejestrowany: 2009-06-04
Posty: 564
Nick: Fajny
Profesja: Fajny
Server: Fajny
WWW

Re: Skrypty do TibiaBot Ng!

Spoiler:

Const
List = ['Dragon', 'Dragon Lord']; <- Dopisz jakiego chcesz potwora !!
Spell = 'Exori Frigo';

function TestMonster(Crea: TCreature): boolean;
begin
Result := false;

   for z := Low(List) to High(List) do
   begin
     if AnsiLowerCase(Crea.Name) = AnsiLowerCase(List[z]) then
     Result := 'true';
   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;

while not terminated do
begin
  updateworld;
  if Self.Attacking <> nil then
  begin
    creature := GetCreatureByID(self.attacking);
    if creature <> nil then
    begin
      updateworld;
      if (abs(creature.x - self.x) <= 3) and (abs(creature.y - self.y) <= 3) then
      if (TestMonster(creature)) then
        begin
          if Self.Attacking > 0 then
          self.say(Spell);
          sleep(2000);
        end;
    end;
   sleep(200);
  end;

Skrypt na bicie potworkow z Exori Frigo

Ostatnio edytowany przez Ariseus (2009-08-17 14:30:33)


http://img246.imageshack.us/img246/3569/raulus.png
~Hala Madrit~

Offline

 

#3 2009-08-17 14:44:07

 Mr Pawlo

Zbanowany

Zarejestrowany: 2009-03-22
Posty: 859
Server: Honera
Level: 50+ , 35+

Re: Skrypty do TibiaBot Ng!

@up
Dodałem już coś takiego : )
Ale fajnie, że ktoś się zainteresował

Offline

 

Stopka forum

RSS
Powered by PunBB
© Copyright 2002–2008 PunBB
Polityka cookies - Wersja Lo-Fi


Darmowe Forum | Ciekawe Fora | Darmowe Fora
Charming 1-Bed Studio in Simpson Bay - Beacon Hill Noclegi Burundi