(18.03.2016)
 
#name "CLDMine_1"
 
 
//---------------------------------
SUB(past) //это параметр "Ctrl+V"
   LCLICK(400,49))
   WAITMS(500)
 
     KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#A)
   WAITMS (50)
   KEYUP (#A)
   KEYUP (#CTRL)
 
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#V)
   WAITMS (50)
   KEYUP (#V)
   KEYUP (#CTRL)
   KEYPRESS(#ENTER)
   WAITMS ( RND (5361,6240))
END_SUB
//---------------------------------
 
 
WAITMS ( RND (1361,2540))
TOCLIP("https://cldmine.com/calculator")
past()
WAITMS(500)
WHILE($al = 0)
   DBLCLICK(705,650) // доход в ...
   WAITMS(300)
   
   KEYDOWN (#CTRL)
   WAITMS (50)
   KEYDOWN (#C)
   WAITMS (50)
   KEYUP (#C)
   KEYUP (#CTRL)
   $tw = FROMCLIP()
   WAITMS (50)
   $val = STRFILTER($tw,"BTCLTCDOGETHBLKFTCLAMNMCRDDASH", 1)//DOGELTCLAMNBRDSHKF
   WAITMS (250)
   IF($val ! $val2)
      $al = 1
   else
            WAITMS ( RND (375,425))
            HINTPOPUP(" ЖДЕМ ", " 15 минут ") 
      WAIT (300)
            HINTPOPUP(" ЖДЕМ ", " 10 минут ") 
      WAIT (300)
            HINTPOPUP(" ЖДЕМ ", " 5 минут ") 
      WAIT (60)
      HINTPOPUP(" ЖДЕМ ", " 4 минуты ")
      WAIT (60)
      HINTPOPUP(" ЖДЕМ ", " 3 минуты ")
      WAIT (60)
      HINTPOPUP(" ЖДЕМ ", " 2 минуты ")
      WAIT (60)
      HINTPOPUP(" ЖДЕМ ", " 1 минуту ")
      WAIT (30)
      HINTPOPUP(" ЖДЕМ ", " Осталось 30 секунд ")
      WAIT (20)
      HINTPOPUP(" секунд ", " 10 ")
      WAIT (1)
      HINTPOPUP(" секунд ", " 9 ")
      WAIT (1)
            HINTPOPUP(" секунд ", " 8 ")
      WAIT (1)
            HINTPOPUP(" секунд ", " 7 ")
      WAIT (1)
            HINTPOPUP(" секунд ", " 6 ")
      WAIT (1)
            HINTPOPUP(" секунд ", " 5 ")
      WAIT (1)
            HINTPOPUP(" секунды ", " 4 ")
      WAIT (1)
            HINTPOPUP(" секунды ", " 3 ")
      WAIT (1)
            HINTPOPUP(" секунды ", " 2 ")
      WAIT (1)
            HINTPOPUP(" секунда ", " 1 ")
            WAIT (1)
            HINTPOPUP(" воспроизведение ", " ! ! ! Поехали ! ! ! ")
      TOCLIP("https://cldmine.com/calculator")
      past()      
   END_IF
END_CYC
$al=0
TOCLIP("https://cldmine.com/mining")
past()
//-----------
LCLICK(0,622)  // 16448250
WAITMS ( RND (461,854))
FOR($a,$a < 5)  // масштаб 50%
   WAITMS(200)
   KEYDOWN (#CTRL)
   WAITMS (150)
   KEYDOWN (189)
   WAITMS (150)
   KEYUP (189)
   KEYUP (#CTRL)
   WAITMS ( RND (1261,1740))
END_CYC
$a=0
WAITMS (150)
KEYPRESS(#PAGEDOWN)
WAITMS ( RND (461,854))
 
switch($val)

CASE(BTC)
   LCLICK(840+rnd(-10,10),262+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(LTC)
   LCLICK(840+rnd(-10,10),308+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(DOGE)
   LCLICK(840+rnd(-10,10),353+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(ETH)
   LCLICK(840+rnd(-10,10),398+rnd(-3,3))
   WAITMS ( RND (6461,8540))   
case(BLK)
   LCLICK(840+rnd(-10,10),443+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(CLAM)
   LCLICK(840+rnd(-10,10),487+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(DASH)
   LCLICK(840+rnd(-10,10),532+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(FTC)
   LCLICK(840+rnd(-10,10),578+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(NMC)
   LCLICK(840+rnd(-10,10),622+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(RDD)
   LCLICK(840+rnd(-10,10),667+rnd(-3,3))
   WAITMS ( RND (6461,8540))
end_switch
$val2= $val
$val =0
KEYPRESS(#PAGEUP)
WAITMS ( RND (461,854))
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#0)
WAITMS (50)
KEYUP (#0)
KEYUP (#CTRL)
WAITMS(200)
//-----------