SRL Archive - Archive

////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
////////////////////I would like to say thank to Pvh for////////////////////////
///////////////////helping me get started with this script//////////////////////
////////////////////////////////////////////////////////////////////////////////
//                        SET UP LINES 27-42                                  //
////////////////////////////////////////////////////////////////////////////////
////////////////ONLY RUNS FROM LOW LEVEL FOR BANKING ATM////////////////////////
////////////////NEED SOME HELP WITH GETTING TO THE BANK/////////////////////////
////////////////////////////////////////////////////////////////////////////////

program eatlob;
{.include SRL/SRL.scar}
{.include srl/srl/skill/prayer.scar}
{.include srl/srl/skill/Magic.scar}

const               //choose a F key for the following//
                   //example 1=F1  2=F2 3=F3....12=F12//
   ClanName = 'NameHere';//choose you clan name
     MSpeed = 12;//This controls how fast your mouse moves
     Locate = 0;//Bounty locate spell
     SpecOn = 0;//Special attack
        Eat = 0;//Eat a lobster
        Pot = 0;//Drink a str pot
         CC = 0;//Joins clan chat after setting up line 88
      Range = 0;//Turns ON-OFF ur eagle eye prayer
        Str = 0;//Turns ON-OFF Ultimate str and Incredible reflex prayer
      Use2h = 2;//Switches to R2h and back must be in first invo slot for now
     Banker = 1;//Runs bank deposits all takes out wat you set
                   //THIS PART BELLOW IS FOR BANKING//
C1= 1; R1= 1; Lobbies = 24;//This takes 24 lobs out of first bank slot
    Bcolor1 = 7380133;//Get new banker for here
    Bcolor2 = 4678505;//failesafe colour make dif from Bcolor1
var
//These are for my DTM's
DrinkStrPotDTM, CookedLobsterDTM, x,y, RScimmyDTM, R2HDTM, RBAxeDTM:integer;

//This is for my proggie
Kills : integer;//reports how many kills you got
DosesDrank : Integer;//Reports how many pot doses drank
Ate : Integer;//Reports how many lobs you ate
Target : Integer;//Reports how many you used BH Locate
Died : integer;//Reports how many times you died lol
Special, spam : Integer;//Reports how many spec attack you used


//Took this out of Srl Includes Credits to Tarajunky
//This Is His FindRoadColor Function Thanks man if you read this

function FindBhRoadColor: Integer;
var
  GC, a, l, TestColor, Red, Green, Blue : integer;
var
  P:array of Tpoint;
begin
  GC := 5069664;
  Flag;
  FindColorsSpiralTolerance(MMCX, MMCY, P, GC, MMX1, MMY1, MMX2, MMY2, 60);
  l:=GetArrayLength(P);
  for a:= 0 to l-1 do
  begin
    if rs_OnMinimap(P[a].x,P[a].y) then
    begin
      TestColor := GetColor(P[a].x,P[a].y);
      if SimilarColors(TestColor,GC,60) then
      begin
        red := (TestColor mod 256);
        green := ((TestColor / 256) mod 256);
        blue := ((TestColor / 256) / 256);
        if Red - Green <= 10 then if Red - Green >= 5 then
          if Red - Blue <= 10 then if Red - Blue >= 5 then
            if GetColor(P[a].x + 5, P[a].y + 5) = TestColor then
              if GetColor(P[a].x + 3, P[a].y + 3) = TestColor then
                if GetColor(P[a].x, P[a].y + 5) = TestColor then
                  if GetColor(P[a].x + 5, P[a].y) = TestColor then
                    if GetColor(P[a].x, P[a].y + 3) = TestColor then
                      if GetColor(P[a].x + 3, P[a].y) = TestColor then
                        if GetColor(P[a].x + 5, P[a].y + 3) = TestColor then
                          if GetColor(P[a].x + 3, P[a].y + 5) = TestColor then
                          begin
                            Result := TestColor;
                            RoadColor := TestColor;
                            WriteLn('RoadColor = ' + IntToStr(TestColor));
                            Exit;
                          end;
      end;
    end;
  end;
  WriteLn('Could not find Road Color!');
  Result := 0;
end;


procedure Waiting;
  begin
        wait(1000 + random(500));
        MouseSpeed:=(MSpeed);
  end;
//This loads the the cooked lobster DTM//
procedure LoadDTM;
  begin
CookedLobsterDTM:= DTMFromString('78DA6314646060E06140013B9224182481342' +
       '310FF07020021C70567');
DrinkStrPotDTM:= DTMFromString('78DA63E463606090644001572E8580851881F' +
       '83F1000002E890639')
R2HDTM := DTMFromString('78DA63E4606060106640017E19C50C92409A1' +
       '188FF0301002019055C');
RScimmyDTM := DTMFromString('78DA63E4626060E06340010E61F10C92409A1' +
       '188FF0301001CBE0525');
RBAxeDTM := DTMFromString('78DA6364636060606540013601910C92409A1' +
       '188FF0301233F90C185AAC62E38064C3342F900E0810610');


end;
//Banking setup//
procedure RunBack;
  begin
    MakeCompass('n');
  if(RadialRoadWalk(FindBhRoadColor,180 ,270 , 72, 5, 5))then
  begin
    RadialRoadWalk(FindBhRoadColor,180 ,270 , 72, 5, 5)
  end;
end;

procedure Banking;
  begin
    MakeCompass('n');
    wait(1000);
  if(FindObjTPA(x, y, (Bcolor1),11,-1, 7, 7, 15, ['alk-to']))then
  begin
    Mouse(x,y,2,2,False);
    Wait(300);
    ChooseOption('ank');
    Wait(3500);
    DepositAll;
    WithDraw((C1),(R1),(Lobbies));
    CloseBank;
    GameTab(4);
    RunBack;
end else
  if not(FindObjTPA(x, y, (Bcolor1),11,-1, 7, 7, 15, ['alk-to']))then
  begin
    MakeCompass('e');
    wait(1000);
  if(FindObjTPA(x, y, (Bcolor2),11,-1, 7, 7, 15, ['alk-to']))then
  begin
    Mouse(x,y,2,2,False);
    Wait(300);
    ChooseOption('ank');
    wait(3500);
    DepositAll;
    WithDraw((C1),(R1),(Lobbies));
    CloseBank;
    GameTab(4);
    RunBack;
  end else
  if not(FindObjTPA(x, y, (Bcolor2),11,-1, 7, 7, 15, ['alk-to']))then
  begin
    Banking;
  end;
  end;
end;

//Running bank//
procedure RunBank;
  var rx,ry:integer;
  begin
    wait(300);
    MakeCompass('n');
    GameTab(11);
    SetRun(true);
  if(RadialRoadWalk(FindBhRoadColor,0 ,90 , 72, 5, 5))then
  begin
  if(RadialRoadWalk(FindBhRoadColor,0 ,90 , 72, 5, 5))then
  begin
    Banking;
  end;
  end;
end;

//This eats the lobster//
procedure EatLobster;
  begin
    GameTab(4);
  if (FindDTM(CookedLobsterDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    Mouse(x,y,5,5,true);
    writeln('Ate a cooked lobster!');
  end else
    writeln('You dont have a cooked lobster!');
    exit;
end;
procedure DrinkPot;
  begin
    GameTab(4);
  if (FindDTM(DrinkStrPotDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    wait(100)
    Mouse(x,y,5,5,true);
    MMouse(285,182,5,5);
    writeln('You drank a str pot!');
  end else
    writeln('You dont have a str pot');
    FreeDTM;
    exit;
end;

//This joins a CLanChat of you choice//
procedure JoinCC;
  begin
    GameTab(10)
    Mouse(593,442,2,2,true);
    wait(100)
    TypeSend(ClanName); //This is for the clan chat
    MMouse(285,182,5,5);
end;

//This used the bounty locate spell//
procedure BhLocate;
  begin
    GameTab(7);
    Mouse(691,285,2,2,true);
    MMouse(285,182,5,5);
end;
       
//This turns ULT STR and INC REFLEX on//
procedure StrPrayerOnOff;
  begin
    GameTab(6);
    Mouse(718,305,2,2,true);
    wait(50)
    Mouse(569,339,2,2,true);
    MMouse(285,182,5,5);
  end;

//This turns ur spec on//
procedure SpecAttack;
  begin
    GameTab(1);
    Mouse(609,422,1,1,true);
    MMouse(285,182,5,5);
end;


//Turns eagle eye ON or OFF//
procedure RangePrayerOnOff;
  begin
    GameTab(6);
    Mouse(568,377,2,2,true);
    MMouse(285,182,5,5);
end;
//Switches to r2h and back //
procedure R2h;
  begin
    GameTab(4);
  if (FindDTM(R2HDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    Mouse(x,y,5,5,true);
  if not(FindDTM(R2HDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
end else
  if (FindDTM(RScimmyDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
    Mouse(x,y,5,5,true);
end else
  if not(FindDTM(RScimmyDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
  begin
  if (FindDTM(RBAxeDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
    Mouse(x,y,5,5,true);
  end;
end;
//main loop
procedure Main;
  begin

//Ult str and incr reflex ON or OFF//
  if(IsfKeyDown(Str)) then
  begin
    GameTab(6)
    StrPrayerOnOff;
end else

//Walks bank deposits and witdraws//
  if(IsfKeyDown(Banker))then
  begin
    RunBank;
end else
//Eagle eye ON or OFF//
  if(IsfKeyDown(Range)) then
  begin
    RangePrayerOnOff;
end else
//Spec attack ON//
  if(IsfKeyDown(SpecOn)) then
  begin
    SpecAttack;
    Special :=Special + 1;//Adds a point to your spec'd
end else
//Bounty locate sepll//
  if(IsfKeyDown(Locate)) then
  begin
    BhLocate;
    Target :=Target + 1;//Adds a point to located
end else
//Join your ClanChat//
  if(IsfKeyDown(CC)) then
  begin
    JoinCC;
end else
//Eat a lobster//
  if(IsfKeyDown(Eat)) then
  begin
    EatLobster;
    Ate :=Ate + 1;//Adds a point to lobs ate
end else
    Waiting;
//Drink a str pot//
  if(IsfKeyDown(Pot)) then
  begin
    DrinkPot;
    DosesDrank :=DosesDrank + 1;//Adds a point to your potted
end else
//detects if you killed someone//
  if(FindBlackChatMessage('You catch a lobster'))then
  begin
    Kills :=Kills + 1;//Adds a point to your kills
end else
//Detects if you got owned lol//
  if(FindBlackChatMessage('You have been defeated'))then
  begin
    Died :=Died + 1;//Adds a point to death's
end else
//Switch to r2h adn back//
  if(IsfKeyDown(Use2h))then
  begin
    R2h;
  end;
end;
procedure Prog;
  begin
    Writeln('[]-------------------------------------------[]');
    Writeln('Killed : ' + IntToStr(Kills) + '   Noobs');
    Writeln('Drank : ' + IntToStr(DosesDrank) + '    str doses');
    Writeln('Ate : ' + IntToStr(Ate) + '    lobs');
    Writeln('Target : ' + IntToStr(Target));
    Writeln('Special : ' + IntToStr(Special));
    Writeln('You Died : ' + IntToStr(Died) + '   Times owned lol');
    Writeln('[]--------------------------------------------[]');
end;

  begin
    LoadDTM;
    activateclient;
  repeat
    main;
    spam := spam + 1;
     if spam  = 5 then
  begin
    ClearDebug;
    prog;
    spam:= 0;
  end;
  until(false)
end.

no

to simple sorry, try something that has walking or a script that is a little more complex

u have a good attitude thats always a good thing also keep the new ideas coming and make some good scripts in the near future

No, to basic

I agree with above, and learn standards and better ways to click stuff.

Good luck in 1 month.

No, sorry your standards are off and most of what you have are basic DTM finding…

1:

if(RadialRoadWalk(FindBhRoadColor,180 ,270 , 72, 99, 99))then
     begin
        RadialRoadWalk(FindBhRoadColor,180 ,270 , 72, 99, 99)
     end;

Why not just…

if(RadialRoadWalk(FindBhRoadColor,180 ,270 , 72, 99, 99))then
  RadialRoadWalk(FindBhRoadColor,180 ,270 , 72, 99, 99)

2: Standards are hecka off….

procedure Banking;
begin
        MakeCompass('n');  //Since when do you have 5-6 spaces after a "begin".
        wait(1000);

3: This would not work….

   end else
        writeln('You dont have a cooked lobster!');
        exit;

It should be…

end else
  begin
    writeln('You dont have a cooked lobster!');
    Exit;
   end;
//rest of script

I have seen this quite a lot throughout your script. I thought I had already told you about this and your standards problem in the "first script" section? You OBVIOUSLY have not shown improvement in listening to what I had to say….

3:
Even if you already had a "main loop" procedure shouldn't you think of putting something a little more into the actual main loop. And for the love of god at least keep this part a BIT clean….:/.

begin
        LoadDTM;
        activateclient;
     repeat
        main;
        spam := spam + 1;
     if spam  = 5 then
     begin
        ClearDebug;
        prog;
        spam:= 0;      //Everything in this whole section needs a LOT of work.
     end;
  until(false)
end.

IMO I think you definitely needa step it up next application. You need to listen to what other members tell to you. I find it suprising that you STILL did not clean up your standards and your script appeal after so many people told you to make it look better. EVEN FOR AN APPLICATION :O. Better luck next time.

I'm sorry if I seem harsh, but this is my idea of constructive criticism and it's how you will get better. Hell if you want I'll give you my MSN so I can help you out as much as possible.

freakymonkey is right on. No from me. as explained by freakymonkey.

@ freakymonkey: good explaination of what CRU1Z1N did incorrectly. Thumb up.

i vote no. why?

well.. pretty much as said above, come again in a month please ;)

sorry, a no, not good enough yet :(

What factors do you need:

• DTMs / DDTMs
• Decent complex working script.
• FailSafes
• MultiPlayer
• Break out of potential endless loops
• Standards! Required to get people read your script.
• RadialWalk / DDTM Walking

if you allready have some points don't mind them :)


How do we judge it?

looking at the code, standaards. and whe imagen if it's working yes or no.


How many lines of code do you need

I would say 300+.
Make sure you got fail saves for evry possible option that could be going wrong.


well….

I hope this helped ya. good luck scripting!

I'm afraid you're not getting in this time.
You may try again in one month.
Good luck and closed.