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

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

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