Lua Xikini's Free Scripting Service TFS 1.4.2

function onKill(creature, target)
    local monsterName = "Verminor"
    if target:getName() ~= monsterName then
        return true
    end

    local rewardedPlayers = {}

    for pid, _ in pairs(target:getDamageMap()) do
        if not rewardedPlayers[pid] then
            local attackerPlayer = Player(pid)
            if attackerPlayer then
                attackerPlayer:addItem(2160, 30)
                attackerPlayer:addLevel(2)
                creature:sendTextMessage(MESSAGE_INFO_DESCR, "Congratulations.")
                rewardedPlayers[pid] = true
            end
        end
    end
    return true
end

local fireDaggerId = 2418
local fire_percent = 5
local fire_damage = {}


local weapon = Weapon(WEAPON_SWORD)

local combat = Combat()
combat:setParameter(COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

function onGetFormulaValues(player, skill, attack, factor)
    local min = 0
    local max = getMaxWeaponDamage(player:getLevel(), skill, (attack * GLOBAL_vocationMultipliers[player:getVocation():getId()].meleeDamage), factor)
    local damage = normal_random_range(min, max)
    fire_damage[player:getId()] = math.floor(((damage / 100) * fire_percent) + 0.5)
    local target = player:getTarget()
    damage, effect = target:calculateDamageAfterArmorandDefence(damage)
    target:getPosition():sendMagicEffect(effect)
    return -damage, -damage
end

combat:setCallback(CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")


local combat_fire = Combat()
combat_fire:setParameter(COMBAT_PARAM_TYPE, COMBAT_FIREDAMAGE)

function onGetFormulaValues(player, skill, attack, factor)
    local fireDamage = fire_damage[player:getId()]
    fire_damage[player:getId()] = nil
    return -fireDamage, -fireDamage
end

combat_fire:setCallback(CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")


function weapon.onUseWeapon(player, variant)
    if player:getSkull() == SKULL_BLACK then
        return false
    end

    combat:execute(player, variant)
    combat_fire:execute(player, variant)
    return true
end

weapon:id(fireDaggerId)
weapon:register()

dofile('data/lib/core/xikiniCustomFunctions.lua')

-- Xikini's Shitty™ Weapon Handling for Physical Melee Weapons

function parseVocationFormulas(xmlContent)
    local vocations = {}

    local pattern = "<vocation%s+id=\"(.-)\".-<formula%s+meleeDamage=\"(.-)\"%s+distDamage=\"(.-)\"%s+defense=\"(.-)\"%s+armor=\"(.-)\"%s*/>"
    
    for id, meleeDamage, distDamage, defense, armor in xmlContent:gmatch(pattern) do
        vocations[tonumber(id)] = {
            meleeDamage = meleeDamage,
            distDamage = distDamage,
            defense = defense,
            armor = armor
        }
    end

    return vocations
end

-- Function to read the XML content from a file
function readXmlFile(filePath)
    local file = io.open(filePath, "r")
    if not file then
        error("Cannot open file: " .. filePath)
        return nil
    end
    local content = file:read("*all")
    file:close()
    return content
end

local filePath = "data/XML/vocations.xml"
local xmlContent = readXmlFile(filePath)
GLOBAL_vocationMultipliers = parseVocationFormulas(xmlContent)


weaponTypesToSkillType = {
    [WEAPON_SWORD] = SKILL_SWORD,
    [WEAPON_CLUB] = SKILL_CLUB,
    [WEAPON_AXE] = SKILL_AXE
}


function Creature.getDefense(self)
    -- shield and melee weapon
    local defense = 0
 
    if self:isMonster() then
        defense = self:getType():defense()
     
    elseif self:isPlayer() then
        -- if no weapon or shield do fist fighting
        local defenseSkill = self:getSkillLevel(SKILL_FIST)
        local defenseValue = 7;
     
        local weapon = self:getSlotItem(CONST_SLOT_LEFT)
        local weaponDefense = 0
        local weaponExtraDefense = 0
     
        local shield = self:getSlotItem(CONST_SLOT_RIGHT)
        local shieldDefense = 0
 
        if weapon then
            local weaponItemType = ItemType(weapon:getId())
         
            if weapon:hasAttribute(ITEM_ATTRIBUTE_DEFENSE) then
                weaponDefense = weapon:getAttribute(ITEM_ATTRIBUTE_DEFENSE)
            else
                weaponDefense = weaponItemType:getDefense()
            end
            if weapon:hasAttribute(ITEM_ATTRIBUTE_EXTRADEFENSE) then
                weaponExtraDefense = weapon:getAttribute(ITEM_ATTRIBUTE_EXTRADEFENSE)
            else
                weaponExtraDefense = weaponItemType:getExtraDefense()
            end
         
            defenseValue = weaponDefense + weaponExtraDefense
            local skillType = weaponTypesToSkillType[weaponItemType:getWeaponType()]
            defenseSkill = skillType and self:getSkillLevel(skillType) or 0
        end
 
        if shield then
            local shieldItemType = ItemType(shield:getId())
         
            if shield:hasAttribute(ITEM_ATTRIBUTE_DEFENSE) then
                shieldDefense = shield:getAttribute(ITEM_ATTRIBUTE_DEFENSE)
            else
                shieldDefense = shieldItemType:getDefense()
            end
     
            defenseValue = weapon and shieldDefense + weaponExtraDefense or shieldDefense
            defenseSkill = self:getSkillLevel(SKILL_SHIELD)
        end
     
        if defenseSkill == 0 then
            if self:getFightMode() == FIGHTMODE_DEFENSE then
                return 2
            else
                return 1
            end
        end
     
        defense = (defenseSkill / 4. + 2.23) * defenseValue * 0.15 * GLOBAL_vocationMultipliers[self:getVocation():getId()].defense
    end
 
    return defense
end

function Creature.getArmor(self)
    local armor = 0
 
    if self:isMonster() then
        armor = self:getType():armor()

    elseif self:isPlayer() then
        -- loop through equipment, finding armor and adding together
        for slotItem = 1, 10 do
            if slotItem ~= CONST_SLOT_LEFT and slotItem ~= CONST_SLOT_RIGHT then
                local item = self:getSlotItem(slotItem)
                if item then
                    if item:hasAttribute(ITEM_ATTRIBUTE_ARMOR) then
                        armor = armor + item:getAttribute(ITEM_ATTRIBUTE_ARMOR)
                    else
                        armor = armor + ItemType(item:getId()):getArmor()
                    end
                end
            end
        end
 
    end
 
    return armor
end

function Creature.calculateDamageAfterArmorandDefence(self, damage)
    local effect = CONST_ME_NONE
    local checkArmor = true
   
    local defense = self:getDefense()
    damage = damage - (math.random(defense / 2, defense))
    if damage <= 0 then
        damage = 0
        checkArmor = false
        effect = CONST_ME_POFF
    end

    if checkArmor then
        local armor = math.max(self:getArmor(), 1)
        damage = damage - (math.random(armor / 2, armor - (armor % 2 + 1)))
        if damage <= 0 then
            damage = 0
            effect = CONST_ME_BLOCKHIT
        end
    end
   
    return math.floor(damage + 0.5), effect
end

function normal_random(mean, std_dev)
    local u1 = math.random()
    local u2 = math.random()
    local z0 = math.sqrt(-2.0 * math.log(u1)) * math.cos(2.0 * math.pi * u2)
    -- Use z0 for the normal random number (z1 would be the second number, not used here)
    return z0 * std_dev + mean
end

-- Function to generate a random integer within a range based on a normal distribution
function normal_random_range(minNumber, maxNumber)
    local mean = 0.5
    local std_dev = 0.25
    local v
    repeat
        v = normal_random(mean, std_dev)
    until v >= 0.0 and v <= 1.0

    local a, b = math.min(minNumber, maxNumber), math.max(minNumber, maxNumber)
    return math.floor(a + (b - a) * v + 0.5) -- Using floor(x + 0.5) to round to the nearest integer
end

function getMaxWeaponDamage(playerLevel, skillLevel, attackValue, attackFactor)
    return math.ceil((playerLevel / 5) + (((((skillLevel / 4.) + 1) * (attackValue / 3.)) * 1.03) / attackFactor))
end

<event class="Player" method="onLoseExperience" enabled="1" />

function onDeath(player, corpse, killer, mostDamageKiller, lastHitUnjustified, mostDamageUnjustified)
    if player:hasFlag(PlayerFlag_NotGenerateLoot) or player:getVocation():getId() == VOCATION_NONE then
        return true
    end
   
    local protectedPlayer = false
    local level = player:getLevel()
    for k, v in pairs(GLOBAL_protectedPlayerRanges) do
        if level <= k[2] and level >= k[1] then
            if not v.dropLoot then
                protectedPlayer = true
            end
            break
        end
    end

    if not protectedPlayer then
        local amulet = player:getSlotItem(CONST_SLOT_NECKLACE)
        local isRedOrBlack = table.contains({SKULL_RED, SKULL_BLACK}, player:getSkull())
        if amulet and amulet.itemid == ITEM_AMULETOFLOSS and not isRedOrBlack then
            local isPlayer = false
            if killer then
                if killer:isPlayer() then
                    isPlayer = true
                else
                    local master = killer:getMaster()
                    if master and master:isPlayer() then
                        isPlayer = true
                    end
                end
            end
   
            if not isPlayer or not player:hasBlessing(6) then
                player:removeItem(ITEM_AMULETOFLOSS, 1, -1, false)
            end
        else
            for i = CONST_SLOT_HEAD, CONST_SLOT_AMMO do
                local item = player:getSlotItem(i)
                local lossPercent = player:getLossPercent()
                if item then
                    if isRedOrBlack or math.random(item:isContainer() and 100 or 1000) <= lossPercent then
                        if (isRedOrBlack or lossPercent ~= 0) and not item:moveTo(corpse) then
                            item:remove()
                        end
                    end
                end
            end
        end
    end

    if not player:getSlotItem(CONST_SLOT_BACKPACK) then
        player:addItem(ITEM_BAG, 1, false, CONST_SLOT_BACKPACK)
    end
    return true
end

GLOBAL_protectedPlayerRanges = {
    [{0, 24}] = {dropLoot = false, loseSkills = false, loseExperience = false},
    [{25, 49}] = {dropLoot = true, loseSkills = false, loseExperience = false},
    [{50, 100}] = {dropLoot = true, loseSkills = false, loseExperience = true}
}

local creatureevent = CreatureEvent("onPrepareDeath_playerLosesNothing")

function creatureevent.onPrepareDeath(creature, killer)
    local level = creature:getLevel()
    for k, v in pairs(GLOBAL_protectedPlayerRanges) do
        if level <= k[2] and level >= k[1] then
            if not v.dropLoot then
                creature:setDropLoot(false)
            end
            if not v.loseSkills then
                creature:setSkillLoss(false)
            end
        end
    end
    return true
end

creatureevent:register()


local creatureevent = CreatureEvent("onLogin_playerLosesNothing")

function creatureevent.onLogin(player)
    player:registerEvent("onPrepareDeath_playerLosesNothing")
    return true
end

creatureevent:register()


local ec = EventCallback

ec.onLoseExperience = function(self, exp)
    local level = self:getLevel()
    for k, v in pairs(GLOBAL_protectedPlayerRanges) do
        if level <= k[2] and level >= k[1] then
            if not v.loseExperience then
                exp = 0
            end
            break
        end
    end
    return exp
end

ec:register()

local multiclient_limit = 3
local countGMTowardsLimit = false

-- END OF CONFIG

GLOBAL_PLAYER_IPS = GLOBAL_PLAYER_IPS or {
--    [ip_string] = {{playerId}, {playerId}}
}

local function pruneIp(ip, logout)
    if GLOBAL_PLAYER_IPS[ip] then
        for i = #GLOBAL_PLAYER_IPS[ip], 1, -1 do
            local player = Player(GLOBAL_PLAYER_IPS[ip][i])
            if not player then
                GLOBAL_PLAYER_IPS[ip][i] = nil
            end
        end
        if logout and #GLOBAL_PLAYER_IPS[ip] == 0 then
            GLOBAL_PLAYER_IPS[ip] = nil
        end
    end
end

local function pruneIpList(ipList)
    pruneIp(ipList[1], true)
    ipList[1] = nil
    if #ipList > 0 then
        addEvent(pruneIpList, 0, ipList)
    end
end

local function removePlayer(playerId)
    local player = Player(playerId)
    if not player then
        return
    end
    player:remove()
end

local function multiclientLimitReached(player)
    local nm = NetworkMessage()
    nm:addByte(0x14)
    nm:addString("Multiclient limit reached. Unable to login.")
    nm:sendToPlayer(player)
    nm:delete()
end


local creatureevent = CreatureEvent("onLogin_multiClientLimiter")

function creatureevent.onLogin(player)
    if player:getGroup():getAccess() and not countGMTowardsLimit then
        return true
    end
    local ip = player:getIp()
    if not GLOBAL_PLAYER_IPS[ip] then
        GLOBAL_PLAYER_IPS[ip] = {}
    end
    pruneIp(ip)
    if #GLOBAL_PLAYER_IPS[ip] >= math.min(multiclient_limit, 4) then
        multiclientLimitReached(player)
        addEvent(removePlayer, 0, player:getId())
        return true
    end
    GLOBAL_PLAYER_IPS[ip][#GLOBAL_PLAYER_IPS[ip] + 1] = player:getId()
    return true
end

creatureevent:register()


local creatureevent = CreatureEvent("onLogout_multiClientLimiter")

function creatureevent.onLogout(player)
    local ip = player:getIp()
    pruneIp(ip, true)
    return true
end

creatureevent:register()


local globalevent = GlobalEvent("onThink_multiClientLimiter")

function globalevent.onThink()
    local ipList = {}
    for ip, _ in pairs(GLOBAL_PLAYER_IPS) do
        ipList[#ipList + 1] = ip
    end
    pruneIpList(ipList)
    return true
end

globalevent:interval(1800000)
globalevent:register()