Forcing a secondary weapon, no primary

[Mexer]

How do I force a player have secondary only when he does !command ,while his primary disappears and when he respawns he won't be able to pick any primary (only secondaries) ?

[Tehbugerz0r]

This question confuses me, from what I can tell you want people who type "!command" to be doomed to be without primaries? If the question is just how to give player no primary then the answer is simple:

Code: [Select]

procedure RemovePrimary( ID, Primary, Secondary :byte );

begin

   if ( ( Secondary <= 10 ) and ( Secondary > 0 ) ) then
   ForceWeapon( ID, Primary, 255, GetPlayerStat( ID, 'Ammo' ) );

   if ( ( Primary <= 10 ) and ( Primary > 0) ) then
   ForceWeapon( ID, 255, Secondary, 0 );

end;

Untested, probably not the best way, correct any mistakes if you need. This will also regenerate the secondary weapon's ammo, unless it's in primary slot.
Again, I'm having trouble understanding the question so this may not be the answer you're looking for.

[Mexer]

Well, I want to make a script so whenever someone does !medic, his primary disappears (or drops off) and he'll be left only with the secondary. In addition to that , I wanna make him not able to pick up any other primaries from the ground, not able to pick a primary when he respawns, and when he switches team or does !medic again so he won't be medic anymore, to allow him to use primaries as before.

[Boblekonvolutt]

What part are you having trouble with? Seems fairly straight forward... Keep track of it with a boolean array, switch it on/off in OnCommand (and OnJoinTeam)... You could use SetWeaponActive to get rid of it in when picking weapons, combined with ForceWeapon in OnWeaponChange and OnPlayerRespawn.

[Bonecrusher]

seems like a good script i guess i'll use it

[Tehbugerz0r]

Well, I want to make a script so whenever someone does !medic, his primary disappears (or drops off) and he'll be left only with the secondary. In addition to that , I wanna make him not able to pick up any other primaries from the ground, not able to pick a primary when he respawns, and when he switches team or does !medic again so he won't be medic anymore, to allow him to use primaries as before.

Ah, context helps.
I strongly recommend you don't use setweaponactive on all primaries, from my experience that causes the player to get stuck at the weapon menu.

It might just be easier for me to give you a code for it.

Code: [Select]

var
Medic:array[1..MaxPlayers] of boolean;

procedure RemovePrimary( ID, Primary, Secondary :byte );

begin

 if ( ( Secondary <= 10 ) and ( Secondary > 0 ) ) then
 ForceWeapon( ID, Primary, 255, GetPlayerStat( ID, 'Ammo' ) );

 if ( ( Primary <= 10 ) and ( Primary > 0) ) then
 ForceWeapon( ID, 255, Secondary, 0 );

end;

procedure OnWeaponChange( ID, PrimaryNum, SecondaryNum: Byte );

begin

 if Medic[ID]=true then
 RemoveSecondary( ID, PrimaryNum, SecondaryNum );

end;

procedure OnPlayerRespawn( ID: Byte );
begin

 if Medic[ID]=true then
 RemoveSecondary( ID, GetPlayerStat( ID, 'Primary' ), GetPlayerStat( ID, 'Secondary' );

end;

procedure OnPlayerSpeak( ID: byte; Text: string );

begin

if Lowercase(Text)='!medic' then
 begin
 
  Medic[ID] := ( Medic[ID] = false );
  if ( Medic[ID] = true ) then RemoveSecondary( ID, GetPlayerStat( ID, 'Primary' ), GetPlayerStat( ID, 'Secondary' );
 
 end;

end;

procedure OnJoinTeam( ID, Team: byte );

begin

 if ( Medic[ID] = true ) then Medic[ID] := false;

end;

Again, untested and made in a few minutes. Might not compile.

[Falcon`]

Found in above after a quick look:
- array 1..MaxPlayers won't compile as MaxPlayers is variable. Also it is not a good idea to do player array from 1 to whatever is set in INI as there may be bots on the server.
- Secondary > 0 and Primary > 0 has no sense as both are unsigned bytes
- in OnPlayerRespawn player has most likely still weapon menu opened
- doesn't Medic[ID] := not Medic[ID] look sexier? also just if Medic[ID] instead of if ( Medic[ID] = true )

[Tehbugerz0r]

Found in above after a quick look:
- array 1..MaxPlayers won't compile as MaxPlayers is variable. Also it is not a good idea to do player array from 1 to whatever is set in INI as there may be bots on the server.
- Secondary > 0 and Primary > 0 has no sense as both are unsigned bytes
- in OnPlayerRespawn player has most likely still weapon menu opened
- doesn't Medic[ID] := not Medic[ID] look sexier? also just if Medic[ID] instead of if ( Medic[ID] = true )

- Derp, somehow that slipped my mind. I was hoping he'd replace it with whatever the max players would be. Just couldn't bring myself to put 1..32.

- How does it make no sense? An unsigned byte ranges from 0 to 255. I think 0 also represents the Socom which is secondary. Did you mistake it for ">="? Sure, you could do it another way than "> 0" but I figured that was easiest to read. Guess I was wrong.

- I added that last second in case they disabled weapon menu.

- I guess if you want it smaller, but it looks better and easier to understand the way I did it in my own opinion. I have always preferred putting " = true" after a boolean variable even though it's like saying "true = true", just an odd personal preference.

[Mexer]

Code: [Select]

procedure RemovePrimary( ID, Primary, Secondary :byte );

• tkpunish -> [Error] (120:12): Unknown identifier 'Secondary'
• Compilation Failed.

what's his problem? ._.  Can't verify it cause enesce.com/help is offline..

[Tehbugerz0r]

Code: [Select]

procedure RemovePrimary( ID, Primary, Secondary :byte );

• tkpunish -> [Error] (120:12): Unknown identifier 'Secondary'
• Compilation Failed.

what's his problem? ._.  Can't verify it cause enesce.com/help is offline..

Dunno what that's about, but the last code I gave had problems. Also enesce.com/help wouldn't help with that.

Code: [Select]

Const

MAXPLAYERSANDBOTS=14;

var
Medic:array[1..MAXPLAYERSANDBOTS] of boolean;

procedure RemovePrimary( ID, PrimaryNum, SecondaryNum :byte );

begin

 if ( ( SecondaryNum <= 10 ) and ( SecondaryNum > 0 ) ) then
 ForceWeapon( ID, PrimaryNum, 255, GetPlayerStat( ID, 'Ammo' ) );

 if ( ( PrimaryNum <= 10 ) and ( PrimaryNum > 0) ) then
 ForceWeapon( ID, 255, SecondaryNum, 0 );

end;

procedure OnWeaponChange( ID, PrimaryNum, SecondaryNum: Byte );

begin

 if Medic[ID]=true then
 RemovePrimary( ID, PrimaryNum, SecondaryNum );

end;

procedure OnPlayerRespawn( ID: Byte );
begin

 if Medic[ID]=true then
 RemovePrimary( ID, GetPlayerStat( ID, 'Primary' ), GetPlayerStat( ID, 'Secondary' ) );

end;

procedure OnPlayerSpeak( ID: byte; Text: string );

begin

if Lowercase(Text)='!medic' then
 begin
 
  Medic[ID] := ( Medic[ID] = false );
  if ( Medic[ID] = true ) then RemovePrimary( ID, GetPlayerStat( ID, 'Primary' ), GetPlayerStat( ID, 'Secondary' ) );
 
 end;

end;

procedure OnJoinTeam( ID, Team: byte );

begin

 if ( Medic[ID] = true ) then Medic[ID] := false;

end;
Compiled and tested.

For some reason I was putting RemoveSecondary, must've been because I made it at 4 AM.

[Mexer]

The thing is, with your script, after you respawn both of your primary and secondary is removed.

Also picking up weapons still works, need to change OnWeaponChange...

[Tehbugerz0r]

The thing is, with your script, after you respawn both of your primary and secondary is removed.

Also picking up weapons still works, need to change OnWeaponChange...

That's very odd, false readings would have to be involved here, I looked it over a few times and couldn't see why it would do that for any other reason. I also found that it somehow unselected your selected weapons so you'd have to pick them again O.o. However AOI works, after spending a minute of testing:
Prevent Weapon grab: tested
Respawn: tested
Remove After !medic: tested.

Code: [Select]

Const

MAXPLAYERSANDBOTS=20;

var
Medic:array[1..MAXPLAYERSANDBOTS] of boolean;

procedure RemovePrimary( ID, PrimaryNum, SecondaryNum :byte );

begin

 if ( ( SecondaryNum <= 10 ) and ( SecondaryNum > 0 ) ) then
  ForceWeapon( ID, PrimaryNum, 255, GetPlayerStat( ID, 'Ammo' ) );

 if ( ( PrimaryNum <= 10 ) and ( PrimaryNum > 0) ) then
  ForceWeapon( ID, 255, SecondaryNum, 0 );

end;

procedure AppOnIdle( Ticks: Integer );
var i:byte;
begin

 for i := 1 to MAXPLAYERSANDBOTS do
  if ( ( Medic[i]=true ) and ( GetPlayerStat( i, 'Alive' ) ) ) then
   RemovePrimary( i, GetPlayerStat( i, 'Primary' ), GetPlayerStat( i, 'Secondary' ) );

end;

procedure OnPlayerSpeak( ID: byte; Text: string );

begin

 if Lowercase(Text)='!medic' then
  Medic[ID] := ( Medic[ID] = false );

end;

procedure OnJoinTeam( ID, Team: byte );

begin

 if ( Medic[ID] = true ) then Medic[ID] := false;

end;