Jess - 使用随机函数添加事实

Question

我正在制作俄罗斯方块游戏，我想知道如何为我的事实添加分数。

 (deftemplate point
 (slot i(type INTEGER))
 (slot j(type INTEGER)))

 (defglobal ?*LINES* = 24)
 (defglobal ?*COLUMNS* = 12)

 (deffacts initial
 (piece 0))

 (defrule choosePiece   
 =>
 (bind ?y (mod (random) 7)) //there are 7 pieces in Tetris game
 (assert (piece ?y)))

我有一个随机规则 choosePiece，如果该规则的结果是 1，我想在坐标 (1,6) (1,7) (2,6) (2,7) 中为我的事实添加一个正方形，如果是 2，我想添加一个 T。我怎样才能做到这一点，然后创建一个规则，允许我修改这些事实的坐标以移动这些碎片。谢谢。

Answer 1

虽然你当然可以实现这个，但这将是困难和混乱的，而且在一天结束时，毫无意义。 Jess 更适合编写一个玩俄罗斯方块的机器人；我会用 Java 实现俄罗斯方块游戏本身。