Knife user servers

safe = {}

for _,e in pairs(entitylist()) do
   if entity(e.x,e.y,"typename") == "Env_Hurt" and entity(e.x,e.y,"int0") == -100 and entity(e.x,e.y,"int1") == 2 then
      local x=e.x
      local y=e.y
      local x2=(e.x-1)+entity(e.x,e.y,"int2")
      local y2=(e.y-1)+entity(e.x,e.y,"int3")
      
      table.insert(safe,{11,35,0,18})
   end
end

function init_array(length,mode)
   local array = {}
   for i = 1,length do
      array[i] = mode   
   end
   return array
end

player_safe = init_array(32,false)

addhook("movetile","movetile")
addhook("hit","hit")

function hit(id)
   if player_safe[id] then
      return 1
   end
   return 0
end

function movetile(id,x,y)
   for i in ipairs(safe) do
      if x >= safe[i][1] and x <= safe[i][2] and y >= safe[i][3] and y <= safe[i][4] then
         player_safe[id] = true
         break
      else
         player_safe[id] = false
      end
   end   
   update_hud(id)
end

function update_hud(id)
   if player_safe[id] then
      parse("hudtxt2 "..id.." 1 \"SAFE ZONE\" 318 200 1")
   else
      parse("hudtxt2 "..id.." 1 \"\" 300 210 0")
   end
end

rank = {
    [1] = {
          user = {1,1234};
          spawn = {100,100};    -DONT MODIFY
    };
    [2] = {
          user = {1,1234};
          spawn = {1311,1311};  -DONT MODIFY
    };
    [3] = {
          user = {1,1234};
          spawn = {1500,1300};  -DONT MODIFY
    };
    [4] = {
          user = {1,1234};
          spawn = {2200,1400};  -DONT MODIFY
    };
}

addhook('spawn','hook_spawn')
function hook_spawn(id)
    go_spawn(id)
end

function check_rank(id)
    for _, i in pairs(rank) do
          for k, v in pairs(i.user) do
              if player(id,'usgn') == v then
                    return _
              end
          end
    end
    return 0
end

function no_user(id)
    if check_rank(id) > 0 then
          return true
    end
    return false
end

function go_spawn(id)
    if no_user(id) then
          parse('setpos '..id..' '..rank[check_rank(id)].spawn[1]..' '..rank[check_rank(id)].spawn[2])
    end
end