Results 1 to 2 of 2

Thread: Rayz EdgeVille Cooker. help

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

    Default Rayz EdgeVille Cooker. help

    Ok, well im almost done with my Script, Very Easy Script, and not done yet.

    I have an error, If some1 could fix the small errors thatd be great

    DO NOT USE MY ANTI BAN. Make your own, akes 5 seconds to make.


    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
    May 2007
    Location
    Canada
    Posts
    261
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Your script didn't even compile. I fixed it for you convinience(sp), now it compiles
    SCAR Code:
    { //-------------------------------------------------------------\\
      ||                         INSTRUCTIONS                        ||
      ||-------------------------------------------------------------||
      ||        BY:  Kooldude                                        ||
      ||                                                             ||
      ||  1.Raw Shit In 1st Bank Slot                                ||
      ||  2.Start In Edgeville Bank                                  ||
      ||  3.Setup Lines Are 30-38......                                   ||
      ||  4.Drag Crosshair into RS window.                           ||
      ||  5.Hit play and fill out forms.                             ||
      ||                                                             ||
      ||-------------------------------------------------------------||
      ||                          INSTRUCTIONS                       ||
      \\-------------------------------------------------------------//
                                                                       }

    program EdgeVilleCooker;
    {.include srl/srl.scar}

    var
      TreeDTM: Integer;
      Tries: Integer;
      Fishy: Integer;


    {------------------------------}
    {    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
      TreeDTM := DTMFromString('78DA6364616060606640019E05A6609A11CA6' +
           '76402124C0C58015C0D1B906021600E2BA63958ED22E01E003486' +
           '03E4')
      Fishy := DTMFromString('78DA631461606010624001675DC519FE03694' +
           '620FE0F048C3240061B031A60442281B414901024A04614484811' +
           '50C30E244409A801B99713BF1A00EEA4070F');
    end;

    {------------------------------}
    {    Walking To Stove          }
    {------------------------------}

    Procedure WalkingToStove;
    begin
      if(not(LoggedIn))then
      LoginPlayer;
      SetRun(true)
      MakeCompass('N')
      HighestAngle;
      RadialWalk(535868,381,316,65,2,2)
      WriteLn('Walked To Tree!')
      Wait(1456 + Random(264))
      repeat
        wait(572+random(104))
        Tries := Tries + 1
        if(Tries = 10)then
        begin
          Writeln('could Not Find Tree.... Switching Players');
          Exit;
        end;
        until(FindDTM(x,y,TreeDTM,MMX1,MMY1,MMX2,MMY2))
          begin
            Mouse(x,y,1,1,True)
            WriteLn('Walking To Gate')
            Wait(1109 + Random(421))
            MakeCompass('S')
            LowestAngle;
            if FindColorTolerance(x,y,7981,MSX1,MSY1,MSX2,MSY2,20)or
            FindColorTolerance(x,y,10299,MSX1,MSY1,MSX2,MSY2,20)or
            FindColorTolerance(x,y,1732207,MSX1,MSY1,MSX2,MSY2,20)then
            begin
              IsUpText('ate')
              Wait(900 - Random(354))
              Mouse(X,Y,2,2,True)
              if FindColorTolerance(x,y,857111,MSX1,MSY1,MSX2,MSY2,15)or
              FindColorTolerance(x,y,1129293,MSX1,MSY1,MSX2,MSY2,15)or
              FindColorTolerance(x,y,7205,MSX1,MSY1,MSX2,MSY2,15)then
              begin
                IsUpText('oor');
                Wait(523 + Random(98));
                Mouse(X,Y,2,2,True);
                HighestAngle;
                MakeCompass('N');
            end;
          end;
        end;
    end;

    {------------------------------}
    {       Cooking                }
    {------------------------------}
    Procedure Cooking;
    begin
      If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
      Mouse(x,y,1,1,False);
      ChooseOption(x,y,'se');
      if FindColortolerance(x,y,924026,MSX1,MSY1,MSX2,MSY2,2)then
       begin
      Mouse(x,y,1,1,True);
      ChooseOption(x,y,'x');
      Wait(244 +random(56));
      TypeSend('28');
       end;
    end;

    {------------------------------}
    {       WalkingToBank          }
    {------------------------------}
    procedure BankWalking;
    begin
      RadialWalk(2442323,40,79,71,1,1);
      Wait(1345 - Random(35));
      If (Findcolor(x,y,6217966,MMX1,MMY1,MMX2,MMY2))then
      Mouse(x,y,1,1,True);
      if Findcolortolerance(x,y,537670,MSX1,MSY1,MSX2,MSY2,2)then
      Mouse(x,y,1,1,True)
      If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
      Mouse(x,y,1,1,False);
      ChooseOption(x,y,'x');
      TypeSend('28');
      Mouse(93,77,0,1,False);
      ChooseOption(x,y,'ll');
      CloseBank;
    end;

    {------------------------------}
    {       AntiBanage             }
    {------------------------------}

    procedure MouseAntiBan;
    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;


    begin
      SetupSrl;
      ClearDebug;
      DeclarePlayers;
      WalkingtoStove;
      FindNormalRandoms;
      Cooking;
      BankWalking;
      MouseAntiBan;
    end.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. EdgeVille Cooker V.10Beta
    By kooldude in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 02-27-2008, 03:55 AM
  2. Working Monkfish Cooker In Edgeville
    By Why2u in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 12-11-2007, 04:17 AM
  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
  •