(define "FromIsOnTheRegionToFill" (is In #1 (sites (player (mover)))))

//------------------------------------------------------------------------------

(game "Zonesh"
    (players 2)
    (equipment {
        (board (square 6))	
        (piece "Ant" P1 (if ("FromIsOnTheRegionToFill" (from)) ("StepToNotFriend" Orthogonal) ("StepToNotFriend")))
        (piece "Grasshopper" P2 (if ("FromIsOnTheRegionToFill" (from)) ("StepToNotFriend" Orthogonal) ("StepToNotFriend")))
        (regions "Home" P1 
            (difference 
                (expand (intersection (sites Bottom) (sites Left)) steps:3 Orthogonal) 
                (sites {
                    (ahead (coord row:0 column:5) steps:3 N)
                    (ahead (coord row:0 column:5) steps:3 E)
                })
            )
        )
        (regions "Home" P2 
            (difference 
                (expand (intersection (sites Top) (sites Right)) steps:3 Orthogonal) 
                (sites {
                    (ahead (coord row:5 column:0) steps:3 W)
                    (ahead (coord row:5 column:0) steps:3 S)
                })
            )
        )
        
        (map {(pair P1 35) (pair P2 0)})
    })
    (rules 
        (start {
            (place "Ant1" (sites P1))
            (place "Grasshopper2" (sites P2))
        })
        (play (forEach Piece))
        (end (if (or (no Pieces Next) (= (last To) (mapEntry (mover)))) (result Mover Win)))
    )
)

//------------------------------------------------------------------------------

(metadata
    (info
        {
        (description "Arrive first on the opposite corner. An insect carnage!")
        (rules "Each insect moves to an adjacent cell space, orthogonal or diagonal, except when it's on its home zone. When on its departing zone it can only move orthogonally.")
        (id "4310")
        (source "<a href=\\"https://bodogemu.com/en/games/zonesh\\" target=\\"_blank\\" class=\\"style1\\" style=\\"color: #0000EE\\" />Bodogemu</a>")
        (version "1.3.14")
        (classification "board/race/reach")
        (credit "Eric Piette")
        (date "2001")
        }
    )
    
    (graphics {
        (board Style Board)
        (board Colour InnerEdges (colour 160 140 100))
        (board Colour OuterEdges (colour Hidden))
        (board Colour Phase0 (colour 255 230 150))
        (show Edges Diagonal Hidden)
    })
)