martes, 10 de mayo de 2011

Take a photo when LVL UP

var
Level: integer;

begin
UpdateWorld;
Level := Self.Level;
while not Terminated do
begin
UpdateWorld;
if Level <> Self.Level then
begin
Level := Self.Level;
ScreenShot('c:level' + IntToStr(Level) + '.jpg');
end;
Sleep(1000);
end;
end; 

Antiparalize

Const
Spell_To_Cast = 'Exura'; //spell whit healh

Var
Initial_Speed: Integer;

Begin
UpdateWorld;
Initial_Speed:= Self.Speed;
//
While not terminated do begin
UpdateWorld;
//
If (Self.Speed < Initial_Speed) and (Self.Speed > 0) then begin
Self.Say(Spell_To_Cast);
Sleep(700);
End;
//
Sleep(300);
End;
//
End; 

lunes, 9 de mayo de 2011

Ghoul train

Const
SwitchAt=50;
AttackAt=90;
var
creature:tcreature;
function GetCreatureByNameHPHIGH(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
if Creatures.Creature[x].Health>AttackAt then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;
function Attacking: boolean;
var
x: integer;
begin
Result := False;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.Count then Break;
if Creatures.Creature[x].Attacking then
begin
Result := True;
Exit;
end;
end;
end;
function GetAttackedCreature: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].Attacking=true then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;
begin
while not Terminated do
begin
UpdateWorld;
if not attacking then
begin
Creature:=GetCreatureByNameHPHIGH('Ghoul'); //Nome do monstro
if Creature <> nil then
creature.attacking:=true;
end;
if attacking then
begin
Creature:=GetAttackedCreature;
if Creature <> nil then
if creature.Health < SwitchAt then creature.attacking:=false;
end;
sleep(1000);
end;
end;

Potion Health script for tibia bot ng

Const
UH_ID = 3160 // put the ID of health potion or UH
MF_ID = 2874 // put the ID of mana potion
UH_Alert = 5 //  Alert when have x health potion o UH
MF_Alert = 10 // Alert when have x Mana potion



While not terminated do

begin

UpdateWorld;



A:=0;

B:=0;

for i:= 0 to Self.Containers.Count -1 do

begin

for G:= 0 to Self.Containers.Container.Count -1 do

begin

if Self.Containers.Container.Item[G].ID = UH_ID

then A:= A +1;

if Self.Containers.Container.Item[G].ID = MF_ID then

if Self.Containers.Container.Item[G].amount = 10

then B:= B + 1;

Sleep(100);

end;

Sleep(100);

end;

if (A <= UH_Alert) or ( B <= MF_Alert ) then

PlaySound('C:\Windows\Media\Notify.wav');

sleep(100);

end;

Pick up spear script for pally tibia bot ng

const
  WeaponID = 3282 // weapon to use when no have spears
  SpearID = 3277  // id of spear or stone or etc.
  SpearOz = 20 // Oz of spear or stone or etc.
  SpearAmount = 1 // How many must have before switching back to spear

Procedure PickUpSpears(Spears: TItem);
begin
  if (Self.Capacity <= (Spears.Amount * SpearOz)) then
  begin
    if (Self.Capacity/SpearOz) > 1 then
      Spears.MoveToContainer(Self.Containers.Container[0], 0, Int(Self.Capacity/SpearOz));
  end else Spears.MoveToContainer(Self.Containers.Container[0], 0, 0);
  Sleep(500);
end;

Function GetItemFromOpenBackpack(ID, Index: 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;
    if x = Index then Continue;
    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 CountItemAmountFromOpenBackpack(ID: integer): integer;
var
  x: integer;
  y: integer;
begin
  Result := 0;
  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 := Result + Self.Containers.Container[x].Item[y].Amount;
      end;
    end;
  end;
end;

Exori hur/Exori - player safe

uses Exori when there are 2 or more creatures attacking me, or Exori hur, when there is only 1 creature next to me


Const
NumberOfMonsters = 1
NumberOfMonstersX = 2   //ten skrypt jest zjebany, popraw go jak bedziesz mial czas
MinHealth = 1550
MinMana = 150
Spell = 'Exori hur'
SpellX = 'Exori'

function CountMonstersBesideYou:Integer;
begin
Result := 0;
UpdateWorld;
for i := 0 to creatures.Count -1 do
begin
if i >= Creatures.Count then break
for x := -1 to 1 do
begin
if x >= 2 then break
for y := -1 to 1 do
begin
if y > 1 then break;
if Creatures.Creature[i].NPC then
if (Creatures.Creature[i].x = Self.X +x) and (Creatures.Creature[i].y = Self.y + y) and (Creatures.Creature[i].Z = Self.Z) then
Result := Result + 1;
end;
end;
end;
end;

function PlayerOnScreen: boolean;
var
  x: Integer;
begin
  Result := False;
  if Creatures.Count > 1 then
  begin
    for x := 0 to Creatures.Count - 1 do
    begin
      if Creatures.Creature[x].Name = Self.Name then Continue;
      if Creatures.Creature[x].NPC then Continue;
      if Creatures.Creature[x].Visible then Result := True;
    end;
  end;
end;

while not terminated do
begin
UpdateWorld;
if CountMonstersBesideYou >= NumberOfMonstersX then
  begin
  if PlayerOnScreen = false then
  if Self.Mana >= MinMana then
  if Self.Health > MinHealth then
  Self.Say(SpellX);
  Sleep(1050);
  end
if CountMonstersBesideYou = NumberOfMonsters then
  begin
  if Self.Mana >= MinMana then
  if Self.Health > MinHealth then
  Self.Say(Spell);
  Sleep(1050);
  end
end;

Slime train script for tibia bot ng

Put follow to mother of slime, and execute the script.

const 
      Spell = 'exura ico'
      Food_Id = 3578; //change this to the food you have on you 
      MinMana = 400;  // change this to the mana when it starts to eat 
      StrongWeaponID = 7390 // The weapon that will kill mother slime When KillAtHP 
      HealAtHp = 1200  // will use exura when get this hp  
      UhAtHp = 800  // will uh you if it get this HP 
      ITEM_RUNE_UH = 236 // enter here UH or IH to use in desired HP.
      KillAtHp= 1000 // when it get this hp it will kill the mother slime 
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;