Elf Bot Crack Pod Klient 9,54 I 8,55

[Tibianus]

xxx

[Tibianus]

A tutaj parę skryptów.

Dla ciemnych uruchamiamy tibie logujemy się uruchamiamy bota i wchodzimy w hotkeys.

 

teraz w długi prostokąt wpisujemy komendę tzn skrypt . W mniejszy klikamy jakis klawisz np = czyli auto używanie skrypta aktywowane na = . Oraz jak dodamy skrypta zaznaczamy kwadracik obok małego prostokąta oraz kwadracik gdzie pisze Hotkeys enabled.

 

 

 

Automatycznie leczy paraliż, wybranym czarem:

 

auto 200 healparalysis (czar)

 

 

Trzyma zaznaczoną ofiarę, nawet, jeżeli wejdzie/zejdzie piętro wyżej/niżej.

 

auto 200 attack target

 

Sławny dash, który przez wielu jest znany jako speedhack (podobno, po użyciu go, biega się nieco szybciej:

 

dash

 

Zakłada pierścionek o wybranym id:

 

equipring id pierścionka

 

unequip 'ring' 'Fur Backpack'

 

Natomiast ta część, ściąga wybrany pierścionek, i wsadza do wpisanego przez was backpacka. Domyślnie jest to plecak "Fur".

*Castuje Utani Gran Hur, jeżeli tylko nam zejdzie:

 

auto 200 stronghaste

 

*To samo co wyżej tylko z ManaShieldem:

 

auto 200 manashield

 

Wali wave, jeżeli tylko obiekt jest w polu rażenia:

 

wave exevo tera hur

Oczywiście, można zmienić to na "evevo vis hur".

 

*Strzela Magic Walla, dwie kratki przed celem:

 

magwall target

 

Szpieg wysyłający nasz ekran piętro wyżej:

 

spyup

To samo co wyżej, tylko na dół:

 

spydown

 

Możesz sprawdzić co się dzieje 2 kratki za ekranem, jednak nie możesz nikogo tam atakować:

 

scrollview

 

Reload Assasinek:

Zakłada na prawą rękę:

 

auto 200 equiprhand 7368

Zakłada na lewą rekę:

 

auto 200 equiplhand 7368

 

Jeżeli dana osoba, będzie na hastę, bądź wpisze jeden z przyspieszających chodzenie komend, dostanie paraliż.

#Uwaga skrypt nie był testowany!

 

auto 100 foreach 'newmessages' $nm { set $nmsn $nm.sender | if [($nm.content == 'utani hur' || $nm.content == 'utani gran hur' || $nm.content == 'utamo tempo san' || $nm.content == 'utani tempo hur') && $nmsn.isenemy] paralyze $nmsn }

 

Jeżeli potwór będzie stał obok Ciebie, twoja postać użyje EG: (exori gran)

 

auto 100 if [$mcount."$m.distance <= 1" >= 4] say 'Exori Gran' | wait 1900 ("$m.distance <= 1" >= 4] jedynka to ile kratek od ciebie a 4 ile potworów musi być)

 

Gdy mana przekroczy 'tyle i tyle' w tym przypadku 200, używa czaru 'takiego i takiego' w tym przypadku exevo mas san.

 

auto 200 mphigher 200 say 'exevo mas san'

 

*Twoja postać użyje exori, jeżeli napotka 3, bądź więcej potworów:

 

auto 200 if [$monstersaround.1 >= 3] {say 'exori'}

 

Oraz najlepsze jak dla mnie na OTS'ach na druidzie :

 

Wali z exevo gran mas frigo ([$monstersaround.2 >= 5 ) 2 oznacza ile potworków co najmniej ma być obok ciebie a 5 ile kratek od ciebie

 

auto 1000 {if [$monstersaround.2 >= 5 && notplayeronscreen && $mp >= 100] say 'exevo gran mas frigo'}

[Tibianus]

Sorka za błąd w temacie. Crack Pod klient 8.54 i 8.55

[Tibianus]

Dodatkowe skrypty.

 

 

Przedstawiam wam najwiekszy zbiór skryptów do ng i elfa by my no to zaczynamy

zacznijmy od ng bota:

<<<<<<<<Robi screen jak lvl wbijesz>>>>>>>

 

 

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;

 

 

<<<<<<jak sie zaczymasz włącza się alarm>>>>>>>>

 

x, y, z, t: integer;

begin

UpdateWorld;

x := Self.X;

y := Self.Y;

z := Self.Z;

t := 0;

while not Terminated do

begin

Sleep(1000);

UpdateWorld;

if ((x = Self.X) and (y = Self.Y) and (z = Self.Z)) then

begin

Inc(t);

if t > 60 then

begin

PlaySound('C:/Windows/Media/ringin.wav'); /możemy zmienić na własny dźwięk

t := 10000;

end;

end

else

begin

x := Self.X;

y := Self.Y;

z := Self.Z;

t := 0;

end;

end;

end;

 

 

 

<<<<<<<,atakuje spellami>>>>>>>>>>>

 

 

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;

While not terminated do

begin

UpdateWorld;

for i:= 0 to Creatures.Count - 1 do

begin

If (Creatures.Creature.Name = 'Hellhound') and (attacking) then <-- imie potwora którego chcesz bić

begin

Self.Say('exori san'); <--- tu wpisz czar

end;

sleep(100);

end;

sleep(1000);

end;

[Tibianus]

<<<<<<<< używanie potów>>>>>

 

Const

Manarune_ID = 3167 <--- id pota

MinMana = 9000

MaxMana = 10669

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;

 

<<<<<<<Trapowanie np garnkami skrypt dobry do starych wersji tibi>>>>

 

const

DELAY = 500;

NICK = 'Wrotek'; <--- name gracza

ITEMID = 3465; <--- id rzeczy

function getPlayer(name:string) : Creature;

begin

for i := 0 to Creatures.Count - 1 do

begin

if Creatures.Creature.name = name then

begin

result := Creatures.Creature;

exit;

end;

end;

end;

function getItem : item;

var

i,j:integer;

begin

for i:=0 to self.containers.count -1 do

begin

for j:=0 to self.containers.container.count -1 do

if self.containers.container.item[j].id = ITEMID then

begin

result := self.containers.container.item[j];

exit;

end;

end;

end;

procedure trap(name:string);

var

i,j:integer;

target : creature;

pot : item;

begin

updateworld;

target := getPlayer(name);

if target > nil then

begin

for i:=-1 to 1 do

begin

for j:=-1 to 1 do

if not ((j=0) and (i=0)) then

begin

updateworld;

pot := getItem;

if pot >=0 then

begin

pot.movetoground(target.x+i,target.y+j,target.z,1) ;

sleep(DELAY);

end else exit;

end;

end;

end;

end;

 

 

<<<<<jak ktoś cie bije wysyła wiadomość na pw o pomoc >>>>> (NIETESTOWANE)

 

var

Finished:boolean;

function GetCreatureByID(ID: integer): TCreature;

begin

UpdateWorld;

Result := nil

for x := 0 to Creatures.Count - 1 do

begin

if Creatures.Creature[x].ID = ID then

begin

Result := Creatures.Creature[x];

Exit;

end;

end;

end;

procedure Event_Attacked(ID: integer);

var

AttackingCreature: TCreature;

begin

UpdateWorld;

AttackingCreature := GetCreatureByID(ID);

if not AttackingCreature.NPC then

begin

for i := 0 to VipList.Count - 1 do

begin

if VipList.Vip.Online then

Self.PrivateMessage(VipList.Vip.jakaś osoba na vip,'pomóż, ' + AttackingCreature.Name + ' atakuje mnie!');

Sleep(2000);

end;

Finished := true;

end;

end;

begin

Finished := false;

while (not Terminated) and (not finished) do

begin

UpdateWorld;

ProcessEvents;

Sleep(100);

end;

end;

 

<<<<<rzuca mwala przet gracza >>>>>>

 

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;

 

<<<<<<zamienia gp na platynki >>>>>>>

 

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;

 

<<<<Idzie po poison fieldach>>>>

 

Const

Exana_Pox = 1 // 1- use exana pox, 0 don't use.

Procedure Event_Notice(Text:String);

begin

UpdateWorld;

if Text = 'There is no way.' then

Begin

UpdateWorld;

X := Self.X;

Y := Self.Y;

Z := Self.Z;

repeat

if (Self.X <> X) or (Self.Y <> Y) then exit;

Self.MoveRight;

sleep(1000);

UpdateWorld;

if (Self.X <> X) or (Self.Y <> Y) then exit;

Self.MoveUp;

Sleep(1000);

UpdateWorld;

if (Self.X <> X) or (Self.Y <> Y) then exit;

Self.MoveLeft;

Sleep(1000);

UpdateWorld;

if (Self.X <> X) or (Self.Y <> Y) then exit;

Self.MoveDown;

Sleep(1000);

UpdateWorld;

until (Self.X <> X) or (Self.Y <> Y);

end;

end;

While not terminated do

begin

UpdateWorld;

ProcessEvents;

Sleep(100);

if Self.Poisoned then

if Exana_Pox then

begin

Self.Say('exana pox');

Sleep(3000);

end;

end;

 

 

<<<<wymieni stare zużyte Sooft Bootsy na nowe>>>>

 

Const

Soft_In_Use_ID = 3549

Soft_Boots_ID = 6529

function GetItemFromOpenBackpack(ID: integer): TItem;

var

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;

while not terminated do

begin

UpdateWorld;

if Self.Feet.ID <> Soft_In_Use_ID then

begin

Soft := GetItemFromOpenBackpack(Soft_Boots_ID);

if Soft <> nil then

Soft.MoveToBody(Self.Feet,0);

else Self.DisplayText('Soft Boots werent found in open BP!');

end;

 

 

<<<<<<<<Alarm gdy zostało X potionów>>>>>>>>>>

 

Const

tItem = 'mana potions...';

iMin = 20; <---- jak ile zostanie potów zostanie ma się włączyć alar

AlertFrom = 'C:/Windows/Media/Notify.wav'; <-- ścieżka do pliku muzycznego

Var iItem : integer;

procedure Event_Notice(Text: String);

begin

if Pos(tItem, Text) = 0 then Exit;

Delete(Text, 1, 13);

iItem := StrToInt(Copy(Text, 1, Pos(' ', Text) - 1));

end;

While not terminated do

begin

iItem := 0;

updateworld;

ProcessEvents;

if iItem <> 0 then

begin

if iItem < iMin then

begin

PlaySound(AlertFrom);

end;

end;

end;

 

<<po wlaczeniu skryptu automatycznie gdy z postaci "zejdzie" haste bot je ponawia o ile mamy 60 ptk many>>

 

Const

Spell = 'utani hur'

MinMana = 60

while not terminated do

begin

UpdateWorld;

if not self.hasting then

if self.mana >= MinMana then

Self.Say(Spell);

sleep(1000);

end;

[Tibianus]

<<< skrypt na enchanted speary musisz mieć prawą rękę wolną i speary w BP>>

 

Const

SpearID = 3277

Spell = 'Exeta con'

MinMana = 350

MinSoul = 5

WeaponID = 3291

function GetItemFromOpenBackpack(ID: integer): TItem;

var

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;

While not terminated do

begin

UpdateWorld;

if Self.Mana >= MinMana then

if Self.Soul >= MinSoul then

begin

Spear := GetItemFromOpenBackpack(SpearID);

if Spear <> nil then

Spear.MoveToBody(Self.RightHand,1);

Sleep(800);

UpdateWorld;

If Self.RightHand.ID = SpearID then

Self.Say(Spell);

UpdateWorld;

Weapon := GetItemFromOpenBackpack(WeaponID);

if Weapon <> nil then

Weapon.MoveToBody(Self.RightHand,0);

end;

sleep(500);

end;

 

 

<<<<<Wyloguj gdy wbijesz xx exp>>>>>

 

Const

Exp = 4200

while not terminated do

begin

UpdateWorld;

if Self.Experience >= Exp

then Self.Logout(True);

Sleep(1000);

end;

 

 

<<<<<Exevo Pan, gdy brak food>>>>

 

Const

FoodList = [3595,3577,3578,3579,3582,3583,3584,3600,3584,3585, 3586,3587,3588,3589,3590,3591,3592,3593,3594,3598, 3599,3601,3602,3607,3725]

procedure CheckAndMakeFood;

begin

updateworld;

for i := 0 to self.containers.count -1 do

begin

if i >= Self.Containers.Count then break;

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

begin

if g >= Self.Containers.Container.Count then break;

for x := LoW(FoodList) to High(FoodList) do

begin

if Self.Containers.Container.Item[g].ID = FoodList[x] then exit;

sleep(10);

end;

end;

end;

if Self.Mana >= 120 then

Self.Say('exevo pan');

end;

while not terminated do

begin

UpdateWorld;

CheckAndMakeFood;

sleep(100);

end;

[Tibianus]

Skillowanie

 

Rozbudowany Slime trainer:

 

const Food_Id = 3606; // zmień na inne id jedzenia

MinMana = 30; // do ile many ma jeść

StrongWeaponID = 3320; l// ID "normalne" broni

HealAtHp =400; // ulecz gdy masz x hp

UhAtHp=300; // uh gdy max x hp

KillAtHp=320; // zabij matke gdy max x hp

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;

end;

function GetFollowedCreatureID: integer;

begin

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

updateworld;

updateworld;

MotherSlime := GetFollowedCreatureID;

while not Terminated do

begin

UpdateWorld;

if self.LogoutBlock=false then self.Logout(false)

begin

UpdateWorld;

if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then

Self.Say('exura')

UpdateWorld;

//if ((Self.Health) <(UhAtHp)) then Self.Containers.UseItemWithSelf(ITEM_RUNE_UH);

Sleep(1000);

end;

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

if Creatures.Creature[x].Health>70 then

Begin

Creatures.Creature[x].Attacking := true;

Break;

end;

end;

end;

end;

end;

end;

end;

else

begin

if self.Health < KillAtHp then

Begin

PlaySound('d:\ouch.wav');

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

Creatures.Creature[x].Attacking := true;

StrongWeapon:= GetItemFromOpenBackpack(StrongWeaponID);

if StrongWeapon <> nil then

StrongWeapon.MoveToBody(Self.RightHand, 0);

Break;

end;

end;

end;

if Self.Mana < MinMana then

begin

UpdateWorld;

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

begin

UpdateWorld;

for item := 0 to Self.Containers.Container[container].Count - 1 do

begin

UpdateWorld;

if Self.Containers.Container[container].Item[item].ID = Food_Id then

Self.Containers.Container[container].Item[item].Use;

end;

end;

end;

end;

Sleep(1000);

end;

end;

Small Stones z BP do lewej ręki:

Kod PHP:

Const

SmallID = 1781

SmallAmount = 5

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;

SmallStone := GetItemFromOpenBackpack(SmallID, Self.Containers.Count);

if SmallStone <> nil then SmallStone.MoveToContainer(Self.Containers.Container[0], 0, 0);

if (Self.LeftHand.ID = SmallID) then

begin

if (Self.LeftHand.Amount < 90) then

begin

SmallStone := GetItemFromOpenBackpack(SmallID, Self.Containers.Count);

if SmallStone <> nil then SmallStone.MoveToBody(Self.LeftHand, 0);

end;

end else begin

SmallCount := CountItemAmountFromOpenBackpack(SmallID);

if SmallCount >= SmallAmount then

begin

Self.LeftHand.MoveToBody(Self.Arrow, 0);

Sleep(500);

SmallStone := GetItemFromOpenBackpack(SmallID, Self.Containers.Count);

if SmallStone <> nil then SmallStone.MoveToBody(Self.LeftHand, 0);

end else if Self.LeftHand.ID = 0 then Self.Arrow.MoveToBody(Self.LeftHand, 0);

end;

Sleep(500);

end;

 

 

 

 

 

Small Stones z BP do lewej ręki:

 

 

 

Const

SmallID = 1781

SmallAmount = 5

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;

SmallStone := GetItemFromOpenBackpack(SmallID, Self.Containers.Count);

if SmallStone <> nil then SmallStone.MoveToContainer(Self.Containers.Container[0], 0, 0);

if (Self.LeftHand.ID = SmallID) then

begin

if (Self.LeftHand.Amount < 90) then

begin

SmallStone := GetItemFromOpenBackpack(SmallID, Self.Containers.Count);

if SmallStone <> nil then SmallStone.MoveToBody(Self.LeftHand, 0);

end;

end else begin

SmallCount := CountItemAmountFromOpenBackpack(SmallID);

if SmallCount >= SmallAmount then

begin

Self.LeftHand.MoveToBody(Self.Arrow, 0);

Sleep(500);

SmallStone := GetItemFromOpenBackpack(SmallID, Self.Containers.Count);

if SmallStone <> nil then SmallStone.MoveToBody(Self.LeftHand, 0);

end else if Self.LeftHand.ID = 0 then Self.Arrow.MoveToBody(Self.LeftHand, 0);

end;

Sleep(500);

end;

 

 

Gdy w ręku nie ma spearów/kamyków, postać się wylogowuje:

 

while not terminated do

begin

UpdateWorld;

if Self.RightHand.ID = 0 then

Self.Logout(true);

sleep(500);

end;

 

 

 

 

 

 

 

 

 

 

JEŻELI POTRZEBA WIĘCEJ SKRYPTÓW DO PISAĆ !!!!!!!!!!!!!!!

[jackraymund]

yhy z tematu podpiętego

wersja waży File size: 2103921 bytes

a twoja File size: 782002 bytes

+ twoja ma rozszerzenie Evo wtf!

[Gość Mounthains]

po pobraniu AVG mi wariuje...

 

Wywalam