Results 1 to 12 of 12

Thread: my first script 5 choice auto tele

  1. #1
    Join Date
    Oct 2006
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my first script 5 choice auto tele

    yay my first script

    ////////////////////////////////////////////////////////////////////////////
    /////////////////////////5 choice auto tele/////////////////////////////////
    /////////////////////////////by bbri06//////////////////////////////////////
    ///////////////////////////my first script//////////////////////////////////

    {features
    1.5 choice tele system
    2.user friendly
    3.no lag!
    4.it's free

    things it doesn't have
    1.no anti randoms}


    program autotele;
    var
    c:integer;
    const
    timestotele=3;{add one more then you wish to do}
    placetotele=2;{1=varrok, 2=lumbridge, 3=falador, 4=camelot, 5=ardougne}
    procedure varroktele;
    begin
    movemousesmooth(591,271)
    wait(100)
    clickmouse(591,271,true)
    wait(1200)
    end;
    procedure lumbytele;
    begin
    movemousesmooth(659,270)
    wait(100)
    clickmouse(659,270,true)
    wait(1200)
    end;
    procedure fallytele;
    begin
    movemousesmooth(566,295)
    wait(100)
    clickmouse(566,295,true)
    wait(1200)
    end;
    procedure cammytele;
    begin
    movemousesmooth(682,294)
    wait(100)
    clickmouse(682,294,true)
    wait(1200)
    end;
    procedure ardytele;
    begin
    movemousesmooth(658,320)
    wait(100)
    clickmouse(658,320,true)
    wait(1200)
    end;
    procedure tele;
    begin
    if(placetotele=1)then
    begin
    varroktele;
    end
    if(placetotele=2)then
    begin
    lumbytele;
    end
    if(placetotele=3)then
    begin
    fallytele;
    end
    if(placetotele=4)then
    begin
    cammytele
    end
    if(placetotele=5)then
    begin
    ardytele
    end
    end;


    begin
    repeat
    tele;
    c:=c+1
    until(c=timestotele)
    end.

  2. #2
    Join Date
    Oct 2006
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    tell me if u like or if it needs improvement

  3. #3
    Join Date
    Mar 2006
    Posts
    509
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It looks good for your very first script. BUT

    Things to improove upon could be
    1. More Randomness (clickmouse and releasemouse work together?)
    2. Identing, Every good programmer indents
    3. Try including SRL with your next script and figuring out some of the mouse functions and basic uses of the include.

    Having said that its your VERY first script and I know why you didnt do those things that is just some constructive criticism. Other then that it looks very good keep it up.
    Currently Working on: Its a Secret
    WSP!! <3 bebe

  4. #4
    Join Date
    Oct 2006
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    tyvm
    1.i can add the randomness
    2.indenting....i dont no why or were to do that could you plz explain it
    3.and i am currently working on an auto alcher with the choices of high alch or low alch, it includes SRL however i am stuck because i'm having a hard time getting it to move the alching object to a specified spot

  5. #5
    Join Date
    Oct 2006
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i will work on it today

  6. #6
    Join Date
    Mar 2006
    Posts
    509
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorry I don't know the link to the Identing explained thread lol.

    use a Inventory clicking item function. Not sure what one is in SRL haha
    Currently Working on: Its a Secret
    WSP!! <3 bebe

  7. #7
    Join Date
    Feb 2006
    Location
    Helsinki, Finland
    Posts
    1,395
    Mentioned
    30 Post(s)
    Quoted
    107 Post(s)

    Default

    ClickMouse and ReleaseMouse together...? No. It doesn't work. As, ClickMouse itself releases mouse button(really fast, that's always the same time for it.. That's why it's detectable). So, better just use with ReleaseMouse the 'HoldMouse' function. I thought you would know that, Mutant.

  8. #8
    Join Date
    Oct 2006
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    k ty i will look for the thing on indenting and i should be posting the revised one today

  9. #9
    Join Date
    Mar 2006
    Posts
    509
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cool good to hear
    Currently Working on: Its a Secret
    WSP!! <3 bebe

  10. #10
    Join Date
    Oct 2006
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hmm....still no indenting lol but i did make it into this


    ////////////////////////////////////////////////////////////////////////////
    /////////////////////////5 choice auto tele/////////////////////////////////
    /////////////////////////////by bbri06//////////////////////////////////////
    ///////////////////////////my first script//////////////////////////////////

    {features
    1.5 choice tele system
    2.user friendly
    3.no lag!
    4.it's free

    things it doesn't have
    1.anti randoms(its my first script lol)}


    program autotele;
    {.include SRL/SRL.scar}
    {.include/SRL/Core/Login.scar}
    {.include/SRL/Core/inventory.scar}
    var
    c:integer;
    a,b:integer;
    const
    timestotele=16;{double the amount you want to do}
    placetotele=4;{1=varrok, 2=lumbridge, 3=falador, 4=camelot, 5=ardougne}
    procedure spellbook;
    begin
    movemousesmooth(740,187)
    wait(500)
    clickmouse(740,187,true)
    end;
    procedure varroktele;
    begin
    if(not(findcolor(a,b,16349818,576,258,602,285)))th en
    begin
    spellbook;
    end
    if(findcolor(a,b,16349818,576,258,602,285))then
    movemousesmooth(591,271)
    wait(100+random(50))
    clickmouse(591,271,true)
    wait(1200+random(100))
    end;
    procedure lumbytele;
    begin
    if(not(findcolor(a,b,16349818,646,260,672,287)))th en
    begin
    spellbook;
    end
    if(findcolor(a,b,16349818,646,260,672,287))then
    movemousesmooth(659,270+random(3))
    wait(100)
    clickmouse(659,270,true)
    wait(1200+random(10))
    end;
    procedure fallytele;
    begin
    if(not(findcolor(a,b,16349818,553,285,578,311)))th en
    begin
    spellbook;
    end
    if(findcolor(a,b,16349818,553,285,578,311))then
    movemousesmooth(566,295)
    wait(100+random(30))
    clickmouse(566,295,true)
    wait(1200)
    end;
    procedure cammytele;
    begin
    if(not(findcolor(a,b,16349818,670,285,696,310)))th en
    begin
    spellbook;
    end
    if(findcolor(a,b,16349818,670,285,696,310))then
    movemousesmooth(682,294)
    wait(100-random(10))
    clickmouse(682,294,true)
    wait(1200+random(50))
    end;

    procedure ardytele;
    begin
    if(not(findcolor(a,b,16349818,672,336,645,310)))th en
    begin
    spellbook;
    end
    if(findcolor(a,b,16349818,672,336,645,310))then
    movemousesmooth(658,320+random(4))
    wait(100)
    clickmouse(658,320,true)
    wait(1200+random(10))
    end;
    procedure tele;
    begin
    if(placetotele=1)then
    begin
    varroktele;
    end
    if(placetotele=2)then
    begin
    lumbytele;
    end
    if(placetotele=3)then
    begin
    fallytele;
    end
    if(placetotele=4)then
    begin
    cammytele
    end
    if(placetotele=5)then
    begin
    ardytele
    end
    end;



    begin
    repeat
    tele;
    c:=c+1
    until(c=timestotele)
    writeln('FINISHED TELEPORTING')
    writeln('LOGING OFF')
    setupsrl;
    logout;
    end.

  11. #11
    Join Date
    Feb 2006
    Location
    Helsinki, Finland
    Posts
    1,395
    Mentioned
    30 Post(s)
    Quoted
    107 Post(s)

    Default

    Your first scripts are pretty nice. I didn't start that nicely.. Way to go, bbri! You definitely are doing very good.

    Here is something for you.. Standards for your script.

    Code:
    ////////////////////////////////////////////////////////////////////////////
    /////////////////////////5 choice auto tele/////////////////////////////////
    /////////////////////////////by bbri06//////////////////////////////////////
    ///////////////////////////my first script//////////////////////////////////
    
    {features
    1.5 choice tele system
    2.user friendly
    3.no lag!
    4.it's free
    
    things it doesn't have
    1.anti randoms(its my first script lol)}
    
    program autotele;
    
    {.include SRL/SRL.scar}
    {.include/SRL/Core/Login.scar}
    {.include/SRL/Core/inventory.scar}
    
    var
      c,a,b:integer;
    
    const
      timestotele=16;{double the amount you want to do}
      placetotele=4;{1=varrok, 2=lumbridge, 3=falador, 4=camelot, 5=ardougne}
    
    procedure spellbook;
    begin
      movemousesmooth(740,187)
      wait(500)
      clickmouse(740,187,true)
    end;
    
    procedure varroktele;
    begin
      if(not(findcolor(a,b,16349818,576,258,602,285)))th en
      begin
        spellbook;
      end
      if(findcolor(a,b,16349818,576,258,602,285))then
      begin
        movemousesmooth(591,271)
        wait(100+random(50))
        clickmouse(591,271,true)
        wait(1200+random(100))
      end
    end;
    
    procedure lumbytele;
    begin
      if(not(findcolor(a,b,16349818,646,260,672,287)))th en
      begin
        spellbook;
      end
      if(findcolor(a,b,16349818,646,260,672,287))then
      begin
        movemousesmooth(659,270+random(3))
        wait(100)
        clickmouse(659,270,true)
        wait(1200+random(10))
      end
    end;
    
    procedure fallytele;
    begin
      if(not(findcolor(a,b,16349818,553,285,578,311)))th en
      begin
        spellbook;
      end
      if(findcolor(a,b,16349818,553,285,578,311))then
      begin
        movemousesmooth(566,295)
        wait(100+random(30))
        clickmouse(566,295,true)
        wait(1200)
      end
    end;
    
    procedure cammytele;
    begin
      if(not(findcolor(a,b,16349818,670,285,696,310)))th en
      begin
        spellbook;
      end
      if(findcolor(a,b,16349818,670,285,696,310))then
      begin
        movemousesmooth(682,294)
        wait(100-random(10))
        clickmouse(682,294,true)
        wait(1200+random(50))
      end
    end;
    
    procedure ardytele;
    begin
      if(not(findcolor(a,b,16349818,672,336,645,310)))th en
      begin
        spellbook;
      end
      if(findcolor(a,b,16349818,672,336,645,310))then
      begin
        movemousesmooth(658,320+random(4))
        wait(100)
        clickmouse(658,320,true)
        wait(1200+random(10))
      end
    end;
    
    procedure tele;
    begin
      if(placetotele=1)then
      begin
        varroktele;
      end
      if(placetotele=2)then
      begin
        lumbytele;
      end
      if(placetotele=3)then
      begin
        fallytele;
      end
      if(placetotele=4)then
      begin
        cammytele
      end
      if(placetotele=5)then
      begin
        ardytele
      end
    end;
    
    begin
      setupsrl;
      repeat
        tele;
        c:=c+1
      until(c=timestotele)
      writeln('FINISHED TELEPORTING')
      writeln('LOGING OFF')
      logout;
    end.

  12. #12
    Join Date
    Oct 2006
    Posts
    468
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ty
    working on a auto alcher

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. In2its Cammy Tele First Script Enjoy!!
    By in2it in forum First Scripts
    Replies: 18
    Last Post: 10-25-2008, 11:24 PM
  2. Chance, Choice or Fate
    By Waddo in forum Discussions & Debates
    Replies: 16
    Last Post: 09-10-2008, 04:31 PM
  3. all tele script
    By syberium in forum OSR Help
    Replies: 2
    Last Post: 12-28-2006, 07:13 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
  •