alcoolog: use txt

1 files changed, 36 insertions, 191 deletions

diff --git a/lib/lsg_irc/alcolog_plugin.ex b/lib/lsg_irc/alcolog_plugin.ex
index 0812874..35aa206 100644
--- a/lib/lsg_irc/alcolog_plugin.ex
+++ b/lib/lsg_irc/alcolog_plugin.ex
@@ -24,128 +24,16 @@ defmodule LSG.IRC.AlcoologPlugin do
 
   Annotation: champ libre!
 
-  """
+  ---
 
-  @user_states %{
-    :sober => %{
-      false => ["n'a pas encore bu", "est actuellement sobre"],
-      true => ["commence a peine... santé"],
-    },
-    :low => %{
-      false => ["est quasiment sobre", "est entrain de redescendre et devrait reboire"],
-      true => ["commence a monter"],
-    },
-    :legal => %{
-      true => ["peut encore conduire, mais plus pour longtemps"],
-      false => ["peut reconduire", "est en route vers la sobriété"],
-    },
-    :legalhigh => %{
-      true => ["est bientôt bourraide", "peut plus conduire"],
-      false => ["commence a débourrai"],
-    },
-    :high => %{
-      true => ["est bourraide!", "est raide"],
-      false => ["est bourraide mais redescend!"],
-    },
-    :toohigh => ["est totalement bourraide", "est raiiideeeeee"],
-    :sick => ["est BEAUCOUP trop bourraide"],
-  }
-
-
-  @santai [
-    "SANTÉ",
-    "SANTAIIII",
-    "SANTAI",
-    "A LA TIENNE",
-    "CUL SEC CUL SEC",
-    "TCHIN TCHIN",
-    "LONGUE VIE",
-    "ZUM WOHL", "PROST",
-    "Կէնաձդ",
-    "Наздраве",
-    "SANTAIIIIIIIIII",
-    "AGLOU",
-    "AUNG MYIN PAR SAY",
-    "SALUD",
-    "SANTAIIIIII",
-    "ΥΓΕΙΑ",
-    "Å’KåLÀ MA’LUNA",
-    "EGÉSZSÉGEDRE",
-    "FENÉKIG",
-    "乾杯",
-    "KANPAI",
-    "TULGATSGAAYA",
-    "AGLOU AGLOU",
-    "БУДЕМ ЗДОРОВЫ",
-    "НА ЗДОРОВЬЕ",
-    "SANTAIIIIIIIIIIIII",
-    "MỘT HAI BA, YO",
-    "SKÅL",
-    "NA ZDRAVJE",
-    "AGLOUUUU AGLOUUU AGLOUUUUUUU",
-    "فى صحتك",
-    "GESONDHEID",
-    "ZHU NIN JIANKANG",
-    "祝您健康",
-    "SANTÉ",
-    "CHEERS",
-    "Nuş olsun",
-    "Živjeli",
-    "Biba",
-    "Pura vida",
-    "Terviseks",
-    "Mabuhay",
-    "Kippis",
-    "Sláinte",
-    "건배",
-    "į sveikatą",
-    "Эрүүл мэндийн төлөө",
-    "Saúde",
-    "Sanatate",
-    "živeli",
-    "Proscht",
-    "Chai yo",
-    "Choc tee",
-    "Şerefe",
-    "будьмо",
-    "Budmo",
-    "Iechyd da",
-    "Sei gesund",
-    "за наш", # Russe original. --kienma
-    ]
+  ## `!txt`s
 
-  @bad_drinks %{
-    :negative => [
-      "on peut pas boire en négatif...",
-      "tu crois que ça marche comme ça ? :s",
-      "e{{'u' | rrepeat}}h"
-    ],
-    :null => [
-      "tu me prends pas un peu pour un con là ?",
-      "zéro ? agis comme un homme et bois une pinte de whisky",
-      "gros naze",
-      "FATAL ERROR: java.lang.ArithmeticException (cannot divide by zero)",
-      "?!?!",
-      "votre médecin vous conseille de boire une bouteille de rouge cul sec plutôt"
-    ],
-    :huge => [
-      "tu veux pas aller à l'hopital plutôt ?",
-      "tu me prends pas un peu pour un con là ?",
-      "ok; j'ai appelé le SAMU, ils arrivent",
-      "j'accepterais le !santai quand tu m'auras envoyé la preuve vidéo"
-    ],
-    :eau => [
-      "Le barman, c'est moi ! C'est moi qui suis barman ! Vous êtes la police républicaine ou une bande ? Vous savez qui je suis ? Enfoncez la bouteille, camarades !",
-      "L'alcool est notre pire ennemi, fuir est lâche !",
-      "attention... l'alcool permet de rendre l'eau potable",
-      "{{'QUOI ?' | bold}}",
-      "QUO{{'I' | rrepeat}}?",
-      "{{\"COMMENT ÇA DE L'EAU ?\" | red}}",
-      "resaisis toi et va ouvrir une bonne teille de rouge...",
-      "bwais tu veux pas un \"petit\" rhum plutôt ?"
-    ]
+  * status utilisateur: `alcoolog.user_(sober|legal|legalhigh|high|toohigh|sick)(|_rising)`
+  * mauvaises boissons: `alcoolog.drink_(negative|zero|negative)`
+  * santo: `alcoolog.santo`
+  * santai: `alcoolog.santai`
 
-  }
+  """
 
   def irc_doc, do: @moduledoc
 
@@ -189,7 +77,7 @@ defmodule LSG.IRC.AlcoologPlugin do
 
   @eau ["santo", "santeau"]
   def handle_info({:irc, :trigger, santeau, m = %IRC.Message{trigger: %IRC.Trigger{args: _, type: :bang}}}, state) when santeau in @eau do
-    m.replyfun.(Tmpl.render(Enum.random(Enum.shuffle(Map.get(@bad_drinks, :eau))), m))
+    LSG.IRC.TxtPlugin.reply_random(m, "alcoolog.santo")
     {:noreply, state}
   end
 
@@ -417,9 +305,9 @@ defmodule LSG.IRC.AlcoologPlugin do
     cond do
       cl == nil -> m.replyfun.(cl_extra)
       deg == nil -> m.replyfun.(comment)
-      cl >= 500 || deg >= 100 -> m.replyfun.(Tmpl.render(Enum.random(Enum.shuffle(Map.get(@bad_drinks, :huge))), m))
-      cl == 0 || deg == 0 -> m.replyfun.(Tmpl.render(Enum.random(Enum.shuffle(Map.get(@bad_drinks, :null))), m))
-      cl < 0 || deg < 0 -> m.replyfun.(Tmpl.render(Enum.random(Enum.shuffle(Map.get(@bad_drinks, :negative))), m))
+      cl >= 500 || deg >= 100 -> LSG.IRC.TxtPlugin.reply_random(m, "alcoolog.drink_toohuge")
+      cl == 0 || deg == 0 -> LSG.IRC.TxtPlugin.reply_random(m, "alcoolog.drink_zero")
+      cl < 0 || deg < 0 -> LSG.IRC.TxtPlugin.reply_random(m, "alcoolog.drink_negative")
       true ->
         points = Alcool.units(cl, deg)
         now = m.at || DateTime.utc_now()
@@ -433,7 +321,8 @@ defmodule LSG.IRC.AlcoologPlugin do
         meta = Map.put(meta, "sex", user_meta.sex)
         :ok = :dets.insert(state.dets, {m.account.id, now, points, if(old_stats, do: old_stats.active, else: 0), cl, deg, name, comment, meta})
         true = :ets.insert(state.ets, {{m.account.id, now}, points, if(old_stats, do: old_stats.active, else: 0),cl, deg, name, comment, meta})
-        sante = @santai |> Enum.map(fn(s) -> String.trim(String.upcase(s)) end) |> Enum.shuffle() |> Enum.random()
+        #sante = @santai |> Enum.map(fn(s) -> String.trim(String.upcase(s)) end) |> Enum.shuffle() |> Enum.random()
+        sante = LSG.IRC.TxtPlugin.random("alcoolog.santai")
         k = if user_meta.sex, do: 0.7, else: 0.6
         weight = user_meta.weight
         peak = Float.round((10*points||0.0)/(k*weight), 4)
@@ -519,7 +408,7 @@ defmodule LSG.IRC.AlcoologPlugin do
         end
 
         miss = cond do
-          points <= 0.6 -> :blague
+          points <= 0.6 -> :small
           stats.active30m >= 2.9 && stats.active30m < 3 -> :miss3
           stats.active30m >= 1.9 && stats.active30m < 2 -> :miss2
           stats.active30m >= 0.9 && stats.active30m < 1 -> :miss1
@@ -534,56 +423,16 @@ defmodule LSG.IRC.AlcoologPlugin do
           true -> nil
         end
 
-        miss = case miss do
-          :blague -> [
-              "c'est une blague ?!"
-            ]
-          :miss025 -> [
-              "si peu ?"
-            ]
-          :miss05 -> [
-              "tu pourras encore conduire, faut boire plus!"
-          ]
-          :miss1 -> [
-              "alerte, tu vas rater le gramme !"
-          ]
-          :miss2 -> [
-              "petit joueur ? rater deux grammes de si peu c'est pas sérieux"
-          ]
-          :miss3 -> [
-              "même pas 3 grammes ? allez ! dernière ligne droite!"
-          ]
-          :small025 -> [
-              "tu vas quand même pas en rester là si ?"
-          ]
-          :small05 -> [
-              "c'est un bon début, faut continuer sur cette lancée !"
-            ]
-          :small1 -> [
-              "un peu plus de motivation sur le gramme et c'est parfait !"
-          ]
-          :small15 -> [
-              "essaie de garder ton gramme et demi plus longtemps !"
-          ]
-          :small2 -> [
-              "même pas une demi heure de deux grammes ? allez, fait un effort !",
-              "installe toi mieux aux deux grammes !"
-          ]
-          :small3 -> [
-              "ALLAIIIII CONTINUE FAUT MAINTENIR !",
-              "tu vas quand même pas en rester là ?"
-          ]
-          _ -> nil
-        end
         if miss do
-          msg = Enum.random(Enum.shuffle(miss))
-          for {net, chan} <- IRC.Membership.notify_channels(m.account) do
-            user = IRC.UserTrack.find_by_account(net, m.account)
-            nick = if(user, do: user.nick, else: m.account.name)
-            IRC.Connection.broadcast_message(net, chan, "#{nick}: #{msg}")
+          miss = LSG.IRC.TxtPlugin.random("alcoolog.#{to_string(miss)}")
+          if miss do
+            for {net, chan} <- IRC.Membership.notify_channels(m.account) do
+              user = IRC.UserTrack.find_by_account(net, m.account)
+              nick = if(user, do: user.nick, else: m.account.name)
+              IRC.Connection.broadcast_message(net, chan, "#{nick}: #{msg}")
+            end
           end
         end
-
     end
   end
 
@@ -654,14 +503,13 @@ defmodule LSG.IRC.AlcoologPlugin do
         active <= 2.5 -> :high
         active < 3 -> :toohigh
         true -> :sick
-      end
-      states = Map.get(@user_states, user_state)
-      list = if is_list(states) do
-        states
-      else
-        Map.get(states, rising)
-      end
-        meta = get_user_meta(state, nick)
+        end
+
+      rising_file_key = if rising, do: "_rising", else: ""
+      txt_file = "alcoolog." <> "user_" <> to_string(user_state) <> rising_file_key
+      user_status = LSG.IRC.TxtPlugin.random(txt_file)
+
+      meta = get_user_meta(state, nick)
         minutes_til_sober = h1/((meta.loss_factor/100)/60)
         minutes_til_sober = cond do
           active < 0 -> 0
@@ -689,9 +537,6 @@ defmodule LSG.IRC.AlcoologPlugin do
         since_duration = if since, do: Timex.Duration.from_minutes(since_diff)
         since_s = if since, do: Timex.Format.Duration.Formatter.lformat(since_duration, "fr", :humanized)
 
-      user_status = list
-                |> Enum.shuffle()
-                |> Enum.random()
       {total_volumes, total_gl} = user_stats(state, nick)
 
 
@@ -959,14 +804,14 @@ defmodule LSG.IRC.AlcoologPlugin do
         old_meta = get_user_meta(state, m.account.id)
         meta = Map.merge(@default_user_meta, %{sex: h, weight: weight, loss_factor: factor})
         put_user_meta(state, m.account.id, meta)
-        fat = ["t'as grossi...", "bientôt la tonne ?", "t'as encore abusé du fromage ?"]
-        thin = ["en route vers l'anorexie ?", "t'as vomi...", "t'as grossi...", "faut manger plus de fromage!"]
-        msg = cond do
-          old_meta.weight < meta.weight -> Enum.random(Enum.shuffle(fat))
-          old_meta.weight == meta.weight -> "ok"
-          true -> Enum.random(Enum.shuffle(thin))
+        cond do
+          old_meta.weight < meta.weight ->
+            LSG.IRC.TxtPlugin.reply_random(m, "alcoolog.fatter")
+          old_meta.weight == meta.weight ->
+            m.replyfun.("aucun changement!")
+          true ->
+            LSG.IRC.TxtPlugin.reply_random(m, "alcoolog.thinner")
         end
-        m.replyfun.(msg)
       end
 
     {:noreply, state}
@@ -978,7 +823,7 @@ defmodule LSG.IRC.AlcoologPlugin do
         :dets.delete_object(state.dets, obj)
         :ets.delete(state.ets, {m.account.id, date})
         m.replyfun.("supprimé: #{m.sender.nick} #{points} #{type} #{descr}")
-        m.replyfun.("faudrait quand même penser à boire")
+        LSG.IRC.TxtPlugin.reply_random(m, "alcoolog.delete")
         notify = IRC.Membership.notify_channels(m.account) -- [{m.network,m.channel}]
         for {net, chan} <- notify do
           user = IRC.UserTrack.find_by_account(net, m.account)