CoinFlip

#include <array.au3>
HotKeySet('{insert}','coinflip')
HotKeySet("{esc}", "Sair")
Global $i = 0
$flip = 0
While 1
   Sleep (30)
   If $flip = 1 Then
      acao()
   Else
   EndIf
WEnd

Func coinflip()
   If $flip = 1 Then
   $flip = 0
Else
   $flip = 1
   EndIf
EndFunc
Func Sair()
   Exit
EndFunc

Func acao()
;~    Local $quant[5] = ["500", "1000", "1500", "2000", "2500"]
   Local $quant[5] = ["50", "100", "150", "200", "250"]
   If IsArray($quant) Then

   Send('%coinflip ' & $quant[Random(0,3,1)] & '{ENTER}')
   Sleep(5000)
   $i = $i + 1
      If $i = 11 Then
         ConsoleWrite($i & '-' & @CRLF)
         Sleep(1000)
         Send('%balance{ENTER}')
         Sleep(100)
         Send('p{!}fish{ENTER}')
         $i = 0
         Else
      EndIf
   Else
      ConsoleWrite('não e array')
   EndIf
EndFunc