TibiaAPI - Automatic's

[Renato 659]

Créditos: Renato Ribeiro | NO RIP!

Funções:

• Usar Utani Hur ou Utani Gran Hur automaticamente após sair.
  
• Usar Utamo Vita automaticamente após sair (em menos de 0,7 segundos).
  
• Usar Exana Pox automaticamente caso, com poison estiver.
  

Mini Wiki - (para o conteúdo)

O que é timer?

O timer executa funções dentro dele de certo em certo tempo em que você define.

Ou seja, se você por c.Map.FullLightOn() dentro de um timer com intervalo de 1 segundo, ele vai ficar de um em um segundo mandando c.Map.FullLightOn().

O tempo você define nas properties (propriedades) do Timer em Interval.

Ao colocar o Timer no Form, você vai ver ele lá em baixo do form, lá ficarão todos os timers. Clique uma vez para selecionar e ver as properties (propriedades), ou duas vezes para entrar nele.

O que é radiobutton?

Radio button serve pra você escolher entre um e outro, ou outros, ou seja, só pode selecionar um radiobutton de todos os que tiverem. Vamos usar 2, para escolher entre Utani Hur ou Utani Gran Hur.

O que é checkbox?

Check box é o contrário do Radio Button, ele voce pode selecionar quantos quiser se tiver. Vamos usar ele para ativar/desativar o Timer.

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]

[Puncker 201]

Simples e útil.

REP++

[Renato 659]

Sim, pra min estas funções são essenciais em um bot.

São coisas que não podem faltar, porém, são coisas muito fáceis de se fazer.

Então, ta ai pra vocês : D

[Orbtitan 26]

nao entendi , o titulo ta diferente do conteudo

[Renato 659]

Automatic's = Automaticos

Auto Utamo = Usar Utamo Vita Automaticamente

Auto Haste = Usar Haste Automaticamente

Auto Exana Pox = Usar Exana Pox Automaticamente

Entendeu?

[Henrique M. 2]

If granhur.Checked And p.Mana >= 100 And Not p.HasFlag(Flag.Hasted) Then

            c.Console.Say("Utani Gran Hur")

ElseIf Hur.Checked And p.Mana >= 60 And Not p.HasFlag(Flag.Hasted) Then

            c.Console.Say("Utani Hur")

End If

[Mek Fiuchem 212]

Desculpé ai por reviver topico tipo eu coloquei no timer mais a linha : (Tibia.Constants.Flag.ProtectedByMagicShield) fiko sublinhada azul

tenho que declara alguma coisa?

Editado Agosto 12, 2011 por Mek Fiuchem (veja o histórico de edições)

[Kimoszin 1160]

Tibia.Constants.Flag.ProtectedByManaShield

Editado Agosto 12, 2011 por Kimoszin (veja o histórico de edições)

[Augusto 660]

Porque ele é um booleano, ou seja, é falso ou verdadeiro.

Um exemplo

Private Sub timer_utamo_Tick(sender As Object, e As EventArgs)	

    If p.Mana > 40 AndAlso p.HasFlag(Flag.ProtectedByManaShield) = False Then

		c.Console.Say("utamo vita")

    End

End Sub

[Kimoszin 1160]

Ele errou boto Magic Shield, é Mana Shield

[Renato 659]

Pelo menos quando eu programava o Alien era MagicShield ... (: