Freeman: Created page with "procedure ActivateServer(); begin end; procedure AppOnIdle(Ticks: integer); begin end; procedure OnMapChange(NewMap: string); begin end; procedure OnE..."

2012-08-14T16:45:34Z

Created page with "<source lang="pascal">procedure ActivateServer(); begin end; procedure AppOnIdle(Ticks: integer); begin end; procedure OnMapChange(NewMap: string); begin end; procedure OnE..."

New page

<source lang="pascal">procedure ActivateServer();
begin
end;

procedure AppOnIdle(Ticks: integer);
begin
end;

procedure OnMapChange(NewMap: string);
begin
end;

procedure OnException(ErrorMessage: string);
begin
end;

procedure OnAdminConnect(IP: string);
begin
end;

procedure OnAdminDisconnect(IP: string);
begin
end;

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

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

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

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

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

function OnCommand(ID: Byte; Text: string): boolean;
begin
Result := false;
end;

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

procedure OnPlayerSpeak(ID: byte; Text: string);
begin
end;

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

function OnPlayerDamage(Victim, Shooter: byte; Damage: integer): integer;
begin
Result := Damage;
end;

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

procedure OnPlayerRespawn(ID: byte);
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;</source>

[[Category:Script Templates]]

Default Script Template - Revision history

Freeman: Created page with "procedure ActivateServer(); begin end; procedure AppOnIdle(Ticks: integer); begin end; procedure OnMapChange(NewMap: string); begin end; procedure OnE..."