Pruebas (no respondas a este mensaje)

[[Delphius]]

Hola... hace tan solo unas cuantas horas esto llegaba a la página 4, ahora veo que está en la 7.

¡Como que hay mucho tiempo libre!

No sigan... que me dejan atrás en el marcador... ¡me voy a quedar solito!

Código Delphi [-]
procedure IncrementarNroMensaje;
var NroNuevo: integer;
begin
  NroNuevo := NroMsj + Random(10);
  if NroNuevo = NroMsj
    then begin
             inc(NroMsj, CantMsj(roman) div 10);
             SendMessage('Gracias roman por colaborar con la cuenta XD');
           end
     else NroMsj := NroNuevo;
end;

....

if DelphiusConectado
  then IncrementarNroMensaje;

No probé el código... pero la idea es que si no logro poner algún mensaje... intentar "robarle" unos puntos al maestro roman

Saludos,
PD: Las cosas que uno inventa cuando tiene sueño.