addhook("join", "examples_lua__join")
function examples_lua__join(id)
	local countryname = geoip_lookup(player(id, "ip"))
	local rank = rank_get(player(id, "usgn"), 30)
	if rank > 30 then
		msg(string.format("%s joins from %s", player(id, "name"), countryname))
	else
		msg(string.format("©165255127| Rank: %d |  %s joins from %s", rank, player(id, "name"), countryname))
	end
	if rank == 1 then 
		msg(string.format("©165255127| Rank: %d |  %s joins from %s@C", rank, player(id, "name"), countryname))
	end
	
end

so vote in poll



CS2D_ROOT = "./"


function errortoconsole(str)
	print("ERROR: " .. str)
end

function splitline(str, sep)
	local a = {}
	local function f(s) table.insert(a, s) return "" end
	f((str:gsub("(.-)" .. sep, f)))
	return a
end

function _tonumber(val)
	local ret = tonumber(val)
	if ret == nil then ret = 0 end
	return ret
end

function player_safe(id, param)
	local ret = player(id, param)
	return ret ~= false and ret or 0
end



local _timer_funcs = {}
local _timer_args = {}
local _timer_idcounter = 0

function settimeout(ms, func, arg)
	_timer_idcounter = _timer_idcounter + 1
	
	timerid = tostring(_timer_idcounter)
	_timer_funcs[timerid] = func
	_timer_args[timerid] = arg
	
	timer(ms, "_timer_ontimer", timerid)
end

function _timer_ontimer(timerid)
	_timer_funcs[timerid](_timer_args[timerid])
	_timer_funcs[_timer_idcounter] = nil
	_timer_args[_timer_idcounter] = nil
end



local _consolecommands = {}

function cmd(name, func)
	_consolecommands[name] = func
end

function execcmd(name, args)
	_consolecommands[name](args)
end

addhook("parse","utils_lua__parse")
function utils_lua__parse(str)
	local ret = 0

	local cmds = splitline(str, ";")
	for _,cmd in pairs(cmds) do
		local cmdname = cmd:match("%s*([_%w]+)")
		if _consolecommands[cmdname] ~= nil then
			local args = splitline(cmd, "%s+")
			table.remove(args, 1)
			_consolecommands[cmdname](args) 
			ret = 1
		end
	end
	
	return ret
end


function createimage(filename, x, y, mode, scale, blend, rot, alpha)
		local im = image(filename, x, y, mode)
		
		if alpha ~= nil then imagealpha(im, alpha) end
		if blend ~= nil then imageblend(im, blend) end
		if scale ~= nil then imagescale(im, scale, scale) end
		if rot ~= nil then imagepos(im, x, y, rot) end
		
		return im
end


if GEOIP_LUA ~= nil then return end
GEOIP_LUA = 1

local geoip_ranges = {}

function geoip_lookup(ipstr)
	if geoip_ranges == nil then return "<ERROR>", "<ERROR>" end
	
	local a,b,c,d = ipstr:match("^(%d+)%.(%d+)%.(%d+)%.(%d+)$")
	local ip = a*16777216 + b*65536 + c*256 + d
	
	local s = 1
	local e = #geoip_ranges
	local i = 0
	while s <= e do
		i = math.floor((s+e)/2)
		local range = geoip_ranges[i]
		if range[1] <= ip and range[2] >= ip then
			return range[4], range[3]
		elseif range[1] > ip then
			e = i - 1
		else
			s = i + 1
		end
	end
	return "<UNKNOWN>", "<UNKNOWN>"
end

function geoip_loaddb()
	local f = io.open("geoipdb", "r")
	if f == nil then
		if _geoip_csv2lua() then 
			f = io.open("geoipdb", "r") 
		else
			return
		end
	end
	
	print("started loading geoip database")
	local tm = os.clock()
	
	local f1, f2, f3, f4
	for line in io.input(f):lines() do
		f1, f2, f3, f4 = line:match("(.-)|(.-)|(.-)|(.-)$")
		table.insert(geoip_ranges, {tonumber(f1), tonumber(f2), f3, f4})
	end
	
	print("geoip database loaded in " .. os.clock() - tm .. " seconds")
	
	f:close()
end

function _geoip_csv2lua()
	local f = io.open("sys/lua/GeoIPCountryWhois.csv", "r")
	if f == nil then
		print("\r")
		print("GeoIPCountryWhois.csv not found")
		print("Download GeoLite Country database from www.maxmind.com")
		print("http://geolite.maxmind.com/download/geoip/database/GeoIPCountryCSV.zip")
		print("\r")
		return false
	end
	
	print("generating geoipdb file...")
	io.output("geoipdb")
	local tm = os.clock()
	for line in io.input(f):lines() do
		loadstring("geoip_ln={" .. line .. "}")()
		io.write(geoip_ln[3] .. "|" .. geoip_ln[4] .. "|".. geoip_ln[5]:upper() .. "|" .. geoip_ln[6]:upper() .. "\n")
	end
	print("geoipdb generated in " .. os.clock() - tm .. " seconds")
	io.close()
	f:close()
	
	return true
end

geoip_loaddb()


if POWERS_LUA ~= nil then return end
POWERS_LUA = 1

POWER_INVINCIBILITY = 1
POWER_ONESHOTKILL = 2
POWER_FORCEFIELD = 3
POWER_SPEED = 4
POWER_MONEY = 5

local power_enabled = false
local power_flags = {}
local power_forcefieldimgs = {}


function power_enable(enable)
	if enable ~= nil then
		if enable then
			addhook("hit", "powers_lua__hit")
			addhook("join", "powers_lua__join")
			addhook("spawn", "powers_lua__spawn")
			addhook("objectdamage", "powers_lua__objectdamage")
			for _,id in ipairs(player(0,"table")) do
				power_flags[id] = {}
			end
		else
			freehook("hit", "powers_lua__hit")
			freehook("join", "powers_lua__join")
			freehook("spawn", "powers_lua__spawn")
			freehook("objectdamage", "powers_lua__objectdamage")
			for id in pairs(power_forcefieldimgs) do
				power_destroyforcefield(id)
			end
		end
		power_enabled = enable
	end
	
	return power_enabled
end

function power_set(id, power, enable)
	power_flags[id][power] = enable
	
	if power == POWER_FORCEFIELD then
		if enable then
			power_createforcefield(id)
			power_forcefieldlooppl(id)
			power_forcefieldloopbld(id)
		else
			power_destroyforcefield(id)
		end
	elseif power == POWER_SPEED then
		parse("speedmod " .. id .. " " .. (enable and 200 or 0))
	elseif power == POWER_MONEY then
		power_moneyloop(id)
	end
end

function power_get(id, power)
	return power_enabled and not player(id, "bot") and player(id, "exists") and power_flags[id][power] == true
end



function powers_lua__join(id)
	power_flags[id] = {}
	settimeout(200, 
		function()
			power_destroyforcefield(id)
		end
	)
end

function powers_lua__hit(id,source,weapon,hpdmg,apdmg)
	if power_get(id, POWER_INVINCIBILITY) then
		return 1
	end
	
	if power_get(source, POWER_ONESHOTKILL) then
		if game("sv_friedlyfire") == 1 or player(source, "team") ~= player(id, "team") then
			parse(string.format('customkill %d %s %d', source, itemtype(player(source, "weapon"), "name"), id))
			return 1
		end
	end
end

function powers_lua__spawn(id)
	if power_get(id, POWER_SPEED) then 
		parse("speedmod " .. id .. " 200")
	end
	if power_get(id, POWER_FORCEFIELD) then 
		settimeout(50, 
			function()
				power_createforcefield(id)
			end
		)
	end
	
end

function powers_lua__objectdamage(id,damage,player)
	if power_get(player, POWER_ONESHOTKILL) then
		parse(string.format("explosion %d %d 2 200000", object(id, "x")+16, object(id, "y")+16))
	end
end

function power_createforcefield(id)
	power_destroyforcefield(id)
	power_forcefieldimgs[id] = createimage("gfx/sprites/flare3.bmp", 1, 0, 100+id, nil, 1, 0, 0.9)
end

function power_destroyforcefield(id)
	if power_forcefieldimgs[id] == nil then return end
	
	freeimage(power_forcefieldimgs[id])
	power_forcefieldimgs[id] = nil
end

function power_moneyloop(id)
	if not power_get(id, POWER_MONEY) then return end
	
	if player(id, "money") < 16000 then
		parse("setmoney " .. id .. " 16000")
	end
	settimeout(1000, power_moneyloop, id)
end

function power_forcefieldlooppl(id)
	if not power_get(id, POWER_FORCEFIELD) then return end

	if player(id, "health") > 0 then
		local cx = player(id, "x")
		local cy = player(id, "y")
		for _,v in ipairs(player(0,"table")) do
			if math.pow(cx - player(v, "x"), 2) + math.pow(cy - player(v, "y"), 2) < 5000 then
				if player(v, "health") > 0 then
					if v ~= id then parse("killplayer " .. v) end
				end
			end
		end
	end
	settimeout(300, power_forcefieldlooppl, id)
end

function power_forcefieldloopbld(id)
	if not power_get(id, POWER_FORCEFIELD) then return end

	if player(id, "health") > 0 then
		local cx = player(id, "tilex")
		local cy = player(id, "tiley")
		for _,v in ipairs(object(0,"table")) do
			if math.pow(cx - object(v, "tilex"), 2) + math.pow(cy - object(v, "tiley"), 2) < 6 then
				parse(string.format('effect "colorsmoke" %d %d 1 30 255 255 255', object(v, "x")+15, object(v, "y")+15))
				parse("killobject " .. v)
			end
		end
	end
	settimeout(500, power_forcefieldloopbld, id)
end

cmd("powerenable",
	function(args)
		if #args == 1 then
			power_enable(args[1] == "1")
		end
		print(power_enable() and "enabled" or "disabled")
	end
)

cmd("powerset",
	function(args)
		if not power_enable() then 
			errortoconsole("enable first")
			return
		end
		if #args ~= 3 then
			errortoconsole("args")
			return
		end
		
		power_set(_tonumber(args[1]), _tonumber(args[2]), args[3] == "1")
	end
)


freehook("hit", "powers_lua__hit")
freehook("join", "powers_lua__join")
freehook("spawn", "powers_lua__spawn")
freehook("objectdamage", "powers_lua__objectdamage")



if RANK_LUA ~= nil then return end
RANK_LUA = 1

local INTERVAL = 60
local rank_players = {}
local rank_nextrefresh = 0
local rank_refreshedrows = 0

function rank_get(usgn, maxrows)
	if maxrows == nil then maxrows = math.huge end
	if os.clock() > rank_nextrefresh or maxrows > rank_refreshedrows then rank_refreshtable(maxrows) end
	local stats = rank_players[usgn]
	return stats ~= nil and rank_players[usgn][1] or math.huge
end

function rank_refreshtable(maxrows)
	local buff
	
	rank_players = {}
	
	local f = io.open(CS2D_ROOT .. "sys/stats/userstats.dat", "rb")
	if f == nil then return end
	
	f:read("*l")
	for i = 1, maxrows do
		local stats = {}
		
		stats[1] = i
		
		buff = f:read("*l")
		if buff == nil then break end
		stats[2] = buff
		
		buff = f:read(20)
		if buff == nil then break end
		for i = 1, 20, 4 do
			table.insert(stats, binstr2num(string.sub(buff, i, i+4)))
		end
		rank_players[stats[3]] = stats
		rank_refreshedrows = i
	end
	
	f:close()
	
	rank_nextrefresh = os.time() + INTERVAL
	if maxrows == math.huge then rank_refreshedrows = math.huge end
end


function binstr2num(str)
	local b1, b2, b3, b4 = string.byte(str, 1, 4)
	return b4 * 0x100000 + b3 * 0x10000 + b2 * 0x100 + b1
end


rank_refreshtable(math.huge)