id/quake-id1-qc
0
0
Fork 0
Code Issues Pull requests Projects Releases 3 Packages Wiki Activity

as released 1996-09-13

Browse source
This commit is contained in:
archive 1996-09-13 00:00:00 +00:00
parent c843ab4fd8
commit d9cdbbafad
24 changed files with 456 additions and 251 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
boss.qc
View file

@ -5,7 +5,7 @@ BOSS-ONE
==============================================================================
*/
$cd /raid/quake/id1/models/boss1
$cd id1/models/boss1
$origin 0 0 -15
$base base
$skin skin

257
client.qc
View file

@ -32,6 +32,12 @@ void() info_intermission =
void() SetChangeParms =
{
if (self.health <= 0)
{
SetNewParms ();
return;
}
// remove items
self.items = self.items - (self.items &
(IT_KEY1 | IT_KEY2 | IT_INVISIBILITY | IT_INVULNERABILITY | IT_SUIT | IT_QUAD) );
@ -63,7 +69,7 @@ void() SetNewParms =
parm4 = 25;
parm5 = 0;
parm6 = 0;
parm6 = 0;
parm7 = 0;
parm8 = 1;
parm9 = 0;
};
@ -562,98 +568,65 @@ RULES
===============================================================================
*/
void(entity c) PrintClientScore =
{
if (c.frags > -10 && c.frags < 0)
bprint (" ");
else if (c.frags >= 0)
{
if (c.frags < 100)
bprint (" ");
if (c.frags < 10)
bprint (" ");
}
bprint (ftos(c.frags));
bprint (" ");
bprint (c.netname);
bprint ("\n");
};
void() DumpScore =
{
local entity e, sort, walk;
if (world.chain)
error ("DumpScore: world.chain is set");
// build a sorted lis
e = find(world, classname, "player");
sort = world;
while (e)
{
if (!sort)
{
sort = e;
e.chain = world;
}
else
{
if (e.frags > sort.frags)
{
e.chain = sort;
sort = e;
}
else
{
walk = sort;
do
{
if (!walk.chain)
{
e.chain = world;
walk.chain = e;
}
else if (walk.chain.frags < e.frags)
{
e.chain = walk.chain;
walk.chain = e;
}
else
walk = walk.chain;
} while (walk.chain != e);
}
}
e = find(e, classname, "player");
}
// print the list
bprint ("\n");
while (sort)
{
PrintClientScore (sort);
sort = sort.chain;
}
bprint ("\n");
};
/*
go to the next level for deathmatch
only called if a time or frag limit has expired
*/
void() NextLevel =
{
local entity o;
// find a trigger changelevel
o = find(world, classname, "trigger_changelevel");
if (!o || mapname == "start")
{ // go back to same map if no trigger_changelevel
if (mapname == "start")
{
if (!cvar("registered"))
{
mapname = "e1m1";
}
else if (!(serverflags & 1))
{
mapname = "e1m1";
serverflags = serverflags + 1;
}
else if (!(serverflags & 2))
{
mapname = "e2m1";
serverflags = serverflags + 2;
}
else if (!(serverflags & 4))
{
mapname = "e3m1";
serverflags = serverflags + 4;
}
else if (!(serverflags & 8))
{
mapname = "e4m1";
serverflags = serverflags + 8;
}
else
{
mapname = "start";
serverflags = serverflags - 15;
}
o = spawn();
o.map = mapname;
}
else
{
// find a trigger changelevel
o = find(world, classname, "trigger_changelevel");
// go back to start if no trigger_changelevel
if (!o)
{
mapname = "start";
o = spawn();
o.map = mapname;
}
}
nextmap = o.map;
gameover = TRUE;
if (o.nextthink < time)
{
@ -683,30 +656,12 @@ void() CheckRules =
if (timelimit && time >= timelimit)
{
NextLevel ();
/*
gameover = TRUE;
bprint ("\n\n\n==============================\n");
bprint ("game exited after ");
bprint (ftos(timelimit/60));
bprint (" minutes\n");
DumpScore ();
localcmd ("killserver\n");
*/
return;
}
if (fraglimit && self.frags >= fraglimit)
{
NextLevel ();
/*
gameover = TRUE;
bprint ("\n\n\n==============================\n");
bprint ("game exited after ");
bprint (ftos(self.frags));
bprint (" frags\n");
DumpScore ();
localcmd ("killserver\n");
*/
return;
}
};
@ -1254,12 +1209,25 @@ void(entity targ, entity attacker) ClientObituary =
bprint (" discharges into the water.\n");
return;
}
if (targ.weapon == 16)
if (targ.weapon == IT_GRENADE_LAUNCHER)
bprint (" tries to put the pin back in\n");
else if (rnum)
bprint (" becomes bored with life\n");
else
bprint (" checks if his weapon is loaded\n");
bprint (" becomes bored with life\n");
return;
}
else if ( (teamplay == 2) && (targ.team > 0)&&(targ.team == attacker.team) )
{
if (rnum < 0.25)
deathstring = " mows down a teammate\n";
else if (rnum < 0.50)
deathstring = " checks his glasses\n";
else if (rnum < 0.75)
deathstring = " gets a frag for the other team\n";
else
deathstring = " loses another friend\n";
bprint (attacker.netname);
bprint (deathstring);
attacker.frags = attacker.frags - 1;
return;
}
else
@ -1329,40 +1297,10 @@ void(entity targ, entity attacker) ClientObituary =
}
else
{
targ.frags = targ.frags - 1; // killed self
rnum = targ.watertype;
targ.frags = targ.frags - 1;
bprint (targ.netname);
if (rnum == -3)
{
if (random() < 0.5)
bprint (" sleeps with the fishes\n");
else
bprint (" sucks it down\n");
return;
}
else if (rnum == -4)
{
if (random() < 0.5)
bprint (" gulped a load of slime\n");
else
bprint (" can't exist on slime alone\n");
return;
}
else if (rnum == -5)
{
if (targ.health < -15)
{
bprint (" burst into flames\n");
return;
}
if (random() < 0.5)
bprint (" turned into hot slag\n");
else
bprint (" visits the Volcano God\n");
return;
}
// killed by a montser?
if (attacker.flags & FL_MONSTER)
{
if (attacker.classname == "monster_army")
@ -1400,6 +1338,8 @@ void(entity targ, entity attacker) ClientObituary =
return;
}
// tricks and traps
if (attacker.classname == "explo_box")
{
bprint (" blew up\n");
@ -1410,12 +1350,6 @@ void(entity targ, entity attacker) ClientObituary =
bprint (" was squished\n");
return;
}
if (targ.deathtype == "falling")
{
targ.deathtype = "";
bprint (" fell to his death\n");
return;
}
if (attacker.classname == "trap_shooter" || attacker.classname == "trap_spikeshooter")
{
bprint (" was spiked\n");
@ -1432,6 +1366,47 @@ void(entity targ, entity attacker) ClientObituary =
return;
}
// in-water deaths
rnum = targ.watertype;
if (rnum == -3)
{
if (random() < 0.5)
bprint (" sleeps with the fishes\n");
else
bprint (" sucks it down\n");
return;
}
else if (rnum == -4)
{
if (random() < 0.5)
bprint (" gulped a load of slime\n");
else
bprint (" can't exist on slime alone\n");
return;
}
else if (rnum == -5)
{
if (targ.health < -15)
{
bprint (" burst into flames\n");
return;
}
if (random() < 0.5)
bprint (" turned into hot slag\n");
else
bprint (" visits the Volcano God\n");
return;
}
// fell to their death?
if (targ.deathtype == "falling")
{
targ.deathtype = "";
bprint (" fell to his death\n");
return;
}
// hell if I know; he's just dead!!!
bprint (" died\n");
}
}

2
demon.qc
View file

@ -6,7 +6,7 @@ DEMON
==============================================================================
*/
$cd /raid/quake/id1/models/demon3
$cd id1/models/demon3
$scale 0.8
$origin 0 0 24
$base base

2
dog.qc
View file

@ -5,7 +5,7 @@ DOG
==============================================================================
*/
$cd /raid/quake/id1/models/dog
$cd id1/models/dog
$origin 0 0 24
$base base
$skin skin

1
doors.qc
View file

@ -770,6 +770,7 @@ void () func_door_secret =
self.health = 10000;
self.takedamage = DAMAGE_YES;
self.th_pain = fd_secret_use;
self.th_die = fd_secret_use;
}
self.oldorigin = self.origin;
if (!self.wait)

2
enforcer.qc
View file

@ -6,7 +6,7 @@ SOLDIER / PLAYER
==============================================================================
*/
$cd /raid/quake/id1/models/enforcer
$cd id1/models/enforcer
$origin 0 -6 24
$base base
$skin skin

2
fish.qc
View file

@ -1,4 +1,4 @@
$cd /raid/quake/id1/models/fish
$cd id1/models/fish
$origin 0 0 24
$base base
$skin skin

2
hknight.qc
View file

@ -6,7 +6,7 @@ KNIGHT
==============================================================================
*/
$cd /raid/quake/id1/models/knight2
$cd id1/models/knight2
$origin 0 0 24
$base base
$skin skin

28
items.qc
View file

@ -638,7 +638,7 @@ local float best;
// cells
if (self.weapon == 4)
{
if (other.ammo_cells >= 200)
if (other.ammo_cells >= 100)
return;
other.ammo_cells = other.ammo_cells + self.aflag;
}
@ -674,7 +674,6 @@ local float best;
self.solid = SOLID_NOT;
if (deathmatch == 1)
self.nextthink = time + 30;
self.think = SUB_regen;
activator = other;
@ -1230,7 +1229,7 @@ PLAYER BACKPACKS
void() BackpackTouch =
{
local string s;
local float best;
local float best, old, new;
local entity stemp;
if (other.classname != "player")
@ -1250,7 +1249,9 @@ void() BackpackTouch =
other.ammo_rockets = other.ammo_rockets + self.ammo_rockets;
other.ammo_cells = other.ammo_cells + self.ammo_cells;
other.items = other.items | self.items;
old = other.items;
new = self.items;
other.items = other.items | new;
bound_other_ammo ();
@ -1286,19 +1287,16 @@ void() BackpackTouch =
sound (other, CHAN_ITEM, "weapons/lock4.wav", 1, ATTN_NORM);
stuffcmd (other, "bf\n");
// change to a better weapon if appropriate
if ( other.weapon == best )
{
stemp = self;
self = other;
self.weapon = W_BestWeapon();
self = stemp;
}
// remove the backpack, change self to the player
remove(self);
self = other;
// change to the weapon
if (!deathmatch)
self.weapon = new;
else
Deathmatch_Weapon (old, new);
W_SetCurrentAmmo ();
};

2
knight.qc
View file

@ -6,7 +6,7 @@ KNIGHT
==============================================================================
*/
$cd /raid/quake/id1/models/knight
$cd id1/models/knight
$origin 0 0 24
$base base
$skin badass3

132
models.qc
View file

@ -8,7 +8,7 @@ WORLD WEAPONS
*/
$modelname g_shot
$cd /raid/quake/id1/models/g_shot
$cd id1/models/g_shot
$origin 0 0 -24
$flags 8 // client side rotate
$base base
@ -17,7 +17,7 @@ $frame shot1
$modelname g_nail
$cd /raid/quake/id1/models/g_nail
$cd id1/models/g_nail
$flags 8 // client side rotate
$origin 0 0 -24
$base base
@ -26,7 +26,7 @@ $frame shot1
$modelname g_nail2
$cd /raid/quake/id1/models/g_nail2
$cd id1/models/g_nail2
$flags 8 // client side rotate
$origin 0 0 -24
$base base
@ -35,7 +35,7 @@ $frame shot2
$modelname g_rock
$cd /raid/quake/id1/models/g_rock
$cd id1/models/g_rock
$flags 8 // client side rotate
$origin 0 0 -24
$base base
@ -44,7 +44,7 @@ $frame shot1
$modelname g_rock2
$cd /raid/quake/id1/models/g_rock2
$cd id1/models/g_rock2
$flags 8 // client side rotate
$origin 0 0 -24
$base base
@ -52,7 +52,7 @@ $skin skin
$frame shot1
$modelname g_light
$cd /raid/quake/id1/models/g_light
$cd id1/models/g_light
$flags 8 // client side rotate
$origin 0 0 -24
$base base
@ -68,7 +68,7 @@ VIEW WEAPONS
*/
$modelname v_axe
$cd /raid/quake/id1/models/v_axe
$cd id1/models/v_axe
$origin 0 5 54
$base base
$skin skin
@ -76,7 +76,7 @@ $frame frame1 frame2 frame3 frame4 frame5 frame6 frame7 frame8 frame9
$modelname v_shot
$cd /raid/quake/id1/models/v_shot
$cd id1/models/v_shot
$origin 0 0 54
$base base
$skin skin
@ -84,7 +84,7 @@ $frame shot1 shot2 shot3 shot4 shot5 shot6 shot7
$modelname v_shot2
$cd /raid/quake/id1/models/v_shot2
$cd id1/models/v_shot2
$origin 0 0 56
$base base
$skin skin
@ -92,7 +92,7 @@ $frame shot1 shot2 shot3 shot4 shot5 shot6 shot7
$modelname v_rock2
$cd /raid/quake/id1/models/v_rock2
$cd id1/models/v_rock2
$origin 0 0 54
$base base
$skin skin
@ -100,7 +100,7 @@ $frame shot1 shot2 shot3 shot4 shot5 shot6 shot6
$modelname v_rock
$cd /raid/quake/id1/models/v_rock
$cd id1/models/v_rock
$origin 0 0 54
$base base
$skin skin
@ -108,7 +108,7 @@ $frame shot1 shot2 shot3 shot4 shot5 shot6 shot7
$modelname v_nail2
$cd /raid/quake/id1/models/v_nail2
$cd id1/models/v_nail2
$origin 0 0 54
$base base
$skin skin
@ -116,14 +116,14 @@ $frame shot1 shot2 shot3 shot4 shot5 shot6 shot7 shot8 shot9
$modelname v_nail
$cd /raid/quake/id1/models/v_nail
$cd id1/models/v_nail
$origin 0 0 54
$base base
$skin skin
$frame shot1 shot2 shot3 shot4 shot5 shot6 shot7 shot8 shot9
$modelname v_light
$cd /raid/quake/id1/models/v_light
$cd id1/models/v_light
$origin 0 0 54
$base base
$skin skin
@ -139,42 +139,42 @@ ITEMS
*/
$modelname w_g_key
$cd /raid/quake/id1/models/w_g_key
$cd id1/models/w_g_key
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname w_s_key
$cd /raid/quake/id1/models/w_s_key
$cd id1/models/w_s_key
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname m_g_key
$cd /raid/quake/id1/models/m_g_key
$cd id1/models/m_g_key
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname m_s_key
$cd /raid/quake/id1/models/m_s_key
$cd id1/models/m_s_key
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname b_g_key
$cd /raid/quake/id1/models/b_g_key
$cd id1/models/b_g_key
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname b_s_key
$cd /raid/quake/id1/models/b_s_key
$cd id1/models/b_s_key
$flags 8 // client side rotate
$base base
$skin skin
@ -182,14 +182,14 @@ $frame frame1
$modelname quaddama
$cd /raid/quake/id1/models/quaddama
$cd id1/models/quaddama
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname invisibl
$cd /raid/quake/id1/models/invisibl
$cd id1/models/invisibl
$flags 8 // client side rotate
$base base
$skin skin
@ -197,62 +197,62 @@ $frame frame1
$modelname invulner
$flags 8 // client side rotate
$cd /raid/quake/id1/models/invulner
$cd id1/models/invulner
$base base
$skin skin
$frame frame1
//modelname jetpack
//cd /raid/quake/id1/models/jetpack
//cd id1/models/jetpack
//flags 8 // client side rotate
//base base
//skin skin
//frame frame1
$modelname cube
$cd /raid/quake/id1/models/cube
$cd id1/models/cube
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname suit
$cd /raid/quake/id1/models/suit
$cd id1/models/suit
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname boots
$cd /raid/quake/id1/models/boots
$cd id1/models/boots
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname end1
$cd /raid/quake/id1/models/end1
$cd id1/models/end1
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname end2
$cd /raid/quake/id1/models/end2
$cd id1/models/end2
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname end3
$cd /raid/quake/id1/models/end3
$cd id1/models/end3
$flags 8 // client side rotate
$base base
$skin skin
$frame frame1
$modelname end4
$cd /raid/quake/id1/models/end4
$cd id1/models/end4
$flags 8 // client side rotate
$base base
$skin skin
@ -268,7 +268,7 @@ GIBS
*/
$modelname gib1
$cd /raid/quake/id1/models/gib1
$cd id1/models/gib1
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -278,7 +278,7 @@ $frame frame1
// torso
$modelname gib2
$cd /raid/quake/id1/models/gib2
$cd id1/models/gib2
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -286,7 +286,7 @@ $skin skin
$frame frame1
$modelname gib3
$cd /raid/quake/id1/models/gib3
$cd id1/models/gib3
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -297,7 +297,7 @@ $frame frame1
// heads
$modelname h_player
$cd /raid/quake/id1/models/h_player
$cd id1/models/h_player
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -305,7 +305,7 @@ $skin skin
$frame frame1
$modelname h_dog
$cd /raid/quake/id1/models/h_dog
$cd id1/models/h_dog
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -313,7 +313,7 @@ $skin skin
$frame frame1
$modelname h_mega
$cd /raid/quake/id1/models/h_mega
$cd id1/models/h_mega
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -321,7 +321,7 @@ $skin skin
$frame frame1
$modelname h_guard
$cd /raid/quake/id1/models/h_guard
$cd id1/models/h_guard
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -329,7 +329,7 @@ $skin skin
$frame frame1
$modelname h_wizard
$cd /raid/quake/id1/models/h_wizard
$cd id1/models/h_wizard
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -337,7 +337,7 @@ $skin skin
$frame frame1
$modelname h_knight
$cd /raid/quake/id1/models/h_knight
$cd id1/models/h_knight
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -345,7 +345,7 @@ $skin skin
$frame frame1
$modelname h_hellkn
$cd /raid/quake/id1/models/h_hellkn
$cd id1/models/h_hellkn
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -353,7 +353,7 @@ $skin skin
$frame frame1
$modelname h_zombie
$cd /raid/quake/id1/models/h_zombie
$cd id1/models/h_zombie
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -361,7 +361,7 @@ $skin skin
$frame frame1
$modelname h_shams
$cd /raid/quake/id1/models/h_shams
$cd id1/models/h_shams
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -369,7 +369,7 @@ $skin skin
$frame frame1
$modelname h_shal
$cd /raid/quake/id1/models/h_shal
$cd id1/models/h_shal
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -377,7 +377,7 @@ $skin skin
$frame frame1
$modelname h_ogre
$cd /raid/quake/id1/models/h_ogre
$cd id1/models/h_ogre
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -385,7 +385,7 @@ $skin skin
$frame frame1
$modelname h_demon
$cd /raid/quake/id1/models/h_demon
$cd id1/models/h_demon
$flags 4 // EF_GIB
$origin 0 0 0
$base base
@ -401,7 +401,7 @@ MISC
*/
$modelname armor
$cd /raid/quake/id1/models/armor
$cd id1/models/armor
$flags 8 // client side rotate
$origin 0 0 -8
$base base
@ -411,14 +411,14 @@ $skin skin3
$frame armor
$modelname s_light // shambler lightning ready
$cd /raid/quake/id1/models/s_light
$cd id1/models/s_light
$origin 0 0 24
$base base
$skin skin
$frame frame1 frame2 frame3
$modelname bolt3 // lightning towar bolts
$cd /raid/quake/id1/models/bolt2
$cd id1/models/bolt2
$origin 0 0 0
$base base
$scale 4
@ -426,28 +426,28 @@ $skin skin
$frame light
$modelname bolt2
$cd /raid/quake/id1/models/bolt2
$cd id1/models/bolt2
$origin 0 0 0
$base base
$skin skin
$frame light
$modelname bolt
$cd /raid/quake/id1/models/bolt
$cd id1/models/bolt
$origin 0 0 0
$base light
$skin light
$frame light
$modelname laser
$cd /raid/quake/id1/models/laser
$cd id1/models/laser
$base base
$skin skin
$scale 2
$frame frame1
$modelname flame // with torch
$cd /raid/quake/id1/models/flame
$cd id1/models/flame
$origin 0 0 12
$base base
$skin skin
@ -461,7 +461,7 @@ $frame flame6 0.1
$framegroupend
$modelname flame2 // standing flame, no torch
$cd /raid/quake/id1/models/flame2
$cd id1/models/flame2
$origin 0 0 12
$base base
$skin skin
@ -488,35 +488,35 @@ $frame flameb11
$framegroupend
$modelname zom_gib
$cd /raid/quake/id1/models/zom_gib
$cd id1/models/zom_gib
$flags 32 // EF_ZOMGIB
$base base
$skin skin
$frame frame1
$modelname eyes
$cd /raid/quake/id1/models/eyes
$cd id1/models/eyes
$origin 0 0 -24
$base base
$skin skin
$frame frame1
$modelname spike
$cd /raid/quake/id1/models/spike
$cd id1/models/spike
$origin 0 0 0
$base spike
$skin skin
$frame spike
$modelname s_spike
$cd /raid/quake/id1/models/s_spike
$cd id1/models/s_spike
$origin 0 0 0
$base spike
$skin skin
$frame spike
$modelname v_spike
$cd /raid/quake/id1/models/v_spike
$cd id1/models/v_spike
$flags 128 // EF_TRACER3
$origin 0 0 0
$base base
@ -524,7 +524,7 @@ $skin skin
$frame frame1
$modelname w_spike
$cd /raid/quake/id1/models/w_spike
$cd id1/models/w_spike
$flags 16 // EF_TRACER
$origin 0 0 0
$base base
@ -537,7 +537,7 @@ $frame frame4 0.1
$framegroupend
$modelname k_spike
$cd /raid/quake/id1/models/k_spike
$cd id1/models/k_spike
$flags 64 // EF_TRACER2
$origin 0 0 0
$base base
@ -545,7 +545,7 @@ $skin skin
$frame frame1
$modelname backpack
$cd /raid/quake/id1/models/backpack
$cd id1/models/backpack
$flags 8 // EF_ROTATE
$origin 0 0 0
$base base
@ -553,7 +553,7 @@ $skin skin
$frame frame1
$modelname grenade
$cd /raid/quake/id1/models/grenade2
$cd id1/models/grenade2
$flags 2 // EF_GRENADE
$origin 0 0 0
$base base
@ -561,7 +561,7 @@ $skin skin
$frame grenade
$modelname missile
$cd /raid/quake/id1/models/missile
$cd id1/models/missile
$flags 1 // EF_ROCKET
$origin 0 0 0
$base base
@ -569,7 +569,7 @@ $skin skin
$frame missile
$modelname lavaball
$cd /raid/quake/id1/models/lavaball
$cd id1/models/lavaball
$flags 1 // EF_ROCKET
$origin 0 0 0
$base base
@ -577,7 +577,7 @@ $skin skin
$frame frame1
$modelname teleport
$cd /raid/quake/id1/models/teleport
$cd id1/models/teleport
$origin 0 0 24
$base base
$skin skin

2
ogre.qc
View file

@ -6,7 +6,7 @@ OGRE
==============================================================================
*/
$cd /raid/quake/id1/models/ogre_c
$cd id1/models/ogre_c
$origin 0 0 24
$base base
$skin base

10
oldone.qc
View file

@ -5,7 +5,7 @@ OLD ONE
==============================================================================
*/
$cd /raid/quake/id1/models/old_one
$cd id1/models/old_one
$origin 0 0 24
$base base
$skin skin
@ -239,6 +239,13 @@ void() finale_4 =
//============================================================================
void () nopain =
{
self.health = 40000;
};
//============================================================================
/*QUAKED monster_oldone (1 0 0) (-16 -16 -24) (16 16 32)
*/
@ -267,6 +274,7 @@ void() monster_oldone =
self.think = old_idle1;
self.nextthink = time + 0.1;
self.takedamage = DAMAGE_YES;
self.th_pain = nopain;
self.th_die = finale_1;
shub = self;

2
player.qc
View file

@ -9,7 +9,7 @@ PLAYER
==============================================================================
*/
$cd /raid/quake/id1/models/player_4
$cd id1/models/player_4
$origin 0 -6 24
$base base
$skin skin

143
progdefs.h Normal file
View file

@ -0,0 +1,143 @@
/* file generated by qcc, do not modify */
typedef struct
{ int pad[28];
int self;
int other;
int world;
float time;
float frametime;
float force_retouch;
string_t mapname;
float deathmatch;
float coop;
float teamplay;
float serverflags;
float total_secrets;
float total_monsters;
float found_secrets;
float killed_monsters;
float parm1;
float parm2;
float parm3;
float parm4;
float parm5;
float parm6;
float parm7;
float parm8;
float parm9;
float parm10;
float parm11;
float parm12;
float parm13;
float parm14;
float parm15;
float parm16;
vec3_t v_forward;
vec3_t v_up;
vec3_t v_right;
float trace_allsolid;
float trace_startsolid;
float trace_fraction;
vec3_t trace_endpos;
vec3_t trace_plane_normal;
float trace_plane_dist;
int trace_ent;
float trace_inopen;
float trace_inwater;
int msg_entity;
func_t main;
func_t StartFrame;
func_t PlayerPreThink;
func_t PlayerPostThink;
func_t ClientKill;
func_t ClientConnect;
func_t PutClientInServer;
func_t ClientDisconnect;
func_t SetNewParms;
func_t SetChangeParms;
} globalvars_t;
typedef struct
{
float modelindex;
vec3_t absmin;
vec3_t absmax;
float ltime;
float movetype;
float solid;
vec3_t origin;
vec3_t oldorigin;
vec3_t velocity;
vec3_t angles;
vec3_t avelocity;
vec3_t punchangle;
string_t classname;
string_t model;
float frame;
float skin;
float effects;
vec3_t mins;
vec3_t maxs;
vec3_t size;
func_t touch;
func_t use;
func_t think;
func_t blocked;
float nextthink;
int groundentity;
float health;
float frags;
float weapon;
string_t weaponmodel;
float weaponframe;
float currentammo;
float ammo_shells;
float ammo_nails;
float ammo_rockets;
float ammo_cells;
float items;
float takedamage;
int chain;
float deadflag;
vec3_t view_ofs;
float button0;
float button1;
float button2;
float impulse;
float fixangle;
vec3_t v_angle;
float idealpitch;
string_t netname;
int enemy;
float flags;
float colormap;
float team;
float max_health;
float teleport_time;
float armortype;
float armorvalue;
float waterlevel;
float watertype;
float ideal_yaw;
float yaw_speed;
int aiment;
int goalentity;
float spawnflags;
string_t target;
string_t targetname;
float dmg_take;
float dmg_save;
int dmg_inflictor;
int owner;
vec3_t movedir;
string_t message;
float sounds;
string_t noise;
string_t noise1;
string_t noise2;
string_t noise3;
} entvars_t;
#define PROGHEADER_CRC 5927

2
shalrath.qc
View file

@ -5,7 +5,7 @@ SHAL-RATH
==============================================================================
*/
$cd /raid/quake/id1/models/shalrath
$cd id1/models/shalrath
$origin 0 0 24
$base base
$skin skin

2
shambler.qc
View file

@ -6,7 +6,7 @@ SHAMBLER
==============================================================================
*/
$cd /raid/quake/id1/models/shams
$cd id1/models/shams
$origin 0 0 24
$base base
$skin base

2
soldier.qc
View file

@ -6,7 +6,7 @@ SOLDIER / PLAYER
==============================================================================
*/
$cd /raid/quake/id1/models/soldier3
$cd id1/models/soldier3
$origin 0 -6 24
$base base
$skin skin

6
sprites.qc
View file

@ -3,7 +3,7 @@
$spritename s_explod
$type vp_parallel
$load /raid/quake/id1/gfx/sprites/explod03.lbm
$load id1/gfx/sprites/explod03.lbm
$frame 24 24 56 56
$frame 120 24 56 56
$frame 216 24 56 56
@ -14,13 +14,13 @@ $frame 216 88 56 56
$spritename s_bubble
$type vp_parallel
$load /raid/quake/id1/gfx/sprites/bubble.lbm
$load id1/gfx/sprites/bubble.lbm
$frame 16 16 16 16
$frame 40 16 16 16
$spritename s_light
$type vp_parallel
$load /raid/quake/id1/gfx/sprites/light.lbm
$load id1/gfx/sprites/light.lbm
$frame 104 32 32 32

2
tarbaby.qc
View file

@ -6,7 +6,7 @@ BLOB
==============================================================================
*/
$cd /raid/quake/id1/models/tarbaby
$cd id1/models/tarbaby
$origin 0 0 24
$base base

84
weapons.qc
View file

@ -39,6 +39,7 @@ void() W_FireAxe =
local vector source;
local vector org;
makevectors (self.v_angle);
source = self.origin + '0 0 16';
traceline (source, source + v_forward*64, FALSE, self);
if (trace_fraction == 1.0)
@ -384,6 +385,7 @@ void() W_FireRocket =
missile.owner = self;
missile.movetype = MOVETYPE_FLYMISSILE;
missile.solid = SOLID_BBOX;
missile.classname = "missile";
// set missile speed
@ -463,6 +465,7 @@ void(vector p1, vector p2, entity from, float damage) LightningDamage =
void() W_FireLightning =
{
local vector org;
local float cells;
if (self.ammo_cells < 1)
{
@ -474,8 +477,9 @@ void() W_FireLightning =
// explode if under water
if (self.waterlevel > 1)
{
T_RadiusDamage (self, self, 35*self.ammo_cells, world);
cells = self.ammo_cells;
self.ammo_cells = 0;
T_RadiusDamage (self, self, 35*cells, world);
W_SetCurrentAmmo ();
return;
}
@ -1121,7 +1125,81 @@ void() CycleWeaponCommand =
am = 1;
}
if ( (self.items & self.weapon) && am == 0)
if ( (it & self.weapon) && am == 0)
{
W_SetCurrentAmmo ();
return;
}
}
};
/*
============
CycleWeaponReverseCommand
Go to the prev weapon with ammo
============
*/
void() CycleWeaponReverseCommand =
{
local float it, am;
it = self.items;
self.impulse = 0;
while (1)
{
am = 0;
if (self.weapon == IT_LIGHTNING)
{
self.weapon = IT_ROCKET_LAUNCHER;
if (self.ammo_rockets < 1)
am = 1;
}
else if (self.weapon == IT_ROCKET_LAUNCHER)
{
self.weapon = IT_GRENADE_LAUNCHER;
if (self.ammo_rockets < 1)
am = 1;
}
else if (self.weapon == IT_GRENADE_LAUNCHER)
{
self.weapon = IT_SUPER_NAILGUN;
if (self.ammo_nails < 2)
am = 1;
}
else if (self.weapon == IT_SUPER_NAILGUN)
{
self.weapon = IT_NAILGUN;
if (self.ammo_nails < 1)
am = 1;
}
else if (self.weapon == IT_NAILGUN)
{
self.weapon = IT_SUPER_SHOTGUN;
if (self.ammo_shells < 2)
am = 1;
}
else if (self.weapon == IT_SUPER_SHOTGUN)
{
self.weapon = IT_SHOTGUN;
if (self.ammo_shells < 1)
am = 1;
}
else if (self.weapon == IT_SHOTGUN)
{
self.weapon = IT_AXE;
}
else if (self.weapon == IT_AXE)
{
self.weapon = IT_LIGHTNING;
if (self.ammo_cells < 1)
am = 1;
}
if ( (it & self.weapon) && am == 0)
{
W_SetCurrentAmmo ();
return;
@ -1169,6 +1247,8 @@ void() ImpulseCommands =
CycleWeaponCommand ();
if (self.impulse == 11)
ServerflagsCommand ();
if (self.impulse == 12)
CycleWeaponReverseCommand ();
if (self.impulse == 255)
QuadCheat ();

2
wizard.qc
View file

@ -6,7 +6,7 @@ WIZARD
==============================================================================
*/
$cd /raid/quake/id1/models/a_wizard
$cd id1/models/a_wizard
$origin 0 0 24
$base wizbase
$skin wizbase

2
zombie.qc
View file

@ -5,7 +5,7 @@ ZOMBIE
==============================================================================
*/
$cd /raid/quake/id1/models/zombie
$cd id1/models/zombie
$origin 0 0 24