Results 1 to 10 of 10

Thread: Stuck

  1. #1
    Join Date
    Jun 2007
    Location
    NSW, Sydney,
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Stuck

    Ive read one tutorial on scripting, some of it I didn't understand...Even with the help of other tutorials I did not completely understand what i needed to know... I managed to get this far but now im really stuck... Wizzup? has suggested that i post my script here...

    SCAR Code:
    program Hidecrafter;

    {.include SRL/SRL.scar}


    const
       StartPlayer = 0;
       NumberOfUsers = 1;
       HowManyLoads = 10;
       Direction = 'N'; //What direction you want to make the compass

    Procedure Declareplayers;
    begin
       HowManyPlayers:= 1;
       NumberOfPlayers(HowManyPlayers );
       CurrentPlayer := 0;

       Players[0].Name :='';
       Players[0].Pass :='';
       Players[0].Nick :='';
       Players[0].Loc :='Bank';
       Players[0].Active:=True;
       Players[0].String1:='Hardleather'; //What type of leather?
       Players[0].String2:=''; //bank pin if any

    end;

    procedure declareDTMS;
    begin
      Needle := DTMFromString('78DA63DCC1C4C0F09C910119880A098169982' +
           '8E349A09A0BA86A60B2703507816AEEA3AA29C9C94155B317D3AE' +
           'F953A7A2A80100B17309E0');
      Hardleather := DTMFromString('78DA637CC4C4C0B089910119D89A288369982' +
           '8E32FA09ACDA86A0C141450D57C07AAD98FAA06260B57F310A8E6' +
           '007E3500B09C07B3');
      Thread := DTMFromString('78DA63B467666058CDC8800CCC5421344C94D' +
           '102A8E630AA1A5B4D343520738EA0AA09B2E04455E30E54B30D55' +
           'CDBCC99351D57801D56C40551363876A0E0002FD08B9');
    end;

    procedure Report;
    begin
      SRLRandomsReport;
      WriteLn('     Rebels hidecrafter prgress report     ')
      WriteLn('     Running Time:     ' + (TimeRunning) + '')
      WriteLn('     Hidescrafted:     ' + IntToStr(Hidescrafted) + '')
      WriteLn('     XP Gained:     ' + IntToStr(TotalXP) + '')
    end;

    procedure withdrawhides;
    begin
      OpenBank;
      wait(200+random(300));
      ;
      wait(200+random(200));
      ;
      wait(200+random(300));
      closebank;
    end;

    Procedure bankhides;
    begin
      OpenBank;
      wait(600+random(500));
      ;
      wait(400+random(500));
    end;

    Procedure crafthides;



    begin
    If(Not(LoggedIn)) Then
     LoginPlayer;
    Repeat
     withdrawhides;
     crafthides;
     bankhides;
    end.

    I also made this

    SCAR Code:
    Procedure crafthides;

    MoveMouseSmooth(800,444)
    ClickMouse(800,444,true)
    MoveMouseSmooth(844,444)
    ClickMouse(844,444,true)
    MoveMouseSmooth(712,485)
    ClickMouse(712,485,true)
    MoveMouseSmooth(752,485)
    ClickMouse(752,485,true)
    MoveMouseSmooth(800,485)
    ClickMouse(800,250,true)
    MoveMouseSmooth(844,485)
    ClickMouse(844,250,true)
    MoveMouseSmooth(712,521)
    ClickMouse(712,250,true)
    MoveMouseSmooth(752,521)
    ClickMouse(752,250,true)
    MoveMouseSmooth(800,521)
    ClickMouse(800,250,true)
    MoveMouseSmooth(844,521)
    ClickMouse(844,250,true)
    MoveMouseSmooth(712,554)
    ClickMouse(712,250,true)
    MoveMouseSmooth(752,554)
    ClickMouse(752,250,true)
    MoveMouseSmooth(800,554)
    ClickMouse(800,250,true)
    MoveMouseSmooth(844,554)
    ClickMouse(844,250,true)
    MoveMouseSmooth(712,593)
    ClickMouse(712,250,true)
    MoveMouseSmooth(752,593)
    ClickMouse(752,250,true)
    MoveMouseSmooth(800,593)
    ClickMouse(800,250,true)
    MoveMouseSmooth(844,593)
    ClickMouse(844,250,true)
    MoveMouseSmooth(712,628)
    ClickMouse(712,250,true)
    MoveMouseSmooth(752,628)
    ClickMouse(752,250,true)
    MoveMouseSmooth(800,628)
    ClickMouse(800,250,true)
    MoveMouseSmooth(844,628)
    ClickMouse(844,250,true)
    MoveMouseSmooth(712,670)
    ClickMouse(712,250,true)
    MoveMouseSmooth(752,670)
    ClickMouse(752,250,true)
    MoveMouseSmooth(800,670)
    ClickMouse(800,250,true)
    MoveMouseSmooth(844,670)
    ClickMouse(844,250,true)

  2. #2
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Unknown Identifier means you haven't declared as a variable. You have to put at the beginning:

    SCAR Code:
    var
    Needle : Integer;
    HardLeather : Integer;
    Thread : Integer;
    LogsDone : Integer;
    TotalXp : Integer;

    SCAR Code:
    Procedure openbank;

    It's in SRL do you don't have to write Procedure. Just put OpenBank where you need it.

    SCAR Code:
    Cutbows

    There's no procedure called CutBows. Also, why do I feel this script isn't yours. It says CutBows...Hidescrafted Cut, etc.?

    Anyway, here's the script but please explain yourself:

    SCAR Code:
    program Hidecrafter;

    {.include SRL/SRL.scar}
    var
    Needle : Integer;
    HardLeather : Integer;
    Thread : Integer;
    LogsDone : Integer;
    TotalXp : Integer;

    const
       StartPlayer = 0;
       NumberOfUsers = 1;
       HowManyLoads = 10;
       Direction = 'N'; //What direction you want to make the compass

    Procedure Declareplayers;
    begin
       HowManyPlayers:= 1;
       NumberOfPlayers(HowManyPlayers );
       CurrentPlayer := 0;

       Players[0].Name :='';
       Players[0].Pass :='';
       Players[0].Nick :='';
       Players[0].Loc :='Bank';
       Players[0].Active:=True;
       Players[0].String1:='Hardleather'; //What type of leather?
       Players[0].String2:=''; //bank pin if any

    end;

    procedure declareDTM;
    begin
      Needle := DTMFromString('78DA63DCC1C4C0F09C910119880A098169982' +
           '8E349A09A0BA86A60B2703507816AEEA3AA29C9C94155B317D3AE' +
           'F953A7A2A80100B17309E0');
      Hardleather := DTMFromString('78DA637CC4C4C0B089910119D89A288369982' +
           '8E32FA09ACDA86A0C141450D57C07AAD98FAA06260B57F310A8E6' +
           '007E3500B09C07B3');
      Thread := DTMFromString('78DA63B467666058CDC8800CCC5421344C94D' +
           '102A8E630AA1A5B4D343520738EA0AA09B2E04455E30E54B30D55' +
           'CDBCC99351D57801D56C40551363876A0E0002FD08B9');
    end;

    procedure Report;
    begin
      SRLRandomsReport;
      WriteLn('     Rebels hidecrafter prgress report     ')
      WriteLn('     Running Time:     ' + (TimeRunning) + '')
      WriteLn('     Hidescrafted Cut:     ' + IntToStr(LogsDone) + '')
      WriteLn('     XP Gained:     ' + IntToStr(TotalXP) + '')
    end;


    procedure withdrawhides;
    begin
      OpenBank;
      wait(200+random(300));
      ;
      wait(200+random(200));
      ;
      wait(200+random(300));
      closebank;
    end;

    Procedure bankhides;
    begin
      OpenBank;
      wait(600+random(500));
      ;
      wait(400+random(500));
    end;

    Procedure crafthides;



    begin
    If(Not(LoggedIn)) Then
     LoginPlayer;
    Repeat
     withdrawhides;
     bankhides;
    end.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  3. #3
    Join Date
    Jun 2007
    Location
    NSW, Sydney,
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks alot

    I may of made a mistake buy typing cut instead of crafted

  4. #4
    Join Date
    Jun 2007
    Location
    NSW, Sydney,
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is this better???

    SCAR Code:
    program Hidecrafter;

    {.include SRL/SRL.scar}

    Needle : Integer;
    HardLeather : Integer;
    Thread : Integer;
    HidesCrafted : Integer;
    TotalXp : Integer;


    const
       StartPlayer = 0;
       NumberOfUsers = 1;
       HowManyLoads = 10;
       Direction = 'N'; //What direction you want to make the compass

    Procedure Declareplayers;
    begin
       HowManyPlayers:= 1;
       NumberOfPlayers(HowManyPlayers );
       CurrentPlayer := 0;

       Players[0].Name :='';
       Players[0].Pass :='';
       Players[0].Nick :='';
       Players[0].Loc :='Bank';
       Players[0].Active:=True;
       Players[0].String1:='Hardleather'; //What type of leather?
       Players[0].String2:=''; //bank pin if any

    end;

    procedure declareDTMS;
    begin
      Needle := DTMFromString('78DA63DCC1C4C0F09C910119880A098169982' +
           '8E349A09A0BA86A60B2703507816AEEA3AA29C9C94155B317D3AE' +
           'F953A7A2A80100B17309E0');
      Hardleather := DTMFromString('78DA637CC4C4C0B089910119D89A288369982' +
           '8E32FA09ACDA86A0C141450D57C07AAD98FAA06260B57F310A8E6' +
           '007E3500B09C07B3');
      Thread := DTMFromString('78DA63B467666058CDC8800CCC5421344C94D' +
           '102A8E630AA1A5B4D343520738EA0AA09B2E04455E30E54B30D55' +
           'CDBCC99351D57801D56C40551363876A0E0002FD08B9');
    end;

    procedure Report;
    begin
      SRLRandomsReport;
      WriteLn('     Rebels hidecrafter prgress report     ')
      WriteLn('     Running Time:     ' + (TimeRunning) + '')
      WriteLn('     Hidescrafted:     ' + IntToStr(LogsDone) + '')
      WriteLn('     XP Gained:     ' + IntToStr(TotalXP) + '')
    end;

    procedure withdrawhides;
    begin
      OpenBank;
      wait(200+random(300));
      ;
      wait(200+random(200));
      ;
      wait(200+random(300));
      closebank;
    end;

    Procedure bankhides;
    begin
      OpenBank;
      wait(600+random(500));
      ;
      wait(400+random(500))
      ;
      wait(400+random(500))
      closebank;
    end;

    Procedure crafthides;

    MoveMouseSmooth(800,444)

    MoveMouseSmooth(844,444)

    MoveMouseSmooth(712,485)

    MoveMouseSmooth(752,485)

    MoveMouseSmooth(25,485)

    MoveMouseSmooth(25,485)

    MoveMouseSmooth(25,521)

    MoveMouseSmooth(25,521)

    MoveMouseSmooth(25,521)

    MoveMouseSmooth(25,521)

    MoveMouseSmooth(25,554)

    MoveMouseSmooth(25,554)

    MoveMouseSmooth(25,554)

    MoveMouseSmooth(25,554)

    MoveMouseSmooth(25,593)

    MoveMouseSmooth(25,593)

    MoveMouseSmooth(25,593)

    MoveMouseSmooth(25,593)

    MoveMouseSmooth(25,628)

    MoveMouseSmooth(25,628)

    MoveMouseSmooth(25,628)

    MoveMouseSmooth(25,628)

    MoveMouseSmooth(25,670)

    MoveMouseSmooth(25,670)

    MoveMouseSmooth(25,670)

    MoveMouseSmooth(25,670)
    end;

    begin
    If(Not(LoggedIn)) Then
     LoginPlayer;
    end;
    begin
     withdrawhides;
     crafthides;
     bankhides;
     Report;
    end.

  5. #5
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Better. But use SRL's version of mouse moving and clicking.

    Mouse(x, y, 1, 1, True); Moves Mouse to x, y and performs a left click. 1, 1 is the random offset.

    Mouse(x, y, 1, 1, False); Moves Mouse to x, y and performs a right click. 1, 1 is the random offset.

    MMouse(x, y, 1, 1); Moves mouse to x, y with random offset of 1 on each axis.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  6. #6
    Join Date
    Jun 2007
    Location
    NSW, Sydney,
    Posts
    105
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks...

  7. #7
    Join Date
    Mar 2007
    Location
    Maryland, USA
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    just as a thought, ive learned that OpenBank3; works alot better

  8. #8
    Join Date
    Oct 2006
    Posts
    1,071
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Why did you put in DTMs if your using coords? Is it for your banking procedures? If your going to use them to bank/withdraw wouldn't it make sense to use them for your crafting procedure as well? And just do a loop of finding the DTM and clicking? Much less to type.

  9. #9
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    WriteLn(' Hidescrafted: ' + IntToStr(LogsDone) + '')
    LOGS DONE?WTF?

    Anyways, never use detectable Commands for scar.
    MoveMouse = OMG DETECTABLE.
    ClickMouse = OMFG DETECTABLE!!!
    MoveMouseSmooth = DETECTABLE!!!!!!!!
    lol

    Use
    Mouse
    MMouse
    Even If You Are On Your Way, You Will Get Run Over If You Just Sit There.
    -ILikePie1995.

    My Best Script I Yet Made, Go Check It Out, Its In The Fighting Section. Look For UndeadKiller!

    GET FREE CASH!!!READ ALL ABOUT IT!!!
    http://www.AdPaid.com/ptr/pages/join...d=ilikepie1995

    JOIN AdPaid.Com NOW!!!ITS OWNAGE!!!
    http://www.AdPaid.com/ptr/pages/conf...d=ilikepie1995

  10. #10
    Join Date
    Jun 2007
    Location
    NSW, Australia.
    Posts
    541
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Use MMouse instead of MoveMouseSmooth.
    Use Mouse instead of ClickMouse.

    -Pancakes.
    Quote Originally Posted by RAM View Post
    I sam sofa king wee todd did ! ~RAM
    My SRL Army Blog.


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Im Stuck, literally...
    By Claymore in forum OSR Help
    Replies: 0
    Last Post: 07-27-2008, 05:47 PM
  2. stuck on error
    By yakkyigooconroy in forum OSR Help
    Replies: 3
    Last Post: 01-22-2008, 09:11 PM
  3. stuck in a function
    By macromacro123 in forum OSR Help
    Replies: 6
    Last Post: 10-31-2007, 05:10 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
  •