------------------------------
--**  NAPALM MOD FOR CS2D **--
--**     2014. 03. 30.    **--
------------------------------

function napalm1(id,x,y,power)
        local x = x*32+16
        local y = y*32+16
        parse("setmoney "..id.." "..player(id, "money") -1000*power)
        parse("explosion "..x.." "..y.." "..power*100 .." "..power*10+10)
        parse("effect fire "..x.." "..y.." "..power*10000 .." "..power*90)
        parse("effect colorsmoke "..x.." "..y.." "..power*80 .." "..power*80)
end

function napalm2(id,x,y,power)
        local x = x*32+16
        local y = y*32+16
        parse("setmoney "..id.." "..player(id, "money") -2000*power)
        parse("explosion "..x.." "..y.." "..power*200 .." "..power*20+20)
        parse("effect fire "..x.." "..y.." "..power*20000 .." "..power*120)
        parse("effect colorsmoke "..x.." "..y.." "..power*100 .." "..power*100)
end

function napalm3(id,x,y,power)
        local x = x*32+16
        local y = y*32+16
        parse("setmoney "..id.." "..player(id, "money") -3000*power)
        parse("explosion "..x.." "..y.." "..power*200 .." "..power*30+30)
        parse("effect fire "..x.." "..y.." "..power*30000 .." "..power*220)
        parse("effect colorsmoke "..x.." "..y.." "..power*200 .." "..power*200)
end

function napalm4(id,x,y,power)
        local x = x*32+16
        local y = y*32+16
        parse("setmoney "..id.." "..player(id, "money") -4000*power)
        parse("explosion "..x.." "..y.." "..power*300 .." "..power*30+30)
        parse("effect fire "..x.." "..y.." "..power*40000 .." "..power*520)
        parse("effect colorsmoke "..x.." "..y.." "..power*300 .." "..power*200)
end

function napalm5(id,x,y,power)
        local x = x*32+16
        local y = y*32+16
        parse("setmoney "..id.." "..player(id, "money") -5000*power)
        parse("explosion "..x.." "..y.." "..power*300 .." "..power*30+30)
        parse("effect fire "..x.." "..y.." "..power*50000 .." "..power*820)
        parse("effect colorsmoke "..x.." "..y.." "..power*400 .." "..power*400)
end

function GetHealth(id)
    return player(id, "health");
end

--- Support for Raining Mammoths
function string.split(str,pat)
    local t = {}
    for word in string.gmatch(str,pat or "[^%s]+") do
        t[#t+1] = word
    end
    return t
end

addhook("say","getNapalm")
    function getNapalm(id,t)
    local cmd = t:split{}
    if cmd[1] == "!napalm" then
        napalm1(id,tonumber(cmd[2]),tonumber(cmd[3]))
    end
end