Scripts Mais Usados =]

[Tim Maia 3]

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

Scan :

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

• Entre
• ou
• Cadastre-se

\/

Dowload :http://rapidshare.com/files/171791616/Exori_Hur.zip.html

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 : http://rapidshare.com/files/146176097/Waypoints_e_Scripts.zip.html

 

Scan :

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

• Entre
• ou
• Cadastre-se

 

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

[shenow 6]

Scripts mto bons mesmos. Fixed~

[énoiso2 0]

topic antigo

:]~

[Tim Maia 3]

Por está pergunto sua ja saquei que você não deve ter lido o tópico e nem deve saber o que é script ! Script é para o TibiaBot NG fazer "certas coisas" , eu coloquei encima de cada script o que ele faz é so você lêr com calma.

bY tIm~

[énoiso2 0]

tópico antigo²

 

:]~

[Tim Maia 3]

Você abri seu TibiaBot NG vá em Tools > Scripter então você cola o Script que você quer... e depois da Execute ! Se você quiser executar mais Script's você terá de Apagar o Script e colocar o novo então é so da Execute novamente.

bY tIm~

[énoiso2 0]

tópico antigo²

 

:]~

[Tim Maia 3]

hahahahahha

Muito obrigado , por querer que eu seja um MOD... =]

Dúvidas deixar recado no tópico.

bY tIm~

[vingador71 0]

sim muito bom e funfa.

mereceu fixo

[raizen_rj 2]

Muito bom msm..

o q eu estava procurando era esse de usar MP e HP

^^

vlw:D

quem quizer o de tirar SS quando vc pegar lvl ai vai

 

var

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;

[lolman2 0]

Ouuu...

o d usar ob knife e wooden stake naum funciono aki...

arruma ai...n da certo...

eu coloco pra executar e naum funciona...

sou so eu ou td mundo n funfo?

abraçç

[laerciooz 0]

Muito bom

 

mais esse download só tem waypoitins(nen lembro como escreve)

para leveis baixo

 

=P

 

 

 

 

Existe script de You see an elvenhair rope.

pq eu fiz a quest dela e o bot n usa ela

 

=P

[Tim Maia 3]

lolman2 , no momento não está dando para mim testar , depois irei ver se está algo errado e te mando MP.

laerciooz , não tem script só para level baixo não ! da para pegar lvl 60 sussa em Rotworm , ai você vai para scarab e dá pra pegar 100+ ... eu te garanto isto !

bY tIm~

[rodrigos 0]

KL lol virus da porra cruz

Manow Vai se fufu

Seu Otario da Porra:mad:

[rodrigos 0]

KL lol virus da porra cruz

Manow Vai se fufu

Seu Otario da Porra:mad:

Naum Baixem

!

[shenow 6]

Desrespeito,Flood,Post duplo Intencional.

Suspenso por 7 dias.

[Tim Maia 3]

rodrigos , ja reportei sua mensagen você está difamando a minha pessoa. Nem programa executavel tem no arquivo para ter algum tipo de vírus ! Procure saber mais e aprenda mais coisas tamben porque nenhum LAMMERZINHO , NOVATO vai conseguir tirar o que eu ja conquistei aqui . ;]

bY tIm~

[NeTToW 0]

Muito bom cara vlws mesmo !

 

 

Agora tem como você arranja um de treina com Slime, sem ser aquela de dar follow ?

 

 

Abraços~

[Tim Maia 3]

NeTToW , não tem outro script sem ser este que está ai de Slime...

Galera no momento estou com uns problemas entao não ta dando preu ajudar muito mas depois vou estar podendo dar mais atenção... Obrigado a todos.

bY tIm~

[NeTToW 0]

NeTToW , não tem outro script sem ser este que está ai de Slime...

Galera no momento estou com uns problemas entao não ta dando preu ajudar muito mas depois vou estar podendo dar mais atenção... Obrigado a todos.

bY tIm~

 

Beleza cara thanks!

 

Man você tem aquele script de 2 sqm para pallys ?

 

Abraços~

[Tim Maia 3]

Beleza cara thanks!

 

Man você tem aquele script de 2 sqm para pallys ?

 

Abraços~

 

 

Eu não tenho este script.

Obs: Eu estou tentando resolve o Script da Obsidian knife... ta foda =(

[NeTToW 0]

Po fmz cara se tive ae da um toque ;D

 

@OFF

 

Que erroo ? oO

 

 

Abraços~

[lenda12 0]

oi preciso de ajuda os scripts n me funcionão por exemplo aquelke de entrar nas casas por favor AJUDA

[foneti 0]

O Waypont Dos dwarfs all esta com um erro tipo ele não desce em umas minas la.

Ta show de bola aqui

 

da pra pega lv 100+ Se deixar muito tempo hahuahau Blz vlw

[pikemalvera£ 0]

nao to conseguindo usa o de reloga e abri backpack

ja puis a senha o nome o nome do serv,do xar e nao ta dando ajuda aew :)