Game Description

; amazons (originally from http://games.stanford.edu:4441/spectator/Showallrules?Match=AMAZONS)
; - goal rules slightly changed to make it valid GDL
; - legal rules fixed so queens don't just move in one direction

(role white)
(role black)
(init (cellholds 4 1 white))
(init (cellholds 7 1 white))
(init (cellholds 1 4 white))
(init (cellholds 10 4 white))
(init (cellholds 1 7 black))
(init (cellholds 10 7 black))
(init (cellholds 4 10 black))
(init (cellholds 7 10 black))
(init (control white))

(<= (legal ?player noop)
    (role ?player)
    (not (true (control ?player))))

(<= (legal ?player ?move)
	(true (control ?player))
    (legalmove ?player ?move))

(<= (next (control white))
    (true (control black)))
(<= (next (control black))
    (true (control white)))

(<= (next (cellholds ?x3 ?y3 arrow))
    (role ?player)
    (does ?player (play ?x1 ?y1 ?x2 ?y2 ?x3 ?y3)))
(<= (next (cellholds ?x2 ?y2 ?player))
    (role ?player)
    (does ?player (play ?x1 ?y1 ?x2 ?y2 ?x3 ?y3)))
(<= (next (cellholds ?xs ?ys ?state))
    (true (cellholds ?xs ?ys ?state))
    (does ?player (play ?x1 ?y1 ?x2 ?y2 ?x3 ?y3))
    (distinctcell ?xs ?ys ?x1 ?y1))

(<= terminal
	(cannot_move ?r)
)

(<= (goal ?r 100)
	(role ?r)
	(cannot_move ?r2)
	(distinct ?r ?r2)
)
(<= (goal ?r 0)
    (cannot_move ?r)
)

(<= (cannot_move ?r)
	(true (control ?r))
    (not (haslegalmove ?r))
)

(<= (haslegalmove ?player)
    (legalmove ?player ?move))

(<= (legalmove ?player (play ?x1 ?y1 ?x2 ?y2 ?x3 ?y3))
    (role ?player)
    (true (cellholds ?x1 ?y1 ?player))
    (queenmove ?x1 ?y1 ?x2 ?y2)
    (queenmove ?x2 ?y2 ?x3 ?y3))

(<= (legalmove ?player (play ?x1 ?y1 ?x2 ?y2 ?x1 ?y1))
    (role ?player)
    (true (cellholds ?x1 ?y1 ?player))
    (queenmove ?x1 ?y1 ?x2 ?y2))

(<= (queenmove ?x1 ?y1 ?x2 ?y2)
	(direction ?dir)
	(directionmove ?dir ?x1 ?y1 ?x2 ?y2))

(<= (directionmove ?dir ?x1 ?y1 ?x2 ?y2)
	(directionstep ?dir ?x1 ?y1 ?x2 ?y2)
	(emptycell ?x2 ?y2))
(<= (directionmove ?dir ?x1 ?y1 ?x3 ?y3)
	(directionstep ?dir ?x1 ?y1 ?x2 ?y2)
	(emptycell ?x2 ?y2)
	(directionmove ?dir ?x2 ?y2 ?x3 ?y3))

(<= (directionstep n ?x ?y1 ?x ?y2)
	(index ?x)
    (++ ?y1 ?y2))
(<= (directionstep s ?x ?y1 ?x ?y2)
	(index ?x)
    (++ ?y2 ?y1))
(<= (directionstep e ?x1 ?y ?x2 ?y)
	(++ ?x1 ?x2)
	(index ?y))
(<= (directionstep w ?x1 ?y ?x2 ?y)
	(++ ?x2 ?x1)
	(index ?y))
(<= (directionstep ne ?x1 ?y1 ?x2 ?y2)
	(++ ?x1 ?x2)
	(++ ?y1 ?y2))
(<= (directionstep sw ?x1 ?y1 ?x2 ?y2)
	(++ ?x2 ?x1)
	(++ ?y2 ?y1))
(<= (directionstep se ?x1 ?y1 ?x2 ?y2)
	(++ ?x1 ?x2)
	(++ ?y2 ?y1))
(<= (directionstep nw ?x1 ?y1 ?x2 ?y2)
	(++ ?x2 ?x1)
	(++ ?y1 ?y2))

(<= (emptycell ?x ?y)
    (cell ?x ?y)
    (not (true (cellholds ?x ?y arrow)))
    (not (true (cellholds ?x ?y white)))
    (not (true (cellholds ?x ?y black))))

(<= (distinctcell ?x1 ?y1 ?x2 ?y2)
    (cell ?x1 ?y1)
    (cell ?x2 ?y2)
    (distinct ?x1 ?x2))
(<= (distinctcell ?x1 ?y1 ?x2 ?y2)
    (cell ?x1 ?y1)
    (cell ?x2 ?y2)
    (distinct ?y1 ?y2))

(<= (cell ?x ?y)
    (index ?x)
    (index ?y))

(direction n)
(direction ne)
(direction e)
(direction se)
(direction s)
(direction sw)
(direction w)
(direction nw)

(index 1)
(index 2)
(index 3)
(index 4)
(index 5)
(index 6)
(index 7)
(index 8)
(index 9)
(index 10)

(++ 1 2)
(++ 2 3)
(++ 3 4)
(++ 4 5)
(++ 5 6)
(++ 6 7)
(++ 7 8)
(++ 8 9)
(++ 9 10)

sees_XML(...) rules

(<= (translate_fluent (cellholds ?x ?y white) (cellholds ?x ?y whitequeen))
    (cell ?x ?y)
)
(<= (translate_fluent (cellholds ?x ?y black) (cellholds ?x ?y blackqueen))
    (cell ?x ?y)
)
(<= (translate_fluent (cellholds ?x ?y arrow) (cellholds ?x ?y redsquare))
    (cell ?x ?y)
)
(<= (translate_fluent (control ?r) (control ?r))
    (role ?r)
)

(<= (sees_xml random ?t1) (true ?t) (translate_fluent ?t ?t1))
(<= (sees_xml ?p ?t1) (role ?p) (distinct ?p random) (true ?t) (translate_fluent ?t ?t1))