datpro

Global $tien[10]
$tien[1] = 1000
$tien[2] = 2000
$tien[3] = 3000
$tien[4] = 4000
$tien[5] = 5000
$tien[6] = 6000
$tien[7] = 7000
$tien[8] = 8000
$tien[9] = 9000
Global $so
Global $dat
chayauto()
Func chayauto()
   datcuoc($tien[1])
   while 1
      if $dat = checktaixiu() Then ; nếu Win
         $so = 1
         datcuoc($tien[$so])
      Else ; nếu thua
         $so += 1
         datcuoc($tien[$so])
      EndIf
   WEnd
EndFunc
Func checktaixiu()
   if hex(PixelGetColor(1161,503),6) = "EEEEEE" then
      Return "xỉu"
   Elseif hex(PixelGetColor(1161,503),6) = "000608" then
      Return "tài"
   EndIf
EndFunc

Func datcuoc($tien)
   If     checktaixiu() = "tài" then
      $dat = "xỉu"
         MouseClick("left",1121,422,1,0)
         Send($tien)
         Send("{ENTER}")

   ElseIf checktaixiu() = "xỉu" then
      $dat = "tài"
         MouseClick("left",773,422,1,0)
         Send($tien)
         Send("{ENTER}")

   endif
   sleep(90000)
EndFunc