~technomancy/tremendous-quest-iv

tremendous-quest-iv/moods.fnl -rw-r--r-- 181 bytes
a3c24536Phil Hagelberg Bump to Fennel 0.9.1; fix some bugs. 5 months ago
                                                                                
1
2
3
4
5
6
7
8
9
10
(local max-mood 15)

(local moods [:happy :foul :neutral])

(fn mood-name [mood]
  (if (<= 10 mood) :happy
      (< mood 0) :foul
      :neutral))

{: max-mood : moods : mood-name}