program BroadCast;
//Copyright Addyrulez
procedure TypeByte(k: Byte);
begin KeyDown(k);
  wait(25 + Random(40));
  KeyUp(k);
  end;
  procedure SendType(Text: String); var i: Integer;
  begin for i := 1 to Length(Text) do
  begin TypeByte(GetKeyCode(Text[i])); Wait(50 + Random(60));
  end; wait(200 + Random(500)); TypeByte(13);
  end;
  const message1='~';
  interval=30; // time between messages in seconds.
  begin repeat
  clickmouse(579, 467, true)
  clickmouse(132, 384, false)
sendtype(message1) wait(interval * 1000)
until(false)
end.