SRL Archive - Archive

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

What is the meaning to life?


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



Programming Knowledge
c++,vb.net,basic

Other Communitys
mopar,freddy1990

How Long have You Played Runescape
4 years

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

I've been scripting on and off(unfortunately mostly off because of school) for maybe a year now.have an awesome custom computer i made
amd athalon x2 6000+ processor
evga ge-force 8800 320 mb video card
4gigs of low latency p6400 ram
i plan on going to collage in Canada majoring in computer science

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

{=========================================================================]
[                                                                         ]                                                                        ]
[           NAME        : lumbridge cooker                                ]
[           WRITER      : del_signo                                       ]
[           CATEGORY    : cooking                                         ]
[           DESCRIPTION : auto cooks almost perfectly                     ]
[           USAGE       : cooking                                         ]
[           AUTOCOLOR   : yes                                             ]
[           NOTES       : Typical Fawki style script. Love it or hate it. ]
[           CONTACT     : [email]del.signo.srl@gmail.com[/email]                         ]
[                                                                         ]
[                                                                         ]
[=========================================================================]
[        read the following notes important!!!!!!!!!!!!!!!!               ]
[=========================================================================]
[                           Instructions.                                 ]
[=========================================================================]
[ 1. USE Runescape with Low Detail, Bright.                               ]
[ 2. Set your Screen to 32 bit TRUE color.                                ]
[ 3. Set Playernames and Passwords in DeclarePlayers.                     ]
[ 4. SET HOWMANYPLAYERS inside DeclarePlayers                             ]
[ 5. Start script Logged Out!                                             ]
[=========================================================================}

program del_lumby_lobber;

{.include SRL/SRL.scar}
{.include SRL\SRL\Skill\Magic.scar}
{.include SRL/SRL\Extended\xDTM.scar}
{.include SRL/SRL\Extended\xbitmap.scar}
{.include SRL\SRL\misc\WorldSwitcher.scar}

//******************** Set These Constants if Needed  ********************//

Const Loads               = 3;     // Number of loads before switching Player.
const startplayer         = 1;

//**********************RuneScape Constants*******************************//
var Topfloor,Burntlobster,posttop,rawlobster,x2,y2,othertop,longwall,mainmark :integer;
var Lobsterscooked,Lobstersburnt :integer;
//************************************************************************//

Procedure DeclarePlayers;
var i:integer;
begin

     HowManyPlayers  := 3;               // Set Number of Players here.
     NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
     CurrentPlayer:=StartPlayer;        // CurrentPlayer = Array Index

     for i := 0 to howmanyplayers-1 do
     begin
      marktime(players[i].integer1);
     end;

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Active:=false;//dont mess if ur noob
     Players[0].integer1:=1800000;//dont mess if ur noob

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Active:=false;//dont mess if ur noob
     Players[1].integer1:=1800000;//dont mess if ur noob

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Active:=false;//dont mess if ur noob
     Players[2].integer1:=1800000;//dont mess if ur noob

     writeln(inttostr(HowManyPlayers)+' Players');

end;

//************************************************************************//
procedure mywait(milsec:integer);
begin
  marktime(mark);
  repeat
    wait(10);
    if Findname Then FindTalk;
    wait(10);
  until(timefrommark(mark) >= milsec);
end;
//************************************************************************//
procedure lowestworld(thetype :boolean);//free=true;member=false
begin
  if loggedin then logout;
  if (thetype) then
  begin
    ClickWorldSwitchButton;
    OrderBy('players','down');
    OrderBy('type','down');
  end else
  begin
    ClickWorldSwitchButton;
    OrderBy('players','down');
    OrderBy('type','up')
  end;
  mouse(70,45,3,3,true);

end;
//************************************************************************//
procedure PlayerStats;
var Active: string;
var i: Integer;
begin
lobsterscooked := 0;
lobstersburnt := 0;
for i := 0 to HowManyPlayers-1 do
begin
  lobsterscooked := lobsterscooked + players[i].integer2
  lobstersburnt := lobstersburnt + players[i].integer3
end;

writeln('**********************************************');
writeln('Number of cooked lobsters: '+ inttostr(lobsterscooked));
writeln('Number of lobsters burnt : '+ inttostr(Lobstersburnt));
writeln('Worked for               : '+ ScriptTime2(2));
writeln('Banked                   : '+ inttostr(banks) + ' times.');
writeln('**********************************************');

for i := 0 to HowManyPlayers-1 do
   begin
   if Players[i].Active=True then Active:='True' else Active:='False';
      writeln( (inttostr(i))+' : '+Players[i].name+ ' = '+Active+'. - Lvl : '+inttostr(Players[i].Level[18])+
      '. - B :'+inttostr(Players[i].Banked)+' Times.'+
      ' -  : '+IntToStr(Players[i].Worked)+' mins.'+' - Loc: '+Players[i].loc);
    end;
   writeln('**********************************************');
end;
//************************************************************************//
procedure ProgressReport;
begin
  begin
  cleardebug;
  WriteLn(' ');
  SRLRandomsReport;
  Writeln(' ');
  end;
  PlayerStats;
end;
//************************************************************************//

Procedure SetUp;
begin
     SetupSRL;
     Topfloor := DTMFromString('78DA63AC656260B06240013121210C3A8C0C0' +
       'C40C4F01F08189B816ACC2072AC50357FD8D8C06C46289FB11DA8' +
       'C69A809A32845D78D518E1570300B4FA0D14');
     Burntlobster := DTMFromString('78DA63F466626078C68002FC3D3CC0342394C' +
       'FE80754F31E554D746828AA1A3BA09A970C688011550DC8AE47F8' +
       'ED020072530797');
     rawlobster := DTMFromString('78DA63F4666260D066644006751E0A601A26C' +
       'A680354638CAA06260B57E307546349404D2011E63803D5E81350' +
       'E30054A383AA26C7561A450D0028ED049B' +
       'F');
     posttop := BitmapFromString2(False, 'aD18E978DA333080014743' +
       '20616E0E629A9BBA8148476310E964822021E26035069620B6819' +
       '3A389B3B1898125A92400CBB');
     othertop := DTMFromString ('78DA639CCAC4C060C680028AB3B3197418191' +
       '88088E13F1030F601D56841E444A16AFEFC6102D38C503EE31C20' +
       'DF14C26686A961634355331FA8C60EBF1A00805B0CD9');{('78DA63AC61626098CC80028AB3B3197418191' +
       '88088E13F10309602D5B443E444A06AFEFC6102D38C503E633390' +
       '3F09C266878AFDE3E14155D302543303BF1A00DCFC0E07');}
     longwall := DTMFromString('78DA636C60626048634001E579F90C3A8C0C0' +
       'C40C4F01F0818BB806A5220721C5035FF7878C0342394CF584484' +
       '9A2AA09A1C026A40EEC9C2AF06004F610E84');
     DeclarePlayers;

end;

//************************************************************************//
procedure FindRandoms;
begin
  FindNormalRandoms;
//  if(FindFight)then RunAway;
  if Findname Then FindTalk;
end;
//************************************************************************//
procedure dumpburnt;
begin
  marktime(mark);
  repeat
    findinvdtm(x,y,burntlobster);
    mouse(x,y,5,5,false);
    popup('Drop');
  until((findinvdtm(x,y,burntlobster)=false) or (timefrommark(mark) >= 60000));
  players[currentplayer].integer2 := players[currentplayer].integer2 + invcount;
  players[currentplayer].integer3 := players[currentplayer].integer3 + (28-invcount);
end;
//************************************************************************//
function lumspawn:boolean;
begin
  castspell(1);
  wait(15000+random(5000));
  if (findsymbolin(x,y,'water',mmx1,mmy1,mmx2,75) and findsymbolin(x,y,'water',mmx1,75,mmx2,mmy2 )) then result :=true
  else result := false
end;
//************************************************************************//
procedure findmyrange;
var test:boolean;
begin
  test := false;
  marktime(mark);
  repeat
    findobj(x2,y2,'/ 1 more',1121681,5);
    mouse(x2,y2,5,5,false);
    if findtext(x,y,'range',upchars,msx1,msy1,760,325) then
    begin
      test:= true;
    end else x2 := -1;
  until((test = true) or (timefrommark(mark) >= 15000));
end;
//************************************************************************//
procedure dostairs(click : string);
begin
  findmscolortol(x,y,603212,2);
  mouse(x+5,y,15,15,false);
  popup(click);
  wait(3000+random(1000));
end;
//************************************************************************//
procedure mylogout(sen:boolean);
begin
  logout;
  playerstats
  if sen then players[currentplayer].active := false;
end;
//************************************************************************//
function findaplayer:integer;
var i:integer;
var arg :boolean;
begin
  arg := false;
  for i:=0 to howmanyplayers-1 do
  begin
    if ((timefrommark(players[i].integer1) >= 1800000) and (players[i].active = false)) then
    begin
      result := i;
      arg := true;
    end;
    if (arg = false) then result := -1;
  end;
end;
//************************************************************************//
Procedure WalkTobankfromrange(opt:boolean);
begin
  FindRandoms;
  if (opt) then radialwalk(findroadcolor,180,270,45,10,-10);
  mywait(5000);
  makecompass('s');
  marktime(mark);
  repeat
    dostairs('-up');
  until ((WeAreInMM(othertop)) or (timefrommark(mark) >= 60000))
  if (timefrommark(mark) >= 60000) then mylogout(false);
  if weareinmm(othertop)then
  begin
    makecompass('n');
    radialwalk(findroadcolor,180,540,45,15,5);
    Players[CurrentPlayer].Loc:='bank';
  end;
end;

//*************************************************************************//

Procedure frombanktorange;
begin
  if loggedin then
  begin
    radialwalk(findroadcolor,100,270,50,5,5);
    mywait(5000);
    makecompass('s');
    marktime(mark);
    repeat
      dostairs('-down');
    until((finddtm(longwall,x,y,mmx1,mmy1,mmx2,130)) or (timefrommark(mark) >= 60000));
    if weareinmm(longwall) then
    begin
      makecompass('n');
      radialwalk(findroadcolor,270,540,25,5,3);
      mywait(2000);
      marktime(mark);
      repeat
        findmyrange;
        if (x2 = -1) then
        begin
          mylogout(false);
        end else
        begin
          findinvdtm(x,y,rawlobster);
          mouse(x,y,3,3,true);
          mouse(x2,y2,3,3,false);
          popup('range');
          mywait(6000);
          mouse(236,397,50,25,false);
          popup('All');
          mywait(25000);
        end;
      until((findinvdtm(x,y,rawlobster)=false) or (timefrommark(mark) >= 60000));
      dumpburnt;
    end else mylogout(false);
  end;
end;

//************************************************************************//
procedure lumtorange;
begin
  if (findsymbolin(x,y,'water',mmx1,mmy1,mmx2,75) and findsymbolin(x,y,'water',mmx1,75,mmx2,mmy2 )) then
  begin
    makecompass('n');
    highestangle;
    radialwalk(findroadcolor,200,360,60,5,-5);
    makecompass('s')
    mywait(5000);
    marktime(mark);
    repeat
      radialwalk(findroadcolor,0,180,10,5,5);
    until((findmscolortol(x,y,603212,2)) or (timefrommark(mark) >= 15000));
  end;
end;
//************************************************************************//

procedure Bank;
begin
  FindRandoms;
  MarkTime(Mark);
  repeat
    if (not(Loggedin)) then break;
    findmscolortol(x,y,7835035,5);
    mouse(x,y,15,15,false);
    popup('Use-');
  until((BankScreen) or (TimeFromMark(Mark)>60000));
  if(BankScreen)then
  begin
    depositall;
    if findmsdtm(x,y,rawlobster)then
    begin
      mouse(x,y,5,5,false);
      popup('All');
      Banks:=Banks+1;
      Players[CurrentPlayer].Banked:=Players[CurrentPlayer].Banked+1;
      Players[CurrentPlayer].loc:='topfloor';
    end else
    begin
      mouse(480,35,15,15,true);
      mylogout(false);
    end;
  end;
end;

//*************************************************************************//
//
//                               Main EventLoop
//
//*************************************************************************//
begin
  Setup;
  activateclient;
  repeat
    marktime(mainmark);
    repeat
      if (not loggedin) then
      begin
        if findaplayer = -1 then
        begin
          repeat
            wait(5000);
          until(findaplayer = (not -1));
        end;
        players[findaplayer].active := true;
        //lowestworld(true);
        randomnextplayer(true);
      end;
    until(loggedin);
    if lumspawn then
    begin
      lumtorange;
      if not loggedin then mylogout(true);
      WalkTobankfromrange(false);
      if not loggedin then mylogout(true);
      bank;
      if not loggedin then mylogout(true);
      frombanktorange;
      repeat
        if not loggedin then mylogout(true);
        WalkTobankfromrange(true);
        if not loggedin then mylogout(true);
        bank;
        if not loggedin then mylogout(true);
        frombanktorange;
      until((players[currentplayer].active = true)or (not loggedin));
    end;
  until(false);
end.

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

Looks pretty good.

I'll have to re-read it tomorrow before I vote, though.

    if lumspawn then
    begin
      lumtorange;
      if not loggedin then mylogout(true);
      WalkTobankfromrange(false);
      if not loggedin then mylogout(true);
      bank;
      if not loggedin then mylogout(true);
      frombanktorange;
      repeat
        if not loggedin then mylogout(true);
        WalkTobankfromrange(true);
        if not loggedin then mylogout(true);
        bank;
        if not loggedin then mylogout(true);
        frombanktorange;

I'll give you a yes. However, this part is kind of terrible :p

lol yea i found that it waits around 5 mins before switching plays sometimes right before i made this post and i was to anxious to fix it properly ill probably change it next time i start cooking lobs although i just finished my current batch so i probably wont do it for a week or so
but thanks for the yes anyways

Dangit, I cant decide, I'll vote later.

Oh? But it's 2-yes and 0-no…who else voted?

wow del thanks for cediting that you have not been at my community (even though its closed atm)

I think your good enough for srl member.

Wait, I don't understand what you just said Dark…

he use to be a member over at my forums for scar…

o sry i 4got darksniper your name you also are the one the told me about srl-forums thanks alot

I'm gunna vote yes but there just one wee thing that annoys me. In functions that return booleans result:=false is not needed. It is false by default and will stay false untill you assign it to true. Other than that good job.

It's a good practice to get into.

When you get into integer/other functions, things can get funky.

Hmm.. it looks okay, I say yes.

thanks for the advice and also the yeses (wow yeses is actually a word hmm)

i say yes, except for some little things it looks decent

Welcome del_signo.