SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
nope

Other Communitys
not really, a couple of gaming websites only

How Long have You Played Runescape
4 years

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

I am a dedicated learner and I like to learn. I like to go to school and study math and science. When I come home I read usually go out with friends or check for new tutorials in the tutorial island section. I like to script because it is fun and gives me something to do.

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

///////////////////////////////////////////////////////////////
//////////////////1. Choose which ore and how many loads.//////
//////////////////2. Make sure Char(s) are near rocks.   //////
//////////////////3. Start script logged out.            //////
//////////////////4. Enjoy.                              //////
///////////////////////////////////////////////////////////////

program Lancepowerminer;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Mining.scar}

Const
  SmartWorld = 41; //World to use smart in
  Loads = 5; //Loads to do before switching

Var
x, y, ores, Orecolor1, Gasses, LoadsNumB, PikDTM, TinDTM, BrokeDTM:integer;

procedure DeclarePlayers;
begin
  SRLId:= '';//SRl stats id number
  SRLPassword:= '';//srl stats pass
  
  HowManyPlayers  :=3;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer:=0;

  Players[0].Name :='UserName';
  Players[0].Pass :='Password';
  Players[0].Nick :='3-4 letters of UserName';
  Players[0].Active := True;//Want to use player?
  Players[0].Strings[1]:= 'tin'; // type of ore. valid are tin, copper, iron, silver, gold, coal, mith and addy

  Players[1].Name := 'UserName';
  Players[1].Pass := 'Password';
  Players[1].Nick := '3-4 letters of UserName';
  Players[1].Active := False;
  Players[1].Strings[1]:= 'iron'; // type of ore valid are tin, copper, iron, silver, gold, coal, mith and addy

  Players[2].Name := 'UserName';
  Players[2].Pass := 'Password';
  Players[2].Nick := '3-4 letters of UserName';
  Players[2].Active := False;
  Players[2].Strings[1]:= 'clay'; // type of ore valid are tin, copper, iron, silver, gold, coal, mith and addy
end;

procedure SetupSMART;
begin
    SmartSetupEX(SmartWorld, false, false); //credits to Prisoner
    SetTargetDC(SmartGetDC);
end;

function LoadDtmz: integer;
var
  PikMP: TDTMPointDef;
  PikSP: array of TDTMPointDef;
  PikDDTM: TDTM;
begin
  SetArrayLength(PikSP, 5);

  PikMP.x := 703;
  PikMP.y := 370;
  PikMP.areasize := 1;
  PikMP.areashape := 0;
  PikMP.color := 335662;
  PikMP.tolerance := 255;

  PikSP[0].x := 698;
  PikSP[0].y := 384;
  PikSP[0].areasize := 1;
  PikSP[0].areashape := 0;
  PikSP[0].color := 65536;
  PikSP[0].tolerance := 0;

  PikSP[1].x := 698;
  PikSP[1].y := 376;
  PikSP[1].areasize := 1;
  PikSP[1].areashape := 0;
  PikSP[1].color := 65536;
  PikSP[1].tolerance := 0;

  PikSP[2].x := 709;
  PikSP[2].y := 356;
  PikSP[2].areasize := 1;
  PikSP[2].areashape := 0;
  PikSP[2].color := 65536;
  PikSP[2].tolerance := 0;

  PikSP[3].x := 694;
  PikSP[3].y := 362;
  PikSP[3].areasize := 1;
  PikSP[3].areashape := 0;
  PikSP[3].color := 65536;
  PikSP[3].tolerance := 0;

  PikSP[4].x := 721;
  PikSP[4].y := 367;
  PikSP[4].areasize := 1;
  PikSP[4].areashape := 0;
  PikSP[4].color := 65536;
  PikSP[4].tolerance := 0;

  PikDDTM.MainPoint :=  PikMP;
  PikDDTM.SubPoints :=  PikSP;
  result := AddDTM(PikDDTM);
  BrokeDTM := DTMFromString('78DA63CC60626078C280020C95D8C0342394C' +
       'F580A54738F010D30A2AA2906AAB94B404D2150CD6D026AAA816A' +
       'EE1350930454738B08359F08A84901AA794F8439AF09A8C906AAB' +
       '9815F0D0087120D93');
  TinDTM := DTMFromString('78DA633CCAC4C050C2C8800C3AEBEB18FE036' +
       '990E87F2060BC0454938BAA06220B2381F461A09A06026ACE03D5' +
       '541250B3850835DB806AF209A8D90754934540CD09A09A34FC6A0' +
       '0CD12105C');
end;

Procedure Loadores;
begin
  case lowercase(Players[CurrentPlayer].Strings[1]) of
    'tin' : begin
              orecolor1 := 8882066;
            end;
    'iron' : begin
               orecolor1 := 2766939;
             end;
    'clay' : begin
               orecolor1 := 6005188;
             end;
    'silver' : begin
                 orecolor1 := 6584190;
               end;
    'copper' : begin
                 orecolor1 := 4747677;
               end;
    'coal' : begin
               orecolor1 := 2966339;
             end;
    'mith' : begin
               orecolor1 := 7096649;
             end;
    'addy' : begin
               orecolor1 := 6322528;
             end;
    'gold' : begin
               orecolor1 := 1815517;
             end;
  end;
end;

Procedure randoms;
begin
  if not LoggedIn then Exit;
    FindTalk;
    FindNormalRandoms;
    SolveChatRandom;
    FindLamp('Mining');
    If(FindFight)Then
    begin
      MakeCompass('N');
      RunTo('N', True);
      Wait(7000 +Random(3000));
      RunTo('S', True);
    end;
  end;

procedure AntiBanz;
begin
  if not LoggedIn then Exit;
    case Random(6) of

      0: begin
           HoverSkill('Mining', false);
           wait(2000+random(1000));
           GameTab(4);
         end;


      1: PickUpMouse;


      2: begin
           HoverSkill('Smithing', false);
           wait(2000+random(1000));
           GameTab(4);
         end;

      3: RandomRClick;
    
      4: BoredHuman;
    
      5: AlmostLogout;
      

       
       end;
     end;


procedure Scripty;
begin
  MouseSpeed := 16;
  MakeCompass('N');
end;

procedure Disguisez;
begin
  case Random(4) of
    0: Disguise('Windows Live Messenger');
    
    1: Disguise('iTunes');
    
    2: Disguise('Speed Dial - Opera');
    
    3: Disguise('YouTube - Broadcast Yourself.')
  end;
end;



procedure Findpik;
begin
  if not LoggedIn then Exit;
    Gametab(4);
    Wait(1000);
    if not FindDTM(PikDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
    begin
      wait(200);
      Logout;
      Nextplayer(false);
      Writeln('No pick axe noob, get one.');
    end;
    freeDTM(PikDTM);
  end;

procedure Brokenpik;
begin
  if not Loggedin then exit;
  GameTab(4);
  wait(300);
  if FindDTM(BrokeDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
  begin
    Logout;
    Nextplayer(false);
    WriteLn('Broken pickaxe, logging out');
  end;
  freeDTM(BrokeDTM);
end;

procedure Usetheforce;
begin
  if not Loggedin then exit;
  if not FindObjCustom(x, y, ['Min', 'ine'], [orecolor1], 7) then
  begin
    Logout;
    Nextplayer(false);
    LoadsNumB:=0;
    MakeCompass('N');
  end;
end;

procedure Talkyson;
begin
  if not Loggedin then exit;
  if InChat('hey') then
  begin
    case random(8) of
      0: TypeSend('Mining lvls?');

      1: TypeSend('Smithing levels');

      2: TypeSend('Im bored..');

      3: TypeSend('blah, blah, blah');

      4: TypeSend('How many ores everyone got?');

      5: TypeSend('Minin levls?');

      6: TypeSend('Im going for 1k ores');

      7: TypeSend('im so bored');
    end;
      begin
        if InChat(Players[CurrentPlayer].Nick) then
        begin
          case random(4) of
            0: TypeSend('yo');

            1: TypeSend('thats meeee');

            2: TypeSend('wut up yo');

            3: TypeSend('why u callin me?');
          end;
            begin
              if InChat('lol') then
              begin
                case random(8) of
                  0: TypeSend('lmao');

                  1: TypeSend('rofl');

                  2: TypeSend('roffle');

                  3: TypeSend('is cake time!');

                  4: TypeSend('what u wan');

                  5: TypeSend('go eway');

                  6: TypeSend('why hello dere');

                  7: TypeSend('hey you!');
                end;
              end;
            end;
          end;
        end;
      end;
    end;
       
    
Procedure Mineore;
var
  Minetime: integer;
begin
  if not LoggedIn then Exit;
    MarkTime(MineTime);
    Loadores;
    AntiBanz;
    repeat
      randoms;
      Usetheforce;
      Findgas(MSCX, MSCY);
      if FindObjCustom(x, y, ['Min', 'ine'], [orecolor1], 7) then
      begin
        Findpick;
        Talkyson;
        Findgas(MSCX, MSCY);
        Randoms;
        mouse(x, y, 0, 0, false);
        Wait(500);
        Findgas(MSCX, MSCY);
        ChooseOption('ine');
        Wait(4000);
        randoms;
      end;
    until (InvFull) or (TimeFromMark(Minetime) > 600000+random(60000));;
  end;

procedure Dropore;
  begin
    if InvFull then
    repeat
      if not LoggedIn then Exit;
        Gametab(4);
        wait(300);
        if FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
        begin
          Wait(225 + random(25));
          Mouse(x, y, 2, 2, false);
          wait(150 + random(25));
          Chooseoption('rop');
          Wait(300);
          Randoms;
          Talkyson;
        end;
      until not (FindDTM(TinDTM, x, y, MIX1, MIY1, MIX2, MIY2)) or not(loggedin);
      FreeDTM(TinDTM);
    end;

procedure Proggy;
begin
  ClearDebug;
  WriteLn(' _____ _              _                 ');
  WriteLn('/__   (_)_ __   /\/\ (_)_ __   ___ _ __ ');
  WriteLn('  / /\/ |  _ \ /    \| |  _ \ / _ \  __|');
  WriteLn(' / /  | | | | / /\/\ \ | | | |  __/ |   ');
  WriteLn(' \/   |_|_| |_\/    \/_|_| |_|\___|_|   ');
  WriteLn('TinMiner ran for ' + TimeRunning + '.');
  WriteLn('Mined ' + inttostr(Ores)+' ores.');
  WriteLn('Found ' + inttostr(Gasses)+' Gases.');
end;


begin
  SetupSMART;
  SetupSRL;
  ScriptId:= '694';
  if SRLID = '' then
  begin
    ClearDebug;
    Writeln('Go to : http://www.stats.srl-forums.com');
    WriteLn('And register an account, leecher! :)');
    TerminateScript;
  end;
  DeclarePlayers;
  LoginPlayer;
  Disguisez;
  Scripty;
  LoadDTMz;
  Findpik;
  Repeat
    Brokenpik;
    Mineore;
    Dropore;
    Ores := + CountItemsDtm('inv', TinDtm);
    ReportVars[0]:= CountItemsDtm('inv', TinDTM);
    SendSRLReport;
    LoadsNumB:= LoadsNumB + 1;
    begin
      if(LoadsNumB=Loads)then
      begin
        NextPlayer(True);
        LoadsNumB:=0;
        MakeCompass('N');
      end;
      Proggy;
    end;
  until(false);
end.

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

hmm, since its only a power miner i would say no but

u have DDTM (not sure why since a DTM would od ok)
Usetheforce; is pointless no? u would just put that into ur main loop or the min procedure;

 if not findobj.... then
nextplayer(false)'

and just too simple i would say

but ill hold my vote for now

~Spaz

i think its too simple and i voted no.

Though i am wondering why people tell you they dont like your script but hold their vote…? why not just vote now? :p

hehe dan your right lol

sorry no

ehh, ill make another script, lol

From: Dan Cardin
i think its too simple and i voted no.

Though i am wondering why people tell you they dont like your script but hold their vote…? why not just vote now? :p

No from here aswell. Peoples do vote holding if they're not sure if they're vote will be yes or no, and they want to state at public comments and opinion

It is close to meeting all the requirements for SRL Membership. But i have noticed there is a false loop and only one colour for SCAR to find when mining. The DDTM i notice is useless. Some procedures i have noticed are useless. Also, Antibanz is called before mining, shouldn't it be during?

Any way, here is a script report:
DTMS/Bitmaps: Yes
DDTMS: Yes
Arrays: Yes
Proper use of variables: Yes
Unneeded code: Yes
Lines of code: 397
Proper use of standards: No
Fail-Safes: Little Bit

Try returning in a month with a successful compiling script which contains:

• Walking
• Auto-Colour
• Easy Setup Interface
• Use of Standards
• Fail-safes
• No false loops
• Breaking out of loops
• Code with at least 600 or more lines

And that (^^) is all i can think of. Until then, i vote NO!

From: Negaal
No from here aswell. Peoples do vote holding if they're not sure if they're vote will be yes or no, and they want to state at public comments and opinion

i know but some people say stuff like Ip-Drowner, with a bunch of things they dont like and pretty much say they're going to vote no. Then thay say

ill hold my vote(*thinking*and wait to see what other people think*thinking*)

I'm gonna say no, pretty much for the reasons everyone else has said.

But one thing no-one else had said is that in your LoadOres procedure you have begins and ends, you don't need these if you only have 1 thing in them, its only for multiple things you need that, so that procedure could be 3rd of the size just by doing this:

Procedure Loadores;
begin
  case lowercase(Players[CurrentPlayer].Strings[1]) of
    'tin' : orecolor1 := 8882066;
    'iron' : orecolor1 := 2766939;
    'clay' : orecolor1 := 6005188;
    'silver' : orecolor1 := 6584190;
    'copper' : orecolor1 := 4747677;
    'coal' : orecolor1 := 2966339;
    'mith' : orecolor1 := 7096649;
    'addy' : orecolor1 := 6322528;
    'gold' : orecolor1 := 1815517;
  end;
end;

See how much shorted that it?

ok, i guess I'll start working on a new script, need to think of some idea first thought.

Put FindFight before FindNormalRandoms so it doesn't try and talk to evil chickens lol.

How about don't call your users noobs, they will quickly change scripts.

Talkyson standards = horrible!

You should make this a banker probably, most scripts have to be since you should use DTM, DDTM and RadialWalk.

Your smiling at leechers because…?

No sorry :)

From: Dan Cardin
i know but some people say stuff like Ip-Drowner, with a bunch of things they dont like and pretty much say they're going to vote no. Then thay say

I never do that. I make a firm decision then i vote. I never hold my vote and for your notice i had already voted no before i made that post.

Didnt mean to make it personal to you, just giving an example or what some people do, your post was just a perfect example except for that you vote first :p

didnt mean to make offtopicness :(

From: Dan Cardin
Didnt mean to make it personal to you, just giving an example or what some people do, your post was just a perfect example except for that you vote first :p

didnt mean to make offtopicness :(

Nothing was taken personally but why me? I don't understand how my post was a perfect example. I read through the script, i tested it, i re-read through it, removed all comments then compiled that report.

You must 'setupdtm'z' again after the broken axe procedure because it free's it. If you dont you get the acess violation error.

Voted yes btw

Poll Expired.
Good Luck Next Time.