new documentation and some fixes in code

docs/manual/lua-examples.md

@@ -0,0 +1,110 @@
+# Lua Examples
+
+```lua
+Hook.Add('chatMessage', 'suicide_mod', function(msg, client)
+    if msg == '!suicide' and client.Character ~= nil then
+        client.Character.Kill(CauseOfDeathType.Unknown)
+        Game.SendMessage(client.name .. ' killed himself!', ChatMessageType.Server)
+        return true -- hide message
+    end
+end)
+```
+
+```lua
+local characters = Character.CharacterList
+local biteWoundsPrefab
+
+for k, v in pairs(AfflictionPrefab.ListArray) do
+    if v.name == "Bite wounds" then 
+       biteWoundsPrefab = v 
+       break
+    end
+end
+
+for k, v in pairs(characters) do
+   v.CharacterHealth.ApplyAffliction(v.AnimController.MainLimb, biteWoundsPrefab.Instantiate(100));
+end
+```
+
+```lua
+Hook.Add("itemApplyTreatment", "testItemApplyTreatment", function (item, user, character, targetlimb)
+    if item.name == "Bandage" then
+        local pos = character.WorldPosition
+        Game.Explode(pos, 1, 500, 5000, 5000, 5000)
+
+        Game.RemoveItem(item)
+    end
+end)
+```
+
+```lua
+-- for example: create an item in xml named RandomComponent and add the wiring inputs/outputs trigger_random and random_out
+Hook.Add("signalReceived", "signalReceivedTest", function (signal, connection)
+    if connection.Item.name == "RandomComponent" and connection.Name == "trigger_random" then
+        connection.Item.SendSignal(tostring(Random.Range(0, 100)), "random_out")
+    end
+end)
+```
+
+```lua
+local discordWebHook = "your discord webhook here"
+
+local function escapeQuotes(str)
+    return str:gsub("\"", "\\\"")
+end
+
+Hook.Add("chatMessage", "discordIntegration", function (msg, client)
+    local escapedName = escapeQuotes(client.name)
+    local escapedMessage = escapeQuotes(msg)
+
+    Networking.RequestPostHTTP(discordWebHook, '{\"content\": \"'..escapedMessage..'\", \"username\": \"'..escapedName..'\"}')
+end)
+```
+
+```lua
+local enabledPackages = Game.GetEnabledContentPackages()
+local shouldRun = false
+
+for key, value in pairs(enabledPackages) do
+    if value.Name == "MyContentPackage" then
+        shouldRun = true
+    end
+end
+
+if Game.IsDedicated then shouldRun = true end
+
+if not shouldRun then
+    return
+end
+```
+
+```lua
+-- by jimmyl
+Hook.Add("chatMessage","controlhuskcommand",function(msg, client)
+    if msg == "!controlhusk" then
+        if client.Character ~= nil then
+            if not client.Character.IsDead then
+                return true
+            end
+        end
+        if not client.InGame then
+            return true
+        end
+        
+        local chars = Character.CharacterList
+        local suitablechars = {}
+        for i = 1, #chars, 1 do
+            local charat = chars[i]
+            if not charat.IsDead and string.match(string.lower(charat.SpeciesName), "husk") and not charat IsRemotelyControlled then
+                table.insert(suitablechars, charat)
+            end
+        end
+
+        if #suitablechars >= 1 then
+            Player.SetClientCharacter(client, suitablechars[Random.Range(1, #suitablechars)])
+        end
+
+        return true -- hide message
+    end
+end)
+```