SRL Archive - Archive

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

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
yes
by google.com @Runescape cheats :D

Programming Knowledge
Pascal :D, A little HTML.

Other Communitys
None.

How Long have You Played Runescape
I played in 2 years, the i quit. And now i only play it to become a better programmer.

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

Im learning..
I do NEVER forget to put SetupSRL; in my main loop! :D
Hmm.. Im not good at telling about myself btw… :|

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

Its not finished!

Program Miner;
{.include SRL/SRL.scar}

Var
  RocksMined, RockColor, RockColor2, MarkTimeS : Integer;
  x, y : Integer;
  RunSymbol, RunSymbol2, OreDTM : Integer;
  MineBool : Boolean;

const
  Loads         =   2;  //Amounts of loads per player before switching.
  WaitPerRock   =    5;  //The time to wait while we are mining the rock in seconds.
  Rock          =    3;  //1 = Clay. 2 = Tin. 3 = Copper. 4 = Iron. 5 = Coal. 6 = Mith. 7 = Addy.

Procedure LoadDTMs;
Begin
  RunSymbol := DTMFromString('78DA639CC2C4C090C18002A6173B806946289' +
       'F11A4261D55CD86BA4054355331D574A51A60AA41B3ABCC5F1953' +
       '4D22AA9ABADA725435D330D5747634A1AA998EA966E2842E14350' +
       '031B31072');
  RunSymbol2 := DTMFromString('78DA63F4656260C86140010DD166609A11CA6' +
       '7F4C354136F2E89A9261B554DB1AF1AAA1A5F4C3533D3DC51D504' +
       '03D5A4A1AAA96BEA4455130454938A5F0D00A09B0B6B');
  OreDTM := DTMFromString('78DA63B4676260B8C98002425DF4C1342394C' +
       'F680E54F380801A9039AF70AB01636FA09ABBA86A6C0D95E16A80' +
       'B20C0058CD077D');
End;

procedure DeclarePlayers;
begin
  HowManyPlayers := 3;
  SetupPlayers;

  Players[0].Name := 'Aerha1';
  Players[0].Pass := '*';
  Players[0].Nick := 'erha';
  Players[0].Active := True;

  Players[1].Name := 'Bertico2';
  Players[1].Pass := '*';
  Players[1].Nick := 'erti';
  Players[1].Active := True;

  Players[2].Name := 'Castaco3';
  Players[2].Pass := '*';
  Players[2].Nick := 'asta';
  Players[2].Active := True;

  LoadPlayerArray;
end;

Procedure DropAll2;
Begin
  Repeat
    If FindDTM(OreDTM, x, y, 563, 210, 720, 458) Then
    Begin
      Mouse(x+(5), y+(7), 4, 6, False);
      ChooseOption('rop');
      Wait(800+random(500))
    End;
  Until(Not(FindDTM(OreDTM, x, y, 563, 210, 720, 458)))
End;

Procedure WhatRock;
Begin
  If (Rock = 1) Then
  Begin
    RockColor := 0{CLAY};
    RockColor2 := 0;
    Exit;
  End;
  If (Rock = 2) Then
  Begin
    RockColor := 2439761;
    RockColor2 := 3823739;
    Exit;
  End;
  If (Rock = 3) Then
  Begin
    RockColor := 9935012;
    RockColor2 := 7303288;
    Exit;
  End;
  If (Rock = 4) Then
  Begin
    RockColor := 0{IRON};
    RockColor2 := 0;
    Exit;
  End;
  If (Rock = 5) Then
  Begin
    RockColor := 0{COAL};
    RockColor2 := 0;
    Exit;
  End;
  If (Rock = 6) Then
  Begin
    RockColor := 0{MITH};
    RockColor2 := 0;
    Exit;
  End;
  If (Rock = 7) Then
  Begin
    RockColor := 0{ADDY};
    RockColor2 := 0;
    Exit;
  End;
  Writeln('You did not set the rock < 8.')
End;

Procedure MineRock;
Var
  x, y, MyMark : Integer;

Begin
  If Not Loggedin Then Exit;
  MarkTime(MyMark);
  Repeat
    {If FindObj(x, y, 'al', RockColor2, 30) Then
    Begin
      Mouse(x, y, 4, 4, False);
      If ChooseOption('ak') Then
      Begin
        RocksMined := RocksMined +(1);
        Wait(WaitPerRock * 500+random(200));
        Exit;
      End;
    End;
    If FindObj(x, y, 'ak', RockColor2, 30) Then
    Begin
      Mouse(x, y, 4, 4, False);
      If ChooseOption('ak') Then
      Begin
        RocksMined := RocksMined +(1);
        Wait(WaitPerRock * 500+random(200));
        Exit;
      End;
    End;     }
    If FindObj(x, y, 'ine', RockColor, 30) Then
    Begin
      Mouse(x, y, 4, 4, False);
      If ChooseOption('ine') Then
      Begin
        RocksMined := RocksMined + (1);
        Wait(WaitPerRock * 1000+random(2000));
        Exit;
      End;
    End;
  Until(False)
End;

Procedure PlayerStats;
Begin
  ClearDeBug;
  Writeln('****************************************************');
  Writeln('   Name    : '+ Players[CurrentPlayer].Name);
  Writeln('   Worked  : '+ IntToStr (MarkTimeS)+' minutes.');
  Writeln('   Dropped : '+ IntToStr (Players[CurrentPlayer].Banked) + ' loads.');
  Writeln('****************************************************');
End;

Procedure RunToMine;
Begin
  If FindDTM(RunSymbol, x, y, 500, 30, 700, 130) Then
  Begin
    Mouse(x, y, 10, 10, True)
    Wait(8000+random(2000))
    MineBool := True;
    Exit;
  End Else
  Begin
    If FindDTM(RunSymbol2, x, y, 500, 30, 700, 150) Then
    Begin
      Mouse(x, y, 10, 10, True)
      Wait(8000+random(2000))
      MineBool := True;
      Exit;
    End Else
     Wait(100+random(500))
     MakeCompass('N');
     RunAwayDirection('S');
  End;
End;

Function FindFastRandoms: Boolean; //By WT-Fakawi.
Var
  i: Integer;
Begin
  For i := 1 To 8 Do
  Begin
    Case I Of
      1: If FindDead Then
          Result := True;
      2: If FindMod Then
          Result := True;
      3: If FindMime Then
          Result := True;
      4: If FindMaze Then
          Result := True;
      5: If FindQuiz Then
          Result := True;
      6: If FindDemon Then
          Result := True;
      7: Begin
          If NoGameTab Then
          Begin
            Result := True;
            Logout;
            Exit;
          End;
        End;
      7: Begin
          If InBlack Then
          Begin
            Result := True;
            Logout;
            Exit;
          End;
        End;
      8: RC;
    End;
    wait(1);
  End;
End;

Procedure FindRandoms;
Begin
  If (Not (LoggedIn)) Then Exit
  FindFastRandoms;
  FindNormalRandoms;
  Wait(20)
  FindTalk;
  FTWait(3)
  If (FindFight) Then
  Begin
    RunAwayDirection('N');
    Wait(8000 + Random(2000));
    Repeat
      RunToMine;
    Until(MineBool = True)
  End;
  Wait(20)
  FindTalk;
End;

Procedure AntiBannage;
Begin
  Case random(8) Of
    1: BoredHuman;
    2: RandomMovement;
    3: BoredHuman;
    4: PickUpMouse;
    5: BoredHuman;
    6: RandomMovement;
    7: BoredHuman;
  End;
End;

Procedure AutoRespond;
Var
 J : Integer;

Begin
  If (InChatMulti('ey', 'llo', 'Hi')) Then
  Begin
    J := Random(6)
    Wait(500+random(650))
    If (J = 1) Then
    Begin
      TypeSend('Im busy dont talk to me');
    End;
    If (J = 2) Then
    Begin
      TypeSend('Hello');
    End;
    If (J = 3) Then
    Begin
      TypeSend('hi');
    End;
    If (J = 4) Then
    Begin
      TypeSend('sup?');
    End;
    If (J = 5) Then
    Begin
      TypeSend('im booooooored!!!');
    End;
    J := 0;
  End;
  If (InChatMulti('vel', 'vl', 'lv')) Then
  Begin
    J := Random(6)
    Wait(500+random(650))
    If (J = 1) Then
    Begin
      TypeSend('78');
    End;
    If (J = 2) Then
    Begin
      TypeSend('92');
    End;
    If (J = 3) Then
    Begin
      TypeSend('...');
    End;
    If (J = 4) Then
    Begin
      Wait(500+random(650))
    End;
    If (J = 5) Then
    Begin
      TypeSend('im booOOoOored');
    End;
    J := 0;
  End;
End;

Begin
  SetupSRL;
  LoadDTMs;
  MarkTime(MarkTimeS)
  MarkTimeS := 0;
  DeclarePlayers;
  if Loggedin then Logout;
  LoginPlayer;
  Repeat
    NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    WhatRock;
    AntiBannage;
    AutoRespond;
    FindRandoms;
    PlayerStats;
    MineRock;
    if InvFull then
    begin
      DropAll2;
      Inc(Players[CurrentPlayer].Banked);
      if Players[CurrentPlayer].Banked mod Loads = 0 then
      begin
        NextPlayer(True);
      end;
    end;
  if not Loggedin then NextPlayer(False);
  Until(RocksMined * 28 = Loads)
End.

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

Oh SHIT! I forgot all the other rock colors before applying! :O
Hmm.. Test on Those rocks: Tin, Copper, please.

edit your passwords out:)

I cannot test at the moment, yes I noticed your RockColors := 0's there too.

Your mainloop is okay (lol, propably better than mine in some occasions)

In your dropping procedure, I suggest using a DTM instead of a color.

However, if you decide to keep in color, use tolerance, I doubt the inv color of ore is static.

Umm, axe head cannot fall off anymore.

Im not sure what will I vote, I'll wait for other people.

you should get your username and pass out. fagex is watching us…

but you say the script is not finnishd….

idk, holding my vote.

goodness, ive never seen someone try this hard to not use a case , lol

If (Rock = 1) Then
  Begin
    RockColor := 0{CLAY};
    RockColor2 := 0;
    Exit;
  End;
  If (Rock = 2) Then
  Begin
    RockColor := 2439761;
    RockColor2 := 3823739;
    Exit;
  End;
  If (Rock = 3) Then
  Begin
    RockColor := 9935012;
    RockColor2 := 7303288;
    Exit;
  End;
  If (Rock = 4) Then
  Begin
    RockColor := 0{IRON};
    RockColor2 := 0;
    Exit;
  End;
  If (Rock = 5) Then
  Begin
    RockColor := 0{COAL};
    RockColor2 := 0;
    Exit;
  End;
  If (Rock = 6) Then
  Begin
    RockColor := 0{MITH};
    RockColor2 := 0;
    Exit;
  End;
  If (Rock = 7) Then
  Begin
    RockColor := 0{ADDY};
    RockColor2 := 0;
    Exit;
  End;

the script look alright, im 70% on the yes side, but i dunno with a powerminer its a bit too easy, im gonna hold my vote for now and see what other people say.

So many Hold votes! :O

Well, as for the case, im not sure how to do it :/

+ the Axe fall-off is not in use…
++ The DTM in dropping procedure is almost done (opening scar now)

From: n3ss3s

Umm, axe head cannot fall off anymore.

Huh?

When i was beta testing on my account i lost my head many times….

From: zytex
Huh?

When i was beta testing on my account i lost my head many times….

no too simple add some more things to it please such as more failsafes

someone hacked me!

From: zytex
someone hacked me!

Yeah it sucks, i was hacked too, my main lost cant recover.. lost about 4 - 5m.

So im just making a pure right now.

*to siple, like hugo already told you you should add more extras like fail safes, gem detecting and keeping? Just some idead though ;)

*also I have to agree with greg, you should use case statement! <- you have to know case statement when you want to become an SRL member, I really don't like that so I'll also hold my vote..

Hmm.. It looks for me that im not accepted. Thank you very much iwth the tips guys! :D

don't worry. just come back to aply when you made your script 'perfect'.

but i have to say no i'm sorry.

mabye something for next aply: 'mine and banker' ?

anywayz, gl and keep it up :)

no multiplayer, either…you have it ending the WHOLE script when loads is equal to waht it is set…so you need to have it repeat the script…not end like that…

failsafes would be better and also learn cases…and for a miner you should have walking and banking for a srl member script for sure IMO

No from me. Its too simple. You seem to not understand case statements or are avoiding them for some unknown reason.

Sorry, no. Same reasons as above.

I made my discision, I'm going to vote no, because now I know that I'm not the only one who think about those cases (for example Bam Bam)…

sorry but i have to say no now to.

but i would like to see you back after 30 days with a 'even more good' script :)

He took the criticism quite well actually :)