SRL Archive - Senior Scripts and Snippets

RELEASED!

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

A few suggestions:

For prayer, you could let the player type in what prayers using a string. For example, if they type "players[CurrentPlayer].strings[2] := 'ad';", you could then get their current prayer level, and see what attack and defense prayers they could use. (a being attack, d being defense and s being strength).

Other than that, just slap in a "friend" chatter and you'll be good to go. (Your not clicking the enemies attacking you, so you got plenty of time to type to friends). However, since you CAN get randoms before entering the cave, and end up dying(if you remember Squig's one at Kaitnieks, I used that one a few time and died once). If the script doesn't find the minigame symbol, it assumes your in the cave, without checks to prove it, so you could get a lot of DTMs of the cave walls(just small ones, about 20 or so) and add a procedure to check for any of them. If it doesn't find any, try to find DTMs of lumbridge and faldor spawn points, and you could try to find the water, quest or cooking symbols found at lumbridge/faldor spawn points.

I think Fight Cavers should search for enemies themselves, but thats just MO. :)

From: Wizzup?
I think Fight Cavers should search for enemies themselves, but thats just MO. :)

The problem is, a lot of the colors in the enemies can be found in the surroundings, such as the floor and the lava.

V0.02 OUT!

-fixed bugs
-made faster
-better detection
-better antirandoms
-better antibans


All I need help with now is better and better Anti-Bans. I can't come up with any good ones!

^-_-^-_-^-_-^-_-^-_-^-_-^
~~~~~~Tokkul Getter~~~~~~
~~~~~~    v0.02    ~~~~~~
~~~~~~ by: Ejjman1 ~~~~~~
_-^-_-^-_-^-_-^-_-^-_-^-_
T/F # Cave Att Str Def Hp
T   0: 1   73  72  71  72

Thanks!

This code :

procedure AutoTalk;
var
  TheM : string;
begin
  case random(35) of
  0: Exit;
  1: Exit;
  2: Exit;
  3: Exit;
  4: Exit;
  5: Exit;
  6: Exit;
  7: Exit;
  8: Exit;
  9: Exit;
  10: Exit;
  11: TheM := 'Time for some more caves...';
  12: TheM := 'More caves I guess! :(';
  13: TheM := 'Time to train some blah.';
  14: TheM := 'Guess I''ll fight some more.';
  15: TheM := 'This will be amazing, ya....:(';
  16: TheM := 'I don''t wanna cave no more :(';
  17: TheM := 'Need exp...bored...gota...';
  18: TheM := 'Extreme boriness, + exp tho!';
  19: TheM := 'lol, gotta love the cave walls..';
  20: Exit;
  21: Exit;
  22: Exit;
  23: Exit;
  24: Exit;
  25: Exit;
  26: Exit;
  27: Exit;
  28: Exit;
  29: Exit;
  30: Exit;
  31: Exit;
  32: Exit;
  33: Exit;
  34: Exit;
  end;
  TypeSend(TheM + chr(10));
end;

can be shorten to this :

procedure AutoTalk;
var
  TheM : string;
begin
  case random(35) of
    0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
    31, 32, 33, 34 : Exit;
    11: TheM := 'Time for some more caves...';
    12: TheM := 'More caves I guess! :(';
    13: TheM := 'Time to train some blah.';
    14: TheM := 'Guess I''ll fight some more.';
    15: TheM := 'This will be amazing, ya....:(';
    16: TheM := 'I don''t wanna cave no more :(';
    17: TheM := 'Need exp...bored...gota...';
    18: TheM := 'Extreme boriness, + exp tho!';
    19: TheM := 'lol, gotta love the cave walls..';
  end;
  TypeSend(TheM + chr(10));
end;

Also this:

function InCave : boolean;
var
  x, y : integer;
begin
  if(FindSymbol(x, y, 'minigame'))then
  begin
    Result := False;
    Exit;
  end;
  Result := True;
end;

can be shorten to this:

function InCave : boolean;
var
  x, y : integer;
begin
  Result:= not (FindSymbol(x, y, 'minigame'));
end;

The only thing that poses a threat is when you get off in a corner of place and then some enemies get trapped behind something. Then, it sits there doing nothing. So I added those i's in Antiban, but I think there could be something way better than just that. Thanks Nielsie + Dark_Sniper + The Un-Named.

repeat
      if not(InCave)then EnterCave;
      wait(2000+random(500));
      Prayers;
      AntiBan;
      wait(1000+random(500));
      Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
      ProgressReport;
      if not(LoggedIn)then LoginPlayer;
    until(Players[CurrentPlayer].Integers[1] = TripsToDo);

this wont work. Its not adding trips properly.

while(not(InFight))do
    begin
      MarkTime(TimeMark3);
      if(TimeFromMark(TimeMark3) >= 20000)then
      begin
        MouseFlag(793, 235, 5, 5);
      end;
    end;
    TimeMark3 := 0;

I added this under Antiban. Now, it will run down to where it can see someone if it gets stuck.

EDIT: Pwnz0r, view the Antiban procedure. It says how I get out of that. lol.