From: Elias Fleckenstein <eliasfleckenstein@web.de>
Date: Tue, 9 Mar 2021 18:33:02 +0000 (+0100)
Subject: Initial commit
X-Git-Url: https://git.lizzy.rs/?a=commitdiff_plain;h=78b16b0ef545f7393506f27394b33bcbeb51037b;p=furrybot.git

Initial commit
---

78b16b0ef545f7393506f27394b33bcbeb51037b
diff --git a/init.lua b/init.lua
new file mode 100644
index 0000000..70bd708
--- /dev/null
+++ b/init.lua
@@ -0,0 +1,125 @@
+local commands = {}
+local C = minetest.get_color_escape_sequence
+local http = minetest.get_http_api()
+
+local function send(msg, color)
+	minetest.send_chat_message("/me " .. C("#00FF3C") .. "[" .. C(color or "#FFFA00") .. msg .. C("#00FF3C") .. "]")
+end
+
+local function ping(player)
+	return C("#00DCFF") .. "@" .. player .. C("#FFFA00")
+end
+
+local function ping_player(player, message)
+	send(ping(player) .. ": " .. message)
+end
+
+local function ping_player_error(player, err, detail)
+	ping_player(player, C("#D70029") .. " " .. err ..  " " .. (detail and C("#FF6683") .. "'" .. detail .. "'" .. C("#D70029") or "") .. ".")
+end
+
+local function player_online(name)
+	for _, n in ipairs(minetest.get_player_names()) do
+		if name == n then
+			return true
+		end
+	end
+end
+
+minetest.register_on_receiving_chat_message(function(msg)
+	msg = minetest.strip_colors(msg)
+	if msg:find("<") == 1 then
+		local idx = msg:find(">")
+		local player = msg:sub(2, idx - 1)
+		local message = msg:sub(idx + 3, #msg)
+		if message:find("!") == 1 then
+			local args = message:sub(2, #message):split(" ")
+			local cmd = table.remove(args, 1)
+			local func = commands[cmd]
+			if func then
+				func(player, unpack(args))
+			else
+				ping_player_error(player, "Invalid command", cmd)
+			end
+		end
+	end
+end)
+
+local function check_online(name, target)
+	if name == target then
+		ping_player_error(name, "You need to specify another player")
+	elseif player_online(target) then
+		return true
+	else
+		ping_player_error(name, "Player not online", target)
+	end
+end
+
+function commands.furhug(name, target)
+	if check_online(name, target) then
+		send(name .. " hugs " .. target .. ".")
+	end
+end
+
+commands.furcuddle = commands.furhug
+
+function commands.furkiss(name, target)
+	if check_online(name, target) then
+		send(name .. " kisses " .. target .. ".")
+	end
+end
+
+local target_list = {}
+
+function commands.furbang(name, target)
+	if check_online(name, target) then
+		target_list[target] = function()
+			send(ping(name) .. " and " .. ping(target) .. " are having sex! OwO")
+		end,
+		ping_player(target, name .. " wants to have sex with you. Type !accept to accept or !deny to deny.")
+	end
+end
+
+commands.fursex = commands.furbang
+commands.furfuck = commands.furbang
+
+function commands.accept(name)
+	local func = target_list[name]
+	if func then
+		func()
+	else
+		ping_player_error(name, "Nothing to accept")
+	end			
+end
+
+function commands.deny(name)
+	if target_list[name] then
+		target_list[name] = nil
+		ping_player(name, "Denied request")
+	else
+		ping_player_error(name, "Nothing to deny")
+	end			
+end
+
+function commands.furhit(name, target)
+	if check_online(name, target) then
+		send(name .. " hits " .. target)
+	end
+end
+
+commands.furslap = commands.furhit
+
+function commands.furhelp()
+	local keys = {}
+	for k in pairs(commands) do
+		table.insert(keys, k)
+	end
+	send("Available commands: " .. table.concat(keys, ", "))
+end
+
+function commands.verse()
+	http.fetch_async({
+		url = "https://labs.bible.org/api/",
+        data = "passage=random&type=json",
+	})
+end