Mohaa 3rd person modin teko

Server-Side:

Lataa PakScape.exe -ohjelma, jolla voit avata/tallentaa pk3-tiedostoja. Suorita pakscape ja paina file ja sitten New. Sitten tee uusi kansio nimeltä global ja avaa "muistio", pistä siihen alla oleva koodaus ja tallenna nimellä ambient.scr. Pistä tämä ambient.scr global kansioon!




main local.music:

exec global/savenames.scr
exec global/3rd.scr

level waittill spawn

if (local.music != NIL)
{
local.string = ("music/" + local.music + ".mus")
soundtrack local.string
println ("playing " + local.string)
forcemusic normal normal
}

level.gamma = 1
level.hazerange = 0
level.newhazerange = 0
level.haze = 0
if (level.gammacap == NIL)
level.gammacap = 0
level.farplanerate = 0.015



println "Loading Ambient.scr"

if ($interior == NULL)
level.interiors = 0
else
level.interiors = $interior.size

if (level.interiors > 0)
{
level.interior = exec global/makearray.scr $interior

for (local.i=1;local.i<level.interiors+1;local.i++)
{
level.interior[local.i] thread interior

if (level.interior[local.i].set == NIL)
{
println ("Warning, interior at " + level.interior[local.i].origin + " has no #set")
level.interior[local.i].set = 1
}
else
println ("Spawned interior " + local.i)

if (level.interior[local.i].haze == NIL)
level.interior[local.i].haze = -1

}
}

if ($exterior == NULL)
level.exteriors = 0
else
level.exteriors = $exterior.size

if (level.exteriors > 0)
{
level.exterior = exec global/makearray.scr $exterior

for (local.i=1;local.i<level.exteriors+1;local.i++)
{
level.exterior[local.i] thread exterior

if (level.exterior[local.i].set == NIL)
{
println ("Warning, exterior at " + level.exterior[local.i].origin + " has no #set")
level.exterior[local.i].set = 1
}
else
println ("Spawned exterior " + local.i)

if (level.exterior[local.i].haze == NIL)
level.exterior[local.i].haze = -1

}

// thread lightlevel
thread musiclevel
}

// thread exec global/door_locked.scr::lock


exec global/ambience.scr

end

interior:

if (getcvar(notrigger) == "1")
{
wait 4
self delete
end
}

while (1)
{
self waittill trigger

/*
if (self.set == 1)
forcemusic aux2 aux2
else
if (self.set == 2)
forcemusic aux4 aux4
else
if (self.set == 3)
forcemusic aux6 aux6
*/

/*
if (self.haze != -1)
level.newhazerange = self.haze
else
level.newhazerange = level.gammacap

level.haze = 1
*/

level.current_music = ("int" + self.set)
// while ($player istouching self)
// waitframe

}

end



exterior:
if (getcvar(notrigger) == "1")
{
wait 4
self delete
end
}

while (1)
{
self waittill trigger

/*
if (self.set == 1)
forcemusic aux1 aux1
else
if (self.set == 2)
forcemusic aux3 aux3
else
if (self.set == 3)
forcemusic aux5 aux5
*/

/*
if (self.haze != -1)
level.newhazerange = self.haze
else
level.newhazerange = level.gammacap

level.haze = -1
*/

level.current_music = ("ext" + self.set)
// while ($player istouching self)
// waitframe

}


end

musiclevel:
// level waittill spawn

local.lastmusic = -1
level.current_music = -1
while (1)
{
if (level.current_music != local.lastmusic)
{
local.break = 0
local.current_music = level.current_music

for (local.i=0;local.i<6;local.i++)
{
if (level.current_music == local.lastmusic)
local.break = 1

waitframe
}

if (local.break == 0)
if (level.current_music != local.lastmusic)
{

if (level.current_music == "ext1")
forcemusic aux1 aux1
else
if (level.current_music == "ext2")
forcemusic aux3 aux3
else
if (level.current_music == "ext3")
forcemusic aux5 aux5
else
if (level.current_music == "int1")
forcemusic aux2 aux2
else
if (level.current_music == "int2")
forcemusic aux4 aux4
else
if (level.current_music == "int3")
forcemusic aux6 aux6

println ("forced music " + level.current_music)
local.lastmusic = local.current_music
}
}

wait 0.1
}
end


lightlevel:
level waittill spawn
while (1==1)
{
if ((level.haze == 1) && (level.hazerange < level.newhazerange))
{
level.hazerange = level.hazerange + level.farplanerate
if (level.hazerange > level.newhazerange)
{
level.hazerange = level.newhazerange
level.haze = 0
}
}
else
if ((level.haze == -1) && (level.hazerange > 0))
{
level.hazerange = level.hazerange - level.farplanerate

if (level.hazerange < 0.1)
{
level.hazerange = 0
level.haze = 0
}
}

if (level.hazerange > level.newhazerange)
level.hazerange = level.newhazerange
else
if (level.hazerange < 0)
level.hazerange = 0

// println ("hazerange is " + level.hazerange)

// local.farplanecolor = level.farplanecolor + ( level.hazerange level.hazerange level.hazerange )
// $world farplane_color local.farplanecolor
// setcvar r_farplane_color local.farplanecolor
// local.gamma = level.gamma + level.hazerange
setcvar r_gammabias (level.hazerange + 1)

waitframe
}


end



lighten:
while ((level.haze == 1) && (level.hazerange < level.farplanerange))
{
local.farplanecolor = level.farplanecolor + ( level.hazerange level.hazerange level.hazerange )
$world farplane_color local.farplanecolor
setcvar r_farplane_color local.farplanecolor
level.hazerange = level.hazerange + level.farplanerate
wait 0.1
}
level.hazerange = 0.3
local.farplanecolor = level.farplanecolor + ( level.hazerange level.hazerange level.hazerange )
$world farplane_color local.farplanecolor
setcvar r_farplane_color local.farplanecolor

level.haze = 0
end

darken:
while ((level.haze == -1) && (level.hazerange > 0.0))
{
local.farplanecolor = level.farplanecolor + ( level.hazerange level.hazerange level.hazerange )
$world farplane_color local.farplanecolor
setcvar r_farplane_color local.farplanecolor
level.hazerange = level.hazerange - level.farplanerate
wait 0.1
}
level.hazerange = 0
local.farplanecolor = level.farplanecolor + ( level.hazerange level.hazerange level.hazerange )
$world farplane_color local.farplanecolor
setcvar r_farplane_color local.farplanecolor

level.haze = 0

end


Avaa muistio uudelleen ja kopio tämä/liitä siihen:

main:
thread 3rd
thread sboard

setcvar "g_obj_alliedtext2" "-= 3rd Person =-"
setcvar "g_obj_alliedtext3" "Tervetuloa!"
setcvar "g_obj_axistext2" "Paina / 3rd person on/off!"
setcvar "g_obj_axistext3" "Tehnyt: _EffEcT_"

//Activates cheats to allow 3rd, turns 3rd on.
3rd:
if($player.size > 0)
{
setcvar cheats "1"
setcvar thereisnomonkey "1"
$player stufftext ("bind / toggle cg_3rd_person")
}
wait 10
thread 3rd
end


//Gotta give me credits =)
sboard:
iprintln_noloc "Tervetuloa serveriin! Tämän modin on tehnyt _EffEcT_ !!"
wait 2
iprintln_noloc "webbisivu: Afterdawn.com ! "
wait 2
iprintln_noloc "Oppaan löydät Afterdawn -keskustelu alueelta!!"
wait 58
thread sboard
end

Sen jälkeen tallenna se nimellä 3rd.scr ja siirrä global kansioon, sitten tallenna tämä pk3 -tiedostona työpöydälle ja siirrä main directoryyn ja sitten vain runnaat serverin!

Tämä on laiskoille, jotka eivät viitsi tehdä itse, joten laitoin latauksen tähän, jonka tein itse!