gameServer/Actions.hs
changeset 13735 5f62417a7d84
parent 13733 3106d630d6b5
child 14292 9f0d81213d65
--- a/gameServer/Actions.hs	Sat Sep 01 00:05:55 2018 +0200
+++ b/gameServer/Actions.hs	Sat Sep 01 00:17:56 2018 +0200
@@ -733,9 +733,9 @@
 
 
 processAction (Random chans items) = do
-    let i = if null items then ["heads", "tails"] else items
+    let i = if null items then [loc "heads", loc "tails"] else items
     n <- io $ randomRIO (0, length i - 1)
-    processAction $ AnswerClients chans ["CHAT", nickRandom, i !! n]
+    processAction $ AnswerClients chans ["CHAT", if null items then nickRandomCoin else nickRandomCustom, i !! n]
 
 
 processAction (LoadGhost location) = do