Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - Космич

Страницы: [1] 2 3 ... 16
1
Код: Clickermann
  1. //           D М И Н С .
  2. //           0 1 2 3 4 5
  3. //      
  4. // STATE 0   0 0 0 0 0 1    
  5. //       1   0 0 0 2 S 0
  6. //       2   0 0 3 0 0 0
  7. //       3   0 M 0 0 0 0
  8. //        
  9. //                                ОК              ОК                ОК                ОК
  10. $input_str = "... через нананана 1 с. 4543 ммин 1 мин. 499999 си. 05 мин. 1000 дин. 1000 с."
  11. $lenght = STRLEN($input_str)
  12.  
  13. STRSEPARATE("0:0:0:0:0:1:0:0:0:2:99:0:0:0:3:0:0:0:0:40:0:0:0:0", ":", $array_state)
  14.  
  15. WHILE($lenght >= $i)
  16.   skip_space:
  17.   $char = STRCUT($input_str, $lenght - $i, 1)
  18.   INC($i)  
  19.   IF($char = " ")
  20.      GOTO(skip_space)
  21.   END_IF                                    
  22.   IF($state < 4)
  23.      SWITCH($char)  
  24.      CASE("м")
  25.         $char = 1
  26.      CASE("и")
  27.         $char = 2
  28.      CASE("н")
  29.         $char = 3
  30.      CASE("с")
  31.         $char = 4
  32.      CASE(".")
  33.         $char = 5
  34.      DEFAULT
  35.         $char = 0      
  36.      END_SWITCH
  37.      $state = $array_state[$state*6+$char]
  38.   ELSE
  39.      $char = CODE($char)
  40.      IF( ($char >= #0) and ($char <= #9) )
  41.         $time = (CHAR($char)*POW(10, $k)*(100-$state)) + $time
  42.         INC($k)
  43.      ELSE  
  44.         $state = 0
  45.         $k = 0
  46.         $i = $i - 1
  47.      END_IF  
  48.   END_IF  
  49. END_CYC
  50.  
  51. PRINT($time)
  52.  
  53. HALT
  54.  

Код: Text
  1. 02:17:51 1361

2
Ошибки / Re: Параметры подпрограммы
« : Январь 22, 2020, 05:37:57 am »
Уже давно есть GETVAR/SETVAR
Код: Clickermann
  1. SUB(_ARR_OUTPUT, $_arrName, $_strName, $_start, $_stop, $_step)
  2.   $_stop = $_stop*$_step
  3.   WHILE($_start*$_step <= $_stop)
  4.      SETVAR($_strName, STRCONCAT(GETVAR($_strName), GETVAR(STRCONCAT($_arrName, "[", $_start, "]"))))    
  5.      INC($_start, $_step)
  6.   END_CYC
  7. END_SUB
  8.  
  9. STRSEPARATE("0,1,2,3,4,5,6,7,8,9", ",", $arr)
  10.  
  11. $output_str = ""
  12.  
  13. _ARR_OUTPUT("$arr", "$output_str", ARRSIZE($arr)-1, INT(ARRSIZE($arr)/2), -1) // Заполнение строки в обратном порядке половиной массива
  14.  
  15. PRINT($output_str)
  16.  
  17. HALT

3
Код: Text
  1. Так же я напоминаю что "and", "or" и "xor" являются синонимами операций "&","|" и "^" соответственно.

4
Код: Clickermann
  1. PRINT(INT(5 / 2)) // Деление нацело
  2. PRINT(5 - INT(5 / 2) * 2) // Остаток от деления

5
что конкретно тебе надо?
Код: Clickermann
  1. $h = INT(($_time_t - 1578542400) / 86400)
  2. $d = $h - INT($h / 8) * 8

6
Предложения / Re: Защита кода
« : Декабрь 10, 2019, 02:08:25 pm »
зачем лезть в %TEMP%, если можно сразу открыть архив и посмотреть))

7
Общие вопросы / Re: Скрипт на движение мыши
« : Декабрь 10, 2019, 04:20:18 am »
Чтобы не писать одно и тоже))

Еще можно вот так
Код: Clickermann
  1. STRSEPARATE("0;2;3;1", ";", $array_state)
  2.  
  3. WHILE(#TRUE)
  4.   SWITCH($array_state[ISKEYDOWN(#F9) + $state_mouse * 2])
  5.   CASE(1)
  6.      $array_coord[0] = $array_coord[0] - 10
  7.      MOVE($array_coord[0], $array_coord[1])
  8.      WAITMS(100)
  9.   CASE(2)
  10.      STRSEPARATE(STRCONCAT($_xmouse, ";", $_ymouse), ";", $array_coord)
  11.      RDOWN($array_coord[0], $array_coord[1])
  12.      $state_mouse = 1
  13.   CASE(3)
  14.      RUP($array_coord[0], $array_coord[1])
  15.      $state_mouse = 0
  16.   END_SWITCH
  17. END_CYC

8
Общие вопросы / Re: Скрипт на движение мыши
« : Декабрь 09, 2019, 11:13:25 pm »
Код: Clickermann
  1. $state_key = ISKEYDOWN(#F9)
  2. SWITCH(POW(2, $state_key) * POW(3, (($state_key = #FALSE) and ($state_mouse = #TRUE))) - 1)
  3. CASE(1)
  4.   MOVE($_xmouse, $_ymouse + 10)
  5.   WAITMS(100)
  6.   RDOWN($_xmouse, $_ymouse)
  7.   $state_mouse = #TRUE
  8. CASE(2)
  9.   RUP($_xmouse, $_ymouse)
  10.   $state_mouse = #FALSE
  11. END_SWITCH

9
Общие вопросы / Re: Запись "сложного" скрипта.
« : Декабрь 06, 2019, 08:14:18 pm »
Проверь вот это. Должен появится файл с html кодом страницы группы
Код: Clickermann
  1. #DEFINE HTTPGET_SITE: "https://vk.com/bestmobagroup"
  2. #DEFINE HTTPGET_OUTPUT_FILE: "bestmobagroup.txt"
  3.  
  4. EXECUTE("httpget.exe", STRCONCAT("-S ", HTTPGET_SITE, " -F ", HTTPGET_OUTPUT_FILE))
  5.  
  6. WHILE($isnew = 0)
  7.   GETMESSAGE($wParam, $lParam, $isnew)
  8. END_CYC
  9.  
  10. HALT

10
Общие вопросы / Re: Запись "сложного" скрипта.
« : Декабрь 05, 2019, 03:30:40 pm »
тут надо думать над парсером страницы группы за определённое время

11
А почему сразу дичь? просто переменную не добавил

12
Код: Clickermann
  1. $time = 3001
  2. $timer = $_ms + $time
  3. WHILE($timer > $_ms)
  4.   GETSCREEN(113, 214, 701, 253)
  5.   IF_PIXEL_IN(113, 214, 701, 253, 10198777)
  6.      $timer = 0
  7.   END_IF
  8.   SWITCH($time)
  9.   CASE(0)
  10.      LCLICK(321,223)
  11.   CASE(3001)
  12.      LCLICK(850,341)  
  13.      $time = $time  - 1
  14.   END_SWITCH
  15.   WAITMS(200)
  16. END_CYC

13
Общие вопросы / Re: Запись "сложного" скрипта.
« : Декабрь 02, 2019, 07:42:39 pm »
это всё предстоит написать с 10-11 строки

14
Общие вопросы / Re: Запись "сложного" скрипта.
« : Декабрь 02, 2019, 07:15:53 pm »
Ты с профилями разобрался же?

Код: Clickermann
  1. #DEFINE WM_SYSCOMMAND: 0x0112  
  2. #DEFINE SC_CLOSE:      0xF060
  3.  
  4. EXECUTE("firefox.exe", STRCONCAT("-P vk_user_data_", $counter, " -new-window https://vk.com/app5327745_569506422")) // открываем игру под профилем от 0 до 10 в мозилле
  5. $hwnd = 0
  6. WHILE($hwnd = 0)
  7.   $hwnd = WNDFIND("Хроники Хаоса - Mozilla Firefox")
  8. END_CYC
  9. WNDSETINFO($hwnd, 0, 0, 1280, 800) // устанавливаем позицию и размер окна
  10.  
  11. WAIT(2) // Тут ожидание загрузки игры и какие то действия
  12. SENDMESSAGE($hwnd, WM_SYSCOMMAND, SC_CLOSE, 0) // закрываем окно
  13.  
  14. $counter = $counter + 1 // инкрементируем переменную счётчик аккаунтов
  15. IF($counter > 10) // Если счётчик больше 10, то стоп
  16.   HALT
  17. END_IF

15
Общие вопросы / Re: Помогите найти картинку
« : Декабрь 02, 2019, 06:33:28 pm »
по моему ники не зумируются, а это значит, что можно обойтись поиском белого пикселя и простой сортировкой

Страницы: [1] 2 3 ... 16