RefBox for half sized field.

Cyan のみを使うことで対応.
MPS に関しては,rcll-refbox/src/games/rcll/machine.clp の deffunction machine-init-randomize (?ring-colors) の最後の部分を変更.

    ; Swap machines
                (bind ?machines-to-swap
            (create$ (str-cat "RS" (random 1 2)) (str-cat "CS" (random 1 2))))
                (foreach ?ms ?machines-to-swap
      (do-for-fact ((?m-cyan machine) (?m-magenta machine))
          (and (eq ?m-cyan:team CYAN) (eq ?m-cyan:name (sym-cat C- ?ms))
                                                 (eq ?m-magenta:team MAGENTA) (eq ?m-magenta:name (sym-cat M- ?ms)))

                                (printout t "Swapping " ?m-cyan:name " with " ?m-magenta:name crlf)

                                (bind ?z-cyan ?m-cyan:zone)
                                (bind ?r-cyan ?m-cyan:rotation)
                                (bind ?z-magenta ?m-magenta:zone)
                                (bind ?r-magenta ?m-magenta:rotation)
                                ; (modify ?m-cyan    (zone ?z-magenta) (rotation ?r-magenta))
                                ; (modify ?m-magenta (zone ?z-cyan) (rotation ?r-cyan))
                        )
          )

最後のmodify 2行をコメントアウトして,swap を無効化します.

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

*