SRL Archive - RS Scripts

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.

tell me if u like or if it needs improvement

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.

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

i will work on it today

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

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. :confused: :eek:

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

cool good to hear

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)))then
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)))then
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)))then
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)))then
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)))then
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.

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

////////////////////////////////////////////////////////////////////////////
/////////////////////////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.

ty :)
working on a auto alcher