SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge


Other Communitys
Fagex

How Long have You Played Runescape
2 years

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

I have been an avid RuneScape player for 2 years, and since I started, I have always looked for new ways to advance my levels in easier ways. At first, I would just use programs such as Sap's High Alcher, but then I was introduced to SCAR. I learned about SCAR when I visited websites that were advertising SCAR scripts, and I was interested to hear about a new way of autoing. When I had finally set up SCAR, I tried to run some scripts. Unfortunately for me, because of my minimal experience with SCAR, I had chosen outdated scripts and they failed to work at all. This sparked an interest with me, because I was already moderately skilled at programming my TI-84 calculator, I decided to try my hand at SCAR. After a few months, I was able to program my own SCAR scripts with the latest version of SRL and SCAR. I heard this site mentioned while I was a member at Fagex, and I decided that I would be interested in viewing more recent scripts, since SRL was said to be a most reliable website with actual working scripts. I haven't been a member of SRl-Forums for very long, but I think that I have enough experience at SCAR to be a valuable member.

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

{.Script Info:
# ScriptName  = DeXtImA's Flax Spinner
# Author      = DeXtImA
# Description = Spins flax into bowstrings
# Version     = 2.0
# Date        = 11/29/07
# Comments    = Start Spinning!
/Script Info}

Program DeXFlaxSpinner;

{.include Srl/Srl.scar}

//V1.0 Script written
//V1.1 Fixed script so it continues to spin after randoms, added SRL
//V2.0 Tidied up many errors with SRL, as well as the overall script

///////////////////////////////////////////////////
///////////////////Instructions////////////////////
//1) Fill out the DeXSetup: lines 23-37.         //
//2) Fill out the DeclarePlayers Procedure.      //
//3) Select the RuneScape window.                //
//4) Press Play or Ctrl+Alt+R to run the script. //
//5) Press the Stop or Ctrl+Alt+S to stop.       //
////////////////End of Instructions////////////////
///////////////////////////////////////////////////

Var
X, Y, TotalDone, NLock, WaitTime, LadderColor, NPCTalks, SpinningWheel: Integer;
DeXLevels: Integer;

RandomFound : Boolean;

Const
//////////////////////////////
///////////DeXSetup///////////
////////MiniMap Colors////////    {May not be necessary to set!}
BankColor1= 195836;               //Color of the NPC in the bank
BankColor2= 62965;                //Secondary bank color
//////GameScreen Colors///////
Wheel1= 1004153;                  //Color of the GameScreen spinning wheel
Wheel2= 1204622;                  //Secondary spinning wheel color
FlaxColor= 12499544;              //Color of the flax in your inventory
StringColor= 5731713;             //Color of the bowstring in your inventory
////////Extra Options/////////    {May not be necessary to set!}
Flax = 206;                       // how many flax to do.
LogOutWhenDone = True;            //Log out when finished or not
UseDeXAntiBan = False;            //May cause problems with randoms
/////////End of Setup/////////
//////////////////////////////

////////////////////////////////////////
//Procedure DeclarePlayers            //
//Details: Sets up your player for SRL//
////////////////////////////////////////
Procedure DeclarePlayers;
begin
  SRLID := '';
  SRLPassword := '';
  HowManyPlayers := 1;//How many players you want
  CurrentPlayer := 0;//Current player
  NumberOfPlayers(HowManyPlayers);

  Players[0].Name := 'YourUsername';//Username of your character
  Players[0].Pass := 'Password';//Password of your character
  Players[0].Nick := 'nickname';//A few letters from your name, no capitals!
  Players[0].Skill:='crafting';// Enter the skill you want to use for genie lamps
  Players[0].Pin := 1234;// Enter your bank pin, if you have one.
  Players[0].Active := True;

  CheckUserNicks;
end;

///////////////////////////////////
//Procedure LoginWhich by Pwnaz0r//
//Details: Starts up the script  //
///////////////////////////////////
Procedure LoginWhich(Player: integer);
Begin
  if LoggedIn then exit;
  if Players[Player].Active = false then
  begin
    writeln('Changing player to active...');
    Players[Player].Active:= true;
  end;
  CurrentPlayer:= Player;
  LoginPlayer;
End;

procedure Loc(where: string);
begin
  Players[CurrentPlayer].Loc:= where;
  Players[CurrentPlayer].Rand:= where;
end;

procedure PlayerSetup;
begin
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  Players[CurrentPlayer].Integers[1] := 0;
  LampSkill := (Players[CurrentPlayer].Skill);
end;

///////////////////////////////////////
//Procedure DeXReport by DeXtImA     //
//Details: Progress report by DeXtImA//
///////////////////////////////////////
Procedure DeXReport;
Begin
  ClearReport;
   AddToReport('DeXtImA''s Flax Spinner');
   AddToReport('Ran for '+TimeRunning);
   AddToReport('Flax Spun: '+IntToStr(Totaldone));
   AddToReport('Fights found: '+IntToStr(Fights));
   AddToReport('Talked to '+IntToStr(NPCTalks)+' NPC''s');
   AddToReport('Gained '+IntToStr(DeXLevels)+' levels');
End;

////////////////////////////////////////////////////////////////////
//Procedure Wt                                                    //
//Details: Useful waiting procedure, idea from Raatis's powerminer//
////////////////////////////////////////////////////////////////////
Procedure wt;
Begin
  wait(100+random(100));
End;

/////////////////////////////////////////////////////////////////
//Function CheckDoor by Vilon                                  //
//Details: Checks to see if a door is closed and opens if it is//
/////////////////////////////////////////////////////////////////
Function CheckDoor: Boolean;
var
  x, y, DoorMark, DoorTries: Integer;
begin
  if(not(LoggedIn))then  Exit;
  MarkTime(DoorMark);
  repeat
    Inc(DoorTries);
    if(FindObjCustom(x, y, ['oor'], [2772852], 20))then
    begin
      if(IsUpText('pen'))then
      begin
        Mouse(x, y, 5, 5, false);
        if(ChooseOption('Open'))then
        begin
          FFlag(0);
          Break;
          Result := True;
        end;
      end else if(IsUpText('los'))then
      begin
        Break;
      end;
    end;
  until((DoorTries = 5) or (TimeFromMark(DoorMark) > 3000));
end;

function SetupDTM(DTM : string): Integer;
begin
  case LowerCase(DTM) of
    'door'      : begin
                    Result := DTMFromString('78DA637CC8C0C0D0C400064C108A21C7539D8' +
                           '11F483342F98C9780443301353F814423AA9A0C773554351780C4' +
                           '6A5435813E3EA86A4E01095D5435217E7E98E65C2260CE6990207' +
                           'E35007C4B1020');
                  end;
  end;
end;

procedure FindCheckDoor;
var
  x, y, DoorDTM: Integer;
  Angle: Extended;
begin
  DoorDTM := SetupDTM('door');
  if(not(FindDTMRotated(DoorDTM, x, y, MSX1, MSY1, MSX2, MSY2, -0.7, 0.7, 0.01, Angle)))then  CheckDoor;
  FreeDTM(DoorDTM);
end;

///////////////////////////////////////////////////////////////
//Procedure ToSpinningWheel1 by DeXtImA                      //
//Details: Same as ToSpinningWheel, this one is for AntiFight//
///////////////////////////////////////////////////////////////
Procedure ToSpinningWheel1;
begin
  If(FindColorSpiralTolerance(x,y,LadderColor,571,86,711,152,5))then
  begin
    Mouse(x,y,3,3,true);
    Flag;
    Wait(500+random(50));
  end;
  repeat
    Wait(50);
  Until(FindColorSpiralTolerance(x,y,669778,3,148,515,337,5))or(FindColorSpiralTolerance(x,y,603213,3,148,515,337,5));
  if(FindObj(x,y,'Climb',66978,5))or(FindObj(x,y,'Climb',603213,5))then
  begin
    getmousepos(x,y);
    mouse(x,y,0,0,true)
    wait(600+random(250));
  end;
  repeat
    Wait(100+random(50));
  until(FindColorSpiralTolerance(x,y,SpinningWheel,575,5,705,155,10))
  If(FindColorSpiralTolerance(x,y,SpinningWheel,575,5,705,155,10))then
  begin
    Mouse(x,y,3,3,true);
    Flag;
    Wait(200+random(50));
  end;
end;

///////////////////////////////////////////////////////
//Procedure DeXAntiBan by DeXtImA                    //
//Details: Perfoms various anti-ban procedures by SRL//
///////////////////////////////////////////////////////
Procedure DeXAntiBan;
Begin
 X:=Random(100);
  case X of
   1 : begin
        HoverSkill('crafting',false);
        GameTab(4);
       end;
   2 : PickupMouse;
   3 : begin
         RandomMovement;
         PerfectNorth;
         HighestAngle;
       end;
   4 : begin
         RandomMovement;
         PerfectNorth;
         HighestAngle;
       end;
  end;
End;

///////////////////////////////////////////////////////
//Procedure DeXRun by DeXtImA                        //
//Details: A procedure that goes along with FindFight//
///////////////////////////////////////////////////////
Procedure DeXRun;
Begin
  Repeat
    If(FindColorSpiralTolerance(x,y,LadderColor,571,86,711,152,5))then
    begin
      Mouse(x,y,3,3,true);
      Flag;
      Wait(200+random(50));
    end;
  Until(FindColorSpiralTolerance(x,y,803168,3,4,514,339,5))or(FindColorSpiralTolerance(x,y,603213,3,4,514,339,5))
  If(FindObj(x,y,'Climb',803168,5))or(FindObj(x,y,'Climb',603213,5))then
  begin
    getmousepos(x,y);
    mouse(x,y,0,0,false)
    wait(600+random(250));
    ClickOption('Climb-up',1);
    Wait(1000+random(50));
  end;
  Repeat
    Wait(100+random(50));
  Until(FindColorSpiralTolerance(x,y,BankColor1,575,5,705,155,5))or(FindColorSpiralTolerance(x,y,BankColor2,575,5,705,155,5))
  Mouse(643+random(2),10+random(1),3,3,True);
  Wait(2000+random(500));
  Flag;
  Mouse(649+random(2),158+random(1),3,3,True);
  Wait(2000+random(500));
  Flag;
  ToSpinningWheel1;
end;

////////////////////////////////////////////////////////////////////////////
//Function HandleRandoms by DeXtImA                                       //
//Details: Handles all the randoms using SRL functions, returns true if it//
//         finds one.                                                     //
////////////////////////////////////////////////////////////////////////////
Procedure HandleRandoms;
Begin
  RandomFound := False;
  If(ClickToContinue)then
    RandomFound := True;
  If(FindNonInventoryRandoms)then
    RandomFound := True;
  If(FindFight)then
  begin
    DeXRun;
    RandomFound := True;
    Fights := Fights+1;
  end;
  If(FindTalk)then
  begin
    RandomFound := True;
    NPCTalks := NPCTalks+1;
  end;
  If(UseDeXAntiBan)then
    DeXAntiBan;
  DeXReport;
End;

///////////////////////////////////////////////////////////////////////////////
//Procedure WithdrawFlax by DeXtImA                                          //
//Details: Withdraws flax from the bank if it finds it in the top left corner//
///////////////////////////////////////////////////////////////////////////////
Procedure WithdrawFlax;
begin
  If(not(FindColorSpiralTolerance(x,y,FlaxColor,69,59,113,92,10)))then
    OpenBank('lb',false,false);
  Repeat
    Wait(1000+random(200));
    OpenBank('lb',false,false);
  Until(BankScreen)or(PinScreen);
  if(PinScreen)then  InPin(IntToStr(Players[CurrentPlayer].Pin));
  If(not(FindColorSpiralTolerance(x,y,FlaxColor,69,59,113,92,10)))then
    FixBank;
  If(FindColorSpiralTolerance(x,y,FlaxColor,69,59,113,92,10))then
  begin
    Status('Withdrawing flax...');
    Wait(200+random(50));
    Mouse(x,y,3,3,false);
    Wait(10+random(30));
    ClickOption('All',1);
    Wait(100+random(50));
  end;
  CloseBank;
End;

//////////////////////////////////////////////////////
//Procedure ToSpinningWheel by DeXtImA              //
//Details: Walks to the spinning wheel from the bank//
//////////////////////////////////////////////////////
Procedure ToSpinningWheel;
Begin
  WaitTime:=0;
  Status('Walking to the spinning wheel...');
  SetRun(True);
  GameTab(4);
  If(FindColorSpiralTolerance(x,y,LadderColor,571,86,711,152,20))then
  begin
    Mouse(x,y,3,3,true);
    Flag;
    Wait(500+random(50));
  end;
  Repeat
    Wait(50);
  Until(FindColorSpiralTolerance(x,y,669778,3,148,515,337,5))or(FindColorSpiralTolerance(x,y,603213,3,148,515,337,5));
  If(FindColorSpiralTolerance(x,y,669778,3,148,515,337,5))or(FindColorSpiralTolerance(x,y,603213,3,148,515,337,5))then
  if(FindObj(x,y,'Climb',66978,10))or(FindObj(x,y,'Climb',603213,10))then
  begin
    getmousepos(x,y);
    mouse(x,y,0,0,true)
    wait(4000+random(250));
  end;
  Repeat
    SpinningWheel:=GetSymbolColor(x,y,'spin');
  Until(FindColorSpiralTolerance(x,y,SpinningWheel,575,5,705,155,10))
  If(FindColorSpiralTolerance(x,y,SpinningWheel,575,5,705,155,10))then
  begin
    Mouse(x,y,3,3,true);
    Flag;
    Wait(200+random(50));
  end;
End;

//////////////////////////////////////////////////////////////////////////////
//Procedure SpinFlax by DeXtImA                                             //
//Details: Spins flax. If it finds a random, it deals with it and returns to//
//         spinning.                                                        //
//////////////////////////////////////////////////////////////////////////////
Procedure SpinFlax;
begin
 Status('Spinning flax...');
  Repeat
   If(FindObj(x,y,'Spin',Wheel1,5))or(FindObj(x,y,'Spin',Wheel2,5))then
   begin
     getmousepos(x,y);
     mouse(x,y,0,0,true)
     wait(1000+random(500))
   end else
   begin
     If(FindColorSpiralTolerance(x,y,SpinningWheel,575,5,705,155,10))then
     begin
       Mouse(x,y,3,3,true);
       Flag;
       Wait(1000+random(50));
     end;
   end;
  Until(FindColorSpiralTolerance(x,y,52224,234,131,296,157,5));
  Repeat
    Wait(100+random(50));
  Until(FindColorSpiralTolerance(x,y,52224,234,131,296,157,5));
  If(FindColorSpiralTolerance(x,y,52224,234,131,296,157,5))then
  begin
    Mouse(x,y,3,3,False);
    Wait(200+random(50));
    ClickOption('All',1);
    Wait(200+random(50));
  end;
  Repeat
    HandleRandoms;
    WaitTime:=WaitTime+1/10;
    If(RandomFound)then
      SpinFlax;
  Until(not(FindColorSpiralTolerance(x,y,FlaxColor,552,207,731,457,5))or(WaitTime>300));
end;

//////////////////////////////////////////////////////
//Procedure ToBank by DeXtImA                       //
//Details: Walks to the bank from the spinning wheel//
//////////////////////////////////////////////////////

Procedure ToBank;
begin
 Status('Walking to the bank...');
  Repeat
    If(FindColorSpiralTolerance(x,y,LadderColor,571,86,711,152,5))then
    begin
      Mouse(x,y,3,3,true);
      Flag;
      FindCheckDoor;
      If(CheckDoor)then
        ToBank;
      Wait(200+random(50));
    end;
  Until(FindColorSpiralTolerance(x,y,803168,3,4,514,339,5))or(FindColorSpiralTolerance(x,y,603213,3,4,514,339,5))
  If(FindObj(x,y,'Climb',803168,5))or(FindObj(x,y,'Climb',603213,5))then
  begin
    getmousepos(x,y);
    mouse(x,y,0,0,false)
    wait(50+random(50));
    ClickOption('limb-up',1);
    Wait(1000+random(50));
  end;
  Repeat
    Wait(100+random(50));
  Until(FindColorSpiralTolerance(x,y,BankColor1,644,27,669,45,5))or(FindColorSpiralTolerance(x,y,BankColor2,644,27,669,45,5))
  Wait(1000+random(500));
  Repeat
    If(FindColorSpiralTolerance(x,y,BankColor1,575,5,705,155,5))or(FindColorSpiralTolerance(x,y,BankColor1,575,5,705,155,5))then
    begin
      Mouse(x+3,y+4,3,3,True);
      Flag;
      Wait(200+random(50));
    end;
    OpenBank('lb',false,false);
  Until((BankScreen)or(PinScreen));
  OpenBank('lb',false,false);
  Repeat
    If(FindColorSpiralTolerance(x,y,BankColor1,575,5,705,155,5))or(FindColorSpiralTolerance(x,y,BankColor1,575,5,705,155,5))then
    begin
      Mouse(x+3,y+4,3,3,True);
      Flag;
      Wait(200+random(50));
    end;
    Wait(1000+random(200));
    Openbank('lb',false,false);
  Until(BankScreen)or(PinScreen);
  if(PinScreen)then  InPin(IntToStr(Players[CurrentPlayer].Pin));
  If(FindColorSpiralTolerance(x,y,StringColor,549,208,733,461,10))then
  begin
    Status('Storing bow strings')
    Mouse(x,y,3,3,False);
    Wait(500+random(50));
    ClickOption('All',2);
    Wait(200+random(50));
  end;
  TotalDone := TotalDone + 28;
end;

/////////////////////////////////////////////////////////////////////////
//Procedure DeXSetup by DeXtImA                                        //
//Details: Sets up the script for my flax spinner, getting colors, etc.//
/////////////////////////////////////////////////////////////////////////
Procedure DeXSetup;
Begin
  ClearReport;
  ClearDebug;
  SetupSrl;
  ScriptID := '521';
  LoadSymbolBitmapColor('spin');
  Writeln('DDDDDDDDD   EEEEEEEEEE XX       XX TTTTTTTTTT IIIIIIIIII  MM    MM      AAA'); Wt;
  Writeln(' DD     DD   EE         XX     XX  TT  TT  TT II  II  II MM M  M MM    AA AA'); Wt;
  Writeln(' DD     DD   EE          XX   XX   T   TT   T I   II   I MM  MM  MM   AA   AA'); Wt;
  Writeln(' DD     DD   EE           XX XX        TT         II     MM  MM  MM  AAAAAAAAA'); Wt;
  Writeln(' DD     DD   EEEEEEEE      XXX         TT         II     MM  MM  MM AAAAAAAAAAA'); Wt;
  Writeln(' DD     DD   E            XX XX        TT         II     MM  MM  MM AA       AA'); Wt;
  Writeln(' DD     DD   EE          XX   XX       TT     I   II   I MM  MM  MM AA       AA'); Wt;
  Writeln(' DD     DD   EE         XX     XX      TT     II  II  II MM      MM AA       AA'); Wt;
  Writeln('DDDDDDDDD   EEEEEEEEEE XX       XX    TTTT    IIIIIIIIII MM      MM AA       AA');
  DeclarePlayers;
  PlayerSetup;
  if not FindRS then
  begin
    writeln('Could not find Runescape');
    TerminateScript;
  end;
  if not LoggedIn then LoginWhich(CurrentPlayer);
  SendArrowSilentWait(0,700+random(200));
  PerfectNorth;
  LadderColor:=FindLadderColor;
  SetRun(True);
End;

///////////////////////////
//DeXtImA's Flax Spinner //
//Here, The Magic Begins!//
///////////////////////////
Begin
  DeXSetup;
begin
  Repeat
    WithdrawFlax;
    HandleRandoms;
    ToSpinningWheel;
    HandleRandoms;
    SpinFlax;
    HandleRandoms;
    ToBank;
  Until(TotalDone >= Flax);
end;

  if(LogOutWhenDone)then
  begin
    CloseBank;
    LogOut;
    Writeln('Thank you for using DeXtImA''s Flax Spinner V2.0!');
  end;

End.

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

Are you dextima at Fagex?

And if you are… why change your name?

I say go ahead and close it if he doesn't answer within the day.

From: JackLKrawl
I say go ahead and close it if he doesn't answer within the day.

Hey, maybe he posted before he went to bed…

Over four hours ago, while he was still online? I waited until he signed off. He just posted it and left to look at other stuff on the site, and never bothered to look back. Sounds funky to me.

lolzerz im not one to talk but,,, work on your standards =p…

His standards are fine :p

I don't like your activity and number of posts related to longevity. We hate it when people become members and just leave. Holding my vote for now.

From: footballjds
lolzerz im not one to talk but,,, work on your standards =p…

His standards are fine

I don't like your activity and number of posts related to longevity. We hate it when people become members and just leave. Holding my vote for now.

Script is good, but I'll do like Santa…holding my vote…Maybe someone veryfies who he is in fagex…?!

Edit: No : postcount/activity/longevity

Maybe someone veryfies who he is in fagex…?!

Can't be confirmed that he is some deXtima, Fagex.net just gives a white page with sans serif saying "forwarding…" but doesn't do anything.


Anyways, even if he was, sorry but he isn't going to get in.

a) No multiplayer
b) Contains endless loops - no failsafes.

Also, why use "SetUpDTM" if only one DTM exists there?


Read this post carefully, you need to fulfill those requirements to get into SRL Members.

Thank you for your interest, pseudoclosed.

probably should add auto color… no one likes to use a color picker anymore. they like to hit play and watch TV/Sleep.:rolleyes:
also your longevity/post count/activity isn't very high.
also no multi player. sorry but, a no from me :(

Lol autocoloring is hard football :) . I say just set the colors before hand to save some time. Or include them in the script thats what most scrpters no adays use :p

I don't think I like this guy much. Almost 12 hours since his last post on his own application?
I'm going to wait a while, but after that its a 90 percent chance of a no.

From: JackLKrawl
I don't think I like this guy much. Almost 12 hours since his last post on his own application?
I'm going to wait a while, but after that its a 90 percent chance of a no.

alot of people have more to do then go on the computer…

also since he said he was southernprep or what ever on fagex, i am guessing this was copied…

From: oliver1205
alot of people have more to do then go on the computer…

also since he said he was southernprep or what ever on fagex, i am guessing this was copied…

Where does he say hes southernprep on fagex? And when you're posting an application, usually you tend to watch it a lot more. This guy hasn't even been online.

sometimes people also lose the links to their apps >.> but n3ss3s ir right no multiplayer. and until new decision because of the update multiplayer is really a must, not like some other things that aren't a must but give you a bigger chance of getting in.

~RM

From: NaumanAkhlaq
Lol autocoloring is hard football :) . I say just set the colors before hand to save some time. Or include them in the script thats what most scrpters no adays use :p

auto color hard? its easy peasy…..!

function AutoColorWhatEverYouWANT! : integer;
begin
  for I := 0 to 15 do
  begin
    if FindColorTolerance(x, y, SomColorThatYouPickedOnce, MSX1, MSY1, MSX2, MSY2, I) then break;
  end;
  if I >= 15 then 
    Writeln('w/e you wana do because you didn''t find it...');
  else
    Result := GetColor(x, y);
end;

usage:

if FindObjCustom(['w/e the text is'], [AutoColorWhatEverYouWANT!]); //<-- you get the point.

I'm afraid you're not going to make it this time.
Read some tutorials, learn and reaplly in one month :)