Melhores Scripts.

[rafick01 0]

SE GOSTOU AGRADEÇA ! NÃO SEJA SANGUE SUGA !

Bom esses Script's que eu vo colocar eu acho que são os melhores :

Enchanted Spear ( Fazer Enchanted Spear Script )

Dowload :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

\/

Dowload :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Scan :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

/\ Usar Exori Hur em X bicho quando estiver com X life...

 

Usar Mana Rune Em OtServer \/

 

Const

Manarune_ID = 3168

MinMana = 3500

MaxMana = 24000

 

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;

 

Como Muitos Reclamaram Que Reconect Tava Dano Erro... Vo Coloca Aqui... Tentem...

 

const

Account = Conta; // Sua Conta

Password= 'Senha'; // Sua Senha

Character = 'Char Name'; // Seu Char

World= 'Mundo'; // Mundo do Char

Ip = ''; // Não precisa mexer aqui

NumberOfBackpacks = 1; // Não alterar

 

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;

 

Utamo Vita Quando Ver X Bicho

 

Const

MonsterName = 'Demon Skeletom' //Personagem Ou Criatura

 

while not terminated do

begin

updateworld;

for i := 0 to creatures.count - 1 do

begin

if creatures.creature.name = MonsterName then

if Creatures.Creature.npc = true then

if Creatures.Creature.Z = Self.Z then

begin

Self.say('utamo vita');

sleep(1000);

end;

end;

end;

 

Alerta Pouca Pot Ou UH

 

Const

UH_ID = 3160 // Coloke o id Da Potion Ou da Uh

MF_ID = 2874 // Coloke o Id da Mana Potion ou Demais Manas

UH_Alert = 5 // ALerta Qnd Tiver com Menos que 5 Uh Ou Potion

MF_Alert = 10 // Alerta Qnd tiver com Menas que 10 Manas

 

While not terminated do

begin

UpdateWorld;

A:=0;

B:=0;

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

begin

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

begin

if Self.Containers.Container.Item[G].ID = UH_ID

then A:= A +1;

if Self.Containers.Container.Item[G].ID = MF_ID then

if Self.Containers.Container.Item[G].amount = 10

then B:= B + 1;

Sleep(100);

end;

Sleep(100);

end;

if (A <= UH_Alert) or ( B <= MF_Alert ) then

PlaySound('C:\Windows\Media\Notify.wav');

sleep(100);

end;

 

Utana Vid Com X Criatura

 

Const

CastInvisible = ['Demon Skeleton'] //pode ser alterado

MinMana = 600

 

function CreatureOnScreen:boolean;

begin

UpdateWorld;

result := false

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

begin

if i >= Creatures.Count then break;

for x := Low(CastInvisible) to High(CastInvisible) do

begin

if x > High(CastInvisible) then break;

if (CastInvisible[x] = Creatures.Creature.Name) and (Creatures.Creature.Z = Self.Z) then

begin

result := true

end;

end;

end;

end;

 

while not terminated do

begin

UpdateWorld;

ProcessEvents;

if CreatureOnScreen then

if Self.Mana >= MinMana then

Self.Say('utana vid');

sleep(1000);

end;

 

Loga quando aparece Skull ou Red Skull na tela

 

var

x:integer;

RedSkull: boolean

WhiteSkull: boolean

 

begin

while not terminated do

begin

UpdateWorld;

if Creatures.count>1 then

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

begin

UpdateWorld;

if (Creatures.Creature[x].RedSkull=true)

or (Creatures.Creature[x].WhiteSkull=true)

then Self.Logout(True); //Change to False if you dont want force logout

end;

sleep(1000);

end;

end;

 

Logar com X de Experience

 

Const

Exp = 6370

 

while not terminated do

begin

UpdateWorld;

if Self.Experience >= Exp

then Self.Logout(True);

Sleep(1000);

end;

 

Volta ao local originado se atacado

 

var

Finished: boolean;

SafeX, SafeY, SafeZ: integer;

 

procedure Event_Attacked(ID: integer);

begin

Self.MoveTo(SafeX, SafeY, SafeZ);

Finished := True;

end;

 

begin

UpdateWorld;

SafeX := Self.X;

SafeY := Self.Y;

SafeZ := Self.Z;

Finished := False;

while ((not Terminated) and (not Finished)) do

begin

UpdateWorld;

ProcessEvents;

if Self.Health <> Self.MaximumHealth then

begin

Self.MoveTo(SafeX, SafeY, SafeZ);

Exit;

end;

Sleep(100);

end;

end;

 

Alerta quando estiver acabando Royal Spears

 

const

spear_amount = 2 //number of spears to alert at

pause_time = 1 // number of seconds pause between alerts

alert_file = 'c:\windows\media\notify.wav' // must be a wav file

 

begin

while not terminated do begin

UpdateWorld;

if Self.RightHand.Amount <= spear_amount then

begin

PlaySound (alert_file);

sleep(pause_time*1000);

end;

sleep(100);

end;

end;

 

 

Espero Que Gostem...

Galera vou colocar aqui o dowload e Scan de 1 pasta que eu fiz com Waypoint's e os Script's Acima e mais alguns...

 

Dowload :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Scan :

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Se Gostou Não Seja Sangue Suga Agradeça !