Page 2 of 5 FirstFirst 1234 ... LastLast
Results 26 to 50 of 112

Thread: P1nky's Teleporter!

  1. #26
    Join Date
    Aug 2008
    Location
    London, UK
    Posts
    456
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Lol, didn't work for me Joker. Thanks to all the lovely people who lured me into thinking that this still worked...

  2. #27
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    lol Jack whats wrong wif it

  3. #28
    Join Date
    Aug 2008
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks verry nice i am going to try it out soon when my magic lvl is high enoug

  4. #29
    Join Date
    Aug 2008
    Location
    London, UK
    Posts
    456
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    I think it's just outdated like you said and they were spamming... Could be wrong but i got quite a few errors.

  5. #30
    Join Date
    Aug 2008
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very nice script and the antiban is just so good!
    Got few magic levels with this but, very expensive way to train.

    OMG i lost the proggies....

  6. #31
    Join Date
    Aug 2008
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)
    this is really cool because it works for me

  7. #32
    Join Date
    Jun 2008
    Location
    Australia MATE
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks good but i need to try it hope it works!!!!

  8. #33
    Join Date
    Sep 2008
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    too bad iam out of runes to test it

  9. #34
    Join Date
    May 2007
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 308: [Hint] (19352:10): Variable 'Result' never used in script
    Line 408: [Error] (19452:4): Unknown identifier 'AlmostLogout' in script

    LOL! What is wrong?
    TLOROX.....OUT....

  10. #35
    Join Date
    Sep 2008
    Posts
    10
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i'll try this out when i get home as well as the others

  11. #36
    Join Date
    Jul 2007
    Location
    New Zealand FTW!
    Posts
    72
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Im testing now and will post report soon..

  12. #37
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    leechers/spammers
    this script is outdated so wtf....

    im atm updating.

  13. #38
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default AnyWhereTeleporter V.2 RELEASE~

    AnyWhereTeleporter V.2 RELEASED:

    -UPDATED TO CURRENT REV.
    -ADDED MORE USE OF ANTI-BAN
    -ADDED RANDOM TIME for ea teleporting.

    Quick Proggie:
    SCAR Code:
    ||===========================||
    ||~~~~~~~Tattle Telly~~~~~~~~||
    ||=====AnyWhereTeleporter====||
    ||~~~~~~DOING:99tellys~~~~~~~||
    ||===========================||
     Worked For 7 Minutes and 43 Seconds
     Casted 87
     AntiBanPerformed 80
     Solved Abby 0
    ||===========================||
    ||====Teleports ANYWHERE!====||
    ||===========================||
    ||=====Thanks SRL Forums=====||
    ||===========================||
     You Chose to Telly to Varrock!
    ||===========================||

    post proggies
    thanks

  14. #39
    Join Date
    Sep 2008
    Posts
    13
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Love it, Thanks!

  15. #40
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    np, wheres the proggie?

  16. #41
    Join Date
    May 2007
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default nice

    this looks so cool ... thx man.

  17. #42
    Join Date
    Aug 2008
    Location
    Auckland
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Haha bring it back to life, yeah p1nky next time your on msn i need to talk to you about some stuff, i learnt how to radial walk! it was pretty easy just need to fix the distance thing like 0,0,72,0 dont no how far i should go ect.
    ~Tom~

  18. #43
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    awsome Tom! keep it up dude. ill be on today, got no school since hurricane.

  19. #44
    Join Date
    Dec 2006
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm going to be sure to try this, got a pure mage with 10 hp that needs some leveling. I'll post the proggy when i've used it.

  20. #45
    Join Date
    Sep 2008
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    good job on the scipt, it nice.
    [CENTER]http://dragcave.net/image/UrBf.gif http://dragcave.net/image/WZUX.gifurl=http://dragcave.net/view/5Kuf]http://dragcave.net/image/5Kuf.gif[/url] http://dragcave.net/image/tLMl.gif[CENTER]
    Click on the eggs and help hatch my dragon!!

  21. #46
    Join Date
    Sep 2008
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    neat

  22. #47
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Guys i need Testers with mage up to 25, with Curses/Mind Runes and cast any of them basic mind spells/curses with enough runes

    please PM me
    thanks btw and i added a teleporter to the script it is a mage script.
    PM ME!

  23. #48
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Il test oh and btw..


    SCAR Code:
    program AnyWhereTeleporter;
      {.include SRL/SRL/misc/Smart.scar}
      {.include srl/srl.scar}
      {.include srl/srl/Skill/Magic.scar}
      {.include srl/srl/misc/users.scar}

    const
      Tellytime = 4000;
      HowManyTellys = 99;
      WhatTypeOfTellys = 'V';  // Varrok =V Fally=C cammy=C Lumby= L
      YourSRLId = '3432';
      YourSRLpass = 'password';

    procedure Cast;
      case WhatTypeOfTellys of
       'V': cast('Varrock Teleport');
       'F': Cast('Falador Teleport');
       'C': Cast('Camelot Teleport');
       'L': Cast('Lumbridge Teleport');
     end;
    end;
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  end;
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  end;

    procedure Sig;
    begin
      writeln('--------------------------------------------------------------------------------      ');
      writeln('      :::::::::    :::   ::::    ::: :::    ::: :::   :::  ');
      writeln('     :+:    :+: :+:+:   :+:+:   :+: :+:   :+:  :+:   :+:    ');
      writeln('    +:+    +:+   +:+   :+:+:+  +:+ +:+  +:+    +:+ +:+    ');
      writeln('   +#++:++#+    +#+   +#+ +:+ +#+ +#++:++      +#++:      ');
      writeln('  +#+          +#+   +#+  +#+#+# +#+  +#+      +#+      ');
      writeln(' #+#          #+#   #+#   #+#+# #+#   #+#     #+#   ');
      writeln('###        ####### ###    #### ###    ###    ###   ');
      writeln('--------------------------------------------------------------------------------      ');
    end;

    var
      antiz, countlawz, NOAbyss, Abyss, x, y: integer;

    procedure SRL;
    var
      SRLRRLT: integer;
    begin
      if SRLRRLT >= (6 * (60 * 1000)) then
      begin
        MarkTime(SRLRRLT);
        SRLRandomsReport;
      end;
    end;

    procedure Woah;
    begin
      SRL;
      cleardebug;
      Writeln('||===========================||');
      Writeln('||~~~~~~~Tattle Telly~~~~~~~~||');
      Writeln('||=====AnyWhereTeleporter====||');
      writeln('||~~~~~~DOING: ' + IntToStr(HowManyTellys) + 'tellys~~~~~~~||');
      Writeln('||===========================||');
      Writeln(' Worked For ' + TimeRunning);
      Writeln(' Casted ' + IntToStr(countlawz));
      writeln(' AntiBanPerformed ' + IntToStr(antiz));
      writeln(' Solved Abby ' + IntToStr(Abyss));
      Writeln('||===========================||');
      Writeln('||====Teleports ANYWHERE!====||');
      Writeln('||===========================||');
      Writeln('||=====Thanks SRL Forums=====||');
      Writeln('||===========================||');
      SRLRandomsReport;
      begin
        case Uppercase(WhatTypeOfTellys) of
          'F': Writeln(' You Chose to Telly to Falador!');
          'V': Writeln(' You Chose to Telly to Varrock!');
          'C': Writeln(' You Chose to Telly to Camelot!');
          'L': Writeln(' You Chose to Telly to Lumbridge!');
        end;
        writeln('||===========================||');
      end;
    end;

    function ScanMiniMap(iFrom, iTo, Distance: Integer): Integer;
    var
      I, iX, iY: Integer;
    begin
      if not (LoggedIn) then
        Exit;
      SRL;
      for I := iFrom to ITo do
      begin
        iX := Round(Distance * Sin(I * Pi / 180)) + 648;
        iY := Round( - Distance * Cos(I * Pi / 180)) + 80;
        if GetColor(iX, iY) = 0 then
        begin
          Result := Result + 1;
        end;
      end;
    end;

    function InAbyss: Boolean;
    var
      A: Integer;
    begin
      if not (LoggedIn) then
        Exit;
      SRL;
      A := ScanMiniMap(0, 359, 50);
      if A = 360 then
      begin
        Result := True;
      end
    end;

    function GuessAbyssRandom: Boolean;
    var
      AbyssalMark, iX, iY, I, ChosenColor, Tol, Tries: Integer;
      WeirdColors: array [0..3] of Integer;
      Operate: TPoint;
    begin
      SRL;
      WeirdColors[0] := 13751777;
      WeirdColors[1] := 4953873;
      WeirdColors[2] := 2509833;
      repeat
        case Random(4) of
          0:
            begin
              Operate.X := 252;
              Operate.Y := 150;
            end;
          1:
            begin
              Operate.X := 278;
              Operate.Y := 170;
            end;
          2:
            begin
              Operate.X := 238;
              Operate.Y := 200;
            end;
          3:
            begin
              Operate.X := 215;
              Operate.Y := 166;
            end;
        end;
        for I := 0 to 2 do
        begin
          Tol := 0;
          repeat
            Tol := Tol + 1;
            iX := MSCX;
            iY := MSCY;
            if FindColorSpiralTolerance(iX, iY, WeirdColors[I], MSX1, MSY1, MSX2, MSY2, Tol) then
            begin
              ChosenColor := WeirdColors[I];
              if (Distance(iX, iY, MSCX, MSCY) < 120) then
                Break;
            end;
            if ChosenColor <> 0 then
              Break;
          until Tol > 9;
        end;
        if ChosenColor <> 0 then
        begin
          MMouse(iX, iY, 0, 0);
          Wait(10);
          if IsUpText('perate') then
          begin
            GetMousePos(iX, iY);
            Mouse(iX, iY, 0, 0, True);
          end;
        end;
        Wait(5000 + Random(500));
        if not InAbyss then
        begin
          Abyss := Abyss + 1;
          ReportVars[2] := ReportVars[2] + 1;
          Result := True;
          Wait(1000);
          ClickToContinue;
          SRLRandomsReport;
          Exit;
        end;
        Tries := Tries + 1;
        if TimeFromMark(AbyssalMark) > 60000 * 5 then
          Break;
      until Tries > 30;
      Tries := 0;
      if InAbyss then
      begin
        repeat
          case Random(4) of
            0:
              begin
                Operate.X := 252;
                Operate.Y := 150;
              end;
            1:
              begin
                Operate.X := 278;
                Operate.Y := 170;
              end;
            2:
              begin
                Operate.X := 238;
                Operate.Y := 200;
              end;
            3:
              begin
                Operate.X := 215;
                Operate.Y := 166;
              end;
          end;
          iX := Operate.X;
          iY := Operate.Y;
          if FindColorSpiralTolerance(iX, iY, 3393, MSX1, MSY1, MSX2, MSY2, Tol) or FindColorSpiralTolerance(iX, iY, 2040150, MSX1, MSY1, MSX2, MSY2, Tol) then
          begin
            if (Distance(iX, iY, MSCX, MSCY) < 80) then
            begin
              MMouse(iX, iY, 0, 0);
              Wait(10);
              if IsUpText('perate') then
              begin
                GetMousePos(iX, iY);
                Mouse(iX, iY, 0, 0, True);
                Wait(5000 + Random(500));
                if not InAbyss then
                begin
                  Abyss := Abyss + 1;
                  ReportVars[2] := ReportVars[2] + 1;
                  Result := True;
                  ClickToContinue;
                  SRLRandomsReport;
                  Exit;
                end;
              end;
            end;
          end;
          Tries := Tries + 1;
          Tol := Tol + 2;
          if Tol > 20 then
            Tol := 2;
        until Tries > 50;
      end;
      LogOut;
      NOAbyss := NOAbyss + 1;
      ReportVars[9] := ReportVars[9] + 1;
      Players[CurrentPlayer].Loc := 'Abyss';
      SRLRandomsReport;
      WriteLn('Abyss Random Event.');
    end;

    procedure FindRandoms;
    begin
      if not (LoggedIn) then
        Exit;
      FindNormalRandoms;
      FindInventoryRandoms;
      FindNonInventoryRandoms;
      if (InAbyss) then
      begin
        GuessAbyssRandom;
      end;
    end;

    procedure randomcompass;
    begin
      if (not (loggedin)) then
        Exit;
      FindRandoms;
      SRL;
      antiz := antiz + 1;
      ReportVars[1] := ReportVars[1] + 1;
      case Random(6) of
        0: makecompass('N');
        1: makecompass('S');
        2: makecompass('E');
        3: makecompass('W');
        4: setangle(true)
      end;
    end;

    procedure RandomSymbol;
    begin
      SRL;
      FindRandoms;
      FindNormalRandoms;
      ReportVars[1] := ReportVars[1] + 1;
      antiz := antiz + 1;
      case Random(2) of
        0:
          begin
            if FindSymbol(x, y, 'fur trader') or FindSymbol(x, y, 'shop') or FindSymbol(x, y, 'quest') then
              Mouse(x, y, 1, 1, False);
          end;
        1:
          begin
            if FindSymbol(x, y, 'fur trader') or FindSymbol(x, y, 'shop') or FindSymbol(x, y, 'bank') then
              Mouse(x, y, 1, 1, False);
          end;
      end;
    end;

    procedure RandomButton;
    begin
      FindRandoms;
      SRL;
      ReportVars[1] := ReportVars[1] + 1;
      antiz := antiz + 1;
      if not (LoggedIn) then
        Exit;
      case Random(3) of
        0:
          begin
            KeyDown(VK_Left);
            wait(Random(600) + 500);
            KeyUp(VK_Left);
          end;
        1:
          begin
            KeyDown(VK_Right);
            wait(Random(600) + 500);
            KeyUp(VK_Right);
          end;
        2:
          begin
            KeyDown(VK_Up);
            wait(Random(600) + 500);
            KeyUp(VK_Up);
          end;
      end;
    end;

    procedure MyAntiBan;
    var
      DBanMe: Integer;
    begin
      if not (LoggedIn) then
        Exit;
      FindRandoms;
      SRL;
      DBanMe := Random(18);
      ReportVars[1] := ReportVars[1] + 1;
      antiz := antiz + 1;
      case DBanMe of
        0: PickUpMouse;
        1: GameTab(1 + Random(33));
        2: DoEmote(1 + Random(75));
        3: RandomRclick;
        4: randomMovement;
        5: RandomButton;
        6: randomMovement;
        7: ChooseOption('cancel');
        8: MMouse(Random(MSX2), Random(MSY2), 0, 0);
        9: HoverSkill('woodcutting', false);
        10:
          begin
            HoverSkill('woodcutting', false);
            sleepandmovemouse(200 + Random(100));
            gametab(4);
            ChooseOption('Cancel');
            RandomButton;
            MMouse(Random(MSY1), Random(MSX1), 0, 0);
          end;
        11:
          begin
            GameTab(1 + Random(13));
            wait(1000 + Random(600));
            gametab(4);
            RandomButton;
            ChooseOption('Cancel');
          end;
        12:
          begin
            HoverSkill('random', false);
            sleepandmovemouse(200 + Random(100));
            gametab(4);
            RandomButton;
            ChooseOption('Cancel');
          end;
        13: MMouse(x, y, (10 + random(350)), (10 + random(200)));
        14: MMouse(x, y, (10 + random(400)), (10 + random(600)));
        15: MMouse(x, y, (10 + random(550)), (10 + random(400)));
        16: MMouse(x, y, (10 + random(500)), (10 + random(400)));
        17: MMouse(Random(MSX2), Random(MSY2), 0, 0);
      end;
    end;

    procedure Telly;
    var
      e, law, z, i: integer;
    begin
      if not (LoggedIn) then
        Exit;
      SRL;
      Law := BitmapFromString(8, 8, 'z78DA758E4B0AC0201043AF' + '54AB76DE2CD5EAFD8F5451170E52025984FC5CBE7DBDDCC15AD47' + '554F51D4D63C7E480A21AC924E3572A7571D28B36751A91A80E41' + '8C7F342C165ECAF2173CF764E31F0D670F48934AC261FEF71FA16' + '3AC1BFD9157CA995ABB2365FC41B2E43DB5F4913D7FFEA5F6C53D' + 'F501F645551D');
      z := 0;
      GameTab(4);
      if (FindBitmapSpiralTolerance(law, x, y, (570 + 39 * i), (214 + 35 * e), (609 + 39 * i), (249 + 35 * e), 10)) then
        MMouse(x, y, 0, 0);
      wait(2000);
      Mouse(x, y, 0, 0, false);
      writeln('Teleporting!');
      GameTab(7);
      repeat
        FindRandoms;
        SRL;
        woah;
        Cast;
        z := z + 1;
        countlawz := countlawz + 1;
        ReportVars[0] := ReportVars[0] + 1;
        RandomCompass;
        FindRandoms;
        if (InAbyss) then
        begin
          GuessAbyssRandom;
        end;
        wait(TellyTime + random(2456));
        woah;
        if z > 5 then
          case Random(3) of
            1: RandomSymbol;
            2: MyAntiBan;
            3: RandomButton;
          end;
      until (HowManyTellys = countlawz);
      writeln('Finished All Teleports Which was: ');
      Writeln(IntToStr(HowManyTellys) + '  tellys');
      writeln('Stopping Script now :) thanks for using Tattle Telly');
      TERMINATESCRIPT;
    end;

    procedure DoChats;
    begin
      SRL;
      if (not (LoggedIn)) then
      begin
        Writeln(players[currentplayer].Name + 'is not logged in...');
        Writeln('Switching players');
        nextplayer(false);
      end;
      SetChat('on', 1);
      SetChat('on', 2);
      SetChat('off', 3);
      SetChat('off', 4);
    end;

    begin
      Disguise('Made By P1nky AKA ~~JOKER~~');
      cleardebug;
      Writeln('Waiting For SMART to Start...');
      SmartSetupEx(17, True, True, False);
      Wait(100);
      SetTargetDC(SmartGetDC);
      if not (LoggedIn) then
        while not (SmartGetColor(386, 249) = 65535) do
          Wait(100);
      setupsrl;
      activateclient;
      SRLPlayerForm(True, [], [], [], []);
      if LoggedIn then
        LogOut;
      loginplayer;
      ScriptID := '893';
      SRLID := YourSRLId;
      SRLPassword := YourSRLPass;
      SRL;
      ReportVars[3] := ReportVars[3] + 1;
      wait(2000) dochats;
      GetAllLevels;
      begin
        Sig;
        SRL;
        woah;
        telly;
      end;
    end.


    i had 2 do it it killed my eyes.

  24. #49
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    nicbaz i swear i just fixed that in my new script hahaha, thats cool same timing

    SEE:
    SCAR Code:
    Function TeleportStyle: Integer;
    Begin
         if WantTeleport then
         Case Uppercase(WhatCast) Of
              'F':
              Cast('Falador Teleport');
              'V':
              Cast('Varrock Teleport');
              'C':
              Cast('Camelot Teleport');
              'L':
              Cast('Lumbridge Teleport');
         End;
    End;

    thnx tho and please post a proggie
    appreciate it.

  25. #50
    Join Date
    Sep 2008
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thank you very much, for this good script

Page 2 of 5 FirstFirst 1234 ... LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. P1nky's PowerChopper!
    By P1nky in forum OSR Outdated / Broken Scripts
    Replies: 1102
    Last Post: 06-30-2015, 08:22 PM
  2. Teleporter
    By megaflare203 in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 10-04-2008, 01:46 PM
  3. cowhide teleporter.
    By j035m03 in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 08-20-2008, 09:19 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
  •