По быстрому набросал . С удовольствием приму помощь от знатоков по оптимизации.
У меня все работает. Гонял пару часов.
Если кто-то будет копировать, проверьте свои координаты. У всех по разному расширение экрана настроено.
Браузер "Хром". Кликерман версия 4.11
(18.03.2016)
#name "CLDMine_1"
//---------------------------------
SUB(вставить)
LCLICK(400,42))
WAITMS(200)
DBLCLICK(400,42))
WAITMS(200)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#V)
WAITMS (50)
KEYUP (#V)
KEYUP (#CTRL)
KEYPRESS(#ENTER)
WAITMS ( RND (5361,6240))
END_SUB
//------
SUB(obmen)
WAITMS(500)
DBLCLICK(1396,549) // CLD:
WAITMS ( RND (261,340))
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
$sld = FROMCLIP()
WAITMS (50)
IF($sld > 0.00000999)
LCLICK(1410+rnd(-15,15),590+rnd(-5,5)) // obmen
WAITMS ( RND (7161,9240))
END_IF
LCLICK(1050+rnd(-15,15),530+rnd(-5,5)) // Select
WAITMS ( RND (361,540))
END_SUB
//---------------------------------
WAITMS ( RND (1361,2540))
TOCLIP("https://cldmine.com/calculator")
вставить()
WAITMS(200)
WHILE($al = 0)
DBLCLICK(933,672) // Доход в ...
WAITMS(300)
LCLICK(933,672)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#C)
WAITMS (50)
KEYUP (#C)
KEYUP (#CTRL)
$tw = FROMCLIP()
WAITMS (50)
$val = STRFILTER($tw,"DOGELTCLAMNBRDSHKF", 1)
WAITMS (250)
IF($val ! $val2)
$al = 1
else
WAITMS ( RND (361,540))
TOCLIP("https://cldmine.com/speedlog")
вставить()
HINTPOPUP(" ЖДЕМ ", " 20 минут ")
WAIT ( RND (1175,1225))
TOCLIP("https://cldmine.com/calculator")
вставить()
END_IF
END_CYC
$al=0
TOCLIP("https://cldmine.com/mining")
вставить()
//-----------
LCLICK(0,622) // 16448250
WAITMS ( RND (461,854))
FOR($a,$a < 4) // масштаб 50%
WAITMS(200)
KEYDOWN (#CTRL)
WAITMS (150)
KEYDOWN (189)
WAITMS (150)
KEYUP (189)
KEYUP (#CTRL)
WAITMS ( RND (361,540))
END_CYC
$a=0
WAITMS (150)
KEYPRESS(#PAGEDOWN)
WAITMS ( RND (461,854))
switch($val)
CASE(BTC)
LCLICK(1197+rnd(-15,15),180+rnd(-5,5))
WAITMS ( RND (6461,8540))
case(LTC)
LCLICK(1197+rnd(-15,15),275+rnd(-5,5))
WAITMS ( RND (6461,8540))
case(DOGE)
LCLICK(1197+rnd(-15,15),370+rnd(-5,5))
WAITMS ( RND (6461,8540))
case(BLK)
LCLICK(1197+rnd(-15,15),465+rnd(-5,5))
WAITMS ( RND (6461,8540))
case(CLAM)
LCLICK(1197+rnd(-15,15),560+rnd(-5,5))
WAITMS ( RND (6461,8540))
case(DASH)
LCLICK(1197+rnd(-15,15),655+rnd(-5,5))
WAITMS ( RND (6461,8540))
case(FTC)
LCLICK(1197+rnd(-15,15),750+rnd(-5,5))
WAITMS ( RND (6461,8540))
case(NMC)
LCLICK(1197+rnd(-15,15),845+rnd(-5,5))
WAITMS ( RND (6461,8540))
case(RDD)
LCLICK(1197+rnd(-15,15),940+rnd(-5,5))
WAITMS ( RND (6461,8540))
end_switch
$val2= $val
$val =0
KEYPRESS(#PAGEUP)
WAITMS ( RND (461,854))
WAITMS(200)
KEYDOWN (#CTRL)
WAITMS (50)
KEYDOWN (#0)
WAITMS (50)
KEYUP (#0)
KEYUP (#CTRL)
WAITMS(200)
//-----------
TOCLIP("https://cldmine.com/finances/exchange")
вставить()
LCLICK(1050+rnd(-15,15),530+rnd(-5,5)) // Select
WAITMS ( RND (361,540))
LCLICK(1050+rnd(-15,15),580+rnd(-4,4)) // BTC
obmen()
LCLICK(1050+rnd(-15,15),600+rnd(-4,4)) // LTC
obmen()
LCLICK(1050+rnd(-15,15),620+rnd(-4,4)) // DOGE
obmen()
LCLICK(1050+rnd(-15,15),640+rnd(-4,4)) // BLK
obmen()
LCLICK(1050+rnd(-15,15),660+rnd(-4,4)) // CLAM
obmen()
LCLICK(1050+rnd(-15,15),680+rnd(-4,4)) // DASH
obmen()
LCLICK(1050+rnd(-15,15),700+rnd(-4,4)) // FTC
obmen()
LCLICK(1050+rnd(-15,15),720+rnd(-4,4)) // NMC
obmen()
LCLICK(1050+rnd(-15,15),740+rnd(-4,4)) // RDD
obmen()
//-----------