SRL Archive - Archive

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

What is the meaning to life?


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

Programming Knowledge
Visual basic, small amont of Html,

Other Communitys
www.Dingo-Forums.com, www.rs-resources.com

How Long have You Played Runescape
2-3 years

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

Im a 14 year old boy who lives in a place called conwy in north wales. I enjoy sports (Swimming and Triathlon mostly), i like my music and i like my PC.

I spend my free time Swimming, running, cycling, playing with my mates in a band and just hanging round. but i allso spend a lot of time on my computer fidling with things like scar or just playing games =] =] =]

I started learning scar from www.dingo-forums.com but soon realized that this forum has more info so i now use this forum for scar and im mainly on www.dingo-forums.com for fun and because it has a great and friendly community =]

I enjoy scripting and i hope that if i get accepted into the community i will be able to produce better scripts as i will have more resorces to use.

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

program Boner;
{.include SRL\SRL.Scar}
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
///////////////////////////Boner version 2.0\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////Made by The Flea\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////This Script will pick up bones and then bury them\\\\\\\\\\\\\\\
///////////////////////Just fill in the setup\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////Then hit run\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
//\\//\\//\\//\\//\\//\\ version 1.0 - released //\\//\\//\\//\\//\\//\\//\\//\\
//\\//\\//\\//\\// Version 1.1 - Added better picking procedure //\\//\\//\\//\\
//\\//\\//\\//\\// Version 1.2 - Added my own antiban procedure//\\//\\//\\//\\/
//\\//\\//\\//\\// Version 2.0 - Added banking procedure //\\//\\//\\//\\//\\//\
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\SETUP//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
const
bonecolor1 = 11053492; //color 1 of the bones on the floor.
bonecolor2 = 12500678; //color 2 of the bones on the floor.
bonecolor3 = 12698057; //color 3 of the bones on the floor.
rundir = 'N'  ; //direction to run from a fight. (N,E,S or W)
inventry = '1'   ; //number of loads to complete per player.
Antibanamount = 10; // 10 for each time the procedure is called, 20 for 50% of the time.
usebank = 'True' ; // True if you want to use the bank to withdraw bones.
Pin = '';// bank pin if you have on.
place = 'akb';//Valid arguments are:
//'feb' (Falador East Bank)
//'fwb' (Falador West Bank)
//'veb' (Varrock East Bank)
//'vwb' (Varrock West Bank)
//'db'  (Draynor Bank)
//'eb'  (Edgeville Bank)
//'akb' (Al-Kharid Bank)
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\PLAYERS//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\/
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;


end;

//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\END SETUP//\\//\\//\\//\\//\\//\\//\\//\\//\\//\
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//

var
j,k:integer;
Loads,pickedup,experience:integer;
Bone:integer;
procedure randoms;
  begin
  status('Checking for random events');
  if(not(loggedin)) then
  begin
    Writeln('Not Logged in')
    nextplayer (false);
  end;
    FindTalk;
    FindNormalRandoms;
    if (FindFight = true) then
  begin
    Status('Solving fight random');
    RunAwayDirection(rundir);
    writeln('Found fight running away')
    Wait(10000 + random(2000));
    writeln('Running back to location')
    RunBack;
  end;
end;

procedure Usingbank;
begin
  if(not(loggedin)) then
  begin
    exit;
    writeln('You Are not logged in');
  exit;
  if(usebank='true') then
  begin
    Status('using bank procedure'):
    Writeln('You are using the bank to withdraw your bones');
    Openbankquiet(place);
    if(pinscreen) then
    begin
      repeat
      inpin(pin);
      until bankscreen or not loggedin;
    end;
    if(Bankscreen) then
    begin
      if (not(invempty)) then
      begin
        depositall;
      end;
      if FindBitmapSpiralTolerance(Bone, x, y, 0, 0, 700, 700, 2) then
      begin
        MMouse(x, y, 2, 1);
        wait(123+random(43))
        Mouse(x, y, 2, 2, True)
        case random (4) of
        0: clickoption('All', 2);
        1: begin
             clickoption('10', 2);
             wait(120+random(1321))
             clickoption('all', 2);
           end;
        2: begin
             clickoption('x', 2);
             wait(123+random(1312))
             typesend('28');
           end;
        3: begin
             clickoption('10', 2);
             wait(124+random(985))
             clickoption('10', 2);
             wait(321+random(987))
             clickoption('10', 2);
           end;
         end;
        end;
    end;
   end;
  end;
 end;

procedure antibanmyaccount;
begin
  if (not(loggedin)) then
  begin
    exit;
    writeln ('not logged in')
  end;
  case random(antibanamount) of

  0: begin
       highestangle;
       makecompass('N');
       wait(300+random(600))
       lowestangle;
       makecompass('W');
       wait(352+random(653))
       highestangle;
       makecompass('N');
     end;

  1: begin
       boredevery(23+random(12));
     end

  2: begin
       case random (4) of
       0: Makecompass('N');
       1: Makecompass('E');
       2: Makecompass('W');
       3: Makecompass('S');
       end;
     end;

  3:begin
      PickUpMouse;
    end;

  4:begin
      Almostlogout;
    end;

  4:begin
      saycurrentlevels('Prayer');
    end;

  5: begin
       case random (5) of
       0: begin
            Hoverskill('Prayer', false);
            Wait(1234+random(2314))
          end;
       1: begin
            Hoverskill('Attack', false);
            wait(2012+random(1235)) ;
          end;
       2: begin
            Hoverskill('Strenth', false);
            wait(3201+random(1201));
          end;
       3:begin
           Hoverskill('defence', false);
           wait(1020+random(4521));
         end;
       4:begin
           hoverskill('random', false);
           wait(3252+random(4123));
         end;
       end;
  end;
  end;
  end;


procedure progressreport;
begin
  Writeln('[]========================================[]');
  Writeln('---------------->Boner<----------------');
  Writeln('  did ' + IntToStr(Loads) + ' Loads' + '    ');
  Writeln('---------------------------------------------');
  writeln('picked up' +IntToStr(pickedup) + 'Bones' + '');
  Writeln('---------------------------------------------');
  Writeln('  gained ' + IntToStr(experience) + ' experience' + '        ');
  Writeln('[]========================================[]');
end;

var bonefind: integer;

procedure pickup;
begin
  repeat
  if(not(loggedin)) then
  begin
    writeln('Not logged in');
    exit;
  end;
  if findobjmulti('ones', bonecolor1, bonecolor2, bonecolor3, 5) then
  begin
    status('Picking up bones');
    wait(50+random(10))
    GetMousePos(j, k);
    Mouse(j, k, 2, 2,True);
    wait(123+random(123))
  end;
  if isuptext('ones')
  then
  begin
    Mouse(j,k,1,1,true);
    wait(10+random(50));
    FFlag(1);
    Writeln('picked up bones')
    Pickedup:=Pickedup+1;
  end;
  until(Invfull);
end;
procedure bury;
begin
  Bone  :=  BitmapFromString(4, 4, '000001000001000001D2CCCC9B9' +
       '090A19595CEC7C79B909089807FDED9D9CAC3C29A8E8E000001C7' +
       'BFBFA99D9D000001');
  repeat
    if(not(loggedin)) then
    begin
      exit;
      writeln('Not Logged in');
    end;
    if Invfull = true then
    begin
    randoms;
// NEXT LINE TAKEN FROM WT-FAKAWI (Goblin Scheduler 0.42)
    ClickAllItemsBmpTolWait('ury', Bone, 50, 250);
// ALL OTHER BITS OF SCRIPT IS MINE.
    end;
  if (FindFight = true) then
  begin
    RunAwayDirection(rundir);
    writeln('found fight running away')
    Wait(10000 + random(2000));
    writeln('running back to location')
    RunBack;
  end;


  if (FindBitmap(bone, x ,y)=False) then
  begin
    writeln('buried a full inv')
    Loads:=Loads+1;
    experience:=experience+126
  end;

until(FindBitmap(bone,x, y)=False)
end;


procedure start;
begin
  Writeln('    B');
  wait(200+random(10))
  cleardebug;
  Writeln('    BO');
  wait(200+random(10))
  cleardebug;
  Writeln('    BON');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONE');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - ');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - B');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - BY');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - BY T');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - BY TH');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - BY THE');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - BY THE F');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - BY THE FL');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - BY THE FLE');
  wait(200+random(10))
  cleardebug;
  Writeln('    BONER - BY THE FLEA');
  wait(200+random(10))
  cleardebug;
  end;

begin
    start;
    setupSrl;
    DeclarePlayers;
    LoginPlayer;
  repeat
    antibanmyaccount;
    randoms;
    if (usebank = 'true') then
    begin
      usingbank;
    end;
    if (not(usebank = 'true')) then
    begin
      Pickup;
    end;
    bury;
    progressreport;
  until(inventy = loads);
end.

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

meh its kind of er simple? no real walking and no multiplayer ? :( meh ill hold my vote until YoHoJo posts

the multiplayer is in there it just has 1 slot because i only had 1 account to test it with… all you need to do is copy and paste more in… and i can post a radial walk script if you want (not a ful lscript just walkin somehwere) but i was told that radial walk isnt working at the moment :S

From: hugolord
meh its kind of er simple? no real walking and no multiplayer ? :( meh ill hold my vote until YoHoJo posts

Hugo, if you're just saying that to copy the other members there's no use. They only say that if they need YoHoJo to check if the script is copied or not. Other than that, it's your own opinion.

Might be a yes from me.

From: SantaClause
Hugo, if you're just saying that to copy the other members there's no use. They only say that if they need YoHoJo to check if the script is copied or not. Other than that, it's your own opinion.

Might be a yes from me.

nah its just i need to make sure its not copied before i post im always gonig to do that from now on =/

From: hugolord
nah its just i need to make sure its not copied before i post im always gonig to do that from now on =/

Its sure not copied :D http://www.villavu.com/forum/showthread.php?t=11371?t=12682

But flea, your old application isnt yet a month old…

http://www.villavu.com/forum/showthread.php?t=11321?t=12631
Your application is still going on…

I wish we could ditch that rule if they have a good enough script.

Also, as if we're trusting them to wait 1 month. We should just have the site check their last application.

a month :O i thought the wait time was only a week :(

can i stick with this app though ebcasue my script has chanegd quite a bit since then.

I got a qwestion…

The java inside me makes me want to smash babies when i see this

clickoption('10', 2);
             wait(124+random(985))
             clickoption('10', 2);
             wait(321+random(987))
             clickoption('10', 2);

But is that correct? Aren't semi colons suposed to go there?

I think they are, but I don't know for sure.

Also, i think you have a pretty good script, but its not really complex enough, but thats just my opinion. I would have really likes to see some fancy walking, and you can always make radial walk work, it just cliks on colors, but it searches for the fancily.

Not sure what im gpoing to vote yet, some one please clear up that semi colon busness for me.

Yea, semi-colons are supposed to go there.
Not sure what to vote…

From: tim46
Yea, semi-colons are supposed to go there.
Not sure what to vote…

Ok, good, I see too many poeople doing it because scar lets them get away with it. Java on the other hand, would slap you across the face and call you a noob.

I'll think about the app at work…
you may want to hide your babies….
:eek:
WRAHAAAAAAAAYIEGHTEWII!!!!!!
(my traphormation sounds to baby smashing mode…)

i didnt put a semi colon there because it didnt need it lol *shrugs*

i have a half completed fally smelter script that invovles radial walk… since so many are unsure please hold your vote because i will complete this script either tonight or tomorow night (but please dont expect anything amazing since itl just be a quick knock up :P )

Ok, if its not going to be anythign amazing, dont bother even doing it. You should never go halfway on something, and expect good results, that's just life for ya.

Second thing, just because scar isnt actuallly compiling your script doesnt mean you should be able to get away with lazy, incorrect standards. Most of the time scar will throw you an error, not to mention that 5 babies owe their face to you now :P. If you read the standards stuff, it says you need to put in semicolons, regardless of runability. So if for no other reason, you can have that one, as you aplication said to post a scar script with correct stnadards.

Now, I know that for most people, im just splitting hairs, and although i wish i could just say no because of standards… its going to take a little bit more for me. I look over you script more indepht later.

heres a fally smelter i made just for this app… it doesent have a smelting bit in it at the moment as this bit hasnt been done yet but im posting this any way atm because the most of it is done…

p.s i dont know if it will run but from reading through my code it seems good (still unsure of if radialwalk/radialroadwalk still work)

program FallySmelter;
{.include SRL\SRL.Scar}
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
////////////////////////////Fally Smelter\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////Made by The Flea\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////This Script will Smelts ores in falador and bank them\\\\\\\\\\\
///////////////////It currently does not have a smelting procedure\\\\\\\\\\\\\\
///////////////////////I just made it for my SRL app\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////Just fill in the setup\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//////////////////////////Stand in the bank\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////Then hit run\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\SETUP//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
const
bar = 'iron';//bronze, iron, silver, gold, mithril, adamant, runite
roadcol = 6783107;//color of the road.
Location = '0';//0 for Bank, 1 for Furnace
loads = 10; //how many loads do you want the script to run for?
rundir = 'N';//what direction should your player run in if it finds a fight?
Antibanamount = 10; // 10 for each time the procedure is called, 20 for 50% of the time.
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\PLAYERS//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\/
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

  Players[0].Name :='chifusan24';
  Players[0].Pass :='4149lp';
  Players[0].Nick :='ifusa';
  Players[0].Active:=True;

end;

//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\END SETUP//\\//\\//\\//\\//\\//\\//\\//\\//\\//\
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//

var
Loadz:integer;
Loc:integer;

procedure randoms;
  begin
  if(not(loggedin)) then
  begin
    Writeln('Not Logged in')
    nextplayer (false);
  end;
    FindTalk;
    FindNormalRandoms;
    if (FindFight = true) then
  begin
    RunAwayDirection(rundir);
    writeln('Found fight running away')
    Wait(10000 + random(2000));
    writeln('Running back to location')
    RunBack;
  end;
end;


procedure walktofurnace;
var
pump, center, furnace:integer;
begin
  if (Not(loggedin)) then
  begin
    Writeln('character not logged in');
    Exit;
  end;
  begin
    if(Location = '0') then
    begin
      makecompass('N');
      radialroadwalk(roadcol, 10, 50, 65, 2, 2);
      FFlag(3);
      Loc:=pump;
      Writeln('you have walked to the area near the pump');
    end;
    if(Loc=pump) then
    begin
      radialroadwalk(roadcol, 80, 100, 65, 2, 2);
      FFlag(3)
      Loc:=center;
      Writeln('you have walked to the center of falador');
    end;
    if(loc=center) then
    begin
      radialwalk(9614520, 120, 180, 65, 2, 2);
      FFlag(3);
      Loc:=furnace;
      Writeln('you have walked to the furnace room');
    end;
  end;
end;

procedure walkback;
var
bank1, center1, pump1, fountainbmp, fountain:integer;
begin
  if(not(loggedin)) then
  begin
    exit;
  end;
  if(location = '1') then
  begin
    Makecompass('N');
    radialroadwalk(Roadcol, 330, 310, 70, 2, 2);
    FFlag(3);
    Loc:=center1;
    writeln('You have walked to the centre of Falador');
  end;
  if(loc:=Center1) then
  begin
    Fountainbmp:= BitmapFromString(12, 4, 'z78DA337734' +
       '373137341F25719000111D3E11');
    fountain :=AutoColorThis(Fountainbmp, 50, MMX1, MMY1, MMX2, MMY2);
    Radialwalk(fountain, 290, 270, 70, 2, 2);
    FFlag(3);
    Loc:=pump1;
    Writeln('You have walked to the pump');
  end;
  if(Loc:=pump1) then
  begin
    RadialroadWalk(roadcol, 232, 208, 50, 2, 2);
    FFlag;
    Loc:=bank1;
    Writeln('You have succesfully walked back from the furnace to the bank');
  end;
end;

procedure getores;
var
ore:integer;
begin
  Ore := DTMFromString('78DA63AC676460E86540038C0CFFC12403C37' +
       'F20602C06B29663AA419040BA1DC89A46404D2690359B809A2620' +
       '6B1EAA0A6F5D454C7316E0370700D8530C1C');
  if (location = '0') then
  begin
    if (not(loggedin)) then
    begin
      exit;
    end;
    FindBank('fwb');
    if (not(invempty)) and (bankscreen) then
    begin
      depositall;
    end;
    if FindDTM(ore, x, y, 0, 0, 200, 200) then
    begin
      repeat
      Mouse(x, y, 2, 2, false)
      chooseoption(x, y, 'All');
      until(invfull)
    end;
    if(invfull) and (bankscreen) then
    begin
      closebank;
    end;
end;

procedure antibanmyaccount;
begin
  if (not(loggedin)) then
  begin
    exit;
    writeln ('not logged in')
  end;
  case random(antibanamount) of

  0: begin
       highestangle;
       makecompass('N');
       wait(300+random(600))
       lowestangle;
       makecompass('W');
       wait(352+random(653))
       highestangle;
       makecompass('N');
     end;

  1: begin
       boredevery(23+random(12));
     end

  2: begin
       case random (4) of
       0: Makecompass('N');
       1: Makecompass('E');
       2: Makecompass('W');
       3: Makecompass('S');
       end;
     end;

  3:begin
      PickUpMouse;
    end;

  4:begin
      Almostlogout;
    end;

  4:begin
      saycurrentlevels('Prayer');
    end;

  5: begin
       case random (5) of
       0: begin
            Hoverskill('Prayer', false);
            Wait(1234+random(2314))
          end;
       1: begin
            Hoverskill('Attack', false);
            wait(2012+random(1235)) ;
          end;
       2: begin
            Hoverskill('Strenth', false);
            wait(3201+random(1201));
          end;
       3:begin
           Hoverskill('defence', false);
           wait(1020+random(4521));
         end;
       4:begin
           hoverskill('random', false);
           wait(3252+random(4123));
         end;
       end;
    end;
  end;
end;


begin
  setupSrl;
  DeclarePlayers;
  LoginPlayer;
  repeat
  randoms;
  antibanmyaccount;
  getores;
  Walktofurnace;
  walkback;
  until(Loadz = loads)
  Writeln('All the loads have been completed.');
  Writeln('Script finishing.');
end.

I don't think a couple of mising ;'s should be a reason to fail an app. If its a good script then thats great, he can always improve his standards. Those are my thoughts but haven't read through the scripts yet, see how bad it really is ;).

cheers gilbz… hopefully you wont think its to bad ;)

Well, It's a no from me, and you really should use the semicolons, because if you dont, after some time you dont know what to do when a semicolon error appears.
BTW, greg, you cant just "smash " them baybees, you have to take a good grab of its legs and then smash to the nearest wall. if youre right handed, smash to right, if youre left, smash to left. Thats how you get more efficient smash.

A smelter… that doesn't smelt? Huh?

About semicolons… Save them for java and PHP..

hmm i am really going both ways ill have to think but one small thing

(usebank='true')

that and the const in the beginning they don't have to have ' ' because they would be counted as a boolean. it doesn't really matter just something that bothers me.

From: n3ss3s
Well, It's a no from me, and you really should use the semicolons, because if you dont, after some time you dont know what to do when a semicolon error appears.
BTW, greg, you cant just "smash " them baybees, you have to take a good grab of its legs and then smash to the nearest wall. if youre right handed, smash to right, if youre left, smash to left. Thats how you get more efficient smash.

of coruse i would know what to do… all i would need is to put a semicolon their if it was a semlicolon eroor (or remove one)

sorry for the stupid question but how long do theese applications go on for?

sry. Holiday time I guess.

Welcome.