Results 1 to 8 of 8

Thread: Request For Requests

  1. #1
    Join Date
    Dec 2006
    Location
    UK
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Request For Requests

    Is there anyone that need new, or customized function or procedures. Cuz im better at creating functions and stuff that scripts. SO if anyone need a function for a script that there making then plz post them here.

  2. #2
    Join Date
    Feb 2007
    Location
    SparklesProd.com
    Posts
    2,406
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Can you improve my procedure? >_>

    It gives 'Sure, I'll give it a go.' a few times round the loop, then fucks up. So I'd love a really nice procedure to click it. :P

    SCAR Code:
    Procedure TalkTo;
     begin
    ClickToContinue;
     wait(2000);
     ClickNpcChatText('give it a go.');
     wait(1000);
    ClickToContinue;
     wait(1000);
    ClickToContinue;
     wait(1000);
     end;

  3. #3
    Join Date
    Oct 2006
    Location
    Texas
    Posts
    1,450
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    Well idk but maybe this?

    Yours:
    SCAR Code:
    Procedure TalkTo;
     begin
    ClickToContinue;
     wait(2000);
     ClickNpcChatText('give it a go.');
     wait(1000);
    ClickToContinue;
     wait(1000);
    ClickToContinue;
     wait(1000);
     end;


    Mines :
    SCAR Code:
    Procedure TalkTo;
    Begin
    If(ClickToContinue)Then
     Begin
      Repeat
       FTWait(3);
        ClickToContinue;
       Until(ClickNpcChatText('give it a go'))
     End;
    End;

  4. #4
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    that wouldnt work because give it a go comes as second more like:

    SCAR Code:
    function ClicktoGo : boolean;
    Begin
     if ClickToContinue then
      begin
       Repeat
        FTWait(3)
        ClickToContinue;
       Until(ClickNpcChatText('give it a go.'));
       result:= true;
      end;
     if result then
      begin
       repeat
        FTwait(3)
        Clicktocontinue
       until(not clicktocontinue)
      end;
    end;

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  5. #5
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    function OrderIntArray(TheArray:array of integer):array of integer;

    Put in an array of integer, spits out array in order, lowest to highest.

    Also same but with array of Tpoint, that can sort by x or by y. Or make a separate function for x and for y, idc.

  6. #6
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The Nerd how youre tut islnad im i need of that

  7. #7
    Join Date
    Dec 2006
    Location
    UK
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Boreas View Post
    function OrderIntArray(TheArray:array of integer):array of integer;

    Put in an array of integer, spits out array in order, lowest to highest.

    Also same but with array of Tpoint, that can sort by x or by y. Or make a separate function for x and for y, idc.
    I managed to make the function which was not very easy, but I did it. A function sorts TPoints from highest to lowest by either x or y.

    Code:
    {*******************************************************************************
    Function SortTPoints(Tpoints:TPointArray;SortByX:Boolean):TPointArray;
    By: THE NERD
    Description: Sorts TPointArrays from lowest to highest by either x or by
                 depending on what you enter for SortByX
    *******************************************************************************}
    
    Function SortTPoints(Tpoints:TPointArray;SortByX:Boolean):TPointArray;
    var
    Numberinarray, I, II, C, NumberofSofar, CurrentNum, LargestNum:integer;
    Temp, Final: TPointArray;
    
    begin
    NumberInArray := getarraylength(TPoints);
    
    SetArrayLength(Temp, NumberInArray);
    SetArrayLength(Final, NumberInArray);
    
    CurrentNum := 0;
    
    For I := 0 to Numberinarray - 1 do
      begin
      Temp[I].x := TPoints[I].x;
      Temp[I].y := TPoints[I].y;
      end;
    
    If (SortByX) Then
    begin
      For II := 0 to Numberinarray - 1 do
        begin
        NumberofSofar := 0;
        For I := 0 to Numberinarray - 1 do
          begin
          If (Temp[II].x >= Temp[I].x) Then
            begin
            NumberofSofar := NumberofSofar + 1;
            end;
          If (NumberofSofar >= Numberinarray) Then
            begin
            LargestNum := Temp[II].x;
            end;
          end;
        end;
      
      Repeat
        For II := 0 to Numberinarray - 1 do
          begin
          NumberofSofar := 0;
          For I := 0 to Numberinarray - 1 do
            begin
            If (Temp[II].x <= Temp[I].x) Then
              begin
              NumberofSofar := NumberofSofar + 1;
              end;
            If (NumberofSofar >= Numberinarray) Then
              begin
              If (CurrentNum < NumberInArray) Then
                begin
                Final[CurrentNum].x := Temp[II].x;
                Final[CurrentNum].y := Temp[II].y;
                CurrentNum := CurrentNum + 1;
                Temp[II].x := LargestNum + 1;
                end;
              end;
            end;
          end;
      Until (CurrentNum >= NumberInArray);
    end;
    
    If Not (SortByX) Then
    begin
      For II := 0 to Numberinarray - 1 do
        begin
        NumberofSofar := 0;
        For I := 0 to Numberinarray - 1 do
          begin
          If (Temp[II].y >= Temp[I].y) Then
            begin
            NumberofSofar := NumberofSofar + 1;
            end;
          If (NumberofSofar >= Numberinarray) Then
            begin
            LargestNum := Temp[II].y;
            end;
          end;
        end;
    
      Repeat
        For II := 0 to Numberinarray - 1 do
          begin
          NumberofSofar := 0;
          For I := 0 to Numberinarray - 1 do
            begin
            If (Temp[II].y <= Temp[I].y) Then
              begin
              NumberofSofar := NumberofSofar + 1;
              end;
            If (NumberofSofar >= Numberinarray) Then
              begin
              If (CurrentNum < NumberInArray) Then
                begin
                Final[CurrentNum].y := Temp[II].y;
                Final[CurrentNum].x := Temp[II].x;
                CurrentNum := CurrentNum + 1;
                Temp[II].y := LargestNum + 1;
                end;
              end;
            end;
          end;
      Until (CurrentNum >= NumberInArray);
    end;
    
    Result := Final;
    end;
    And also one that does the same, but with integers.

    Code:
    {*******************************************************************************
    Function Sort(NumbersArray:Array Of Integer):Array of Integer;
    By: THE NERD
    Description: Sorts an array of integers from lowest to highest
    *******************************************************************************}
    
    Function Sort(NumbersArray:Array Of Integer):Array of Integer;
    var
    Numberinarray, I, II, C, NumberofSofar, CurrentNum, LargestNum:integer;
    Temp, Final: Array of Integer;
    
    begin
    NumberInArray := getarraylength(NumbersArray);
    
    SetArrayLength(Temp, NumberInArray);
    SetArrayLength(Final, NumberInArray);
    
    CurrentNum := 0;
    
    For I := 0 to Numberinarray - 1 do
      begin
      Temp[I] := NumbersArray[I];
      end;
    
    For II := 0 to Numberinarray - 1 do
      begin
      NumberofSofar := 0;
      For I := 0 to Numberinarray - 1 do
        begin
        If (Temp[II] >= Temp[I]) Then
          begin
          NumberofSofar := NumberofSofar + 1;
          end;
        If (NumberofSofar >= Numberinarray) Then
          begin
          LargestNum := Temp[II];
          end;
        end;
      end;
    Repeat
      For II := 0 to Numberinarray - 1 do
        begin
        NumberofSofar := 0;
        For I := 0 to Numberinarray - 1 do
          begin
          If (Temp[II] <= Temp[I]) Then
            begin
            NumberofSofar := NumberofSofar + 1;
            end;
          If (NumberofSofar >= Numberinarray) Then
            begin
            If (CurrentNum < NumberInArray) Then
              begin
              Final[CurrentNum] := Temp[II];
              CurrentNum := CurrentNum + 1;
              Temp[II] := LargestNum + 1;
              end;
            end;
          end;
        end;
    Until (CurrentNum >= NumberInArray);
    
    Result := Final;
    end;

  8. #8
    Join Date
    Sep 2006
    Posts
    5,219
    Mentioned
    4 Post(s)
    Quoted
    1 Post(s)

    Default

    Good job, thanks!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. [REQUEST]Fall For You By Secondhand Serenade [REQUEST]
    By P1nky in forum Music, Movies and TV
    Replies: 0
    Last Post: 08-22-2008, 06:22 AM
  2. [REQUEST]Randoms Updated.[REQUEST]
    By P1nky in forum SRL Site Discussion
    Replies: 18
    Last Post: 04-04-2008, 08:23 PM
  3. TAKING REQUESTS! I need a new idea for a script! TAKING REQUESTS!
    By TravisV10 in forum RS3 Outdated / Broken Scripts
    Replies: 38
    Last Post: 10-31-2007, 02:46 AM
  4. [request]Mind Crafter[request]
    By alex s in forum RS3 Outdated / Broken Scripts
    Replies: 6
    Last Post: 04-17-2007, 12:10 PM
  5. [REQUEST]Green Dragon Raper[REQUEST]
    By Zodia in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 04-06-2007, 10:10 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
  •