Results 1 to 13 of 13

Thread: EdgeVille Cooker V.10Beta

  1. #1
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default EdgeVille Cooker V.10Beta

    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


    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!

    SCAR Code:
    { //-------------------------------------------------------------\\
      ||                         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.


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Sweet! I might be using this if I ever get some fish (and start playing runescape again). Good job...
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    Apr 2007
    Location
    Adelaide, Australia
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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.
    Are YOU into things to do with gaming consoles, glitches, mods or just meeting new people?
    Join Se7ensins and learn how to do the above!
    http://www.fenjer.com/adnan/SRLStats/824.png

  4. #4
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

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


    ~kooldude


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

  5. #5
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by Tazzie 02 View Post
    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

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  6. #6
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey looks pretty good.. add some fail safes/fail proofs to make it even better, and why do you have this line
    SCAR Code:
    MyName    ='';  //Change To Your Character name
    since you dont use it anywhere... and you just would need to do
    SCAR Code:
    Players[CurrentPlayer].Name
    if you needed the name anywhere... but good script

  7. #7
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Pwnt, weren't you a member before...or am I wrong?
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  8. #8
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  9. #9
    Join Date
    Jul 2007
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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

  10. #10
    Join Date
    Jul 2007
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default tested

    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 ??

  11. #11
    Join Date
    Jul 2007
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by hardman View Post
    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.

  12. #12
    Join Date
    Mar 2007
    Posts
    276
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    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


    Someone: 'Who the hell is TooManySitUps?'

    Boreas: 'Switch the first and last letter of my name, what do you get?'

    Someone: 'Um, SoreAb?'

    Boreas: 'And how do you get that?'

    Someone: 'From Too Many Sit Ups!! Haha, Boreas you are so clever!'

    Boreas: 'Ya he's like my evil twin that takes over when I'm being really sarcastic, or playing devil's advocate.'

  13. #13
    Join Date
    Jun 2007
    Location
    Hell Stream
    Posts
    584
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Working Monkfish Cooker In Edgeville
    By Why2u in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 12-11-2007, 04:17 AM
  2. Rayz EdgeVille Cooker. help
    By kooldude in forum OSR Help
    Replies: 1
    Last Post: 06-03-2007, 07:59 PM
  3. Working Edgeville/Al kharid cooker.
    By igotgrapes in forum RS3 Outdated / Broken Scripts
    Replies: 5
    Last Post: 06-01-2007, 12:11 AM
  4. Members edgeville or something cooker!!
    By The_owner in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 04-29-2007, 10:52 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •