SHARE
TWEET

CoinFlip

bls000 Jun 29th, 2020 857 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
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top