-----------------------------------------------------
-- Unknown Driff Script by Spook MQuest Hacker --
-- 02.22.2012 - Spook MQuest Hacker --
-- Play Script Game to your server --
-----------------------------------------------------

-------------------
-- Game Settings --
-------------------
adminlist = {63171}
parse('hudtxt 4 "©255200000Zombie Figther" 247 13')
parse("sv_gamemode 4")          -- Zombie Game Mode
parse("mp_randomspawn 1")     -- Random Spawning
parse("mp_infammo 1")          -- Infinite Ammo

-----------------------
-- INITIAL SETUP --
-----------------------
function initArray(m)
     local array = {}
     for i = 1, m do
          array[i]=0
     end
     return array
end
v66={}
zacer={}
zaxer=50 --radius of radar
zazer=initArray(32,true) --turned on/off
zaler=initArray(32,true) --rotation arrow on/off
zaker=initArray(1024,0)
zajer=initArray(32,0)
class=initArray(32)
function classmenu(id)
menu(id,"Select your Class,Deficult Zombie,Runner Zombie,Boomer Zombie,Builder Zombie")
end

addhook("team","classesteam")
function classesteam(id,team)
     if (team==0) then
          class[id]=0
     end
     if (team==1) then
          classmenu(id)
     end
     if (team==2) then
          class[id]=0
     end
end

addhook("serveraction","classesserveraction")
function classesserveraction(id)
     classmenu(id)
end

addhook("menu","classesmenu")
function classesmenu(id,menu,sel)
     if (menu=="Select your Class") then
          if (sel>=1 and sel<=4) then
               class[id]=sel
                    if (player(id,"health")>0) then
                    parse("killplayer "..id)
               end
          end
     end
end

addhook("spawn","classesspawn")
function classesspawn(id,player)
     -- Deficult Zombie
     if (class[id]==1) then
          parse ("setmaxhealth "..id.." 150")
          parse ("setarmor "..id.." 200")
          parse ("speedmod "..id.." 0")
          parse("makect "..player)
          return "86";
     end
     -- Runner Zombie
     if (class[id]==2) then
          parse ("setmaxhealth "..id.." 150")
          parse ("setarmor "..id.." 250")
          parse ("speedmod "..id.." 5")
          parse("makect "..player)
          return "86";
     end
     -- Boomer Zombie
     if (class[id]==3) then
          parse ("setmaxhealth "..id.." 1")
          parse ("setarmor "..id.." 0")
          parse ("speedmod "..id.." 1")
          parse ("makect "..player)
          return "72,86";
     end
     -- Builder Zombie
     if (class[id]==4) then
          parse ("setmaxhealth "..id.." 125")
          parse ("setarmor "..id.." 75")
          parse ("speedmod "..id.." -2")
          parse ("makect "..player)
          return "86,74";
     end
end

addhook("buy","classesbuy")
function classesbuy()
     return 1
end

---------------
-- Radar Mod --
---------------
function zader(iid,id,img,x,y,rot,mode)
     if img[iid]==0 then
          if mode==1 then
               img[iid]=image("gfx/hud_dot.bmp",x,y,2,id)
          else
               img[iid]=image("gfx/rotation_arrow.bmp",x,y,2,id)
          end
     end
          imagepos(img[iid],x,y,rot)
     if mode==2 then
          imagecolor(img[iid],255,255,0)
     else
          imagecolor(img[iid],255,0,0)
          imagescale(img[iid],0.3,0.3)
     end
end
function zamer(iid,img)
     if img[iid]~=0 then
          freeimage(img[iid])
          img[iid]=0
     end
end

function zaner(id)
     local a,x,y
     for i=1,32 do
          if (player(i,"exists")) and (player(i,"team")==3-player(id,"team")) and (player(i,"health")>0) then
               x=(player(i,"x")-player(id,"x"))/8
               y=(player(i,"y")-player(id,"y"))/8
               a=zaxer/math.sqrt(x^2+y^2)
               if a<1 then
                    x=x*a
                    y=y*a
               end
               x=x+53
               y=y+53
               zader(id+32*(i-1),id,zaker,x,y,0,1)
          else
               zamer(id+32*(i-1),zaker)
          end
     end
end

addhook("always","zaber")
function zaber()
     for id=1,32 do
          if player(id,"exists") and player(id,"team")>0 and (player(id,"health")>0) then
               if zazer[id] then
                    zaner(id)
               end
               if zaler[id] then
                    zader(id,id,zajer,53,53,player(id,"rot"),2)
               end
          else
               for i=1,32 do
                    zamer(id+32*(i-1),zaker)
               end
               zamer(id,zajer)
          end
     end
end

addhook("startround","zaver")
function zaver()
     zaker=initArray(1024,0)
     zajer=initArray(32,0)
end

----------------
-- Admin Suit --
----------------
addhook("spawn","spawn1")
function spawn1(id,txt)
for _, usgn in ipairs(adminlist) do
     if(player(id,"team") == 2) then
      freeimage(id)
id1=image("gfx/sprites/soldier.bmp",1,1,200+id)
imagescale(id1,1,1)
imageblend(id1,1)
imagealpha(id1,1.0)
if (player(id,"team") == 2) then
imagecolor(id1,255,255,255)

elseif (player(id,"team") == 1) then
imagecolor(id1,255,255,255)
end
     end
end

--------------------------------------
-- ADVERTISING EVERY MINUTE --
--------------------------------------
addhook("minute","min")
function min()
     msg("This Script is made by:")
     msg("Spook MQuest Hacker")
end
end