SRL Archive - Archive

uber jesus - SRL Member Application Form
uber jesus

What is the meaning to life?


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


Programming Knowledge
Delphi, Pascal, VB

Other Communitys
Sythe

How Long have You Played Runescape
7 years

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

I have been programming for about 2 years now, recently learned SCAR, made a few scripts that work well. I took Computer Sciences and Computer Engineering at my school for the past 2 years. First learned Pascal, then Delphi, then learned VB myself.

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

program AlKahridSmelter;
{.include srl\srl.scar}

// Instructions
//// Put the coal in the first bank slot
//// Put the iron in the second bank slot
//// Script requires SRL 3.60
//// Complete setup and run
//// Currently only supports steel
//// Start in the Al Kahrid Bank

const
rangeicon = 10013164; // Colour of range or kebab store symbol (what ever is closest to bank)
furnaceicon = 2327039; // Colour of furnace symbol
bankbooth = 5862274; // Colour of bank booth glass
bankicon = 5366002; // Colour of bank symbol
furnacefire = 1649562; // Colour of glowing part of furnace
HML = 1000; // How many loads to do (number of coal / 2 /14)

////----Do not touch past this line, or else script may not work----////

var xp,xp2,stopat:integer;

procedure OpenBankFirst;
var x,y:integer;
begin
//finds the bank booth
if FindColorSpiralTolerance(x,y,bankbooth,210,15,470,223,5) then
CMMouse(x,y,3,3);
   wait(200+random(50));
Mouse(x,y,3,3,false);
   wait(600+random(200));
CMMouse(x-29,y+42,5,3);
   wait(200+random(50));
Mouse(x-29,y+42,3,4,true);
   wait(4000+random(200));
//moves the booth up
CMMouse(475,66,2,2);
   wait(200+random(50));
HoldMouse(475,66,true);
   wait(9000+random(100));
ReleaseMouse(475,66,true);
   wait(500+random(120));
//withdraws coal
////withdraws 10
CMMouse(97,76,1,1);
   wait(200+random(50));
Mouse(97,76,1,1,false);
   wait(500+random(200));
CMMouse(54,131,1,1);
   wait(200+random(50));
Mouse(54,131,1,1,true);
   wait(500+random(120));
////withdraws 5
CMMouse(97,76,1,1);
   wait(200+random(50));
Mouse(97,76,1,1,false);
   wait(200+random(50));
CMMouse(76,117,1,1);
   wait(200+random(50));
Mouse(76,117,1,1,true);
   wait(500+random(120));
////withdraws 1 until it reaches 3
CMMouse(97,76,1,1);
   wait(200+random(50));
Mouse(97,76,1,1,true);
   wait(200+random(50));
Mouse(97,76,1,1,true);
   wait(200+random(50));
Mouse(97,76,1,1,true);
   wait(200+random(50));
//withdraws iron
////withdraws 5
CMMouse(140,75,2,2);
   wait(200+random(50));
Mouse(140,75,2,2,false);
   wait(500+random(200));
CMMouse(118,116,2,2);
   wait(200+random(50));
Mouse(118,116,2,2,true);
   wait(1000+random(200));
////withdraws 1 until it reaches 4
CMMouse(140,75,2,2);
   wait(200+random(50));
Mouse(140,75,2,2,true);
   wait(500+random(200));
Mouse(140,75,2,2,true);
   wait(500+random(200));
Mouse(140,75,2,2,true);
   wait(500+random(200));
Mouse(140,75,2,2,true);
   wait(500+random(200));
//closes off the bank window
CMMouse(485,41,2,2);
   wait(200+random(50));
Mouse(485,41,2,2,true);
end;

procedure Bank;
var x,y:integer;
begin
//finds the bank booth
if FindColorSpiralTolerance(x,y,bankbooth,210,15,470,223,5) then
CMMouse(x,y,3,3);
   wait(100+random(50));
Mouse(x,y,3,3,false);
   wait(600+random(200));
CMMouse(x-29,y+42,5,3);
   wait(200+random(50));
Mouse(x-29,y+42,3,4,true);
   wait(4000+random(200));
//deposits all of the steel bars
CMMouse(585,225,5,5);
   wait(200+random(110));
Mouse(585,225,5,5,false);
   wait(500+random(110));
CMMouse(585,297,5,5);
   wait(200+random(110));
Mouse(585,297,5,5,true);
   wait(800+random(200));
//withdraws coal
////withdraws 10
CMMouse(97,76,1,1);
   wait(200+random(50));
Mouse(97,76,1,1,false);
   wait(500+random(200));
CMMouse(54,131,1,1);
   wait(200+random(50));
Mouse(54,131,1,1,true);
   wait(500+random(120));
////withdraws 5
CMMouse(97,76,1,1);
   wait(200+random(50));
Mouse(97,76,1,1,false);
   wait(200+random(50));
CMMouse(76,117,1,1);
   wait(200+random(50));
Mouse(76,117,1,1,true);
   wait(500+random(120));
////withdraws 1 until it reaches 3
CMMouse(97,76,1,1);
   wait(200+random(50));
Mouse(97,76,1,1,true);
   wait(200+random(50));
Mouse(97,76,1,1,true);
   wait(200+random(50));
Mouse(97,76,1,1,true);
   wait(200+random(50));
//withdraws iron
////withdraws 5
CMMouse(140,75,2,2);
   wait(200+random(50));
Mouse(140,75,2,2,false);
   wait(500+random(200));
CMMouse(118,116,2,2);
   wait(200+random(50));
Mouse(118,116,2,2,true);
   wait(1000+random(200));
////withdraws 1 until it reaches 4
CMMouse(140,75,2,2);
   wait(200+random(50));
Mouse(140,75,2,2,true);
   wait(500+random(200));
Mouse(140,75,2,2,true);
   wait(500+random(200));
Mouse(140,75,2,2,true);
   wait(500+random(200));
Mouse(140,75,2,2,true);
   wait(500+random(200));
//closes off the bank window
CMMouse(485,41,2,2);
   wait(200+random(50));
Mouse(485,41,2,2,true);
end;

procedure StartWalking;
var x,y:integer;
begin
// finds the kebab or range symbol
if FindColorSpiralTolerance(x,y,rangeicon,582,50,711,123,5) then
CMMouse(x,y,2,2);
  wait(200+random(100));
Mouse(x,y,2,2,true);
  wait(7000+random(1000));
// finds the furnace symbol
if FindColorSpiralTolerance(x,y,furnaceicon,582,50,711,123,5) then
CMMouse(x,y,2,2);
  wait(200+random(100));
Mouse(x,y,2,2,true);
  wait(10000+random(1000));
end;

procedure Smelting;
var x,y:integer;
begin
// finds the glowing red part of the furnace
if FindColorSpiralTolerance(x,y,furnacefire,139,35,470,323,10) then
CMMouse(x,y,2,2);
  wait(200+random(100));
Mouse(x,y,2,2,false);
  wait(200+random(100));
Mouse(x-39,y+26,2,2,true);
  wait(4500+random(500));
// chooses steel bars and selects "make 10"
CMMouse(256,404,2,2);
  wait(200+random(100));
Mouse(256,404,2,2,false);
  wait(200+random(100));
CMMouse(236,413,2,2);
  wait(200+random(100));
Mouse(236,413,2,2,true);
  wait(30000+random(2000));
end;

procedure WalkBack;
var x,y:integer;
begin
// finds the kebab or range symbol
if FindColorSpiralTolerance(x,y,rangeicon,582,50,711,123,5) then
CMMouse(x-15,y+5,2,2);
  wait(200+random(100));
Mouse(x-15,y+5,2,2,true);
  wait(8000+random(1000));
// finds the bank symbol
if FindColorSpiralTolerance(x,y,bankicon,582,50,711,123,5) then
CMMouse(x-2,y-2,2,2);
  wait(200+random(100));
Mouse(x-2,y-2,2,2,true);
  wait(10000+random(1000));
end;

procedure CheckSmithing;
begin
// goes to the skills tab
CMMouse(585,189,3,3);
   wait(200+random(100));
Mouse(585,189,3,3,true);
   wait(500+random(300));
// looks at smithing xp
CMMouse(707,254,2,2);
   wait(2500+random(500));
CMMouse(650,185,3,3);
   wait(200+random(100));
Mouse(650,185,3,3,true);
end;

procedure StartScript;
begin
ClearDebug;
writeln('Thanks for using Uber Jesus'#39' Smelter');
writeln('The script will begin shortly...');
wait(3000+random(600));
writeln('...Now!');
end;

Procedure ProgressReport;
begin
xp := stopat * 17;
xp2 := xp + (stopat div 2);
ClearDebug;
writeln('+------------------------------------+');
writeln('Uber Jesus'#39' Uber Smelter');
writeln('+------------------------------------+');
writeln('Smelted ' + IntToStr(stopat * 9) + ' bars');
writeln('+------------------------------------+');
writeln('Made ' + IntToStr(stopat) + ' trips');
writeln('+------------------------------------+');
writeln('Gained ' + IntToStr(xp2) + ' smithing XP');
writeln('+------------------------------------+');
stopat := stopat + 1;
end;

begin
stopat := 0;
StartScript;
OpenBankFirst;
repeat
  StartWalking;
  Smelting;
  WalkBack;
  Bank;
  ProgressReport;
  if stopat mod 4 = 0 then
  CheckSmithing;
until stopat = HML
end.

——————————————————

what about multiplayer?, and there are plenty of mapwalking procedures in SRL, and you could use findsymbol instead of just one color… its not really SRL…

It seems to use alot of cordinates which are very detectable. You should use some of the srl functions to withdraw and deposit your items. You also could of used ChooseOption To pick options like buy 10 and withdraw all and deposit all. I see it includes srl but I really dont see it being utilized in this script. Get your post count up some show your deditcated to the community and learn Scar some more.

Im sorry, but I vote No

// goes to the skills tab
CMMouse(585,189,3,3);

Don't use CMMouse
Don't use static coords
Look thru SRL for stuff like gametab
Use multiplayer
Participate in the forums for a while and you'll learn more

for some reason my srl, doesn't work properly, the only thing that works is the mouse moving commands, none of the skills.scar work, and neither does any other part of srl, I've tried re-downloading, re-installing, and everything else, still doesn't work

Well getting SRL to work should be a higher priority than becoming an SRL Member.

if your using skills you have to include them to eg you want to include mining you would have to include this in your scripts to use the functions in it. {.include SRL/SRL/Skill/Mining.scar}

all of the mouse procedures you used are non-srl and very detectable
use MMouse and Mouse (look in srl manual)
you don't use multilayer which is kinda ok
but you atlest need player.nick
the nick is what randoms are found by
overall you need to learn more about SRL and base you scripts more on colors and bitmaps and dtms rather than coordinates.

Learn More
Try again

I got srl working properly now, ignor this applicaton until I post a new one.