Messages

1

Общие вопросы / Re: Полная остановка потока

« on: December 05, 2015, 06:16:25 PM »

ты же мерлин, взмахни палочкой скажи трах-тибидох и сделается по другому. я вот недумая вижу два способа запускать потоки поставленные на паузу из любого выбранного места потока, но сохраню интригу, чтоб не лишать народ радости творчества и надеюсь что найденные способы будут проще и красивее моих, если конечно подумать нужным местом. 

Во блин. А я чёт ни одного не вижу Протри мне глаза.
Может я сильно погрузился в питон и в кликере замылился глаз.

Мне кажеться, что тут можно goto использовать, но как - не могу понять.

А ты не пробовал IF использовать?

Code: (clickermann) [Select]

THREAD(thr_name,1)
   IF($a=1)
   LOGWRITE("1")
   WAIT(1)
   LOGWRITE("2")
   WAIT(1)
   LOGWRITE("3")
   WAIT(1)
   LOGWRITE("4")
   WAIT(1)
   LOGWRITE("5")
   WAIT(1)
   LOGWRITE("6")
   waitms(10)
END_IF
END_THREAD

2

Общие вопросы / Re: Повторное нажатие клавиши

« on: November 29, 2015, 10:32:24 PM »

Все подправил! Нужно было просто ввести дополнительно строчку

Code: (Clickermann) [Select]

KEYUP(#F6)Что бы отпустить клавишу)

3

Общие вопросы / Re: Повторное нажатие клавиши

« on: November 29, 2015, 10:26:30 PM »

Так так, поторопился ребята. Код постоянно проскакивает. Приходится по нескольку раз нажимать чтобы включить или выключить его снова. Сейчас пытаюсь разобраться в чем же дело...

4

Общие вопросы / Re: Повторное нажатие клавиши

« on: November 29, 2015, 10:08:19 PM »

Можно засунуть анализ "зажатости" F6 в поток, тогда проблем не будет.

Code: (clickermann) [Select]

THREAD(t)
   IF(iskeydown(#F6)=1)
      IF($a = 0)
         $a = $a^1
         HINTPOPUP("Старт")
         // включение
      ELSE
         $a = $a^1
         HINTPOPUP("Стоп")
         // выключение
      END_IF
      WAITMS(20)
   ELSE
      WAITMS(20)
   END_IF
END_THREAD

// --------------------
IF($a=1)
   KEYDOWN(#space)
   WAITMS(160)
   KEYUP(#space)
   WAITMS(160)
   KEYDOWN(#enter)
   WAITMS(160)
   KEYUP(#enter)
   WAITMS(160)
ELSE
   WAITMS(20)
END_IF
// --------------------

Благодарю Вас! Очень красивый и чистый код у Вас получился! Все работает прекрасно!
P.S Сегодня впервые узнал о подобной программе как Clickermann и в голове уже столько идей для ее применения появилось! Потрясающая программа!

5

Общие вопросы / Повторное нажатие клавиши

« on: November 29, 2015, 09:16:30 PM »

Пишу скрипт для игры. Мне нужно при нажатии на кнопку F6 один раз запустить цикл, при повторном отменить(завершить) цикл.

Code: (Clickermann) [Select]

$a=0

if ((iskeydown(#F6)=1))
if ($a=1)
$a=0
else
$a=1
END_IF
END_IF
// --------------------
WHILE($a=1)
KEYDOWN(#space)
WAITMS(160)
KEYUP(#space)
WAITMS(160)
KEYDOWN(#enter)
WAITMS(160)
KEYUP(#enter)
WAITMS(160)
END_CYC
// --------------------

В других языках программирования я бы просто написал что-то типа

Code: (Clickermann) [Select]

$a = 0
if ((iskeydown(#F6)=1))
$a=!$a
и этого было бы достаточно, чтоб при повторном нажатии на кнопку значение переменной $a возвращало 0.

Помогите!