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 を無効化します.
コメントを残す