Quote:I need the size of the group to be a function of the cell at which you place the first stone – more precisely the number of the mover's stones in its line of sight.I have made progress on this front. Now you place groups of size one more than the number of friendly stones in the line of sight of the first placed stone. The two other problems (along with some others) still remain.
About the scaling problem: When placing a group in this version each stone must be placed adjacent to the last placed. I cannot figure out how to allow placement adjacent to any stone belonging in a group with the last placed stone. It is still the case that if I replace (sites Around (last To) Orthogonal) with (sites Around (sites Group Cell of:Cell at:(last To)) Orthogonal) I get an incomprehensible mess on the "status" screen. It starts out like this:
Quote:<html><h2>Syntax error: Could not create "game" ludeme from description.</h2><br/><p>(<font color=red>game</font>
Edited to add: Something strange happened when I tried (sites Group Cell of:Cell at:(last To) (mover)) in stead of (sites Group Cell of:Cell at:(last To)). Suddenly I don't get to move again even though I place at a cell with friendly stones in its line of sight.But this time there is no strange error message.
I hope it is not considered spamming to update the thread as I make progress. Please tell me if that is the case.
Code:
(game "Less Trivial"
(players 2)
(equipment
{
(board (square 8))
(piece "Ball" Each)
}
)
(rules
(play
(if
(= (count MovesThisTurn) 0)
(move
Add
(to (sites Empty))
(then
(and
(set
Var
(count
Pieces
Mover
in:(sites LineOfSight at:(last To))
)
)
(addScore Mover 1)
(then (if (> (var) 0) (moveAgain)))
)
)
)
(if
(not (> (count MovesThisTurn) (var)))
(move
Add
(to
(intersection
(sites Around (last To) Orthogonal)
(sites Empty)
)
)
(then (and (addScore Mover 1) (moveAgain)))
)
)
)
)
(end (if (all Passed) (byScore)))
)
)