Can someone make this to me?

[teemus1]

Can someone make me script what disables all other weapons than saw/knife/flamer for alpha team?
I have zombie server and im very bored to kick someones how join zombie team and use m79 etc...

[Gizd]

Code: [Select]

procedure OnJoinTeam(ID, Team: byte)
begin
  if Team <> 1 and 5 then Command('/setteam1 ' + IntToStr(ID));
end;

[Norbo]

Code: [Select]

procedure OnJoinTeam(ID, Team: byte)
begin
  if Team <> 1 and 5 then Command('/setteam1 ' + IntToStr(ID));
end;

dude, your script is
1 wrong
2 completly not what teemus1 asked for

[~Niko~]

just put more zombies on blue than on red team, limit the players to 1- than blue, and enable balance teams, this way nobody will be able to join bravo team.

Example: redplayers (humans) limit=6 Zombies playing 7 or more

[xmRipper]

Disabling all other weapons than saw,knife,flamer for alpha team ;
(not tested)

Code: [Select]

procedure OnJoinTeam(ID, Team: byte);
var i: byte;
begin
    if Team = 1 then begin
        for i = 1 to 16 do begin
          // disable all weapons
          SetWeaponActive(ID,i,false);
        end;
       
        SetWeaponActive(ID,11,true); // enable flamer
        SetWeaponActive(ID,14,true); // enable knife
        SetWeaponActive(ID,15,true); // enable chainsaw
    end;
end;

[GSx_Major]

Should be := in the loop.

[teemus1]

Disabling all other weapons than saw,knife,flamer for alpha team ;
(not tested)

Code: [Select]

procedure OnJoinTeam(ID, Team: byte);
var i: byte;
begin
    if Team = 1 then begin
        for i = 1 to 16 do begin
          // disable all weapons
          SetWeaponActive(ID,i,false);
        end;
       
        SetWeaponActive(ID,11,true); // enable flamer
        SetWeaponActive(ID,14,true); // enable knife
        SetWeaponActive(ID,15,true); // enable chainsaw
    end;
end;

I don,t get that work

[Gizd]

Should be := in the loop.

...
for i := 1 to 16 do begin
...

[xmRipper]

yes. sorry for my mistake.
This should be working:

Code: [Select]

procedure OnJoinTeam(ID, Team: byte);
var i: byte;
begin
    if Team = 1 then begin
        for i := 1 to 16 do begin
          // disable all weapons
          SetWeaponActive(ID,i,false);
        end;
       
        SetWeaponActive(ID,11,true); // enable flamer
        SetWeaponActive(ID,14,true); // enable knife
        SetWeaponActive(ID,15,true); // enable chainsaw
    end;
end;

[BombSki]

isnt setweaponactive only for the weapon list? if so, since when is flamer in it?

as for the original problem: why not just make a script that doesnt allow human players to join alpha team

[teemus1]

yes. sorry for my mistake.
This should be working:

Code: [Select]

procedure OnJoinTeam(ID, Team: byte);
var i: byte;
begin
    if Team = 1 then begin
        for i := 1 to 16 do begin
          // disable all weapons
          SetWeaponActive(ID,i,false);
        end;
       
        SetWeaponActive(ID,11,true); // enable flamer
        SetWeaponActive(ID,14,true); // enable knife
        SetWeaponActive(ID,15,true); // enable chainsaw
    end;
end;

Lol now it disables all other weapons than ussocom and law
And to BombSki, i want itself play sometimes in zombie team.

[GSx_Major]

In SetWeaponActive, Knife is 12 and Chainsaw 13...

[xmRipper]

In SetWeaponActive, Knife is 12 and Chainsaw 13...

Hmm.

Core.pas

//Weapons
  DEAGLES = 1;
  HKMP5 = 2;
  AK74 = 3;
  STEYR = 4;
  SPAS = 5;
  RUGER = 6;
  M79 = 7;
  BARRET = 8;
  MINIMI = 9;
  MINIGUN = 10;
  FLAMER = 11;
  BOW = 12;
  FLAMEBOW = 13;
  SOCOM = 0;
  KNIFE = 14;
  CHAINSAW = 15;
  LAW = 16;

[BombSki]

LAMER = 11;
  BOW = 12;
  FLAMEBOW = 13;

they dont exist in the weaponmenu. as i pointed out earlier ^^


edit: i see i failed to copy 'flamer' properly, but ill leave it as it is.