Results 1 to 7 of 7

Thread: Antirandoms not working?

  1. #1
    Join Date
    Sep 2007
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Antirandoms not working?

    Hello everyone!
    I'm currently working on a flax spinner, almost finished. Now I have this problem that the antirandoms won't be solved.
    Script works great, except when I'm calling the antirandom procedure when I'm spinning at the spinning wheel.

    Here is how the procedure look like:
    SCAR Code:
    procedure AntiRandom;
    begin
      CheckLogin;
      FindTalk;
      FindFastRandoms;                                     // Find randoms fast.
      FindNormalRandoms;                                   // Find normal random events.
      SolvePinball;                                        // Pinball
    end;

    Here is how FindFastRandoms look like:
    SCAR Code:
    Function FindFastRandoms: Boolean;    // By WT-Fakawi.
    Var
      i: Integer;
    Begin
    if not LoggedIn then Exit;
      For I := 1 To 11 Do
      Begin
        Case I Of
           1:  If FindDead Then
                 Result := True;
           2:  If FindMod Then
                 Result := True;
           3:  If FindMime Then
                 Result := True;
           4:  If FindMaze Then
                 Result := True;
           5:  If FindQuiz Then
                 Result := True;
           6:  If FindDemon Then
                 Result := True;
           7: Begin
                 If NoGameTab Then
                 Begin
                   Result := True;
                   Players[CurrentPlayer].loc := 'No GameTab';
                   Players[CurrentPlayer].Active := False;
                   Logout;
                   Exit;
                 End;
               End;
           8 : If RC Then
                  Result:=True;
           9 : If FindFight Then
                    Result := True;
           10: If FindTalk Then
                 Result := True;
           11: If FindCerter Then
                 Result := True;
        End;
        Wait(1);
      End;
    End;

    And here is how I call the procedure (while the character is spinning at the spinning wheel):
    SCAR Code:
    SpinTime := GetSystemTime;
              repeat
                AntiRandom;                    // Look for random events.
                CheckChat;                     // Look for chatwords.
              until((SpinTime + (1000 * 50+random(1000))) <= GetSystemTime);

    All the script does (when it finds a random event), is to hoover the mouse over the randomevent and not doing anything else. In the debug log in scar I can see ALOT of messages reading: "Found nickname".

    If anyone knows how to fix this, I would really appreciate it.
    Thanks in advance.

  2. #2
    Join Date
    Aug 2007
    Location
    Hawaii
    Posts
    3,880
    Mentioned
    7 Post(s)
    Quoted
    152 Post(s)

    Default

    yes i had that 2 when i made my script. Also on some other peoples script they wont work either.
    Faith is an oasis in the heart which will never be reached by the caravan of thinking.

  3. #3
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    4,163
    Mentioned
    9 Post(s)
    Quoted
    19 Post(s)

    Default

    have you set your nick correctly when declaring your players?

  4. #4
    Join Date
    Sep 2007
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by The Claw View Post
    have you set your nick correctly when declaring your players?
    I think so, since it said in the log that it found the nickname.
    Anyway, heres me declare players procedure:
    SCAR Code:
    procedure DeclarePlayers;
    begin
     HowManyPlayers:=1;                                   // Type in the number of players you have setup below.
     NumberOfPlayers(HowManyPlayers);                     // Sets the length of the player array.
     CurrentPlayer:=0;                                    // What player to start with.

     Players[0].Name:='Username';                      // Enter your username.
     Players[0].Pass:='Password';                    // Enter your password.
     Players[0].Nick:='sern';                             // Enter your nickname (3-4 letters from your username).
     Players[0].Loc:='Bank';                              // Location (don't touch this).
     Players[0].Skill:='crafting';                        // Skill for genie lamp.
     Players[0].Active:=True;                             // True if you want to use this player, otherwise False.

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

    Also, It only support one player at the moment and in my main procedure I call "CheckUserNicks".

  5. #5
    Join Date
    Sep 2007
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Does anyone else know why it doesn't work?
    Here are some randomevents I've seen that the script detects but doesnt solve:

    - Sandwich lady
    - Rick Turpentine
    - Cap N Hand
    - Drunken Dwarf

  6. #6
    Join Date
    Mar 2007
    Location
    Netherlands
    Posts
    206
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    add findtalk;
    then it will solve the talking randoms.

  7. #7
    Join Date
    Sep 2007
    Posts
    118
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by FNM View Post
    add findtalk;
    then it will solve the talking randoms.
    If you looked at my first post with my procedure, it includes FindTalk;
    Anyone else?...I'm really starting to wonder why it doesn't work

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Antirandoms
    By Adamb_135 in forum OSR Help
    Replies: 1
    Last Post: 04-24-2007, 11:58 PM
  2. Need help with antirandoms
    By Johura in forum OSR Help
    Replies: 1
    Last Post: 03-28-2007, 11:29 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
  •