SRL Archive - SRL Suggestions

(*
GetWildernessLevel
~~~~~~~~~~~~

.. code-block:: pascal

    function GetWildernessLevel: Integer;

Returns the wilderness level. Defaults to -1 if the number can't be read (out of wilderness)

.. note::

  by litoris

Example:

.. code-block:: pascal

*)
function GetWildernessLevel : Integer;
var
  Lev : String;
begin
  Lev := GetNumbers(GetTextAtExWrap(490, 85-50, 508, 102-50, 0, 10, 1, 1939681, 20, XPChars));
  if ((Lev <> '') or (Lev <> ' ') or (Lev <> '  ') or (Lev <> '   ')) then
    Result := StrToInt(Lev)
  else
    Result := -1;
end; 

I came up with this manually while working on my current script, I was amazed that the include didn't have such a function yet.
Anyway, this function basically read the wilderness level. I tested it at various levels, it works, but I would really like it if some others could also test it. I have to use getnumbers, or else the string will also include a few colons when you are at single-digit levels.
It's uses are twofold: It can both tell you what level you are(useful for teleporting) and tell you whether you are in the wilderness, because it returns -1 if the string is empty. I'll send a pull request after some people test it, don't want a disaster like the last time :P

Seems like a handy function when working in the wilderness. Might I suggest using InRange just to make it look a bit cleaner?

function GetWildernessLevel : Integer;
begin
  result := StrToInt(GetNumbers(GetTextAtExWrap(490, 85-50, 508, 102-50, 0, 10, 1, 1939681, 20, XPChars)));
  if not InRange(result, 1, 60) then
    result := -1;
end;

E: Sorry- I originally just changed it to have InRange instead of that nasty "or" thing. But then I noticed one thing that could be changed and another and another so I guess I kind of ruined it for you.

E2: I appologize for this but

function GetWildernessLevel : Integer;
begin
  result := StrToIntDef(GetNumbers(GetTextAtExWrap(490, 85-50, 508, 102-50, 0, 10, 1, 1939681, 20, XPChars)), -1);
end;

Nice Idea but can I ask what would the use be?
Mat

If not wildernesslevel = 52 then
writeln('we are dead!');

if wildernesslevel = 32 then
walktohere

From: Nebula

E2: I appologize for this but

function GetWildernessLevel : Integer;
begin
  result := StrToIntDef(GetNumbers(GetTextAtExWrap(490, 85-50, 508, 102-50, 0, 10, 1, 1939681, 20, XPChars)), -1);
end;

Yeah this looks fine, I have never worked with def functions before, but I guess this does exactly what my function did. Can you test it?

From: Ollybest
If not wildernesslevel = 52 then
writeln('we are dead!');

if wildernesslevel = 32 then
walktohere

Exactly. My script, for example, keeps running south until the level is below 20, and then teleports. Saves me from teh trouble of making tons of maps/ODTM paths.

From: litoris
Yeah this looks fine, I have never worked with def functions before, but I guess this does exactly what my function did. Can you test it?

Yeah, Just tested it- works fine.

I say this is very useful! Great job! ++ for you!

Sent pull req with Nebula's version:https://github.com/SRL/SRL-5/pull/99

Looks good litoris! I have no plans for scripting in the wilderness as of yet, but I'm sure this will be handy for those who do :) I'm kind of suprised there wasn't already one too, to be honest.

Nice! I'll be sure to use this :) Thanks man!

Suggestion to improve reliability : You should take note that when the XP counter is enabled the wildy icon changes places, thus you should search in 2 places.

From: speedster
Suggestion to improve reliability : You should take note that when the XP counter is enabled the wildy icon changes places, thus you should search in 2 places.

I'm definitely adding that.
This is pretty much a snippet right now, I'm making a version that gives you both the Wilderness level and tells you whether you are in the wildy or not. I will add a check at the beginning to adjust the function so that it searches in the correct place, thanks for that.

Good job lit +rep

Edit: sorry cant rep you. [Error MSG]You must pass some reputation around before you can give it to litoris[/Error MSG]

Unfortunately this is broken because of the EOC graphical update :(

This is useful! Can you update it :)

Fixed it :)

Function GetWildernessLevel : Integer;   
begin
  result := StrToIntDef(GetNumbers(GetTextAtExWrap(490, 35, 508, 175, 0, 10, 1, 1939681, 20, XPChars)), -1);
end;  

Tested and working with XP bars and no XP bars.

Awesome, I'll be writing a wildy script soon, and this should come in handy :)