SRL Archive - Other Scripts

Hey everyone and here is another somewhat pointless script… but can be fun if your really bored lol. Anyways… I found this out while making this script. After running the script for a couple seconds or minutes, hit ctrl + alt + s. Which will stop the script, you can even completely exit out of scar if you really want, and kitten cannon will still be going! I even refreshed the page before and when i clicked start again it kept going even without me clicking or hitting the space button, does anyone know why this is? I just thought I would share that because it was kind of funny at the time.

- Just go to http:www.addictinggames.com/kittencannon.html
- Click play game and drag the scar crosshair onto the screen
- You may have to set new colors under the constants section
- run the script!
- Use Scar 3.12c and the latest srl rev. (rev 13)

program NHSKittenCannon;
                                                                                      {
 , _    ,             ,
/|/ \  /|   |   ()   /|   / o
 |   |  |___|   /\    |__/    _|__|_  _   _  _
 |   |  |   |\ /  \   | \   |  |  |  |/  / |/ |
 |   |_/|   |//(__/   |  \_/|_/|_/|_/|__/  |  |_/


  ___
 / (_)
|      __,   _  _    _  _    __   _  _
|     /  |  / |/ |  / |/ |  /  \_/ |/ |
 \___/\_/|_/  |  |_/  |  |_/\__/   |  |_/

                                                                                      }
const
ContinueColor = 26367; //color of the continue button
Cannon = 153;  //color of the red part of cannon
DisguiseScar = True;  //true to disguise scar as something else
TimeToRun = 2; //hours to run the script before termination

var
x,y, i : integer;

procedure DoSpace;
var
i : integer;
begin
  if(FindColorTolerance(x,y,Cannon,98, 348,141, 360,5)) then
  begin
    Case Random(3) of
     0:begin
      KeyDown(VK_DOWN);
      Wait(200+random(300));
      KeyUp(VK_DOWN);
       end;
     1:begin
          KeyDown(VK_UP);
          Wait(200+random(300));
          KeyUp(VK_UP);
       end;
    2:begin
         WriteLn('Found Cannon');
         KeyDown(32);
         wait(1)
         KeyUp(32);
         i:= i + 1;
      end;
    end;
  end;
end;

procedure Progress;
var T : integer;
begin
  T := T + 1;
  if T >= 5 +Random(8) then
  begin
    T := 0;
    writeln('you have done kittencannon :' +inttostr(i)+ ' times');
  end;
end;

procedure DoContinue;
begin
  if(FindColorTolerance(x,y,ContinueColor,284, 218,462, 300,10)) then
  begin
    if(findcolortolerance(x,y,153,309, 129,420, 193,5)) then
    begin
      WriteLn('Sorry, you just had a bad run')
      disguise('Sorry, Bad Run');
      Wait(1000);
      KeyDown(32);
      Wait(10);
      KeyUp(32);
    end;
    if(findcolortolerance(x,y,26112,309, 129,420, 193,5)) then
    begin
      WriteLn('Wow! you had a great run that time!')
      disguise('Wow! GREAT RUN!');
      Wait(1000);
      KeyDown(32);
      Wait(10);
      KeyUp(32);
    end;
  end;
end;

function ScriptTime(i: Integer): Integer;
var
  ct, mn, sc, hr: LongInt;
begin
  ct := GetTimeRunning;
  ct := ct div 1000;
  sc := (ct mod 60); //seconds
  ct := ct div 60;
  mn := (ct mod 60) + Result; //minutes
  ct := ct div 60;
  hr := ct;
  case i of
    1: Result := hr;
    2: Result := mn;
    3: Result := sc;
  end;
end;

procedure Signature;
begin
  writeln(' ____  __.__  __    __                   ')
  writeln('|    |/ _|__|/  |__/  |_  ____   ____    ')
  writeln('|      < |  \   __\   __\/ __ \ /    \   ')
  writeln('|    |  \|  ||  |  |  | \  ___/|   |  \   ')
  writeln('|____|__ \__||__|  |__|  \___  >___|  /    ')
  writeln('        \/                   \/     \/     ')
  writeln('_________                                     ')
  writeln('\_   ___ \_____    ____   ____   ____   ____   ')
  writeln('/    \  \/\__  \  /    \ /    \ /  _ \ /    \   ')
  writeln('\     \____/ __ \|   |  \   |  (  <_> )   |  \  ')
  writeln(' \______  (____  /___|  /___|  /\____/|___|  /  ')
  writeln('        \/     \/     \/     \/            \/   ')
  writeln('             BY NHStarter10              ')
  writeln('             --------------              ')
end;


procedure TheDisguise;
begin
  if DisguiseScar=False then Exit;
  begin
    case random(4) of
    0: disguise('mIRC');
    1: disguise('iTunes');
    2: disguise('Kitten Cannon, free olin...')
    3: disguise('My Documents');
    end;
  end;
end;

begin
  TheDisguise;
  ClearDebug;
  Signature;
  ActivateClient;
  repeat
  Progress;
  DoContinue;
  DoSpace;
  until(ScriptTime(1) >= TimeToRun);
end.

I havn't gotten to finding that mathematical formula yet on how to find what score you got. I really have no idea where to start or how to do that. Anyway I just decided to base it on simple color finding, so if you get a new record it will say great run, and if you do worse than your current record it will say sorry try again. Does anybody know how I would go about finding what score you get?

man i forgot

Line 285: [Error] (6619:28): Invalid number of parameters in script C:\Program Files\SCAR 3.12\includes\SRL/SRL/Core/DoorProfiles.scar

has been happening to every single script i try to use

lol just used worked well pretty funny
the counter doesnt work though it says i played 0 times for 6 seconds

T ~ M

Wow, people are using SCAR to abuse kittens now? :p
Nice script :) (793ft :))

Wait, you werent honestly thinking we would use it for rs cheating? How ignorant. Nice, simple script.

hehe pretty interesting (Yes im really bored) i got 943 feet as a best.

Now, if you could figure out the mathematical formula that determines how far the kitten goes, then I would give you a pat-on-the-back.

But since you didn't heres a cookie!

begin
keydown(32);
writeln('foundcannon');
end;
end;


You forgot KeyUp(32);

That would explain the constant hitting of the space bar…. ty for your help although the script does still work.

From: R0b0t1
But since you didn't heres a cookie!

Lol, that cookie looks like baked puke or something :)

Now this is a cookie :)

hmmm…. I think I will take the cookie on the bottom.

looks fresh out of the oven :)

I wants a cookie :(

Can't you change findcolor to FindColorTol, so you don't have to change the colors as much?

Anyways, good job.

…lol, I made this script like what? a couple weeks ago now? I really wasn't planning on having this many people post, especially not this many respected people. I suppose I will update it because of all the attention this script is getting (imo doesn't deserve this much) lol :)

I will have the updated script in a little while, hopefully will work better. :)

Nice :) Looks pretty good. But why did you include SRL? You don't use it (afaik) and it just slows down.

Script updated, is it better now ? :)

Gah. I've been beaten at finding a picture of a cookie!


It does look better now, but I wouldn't include SRL. Instead, use Keydown(32) and Keyup(32)

I included srl only for the "TimeRunning"

But I don't think it even works… so yeah you can just get rid of it if you want. :duh:

That script is great! I managed to get 2030 ft on one try (get on landing on the dynamite stuff :p) Worked great