SRL Archive - Archive

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

What is the meaning to life?
The meaning of life is whatever you want it to be :) you make your own choices so the meaning is whatever you decide to do.


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

Programming Knowledge
visual basic, small amount of HTML

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

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 resourses 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 applied a while ago with this same scar script but since then i have been bsy but i have managed to make this script so it now runs really well and i corrected all the bits people commented on last time.

WELL THANCS FOR READING MY APP AND I HOPE I GET IN.

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

program Boner;
{.include SRL\SRL.Scar}
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
///////////////////////////////Boner\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////Made by The Flea\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
////////////////This Script will pick up bones and then bury them\\\\\\\\\\\\\\\
///////////////////////Just fill in the setup\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
///////////////////////////Then hit run\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\

//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\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 = '10'   ; //number of loads to complete per player.

//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
//\\//\\//\\//\\//\\//\\//\\//\\PLAYERS//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\/
//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//||\\//
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of players
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:= 0;

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


end;

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

var
j,k:integer;
Loads,pickedup,experience:integer;
Bone: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 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
    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
// NEXT LINE TAKEN FROM WT-FAKAWI (Goblin Scheduler 0.42)
    randoms;
    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
    randoms;
    Pickup;
    bury;
    progressreport;
  until(false);
end.

^^^^ there is only one line which is not my work :( i pinched that line from WT-FAKAWI's Goblin Scheduler 0.42. I TAKE NO CREDIT FOR THAT LINE AND WT-FAKAWI GETS IT ALL :p

lol its only 1 line anyway

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

c0de , "new password"??

[OFFTOPIC] Wait a second, You have activity 69%,Longevity 89%
and 879 posts, SRL Developer status, how come you are Lesser Demon?[/OFFTOPIC]

thanx c0de i didnt realize that was there =[ =[ =[ i edited it outa the script now lol

Sorry, script is over all to simple.

No from me, just get better, read more, study more scripts and see if you can make it a bit more reliable/complicated.

To simple, maybe you should write a script that does something a little more. Try come up with something that uses radial walking.

and next time be more careful about leaving your passwords in your script, overall, this is a bit simple *stated above*, maybe make a little more complicated, and i doesn't have to be flawless, even though u'll have a better chance of getting in, but if i think you put alot of hard work in your next script, i'll vote yes =)
Maybe make a Varrock Clay Softener, from the east bank, it's a pretty easy walk to the nearest fountain.

A varrock clay softner is very simple. I recommended to him earlier a power miner / power chopper. The script isn't very complex, but if you look at all the other apps they don't even know how to use anti randoms ;). Still undecided from me.

ok c0de.

thanx for your advise guys. i wasn tsure what response i would get lol but i did all the things people that voted no last time i applied said so i thought i may as well apply…im going to start making an ore smelter since a clay softner isnt of much use now the new rings came out on rs :(