# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1535753876 -7200
# Node ID 5f62417a7d84cc561538f516e9e360fab528546c
# Parent  f4c8c6a174e8c8738f6f5767f3a0e1e50229e604
Translate "heads" and "tails" of gameServer

diff -r f4c8c6a174e8 -r 5f62417a7d84 gameServer/Actions.hs
--- 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
diff -r f4c8c6a174e8 -r 5f62417a7d84 gameServer/Consts.hs
--- a/gameServer/Consts.hs	Sat Sep 01 00:05:55 2018 +0200
+++ b/gameServer/Consts.hs	Sat Sep 01 00:17:56 2018 +0200
@@ -47,8 +47,11 @@
 nickServer = "[server]"
 
 -- For /rnd command
-nickRandom :: B.ByteString
-nickRandom = "(random)"
+nickRandomCoin :: B.ByteString
+nickRandomCoin = "[random]"
+
+nickRandomCustom :: B.ByteString
+nickRandomCustom = "(random)"
 
 -- For /global command
 nickGlobal :: B.ByteString