reupload please?
- Code:
--======================================================================================================--
----------------------------------------------------------------------------------------------------------
----------#####-------------------------------------------#############-----------------------------------
------#############--------------------##----------------------###----------------##--##------------------
----####---------###--#####-#####---#####--#####-#######-------###--#####---#####-##--##--#####--#####----
---###---##----####--##--##-##--##-##--##-##--##-##-##-##------###--##--##-##--##-##--##--##--##-##--##---
---#----###--###-----##--##-##--##-##--##-##--##-##-##-##------###--##-----##--##-##--##--##-##--##-------
--------###---####---######-##--##-######-#####--##-##-##------###--##-----#####--###-###--#####-##-------
--------###----######------------------------------------------###----------------------------------------
-----------------########---------------------------------------------------------------------------------
--------------------############--------------------------------------------------------------------------
------------------------#####-----------------------------------------------------------------------------
--======================================================================================================--
--Thanks to--
--Engin33r for some lines
--myself for the whole script (and tabbing xD)
--safezone format {x,y,xx,yy}--
rondomzones = {
{16,43,25,52},
{21,142,40,156},
{44,132,66,148}
}
function insideprotection(id)
for r4ndom,zone in pairs(rondomzones) do
if player(id,"tilex")>=zone[1] and player(id,"tiley")>=zone[2] and player(id,"tilex")<=zone[3] and player(id,"tiley")<=zone[4] then
return r4ndom
end
end
return nil
end
addhook("hit","implementsafezones")
function implementsafezones(id,src)
if insideprotection(id) then
return 1
end
if insideprotection(src) then
return 1
end
end
addhook("spawn","getwrench")
function getwrench(id)
parse("equip "..id.." 74")
end
addhook("say","sayz")
function sayz(id, txt)
if (txt == "!menu") then
parse("")
return 1
elseif (txt == "!serverinfo") then
local nmap = game("nextmap")
parse("sv_msg2 " .. id .. " ©999999999Server Name: ©000255255" .. game("sv_name"))
parse(os.date("sv_msg2 " .. id .. " ©000255000Time: ©000255255%I:%M %p"))
parse(os.date("sv_msg2 " .. id .. " ©000255000Date: ©000255255%A, %d %b %Y"))
parse("sv_msg2 " .. id .. " ©000255000Map: ©000255255" .. game("sv_map"))
return 1
elseif (txt == "!mapinfo") then
parse("sv_msg2 " .. id .. " ©000255000Current Map: ©000255255" .. game("sv_map"))
parse("sv_msg2 " .. id .. " ©000255000Made by: ©000255255Hitman")
parse("sv_msg2 " .. id .. " ©000255000Lua by: ©000255255/2andom")
return 1
elseif (txt == "!playerinfo") then
local name = player(id, "name")
local usgn = player(id, "usgn")
local ip = player(id, "ip")
parse("sv_msg2 " .. id .. " Stats for ©000255255" .. name .. "")
parse("sv_msg2 " .. id .. " ©000255000USGN: ©000255255" .. usgn)
return 1
elseif (txt == "!helpcmds") then
parse("sv_msg2 " .. id .. " ©000255000--========Commands========--")
parse("sv_msg2 " .. id .. " ©999999999!menu ©000255000to show Map Menu")
parse("sv_msg2 " .. id .. " ©999999999!serverinfo ©000255000to show Server Info")
parse("sv_msg2 " .. id .. " ©999999999!mapinfo ©000255000to show Map Info")
parse("sv_msg2 " .. id .. " ©999999999!playerinfo ©000255000to show your stats.")
parse("sv_msg2 " .. id .. " ©999999999!helpcmds ©000255000to show commands.")
return 1
end
end
addhook("flashlight","mapzmenuverz")
function mapzmenuverz(id,state)
if state==1 then
menu(id,"/2 | Menu,Server Info,Player Info,Rank,Score Reset,Map Info,Help")
end
end
addhook("menu","rand0m")
function rand0m(id,menu,select)
if (menu == "/2 | Menu") then
if (select == 1) then
parse("say !serverinfo")
parse("flashlight")
end
if (select == 2) then
parse("say !playerinfo")
parse("flashlight")
end
if (select == 3) then
parse("say rank")
parse("flashlight")
end
if (select == 4) then
parse("say !rs")
parse("flashlight")
end
if (select == 5) then
parse("say !mapinfo")
parse("flashlight")
end
if (select == 6) then
parse("say !helpcmds")
parse("flashlight")
end
if (select == 0) then
parse("flashlight")
end
end
end
addhook("usebutton","mapzmenu")
function mapzmenu(id,x,y)
if(x == 24 and y == 50) then
parse("flashlight")
end
end
addhook("movetile","makehud")
function makehud(id,x,y,xx,yy)
for id=1,32 do
if (player(id,"exists")) then
if (player(id,"tilex")>=16 and player(id,"tilex")<=25) and (player(id,"tiley")>=43 and player(id,"tiley")<=52) then
parse('hudtxt2 '..id..' 47 "©999999999Spawn Area " 520 370')
parse('hudtxt2 '..id..' 48 "©999999999(SafeZone) " 525 384')
elseif (player(id,"tilex")>=21 and player(id,"tilex")<=40) and (player(id,"tiley")>=42 and player(id,"tiley")<=156) then
parse('hudtxt2 '..id..' 47 "©999999999Teleport Zone " 520 370')
parse('hudtxt2 '..id..' 48 "©999999999(SafeZone) " 525 384')
elseif (player(id,"tilex")>=44 and player(id,"tilex")<=66) and (player(id,"tiley")>=132 and player(id,"tiley")<=148) then
parse('hudtxt2 '..id..' 47 "©999999999Weapons Shop " 520 370')
parse('hudtxt2 '..id..' 48 "©999999999(SafeZone) " 525 384')
elseif (player(id,"tilex")>=161 and player(id,"tilex")<=165) and (player(id,"tiley")>=39 and player(id,"tiley")<=43) then
parse('hudtxt2 '..id..' 47 "©120050000Near Brown Portal " 520 370')
elseif (player(id,"tilex")>=198 and player(id,"tilex")<=202) and (player(id,"tiley")>=76 and player(id,"tiley")<=80) then
parse('hudtxt2 '..id..' 47 "©000000150Near Blue Portal " 520 370')
elseif (player(id,"tilex")>=123 and player(id,"tilex")<=127) and (player(id,"tiley")>=90 and player(id,"tiley")<=94) then
parse('hudtxt2 '..id..' 47 "©255000000Near Red Portal " 520 370')
elseif (player(id,"tilex")>=149 and player(id,"tilex")<=153) and (player(id,"tiley")>=61 and player(id,"tiley")<=65) then
parse('hudtxt2 '..id..' 47 "©255255000Near Yellow Portal " 520 370')
elseif (player(id,"tilex")>=189 and player(id,"tilex")<=193) and (player(id,"tiley")>=27 and player(id,"tiley")<=31) then
parse('hudtxt2 '..id..' 47 "©000150000Near Green Portal " 520 370')
elseif (player(id,"tilex")>=214 and player(id,"tilex")<=218) and (player(id,"tiley")>=39 and player(id,"tiley")<=43) then
parse('hudtxt2 '..id..' 47 "©255000255Near Pink Portal " 520 370')
else
parse("hudtxt2 "..id.." 47 \"\" 520 370")
parse('hudtxt2 '..id..' 48 \"\" 525 384')
end
end
end
end
addhook("drop","drophook")
for type=1,91 do
function drophook(id,type)
if (player(id,"tilex")>=16 and player(id,"tilex")<=25) and (player(id,"tiley")>=43 and player(id,"tiley")<=52) then
parse("removeitem" ..type)
end
end
end