SRL Archive - First Scripts

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 :)

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.

it works, just moves to fast maybe make mouse speed around 20..

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 :p 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!

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

From: radiclerobby
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 }
{VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV}
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!

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

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

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

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

nah don't worry about it…just remember it in future :)

nice alcher but u definitaly need ant ban features..