Simba Code:
program SummertimeSadness;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
procedure summerTimeAntiBan();
var
summertime, sadness: Integer;
begin
summertime := 99;
sadness := 1234;
repeat
typeSend('Kiss me hard before you go');
wait(randomRange(1200,1600));
typeSend('Summertime sadness');
wait(randomRange(1200,1600));
typeSend('I just wanted you to know');
wait(randomRange(1200,1600));
typeSend('That, baby, you''re the best');
wait(randomRange(1200,1600));
typeSend('I got my red dress on tonight');
wait(randomRange(1200,1600));
typeSend('Dancing in the dark in the pale moonlight');
wait(randomRange(1200,1600));
typeSend('Done my hair up real big beauty queen style');
wait(randomRange(1200,1600));
typeSend('High heels off, I''m feeling alive');
wait(randomRange(1200,1600));
typeSend('Oh, my God, I feel it in the air');
wait(randomRange(1200,1600));
typeSend('Telephone wires above are sizzling like a snare');
wait(randomRange(1200,1600));
typeSend('Honey, I''m on fire, I feel it everywhere');
wait(randomRange(1200,1600));
typeSend('Nothing scares me anymore');
wait(randomRange(1200,1600));
typeSend('1,2,3,4');
wait(randomRange(1200,1600));
typeSend('Kiss me hard before you go');
wait(randomRange(1200,1600));
typeSend('Summertime sadness');
wait(randomRange(1200,1600));
typeSend('I just wanted you to know');
wait(randomRange(1200,1600));
typeSend('That, baby, you''re the best');
wait(randomRange(1200,1600));
typeSend('I got that summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('S-s-summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('Got that summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('Oh, oh, oh, oh, oh');
wait(randomRange(1200,1600));
typeSend('I''m feelin'' electric tonight');
wait(randomRange(1200,1600));
typeSend('Cruising down the coast goin'' ''bout 99');
wait(randomRange(1200,1600));
typeSend('Got my bad baby by my heavenly side');
wait(randomRange(1200,1600));
typeSend('I know if I go, I''ll die happy tonight');
wait(randomRange(1200,1600));
typeSend('Oh, my God, I feel it in the air');
wait(randomRange(1200,1600));
typeSend('Telephone wires above are sizzling like a snare');
wait(randomRange(1200,1600));
typeSend('Honey, I''m on fire, I feel it everywhere');
wait(randomRange(1200,1600));
typeSend('Nothing scares me anymore');
wait(randomRange(1200,1600));
typeSend('1, 2, 3, 4');
wait(randomRange(1200,1600));
typeSend('Kiss me hard before you go');
wait(randomRange(1200,1600));
typeSend('Summertime sadness');
wait(randomRange(1200,1600));
typeSend('I just wanted you to know');
wait(randomRange(1200,1600));
typeSend('That, baby, you''re the best');
wait(randomRange(1200,1600));
typeSend('I got that summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('S-s-summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('Got that summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('Oh, oh, oh, oh, oh');
wait(randomRange(1200,1600));
typeSend('Think I''ll miss you forever');
wait(randomRange(1200,1600));
typeSend('Like the stars miss the sun in the morning sky');
wait(randomRange(1200,1600));
typeSend('Later''s better than never');
wait(randomRange(1200,1600));
typeSend('Even if you''re gone I''m gonna drive (drive, drive)');
wait(randomRange(1200,1600));
typeSend('I got that summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('S-s-summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('Got that summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('Oh, oh, oh, oh, oh');
wait(randomRange(1200,1600));
typeSend('Kiss me hard before you go');
wait(randomRange(1200,1600));
typeSend('Summertime sadness');
wait(randomRange(1200,1600));
typeSend('I just wanted you to know');
wait(randomRange(1200,1600));
typeSend('That, baby, you''re the best');
wait(randomRange(1200,1600));
typeSend('I got that summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('S-s-summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('Got that summertime, summertime sadness');
wait(randomRange(1200,1600));
typeSend('Oh, oh, oh, oh, oh');
wait(randomRange(1200,1600));
until summertime = sadness;
end;
begin
setupSRL();
summerTimeAntiBan();
end.