Whats wrong ???

[mich1103]

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
if Text = '!admin' then begin
   WriteConsole(ID, '#***********ADMIN***********#', $FFFF00);   
           WriteConsole(ID, 'PK0WN3D  ', $FF6600);
           WriteConsole(ID, '|fr|FishinShip  ', $FF6600);
           WriteConsole(ID, 'Insane sparten ', $FF6600);
           WriteConsole(ID, 'MasterChief's ', $FF6600);
           WriteConsole(ID, '.:TRD:.!shock!183|Lc|  ', $FF6600);
           WriteConsole(ID, '************************  ', $FF6600);
     end;
end;




What is wrong ?

[Hacktank]

procedure OnPlayerSpeak(ID: Byte; Text: string);
begin
if Text = '!admin' then begin
   WriteConsole(ID, '#***********ADMIN***********#', $FFFF00);   
           WriteConsole(ID, 'PK0WN3D  ', $FF6600);
           WriteConsole(ID, '|fr|FishinShip  ', $FF6600);
           WriteConsole(ID, 'Insane sparten ', $FF6600);
           WriteConsole(ID, 'MasterChief''s ', $FF6600);
           WriteConsole(ID, '.:TRD:.!shock!183|Lc|  ', $FF6600);
           WriteConsole(ID, '************************  ', $FF6600);
     end;
end;

You need two 's to actually make it print one.