Results 1 to 4 of 4

Thread: Help Addin in More Features

  1. #1
    Join Date
    Mar 2007
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help Addin in More Features

    This Function is directly copied from Wizzup Ess miner. Currently, there's a known bug about it logging out here. Is there anyone who knows how to do the following procedures.

    1. Mark a time.
    2. If the time is more than 30 secs, it will log out, wait (3000) and log in again to perform the whole Fuction FindAuburyText again.

    The script is below.

    SCAR Code:
    Function FindAuburyText: Boolean;  // FindTalk by Renax, but adepted.
    var
      ExitCond, NoMoreYellow: Boolean;
      Yint, Xmin, diff, difflast, Xmax, XmidRec, Xmid: Integer;
      RawMenuText: string;
    begin
      x := 0;
      y := 0;
      Xmid := 0;
      Xmin := 0;
      Xmax := 0;
      NoMoreYellow := False;
      if (FindColor(x, y, 65535, 10, 25, 511, 334)) and (not (FindColor(x, y, 65280, 220, 130, 290, 165))) then
      begin
        Result := False;
        if (not (FindBitmapMaskTolerance(AuburyText, x, y, 0, 0, 516, 338, 0, 40)))
          then
          Exit;
        if (FindColorSpiral(x, y, 65535, x - 10, y - 10, x + 10, y + 10)) then
        begin
          Wait(10);
          if (GetColor(x, y) = 65535) then
          begin
            If WizzyDebug Then WriteLn('Spotted aubury text');
            Wait(10);
            NoMoreYellow := False;
            Yint := 0;
            repeat
              Yint := Yint + 1;
              y := y + Yint;
              x := 0;
              repeat
                ExitCond := False;
                x := x + 1;
                Xmin := x;
                if (GetColor(x, y) = 65535) then
                  ExitCond := True;
                if (x > 500) then
                begin
                  x := 0;
                  ExitCond := True;
                  NoMoreYellow := True;
                end;
              until (ExitCond);
              ExitCond := False;
              x := 520;
              while (NoMoreYellow = False) and (ExitCond = False) do
              begin
                x := x - 1;
                Xmax := x;
                if (GetColor(x, y) = 65535) then
                  ExitCond := True;
              end;
              diff := (Xmax - Xmin);
              if (diff > difflast) and (diff > 25) then
              begin
                XmidRec := ((diff / 2) + Xmin);
              end;
              difflast := diff;
            until (NoMoreYellow)
              x := XmidRec;
            MMouse(x, y + 6, 3, 0);
            Wait(100);
            if IsUpTextMulti('Talk', 'lk-to', 'to')  Then
            begin
              GetMousePos(x, y);
              Mouse(x, y + 6, 0, 0, False);
              if (ChooseOptionGetMenuText(RawMenuText, x, y, 'Teleport')) then
              begin
                If WizzyDebug Then WriteLn('Found Aubury')
                FFlag(1);
                Wait(1000 + Random(500))
                Result := True;
                Exit;
              end;
            end;
          end;
        end;
      end;
    end;
    If you know any permanent Reg Ess buyer at 40 each, please pm me.
    Proud User of Wizzup Ess Miner Script, the best Ess Miner ever..
    Retired User
    http://www.fenjer.com/adnan/SRLStats/304.png

  2. #2
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Well, add a MarkTime(mark) at the start of the procedure. THen, wherever the loop gets stuck at, add a
    SCAR Code:
    if (TimeFromMark(mark) > 30000 + random(10000)) then
    begin
      LogoutPlayer;
      Wait(3000 + random(3000));
      LoginPlayer;
      FindAuburyText;
    end;

  3. #3
    Join Date
    Mar 2007
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thank u Infintry.

    Btw, is there any difference between things like imark, idlemark, amark, etc? Lets say for instance imark can ONLY be used when it walks from place to place, etc.
    If you know any permanent Reg Ess buyer at 40 each, please pm me.
    Proud User of Wizzup Ess Miner Script, the best Ess Miner ever..
    Retired User
    http://www.fenjer.com/adnan/SRLStats/304.png

  4. #4
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    No, you can name your marks as you want. Except for the Global Names (don't know them all, but I know ST )
    Hup Holland Hup!

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Script language features?
    By Grippy in forum OSR Help
    Replies: 3
    Last Post: 03-03-2009, 10:43 PM
  2. Gmails New Features
    By smithsps in forum The Bashing Club / BBQ Pit
    Replies: 3
    Last Post: 04-03-2008, 01:26 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
  •