Ромашки лютики

[Prorok.18]

Можно ли получить список всех цветов по убывающей для Colormode 4 например?

[quant13]

[dramster]

например для колормод 4 этих цветов будет 4096 комбинаций. вот скрипт который запишет эти все цвета в лог.

Code: (clickermann) [Select]

#logfile

$clm=4 //число, соответствующее режиму коррекции


IF($clm=0)
   $bit=1
ELSE
   IF($clm=1)
      $bit=2
   ELSE
      IF($clm=2)
         $bit=4
      ELSE
         IF($clm=3)
            $bit=8
         ELSE
            IF($clm=4)
               $bit=16
            ELSE
               IF($clm=5)
                  $bit=32
               ELSE
                  IF($clm=6)
                     $bit=64
                  ELSE
                     IF($clm=7)
                        $bit=128
                     ELSE
                        IF($clm=8)
                           inc($n)
                           print($n," - 0")
                           $bit=256
                        ELSE
                           print("не существует этого режима")
                           halt
                        END_IF
                     END_IF
                  END_IF
               END_IF
            END_IF
         END_IF
      END_IF
   END_IF
END_IF

$r=-1
$g=-1
$b=-1
inc($r,$bit)
inc($g,$bit)
inc($b,$bit)
WHILE($b < 256)
   WHILE($g < 256)
      WHILE($r < 256)
         inc($n)
         print($n," - ",colorgen($r,$g,$b)
         inc($r,$bit)
      END_CYC
      $r=-1
      inc($r,$bit)
      inc($g,$bit)
   END_CYC
   $r=-1
   $g=-1
   inc($r,$bit)
   inc($g,$bit)
   inc($b,$bit)
END_CYC

halt

[Oraven]

например для колормод 4 этих цветов будет 4096 комбинаций. вот скрипт который запишет эти все цвета в лог

А ты учитываешь что кликер также осветляет изображение при коррекции?

Да и вообще зачем этот список не понятно 

[dramster]

А ты учитываешь что кликер также осветляет изображение при коррекции?

Да и вообще зачем этот список не понятно 

осветляет? это как? я чегото недопонимаю.

был поставлен вопрос - список всех цветов для к-мод4. скрипт вроде как дает этот список. и для других режимов коррекции тоже дает.

а то что этот список бесполезен, так это и я понимаю  . просто мне стало интересно как это реализовать, вот и попробовал. если я в чемто ошибаюсь, прошу обьяснить в чем.

[Oraven]

У тебя там скобки в printe не достает.

Действительно получаемые этим скриптом цвета верны, значит осветление это побочный эффект коррекции.

Вот доработанный вариант.

Code: (clickermann) [Select]

$clm = 4 // уровень коррекции от 0 до 8

SWITCH($clm)
CASE(0)
   $bit=1
CASE(1)
   $bit=2
CASE(2)
   $bit=4
CASE(3)
   $bit=8
CASE(4)
   $bit=16
CASE(5)
   $bit=32
CASE(6)
   $bit=64
CASE(7)
   $bit=128
CASE(8)
   TFWRITE(STRCONCAT("Цвета для Уровня ", $clm,".txt"), 0)
   $bit=256
DEFAULT
   HINTPOPUP("Задан не верный уровень коррекции!", "Ошибка")
   halt
END_SWITCH

$r=-1
$g=-1
$b=-1
inc($r,$bit)
inc($g,$bit)
inc($b,$bit)
WHILE($b < 256)
   WHILE($g < 256)
      WHILE($r < 256)
         TFWRITE(STRCONCAT("Цвета для Уровня ", $clm,".txt"), colorgen($r,$g,$b))
         inc($r,$bit)
      END_CYC
      $r=-1
      inc($r,$bit)
      inc($g,$bit)
   END_CYC
   $r=-1
   $g=-1
   inc($r,$bit)
   inc($g,$bit)
   inc($b,$bit)
END_CYC

halt

[Prorok.18]

Здорово, спасибо, Oraven и Dramster