------------------Lua make by Deadlox-----------------
------------------USGN: 121114 & Deadlox995----------

ms={}

function initArray(m)
     local array = {}
     for i = 1, m do
          array[i]=0
     end
     return array
end
ms.money=initArray(32)

function ms.moneyshow(id)
     parse('hudtxt2 '..id..' 1 "©255255255Ammo Packs: ©255000000'..ms.money[id]..' " 13 200')
end

addhook ("serveraction","ser")
function ser(id,action)
if player(id,"team")== 1 then
if action == 1 then
          ms.shopzm(id)
end
end
end

function ms.shopzm(id)
     menu(id,"Zombie Shop,GutBomd|5,Armor|10,Chainsaw|15,Zombie madness|20,RPG|50")

end

addhook ("menu","ms.buy")
function ms.buy(id,title,sel)
     if title == "Zombie Shop" then
          if sel == 1 then
               if ms.money[id] > 4 then
                    parse("equip "..id.." 86")
                    msg2(id,"©000255000You've buy GutBomd!")
                    ms.money[id]=ms.money[id]-5
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Packs!")
               end
          end
          if sel == 2 then
               if ms.money[id] > 9 then
                    parse("equip "..id.." 80")
                    msg2(id,"©000255000You've buy Armor!")
                    ms.money[id]=ms.money[id]-10
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Pack!")
               end
          end
          if sel == 3 then
               if ms.money[id] > 14 then
                    parse("equip "..id.." 85")
                    msg2(id,"©000255000You've buy Chainsaw!")
                    ms.money[id]=ms.money[id]-15
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Pack!")
               end
          end
          if sel == 4 then
               if ms.money[id] > 19 then
                    parse("setmaxealth "..id.." 250")
parse("speedmod "..id.." 6")
                    msg2(id,"©000255000You've Zombie madness!")
                    ms.money[id]=ms.money[id]-20
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Pack!")
               end
          end
          if sel == 5 then
               if ms.money[id] > 49 then
                    parse("equip "..id.." 47")
                    msg2(id,"©000255000You've buy RPG!")
                    ms.money[id]=ms.money[id]-50
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Packs!")
               end
           end

    end
end


addhook ("serveraction","ser2")
function ser2(id,action)
if player(id,"team")== 2 then
if action == 1 then
          ms.shophm(id)
end
end
end

function ms.shophm(id)
     menu(id,"Human Shop,HE|1,Boot Speed|5,Chainsaw|10,Medic Armor|13,FN2000|15")
end


addhook ("menu","ms.buy")
function ms.buy(id,title,sel)
     if title == "human Shop" then
          if sel == 1 then
               if ms.money[id] > 0 then
                    parse("equip "..id.." 51")
                    msg2(id,"©000255000You've buy HE!")
                    ms.money[id]=ms.money[id]-1
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Packs!")
               end
          end
          if sel == 2 then
               if ms.money[id] > 9 then
                    parse("speedmod "..id.." 85")
                    msg2(id,"©000255000You've buy Chiansaw!")
                    ms.money[id]=ms.money[id]-10
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Pack!")
               end
          end
          if sel == 3 then
               if ms.money[id] > 9 then
                    parse("equip "..id.." 85")
                    msg2(id,"©000255000You've buy Chainsaw!")
                    ms.money[id]=ms.money[id]-10
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Pack!")
               end
          end
          if sel == 4 then
               if ms.money[id] > 12 then
                    parse("equip "..id.." 83")
msg2(id,"©000255000You've buy Medic Armor!")
                    ms.money[id]=ms.money[id]-13
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Pack!")
               end
          end
          if sel == 5 then
               if ms.money[id] > 14 then
                    parse("equip "..id.." 91")
                    msg2(id,"©000255000You've buy FN2000!")
                    ms.money[id]=ms.money[id]-15
                    ms.moneyshow(id)
               else
                    msg2(id,"©255000000You have not enouch Ammo Packs!")
               end
           end

     end
end

addhook("spawn","ms.spawn")
function ms.spawn(id)
     ms.moneyshow(id)
end

addhook("kill","ms.kill")
function ms.kill(id)
     ms.money[id]=ms.money[id]+30
     ms.moneyshow(id)
end

addhook("die","ms.die")
function ms.die(id)
     ms.money[id]=ms.money[id]-0
     ms.moneyshow(id)
end

addhook("minute","minute_shop")
function minute_shop()
     msg("©255255255Have Fun! Thanks For Playing!")
     msg("©000255000Vist Us At ©255255255www.knifeuser.lolbb.com!")
     msg("©000255000LUA make by Deadlox")
end