Noob to Scripting...

[Sinistersedge]

Just want a Script that will make me able to have my Server put out my Clans website and Welcome to UaF Dedicated Server....any help would be much appreciated

[iDante]

Code: (pascal) [Select]

procedure AppOnIdle(Ticks: integer);
begin
    if Ticks mod (3600 * 5) = 0 then begin
        WriteConsole(0, 'Welcome to UaF Dedicated Server', $FFFFFF);
        WriteConsole(0, 'Clan''s website here', $FFFFFF);
    end;
end;
That will print out those two messages every 5 minutes to everyone in the server.

[GSx_Major]

Failing to compile != printing out two messages every 5 minutes.

(Second WriteConsole needs more 's, maybe I should say.)

[CurryWurst]

Failing to compile != printing out two messages every 5 minutes.

(Second WriteConsole needs more 's, maybe I should say.)

Code: (pascal) [Select]

procedure AppOnIdle(Ticks: integer); 
begin 
  if Ticks mod (3600 * 5) = 0 then begin 
    WriteConsole(0, 'Welcome to UaF Dedicated Server', $FFFFFF); 
    WriteConsole(0, 'Clan''s website here', $FFFFFF); 
  end; 
end; 

[Sinistersedge]

so.....i get the script but where would i add this to .

[VinceBros]

http://forums.soldat.pl/index.php?topic=21468.0

[iDante]

Ah sorry, forgot the escape character.
Should work now.

[|_ancer]

Code: (pascal) [Select]

{
ClusterFk - made by Dualbreathe~
Email me at dualbreathe@gmail.com for and inquiries.
}

function OnCommand(ID: Byte; Text: string): boolean;
var
i, all, player: byte;
Temp1: Variant;
name: String;
begin
Name := GetPlayerStat(ID,'Name');
Result := False
if GetPiece(Text,' ',0) = '/clu' then
 i := StrToInt(GetPiece(Text,' ',1));
  if (GetPlayerStat(I, 'active') = true) then begin
     CreateBullet(GetPlayerStat(i,'x'), GetPlayerStat(i,'y') - 0, 0, 0, 1000, 10, ID);
     
      end;
     begin
     if Text = '/cluall'
        then for all := 1 to NumPlayers do
         if all <> ID then
            CreateBullet(GetPlayerStat(all,'x'), GetPlayerStat(all,'y') - 0, 0, 0, 1000, 10, ID);
              end;

         
     if GetPiece(text,' ',0) = '/die' then
     begin
       player := StrToInt(GetPiece(Text,' ',1));
       Temp1 := StrToInt(GetPiece(Text,' ',2));
       if (GetPlayerStat(player, 'Active') = True) then begin
         CreateBullet(GetPlayerStat(player,'x'), GetPlayerStat(player,'y') - 0, 0, 0, 1000, Temp1, ID);
          end;
          end;
       
         
 if Text = '/clusterhelp' then begin
    WriteConsole(ID,'---------', RGB(255, 0, 0));
    WriteConsole(ID,'Welcome, '+Name+', who is admin of this sever', RGB(0, 255, 0));
    WriteConsole(ID,'/clu ID - shoots a cluster at that id', RGB(255, 0, 0));
    WriteConsole(ID,'/cluall - shoots clusters at everyone except you', RGB(255, 0, 0));
    WriteConsole(ID,'/die ID BulletType - self explainable', RGB(255, 0, 0));
    WriteConsole(ID,'---------', RGB(255, 0, 0));
    end;
end;Admin commands to abuse.