SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Blar Tomo - SRL Member Application Form
Blar Tomo

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Basic Java, Basic C++

Other Communitys
Fagex, Sythe, Moparisthebest, Cruels, and Tainted Ones.

How Long have You Played Runescape
4 years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I'm a 16 year old guy that lives in San Diego, California. I play sports and I'm a very sociable person. I'm easy to get to know. I don't flame. I used proper grammar/punctuation. I help people when I can as well.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

//Human Typer-Tomo

function chooserstring(a, b, c, d: string): string;
begin
 case random(4)+1 of
  1: result:= a;
  2: result:= b;
  3: result:= c;
  4: result:= d;
 end;
end;

function IsNumber(s: string): boolean;
var
  i, e: integer;
begin
 for i := 1 to 9 do
  for e := 1 to 9 do
   if(copy(s, i, 1)=inttostr(e))then
    result:= true;
end;

function StringNumber(s: string): integer;
var
  i, e: integer;
  str: string;
begin
  if(IsNumber(s))then
 begin
  for e := 1 to length(s) do
  for i := 1 to 9 do
    if(strtoint(copy(s, 1, 1))=i)then
   begin
    str:= str+inttostr(i);
     break;
   end;
 end;
  result:= strtoint(str);
end;
   
function randomcorrosponder(s: string): string;
var
  i: integer;
  number: boolean;
begin
 number:= false;
 case s of
  'a': result:= chooserstring('q', 'z', 's', 'w');
  'b': result:= chooserstring('v', 'n', 'g', 'h');
  'c': result:= chooserstring('x', 'd', 'f', 'v');
  'd': result:= chooserstring('e', 'r', 'w', 'f');
  'e': result:= chooserstring('w', 'r', '3', 'd');
  'f': result:= chooserstring('d', 'g', 'r', 't');
  'g': result:= chooserstring('h', 'f', 't', 'b');
  'h': result:= chooserstring('j', 'g', 'y', 'u');
  'i': result:= chooserstring('o', 'u', 'j', 'k');
  'j': result:= chooserstring('k', 'h', 'u', 'i');
  'k': result:= chooserstring('l', 'j', 'i', 'o');
  'l': result:= chooserstring('k', 'o', 'p', ';');
  'm': result:= chooserstring('n', 'k', ',', ' ');
  'n': result:= chooserstring('m', 'b', 'j', 'k');
  'o': result:= chooserstring('i', 'p', '9', 'l');
  'p': result:= chooserstring('o', '[', '0', ';');
  'q': result:= chooserstring('w', '1', 'a', 's');
  'r': result:= chooserstring('e', 't', '4', 'f');
  's': result:= chooserstring('w', 'd', 'a', 'z');
  't': result:= chooserstring('y', 'r', 'g', '6');
  'u': result:= chooserstring('y', 'i', '8', 'j');
  'v': result:= chooserstring('b', 'c', ' ', 'f');
  'w': result:= chooserstring('q', 'e', '3', 's');
  'x': result:= chooserstring('c', 'z', 's', 'd');
  'y': result:= chooserstring('t', 'u', '7', 'j');
  'z': result:= chooserstring('x', 'a', 's', 'a');
  ' ': result:= chooserstring(' ', ' ', ' ', ' ');
  ',': result:= chooserstring('.', 'm', ' ', ' ');
  '.': result:= chooserstring(',', '.', '/', ';');
  '<': result:= chooserstring(',', 'm', 'l', '<');
  '>': result:= chooserstring('/', '.', ',', '>');
  '?': result:= chooserstring('/', '.', ',', '?');
  '/': result:= chooserstring('/', '.', '''', ';');
  '"': result:= chooserstring('''', '"', ';', '/');
  '''': result:= chooserstring('''', ';', '/', '[');
  ';': result:= chooserstring(';', '''', 'p', 'l');
  ':': result:= chooserstring(';', ':', '"', '[');
  '[': result:= chooserstring('[', ']', 'p', '=');
  ']': result:= chooserstring('[', ']', '\', '=');
  '{': result:= chooserstring('[', ']', '-', 'p');
  '}': result:= chooserstring('[', ']', '\', '=');
  '-': result:= chooserstring('=', '0', 'p', '-');
  '_': result:= chooserstring('-', '=', 'p', '0');
  '+': result:= chooserstring('=', '\', '-', '+');
  '=': result:= chooserstring('=', '-', '\', '[');
  '\': result:= chooserstring(']', '\', '=', '\');
  '|': result:= chooserstring('[', ']', '|', '=');
  '!': begin number:= true; s:= '1'; end;
  '@': begin number:= true; s:= '2'; end;
  '#': begin number:= true; s:= '3'; end;
  '$': begin number:= true; s:= '4'; end;
  '%': begin number:= true; s:= '5'; end;
  '^': begin number:= true; s:= '6'; end;
  '&': begin number:= true; s:= '7'; end;
  '*': begin number:= true; s:= '8'; end;
  '(': begin number:= true; s:= '9'; end;
  ')': begin number:= true; s:= '0'; end;
 end;
  if(number)then
 begin
  if(IsNumber(s))then
 begin
  i:= random(4)+1;
  case i of
   1: result:= inttostr(StringNumber(s));
   2: result:= inttostr(StringNumber(s)+random(2)+1);
   3: result:= inttostr(StringNumber(s)-random(2)+1);
   4: result:= inttostr(StringNumber(s));
 end;
 end;
 end;
  wait(50 + random(50));
end;

function MisTypeSetting(S: String; Setting: Integer; Enter, Waits: Boolean): string;
var
  i, c, mistakes: integer;
begin
 mistakes:= 0;
  for i := 1 to length(s) do
 begin
  case random(3)+1 of
   1: c := 10;
   2: c := 15;
   3: c := 5;
  end;
  if(random(c)+1 <> random(c)+1)then
   case setting of
    1: sendkeys(copy(s, i, 1))
    2: sendkeyssilent(copy(s, i, 1))
    3: result:= result+copy(s, i, 1)
   end
   else
  begin
   case setting of
    1: sendkeys(randomcorrosponder(copy(s, i, 1)));
    2: sendkeyssilent(randomcorrosponder(copy(s, i, 1)));
    3: result:= result+randomcorrosponder(copy(s, i, 1))
   end;
   mistakes:= mistakes + 1;
  end;
  if(waits)then
 begin
   if(random(20)+1 <> 5)then
     wait(60 + random(80))
    else
     wait(200 + random(150));
 end;
 end;
 if(waits)then
  wait(50 + random(30));
  if(enter)then
 begin
  if(waits)then
   wait(20 + random(10));
  case setting of
   1: sendkeys(chr(13));
   2: sendkeyssilent(chr(13));
   3: result:= result+chr(13);
  end;
 end;
end;

//////////////////////////////////////////////////////////////////
//            All The Functions + Procedures                    //
//////////////////////////////////////////////////////////////////

procedure MisType(S: String; Enter: Boolean);
begin
  MisTypeSetting(S, 1, True, Enter);
end;

procedure MisTypeSilent(S: String; Enter: Boolean);
begin
  MisTypeSetting(S, 2, True, Enter);
end;

function RMistype(S: String): String;
begin
 result:= MisTypeSetting(S, 3, False, False);
end;
//////////////////////////////////////////////////////////////////
//                    Made By Tomo                              //
//////////////////////////////////////////////////////////////////

——————————————————
<!– END TEMPLATE: formanswers –>