Results 1 to 5 of 5

Thread: Unknown Identifier: 'DropItems'

  1. #1
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Unknown Identifier: 'DropItems'

    Title says it all... im getting a problem saying that on mi 34th line and i no it is a real function. Heres my script (my 1st 1 too!)
    --------------------------------------------------------------------------
    program PowerWoodCutter;

    {.include SRL/SRL.scar}

    var
    x,y: Integer;
    i: Integer;

    const
    TreeColor=1922123;

    Procedure Chop;

    begin
    SetupSRL
    If(FindColor(x,y,TreeColor,117,179,889,709)) then
    MoveMouse(374,366); //Moveing mouse to the tree
    Wait(500+random(1000));
    ClickMouse(374,366,true); //Clicks the tree
    Wait(1000+random(8000));
    TypeSend('This is so boring...');//Speaking to look like human
    Wait(10000+random(20000));//waits 10-20 seconds
    end;
    begin
    i:= 0
    Repeat
    i:= i + 1;
    Chop;//Do the chop procedure
    MoveMouseSmooth(790,150)//Moveing my mouse for more human like response
    MoveMouseSmooth(723,170)//Moveing my mouse for more human like response
    MoveMouseSmooth(793,331)//Moveing my mouse for more human like response
    MoveMouseSmooth(822,338)//Moveing my mouse for more human like response
    if InvFull = true then
    --------------------->DropItems(2,28)//Drops all items from slot 2-28 (slot 1 is my axe so i dont get it destroyed by randoms)
    Until(i >= 50);//Do it 50 times
    end.

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

    Default

    Use DropToPosition(2,28);

    SCAR Code:
    program PowerWoodCutter;

    {.include SRL/SRL.scar}

    var
      x, y: Integer;
      i: Integer;

    const
      TreeColor = 1922123;

    procedure Chop;
    begin
      if (FindColor(x, y, TreeColor, 117, 179, 889, 709)) then
      begin
        Mouse(x,y,5,5,true); //Move and click there
        Wait(1000 + Random(8000));
        TypeSend('This is so boring...');//Speaking to look like human
        Wait(10000 + Random(20000));     //waits 10-20 seconds
      end;
    end;

    begin
      SetupSRL
      i := 0;
      repeat
        i := i + 1;
        Chop;//Do the chop procedure
        MMouse(MSX1,MSY1,MSX2,MSY2);
        if InvFull = true then
          DropToPosition(2, 28);
      until (i >= 50);//Do it 50 times
    end.

    Fixed with standards.

    Use Mouse and MMouse instead of MoveMouseSmooth.

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

  3. #3
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    wat does this stand for?

    MSX1,MSY1,MSX2,MSY2

  4. #4
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  5. #5
    Join Date
    Oct 2007
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its ure first right? well let me suggest something...

    were u put typesend('this is boring') you should chaange it because your script will be like this: chop a tree, type this is boring, chop a tree, type this is boring. over and over. i suggest making it random by doing something lkike this:

    Code:
    case Random(10) of
    1: typesend('this is boring')
    
    9: typesend('few more logs')'
    
    5: typesend('woodcutting gets boring after awile')
    end;
    that says that SCAR will randomly pick a number from 0 - 10 and if it pick any of the numbers next to the typesends it will do that command for example if it randomly picks 5 it will type 'woodcutting gets boring after awile'. so your final script would look like this:

    Code:
    program PowerWoodCutter;
    
    {.include SRL/SRL.scar}
    
    var
      x, y: Integer;
      i: Integer;
    
    const
      TreeColor = 1922123;
    
    procedure Chop;
    begin
      if (FindColor(x, y, TreeColor, 117, 179, 889, 709)) then
      begin
        Mouse(x, y, 5, 5, true); //Move and click there
        Wait(1000 + Random(8000));
        case Random(10) of
          1: typesend('this is boring')
    
            4: typesend('ugh')
    
            7: typesend('when does it end!')
        end;
        Wait(10000 + Random(20000)); //waits 10-20 seconds
      end;
    end;
    
    begin
      SetupSRL
        i := 0;
      repeat
        i := i + 1;
        Chop; //Do the chop procedure
        MMouse(MSX1, MSY1, MSX2, MSY2);
        if InvFull = true then
          DropToPosition(2, 28);
      until (i >= 50); //Do it 50 times
    end.
    remember every "case" needs an end;

    I tested it works
    hope i helped
    http://bux.to/?r=jvwarrior Get Free Money For RunescapeGP/Membership!

    http://www.AWSurveys.com/HomeMain.cfm?RefID=jvwarrior Get More Money For Runescape GP/Membership Free! I Mean woa!

    http://i34.servimg.com/u/f34/11/52/00/62/hasdfs10.jpg

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Help Unknown Identifier.
    By Minkino in forum OSR Help
    Replies: 2
    Last Post: 10-04-2008, 12:49 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
  •