Skip to content

Commit

Permalink
tutorial
Browse files Browse the repository at this point in the history
  • Loading branch information
David O'Toole committed Dec 8, 2009
1 parent 19dfa9d commit 7314f26
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion xong/xong.lisp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1909,8 +1909,10 @@ the player gets too close."))
[orient chevron-2 :west]
[drop-cell self chevron-1 10 10]
[drop-cell self chevron-2 10 20]
(dotimes (n 5)
(dotimes (n 9)
[drop-cell self (clone =hole= :nospew t) 20 (+ n 11)])
(dotimes (n 9)
[drop-cell self (clone =hole= :nospew t) 5 (+ n 11)])
(dotimes (n 5)
(let ((diamond (clone =diamond=)))
[drop-cell self diamond (+ 20 (random 5)) (+ 30 (random 10))]
Expand Down

0 comments on commit 7314f26

Please sign in to comment.