SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
Uranium - SRL Member Application Form
Uranium

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
Jagex_Fagex, he told me about the SRL forums.

Programming Knowledge
VB, Little Delphi, HTML

Other Communitys
Sythe, Cruels

How Long have You Played Runescape
3 Years

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

I am 12 years old, i like rs and i like scripting. I could not find a more recent script (my computer died) and i only had a couple of old ones backed up. I am willing to create more SRL scripts and help people wherever i can, i have been using scar for about a month now.

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program autoeleporter;

{.include SRL\SRL.scar}
{.Include SRL\SRL\Skill\Magic.scar}

var
KS:integer;

const

{-----------------------------------Setup----------------------------------}
teleto=1;        {1=varrock
                  2=lumbridge
                  3=falador
                  4=camelot
                  5=ardougne
                  6=watchtower
                  7=trollheim}

teletimes=1500;   //number of times to teleport
waitingtime=3500; //number of time to wait before next teleport 1000=1second
StartPlayer=0;    //Player to start teleporting on
{-------------------------------------------------------------------------}

Procedure DeclarePlayers;
begin
     HowManyPlayers  :=6;               // Set Number of Players here.
     NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
     CurrentPlayer:=StartPlayer;        // CurrentPlayer = Array Index

     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Loc  :='';
     Players[0].Skill:='';
     Players[0].Active:=True;

     Players[1].Name :='';
     Players[1].Pass :='';
     Players[1].Nick :='';
     Players[1].Loc  :='';
     Players[1].Skill:='';
     Players[1].Active:=True;

     Players[2].Name :='';
     Players[2].Pass :='';
     Players[2].Nick :='';
     Players[2].Loc  :='';
     Players[2].Skill:='';
     Players[2].Active:=True;

     Players[3].Name :='';
     Players[3].Pass :='';
     Players[3].Nick :='';
     Players[3].Loc  :='';
     Players[3].Skill:='';
     Players[3].Active:=True;

     Players[4].Name :='';
     Players[4].Pass :='';
     Players[4].Nick :='';
     Players[4].Loc  :='';
     Players[4].Skill:='';
     Players[4].Active:=True;

     Players[5].Name :='';
     Players[5].Pass :='';
     Players[5].Nick :='';
     Players[5].Loc  :='';
     Players[5].Skill:='';
     Players[5].Active:=True;

     writeln(inttostr(HowManyPlayers)+' Players');

end;


procedure teleport;
begin
  if(teleto=1)then
  begin
    movemousesmooth(706,251 )
    wait(300+random(100))
    Mouse( 706, 251, 3, 3 ,true)
    wait(waitingtime+random(1000))
  end else
if(teleto=2)then
  begin
    movemousesmooth(610 , 276)
    wait(300+random(100) )
    Mouse( 610,276, 0, 0, true)
    wait(waitingtime+random(1000))
  end else
if(teleto=3)then
  begin
    movemousesmooth( 684,277 )
    wait(300+random(100))
    Mouse(684,277, 0, 0,true)
    wait(waitingtime+random(1000))
  end else
if(teleto=4)then
  begin
    movemousesmooth(612 ,300 )
    wait(300+random(100))
    Mouse(612 ,300, 0, 0,true)
    wait(waitingtime+random(1000))
  end else
if(teleto=5)then
  begin
    movemousesmooth(590,320 )
    wait(300+random(100) )
    Mouse(590 ,320, 0, 0,true)
    wait(waitingtime+random(1000))
  end else
if(teleto=6)then
  begin
    movemousesmooth(709 ,325 )
    wait(300+random(100) )
    Mouse(709,325, 0, 0,true)
    wait(waitingtime+random(1000))
  end else
if(teleto=7)then
  begin
    movemousesmooth(709 ,345 )
    wait(300+random(100) )
    Mouse(709 ,345, 0, 0,true)
    wait(waitingtime+random(1000))
  end;
end;

procedure LoginCheck;
begin
if(loggedin=false)then
  begin
    Players[CurrentPlayer].Active:=False;
    NextPlayer(true);
    LogInPlayer;
    wait(50+random(100))
    CloseWindow;
  end;
end;

procedure ProgressReport;
begin
  begin
  ClearDebug;
  WriteLn(' ');
  WriteLn('<============== - 3xtr3m3z Item Collector - Progress Report ===============>');
  writeln('Worked for '+ TimeRunning);
  writeln('Teleported ' + Inttostr (KS) + ' Times.');

  WriteLn('Random Event Report:');
  if(fights>0)then WriteLn('  Fought '+IntToStr(fights)+' Time[s].');
  if(talks>0)then WriteLn('  Talked to '+IntToStr(talks)+' Random event[s].');
  if(lamps>0)then WriteLn('  Used lamps '+IntToStr(lamps)+' Time[s].');
  if(frogs>0)then WriteLn('  Solved '+IntToStr(frogs)+' Frog[s].');
  if(demons>0)then WriteLn('  Solved '+IntToStr(demons)+' Demon[s].');
  WriteLn('<==========================================================================>');
  end;
end;

procedure FindRandoms;
begin
  CloseWindow;
  ClickToContinue;
  FindLamp(LampSkill);
  FindDead;
  FindMod;
  FindMime;
  FindMaze;
  FindQuiz;
  FindDemon;
  if Findname Then FindTalk;
  if FindNewBox then Logout;
end;

begin
  KS:=0
  SetupSRL;
  activateclient;
  ClearDebug;
  repeat
    teleport;
    wait(500)
    FindRandoms;
    KS:=KS+1
    if(KS=30)then
    begin
      ProgressReport;
    end;
  until(KS=teletimes)
end.

——————————————————
<!– END TEMPLATE: formanswers –>

No.

No multiplayer (use nextplayer)
Bad mouse procedure (use mmouse and mouse)

Not enough posts. Get to know the community better, and you'll have a better change at getting in

EDIT:

Just re-read over your script and realized that I'd skipped over your LoginCheck procedure.

1- You never called it
2- if(not(loggedin))then NextPlayer(false); will replace the whole thing (as it is now, I don't think it will work right anyway)
3- You should make it so each player can teleport to a differen place (hint: Players[x].Integer1)
4- You should make it so each player can teleport x # of times (hint: Players[x].Integer2)

SILLY GOOSE:

WriteLn('<============== - 3xtr3m3z Item Collector - Progress Report ===============>');

http://www.villavu.com/forum/showthread.php?t=231

You have chosen a bad path by copying scripts.
This will not be taken lightly and taken into consideration next time you apply.
Please just do the right thing and LEARN HOW TO SCRIPT if you want to get in.