xxxPixelxxx
20.07.2014, 22:14
Набросал тут на UoPilot ([Ссылки могут видеть только зарегистрированные и активированные пользователи])скриптик для сбора ресурсов
$navigatorOption - при "1" ходит по локациям, нужно использовать компас
$farmOption - при "1" включен фарм (сбор ресурсов/нападение на мобов)
$elem - элемент(ресурс/моб), который будет искать скрипт, указывается цвет пикселя. Лучше всего искать те пиксели, которых больше всего, например с помощью MS Paint и масштабирования
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
set $navigatorOption 0 //Navigator, dvigaetsa po komposu
set $farmOption 1 //farm v ohote
set $battleCheckOption 1
set $hpCheckOption 0
set $optimalhp 80
set $timerOption 1
set $elem 45310
set $farmLimitOption 1
set $limitFarm 300
set $currentFarm 0
set %groundX[1] 575
set %groundY[1] 138
set %groundX[2] 589
set %groundY[2] 124
set %groundX[3] 586
set %groundY[3] 120
set %groundX[4] 586
set %groundY[4] 111
set %groundX[5] 586
set %groundY[5] 101
set %groundX[6] 676
set %groundY[6] 103
set %groundX[7] 674
set %groundY[7] 111
set %groundX[8] 665
set %groundY[8] 118
set %groundX[9] 665
set %groundY[9] 126
set %groundX[10] 665
set %groundY[10] 138
set %groundX[11] 575
set %groundY[11] 138
for #k 0 100 1
set $a 0
set #i 0
set #j 0
set $Check 0
set $checkBusy 0
set $hp 0
if $battleCheckOption = 1
if 425, 312 6974058 //bitva
for #i 0 100 1
if 425, 312 6974058
move 479, 313
left 479, 313
end_if
wait 4000 + random(500)
if 445, 259 52872
move 560, 32
left 560, 32
break
end_if
end_for
end_if
if 445, 259 52872 //okno pobedi
move 560, 32
left 560, 32
end_if
end_if
if $hpCheckOption = 1
if 240, 45 1051327
set $hp 100
end_if
if 225, 45 852666
set $hp 90
end_if
if 210, 45 393404
set $hp 80
end_if
if 196, 45 655549
set $hp 70
end_if
end_if
if $navigatorOption = 1 //Navigator
for #j 0 30 1
if_not 1047, 378 159 //proverka na menu perehoda
set $navigator findcolor (1019, 107 1219, 412 1 1 (16722954 ) %navigatorCord 2 2)
if $navigator > 0
move %navigatorCord[1 1], %navigatorCord[1 2]
left %navigatorCord[1 1], %navigatorCord[1 2]
break
end_if
else
wait 5s
end_if
end_for
end_if
if $farmOption = 1 //Farm
if 1026, 100 1575390 //proverka na menu ohoti
for #i 1 10 1
set $Check findcolor (464, 279 819, 374 1 1 (6128574) %checkCord 2 2)
if $Check > 0 //proverka na oshibki
move %checkCord[1 1], %checkCord[1 2]
left %checkCord[1 1], %checkCord[1 2]
end_if
if hpCheckOption = 1
if_not $hp > $optimalhp
break
end_if
end_if
if 425, 312 6974058 //bitva
for #i 0 100 1
if 425, 312 6974058
move 479, 313
left 479, 313
end_if
wait 4000 + random(500)
if 445, 259 52872
move 560, 32
left 560, 32
break
end_if
end_for
end_if
//timer
if 791, 304 165
for #i 1 10 1
wait 10000 + random(1000)
if_not 791, 304 165
break
end_if
end_for
end_if
set $a findcolor (78, 170 1222, 461 1 1 ($elem) %cord 2 )
if $a > 0
for #j 1 $a 1
set #startX (%cord[$a 1] - 40)
set #startY (%cord[$a 2] - 40)
set #endX (%cord[$a 2] + 40)
set #endY (%cord[$a 2] + 40)
set $checkBusy findcolor(#startX #startY #endX #endY 1 1 (33180) %cordCheck 2 1)
if_not $checkBusy > 0
move %cord[$a 1], %cord[$a 2]
left %cord[$a 1], %cord[$a 2]
if 310, 129 3103287
set $rand random(2) //Random Click double/sbor
if $rand = 1
wait 100 + random(100)
move 295, 123
left 295, 123
wait 300
set $checkBusy2 findcolor(479, 343 807, 370 1 1 (791295) %cordCheck2 2 2)
if $checkBusy2 > 0
left 643, 325
set #i #i + 1
left %groundX[#i], %groundY[#i]
end_if
break
else
wait 100 + random(100)
double_left %cord[$a 1], %cord[$a 2]
wait 300
set $checkBusy2 findcolor(479, 343 807, 370 1 1 (791295) %cordCheck2 2 2)
if $checkBusy2 > 0
left 643, 325
set #i #i + 1
left %groundX[#i], %groundY[#i]
end_if
break
end_if
end_if
end_if
end_for
else
left %groundX[#i], %groundY[#i]
end_if
end_for
end_if
end_if
if $farmLimitOption = 1
if $currentFarm > $limitFarm
wait 1h
$currentFarm = 0
end_if
end_if
end_for
$navigatorOption - при "1" ходит по локациям, нужно использовать компас
$farmOption - при "1" включен фарм (сбор ресурсов/нападение на мобов)
$elem - элемент(ресурс/моб), который будет искать скрипт, указывается цвет пикселя. Лучше всего искать те пиксели, которых больше всего, например с помощью MS Paint и масштабирования
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
set $navigatorOption 0 //Navigator, dvigaetsa po komposu
set $farmOption 1 //farm v ohote
set $battleCheckOption 1
set $hpCheckOption 0
set $optimalhp 80
set $timerOption 1
set $elem 45310
set $farmLimitOption 1
set $limitFarm 300
set $currentFarm 0
set %groundX[1] 575
set %groundY[1] 138
set %groundX[2] 589
set %groundY[2] 124
set %groundX[3] 586
set %groundY[3] 120
set %groundX[4] 586
set %groundY[4] 111
set %groundX[5] 586
set %groundY[5] 101
set %groundX[6] 676
set %groundY[6] 103
set %groundX[7] 674
set %groundY[7] 111
set %groundX[8] 665
set %groundY[8] 118
set %groundX[9] 665
set %groundY[9] 126
set %groundX[10] 665
set %groundY[10] 138
set %groundX[11] 575
set %groundY[11] 138
for #k 0 100 1
set $a 0
set #i 0
set #j 0
set $Check 0
set $checkBusy 0
set $hp 0
if $battleCheckOption = 1
if 425, 312 6974058 //bitva
for #i 0 100 1
if 425, 312 6974058
move 479, 313
left 479, 313
end_if
wait 4000 + random(500)
if 445, 259 52872
move 560, 32
left 560, 32
break
end_if
end_for
end_if
if 445, 259 52872 //okno pobedi
move 560, 32
left 560, 32
end_if
end_if
if $hpCheckOption = 1
if 240, 45 1051327
set $hp 100
end_if
if 225, 45 852666
set $hp 90
end_if
if 210, 45 393404
set $hp 80
end_if
if 196, 45 655549
set $hp 70
end_if
end_if
if $navigatorOption = 1 //Navigator
for #j 0 30 1
if_not 1047, 378 159 //proverka na menu perehoda
set $navigator findcolor (1019, 107 1219, 412 1 1 (16722954 ) %navigatorCord 2 2)
if $navigator > 0
move %navigatorCord[1 1], %navigatorCord[1 2]
left %navigatorCord[1 1], %navigatorCord[1 2]
break
end_if
else
wait 5s
end_if
end_for
end_if
if $farmOption = 1 //Farm
if 1026, 100 1575390 //proverka na menu ohoti
for #i 1 10 1
set $Check findcolor (464, 279 819, 374 1 1 (6128574) %checkCord 2 2)
if $Check > 0 //proverka na oshibki
move %checkCord[1 1], %checkCord[1 2]
left %checkCord[1 1], %checkCord[1 2]
end_if
if hpCheckOption = 1
if_not $hp > $optimalhp
break
end_if
end_if
if 425, 312 6974058 //bitva
for #i 0 100 1
if 425, 312 6974058
move 479, 313
left 479, 313
end_if
wait 4000 + random(500)
if 445, 259 52872
move 560, 32
left 560, 32
break
end_if
end_for
end_if
//timer
if 791, 304 165
for #i 1 10 1
wait 10000 + random(1000)
if_not 791, 304 165
break
end_if
end_for
end_if
set $a findcolor (78, 170 1222, 461 1 1 ($elem) %cord 2 )
if $a > 0
for #j 1 $a 1
set #startX (%cord[$a 1] - 40)
set #startY (%cord[$a 2] - 40)
set #endX (%cord[$a 2] + 40)
set #endY (%cord[$a 2] + 40)
set $checkBusy findcolor(#startX #startY #endX #endY 1 1 (33180) %cordCheck 2 1)
if_not $checkBusy > 0
move %cord[$a 1], %cord[$a 2]
left %cord[$a 1], %cord[$a 2]
if 310, 129 3103287
set $rand random(2) //Random Click double/sbor
if $rand = 1
wait 100 + random(100)
move 295, 123
left 295, 123
wait 300
set $checkBusy2 findcolor(479, 343 807, 370 1 1 (791295) %cordCheck2 2 2)
if $checkBusy2 > 0
left 643, 325
set #i #i + 1
left %groundX[#i], %groundY[#i]
end_if
break
else
wait 100 + random(100)
double_left %cord[$a 1], %cord[$a 2]
wait 300
set $checkBusy2 findcolor(479, 343 807, 370 1 1 (791295) %cordCheck2 2 2)
if $checkBusy2 > 0
left 643, 325
set #i #i + 1
left %groundX[#i], %groundY[#i]
end_if
break
end_if
end_if
end_if
end_for
else
left %groundX[#i], %groundY[#i]
end_if
end_for
end_if
end_if
if $farmLimitOption = 1
if $currentFarm > $limitFarm
wait 1h
$currentFarm = 0
end_if
end_if
end_for