1
News:
Добавлена тема оформления "Clickermann" для кода с подсветкой синтаксиса. Выбирается из выпадающего списка "Код" (рядом с "цвет", "размер" и "шрифт") в режиме редактирования поста. Либо просто BB-тегом "code=clickermann"
Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Pages: [1]
2
Использование / Re: Инверсия
« on: March 08, 2018, 01:09:17 PM »куча непонятных действий, что бы получить поочередное переключение между двумя точками?
Да, это не весь код, т.к. я его еще не доделал... По задумке переключение будет срабатывать только тогда, когда сработает подпрограмма.
В игре это будет выглядеть так: Бежим, Бежим... останавливаемся, совершаем действие, которое в подпрограмме "ДЕЙСТВИЕ" и бежим в обратную сторону.
Вот дополнил код для ясности.
Code: (clickermann) [Select]
SUB(ДЕЙСТВИЕ)
IF($time < $_time_t)
PRINT("Действие")
$time = $_time_t + RND(5,10)
END_IF
END_SUB
DEFINE($value,1)
IF(($var = 0)|($var = - 4))
$_x = 600
$_y = 300
IF($var = - 4)
$var = 0
END_IF
END_IF
IF(($var = 1)|($var = - 3))
$_x = 620
$_y = 310
END_IF
IF(($var = 2)|($var = - 2))
$_x = 600
$_y = 320
END_IF
IF(($var = 3)|($var = - 1))
$_x = 580
$_y = 310
IF($var = 3)
$var = - 1
END_IF
END_IF
INC($var, $value)
LCLICK($_x, $_y)
WAITMS(300)
IF($time < $_time_t)
INC($count,1)
SWITCH($count)
CASE(1)
$value = - 1
CASE(2)
$value = 1
$count = 0
END_SWITCH
ДЕЙСТВИЕ()
END_IF
3
Использование / Re: Инверсия
« on: March 08, 2018, 11:04:10 AM »
Есть мысли, как можно SWITCH($count), который чередует значения, заменить на что-то вроде $var = $var ^ 1 ?
4
Использование / Re: Инверсия
« on: March 08, 2018, 10:11:19 AM »
В то же самое, только по другому. Другой вариант этого же скрипта..
5
Использование / Инверсия [РЕШЕНО]
« on: March 08, 2018, 09:26:22 AM »
Есть проблемный кусок кода, который я хотел переделать, но из этого не вышло ничего хорошего. Прошу, пожалуйста, кто-нибудь, помогите мне)
Code: (clickermann) [Select]
DEFINE($value,1)
IF(($var = 0)|($var = - 4))
$_x = 600
$_y = 300
IF($var = - 4)
$var = 0
END_IF
END_IF
IF(($var = 1)|($var = - 3))
$_x = 620
$_y = 310
END_IF
IF(($var = 2)|($var = - 2))
$_x = 600
$_y = 320
END_IF
IF(($var = 3)|($var = - 1))
$_x = 580
$_y = 310
IF($var = 3)
$var = - 1
END_IF
END_IF
INC($var, $value)
LCLICK($_x, $_y)
WAITMS(300)
IF($time < $_time_t)
INC($count,1)
SWITCH($count)
CASE(1)
$value = - 1
CASE(2)
$value = 1
$count = 0
END_SWITCH
WAIT(1)
END_IF
6
Использование / Re: Замена свитча
« on: December 24, 2016, 08:42:10 AM »Это то, что мне было нужно. Спасибо.
Я не смог в нём разобраться и всё исправить, закоменти код пожалуйста).
7
Использование / Re: Замена свитча
« on: December 21, 2016, 10:32:48 PM »
Это то, что мне было нужно. Спасибо.
9
Использование / Re: Замена свитча
« on: December 21, 2016, 12:19:55 PM »
Всё должно быть ровно, это скорее я напутал. Расстояние между чёрными точками 5 пикселей, на повороте 10. У каждой чёрной точки есть своя зона поиска 15 на 15 в которой анализируется миникарта на красный пиксель, что бы дистанцию между мобами контролировать.
10
Использование / Re: Замена свитча
« on: December 21, 2016, 11:07:58 AM »
https://www.youtube.com/watch?v=-ll8UIjg-No
Не знаю как объяснить, скрипт прокликивает в игре овальную траекторию по миникарте. На поворотах мобы исчезают из поля зрения, на видео этого нету, но видно как они отдаляются
Не знаю как объяснить, скрипт прокликивает в игре овальную траекторию по миникарте. На поворотах мобы исчезают из поля зрения, на видео этого нету, но видно как они отдаляются
11
Использование / Re: Замена свитча
« on: December 21, 2016, 10:24:48 AM »
Информация полезная в заметки, но я имел ввиду другое. Я хотел избежать ручного вбивания координат, что то вроде наращивания переменных может быть, и так же, что бы на некоторых координатах как в кейсах условие не срабатывало.)
12
Использование / Замена свича
« on: December 21, 2016, 07:27:39 AM »
Дратути всем. Я столкнулся с большим неудобством в виде пары сотен кейсов.)) Подскажите пожалуйста, как можно заменить свитч?
Code: [Select]
INC($var,1)
SWITCH($var)
CASE(1)
$rx = 1410
$ry = 690
$rx1 = 1405
$ry1 = 685
$rx2 = 1415
$ry2 = 695
CASE(2)
$rx = 1415
$ry = 690
$rx1 = 1410
$ry1 = 685
$rx2 = 1430
$ry2 = 695
CASE(3)
$rx = 1420
$ry = 690
$rx1 = 1415
$ry1 = 685
$rx2 = 1425
$ry2 = 695
CASE(4)
$rx = 1425
$ry = 690
$rx1 = 1420
$ry1 = 685
$rx2 = 1430
$ry2 = 695
CASE(5)
$rx = 1430
$ry = 690
$rx1 = 1420
$ry1 = 685
$rx2 = 1430
$ry2 = 695
CASE(6)
$rx = 1435
$ry = 690
$rx1 = 1430
$ry1 = 680
$rx2 = 1440
$ry2 = 695
CASE(7)
$rx = 1440
$ry = 690
$rx1 = 1435
$ry1 = 680
$rx2 = 1445
$ry2 = 695
CASE(8)
$rx = 1445
$ry = 690
$rx1 = 1440
$ry1 = 680
$rx2 = 1450
$ry2 = 695
CASE(9)
$rx = 1450
$ry = 690
$rx1 = 1445
$ry1 = 680
$rx2 = 1460
$ry2 = 695
CASE(10)
$rx = 1455
$ry = 690
$rx1 = 1450
$ry1 = 680
$rx2 = 1460
$ry2 = 695
//----------////////////
CASE(11)
$rx = 1465
$ry = 700
$rx1 = 1460
$ry1 = 690
$rx2 = 1470
$ry2 = 705
CASE(12)
$rx = 1465
$ry = 710
$rx1 = 1460
$ry1 = 700
$rx2 = 1470
$ry2 = 715
CASE(13)
$rx = 1455
$ry = 715
$rx1 = 1445
$ry1 = 705
$rx2 = 1460
$ry2 = 720
//----------////////////
CASE(14)
$rx = 1450
$ry = 715
$rx1 = 1445
$ry1 = 705
$rx2 = 1455
$ry2 = 720
CASE(15)
$rx = 1445
$ry = 715
$rx1 = 1440
$ry1 = 705
$rx2 = 1450
$ry2 = 720
CASE(16)
$rx = 1440
$ry = 715
$rx1 = 1435
$ry1 = 705
$rx2 = 1445
$ry2 = 720
CASE(17)
$rx = 1435
$ry = 715
$rx1 = 1430
$ry1 = 705
$rx2 = 1440
$ry2 = 720
CASE(18)
$rx = 1430
$ry = 715
$rx1 = 1425
$ry1 = 705
$rx2 = 1435
$ry2 = 720
CASE(19)
$rx = 1425
$ry = 715
$rx1 = 1420
$ry1 = 705
$rx2 = 1430
$ry2 = 720
CASE(20)
$rx = 1420
$ry = 715
$rx1 = 1415
$ry1 = 705
$rx2 = 1425
$ry2 = 720
CASE(21)
$rx = 1415
$ry = 715
$rx1 = 1410
$ry1 = 705
$rx2 = 1420
$ry2 = 720
CASE(22)
$rx = 1410
$ry = 715
$rx1 = 1405
$ry1 = 705
$rx2 = 1415
$ry2 = 720
//----------
CASE(23)
$rx = 1395
$ry = 705
$rx1 = 1390
$ry1 = 695
$rx2 = 1400
$ry2 = 710
CASE(24)
$rx = 1395
$ry = 695
$rx1 = 1390
$ry1 = 685
$rx2 = 1400
$ry2 = 700
//----------
$var = 0
END_SWITCH
MOVE($rx,$ry)
LCLICK($rx,$ry)
WAITMS(300)
IF(($var!1)&($var!2)&($var!10)&($var!11)&($var!12)&($var!13)&($var!14)&($var!23)&($var!24))
GETSCREEN
PXLREPLACE($xShip_hp1,$yShip_hp1,$xShip_hp2,$yShip_hp2, $hp_nps, $hp_ship)
IF_PIXEL_IN(0,0, $_xmax,$_ymax, $hp_nps)
ELSE
GETSCREEN
IF_PIXEL_IN(0,0, $_xmax,$_ymax, $nps)
IF(($_return1>$xm1)&($_return1<$xm2)&($_return2>$ym1)&($_return2<$ym2))
$_return1 = 0
$_return2 = 0
END_IF
LCLICK($_return1, $_return2)
WAITMS(180)
KEYPRESS(#1)
WAITMS(25)
MOVE($rx,$ry)
LCLICK($rx,$ry)
ELSE
WAITMS(25)
END_IF
END_IF
END_IF
$check = 0
WHILE($check = 0)
GETSCREEN
IF_PIXEL_IN($rx1,$ry1, $rx2,$ry2, $red)
$check = 1
ELSE
WAITMS(25)
END_IF
END_CYC
Pages: [1]