SRL Archive - Outdated / Broken

Yup i beat renax at it:p
i also made it use readln for the declare platers thing so it is much neater with just 2 lins in the script you need to edit!

This is version1 so expect another version

In the next version you will have
Draynor compatibility
Deathwalker
dunno post for suggestions

Hmm when will the script be out ?

it is out

i just forgot to post it the forums are just too damn slow to edit!

http://www.scriptdump.net/dump/SCAR/Misc/essminerpv1.scar
EDIT: holy shit i made alot of replies by mistake! change yu host!!;)

mine is posted in the private section :P and it is the shiznit.

lol renax i agree but are we really suppose to mention it :p?

Nice History, Renaxes is MUCHCLEANER ;)

I like the draynor compatibilty and DeathWalk promises:D :D

Otherwhise.. good job!

i cant get it to work it logs in all right and i sart in the west side of the bank. it spins in circles a few times and it starts to click outside the minimap and make my guy run southwest

I added standards. Don't get me wrong, you are a good scripter, but you need to learn scripting standards, cause right now your scripts are messy and hard to read. But Very nice work on this :)

{ EEEEEEE   SSSSSS     SSSSSS    EEEEEEE   NN     NN    CCCCC    EEEEEEE       }
{ EEEEE    SSSSSSS    SSSSSSS    EEEE      NNNN   NN   CCCCCCC   EEEE          }
{ EE       S          S          EE        NN NN  NN   CC   CC   EE            }
{ EEEE      SSSSS      SSSSS     EEEE      NN  NN NN   CC        EEEE          }
{ EE        SSSSSS     SSSSSS    EE        NN   NNNN   CC   CC   EE            }
{ EEEEE          S          S    EEEEE     NN    NNN   CCCCCCC   EEEEE         }
{ EEEEEE    SSSSS      SSSSS     EEEEEEE   NN     NN    CCCCC    EEEEEEE       }
{                                                          MINER               }
{                                                            by HISTORY        }
{Thanks to Kane for all the help!
{Instructions                                                                  }
{1. USE Original  client with Low Detail, Very Bright.                         }
{2. Set your Screen to 32 bit TRUE color.                                      }
{3. Drag crosshair over runescape                                              }
{4. setup lines 35-36                                                          }
{5. wield all pickaxes                                                         }
{6. Be in Varrock east Bank at most left bankslot                              }
{7. Start script logged out.                                                   }
{}{}{}{}{{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}{}


program essminer;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

var
   ess:integer;
   pin:integer;
   usepins: string;


{do not touch these}
const
     ver              ='1.00'       ;
     aubury           = 933473      ;
     teleportsymbol1  = 3428391     ;
     teleportsymbol2  = 220626      ;
{Setup}
     scripttotal      = '1000000000';//how long to leave the script running in milliseconds
     totaltime        = 100         ;//total time on each account in seconds
{do not touch below...:p}


function requestpins: boolean;
var
  buff: string;
begin
  buff:= ReadLn('Use Bank Pins? Yes/No  *Applies to all Accounts*');
 if(lowercase(copy(buff, 1, 1))='y')or(lowercase(copy(buff, 1, 1))='t')then
  result:= true
end;

Procedure DeclarePlayers;
var
   no : Integer;
begin
 if(requestpins)then
  usepins:= 'yes'
 else
  usepins:= 'no';
  HowManyPlayers:=StrToInt(Readln('How many Autoers?'));
  NumberOfPlayers(HowManyPlayers)
 For no:=0to(HowManyPlayers -1)do
  begin
   Players[no].Name:= Readln('Username of account ' + IntToStr(no+1));
   Players[no].Pass:= Readln('Password of account ' + IntToStr(no+1));
   Players[no].Nick:= Readln('Nickname(3Letters from name) of account ' + IntToStr(no+1));
  if(usepins = 'yes')then
   Players[no].Skill:=ReadLn('Bank Pin of account'+IntToStr(no+1));
  end;
end;

function declareloc : boolean;
begin
  Players[CurrentPlayer].Loc:='bank';
  Result:=True;
end;

procedure setup;
begin
  SetupSrl;
  SetupSrlMining;
  DisguiseScar('Essence miner version '+(ver))
  ess:=0;
  DeclarePlayers;
  declareloc;
  LoginPlayer;
  PerfectNorth;
  chatsoff;
end;

Procedure RunAway;
begin
  RunAwayDirection('NE')
  Flag;
  wait(2000+random(1000))
 if(WeAreDead)then
  begin
   Players[CurrentPlayer].Active:=False;
   exit;
 end;
  RunBack;
  Flag;
end;

procedure FindRandoms;
begin
  CloseWindow;
  ClickToContinue;
  FindLamp('mining');
  FindDead;
  FindMod;
  FindMime;
  FindMaze;
  FindQuiz;
  FindFrog;
  FindDoctor;
  FindBox;
  FindDemon;
  if(FindFight)Then
   RunAway;
  if(Findname) Then
   FindTalk;
  if(FindNewBox) then
   Logout;
end;

procedure gotoshop;
var
   x,y:integer;
begin
 if(not(Players[CurrentPlayer].Loc='bank'))then
  exit;
 if(not(loggedin))then
  LoginPlayer;
  RoadWalkTol(4869458,'SW',30);
  Flag;
  FindSymbol(x,y,'magic')
  Mouse(x,y,2,2,true)
  wait(1000+random(700))
  flag;
 if(FindObj(x,y,'Open',1067626,20))then
  Mouse(x,y,2,2,true);
  Mouse(x,y,2,2,true);
end;

procedure gotobank;
begin
 if(not(Players[CurrentPlayer].Loc='magicshop'))then
  exit;
if(not(loggedin))then
  LoginPlayer;
  RoadWalkTol(4869458,'NW',20);
  Flag;
  FindSymbol(x,y,'bank');
  Mouse(x,y,2,2,true)
  wait(1000+random(2000))
  flag;
  Players[CurrentPlayer].Loc:='bank';
end;

procedure teleport;
var
   q,w:integer;
begin
 if(not(Players[CurrentPlayer].Loc='magicshop'))then
  exit;
 repeat
  if(not(LoggedIn))then LoginPlayer;
   findcolortolerance(x,y,aubury,MSX1,MSY1,MSX2,MSY2,9)
   MMouse(x,y,3,3)
   wait(1000+random(700))
   FindObjSpiral(x,y,10,'Talk-to')
  until(isuptext('Talk-to'))
   getmousepos(x,y)
   PopUp2(x,y,2,2,'Teleport')
  repeat
   wait(500+random(400))
  if(not(LoggedIn))then
   LoginPlayer;
  until(findcolortolerance(q,w,11907773,MMX1,MMY1,MMX2,MMY2,10))
end;

procedure depositess;
begin
 if(not(Players[CurrentPlayer].Loc='bank'))then
  exit;
 if(requestpins)then
  usepins:= 'yes'
 else
  usepins:= 'no';
 if(usepins='yes')then
  OpenBank2(pin);
 if(usepins='no')then
  OpenBank;
  wait(3000+random(2000));
  Deposit2(2,30);
  wait(3000+random(2000))
  Mouse(459,43,1,1,true)
end;


procedure wherearewe;
begin
 if(findcolortolerance(x,y,teleportsymbol1,MMX1,MMY1,MMX2,MMY2,10)or(findcolortolerance(x,y,teleportsymbol2,MMX1,MMY1,MMX2,MMY2,10)))then
  Players[CurrentPlayer].Loc:='runess';
 if(not(findcolortolerance(x,y,teleportsymbol1,MMX1,MMY1,MMX2,MMY2,10)or(findcolortolerance(x,y,teleportsymbol2,MMX1,MMY1,MMX2,MMY2,10))))then
  Players[CurrentPlayer].Loc:='runess2';
 if(Players[CurrentPlayer].Loc='runess2')then
  begin
 repeat
   RoadWalkTol(9934243,'SW',200)
  until(findcolortolerance(x,y,teleportsymbol1,MMX1,MMY1,MMX2,MMY2,10)or(findcolortolerance(x,y,teleportsymbol2,MMX1,MMY1,MMX2,MMY2,10)))
   Players[CurrentPlayer].Loc:='runess';
  end;
end;

procedure mineess;
begin
 if(not(Players[CurrentPlayer].Loc='runess'))then
  exit;
 if(not(LoggedIn))then
  LoginPlayer;
  FindObjSpiral(x,y,10,'Mine')//sdcit suggested this
  wait(100+random(200));
  Mouse(x,y,4,4,true);
 repeat
  randomchat;
 if(not(LoggedIn))then
  Break;
  wait(500+random(100));
  FindRandoms;
  FindPick;
 until(InvFull);
  ess:=ess+28;
end;

procedure useportal;
begin
 if(not(Players[CurrentPlayer].Loc='runess'))then
  exit;
  FindColorTolerance(x,y,teleportsymbol1,MMX1,MMY1,MMX2,MMY2,10)
  Mouse(x,y,1,1,true)
  flag;
  FindObjSpiral(x,y,10,'Use')
  wait(800+random(200))
  Getmousepos(x,y)
  Mouse(x,y,0,0,true)
end;

procedure newplayer;
begin
 if(PlayerStartTime>totaltime*1000)then
  begin
    Logout;
    NextPlayer(True)
    Chatsoff;
  end;
 if(FindNewBox)then
  begin
   NextPlayer(False);
  if(not(LoggedIn))then
   LoginPlayer;
   DeclareLoc;
  end;
end;

procedure report;
begin
  WriteLn(' ');
  WriteLn('<====essence miner -'+(Ver)+'- Progress Report ===============>');
  writeln('Worked for '+ TimeRunning);
  WriteLn('Mined '+IntToStr(ess)+' essence in total!');
  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(doctors>0)then WriteLn('  Solved '+IntToStr(doctors)+' Fords[s].');
  if(frogs>0)then WriteLn('  Solved '+IntToStr(frogs)+' Frog[s].');
  if(Attaches>0)then WriteLn('  Attached '+IntToStr(Attaches)+' Pickaxe[s].');
  if(boxes>0)then WriteLn('  Solved '+IntToStr(boxes)+' Box[es].');
  if(demons>0)then WriteLn('  Solved '+IntToStr(demons)+' Demon[s].');
  if(logs>0)then WriteLn('  Logged in '+IntToStr(logs)+' Time[s].');
  WriteLn('<=====================================================>');
end;
  
begin
  setup;
  antiban;
 repeat
  gotoshop;
  teleport;
  wherearewe;
  mineess;
  useportal;
  gotobank;
  Players[CurrentPlayer].Skill:=Inttostr(pin)
  depositess;
  report;
 until(timerunning>(scripttotal))
end.

From: huh26010
i cant get it to work it logs in all right and i sart in the west side of the bank. it spins in circles a few times and it starts to click outside the minimap and make my guy run southwest

uhh are you sure?!

It should only click like 3 times
did it attempt to open the door of the magic shop? did it arrive near the magic shop lol? moe details pls

History Your walking is Screwed. the problem is when road walk, clicks way into the outside of the minimap waits until it cant see the flag and clicks again. but the flag does not show up when clicking on the outside of the minimap so it clicks 3 times then searches for teh magic shop door.

yes i know too bad i am obsessed on wurmonline to be bothered on scar scripting…:(

From: HISTORY
yes i know too bad i am obsessed on wurmonline to be bothered on scar scripting…:(

:eek: what…… no….. never *breaks down and crys*

well maybe ill get a chance tommorow… scripting while playing the game… which btw ownz all other games and IS FREE

I tried to play that game and it didnt work