Как состряпать переключатели?

[Hito]

Ребят, у меня такой вопрос - как при помощи флагов намутить себе в скрипте такие переключатели, чтобы можно было включать и отключать подпрограммы? Ну, например... Запустил я кликер и мне в этот раз нужна 1 и 2 подпрограмма, а третья не нужно, чтоб она срабатывала.

Code: (clickermann) [Select]

$1 - 1
$2 - 1
$3 - 0

SUB(1)
   //////////
END_SUB

SUB(2)
   //////////
END_SUB

SUB(3)
   //////////
END_SUB
Как сделать - подскажите плиз. У меня че-то голова опять дымится...))

[Vint]

Что значит отключать? Отключай их вызов. Сами подпрограммы зачем трогать?
.... кажется понял что ты хочешь

Code: (clickermann) [Select]

$1 = 1
$2 = 1
$3 = 0

SUB(1)
   IF($1 = 1)
      //////////
   END_IF
END_SUB

SUB(2)
   IF($2 = 1)
      //////////
   END_IF
END_SUB

SUB(3)
   IF($3 = 1)
      //////////
   END_IF
END_SUB

[Hito]

Что значит отключать? Отключай их вызов. Сами подпрограммы зачем трогать?

Ну да - их вызов надо отключать.

[Hito]

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

[Hito]

Вот так надо - да?

Code: (clickermann) [Select]

$1 - 1
$2 - 1
$3 - 0

SUB(1)
   //////////
END_SUB

SUB(2)
   //////////
END_SUB

SUB(3)
   //////////
END_SUB

IF($1 = 1)
   1()
END_IF

IF($2 = 1)
   2()
END_IF

IF($3 = 1)
   3()
END_IF

[dramster]

можно поиграть с диологовыми окнами.
например так:

Code: (clickermann) [Select]

SUB(1)
   print("первый")
END_SUB

SUB(2)
   print("второй")
END_SUB

SUB(3)
   print("третий")
END_SUB


$mr = INPUTBOX("какой персонаж будет использоваться? 1, 2 или 3?", "0", 10)
IF($mr = "1")
   1()
else
   IF($mr = "2")
      2()
   else
      IF($mr = "3")
         3()
      else
         print("ниодного")
      END_IF
   END_IF
END_IF
halt

или так:

Code: (clickermann) [Select]

SUB(1)
   print("первый")
END_SUB

SUB(2)
   print("второй")
END_SUB

SUB(3)
   print("третий")
END_SUB


$mr = DIALOGBOX("используется первый перс?", 4, 2)
IF($mr = 6)
   1()
else
   $mr = DIALOGBOX("используется второй перс?", 4, 2)
   IF($mr = 6)
      2()
   else
      $mr = DIALOGBOX("используется третий перс?", 4, 2)
      IF($mr = 6)
         3()
      else
      print("ниодного")
      END_IF
   END_IF
END_IF
halt


[Hito]

Мда... На евро 2 часа назад открылся северный материк - таких замесов я еще не видел...
Я даже пугало не успел воткнуть нигде...

[Hito]

можно поиграть с диологовыми окнами.

Это не с диалоговыми окнами игра, а с моими мозгами ))) Ну спс - принцип я понял )) Только у меня на первом персе может быть 1 и 2 скил, а на втором 1,2,3 ))

[quant13]

Code: (Clickermann) [Select]

LOGCLEAR
$s1 = 0
$s2 = 0
$s3 = 0
SUB(p1,$par1)
   IF($par1 = 1)
      print("используем первый набор скилов")
   END_IF
END_SUB
SUB(p2,$par1)
   IF($par1 = 1)
      print("используем второй набор скилов")
   END_IF
END_SUB
SUB(p3,$par1)
   IF($par1 = 1)
      print("используем третий набор скилов")
   END_IF
END_SUB

$mr = INPUTBOX("какой персонаж будет использоваться? 1, 2 или 3?", 1, 10)
switch($mr) //предустановки вызова процедур для каждого чара
case(1)
   $s1 = 1
   $s2 = 0
   $s3 = 1
case(2)
   $s1 = 1
   $s2 = 1
   $s3 = 1
case(3)
   $s1 = 0
   $s2 = 1
   $s3 = 0
default
   HALT    //никакой.остановка
end_switch

m1:
//вызываем подпрограммы, и они будут (или не будут) работать в зависимости от предустановок

p1($s1)  //1
p2($s2)  //2
p3($s3)  //3
wait(1)
goto(m1) //зацикливаем


[Hito]

Code: (Clickermann) [Select]

LOGCLEAR
$s1 = 0
$s2 = 0
$s3 = 0
SUB(p1,$par1)
   IF($par1 = 1)
      print("используем первый набор скилов")
   END_IF
END_SUB
SUB(p2,$par1)
   IF($par1 = 1)
      print("используем второй набор скилов")
   END_IF
END_SUB
SUB(p3,$par1)
   IF($par1 = 1)
      print("используем третий набор скилов")
   END_IF
END_SUB

$mr = INPUTBOX("какой персонаж будет использоваться? 1, 2 или 3?", 1, 10)
switch($mr) //предустановки вызова процедур для каждого чара
case(1)
   $s1 = 1
   $s2 = 0
   $s3 = 1
case(2)
   $s1 = 1
   $s2 = 1
   $s3 = 1
case(3)
   $s1 = 0
   $s2 = 1
   $s3 = 0
default
   HALT    //никакой.остановка
end_switch

m1:
//вызываем подпрограммы, и они будут (или не будут) работать в зависимости от предустановок

p1($s1)  //1
p2($s2)  //2
p3($s3)  //3
wait(1)
goto(m1) //зацикливаем


Не )) По наборам тоже не вариант )) Слишком много наборов будет )) Там же, помимо персов, еще и ситуации разные. Например - если я ставлю перса тут, то не использую это и вот это, а это использую. А если вот тут, то вот это и вот это, а это нет. В общем затеряюсь в наборах )) Лучше будет, если при запуске скрипт будет о каждом скиле спрашивать ))

Ну технологию я понял - всем спс! Дальше головой поработать...