Untitled

/// VERSION: 0.2
 ////////////////////////////////////////////////
 //// Soldat Server TCP Socket Usage Example ////
 ////     by EnEsCe - http://enesce.com      ////
 ////  Please leave this message if you use  ////
 ////      any of these functions! <3 <3     ////
 ////////////////////////////////////////////////
 ////////////////////////////////////////////////
 //// IRC-Functions done by Warlord
 ////   just released on http://www.soldatnet.com
 ////////////////////////////////////////////////

const
//Teams
  ALPHA = 1;  BRAVO = 2;  CHARLIE = 3;  DELTA = 4;  SPECTATOR = 5;
//Game Modes
  DEATHMATCH = 0;  POINTMATCH = 1;  TEAMMATCH = 2;  CTF = 3;  RAMBO = 4;  INF = 5;  HTF = 6;
//Weapons
  DEAGLES = 1;  HKMP5 = 2;  AK74 = 3;  STEYR = 4;  SPAS = 5;  RUGER = 6;  M79 = 7;  BARRET = 8;  MINIMI = 9;
  MINIGUN = 10;  FLAMER = 11;  BOW = 12;  FLAMEBOW = 13;  SOCOM = 0;  KNIFE = 14;  CHAINSAW = 15;  LAW = 16;

procedure OnDataReceived(Index: Integer; Buffer: String);
begin
end;

procedure MainSocketLoop(Index: Integer);
begin
end;

procedure OnConnected(Index: Integer);
begin
end;

procedure OnDisconnected(Index: Integer);
begin
end;

procedure ThreadedCreate(IP: String;Port: Integer;var IndexVar: Integer);
begin
end;

procedure irc_connect(Server: String; Port: Integer);
begin

end;

procedure ActivateServer();
begin
end;

procedure AppOnIdle(Ticks: integer);
begin
end;

function OnCommand(ID: Byte; Text: string): boolean;
begin
  Result := false; // Return true if you want to ignore the command typed.
end;

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
end;

procedure OnException(ErrorMessage: string);
begin
//  WriteFile('ErrorLog.txt', ErrorMessage);
end;

function OnRequestGame(IP: string; State: integer): integer;
begin
  Result := State;
end;

procedure OnWeaponChange(ID, PrimaryNum, SecondaryNum: byte);
begin
end;

procedure OnJoinGame(ID, Team: byte);
begin
end;

procedure OnJoinTeam(ID, Team: byte);
begin
end;

procedure OnLeaveGame(ID, Team: byte; Kicked: boolean);
begin
end;

procedure OnFlagGrab(ID, TeamFlag: byte; GrabbedInBase: boolean);
begin
end;

procedure OnFlagReturn(ID, TeamFlag: byte);
begin
end;

procedure OnFlagScore(ID, TeamFlag: byte);
begin
end;

procedure OnMapChange(NewMap: string);
begin
end;

procedure OnPlayerKill(Killer, Victim: byte; Weapon: string);
begin
end;

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
  // Victim = Player Damaged // Shooter = Player doing the damage
  result := Damage;
end;

procedure OnPlayerRespawn(ID: byte);
begin
end;

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
	if (MaskCheck(Text, '^*')) then begin
		WriteLn('=> team message');
	end
end;

procedure OnAdminConnect(IP: string);
begin
end;

procedure OnAdminDisconnect(IP: string);
begin
end;

procedure OnAdminMessage(IP, Msg: string);
begin
end;