2 last script request !

[mich1103]

1-When a player do damage to another that give to him a random number between (1-10) of life
2-bravo team forceweapon SAW

[Gizd]

Code: [Select]

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
  Result:= Damage;
  DoDamage(Shooter,Random(-10,-1));
end;

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if (PrimaryNum <> 16) and (PrimaryNum <> 255) then ForceWeapon(ID,16,255,0);
end;


[mich1103]

    

Code: [Select]

[Error] (5:35): Invalid number of parameters

[DarkCrusade]

@mich: Which line is line 5

@gizd:
15 = Chainsaw
16 = LAW

[mich1103]

Code: [Select]

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
  Result:= Damage;
  DoDamage(Shooter,Random(-10,-1));
end;  //This one ??????????????

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if (PrimaryNum <> 16) and (PrimaryNum <> 255) then ForceWeapon(ID,16,255,0);
end;



[DarkCrusade]

Code: [Select]

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
var R:Byte;
begin
  Result:= Damage;
  R := Random(1,11);
  DoDamage(Shooter,-R);
end; 

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if PrimaryNum <> 15
    ForceWeapon(ID,15,255,0);
end;

[mich1103]

[Error] (7:23): Invalid number of parameters
Don't worry be happy   

[DarkCrusade]

Is this little script the only thing you run on the server?

[mich1103]

No i use other small script !
My server version is 2.7.0 i dont know if its the problem !

[DorkeyDear]

I think DoDamageBy replaced the old DoDamage (not 100% certain), so you need a "damage by" parameter in calling the DoDamage function.

EDIT: yup http://enesce.com/help/index.html?Functions/DoDamage.html & @ changelog too it says it.

[DarkCrusade]

Then use this:

Code: [Select]

Function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
var R:Byte;
begin
  Result:= Damage;
  R := Random(1,11);
  DoDamage(Shooter,Shooter,-R);
end; 

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if PrimaryNum <> 15
    ForceWeapon(ID,15,255,0);
end;
Also, if you don't want players to get more health than the default amount (150) use this:

Code: [Select]

Function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
var R:Byte;
begin
  Result:= Damage;
  R := Random(1,11);
  if R + GetPlayerStat(Shooter,'Health') <= 150 then
    DoDamage(Shooter,Shooter,-R);
  else
    DoDamage(Shooter,Shooter,GetPlayerStat(Shooter,'Health') - 150);
end; 

Procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if PrimaryNum <> 15
    ForceWeapon(ID,15,255,0);
end;

[mich1103]

forceweaponb -> [Error] (13:5): 'THEN' expected

[DarkCrusade]

Happens if you edit the code of someone else :3

Code: [Select]

Function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
var R:Byte;
begin
  Result:= Damage;
  R := Random(1,11);
  DoDamage(Shooter,Shooter,-R);
end; 

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if PrimaryNum <> 15 then
    ForceWeapon(ID,15,255,0);
end;

Code: [Select]

Function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
var R:Byte;
begin
  Result:= Damage;
  R := Random(1,11);
  if R + GetPlayerStat(Shooter,'Health') <= 150 then
    DoDamage(Shooter,Shooter,-R);
  else
    DoDamage(Shooter,Shooter,GetPlayerStat(Shooter,'Health') - 150);
end; 

Procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if PrimaryNum <> 15 then
    ForceWeapon(ID,15,255,0);
end;

[mich1103]

Code: [Select]

forceweaponb -> [Error] (9:3): Identifier expectedI use this one

Code: [Select]

Function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
var R:Byte;
begin
  Result:= Damage;
  R := Random(1,11);
  if R + GetPlayerStat(Shooter,'Health') <= 150 then
    DoDamage(Shooter,Shooter,-R);
  else
    DoDamage(Shooter,Shooter,GetPlayerStat(Shooter,'Health') - 150);
end; 

Procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if PrimaryNum <> 15 then
    ForceWeapon(ID,15,255,0);
end;

[Silnikos]

there you go:

Code: [Select]

Function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
var R:Byte;
begin
  Result:= Damage;
  R := Random(1,11);
  if R + GetPlayerStat(Shooter,'Health') <= 150 then
    DoDamage(Shooter,Shooter,-R)
  else
    DoDamage(Shooter,Shooter,GetPlayerStat(Shooter,'Health') - 150);
end;

Procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if PrimaryNum <> 15 then
    ForceWeapon(ID,15,255,0);
end;

[Gizd]

You should've said it's 2.7.0...

Code: [Select]

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer; Weapon: byte): integer;
begin
  Result:= Damage;
  DoDamage(Shooter,Shooter,Random(-10,-1));
end;

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
  if GetPlayerStat(ID,'Team') = 2 then if (PrimaryNum <> 15) and (PrimaryNum <> 255) then ForceWeapon(ID,15,255,0);
end;


[mich1103]

when i got hit my server freeze and shutdown and dont right any logs
that happen because i add the Gizd script !

[Swompie]

1. What server version do you use?
2. Do you add bots when the server starts?

[mich1103]

yea i add bot on server start and my server version is 2.7.0

[Swompie]

There's the problem, adding bots right on ActivateServer will fuck off OnWeaponChange();
If you give a list of the stuff you want to have in your server I can maybe make it for you without that all these little script cause damn crashes...