Anti Kick [Dance]

{usando TibiaAPI}

Opa galera, mais um tuto com tibiaApi ai :]

1 - Crie um timer, renomeie para TimerDance. Agora ponha um NumericUpDown no form e do lado um checkbox para ativar/desativar.

No timer você coloca:

Dim min As Integer = NumericUpDown1.Value

TimerDance.Interval = min*60000


p.Turn(Direction.Up)

p.Turn(Direction.Up)

p.Turn(Direction.Down)

p.Turn(Direction.Down)

p.Turn(Direction.Left)

p.Turn(Direction.Left)

p.Turn(Direction.Right)

p.Turn(Direction.Right)

[/code]




[b]Observações¹: [/b]em[i]min*60000 [/i]ele vai multiplicar o valor do numeric por 60 segundos que é um minuto, pois a cada 1000 é 1 segundo. Dando o valor exato em minutos do numeric.



[b]Observações²:[/b] na hora de 'dançar' eu dupliquei cada direção porque o VisualBasic vai ler muito rápido e vai acabar rodando em duas direções somente porque até chegar a informação de 1 direção no client do tibia, já passou mais duas direções no Bot.

Então fiz por garantia. (Aqui funciona)



[size=4][color=#FF0000][b]2 -[/b][/color][/size] Agora de dois clicks no checkbox para entrar no evento "CheckBox1_CheckedChanged".

E ponha:



[code]

If CheckBox1.Checked Then

TimerDance.Start()

NumericUpDown1.Enabled = False

Else

TimerDance.Stop()

NumericUpDown1.Enabled = True

End If

E pronto, o cara que for usar o bot, seleciona quantos de quanto em quanto tempo (MINUTOS) o char vai rodar e ativar =D

Fiz de cabeça, então se aparecer algum erro, avise para min arrumar! Thanks!

Abraços.

Anti Idle OWNA!

Valeu renatovisk!

Tem q muda o interval do timer pra 60000? tentei aki e nao deu nada........

min*60000

Significa, o valor do NumericUpDown multiplicado (sinal da multiplicação da programação: * ) por 60000. 60000 equivale á 1 minuto, pois cada 1000 é um segundo.

Tentei de novo e não consegui ^.^. Mas tipo eu só criei 1 form adc o tibiaapi ou tem que faze o msm processo tipo seleciona o char etc?