2446
Official Server Projects / Re: Operation "M"
« on: February 08, 2010, 04:10:17 PM »What's with all the random Machinimas all the sudden...Machinima?!? I thought this was a porno, sorry
I can still act though!
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
What's with all the random Machinimas all the sudden...Machinima?!? I thought this was a porno, sorry
[win]becuz i r in ma own pantz[/win]Wait if joo in your own pants... PARADOX
Fuck you Magic you ignorant son of a bitch...
I want this very much.. you do not know how long i have waited for somekind of fort wars.. sourceforts got old... but now... you are makin it.. NOW DO IT FASTER OR I KEELZ YUHNot just me, it is a dev team side project... to search for new features for the main mode... But it will also be a major release
On the tv link i sent him xD you are under constant surveilance..Its funny how we are not even lieing
[EPICWIN]I R TEH PINGAZ[/EPICWIN][smartass]If u iz teh pingaz then why you not in my pants?[/smartass]
ballcarrier = 0
EntTeam = {}
TEAMCOLOR = {}
TEAMCOLOR[1] = "50 150 255"
TEAMCOLOR[2] = "255 200 0"
TEAMCOLOR[3] = "50 255 150"
TEAMCOLOR[4] = "255 100 100"
function GAMEMODE:ShowHelp(ply)
umsg.Start( "showhelp", ply)
umsg.End()
end
function GAMEMODE:ShowTeam(ply)
umsg.Start( "showteam", ply)
umsg.End()
end
function GAMEMODE:ShowSpare1(ply)
if !ply:IsAdmin() and !ply:IsSuperAdmin() then return end
umsg.Start( "showadminpanel",ply)
umsg.End()
end
function GAMEMODE:ShowSpare2(ply)
if DM_MODE == false then ply:PrintMessage(4,"You can only use that menu during deathmatch!") return end
umsg.Start("buymenu",ply)
umsg.End()
end
function PickTeam(ply, command, args)
if !args[1] or !ply.changeteams then return false end
if EVEN_TEAMS then
if NUM_TEAMS == 4 then
if tonumber(args[1]) == 1 then
if team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_BLUE)
ply.spawn = nil
ply:Kill()
ply.changeteams = false
else
ply:PrintMessage(4, "Teams would be too uneven if you switched.")
end
elseif tonumber(args[1]) == 2 then
if team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_YELLOW)
ply.spawn = nil
ply:Kill()
ply.changeteams = false
else
ply:PrintMessage(4, "Teams would be too uneven if you switched.")
end
elseif tonumber(args[1]) == 3 then
if team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_GREEN)
ply.spawn = nil
ply:Kill()
ply.changeteams = false
else
ply:PrintMessage(4, "Teams would be too uneven if you switched.")
end
elseif tonumber(args[1]) == 4 then
if team.NumPlayers(TEAM_RED) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_RED) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_RED) <= team.NumPlayers(TEAM_BLUE) then
ply:SetTeam(TEAM_RED)
ply.spawn = nil
ply:Kill()
ply.changeteams = false
else
ply:PrintMessage(4, "Teams would be too uneven if you switched.")
end
end
elseif NUM_TEAMS == 3 then
if tonumber(args[1]) == 1 then
if team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_BLUE)
ply.spawn = nil
ply:Kill()
ply.changeteams = false
else
ply:PrintMessage(4, "Teams would be too uneven if you switched.")
end
elseif tonumber(args[1]) == 2 then
if team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_YELLOW)
ply.spawn = nil
ply:Kill()
ply.changeteams = false
else
ply:PrintMessage(4, "Teams would be too uneven if you switched.")
end
elseif tonumber(args[1]) == 3 then
if team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_GREEN)
ply.spawn = nil
ply:Kill()
ply.changeteams = false
else
ply:PrintMessage(4, "Teams would be too uneven if you switched.")
end
end
elseif NUM_TEAMS == 2 then
if tonumber(args[1]) == 1 then
if team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_BLUE)
ply.spawn = nil
ply:Kill()
ply.changeteams = false
else
ply:PrintMessage(4, "Teams would be too uneven if you switched.")
end
elseif tonumber(args[1]) == 2 then
if team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_YELLOW)
ply.spawn = nil
ply:Kill()
ply.changeteams = false
else
ply:PrintMessage(4, "Teams would be too uneven if you switched.")
end
end
end
else
ply:SetTeam(tonumber(args[1]))
end
for i,v in ipairs(TEAMCOLOR) do
if ply:Team() == i then
ply:Fire("color",v,0)
ply.changeteams = false
end
end
end
concommand.Add("changeteam",PickTeam)
function RefillTeams() --admin changed number of teams
for index,ply in pairs(player.GetAll()) do
ply:SetTeam(0)
ply.spawn = nil
if ply:Alive() then
ply:Kill()
end
if NUM_TEAMS == 4 then
if team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_BLUE)
elseif team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_YELLOW)
elseif team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_GREEN)
elseif team.NumPlayers(TEAM_RED) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_RED) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_RED) <= team.NumPlayers(TEAM_BLUE) then
ply:SetTeam(TEAM_RED)
end
elseif NUM_TEAMS == 3 then
if team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_GREEN) then
ply:SetTeam(TEAM_BLUE)
elseif team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_GREEN) then
ply:SetTeam(TEAM_YELLOW)
elseif team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_BLUE) then
ply:SetTeam(TEAM_GREEN)
end
elseif NUM_TEAMS == 2 then
if team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_YELLOW) then
ply:SetTeam(TEAM_BLUE)
elseif team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_BLUE) then
ply:SetTeam(TEAM_YELLOW)
end
end
for i,v in ipairs(TEAMCOLOR) do
if ply:Team() == i then
ply:Fire("color",v,0)
end
end
end
end
function SendMoney(ply)
umsg.Start("getmoney",ply)
umsg.Long(ply.money)
umsg.End()
end
function GAMEMODE:PlayerInitialSpawn(ply)
if CHOOSETEAM == false then --this looks very crappy to me but i am lazy so i am gonna leave it
if NUM_TEAMS == 4 then
if team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_BLUE)
elseif team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_YELLOW)
elseif team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_RED) then
ply:SetTeam(TEAM_GREEN)
elseif team.NumPlayers(TEAM_RED) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_RED) <= team.NumPlayers(TEAM_GREEN) and
team.NumPlayers(TEAM_RED) <= team.NumPlayers(TEAM_BLUE) then
ply:SetTeam(TEAM_RED)
end
elseif NUM_TEAMS == 3 then
if team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_GREEN) then
ply:SetTeam(TEAM_BLUE)
elseif team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_BLUE) and
team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_GREEN) then
ply:SetTeam(TEAM_YELLOW)
elseif team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_YELLOW) and
team.NumPlayers(TEAM_GREEN) <= team.NumPlayers(TEAM_BLUE) then
ply:SetTeam(TEAM_GREEN)
end
elseif NUM_TEAMS == 2 then
if team.NumPlayers(TEAM_BLUE) <= team.NumPlayers(TEAM_YELLOW) then
ply:SetTeam(TEAM_BLUE)
elseif team.NumPlayers(TEAM_YELLOW) <= team.NumPlayers(TEAM_BLUE) then
ply:SetTeam(TEAM_YELLOW)
end
end
for i,v in ipairs(TEAMCOLOR) do
if ply:Team() == i then
ply:Fire("color",v,0)
end
end
else
ply:Spectate()
umsg.Start( "joinmenu", ply)
umsg.End()
end
if DM_MODE then
umsg.Start("changetodm", ply)
umsg.End()
else
umsg.Start("changetobuild", ply)
umsg.End()
end
ply.money = STARTING_MONEY
ply.changeteams = true
SendMoney(ply)
end
stop trying, just wait for coolz to see itNo, i wanted joo to see it... This is coolz website, im pretty sure he will see it.
weel good luck wif dati know rite xD