You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

33 lines
1.5 KiB

(fn wrap [str limit indent indent1]
(let [indent (or indent "")
indent1 (or indent1 indent)
limit (or limit 72)
(var here (- 1 (# indent1)))
(fn check [sp st word fi]
(when (> (- fi here) limit)
(set here (- st (# indent)))
(.. "\n" indent word)))
(.. indent1 (: str :gsub "(%s+)()(%S+)()" check))
(fn reflow [str limit indent indent1]
(doto (str:gsub "%s*\n%s+" "\n")
(: :gsub "%s%s+" " ")
(: :gsub "[^\n]+" (fn [line] (wrap line limit indent indent1)))
(local words "Okay ceelo is a fun dice game. It is a point-set gambling game, kind of like craps, but is more simple, and you play it with three six-sided dice.\n\n== ROLLS ==\n\nFirst, here's what the rolls mean.\n\n1. Win conditions:\n\n- n n n (triples) = instant win.\n example: 3 3 3\n\n- 4 5 6 = instant win\n\n- n n 6 (any doubles + 6) = instant win. e.g.\n example: 2 2 6\n\n2. Loss conditions:\n\n- n n 1 (any doubles + 1) = instant loss\n example: 6 6 1\n\n- 1 2 3 = instant loss\n\n3. Points:\n\n- n n x (doubles + not 6, not 1) = establish a POINT\n example: 3 3 4\n\n\nReroll:\n\n- anything else = reroll\n\n== PLAY ==\n\nNow, here's how to play.\n\n1. Make a bet against the Bank.\n\n2. The Bank will roll and will either win, lose, or establish a point.\n\n3. If a point is established, you get to roll until you win outright or beat the point, or lose, or draw.\n\nThat's it! Go play!\n\nPress Enter to continue.\n")
(print (wrap words))
:wrap wrap
:reflow reflow