Auto Magia Com Checkbox

1°:crie uma Checkbox
Nome:castC
capition:Auto Magia Ou Oq Quizer

2°crie um timer com os milesimos que vc quiser

3° de um duplo no Timer e adicione

Código:

If castC.Value = 1 Then
            If SpellMemorized > 0 Then
                If GetTickCount > Player(MyIndex).AttackTimer + 1000 Then
                    If Player(MyIndex).Moving = 0 Then
                        Call SendData("cast" & SEP_CHAR & SpellMemorized & END_CHAR)
                        Player(MyIndex).Attacking = 1
                        Player(MyIndex).AttackTimer = GetTickCount
                        Player(MyIndex).CastedSpell = YES
                    End If
                End If
            End If
        End If


Creditos:Twohands