SRL Archive - Archive

How Long have You Played Runescape?
6 Year(s)


Are you affilated in anyway with Jagex LTD?
no

Were you Referred to SRL?



What is your general programming knowledge?
basic or less then basic Java, some scar if that counts and AHK (AutoHotKey). AHK is not limited to hotkeys.


Are you a member of any other communities?
no


Tell us about yourself…

From: TheKidXXX
I am currently taking at home classes to finish getting my High school diploma. This is do to the public school screw ups with my transcript… like missing credits for classes I took and passed.
I wish to get a career as a programmer.
eh… I'm also not a very social person. so writing about my self is not my best strength.

Please show us one (or multiple) of your scripts.

// If you do not have the MouseMaze.bmp
// You can get it from [url]http://img251.imageshack.us/img251/1425/mousemaze.png[/url]
// MouseMaze.bmp must be in the script folder.
program MouseMaze;
const
W = 560;
H = 776;
Var
MouseMaze, x, y: Integer;

procedure LoadBit;
begin
 MouseMaze := LoadBitmap(AppPath + 'scripts\MouseMaze.bmp');
end;

Function CheckMousePos( x1, y1, x2, y2: Integer): Boolean;
 begin
  getmousepos( x, y);
   If(x1 < x)and(y1 < y) then
    begin
     If(x2 > x)and(y2 > y) then
     result := True;
    end;
 end;
 
Procedure Reset;
Begin
MoveMouse(30, 19);
end;
 
Procedure MainMaze;
begin
 Reset;
 Repeat
  if(CheckMousePos( 1, 40, 76, 85))or(CheckMousePos( 102, 2, 144, 176))or(CheckMousePos( 102, 2, 247, 64))or(CheckMousePos( 180, 106, 205, 172))or(CheckMousePos( 204, 130, 249, 159))or(CheckMousePos( 250, 1, 309, 162))or(CheckMousePos( 38, 115, 72, 309))or(CheckMousePos( 71, 211, 196, 257))or(CheckMousePos( 238, 211, 281, 253))or(CheckMousePos( 0, 353, 73, 511))or(CheckMousePos( 119, 295, 271, 351))or(CheckMousePos( 119, 295, 201, 583))or(CheckMousePos( 195, 410, 418, 483))or(CheckMousePos( 320, 215, 382, 418))or(CheckMousePos( 359, 0, 394, 162))or(CheckMousePos( 390, 61, 427, 104))or(CheckMousePos( 468, 0, H, W))or(CheckMousePos( 0, 549, 70, 580))or(CheckMousePos( 37, 622, 109, 736))or(CheckMousePos( 247, 528, 314, 658))or(CheckMousePos( 154, 654, 411, 716))or(CheckMousePos( 315, 554, 413, 610))or(CheckMousePos( 425, 194, 468, 339))then
   begin
    Writeln('Hit wall starting over.')
    Reset;
    sleep(200);
   end;
  if not(CheckMousePos( 0, 0, W, H))then
   Begin
   Writeln('Not inside gameframe!!!!!!!!!!');
   sleep(1200);
   End;
 Until(CheckMousePos( 327, 613, 406, 649))or(isfkeydown(2))
 writeln('You Won!')
end;
 
begin
 LoadBit;
 DisplayDebugImgWindow(W, H);
 CopyCanvas(GetBitmapCanvas(MouseMaze), GetDebugCanvas, 0, 0 , W - 1, H - 1, 0, 0, W - 1, H - 1);
 MainMaze;
 FreeBitmap(MouseMaze);
end.

//////////////////////////////////////////////////// Second scirpt//////////////////////////////////

//Fantasy_Online_healer
program FoHealer;
var
Health, Exhausted, LoggedOut: Integer;
x,y: Integer;

procedure LoadBmps;
begin
     Health := BitmapFromString(83, 2, 'beNpjYPjPMIpGEgIAjS+lWw==');
     Exhausted := BitmapFromString(48, 3, 'beNr7/x8CXHAATFlkEVrI' +
       'Dk734HcbLln8JhAji24aAF2HA3I=');
     LoggedOut := BitmapFromString(21, 2, 'beNr7/x8OGOSikRGaOLIC' +
       'CBuXLC7FmLL/AVx/PBs=');
end;

procedure Free;
begin
  FreeBitmap(Health);
  FreeBitmap(Exhausted);
  FreeBitmap(LoggedOut);
end;

procedure MaintainHealth;
begin
if not(FindBitmap(Health,x,y)) then
 begin
    SendKeys('2');//If needed change this to your healing button
 end;
end;

procedure antiExhausted;
begin
if(FindBitmap(Exhausted,x,y)) then
 begin
    clickmouse(612, 98,true);
 end;
end;

begin
 LoadBmps;
  repeat
   MaintainHealth;
   sleep(200);
   antiExhausted;
  until(isfkeydown(2))or (FindBitmap(LoggedOut,x,y))
 Free;
end.

This is your only post, yet you join the community in July 2007. So you have not shown that you are willing to be a valued member of this community. You show basic understanding of how to script using SRL and SIMBA/SCAR. Stick around the forum a read some tutorials. If you Have some trouble ask for some help.

No
~BraK

You need a SRL script. Whilst you show skill, you need skill at SRL scripting, read some tutorials, and write one.

It's nice that you can code in this language, but if you were let into the community… based on your post count you wouldn't be active, and based on the code you've shown, no RS based codes would be made.

Some tips for the code you showed us:

procedure LoadBit;
begin
 MouseMaze := LoadBitmap(AppPath + 'scripts\MouseMaze.bmp');
end;

Since this is one line of code there is no point in making a procedure out of it (unless you turn it into a function, but even then with a bitmap line you can't do THAT much unless you're a wizard)
Instead, elsewhere in your script you could write it like this

MouseMaze := LoadBitmap(AppPath + 'scripts\MouseMaze.bmp'); //LoadBit

You should also learn to use SetupSRL; at the beginning of your mainloop and learning Mouse (x,y,rx,ry, click boolean) and MMouse (x,y, rx, ry), since clickmouse is detectable probably anywhere you use it.


The only time I'd ever vote yes for a 'very first post' without even being an SRL Jr Member is if the script you posted was otherworldly, and even then this place is about being a community… which would tilt me still towards voting 'no' regardless of scripting ability, unless you solved all the randoms outright or something ;)
Therefore my vote is clearly a no, but you have the basics. Please stick around and read all the tutorials. That's how I learned all my stuff.

Sorry, no.

You need to use the SRL include to make an application script, it also needs to be rs based. This is your only post in 3 years. Please get more familiar with the community and learn the SRL include. If you need help don't hesitate to ask :) good luck,

~Bionicle