SRL Archive - First Scripts

Alright, This is a script that simply (attempts) to cast crumble undead however many times you set it to in the beginning. I couldn't work out how to add Anti-Randoms or Anti Bans so uh.. If anyone would like to help me with that please add me to msn (kenpen69@yahoo.com).

Anyway, take you character to the Varrock sewers across the river from the skeletons and set the skeleton color and amount of times you want it to cast crumble undead.

This could really be used anywhere in runescape with crumble undead, I just like the varrock sewers because it was the most accessible at the time and they couldn't attack back =P.

program NewFerrousCrumbleSkeletonVarrockSewers;
{.include SRL/SRL.scar}

var
x, y, Casted: Integer;
 
const
SkeletonColor= 6450541; //Set color of Skeleton Here
AmountOfCasts= 5; //How many times you want to cast Crumble Undead

procedure MagicBook;
begin
  Mouse(743, 174, 15, 10, true);
  Wait(300+random(25));
end;

procedure CrumbleUndead;
begin
  Mouse(595, 304, 4, 4, true);
  Wait(200+random(25));
end;

procedure CastCrumble;
begin
  if(FindColor(x, y, SkeletonColor,0, 0, 516, 337)) then
  begin
    Mouse(x, y, 4, 4, true);
    Wait(200+random(25));
    Casted:= Casted + 1;
  end;
end;

procedure CrumbleCasting;
begin
  Casted:= 0;
    repeat
      CrumbleUndead;
      Wait(500+random(100));
      CastCrumble;
      Wait(1700+random(200));
    until(Casted >= AmountOfCasts)
end;

procedure Signature;
begin
  ClearDebug;
  writeln('   Ferrous Crumble Undead Varrock Sewers   ');
  writeln('   _______    _______    _____      _____  ');
  writeln('  |  _____|  |  _____|  |  __  \   |  __  \');
  writeln('  | |____    | |_____   | |__| |   | |__| |');
  writeln('  |  ____|   |  _____|  |    __|   |    __|');
  writeln('  | |        | |_____   | |\ \     | |\ \  ');
  writeln('  | |        |_______|  | | \ \    | | \ \ ');
  writeln('  |_|                   | |  \_\   | |  \_\');
  wait(3000 + random(750));
end;

  
begin
    begin
      SetUpSRL;
      PerfectNorth;
      MagicBook;
      Wait(500+random(100));
      CrumbleCasting;
      Signature;
      WriteLn('Time since start: ' + TimeRunning);
    end;
end.

I know theres alot of problems with it, but I really couldn't figure them out based on what I had so I just went ahead and posted it. Any help is appreciated and if you want to help me out a lot just add me to msn. Thanks.

Edit 1: Ok edited out the ClickMouse thing mentioned by HyperSecret

CLICKMOUSE = BAN, dont use clickmouse or you will get banned, look at some tuts and use SRL to your advantage…Mouse moves and clicks the mouse and is undetectable…

Alright, I changed the click mouse, is that better or worse now?

um yah i guess u should put failsafes and just make the script a little tighter. Its kinda sloppy

Well it is my first script you know <_< If I knew how to do that stuff I would lol