extra points when flag returned :)

[szmon]

Author: szmon
Script Description: gives extra points for player who's return the flag
Core Version: 2.6.0\2.6.1

updated!(2) 4.06.2007

Code: [Select]

var
odzysk: array[1..32] of integer;
witfg: array[1..2] of byte;

procedure OnFlagGrab(ID, TeamFlag: byte; GrabbedInBase: boolean);
begin
witfg[TeamFlag] := 1;
end;

procedure OnFlagReturn(ID, TeamFlag: byte);
begin
  if witfg[TeamFlag] = 1 then begin
  if odzysk[ID] < 10 then begin
  SetScore(ID,GetPlayerStat(ID,'KILLS')+2);
  SayToPlayer(ID,'Flag Returned! 2 points for you! (max 10 extra points)');
  odzysk[ID]:= odzysk[ID] + 2;
  witfg[TeamFlag]:= 0;
  end;
  end;
end;

procedure OnMapChange(NewMap: string);
var
i: integer;
k: byte;
begin
for i := 1 to 32 do
odzysk[i] := 0;
for k := 1 to 2 do
witfg[k] := 0;
end;

procedure OnJoinGame(ID, Team: byte);
begin
odzysk[ID] := 0;
end;

forgive me my english please
Thanks for suggestions

[Flacid Assassin]

or how bout this

make 3 extra sections on the score thing one column saying Flag Grabs Flag Returns And Flag Captures

[Serial K!ller]

you can just shoot the flag out of your base and return it to get the extra points...
you should check if the flag has been stolen first or the flag carrier has been killed

[mikembm]

you can just shoot the flag out of your base and return it to get the extra points...
you should check if the flag has been stolen first or the flag carrier has been killed

It does check if the flag has been stolen.

But the max points array has to be [1..32] not [1..10]

[miketh2005]

what are points?

[DorkeyDear]

shouldn't witfg be an array[1..2] of boolean?

[Hydro]

Array of boolean? :OOO

Code: [Select]

witfg: boolean;

[recruit]

If im not mistaken a bolean is like a yes or no type of thing. help me learn so tell me if Im wrong

Date Posted: August 10, 2007, 09:14:42 AMvar
NextMapArray: array[1..32] of Boolean;
NextMapVote: Byte;
procedure ResetMapVote();
var
i: integer;
begin
   NextMapVote:=0;
   for i := 1 to 32 do begin
      NextMapArray := False;
   end;
end;
procedure NextMapV(ID: integer);
var
VotePrec: Double;
begin
   NextMapArray[ID]:=true;
   NextMapVote:=NextMapVote+1;
   command('/say Voters for Next Map: ' + inttostr(NextMapVote)+'/'+inttostr(NumPlayers));
   VotePrec:=NextMapVote/NumPlayers;
   if (VotePrec>0.6) then Begin
      Command('/say Next Map Vote Had Passed');
      Command('/nextmap');
   End;
End;
procedure OnAdminConnect(IP: string);
begin
end;
procedure OnAdminDisconnect(IP: string);
begin
end;


Date Posted: August 10, 2007, 09:29:12 AMthis is the script I combined it with
why ain't it working?

[Freedom]

Very nice script ;P

[Eldiablo]

Excellent
I've always wished for something like this.

[miketh2005]

thanx

[Anal]

aaa how i can make this text to plick PAS??

[miketh2005]

can u put this in a .zip plz?

[you360]

Where i can download ?

[Gizd]

Atm you can't download it. Somone forgot about file 

[jrgp]

Atm you can't download it. Somone forgot about fileĀ 

I just stuck the code into a zip file, extract the folder within to your Scripts/ folder. I hope this helps.

[Norbo]

Code: [Select]

SayToPlayer(ID,'Flag Returned! 2 points for you! (max 10 extra points)');I dont reccomend using that, its like an admin PM
Use

Code: [Select]

WriteCosnsole(ID,TEXT,COLOR); instead
Also why do you need onFlagGrab?

[danmer]

Also why do you need onFlagGrab?

so that people dont abuse it by shooting the flag out of base and returning

[Norbo]

Also why do you need onFlagGrab?

so that people dont abuse it by shooting the flag out of base and returning

aahh i understand, thx

[you360]

Thanks u for scripts = D