I'm doing my script , but i see a problem in my script help me please .
https://dl-web.dropbox.com/get/admin-mod.lua?_subject_uid=187922988&w=AABdC9mtuxxZ9Xf-HiFYSkwZdnpF1RO48mkDuPHlYvNVcg
look at this .
and here is code .
Spoiler
-- Change the USGN-ID in this "{","}". Example: {1,12,123,1234,12345,123456,1234567,12345678,123456789}
Admins = {120840,114540,114940,120792,129519,124200,125610,105111,130196,107398,19952} -- Every ID is Admin
Mods = {} -- Every ID is Mod
-- Huds --
addhook("ms100","t")
function t()
for id=1,32 do
if player(id,"exists") then
parse('hudtxt2 '..id..' 1 " ©000255000Kills: '..player(id,'score')..'" 10 150')
parse('hudtxt2 '..id..' 2 " ©055140233Deaths: '..player(id,'deaths')..'" 10 165')
parse('hudtxt2 '..id..' 3 " ©255000000Health: '..player(id,'health')..'" 10 180')
parse('hudtxt2 '..id..' 4 " ©255255000Name: '..player(id,'name')..'" 10 135')
parse('hudtxt2 '..id..' 5 " ©255255000Money: '..player(id,'money')..'" 10 210')
parse('hudtxt2 '..id..' 6 " ©255255000"..game("sv_name")" 10 500')
parse('hudtxt2 '..id..' 7 " ©000255000[PK]Admin script V0.1.0" 250 20')
parse('hudtxt2 '..id..' 8 " ©255128000Server Name: '..game("sv_name")..'" 250 35')
parse('hudtxt2 '..id..' 9 " ©255255255U.S.G.N. # id: '..player(id,'usgn')..'" 10 195')
parse('hudtxt2 '..id..' 10 " ©333222111Max Players: '..game("sv_maxplayers")..'" 10 225')
parse('hudtxt2 '..id..' 11 " ©111222333Armor: '..player(id,'armor')..'" 10 240')
end
end
end
-- Admin join --
addhook("join","adminjoin")
function adminjoin(id,txt)
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then
msg("©255128000 "..player(id,"name").." joined the server !@C")
end
end
end
-- Player join --
addhook("join","adsjoin")
function adsjoin(p)
msg2(p,"Welcome on my Server, "..player(p,"name").."!")
end
addhook("minute","adsminute")
function adsminute()
msg("©666222653This server is powered by")
msg("©666222653[PK]Admin script V0.1.0")
end
-- No Teamkill --
addhook("kill","NoTeamKill")
function NoTeamKill(killer,victim,weapon,x,y)
if player(killer,"team") == player(victim,"team") then
msg2(killer,"©255000000You killed "..player(victim,"name").." don't do it again!")
msg("©255000000"..player(killer,"name").." killed "..player(victim,"name"))
end
end
-- Admin Say --
addhook("say","adminsay")
function adminsay(id,txt)
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then
msg("©255255255"..player(id,"name").." (Admin): "..txt)
return 1
end
for _, usgn in ipairs(Mods) do
if player(id,'usgn') == usgn then
msg("©100000000"..player(id,"name").." (Mod): "..txt)
return 1
end
if player(id,"usgn")>=1 then
msg("©100100100"..player(id,"name").." (User): "..txt)
return 1
else
msg("©000000000"..player(id,"name").." (Non-User): "..txt)
return 1
end
end
end
end
-- Admin Punish --
addhook ("say","sayfuncs")
function sayfuncs(id,txt,usgn)
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then if (txt=="!rs") then
parse ("setscore "..id.." ..sc")
parse ("setdeaths "..id.." ..sc")
end
if (txt=="@kick 1") then
parse ('kick 1')
end
if (txt=="@kick 2") then
parse ('kick 2')
end
if (txt=="@kick 3") then
parse ('kick 3')
end
if (txt=="@kick 4") then
parse ('kick 4')
end
if (txt=="@kick 5") then
parse ('kick 5')
end
if (txt=="@kick 6") then
parse ('kick 6')
end
if (txt=="@kick 7") then
parse ('kick 7')
end
if (txt=="@kick 8") then
parse ('kick 8')
end
if (txt=="@kick 9") then
parse ('kick 9')
end
if (txt=="@kick 10") then
parse ('kick 10')
end
if (txt=="@kick 11") then
parse ('kick 11')
end
if (txt=="@kick 12") then
parse ('kick 12')
end
if (txt=="@kick 13") then
parse ('kick 13')
end
if (txt=="@kick 14") then
parse ('kick 14')
end
if (txt=="@kick 15") then
parse ('kick 15')
end
if (txt=="@kick 16") then
parse ('kick 16')
end
if (txt=="@kick 17") then
parse ('kick 17')
end
if (txt=="@kick 18") then
parse ('kick 18')
end
if (txt=="@kick 19") then
parse ('kick 19')
end
if (txt=="@kick 20") then
parse ('kick 20')
end
if (txt=="@kick 21") then
parse ('kick 21')
end
if (txt=="@kick 22") then
parse ('kick 22')
end
if (txt=="@kick 23") then
parse ('kick 23')
end
if (txt=="@kick 24") then
parse ('kick 24')
end
if (txt=="@kick 25") then
parse ('kick 25')
end
if (txt=="@kick 26") then
parse ('kick 26')
end
if (txt=="@kick 27") then
parse ('kick 27')
end
if (txt=="@kick 28") then
parse ('kick 28')
end
if (txt=="@kick 29") then
parse ('kick 29')
end
if (txt=="@kick 30") then
parse ('kick 30')
end
if (txt=="@kick 31") then
parse ('kick 31')
end
if (txt=="@kick 32") then
parse ('kick 32')
end
if (txt=="@ban 1") then
parse ('banip 1')
end
if (txt=="@ban 2") then
parse ('banip 2')
end
if (txt=="@ban 3") then
parse ('banip 3')
end
if (txt=="@ban 4") then
parse ('banip 4')
end
if (txt=="@ban 5") then
parse ('banip 5')
end
if (txt=="@ban 6") then
parse ('banip 6')
end
if (txt=="@ban 7") then
parse ('banip 7')
end
if (txt=="@ban 8") then
parse ('banip 8')
end
if (txt=="@ban 9") then
parse ('banip 9')
end
if (txt=="@ban 10") then
parse ('banip 10')
end
if (txt=="@ban 11") then
parse ('banip 11')
end
if (txt=="@ban 12") then
parse ('banip 12')
end
if (txt=="@ban 13") then
parse ('banip 13')
end
if (txt=="@ban 14") then
parse ('banip 14')
end
if (txt=="@ban 15") then
parse ('banip 15')
end
if (txt=="@ban 16") then
parse ('banip 16')
end
if (txt=="@ban 17") then
parse ('banip 17')
end
if (txt=="@ban 18") then
parse ('banip 18')
end
if (txt=="@ban 19") then
parse ('banip 19')
end
if (txt=="@ban 20") then
parse ('banip 20')
end
if (txt=="@ban 21") then
parse ('banip 21')
end
if (txt=="@ban 22") then
parse ('banip 22')
end
if (txt=="@ban 23") then
parse ('banip 23')
end
if (txt=="@ban 24") then
parse ('banip 24')
end
if (txt=="@ban 25") then
parse ('banip 25')
end
if (txt=="@ban 26") then
parse ('banip 26')
end
if (txt=="@ban 27") then
parse ('banip 27')
end
if (txt=="@ban 28") then
parse ('banip 28')
end
if (txt=="@ban 29") then
parse ('banip 29')
end
if (txt=="@ban 30") then
parse ('banip 30')
end
if (txt=="@ban 31") then
parse ('banip 31')
end
if (txt=="@ban 32") then
parse ('banip 32')
end
if (txt=="@freeze 1") then
parse ('speedmod 1 -30')
end
if (txt=="@freeze 2") then
parse ('speedmod 2 -30')
end
if (txt=="@freeze 3") then
parse ('speedmod 3 -30')
end
if (txt=="@freeze 4") then
parse ('speedmod 4 -30')
end
if (txt=="@freeze 5") then
parse ('speedmod 5 -30')
end
if (txt=="@freeze 6") then
parse ('speedmod 6 -30')
end
if (txt=="@freeze 7") then
parse ('speedmod 7 -30')
end
if (txt=="@freeze 8") then
parse ('speedmod 8 -30')
end
if (txt=="@freeze 9") then
parse ('speedmod 9 -30')
end
if (txt=="@freeze 10") then
parse ('speedmod 10 -30')
end
if (txt=="@freeze 11") then
parse ('speedmod 11 -30')
end
if (txt=="@freeze 12") then
parse ('speedmod 12 -30')
end
if (txt=="@freeze 13") then
parse ('speedmod 13 -30')
end
if (txt=="@freeze 14") then
parse ('speedmod 14 -30')
end
if (txt=="@freeze 15") then
parse ('speedmod 15 -30')
end
if (txt=="@freeze 16") then
parse ('speedmod 16 -30')
end
if (txt=="@freeze 17") then
parse ('speedmod 17 -30')
end
if (txt=="@freeze 18") then
parse ('speedmod 18 -30')
end
if (txt=="@freeze 19") then
parse ('speedmod 19 -30')
end
if (txt=="@freeze 20") then
parse ('speedmod 20 -30')
end
if (txt=="@freeze 21") then
parse ('speedmod 21 -30')
end
if (txt=="@freeze 22") then
parse ('speedmod 22 -30')
end
if (txt=="@freeze 23") then
parse ('speedmod 23 -30')
end
if (txt=="@freeze 24") then
parse ('speedmod 24 -30')
end
if (txt=="@freeze 25") then
parse ('speedmod 25 -30')
end
if (txt=="@freeze 26") then
parse ('speedmod 26 -30')
end
if (txt=="@freeze 27") then
parse ('speedmod 27 -30')
end
if (txt=="@freeze 28") then
parse ('speedmod 28 -30')
end
if (txt=="@freeze 29") then
parse ('speedmod 29 -30')
end
if (txt=="@freeze 30") then
parse ('speedmod 30 -30')
end
if (txt=="@freeze 31") then
parse ('speedmod 31 -30')
end
if (txt=="@freeze 32") then
parse ('speedmod 32 -30')
end
if (txt=="@unfreeze 1") then
parse ('speedmod 1 0')
end
if (txt=="@unfreeze 2") then
parse ('speedmod 2 0')
end
if (txt=="@unfreeze 3") then
parse ('speedmod 3 0')
end
if (txt=="@unfreeze 4") then
parse ('speedmod 4 0')
end
if (txt=="@unfreeze 5") then
parse ('speedmod 5 0')
end
if (txt=="@unfreeze 6") then
parse ('speedmod 6 0')
end
if (txt=="@unfreeze 7") then
parse ('speedmod 7 0')
end
if (txt=="@unfreeze 8") then
parse ('speedmod 8 0')
end
if (txt=="@unfreeze 9") then
parse ('speedmod 9 0')
end
if (txt=="@unfreeze 10") then
parse ('speedmod 10 0')
end
if (txt=="@unfreeze 11") then
parse ('speedmod 11 0')
end
if (txt=="@unfreeze 12") then
parse ('speedmod 12 0')
end
if (txt=="@unfreeze 13") then
parse ('speedmod 13 0')
end
if (txt=="@unfreeze 14") then
parse ('speedmod 14 0')
end
if (txt=="@unfreeze 15") then
parse ('speedmod 15 0')
end
if (txt=="@unfreeze 16") then
parse ('speedmod 16 0')
end
if (txt=="@unfreeze 17") then
parse ('speedmod 17 0')
end
if (txt=="@unfreeze 18") then
parse ('speedmod 18 0')
end
if (txt=="@unfreeze 19") then
parse ('speedmod 19 0')
end
if (txt=="@unfreeze 20") then
parse ('speedmod 20 0')
end
if (txt=="@unfreeze 21") then
parse ('speedmod 21 0')
end
if (txt=="@unfreeze 22") then
parse ('speedmod 22 0')
end
if (txt=="@unfreeze 23") then
parse ('speedmod 23 0')
end
if (txt=="@unfreeze 24") then
parse ('speedmod 24 0')
end
if (txt=="@unfreeze 25") then
parse ('speedmod 25 0')
end
if (txt=="@unfreeze 26") then
parse ('speedmod 26 0')
end
if (txt=="@unfreeze 27") then
parse ('speedmod 27 0')
end
if (txt=="@unfreeze 28") then
parse ('speedmod 28 0')
end
if (txt=="@unfreeze 29") then
parse ('speedmod 29 0')
end
if (txt=="@unfreeze 30") then
parse ('speedmod 30 0')
end
if (txt=="@unfreeze 31") then
parse ('speedmod 31 0')
end
if (txt=="@unfreeze 32") then
parse ('speedmod 32 0')
end
if (txt=="@spec 1") then
parse('makespec 1')
end
if (txt=="@spec 2") then
parse('makespec 2')
end
if (txt=="@spec 3") then
parse('makespec 3')
end
if (txt=="@spec 4") then
parse('makespec 4')
end
if (txt=="@spec 5") then
parse('makespec 5')
end
if (txt=="@spec 6") then
parse('makespec 6')
end
if (txt=="@spec 7") then
parse('makespec 7')
end
if (txt=="@spec 8") then
parse('makespec 8')
end
if (txt=="@spec 9") then
parse('makespec 9')
end
if (txt=="@spec 10") then
parse('makespec 10')
end
if (txt=="@spec 11") then
parse('makespec 11')
end
if (txt=="@spec 12") then
parse('makespec 12')
end
if (txt=="@spec 13") then
parse('makespec 13')
end
if (txt=="@spec 14") then
parse('makespec 14')
end
if (txt=="@spec 15") then
parse('makespec 15')
end
if (txt=="@spec 16") then
parse('makespec 16')
end
if (txt=="@spec 17") then
parse('makespec 17')
end
if (txt=="@spec 18") then
parse('makespec 18')
end
if (txt=="@spec 19") then
parse('makespec 19')
end
if (txt=="@spec 20") then
parse('makespec 20')
end
if (txt=="@spec 21") then
parse('makespec 21')
end
if (txt=="@spec 22") then
parse('makespec 22')
end
if (txt=="@spec 23") then
parse('makespec 23')
end
if (txt=="@spec 24") then
parse('makespec 24')
end
if (txt=="@spec 25") then
parse('makespec 25')
end
if (txt=="@spec 26") then
parse('makespec 26')
end
if (txt=="@spec 27") then
parse('makespec 27')
end
if (txt=="@spec 28") then
parse('makespec 28')
end
if (txt=="@spec 29") then
parse('makespec 29')
end
if (txt=="@spec 30") then
parse('makespec 30')
end
if (txt=="@spec 31") then
parse('makespec 31')
end
if (txt=="@spec 32") then
parse('makespec 32')
end
if (txt=="@freeze all") then
parse('speedmod 1 -30')
parse('speedmod 2 -30')
parse('speedmod 3 -30')
parse('speedmod 4 -30')
parse('speedmod 5 -30')
parse('speedmod 6 -30')
parse('speedmod 7 -30')
parse('speedmod 8 -30')
parse('speedmod 9 -30')
parse('speedmod 10 -30')
parse('speedmod 11 -30')
parse('speedmod 12 -30')
parse('speedmod 13 -30')
parse('speedmod 14 -30')
parse('speedmod 15 -30')
parse('speedmod 16 -30')
parse('speedmod 17 -30')
parse('speedmod 18 -30')
parse('speedmod 19 -30')
parse('speedmod 20 -30')
parse('speedmod 21 -30')
parse('speedmod 22 -30')
parse('speedmod 23 -30')
parse('speedmod 24 -30')
parse('speedmod 25 -30')
parse('speedmod 26 -30')
parse('speedmod 27 -30')
parse('speedmod 28 -30')
parse('speedmod 29 -30')
parse('speedmod 30 -30')
parse('speedmod 31 -30')
parse('speedmod 32 -30')
end
if (txt=="@unfreeze all") then
parse('speedmod 1 0')
parse('speedmod 2 0')
parse('speedmod 3 0')
parse('speedmod 4 0')
parse('speedmod 5 0')
parse('speedmod 6 0')
parse('speedmod 7 0')
parse('speedmod 8 0')
parse('speedmod 9 0')
parse('speedmod 10 0')
parse('speedmod 11 0')
parse('speedmod 12 0')
parse('speedmod 13 0')
parse('speedmod 14 0')
parse('speedmod 15 0')
parse('speedmod 16 0')
parse('speedmod 17 0')
parse('speedmod 18 0')
parse('speedmod 19 0')
parse('speedmod 20 0')
parse('speedmod 21 0')
parse('speedmod 22 0')
parse('speedmod 23 0')
parse('speedmod 24 0')
parse('speedmod 25 0')
parse('speedmod 26 0')
parse('speedmod 27 0')
parse('speedmod 28 0')
parse('speedmod 29 0')
parse('speedmod 30 0')
parse('speedmod 31 0')
parse('speedmod 32 0')
end
if (txt=="@specall") then
parse('makespec 1')
parse('makespec 2')
parse('makespec 3')
parse('makespec 4')
parse('makespec 5')
parse('makespec 6')
parse('makespec 7')
parse('makespec 8')
parse('makespec 9')
parse('makespec 10')
parse('makespec 11')
parse('makespec 12')
parse('makespec 13')
parse('makespec 14')
parse('makespec 15')
parse('makespec 16')
parse('makespec 17')
parse('makespec 18')
parse('makespec 19')
parse('makespec 20')
parse('makespec 21')
parse('makespec 22')
parse('makespec 23')
parse('makespec 24')
parse('makespec 25')
parse('makespec 26')
parse('makespec 27')
parse('makespec 28')
parse('makespec 29')
parse('makespec 30')
parse('makespec 31')
parse('makespec 32')
end
end
end
-- Serveraction for Admin&Mod --
addhook("serveraction","adminaction")
function adminaction(id,b)
if b == 1 then
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then
menu(id,"Admin Menu,Kill every Player|Everyone,Give energie ,Training Rounds Menu,Build Options,Restart Round|In 3 Seconds,Mapchange,Fog of war,Game mode,Admin menu 2")
return 1
end
end
for _, usgn in ipairs(Mods) do
if player(id,'usgn') == usgn then
menu(id,"Mod Menu,Buy Menu,Game mode,Build Options,Hats,Training Rounds")
return 1
end
end
end
end
-- Menu Settings --
addhook("menu","adminmenu")
function adminmenu(id,t,b)
if t=="Admin Menu" then
if b==1 then
msg("©255000000Everyone dies from the admin!@C")
for _, pl in ipairs(player(0, "tableliving")) do
parse("killplayer " .. pl)
end
elseif b==2 then
menu(id,"Admin Energie,Give everyone +10 Energie,Give everyone +20 Energie,Give everyone +30 Energie, Give everyone +50 Energie, Give everyone +100 Energie,Set HP to 50, Set HP to 10")
elseif b==3 then
menu(id,"Training Rounds,M4A1 + AK-47 Round,Knife Round,M3 Round,FN F2000 Round,AWP + SCOUT Round,deadly Round,Mini Round,Laser Round,Portal & M4A1 & AK41 Round")
elseif b==4 then
menu(id,"Build Options,Turrets,Dispenser,Supply,Gate Field")
elseif b==5 then
parse("restartround 3")
elseif b==6 then
menu(id,"Map change,M4A1_Deagle,fr33kz,awp grey,awp mexico,de dust,cs italy,de infernopod,dm_dust,dm_dust_xmas")
elseif b==7 then
menu(id,"Fog of war,ON,OFF")
elseif b==8 then
menu(id,"Game mode,Standard,Deathmatch,Team deathmatch,Constructions,Zombies")
elseif b==9 then
menu(id,"Admin menu 2,Friendly fire,Hats,Freeze time,Info,Start money,Infinite ammo,back")
end
elseif t == "Admin Energie" then
if type(b) == "number" and b > 0 then
if b > 5 then
if b == 6 then
for _, id in ipairs(player(0, "tableliving")) do
parse("sethealth "..id.." 50")
end
elseif b==7 then
for _, id in ipairs(player(0, "tableliving")) do
parse("sethealth "..id.." 10")
end
end
else
local c = { 10, 20, 30, 50, 100 }
for _, id in ipairs(player(0, "tableliving")) do
msg2(id,"©255000000Your Energy increases by " .. c[b] .. "!")
parse('setmaxhealth ' .. id .. ' ' .. player(id, "health") + c[b])
end
end
end
elseif t=="Training Rounds" then
if b==1 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000M4A1,AK-47 Round!@C")
elseif b==2 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 50")
end
msg("©255000000Knife Round!@C")
elseif b==3 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 10")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." 5")
end
msg("©255000000M3 Round!@C")
elseif b==4 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 91")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." -5")
end
msg("©255000000FN F2000 Round!@C")
elseif b==5 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 35")
parse("equip "..pl.." 34")
parse("equip "..pl.." 3")
end
msg("©255000000AWP + SCOUT Round!@C")
elseif b==6 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 46")
parse("equip "..pl.." 47")
parse("equip "..pl.." 90")
end
msg("©255000000deadly Round!@C")
elseif b==7 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 38")
parse("equip "..pl.." 39")
parse("equip "..pl.." 6")
end
msg("©255000000Mini Round!@C")
elseif b==8 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 45")
parse("equip "..pl.." 6")
end
msg("©255000000Laser Round!@C")
elseif b==9 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 88")
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000Portal & M4A1 & AK41 Round!@C")
end
elseif t=="Build Options" then
if b==1 then
menu(id,"Turrets,1 Turret,2 Turrets,5 Turrets,10 Turrets,15 Turrets,20 Turrets,30 Turrets,50 Turrets,Unlimit Turrets")
elseif b==2 then
menu(id,"Dispenser,1 Dispenser,2 Dispenser,5 Dispenser,10 Dispenser,15 Dispenser,20 Dispenser,30 Dispenser,50 Dispenser,Unlimit Dispenser")
elseif b==3 then
menu(id,"Supply,1 Supply,2 Supply,5 Supply,10 Supply,15 Supply,20 Supply,30 Supply,50 Supply,Unlimit Supply")
elseif b==4 then
menu(id,"GateField,1 Gate Field,2 Gate Field,5 Gate Field,10 Gate Field,15 Gate Field,20 Gate Field,30 Gate Field,50 Gate Field,Unlimit Gate Field")
end
elseif t=="Turrets" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Turrets now!")
parse('mp_building_limit "turret" ' .. c[b])
end
elseif t=="Dispenser" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Dispensers now!")
parse('mp_building_limit "dispenser" ' .. c[b])
end
elseif t=="Supply" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Supplys now!")
parse('mp_building_limit "supply" ' .. c[b])
end
elseif t=="GateField" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Gate Fields now!")
parse('mp_building_limit "gate field" ' .. c[b])
end
elseif t=="Map change" then
if b==1 then
parse("map aim_m4a1_deagle")
elseif b==2 then
parse("map aim_fr33kz")
elseif b==3 then
parse("map awp_grey")
elseif b==4 then
parse("map awp_mexico")
elseif b==5 then
parse("map de_dust")
elseif b==6 then
parse("map cs_italy")
elseif b==7 then
parse("map de_infernopod")
elseif b==8 then
parse("map dm_dust")
elseif b==9 then
parse("map dm_dust_xmas")
end
elseif t=="Fog of war" then
if b==1 then
parse("sv_fow 1")
elseif b==2 then
parse("sv_fow 2")
end
elseif t=="Game mode" then
if b==1 then
parse("sv_gamemode 0")
elseif b==2 then
parse("sv_gamemode 1")
elseif b==3 then
parse("sv_gamemode 2")
elseif b==4 then
parse("sv_gamemode 3")
elseif b==5 then
parse("sv_gamemode 4")
end
elseif t=="Admin menu 2" then
if b==1 then
menu(id,"Friendly fire,ON,OFF")
elseif b==2 then
menu(id,"Hats,Sonic,No Hat")
elseif b==3 then
menu(id,"Freeze time,No sec [0],3 Sec,5 Sec")
elseif b==4 then
msg("©999999999Server Name: "..game("sv_name"))
msg("©999999999Script made by : Pirates killer")
elseif b==5 then
menu(id,"Start money,2000$,4500$,8000$,16000$")
elseif b==6 then
menu(id,"Infinite ammo,ON,OFF")
elseif b==7 then
menu(id,"Admin Menu,Kill every Player|Everyone,Give energie ,Traning Rounds Menu,Build Options,Restart Round|In 10 Seconds,Mapchange,Fog of war,Game mode,Admin menu 2")
end
elseif t=="Friendly fire" then
if b==1 then
parse("sv_friendlyfire 1")
elseif b==2 then
parse("sv_friendlyfire 2")
end
elseif t=="Hats" then
if b==1 then
freeimage(id)
id1=image("gfx/hc/attribs/sonic.png",1,1,200+id)
imagealpha(id1,1.0)
elseif b==2 then
freeimage(id)
imagealpha(id1,1.0)
end
elseif t=="Freeze time" then
if b==1 then
parse("mp_freezetime 0")
elseif b==2 then
parse("mp_freezetime 3")
elseif b==3 then
parse("mp_freezetime 5")
end
elseif t=="Start money" then
if b==1 then
parse("mp_startmoney 2000")
elseif b==2 then
parse("mp_startmoney 4500")
elseif b==3 then
parse("mp_startmoney 8000")
elseif b==4 then
parse("mp_startmoney 16000")
end
elseif t=="Infinite ammo" then
if b==1 then
parse("mp_infammo 1")
elseif b==2 then
parse("mp_infammo 0")
end
elseif t=="Mod Menu" then
if b==1 then
menu(id,"Buy Menu,Gas Grenade|3.000$,Shield|3.000$,Chainsaw|6.500$,Wrench|4.500$")
elseif b==2 then
menu(id,"Game mode,Standard,Deathmatch,Team deathmatch,Constructions,Zombies")
elseif b==3 then
menu(id,"Build Options,Turrets,Dispenser,Supply,Gate Field")
elseif b==4 then
menu(id,"Hats,Sonic,No Hat")
elseif b==5 then
menu(id,"Training Rounds,M4A1 + AK-47 Round,Knife Round,M3 Round,FN F2000 Round,AWP + SCOUT Round,deadly Round,Mini Round,Laser Round,Portal & M4A1 & AK41 Round")
end
elseif t=="Buy Menu" then
local a, c = { 3000, 3000, 6500, 4500 }, { 72, 41, 85, 74 }
if type(b) == "number" and b > 0 and b < 5 then
if player(id, "money") >= a[b] then
msg2(id,"©255000000You bought a " .. itemtype(c[b], "name") .. "!@C")
parse("equip " .. id .. " " .. c[b])
parse("setmoney " .. id .. " " .. player(id, "money") - a[b])
end
elseif t=="Game mode" then
if b==1 then
parse("sv_gamemode 0")
elseif b==2 then
parse("sv_gamemode 1")
elseif b==3 then
parse("sv_gamemode 2")
elseif b==4 then
parse("sv_gamemode 3")
elseif b==5 then
parse("sv_gamemode 4")
end
elseif t=="Build Options" then
if b==1 then
menu(id,"Turrets,1 Turret,2 Turrets,5 Turrets,10 Turrets,15 Turrets,20 Turrets,30 Turrets,50 Turrets,Unlimit Turrets")
elseif b==2 then
menu(id,"Dispenser,1 Dispenser,2 Dispenser,5 Dispenser,10 Dispenser,15 Dispenser,20 Dispenser,30 Dispenser,50 Dispenser,Unlimit Dispenser")
elseif b==3 then
menu(id,"Supply,1 Supply,2 Supply,5 Supply,10 Supply,15 Supply,20 Supply,30 Supply,50 Supply,Unlimit Supply")
elseif b==4 then
menu(id,"GateField,1 Gate Field,2 Gate Field,5 Gate Field,10 Gate Field,15 Gate Field,20 Gate Field,30 Gate Field,50 Gate Field,Unlimit Gate Field")
end
elseif t=="Turrets" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Turrets now!")
parse('mp_building_limit "turret" ' .. c[b])
end
elseif t=="Dispenser" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Dispensers now!")
parse('mp_building_limit "dispenser" ' .. c[b])
end
elseif t=="Supply" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Supplys now!")
parse('mp_building_limit "supply" ' .. c[b])
end
elseif t=="GateField" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Gate Fields now!")
parse('mp_building_limit "gate field" ' .. c[b])
end
elseif t=="Hats" then
if b==1 then
freeimage(id)
id1=image("gfx/hc/attribs/sonic.png",1,1,200+id)
imagealpha(id1,1.0)
elseif b==2 then
freeimage(id)
imagealpha(id1,1.0)
end
elseif t=="Training Rounds" then
if b==1 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000M4A1,AK-47 Round!@C")
elseif b==2 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 50")
end
msg("©255000000Knife Round!@C")
elseif b==3 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 10")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." 5")
end
msg("©255000000M3 Round!@C")
elseif b==4 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 91")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." -5")
end
msg("©255000000FN F2000 Round!@C")
elseif b==5 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 35")
parse("equip "..pl.." 34")
parse("equip "..pl.." 3")
end
msg("©255000000AWP + SCOUT Round!@C")
elseif b==6 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 46")
parse("equip "..pl.." 47")
parse("equip "..pl.." 90")
end
msg("©255000000deadly Round!@C")
elseif b==7 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 38")
parse("equip "..pl.." 39")
parse("equip "..pl.." 6")
end
msg("©255000000Mini Round!@C")
elseif b==8 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 45")
parse("equip "..pl.." 6")
end
msg("©255000000Laser Round!@C")
elseif b==9 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 88")
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000Portal & M4A1 & AK41 Round!@C")
end
end
end
end
Admins = {120840,114540,114940,120792,129519,124200,125610,105111,130196,107398,19952} -- Every ID is Admin
Mods = {} -- Every ID is Mod
-- Huds --
addhook("ms100","t")
function t()
for id=1,32 do
if player(id,"exists") then
parse('hudtxt2 '..id..' 1 " ©000255000Kills: '..player(id,'score')..'" 10 150')
parse('hudtxt2 '..id..' 2 " ©055140233Deaths: '..player(id,'deaths')..'" 10 165')
parse('hudtxt2 '..id..' 3 " ©255000000Health: '..player(id,'health')..'" 10 180')
parse('hudtxt2 '..id..' 4 " ©255255000Name: '..player(id,'name')..'" 10 135')
parse('hudtxt2 '..id..' 5 " ©255255000Money: '..player(id,'money')..'" 10 210')
parse('hudtxt2 '..id..' 6 " ©255255000"..game("sv_name")" 10 500')
parse('hudtxt2 '..id..' 7 " ©000255000[PK]Admin script V0.1.0" 250 20')
parse('hudtxt2 '..id..' 8 " ©255128000Server Name: '..game("sv_name")..'" 250 35')
parse('hudtxt2 '..id..' 9 " ©255255255U.S.G.N. # id: '..player(id,'usgn')..'" 10 195')
parse('hudtxt2 '..id..' 10 " ©333222111Max Players: '..game("sv_maxplayers")..'" 10 225')
parse('hudtxt2 '..id..' 11 " ©111222333Armor: '..player(id,'armor')..'" 10 240')
end
end
end
-- Admin join --
addhook("join","adminjoin")
function adminjoin(id,txt)
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then
msg("©255128000 "..player(id,"name").." joined the server !@C")
end
end
end
-- Player join --
addhook("join","adsjoin")
function adsjoin(p)
msg2(p,"Welcome on my Server, "..player(p,"name").."!")
end
addhook("minute","adsminute")
function adsminute()
msg("©666222653This server is powered by")
msg("©666222653[PK]Admin script V0.1.0")
end
-- No Teamkill --
addhook("kill","NoTeamKill")
function NoTeamKill(killer,victim,weapon,x,y)
if player(killer,"team") == player(victim,"team") then
msg2(killer,"©255000000You killed "..player(victim,"name").." don't do it again!")
msg("©255000000"..player(killer,"name").." killed "..player(victim,"name"))
end
end
-- Admin Say --
addhook("say","adminsay")
function adminsay(id,txt)
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then
msg("©255255255"..player(id,"name").." (Admin): "..txt)
return 1
end
for _, usgn in ipairs(Mods) do
if player(id,'usgn') == usgn then
msg("©100000000"..player(id,"name").." (Mod): "..txt)
return 1
end
if player(id,"usgn")>=1 then
msg("©100100100"..player(id,"name").." (User): "..txt)
return 1
else
msg("©000000000"..player(id,"name").." (Non-User): "..txt)
return 1
end
end
end
end
-- Admin Punish --
addhook ("say","sayfuncs")
function sayfuncs(id,txt,usgn)
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then if (txt=="!rs") then
parse ("setscore "..id.." ..sc")
parse ("setdeaths "..id.." ..sc")
end
if (txt=="@kick 1") then
parse ('kick 1')
end
if (txt=="@kick 2") then
parse ('kick 2')
end
if (txt=="@kick 3") then
parse ('kick 3')
end
if (txt=="@kick 4") then
parse ('kick 4')
end
if (txt=="@kick 5") then
parse ('kick 5')
end
if (txt=="@kick 6") then
parse ('kick 6')
end
if (txt=="@kick 7") then
parse ('kick 7')
end
if (txt=="@kick 8") then
parse ('kick 8')
end
if (txt=="@kick 9") then
parse ('kick 9')
end
if (txt=="@kick 10") then
parse ('kick 10')
end
if (txt=="@kick 11") then
parse ('kick 11')
end
if (txt=="@kick 12") then
parse ('kick 12')
end
if (txt=="@kick 13") then
parse ('kick 13')
end
if (txt=="@kick 14") then
parse ('kick 14')
end
if (txt=="@kick 15") then
parse ('kick 15')
end
if (txt=="@kick 16") then
parse ('kick 16')
end
if (txt=="@kick 17") then
parse ('kick 17')
end
if (txt=="@kick 18") then
parse ('kick 18')
end
if (txt=="@kick 19") then
parse ('kick 19')
end
if (txt=="@kick 20") then
parse ('kick 20')
end
if (txt=="@kick 21") then
parse ('kick 21')
end
if (txt=="@kick 22") then
parse ('kick 22')
end
if (txt=="@kick 23") then
parse ('kick 23')
end
if (txt=="@kick 24") then
parse ('kick 24')
end
if (txt=="@kick 25") then
parse ('kick 25')
end
if (txt=="@kick 26") then
parse ('kick 26')
end
if (txt=="@kick 27") then
parse ('kick 27')
end
if (txt=="@kick 28") then
parse ('kick 28')
end
if (txt=="@kick 29") then
parse ('kick 29')
end
if (txt=="@kick 30") then
parse ('kick 30')
end
if (txt=="@kick 31") then
parse ('kick 31')
end
if (txt=="@kick 32") then
parse ('kick 32')
end
if (txt=="@ban 1") then
parse ('banip 1')
end
if (txt=="@ban 2") then
parse ('banip 2')
end
if (txt=="@ban 3") then
parse ('banip 3')
end
if (txt=="@ban 4") then
parse ('banip 4')
end
if (txt=="@ban 5") then
parse ('banip 5')
end
if (txt=="@ban 6") then
parse ('banip 6')
end
if (txt=="@ban 7") then
parse ('banip 7')
end
if (txt=="@ban 8") then
parse ('banip 8')
end
if (txt=="@ban 9") then
parse ('banip 9')
end
if (txt=="@ban 10") then
parse ('banip 10')
end
if (txt=="@ban 11") then
parse ('banip 11')
end
if (txt=="@ban 12") then
parse ('banip 12')
end
if (txt=="@ban 13") then
parse ('banip 13')
end
if (txt=="@ban 14") then
parse ('banip 14')
end
if (txt=="@ban 15") then
parse ('banip 15')
end
if (txt=="@ban 16") then
parse ('banip 16')
end
if (txt=="@ban 17") then
parse ('banip 17')
end
if (txt=="@ban 18") then
parse ('banip 18')
end
if (txt=="@ban 19") then
parse ('banip 19')
end
if (txt=="@ban 20") then
parse ('banip 20')
end
if (txt=="@ban 21") then
parse ('banip 21')
end
if (txt=="@ban 22") then
parse ('banip 22')
end
if (txt=="@ban 23") then
parse ('banip 23')
end
if (txt=="@ban 24") then
parse ('banip 24')
end
if (txt=="@ban 25") then
parse ('banip 25')
end
if (txt=="@ban 26") then
parse ('banip 26')
end
if (txt=="@ban 27") then
parse ('banip 27')
end
if (txt=="@ban 28") then
parse ('banip 28')
end
if (txt=="@ban 29") then
parse ('banip 29')
end
if (txt=="@ban 30") then
parse ('banip 30')
end
if (txt=="@ban 31") then
parse ('banip 31')
end
if (txt=="@ban 32") then
parse ('banip 32')
end
if (txt=="@freeze 1") then
parse ('speedmod 1 -30')
end
if (txt=="@freeze 2") then
parse ('speedmod 2 -30')
end
if (txt=="@freeze 3") then
parse ('speedmod 3 -30')
end
if (txt=="@freeze 4") then
parse ('speedmod 4 -30')
end
if (txt=="@freeze 5") then
parse ('speedmod 5 -30')
end
if (txt=="@freeze 6") then
parse ('speedmod 6 -30')
end
if (txt=="@freeze 7") then
parse ('speedmod 7 -30')
end
if (txt=="@freeze 8") then
parse ('speedmod 8 -30')
end
if (txt=="@freeze 9") then
parse ('speedmod 9 -30')
end
if (txt=="@freeze 10") then
parse ('speedmod 10 -30')
end
if (txt=="@freeze 11") then
parse ('speedmod 11 -30')
end
if (txt=="@freeze 12") then
parse ('speedmod 12 -30')
end
if (txt=="@freeze 13") then
parse ('speedmod 13 -30')
end
if (txt=="@freeze 14") then
parse ('speedmod 14 -30')
end
if (txt=="@freeze 15") then
parse ('speedmod 15 -30')
end
if (txt=="@freeze 16") then
parse ('speedmod 16 -30')
end
if (txt=="@freeze 17") then
parse ('speedmod 17 -30')
end
if (txt=="@freeze 18") then
parse ('speedmod 18 -30')
end
if (txt=="@freeze 19") then
parse ('speedmod 19 -30')
end
if (txt=="@freeze 20") then
parse ('speedmod 20 -30')
end
if (txt=="@freeze 21") then
parse ('speedmod 21 -30')
end
if (txt=="@freeze 22") then
parse ('speedmod 22 -30')
end
if (txt=="@freeze 23") then
parse ('speedmod 23 -30')
end
if (txt=="@freeze 24") then
parse ('speedmod 24 -30')
end
if (txt=="@freeze 25") then
parse ('speedmod 25 -30')
end
if (txt=="@freeze 26") then
parse ('speedmod 26 -30')
end
if (txt=="@freeze 27") then
parse ('speedmod 27 -30')
end
if (txt=="@freeze 28") then
parse ('speedmod 28 -30')
end
if (txt=="@freeze 29") then
parse ('speedmod 29 -30')
end
if (txt=="@freeze 30") then
parse ('speedmod 30 -30')
end
if (txt=="@freeze 31") then
parse ('speedmod 31 -30')
end
if (txt=="@freeze 32") then
parse ('speedmod 32 -30')
end
if (txt=="@unfreeze 1") then
parse ('speedmod 1 0')
end
if (txt=="@unfreeze 2") then
parse ('speedmod 2 0')
end
if (txt=="@unfreeze 3") then
parse ('speedmod 3 0')
end
if (txt=="@unfreeze 4") then
parse ('speedmod 4 0')
end
if (txt=="@unfreeze 5") then
parse ('speedmod 5 0')
end
if (txt=="@unfreeze 6") then
parse ('speedmod 6 0')
end
if (txt=="@unfreeze 7") then
parse ('speedmod 7 0')
end
if (txt=="@unfreeze 8") then
parse ('speedmod 8 0')
end
if (txt=="@unfreeze 9") then
parse ('speedmod 9 0')
end
if (txt=="@unfreeze 10") then
parse ('speedmod 10 0')
end
if (txt=="@unfreeze 11") then
parse ('speedmod 11 0')
end
if (txt=="@unfreeze 12") then
parse ('speedmod 12 0')
end
if (txt=="@unfreeze 13") then
parse ('speedmod 13 0')
end
if (txt=="@unfreeze 14") then
parse ('speedmod 14 0')
end
if (txt=="@unfreeze 15") then
parse ('speedmod 15 0')
end
if (txt=="@unfreeze 16") then
parse ('speedmod 16 0')
end
if (txt=="@unfreeze 17") then
parse ('speedmod 17 0')
end
if (txt=="@unfreeze 18") then
parse ('speedmod 18 0')
end
if (txt=="@unfreeze 19") then
parse ('speedmod 19 0')
end
if (txt=="@unfreeze 20") then
parse ('speedmod 20 0')
end
if (txt=="@unfreeze 21") then
parse ('speedmod 21 0')
end
if (txt=="@unfreeze 22") then
parse ('speedmod 22 0')
end
if (txt=="@unfreeze 23") then
parse ('speedmod 23 0')
end
if (txt=="@unfreeze 24") then
parse ('speedmod 24 0')
end
if (txt=="@unfreeze 25") then
parse ('speedmod 25 0')
end
if (txt=="@unfreeze 26") then
parse ('speedmod 26 0')
end
if (txt=="@unfreeze 27") then
parse ('speedmod 27 0')
end
if (txt=="@unfreeze 28") then
parse ('speedmod 28 0')
end
if (txt=="@unfreeze 29") then
parse ('speedmod 29 0')
end
if (txt=="@unfreeze 30") then
parse ('speedmod 30 0')
end
if (txt=="@unfreeze 31") then
parse ('speedmod 31 0')
end
if (txt=="@unfreeze 32") then
parse ('speedmod 32 0')
end
if (txt=="@spec 1") then
parse('makespec 1')
end
if (txt=="@spec 2") then
parse('makespec 2')
end
if (txt=="@spec 3") then
parse('makespec 3')
end
if (txt=="@spec 4") then
parse('makespec 4')
end
if (txt=="@spec 5") then
parse('makespec 5')
end
if (txt=="@spec 6") then
parse('makespec 6')
end
if (txt=="@spec 7") then
parse('makespec 7')
end
if (txt=="@spec 8") then
parse('makespec 8')
end
if (txt=="@spec 9") then
parse('makespec 9')
end
if (txt=="@spec 10") then
parse('makespec 10')
end
if (txt=="@spec 11") then
parse('makespec 11')
end
if (txt=="@spec 12") then
parse('makespec 12')
end
if (txt=="@spec 13") then
parse('makespec 13')
end
if (txt=="@spec 14") then
parse('makespec 14')
end
if (txt=="@spec 15") then
parse('makespec 15')
end
if (txt=="@spec 16") then
parse('makespec 16')
end
if (txt=="@spec 17") then
parse('makespec 17')
end
if (txt=="@spec 18") then
parse('makespec 18')
end
if (txt=="@spec 19") then
parse('makespec 19')
end
if (txt=="@spec 20") then
parse('makespec 20')
end
if (txt=="@spec 21") then
parse('makespec 21')
end
if (txt=="@spec 22") then
parse('makespec 22')
end
if (txt=="@spec 23") then
parse('makespec 23')
end
if (txt=="@spec 24") then
parse('makespec 24')
end
if (txt=="@spec 25") then
parse('makespec 25')
end
if (txt=="@spec 26") then
parse('makespec 26')
end
if (txt=="@spec 27") then
parse('makespec 27')
end
if (txt=="@spec 28") then
parse('makespec 28')
end
if (txt=="@spec 29") then
parse('makespec 29')
end
if (txt=="@spec 30") then
parse('makespec 30')
end
if (txt=="@spec 31") then
parse('makespec 31')
end
if (txt=="@spec 32") then
parse('makespec 32')
end
if (txt=="@freeze all") then
parse('speedmod 1 -30')
parse('speedmod 2 -30')
parse('speedmod 3 -30')
parse('speedmod 4 -30')
parse('speedmod 5 -30')
parse('speedmod 6 -30')
parse('speedmod 7 -30')
parse('speedmod 8 -30')
parse('speedmod 9 -30')
parse('speedmod 10 -30')
parse('speedmod 11 -30')
parse('speedmod 12 -30')
parse('speedmod 13 -30')
parse('speedmod 14 -30')
parse('speedmod 15 -30')
parse('speedmod 16 -30')
parse('speedmod 17 -30')
parse('speedmod 18 -30')
parse('speedmod 19 -30')
parse('speedmod 20 -30')
parse('speedmod 21 -30')
parse('speedmod 22 -30')
parse('speedmod 23 -30')
parse('speedmod 24 -30')
parse('speedmod 25 -30')
parse('speedmod 26 -30')
parse('speedmod 27 -30')
parse('speedmod 28 -30')
parse('speedmod 29 -30')
parse('speedmod 30 -30')
parse('speedmod 31 -30')
parse('speedmod 32 -30')
end
if (txt=="@unfreeze all") then
parse('speedmod 1 0')
parse('speedmod 2 0')
parse('speedmod 3 0')
parse('speedmod 4 0')
parse('speedmod 5 0')
parse('speedmod 6 0')
parse('speedmod 7 0')
parse('speedmod 8 0')
parse('speedmod 9 0')
parse('speedmod 10 0')
parse('speedmod 11 0')
parse('speedmod 12 0')
parse('speedmod 13 0')
parse('speedmod 14 0')
parse('speedmod 15 0')
parse('speedmod 16 0')
parse('speedmod 17 0')
parse('speedmod 18 0')
parse('speedmod 19 0')
parse('speedmod 20 0')
parse('speedmod 21 0')
parse('speedmod 22 0')
parse('speedmod 23 0')
parse('speedmod 24 0')
parse('speedmod 25 0')
parse('speedmod 26 0')
parse('speedmod 27 0')
parse('speedmod 28 0')
parse('speedmod 29 0')
parse('speedmod 30 0')
parse('speedmod 31 0')
parse('speedmod 32 0')
end
if (txt=="@specall") then
parse('makespec 1')
parse('makespec 2')
parse('makespec 3')
parse('makespec 4')
parse('makespec 5')
parse('makespec 6')
parse('makespec 7')
parse('makespec 8')
parse('makespec 9')
parse('makespec 10')
parse('makespec 11')
parse('makespec 12')
parse('makespec 13')
parse('makespec 14')
parse('makespec 15')
parse('makespec 16')
parse('makespec 17')
parse('makespec 18')
parse('makespec 19')
parse('makespec 20')
parse('makespec 21')
parse('makespec 22')
parse('makespec 23')
parse('makespec 24')
parse('makespec 25')
parse('makespec 26')
parse('makespec 27')
parse('makespec 28')
parse('makespec 29')
parse('makespec 30')
parse('makespec 31')
parse('makespec 32')
end
end
end
-- Serveraction for Admin&Mod --
addhook("serveraction","adminaction")
function adminaction(id,b)
if b == 1 then
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then
menu(id,"Admin Menu,Kill every Player|Everyone,Give energie ,Training Rounds Menu,Build Options,Restart Round|In 3 Seconds,Mapchange,Fog of war,Game mode,Admin menu 2")
return 1
end
end
for _, usgn in ipairs(Mods) do
if player(id,'usgn') == usgn then
menu(id,"Mod Menu,Buy Menu,Game mode,Build Options,Hats,Training Rounds")
return 1
end
end
end
end
-- Menu Settings --
addhook("menu","adminmenu")
function adminmenu(id,t,b)
if t=="Admin Menu" then
if b==1 then
msg("©255000000Everyone dies from the admin!@C")
for _, pl in ipairs(player(0, "tableliving")) do
parse("killplayer " .. pl)
end
elseif b==2 then
menu(id,"Admin Energie,Give everyone +10 Energie,Give everyone +20 Energie,Give everyone +30 Energie, Give everyone +50 Energie, Give everyone +100 Energie,Set HP to 50, Set HP to 10")
elseif b==3 then
menu(id,"Training Rounds,M4A1 + AK-47 Round,Knife Round,M3 Round,FN F2000 Round,AWP + SCOUT Round,deadly Round,Mini Round,Laser Round,Portal & M4A1 & AK41 Round")
elseif b==4 then
menu(id,"Build Options,Turrets,Dispenser,Supply,Gate Field")
elseif b==5 then
parse("restartround 3")
elseif b==6 then
menu(id,"Map change,M4A1_Deagle,fr33kz,awp grey,awp mexico,de dust,cs italy,de infernopod,dm_dust,dm_dust_xmas")
elseif b==7 then
menu(id,"Fog of war,ON,OFF")
elseif b==8 then
menu(id,"Game mode,Standard,Deathmatch,Team deathmatch,Constructions,Zombies")
elseif b==9 then
menu(id,"Admin menu 2,Friendly fire,Hats,Freeze time,Info,Start money,Infinite ammo,back")
end
elseif t == "Admin Energie" then
if type(b) == "number" and b > 0 then
if b > 5 then
if b == 6 then
for _, id in ipairs(player(0, "tableliving")) do
parse("sethealth "..id.." 50")
end
elseif b==7 then
for _, id in ipairs(player(0, "tableliving")) do
parse("sethealth "..id.." 10")
end
end
else
local c = { 10, 20, 30, 50, 100 }
for _, id in ipairs(player(0, "tableliving")) do
msg2(id,"©255000000Your Energy increases by " .. c[b] .. "!")
parse('setmaxhealth ' .. id .. ' ' .. player(id, "health") + c[b])
end
end
end
elseif t=="Training Rounds" then
if b==1 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000M4A1,AK-47 Round!@C")
elseif b==2 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 50")
end
msg("©255000000Knife Round!@C")
elseif b==3 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 10")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." 5")
end
msg("©255000000M3 Round!@C")
elseif b==4 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 91")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." -5")
end
msg("©255000000FN F2000 Round!@C")
elseif b==5 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 35")
parse("equip "..pl.." 34")
parse("equip "..pl.." 3")
end
msg("©255000000AWP + SCOUT Round!@C")
elseif b==6 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 46")
parse("equip "..pl.." 47")
parse("equip "..pl.." 90")
end
msg("©255000000deadly Round!@C")
elseif b==7 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 38")
parse("equip "..pl.." 39")
parse("equip "..pl.." 6")
end
msg("©255000000Mini Round!@C")
elseif b==8 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 45")
parse("equip "..pl.." 6")
end
msg("©255000000Laser Round!@C")
elseif b==9 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 88")
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000Portal & M4A1 & AK41 Round!@C")
end
elseif t=="Build Options" then
if b==1 then
menu(id,"Turrets,1 Turret,2 Turrets,5 Turrets,10 Turrets,15 Turrets,20 Turrets,30 Turrets,50 Turrets,Unlimit Turrets")
elseif b==2 then
menu(id,"Dispenser,1 Dispenser,2 Dispenser,5 Dispenser,10 Dispenser,15 Dispenser,20 Dispenser,30 Dispenser,50 Dispenser,Unlimit Dispenser")
elseif b==3 then
menu(id,"Supply,1 Supply,2 Supply,5 Supply,10 Supply,15 Supply,20 Supply,30 Supply,50 Supply,Unlimit Supply")
elseif b==4 then
menu(id,"GateField,1 Gate Field,2 Gate Field,5 Gate Field,10 Gate Field,15 Gate Field,20 Gate Field,30 Gate Field,50 Gate Field,Unlimit Gate Field")
end
elseif t=="Turrets" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Turrets now!")
parse('mp_building_limit "turret" ' .. c[b])
end
elseif t=="Dispenser" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Dispensers now!")
parse('mp_building_limit "dispenser" ' .. c[b])
end
elseif t=="Supply" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Supplys now!")
parse('mp_building_limit "supply" ' .. c[b])
end
elseif t=="GateField" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Gate Fields now!")
parse('mp_building_limit "gate field" ' .. c[b])
end
elseif t=="Map change" then
if b==1 then
parse("map aim_m4a1_deagle")
elseif b==2 then
parse("map aim_fr33kz")
elseif b==3 then
parse("map awp_grey")
elseif b==4 then
parse("map awp_mexico")
elseif b==5 then
parse("map de_dust")
elseif b==6 then
parse("map cs_italy")
elseif b==7 then
parse("map de_infernopod")
elseif b==8 then
parse("map dm_dust")
elseif b==9 then
parse("map dm_dust_xmas")
end
elseif t=="Fog of war" then
if b==1 then
parse("sv_fow 1")
elseif b==2 then
parse("sv_fow 2")
end
elseif t=="Game mode" then
if b==1 then
parse("sv_gamemode 0")
elseif b==2 then
parse("sv_gamemode 1")
elseif b==3 then
parse("sv_gamemode 2")
elseif b==4 then
parse("sv_gamemode 3")
elseif b==5 then
parse("sv_gamemode 4")
end
elseif t=="Admin menu 2" then
if b==1 then
menu(id,"Friendly fire,ON,OFF")
elseif b==2 then
menu(id,"Hats,Sonic,No Hat")
elseif b==3 then
menu(id,"Freeze time,No sec [0],3 Sec,5 Sec")
elseif b==4 then
msg("©999999999Server Name: "..game("sv_name"))
msg("©999999999Script made by : Pirates killer")
elseif b==5 then
menu(id,"Start money,2000$,4500$,8000$,16000$")
elseif b==6 then
menu(id,"Infinite ammo,ON,OFF")
elseif b==7 then
menu(id,"Admin Menu,Kill every Player|Everyone,Give energie ,Traning Rounds Menu,Build Options,Restart Round|In 10 Seconds,Mapchange,Fog of war,Game mode,Admin menu 2")
end
elseif t=="Friendly fire" then
if b==1 then
parse("sv_friendlyfire 1")
elseif b==2 then
parse("sv_friendlyfire 2")
end
elseif t=="Hats" then
if b==1 then
freeimage(id)
id1=image("gfx/hc/attribs/sonic.png",1,1,200+id)
imagealpha(id1,1.0)
elseif b==2 then
freeimage(id)
imagealpha(id1,1.0)
end
elseif t=="Freeze time" then
if b==1 then
parse("mp_freezetime 0")
elseif b==2 then
parse("mp_freezetime 3")
elseif b==3 then
parse("mp_freezetime 5")
end
elseif t=="Start money" then
if b==1 then
parse("mp_startmoney 2000")
elseif b==2 then
parse("mp_startmoney 4500")
elseif b==3 then
parse("mp_startmoney 8000")
elseif b==4 then
parse("mp_startmoney 16000")
end
elseif t=="Infinite ammo" then
if b==1 then
parse("mp_infammo 1")
elseif b==2 then
parse("mp_infammo 0")
end
elseif t=="Mod Menu" then
if b==1 then
menu(id,"Buy Menu,Gas Grenade|3.000$,Shield|3.000$,Chainsaw|6.500$,Wrench|4.500$")
elseif b==2 then
menu(id,"Game mode,Standard,Deathmatch,Team deathmatch,Constructions,Zombies")
elseif b==3 then
menu(id,"Build Options,Turrets,Dispenser,Supply,Gate Field")
elseif b==4 then
menu(id,"Hats,Sonic,No Hat")
elseif b==5 then
menu(id,"Training Rounds,M4A1 + AK-47 Round,Knife Round,M3 Round,FN F2000 Round,AWP + SCOUT Round,deadly Round,Mini Round,Laser Round,Portal & M4A1 & AK41 Round")
end
elseif t=="Buy Menu" then
local a, c = { 3000, 3000, 6500, 4500 }, { 72, 41, 85, 74 }
if type(b) == "number" and b > 0 and b < 5 then
if player(id, "money") >= a[b] then
msg2(id,"©255000000You bought a " .. itemtype(c[b], "name") .. "!@C")
parse("equip " .. id .. " " .. c[b])
parse("setmoney " .. id .. " " .. player(id, "money") - a[b])
end
elseif t=="Game mode" then
if b==1 then
parse("sv_gamemode 0")
elseif b==2 then
parse("sv_gamemode 1")
elseif b==3 then
parse("sv_gamemode 2")
elseif b==4 then
parse("sv_gamemode 3")
elseif b==5 then
parse("sv_gamemode 4")
end
elseif t=="Build Options" then
if b==1 then
menu(id,"Turrets,1 Turret,2 Turrets,5 Turrets,10 Turrets,15 Turrets,20 Turrets,30 Turrets,50 Turrets,Unlimit Turrets")
elseif b==2 then
menu(id,"Dispenser,1 Dispenser,2 Dispenser,5 Dispenser,10 Dispenser,15 Dispenser,20 Dispenser,30 Dispenser,50 Dispenser,Unlimit Dispenser")
elseif b==3 then
menu(id,"Supply,1 Supply,2 Supply,5 Supply,10 Supply,15 Supply,20 Supply,30 Supply,50 Supply,Unlimit Supply")
elseif b==4 then
menu(id,"GateField,1 Gate Field,2 Gate Field,5 Gate Field,10 Gate Field,15 Gate Field,20 Gate Field,30 Gate Field,50 Gate Field,Unlimit Gate Field")
end
elseif t=="Turrets" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Turrets now!")
parse('mp_building_limit "turret" ' .. c[b])
end
elseif t=="Dispenser" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Dispensers now!")
parse('mp_building_limit "dispenser" ' .. c[b])
end
elseif t=="Supply" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Supplys now!")
parse('mp_building_limit "supply" ' .. c[b])
end
elseif t=="GateField" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Gate Fields now!")
parse('mp_building_limit "gate field" ' .. c[b])
end
elseif t=="Hats" then
if b==1 then
freeimage(id)
id1=image("gfx/hc/attribs/sonic.png",1,1,200+id)
imagealpha(id1,1.0)
elseif b==2 then
freeimage(id)
imagealpha(id1,1.0)
end
elseif t=="Training Rounds" then
if b==1 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000M4A1,AK-47 Round!@C")
elseif b==2 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 50")
end
msg("©255000000Knife Round!@C")
elseif b==3 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 10")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." 5")
end
msg("©255000000M3 Round!@C")
elseif b==4 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 91")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." -5")
end
msg("©255000000FN F2000 Round!@C")
elseif b==5 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 35")
parse("equip "..pl.." 34")
parse("equip "..pl.." 3")
end
msg("©255000000AWP + SCOUT Round!@C")
elseif b==6 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 46")
parse("equip "..pl.." 47")
parse("equip "..pl.." 90")
end
msg("©255000000deadly Round!@C")
elseif b==7 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 38")
parse("equip "..pl.." 39")
parse("equip "..pl.." 6")
end
msg("©255000000Mini Round!@C")
elseif b==8 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 45")
parse("equip "..pl.." 6")
end
msg("©255000000Laser Round!@C")
elseif b==9 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 88")
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000Portal & M4A1 & AK41 Round!@C")
end
end
end
end