Death Information

[DorkeyDear]

Script Name: Death Information
Script Description: The script shows who killed you, what they killed you with, with how many bullets did they kill you with, how many times you hit them, and how much damage (%) you dealt to him.
Original Author: Curt (DorkeyDear)
Core Version: 2.6.1

_{Note: The ThreadFunc procedure is sometimes buggy and the script may not always show the information.}

[KeYDoN]

nice idea but...
1. omg indent your code propely
2. Dont read the INI on every kill, it will stay the same! read it once at startup^^
3. 13*20 is 260 dont calculate it everytime^^

[mxyzptlk]

3. Maybe it calculates as Dmg[Killer][Victim] / 13 * 20, straight across. If it follows Order of Ops, it would.
As in: (Dmg[Killer][Victim] / 13)* 20

[DorkeyDear]

KeYDoN:
1. I like 2 spaces for indenting. A tab is wayyyyyy too far out and 4 indents sometimes goes out too far for code with a lot of ifs, fors, whiles, then/do begin..ends.
2. Fixed
3. Reordered to make it multiply first. I thought that the order of operations always divided first so it didn't matter, but just in case, I moved it.

[chrisgbk]

3. Maybe it calculates as Dmg[Killer][Victim] / 13 * 20, straight across. If it follows Order of Ops, it would.
As in: (Dmg[Killer][Victim] / 13)* 20

nice idea but...
1. omg indent your code propely
2. Dont read the INI on every kill, it will stay the same! read it once at startup^^
3. 13*20 is 260 dont calculate it everytime^^

Multiplication and division have the same precedence; and when encountered in a line should be parsed left to right.
The order of multiplication and division do not matter, as long as you preserve the correct operands; a / b * c == a * c / b

a / (b * c) is, however, not the same; but a / (b / c) is. so dividing by 260 would be incorrect, but dividing by 0.65 would be correct. Multiplying by aprox 1.54 would also be correct, but, as 20/13 is an infinitely repeating decimal, it's not recommended for computer applications due to precision issues.

As far as indenting goes, in the land of Delphi, 2 spaces is standard.

[KeYDoN]

@3. ah right, my mistake, didn think enough about it ;O
@Dorkey
there i even dont see your lovly 2 spaces

if Damage <= GetPlayerStat(Victim,'Health') then Dmg[Victim][Shooter] := Dmg[Victim][Shooter] + Damage else Dmg[Victim][Shooter] := Dmg[Victim][Shooter] + GetPlayerStat(Victim,'Health');

EDIT: just for info:

iif(Realistic = true,...

could be shorter

iif(Realistic,

[DorkeyDear]

UPDATED and CHANGED
Replaced the "20 * Dmg[Killer][Victim] / 13" with "1.54 * Dmg[Killer][Victim]"
Shortened "iif(Realistic = true,..." to "iif(Realistic,..."

[ajkilla]

dorkey how come You never pos these In Ds Forum -____- nice script BTW

[DorkeyDear]

Sense... uhh... its ezr to post in just 1 forum they shoudl come here if they want scripts.
Eh, could you PM me to remind me latter to post my scripts on DS forums? I may actually do it, just not ATM.

Date Posted: July 04, 2007, 06:32:17 PMFIXED

• added a round to the % of player's health so the script works and is an integer.

[Flacid Assassin]

this would be good for a CoD 4 Modd ill be working on after my first mod is complete

[miketh2005]

can u put this in a .zip?

[Sethamundo]

Sorry to dig up an old thread, but I'm having some problems.  I've added this script to my server and have traced the problem back down to this script.  I love this script and would like to see it working properly on my server, but currently it grants invincibility!  Gram and I were testing this script and while he could kill me normally, he would recieve no damage at all.  The /kill command would not kill him either, nor admin kill.  After we were done, I played around with it some more alone when my server was empty and I couldn't take any damage at all.  I tried /kill, /mercy grenading myself, adding Boogie Man to chainsaw me, etc.  When adding Boogie Man, he couldn't die either!

Has anyone else encountered this problem?  If so, does anyone know of a fix for it, or is it something that DorkyDear can fix within the code? (I have no scripting knowlage, unfortunately.)

[DorkeyDear]

Try now. (i changed the code)

[Sethamundo]

Try now. (i changed the code)

Whatever you did, you fixed it.  Works flawlessly!  Much thanks DorkeyDear.

[VenTeR]

hm,2.6.3 ,it is possible?

[BombSki]

if it worked on february 8th it should still work, yes.

[rumpel]

i already tested it: it does work

[VenTeR]

with windows - worked,with linux -not
ideas?

[BombSki]

what are the errors..?

[VenTeR]

server shutdown with fatal error

Date Posted: March 29, 2008, 01:51:34 pmI think,this error in soldat server...
P.S: I have Linux Mandriva 2008
Please help me!

[rumpel]

works fine on windows and on selfkill :d

[VenTeR]

hah!:)very fun,but server shutdown!!!!

[DorkeyDear]

hah!:)very fun,but server shutdown!!!!

Then you did something wrong.
I just tested to see if it compiles, which it does.

make sure the server starts w/out the script, if not, get a fresh new server and modify soldat.ini and test again..
create a folder under the scripts folder, name it "Death Info"
Inside Death Info....
create a file Includes.txt and inside that put "core.pas"
create a file core.pas and inside that, paste the code.

[Miszkol_]

1. My server config:
- Counter-Strike script v1.01
- realistic mode - on
- Survival mode - on
- (...and more scripts. This is important scripts on my server, but i think Death Info script may collide with that scripts.)

2. When someone kill someone Info of Death only flash on screen (least on my screen) and disappear...
I think this script maybe collide with other scripts.

3. ...And IMPORTANT something:
I have a Idea :
When someone want Info of dead to write command /me or /deadinfo or ...
Only someone want to get info to write command. I think it's better result and don't do chaos on screen...

H.E.L.P M.E

[DorkeyDear]

Miszkol_, the problem is that only one message may be on the screen at a time. The Counter-Strike script draws a person's amount of money every second, and this script is trying to draw the text right after a person dies, so it gives the person less than a second to see.
A way to fix this is by having the script only update everybody's cash every few seconds, or I could modify this script to use WriteConsole instead (draw's in the person's console) (much easier) of DrawText, which i just did:

Code: [Select]

var
  Realistic: boolean;
  Hits: array[1..32] of array[1..32] of byte;
  Dmg: array[1..32] of array[1..32] of longint;

procedure ActivateServer();
begin
  if StrtoInt(ReadINI('Soldat.ini','GAME','Realistic_Mode','0')) = 1 then Realistic := true else Realistic := false;
end;

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
var
  i: byte;
begin
  if Killer <> Victim then begin
    WriteConsole(Victim, GetPlayerStat(Killer, 'Name') + ' killed you with ' + iif(Hits[Victim][Killer] = 1,'1 hit using ', InttoStr(Hits[Victim][Killer]) + ' hits using ') + Weapon, $FF000000);
    WriteConsole(Victim, 'You hurt him using ' + iif(Hits[Killer][Victim] = 1, '1 hit doing ', InttoStr(Hits[Killer][Victim]) + ' hits doing ') + iif(Realistic, InttoStr(Round(1.54 * Dmg[Killer][Victim])), InttoStr(Dmg[Killer][Victim])) + '% damage', $FF000000);
    for i := 1 to 32 do begin
      Hits[Victim][i] := 0;
      Dmg[Victim][i] := 0;
    end;
  end;
end;

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
  Result := Damage;
  Hits[Victim][Shooter] := Hits[Victim][Shooter] + 1;
  if Damage <= GetPlayerStat(Victim,'Health') then Dmg[Victim][Shooter] := Dmg[Victim][Shooter] + Damage else Dmg[Victim][Shooter] := Dmg[Victim][Shooter] + GetPlayerStat(Victim,'Health');
end;

procedure OnPlayerRespawn(ID: byte);
var
  i: byte;
begin
  for i:= 1 to 32 do begin
    Dmg[i][ID] := 0;
    Hits[i][ID] := 0;
  end;
end;

[Miszkol_]

Thx it's better but i see bugs:
- Whan some1 kill some1 with usscom on screen write "selfkill"...
- Can you do some1 write commend "/me" or "/deadinfo" to look dead info
- please change color massage black to red

(I can't write script )

[DorkeyDear]

- Whan some1 kill some1 with usscom on screen write "selfkill"...

soldat server seems to give inaccurate info about who kills who with what when it comes to the ussocom I can add a manual check to replace "Selfkill" with "USSOCOM" though

- Can you do some1 write commend "/me" or "/deadinfo" to look dead info

How would this work exactly? If player A kills player B, then when player B does /deadinfo, it regives him the info of the last player who killed him (player A)?

[Miszkol_]

- Whan some1 kill some1 with usscom on screen write "selfkill"...

soldat server seems to give inaccurate info about who kills who with what when it comes to the ussocom I can add a manual check to replace "Selfkill" with "USSOCOM" though

- Can you do some1 write commend "/me" or "/deadinfo" to look dead info

How would this work exactly? If player A kills player B, then when player B does /deadinfo, it regives him the info of the last player who killed him (player A)?

Yes.
When I write command /deadinfo i want description of my dead AND ONLY IF I WRITE IT, because on my server is more massages(when i win money[cs script] and more more others massages...)
Can you do this script description of ALL people which I shooting ?? Example:
You Give:
- 1 bullet of Desert eagle and 30% hp  to xXx
- 3 bullets of Ak-74 and 110% hp to yYy and Dead

You take:
-  1 bullet of berret and 200% hp and Dead ^^

Can you do it??

[DorkeyDear]

- Whan some1 kill some1 with usscom on screen write "selfkill"...

soldat server seems to give inaccurate info about who kills who with what when it comes to the ussocom I can add a manual check to replace "Selfkill" with "USSOCOM" though

- Can you do some1 write commend "/me" or "/deadinfo" to look dead info

How would this work exactly? If player A kills player B, then when player B does /deadinfo, it regives him the info of the last player who killed him (player A)?

Yes.
When I write command /deadinfo i want description of my dead AND ONLY IF I WRITE IT, because on my server is more massages(when i win money[cs script] and more more others massages...)
Can you do this script description of ALL people which I shooting ?? Example:
You Give:
- 1 bullet of Desert eagle and 30% hp  to xXx
- 3 bullets of Ak-74 and 110% hp to yYy and Dead

You take:
-  1 bullet of berret and 200% hp and Dead ^^

Can you do it??

Would probably be smarter for me to just remake the script...
I can't do it now, and won't be able to start until at least saturday night fyi...

[Miszkol_]

OK i wait to saturdey's night for this script.

[DorkeyDear]

OK i wait to saturdey's night for this script.

sunday* I fell asleep as early as 8:30 PM and woke up around noon ^^
How do you want it to work? Should it act like a log? Or should it accumulate per person? (log-like may be long, and spam-like; i wouldn't suggest that) Resetting after you respawn, or only on map change?

[Miszkol_]

OK i wait for this...
I want :
- When I WANT(no when i dead) see my "shooting Information" I write command :
 

• /shootinfo - to see my shooting with ALL to i shooting on NOW round and LAST round. If you are dead, script display info about round before dead. Example:

Now Round:
 You given damage:
 - Father - 1 shot, M72 LAW, 200% hp, Dead.

 You taken damage:
 - Major - 1 shot, berret M82A1, 100% hp, Dead.

Reset this info after next round start.

 

• /shootinfoall - to see shooting info for all rounds. Script display this too on end map or change.  Example:

 All Round :
 You given Damage:
 - Mother - 30 shots ; Weapons: Berret M82A1, AK-74 ; 666% hp, 7 Deads.

 You taken damage:
 - Major - 8 shot ; Weapons: Berret M82A1 ; 800% hp; 8 Deads.

Don't resetting this to change map.
------------------------------------------------
You understand??
Can you do it??
How long i must wait for this??

BB.

       

[DorkeyDear]

Miszkol_: http://forums.soldat.pl/index.php?topic=26689
Make sure you download the survival version.
Commands are /report and /overall

[Mushroom]

Hey, i hope you can help me with this mistake:

Code: [Select]

[*] Compiling DeathInfo -> core.pas...
 [*] DeathInfo -> [Error] (15:92): String error
 [*] DeathInfo -> [Error] (15:92): Syntax error


[DorkeyDear]

Hey, i hope you can help me with this mistake:

Code: [Select]

[*] Compiling DeathInfo -> core.pas...
 [*] DeathInfo -> [Error] (15:92): String error
 [*] DeathInfo -> [Error] (15:92): Syntax error


I zipped the original script, so try just extracting that into your scripts folder.

[Zhul]

it doesnt show with witch weapon you hit the guy that kills you

[DorkeyDear]

it doesnt show with witch weapon you hit the guy that kills you

Oh, no; you know what weapon you hit them with so no need for that
Unless you have an extremely poor memory and can't remember literally 1 second ago when you were alive what weapon you had ^^

[Mushroom]

Thank you, now it works

EDIT: How can I change the text color ?

[DorkeyDear]

Thank you, now it works

EDIT: How can I change the text color ?

You have to know a little bit about hex and how colors work in hex...
find "$FF000000" in the script...
if you don't know anthing about hex, then google hexadecimal colors or something like that
you will notice that you will get 6 length hex number... put a $ the the left of it, and replace the old one with the new one

[Mushroom]

OK thank you it works but i think the font is not so good. Its hard to read. Is there an possibility to change the font ?

[DorkeyDear]

Thats the client's choice...
You can change the size of the font though.. On the same like as the color, change "0.06" (third argument from the back) to whatever number you wish, larger number, larger the text.