TibiaAPI - Automatic's

renato ribeiro tutoriais

Postado Dezembro 15, 2010 14 anos

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]