Results 1 to 8 of 8

Thread: My Fletching script is not working :s

  1. #1
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default My Fletching script is not working :s

    SCAR Code:
    Function Fletch:Boolean;
    Var
      MaxTime:Integer;
    Begin
      If Not Loggedin Then Exit;
      If Not FindKnife(X, Y, True) Then If GetKnife = False Then Logout;
      If Not Loggedin Then Exit;
      If FindKnife(X, Y, True) Then
      Begin
        Mouse(X, Y, 3, 3, TrueOrFalse);
        If RightClick then HOption('Use');
        RightClick:=True;
        If FindItem(Players[0].Strings[0], X, Y, True) then Mouse(X, Y, 3, 3, TrueOrFalse);
        If RightClick then HOption('Use');
        RightClick:=True;
      End;
      MarkTime(MaxTime);
      Repeat
        Wait(100+random(50));
        If LowerCase(Players[CurrentPlayer].Strings[1]) = 'longbow' Then Result:= FindTextTpa (0,10,MCX1, MCy1, MCX2, MCy2,'ong',NpcChars,ClickRight) else If (Players[CurrentPlayer].Strings[1]) = 'shortbow' Then Result:= FindTextTpa (0,10,MCX1, MCy1, MCX2, MCy2,'hort',NpcChars,ClickRight);
      Until (FScreen) or Result or(TimeFromMark(MaxTime) >=5000);
      Wait(100);
      If Result Then Result:=HOption('X');
      If Result Then Wait(750+random(500));
      if Result Then TypeSend(IntToStr(RandomRange(28,99)));
      If Not Result Then LogOut;//here does it logs out because something above this results false.
      If Not Loggedin Then Exit;
      MarkTime(MaxTime)
      Repeat
        Wait(100+random(50));
      Until Not FindItem(Players[0].Strings[0], X, Y, True) or (TimeFromMark(MaxTime) >=60000*2);
      Result:= Not FindItem(Players[0].Strings[0], X, Y, True);
      If Result Then CountUp;
    End;

    when it finds the FScreen it logsout.

    Can you help me?
    ~Hermen

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

    Default

    This gave me some problems:
    SCAR Code:
    (TimeFromMark(MaxTime) >=5000);

    Maybe:

    SCAR Code:
    (TimeFromMark(MaxTime) >5000);

  3. #3
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Why? thanks
    It worked 1 time :S
    ~Hermen

  4. #4
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    Why not post the whole script lil bud.

    Nava2
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  5. #5
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Nava2 View Post
    Why not post the whole script lil bud.

    Nava2
    Its to l33t will burn your little eyes.
    ~Hermen

  6. #6
    Join Date
    Feb 2006
    Location
    London, England
    Posts
    2,045
    Mentioned
    2 Post(s)
    Quoted
    0 Post(s)

    Default

    Well i was going to tell you what was wrong but after that comment, I think I won't.

    It might "burn your little eyes"
    SRL Wiki | SRL Rules | SRL Stats
    Ultimate SCAR Scripting Tutorial | Starblaster100's Auth System | Join the official SRL IRC now!


    Help Keep SRL Alive! Please disable Advert Blockers on SRL! Help Keep SRL Alive!


  7. #7
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Haha

    Anyways Hermpie, FScreen might come true before Result, so remove FScreen from the until and add it to the loop, If FScreen Then Result := True.

    You should've been able to sort that out yourself.

  8. #8
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Starblaster100 View Post
    Well i was going to tell you what was wrong but after that comment, I think I won't.

    It might "burn your little eyes"
    Haha
    Nava is my msn mate, that why i made that joke (not funny afterall)

    Thanks, n3ss3s

    Edit:
    It works but does not right clicks :s
    ~Hermen

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. 99 Fletching
    By jakeyboy29 in forum News and General
    Replies: 16
    Last Post: 12-05-2008, 03:57 AM
  2. Dtm HELP (fletching)
    By P1nky in forum OSR Help
    Replies: 6
    Last Post: 01-25-2008, 05:38 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
  •