SRL Archive - Other Scripts

I made this for my own use very handy if you dont like typing :p
Just open two Scars and press play and right click wherever you want to case.

Program caser;
Var i:integer;


Const NumberOfTimes = 26;
{how many Cases you want}
Const Variables = 'Result:=';
{The variable to assign}
Const NumberToStart = 10;
{The number to start from}


Begin
WriteLn('Move Mouse and right click to where ever you want it to start. ');
  Repeat
    Wait(1000);
  Until(IsMouseButtonDown(false)=true);
For i:=NumberToStart+1 To NumberOfTimes Do sendkeys(''+InttoStr(i)+' : '+Variables+(chr(13)))
  SendKeys('end;');
end.

Cool ;p

I made something similar when i had to make tons of cases -.-