Team reset after score.

[Mercury92]

So, I have problem to make:
When Team 1 (e.g Bravo) scores, All players moves to Bravo team. And random player will stay on Alpha?! Huh?! Anyone? 

[Boblekonvolutt]

Well, this should do it. Only that instead of leaving someone on alpha, it moves all to bravo and then moves a random player back.

Code: [Select]

procedure OnFlagScore(ID, TeamFlag: Byte);
var i: Integer;
begin

// if its alpha flag
if TeamFlag = 1 then begin

// First, move all to bravo
for i := 1 to 32 do
Command('/setteam2 ' + inttostr(i));

// Then, repeat this loop until someone is on alpha
while AlphaPlayers < 1 do
Command('/setteam1 ' + inttostr(Random(1, 32)));
end;
end;
I haven't tested it, but it should work. Or at least give you an idea on how to do it.

[danmer]

i suppose he's trying to avoid the colour bug. You could move all the players to spec first, store their IDs in an array and then move them to bravo in AppOnIdle

[Boblekonvolutt]

I thought he wanted it

[DorkeyDear]

i suppose he's trying to avoid the colour bug. You could move all the players to spec first, store their IDs in an array and then move them to bravo in AppOnIdle

Whats the color bug? Whenever I setteamed, unless it deals with setting a player to team 0, it seemed the players are the proper color..

[JFK]

i suppose he's trying to avoid the colour bug. You could move all the players to spec first, store their IDs in an array and then move them to bravo in AppOnIdle

Whats the color bug? Whenever I setteamed, unless it deals with setting a player to team 0, it seemed the players are the proper color..

While you're at it, i am trying to let people keep their own color for a zombie script. I found out that a player HAS to (voluntarily) join spec first before they can be setteamed to 0 and keep their colors. Am i right, or is there another way?
And while *I* am at it :p, is there anyway to force a flag back to its place while a player has it in his hands?

[Boblekonvolutt]

Flag, KillObject. I'm not sure about how the flags work, you might have to use GetObjectStat or something to find the flag?

[BombSki]

search 'returnflag' in scripting releases forum

[JFK]

search 'returnflag' in scripting releases forum

Aaaah, thanks, bomb.
and thanks J-Factor

[Mercury92]

Well, this should do it. Only that instead of leaving someone on alpha, it moves all to bravo and then moves a random player back.

Code: [Select]

procedure OnFlagScore(ID, TeamFlag: Byte);
var i: Integer;
begin

// if its alpha flag
if TeamFlag = 1 then begin

// First, move all to bravo
for i := 1 to 32 do
Command('/setteam2 ' + inttostr(i));

// Then, repeat this loop until someone is on alpha
while AlphaPlayers < 1 do
Command('/setteam1 ' + inttostr(Random(1, 32)));
end;
end;
I haven't tested it, but it should work. Or at least give you an idea on how to do it.

Doesn't work even this. :O

[JFK]

What doesn't work? does it compile? does it put all players to bravo, but not one to alpha? Maybe wrong TeamFlag?
the code seems valid.

[Mercury92]

It doesn't compile at all. Something more advanced:
1. If Alpha = 0 Players, then random player (1) will be joined Bravo.
2. if Bravo scores, All Players goes to Bravo team and then Random player (1) goes to Alpha team. Like at 1.
3. if All Bravo players killed and moved to Alpha then again move all players to Bravo and random player (1) goes to Alpha. And Maybe some Alpha gets 25 (flag) point bonus.

[JFK]

One step at a time :p

What is the error message you get?
maybe see: http://forums.soldat.pl/index.php?topic=26011.0

[Mercury92]

So here's what i get with debug.

[JFK]

(2:1) syntax error
would have been enough.
this is a nice one, a syntax error in the first line of the script. I don't see anything wrong here in Boble's post, so i think you forgot a letter while copying the script. I bet it says 'rocedure' instead of 'procedure'.

[Mercury92]

Yeah Thanks i got it working now. But with bots it doesn't work Yeah?

So:
How to add score (for Alpha)?
If Bravo player killed move to Alpha?

[Boblekonvolutt]

Bob for short, eh...


Not sure what you mean with "if bravo player killed move to alpha", but to change score, use

Code: [Select]

SetTeamScore(1, AlphaScore + 1)
(adds 1 to alphas score)

[Mercury92]

I meant, if Bravo player was killed then move him to Alpha team.
Thanks for score!

[Boblekonvolutt]

Code: [Select]

// This will run every time a player is killed
procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
begin

  // if the victim is on team two, move to team one
  if GetPlayerStat(Victim, 'Team') = 2 then begin
    Command('/setteam1 ' + IntToStr(Victim));
  end;


  // this will also work (without begin/end, it just does the first line after)
  if GetPlayerStat(Victim, 'Team') = 2 then
    Command('/setteam1 ' + IntToStr(Victim));

end;

[Mercury92]

Thanks Boblekonvolutt. With bots it wont work, yeah?