Este Script sirve para poder entrenar con slimes, antes de ejecutar el script debes estar preparado completamente en el sitio donde entrenaras porque cuando el script se ejecuta empezara a atacar a los slimes, este comando funciona para el TibiaBot NG.
SCRIPT:
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;
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;
var
MotherSlime, X1, Y1: integer;
begin
MotherSlime := GetFollowedCreatureID;
while not Terminated do
begin
UpdateWorld;
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 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;
Sleep(1000);
end;
end;
3 comentarios:
grasias por el script man lo buscaba :a
buenas tengo un problema ya q el script si me esta matando al slime madre lo corri tal y como esta publicado no se si sea error mio y necesite hacer algo mas o especificar algo les pido por favor me ayuden gracias
Gandarous
Anonimo #2 Mira hemos publicado otro Script para entrenar con Slimes mas actualizado, 100% probado y funciona, solo antes de ejecutar el script ponle "follow" al Slime madre (Original).
http://www.tibialaner.net/2010/12/script-para-entrenar-con-slimes.html
Espero que te ayude, Suerte :D
Publicar un comentario