TomTop
2014-10-29 15:43:35
VERSION: 1.0
Status: Stable & Working
Just a simple little script I've been using for the past weeks, a simple advertiser that I use in w31 to advertise POH altars.
Features
- Customize name
- Customize message
- Fast (3seconds interval)
- Doesn't use your keyboard
- Great for POH advertising
program Advertiser;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
const
hoursToRun = 0.5;
name = 'TomTop';
color = 'Cyan';
message = 'Coming to you from RS3';
var
someTimer: TTimeMarker;
timeRan: integer;
sent: integer;
procedure TalkFast(Text: String; PressEnter: Boolean);
var
i: Integer;
begin
for i:=1 to Length(text) do
SendKeys(Text[i], 8 + Random(2), 20);
if (PressEnter) then
TypeByte(VK_RETURN);
end;
begin
smartShowConsole := FALSE;
smartEnableDrawing := TRUE;
cleardebug();
setupSRL();
someTimer.start();
repeat
TalkFast(color + ':[ ' + name + ' ] ' + message + ' [ ' + name + ' ]', true);
Inc(sent);
clearDebug();
writeLn('We''ve been running for ' + toStr(round(((someTimer.getTotalTime()) / 1000) / 60)) + ' minutes. ( ' + toStr(sent) + ' messages sent )');
wait(RandomRange(2950, 3050));
until(someTimer.getTotalTime() > (hoursToRun * 60 * 60 * 1000));
end.