Results 1 to 14 of 14

Thread: 70s_dollar presents The Transporter

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

    Default 70s_dollar presents The Transporter

    I am proud to present my newest creation

    The Transporter

    What it does
    For now, will raise your magic level by teleporting to Camelot.
    Uses Smart!

    Set it up
    Set-up lines 13-14, 19-41

    SCAR Code:
    //The Transporter by 70s_dollar//
    //Set-up lines 13,14, 19-41//
    //Special Thanks to Cyrocism for helping me out with this scipt! Thanks again!

    program Transporter;
    {.include SRL/SRL/Misc/Smart.scar}
    {.Include SRL\SRL.SCAR}

    var sx,sy,TeleNum:Integer;


    Const
      UseSleep = 'True'; //True or False to sleep every now and then
      Teleperperson = 10; //How many teleports per person? Recommend till you run out of runes

    procedure DeclarePlayers;

     begin
      HowManyPlayers := 1; {How many players?}
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; {What player do whish to use?}

      Players[0].Name := ''; //username
      Players[0].Pass := ''; //password
      Players[0].Nick := ''; //3-4 letters of name
      Players[0].Active := True;

      {Players[1].Name := ''; //username
      Players[1].Pass := ''; //password
      Players[1].Nick := ''; //3-4 letters of name
      Players[1].Active := False;

      Players[2].Name := ''; //username
      Players[2].Pass := ''; //password
      Players[2].Nick := ''; //3-4 letters of name
      Players[2].Active := False;

      Players[3].Name := ''; //username
      Players[3].Pass := ''; //password
      Players[3].Nick := ''; //3-4 letters of name
      Players[3].Active := False;      }


    end;

    procedure AntiBan;

    begin
      if not LoggedIn then Exit;
      case Random(180) of
        0: Begin
              RandomRClick;
              wait(1000+random(1000));
           end;
        1: HoverSkill('random', False);
        2: HoverSkill('Magic', False);
        3: RandomMovement;
        4: BoredHuman;
        5: If (UseSleep = 'True') or (UseSleep = 'true') then
           Begin
            Writeln('Sleeping');
            SleepAndMoveMouse(10000+random(50000)); //10 to 60 seconds
            Writeln('Finished sleeping, returning to Tele');
           end;
       end;
    end;


    Procedure AntiRandom;
    begin
        FindNormalRandoms;
        if (findfight=true) then
        begin
          runaway('S',true,1,5000+random(2000));
      end;
    end;

    Procedure ProgressReport;


    Begin
     ClearDebug;
     Writeln('|---------------------------------------------------------------------|');
     Writeln('|------------------- The Transporter by 70s dollar -------------------|');
     Writeln('|---------------------------------------------------------------------|');
     Writeln('|- We Teleported a total of ' + IntToStr(TeleNum) + ' times ------------------|');
     Writeln('|---------------------------------------------------------------------|');
     Writeln('|----------------------- Post Progress Reports! ----------------------|');
     Writeln('|---------------------------------------------------------------------|');
    end;

    Procedure Transport;

    begin
     sx := 716;
     sy := 301;
     if(not(GameTab(7))) then
        GameTab(7);
     Wait(2500+Random(1000));
     Mouse(sx, sy, 7, 7, True);
     Inc(TeleNum);
    end;

    Procedure SetupSmart;
    Begin
      Writeln('Loading SMART');
      SmartSetupEx(23, false, true, false);
      wait(3000);
      SetTargetDC(SmartGetDC);
      repeat
        wait(100);
      until(SmartGetColor(253, 233)<>1118604);
      Cleardebug;
      Writeln('SMART loaded');
    end;

    procedure MainLoop;
    begin
     If(not(loggedin)) then loginplayer;
      repeat
      Transport;
      until(TeleNum >= Teleperperson) or (AllPlayersInactive) or (not(loggedin));
      if (AllPlayersInactive) then
      begin
        Logout;
        Cleardebug;
        ProgressReport;
        Writeln('All players are inactive');
        wait(500+random(500));
        Writeln('Thank you for using Transporter');
        TerminateScript;
      end else
      begin
        Nextplayer(True);
      If(not(loggedin)) then
      Begin
         Writeln('No players are logged in');
         TerminateScript;
      end;
     end;
    end;

    Procedure SetupScript;
    Begin
    If (UseSleep = 'True') or (UseSleep = 'true') then
     Begin
     Cleardebug;
      SetupSRL;
       Cleardebug;
       SetupSmart;
       DeclarePlayers;;
        If (not(loggedin)) then loginplayer;
        makecompass('n');
        SetAngle(True);
        Setrun(true);
     end else
       Begin
         ClearDebug;
         Writeln('Please set UseSleep to true or false');
         TerminateScript;
       end;
    end;

    begin
     Setupscript;
       Repeat
         Mainloop;
       Until(AllPlayersInactive);
    end.

    end

    Thank you for reading, and as always post proggies!
    Last edited by 70s_dollar; 04-15-2009 at 10:04 AM.

  2. #2
    Join Date
    Nov 2006
    Posts
    124
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Way too simple... No Anti-ban in sight? besides simple randoms.

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

    Default

    Quote Originally Posted by noob-2 View Post
    Way too simple... No Anti-ban in sight? besides simple randoms.
    Are you serious? It's right below declare players, ever try looking?

  4. #4
    Join Date
    Dec 2007
    Location
    192.168.1.73
    Posts
    2,439
    Mentioned
    6 Post(s)
    Quoted
    119 Post(s)

    Default

    Yeah but you don't call it in your main loop.

    But I think its an ok first attempt, keep learning and see what more interesting and helpful features you can add into it. Like a law rune detector to see when you can/cannot cast the spell.

    One thing I noticed is that when you switch players for when all the casts are done it says NextPlayer(true) which keeps the current player active, but it just moves into the next one, you want to use NextPlayer(false) so that it never goes onto that player again.

    Also sx and sy can be declared locally to make the script more efficient.

  5. #5
    Join Date
    Mar 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Richard View Post
    Yeah but you don't call it in your main loop.

    But I think its an ok first attempt, keep learning and see what more interesting and helpful features you can add into it. Like a law rune detector to see when you can/cannot cast the spell.

    One thing I noticed is that when you switch players for when all the casts are done it says NextPlayer(true) which keeps the current player active, but it just moves into the next one, you want to use NextPlayer(false) so that it never goes onto that player again.

    Also sx and sy can be declared locally to make the script more efficient.
    Well my plan for this is to eventually develop into an AIO teleporter, so I guess you gotta start somewhere, yea, I did notice that it would keep logging in and out, will update today.

  6. #6
    Join Date
    Nov 2008
    Location
    Melbourne, Australia
    Posts
    2,240
    Mentioned
    3 Post(s)
    Quoted
    11 Post(s)

    Default

    It looks like over 90% of your script was stolen from my Drain Willows one before i did big updates to it. I can tell you did some small edits to make it look like yours and you did not even ask me if you could use it.

    It is good that you know what all of it means and I am glad to see your learning more about scar. I will allow you to use it but next time just ask please
    Last edited by cycrosism; 04-14-2009 at 06:40 AM.
    Click here to find out how to get full screen without members! | Click here to check out my Ultimate Bitmap Tutorial! Edited to work with Simba! |

  7. #7
    Join Date
    Feb 2007
    Location
    Alberta,Canada
    Posts
    2,358
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cycrosism View Post
    It looks like over 90% of your script was stolen from my Drain Willows one before i did big updates to it. I can tell you did some small edits to make it look like yours and you did not even ask me if you could use it.
    agreed. I know its yours because your the only one who uses strings instead of booleans
    “Ignorance, the root and the stem of every evil.”

  8. #8
    Join Date
    Nov 2008
    Location
    Melbourne, Australia
    Posts
    2,240
    Mentioned
    3 Post(s)
    Quoted
    11 Post(s)

    Default

    Look at my updated version(s)
    Click here to find out how to get full screen without members! | Click here to check out my Ultimate Bitmap Tutorial! Edited to work with Simba! |

  9. #9
    Join Date
    Mar 2007
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by cycrosism View Post
    It looks like over 90% of your script was stolen from my Drain Willows one before i did big updates to it. I can tell you did some small edits to make it look like yours and you did not even ask me if you could use it.

    It is good that you know what all of it means and I am glad to see your learning more about scar. I will allow you to use it but next time just ask please
    Sorry, I'll credit you, however I'm currently semi-re-writing this script, so there'll be different functions in there

  10. #10
    Join Date
    Nov 2008
    Location
    Melbourne, Australia
    Posts
    2,240
    Mentioned
    3 Post(s)
    Quoted
    11 Post(s)

    Default

    You copied more then my "simple" antiban, but i'm not going to argue with you. Ty for putting credits
    Click here to find out how to get full screen without members! | Click here to check out my Ultimate Bitmap Tutorial! Edited to work with Simba! |

  11. #11
    Join Date
    Feb 2009
    Location
    Irvine, CA
    Posts
    2,873
    Mentioned
    8 Post(s)
    Quoted
    138 Post(s)

    Default

    hey here's a proggy function that tells how much exp they earned!

    Begin
    ClearDebug;
    Writeln('|---------------------------------------------------------------------|');
    Writeln('|------------------- The Transporter by 70s dollar -------------------|');
    Writeln('|---------------------------------------------------------------------|');
    Writeln('|- We Teleported a total of ' + IntToStr(TeleNum) + ' times ------------------|');
    Writeln('|- To gain a total XP of ' + IntToStr(TeleNum * 55.5) + '! ----------------|')
    Writeln('|---------------------------------------------------------------------|');
    Writeln('|----------------------- Post Progress Reports! ----------------------|');
    Writeln('|---------------------------------------------------------------------|');
    end;

  12. #12
    Join Date
    Sep 2006
    Location
    Texas
    Posts
    1,349
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default


  13. #13
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    LOL!

    NICE!

    ~Sandstorm

  14. #14
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    i didnt know you can grave dig scripts ;p
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

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
  •