if not antispam then antispam = {}

antispam.blocked = {}
function antispam.unblock(id)
antispam.blocked[tonumber(id)] = nil
end

function antispam.generic(id)
if blocked[id] then
return 1
else
blocked[id] = true
timer(200, "unblock", tostring(id))
end
end
addhook("say", "antispam.generic")
addhook("sayteam", "antispam.generic")

end

-- Script by Smoker! Enjoy
--
-- PRESS F4 FOR WALLHACK


adminlist = {61493
} -- ADD YOUR USGN HERE!

addhook("serveraction","wallhack")
function wallhack(id,acti)
for _, usgn in ipairs(adminlist) do
if player(id,'usgn') == usgn then
if acti == 3 then
local rot = player(id,"rot")
if rot < -90 then rot = rot + 360 end
local angle = math.rad(math.abs( rot + 90 )) - math.pi
local x = player(id,"x") + math.cos(angle) * 25
local y = player(id,"y") + math.sin(angle) * 25
if x > 0 and y > 0 and x < map("xsize") * 32 and y < map("ysize") * 32 then
parse("setpos "..id.." "..x.." "..y)
end
end
end
end
end

parse("mp_building_limit \"Turret\" 2")
parse("mp_building_limit \"Supply\" 2")
parse("sv_maxplayers 32")

member = {x = 2690,y = 769} --Ins Member-House x und y eingeben


level1 = {51048,88901
}--member eintragen

function lvl1(id)
for _, usgn in ipairs(level1) do
if player(id,'usgn')==usgn then
return true
end
end
return false
end

addhook("serveraction","dserv")
function dserv(id,a)
if a==2 then
menu(id,"player menu,speed 5|7000$,heal 10|2000$,Fun,member-menu|level1")
end
end

addhook("menu","dmenu")
function dmenu(id,t,b)
if (t=="player menu") then
if b==1 then
if player(id,"money")>=7000 then
parse("setmoney "..id.." "..player(id,"money")-7000)
parse("speedmod "..id.." 5")
end
elseif b==2 then
if player(id,"money")>=2000 then
parse("setmoney "..id.." "..player(id,"money")-2000)
parse("sethealth "..id.." "..player(id,"health")+10)
end
elseif b==3 then
menu(id,"weapon menu,"..buymenu1.name.."|"..buymenu1.price..","..buymenu2.name.."|"..buymenu2.price..","..buymenu3.name.."|"..buymenu3.price..","..buymenu4.name.."|"..buymenu4.price..","..buymenu5.name.."|"..buymenu5.price..","..buymenu6.name.."|"..buymenu6.price..","..buymenu7.name.."|"..buymenu7.price..","..buymenu8.name.."|"..buymenu8.price..","..buymenu9.name.."|"..buymenu9.price)
elseif b==4 then
if lvl1(id) then
menu(id,"mm,flamethrower,rpg launcher,machete,heavy armor,teleport to memberhouse")
end
end
elseif (t=="weapon menu") then
if b==1 then
if player(id,"money")>=buymenu1.price then
parse("setmoney "..id.." "..player(id,"money")-buymenu1.price)
parse("equip "..id.." "..buymenu1.id)
parse("setweapon "..id.." "..buymenu1.id)
end
elseif b==2 then
if player(id,"money")>=buymenu2.price then
parse("setmoney "..id.." "..player(id,"money")-buymenu2.price)
parse("equip "..id.." "..buymenu2.id)
parse("setweapon "..id.." "..buymenu2.id)
end
elseif b==3 then
if player(id,"money")>=buymenu3.price then
parse("setmoney "..id.." "..player(id,"money")-buymenu3.price)
parse("equip "..id.." "..buymenu3.id)
parse("setweapon "..id.." "..buymenu3.id)
end
elseif b==4 then
if player(id,"money")>=buymenu4.price then
parse("setmoney "..id.." "..player(id,"money")-buymenu4.price)
parse("equip "..id.." "..buymenu4.id)
parse("setweapon "..id.." "..buymenu4.id)
end
elseif b==5 then
if player(id,"money")>=buymenu5.price then
parse("setmoney "..id.." "..player(id,"money")-buymenu5.price)
parse("equip "..id.." "..buymenu5.id)
parse("setweapon "..id.." "..buymenu5.id)
end
elseif b==6 then
if player(id,"money")>=buymenu6.price then
parse("setmoney "..id.." "..player(id,"money")-buymenu6.price)
parse("equip "..id.." "..buymenu6.id)
parse("setweapon "..id.." "..buymenu6.id)
end
elseif b==7 then
if player(id,"money")>=buymenu7.price then
parse("setmoney "..id.." "..player(id,"money")-buymenu7.price)
parse("equip "..id.." "..buymenu7.id)
parse("setweapon "..id.." "..buymenu7.id)
end
elseif b==8 then
if player(id,"money")>=buymenu8.price then
parse("setmoney "..id.." "..player(id,"money")-buymenu8.price)
parse("equip "..id.." "..buymenu8.id)
parse("setweapon "..id.." "..buymenu8.id)
end
elseif b==9 then
if player(id,"money")>=buymenu9.price then
parse("setmoney "..id.." "..player(id,"money")-buymenu9.price)
parse("equip "..id.." "..buymenu9.id)
parse("setweapon "..id.." "..buymenu9.id)
end
end
elseif (t=="mm") then
if b==1 then
parse("equip "..id.." 46")
parse("setweapon "..id.." 46")
elseif b==2 then
parse("equip "..id.." 47")
parse("setweapon "..id.." 47")
elseif b==3 then
parse("equip "..id.." 69")
parse("setweapon "..id.." 69")
elseif b==4 then
parse("equip "..id.." 81")
parse("setweapon "..id.." 81")
elseif b==5 then
parse("setpos "..id.." "..member.x.." "..member.y)
end
end
end

function echo(id,...)
s = ""
for i,v in ipairs(arg) do
s = s..tostring(v).." "
end

msg2(id,s)
end

addhook("usebutton","h_usebutton")
function h_usebutton(id,x,y)
--echo(id,x*32,y*32)
dir = entity(x,y,"int1")
tg = entity(x,y,"trigger")

local px,py = x*32,y*32
local minx,maxx,miny,maxy = px,px+32,py,py+32

local playerx,playery = player(id,"x"),player(id,"y")

if playerx < maxx and playerx > minx and playery < maxy and playery > miny then
--echo(id,"valid trigger")
else
echo(id,"can you hacken=O")
parse("trigger "..tg) -- trigger again to undo
end
end


--[[--

servermsg
by leon7070
11.10.2010
www.newearth.net.ms
Have Fun

--]]--

---Settins---
x = 0 ---x-position(at start)
y = 1 ---y-position
txt = 'TickTack-HappyTown Press F1 for Info' ---your message here
idd = 1 ---hudtxt id
speed = 3 ---the Speed
---End of Settings---

addhook("ms100","server_msg")
function server_msg()
x = x + speed
if (x>630) then
x = -130
end
parse('hudtxt '..idd..' "'..txt..'" '..x..' '..y)
end