SRL Archive - First Scripts

This is my first script. It's really random but it only types simply with no 'end typeing'

The script can be used in runescape but it basically just a first script.

Updated! to 3.0, thanks to cbris for suggesting i make it smaller.
Updated! 3.1, minor changes

Program DBMRAT;
{.include ph.scar}

const
 message1='I am SUPERMAN MAN!!!';                     //enter the message you
 message2='Yes, of course i am the smarter person.';  //want to be typed in here
 message3='Mega random subliminal messaging...';      //this is all you have to
 message4='Hooray for SCAR!!!';                       // fill out
 message5='DaBomber is the greatest scripter EVER!!!';
 cycles=1;                                            //Number of Cycles;
{
////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/==============================================================================\
                               Do not edit below!
////////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
================================================================================
}

Procedure sending(message0 : string);
begin
 TypeHumanNE(message0, 100 + randomrange(-50,50), 50 + randomrange(-20,20), 10, false);
 wait(200 + random(100));
 sendkeysvb('{enter}',false);
 wait(2000 + random(720));
end;


Function randomcaps(message0 : string) : string;
var
 a:boolean;
 b:integer;
 d:string;

begin
 cleardebug
 b:= 0;
 repeat
   b:= b + 1;
   D:= Copy(message0,b,1);
   a:=rbool;
   if a=true then
    begin
     d:=uppercase(d);
    end
    replacedebugline(0,getdebugline(0)+d);
 until(b = Length(message0));
 result:=getdebugline(0)
 cleardebug;
end;

Function EditMessage(message0 : string; nochangechance : integer) : string;
begin
 case random(nochangechance+5) of
  1: begin
      result:=capitalize(message0);
     end;
  2: begin
      result:=uppercase(message0);
     end;
  3: begin
      result:=lowercase(message0);
     end;
  4: begin
      result:=trimothers(message0);
     end;
  5: begin
      result:=randomcaps(message0);
     end;
  else
   begin
    result:=message0;
   end;
 end;
 wait(200+random(100)
end;

Procedure MainLoop;
var
 a:integer;
begin
 a:=0;
 repeat;
  a:=a+1;

  sending(editmessage(message1,2));
  sending(editmessage(message2,2));
  sending(editmessage(message3,2));
  sending(editmessage(message4,2));
  sending(editmessage(message5,2));

 until(a=cycles);
 cleardebug;
 writeln('Thank you for using DaBombers Mega Random AutoTalker.');
end;

begin
 cleardebug;
 MainLoop;
 writeln('Thank you for using DaBombers Mega Random AutoTalker.');
 writeln('DaBomberz Mega Random AutoTalker ran for ' + inttostr(gettimerunning) + ' milliseconds');
end.

This looks OK…

Clarification; Is this made to be used on RS? Because that would create a ban.

If this is just used to show you scripting ability, its not bad. you could add some stuff to cut down on the repitition. for example…

TypeHumanNE(me1, 100 + randomrange(-50,50), 50 + randomrange(-20,20), 10, false);
  wait(200 + random(100));
  sendkeysvb('{enter}',false);
  wait(2000 + random(720));
 
  TypeHumanNE(me2, 100 + randomrange(-50,50), 50 + randomrange(-20,20), 10 + randomrange(-3,3), false);
  wait(200 + random(100));
  sendkeysvb('{enter}',false);
  wait(2000 + random(720));

You could change "me1" and "me2" into something like

repeat
  TypeHumanNE(me + i, 100 + randomrange(-50,50), 50 + randomrange(-20,20), 10, false);
  wait(200 + random(100));
  sendkeysvb('{enter}',false);
  wait(2000 + random(720));
  i := i + 1;
until(i = 6);

This exact code i posted doesn't work, but the general idea is to make the script add the number after "me". This would save you some typing and allow you to modify the total number of messages with out rewriting the script.

I don't quite have the scripting ability to make it work.

I don't think you can do anything like the way you are suggesting, but i did change it and make it smaller, thanks for the suggestion =)

any more suggestions at all???

From: King of Knives

I've never been a fan of AutoTalkers, but if I have to say it… This looks like one of the better :D
-Knives

my first prais lolz