Add bullshit command from 9front

[furrybot.git] / bullshit.lua

diff --git a/bullshit.lua b/bullshit.lua
new file mode 100644 (file)
index 0000000..aa53d73
--- /dev/null
+++ b/bullshit.lua
@@ -0,0 +1,64 @@
+local http, env, storage
+local C = minetest.get_color_escape_sequence
+
+-- taken from 9front source code: /rc/bin/bullshit
+local bullshit_code = [[
+function min(a, b){
+       if(a > b)
+               return b
+       else
+               return a
+}
+function suffix(){
+       if(hassuffix = (rand() < 0.2))
+               return suffixes[int(rand() * nsuffix)]
+       return ""
+}
+$2 == "*" { protocol[nprotocol++] = $1; next }
+$2 == "$" { end[nend++] = $1; next }
+$2 == "%" { suffixes[nsuffix++] = $1; next }
+$2 == "^" { start[nstart++] = $1; next }
+$2 == "|" { noend[nword] = 1 }
+{ word[nword++] = $1; next }
+END {
+       srand()
+       last = -1
+       out = 0
+       total = int(rand() * 7) + 3
+       n = int(rand() * min(total - out, 3))
+       for(i = 0; i < n; i++)
+               printf "%s ", start[int(rand() * nstart)]
+       out += n
+       hassuffix = 0
+       n = int(rand() * min(total - out, 3))
+       for(i = 0; i < n; i++)
+               printf "%s%s ", word[last = int(rand() * nword)], suffix()
+       out += n
+       if(rand() > 0.5){
+               n = int(rand() * 3)
+               for(i = 0; i < n; i++)
+                       printf "%s %s", protocol[int(rand() * nprotocol)], (i != n-1) ? "over " : ""
+               out += n
+               last = -1
+               hassuffix = 0
+       }
+       n = int(rand() * min(total - out, 3))
+       if(out + n == 1 || last == -1)
+               n += 2
+       for(i = 0; i < n; i++)
+               printf "%s%s ", word[last = int(rand() * nword)], suffix()
+       if(rand() < 0.1 || (last >= 0 && noend[last]) || hassuffix)
+               printf "%s ", end[int(rand() * nend)]
+       print ""
+}
+]]
+
+function furrybot.commands.bullshit(name)
+       local pf = env.io.popen("awk '" .. bullshit_code .. "' clientmods/furrybot/bullshit", "r")
+       local bullshit = pf:read("*a")
+       furrybot.ping_message(name, bullshit:sub(1, #bullshit - 2), furrybot.colors.system)
+end
+
+return function(_http, _env, _storage)
+       http, env, storage = _http, _env, _storage
+end