Basic combat

modules/random.scm

@@ -0,0 +1,15 @@
+(module (bd random) ()
+(import scheme
+	(chicken base)
+	(chicken module)
+	(chicken random))
+
+(export random)
+(export rand-int)
+(define random pseudo-random-real)
+(define rand-int pseudo-random-integer)
+
+(export pick-random)
+(define (pick-random lst)
+  (list-ref lst (rand-int (length lst))))
+)