Results 1 to 11 of 11

Thread: New A Special Helper. :)

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

    Default New A Special Helper. :)

    Well, Ok Im looking for someone that can clean up my script. :P

    Its, Pretty much done, all i need to do is finish with the same errors, and dumb shit

    ATTENTION!

    Leachers, Dont even bother downloaing sciprt to get a password, it is not in here


    Will give credits and +Rep to person who cleans it Im a messy guy


    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
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    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.                             ||
      ||                                                             ||
      ||-------------------------------------------------------------||
      ||                          Credits                            ||
      ||                   YoHoJo - Helped Me Alot                   ||
      ||                         Jad - Tuts                          ||
      ||                        Srl Community                        ||
      ||                                                             ||
      \\-------------------------------------------------------------//
                                                                       }

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

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

    const
      PinNumber='0000';  //Your Pin Number
      Loadz    =2; //Less loadz, Means less randoms :P
      MyName   ='kooldude';  //Change To Your Character name
    {// DONT TOUCH THIS \\}
    {||} ScriptVersion = '.10';{||}
    {\\ DONT TOUCH THIS //}

    {------------------------------}
    {    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');

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

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

    Procedure WalkingToStove;
    begin
      if(not(LoggedIn))then
      begin
        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;
    end;

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

    {------------------------------}
    {       WalkingToBank          }
    {------------------------------}
    procedure BankWalking;
    begin
      begin
        if(not(LoggedIn))then
        LoginPlayer;
        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);
      end;
      begin
        if Findcolortolerance(x,y,537670,MSX1,MSY1,MSX2,MSY2,2)or
        FindColorTolerance(x,y,5593184,MSX1,MSY1,MSX2,MSY2,1)or
        FindColorTolerance(x,y,542022,MSX1,MSY1,MSX2,MSY2,1)then
        Mouse(x,y,1,1,False);
        ClickOption('se',1);
        If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
        Mouse(x,y,1,1,False)
        ChooseOption(x,y,'x')
        TypeSend('28')
        TotalLoads:= TotalLoads + 1;
        Mouse(93,77,0,1,False)
        ChooseOption(x,y,'ll')
        CloseBank;
      end;
    end;

    {------------------------------}
    {       Entering Pin           }
    {------------------------------}
    procedure BankPin;
    begin
       if (Pinscreen) then
      begin
        Status('Entering Pin Number...');
        wait(278+random(124));
        InPin(Pinnumber);
      end;
    end;

    {------------------------------}
    {       Getting Xp             }
    {------------------------------}
    Procedure Progress;
    begin
      TotalLoads := 0
          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;

    {------------------------------}
    {    Rayz Special AntiBan      }
    {------------------------------}
    Procedure RayBan;
    begin
      MakeCompass('E')
      Wait(3421 +Random(324))
      MakeCompass('N')
      If FindColortolerance(x,y,65657,MSX1,MSY1,MSX2,MSY2,50)or
      FindColortolerance(x,y,123423,MSX1,MSY1,MSX2,MSY2,50)or
      FindColortolerance(x,y,81732,MSX1,MSY1,MSX2,MSY2,50)or
      FindColortolerance(x,y,665231,MSX1,MSY1,MSX2,MSY2,50)then
      Mouse(x,y,1,1,False)
      Chooseoption(x,y,'ancle')
    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(' '+MyName)then
      Name := Random (3)
      case Name of
        0 : TypeSend('What?')
        1 : TypeSend('??..')
        2 : TypeSend('?')
      end;
    end;

    {------------------------------}
    {       Version check          }
    {------------------------------}
    Procedure Version;
    begin
      if (ScriptVersion = '.10')then
      Writeln('You Have the Newest Version!')
    end;
    {------------------------------}
    {       Siggy                  }
    {------------------------------}
    procedure Siggy;
    begin
      ClearDebug;
      writeln(' Kooldudes EdgeVille Cooker!  ');
      writeln('   __   __                    ');
      writeln('  |  | /  /         _____     ');
      writeln('  |  |/  /         |   __|    ');
      writeln('  |     /          |  |__     ');
      writeln('  |     \          |   __|    ');
      writeln('  |  |\  \         |  |__     ');
      writeln('  |__| \__\ OOL DUD|_____|    ');
      wait(3000 + random(750));
    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;

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

    begin
      SetupSrl;
      Version;
      Siggy;
      Progress;
      ClearDebug;
      DeclarePlayers;
      repeat
        WalkingtoStove;
        Respond;
        FindNormalRandoms;
        Cooking;
        BankWalking;
        BankPin;
        MouseAntiBan;
        RayBan;
       until(totalLoads=Loadz);
       Report;
    end.

    there you go there were alot of errors also you might want to check if it works properly i might have change what you intended for it to do while fixing it.

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

    Default

    Thx for fixing the scripted up, But now, it wont even log in, and walk to the edgeville stove, all it does is say 28 , rofl and what.. i know the responder problem/


    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.'

  4. #4
    Join Date
    May 2007
    Location
    baltimore, md
    Posts
    836
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    well as i said i just changed what was causing the errors i will look into it more tomorrow

  5. #5
    Join Date
    May 2007
    Posts
    54
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I changed some things jhildy's edit. Try this one:

    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.                             ||
      ||                                                             ||
      ||-------------------------------------------------------------||
      ||                          Credits                            ||
      ||                   YoHoJo - Helped Me Alot                   ||
      ||                         Jad - Tuts                          ||
      ||                        Srl Community                        ||
      ||                                                             ||
      \\-------------------------------------------------------------//
                                                                       }

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

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

    const
      PinNumber = '0000';  //Your Pin Number
      Loadz    =2; //Less loadz, Means less randoms :P
      MyName   ='kooldude';  //Change To Your Character name
    {// DONT TOUCH THIS \\}
    {||} Version = '.10';{||}
    {\\ DONT TOUCH THIS //}

    {------------------------------}
    {    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');

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

    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
      begin
        If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2) then
        Mouse(x,y,1,1,False)
        ChooseOption(x,y,'se')
      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)
          ChooseOption(x,y,'x')
          Wait(244 +random(56))
          TypeSend('28')
          Writeln('Cooking Food')
        end;
      end;
    end;

    {------------------------------}
    {       WalkingToBank          }
    {------------------------------}
    procedure BankWalking;
    begin
      begin
        if(not(LoggedIn))then
        LoginPlayer;
        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)
      end;
      begin
        if Findcolortolerance(x,y,537670,MSX1,MSY1,MSX2,MSY2,2)or
        FindColorTolerance(x,y,5593184,MSX1,MSY1,MSX2,MSY2,1)or
        FindColorTolerance(x,y,542022,MSX1,MSY1,MSX2,MSY2,1)then
        Mouse(x,y,1,1,False);
        ClickOption('se',1);
        If FindDTM(Fishy,x,y,MIX1,MIY1,MIX2,MIY2)then
        Mouse(x,y,1,1,False)
        ChooseOption(x,y,'x')
        TypeSend('28')
        TotalLoads:= TotalLoads + 1;
        Mouse(93,77,0,1,False)
        ChooseOption(x,y,'ll')
        CloseBank;
      end;
    end;

    {------------------------------}
    {       Entering Pin           }
    {------------------------------}

    procedure BankPin;
    begin
       if (Pinscreen) then
      begin
        Status('Entering Pin Number...');
        wait(278+random(124));
        InPin(PinNumber);
      end;
    end;


    {------------------------------}
    {       Getting Xp             }
    {------------------------------}
    Procedure Progress;
    begin
      TotalLoads := 0
          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;

    {------------------------------}
    {    Rayz Special AntiBan      }
    {------------------------------}
    Procedure RayBan;
    begin
      MakeCompass('E')
      Wait(3421 +Random(324))
      MakeCompass('N')
      If FindColortolerance(x,y,65657,MSX1,MSY1,MSX2,MSY2,50)or
      FindColortolerance(x,y,123423,MSX1,MSY1,MSX2,MSY2,50)or
      FindColortolerance(x,y,81732,MSX1,MSY1,MSX2,MSY2,50)or
      FindColortolerance(x,y,665231,MSX1,MSY1,MSX2,MSY2,50)then
      Mouse(x,y,1,1,False)
      Chooseoption(x,y,'ancle')
    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;

    {------------------------------}
    {       Version check          }
    {------------------------------}
    Procedure Version1;
    begin
      if (Version = '.10')then
      Writeln('You Have the Newest Version!')
    end;
    {------------------------------}
    {       Siggy                  }
    {------------------------------}
    procedure Siggy;
    begin
      ClearDebug;
      writeln(' Kooldudes EdgeVille Cooker!  ');
      writeln('   __   __                    ');
      writeln('  |  | /  /         _____     ');
      writeln('  |  |/  /         |   __|    ');
      writeln('  |     /          |  |__     ');
      writeln('  |     \          |   __|    ');
      writeln('  |  |\  \         |  |__     ');
      writeln('  |__| \__\ OOL DUD|_____|    ');
      wait(3000 + random(750));
    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;

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

    begin
      SetupSrl;
      Version1;
      Siggy;
      Progress;
      ClearDebug;
      DeclarePlayers;
      repeat
        WalkingtoStove;
        Respond;
        FindNormalRandoms;
        Cooking;
        BankWalking;
        Bankpin;
        MouseAntiBan;
        RayBan;
      until(TotalLoads = Loadz);
      Report;
    end.

  6. #6
    Join Date
    May 2007
    Location
    http://www.srl-forums.com
    Posts
    265
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I will try.

  7. #7
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    first, i was reading the script, this is useless
    first, i was reading the script, this is useless
    SCAR Code:
    Procedure Version1;
    begin
      if (Version = '.10')then
      Writeln('You Have the Newest Version!')
    end;
    Will always say You have the newest version.

    Siggy; and Proggy; are useless because you call ClearDebug; Rigtht after.

    See
    SCAR Code:
    Siggy;
      Progress;
      ClearDebug;
    you don't use the multiplayer. even tho you have DeclarePlayers.

    and instead of

    SCAR Code:
    if not Loggedin then
      LoginPlayer;

    you should have

    SCAR Code:
    if not Loggedin then
      Exit;

    and in you main loop have something like
    SCAR Code:
    repeat
      if Players[CurrentPlayer].Loc := 'Bank' then
      begin
        if Players[CurrentPlayer].Banked = 0 then WithdrawFood; //first time, we want it to withdraw food
        WalkToStove; //it then changes .Loc to 'Stove'
      end;

      if Players[CurrentPlayer].Loc := 'Stove' then
      begin
        Cook;
        WalkToBank; //Players[CurrentPlayer].Loc := 'Bank'; now
        Bank; //Withdraw and Deposits Food; Keeping food in inv for next turn.
     end;
       
      if Players[CurrentPlayer].Banked Mod LoadsPerPlayer = 0 then
        NextPlayer(True);

      if not Loggedin then
        NextPlayer(False);
    until false

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

    Default

    Ok this is what my main loop looks like now... is it right?


    SCAR Code:
    begin
      SetupSrl;
      Version1;
      Siggy;
      ActivateClient;
      if (not(LoggedIn)) then
      Exit;
      repeat
      if Players[CurrentPlayer].Loc := 'Bank'then
      begin
        if Players[CurrentPlayer].Banked = 0 then
        WithdrawFood;
        WalkingToStove;
      end;

      if Players[CurrentPlayer].Loc := 'Stove' then
      begin
        Cooking;
        BankWalking;
        WithDrawFood;
     end;
        Progress;
        Respond;
        FindNormalRandoms;
        Bankpin;
        MouseAntiBan;
        RayBan;
      until(TotalLoads = Loadz);
      Report;
    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.'

  9. #9
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    begin
      SetupSrl;
      Version1;
      Siggy;
      ActivateClient;
      repeat
        if Players[CurrentPlayer].Loc := 'Bank'then
        begin
          if Players[CurrentPlayer].Banked <> 0 then
           begin
            WithdrawFood;//only withdraw food if started
          end;
          WalkingToStove;
        end;

        if Players[CurrentPlayer].Loc := 'Stove' then
        begin
          Cooking;
          BankWalking;
          WithDrawFood; //bank cooked food, withdraw new food. also do Players[CurrentPlayer].Banked := Players[CurrentPlayer].Banked + 1;
          Progress;
        end;

        if Players[CurrentPlayer].Banked mod BanksPerPlayer = 0 then
          NextPlayer(True);

        if Not Loggedin then
          NextPlayer(False);
      until(false);
      Report;
    end.


    have the bankpin in your banking procedure and Findnormalrandoms should be called while waiting for the food to cook or when u think. If something bad happens during your script, logout and exit the procedure you in, then in any other procedure have If not loggedin then Exit;

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

    Default

    will it still do my AntiBan?

    Also this error occurs..

    Line 307: [Error] (14708:31): 'THEN' expected in script


    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.'

  11. #11
    Join Date
    May 2006
    Posts
    1,230
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    probally because i left out a space in

    SCAR Code:
    if Players[CurrentPlayer].Loc := 'Bank'then

    put a space before 'Bank' and Then, and also about your antiban
    put your antiban in the cook procedure while its cooking them, and aslo findnormalrandoms, because you had it after it, which isn't very effective.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Yay! I got the helper cup!
    By n3ss3s in forum News and General
    Replies: 14
    Last Post: 08-20-2007, 02:59 PM
  2. [RS2][SRL] Rs Helper v1.0
    By Jethr0x in forum RS3 Outdated / Broken Scripts
    Replies: 12
    Last Post: 08-16-2007, 11:21 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
  •