Results 1 to 4 of 4

Thread: A Little Help

  1. #1
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default A Little Help

    When I try to compile this:

    PHP Code:
     {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
                            
    Draynor Willow Crusher Banker
                                  By Torrent of Flame
                            Scar 3.14          SRL 4.0 Rev 14
                                      Version 1.0
                         Chops Willows at Draynor 
    and Banks them
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
                          
    Colour Pick Willows at lines 28-30
                              How Many Loads at line 37
                             Setup Players at lines 47
    -55
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
                              
    No AntiBan or AntiRandoms!!
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}


    Program WillowCrusher;
    {.include 
    SRL/SRL.scar}
    {.include 
    SRL/SRL/Skill/WoodCutting.scar}


    const

    //------------------------Setup----------------------\\

    //-->Willow Colours<--\\

    WillowColour 0//Colour of Willow
    WillowColour2 0//Another Willow Colour
    WillowColour3 0//A third Willow Colour

    //-->Loads<--\\

    Loads 0//How many loads per player before switching

    {-------------------------------------------------------
                           
    Player Setup
    --------------------------------------------------------}

    procedure DeclarePlayers;
    begin

       HowManyPlayers 
    := 2//How many Players
       
    NumberOfPlayers(HowManyPlayers);
       
    CurrentPlayer :=0//Starting Player

       
    Players[0].Name := 'Username';
       
    Players[0].Pass := 'Password';
       
    Players[0].Nick := '3-4 letters of Username';
       
    Players[0].Active := True;

       
    Players[1].Name := 'Username';
       
    Players[1].Pass := 'Password';
       
    Players[1].Nick := '3-4 letters of Username';
       
    Players[1].Active := True;
       
    end;

    {----------------------------Do 
    Not Edit Below This----------------------------}

    //Dont Touch These\\
    var LoadsNumintegerDBankColourintegerMMFishLogoMMFishLogoColourinteger;
        
    BankLogoLoadsNum2integerTries:


    //Signature\\

    procedure Signature;
     
    begin
       ClearDebug
    ;
       
    wait(250 random(30));
       
    writeln('      Torrents Willow Crusher&Banker      ');
       
    wait(250 random(30));
       
    writeln(' _____                                _   ');
       
    wait(250 random(30));
       
    writeln('(_   _)                              ( )_ ');
       
    wait(250 random(30));
       
    writeln('  | |   _    _ __  _ __   __    ___  | ,_)');
       
    wait(250 random(30));
       
    writeln('  | | / _`\ ( "__)( "__)/"__`\/" _ `\| |  ');
       
    wait(250 random(30));
       
    writeln('  | |( (_) )| |   | |  (  ___/| ( ) || |_ ');
       
    wait(250 random(30));
       
    writeln('  (_)`\___/ (_)   (_)  `\____)(_) (_) \__)');
       
    wait(500 random(30));
     
    end;

    //Torrent Proggy\\

    procedure ToFProggy;
    begin
      ClearDebug
    ;
      
    Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      
    Writeln('/\Please Post Progress Reports & Any problems /\ ');
      
    Writeln('/\      From Wherever you got the script      /\ ');
      
    Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      
    Writeln('//\\Worked For: '        TimeRunning '                   //\\');
      
    Writeln('//\\Did: '        IntToStr(LoadsNum)+ ' Loads                            //\\');
      
    Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      
    Writeln('//\\      Thanks for Using my Script :D     //\\ ');
      
    Writeln('```````````````````````````````````````````````');
    end;

    //Walking to Willows from BANK\\
    procedure WalkToWillows;
    begin
      MakeCompass
    ('N');
        
    MMFishLogo := BitmapFromString(1515'beNqV0kEOQEAMBdDWxh' +
           
    'mcxAUcx21szSnYsnMJVxGJmkbz02Eymr8w9YwMJXLFULKij1IwLSs' +
           
    'mek6lY5j4liLpfDlG2WynpOoPZLbEQymzIB5CcFiacu08j3OKud01' +
           
    'Jq0jSXfGu5KuDmIcxjPiVhpt3k+9fTozGMS//mBmNp6Jyo0TDB7UB' +
           
    'cUdAQU');
        
      
    MMFishLogoColour :=AutoColorThis(MMFishLogo50MMX1MMY1MMX2MMY2);
      
    RadialWalk(MMFishLogoColour1020021033)
      
    wait(5000 random(2000));
      
    Flag;
      
    Wait(300 random(100));
      
    Tries := 0;
      
    repeat
         
    if (Tries 50then
         begin
          Writeln
    ('Couldnt find willows, terminating script');
          
    TerminateScript;
         
    end;
         
    wait(400 random(200));
         
    Tries := Tries 1;
        
    until (FindColorTolerance(xyWillowColour275, -818700, -6584)) or
              (
    FindColorTolerance(xyWillowColour2275, -818700, -6584)) or
              (
    FindColorTolerance(xyWillowColour3275, -818700, -6584));
              
        
    end;

    //Chopping The Willows\\

    function ChopTreeBoolean;
    begin
      repeat
       
    if (not (LoggedIn)) then
         
    Exit;
       if (
    FindColorTolerance(xyWillowColour275, -818700, -6584)) or
          (
    FindColorTolerance(xyWillowColour2275, -818700, -6584)) or
          (
    FindColorTolerance(xyWillowColour3275, -818700, -6584)) then
       begin
        MMouse
    (xy44);
        if (
    IsUpText('illow')) then
         begin
          Mouse
    (xy22true);
          
    repeat
           
    if (InvFull) or (PopUp('ontinue')) then
           
    Exit;
            
    until(not (FindColorTolerance(xyWillowColour275, -818700, -6584)) or
                 (
    not (FindColorTolerance(xyWillowColour2275, -818700, -6584)) or
                 (
    not (FindColorTolerance(xyWillowColour3275, -818700, -6584));
             
    repeat
            
    if (InvFull) or (PopUp ('ontinue')) then
              
    Exit;
           
    wait(700 random(230));
         
    end;
        
    end;
       
    until (InvFull);
    end;


    //Walking to Bank from Willows\\

    procedure WalkToBank;
    begin
      
    if (InvFullthen
      begin
       MakeCompass
    ('S');
       
    BankLogo := BitmapFromString(108'beNqLjUuNHUkIAF3mWgE')

       if(
    not (FindBitmap(BankLogoxy))) then
       begin
        Mouse
    (6278888true);
        
    Flag;
       
    end;
       
    DBankColour := AutoColorThis(BankLogo50MMX1MMY1MMX2MMY2);
       
    RadialWalk(DBankColour2101020033);
       
    Flag;
       
    Wait(200 random(150));
       
    end;
    end;

    //Banking the Willows\\

    function BankingBoolean;
    begin
      
    if (InvFullthen
      begin
        Willow 
    := DTMFromString('78DA73FCC4C4C0D0C9C8800A1819FE8349068' +
          
    '9FF40C0C8C08C550D8204D2AC40395308A86104AA994940CD87A0' +
          
    '8BE61050F31AA8A68F0845B3F0AB010040990CF0');
        
    Make Compass('N')
        
    Wait (300 random(160));
        
    OpenBankQuiet('db');
        
    Flag;
        
    wait(500 random(267));
        
    FixBank;
        if (
    FindDTM(Willowxy561210750464)) then
        begin
         Mouse
    (xy43false);
         
    ChoseOption(x,y'All');
         
    Result := True;
         if (
    Result := True;) then
         begin
           LoadsNum 
    := LoadsNum 1;
           
    LoadsNum2 := LoadsNum2 1;
         
    end;
        
    end;
        
    CloseBank;
        
    Wait(150 random (278));
        
    MakeCompass('S');
      
    end;
    end;

    //----Main Loop----\\

    procedure ScriptSetup;
    begin
      Signature
      SetupSRL
    ;
      
    DeclarePlayers;
    end;

    //\\//\\

    begin
      SetupScript
    ;
      
    repeat
        WalkToWillows
    ;
        
    ChopTree;
        
    WalkToBank;
        
    Banking;
        if (
    LoadsNum2=Loadsthen
        begin
         NextPlayer
    (Active);
          
    LoadsNum2 := 0;
          
    MakeCompass('S');
         
    Writeln('Players sucessfully Switched')
        
    end;
        
    TofProggy;
      
    until(False);
    end.
        
    {
    Many Thanks to JAD for his Breakdown of scriptsYohojo for his DTM tut and
        
    to anyone who helped my many errors and problems during this script!} 
    It just comes up with like "Semi Colon Expected" "Colon Expected" "Identifier Expected"

    Can someone go through and edit my mistakes please? I dont understand any of them

    I spent all night on this and want it to work now

    Thanks
    Jus' Lurkin'

  2. #2
    Join Date
    Nov 2007
    Location
    UK
    Posts
    242
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//
                            Draynor Willow Crusher & Banker
                                  By Torrent of Flame
                            Scar 3.14          SRL 4.0 Rev 14
                                      Version 1.0
                         Chops Willows at Draynor and Banks them
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
                          Colour Pick Willows at lines 28-30
                              How Many Loads at line 37
                             Setup Players at lines 47-55
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\
                              No AntiBan or AntiRandoms!!
    //\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\}



    Program WillowCrusher;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}


    const

    //------------------------Setup----------------------\\

    //-->Willow Colours<--\\

    WillowColour = 0; //Colour of Willow
    WillowColour2 = 0; //Another Willow Colour
    WillowColour3 = 0; //A third Willow Colour

    //-->Loads<--\\

    Loads = 0; //How many loads per player before switching

    {-------------------------------------------------------
                           Player Setup
    --------------------------------------------------------}


    procedure DeclarePlayers;
    begin

       HowManyPlayers := 2; //How many Players
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer :=0; //Starting Player

       Players[0].Name := 'Username';
       Players[0].Pass := 'Password';
       Players[0].Nick := '3-4 letters of Username';
       Players[0].Active := True;

       Players[1].Name := 'Username';
       Players[1].Pass := 'Password';
       Players[1].Nick := '3-4 letters of Username';
       Players[1].Active := True;

    end;

    {----------------------------Do Not Edit Below This----------------------------}

    //Dont Touch These\\
    var LoadsNum: integer; DBankColour: integer; MMFishLogo, MMFishLogoColour: integer;
        BankLogo, LoadsNum2 , Tries ,x, y: integer;


    //Signature\\

    procedure signature;
     begin
       ClearDebug;
       wait(250 + random(30));
       writeln('      Torrents Willow Crusher&Banker      ');
       wait(250 + random(30));
       writeln(' _____                                _   ');
       wait(250 + random(30));
       writeln('(_   _)                              ( )_ ');
       wait(250 + random(30));
       writeln('  | |   _    _ __  _ __   __    ___  | ,_)');
       wait(250 + random(30));
       writeln('  | | / _`\ ( "__)( "__)/"__`\/" _ `\| |  ');
       wait(250 + random(30));
       writeln('  | |( (_) )| |   | |  (  ___/| ( ) || |_ ');
       wait(250 + random(30));
       writeln('  (_)`\___/ (_)   (_)  `\____)(_) (_) \__)');
       wait(500 + random(30));
     end;

    //Torrent Proggy\\

    procedure ToFProggy;
    begin
      ClearDebug;
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\Please Post Progress Reports & Any problems /\ ');
      Writeln('/\      From Wherever you got the script      /\ ');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\Worked For: '        + TimeRunning + '                   //\\');
      Writeln('//\\Did: '        + IntToStr(LoadsNum)+ ' Loads                            //\\');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\      Thanks for Using my Script :D     //\\ ');
      Writeln('```````````````````````````````````````````````');
    end;

    //Walking to Willows from BANK\\
    procedure WalkToWillows;
    begin
      MakeCompass('N');
        MMFishLogo := BitmapFromString(15, 15, 'beNqV0kEOQEAMBdDWxh' +
           'mcxAUcx21szSnYsnMJVxGJmkbz02Eymr8w9YwMJXLFULKij1IwLSs' +
           'mek6lY5j4liLpfDlG2WynpOoPZLbEQymzIB5CcFiacu08j3OKud01' +
           'Jq0jSXfGu5KuDmIcxjPiVhpt3k+9fTozGMS//mBmNp6Jyo0TDB7UB' +
           'cUdAQU');

      MMFishLogoColour :=AutoColorThis(MMFishLogo, 50, MMX1, MMY1, MMX2, MMY2);
      RadialWalk(MMFishLogoColour, 10, 200, 210, 3, 3)
      wait(5000 + random(2000));
      Flag;
      Wait(300 + random(100));
      Tries := 0;
      repeat
         if (Tries = 50) then
         begin
          Writeln('Couldnt find willows, terminating script');
          TerminateScript;
         end;
         wait(400 + random(200));
         Tries := Tries + 1;
        until (FindColorTolerance(x, y, WillowColour, 275, -818, 700, -658, 4)) or
              (FindColorTolerance(x, y, WillowColour2, 275, -818, 700, -658, 4)) or
              (FindColorTolerance(x, y, WillowColour3, 275, -818, 700, -658, 4));

        end;

    //Chopping The Willows\\

    function ChopTree: Boolean;
    begin
      repeat
       if (not (LoggedIn)) then
         Exit;
       if (FindColorTolerance(x, y, WillowColour, 275, -818, 700, -658, 4)) or
          (FindColorTolerance(x, y, WillowColour2, 275, -818, 700, -658, 4)) or
          (FindColorTolerance(x, y, WillowColour3, 275, -818, 700, -658, 4)) then
       begin
        MMouse(x, y, 4, 4);
        if (IsUpText('illow')) then
         begin
          Mouse(x, y, 2, 2, true);
          repeat
           if (InvFull) or (clicktocontinue) then
           Exit;
            until(not (FindColorTolerance(x, y, WillowColour, 275, -818, 700, -658, 4)) or
                 (not (FindColorTolerance(x, y, WillowColour2, 275, -818, 700, -658, 4)) or
                 (not (FindColorTolerance(x, y, WillowColour3, 275, -818, 700, -658, 4)));
             repeat
            if (InvFull) or (PopUp ('ontinue')) then
              Exit;
           wait(700 + random(230));
         end;
        end;
       until (InvFull);
    end;


    //Walking to Bank from Willows\\

    procedure WalkToBank;
    begin
      if (InvFull) then
      begin
       MakeCompass('S');
       BankLogo := BitmapFromString(10, 8, 'beNqLjUuNHUkIAF3mWgE')

       if(not (FindBitmap(BankLogo, x, y))) then
       begin
        Mouse(627, 888, 8 , 8, true);
        Flag;
       end;
       DBankColour := AutoColorThis(BankLogo, 50, MMX1, MMY1, MMX2, MMY2);
       RadialWalk(DBankColour, 210, 10, 200, 3, 3);
       Flag;
       Wait(200 + random(150));
       end;
    end;

    //Banking the Willows\\

    function Banking: Boolean;
    begin
      if (InvFull) then
      begin
        Willow := DTMFromString('78DA73FCC4C4C0D0C9C8800A1819FE8349068' +
          '9FF40C0C8C08C550D8204D2AC40395308A86104AA994940CD87A0' +
          '8BE61050F31AA8A68F0845B3F0AB010040990CF0');
        Make Compass('N')
        Wait (300 + random(160));
        OpenBankQuiet('db');
        Flag;
        wait(500 + random(267));
        FixBank;
        if (FindDTM(Willow, x, y, 561, 210, 750, 464)) then
        begin
         Mouse(x, y, 4, 3, false);
         ChoseOption(x,y, 'All');
         Result := True;
         if (Result := True;) then
         begin
           LoadsNum := LoadsNum + 1;
           LoadsNum2 := LoadsNum2 + 1;
         end;
        end;
        CloseBank;
        Wait(150 + random (278));
        MakeCompass('S');
      end;
    end;

    //----Main Loop----\\

    procedure ScriptSetup;
    begin
      Signature
      SetupSRL;
      DeclarePlayers;
    end;

    //\\//\\

    begin
      SetupScript;
      repeat
        WalkToWillows;
        ChopTree;
        WalkToBank;
        Banking;
        if (LoadsNum2=Loads) then
        begin
         NextPlayer(Active);
          LoadsNum2 := 0;
          MakeCompass('S');
         Writeln('Players sucessfully Switched')
        end;
        TofProggy;
      until(False);
    end.

    {Many Thanks to JAD for his Breakdown of scripts, Yohojo for his DTM tut and
        to anyone who helped my many errors and problems during this script!}
    It still doesn't compile, but i fixed like 5 errors, BTW
    SCAR Code:
    popup
    Is an old procedure i think. Use ClickToContinue; Instead.

  3. #3
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    the mistakes you made were out of laziness. if you actually took the time they were VERY simple to fix, you just had to look for them. please do it next time. don't expect other ppl to do your work. if it was something hard, sure everyone is available to help. this was just your laziness.
    don't expect this anymore.
    SCAR Code:
    Program WillowCrusher;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/WoodCutting.scar}


    const

    //------------------------Setup----------------------\\

    //-->Willow Colours<--\\

    WillowColour = 0; //Colour of Willow
    WillowColour2 = 0; //Another Willow Colour
    WillowColour3 = 0; //A third Willow Colour

    //-->Loads<--\\

    Loads = 0; //How many loads per player before switching

    {-------------------------------------------------------
                           Player Setup
    --------------------------------------------------------}


    procedure DeclarePlayers;
    begin

       HowManyPlayers := 2; //How many Players
       NumberOfPlayers(HowManyPlayers);
       CurrentPlayer :=0; //Starting Player

       Players[0].Name := 'Username';
       Players[0].Pass := 'Password';
       Players[0].Nick := '3-4 letters of Username';
       Players[0].Active := True;

       Players[1].Name := 'Username';
       Players[1].Pass := 'Password';
       Players[1].Nick := '3-4 letters of Username';
       Players[1].Active := True;

    end;

    {----------------------------Do Not Edit Below This----------------------------}

    //Dont Touch These\\
    var LoadsNum: integer; DBankColour: integer; MMFishLogo, MMFishLogoColour: integer;
        BankLogo, LoadsNum2, Tries: integer;  //tries should be before integer;
    var x, y:integer;    //you need these because you use them in the script

    //Signature\\

    procedure Signature;
     begin
       ClearDebug;
       wait(250 + random(30));
       writeln('      Torrents Willow Crusher&Banker      ');
       wait(250 + random(30));
       writeln(' _____                                _   ');
       wait(250 + random(30));
       writeln('(_   _)                              ( )_ ');
       wait(250 + random(30));
       writeln('  | |   _    _ __  _ __   __    ___  | ,_)');
       wait(250 + random(30));
       writeln('  | | / _`\ ( "__)( "__)/"__`\/" _ `\| |  ');
       wait(250 + random(30));
       writeln('  | |( (_) )| |   | |  (  ___/| ( ) || |_ ');
       wait(250 + random(30));
       writeln('  (_)`\___/ (_)   (_)  `\____)(_) (_) \__)');
       wait(500 + random(30));
     end;

    //Torrent Proggy\\

    procedure ToFProggy;
    begin
      ClearDebug;
      Writeln(',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,');
      Writeln('/\Please Post Progress Reports & Any problems /\ ');
      Writeln('/\      From Wherever you got the script      /\ ');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\Worked For: '        + TimeRunning + '                   //\\');
      Writeln('//\\Did: '        + IntToStr(LoadsNum)+ ' Loads                            //\\');
      Writeln('//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\ ');
      Writeln('//\\      Thanks for Using my Script :D     //\\ ');
      Writeln('```````````````````````````````````````````````');
    end;

    //Walking to Willows from BANK\\
    procedure WalkToWillows;

    begin
      MakeCompass('N');
        MMFishLogo := BitmapFromString(15, 15, 'beNqV0kEOQEAMBdDWxh' +
           'mcxAUcx21szSnYsnMJVxGJmkbz02Eymr8w9YwMJXLFULKij1IwLSs' +
           'mek6lY5j4liLpfDlG2WynpOoPZLbEQymzIB5CcFiacu08j3OKud01' +
           'Jq0jSXfGu5KuDmIcxjPiVhpt3k+9fTozGMS//mBmNp6Jyo0TDB7UB' +
           'cUdAQU');

      MMFishLogoColour :=AutoColorThis(MMFishLogo, 50, MMX1, MMY1, MMX2, MMY2);
      RadialWalk(MMFishLogoColour, 10, 200, 210, 3, 3)
      wait(5000 + random(2000));
      Flag;
      Wait(300 + random(100));
      Tries := 0;
      repeat
         if (Tries = 50) then
         begin
          Writeln('Couldnt find willows, terminating script');
          TerminateScript;
         end;
         wait(400 + random(200));
         Tries := Tries + 1;
        until (FindColorTolerance(x, y, WillowColour, 275, -818, 700, -658, 4)) or
              (FindColorTolerance(x, y, WillowColour2, 275, -818, 700, -658, 4)) or
              (FindColorTolerance(x, y, WillowColour3, 275, -818, 700, -658, 4));

        end;

    //Chopping The Willows\\

    function ChopTree: Boolean;
    begin
      repeat
       if (not (LoggedIn)) then
         Exit;
       if (FindColorTolerance(x, y, WillowColour, 275, -818, 700, -658, 4)) or
          (FindColorTolerance(x, y, WillowColour2, 275, -818, 700, -658, 4)) or
          (FindColorTolerance(x, y, WillowColour3, 275, -818, 700, -658, 4)) then
       begin
        MMouse(x, y, 4, 4);
        if (IsUpText('illow')) then
         begin
          Mouse(x, y, 2, 2, true);
          repeat
           if (InvFull) or ClickToContinue then //ClickToContinue instead of PopUp
            Exit;
          until(not (FindColorTolerance(x, y, WillowColour, 275, -818, 700, -658, 4)))or  //added a )
                 (not (FindColorTolerance(x, y, WillowColour2, 275, -818, 700, -658, 4))) or  //added a )
                 (not (FindColorTolerance(x, y, WillowColour3, 275, -818, 700, -658, 4))); //added a )
          repeat
            if (InvFull) or ClickToContinue then
              Exit;
            wait(700 + random(230));
          until(False) //////////////////////////edit this! but you needed an until here
         end;
        end;
       until (InvFull);
    end;


    //Walking to Bank from Willows\\

    procedure WalkToBank;
    begin
      if (InvFull) then
      begin
       MakeCompass('S');
       BankLogo := BitmapFromString(10, 8, 'beNqLjUuNHUkIAF3mWgE')

       if(not (FindBitmap(BankLogo, x, y))) then
       begin
        Mouse(627, 888, 8 , 8, true);
        Flag;
       end;
       DBankColour := AutoColorThis(BankLogo, 50, MMX1, MMY1, MMX2, MMY2);
       RadialWalk(DBankColour, 210, 10, 200, 3, 3);
       Flag;
       Wait(200 + random(150));
       end;
    end;

    //Banking the Willows\\

    function Banking: Boolean;
    var willow:integer;
    begin
      if (InvFull) then
      begin
        Willow := DTMFromString('78DA73FCC4C4C0D0C9C8800A1819FE8349068' +
          '9FF40C0C8C08C550D8204D2AC40395308A86104AA994940CD87A0' +
          '8BE61050F31AA8A68F0845B3F0AB010040990CF0');
        MakeCompass('N')   //makecompass is one word.
        Wait (300 + random(160));
        OpenBankQuiet('db');
        Flag;
        wait(500 + random(267));
        FixBank;
        if (FindDTM(Willow, x, y, 561, 210, 750, 464)) then
        begin
         Mouse(x, y, 4, 3, false);
         ChooseOption('All'); //choose has two 'o's and no x and y
         Result := True;
         if Result = True then  //when comparing it's only =, not :=
         begin
           LoadsNum := LoadsNum + 1;
           LoadsNum2 := LoadsNum2 + 1;
         end;
        end;
        CloseBank;
        Wait(150 + random (278));
        MakeCompass('S');
      end;
    end;

    //----Main Loop----\\

    procedure ScriptSetup;
    begin
      Signature
      SetupSRL;
      DeclarePlayers;
    end;

    //\\//\\

    begin
      ScriptSetup; //ScriptSetup, not SetupScript! look at the name of the procedure you made!
      repeat
        WalkToWillows;
        ChopTree;
        WalkToBank;
        Banking;
        if (LoadsNum2=Loads) then
        begin
         NextPlayer(True); //True, not Active
          LoadsNum2 := 0;
          MakeCompass('S');
         Writeln('Players sucessfully Switched')
        end;
        TofProggy;
      until(False);
    end.

    {Many Thanks to JAD for his Breakdown of scripts, Yohojo for his DTM tut and
        to anyone who helped my many errors and problems during this script!}

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

  4. #4
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    Im sorry >.>

    I was actually seriousley confused.

    Im sorry if they are beginner mistakes..

    Thank You anyway.

    Rep++
    Jus' Lurkin'

Thread Information

Users Browsing this Thread

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

Posting Permissions

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