SRL Archive - RS3 Outdated / Broken Scripts

EdgeVille Cooker V.10Beta

InStructions

Have All Raw Salmon And Trout In First 2 Slots., Or Just Visible on Top Of Bank

Set Colors.

Highest Brightness

POST PROGGIES AND BUGS!

This is only a Test version, I have not Tested much, only got DTMs, And Symbols

ERROR! LINE 180 CHANGE TO Clickoption('ancle',1)


There will Be A New UpDate Very Soon!

Making The Banking More Reliable.
And walking to the Stove.
And a better door finding procedure :D

THIS IS THE NEWEST VERSION!! THE LINK IS THE OLD VERSION

My Mom Changed The Pass To My Computer So I MAde A Guest So I Could Get On, I Cant Save Files Thats Why Its In Scar Tag!

{ //-------------------------------------------------------------\\
  ||                         INSTRUCTIONS                        ||
  ||-------------------------------------------------------------||
  ||        BY:  Kooldude                                        ||
  ||                                                             ||
  ||  1.Raw Salmon, Trout In 1st Bank Slot                       ||
  ||  2.Start In Edgeville Bank                                  ||
  ||  3.Setup Lines Are 30-38......                              ||
  ||  4.Drag Crosshair into RS window.                           ||
  ||  5.Hit play.                                                ||
  ||                                                             ||
  ||-------------------------------------------------------------||
  ||                          Credits                            ||
  ||                   YoHoJo - Helped Me Alot                   ||
  ||           Jad - Tuts, one of the coolest people             ||
  ||                        Srl Community                        ||
  ||                                                             ||
  \\-------------------------------------------------------------//
                                                                   }
program EdgeVilleCooker;
{.include srl/srl.scar}

var
  Tries: Integer;
  Fishy: Integer;
  TotalLoads: Integer;
  StartXp, EndXp, TotalXp: Integer;
  Stove: Integer;

const
  PinNumber ='';  //Your Pin Number
  Loadz     =2; //Less loadz, Means less randoms :P

{------------------------------}
{    Players                   }
{------------------------------}
procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //Number of PLAYERS. active or not.
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to start on.


    Players[0].Name :='';
    Players[0].Pass :='';
    Players[0].Nick :=''; //3-4 *Lower Case* Letters Of Username!
    Players[0].Active :=True;

      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;

{------------------------------}
{    DTMs/BitMaps              }
{------------------------------}
Procedure DtmBitMap;
begin
  Fishy := DTMFromString('78DA631461606010624001675DC519FE03694' +
       '620FE0F048C3240061B031A60442281B414901024A04614484811' +
       '50C30E244409A801B99713BF1A00EEA4070F');

  Stove := BitmapFromString(14, 11, 'z78DACD924B0AC0200C44AF9' +
       '48846BA37DEFF48153FEDA0E82A85BA1810E263322391FD61D290' +
       'AEA6B64C7229A6C0E546FEFFCC4156D9E7C0ACB164B5E8C127934' +
       '79D26E5E5B02B3355D1CF8E79D8489EC94603E798DE474CB166F6' +
       '0798493E75B4B639B4B730FF9C5C7DA26E3DCF6DE28E372D47B81' +
       '9');

end;

{------------------------------}
{    Declaring Arrays          }
{------------------------------}
var
DoorColor: Array [1..6] of Integer;
i: Integer;

Procedure DeclareDoorColors;
begin
  DoorColor[1] := 2122882;
  DoorColor[2] := 1724521;
  DoorColor[3] := 4542038;
  DoorColor[4] := 12354;
  DoorColor[5] := 2122882;
  DoorColor[6] := 2241596;
end;

{------------------------------}
{    Declaring Arrays          }
{------------------------------}
var
BankColorz: Array [1..5] of Integer;
l: Integer;

Procedure Bankcolors;
begin
  BankColorz[1] := 9281977;
  BankColorz[2] := 4408136;
  BankColorz[3] := 10065821;
  BankColorz[4] := 5929603;
  BankColorz[5] := 15461098;
end;
{------------------------------}
{    Walking To Stove          }
{------------------------------}
Procedure WalkingToStove;
begin
  if (not(LoggedIn)) then
  Exit;
  MakeCompass('W')
  HighestAngle;
  If FindSymbol(x,y,'water source')then
  Mouse(x,y,1,1,True)
  WriteLn('Walked To Water Symbol!')
  SetRun(true)
  Wait(4523 + Random(264));
  repeat
    MakeCompass('N')
    wait(572+random(104))
    Tries := Tries + 1
    if (Tries = 10)then
    begin
      Writeln('Could not find Cooking Symbol...');
      Exit;
    end;
  until (FindSymbol(x, y,'cookery'))
  begin
    Mouse(x,y,1,1,True)
    WriteLn('Walking To Stove')
    Wait(8000 + Random(421))
    LowestAngle;
    begin
      for i := 1 to 6 do
      begin
        if FindColorSpiralTolerance(x,y,DoorColor[i],MSX1,MSY1,MSX2,MSY2,2)then
        begin
          Mouse(x,y,0,1,True)
          FindSymbol(x,y,'Cookery')
          Mouse(x,y,0,0,True)
          HighestAngle;
          Break;
          end;
        end;
      end;
    end;
  end;

{------------------------------}
{       Cooking                }
{------------------------------}
Procedure Cooking;
begin
  begin
    GameTab(4)
    If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2) then
    Mouse(x,y,1,1,False)
    ClickOption('se',2)
  end;
  begin
    if FindColortolerance(x,y,924026,MSX1,MSY1,MSX2,MSY2,2)then
    if FindBitmap(Stove,x,y)then
    begin
      Mouse(x,y,1,1,True)
      ClickOption('x',3)
      Wait(244 +random(56))
      TypeSend('28')
      Writeln('Cooking Food')
      begin
        if not(LoggedIn)then Exit;
        case Random(6) of
        0 : PickupMouse;
        1 : IdleTime(9567 + Random(359),1000,1.0);
        2 : SleepAndMoveMouse(1343 + Random(2500));
        3 : RandomRClick;
        4 : AlmostLogout;
        5 : HoverSkill('Mining', false);
  end;
end;
      FindNormalRandoms;
    end;
  end;
end;

{------------------------------}
{       WalkingToBank          }
{------------------------------}
procedure BankWalking;
begin
  begin
    if(not(LoggedIn))then
    Exit;
    Wait(3000+random(342))
    if FindSymbol(x,y,'bank')then
    Mouse(x,y,1,1,True)
    Wait(6753+Random(1324))
    MakeCompass('W')
    If FindColor(x,y,62965,MMX1,MMY1,MMX2,MMY2)then
    Mouse(x,y,0,1,true)
    begin
      MakeCompass('E')
      Wait(3421 +Random(324))
      MakeCompass('N')
      If FindColortolerance(x,y,2914453,MSX1,MSY1,MSX2,MSY2,80)or
      FindColortolerance(x,y,9148054,MSX1,MSY1,MSX2,MSY2,80)or
      FindColortolerance(x,y,3158069,MSX1,MSY1,MSX2,MSY2,80)or
      FindColortolerance(x,y,8224896,MSX1,MSY1,MSX2,MSY2,80)then
      Mouse(x,y,1,1,False)
      Clickoption('ancle',1)
    end;
  end;
end;
{------------------------------}
{       WithDrawFood           }
{------------------------------}
Procedure Withdrawfood;
  begin
    LowestAngle;
    MakeCompass('E')
     for l := 1 to 6 do
    begin
      if FindColorSpiralTolerance(x,y,BankColorz[l],MSX1,MSY1,MSX2,MSY2,2)then
      begin
        Mouse(x,y,1,1,False);
        ClickOption('ank',1);
        Wait(3421+random(423))
        if (Pinscreen) then
        begin
          Status('Entering Pin Number...');
          wait(278+random(124));
          InPin(PinNumber);
        end;
        If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
          Mouse(x,y,1,1,False)
        if ClickOption('x',2)then
            TypeSend('28')
        TotalLoads:= TotalLoads + 1;
        If FindDTM(Fishy,x,y,MSX1,MSY1,MSX2,MSY2)then
          ClickOption('ll',1)
        CloseBank;
        MakeCompass('W');
        Break;
      end;
    end;
  end;

{------------------------------}
{       Getting Xp             }
{------------------------------}
Procedure Progress;
begin
  TotalLoads := 0
  gameTab(2)
      StartXP := GetXp('Cooking')
      EndXP := GetXp('Cooking')
      TotalXP := (EndXP - StartXP) + (TotalXP)
end;

{------------------------------}
{       Progress Report        }
{------------------------------}
Procedure Report;
Begin
  SRLRandomsReport;
  ClearDebug;
       Writeln('                       ___________                       ')
       Writeln('     _________________/Rayz Report\____________________  ')
       Writeln('    |==================================================| ')
       Writeln('    | Script Time: ' + (ScriptTime2(2)) +             '| ')
       Writeln('    | Loads Banked: ' + IntToStr (Totalloads) +       '| ')
       Writeln('    | XP Gained: ' + IntToStr (TotalXp) +             '| ')
       Writeln('    ==================================================== ')
end;


{------------------------------}
{       Responder              }
{------------------------------}
Procedure Respond;
var
lol, Name: Integer;

begin
  If FindChatText('lol')or
  FindChatText('LOL!')or
  FindChatText('ROFL')or
  FindChatText('LMAO') then
  Lol := Random (5)
    Case Lol of
      0 : TypeSend('ROLF')
      1 : TypeSend('lol')
      2 : TypeSend('Funny')
      3 : TypeSend('LMAO')
      4 : TypeSend('Ur Funny :)')
    end;
    If FindChatText(' '+IntToStr(Name))then
    Name := Random (3)
    case Name of
      0 : TypeSend('What?')
      1 : TypeSend('??..')
      2 : TypeSend('?')
    end;
end;
{------------------------------}
{       Siggy                  }
{------------------------------}
procedure Siggy;
begin
  ClearDebug;
  writeln(' Kooldudes EdgeVille Cooker!  ');
  writeln('   __   __                    ');
  writeln('  |  | /  /         _____     ');
  writeln('  |  |/  /         |   __|    ');
  writeln('  |     /          |  |__     ');
  writeln('  |     \          |   __|    ');
  writeln('  |  |\  \         |  |__     ');
  writeln('  |__| \__\ OOL DUD|_____|    ');
  wait(3000 + random(750));
end;

{------------------------------}
{       MainLoop               }
{------------------------------}

begin
  SetupSrl;
  Siggy;
  ActivateClient;
  repeat
    Progress;
    DeclareDoorColors;
    BankColors;
    WithDrawFood;
    WalkingtoStove;
    Cooking;
    BankWalking;
    Report;
    Until(false)
end.

Sweet! I might be using this if I ever get some fish (and start playing runescape again). Good job…

I need some salmon and trout first. All I have is shrimp and anchovis at the moment sorry. I will test when I have some though.

Yea, i havent tested this out yet, so there may be some bugs, Just post back some feebback when you can, Mayb a screen shot to :D

CHANGE LINE 180 to Clickoption('ancle',1)


~kooldude

From: Tazzie 02
I need some salmon and trout first. All I have is shrimp and anchovis at the moment sorry. I will test when I have some though.

HINT HINT use my barbarian fisher to get some :P

hey looks pretty good.. add some fail safes/fail proofs to make it even better, and why do you have this line

MyName    ='';  //Change To Your Character name

since you dont use it anywhere… and you just would need to do

Players[CurrentPlayer].Name

if you needed the name anywhere… but good script :)

Pwnt, weren't you a member before…or am I wrong?

lol I wish i was a member before :p lol im gonna apply again like in a week and i hope ill get in

Amazing your mom controls you when you know how to script….Crazy I cant wait to learn as soon as I get to test some fishers ill be sure to try this one out;)

i tested this script and all it does is move the mouse on the moving fire at the log in page what scar must i use ??

From: hardman
i tested this script and all it does is move the mouse on the moving fire at the log in page what scar must i use ??

You must start the script when you are logged in. When i first tried it, the mouse just stayed on the flames (as you said), then when I tried it logged in it worked.

There will be an update very Soon.
This script is out dated
And will not work fully Since the updates in runescape
Im hoping by Next week i can get the update in

I'll be waiting, hope you can try to include as much as possible multiple type of fish to cook…