Ti0Branc0

Download com idHTTP e ProgressBar.
Na verdade é meio que um Downloader.

Tutorial:

1- Inicie um novo projeto : File / New / VCL Form Aplication;

2- Coloque um Button, um Edit, um Progressbar e um Label, e um idHTTP (Paleta Indy Clients);

3- No evento OnClick do Button coloque o código abaixo:


var arquivo,caminho : string; MyFile: TFileStream; begin // definir o link caminho:= 'http://127.0.0.1/'; // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc arquivo:= edit1.text; // nome do arquivo para download MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar. try IdHTTP1.Get('http://127.0.0.1/'+arquivo, MyFile); // fazendo o download do arquivo finally MyFile.Free; end; 4- No evento OnWork do idHTTP1: ProgressBar1.Position := AWorkCount; 5- No evento OnWorkBegin do idHTTP1: ProgressBar1.Position := 0; ProgressBar1.Max := AWorkCountMax; Label1.caption := "Download em andamente, espere!"; 6- No evento OnWorkEnd do idHTTP1: ProgressBar1.Position := ProgressBar1.Max; Label1.caption := "Download Concluído!";

7- Agora dê F9, e teste a aplicação.

Créditos : Song.

Fórum para PhpBB no Brasil: http://www.suportephpbb.com.br/forum/
IPB é protegido por direitos autorais e custa bem caro. A versão que você deve estar tentando instalar deve ser "nulled" e dependendo da origem pode por em risco dados de sua hospedagem, e inclusive a mesma pode ser deletada caso o seu host adote este tipo de política, portanto cuidado.
 
Sei que isto não é um anúncio de um fórum em específico, mas não seria proporcionalmente contra as regras também a formação de uma equipe para um site concorrente?

Entao Kimos eu fiz o seu tutorial e talz mas o xor nao aparece
Tipo quando eu acho Hit Points e clico duas vezes aparece la na outra janela:
 

Download com idHTTP e ProgressBar.
Na verdade é meio que um Downloader.

Tutorial:

1- Inicie um novo projeto : File / New / VCL Form Aplication;

2- Coloque um Button, um Edit, um Progressbar e um Label, e um idHTTP (Paleta Indy Clients);

3- No evento OnClick do Button coloque o código abaixo:


var arquivo,caminho : string; MyFile: TFileStream; begin // definir o link caminho:= 'http://127.0.0.1/'; // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc arquivo:= edit1.text; // nome do arquivo para download MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar. try IdHTTP1.Get('http://127.0.0.1/'+arquivo, MyFile); // fazendo o download do arquivo finally MyFile.Free; end; 4- No evento OnWork do idHTTP1: ProgressBar1.Position := AWorkCount; 5- No evento OnWorkBegin do idHTTP1: ProgressBar1.Position := 0; ProgressBar1.Max := AWorkCountMax; Label1.caption := "Download em andamente, espere!"; 6- No evento OnWorkEnd do idHTTP1: ProgressBar1.Position := ProgressBar1.Max; Label1.caption := "Download Concluído!";

7- Agora dê F9, e teste a aplicação.

Créditos : Song.

Download com idHTTP e ProgressBar.
Na verdade é meio que um Downloader.

Tutorial:

1- Inicie um novo projeto : File / New / VCL Form Aplication;

2- Coloque um Button, um Edit, um Progressbar e um Label, e um idHTTP (Paleta Indy Clients);

3- No evento OnClick do Button coloque o código abaixo:


var arquivo,caminho : string; MyFile: TFileStream; begin // definir o link caminho:= 'http://127.0.0.1/'; // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc arquivo:= edit1.text; // nome do arquivo para download MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar. try IdHTTP1.Get('http://127.0.0.1/'+arquivo, MyFile); // fazendo o download do arquivo finally MyFile.Free; end; 4- No evento OnWork do idHTTP1: ProgressBar1.Position := AWorkCount; 5- No evento OnWorkBegin do idHTTP1: ProgressBar1.Position := 0; ProgressBar1.Max := AWorkCountMax; Label1.caption := "Download em andamente, espere!"; 6- No evento OnWorkEnd do idHTTP1: ProgressBar1.Position := ProgressBar1.Max; Label1.caption := "Download Concluído!";

7- Agora dê F9, e teste a aplicação.

Créditos : Song.

Download com idHTTP e ProgressBar.
Na verdade é meio que um Downloader.

Tutorial:

1- Inicie um novo projeto : File / New / VCL Form Aplication;

2- Coloque um Button, um Edit, um Progressbar e um Label, e um idHTTP (Paleta Indy Clients);

3- No evento OnClick do Button coloque o código abaixo:


var arquivo,caminho : string; MyFile: TFileStream; begin // definir o link caminho:= 'http://127.0.0.1/'; // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc arquivo:= edit1.text; // nome do arquivo para download MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar. try IdHTTP1.Get('http://127.0.0.1/'+arquivo, MyFile); // fazendo o download do arquivo finally MyFile.Free; end; 4- No evento OnWork do idHTTP1: ProgressBar1.Position := AWorkCount; 5- No evento OnWorkBegin do idHTTP1: ProgressBar1.Position := 0; ProgressBar1.Max := AWorkCountMax; Label1.caption := "Download em andamente, espere!"; 6- No evento OnWorkEnd do idHTTP1: ProgressBar1.Position := ProgressBar1.Max; Label1.caption := "Download Concluído!";

7- Agora dê F9, e teste a aplicação.

Créditos : Song.

Download com idHTTP e ProgressBar.
Na verdade é meio que um Downloader.

Tutorial:

1- Inicie um novo projeto : File / New / VCL Form Aplication;

2- Coloque um Button, um Edit, um Progressbar e um Label, e um idHTTP (Paleta Indy Clients);

3- No evento OnClick do Button coloque o código abaixo:


var arquivo,caminho : string; MyFile: TFileStream; begin // definir o link caminho:= 'http://127.0.0.1/'; // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc arquivo:= edit1.text; // nome do arquivo para download MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar. try IdHTTP1.Get('http://127.0.0.1/'+arquivo, MyFile); // fazendo o download do arquivo finally MyFile.Free; end; 4- No evento OnWork do idHTTP1: ProgressBar1.Position := AWorkCount; 5- No evento OnWorkBegin do idHTTP1: ProgressBar1.Position := 0; ProgressBar1.Max := AWorkCountMax; Label1.caption := "Download em andamente, espere!"; 6- No evento OnWorkEnd do idHTTP1: ProgressBar1.Position := ProgressBar1.Max; Label1.caption := "Download Concluído!";

7- Agora dê F9, e teste a aplicação.

Créditos : Song.

Download com idHTTP e ProgressBar.
Na verdade é meio que um Downloader.

Tutorial:

1- Inicie um novo projeto : File / New / VCL Form Aplication;

2- Coloque um Button, um Edit, um Progressbar e um Label, e um idHTTP (Paleta Indy Clients);

3- No evento OnClick do Button coloque o código abaixo:


var arquivo,caminho : string; MyFile: TFileStream; begin // definir o link caminho:= 'http://127.0.0.1/'; // aqui defini um caminho pardão pro download , pode ser trocado por um edit, etc arquivo:= edit1.text; // nome do arquivo para download MyFile := TFileStream.Create('C:'+arquivo, fmCreate); // local no hd e nome do arquivo com a extensão, onde vai salvar. try IdHTTP1.Get('http://127.0.0.1/'+arquivo, MyFile); // fazendo o download do arquivo finally MyFile.Free; end; 4- No evento OnWork do idHTTP1: ProgressBar1.Position := AWorkCount; 5- No evento OnWorkBegin do idHTTP1: ProgressBar1.Position := 0; ProgressBar1.Max := AWorkCountMax; Label1.caption := "Download em andamente, espere!"; 6- No evento OnWorkEnd do idHTTP1: ProgressBar1.Position := ProgressBar1.Max; Label1.caption := "Download Concluído!";

7- Agora dê F9, e teste a aplicação.

Créditos : Song.

Daqui a pouco e posto a img aqui para você amigo.

-Edit

Local das caves "principais" de tarantula são essas na imagem abaixo.

Realmente não achei que iria ganhar, foi uma surpresa imensa.
Estou feliz até agora muito obrigado a toda a staff do tk!

Vou aproveitar esses 150 para fazer vários scripts e disponibilizar para o pessoal '-'

Olá pessoal, como não econtrei aqui na area de programação a nova tibia api estou colocando neste topico.
A dll compilada estarar em anexo, espero que aproveitem! ;]

Endereços 9.1:




TibiaAPI.rar

Olá pessoal, como não econtrei aqui na area de programação a nova tibia api estou colocando neste topico.
A dll compilada estarar em anexo, espero que aproveitem! ;]

Endereços 9.1:




TibiaAPI.rar

Tenta usar esse script aqui, é slime trainer + healer (Configura a magia no inicio do script)



const Spell = 'exura ico' Food_Id = 3578; //change this to the food you have on you MinMana = 1800; // change this to the mana when it starts to eat StrongWeaponID = 3264 // The weapon that will kill mother slime When KillAtHP HealAtHp = 550 // will use exura when get this hp UhAtHp = 0 // will uh you if it get this HP ITEM_RUNE_UH = 0 // enter here UH or IH to use in desired HP. KillAtHp= 500 // when it get this hp it will kill the mother slime 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; begin updateworld; MotherSlime := GetFollowedCreatureID; while not Terminated do begin UpdateWorld; if self.LogoutBlock=false then self.Logout(false); if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then Self.Say(Spell) UpdateWorld; if ((Self.Health) <(UhAtHp)) then Self.Containers.UseItemWithSelf(GetItemFromOpenBackpack(ITEM_RUNE_UH)); Sleep(1000); 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) and (Creatures.Creature[x].Z = Self.Z) 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 Creatures.Creature[x].Attacking := true; Break; end; end; end; end; end; end; else begin if self.Health < KillAtHp 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) and (creatures.creature[x].Z = self.Z) 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;

Mohammed, follow + attack juntos é impossível. #Fato
Mas você precisa dar follow na slime mãe para que o NG saiba que aquele slime X é o slime que nãoo pode ser atacado.
Então depois de ter dado o follow, não ataque e execute o script.
Perceba que ele vai tirar o follow e atacar o clone e a partir dai ele não rela na mãe.

Você tem que dar follow e ativar o script.
Ele vai atacar o Slime Clone sozinho.
O script está funcionando perfeitamente, tente outra vez. =)

@Lucas S.
Que nada cara, só estou aqui pra ajudar, =)

Fica +/- assim:


Screenshot adicionada ao tópico.

@rafuskao
Cara, eu testei com meu Knight.
Usando os melhores itens da lista que eu coloquei ali, e ainda um RH ao invés do Crusader Helmet, eu só consegui aguentar os Slimes no lvl 30.
No lvl 20 você ainda vai levar muito hit, a não ser que já tenha skill 70/70.

Área errada.
Tópico Movido.

Bom galera nesse Tutorial vou ensinar a vocês a treinar com Slimes ().

Como todo mundo sabe, os Slimes criam clones, e é exatamente isso que o faz ser o melhor monstro para Treino do Tibia.
O Slime possue uma defesa fraca, porém tem um ataque mais elevado. Sugiro lvl 30 para começar a treinar com eles.
Você precisará desses itens, ou melhores para treinar:
-Knight Armor () ou Paladin Armor ()
-Knight Legs () ou mesmo a Plate Legs ()
-Dragon Shield () ou Medusa Shield ()
-Crusader Helmet () ou Warrior Helmet ()

E as armas de treino:
-Knife ()
-Sickle ()
-Club ()

Uma Bp com Worms () e uma Fishing Rod (). As duas podem ser conseguidas em qualquer loja de ferramentas (Onde compra Rope () e Shovel ().)

Depois que já estiver com todos esses itens vá até Venore e saia pela saída Noroeste:



Siga o caminho vermelho para chegar a uma "passagem secreta", desça e siga o caminho até o final, suba e você estará em uma área de treino onde tem o respawn de apenas 1 Slime:




Os círculos vermelhos mostram onde você deve ficar para apenas 2 Slimes, a mãe e 1 clone te baterem.

O caminho laranja te leva a outra área de treino que também possue o respawn de apenas 1 Slime:



O que você deve fazer é o seguinte. Marque o Slime mãe para você saber qual é e lure ele até algum círculo vermelho mostrado nas imagens acima, de Follow na Slime mãe e execute esse Script:


const Spell = 'exura ico' Food_Id = 3578; //change this to the food you have on you MinMana = 1800; // change this to the mana when it starts to eat StrongWeaponID = 3264 // The weapon that will kill mother slime When KillAtHP HealAtHp = 550 // will use exura when get this hp UhAtHp = 0 // will uh you if it get this HP ITEM_RUNE_UH = 0 // enter here UH or IH to use in desired HP. KillAtHp= 500 // when it get this hp it will kill the mother slime 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; begin updateworld; MotherSlime := GetFollowedCreatureID; while not Terminated do begin UpdateWorld; if self.LogoutBlock=false then self.Logout(false); if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then Self.Say(Spell) UpdateWorld; if ((Self.Health) <(UhAtHp)) then Self.Containers.UseItemWithSelf(GetItemFromOpenBackpack(ITEM_RUNE_UH)); Sleep(1000); 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) and (Creatures.Creature[x].Z = Self.Z) 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 Creatures.Creature[x].Attacking := true; Break; end; end; end; end; end; end; else begin if self.Health < KillAtHp 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) and (creatures.creature[x].Z = self.Z) 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;

Você vai atacar apenas os clones. Coloque na mão sua arma de treino e clique no Full Defense.
Coloque o bot para pescar, comer e treinar seu ml com alguma magia de cura, Exura Ico, por exemplo, enquanto treina.
Pronto, suas skills vão subir rapidinho. Esse método serve para treino até skills 90+, então aproveite.
Não se esqueça de trocar de Slime de 2 em 2 horas +/-, pois a Cip possue um sistema anti-bot que faz o monstro "treinar junto de você", então quando você fica muito tempo com o mesmo ele começa a te dar hits muito altos. Tome cuidado!

Ficará +/- assim:

Como esse script é para NG isso deveria estar na area de # TibiaBot NG # Dicas e Tutoriais

Reported