Wystarczy, ?e wejdziesz MAIN --> ADVANCED i zaznaczysz: DISABLE AUTOCHASSE.Witam potrzebuje skrypta do bota ng na poruszanie si? z miejsca np.o kratk? w prz?d po x sekundach poniewa? niestety mi si? bot ?cina i musz? zrobi? krok myszk?...
jest jaki? skrypt aby po restarcie serva (real tibia) logowa? si?
z g?ry dzi?kuj?
const
Account = 'Nr Konta';
Password= 'Has?o';
Character = 'Nazwa Postaci';
World= 'Selena';
Ip = '';
NumberOfBackpacks = 1;
var
x: integer;
procedure Login;
begin
repeat
Self.Login(Account, Password, Character, World, Ip);
for x := 0 to 200 do
begin
if Self.Connected then Break;
Sleep(100);
end;
Sleep(2000);
until Self.Connected;
end;
begin
while not Terminated do
begin
if not Self.Connected then
begin
Login;
UpdateWorld;
Self.Backpack.OpenInNewWindow;
for x := 0 to NumberOfBackpacks - 1 do
begin
if x >= NumberOfBackpacks then Break;
Sleep(2000);
UpdateWorld;
Self.Containers.Container[0].Item[x].OpenInNewWindow;
end;
end;
Sleep(1000);
end;
end;
GM Logout Scriptmacie moze jak widzi gm loga?
while not terminated do
Begin
UpdateWorld;
if GMDetected then
begin
Self.Logout(true);
break;
end;
sleep(1000);
end;
ManaRune ScriptPoczebuje skrypta na mr nieumiem ustawic mam ed 200 na ots i mam kolo 4 k many id manarunki to 2270 Prosze o pomuc z gory thx
Const
Manarune_ID = 2270
MinMana = 3000
MaxMana = 4100
while not terminated do
begin
UpdateWorld;
if Self.Mana <= MinMana then
while Self.Mana < MaxMana do
begin
if terminated then break;
self.containers.useitemwithself(ManaRune_ID);
sleep(100);
UpdateWorld;
end;
sleep(100);
end;
czy m?g? bym prosic o ponumerowanie kazdego skryptu? bo na pocz?tku s? a potem ci??ko znalesc ;/
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;