SRL Archive - OSR Beginner Scripting Tutorials

procedure Mouse;
begin
  if(FindColor(x,y,12345,123,123,123,123))then
    ClickMouse(x,y,true);
end;

program WhatEver;
{.include SRL/SRL.scar}
procedure Whatever2;
begin
//code here..
end;
begin //main loop.
Whatever2;
end.

program WhatEver;
{.include SRL/SRL.scar}
procedure Whatever2;
begin
//code here..
end;
begin //main loop.
SetupSRL; //heres why it works now :D
Whatever2;
end.

program Whatever;

var TheBitmap, x,y: Integer;

procedure LoadBitmaps;
begin

  TheBitmap := BitmapFromString//And then the rest of your bitmap of course...

end;

procedure ClickTheBitmap;
begin
  if(FindBitmap(TheBitmap,x,y))then
  begin
    wait(100+random(100));
    Mouse(x,y,0,0,true);
  end;
end;

begin
  ClickTheBitmap;
end.

program Whatever;

var TheBitmap, x,y: Integer;

procedure LoadBitmaps;
begin

  TheBitmap := BitmapFromString//And then the rest of your bitmap of course...

end;

procedure ClickTheBitmap;
begin
  if(FindBitmap(TheBitmap,x,y))then
  begin
    wait(100+random(100));
    Mouse(x,y,0,0,true);
  end;
end;

begin
  LoadBitmaps; //This is what fixed the error!
  ClickTheBitmap;
end.

LoadsNum=LoadsNum+1;

LoadsNum:=LoadsNum+1;

procedure Whatever;
begin
  if(FindColor(x,y,1321235,MMX1,MMY1,MMX2,MMY2)then
    ClickMouse(x,y,true);
end;

if(FindColor(x,y,1234123,MMX1,MMY1,MMX2 MMY2))then
  ClickMouse(x,y,true);

procedure Whatever;
begin
  if(FindColor(x,y,1235123,MMX1,MMY1,MMX2,MMY2))
  ClickMouse(x,y,true);
  if(InChat('JAD is awesome!'))
    Writeln('JAD is awesome was in the chat!');
end;

procedure Whatever;
begin
  Writeln('JAD is sooo awesome!);
  if(InChat('hi there))then
    Writeln('JAD is sooooooo awesome!);
end;

procedure Whatever;
var J: Integer;
begin
  J := 5;
  Writeln(J);
end;

From: meanage
nice tut, i amagine this will be very helpful, i hate annoying errors. also, you could add something about not having enough ends at the end of procuedures

Line 937: [Error] (20638:47): Invalid number of parameters in script 

if(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then

GetChatMsg

function IsChatMessage(s: String): Boolean; 
function GetNewChatMsg: String; 
function GetLastChatText(var  chat: String): Boolean; 
function ClickNpcChatText(txt: String): Boolean; 
function FindNpcChatText(txt: String): Boolean;

Line 84: [Error] (17745:1): Type mismatch in script C:\Program Files\SCAR 2.03\Scripts\******.scar

writeln('buried a full inv of bones')

From: Deni_mulic
OMFG I LOVE U
It took me 2 hours, but thanks to this lesson, I've fixed my powerminer script with full anti randoms and multi user capability :)
*hug*

From: vinzone
I really need help with this
Line 871: [Error] (6737:12): Unknown identifier 'FindColorCircleD' in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Color.scar

From: Mjordan
You didn't download SRL correctly. You need to put your plugins in the plugin folder. If you don't know what that means, just redownload SRL ;)

From: wogboy12
thx alot nice work

From: skibby
Nice work

From: Fearlesssss
I have another error maybe you know what it is: Line 1: [Error] (1:1): Variable Expected in script D:\Documents and Settings…FallyAutoer.scar
Its so weird cuz I have set all my variables and stuff and I have 5 includes. If i remove 1 of them the error is gone but then it can't declare something else:confused:

From: Illusionz
nice job:D

From: smoking brian1
thx i been tryin for weeks how to use it now i can thx 2 u :D :D

From: carlitox
how can i solve bank problems, (ie oak anhiliator that never banks oaks, or secetcutter that never finds bank booth??))

Line 45: [Error] (18086:27): Invalid number of parameters in script C:\WINDOWS\Desktop\SCAR\Scripts\Scripts\Willow Cutter.scar

if(IsUpTextMulti('Willow'))then

From: Tazzie 02
I like this tut JAD. I come to it every time I encounter an error. I have an error…


on line 45 it says…



Please help me!
Tazzie

From: rudeboialex
JAD u helped us all lol

Line 72: [Error] (18113:1): Invalid number of parameters in script C:\WINDOWS\…

Writeln('+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+')

From: Tazzie 02
Ummm… I kind of got another error with a progress report. Error is

And line 72 is


Thanks.

Tazzie

From: drnewheart
Thanks I fixed soooooo many scripts now ZOMG i can't express my gratitude. LOL i sound corny.

From: Maxine
i was so lost and fighting with Error 5, until yuor tut. thanks youve saved my day twice:D (first with that shop inventory full thingy)

From: stay bombin
thank you very much sir

comma (',') expected in script

'THEN' expected in script

String error in script

Writeln('I am happy)

Syntax error in script

From: x13om13e12x
you could have errors

which means you didnt count the Parentases


which means yoru missing a comma


which means that you didnt type 'then' after an if statement…or you put a
semicolon ";" in the sentence before you typed then.


which means that you left a ' out when using them ex.



Which I think means that you didnt use the command or function right.

From: JAD
No problem. I love it when people call me sir when I'm only 13 lol.

Procedure BankingHides;  //this is the line that the identifier error is.
begin
  CowHideDTM := DTMFromString('78DA6314626060E06740013BD7AD63F80FA41' +
       '981F83F10304A0119AC0C6880118904D2D240428A801A903D3204' +
       'D4B0030971026AD880040F7E35009E8D07F2');
  wait(100 + random(135))
  for A:= 3 to 8 do
  begin
    FindBitmapToleranceIn(BankBMP(x,y,MMX1,MMY1,MMX2,MMY2,A);
    If(FindBitmapToleranceIn(BankBMP(x,y,MMX1,MMY1,MMX2,MMY2,A))) then
    begin
      break;
    end;
  end;
  MMouse(x,y-17,0,0);
  Mouse(x,y-17,0,0,true);
  flag;
  wait(387 + random(154));
  repeat
    FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
    if(not(FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3)))then
    begin
      Tries:=0;
      repeat
        Wait(400 + random(50));
        Tries := Tries + 1;
        If Tries=20 then
        Begin
          Writeln('Cant find Bank...next player');
          NextPlayer(false);
        end;
      until FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
    end;
  until FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
  MMouse(x,y,2,2,true);
  if(not(IsUpText('ank booth')))
  begin
    repeat
      FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
      if(not(FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3))) then
      begin
        Tries:=0;
        repeat
          Wait(400 + random(50));
          Tries := Tries + 1;
          If Tries=20 then
          Begin
            Writeln('Cant find Bank');
            NextPlayer(false);
          end;
        until FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
      end;
    until IsUpText('ank booth',true)
  end;
  MMouse(x,y,2,2);
  Mouse(x,y,2,2,false);
  ChooseOption(x,y,'Use-quickly');
  if (FindDTM(CowHideDTM,x,y,558,308,740,463));
  begin
    Mouse(x,y,2,2,false);
    ChooseOption(x,y,'All');
  end;
  CloseBank;
  Loads2:= Loads2 + 1
end;
 

From: x13om13e12x
Jad I just finished my new cow hide script. But i have an identifier error, and i checked through all the repeats begins untils and ends like 10 times, but nothing is wrong. Here is the procedure.

Procedure BankingHides;  //this is the line that the identifier error is.
begin
  CowHideDTM := DTMFromString('78DA6314626060E06740013BD7AD63F80FA41' +
       '981F83F10304A0119AC0C6880118904D2D240428A801A903D3204' +
       'D4B0030971026AD880040F7E35009E8D07F2');
  wait(100 + random(135))
  for A:= 3 to 8 do
  begin
    FindBitmapToleranceIn(BankBMP(x,y,MMX1,MMY1,MMX2,MMY2,A);
    If(FindBitmapToleranceIn(BankBMP(x,y,MMX1,MMY1,MMX2,MMY2,A))) then
    begin
      break;
    end;
  end;
  MMouse(x,y-17,0,0);
  Mouse(x,y-17,0,0,true);
  flag;
  wait(387 + random(154));
  repeat
    FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
    if(not(FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3)))then
    begin
      Tries:=0;
      repeat
        Wait(400 + random(50));
        Tries := Tries + 1;
        If Tries=20 then
        Begin
          Writeln('Cant find Bank...next player');
          NextPlayer(false);
        end;
      until FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
    end;
  until FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
  MMouse(x,y,2,2,true);
  if(not(IsUpText('ank booth')))
  begin
    repeat
      FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
      if(not(FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3))) then
      begin
        Tries:=0;
        repeat
          Wait(400 + random(50));
          Tries := Tries + 1;
          If Tries=20 then
          Begin
            Writeln('Cant find Bank');
            NextPlayer(false);
          end;
        until FindColorTolerance(x,y,8096403,MSX1,MSY1,MSX2,MSY2,3);
      end;
    until IsUpText('ank booth',true)
  end;
  MMouse(x,y,2,2);
  Mouse(x,y,2,2,false);
  ChooseOption(x,y,'Use-quickly');
  if (FindDTM(CowHideDTM,x,y,558,308,740,463));
  begin
    Mouse(x,y,2,2,false);
    ChooseOption(x,y,'All');
  end;
  CloseBank;
  Loads2:= Loads2 + 1
end;
 

From: x13om13e12x
The previous procedure is very long, and i don't feel like exposing most o fmy script, so im gona send it to you in a message.
Edit: Nvm i read through the procedure and I found alot of errors, i screwed up on some standards and thought i had ended the begin before going on cause i was already at the same spaces from the end. and ty for the help

From: hardcoregek9
i m using the willow chopper and it keeps saying error detecting compas angle how do i solve it at what bank booth do i need to stand?:confused:

 Program New;
 begin
    Writeln( hello World);
end;

From: SKy Scripter
omg! thanks

i was wondering why i was getting a ERROR

 Program New;
 begin
    Writeln( hello World);
end;

didnt know there was spose to be 'hello world' and "end."
thanks Jad…
lol jk im bored.. nice tut maybe people will stop buging me… gah..
edit : although i dont think that will happen lol…

From: koolkarpet
Thank You so much now my script is working!!!

From: sheetomg
what about mismatch error?

I believe I added Type Mismatch error, didn't I?

From: sheetomg
ahh must have missed it, great tut btw

From: Casualties
Any idea what could be causing this problem?
Nice tut by the way.
Thanks.

Procedure Heal;

From: sukomabawls
i get this message and i dont have a clue. " line 58 error indenifier expected in script" but heres line 58…

Procedure Heal;

so wtf is up?

EDIT: Sorry for the double post, i didnt know i posted last :p

program WoodCutterSeller;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/WoodCutting.scar}
var
lumbcheck: Integer;

procedure LumbCheckandtele;
begin
lumbcheck := BitmapFromString2(False, 'aF260E78DAA5945BAE8' +
'5200C45A704C8F35310E73FA46BD9897253CB11C5648794D2 6529' +
'4529A58D5787864394ABF150EFC9E2F6A6AED06A69AB7E25C D6D1' +
'EFD65D9484DB4A73FF67A439EC190251447BA6C648FB460DA AA4F' +
'0B29B8D99D96A0F3E5B3A76B6FD0A45B38FD97DCFEC111FD1 AE9F' +
'8748925E6C435A4A4AAB88ABDC1F97260047D42895BCAD580 85F9' +
'98A8C683B1B2CAB60644E62CE8529D9B620919211A88A0F42 C503' +
'05FE31AD3332263F15C7A624FE97596D5FFBFA4B6F8BD5A49 BFE4' +

if(FindBitmap(lumbcheck; x,y) then //Don't need to put Boolean...

else Exit; //Exit is better than end
begin
LumbCheckandtele
end.

From: lamatime
Line 18: [Error] (14832:1): Syntax error in script C:\Program Files\SCAR 3.11\Scripts\wood cutter and seller.scar

…didn't fix anything

From: lamatime
WOOT fixed it

All hail the mighty JAD

Thank you, you were right about the pus sign thing

your tut helped me on the others

thank you thank you thank you

[Runtime Error] : Exception: Access violation at address 00671FE5 in module 'SCAR.EXE'. Read of address 82E5A028 in line 184 in script C:\PROGRAM FILES\SCAR 3.12\includes\SRL/SRL/Core/Text.scar
If u get that error a tab will open called text

function FBMP(Bitmap,MM,MMS:Integer):Boolean;
var
  x, y: Integer;
begin
  if(FindBitmap(Bitmap, x, y)) then
    begin
      if(MM := True) then
        begin
          if(MMS = True) then
            begin
              MoveMouseSmooth(x,y);
            end else
          MoveMouse(x,y);
        end else
    end;
end;

From: Scathis
im getting the error

Line 49: [Error] (14730:40): Type mismatch in script E:\******\****.scar


line48- repeat
line49- if FindObj(x, y, 'hop', TreeColor, 30) then
line50- begin

i can't see an explination on the tut

Thanks everyone

From: Kakumei
So I got through the tutorial pretty easily, but the way you typed everything out (grammatically) really confused my nooblet brain. Thanks for your help anyways… Sorry I'm such a picky little bugger!

Periods are your best friends in punctuation but not during that time of the month. =]

From: littlelegs
Include file C:\Program Files\SCAR 3.12\includes\OSi.txt does not exist.
Include file C:\Program Files\SCAR 3.12\includes\BoxBreaker.txt does not exist.

Can someone help….

I dont get it hwen you said the errors… isnt this different where can i get box breaker

Thanks

From: littlelegs
Include file C:\Program Files\SCAR 3.12\includes\OSi.txt does not exist.
Include file C:\Program Files\SCAR 3.12\includes\BoxBreaker.txt does not exist.

Can someone help….

I dont get it hwen you said the errors… isnt this different where can i get box breaker

Thanks

From: Pu3rto0wn
always get this error Line 48: [Error] (13122:8): Unknown identifier 'FindMime' in script

please help

FindNormalRandoms

Writeln('Hi, I am 'IntToStr(age)' years old');

Writeln('Hi, I am '+IntToStr(age)+' years old');

ok but what about the scripts i want tuse but have that in it

Error 10: Out of range error.



Solution:
This is most commonly caused by not setting your players right in the player arrays. When you set the number of players, you are setting the number of slots that there are players for, ACTIVE OR NOT! so if you have 2 users active, but there are 6 slots, then you still have the how many players as 6.

      procedure locatebanksign;
       var
        x, y :integer;
        acc :string;
        angle :string;
       begin
         Writeln('Finding Bank Symbol');
         FindDeformedBitmapToleranceRotationIn(BankSymbol, x, y, 536, 12, 711, 158, 30, 2, acc, PI/10, 0, 2 * PI, angle)true; // line 26
         Result : acc;
         end;

procedure open bank;
     Var
     Points :integer;
     x, y :integer;
     a, b :integer;
       begin;
         MakeCompass('n');
         FindColorsSpiralTolerance(x, y, Points, 4679037, 5, 5, 514, 336, 70)true;  //Line 75
         FindBitmapToleranceIn(BankBooth, a, b, 536, 12, 711, 158, 25);
         ClickMouseSpline(X, Y, 4, 4, True);
         Wait(1000+Random(500));
         ClickMouseSpline(a, b, 4, 4, true);
         end;

Line 79: [Error] (12741:20): colon (':') expected in script D:\Program Files\SCAR 3.15\Scripts\mysecond script.scar

      1: Mouse(x, y, 4, 4, False);
         ChooseOption('ine');
      2: Mouse(x, y, 4, 4, True);

From: JAD





Error 2: Include file C:\Program Files\SCAR 2.03\includes\SRL/SRL.scar does not exist. (or something like that)



Solution: this is the biggest error of all time. all you need to do for this is read the tutorial for installing SRL in the Install SRL forum. Moving on..

Line 46: [Error] (256:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

Result := CreateTPAFromBMP( GetBitmapDC(TempBMP));

From: basse
i get the same error as madmike..

Failed when compiling
Line 46: [Error] (311:11): Unknown identifier 'CreateTPAFromBMP' in script C:\Program Files\SCAR 3.20\includes\SRL/SRL/Core/Math.scar


what to do??

From: belgin fish
ok JAD This Is Bothering Me

Line 61: [Error] (18102:1): comma (',') expected in script

60-wait(10+random(3))//needed another closing bracket there
61-FindTalk;
62-if(FindFight) then

the numbers are just the lines 60, 61, 62

[Warning] (392:17): "True and" is not needed at line 391
[Warning] (1:1): Calculation always evaluates to True at line 0
[Warning] (1:1): "and True" is not needed at line 0

  If((LootBones and PtoLB) or (JustLootBones)) then 

From: nemaster
You guys are making enjoy learning more about scripts when I came here for 07 scape. I never knew about color bots before searching up 07 scape bots on google and powerbot forum but the more I learn the more I feel educated on scripts and how they work. Thanks for this. Might make my own script.

From: Gucci
Glad to hear you want to learn scripting :)

Exception: Range check error at line 664
The following DTMs were not freed: [SRL - Lamp bitmap, 1]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap, SRL - Flag bitmap, SRL - NavBar Bitmap, SRL - Options Bitmap]