rambo bow in ex. dm, ctf.

[sckme]

I have a question... Let's say that I'll run a dedicated server , and I want to give the Rambo Bow to a player with a definied ID. How to do that?
Best regards.

[shantec]

You use ForceWeapon

[GSx_Major]

It's not a good idea though, the bow won't work.

[shantec]

It's not a good idea though, the bow won't work.

It WILL work, but in some gamemodes it will give you BattleEye kick .. though!
So you can disable BE... but that's rly not wise thing you know..

[sckme]

Code: [Select]

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
if Text = '/bow' then begin
ForceWeapon(ID, 12, 13, 0);
end;
Result := False;
end;
its sucks beacuse when i get rambo bow and shot someone, he dont die ;( he have 1 % HP ;f

[danmer]

its sucks beacuse when i get rambo bow and shot someone, he dont die ;( he have 1 % HP ;f

thats how it is. You could try sticking a dodamageby() in onplayerdamage , but im not sure if itll work right (never tried, just throwing an idea)

[sckme]

i dont understand u ;f

[Toumaz]

It's not a good idea though, the bow won't work.

It WILL work, but in some gamemodes it will give you BattleEye kick .. though!
So you can disable BE... but that's rly not wise thing you know..

No. No no no. BE kicks are not in any way related to the built-in cheat detection of the soldatserver (which can be disabled via Disable_AntiCheat_Kick in soldat.ini - not affecting the way BE works in any way).

its sucks beacuse when i get rambo bow and shot someone, he dont die ;( he have 1 % HP ;f

thats how it is. You could try sticking a dodamageby() in onplayerdamage , but im not sure if itll work right (never tried, just throwing an idea)

i dont understand u ;f

Add in a call to DoDamage in the OnPlayerDamage function that triggers if the player is using the rambo bow. Read the EnEsCe.com scripting manual for the argument list.

[shantec]

Code: [Select]

function OnPlayerDamage(Victim,Shooter: Byte;Damage: Integer) : integer;
begin
  case GetPlayerStat(Shooter,'weapon') of
12,13: DoDamageBy(Victim,Shooter,100);
  end;
  Result := damage;
end;

should work

[sckme]

Code: [Select]

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
if Text = '/bow' then begin
ForceWeapon(ID, 12, 13, 0);
end;
Result := False;
end;

function OnPlayerDamage(Victim,Shooter: Byte;Damage: Integer) : integer;
begin
  case GetPlayerStat(Shooter,'weapon') of
   12,13:   DoDamageBy(Victim,Shooter,100);
  end;
  Result := damage;
end;
i must past this in Bow.PAS and start server, ya? its not work

Code: [Select]

08-11-17 18:07:20  [*] [Error] Bow -> (OnPlayerDamage): Invalid variant operation

[shantec]

That script works for me.. maybe your using out-dated version of SoldatServer?

[sckme]

Nope, 2.6.3

[chutem]

That script works for me.. maybe your using out-dated version of SoldatServer?

It shouldn't work, because you used GetPlayerStat(Shooter, 'weapon'). 'weapon' isn't on the list.

This should work:

Code: [Select]

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
if Text = '/bow' then begin
ForceWeapon(ID, 12, 13, 0);
end;
Result := False;
end;

function OnPlayerDamage(Victim,Shooter: Byte;Damage: Integer) : integer;
begin
  case GetPlayerStat(Shooter,'Primary') of
   12,13:   DoDamageBy(Victim,Shooter,100);
  end;
  Result := damage;
end;

[edit] In OnPlayerDamage, a 'weapon' variable should be included, because if someone shoots someone with, say, a steyr, then changes to deagles before they are hit (spray), it could stuff up a script.
(If that isn't already in the suggestions topic, feel free to post it there yourself, I'm too lazy right now)

[sckme]

when i wrote in cmd /bow, server is crashed...

[shantec]

when i wrote in cmd /bow, server is crashed...

.. What? Just sudden crash without warning?!
The /bow script will KICK you if your not admin (logged)... but CRASH?
Now im confused

[sckme]

Hmm i have some idea... look this is script for predator

Code: [Select]

  const
  Color = $32CD32;

var
  IsPred, AfterRespawn: array[1..32] of boolean;

procedure AppOnIdle(Ticks: cardinal);
var
  i: byte;
begin
  for i := 1 to 32 do if AfterRespawn[i] then begin
    if IsPred[i] then begin
      GiveBonus(i, 1);
      DrawText(i, '  ', 0, $00000000, 0, 0, 0);
    end;
    AfterRespawn[i] := false;
  end;
  if (Ticks mod 600) = 0 then begin
    for i := 1 to 32 do if GetPlayerStat(i, 'Active') = true then if IsPred[i] and (GetPlayerStat(i, 'Alive') = true) then begin
      GiveBonus(i, 1);
      DrawText(i, '  ', 0, $00000000, 0, 0, 0);
    end;
  end;
end;

procedure OnJoinGame(Id, Team: byte);
begin
  IsPred[Id] := false;
end;

function OnCommand(Id: byte; Text: string): boolean;
var
  Who: byte;
begin
  if Text[1] = '/' then begin
    Delete(Text, 1, 1);
    if LowerCase(GetPiece(Text, ' ', 0)) = 'setpred' then begin
      try
        Who := StrtoInt(Copy(Text, 9, Length(Text)));
        if not GetPlayerStat(Who, 'Active') then StrtoInt(' ');
        IsPred[Who] := true;
        if GetPlayerStat(Who, 'Alive') = true then begin
          GiveBonus(Who, 1);
          DrawText(Who, '  ', 0, $00000000, 0, 0, 0);
        end;
        if Id <> Who then WriteConsole(Id, 'You have given ' + GetPlayerStat(Who, 'Name') + ' infinite predator', Color);
        WriteConsole(Who, 'Admin dal ci niewidzialnosc!', Color);
      except
        WriteConsole(Id, 'Invalid player', Color);
      end;
    end else if LowerCase(GetPiece(Text, ' ', 0)) = 'delpred' then begin
      try
        Who := StrtoInt(Copy(Text, 9, Length(Text)));
        if not GetPlayerStat(Who, 'Active') then StrtoInt(' ');
        IsPred[Who] := false;
        if Id <> Who then WriteConsole(Id, 'You have taken infinite predator from ' + GetPlayerStat(Who, 'Name'), Color);
        WriteConsole(Who, 'Admin zabral ci niewidzialosc!', Color);
      except
        WriteConsole(Id, 'Invalid player', Color);
      end;
    end;
  end;
end;

procedure OnPlayerRespawn(Id: byte);
begin
  AfterRespawn[Id] := true;
end;

Maybe when we change this scirpt, them will be useful for Rambo Bow?