Results 1 to 10 of 10

Thread: my first script alcer

  1. #1
    Join Date
    Jul 2008
    Posts
    179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default my first script alcer

    ok this is my first script after reading about 30 tuts lol well here it is i hope you like it also give me sum suggestions to make better also it includes sum anti ban features

    SCAR Code:
    program MyFirstAlcerScript;
    {.include SRL/SRL.scar}
                          {    setup down there lol made bye radiclerobby   }
                         {VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV}
    const
    alcs = 2;      // how many times you want to alc this item
    antiban = true; // if you want to use the anti ban where it talks
    {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
    {/\/\/\/\/\/\/\/\/\/\/\/\/\/\  setup right up there/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}

    var
     i:Integer;

    procedure nonbanage;
    begin
     if (i = 20) THEN
     begin
      typesend('wooo almost done!')
     end else
     if(i = 45) then
     begin
      typesend('not much longer now')
     end else
     if(i =70) then
     begin
      typesend('omg this is taking forever')
     end else
     if(i=200) then
     begin
      typesend('so many alcs to do =(')
     end else
     if(i=325) then
     begin
      typesend('my magic level is profiting off this at least')
     end else
     if(i=450) then
     begin
      typesend('my mage lvl is none of you bussiness lol')
     end;
    end;

    procedure Alc;
    begin
     Mouse(571,360,4,4, true);
     wait(1000+random(300));
     Mouse(579,227,4,4, true);
     wait(1000+random(100));
    end;
    begin
     ClearDebug;
     i:= 0;
     ActivateClient;
     RandomMovement;
     begin;
      mousespeed:=25+random(5)
      repeat;
      if(antiban = true) then
      begin
       nonbanage;
      end;
      i:= i + 1;
      gametab(7);
      Alc;
      until(i = alcs);
     end;
      begin
       pickupmouse;
      end;
      begin;
       Logout;
      end;
    end.

  2. #2
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    it works, just moves to fast maybe make mouse speed around 20..
    SCAR Code:
    procedure DeclarePlayers;
     
    begin
     HowManyPlayers := 1;   //how many players
      NumberOfPlayers(HowManyPlayers);
       CurrentPlayer := 0;   //current player
     
    Players[0].Name   := 'Username'; //username!
    Players[0].Pass   := 'password'; //password
    Players[0].Nick   := ''; //Nick (3-4 letters of ur name
    Players[0].Active := True; //is the player active?
     
      Mousespeed := 10; //SPeed of mouse change if you want (20 maybe)
    end;
    {include. SRL/SRL/Skill/Magic.scar}

    also add in anti randoms (if you update it) and try and make it logg out now and then (every 1-3 hours or so) also put in less AntiBanage and just make it say something if someones asks what your doing mage lvls etc..great first script though also i would add in how to setup the script

    also see if you can put in a proggy : how many alchs it did how many lvls gained exp gained money made etc...if you dunt know howto do that check another alching script see if they have one and copy that,,,DONT FORGET TO CREDIT THOUGH!

    Also could you put upload the Script its easy then C&Ping...thanks!
    IM BACK!!!!!!!!!!!!!!!!!

  3. #3
    Join Date
    Jul 2008
    Posts
    179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey thanks but how would i make the relog feature im a noob at this also how would i make this baby use s.m.a.r.t. if it would take to long to explain then you could give me a link to go to to find out how

  4. #4
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by radiclerobby View Post
    hey thanks but how would i make the relog feature im a noob at this also how would i make this baby use s.m.a.r.t. if it would take to long to explain then you could give me a link to go to to find out how
    ok. for SMART go to http://www.villavu.com/forum/showthread.php?t=32001 or search threads..i dont really like it anyway but your script you chose to make it relog..just put a loop in the script infinite or just so it does a certain amount of alchs then relogs...to make it relog just repeat the script...that will make it log out (make it logg out at end of script) then repeat the whole thing i will post how to put a loop in later..testing someone elsses script atm.

    would you mind if i edited the script then reposted here? you can still use it as yours just put in my name for credits along with yours?
    did anyway...use if you want or update just ad me to credits and rep my post please

    [SCAR/]program Alcher_v1_Fixed;
    {.include SRL/SRL.scar}
    { setup down there lol made bye radiclerobby }
    {VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV VV}
    const
    alcs = 2; // how many times you want to alc this item
    //SRL STATS
    YourID = '25445'; // Your stats id here
    YourPW = 'Example :P'; //Your stats pw here
    {^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^}
    {/\/\/\/\/\/\/\/\/\/\/\/\/\/\ setup right up there/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\}

    var
    i:Integer;

    procedure DeclarePlayers;
    begin
    howmanyplayers:= 1; //Players
    numberofplayers(howmanyplayers);
    players[0].name:='Username';
    players[0].pass:='Password';
    players[0].nick:='abc';
    players[0].active:=true;

    end;

    procedure randoms;
    begin
    findnormalrandoms;
    if findfight=true then
    begin
    runaway('E',true,1,5000+random(1000));
    end;
    end;


    procedure Alc;
    begin
    Mouse(571,360,4,4, true);
    wait(1000+random(300));
    Mouse(579,227,4,4, true);
    wait(1000+random(100));
    end;

    procedure AntiBan;
    begin
    if not LoggedIn then Exit;
    case (Random(30)) of
    1: RandomRClick;
    5: HoverSkill('Magic', False);
    11: RandomMovement;
    15: BoredHuman;
    21: DoEmote(400 +Random(90));
    24: PickUpMouse;
    27: begin
    Gametab(1 + Random(12));
    Wait(3220 + Random(2415));
    Gametab(4);
    end;
    30: SleepAndMoveMouse(3600);
    end;
    end;

    procedure Report;
    begin
    Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~');
    Writeln('| This is my proggy use if you want but credit');
    Writeln('| Alched '+ IntToStr(i));
    Writeln('| Worked for ' + TImeRunning);
    Writeln('| Exp gained '+ IntToStr(i*65));
    Writeln('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~');
    Writeln('Made By Joelster134.');
    end;
    begin
    pickupmouse;
    end.
    begin;
    Logout;
    end;
    end.

    [SCAR\]

    DOSNT HAVE LOOP DOES ALL ALCHS IN ONE BIG SHOT! YAY!
    IM BACK!!!!!!!!!!!!!!!!!

  5. #5
    Join Date
    Jul 2008
    Posts
    179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yo thanks man will use also what youve shown gave me great ideas on making a auto cow killer and hide collecter and banker will be l33tn3ss
    if u want a copie when im done ill share

  6. #6
    Join Date
    Jul 2008
    Posts
    179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    but one thing about what you edited you didnt put the proceders to work lol

  7. #7
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah sorry...made at 1 am in morning...yes i would like please...and np just trying to help
    also try not to double post...send a PM if you cant edit...and also check out my fighters if you want any help on how to make a killing procedure etc
    IM BACK!!!!!!!!!!!!!!!!!

  8. #8
    Join Date
    Jul 2008
    Posts
    179
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok sorry is that against the rules if so dang =(

  9. #9
    Join Date
    Sep 2008
    Location
    Aussie mate
    Posts
    411
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nah don't worry about it...just remember it in future
    IM BACK!!!!!!!!!!!!!!!!!

  10. #10
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice alcher but u definitaly need ant ban features..

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
  •