Автокликер Clickermann :: Форум
Основной раздел => Использование => Topic started by: sanek83 on March 02, 2016, 01:14:22 PM
-
WHILE($var1 < 0)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "pustaiaset0000.bmp", -1, 90) //
LCLICK($_return1+18, $_return2+82)
WAIT(2)
WHILE($var3 < 0)
GETSCREEN(661,355, 1350,830)
COLORMODE(7)
IF_PICTURE_IN (661,355, 1350,830, "najvkapronohnaia0000.bmp", -1, 90) //не находит=(
LCLICK($_return1+40, $_return2+40)
WAIT(1)
$var3 = 1
ELSE
IF_PICTURE_IN (661,355, 1350,830, "najivkaspokoinaia0000.bmp", -1, 90) //не находит
LCLICK($_return1+40, $_return2+40)
WAIT(1)
$var3 = 1
END_IF
END_CYC
ELSE
$var1 = 1
END_IF
END_CYC
HALT
Хотя по отдельности ищет и при 100%,а тут не как не хочет=(
-
Спасибо)
-
Ребят а может кликерман при условии что после снимка на экране 2 или 3 картинки,нажимать их по очереди без повторного поиска? (чтоб без WHILE)
WHILE($var = 0)
WAIT(5)
GETSCREEN
COLORMODE(6)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "set0000.bmp", -1,85) //
LCLICK($_return1+18, $_return2+82)
WAIT(5)
ELSE
$var = 1
END_IF
END_CYC
HALT
-
Не подскажите как осуществить?
-
Находит и прокликивает все картинки на экране
GETSCREEN
COLORMODE(6)
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, "set0000.bmp", -1,85)
FOR($ARR_NUM=0,$ARR_NUM<ARRSIZE($ARR_SCAN),2)
LCLICK($ARR_SCAN[$ARR_NUM], $ARR_SCAN[$ARR_NUM+1]) // Клик
WAITMS(100)
END_CYC
UNDEFINE($ARR_SCAN)
-
Спасибо,Андрей а как добавить к строчке LCLICK($ARR_SCAN[$ARR_NUM], $ARR_SCAN[$ARR_NUM+1])
LCLICK($_return1+18, $_return2+82)
Нужно чтобы кликал не на картинку а под нее (+18,+82)
-
Все сам разобрался)) Спасибо за помощь :)
-
LCLICK($ARR_SCAN[$ARR_NUM]+18, $ARR_SCAN[$ARR_NUM+1]+82) // Клик
-
Как можно упростить скрипт чтобы не писать одно и тоже?
вот скриптGETSCREEN
COLORMODE(7)
IF_PICTURE_IN (684,593, 1265,727, "bonus0000.bmp", -1, 95) // клик ,бонус
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "krestik0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(6)
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, "set0000.bmp", -1,85)
FOR($ARR_NUM=0,$ARR_NUM<ARRSIZE($ARR_SCAN),2)
LCLICK($ARR_SCAN[$ARR_NUM]+18, $ARR_SCAN[$ARR_NUM+1]+82) // Клик на все картинки
WAIT(1)
END_CYC
UNDEFINE($ARR_SCAN)
WAIT(1)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "krestik0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN(661,355, 1350,830)
COLORMODE(7)
IF_PICTURE_IN (661,355, 1350,830, "zakrit0000.bmp", -1, 90) // на закрыть
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
WHILE($var1 = 0)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "pustaiaset0000.bmp", -1, 90) // клик на пустую сеть
LCLICK($_return1+18, $_return2+82)
WAIT(1)
GETSCREEN(661,355, 1350,830)
COLORMODE(7)
IF_PICTURE_IN (661,355, 1350,830, "najvkapronohnaia0000.bmp", -1, 90) //наживка проточная
LCLICK($_return1+40, $_return2+40)
WAIT(1)
$var2 = 1
ELSE
IF_PICTURE_IN (661,355, 1350,830, "najivkaspokoinaia0000.bmp", -1, 90) //наживка спокойная
LCLICK($_return1+40, $_return2+40)
WAITMS(1)
ELSE
IF_PICTURE_IN (661,355, 1350,830, "najivkasolenaia0000.bmp", -1, 90) //наживка спокойная
LCLICK($_return1+40, $_return2+40)
WAITMS(1)
END_IF
END_IF
END_IF
ELSE
$var1 = 1
END_IF
END_CYC
потом идет действие GETSCREEN(1537,153, 1756,587)
COLORMODE(7)
IF_PICTURE_IN (1537,153, 1756,587, "allaia0000.bmp", -1, 95)
LCLICK($_return1, $_return2)
WAITMS(100)
END_IF
повтор с начало потом другое действие
GETSCREEN(1537,153, 1756,587)
COLORMODE(7)
IF_PICTURE_IN (1537,153, 1756,587, "valor0000.bmp", -1, 95)
LCLICK($_return1, $_return2)
WAITMS(100)
END_IFопять в начало и.т.д Действия все разные
-
Используй подпрограмму с передачей параметра
SUB(подпрограмма, $pict)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (684,593, 1265,727, "bonus0000.bmp", -1, 95) // клик ,бонус
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "krestik0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(6)
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, "set0000.bmp", -1,85)
FOR($ARR_NUM=0,$ARR_NUM<ARRSIZE($ARR_SCAN),2)
LCLICK($ARR_SCAN[$ARR_NUM]+18, $ARR_SCAN[$ARR_NUM+1]+82) // Клик на все картинки
WAIT(1)
END_CYC
UNDEFINE($ARR_SCAN)
WAIT(1)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "krestik0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (661,355, 1350,830, "zakrit0000.bmp", -1, 90) // на закрыть
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
WHILE($var1 = 0)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "pustaiaset0000.bmp", -1, 90) // клик на пустую сеть
LCLICK($_return1+18, $_return2+82)
WAIT(1)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (661,355, 1350,830, "najvkapronohnaia0000.bmp", -1, 90) //наживка проточная
LCLICK($_return1+40, $_return2+40)
WAIT(1)
$var2 = 1
ELSE
IF_PICTURE_IN (661,355, 1350,830, "najivkaspokoinaia0000.bmp", -1, 90) //наживка спокойная
LCLICK($_return1+40, $_return2+40)
WAITMS(1)
ELSE
IF_PICTURE_IN (661,355, 1350,830, "najivkasolenaia0000.bmp", -1, 90) //наживка спокойная
LCLICK($_return1+40, $_return2+40)
WAITMS(1)
END_IF
END_IF
END_IF
ELSE
$var1 = 1
END_IF
END_CYC
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (1537,153, 1756,587, $pict, -1, 95)
LCLICK($_return1, $_return2)
WAITMS(100)
END_IF
END_SUB
подпрограмма("allaia0000.bmp")
подпрограмма("valor0000.bmp")
Цикл WHILE($var1 = 0) отработает только 1 раз при первом проходе, после он уже не будет срабатывать. Может нужно обнулить $var1 перед циклом
$var1 = 0
WHILE($var1 = 0)
$var2 = 1 к чему?
-
Спасибо,за подсказку в справку перечитал не один раз,не могу разобраться с sub,Андрей если не сложно подпишите
SUB(подпрограмма, $pict)-что делает эта команда?
подпрограмма("allaia0000.bmp")-
подпрограмма("valor0000.bmp")-
-
SUB(подпрограмма, $pict)- это подпрограмма, код внутри выполняется только после вызова
подпрограмма("allaia0000.bmp")- это вызов. как только подпрограмма отработает выполнение перейдет на следующую строку после вызова
подпрограмма("valor0000.bmp")-
-
SUB(подпрограмма, $pict)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (684,593, 1265,727, "bonus0000.bmp", -1, 95) // клик ,бонус
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "krestik0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(6)
SCANPICTURE($ARR_SCAN, 0,0, $_xmax,$_ymax, "set0000.bmp", -1,85)
FOR($ARR_NUM=0,$ARR_NUM<ARRSIZE($ARR_SCAN),2)
LCLICK($ARR_SCAN[$ARR_NUM]+18, $ARR_SCAN[$ARR_NUM+1]+82) // Клик на все картинки
WAIT(1)
END_CYC
UNDEFINE($ARR_SCAN)
WAIT(1)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "krestik0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (661,355, 1350,830, "zakrit0000.bmp", -1, 90) // на закрыть
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
$var1 = 0
WHILE($var1 = 0)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (0,0, $_xmax,$_ymax, "pustaiaset0000.bmp", -1, 90) // клик на пустую сеть
LCLICK($_return1+18, $_return2+82)
WAIT(5)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (661,355, 1350,830, "najvkapronohnaia0000.bmp", -1, 90) //наживка проточная
LCLICK($_return1+40, $_return2+40)
WAIT(5)
ELSE
IF_PICTURE_IN (661,355, 1350,830, "najivkaspokoinaia0000.bmp", -1, 90) //наживка спокойная
LCLICK($_return1+40, $_return2+40)
WAITMS(5)
ELSE
IF_PICTURE_IN (661,355, 1350,830, "najivkasolenaia0000.bmp", -1, 90) //наживка спокойная
LCLICK($_return1+40, $_return2+40)
WAITMS(5)
END_IF
END_IF
END_IF
ELSE
$var1 = 1
END_IF
END_CYC
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (1537,153, 1756,587, $pict, -1, 95)
LCLICK($_return1, $_return2)
WAITMS(100)
END_IF
END_SUB
SUB(переход, $pict)
GETSCREEN(1537,153, 1756,587)
COLORMODE(7)
IF_PICTURE_IN (1537,153, 1756,587, $pict, -1, 95)
LCLICK($_return1, $_return2)
WAITMS(100)
END_IF
END_SUB
переход("allaia0000.bmp") // Не выполняется sub подпрограмма? выполняется sub переход
WAIT(4)
подпрограмма("sadar0000.bmp") // выполняется sub подпрограмма
переход("perek0000.bmp")
WAIT(4)
подпрограмма("valor0000.bmp")
переход("perek0000.bmp")
WAIT(4)
подпрограмма("melnia0000.bmp")
переход("perek0000.bmp")
WAIT(4)
переход("usadba0000.bmp")
WAIT(4)
подпрограмма("prud0000.bmp")
подпрограмма("pivo0000.bmp")
LCLICK(1704,128) //выход
HALT Вот так правильно будет?
-
SUB(переход, $pict)
GETSCREEN(1537,153, 1756,587)
COLORMODE(7)
IF_PICTURE_IN (1537,153, 1756,587, $pict, -1, 95)
LCLICK($_return1, $_return2)
WAITMS(100)
END_IF
END_SUB
переход("allaia0000.bmp")
WAIT(5)
переход("perek0000.bmp")
WAIT(5)
переход("valor0000.bmp")
WAIT(5)
переход("perek0000.bmp")
WAIT(5)
переход("melnia0000.bmp")
WAIT(5)
переход("perek0000.bmp")
WAIT(5)
переход("usadba0000.bmp")
WAIT(5)
переход("prud0000.bmp")
WAIT(5)
переход("pivo0000.bmp")
WAIT(5)
Вот так не работает =( почему?
переходит только 1 раз переход("allaia0000.bmp")
-
Используй запись в лог чтобы увидеть что сработало а что нет. Плюс можно добавить сброс снимка в файл если не найдено, чтоб ты потом сам увидел что там не увидел кликер.
SUB(переход, $pict)
LOGWRITE ("переход: ", $pict)
GETSCREEN(1537,153, 1756,587)
COLORMODE(7,1537,153, 1756,587)
IF_PICTURE_IN (1537,153, 1756,587, $pict, -1, 95)
LCLICK($_return1, $_return2)
WAITMS(100)
LOGWRITE ("Найдено")
ELSE
SCREENSHOTEX(1537,153, 1756,587, STRREPLACE($pict, "0000.bmp", ""), 0) // для теста делаем снимок если не найдено
LOGWRITE ("Не найдено")
END_IF
END_SUB
переход("allaia0000.bmp")
WAIT(5)
переход("perek0000.bmp")
WAIT(5)
переход("valor0000.bmp")
WAIT(5)
переход("perek0000.bmp")
WAIT(5)
переход("melnia0000.bmp")
WAIT(5)
переход("perek0000.bmp")
WAIT(5)
переход("usadba0000.bmp")
WAIT(5)
переход("prud0000.bmp")
WAIT(5)
переход("pivo0000.bmp")
WAIT(5)
-
Андрей спасибо вам огромное!!!!!Вот такой получился скрипт,все работает.Спасибо :)
SUB(подпрограмма, $pict)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (684,593, 1265,727, "bonus0000.bmp", -1, 95) // клик ,бонус
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (188,159, 1758,484, "krest0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(6)
SCANPICTURE($ARR_SCAN, 156,104, 1813,919, "set0000.bmp", -1,90)
FOR($ARR_NUM=0,$ARR_NUM<ARRSIZE($ARR_SCAN),2)
LCLICK($ARR_SCAN[$ARR_NUM]+18, $ARR_SCAN[$ARR_NUM+1]+82) // Клик на все картинки
WAIT(1)
END_CYC
UNDEFINE($ARR_SCAN)
MOVE(100,200)
WAIT(1)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (641,381, 1242,796, "zakrit0000.bmp", -1, 90) // на закрыт
$check = 1
LCLICK($_return1, $_return2)
WAITMS(100)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (188,159, 1758,484, "krest0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
$var1 = 0
WHILE($var1 = 0)
WAIT(4)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (164,184, 1755,941, "pustaiaset0000.bmp", -1, 90) // клик на пустую сеть
LCLICK($_return1+18, $_return2+82)
WAIT(1)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (661,355, 1350,830, "najvkapronohnaia0000.bmp", -1, 95) //наживка проточная
LCLICK($_return1+40, $_return2+40)
WAIT(1)
ELSE
IF_PICTURE_IN (661,355, 1350,830, "najivkaspokoinaia0000.bmp", -1, 95) //наживка спокойная
LCLICK($_return1+40, $_return2+40)
WAITMS(1)
ELSE
IF_PICTURE_IN (661,355, 1350,830, "najivkasolenaia0000.bmp", -1, 95)//наживка спокойная
LCLICK($_return1+40, $_return2+40)
WAITMS(1)
END_IF
END_IF
END_IF
ELSE
$var1 = 1
END_IF
END_CYC
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (1529,95, 1795,505, $pict, -1, 95)
LCLICK($_return1+13, $_return2+3)
WAITMS(100)
END_IF
END_SUB
SUB(переход, $pict)
MOVE(1300,380)
$check = 0
WHILE($check = 0)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (702,92, 1752,695, $pict, -1, 95)
$check = 1
LCLICK($_return1+10, $_return2+10)
MOVE(1300,380)
WAIT(1)
ELSE
WAITMS(50)
END_IF
END_CYC
END_SUB
SUB(выбор, $pict)
$check = 0
WHILE($check = 0)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (899,215, 1410,570, $pict, -1, 95)
$check = 1
LCLICK($_return1+30, $_return2+30)
WAITMS(100)
ELSE
WAITMS(50)
END_IF
END_CYC
END_SUB
////////////////////////////////////////////////////////////////////трава
SUB(сбор, $pict)
WAIT(1)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (684,593, 1265,727, "bonus0000.bmp", -1, 95) // клик ,бонус
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (188,159, 1758,484, "krest0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
SCANPICTURE($ARR_SCAN, 264,186, 1755,856, "cvet0000.bmp", -1,85)
FOR($ARR_NUM=0,$ARR_NUM<ARRSIZE($ARR_SCAN),2)
LCLICK($ARR_SCAN[$ARR_NUM]+18, $ARR_SCAN[$ARR_NUM+1]+82) // Клик на все картинки
WAITMS(100)
END_CYC
UNDEFINE($ARR_SCAN)
WAIT(5)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (661,355, 1350,830, "zakrit0000.bmp", -1, 90) // на закрыт
$check = 1
LCLICK($_return1, $_return2)
WAITMS(100)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (188,159, 1758,484, "krest0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
$var1 = 0
WHILE($var1 = 0)
WAIT(1)
GETSCREEN
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (202,197, 1749,960, "lopata0000.bmp", -1, 95) // клик земля
LCLICK($_return1+27, $_return2+41)
WAIT(1)
MOVE(885,466)
WAITMS(100)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (680,528, 1271,701, "perec0000.bmp", -1, 95) // наживка перец
LCLICK($_return1, $_return2)
WAIT(1)
ELSE
IF_PICTURE_IN (680,528, 1271,701, "trosnik0000.bmp", -1, 95) //тросник
LCLICK($_return1+40, $_return2+40)
WAITMS(1)
ELSE
IF_PICTURE_IN (680,528, 1271,701, "gargulnik0000.bmp", -1, 95)//гаргульник
LCLICK($_return1+40, $_return2+40)
WAITMS(1)
END_IF
END_IF
END_IF
ELSE
$var1 = 1
END_IF
END_CYC
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (1566,104, 1813,452, $pict, -1, 95)
LCLICK($_return1+13, $_return2+3)
WAITMS(100)
END_IF
END_SUB
//////////////////////////////////////////////////////////////полив
SUB(полив, $pict)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (684,593, 1265,727, "bonus0000.bmp", -1, 95) // клик ,бонус
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (188,159, 1758,484, "krest0000.bmp", -1, 90) // клик на крестик
LCLICK($_return1, $_return2)
WAIT(1)
END_IF
GETSCREEN
COLORMODE(7)
SCANPICTURE($ARR_SCAN, 264,186, 1755,856, "poliv0000.bmp", -1,90)
FOR($ARR_NUM=0,$ARR_NUM<ARRSIZE($ARR_SCAN),2)
LCLICK($ARR_SCAN[$ARR_NUM]+27, $ARR_SCAN[$ARR_NUM+1]+41) // Клик на все картинки
WAIT(1)
END_CYC
UNDEFINE($ARR_SCAN)
WAIT(4)
GETSCREEN
COLORMODE(7)
IF_PICTURE_IN (1566,104, 1813,452, $pict, -1, 95)
LCLICK($_return1+13, $_return2+3)
WAITMS(100)
END_IF
END_SUB
skip:
/////////////////////////////////////////////////////////////////////////рыбаки
выбор("pibak10000.bmp")
WAIT(1)
выбор("vOiti0000.bmp")
WAIT(20)
подпрограмма("allaia0000.bmp")
переход("sadar0000.bmp")
подпрограмма("perek0000.bmp")
переход("valor0000.bmp")
подпрограмма("perek0000.bmp")
переход("melnia0000.bmp")
подпрограмма("perek0000.bmp")
переход("usadba0000.bmp")
переход("prud0000.bmp")
подпрограмма("pivo0000.bmp")
подпрограмма("vixod0000.bmp")
переход("da0000.bmp")
//////////////////////////////////////////////////////////////////////рыбак2
выбор("pibak20000.bmp")
выбор("voiti0000.bmp")
WAIT(20)
подпрограмма("allaia0000.bmp")
переход("sadar0000.bmp")
подпрограмма("perek0000.bmp")
переход("valor0000.bmp")
подпрограмма("perek0000.bmp")
переход("melnia0000.bmp")
подпрограмма("perek0000.bmp")
переход("usadba0000.bmp")
переход("prud0000.bmp")
подпрограмма("pivo0000.bmp")
подпрограмма("vixod0000.bmp")
переход("da0000.bmp")
//////////////////////////////////////////////////////////////////////травники
выбор("trava10000.bmp")
выбор("voiti0000.bmp")
WAIT(20)
сбор("perek0000.bmp")
переход("usadba0000.bmp")
сбор("prud0000.bmp")
сбор("pivo0000.bmp")
переход("plato0000.bmp")
сбор("pivo0000.bmp")
переход("trakt0000.bmp")
сбор("waxta10000.bmp")
переход("ploskogore0000.bmp")
сбор("waxta0000.bmp")
переход("lug0000.bmp")
сбор("zapad0000.bmp")
переход("vostok0000.bmp")
сбор("landor0000.bmp")
переход("melnia0000.bmp")
сбор("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
///////////////////////////////////////////////////////////////////////трава 2
выбор("trava20000.bmp")
выбор("voiti0000.bmp")
WAIT(20)
сбор("perek0000.bmp")
переход("usadba0000.bmp")
сбор("prud0000.bmp")
сбор("pivo0000.bmp")
переход("plato0000.bmp")
сбор("pivo0000.bmp")
переход("trakt0000.bmp")
сбор("waxta10000.bmp")
переход("ploskogore0000.bmp")
сбор("waxta0000.bmp")
переход("lug0000.bmp")
сбор("zapad0000.bmp")
переход("vostok0000.bmp")
сбор("landor0000.bmp")
переход("melnia0000.bmp")
сбор("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
////////////////////////////////////////////////////////////////////полив 1 час
$check=0
While($check=0)
Inc($max,1)
For($a=0,$a<$max)
Wait(3600)// время через
End_cyc
Switch($a)
Case(1)
выбор("trava10000.bmp")
выбор("voiti0000.bmp")
WAIT(20)
полив("perek0000.bmp")
переход("usadba0000.bmp")
полив("prud0000.bmp")
полив("pivo0000.bmp")
переход("plato0000.bmp")
полив("pivo0000.bmp")
переход("trakt0000.bmp")
полив("waxta10000.bmp")
переход("ploskogore0000.bmp")
полив("waxta0000.bmp")
переход("lug0000.bmp")
полив("zapad0000.bmp")
переход("vostok0000.bmp")
полив("landor0000.bmp")
переход("melnia0000.bmp")
полив("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
выбор("trava20000.bmp")
выбор("voiti0000.bmp")
WAIT(20)
полив("perek0000.bmp")
переход("usadba0000.bmp")
полив("prud0000.bmp")
полив("pivo0000.bmp")
переход("plato0000.bmp")
полив("pivo0000.bmp")
переход("trakt0000.bmp")
полив("waxta10000.bmp")
переход("ploskogore0000.bmp")
полив("waxta0000.bmp")
переход("lug0000.bmp")
полив("zapad0000.bmp")
переход("vostok0000.bmp")
полив("landor0000.bmp")
переход("melnia0000.bmp")
полив("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
///////////////////////////////////////////////////////рыба обратка 2 часа
Case(2)
выбор("pibak10000.bmp")
выбор("vOiti0000.bmp")
WAIT(20)
подпрограмма("prud0000.bmp")
переход("usadba0000.bmp")
переход("perek0000.bmp")
переход("melnia0000.bmp")
подпрограмма("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
выбор("piba20000.bmp")
выбор("vOiti0000.bmp")
WAIT(20)
подпрограмма("prud0000.bmp")
переход("usadba0000.bmp")
переход("perek0000.bmp")
переход("melnia0000.bmp")
подпрограмма("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
////////////////////////////////////////////////////////травники сбор 2часа
выбор("trava10000.bmp")
выбор("voiti0000.bmp")
WAIT(20)
сбор("perek0000.bmp")
переход("usadba0000.bmp")
сбор("prud0000.bmp")
сбор("pivo0000.bmp")
переход("plato0000.bmp")
сбор("pivo0000.bmp")
переход("trakt0000.bmp")
сбор("waxta10000.bmp")
переход("ploskogore0000.bmp")
сбор("waxta0000.bmp")
переход("lug0000.bmp")
сбор("zapad0000.bmp")
переход("vostok0000.bmp")
сбор("landor0000.bmp")
переход("melnia0000.bmp")
сбор("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
выбор("trava20000.bmp")
выбор("voiti0000.bmp")
WAIT(20)
сбор("perek0000.bmp")
переход("usadba0000.bmp")
сбор("prud0000.bmp")
сбор("pivo0000.bmp")
переход("plato0000.bmp")
сбор("pivo0000.bmp")
переход("trakt0000.bmp")
сбор("waxta10000.bmp")
переход("ploskogore0000.bmp")
сбор("waxta0000.bmp")
переход("lug0000.bmp")
сбор("zapad0000.bmp")
переход("vostok0000.bmp")
сбор("landor0000.bmp")
переход("melnia0000.bmp")
сбор("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
Case(3)//////////////////////////////////////////////////////рыбак 3часа
выбор("pibak10000.bmp")
выбор("vOiti0000.bmp")
WAIT(20)
переход("perek0000.bmp")
переход("valor0000.bmp")
подпрограмма("perek0000.bmp")
переход("usadba0000.bmp")
переход("prud0000.bmp")
подпрограмма("usadba0000.bmp")
переход("perek0000.bmp")
переход("sadar0000.bmp")
переход("allaia0000.bmp")
переход("portsadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
выбор("pibak20000.bmp")
выбор("vOiti0000.bmp")
WAIT(20)
переход("perek0000.bmp")
переход("valor0000.bmp")
подпрограмма("perek0000.bmp")
переход("usadba0000.bmp")
переход("prud0000.bmp")
подпрограмма("usadba0000.bmp")
переход("perek0000.bmp")
переход("sadar0000.bmp")
переход("allaia0000.bmp")
переход("portsadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
///////////////////////////////////////////////////////////Трава полив
выбор("trava10000.bmp")
выбор("voiti0000.bmp")
WAIT(20)
полив("perek0000.bmp")
переход("usadba0000.bmp")
полив("prud0000.bmp")
полив("pivo0000.bmp")
переход("plato0000.bmp")
полив("pivo0000.bmp")
переход("trakt0000.bmp")
полив("waxta10000.bmp")
переход("ploskogore0000.bmp")
полив("waxta0000.bmp")
переход("lug0000.bmp")
полив("zapad0000.bmp")
переход("vostok0000.bmp")
полив("landor0000.bmp")
переход("melnia0000.bmp")
полив("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
выбор("trava20000.bmp")
выбор("voiti0000.bmp")
WAIT(20)
полив("perek0000.bmp")
переход("usadba0000.bmp")
полив("prud0000.bmp")
полив("pivo0000.bmp")
переход("plato0000.bmp")
полив("pivo0000.bmp")
переход("trakt0000.bmp")
полив("waxta10000.bmp")
переход("ploskogore0000.bmp")
полив("waxta0000.bmp")
переход("lug0000.bmp")
полив("zapad0000.bmp")
переход("vostok0000.bmp")
полив("landor0000.bmp")
переход("melnia0000.bmp")
полив("perek0000.bmp")
переход("sadar0000.bmp")
переход("vixod0000.bmp")
переход("da0000.bmp")
$check=1
$max=0
End_Switch
end_cyc
GOTO(skip)