SRL Archive - First Scripts

Catherby Lobster>Fisher and Banker<

caused

2009-06-04 23:28:07

Hey Forum,

Scar is amazing. I accidently stumbled over it, while searchig for software to automatize setup processes… But quickly found its "use" for runescape ;)..

soo… Heres my first script.. It's supposed to catch lobster in Catherby and Bank it.

I mangaged to do 3 loads in 30 minutes with it…

This doesnt use the "SRL" library at all… so.. probably its easily detectable.. i dunno …

Gotta check Out SRL now : D.

Feedback is welcome. I'd recommend to use it not with official runescape servers…

Oh.. and I didnt remove all the debugging commandline messages yet :X.

program script;
    var
    
    //declaring graphics
    lob:integer;
    lob2:integer;
     drop:integer;
     fish:integer;
     flag:integer;
      bank:integer;
      usequick:integer;
      depositall:integer;
      

      
procedure loadimages;
begin

  depositall := BitmapFromString(156, 8, 'beNrtlssRwyAMROkk5b' +
       'gBX9NXusUZM2FkaQWL8OcSjQ+YjyzvQ4J1ybullErjvS73P0Of9gK' +
       'u/ap9WPt5fZ+0W2mfE//P7eQcO39GTynFU0yZ/60zbcBDTAMiP8I0' +
       'Fh4jxdW5GWDaDv7P1JMiC7NLYv1ySKUbUyUysgBTWYTlkKp47VdP/' +
       '4Yr6EEO1VHeCVjbk0WdXDP91bw8hZQbM2NMPaD2nIWwyPT3XEEiQJ' +
       '9jf9ez/CNGlpm2l4ZdBMnYWbUXolHJomQsAg4x7baZ7JPf6nomZZH' +
       '1Lcy0Ahq90lx3njaSxcoFcc8zBfr4JQLuOs8bU3v5PdCRdHD+DXck' +
       'BorcBhcxZa5wtkpj+hukMkES');

  usequick := BitmapFromString(87, 7, 'beNrtVMsVwCAIY7su4LX7j' +
       '2E/B6XERPTcPg68CAhpsBy1VjM7y+M0f9Wmuffhe27BX79oP1f3/5' +
       'NQ3WfW63t8GIz4nRvw0Hyz70UdZ/FIgojXoFBC6N9zgjjOy5jE5kP' +
       '/Gsd5h0xmimjxsHUIPz3ENBI8zhjQ64AiGc7l8aGWsHiSAUaCHpb5' +
       'bBeSfU5jkruDCtl7GLd9/SZkBkz6bKeYQpRdKlkouA==');
       
  lob := BitmapFromString(8, 7, 'beNozFck0E7WW50k1FQGiAiuxage' +
       'JOifJDndpPl5eXw1+oCBQAUQcKAhEsYZCkXpCQEFk8al+ckDBEhtx' +
       'uLi5DDdQnIGBEcgFqml1lcqxEAOKA42FIKBioGC/l8wMfzmgMk81v' +
       'kAtAYjJmIKpAJUbJNQ=');
       
     lob2 := BitmapFromString(8, 7, 'beNozFck0E7WW50k1FQGiAiuxage' +
       'JOifJDndpPl5eXw1+oCBQAUQcKAhEsYZCkXpCQEFk8al+ckDBEhtx' +
       'uLi5DDdQnIGBEcgFqml1lcqxEAOKA42FIKBioGC/l8wMfzmgMk81v' +
       'kAtAYjJmIKpAJUbJNQ=');
       
   drop := BitmapFromString(29, 7, 'beNpjYPgPBgwMDLEh7hA2kEE5w' +
       'jQWwqaRsf+RAJpiTE9hihM0lgEMkGWBAKsJyOL4jYWbSYxKZDYxig' +
       'eLsQBOR0Zl');
       
    fish := BitmapFromString(9, 5, 'beNrL/3uABkD50H8g4s9HMRzIhQ' +
       'jCEUIKAEF8Xso=');


  flag := BitmapFromString(5, 4, 'beNrT0/ujwAxBt5mY9PSwcIEMIN' +
       'oP5kLYtYyMQLYeADz1EQg=');
       
    bank := BitmapFromString(5, 5, 'beNoLYmFgYERGBw4c2DbHFoLg7K' +
       '/f5sMFgWxklBDEAiETAFhgJOY=');
end;


  function findfish():boolean;
  var
  x,y:integer;
  begin
     wait(44);
  if(FindBitmapToleranceIn(fish,x,y,0,0,830,860,30)) then
  begin
  Writeln('Found Fish Symbol');
   ClickMouse(x,y,True);
    result:= True;
  end;

  end;

  function findbank():boolean;
  var
  x,y:integer;
  begin
     wait(44);
  if(FindColorTolerance(x,y,12105921,538,11,729,163,10)) then
  begin
  Writeln('Found Bank Symbol');
  MoveMouseSmooth(x,y);
  result:=True;

  end;

  end;


procedure Fishing;
var
x,y:integer;

water:boolean;

begin




water := False;

while(water = False) do
begin
                     wait(44);
if(FindColorTolerance(x,y,12301745,0,0,800,800,1)) then
begin
writeln('fishing spot found');
MoveMouseSmooth(x,y);
ClickMouse(x,y,True);
water := True;
wait(15000);
end else
writeln('no fishing spot found');


end;

  end;

  procedure dropping;
  var
  x,y:integer;

  begin
      while(FindBitmapToleranceIn(lob,x,y,0,0,800,800,20))do
      begin
     if(FindBitmapToleranceIn(lob,x,y,0,0,800,800,20))then
     begin
     ClickMouse(x,y,False);
     wait(800);
     if(FindBitmapToleranceIn(drop,x,y,0,0,800,800,20))then
     ClickMouse(x,y,True);
     wait(1000);
     end;
      end;
  end;



function invcheck():integer;
var
x,y:integer;
x1,y1:integer;
x2,y2:integer;
mwillow:integer;
begin
x1:=538;
y1:=202;
x2:=800;
y2:=800;

mwillow :=0;

while(FindBitmapToleranceIn(lob2,x,y,x1,y1,x2,y2,5))do
  begin
    x1 := 538;

    while(x1<=x2)do
      begin

      if(FindBitmapToleranceIn(lob2,x,y,x1,y1,x2,y2,5))then
        begin
          // Found Bitmap
           x1 := x+1;
           mwillow := mwillow + 1;

           writeln('There are'+inttostr(mwillow)+'lobsters found');
           writeln('x1='+inttostr(x1));
           MoveMouseSmooth(x,y);
           wait(50);

       end else
   //WriteLn('Bitmap not found.');
        x1 :=900;
        y1 := y1+1;
      end;
      x1 := 0;
  y1 := y+1;

  end;
  if(mwillow >= 10)then
  begin
  
 // walktobank;
  //dropping;
  end;
  Result := mwillow;

  end;

  function walktobank():boolean;
  var
  x,y:integer;
  
  begin
  
  //walk to the bank
  
  repeat
  
  while(findbank()=false)do
  begin
  ClickMouse(566,71,True);
  wait(500);
  end;
 
  //enter bank
  If(findbank()=true)then
  begin
       wait(500);
  FindColorTolerance(x,y,12105921,538,11,729,163,10 );
   ClickMouse(x,y,True);
   Writeln('We are entering the bank');
   wait(500);
   FindColorTolerance(x,y,12105921,538,11,729,163,10);
   ClickMouse(x,y,True);
   wait(500);
   Result := True;
  end;
    until((findbank()=true));
  end;
  
  function walktofish():boolean;
  var
  x,y:integer;

  begin

  //walk to the fishing spot
  while(findfish()=false)do
  begin
  ClickMouse(695,95,True);
  wait(500);
 end;

  //enter fishing spot
  If(findfish()=true)then
  begin

   ClickMouse(x,y,True);
   Writeln('We are at the fishing localtion');

   Result := True;
  end;
  
  end;

  procedure deposit;
  var
  x,y:integer;
  
  begin
  wait(5000);
  
  while(invcheck() > 5)do
  begin
  
  FindColor(x,y,6788040,0,0,800,800);
  ClickMouse(x,y,False);
  wait(1000);
  
   //open bank:
  if(FindBitmapToleranceIn(usequick,x,y,0,0,800,800,20)) then
  begin

  wait(200);
  ClickMouse(x,y,True);
  wait(2200);

  while(invcheck() > 5) do
  begin
  
  FindBitmapToleranceIn(lob,x,y,538,202,800,800,20);
  wait(200);
  ClickMouse(x,y,False);
  wait(2200)
  
  FindBitmapToleranceIn(depositall,x,y,408,202,800,800,20);
  wait(200);
  ClickMouse(x,y,True);
  wait(2200)
    writeln('Done Banking');
  end;
  end;
  
  end;

  end;

procedure banking;

begin
  if(invcheck() >= 27) then
  begin
  walktobank();
  deposit();
  walktofish();
  end;
  
end;


begin
loadimages;
    repeat


         banking();
         Fishing();
   

    until(false)
end.

jakeyboy29

2009-06-04 23:33:11

for one post, nice. maybe try and add declare players?

Pure1993

2009-06-05 00:23:26

Very nice for a frst script and first post! Well done! :D
A few things:


function invcheck():integer;

You don't need the "()" if you have no variables for that function.

Try to get used to standards as quickly as possible (example):


function DoSomething(x, y: integer): boolean;
var
  a, b: integer;
  s: string;
begin
  MMouse( x, y);
  {...}
  if (x = a) then
  begin
    ClicKmouse( x, y);
    {...}
    repeat
      wait(200);
    until FindColor( {...} );
  end;
end;

That pretty much sums it up, feel free to contact me if you need help with anything at all. I may not be the best scripter around, but I think I will be able to help you out. ;)

ian.

2009-06-05 20:23:26

:D Can't wait to see what you do with SRL ^^ I wouldn't use this much if I were you though, Jagex can easily catch it. But it's quite amazing for 1 post :] Did you get help from anyone or just read tutorials/trial and error? Keep it up! :)

Shuttleu

2009-06-05 21:02:19

half fixed standards

program script;

var
  //declaring graphics
  lob:integer;
  lob2:integer;
  drop:integer;
  fish:integer;
  flag:integer;
  bank:integer;
  usequick:integer;
  depositall:integer;
          
procedure loadimages;
begin
  depositall := BitmapFromString(156, 8, 'beNrtlssRwyAMROkk5b' +
       'gBX9NXusUZM2FkaQWL8OcSjQ+YjyzvQ4J1ybullErjvS73P0Of9gK' +
       'u/ap9WPt5fZ+0W2mfE//P7eQcO39GTynFU0yZ/60zbcBDTAMiP8I0' +
       'Fh4jxdW5GWDaDv7P1JMiC7NLYv1ySKUbUyUysgBTWYTlkKp47VdP/' +
       '4Yr6EEO1VHeCVjbk0WdXDP91bw8hZQbM2NMPaD2nIWwyPT3XEEiQJ' +
       '9jf9ez/CNGlpm2l4ZdBMnYWbUXolHJomQsAg4x7baZ7JPf6nomZZH' +
       '1Lcy0Ahq90lx3njaSxcoFcc8zBfr4JQLuOs8bU3v5PdCRdHD+DXck' +
       'BorcBhcxZa5wtkpj+hukMkES');
  usequick := BitmapFromString(87, 7, 'beNrtVMsVwCAIY7su4LX7j' +
       '2E/B6XERPTcPg68CAhpsBy1VjM7y+M0f9Wmuffhe27BX79oP1f3/5' +
       'NQ3WfW63t8GIz4nRvw0Hyz70UdZ/FIgojXoFBC6N9zgjjOy5jE5kP' +
       '/Gsd5h0xmimjxsHUIPz3ENBI8zhjQ64AiGc7l8aGWsHiSAUaCHpb5' +
       'bBeSfU5jkruDCtl7GLd9/SZkBkz6bKeYQpRdKlkouA==');
  lob := BitmapFromString(8, 7, 'beNozFck0E7WW50k1FQGiAiuxage' +
       'JOifJDndpPl5eXw1+oCBQAUQcKAhEsYZCkXpCQEFk8al+ckDBEhtx' +
       'uLi5DDdQnIGBEcgFqml1lcqxEAOKA42FIKBioGC/l8wMfzmgMk81v' +
       'kAtAYjJmIKpAJUbJNQ=');
  lob2 := BitmapFromString(8, 7, 'beNozFck0E7WW50k1FQGiAiuxage' +
       'JOifJDndpPl5eXw1+oCBQAUQcKAhEsYZCkXpCQEFk8al+ckDBEhtx' +
       'uLi5DDdQnIGBEcgFqml1lcqxEAOKA42FIKBioGC/l8wMfzmgMk81v' +
       'kAtAYjJmIKpAJUbJNQ=');
  drop := BitmapFromString(29, 7, 'beNpjYPgPBgwMDLEh7hA2kEE5w' +
       'jQWwqaRsf+RAJpiTE9hihM0lgEMkGWBAKsJyOL4jYWbSYxKZDYxig' +
       'eLsQBOR0Zl');
  fish := BitmapFromString(9, 5, 'beNrL/3uABkD50H8g4s9HMRzIhQ' +
       'jCEUIKAEF8Xso=');
  flag := BitmapFromString(5, 4, 'beNrT0/ujwAxBt5mY9PSwcIEMIN' +
       'oP5kLYtYyMQLYeADz1EQg=');     
  bank := BitmapFromString(5, 5, 'beNoLYmFgYERGBw4c2DbHFoLg7K' +
       '/f5sMFgWxklBDEAiETAFhgJOY=');
end;

function findfish():boolean;
var
  x,y:integer;
begin
  wait(44);
  if(FindBitmapToleranceIn(fish,x,y,0,0,830,860,30)) then
  begin
    Writeln('Found Fish Symbol');
    ClickMouse(x,y,True);
    result:= True;
  end;
end;

function findbank():boolean;
var
  x,y:integer;
begin
  wait(44);
  if(FindColorTolerance(x,y,12105921,538,11,729,163,10)) then
  begin
    Writeln('Found Bank Symbol');
    MoveMouseSmooth(x,y);
    result:=True;
  end;
end;

procedure Fishing;
var
  x,y:integer;
  water:boolean;
begin
  water := False;
  while(water = False) do
  begin
    wait(44);
    if(FindColorTolerance(x,y,12301745,0,0,800,800,1)) then
    begin
      writeln('fishing spot found');
      MoveMouseSmooth(x,y);
      ClickMouse(x,y,True);
      water := True;
      wait(15000);
    end else writeln('no fishing spot found');
  end;
end;

procedure dropping;
var
  x,y:integer;
begin
  while(FindBitmapToleranceIn(lob,x,y,0,0,800,800,20))do
  begin
    if(FindBitmapToleranceIn(lob,x,y,0,0,800,800,20))then
    begin
      ClickMouse(x,y,False);
      wait(800);
      if(FindBitmapToleranceIn(drop,x,y,0,0,800,800,20))then
        ClickMouse(x,y,True);
      wait(1000);
    end;
  end;
end;

function invcheck():integer;
var
  x,y:integer;
  x1,y1:integer;
  x2,y2:integer;
  mwillow:integer;
begin
  x1:=538;
  y1:=202;
  x2:=800;
  y2:=800;
  mwillow :=0;
  while(FindBitmapToleranceIn(lob2,x,y,x1,y1,x2,y2,5))do
  begin
    x1 := 538;
    while(x1<=x2)do
      begin
      if(FindBitmapToleranceIn(lob2,x,y,x1,y1,x2,y2,5))then
      begin
        // Found Bitmap
        x1 := x+1;
        mwillow := mwillow + 1;
        writeln('There are'+inttostr(mwillow)+'lobsters found');
        writeln('x1='+inttostr(x1));
        MoveMouseSmooth(x,y);
        wait(50);
      end else
      //WriteLn('Bitmap not found.');
      x1 :=900;
      y1 := y1+1;
    end;
    x1 := 0;
    y1 := y+1;
  end;
  if(mwillow >= 10)then
  begin
    // walktobank;
    //dropping;
  end;
  Result := mwillow;
end;

function walktobank():boolean;
var
  x,y:integer;
begin
  //walk to the bank
  repeat
    while(findbank()=false)do
    begin
      ClickMouse(566,71,True);
      wait(500);
    end;
    //enter bank
    If(findbank()=true)then
    begin
      wait(500);
      FindColorTolerance(x,y,12105921,538,11,729,163,10 );
      ClickMouse(x,y,True);
      Writeln('We are entering the bank');
      wait(500);
      FindColorTolerance(x,y,12105921,538,11,729,163,10);
      ClickMouse(x,y,True);
      wait(500);
      Result := True;
    end;
  until((findbank()=true));
end;
  
function walktofish():boolean;
var
  x,y:integer;
begin
  //walk to the fishing spot
  while(findfish()=false)do
  begin
    ClickMouse(695,95,True);
    wait(500);
  end;
  //enter fishing spot
  If(findfish()=true)then
  begin
    ClickMouse(x,y,True);
    Writeln('We are at the fishing localtion');
    Result := True;
  end;
end;

procedure deposit;
var
  x,y:integer;
begin
  wait(5000);
  while(invcheck() > 5)do
  begin
    FindColor(x,y,6788040,0,0,800,800);
    ClickMouse(x,y,False);
    wait(1000);
    //open bank:
    if(FindBitmapToleranceIn(usequick,x,y,0,0,800,800,20)) then
    begin
      wait(200);
      ClickMouse(x,y,True);
      wait(2200);
      while(invcheck() > 5) do
      begin
        FindBitmapToleranceIn(lob,x,y,538,202,800,800,20);
        wait(200);
        ClickMouse(x,y,False);
        wait(2200)
        FindBitmapToleranceIn(depositall,x,y,408,202,800,800,20);
        wait(200);
        ClickMouse(x,y,True);
        wait(2200)
        writeln('Done Banking');
      end;
    end;
  end;
end;

procedure banking;
begin
  if(invcheck() >= 27) then
  begin
    walktobank();
    deposit();
    walktofish();
  end;
end;

begin
  loadimages;
  repeat
    banking();
    Fishing();
  until(false)
end.

parents are shouting at me so i cant fix the rest of them right now

~shut

caused

2009-06-06 00:23:38

thanks everyone, yeah i need to cleanup more i guess xD…

SRL is pretty sweet…. I love it already =)… Been working on a script based on srl today.. It cooks on a fire and works pretty well :)..

gotta post it in a moment…

Edit: Ok posted it in the Free for all Scripts Section (:.. Hope someone activates my thread soon o-o

Dark Arcana

2009-06-06 14:04:09

Fixed your standards:


program Script;

var
  Lob, Lob2, Drop, Fish, Flag, Bank, UseQuick, DepositAll: integer;

procedure LoadImages;
begin
  DepositAll := BitmapFromString(156, 8, 'beNrtlssRwyAMROkk5b' +
    'gBX9NXusUZM2FkaQWL8OcSjQ+YjyzvQ4J1ybullErjvS73P0Of9gK' +
    'u/ap9WPt5fZ+0W2mfE//P7eQcO39GTynFU0yZ/60zbcBDTAMiP8I0' +
    'Fh4jxdW5GWDaDv7P1JMiC7NLYv1ySKUbUyUysgBTWYTlkKp47VdP/' +
    '4Yr6EEO1VHeCVjbk0WdXDP91bw8hZQbM2NMPaD2nIWwyPT3XEEiQJ' +
    '9jf9ez/CNGlpm2l4ZdBMnYWbUXolHJomQsAg4x7baZ7JPf6nomZZH' +
    '1Lcy0Ahq90lx3njaSxcoFcc8zBfr4JQLuOs8bU3v5PdCRdHD+DXck' +
    'BorcBhcxZa5wtkpj+hukMkES');

  UseQuick := BitmapFromString(87, 7, 'beNrtVMsVwCAIY7su4LX7j' +
    '2E/B6XERPTcPg68CAhpsBy1VjM7y+M0f9Wmuffhe27BX79oP1f3/5' +
    'NQ3WfW63t8GIz4nRvw0Hyz70UdZ/FIgojXoFBC6N9zgjjOy5jE5kP' +
    '/Gsd5h0xmimjxsHUIPz3ENBI8zhjQ64AiGc7l8aGWsHiSAUaCHpb5' +
    'bBeSfU5jkruDCtl7GLd9/SZkBkz6bKeYQpRdKlkouA==');

  Lob := BitmapFromString(8, 7, 'beNozFck0E7WW50k1FQGiAiuxage' +
    'JOifJDndpPl5eXw1+oCBQAUQcKAhEsYZCkXpCQEFk8al+ckDBEhtx' +
    'uLi5DDdQnIGBEcgFqml1lcqxEAOKA42FIKBioGC/l8wMfzmgMk81v' +
    'kAtAYjJmIKpAJUbJNQ=');

  Lob2 := BitmapFromString(8, 7, 'beNozFck0E7WW50k1FQGiAiuxage' +
    'JOifJDndpPl5eXw1+oCBQAUQcKAhEsYZCkXpCQEFk8al+ckDBEhtx' +
    'uLi5DDdQnIGBEcgFqml1lcqxEAOKA42FIKBioGC/l8wMfzmgMk81v' +
    'kAtAYjJmIKpAJUbJNQ=');

  Drop := BitmapFromString(29, 7, 'beNpjYPgPBgwMDLEh7hA2kEE5w' +
    'jQWwqaRsf+RAJpiTE9hihM0lgEMkGWBAKsJyOL4jYWbSYxKZDYxig' +
    'eLsQBOR0Zl');

  Fish := BitmapFromString(9, 5, 'beNrL/3uABkD50H8g4s9HMRzIhQ' +
    'jCEUIKAEF8Xso=');


  Flag := BitmapFromString(5, 4, 'beNrT0/ujwAxBt5mY9PSwcIEMIN' +
    'oP5kLYtYyMQLYeADz1EQg=');

  Bank := BitmapFromString(5, 5, 'beNoLYmFgYERGBw4c2DbHFoLg7K' +
    '/f5sMFgWxklBDEAiETAFhgJOY=');
end;

function FindFish(): Boolean;
var
  x, y: Integer;
begin
  Wait(44);
  if (FindBitmapToleranceIn(Fish, x, y, 0, 0, 830, 860, 30)) then
  begin
    Writeln('Found Fish Symbol');
    ClickMouse(x, y, True);
    Result := True;
  end;
end;

function FindBank(): Boolean;
var
  x, y: Integer;
begin
  Wait(44);
  if (FindColorTolerance(x, y, 12105921, 538, 11, 729, 163, 10)) then
  begin
    Writeln('Found Bank Symbol');
    MoveMouseSmooth(x, y);
    Result := True;
  end;
end;

procedure Fishing;
var
  x, y: Integer;
  Water: boolean;
begin
  Water := False;
  while (Water = False) do
  begin
    Wait(44);
    if (FindColorTolerance(x, y, 12301745, 0, 0, 800, 800, 1)) then
    begin
      WriteLn('fishing spot found');
      MoveMouseSmooth(x, y);
      ClickMouse(x, y, True);
      Water := True;
      Wait(15000);
    end else
      Writeln('no fishing spot found');
  end;
end;

procedure Dropping;
var
  x, y: Integer;
begin
  while (FindBitmapToleranceIn(Lob, x, y, 0, 0, 800, 800, 20)) do
  begin
    if (FindBitmapToleranceIn(Lob, x, y, 0, 0, 800, 800, 20)) then
    begin
      ClickMouse(x, y, False);
      wait(800);
      if (FindBitmapToleranceIn(drop, x, y, 0, 0, 800, 800, 20)) then
        ClickMouse(x, y, True);
      Wait(1000);
    end;
  end;
end;

function InvCheck(): integer;
var
  x, y, x1, y1, x2, y2, MWillow: integer;
begin
  x1 := 538;
  y1 := 202;
  x2 := 800;
  y2 := 800;
  MWillow := 0;
  while (FindBitmapToleranceIn(Lob2, x, y, x1, y1, x2, y2, 5)) do
  begin
    x1 := 538;
    while (x1 <= x2) do
    begin
      if (FindBitmapToleranceIn(Lob2, x, y, x1, y1, x2, y2, 5)) then
      begin
      //Found Bitmap
        x1 := x + 1;
        MWillow := MWillow + 1;
        WriteLn('There are' + IntToStr(MWillow) + 'lobsters found');
        WriteLn('x1=' + IntToStr(x1));
        MoveMouseSmooth(x, y);
        Wait(50);
      end else
      //WriteLn('Bitmap not found.');
        x1 := 900;
        y1 := y1 + 1;
    end;
    x1 := 0;
    y1 := y + 1;
  end;
  if (MWillow >= 10) then
  begin
  //WalkToBank;
  //Dropping;
  end;
  Result := MWillow;
end;

function WalkToBank(): Boolean;
var
  x, y: Integer;
begin
  //Walk to the bank
  repeat
    while (FindBank() = False) do
    begin
      ClickMouse(566, 71, True);
      Wait(500);
    end;
    //Enter Bank
    if (FindBank() = True) then
    begin
      Wait(500);
      FindColorTolerance(x, y, 12105921, 538, 11, 729, 163, 10);
      ClickMouse(x, y, True);
      Writeln('We are entering the bank');
      Wait(500);
      FindColorTolerance(x, y, 12105921, 538, 11, 729, 163, 10);
      ClickMouse(x, y, True);
      wait(500);
      Result := True;
    end;
  until (Findbank());
end;

function WalkToFish(): Boolean;
var
  x, y: integer;
begin
  //Walk to the fishing spot
  while (FindFish() = False) do
  begin
    ClickMouse(695, 95, True);
    Wait(500);
  end;
  //Enter fishing spot
  if (FindFish() = True) then
  begin
    ClickMouse(x, y, True);
    Writeln('We are at the fishing localtion');
    Result := True;
  end;
end;

procedure Deposit;
var
  x, y: integer;
begin
  Wait(5000);
  while (InvCheck() > 5) do
  begin
    FindColor(x, y, 6788040, 0, 0, 800, 800);
    ClickMouse(x, y, False);
    Wait(1000);
    //Open bank:
    if (FindBitmapToleranceIn(UseQuick, x, y, 0, 0, 800, 800, 20)) then
    begin
      Wait(200);
      ClickMouse(x, y, True);
      Wait(2200);
      while (InvCheck() > 5) do
      begin
        FindBitmapToleranceIn(Lob, x, y, 538, 202, 800, 800, 20);
        Wait(200);
        ClickMouse(x, y, False);
        Wait(2200)
        FindBitmapToleranceIn(DeposItAll, x, y, 408, 202, 800, 800, 20);
        Wait(200);
        ClickMouse(x, y, True);
        Wait(2200)
        Writeln('Done Banking');
      end;
    end;
  end;
end;

procedure Banking;
begin
  if (InvCheck() >= 27) then
  begin
    WalkToBank();
    Deposit();
    WalkToFish();
  end;
end;

begin
  LoadImages;
  repeat
    Banking();
    Fishing();
  until (False)
end.

Very nice for your first script, I bet you will be a great scripter one day.

Shuttleu

2009-06-06 21:37:35

From: Dark Arcana
Fixed your standards:

Very nice for your first script, I bet you will be a great scripter one day.

you should read the posts before posting
it could save you some time :0
i already fixed them

~shut

EDIT: completely fixed the standards

program Script;

var
  //declaring graphics
  Lob, Lob2, Drop, Fish, Flag, Bank, UseQuick, DepositAll:integer;
         
procedure LoadImages;
begin
  DepositAll := BitmapFromString(156, 8, 'beNrtlssRwyAMROkk5b' +
       'gBX9NXusUZM2FkaQWL8OcSjQ+YjyzvQ4J1ybullErjvS73P0Of9gK' +
       'u/ap9WPt5fZ+0W2mfE//P7eQcO39GTynFU0yZ/60zbcBDTAMiP8I0' +
       'Fh4jxdW5GWDaDv7P1JMiC7NLYv1ySKUbUyUysgBTWYTlkKp47VdP/' +
       '4Yr6EEO1VHeCVjbk0WdXDP91bw8hZQbM2NMPaD2nIWwyPT3XEEiQJ' +
       '9jf9ez/CNGlpm2l4ZdBMnYWbUXolHJomQsAg4x7baZ7JPf6nomZZH' +
       '1Lcy0Ahq90lx3njaSxcoFcc8zBfr4JQLuOs8bU3v5PdCRdHD+DXck' +
       'BorcBhcxZa5wtkpj+hukMkES');
       
  UseQuick := BitmapFromString(87, 7, 'beNrtVMsVwCAIY7su4LX7j' +
       '2E/B6XERPTcPg68CAhpsBy1VjM7y+M0f9Wmuffhe27BX79oP1f3/5' +
       'NQ3WfW63t8GIz4nRvw0Hyz70UdZ/FIgojXoFBC6N9zgjjOy5jE5kP' +
       '/Gsd5h0xmimjxsHUIPz3ENBI8zhjQ64AiGc7l8aGWsHiSAUaCHpb5' +
       'bBeSfU5jkruDCtl7GLd9/SZkBkz6bKeYQpRdKlkouA==');
  
  Lob := BitmapFromString(8, 7, 'beNozFck0E7WW50k1FQGiAiuxage' +
       'JOifJDndpPl5eXw1+oCBQAUQcKAhEsYZCkXpCQEFk8al+ckDBEhtx' +
       'uLi5DDdQnIGBEcgFqml1lcqxEAOKA42FIKBioGC/l8wMfzmgMk81v' +
       'kAtAYjJmIKpAJUbJNQ=');
  
  Lob2 := BitmapFromString(8, 7, 'beNozFck0E7WW50k1FQGiAiuxage' +
       'JOifJDndpPl5eXw1+oCBQAUQcKAhEsYZCkXpCQEFk8al+ckDBEhtx' +
       'uLi5DDdQnIGBEcgFqml1lcqxEAOKA42FIKBioGC/l8wMfzmgMk81v' +
       'kAtAYjJmIKpAJUbJNQ=');
  
  Drop := BitmapFromString(29, 7, 'beNpjYPgPBgwMDLEh7hA2kEE5w' +
       'jQWwqaRsf+RAJpiTE9hihM0lgEMkGWBAKsJyOL4jYWbSYxKZDYxig' +
       'eLsQBOR0Zl');
  
  Fish := BitmapFromString(9, 5, 'beNrL/3uABkD50H8g4s9HMRzIhQ' +
       'jCEUIKAEF8Xso=');
  
  Flag := BitmapFromString(5, 4, 'beNrT0/ujwAxBt5mY9PSwcIEMIN' +
       'oP5kLYtYyMQLYeADz1EQg=');     
  
  Bank := BitmapFromString(5, 5, 'beNoLYmFgYERGBw4c2DbHFoLg7K' +
       '/f5sMFgWxklBDEAiETAFhgJOY=');
end;

function FindFish : boolean;
var
  x, y : integer;
begin
  Wait(44);
  if(FindBitmapToleranceIn(Fish, x, y, 0, 0, 830, 860, 30)) then
  begin
    Writeln('Found Fish Symbol');
    ClickMouse(x, y, True);
    Result:= True;
  end;
end;

function FindBank : boolean;
var
  x, y : integer;
begin
  Wait(44);
  if(FindColorTolerance(x, y, 12105921, 538, 11, 729, 163, 10)) then
  begin
    Writeln('Found Bank Symbol');
    MoveMouseSmooth(x, y);
    Result:= True;
  end;
end;

procedure Fishing;
var
  x, y : integer;
  Water : boolean;
begin
  Water := False;
  while(Water = False) do
  begin
    Wait(44);
    if(FindColorTolerance(x, y, 12301745, 0, 0, 800, 800, 1)) then
    begin
      Writeln('fishing spot found');
      MoveMouseSmooth(x,y);
      ClickMouse(x,y,True);
      Water := True;
      Wait(15000);
    end else Writeln('no fishing spot found');
  end;
end;

procedure Dropping;
var
  x, y : integer;
begin
  while(FindBitmapToleranceIn(lob, x, y, 0, 0, 800, 800, 20))do
  begin
    if(FindBitmapToleranceIn(lob, x, y, 0, 0, 800, 800, 20))then
    begin
      ClickMouse(x, y, False);
      Wait(800);
      if(FindBitmapToleranceIn(drop, x, y, 0, 0, 800, 800, 20))then
        ClickMouse(x, y, True);
      Wait(1000);
    end;
  end;
end;

function InvCheck : integer;
var
  x, y, x1, y1, x2, y2, MWillow : integer;
begin
  x1:=538;
  y1:=202;
  x2:=800;
  y2:=800;
  MWillow :=0;
  while(FindBitmapToleranceIn(lob2, x, y, x1, y1, x2, y2, 5))do
  begin
    x1 := 538;
    while(x1<=x2)do
      begin
      if(FindBitmapToleranceIn(lob2, x, y, x1, y1, x2, y2, 5))then
      begin
        // Found Bitmap
        x1 := x+1;
        MWillow := MWillow + 1;
        Writeln('There are'+IntToStr(MWillow)+'lobsters found');
        Writeln('x1='+IntToStr(x1));
        MoveMouseSmooth(x, y);
        Wait(50);
      end else
      //WriteLn('Bitmap not found.');
      x1 :=900;
      y1 := y1+1;
    end;
    x1 := 0;
    y1 := y+1;
  end;
  if(MWillow >= 10)then
  begin
    // walktobank;
    //dropping;
  end;
  Result := MWillow;
end;

function WalkToBank : boolean;
var
  x, y : integer;
begin
  //walk to the bank
  repeat
    while(Findbank = false)do
    begin
      ClickMouse(566, 71, True);
      Wait(500);
    end;
    //enter bank
    if(FindBank = true)then
    begin
      Wait(500);
      FindColorTolerance(x, y, 12105921, 538, 11, 729, 163, 10 );
      ClickMouse(x, y, True);
      Writeln('We are entering the bank');
      wait(500);
      FindColorTolerance(x, y, 12105921, 538, 11, 729, 163, 10);
      ClickMouse(x, y, True);
      Wait(500);
      Result := True;
    end;
  until((FindBank=true));
end;
 
function WalkToFish : boolean;
var
  x, y : integer;
begin
  //walk to the fishing spot
  while(FindFish = false)do
  begin
    ClickMouse(695, 95, True);
    Wait(500);
  end;
  //enter fishing spot
  if(FindFish = true)then
  begin
    ClickMouse(x, y, True);
    Writeln('We are at the fishing localtion');
    Result := True;
  end;
end;

procedure Deposit;
var
  x, y : integer;
begin
  Wait(5000);
  while(InvCheck > 5)do
  begin
    FindColor(x, y, 6788040, 0, 0, 800, 800);
    ClickMouse(x, y, False);
    Wait(1000);
    //open bank:
    if(FindBitmapToleranceIn(usequick, x, y, 0, 0, 800, 800, 20)) then
    begin
      Wait(200);
      ClickMouse(x, y, True);
      Wait(2200);
      while(invcheck > 5) do
      begin
        FindBitmapToleranceIn(lob, x, y, 538, 202, 800, 800, 20);
        Wait(200);
        ClickMouse(x, y, False);
        Wait(2200)
        FindBitmapToleranceIn(depositall, x, y, 408, 202, 800, 800, 20);
        Wait(200);
        ClickMouse(x, y, True);
        Wait(2200)
        Writeln('Done Banking');
      end;
    end;
  end;
end;

procedure Banking;
begin
  if(InvCheck >= 27) then
  begin
    WalkToBank;
    Deposit;
    WalkToFish;
  end;
end;

begin
  LoadImages;
  repeat
    Banking;
    Fishing;
  until(false)
end.

Griff

2009-06-07 06:46:45

Looks great for a first script! Try reading the tutorial in my signature, and learn SRL to include in your scripts.

caused

2009-06-07 20:24:45

Wow xD. Anyone else wanting to fix standards ? =)… Just finisehd another script ;)… and it looks messy.. but works soo great ;_;…runs in german worlds only and gathers stuff walks to bank and banks it all *_* xD…

Thanks Griff.. Gotta check out your tut =).

freebullets

2009-06-08 07:02:39

Use Mouse instead of ClickMouse. From what i've heard, ClickMouse is pretty bannable.

caused

2009-06-08 23:26:07

From: freebullets
Use Mouse instead of ClickMouse. From what i've heard, ClickMouse is pretty bannable.

this script doesnt use srl :P

elvis633

2009-06-10 05:41:17

Wow you put forth no antiban at all.

Beau

2009-06-12 10:20:21

From: elvis633
Wow you put forth no antiban at all.

he did a good job back off, this is his first script he came for help not putdowns, your jelous.

ssh0rty4

2009-06-25 08:38:00

wow and this for a first post AMAZING :)

fished lobbys for 1 hour but had to restart cause of random still good job:)

liermam

2009-07-26 22:56:01

This is VERY well done for a first script. Far better than I can do!

But a small word of warning to others, I wouldn't recommend this for any extended period of time. Easily detectable.

That being said, keep up the good work!

Smarter Child

2009-07-26 23:05:58

This is an okay first script…Could be improved a whole lot, and don't use it, will get you banned.
There a function in srl, called InvFull…so


if InvFull then
bank;

something like that..

There's all a function in srl called DepositAll;

Dynamite

2009-07-26 23:08:36

it is outdated…
Also Smarter Child he didn't use SRL at all (I dont think…)
T~M

drunkb0ts

2009-08-07 03:46:38

using for short term botting, just not trusting it for longterm GJ 8/10

caused

2009-08-26 15:04:03

:'D.. this way my first script ever.

If you want me to update /rewrite it. I'd need a member account with the required fishing lvl.

~caused

zionz

2009-10-22 22:51:12

From: Beau
he did a good job back off, this is his first script he came for help not putdowns, your jelous.

lol owned

piefool

2010-07-03 12:05:40

nice script i hope my first comes out somewhere close to as good as this one :]