Results 1 to 4 of 4

Thread: End help!!! Will get credit in next script!

  1. #1
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    End help!!! Will get credit in next script!

    There seems to be a problem like this. I don't think I need anymore ends. Please take a look at this.

    Line 79: [Error] (14760:1): Identifier expected in script C:\Program Files\SCAR 3.12\Scripts\First Theif v.1.20.scar

    I will give credit in my script!

    SCAR Code:
    program StallThief;
    {.include SRL/SRL.scar}
    var x, y, HowManyDone, SaveLife, a, b, BankDTM, time, tea, TeaStole: integer;
    Angle: Extended;
    const
    HowManyTea=308; //How many teas to steal and drop
    Bank=True; //Would you like to bank the tea
    procedure Thief;
    begin
      HowManyDone:=0; //Don't bother with this!
      Disguise('Mozilla Firefox');
      ActivateClient;
      Wait(1000);
        repeat
          if(FindObjCustom(x,y,['steal-','from','steal','-from','steal-from'],[9151923,7829377,2244947],4)) then
            begin
              if(InvFull)and(Bank=False)then
                begin
                  DropAll;
                end;
              if(InvFull)and(Bank=True)then
                begin
                  BankDTM:= DTMFromString('78DA630C606260C86540018C8C8C101AC6F70' + '0AAC94755F3E70F13AA9A5020BF0855CDDBB70CA86A7C806A0A09' + '981303E41713501340D81C0085D70E66');
                  Tea:= BitmapFromString(27, 20, 'beNqtlE1Pk0EURnHLb9CkECESa' +
           'FOFkgahAQwNjRvWLmGHOyMCQRPTAHEhBURBkG9oCKZEExYswI2y4l' +
           'd5wgNPJtOWFclp83Y6c+beO/ed/kxL08O2x4/E8652kcsm/WyyT1u' +
           'henyot/NFTwr0s6aQOSBzTbmQRJOlHehOtrcmnnW0CG3kCTCcy0Ch' +
           'PxMNvhzsAcZDNDP1pJmPdvRyTwg9tvEtoUe8JH8tjDLVX3puaHgAy' +
           '/NzP0ql7S/LoBEv5xuzItEuEqpWGneOUsGbV43rC5+3lhahvP79aG' +
           'NDWptDIaWrFyGemvw6PDjZ34OzSgXnHRG6UNqUBHdXViC0SaXw/py' +
           'evh4bdQxCEeayaYiKjOpwbRVIEwmBQWV3ByS8vDjf//bVQi1Uwyjl' +
           'cCPmH29uajk4TQbxX/37C0SolI0jpCHBJ5K/Fv4ulxUVnp/bW5wFE' +
           'BInnk4kRNSQPpR7F0Ypo42EyhQ4KVpINhlcw3ptwyC2Tx/ez05PG4' +
           '6G2IDnj+8mdChy+g11DX2HuGfU0sWpSYFkfmZG8BPh2/FxcGPXSzl' +
           'sbIIpFYuWhHIYKRRAQtcwbOxIqPipmNKkITkIQSmIsOZtIyfC6pR1' +
           '1gSgxsZJBfz+uvfC8EJhdDnY6WvKTQLaK+zk0Ma/1LA73VZdw+gyz' +
           'N9eKZowMpyDm5l9KbdH4T/UCNnT');
                  if(InvFull)and (Bank=True) then
                    begin
                      FindRoadColor;
                      RadialRoadWalk(RoadColor,270,359,50,-1,1);
                      if(FindDTMRotated(BankDTM,a,b,587,121,614,97,0,359,10,Angle)) then
                        begin
                          Mouse(a,b,0,0,true);
                        end;
                        FreeDTM(BankDTM);
                          begin
                            MarkTime(time);
                            repeat
                              if not(Loggedin) then break;
                              OpenBankQuiet('varrock east');
                            until(BankScreen or (TimeFromMark(time) > 120000));
                            if(BankScreen) then
                              begin
                                Writeln('In the bank!!!');
                                TeaStole:= CountItemBmpTol(tea, 28);
                                Deposit(1, 28, 2);
                                CloseBank;
                                Writeln('We have banked '+IntToStr(TeaStole)+ ' teas.');
                              end;
                              FreeBitMap(tea);
                          end;
                    end;
                end;
              FindTalk; //Anti-random here for you
              FindNormalRandoms; //Another anti-random
              if(FindFight) then
                begin
                  RunAwayDirection('N');
                  Wait(10000 +random(2000));
                  RunBack;
                  SaveLife:=SaveLife+1;
                end;
              MMouse(x,y,0,0);
              Mouse(x,y,0,0,true);
              HowManyDone:=HowManyDone+1;
              Wait(10000);
    end;
    end;
    end;
    end;
    procedure Progress;
    begin
      Writeln('Thieved and dropped '+ IntToStr(HowManyDone) +' teas.');
      Writeln('Saved your life '+ IntToStr(SaveLife) +' times.');
    end;

    begin
      SetupSRL;
      Thief;
      Progress;
    end.
    Formerly known as Cut em2 it

  2. #2
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    first of learn standards so you cant edit and look over you code easier...this is standardized....but you forgot a until for the beginning repeat and also had to many end;'s (standards prevent this) here is the code...fix the until for when you want it to stop repeating...

    SCAR Code:
    program StallThief;

    {.include SRL/SRL.scar}

    var x, y, HowManyDone, SaveLife, a, b, BankDTM, time, tea, TeaStole: integer;

    var Angle: Extended;

    const
      HowManyTea = 308; //How many teas to steal and drop
      Bank = True; //Would you like to bank the tea

    procedure Thief;
    begin
      HowManyDone:=0; //Don't bother with this!
      Disguise('Mozilla Firefox');
      ActivateClient;
      Wait(1000);
      repeat
        if(FindObjCustom(x,y,['steal-','from','steal','-from','steal-from'],[9151923,7829377,2244947],4)) then
        begin
          if(InvFull)and(Bank=False)then
          begin
            DropAll;
          end;
          if(InvFull)and(Bank=True)then
          begin
            BankDTM:= DTMFromString('78DA630C606260C86540018C8C8C101AC6F70' +
            '0AAC94755F3E70F13AA9A5020BF0855CDDBB70CA86A7C806A0A09' +
            '981303E41713501340D81C0085D70E66');

            Tea:= BitmapFromString(27, 20, 'beNqtlE1Pk0EURnHLb9CkECESa' +
            'FOFkgahAQwNjRvWLmGHOyMCQRPTAHEhBURBkG9oCKZEExYswI2y4l' +
            'd5wgNPJtOWFclp83Y6c+beO/ed/kxL08O2x4/E8652kcsm/WyyT1u' +
            'henyot/NFTwr0s6aQOSBzTbmQRJOlHehOtrcmnnW0CG3kCTCcy0Ch' +
            'PxMNvhzsAcZDNDP1pJmPdvRyTwg9tvEtoUe8JH8tjDLVX3puaHgAy' +
            '/NzP0ql7S/LoBEv5xuzItEuEqpWGneOUsGbV43rC5+3lhahvP79aG' +
            'NDWptDIaWrFyGemvw6PDjZ34OzSgXnHRG6UNqUBHdXViC0SaXw/py' +
            'evh4bdQxCEeayaYiKjOpwbRVIEwmBQWV3ByS8vDjf//bVQi1Uwyjl' +
            'cCPmH29uajk4TQbxX/37C0SolI0jpCHBJ5K/Fv4ulxUVnp/bW5wFE' +
            'BInnk4kRNSQPpR7F0Ypo42EyhQ4KVpINhlcw3ptwyC2Tx/ez05PG4' +
            '6G2IDnj+8mdChy+g11DX2HuGfU0sWpSYFkfmZG8BPh2/FxcGPXSzl' +
            'sbIIpFYuWhHIYKRRAQtcwbOxIqPipmNKkITkIQSmIsOZtIyfC6pR1' +
            '1gSgxsZJBfz+uvfC8EJhdDnY6WvKTQLaK+zk0Ma/1LA73VZdw+gyz' +
            'N9eKZowMpyDm5l9KbdH4T/UCNnT');

            if(InvFull)and (Bank=True) then
            begin
              FindRoadColor;
              RadialRoadWalk(RoadColor,270,359,50,-1,1);
              if(FindDTMRotated(BankDTM,a,b,587,121,614,97,0,359,10,Angle)) then
              begin
                Mouse(a,b,0,0,true);
              end;
              FreeDTM(BankDTM);
              begin
                MarkTime(time);
                repeat
                  if not(Loggedin) then break;
                  OpenBankQuiet('varrock east');
                until(BankScreen or (TimeFromMark(time) > 120000));
                if(BankScreen) then
                begin
                  Writeln('In the bank!!!');
                  TeaStole:= CountItemBmpTol(tea, 28);
                  Deposit(1, 28, 2);
                  CloseBank;
                  Writeln('We have banked '+IntToStr(TeaStole)+ ' teas.');
                end;
                FreeBitMap(tea);
              end;
            end;
          end;
          FindTalk; //Anti-random here for you
          FindNormalRandoms; //Another anti-random
          if(FindFight) then
          begin
            RunAwayDirection('N');
            Wait(10000 +random(2000));
            RunBack;
            SaveLife:=SaveLife+1;
          end;
          MMouse(x,y,0,0);
          Mouse(x,y,0,0,true);
          HowManyDone:=HowManyDone+1;
          Wait(10000);
        end;
      Until(false);
    end;


    procedure Progress;
    begin
      Writeln('Thieved and dropped '+ IntToStr(HowManyDone) +' teas.');
      Writeln('Saved your life '+ IntToStr(SaveLife) +' times.');
    end;

    begin
      SetupSRL;
      Thief;
      Progress;
    end.

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


  3. #3
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Your missing an until.

    Try this.. USE STANDARDS!!

    SCAR Code:
    program StallThief;
    {.include SRL/SRL.scar}
    var
      x, y, HowManyDone, SaveLife, a, b, BankDTM, Time, tea, TeaStole: Integer;
      Angle: Extended;
    const
      HowManyTea = 308;  //How many teas to steal and drop
      Bank       = true; //Would you like to bank the tea

    procedure Progress;
    begin
      Writeln('Thieved and dropped ' + IntToStr(HowManyDone) + ' teas.');
      Writeln('Saved your life ' + IntToStr(SaveLife) + ' times.');
    end;

    procedure Thief;
    begin
      HowManyDone := 0; //Don't bother with this!
      Disguise('Mozilla Firefox');
      ActivateClient;
      Wait(1000);
      repeat
        if (FindObjCustom(x, y, ['steal-', 'from', 'steal', '-from', 'steal-from'], [9151923, 7829377, 2244947], 4)) then
        begin
          if (InvFull) and (Bank = false) then
          begin
            DropAll;
          end;
          if (InvFull) and (Bank = true) then
          begin
            BankDTM:= DTMFromString('78DA630C606260C86540018C8C8C101AC6F70' +
            '0AAC94755F3E70F13AA9A5020BF0855CDDBB70CA86A7C806A0A09' +
            '981303E41713501340D81C0085D70E66');
     
            Tea:= BitmapFromString(27, 20, 'beNqtlE1Pk0EURnHLb9CkECESa' +
            'FOFkgahAQwNjRvWLmGHOyMCQRPTAHEhBURBkG9oCKZEExYswI2y4l' +
            'd5wgNPJtOWFclp83Y6c+beO/ed/kxL08O2x4/E8652kcsm/WyyT1u' +
            'henyot/NFTwr0s6aQOSBzTbmQRJOlHehOtrcmnnW0CG3kCTCcy0Ch' +
            'PxMNvhzsAcZDNDP1pJmPdvRyTwg9tvEtoUe8JH8tjDLVX3puaHgAy' +
            '/NzP0ql7S/LoBEv5xuzItEuEqpWGneOUsGbV43rC5+3lhahvP79aG' +
            'NDWptDIaWrFyGemvw6PDjZ34OzSgXnHRG6UNqUBHdXViC0SaXw/py' +
            'evh4bdQxCEeayaYiKjOpwbRVIEwmBQWV3ByS8vDjf//bVQi1Uwyjl' +
            'cCPmH29uajk4TQbxX/37C0SolI0jpCHBJ5K/Fv4ulxUVnp/bW5wFE' +
            'BInnk4kRNSQPpR7F0Ypo42EyhQ4KVpINhlcw3ptwyC2Tx/ez05PG4' +
            '6G2IDnj+8mdChy+g11DX2HuGfU0sWpSYFkfmZG8BPh2/FxcGPXSzl' +
            'sbIIpFYuWhHIYKRRAQtcwbOxIqPipmNKkITkIQSmIsOZtIyfC6pR1' +
            '1gSgxsZJBfz+uvfC8EJhdDnY6WvKTQLaK+zk0Ma/1LA73VZdw+gyz' +
            'N9eKZowMpyDm5l9KbdH4T/UCNnT');
            if (InvFull) and (Bank = true) then
            begin
              FindRoadColor;
              RadialRoadWalk(RoadColor, 270, 359, 50, - 1, 1);
              if (FindDTMRotated(BankDTM, a, b, 587, 121, 614, 97, 0, 359, 10, Angle)) then
              begin
                Mouse(a, b, 0, 0, true);
              end;
              FreeDTM(BankDTM);
              begin
                MarkTime(Time);
                repeat
                  if not (Loggedin) then Break;
                  OpenBankQuiet('varrock east');
                until (BankScreen or (TimeFromMark(Time) > 120000));
                if (BankScreen) then
                begin
                  Writeln('In the bank!!!');
                  TeaStole := CountItemBmpTol(tea, 28);
                  Deposit(1, 28, 2);
                  CloseBank;
                  Writeln('We have banked ' + IntToStr(TeaStole) + ' teas.');
                end;
                FreeBitMap(tea);
              end;
            end;
          end;
          FindTalk;          //Anti-random here for you
          FindNormalRandoms; //Another anti-random
          if (FindFight) then
          begin
            RunAwayDirection('N');
            Wait(10000 + Random(2000));
            RunBack;
            SaveLife := SaveLife + 1;
          end;
          MMouse(x, y, 0, 0);
          Mouse(x, y, 0, 0, true);
          HowManyDone := HowManyDone + 1;
          Wait(10000);
          Progress;
        end;
      until (false);
    end;

    begin
      SetupSRL;
      Thief;
    end.

    Also ive moved Progress inside the Thief loop so it actually gets called . Unlike some1 elses :P

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  4. #4
    Join Date
    Nov 2007
    Location
    Nowhereville
    Posts
    1,155
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Thanks, I'm giving both of you credit in my script!
    Formerly known as Cut em2 it

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Readln Help! --CREDIT--
    By Farno Productions in forum OSR Help
    Replies: 4
    Last Post: 04-15-2007, 12:50 PM

Posting Permissions

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