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 - FJ

Pages: 1 [2] 3 4
16
Биржа труда / Re: Скрипт для онлайн игры TimeZero
« on: February 08, 2016, 10:07:05 AM »
Ну я думал об этом, можно время рандомом пробовать сделать :)

17
Общие вопросы / Re: не нажимается в браузере при 1 цикле
« on: January 29, 2016, 05:59:28 PM »
Quote from: dramster on January 28, 2016, 10:12:55 PM
Code: (clickermann) [Select]
if (($mr < 1) | ($mr > 3) | ($mr = ""))
У меня что-то ошибку выдает, убрал
Code: [Select]
($mr = "") - работает нормально, сам не понимаю, почему!

Quote from: Золотой on January 29, 2016, 11:42:34 AM
[/code]
Вопрос ну и зачем нужен этот холостой проход?
неужели за 0.56 сек ты успеваешь навести на цель?
Да, я успеваю! :) Я это написал, для того чтобы играть на ПК через телефон, запускаю скрипт, навожу на цель, нажимаю ентер, и все! :)

Quote from: Золотой on January 29, 2016, 11:42:34 AM
Code: (clickermann) [Select]

   $vbr = $vbr + 1// для оперы предусмотренны особые клики?
[/quote]
А вот и причина! Спасибо большее за подсказку! :)
[quote author=Золотой link=topic=2353.msg14642#msg14642 date=1454056954]
[code=clickermann]
$r = 0// это вообще за гранью добра и зла, учитывая, что ниже $r = $r + 1, GOTO(vbr)  снова получаем $hw =0 и нерабочий код
[/quote]
Ну вообще то сначала идет $r = 0, затем $r = $r + 1(то есть $r = 0 + 1) в итоге получаем $r =1 :)
так что тут $hw не будет равен 0! :)
Но вот в начале, то что идет $r = 0, это да... Но почему- то работает как нужно! Возможно он пропускал свич 1 раз, наращивался и дальше работал в нормальном режиме, я хз! :)

[quote author=Золотой link=topic=2353.msg14642#msg14642 date=1454056954]
Смущает только, что одни настройки "Наведи на усиление", другие "Наведи на цель 3", а кликаются в общей куче.
[/quote]
не совсем так, после "Наведи на усиление" стоит halt. Это нужно только для того, чтоб настроить координату кнопки(Да, я знаю, что можно сделать поиск картинки, но мне пока нужно именно так! :))
А вот "Наведи на цель 3" уже другое :)

В общем спасибо, очень помогли! :)
Может еще где замечания есть? я по образованию вовсе не программист, а так, самоучка! :)

18
Общие вопросы / Re: не нажимается в браузере при 1 цикле
« on: January 29, 2016, 05:28:27 AM »
блин, точно, упущение!))
спасибо!
но суть проблемы это не решит!)

19
Общие вопросы / не нажимается в браузере при 1 цикле
« on: January 28, 2016, 08:25:09 PM »
Доброго дня форумчане!
Подскажите, почему в браузере опера при $vbr = 1 не кликает? остальные кликает без проблем. Именно в опере... Уже пару раз переписывал код,  не могу ничего понять!

Code: [Select]
$mr = INPUTBOX("1 - Настройка. 2 - Напасть без усиления. 3 - Напасть с усилением. 4 - Автонападение.", "2", 100)
if ($mr < 1 & $mr > 3) // выходим, если неправильно выбрано
   halt
end_if
if ($mr = 1) // Настраиваем
   TFCLEAR ("\screens\temp\музмех\config.txt") // чистим конфиг
   
   HINTPOPUP( "Наведи на усиление" , "Фиксирую ------------------------------------------------------------------------------------>" )
   waitms (80)
   HINTPOPUP( "Наведи на усиление" , "Фиксирую ------------------------------------------------------------------------>" )
   waitms (80)
   HINTPOPUP( "Наведи на усиление" , "Фиксирую ------------------------------------------------------------>" )
   waitms (80)
   HINTPOPUP( "Наведи на усиление" , "Фиксирую ------------------------------------------------>" )
   waitms (80)
   HINTPOPUP( "Наведи на усиление" , "Фиксирую ------------------------------------>" )
   waitms (80)
   HINTPOPUP( "Наведи на усиление" , "Фиксирую ------------------------>" )
   waitms (80)
   HINTPOPUP( "Наведи на усиление" , "Фиксирую ------------>" )
   waitms (80)
   
   $xattak1 = $_xmouse
   $yattak1 = $_ymouse
   TFWRITE  ("\screens\temp\музмех\config.txt", $xattak1 , 1 )
   TFWRITE  ("\screens\temp\музмех\config.txt", $yattak1 , 2 )
   
   $xattak2 = $_xmouse + 180
   $yattak2 = $_ymouse
   TFWRITE  ("\screens\temp\музмех\config.txt", $xattak2 , 3 )
   TFWRITE  ("\screens\temp\музмех\config.txt", $yattak2 , 4 )
   halt
end_if

if ($mr = 2) //Напасть без уселения
   
   $xattak2 = TFREAD ("\screens\temp\музмех\config.txt", 3 )
   $yattak2 = TFREAD ("\screens\temp\музмех\config.txt", 4 )
   $vbr = 2
   
end_if

if ($mr = 3) //  с уселением
   
   $xattak1 = TFREAD ("\screens\temp\музмех\config.txt", 1 )
   $yattak1 = TFREAD ("\screens\temp\музмех\config.txt", 2 )
   $xattak2 = TFREAD ("\screens\temp\музмех\config.txt", 3 )
   $yattak2 = TFREAD ("\screens\temp\музмех\config.txt", 4 )
   $vbr = 1
end_if

//Настраиваемся на атаку
HINTPOPUP( "Наведи на цель 3" , "Фиксирую ------------------------------------------------------------------------------------>" )
waitms (80)
HINTPOPUP( "Наведи на цель 3" , "Фиксирую ------------------------------------------------------------------------>" )
waitms (80)
HINTPOPUP( "Наведи на цель 3" , "Фиксирую ------------------------------------------------------------>" )
waitms (80)
HINTPOPUP( "Наведи на цель 3" , "Фиксирую ------------------------------------------------>" )
waitms (80)
HINTPOPUP( "Наведи на цель 3" , "Фиксирую ------------------------------------>" )
waitms (80)
HINTPOPUP( "Наведи на цель 3" , "Фиксирую ------------------------>" )
waitms (80)
HINTPOPUP( "Наведи на цель 3" , "Фиксирую ------------>" )
waitms (80)

$xattak3 = $_xmouse
$yattak3 = $_ymouse

$r = 0
vbr:

WAITMS(300)
$hg = HGET(100,10)
//WNDSTATE($hg, 0)


SWITCH($r)
CASE(1)
   $hw = WNDFIND("yandex",0) // $hw = 328108
CASE(2)
   $hw = WNDFIND("Google Chrome",0) // $hw = 4391430
   
CASE(3)
   //$hw = WNDFIND("Mozilla Firefox",0) // $hw = 1442366
   $hw = WNDFIND("Opera",0) // $hw = 1442366
   
   $vbr = $vbr + 1
   $r = 0
CASE(4)
   
   $hw = WNDFIND("yandex",0) // $hw = 328108
   
   WNDBUMP($hw)
   WAITMS(100)
   halt
   
DEFAULT
   
END_SWITCH
WAITMS(100)

IF($hw > 0) // если HWND найден
   
   WNDBUMP($hw)
   WAITMS(400)
   
   SWITCH($vbr)
      WAITMS(100)
   CASE(1)
      move ( $xattak1 , $yattak1 )
      waitms (50)
      LCLICK ( $xattak1 , $yattak1 )
      waitms (50)
      LCLICK ( $xattak1 , $yattak1 )
      waitms (100)
   CASE(2)
      waitms (100)
      LCLICK ( $xattak2 , $yattak2 )
      waitms (100)
   CASE(3)
      waitms (100)
      LCLICK ( $xattak3 , $yattak3 )
      waitms (100)
   DEFAULT
      $r = 4
      print ( "$r = 4" )
      GOTO(vbr)
   END_SWITCH
   
END_IF
print ( "$r ", $r , " / $vbr " , $vbr )
$r = $r + 1
GOTO(vbr)

halt

20
Использование / Re: Три в ряд
« on: January 28, 2016, 06:20:15 PM »
Считываю по очереди каждую картинку, например только красный шарик, записываю положения этих шариков в файл.
например считал строку, нашел там 1 красный шарик с левого краю, получил картину 0-----
Считал остальные 5 рядов, получил координаты остальных красных шариков, дальше вот хочу понять, как проанализировать эти данные, как понять, какой ход сделать?
Пойму на примере 1 шарика, буду анализировать остальные, в идеале хочу сделать так, чтобы при совершении хода просчитывалось, сколько еще может шариков соединиться в 3 и больше, чтобы в последующем за 1 ход получить как можно больше очков.

21
Использование / Re: Три в ряд
« on: January 28, 2016, 01:57:28 PM »
Не могу никак понять.
Я получаю массив типа:
------
-о-о--
--о---
------
А вот понять как мне програмно сдвинуть среднюю картинку наверх, никак не могу.
Можете этот момент подробней написать?

22
Общие вопросы / Re: Код из внешнего файла.
« on: January 24, 2016, 11:08:38 AM »
О, круто, спасибо! :)
Что-то перечитал еще раз справку, не нашел там про эту команду ничего, новая версия? :)

23
Общие вопросы / Код из внешнего файла.
« on: January 24, 2016, 10:13:19 AM »
Доброго дня форумчане!
Подскажите, есть ли возможность использовать внешние файлы как подпрограммы? поискал в справке/сети, решения не нашел.
Спасибо!

24
Общие вопросы / Re: Сохранение картинок (SCREENSHOTEX) в папку и поиск этих картинок (IF_PICTURE_IN)
« on: December 17, 2015, 05:50:26 PM »
Спасибо!
Буду разбираться и внедрять! :)

25
Общие вопросы / Сохранение картинок (SCREENSHOTEX) в папку и поиск этих картинок (IF_PICTURE_IN)
« on: December 14, 2015, 06:03:59 PM »
Вроде простая задача, но не могу понять, как это сделать.
Допустим сохраняю части экрана в папку с помощью SCREENSHOTEX.
Затем идет условие с помощью IF_PICTURE_IN, если нахожу картинку - то одно действие, если не нахожу, делаю скрин.
Как реализовать?

26
Общие вопросы / Re: поиск и частичная замена/дополнение в текстовом файле
« on: December 14, 2015, 05:56:17 PM »
Спасибо!
То что нужно! :)

27
Общие вопросы / Re: поиск и частичная замена/дополнение в текстовом файле
« on: November 27, 2015, 08:38:25 PM »
Чет пока не понял, как работает, разбираюсь.
Нужно чтобы 1 дата навсегда оставалась, а 2я менялась только. Можете поменять? а так да.. супер! То, что нужно! :)
Спасибо! :)

28
Общие вопросы / Re: поиск и частичная замена/дополнение в текстовом файле
« on: November 27, 2015, 04:09:45 PM »
Нет, время же старое не остается. а мне именно это и нужно!
Допустим, после 1 раза, сторочка выглядит так
27.11.2015 19:05:35   \/   27.11.2015 19:05:35   /\   asd1
А после 2 раза будет выглядеть так.
27.11.2015 19:05:35   \/   27.11.2015 19:06:11   /\   asd1
Как видно, старое время осталось, а новое добавилось.

29
Общие вопросы / Re: поиск и частичная замена/дополнение в текстовом файле
« on: November 26, 2015, 07:57:05 PM »
Вот что получилось... Должен искать в файле текст из INPUTBOX, и если находит, обновлять 2ю дату, если не находит - то дописывать с низу.
С низу дописывает, а вот с обновлением времени... Помогите пожалуйста, что я неправильно делаю? Может сменить подход?

Code: [Select]
SUB(LOG) // текущая дата и время
   $th = $_time_h
   $tm = $_time_m
   $ts = $_time_s
   $dd = $_date_d
   $dm = $_date_m
   $dy = $_date_y
   IF(STRLEN($th)<2)
      $th = STRCONCAT ("0", $th)
   END_IF
   IF(STRLEN($tm)<2)
      $tm = STRCONCAT ("0", $tm)
   END_IF
   IF(STRLEN($ts)<2)
      $ts = STRCONCAT ("0", $ts)
   END_IF
   IF(STRLEN($dd)<2)
      $dd = STRCONCAT ("0", $dd)
   END_IF
   IF(STRLEN($dm)<2)
      $dm = STRCONCAT ("0", $dm)
   END_IF
   IF(STRLEN($dy)<2)
      $dy = STRCONCAT ("0", $dy)
   END_IF
   $date = STRCONCAT ($dd,".",$dm,".",$dy," ",$th,":",$tm,":",$ts)
END_SUB

LOG ()

$text  = INPUTBOX("message", "asd1", 10)
$str_num_max = TFCOUNT ( "group_base.txt" ) //находим сколько строк в файле
$str_num_max = $str_num_max +1
print ($str_num_max)
FOR ( $str_num = 1 , $str_num < $str_num_max ) // перебираем все строки в файле
   
   $text_file = TFREAD ( "group_base.txt" , $str_num ) // записываем строку в переменную 
   IF ( $text  = STRFILTER ( $text_file , $text , 1 ) ) //сверяем строки
     
      //если нашли, то нужно заменить дату!
      print ("$text_file 1",$text_file)
      $text_file = STRFILTER ( $text_file , " \/ " ,  0 ) // оставляем $t 1 встречи
      print ("$text_file 2",$text_file)
      $text_file = STRCONCAT ( $text_file , " \/ " , $date , " /\ " , $text ) // дописываем остальное к 1 дате
      print ("$text_file 3",$text_file)
      //заменяем текст в файле
     
      TFDELETE ("group_base.txt" , $str_num) // удаляем старую инфу
     
     
      TFWRITE ( "group_base.txt" , $text_file , $str_num ) / записываем новую инфу
     
      $str_num = $str_num_max //выходим из цикла
      halt
   END_IF
   
END_CYC

//Записываем в конец файла новую инфу(если запись не найдена):

TFWRITE ( "group_base.txt" , STRCONCAT ( $date , " \/ " , $date , " /\ " , $text ))

halt

30
Общие вопросы / Re: поиск и частичная замена/дополнение в текстовом файле
« on: November 25, 2015, 12:24:53 PM »
Вот для наглядности пример в экселе закинул, что должно получиться (изначально кликер мне должен закинуть это все с ТХТ файл)
Если кликер не находит в файле наименование и характеристику, то создает новую строчку и добавляет туда Начало   конец   Наименование   Характеристика.
А если наименование и характеристика находятся, то просто обновлялась дата во 2 колонке(конец)
Вот такая задумка.
Дальше планирую все это в экселе автоматизировать

Pages: 1 [2] 3 4