SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
burnout - SRL Member Application Form
burnout

What is the meaning to life?


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


Programming Knowledge
no but want to learn

Other Communitys
sythe

How Long have You Played Runescape
6 years, since spring of 2001

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

hi my names david, you can call me burnout if you like or just david im 22 i have 2 kids im a stay at home dad, i dont have much experience with this as i had never used scar until like 2-3 months ago i made my first started script called CannonBall Express its just a rough draft but it works im wanting to finish it some time and make a few others, im very good with computers i am online almost 24/7 i hope to join this forum as a respected member and make some awesome scripts with every one i just need a little help understanding all the codes but that will come with time anyways please accept me i believe that in time i would be an outstanding edition to your team.

thank you,
Burnout

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

{.Script Info:
# ScriptName  = CannonBall Express
# Author      = Burnout
# Description = Makes CannonBalls in A.K.
# Version     = beta
# Date        = 3/1/07
# Comments    = not an afk script yet
/Script Info}
//                    CANNON BALL EXPRESS                    //
//                                    BY Burnout             //






program CannonBallExpress;
{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Smithing.scar}



// Cannon Ball Express brought to you exclusively by Burnout //

//                     beta version                          //

//                this is not an afk script                  //

//  no multiplayer     no antirandoms      will update soon  //

//              that one out ill update it                   //

//    start in ak west bank (closest one to the furnace)     //

//                        loged in                           //
//___________________________________________________________//
//___________________________________________________________//




const
bwcolor=9277070;//lowest angle, pick color of the wall through the glass

//        walk to furnace        //




procedure WalkToFurnace1;
begin
 makecompass('n')
 if(findmmcolortol(x,y,1022492,8)) Then
 begin
 mmouse(x,y,1,1+random(15))
 mouse(x,y,1,1+random(15),true)
 wait(10000+random(2000));
if(findsymbol(x,y,'Furnace')) Then
mmouse(x+(10),y,1,1)
 mouse(x+(10),y,1,1,true)
 wait(10000+random(2000));
 MakeCompass('W')
end;
end;


//        walk to bank              //




procedure WalkToBank1;
begin
 makecompass('n')
 wait(1000+random(500));
 mouse(647,144,2,2,true)
 wait(10000+random(2000));
   if(findsymbol(x,y,'bank')) Then
 mouse(x,y,1,1,true)
 wait(10000+random(2000));
 MakeCompass('W')
 wait(500)
end;




//                          smelter                         \\




procedure SmeltCBall;
begin
 openfurnace;
  repeat
 wait(200+random(100));
 mouseitem(28,true)
 wait(500+random(500));
   MMouse(274,104, 2, 2)
  Mouse(274,104, 2, 2, true)
  wait(1500+random(1000));
  mmouse(256,442,1,1)
  mouse(256,442,2,2,false)
  mmouse(228,427,1,1)
  mouse(228,427,1,1,true)
  wait(40000+random(2000))
  until (not(existsitem(28)))
end;




//                     ammount to withdraw                  //



 procedure WithdrawBars;
begin
 mmouse(94,77,2,2)
 mouse(94,77,2,2,false)
  Wait(100);
 mmouse(78,145,0,10);
 mouse(78,145,0,10,true);
 FFlag(0);
  Wait(2000 + Random(500));
 mmouse(485,41,2,2)
 mouse(485,41,2,2,true)
end;
  
  
  

//                         opening bank                            //




procedure OpenBankFast;
begin
lowestangle;
if Findmscolortol(x,y, bwcolor,4) then
  begin
    MMouse(x, y, 4, 4);
    if IsUpTextMulti('ank', 'booth', 'ooth') then
    begin
      Mouse(x, y, 0, 0, False);
      Wait(100);
      ChooseOption(x, y, 'uickly');
      FFlag(0);
      Wait(2000 + Random(500));
      end;
    end;
  end;







////////////////         M A I N    L O O P          \\\\\\\\\\\\\\\\\\


begin
 setupsrl;
  activateclient;
  wait(500)
  MakeCompass('w')
  openbankfast;
  withdrawbars;
 repeat
   walktofurnace1;
   wait(500)
   highestangle;
   smeltcball;
  walktobank1;
  openbankfast;
  withdrawbars;
 until(not(existsitem(28)))
end.

——————————————————
<!– END TEMPLATE: formanswers –>

Need more fail safes, anti randoms, anti ban, player switching and you should use radial walk. Its a no from me, sorry.

I say no.
Best way to find things when scripting is using
DTMs or BITMAPS or COLORS

i see A LOT of coordiante use which is just assuming something is there.
Things like:

 procedure WithdrawBars;
begin
 mmouse(94,77,2,2)
 mouse(94,77,2,2,false)
  Wait(100);
 mmouse(78,145,0,10);
 mouse(78,145,0,10,true);
 FFlag(0);
  Wait(2000 + Random(500));
 mmouse(485,41,2,2)
 mouse(485,41,2,2,true)
end;

and

procedure SmeltCBall;
begin
 openfurnace;
  repeat
 wait(200+random(100));
 mouseitem(28,true)
 wait(500+random(500));
   MMouse(274,104, 2, 2)
  Mouse(274,104, 2, 2, true)
  wait(1500+random(1000));
  mmouse(256,442,1,1)
  mouse(256,442,2,2,false)
  mmouse(228,427,1,1)
  mouse(228,427,1,1,true)
  wait(40000+random(2000))
  until (not(existsitem(28)))
end;

Try looking at some other scripts and leaning those techniques.
Read my DTM tutorial for DTMs of all of the times you need
http://www.villavu.com/forum/showthread.php?t=564
and try using bitmaps for the furnace
http://www.villavu.com/forum/showthread.php?t=1609
and radialraodwalk for map walking
http://www.villavu.com/forum/showthread.php?t=372

Hi burnout. Gotta say no for now too, but I see you will be on top of things in no-time. My advice to you, since you seem to have some time to kill, print out some of your favourite scripts, study them whenever you have the time, make notes on them. I'd say, a week or two. It's all very simple really…