First person to get flag gets a vest.

[miketh2005]

Can someone make this for me, please? Thanks.

[~Niko~]

ok, wait a while, i had something similar to this...

EDIT: Here you go.

Code: [Select]

const
color = $00FF00; //Color of the message displayed.

var
getvest: Boolean;

procedure OnMapChange(NewMap: string);
begin
getvest := true;
end;

procedure OnFlagGrab(ID, TeamFlag: byte; GrabbedInBase: boolean);
begin
if getvest = true then begin
GiveBonus(ID, 3);
WriteConsole(ID,'You won a vest by grabbing the flag',color);
getvest := false;
end;
end;

//This will give a vest to the first guy who frags the flag.
//Once another map is loaded, it can be done again.
It should work. At least it compiles.

[DorkeyDear]

I don't believe OnMapChange it called on first time server starts, you may also want

Code: [Select]

procedure ActivateServer();
begin
  if (CurrentMap = '') then // if it isn't caused by a /recompile comman
    OnMapChange(''); // you aren't using the NewMap variable so it doesn't matter
end;not that this must come sometime after the OnMapChange function.

[~Niko~]

damn, that's too pro for me.

[miketh2005]

Thanks alot, guys. So it should be:

Code: [Select]

const
color = $00FF00; //Color of the message displayed.

var
getvest: Boolean;

procedure OnMapChange(NewMap: string);
begin
getvest := true;
end;

procedure ActivateServer();
begin
  if (CurrentMap = '') then // if it isn't caused by a /recompile comman
    OnMapChange(''); // you aren't using the NewMap variable so it doesn't matter
end;

procedure OnFlagGrab(ID, TeamFlag: byte; GrabbedInBase: boolean);
begin
   if getvest = true then begin
   GiveBonus(ID, 3);
   WriteConsole(ID,'You won a vest by grabbing the flag',color);
   getvest := false;
   end;
end;

//This will give a vest to the first guy who frags the flag.
//Once another map is loaded, it can be done again.
?

[DorkeyDear]

looks right; test it and find out