BleedingSprites = {} -- table, contains all images.
PLAYERS={}

--configurations:
BleedingEnabled = true -- is bleeding enabled?
BleedingChance = 33 -- chance in % of 100, leave it 0 is like you disabled it.
ImagePath = "gfx/mora/blood_by_XoOt/" -- where the images lay?
BloodtimerFadeOut = 4000 -- In MS when the bleeding parts would be removed.
SpritesInTotal = 5 --How much sprites you have in your folder. Name them from 1 to n.(n-last number)
BleedingSpeed = 7 --how much "-speed" it would set while you bleeding?

addhook("team", "_team")
function _team(id, team)
     PLAYERS[id]={
     Bleeding=false,
     Source=0
     }
end

addhook("hit", "_hit")
function _hit(id, source, weapon, hpdmg, apdmg, rawdmg)
     if not BleedingEnabled then return end
     
     if (hpdmg or apdmg or rawdmg)>0 then
          if math.random(100)<=BleedingChance then
               if not PLAYERS[id].Bleeding then
                    PLAYERS[id].Bleeding=true
                    PLAYERS[id].Source=source
                    msg2(id,"[Info]: You are bleeding!")
               else
                    PLAYERS[id].Source=source
               end
          end
     end
end

addhook("leave", "_leave")
function _leave(id, reason)
     if PLAYERS[id] then
          for _,p in pairs(player(0, "table")) do
               if p ~= id then
                    PLAYERS[p].Source=0
               end
          end
          PLAYERS[id].Bleeding=false
          PLAYERS[id].Source=0
     end
end

addhook("die", "_die")
function _die(id)
     if PLAYERS[id].Bleeding then
          PLAYERS[id].Bleeding=false
          PLAYERS[id].Source=0
     end
end

addhook("collect","_collect")
function _collect(id,iid,type)
     if type==64 or type==65 then
          if PLAYERS[id].Bleeding then
               PLAYERS[id].Bleeding=false
               PLAYERS[id].Source=0
               parse("speedmod "..id.." 0")
               msg2(id,"[Info]: You stopped to bleeding.")
          end
     end
end

addhook("second", "_second")
function _second()
     for _,id in pairs(player(0, "table")) do
          if player(id, "health")>0 then
               if PLAYERS[id].Bleeding then
                    local calculate
                    if player(id, "armor")==204 then 
                         calculate = math.random(11,12)
                    else
                         calculate = math.random(1,2)
                    end
     
                    if player(id, "health")-calculate <= 0 then
                         parse('customkill '..PLAYERS[id].Source..' \"Bleed out\" '..id)
                         PLAYERS[id].Bleeding=false
                         PLAYERS[id].Source=0
                    else
                         parse("sethealth "..id.." "..player(id, "health")-calculate)
                         parse("speedmod "..id.." -"..BleedingSpeed)
                         local x, y = player(id, 'x'), player(id, 'y')
                         bleeding_sprite(x,y)
                    end
               end
          end
     end
end

function bleeding_sprite(x,y)
     local BleedingTableSlot = 0  
     for BleedingTableSlot = 1, table.maxn(BleedingSprites) + 1, 1 do
          if BleedingSprites[BleedingTableSlot] == nil then
               BleedingSprites[BleedingTableSlot] = image(ImagePath .. math.random(1,SpritesInTotal)..".bmp<a>", x, y, 0)
               imagepos(BleedingSprites[BleedingTableSlot], x, y, math.random(0,359))
               imagecolor(BleedingSprites[BleedingTableSlot], 175, 0, 0)
               timer(BloodtimerFadeOut, "parse", 'lua tween_alpha('..BleedingSprites[BleedingTableSlot]..',5000,0)')
               timer(BloodtimerFadeOut+5000, "parse", 'lua freeimage('..BleedingSprites[BleedingTableSlot]..')')
               timer(BloodtimerFadeOut+6000, "parse", 'lua BleedingSprites['..BleedingTableSlot..']=nil')        
          return nil
          end
     end  
end