bls000

CoinFlip

Jun 29th, 2020
1,702
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #include <array.au3>
  2. HotKeySet('{insert}','coinflip')
  3. HotKeySet("{esc}", "Sair")
  4. Global $i = 0
  5. $flip = 0
  6. While 1
  7.    Sleep (30)
  8.    If $flip = 1 Then
  9.       acao()
  10.    Else
  11.    EndIf
  12. WEnd
  13.  
  14. Func coinflip()
  15.    If $flip = 1 Then
  16.    $flip = 0
  17. Else
  18.    $flip = 1
  19.    EndIf
  20. EndFunc
  21. Func Sair()
  22.    Exit
  23. EndFunc
  24.  
  25. Func acao()
  26. ;~    Local $quant[5] = ["500", "1000", "1500", "2000", "2500"]
  27.    Local $quant[5] = ["50", "100", "150", "200", "250"]
  28.    If IsArray($quant) Then
  29.  
  30.    Send('%coinflip ' & $quant[Random(0,3,1)] & '{ENTER}')
  31.    Sleep(5000)
  32.    $i = $i + 1
  33.       If $i = 11 Then
  34.          ConsoleWrite($i & '-' & @CRLF)
  35.          Sleep(1000)
  36.          Send('%balance{ENTER}')
  37.          Sleep(100)
  38.          Send('p{!}fish{ENTER}')
  39.          $i = 0
  40.          Else
  41.       EndIf
  42.    Else
  43.       ConsoleWrite('não e array')
  44.    EndIf
  45. EndFunc
RAW Paste Data