PublicTools

[skrX]

Script Name: Publictools
Script Description: basic script to the public servers
Author: skrX
Core Version: 2.7.5

Basic commands:

!1 !2 !5
!rate ID
!track ID
!ping ID
!nextmap !vote

lack balance

[rOy]

Hello
Good Job
But I've next idea:

Code: [Select]

procedure OnPlayerSpeak(Id: byte; Text: string);
var
i: byte;
begin

if (Text='!1') or (Text='!red') then begin
Command('/setteam1 '+inttostr(ID));
end;

if (Text='!2') or (Text='!blue') then begin
Command('/setteam2 '+inttostr(ID));
end;

if (Text='!5') or (Text='!spec') then begin
Command('/setteam5 '+inttostr(ID));
end;

if (Text = '!nextmap') then
begin
WriteConsole(ID,'Next map will be: '+NextMap,Color);
WriteConsole(ID,'Use (!m or !v) to vote.', Color);
end;

if (Text='!map') then begin
WriteConsole(ID,'Current map is: '+CurrentMap, Color);
end;

if (Text='!time') then begin
WriteConsole(ID,'Current server time is: '+FormatDate('hh:nn:ss')+' (GTM+1)'+' Date is: 'FormatDate(dd-mm-yyyy), Color);
end;
Also, I would use:

Code: [Select]

if MaskCheck(lowercase(Text),'!<result>') then begin
end;
Add too: function OnPlayerCommand

Code: [Select]

function OnPlayerCommand(ID: Byte; Text: string): boolean;
begin
     if LowerCase(Text) = '/red' then Command('/setteam1 ' + IntToStr(ID));
     if LowerCase(Text) = '/blue' then Command('/setteam2 ' + IntToStr(ID));
     if LowerCase(Text) = '/spec' then Command('/setteam5 ' + IntToStr(ID));
     end;
end;

[Falcon`]

you can use switch block instead of those ifs.

[skrX]

@rOy:

Not necessarily.
Probably no one would use the function OnPlayerCommand to move to the specified team.

but thx for help

(FIX) Error:

Code: [Select]

if (Text='!time') then begin
   WriteConsole(ID,'Current server time is: '+FormatDate('hh:nn:ss')+' (GTM+1)'+' Date is: 'FormatDate(dd-mm-yyyy), Color);
end;

[rOy]

Code: [Select]

const
color = $FFFF00;

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin

if (Text='!time') then begin
   WriteConsole(ID,'Current server time is: '+FormatDate('hh:nn:ss')+' (GTM+1)'+' Date is: '+FormatDate('dd-mm-yyyy'), Color);
   end;
end;
This is a possible (tested)

[rOy]

Script Name: PublicTools
Script version: 1.0.0
Release Date: 19th of March 2013
Core Version: v2.6.0

I don't know the version 2.6.0
I tested only for 2.7.3 (server version) / Soldat version 1.6.3

[skrX]

up

[rOy]

Next idea
Deleted: Max_Players = 32;

Code: [Select]

const
Color = $4efffc;
White = $ffffff;
Red = $FFFF4444;

VotePerc = 65;
VoteTime = 30;
AddTime = 8;

var
Voted: array [1..32] of boolean;
kills: array [1..32] of byte;

[skrX]

up