type tplayer = record
	godmode: boolean;
end;

var
	player: array[1..32] of tplayer;

procedure OnFlagGrab(ID, TeamFlag: byte; GrabbedInBase: boolean);
begin
  if (GetPlayerStat(ID, 'Alive') = true) and player[ID].godmode then
  begin
    player[ID].godmode := false;
    DoDamageBy(ID, ID, 8000);
	//DoDamage(ID, 8000);
    player[ID].godmode := true;
  end;
end;

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
	if Text='!god' then begin
		if player[ID].godmode then begin
			player[ID].godmode:=false;
			WriteConsole(ID,'GOD OFF',$FF0000);
		end else begin
			player[ID].godmode:=true;
			WriteConsole(ID,'GOD ON',$FF0000);
		end;
	end;
end;