Scipts ng

                                    Aqui esta alguns scrips para bot ng que poderam te ajudar!



Mudar Gold pra Platinum

procedure StackItems;
var
T: array of integer;
x, y, z: integer;
Temp: integer;
begin
UpdateWorld;
T := VarArrayCreate([0, 19] , 3);
Temp := -1;
for x := 0 to Self.Containers.Count - 1 do
begin
if x >= Self.Containers.Count then Break;
for z := 0 to Self.Containers.Container[x].Count - 1 do
begin
T[z] := Self.Containers.Container[x].Item[z].ID;
end;
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].Properties.Pilable then
begin
if Self.Containers.Container[x].Item[y].Amount < 100 then
begin
for z := y + 1 to Self.Containers.Container[x].Count - 1 do
begin
if T[z] = Self.Containers.Container[x].Item[y].ID then
begin
if Self.Containers.Container[x].Item[z].Amount < 100 then
begin
Self.Containers.Container[x].Item[y].movetocontainer(Self.Containers.Container[x], z, 0);
end;
end;
end;
end;
end;
end;
end;
end;

while not Terminated do
begin
UpdateWorld;
StackItems;
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 = 3031 then
begin
if Self.Containers.Container[x].Item[y].Amount = 100 then
begin
Self.Containers.Container[x].Item[y].Use;
Break;
end;
end;
end;
end;
Sleep(1000);
end;

Mwall, solta MW na frente do seu 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;

Exiva Kill - Voce nunca perde seu target, otimo em wars em escada e quando usa bot caçando monstro invisiveis

var
LockID:integer;

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
updateworld;
while self.attacking=0 do
begin
sleep(200);
updateworld;
end;
LockID:=self.attacking;
while not terminated do
begin
updateworld;
ProcessEvents;
if ((self.attacking)<>(LockID)) and ((self.attacking)<>(0)) then
LockID:=Self.Attacking;
If Self.Attacking=0 then
begin
Creature:=GetCreatureByID(LockID);
If Creature<>nil then Creature.Attacking:=true;
end;

sleep(100);
end;
end;

Anti Paralyze

const
minMana = 20;

while not Terminated do
begin
UpdateWorld;
if Self.Mana > minMana then
begin
if Self.Slowed then
Self.Say('exura');
end;
Sleep(300);
end;


Self Utamo Vita - quando utamo vita acaba ele solta otro imediatamente

while not terminated do
begin
UpdateWorld;
if not Self.MagicShield then
begin
Self.Say('Utamo Vita');
Sleep(2000);
end;
sleep(100);
end;

 Super Target All - Ataca o Player desejado até quando ele sai da tela

Const
PlayerName = 'Mateusz Dragon Wilki' // The player to keep attacking.

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[i].Name = PlayerName) and (not attacking)
then Creatures.Creature[i].Attacking := True;
sleep(100);
end;
sleep(100);
end;


Se atacado usar utamo vita

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;

procedure Event_Attacked(ID: integer);
var
Creature: TTCreature
begin
if Self.Attacking = ID then Exit;
Creature := GetCreatureByID(ID);
if (not Creature.NPC) and (not Self.MagicShield) then Self.Say('utamo vita');
Sleep(1000);
end;

begin
while not terminated do
begin
UpdateWorld;
ProcessEvents;
Sleep(100);
end;
end;


Healer Party Members

Const
MinSelf=600;//if we have less than 600 HP we wont heal others so we wont get exusted.
MinHPPercent = 50; // The HP percentage a party member must have to use uh
ItemUHID = 3160; // The item number of the healing rune
var
Creature: TCreature;

while not Terminated do
begin
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
if (Creatures.Creature[x].PartyMember) and (Creatures.Creature[x].Name<>Self.Name) then
begin
if (Creatures.Creature[x].Health <= MinHPPercent) and (Self.Health>MinSelf) then
begin
Self.Containers.UseItemWithCreature(ItemUHID, Creatures.Creature[x]);
Sleep(2000);
end;
end;
end;
Sleep(100);
end;


Equipar soft boots se mps acabar

Const
Message1 = 'Using the last vial...'
BootsID = 0

var
Finish:boolean;

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;

procedure Event_Notice(Text:string);
begin
if Text = Message1 then
begin
Boots := GetItemFromOpenBackpack(BootsID);
if Boots <> nil then
begin
Boots.MoveToBody(Self.Feet,0);
Self.PrivateMessage(Self.Name,'Soft boots are on were worn at ' + TimeToStr(Now) + ', Script will now terminate.');
Finish := true;
end;
else
begin
Self.PrivateMessage(Self.Name,'Boots werent found in an open BP, script will terminate.')
Finish := true;
end;
end;
end;

Finish := false;
while (not terminated) and (not finish) do
begin
UpdateWorld;
ProcessEvents;
Sleep(100);
end;


Andar com 'W A S D ' invés das setas

Const
DiagnoalWalking = 1 // 1-enable diagnoal, 0-disable.

procedure Event_KeyDown(Key:integer);
begin
Updateworld;
case Key of
87:Self.MoveUp; //W
65:Self.MoveLeft; //A
83:self.MoveDown; //S
68:Self.MoveRight; //D
end;
if DiagnoalWalking then
Case Key of
81:Self.MoveUpLeft; //Q
69:Self.MoveUpRight; //E
90:Self.MoveDownLeft; //Z
67:Self.MoveDownRight; //C
end;
end;

while not terminated do
begin
ProcessEvents;
Sleep(100);
end;


Mandar msgs pra todos na sua vip se for atkado

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[i].Online then
Self.PrivateMessage(VipList.Vip[i].Name,'help, ' + AttackingCreature.Name + ' is attacking me!');
Sleep(2000);
end;
Finished := true;
end;
end;

begin
Finished := false;
while (not Terminated) and (not finished) do
begin
UpdateWorld;
ProcessEvents;
Sleep(100);
end;
end;


Dizer frase se player detectado na tela a cada X segundos, bom para train

Const
Message = 'no kill plx i am training'
Delay = 3 // in seconds

Function PlayerOnScreen:boolean;
Begin
Result := false;
for i := 0 to creatures.count - 1 do
begin
if Creatures.Creature[i].npc = false then
if Creatures.Creature[i].Name <> Self.Name then
if Creatures.Creature[i].Z = Self.Z then
begin
Result := true;
exit;
end;
end;
end;

while not terminated do
begin
UpdateWorld;
A := PlayerOnScreen;
if A then
begin
Self.Say(Message);
Sleep(Delay*1000 - 200);
end;
sleep(200);
end;


Se player entrar na tela, usar utani gran hur

Const
Xsqm = 3
Spell = 'utani gran hur'
MinMana = 100

while not terminated do
begin
UpdateWorld;
for i := 0 to Creatures.Count - 1 do
begin
if (i >= Creatures.Count) or (terminated) then break;
if Creatures.Creature[i].NPC = false then
if Creatures.Creature[i].Z = Self.Z then
if SQRT(SQR(Creatures.Creature[i].X - Self.X) + SQR(Creatures.Creature[i].Y - Self.Y)) <= Xsqm then
if not self.hasting then
if Self.Mana >= MinMana then
Self.Say(Spell);
sleep(50);
end;
sleep(100);
end;


Trocar de soft boots se a primeira acabar

 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;
sleep(100);
end;