Results 1 to 7 of 7

Thread: Little help...

  1. #1
    Join Date
    Jun 2007
    Posts
    532
    Mentioned
    1 Post(s)
    Quoted
    68 Post(s)

    Default Little help...

    It is late and I'm sure I'm missing something simple. Sorry but I'm driving myself to a massive head ache. I swear the points on the loadstone screen are changing. I made mouseboxes but the points are always off after I go to test them and I don't see how.

    Simba Code:
    Function TeleportTo(Which: string): Boolean;
    Var
      Color, i, x, y: integer;
      Coords: TIntegerArray;
      Loc: string;
      Clan: boolean;
    Begin
      If(Not(LoggedIn)) Then Exit;
      Case lowercase(Which) Of
        'Cath':
        Begin
          Color := 11567676;
          Coords := [223, 181] ;
          Loc := 'Catherby';
        End;

        'Fally': //explorer ring inv
        Begin
          GameTab(tab_EQUIP);
          If WaitColor(725, 564, 8881791, 5, 5000) Then
          Begin
            Color := 8881791;
            Coords := [705, 551, 732, 577];
            Loc := 'Cabbage Patch';
          End;
        End;

        'Adru':
        Begin
          Color := 1447231;
          Coords := [175, 385, 194, 411];
          Loc := 'Ardougne';
        End;
      End;
        FindNormalRandoms;
        AntiBan;
        Writeln('Teleporting to '+ Loc);
        GameTab(tab_magic);
        If GameTab(tab_magic) Then
        Result := True;
        If Result Then
        Begin
          If FindHomeTeleport(x, y) Then
          HumanMMouse(x, y, 2, 2);   //Moves mouse to click home telepore
          ClickMouse2(True);
          If DidRedClick Then
          Begin
            Wait(500+Random(250));
            Writeln('Clicked Home Teleport...');
          End;
          If LodestoneScreen Then
          Begin
            WriteLn('Lodestone Network screen is open!');
            Wait(1000);
            for i := 0 to 1 do
            MMouse(Coords[i].x, Coords[i].y, 2, 2);
              Writeln('Found Color');
              GetMousePos(x, y);
              HumanMMouse(x, y, 0,0);
              ClickMouse2(True);
            //MarkTime(z);
           // Repeat //Random Fact generator here maybe
              Writeln('Waiting till we are done teleporting..');
              Wait(2500+Random(2000));
              Writeln('Still teleporting..');
              Wait(2000+Random(2500));
              Writeln('Boo!~!');
            //Until(TimeFromMark(z) > 16000);
            //If Idle Then  //Get idle pixelshift
              Begin
              //Writeln('Yay Teleported to' + Loc +);
                GameTab(tab_Inv);
            End;
          End;
        End;
    End;

    **Yes I have MMouse instead of mousebox because I couldn't get either or to work...
    Finished B.S. Program in Radiology!!

    Projects: A big one! Total secret! hehe

  2. #2
    Join Date
    Jan 2012
    Posts
    2,568
    Mentioned
    35 Post(s)
    Quoted
    356 Post(s)

    Default

    Your coordinate for fally (Coords := [705, 551, 732, 577] seems too large so you probably took the coordinate without dragging the crosshair to the RS window first.

    Also there is already a lodestone teleport function in srl includes so there is no need to make a custom one urself


    Simba Code:
    (*
    LodestoneTeleport
    ~~~~~~~~~~~~~~~~~

    .. code-block:: pascal

        function LodestoneTeleport(Where: String): Boolean;

    Teleports you to chosen location via Lodestone teleport.

    .. note::

        Author: Home

    Example:

    .. code-block:: pascal

        If CastHomeTeleport then
          Lodestoneteleport('Lumbridge');
    *)

    function LodestoneTeleport(Where: String): Boolean;
    var
      TPA: TPointArray;
      TSA: TStringArray;
      CTS, I: Integer;
    begin
      If not LoggedIn then Exit;
      If not LodestoneScreen then Exit;

      CTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(1);

      TSA := ['Lunar Isle', 'Yanille', 'Ardougne', 'Seers Village', 'Catherby', 'Taverley',
              'Burthorpe', 'Edgeville', 'Falador', 'Port Sarim', 'Draynor Village', 'Lumbridge',
              'Varrock', 'Al Kharid', 'Bandit Camp'];

      TPA := [Point(45, 78), Point(160, 262), Point(167, 211), Point(192, 158), Point(223, 181),
              Point(253, 180), Point(251, 145), Point(293, 160), Point(278, 206), Point(276, 249), Point(308, 211),
              Point(327, 243), Point(345, 182), Point(362, 229), Point(326, 297)];

      for I := 0 to 14 do
        if Capitalize(Where) = TSA[I] then
        begin
          MMouse(TPA[I].X, TPA[I].Y, 2, 2);

          if (WaitUptextMulti(['Teleport', 'ele', 'ort', 'lepo', 'epor'], 400)) then
          begin
            ClickMouse2(Mouse_Left);
            Result := true;
          end;
        end;

      ColorToleranceSpeed(CTS);
    end;

  3. #3
    Join Date
    Jun 2007
    Posts
    532
    Mentioned
    1 Post(s)
    Quoted
    68 Post(s)

    Default

    Yeah I know there is one, but I like creating my own stuff lol. As for the fally one, that is the coords for the ring slot as I'm using the explorers ring/
    Finished B.S. Program in Radiology!!

    Projects: A big one! Total secret! hehe

  4. #4
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    Hey there,

    I know this isn't very direct help, but this might be able to help you in some way. This is a teleport snippet from my Lumb fisher (uses lumb lodestone tele):

    Simba Code:
    function Teleport(Which: String; Tries: Integer): Boolean;
    var
      CoordBox, LodeBox: TBox;
      Click, Tab, Color, x, y, i: Integer;
      Area: String;
      Lodestone: Boolean;
    begin
      if not LoggedIn then Exit;
      case Lowercase(Which) of
        'lumb':
        begin
          Color := TeleColor; CoordBox := IntToBox(568, 223, 580, 235); Tab := tab_MAGIC;
          Click := mouse_left; Lodestone := True; Area := 'lumbridge';
        end;
        'dung':
        begin
          Color := KinColor; CoordBox := IntToBox(683, 371, 713, 386); Tab := tab_EQUIP;
          Click := mouse_right; Lodestone := False; Area := 'daemonheim';
        end;
      end;
      i := 0;
      repeat
        AntiBan;
        Currently('Teleporting to '+ Area +': Attempt '+ IntToStr(i + 1) +'...');
        TabWait(1000, Tab);
        if ColorWait(2000, Color, 10, CoordBox) then
        begin
          MouseTBox(CoordBox, mouse_move);
          ClickMouse2(Click);
          if Lodestone then
          begin
            LodeBox := IntToBox(318, 230, 334, 248);
            if ColorWait(4000, LumbColor, 10, LodeBox) then
            begin
              MouseTBox(LodeBox, mouse_left);
              Result := True;
              Break;
            end;
          end else
          begin
            Result := WaitOptionMulti(['ele','port'], 1000);
            if Result then
              Break
            else
            begin
              GetMousePos(x, y);
              MMouse((x+RandomRange(-30,30)), (y-50-Random(50)), 5, 5);
              Wait(250+Random(250));
            end;
          end;
        end;
        Inc(i);
      until(i > Tries);
      TabWait(1000, tab_INV);
      if Result then
        Currently('Teleported to '+ Area +'!')
      else
        Currently('Failed to teleport to '+ Area +'!');
    end;

  5. #5
    Join Date
    Jun 2007
    Posts
    532
    Mentioned
    1 Post(s)
    Quoted
    68 Post(s)

    Default

    I'm on my phone but it looks great! I think I'll be able to get some ideas from it, but have you ever noticed the coords of the icons on the loadstone screen change? I swear mine are slighting moving every other time.
    Finished B.S. Program in Radiology!!

    Projects: A big one! Total secret! hehe

  6. #6
    Join Date
    Apr 2012
    Location
    Australia
    Posts
    1,252
    Mentioned
    1 Post(s)
    Quoted
    22 Post(s)

    Default

    Perhaps make a DTM or bitmap for each icon and then have it click that. Or alternatively use a predominant colour and separate it from the others with TPA?

  7. #7
    Join Date
    Jan 2008
    Location
    C:\
    Posts
    1,483
    Mentioned
    2 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by 14578 View Post
    I'm on my phone but it looks great! I think I'll be able to get some ideas from it, but have you ever noticed the coords of the icons on the loadstone screen change? I swear mine are slighting moving every other time.
    Hmm, never had any issues using a static box with the lumb tele. You could try what p1ng mentioned about the TPA though; search for all of the lodestone colors, combine them into one TPA, use TPAToATPAEx to separate the TPA into boxes of the exact size of the lodestone you're looking for, use SortATPASize to sort the ATPA's from biggest to smallest, and the first TPA in your ATPA will certainly be the one you're looking for

Thread Information

Users Browsing this Thread

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •