Frank Smith (Bbbbbbbbba)
New member
Username: Bbbbbbbbba
Post Number: 1
Registered: 11-2009
| | Posted on Tuesday, November 17, 2009 - 4:11 am: | |
It always says "Win in 1"... As a result, it almost always lose.
Also: see if my code can be simplified...
(define slide (
$1 (while empty? $1) (verify friend?) flip (while (and not-empty? (on-board? $1)) cascade $1) add
))
(define swap (
mark $1 (verify friend?) flip cascade back add
))
(game
(title "Billiard 7x7")
(description "TODO...")
(history "TODO...")
(strategy "TODO...")
(players White Black)
(turn-order White Black)
(pass-turn false)
(board
(image "images\Chess\Chess7x7.bmp")
(grid
(start-rectangle 5 5 53 53)
(dimensions
("a/b/c/d/e/f/g" (49 0))
("7/6/5/4/3/2/1" (0 49))
)
(directions
(n 0 -1) (e 1 0) (s 0 1) (w -1 0)
(ne 1 -1) (nw -1 -1) (se 1 1) (sw -1 1)
(nnw -1 -2) (nne 1 -2) (ene 2 -1) (ese 2 1)
(sse 1 2) (ssw -1 2) (wsw -2 1) (wnw -2 -1)
)
)
)
(board-setup
(White
(Ball c3 d3 e3)
(CueBall d4)
)
(Black
(Ball c5 d5 e5)
)
)
(piece
(name Ball)
(image White "images\Neutron\NeutronWPawn.bmp" Black "images\Neutron\NeutronBPawn.bmp")
)
(piece
(name CueBall)
(image White "images\Neutron\Neutron.bmp" Black "images\Neutron\Neutron.bmp")
(moves
(slide n)
(slide e)
(slide s)
(slide w)
(slide ne)
(slide nw)
(slide se)
(slide sw)
(swap nnw)
(swap nne)
(swap ene)
(swap ese)
(swap sse)
(swap ssw)
(swap wsw)
(swap wnw)
)
)
(win-condition (White Black) (captured Ball))
(loss-condition (White Black) stalemated)
) |