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.


Messages - Piano GX

Pages: [1] 2 3
1
Общие вопросы / Re: символы в окно
« on: June 22, 2016, 01:57:22 PM »
И можно сделать по типу string  чтобы я к каждому элементу мог обратиться и заменить его
Допусти была строка 123456 и нужно вместо 4 поставить 5

2
Общие вопросы / Re: символы в окно
« on: June 22, 2016, 01:54:15 PM »
блин он только числа выводит. нужно чтобы и буквы вводил по таблице ASCII

3
Общие вопросы / символы в окно
« on: June 21, 2016, 07:54:44 PM »
как можно сделать так, чтобы прога печатала разные символы в окошко?
типо
i=0;
while(i<=70)
{
и тут начинает печатать с 0 символа до 70 символа(ASCII типо по этой таблице) поочередно(в окно выводит 0123456789....)
}
типо работа с char...  не использую keypress

4
Общие вопросы / Re: что за
« on: March 06, 2016, 07:53:29 PM »
Quote from: kiril on March 06, 2016, 07:19:07 PM
если переменные там меняются, то нужно, а если все значения на выходе зависят только от параметров при вызове, то нет.
а в моем случае?
если не влом, посмотрите?)

5
Общие вопросы / Re: что за
« on: March 06, 2016, 07:05:59 PM »
Quote from: kiril on March 06, 2016, 07:00:58 PM
Quote from: Piano GX on March 06, 2016, 06:51:43 PM
ОБНУЛИЛ
а системные переменные типа $_RETURN1 сами обнуляться ведь в них сохраняется последнее найденное значение, а массив $pxl_arr ?
о, точно, спасибо, а в SUB  нужно обнулять ?

6
Общие вопросы / Re: что за
« on: March 06, 2016, 06:51:43 PM »
ОБНУЛИЛ

7
Общие вопросы / Re: что за
« on: March 06, 2016, 06:51:27 PM »
Quote from: kiril on March 06, 2016, 06:48:04 PM
переменные обнулять нужно
Code: (clickermann) [Select]
SUB(pxl_online,$x1_line,$y1_line,$x2_line,$y2_line,$color_line)
   $dist_line = DIST($x2_line,$y2_line,$x1_line,$y1_line)
   $step_line=$dist_line-1
   $X_step = ($x2_line-$x1_line)/$step_line
   $Y_step = ($y2_line-$y1_line)/$step_line
   $X_line = $x1_line
   $Y_line = $y1_line
   FOR($i=0, $i<INT($step_line))
      $X_line = $X_line + $X_step
      $Y_line = $Y_line + $Y_step
      IF(pxl(ROUND($X_line,0), ROUND($Y_line,0)) = $color_line)
         arrpush($pxl_arr, ROUND($X_line,0))
         arrpush($pxl_arr, ROUND($Y_line,0))
      END_IF
      WAITMS(1)
   END_CYC
END_SUB


wait(1)
$G=1
KEYPRESS(#3)
KEYPRESS(#L)
wait(1)
GETSCREEN
    IF_PIXEL_IN(197,70,1061,435,12272965,14046291,6890788,7481640,10638422,7351339,10112846,8005672,8796472,9784655,12865615,7089719,8204850,6235945,8662059,8204335,96461283)
$XP=$_RETURN1
$YP=$_RETURN2
END_IF
$YM=78
IF_PIXEL_IN(200,$YM,1051,438,4867928,8354971, 6709384,13224393,12829897,166776959,11909303,16119285,15724527,484940,1994075,610626,39552,7961708,3362891,1385507,134412,534055,1059630,2636088,2252621,16776959,159699,2384207,15921906,15329769,4672245,724634)
WHILE($G=1)
IF_PIXEL_IN(200,$YM,1051,438,4867928,8354971, 6709384,13224393,12829897,166776959,11909303,16119285,15724527,484940,1994075,610626,39552,7961708,3362891,1385507,134412,534055,1059630,2636088,2252621,16776959,159699,2384207,15921906,15329769,4672245,724634)
$X=$_RETURN1
$Y=$_RETURN2
$YM=$Y+3
pxl_online($XP,$YP,$X,$Y,0)
IF(ARRSIZE ($pxl_arr)=0)
$A=3                           
WHILE($A>0)
LCLICK($X,$Y)
INC($A,-1)
END_CYC
END_IF
ELSE
$G=0
END_IF
END_CYC
end_if
IF_PIXEL_IN(1084,281,1085,282,1508979,1508714)
LCLICK(830,480)
WAITMS(20)
KEYPRESS(#Q)
else
getscreen
if_pixel_in(1088,270,1089,271,1509275,1377660)
LCLICK(906,477)
$AP=8
WAITMS(50)
while($AP>0)
KEYPRESS(#Q)
INC($AP,-1)
END_CYC
LCLICK(873,481)
end_if
END_IF
 KEYPRESS(#R)
KEYPRESS(#D)
      wait(1)

UNDEFINE($XP)
UNDEFINE($YP)
UNDEFINE($G)
UNDEFINE($YM)
UNDEFINE($Y)
UNDEFINE($X)
UNDEFINE($AP)
UNDEFINE($A)
wait(1)
halt

8
Общие вопросы / Re: что за
« on: March 06, 2016, 06:42:26 PM »
про отсутствие halt
как я понимаю, он должен запускаться по новой ? а он начинает игнорировать некоторые частие

9
Общие вопросы / что за
« on: March 06, 2016, 06:33:14 PM »
запускаю программу вручную(имеется в конце halt), несколько раз подряд, работает нормально.
Хочу чтобы начинал с начало автоматичестки, и убрал halt, но программа начинает работать не верно

10
Общие вопросы / Re: Почему игнорирует
« on: March 06, 2016, 03:07:45 PM »
Quote from: Oraven on March 06, 2016, 02:53:55 PM
Тебе что религия не позволяет сразу присваивать значение переменной? Кликер умеет сам объявлять переменные при первом упоминании, DEFINE в большинстве, а особенно в твоем случаи не нужно.

Почему не написать так?
Code: (clickermann) [Select]
$G = 1
while($G=1)
Думаю проблема в DEFINE($YM,78) оно в цикле увеличивается а на следующем проходе не становится снова 78
Напиши в место этого
Code: (clickermann) [Select]
$YM = 78
исправил ... все равно ту часть которая до цикла, игнорирует

11
Общие вопросы / Почему игнорирует
« on: March 06, 2016, 02:31:10 PM »
Игнорирует часть выделенную 2 слешами, после первого выполнения
Code: (clickermann) [Select]
SUB(pxl_online,$x1_line,$y1_line,$x2_line,$y2_line,$color_line)
   $dist_line = DIST($x2_line,$y2_line,$x1_line,$y1_line)
   $step_line=$dist_line-1
   $X_step = ($x2_line-$x1_line)/$step_line
   $Y_step = ($y2_line-$y1_line)/$step_line
   $X_line = $x1_line
   $Y_line = $y1_line
   FOR($i=0, $i<INT($step_line))
      $X_line = $X_line + $X_step
      $Y_line = $Y_line + $Y_step
      IF(pxl(ROUND($X_line,0), ROUND($Y_line,0)) = $color_line)
         arrpush($pxl_arr, ROUND($X_line,0))
         arrpush($pxl_arr, ROUND($Y_line,0))
      END_IF
      WAITMS(1)
   END_CYC
END_SUB

WAIT(1)// начинает отсюда
define($f,0)
IF_PIXEL_IN(197,70,1061,435,12272965,14046291,6890788,7481640,10638422,7351339,10112846,8005672,8796472,9784655,12865615,7089719,8204850,6235945,8662059,8204335)
   $XP=$_RETURN1
   $YP=$_RETURN2
END_IF

DEFINE($YM,78)
waitms(50)

GETSCREEN
DEFINE($G,1)
while($G>0)
   KEYPRESS(#3)
   if_pixel_in(200,$YM,1051,438,4867928,8354971, 6709384,13224393,12829897,166776959,11909303,16119285,15724527,484940,1994075,610626,39552,7961708,3362891,1385507,134412,534055,1059630,2636088,2252621,16776959,159699,2384207,15921906,15329769,4672245,724634)
      $X=$_RETURN1
      $Y=$_RETURN2
      $YM=$Y+3
      GETSCREEN
      pxl_online($XP-10,$YP-10,$X,$Y,0)
      IF(ARRSIZE ($pxl_arr)>0)
         FOR($a=0,$a<ARRSIZE ($pxl_arr),2)
            IF_PIXEL_IN($pxl_arr[$a],$pxl_arr[$a+1],$pxl_arr[$a],$pxl_arr[$a+1],0)
               $f=1
            end_if
         end_cyc
      end_if
      if($f=0)
         dblclick($X,$Y)
         $f=0
      END_IF
   ELSE
      $G=0
   END_IF
END_CYC// до сюда игнорирует после 1 выполнения

IF_PIXEL_IN(1084,281,1085,282,1508979,1508714)
   LCLICK(830,480)
   WAITMS(20)
   KEYPRESS(#Q)
else
   getscreen
   if_pixel_in(1088,270,1089,271,1509275,1377660)
      LCLICK(906,477)
      KEYPRESS(#Q)
      KEYPRESS(#Q)
      KEYPRESS(#Q)
      KEYPRESS(#Q)
      KEYPRESS(#Q)
      KEYPRESS(#Q)
      KEYPRESS(#Q)
      KEYPRESS(#Q)
      WAITMS(50)
      LCLICK(873,481)
   end_if
END_IF

KEYPRESS(#R)
KEYPRESS(#D)
wait(1)

GETSCREEN
if_pixel_in(946,206,991,224, 897914,427366,65535,90697,216633,21824,235162)
   keypress(#S)
   wait(2)
   keypress(#A)
   wait(2)
end_if

UNDEFINE($XP)
UNDEFINE($YP)
UNDEFINE($X)
UNDEFINE($Y)
UNDEFINE($f)
UNDEFINE($G)
UNDEFINE($pxl_arr)

12
Общие вопросы / я правильно минимум нахожу?
« on: March 05, 2016, 08:54:22 PM »
define($MIN,1000000)
define($N,1)
DEFINE($KAR,87)
WHILE($N>0)
if_pixel_in(1058,$KAR,1178,135,2928382)
$KX=$_RETURN1
$KY=$_RETURN2
$KAR=$KY+1
$D=DIST($PX,$PY,$KX,$KY)
IF($MIN>$D)
$MIN=$D
$KIX=$KX
$KIY=$KY
END_IF
ELSE
$N=0 
end_if
END_CYC

13
Общие вопросы / Re: модуль
« on: March 05, 2016, 05:22:46 PM »
или такой команды нет?
получается только
IF($A<0)
$A=$A*-1
END_IF
?

14
Общие вопросы / модуль
« on: March 05, 2016, 05:19:40 PM »
Как найти модуль числа?

15
Общие вопросы / Re: цвет мужду двумя точками
« on: March 05, 2016, 05:16:07 PM »
через if-pixel-in  находит 2 точки, и ищет на это прямой черный пиксел. если его нет то выполняется действие

Pages: [1] 2 3