Nombre de usuario:  
Contraseña:     
Regístrate Ayuda Lista de miembros Calendario Mensajes nuevos Mensajes de hoy Búsqueda


¡Nuevo Concurso!: Desarrollo de proyectos Saapy 2011 (11 Mayo 2011)

Enviar respuesta 
 
Calificación:
  • 0 votos - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Scripts para Tibia BOT NG [Buenisimos]
Autor Mensaje
Turista en Saapy
*

Mensajes: 17
Registro en: May 2011
Reputación: 0
Gracias: 0
Recibido 0 gracias en 0 post(s)

Comentarios Recibidos: 0
Comentarios Hechos: 0

Dolares: 0.00 US$
Mensaje: #1
Scripts para Tibia BOT NG [Buenisimos]

0
0
ANTIPARALIZE:

Const
Spell_To_Cast = 'Exura';

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;

Tira un mw enfrente de tu target:

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
while not Terminated do
begin
UpdateWorld;
if Self.Attacking <> 0 then
begin
Creature := GetCreatureByID(Self.Attacking);
if Creature <> nil then
begin
case Creature.Direction of
0: Self.Containers.UseItemWithGround(3180, Creature.X, Creature.Y - 2, Creature.Z);
1: Self.Containers.UseItemWithGround(3180, Creature.X + 2, Creature.Y, Creature.Z);
2: Self.Containers.UseItemWithGround(3180, Creature.X, Creature.Y + 2, Creature.Z);
3: Self.Containers.UseItemWithGround(3180, Creature.X - 2, Creature.Y, Creature.Z);
end;
end;
end;
Sleep(2000);
end;
end;


SACA FOTO CUANDO PASAS DE LVL :

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;



TE CURA EL POISON SI ESTAS EN 2 DE HP:

var
MaxPoison: integer;

procedure Event_Notice(Text: string);
var
PoisonAmount: string;
begin
UpdateWorld;
if Self.Mana < 30 then Exit;
if not Self.Poisoned then Exit;
if Pos('You lose ', Text) = 0 then Exit;
if Pos(' hitpoints.', Text) = 0 then Exit;
PoisonAmount := Text;
Delete(PoisonAmount, 1, 9);
PoisonAmount := Copy(PoisonAmount, 1, Pos(' ', PoisonAmount) - 1);
if IntToStr(PoisonAmount) > MaxPoison then Self.Say('exana pox');
end;

begin
MaxPoison := 2;
while not Terminated do
begin
ProcessEvents;
Sleep(100);
end;
end;


TE CAMBIA LOS GOLD POR PLATINIUM (RL ESTE):


var
Coins: integer;
Finished: boolean;

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 Event_Message(Channel: integer; Name, Text: String);
begin
UpdateWorld;
Creature := GetCreatureByName(Name);
if Creature = nil then Exit;
if Creature.NPC then
begin
if Pos('platinum', Text) <> 0 then
begin
Self.Say(IntToStr(Coins));
Sleep(1000);
Self.Say('yes');
Sleep(1000);
Self.Say('bye');
Finished := True;
end;
end;
end;

procedure Event_Notice(Text: String);
begin
if Pos('gold coins', Text) = 0 then Exit;
Delete(Text, 1, 13);
Coins := IntToStr(Copy(Text, 1, Pos(' ', Text) - 1)) div 100;
if Coins <> 0 then
begin
Self.Say('hi');
Sleep(1000);
Self.Say('change gold');
end;
end;

begin
Finished := False;
UpdateWorld;
Self.Containers.UseItemWithSelf(3031);
while ((not Terminated) and (not Finished)) do
begin
ProcessEvents;
Sleep(100);
end;
end;

ALERTA SI TE QUEDAS SIN COMIDA:


Const
FoodID = 1111 //enter here the food you want...
MusicPath = 'C:WindowsMediaNotify.wav' // This is the main alert of windows.
// You can try to change it to music or another alert
// or whatever you want, just change the path correctly.

while not terminated do
begin
UpdateWorld;
a:=0;
For x:= 0 to Self.Containers.Count - 1 do
begin
for y := 0 to Self.Containers.Container[x].Count - 1 do
begin
if Self.Containers.Container[x].Item[y].ID = FoodID
then a := 1;
Sleep(100);
end;
sleep(100);
end;
sleep(100);
if a = 0 then PlaySound(MusicPath);
end;


Espero Que Les Sirvan!
14-05-2011 01:29 AM
Encuentra todos sus mensajes Cita este mensaje en tu respuesta
Enviar respuesta 


Enlaces Permanentes
Enlace del Tema:
Codigo Foros:
Codigo Webs:

Posibles temas similares...
Tema: Autor Respuestas: Vistas: Último mensaje
Lightbulb Busuu, la red social para aprender idiomas comadreja 4 782 03-02-2013 08:50 AM
Último mensaje: windows
Wink [Para Todas Nacionalidades!] -> VPS Gratis!!! fuegox 7 6,146 04-08-2012 04:07 PM
Último mensaje: BlackManba
Bug Se Crea Un Software Para La Deteccion De Hackers! SalvadorO 20 1,617 24-06-2012 10:00 PM
Último mensaje: c4rt4g0
  Flipboard lanza beta para Android EdgarAHR 3 474 24-06-2012 09:56 PM
Último mensaje: c4rt4g0
  Herramientas y más trucos para el posicionamiento SEO optimo. banon 5 465 06-06-2012 08:36 AM
Último mensaje: carlosficto

Salto de foro:


Usuario(s) navegando en este tema: 1 invitado(s)


Contáctanos Saapy Archivo (Modo simple) Sindicación RSS Volver arriba