Results 1 to 7 of 7

Thread: My old wc script

  1. #1
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    My old wc script

    I havnt been on scar for a while and re-opend my 1st old script

    but it doesnt work
    im getting a 'CreateTPAFromBMP' error,
    I think it's because its old :P
    please can some1 try and fix it

    thankyou 4 ur time
    heres the script;
    SCAR Code:
    //=======South Varock OakOblivion========//
    //                                       //
    // 1. Position yourself south of varrock //
    //   - by the oak trees facing north.    //
    // 2. Enter you login details.           //
    //           ##IMPORTANT##               //
    //        AXE MUST BE EQUIPTED           //
    // 3.Press play and watch the lvls go    //
    //   up                                  //
    //=======================================//
    ///////////////////////////////////////////
    {=========================================

    program VarrockSouth_OakOblivionV1;
    {.include SRL/SRL.scar}


    var
    i,x,y:Integer;

    const
      TreeColor = 926756;//the color of the tree

    Procedure DeclarePlayers;
    begin


      HowManyPlayers:= 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name        := '---------'; //UserName
      Players[0].Pass        := '---------'; //Password
      Players[0].Nick        := '----'; //Your Nickname - 3-4 leters
      Players[0].Active      := True; //Active

      Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;

    procedure Signiture;
    begin
    writeln('T');    // sig
    writeln('O');
    writeln('M');
    writeln('D');
    writeln('A');
    writeln('V');
    writeln('I');
    writeln('E');
    writeln('S');

    end;

    procedure Login;  //Login
    begin
     if (not(LoggedIn)) then  //If not logged in then logs in player
     LoginPlayer;
    end;
    procedure CutTree; //Cuts the Trees
    begin

    i:= 0;
    repeat //repeats
    i:=i + 1;
    if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
    begin
    Wait(3000 +random(500))
    Mouse(x, y, 3, 3, True); // Moves mouse
    Wait(9000 +random(500));
    end;
    wait(200+random(250)); //Not to lag out RS (Increase if needed)
    until(InvFull) or (i>700000); //change this to whatever u need
    if(i>700000)then //change this aswell
    begin
    writeln('Logging out, cant find tree.');
    Logout;
    end;
    end;

    procedure Drop; //Drops logs
    begin
     DropAll;  // Drops Everything
    end;

    begin
      SetupSRl;  // setup srl
      Signiture; // setup sig
      DeclarePlayers; // Declare Players
      if (not(LoggedIn)) then Login;
      repeat        // Repeat these functions
      CutTree;      // Cut
      Drop;         // Drop
      until(false)  // Until stoped
    end.            // Finished

  2. #2
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Just remove the last line of your declare players and it should work.

  3. #3
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nope that didnt no anything says the same thing eroor line 59

  4. #4
    Join Date
    Oct 2007
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    acctually sum1 sed move my plugins i'll quote-

    Copy the whole error... I think you mean "Unknown Identifier", move the plugins from SRL\Place inside plugins folder to SCAR 3.15\Plugins.
    Please could some1 try and help me move them;

    i tried Tools - Options - srl downlod - move plugins but it doesnt work

  5. #5
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    You dont need to move them, You need to download SRL again

  6. #6
    Join Date
    Apr 2008
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im getting this same error and i have no idea what to do. i tried downloading srl again and nothing changed. can someone please explain to me what to do. o and also i am having trouble finding where declare players is. im rly sry im a noob when it comes to this stuff

  7. #7
    Join Date
    Jan 2008
    Location
    Stanford, CA
    Posts
    329
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Here I cleaned up your standards a bit, and fixedup some stuff. =)

    SCAR Code:
    program VarrockSouth_OakOblivionV1;
    {.include SRL/SRL.scar}
     
    var
    i,x,y:Integer;
     
    const
      TreeColor = 926756;//the color of the tree
     
    Procedure DeclarePlayers;
    begin
     
     
      HowManyPlayers:= 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;
     
      Players[0].Name        := '---------'; //UserName
      Players[0].Pass        := '---------'; //Password
      Players[0].Nick        := '----'; //Your Nickname - 3-4 leters
      Players[0].Active      := True; //Active
     
      Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
      //the nicknamebmp was unnecessary
    end;
     
    procedure Signiture;
    begin
    writeln('T');    // sig
    writeln('O');
    writeln('M');
    writeln('D');
    writeln('A');
    writeln('V');
    writeln('I');
    writeln('E');
    writeln('S');
     
    end;
     
    procedure Login;  //Login
    begin
     if (not(LoggedIn)) then  //If not logged in then logs in player
     LoginPlayer;
    end;


    procedure CutTree; //Cuts the Trees

    var
    It: boolean

    begin
      It:=False;
        begin
          i:=i + 1;
         if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
         begin
           It:=True;
           Wait(3000 +random(500))
           Mouse(x, y, 3, 3, True); // Moves mouse
           Wait(9000 +random(500));
           wait(200+random(250)); //Not to lag out RS (Increase if needed)
        end;
      until(It) or (i>=50); //u should only need to click the tree once right?
         if(i>50)then
        begin
           writeln('Logging out, cant find tree.');
           Logout;
        end;
    end;
     
    procedure Drop; //Drops logs
    begin
     DropAll;  // Drops Everything
    end;
     
    begin
      SetupSRl;  // setup srl
      Signiture; // setup sig
      DeclarePlayers; // Declare Players
      if (not(LoggedIn)) then Login;
      repeat        // Repeat these functions
        CutTree;      // Cut
        Drop;         // Drop
      until(false)  // Until stoped
    end.            // Finished

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
  •