Disappearing knives

[Gizd]

I made a script that is causing knife bugs. Thrown knifes disappear on hit and deal no damage.

Code: [Select]

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: Byte);
begin
  if (PrimaryNum <> 255) and (PrimaryNum <> Round) then if Round = 14 then ForceWeapon(ID, 14, 14, 0) else if Round = 17 then ForceWeapon(ID, 255, 255, 0) else ForceWeapon(ID, Round, 255, 0);
end;Anybody know why ? Or it's server fault ?

[BombSki]

are you using default wmod? i know that for example setting a really high speed will cause the knife to go through/behind polys

[Bolt]

He uses the default speed.

Maybe if you add an "onHit PlayerDamage" or whatever, I don't script.

[Gizd]

I tried OnPlayerDamage but these knifes doesn't activates it.
I use weapon mod for LAW and Rambo Bows(enesce blocked arrows so i changed bulletstyle) but it's not causing bugs.

[Rampage_Terranius]

your not using KillObject somewhere are you?

next sometimes on contact a knife does dissapear but not always and with the knife not doing damage check onplayerdamage maybe you have disabled damage on the wrong weapon or done something like that etc....

[Gizd]

I don't have OnPlayerDamage and KillObject in script.

[edit1-2]
I discovered error.

[edit3]
After time spent on turning off script parts piece by piece i finally know wtf is wrong !
But it's still strange for me 

Code: [Select]

  for i:= 1 to 32 do if GetPlayerStat(i,'Alive') then DoDamage(i,200);

[EnEsCe]

GetPlayerStat returns a VARIANT not a boolean.
You need to change it to "if GetPlayerStat(i,'Alive') = true then"

[Gizd]

GetPlayerStat returns a VARIANT not a boolean.
You need to change it to "if GetPlayerStat(i,'Alive') = true then"

Actually i already solved this problem.
I replaced DoDamage(f*** bugmaker) with Boom(some M79 nades, M2 bullets with high speed, Frags and player is gone).

[iDante]

GetPlayerStat returns a VARIANT not a boolean.
You need to change it to "if GetPlayerStat(i,'Alive') = true then"

a little off topic, but is that fixed in the next scriptcore version? Like, the fact that GetPlayerStat(32,'alive/active/human/whatever') returns something other than boolean? It's not an issue as most servers don't have 32 players, but still...

[Gizd]

To EnEsCe:
Most of times i use DoDamage something don't work until i delete it. Why it's so bugy ?

[EnEsCe]

That makes no sense.

[Gizd]

That makes no sense.

I agree, it makes no sense that one procedure can feck all script without any reason :?

[Rampage_Terranius]

That makes no sense.

indeed it works perfect for me all the time everytime i dont know what your doing to make it error at you

[Timer]

Hey,
I know this topic is an old one and I'm not trying to piggy back ride on it, but I am now having this same problem. My script however doesn't even have any dodamage on it. I do use the setweaponactive...but for some reason the knife is disappear/not doing damage on impact. Any ideas?

Do you need me to post the script?

[y0uRd34th]

It is always good when you post your script and your problem same time, makes easier to see what you could coded wrong.

[Gizd]

Oh, I forgot about this topic... It happened because I forgot "GetPlayerStat(i,'Active')" and it was doing damage to not existing players.

[Timer]

Well I don't think the knife bug has anything to do with the script, because it works. However if there is a problem with the script that is causing the disappearing/none damaging knife bug, it should definetly be added somewhere in the enesce server help place.

Code: [Select]

type tPlayer = record
time, delay: integer;
end;

var
Player: array [1..32] of tPlayer;
Color: longint;

procedure ActivateServer();
var
i: byte;
begin
for i := 1 to 32 do begin
Player[i].delay := 0;
Player[i].time := 0;
end;
end;

procedure ClearWeapons1(ID: byte);
begin
SetWeaponActive(ID,2,false);
SetWeaponActive(ID,3,false);
SetWeaponActive(ID,4,false);
SetWeaponActive(ID,6,false);
SetWeaponActive(ID,9,false);
SetWeaponActive(ID,10,false);
SetWeaponActive(ID,11,false);
SetWeaponActive(ID,12,false);
SetWeaponActive(ID,13,false);
SetWeaponActive(ID,14,false);
end;

procedure ClearWeapons2(ID: byte);
begin
SetWeaponActive(ID,1,false);
SetWeaponActive(ID,2,false);
SetWeaponActive(ID,3,false);
SetWeaponActive(ID,4,false);
SetWeaponActive(ID,5,false);
SetWeaponActive(ID,6,false);
SetWeaponActive(ID,7,false);
SetWeaponActive(ID,8,false);
SetWeaponActive(ID,9,false);
SetWeaponActive(ID,10,false);
SetWeaponActive(ID,11,false);
SetWeaponActive(ID,14,false);
end;

procedure OnMapChange(NewMap: String);
var
i: byte;
begin
for i := 1 to 32 do begin
Player[i].delay := 0;
Player[i].time := 0;
end;
end;

procedure AppOnIdle(Ticks: integer);
var
i: byte;
begin
for i := 1 to 32 do begin
if (Player[i].time <> 0) then begin
Player[i].time := Player[i].time -1;
end;
if (GetPlayerStat(i, 'Team') = 2) then if (Player[i].time = 1) then begin
Player[i].time := 25;
GiveBonus(i, 1);
exit;
end;
for i := 1 to 32 do begin
if Player[i].delay <> 0 then begin
if Player[i].delay <> 1 then Player[i].delay := Player[i].delay - 1 else begin
Player[i].delay := Player[i].delay - 1;
exit;
end;
end;
if (Player[i].delay = 1) then if (Player[i].time = 0) then begin
Player[i].time := 25;
GiveBonus(i, 1);
WriteConsole(i,'You are now stealthed!',Color);
exit;
end;
end;
end;
end;

procedure OnJoinTeam(ID, Team: byte);
begin
if (GetPlayerStat(ID, 'Team') = 2) then if (GetPlayerStat(ID, 'Active') = true) then ClearWeapons2(ID);
if (GetPlayerStat(ID, 'Team') = 1) then if (GetPlayerStat(ID, 'Active') = true) then ClearWeapons1(ID);
end;

procedure OnPlayerRespawn(ID: Byte);
begin
if (GetPlayerStat(ID, 'Team') = 2) then if (Player[ID].delay = 0) then Player[ID].delay := 4;
GiveBonus(ID, 5);
if (GetPlayerStat(ID, 'Team') = 2) then GiveBonus(ID, 5);
end;

procedure OnPlayerKill(Killer, Victim: byte;Weapon: string);
begin
if (GetPlayerStat(Victim, 'Team') = 2) then begin
GiveBonus(Killer, 5);
if (Player[Victim].time > 0) then Player[Victim].time := 0;
end;
if (GetPlayerStat(Victim, 'Team') = 1) then GiveBonus(Killer, 5);
end;


[Gizd]

Code: [Select]

...
GiveBonus(ID, 5);
if (GetPlayerStat(ID, 'Team') = 2) then GiveBonus(ID, 5);
...2nd line is useless...

I see you haven't heard of debug: comment out parts of code and check if bug still appears.

[Timer]

woops posted the wrong one... anyway that still isn't the reason behind the bug.

[Gizd]

I see you haven't heard of debug: comment out parts of code and check if bug still appears.