HTF for Charlie and Delta

[~Niko~]

This came up from this:

I'd go for capture the flag with Charlie and Delta. Any of the two teams has to hold BOTH flag to get points, otherwise nobody earns points by the time.

there could be also alpha and bravo shitting somehow. I'd expect small-medium maps for this

dam, I should script that somehow

So, I did it:

Code: (pascal) [Select]

{
CTF-HTF with Charlie and Delta.

Things to know:

- Gamemode must be CTF
- Each team must have both flags to start scoring, no matter if an only player has them.
- If any flag is lost, points WILL continue counting until any team recovers the lost flag.
- This gamemode should have at least 2 players on each time to be worth it. Any current CTF map should work...
- It's all about being in the middle of the map I guess.
- I'm not sure if it's complete or not, It's all about testing it.
- Maybe some WriteConsoles would be good, I'll think on that later
}

//I hope that with this code it's enough
var
CHAlpha, CHBravo, DEAlpha, DEBravo: Boolean; //Flag's for both teams

//How the points are given
procedure AppOnIdle(Ticks: integer);
begin
if (CHAlpha = True) and (ChBravo = True) then begin
AlphaScore := AlphaScore + 1;
end;
if (DEAlpha = True) and (DEBravo = True) then begin
BravoScore := BravoScore + 1;
end;
end;

//No need to explain this, it's too long
procedure OnFlagGrab(ID, TeamFlag: byte; GrabbedInBase: boolean);
begin
if GetPlayerStat(ID,'Team') = 3 then begin
if GetObjectStat(ID, 'Style') = 1 then begin
CHAlpha := True;
DEAlpha := False;
end;
if GetObjectStat(ID, 'Style') = 2 then begin
CHBravo := True;
DEBravo := False;
end;
end;

if GetPlayerStat(ID,'Team') = 4 then begin
if GetObjectStat(ID, 'Style') = 1 then begin
DEAlpha := True;
CHAlpha := False;
end;
if GetObjectStat(ID, 'Style') = 2 then begin
DEBravo := True;
CHBravo := False;
end;
end;
end;

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin

// !commands for charlie
if Text = '!c' then Command('/setteam3 '+IntToStr(ID));
if Text = '!charlie' then Command('/setteam3 '+IntToStr(ID));
if Text = '!char' then Command('/setteam3 '+IntToStr(ID));
// !commands for delta
if Text = '!d' then Command('/setteam4 '+IntToStr(ID));
if Text = '!delta' then Command('/setteam4 '+IntToStr(ID));
if Text = '!del' then Command('/setteam4 '+IntToStr(ID));
end;

//So players won't join Alpha and Bravo, and also will keep teambalance, too!
procedure OnJoinTeam(ID, Team: byte); //To balance teams, too!
begin
if (Team <> 5) then begin //So it won't make specs play
if CharliePlayers = Deltaplayers then Command('/setteam3 '+IntToStr(ID));
if CharliePlayers > DeltaPlayers then Command('/setteam4 '+IntToStr(ID));
if CharliePlayers < DeltaPlayers then Command('/setteam3 '+IntToStr(ID));
end;
end;

procedure ActivateServer(); //Reset
begin
CHAlpha := False;
CHBravo := False;
DEAlpha := False;
DEBravo := False;
end;

procedure OnMapChange(NewMap: string); //Reset
begin
CHAlpha := False;
CHBravo := False;
DEAlpha := False;
DEBravo := False;
end;

//By niko

SOMEHOW, it doesn't works. Can anyone point out the mistake?

I bet it's in OnPlayerGrab, with GetObjectStat...

[Neosano]

SOMEHOW? Cuz it is coded through the big hairy ass...
No need to f**k with on player grab(etc)! Just apponidle loop through every player and check if he's a flagger! If he is, add some points?(or I misunderstood smth?) And NEVER COPY-PASTE THE CODE! USE FUNCTIONS!
In OnPlayerSpeak use case.
AlphaScore and BravoScore are not declared..Eh, Urgh,wait, they are.... Maer..ha.sa.fs. Maybe you meant the SetScore function??
The whole code is misaligned, it is impossible to read.

[Neosano]

AH yea, and I like the idea! Gonna play it when it's ready.

Oh, and what about point match with two flags?

[DarkCrusade]

Why is everybody doubleposting? Use the edit function!

I like what you want to do, I don´t know how to help you with the script but I can do maps for sure

[F4||3N]

So is this just htf with charlie and delta?

or ctf between blue and red. with charlie and delta also trying to capture both flags and holding them? if it's not, it should be =D

[Polifen]

Are you sure you can check if Charlie/Delta captured Red/Blue flag?

[Gizd]

LOL ID in OnFlagGrab is player who grabbed not Flag ID :O

And your OnJoinTeam will set everyone to charlie and delta. There should be alpha and bravo for 100% fun!

[~Niko~]

I'll fix it.

[Neosano]

LOL ID in OnFlagGrab is player who grabbed not Flag ID :O

And your OnJoinTeam will set everyone to charlie and delta. There should be alpha and bravo for 100% fun!

There's can't be! They will return the flag!

[~Niko~]

I know how to fix it, I'll do it later on. I have to use getplayerstat instead of getobjectstat

[SpiltCoffee]

No need to f**k with on player grab(etc)! Just apponidle loop through every player and check if he's a flagger! If he is, add some points?(or I misunderstood smth?)

Yeah, you misunderstood something. If you check to see if someone is a flagger, you only see if they are holding a flag. Niko wants to check if a player is holding both flags, and you can't do that with GetPlayerStat.

[~Niko~]

But getobject stat doesn't makes the booleans be true/false to start giving points to any of the teams. i'll try another way to do it.

[Neosano]

Just loop through all players and if he is a flagger save it and continue looping, if a team have two flags - add score.

[Gizd]

But when 1 player has 2 flags team won't get points cause it's uncheckable using script.

Edit: I think you can check it using GetFlagsXY. If they are very close it means that they are being hold by 1 player. First check ammount of flaggers and if theres only one check flag positions.

[Neosano]

But when 1 player has 2 flags team won't get points cause it's uncheckable using script.

Edit: I think you can check it using GetFlagsXY. If they are very close it means that they are being hold by 1 player. First check ammount of flaggers and if theres only one check flag positions.

That's good I think! They must give one flag to another teammate!
If you're going to fix it then you must have fun with OnFlagGrab event :]