Ir para conteúdo

Private Sub Teste

Héroi
  • Registro em

  • Última visita

Tudo que Private Sub Teste postou

  1. DORGASSSSSSSSSSSSSSS
  2. Robson Venturin diz (12:13) saiu o resultado do meu exame tenho 3 dias de vida Arthur Bracarense diz (12:14) sério? kkk Robson Venturin diz (12:14) sim Arthur Bracarense diz (12:14) mentira? c vai morrer daqui 3 dias? Robson Venturin diz (12:14) sim Arthur Bracarense diz (12:14) af q q c tem? Robson Venturin diz (12:14) uma doença exterminavel contagiosa por msn Arthur Bracarense diz (12:14) boto fé fudeu então Robson Venturin diz (12:14) sim ;( vo la me despedit no tb.net
  3. Uma vaca, uma formiga e um viado discutiam sobre quem era o mais foda. A vaca: “Dou 50 litros de leite todos os dias, é por isso que eu sou a melhor”! A formiga: “Trabalho dia e noite, verão e inverno. Posso carregar 52 vezes meu próprio peso, é por isso que eu sou a mais foda”! Por que você está descendo o texto? Volte lá em cima, defenda-se, é sua vez de dizer alguma coisa!
  4. Private Sub Teste postou uma resposta no tópico em Playground (Off-topic)
    A mulher conhece um cara num bar, conversam, se entendem, papo vai, papo vem, acabam saindo juntos do bar e vão para o apartamento dele. Chegando lá, ela nota uma estante com 3 prateleiras, com dezenas de ursinhos de pelúcia. Na de baixo estão os menores, na do meio estão os de tamanho médio, e na de cima, os ursos grandes. Ela ficou imaginando: “Que cara sensível, com tantos ursinhos… Que cara especial…”, mas decidiu não dizer nada a ele. Assim, começou a beijá-lo, impressionada com seu lado sensível, e caem na cama, têm uma noitada de sexo maravilhosa… No dia seguinte, estão deitados, curtindo o pós festa, e ela decide perguntar sorrindo: - E então, o quê você achou da nossa noite? E ele responde: - Pega um prêmio ali da prateleira de baixo… RIIIIII
  5. Private Sub Teste postou uma resposta no tópico em Playground (Off-topic)
    Depois de um dia inteiro de trabalho na colocação de postes de iluminação, o chefe reúne seus operários para um balanço: - Luiz André e Eraldinho, quantos postes conseguiram? - Colocamos dezoito postes! - Claudinho e Amarildo, e vocês? - Fincamos dezessete postes, chefe! - Joaquim e Manuel, quantos postes vocês colocaram? - Colocamos dois postes! - Dois?! – berrou o chefe – Como vocês explicam isso? Os outros instalaram quase dez vezes mais! - É!!! Mas o senhor viu o tanto que eles deixaram para fora da terra?
  6. @cool Ela engravidou assistindo porno 3D? Ja aconteceu isso e o marido acreditou ASUDHUHAUHDHASDUHSAD
  7. Sim, a qualquer hora. Quanto ao 'demora pra cara a premmium account', se for por Daopay, após o pagamento, você receberá um código IMEDIATO e sua premmium cairá na mesma hora Ps: Demorei menos de 5 minutos pra comprar minha account por SMS.
  8. Não entendo muito de tibiaapi, mas vamos la.... Private Sub Timerhealer_Tick(ByVal sender as System.Object, ByVal e As System.EventArgs) Handles Timerhealer.Tick If c.LoggedIn = True Then If p.Health < TextBox3.Text And p.Mana > TextBox4.Text Then c.Console.Say(TextBox5.Text) End If End If End Sub Priva Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged If CheckBox4.Checked = True Then Timerhealer.Enabled = True Else Timerhealer.Enabled = false End If End Sub Tenta isso ae
  9. menos complicado menos estressado menos deprimido menos chifrudo
  10. Private Sub Teste postou uma resposta no tópico em Suporte Bots
    const frigo = ['banshee']; flam = ['ancient scarab']; tera = ['cyclops']; vis = ['acolyte of the cult']; mort = ['black knight']; useWand = 1 // 1 se estiver usando Wand/rod 0 se nao estiver usando function GetExoriType(Crea: TCreature): String; begin Result := ''; for z := Low(frigo) to High(frigo) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(frigo[z]) then Result := 'exori frigo'; end; for z := Low(flam) to High(flam) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(flam[z]) then Result := 'exori flam'; end; for z := Low(tera) to High(tera) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(tera[z]) then Result := 'exori tera'; end; for z := Low(vis) to High(vis) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(vis[z]) then Result := 'exori vis'; end; for z := Low(mort) to High(mort) do begin if AnsiLowerCase(Crea.Name) = AnsiLowerCase(mort[z]) then Result := 'exori mort'; end; end; 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;
  11. Private Sub Teste postou uma resposta no tópico em ElfBot NG
    http://gps.rookira.se/?x=32128&y=31307&z=7
  12. Private Sub Teste postou uma resposta no tópico em ElfBot NG
    Sim é pra NG, pelo que eu entendo de tibia você aguenta tranquilamente. O arquivo de 'pegar' senhas não esta disponivel, o EdsonJunior ja tirou.
  13. Wallpaper 4 elementos Prévia Eu uso esse xP Download Clique aqui ~ 4Shared
  14. Private Sub Teste postou uma resposta no tópico em Design Show Off
    Tenho uma dúvida: Você fez isso ae no tédio de seu trabalho? Agora é só digitalizar ele, vai ser 3D?
  15. Private Sub Teste postou uma resposta no tópico em Design Show Off
    Fico roxxxx
  16. Private Sub Teste postou uma resposta no tópico em Playground (Off-topic)
    P a r a b e n s !
  17. Private Sub Teste postou uma resposta no tópico em Suporte Bots
    No seu cavebot, adicione uma label (botão direito do mouse no listbox, clique em label e adicione uma nova) chamada BuyPotions. Faça o waypoint da cave até o local de comprar potions e depois o processo inversso (do local para comprar potions até a cave), agora, aonde você quiser verificar (ex: no fim do waypoint), adicione um macro ao cavebot (botão direito do mouse no listbox, clique em label e adicione um macro) assim: 500 {Potion Checker} Misc.ItemCountEx(266)<20 CaveBot.GoLabel(BuyPotions) Esse macro fazera que quando chegar na linha do macro, ele verificara se tiver menos que 20 health potions na backpack, se tiver menos que 20 irá para a label buypotions... Foi mal se não tiver muito explicado, estou com pressa agora
  18. Private WM_NCHITTEST As Integer = &H84 Private HTCLIENT As Integer = &H1 Private HTCAPTION As Integer = &H2 Protected Overrides Sub WndProc(ByRef m As Message) MyBase.WndProc(m) Select Case m.Msg Case WM_NCHITTEST If m.Result = New IntPtr(HTCLIENT) Then m.Result = New IntPtr(HTCAPTION) End If End Select End Sub Este é o code que eu uso para fazer o form se mover
  19. Private Sub Teste postou uma resposta no tópico em Suporte Bots
    XX Tenta usar um macro, ex: 500 {Potion Checker} Misc.ItemCountEx(ID_DO_ITEM)<QUANTIDADE_DO_ITEM CaveBot.GoLabel(LABEL) Tibia MC, aconselho o que o Punker fez, http://tibiabots.net/forum/topic/1244-phmc-tibia-71-ate-871/ Deixe todas as backpacks dentro da main backpack, abra somente a main backpack, quando ela estiver cheia, o bot automaticamente abre a próxima.
  20. Mutated Human Mistrok Cyclops Dark Magician Scarab Edron Cyclops Rat Yalahar (bueiro ao lado do dp)
  21. Método um pouco mais simples que o seu e um resultado surpreendente Depois te ensino como faz ele
  22. Você terá que achar os address e offsets, depois, modificar o TibiaApi com os address e offsets do cliente que você usa.
  23. Fonte é Tahoma. Belo tutorial para iniciantes, é gambiarrésimo asuhdaushd
  24. Private Sub Teste postou uma resposta no tópico em Suporte Bots
    Level 15 Vá para Folda -1, da de fazer cerca de 600-700 GP/Hour, os equipes recomendados são: Plate Set, Hat of the Mad, Moonlite Rod, Dragon Shield e Leather Boots. Exp gira em torno de 3.5k - 6k Hour. Item para pegar: 5894 (Bat Wing) e 5878 ( Minotaur Leather ) Level 20 Va para folda -2, da de fazer cerca de 500-600 GP/Hour, os equipes recomendados são: Spriti Cloak, Hat of the Mad, Plate Legs, Leather Boots, Dragon Shield, Necrotic Rod, Platinum Amulet. Exp gira em torno de 7k-9k Hour. Para começar, de Start em 'to folda orcs at the folda boat'. Precauções: 1BP de mana fluids para 1 hora +/- Health Potions. Level 31 ++ Va para Fibula, da pra fazer cerca de 600-800 GP/Hour, os equipes recomendados são: Spriti Cloak, Hat of the Mad, Plate Legs, Leather Boots, Dragon Shield, Necrotic Rod, Platinum Amulet. Exp gira em torno de 8k-11k Hour. Ps: Nada impede que você use um plate set ou um set com defesa menor para upar ae, isso é só um exemplo que eu peguei do site em que achei os WPT. Pack Waypoints Druid ( 15 for 30 + ).rar
  25. 1. Não sei, pois estou na escola sem o Tugbot 2. Se não me engano vai em: Hotkeys e depois adiciona uma como: toggle attack, algo assim 3. O Tugbot usa o shovel quando você adiciona o Holle, porem, ele é bugado e as vezes usa, as vezes não, nunca encontrei uma solução do tipo: UseItem (X,Y,Z,ID).

Informação Importante

Confirmação de Termo