Kill Fairness

[jrgp]

Script Name: Kill Fairness
Script Description: Whenever a flag carrier suicides, dock their points. If a flag carrier kills the other flag carrier, boost his/her points. If a non-flagger kills a flagger, increase his/her points.
Original Author(s): jrgp
Core Version: v2.2
Code:

Code: [Select]

const
DeathPoints = 3; //points to deduct if a flag carrier suicides
NormalKillPoints = 3; //points to give if a random dude kills flag carrier
UberKillPoints = 5; //points to give if a flag carrier kills another flag carrier

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
var current, KillerCurrent, DyerCurrent: integer;
begin
//if neither killer or victim have flag, exit
if not GetPlayerStat(Victim, 'Flagger') and not GetPlayerStat(Killer, 'Flagger') then
exit;

//their current points
KillerCurrent := GetPlayerStat(Killer, 'Kills');
DyerCurrent := GetPlayerStat(Victim, 'Kills');

//if flag carrier suicides, dock their points for messing up
if Killer = Victim and GetPlayerStat(Killer, 'Flagger') then
begin
SetScore(Killer, KillerCurrent - DeathPoints);
exit;
end;

//if flag carrier kills flag carrier, boost their points
if GetPlayerStat(Victim, 'Flagger') and GetPlayerStat(Killer, 'Flagger') then
begin
SetScore(Killer, KillerCurrent + UberKillPoints);
exit;
end;

//random dude kills flag carrier, increase their points
SetScore(Killer, KillerCurrent + NormalKillPoints);
end;


[iDante]

Sometimes when I know that there is noone near my base and I have flag and am weak and with no hp kits, I suicide on my spawn and grab the flag when I respawn... It would suck to lose points to that.

[DorkeyDear]

Sometimes when I know that there is noone near my base and I have flag and am weak and with no hp kits, I suicide on my spawn and grab the flag when I respawn... It would suck to lose points to that.

drop the flag b4 u die (throw it)

[iDante]

Sometimes when I know that there is noone near my base and I have flag and am weak and with no hp kits, I suicide on my spawn and grab the flag when I respawn... It would suck to lose points to that.

drop the flag b4 u die (throw it)

Good point.

I dunno about performance or anything, but I think its a lot easier to read the program if you use if/else's instead of exits, though your commenting makes it pretty easy.

[jrgp]

I dunno about performance or anything, but I think its a lot easier to read the program if you use if/else's instead of exits, though your commenting makes it pretty easy.

Yeah..my opinion on having a bunch of nested if-then,else's is that it makes the code messy and annoying to read. I use this same coding style my php scripts. But you know that already, don't you? I think it was you I gave/showed the TMS' source code to (Or was it IQ-U?)

[iDante]

Yeah..my opinion on having a bunch of nested if-then,else's is that it makes the code messy and annoying to read. I use this same coding style my php scripts. But you know that already, don't you? I think it was you I gave/showed the TMS' source code to (Or was it IQ-U?)

You offered to show me it but... I wasn't too interested (as long as it works, which it does). IQ saw it I think...

I'll show you how much nicer it can be with some nice if/else's, give me a minute.
Edit Here j00 goes:

Code: [Select]

const
DeathPoints = 3; //points to deduct if a flag carrier suicides
NormalKillPoints = 3; //points to give if a flag carrier kills another flag carrier
UberKillPoints = 5; //points to give if a random dude kills flag carrier

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
begin
if GetPlayerStat(Killer, 'Flagger') then begin
//if flag carrier suicides, dock their points for messing up
if Killer = Victim then begin
SetScore(Killer, GetPlayerStat(Killer,'kills') - DeathPoints);

//if flag carrier kills flag carrier, boost their points
end else if GetPlayerStat(Victim, 'Flagger') then
SetScore(Killer, GetPlayerStat(Killer,'kills') + UberKillPoints);

end else if GetPlayerStat(Victim, 'flagger') then
//random dude kills flag carrier, increase their points
SetScore(Killer, GetPlayerStat(Killer,'kills') + NormalKillPoints);
end;


[Iq Unlimited]

Btw that was me jrgp that you showed the source to. I still have it on my laptop.

[miketh2005]

Suggestion: If the flag gets returned withen 10 secs you get an extra 3 points, if you killed the flagger also.

[Horve]

make points based on hp, killing a flagger who has low health would give less points than a fully healed etc.
(or based on inflicted damage)