[t1 request] death hud [Archive]

mongors

01-20-2003, 08:12 AM

// EvDeath
// EvItA
//
// Filters death messages out of chat hud
// into a separate hud. Base only.
//
// Ok. You have two options, you can filter
// all death messages into the new hud, or
// only the death messages of one person, or
// your clans tag. By default, all messages
// are filtered into the death hud.
// To change your filter, get into the game
// and pull up the console by typing ~ on the
// keyboard. Then, enter this line:
// $DeathPref = "va.";
// The above is an example based off of my clans
// tag, so all of my team mates that die would
// get filtered into the death hud. If you want
// to filter just one person, you can just put
// that persons name in, without their tag.
// For example if you want to track |5150|Eldee:
// $DeathPref = "eldee";
// Now, everytime eldee dies, you will see it in
// the death hud.
// Now, if you want to set it back to filter all
// death messages into death hud, type this:
// $DeathPref = "all";
//
// At the end of the map, you will display the total
// of server deaths in your chat hud, as long as
// your $DeathPref is set to all.
//
// Will work with Stripped, Presto, or Writers stuff.
//
// Hud Position
$DeathHud::PosX = "475";
$DeathHud::PosY = "0";

//========================= ========================= ========================= ====================
$DeathPref = "all";

function DeathHud::Create()
{
if(!$ConnectedToServer) {
schedule("DeathHud::Create();", 1);
return;
}

if($DeathHud::Loaded == 1)
return;

$DeathHud::Loaded = 1;

$DeathHud[0] = newObject("DeathHud_Frame", FearGui::FearGuiMenu, $DeathHud::PosX, $DeathHud::PosY, 370, 50);
$DeathHud[1] = newObject("DeathHud_Main3", FearGuiFormattedText, $DeathHud::PosX+10, $DeathHud::PosY+2, 0, 0);
$DeathHud[2] = newObject("DeathHud_Main2", FearGuiFormattedText, $DeathHud::PosX+10, $DeathHud::PosY+15, 0, 0);
$DeathHud[3] = newObject("DeathHud_Main1", FearGuiFormattedText, $DeathHud::PosX+10, $DeathHud::PosY+28, 0, 0);

control::setVisible("DeathHud_Frame", 1);

for(%i = 0; $DeathHud[%i] != ""; %i++)
addToSet(PlayGui, $DeathHud[%i]);

Control::setValue("DeathHud_Main3", "");
Control::setValue("DeathHud_Main2", "");
Control::setValue("DeathHud_Main1", "");
}

function DeathHud::Parse(%client, %msg)
{
if ($DeathHud::Loaded != 1)
return;

if(%client)
return;

for(%i = 1; %i <= 41; %i++) {

if(String::FindSubStr(%ms g, $KillMsg[%i]) != -1) {

if($DeathPref == "all"){

$ServerDeaths++;

if($MsgCount != 4)
$MsgCount++;

if($MsgCount == 1)
$Msg1 = %msg;

else if($MsgCount == 2){
$Msg2 = $Msg1;
$Msg1 = %msg;}

else if($MsgCount >= 3){
$Msg3 = $Msg2;
$Msg2 = $Msg1;
$Msg1 = %msg;}

Control::setValue("DeathHud_Main1", $Msg1);
Control::setValue("DeathHud_Main2", $Msg2);
Control::setValue("DeathHud_Main3", $Msg3);
return mute;}

else if(String::FindSubStr(%ms g, $DeathPref) != -1) {

if($MsgCount != 4)
$MsgCount++;

if($MsgCount == 1)
$Msg1 = %msg;

else if($MsgCount == 2){
$Msg2 = $Msg1;
$Msg1 = %msg;}

else if($MsgCount >= 3){
$Msg3 = $Msg2;
$Msg2 = $Msg1;
$Msg1 = %msg;}

Control::setValue("DeathHud_Main1", $Msg1);
Control::setValue("DeathHud_Main2", $Msg2);
Control::setValue("DeathHud_Main3", $Msg3);
return mute;}}}

}

function DeathHud::Remove()
{
if($DeathHud::Loaded == 0)
return;

if($DeathPref == "all"){
say(0, "Total Server Deaths: " @ $ServerDeaths);
say(0, "Total Server Deaths: " @ $ServerDeaths);
say(0, "Total Server Deaths: " @ $ServerDeaths);}

DeathHud::Reset();

$DeathHud::Loaded = 0;
for(%i = 0; $DeathHud[%i] != ""; %i++)
deleteObject($DeathHud[%i]);
}

function DeathHud::Reset()
{
$MsgCount = 0;
$ServerDeaths = 0;
}

function DeathHud::Init()
{
$KillMsg[1] = "Frisbee of Death thrown by ";
$KillMsg[2] = " blasts";
$KillMsg[3] = "'s spinfusor caught";
$KillMsg[4] = "'s Stormhammer.";
$KillMsg[5] = " ventilates";
$KillMsg[6] = " gives";
$KillMsg[7] = " fills";
$KillMsg[8] = " guns down";
$KillMsg[9] = " adds";
$KillMsg[10] = " fells";
$KillMsg[11] = "'s laser rifle.";
$KillMsg[12] = "'s crosshairs";
$KillMsg[13] = "'s plasma.";
$KillMsg[14] = " asks";
$KillMsg[15] = " blows";
$KillMsg[16] = "'s explosive temper.";
$KillMsg[17] = " never saw it coming from ";
$KillMsg[18] = " mortars";
$KillMsg[19] = " mortar from ";
$KillMsg[20] = " inflicts";
$KillMsg[21] = "'s mortar takes out ";
$KillMsg[22] = " gets a blast out of ";
$KillMsg[23] = "'s rain of blaster fire.";
$KillMsg[24] = "'s puny blaster shows ";
$KillMsg[25] = "'s master blaster.";
$KillMsg[26] = " makes quite an impact on ";
$KillMsg[27] = " becomes the victim of a fly-by from ";
$KillMsg[28] = " leaves a nasty dent in ";
$KillMsg[29] = " says, 'Hey ";
$KillMsg[30] = "'s ELF gun.";
$KillMsg[31] = " out of meeting ";
$KillMsg[32] = " short-circuits ";
$KillMsg[33] = " takes a missile up the keister.";
$KillMsg[34] = " gets shot down.";
$KillMsg[35] = " gets real friendly with a rocket.";
$KillMsg[36] = " feels the burn from a warhead.";
$KillMsg[37] = " ends it all.";
$KillMsg[38] = " own life.";
$KillMsg[39] = " own dumb self.";
$KillMsg[40] = " decides to see what the afterlife is like.";
$KillMsg[41] = " mows down ";
}

Event::Attach(eventConnec ted, DeathHud::Init);
Event::Attach(eventClient Message, DeathHud::Parse);
Event::Attach(eventConnec tionAccepted, DeathHud::Remove);
Event::Attach(eventConnec tionAccepted, DeathHud::Create);
Event::Attach(eventChange Mission, DeathHud::Remove);
Event::Attach(eventChange Mission, DeathHud::Create);
Event::Attach(eventExit, DeathHud::Remove);