Адаптация "Кликерманн > iMacros"

флуд

Есть у меня программка "Кликерманн".
И код есть для ней написанный.
И работала эта программка честно и правильно.
Но задумал создатель освободить компуте.
И работать на компуте в свое удовольствие.
И создал создатель на Амазоне компуте виртуальный,
но только на год создал.
И запустил Кликерманна в этот мир.
И работал Кликерманн.
Но отключился от виртуального мира создатель.
И перестал Кликерманн отрисовывать экран.
Перестал работать.
И понял создатель, что iMacros может помочь ему.
Но вот тут затык...................................................

Сам вопрос:
Как адаптировать имеющийся код кликерманна по АйМакрос ??????????
И зациклить все это на вечно.

скрытый текст

Выделить код

Код:

(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)
   WAIT ( RND (15,16))
END_SUB
//---------------------------------
 
 
WAIT ( RND (3,4))
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(" ÆÄÅÌ ", " 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                       https://cldmine.com/calculator
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 (2300,3000))
END_CYC
$a=0
WAIT (3)
KEYPRESS(#PAGEDOWN)
WAITMS ( RND (800,1500))
 
switch($val)

CASE(BTC)
   LCLICK(823+rnd(-10,10),252+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(LTC)
   LCLICK(823+rnd(-10,10),295+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(DOGE)
   LCLICK(823+rnd(-10,10),340+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(ETH)
   LCLICK(823+rnd(-10,10),387+rnd(-3,3))
   WAITMS ( RND (6461,8540))   
case(BLK)
   LCLICK(823+rnd(-10,10),432+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(CLAM)
   LCLICK(823+rnd(-10,10),477+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(DASH)
   LCLICK(823+rnd(-10,10),522+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(FTC)
   LCLICK(823+rnd(-10,10),568+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(NMC)
   LCLICK(823+rnd(-10,10),612+rnd(-3,3))
   WAITMS ( RND (6461,8540))
case(RDD)
   LCLICK(823+rnd(-10,10),657+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(4500)
//-----------