5/23/2010
Tutorial Script TibiaBot NG
489
PASOS PARA INSTALAR Y COMO USAR UN SCRIPT PARA EL TIBIABOT NG:
File > New - Para limpiar la ventana abierta y comenzar un nuevo script.
File > Open - Para abrir una script.
File > Save - Para guardar las modificaciones del script.
File > Save As... - Para guardar el script en un lugar determinado.
File > Exit - Para salir de la ventana del script.
Para Ejecutar un Script, haga click en >> Execute Script: Si todo se hizo correctamente se mostrará el nombre de su editor de script justo debajo del lado derecho. Tambien se puede detener el Script, damos click derecho en el script y damos click en Stop Script >> para detener ejecucion del Scipt. View Source >> para ver los comandos que el script ejecuta, en esa opcion se puede modificar la lineas de acciones del script.
Suscribirse a:
Enviar comentarios (Atom)
8 Responses to “Tutorial Script TibiaBot NG”
28 julio, 2010
script de colocar speasr
const
WeaponID = 3282 // 3282 = Morning Star
SpearID = 3277 // 3277 = Spear, 1781 = Small Stone
SpearOz = 20 // Spear = 20, Small Stone = 3
SpearAmount = 2 // 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;
while not terminated do
begin
UpdateWorld;
Weapon := GetItemFromOpenBackpack(WeaponID, Self.Containers.Count);
if Weapon <> nil then Weapon.MoveToBody(Self.Arrow, 0);
Spear := GetItemFromOpenBackpack(SpearID, 0);
if Spear <> nil then Spear.MoveToContainer(Self.Containers.Container[0], 0, 0);
if (Self.RightHand.ID = SpearID) then
begin
if (Self.RightHand.Amount < 90) then
begin
Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
end;
end else begin
SpearCount := CountItemAmountFromOpenBackpack(SpearID);
if SpearCount >= SpearAmount then
begin
Self.RightHand.MoveToBody(Self.Arrow, 0);
Sleep(500);
Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
end else if Self.RightHand.ID = 0 then Self.Arrow.MoveToBody(Self.RightHand, 0);
end;
Sleep(500);
end;
28 julio, 2010
:q tyy
30 julio, 2010
const
WeaponID = 3282 // 3282 = Morning Star
SpearID = 3277 // 3277 = Spear, 1781 = Small Stone
SpearOz = 20 // Spear = 20, Small Stone = 3
SpearAmount = 2 // 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;
while not terminated do
begin
UpdateWorld;
Weapon := GetItemFromOpenBackpack(WeaponID, Self.Containers.Count);
if Weapon <> nil then Weapon.MoveToBody(Self.Arrow, 0);
Spear := GetItemFromOpenBackpack(SpearID, 0);
if Spear <> nil then Spear.MoveToContainer(Self.Containers.Container[0], 0, 0);
if (Self.RightHand.ID = SpearID) then
begin
if (Self.RightHand.Amount < 90) then
begin
Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
end;
end else begin
SpearCount := CountItemAmountFromOpenBackpack(SpearID);
if SpearCount >= SpearAmount then
begin
Self.RightHand.MoveToBody(Self.Arrow, 0);
Sleep(500);
Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
end else if Self.RightHand.ID = 0 then Self.Arrow.MoveToBody(Self.RightHand, 0);
end;
Sleep(500);
end;
todo eso es?
10 marzo, 2011
Si :/
19 mayo, 2011
necesito el script para atacara a distancia cn mi pally! ayuda!
28 junio, 2011
sebaastiaan.lda-@live.cl porfavor ayuda necesito poner script anti paraliz bot ng
08 enero, 2012
ya que saven tanto de scrips.. necesito uno para que consuma una posion cada 25 minutos..
por decir me la tomo ahora y a los 25 minutos despues se consuma nuevamente la misma posion ..
lo e buscado por todos lados pero no lo encuentro.
gracias al genio que lo haga..
27 marzo, 2012
me gustaria saber un script para hacer cambiar los colores de mi outfit... encontre uno pero solo funciona cuando le doy Click en el Boton Secundario a mi character y le doy click en donde dice Outfit y presiono Escape y cambio automaticamente de color...
quisiera saber uno pero sin tener qe hacer ese procedimiento..
Publicar un comentario
¿Te pareció interesante el Articulo?, Registrate para que estes al dia con los últimos Articulos que publicamos en Tibia Laner.
Los Comentarios seran moderados y publicados a la brevedad.