Líderes

@Dioudiou,fiz o download no baixaki e reupei no MuiltiUpload. Pode ser feito o download do proprio MultiUpload,Rapidshare,MegaUpload entre outros. Ta ai o Link: http://www.multiupload.com/F949WG2B37 Abraços.

Auto Haste No form ponha, 2 radiobutton: (name) = Utanihur e Utanigranhur //// Text = Utani Hur e Utani Gran Hur 1 checkbox: (name) = ChkAutoHaste /// Text = Active, Enable ou Ativar, tanto faz. 1 timer: Renomeie para TimerAutoHaste No TimerAutoHaste, dê dois clicks e então ponha este código: If Utanigranhur.Checked Then If p.Mana >= 100 And p.HasFlag(Tibia.Constants.Flag.Hasted) = False Then c.Console.Say("Utani Gran Hur") End If ElseIf Utanihur.Checked Then If p.Mana >= 60 And p.HasFlag(Tibia.Constants.Flag.Hasted) = False Then c.Console.Say("Utani Hur") End If End If [/code] Agora abra o ChkAutoHaste e ponha: [code] If ChkAutoHaste.Checked Then TimerAutoHaste.Start() Utanihur.Enabled = False Utanigranhur.Enabled = False Else TimerAutoHaste.Stop() Utanihur.Enabled = True Utanigranhur.Enabled = True End If Vá no Timer, properties e mude o Interval para 700. A cada 1000 é 1 segundo, se deixar 100 ele pode travar. Eu uso 700 nos timers do AlienBot. Explicação: Tente interpretar o código, se mesmo assim não entender, me pergunte. Auto Utamo Requer: 1 timer 1 checkbox Timer: If p.Mana >= 40 And p.HasFlag(Tibia.Constants.Flag.ProtectedByMagicShield) = False Then c.Console.Say("Utamo Vita") End If [/code] CheckBox [code] If CheckBox1.Checked Then Timer1.Start() Else Timer1.Stop() End If Não esqueça de Ligar os (names) dos items ás suas respectivas funções no código ou não irá funcionar. Por exemplo, se seu CheckBox for CheckBox12, troque o CheckBox1 por CheckBox12, e assim em diante. Mude o interval do timer para 700, não se esqueça. Auto Exana Pox Requer: 1 timer 1 checkbox Timer: (interval) = 700 If p.Mana >= 30 And p.HasFlag(Tibia.Constants.Flag.Poisoned) = True Then c.Console.Say("exana pox") End If [/code] CheckBox: [code] If CheckBox2.Enabled Then Timer2.Start() Else Timer2.Stop() End If Você pode criar outras funções parecidas usando p.HasFlag. p.HasFlag(Tibia.Constants.Flag.Burning) p.HasFlag(Tibia.Constants.Flag.InBattle) p.HasFlag(Tibia.Constants.Flag.WithinProtectionZone) p.HasFlag(Tibia.Constants.Flag.Electrified) p.HasFlag(Tibia.Constants.Flag.Paralyzed) Etc. [/code] Para ver o resto, só digite "p.HasFlag(" no VB que irá aparecer a lista. [b]Abraços.[/b]

Não existe "bugs" conhecidos que neguem acesso a determinados sites. O conficker é responsável por negar acesso a sites como da Microsoft e de antivirus, tente por exemplo entrar no site www.virustotal.com . De qualquer forma, se você acha que está seguro, não dê tanta importância.

http://www.microsoft.com/downloads/en/details.aspx?FamilyId=333325fd-ae52-4e35-b531-508d977d32a6&displaylang=en Download do site da Microsoft

Const Spell = 'Utani Hur' MinMana = 120 while not terminated do begin UpdateWorld; if not self.hasting then if self.mana >= MinMana then Self.Say(Spell); sleep(1000); end;