SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
HTML

Other Communitys
NeoFriends.net, Sythe.org

How Long have You Played Runescape
2 years

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

Well I spend most of my life on my skateboard or on the computer, and I've really been into SCAR, and maybe if I'm a member here I'll get more charisma from the members so I'll learn faster and make better scripts!

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

2 of my Power Miners;
The Power Miner Dude;

{------------------------------}
{-    The Power Miner Dude    -}
{-       By: Dudesareus       -}
{------------------------------}
program PowerMinerDude;
{.include SRL\SRL.scar}
{------------------------------}
var
   Loadz : Integer;
{------------------------------}
const
   rockcol      =2174283; //Colour of the rock
   pickequip    =True;    //Pick equipped?
{------------------------------}
procedure DeclarePlayers;
begin
 NumberOfPlayers(1);
 CurrentPlayer:=0;
  Players[0].Name:='Username'; //Username
  Players[0].Pass:='Password'; //Password
  Players[0].Nick:='Nickname'; //Nickname
end;
{------------------------------}
procedure mine;
begin
 repeat
  if (FindMSColor(x,y,rockcol)) then
  Mouse(x,y,2,2,true);
  Wait(5000);
 until(InvFull)
end;
{------------------------------}
procedure replywhatsup;
begin
 if(FindChatText('whats up'))or
   (FindChatText('whats new'))or
   (FindChatText('whats hap'))then
   typesend('not much, just mining!')
end;
{------------------------------}
procedure replyhi;
begin
 if(FindChatText('hello'))or
   (FindChatText('hi'))or
   (FindChatText('hey'))or
   (FindChatText('yo'))then
   typesend('yo')
end;
{------------------------------}
procedure drop;
begin
 if(pickequip)=True then
 begin
 GameTab(4);
 DropTo(1,28);
 Loadz := Loadz + 1;
 end;
 begin
 if(pickequip)=False then
 begin
 GameTab(4);
 DropTo(2,28);
 Loadz := Loadz + 1;
 end;
 end;
end;
{------------------------------}
procedure Report;
begin
 Writeln('{--------By Dudesareus---------}');
 Writeln('{------------------------------}');
 Writeln('         Mined ' +IntToStr(Loadz)+' Loads!');
 Writeln('{------------------------------}');
end;
{------------------------------}
begin
 DeclarePlayers;
 SetupSRL;
 DisguiseScar('Dude!');
 repeat
 if(not (LoggedIn)) then
 LoginPlayer;
 until(false)
 repeat
 ActivateClient;
 ClearDebug;
 Antiban;
 Report;
 replyhi;
 replywhatsup;
 mine;
 drop;
 until(false)
end.

Dude n' Begu's PowerMiner;

{----------------------------------------}
///////////////Program Info///////////////
///////////Name: DudesPowerMiner//////////
///////////////Version: 1.0///////////////
////////////Creator: Dudesareus///////////
////////////With help from.....///////////
///////////////Mage of Begu///////////////
{----------------------------------------}
program DudesPowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/mining.scar}

{-------------------------Variables--------------------------}
var Load, RockColorMOB:Integer;
{-------------------------Constants--------------------------}
const Rock1          = 8816272;        //Tin Rock Colour
      Rock2          = 3823995;        //Copper Rock Colour
      Rock3          = 2701145;        //Iron Rock Colour
      OreMaskJESSE   = 4349813;        //Color of mined ores
{------------------------Player Setup------------------------}

procedure DeclarePlayers;
   begin
      HowManyPlayers := 1;                       //Number of Players
      NumberOfPlayers(HowManyPlayers);           //No need to touch
      CurrentPlayer:=0;                          //The player # to start with
                                                 //-------------------------------
         Players[0].Name       := 'NameHere';    //Your Runescape Username
         Players[0].Pass       := 'PassHere';    //Your Runescape Password
         Players[0].Nick       := 'NickHere';    //3 unique letters from your name
         Players[0].Boolean1   := True;     ;    //Pickaxe Equipped?
         Players[0].String1    := 'copper'  ;    //Look at constants to find rock #
         Players[0].Integer1   := 1         ;    //Loads to be mined
   end;

//////////////////////////////////////////////////// Color Setup

Procedure SetRockColor;
Begin
  Case LowerCase(Players[CurrentPlayer].String1) Of
    'copper'  :  RockColorMOB:=Rock1;
    'tin'     :  RockColorMOB:=Rock2;
    'iron'    :  RockColorMOB:=Rock3;
 End;
End;

//////////////////////////////////////////////////// Rock Mining

Procedure mineproc;
begin
if(not(LoggedIn))then
LoginPlayer;
Wait(200)
HighestAngle;
MakeCompass('N')
begin
  repeat
 if(FindObj3(x,y,'ine',RockColorMOB,7))then
    Mouse(x,y,2,2,true);
 Wait(7000);
 FindNormalRandoms;
 FindTalk;
if(FindGas(x,y))then
 begin
RunAwayDirection('N')
Wait(15000)
RunBack;
 end;
 FindPick;
   Until(InvFull);
end;
end;

//////////////////////////////////////////////////// Drop Ores

Procedure dropping;
begin
 repeat
               if(FindObj3(x,y,'re',OreMaskJESSE,7))then
   begin
     Mouse(x,y,2,2,false)
     ChooseOption(x,y,'rop')
     Wait(100)
   end;
 until(not(FindObj3(x,y,'re',OreMaskJESSE,7)))
end;

//////////////////////////////////////////////////// Progress Report By "Mage Of Begu"

procedure ProgressReportMOB;
begin
ClearDebug;
Writeln('-------Dudes-Powerminer--------')
Wait(100)
Writeln('Time Running :'+ ScriptTime2(2))
Wait(100)
Writeln('Loads mined & Dropped :'+inttostr(Load)+'')
Wait(100)
Writeln('-------------------------------')
Wait(100)
end;

//////////////////////////////////////////////////// Thank You Report By "Mage Of Begu"

procedure ThankYouFor;
begin
ClearDebug;
Writeln('-------------------------------------------------------')
Wait(100)
Writeln('--------Thank You For Using Dudes Powerminer...--------')
Wait(100)
Writeln('--------hope it filled your hopes...-------------------')
Wait(100)
Writeln('-------------------------------------------------------')
Wait(2000)
end;

//////////////////////////////////////////////////// Dudes Main Frame

begin
   SetupSRL;
   SetupSRLMining;
    NEWLINE:='';
     DeclarePlayers;
      ActivateClient;
     DisguiseScar('Vegas 7.0')
    SetRockColor;
 repeat
  mineproc;
   AntiBan;
    dropping;
     Load:=Load+1;
      ReportVars[0]:=1;
     ProgressReportMOB;
    SRLRandomsReport;
   SendSRLReport;
 until(Players[CurrentPlayer].Integer1<Load)
  ThankYouFor;
end.

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

overall to simple, to short, keep at it though, nice work, just not good enough in my opinion for membership status.

Too simple. No failsafes. Randoms? Multiplayer?

Please read this…if you already have, reread it.
This should teach what is needed for an SRL Membership

Too simple scripts, powerminer just clicks the color, waits 5 seconds and repeats it's untill invfull. No from me sorry.

You know almost nothing about SRL and scripting. No.

Too simple. no.