SRL Archive - Research & Development Lounge

two level up functions


XcanadamanX

2007-07-12 11:19:16

these will check if you got a level and tell you what level you have gotten. ie. mining,smithing etc.
i could easily have it so it can say "Advanced (mining smithing etc) to Level (what level it is)"

function WhichLevel:string;
Var TheLevel:string;
begin
if FindColor(x, y, 8388608, 14, 372, 495, 389) then
begin
TheLevel := GetTextAtEx(x + 4, y - 1, 0, NPCChars, false, false, 0, 2, 8388608, 60, false, tr_AllChars)
Result := Trim(Between('ced a','evel',TheLevel))
end;
end;


Function Level:boolean;
begin
Result:=FindColor(x, y, 8388608, 14, 372, 495, 389)
if (result) then
begin
WriteLn('******** Advanced A '+WhichLevel+' Level ********');
WriteFileString(TheFile, '******** Advanced A '+WhichLevel+' Level ********'
+ Chr(13))
clicktocontinue;
wait(2000)
clicktocontinue;
//levels:=levels+1;
end;
end;

Jagex_Fagex

2007-07-12 11:30:59

isn't there already somethign like this in SRL? i would be surprised.

XcanadamanX

2007-07-12 16:40:41

i haven't found one. not that i really looked

jhildy

2007-07-12 18:18:55

lol jagex you posted same thing for me.

BobboHobbo

2007-07-13 01:43:33

I dont think this is in SRL, but it is very useful.

Santa_Clause

2007-07-13 02:17:55

I guess it could be good for progress reports…any other ideas though?

mastaraymond

2007-07-13 03:32:11

From: XcanadamanX
these will check if you got a level and tell you what level you have gotten. ie. mining,smithing etc.
i could easily have it so it can say "Advanced (mining smithing etc) to Level (what level it is)"

function WhichLevel:string;
Var TheLevel:string;
begin
if FindColor(x, y, 8388608, 14, 372, 495, 389) then
begin
TheLevel := GetTextAtEx(x + 4, y - 1, 0, NPCChars, false, false, 0, 2, 8388608, 60, false, tr_AllChars)
Result := Trim(Between('ced a','evel',TheLevel))
end;
end;


Function Level:boolean;
begin
Result:=FindColor(x, y, 8388608, 14, 372, 495, 389)
if (result) then
begin
WriteLn('******** Advanced A '+WhichLevel+' Level ********');
WriteFileString(TheFile, '******** Advanced A '+WhichLevel+' Level ********'
+ Chr(13))
//levels:=levels+1;
end;
end;

Where does this one actually find the color? In the 'click here to continue' box? If so, add a clicktocontinue in the find level;). Otherwise it might find it twice. And if this one find it in the chatbox, its kinda impossible to make. Because if you have chats off it would always find the same level.

XcanadamanX

2007-07-13 09:28:10

it uses the click to continue box thing. i just forgot to put clicktocontinue in this one:p

I guess it could be good for progress reports…any other ideas though?


some skills like smithing stop when you get a level. so this can tell you when to start again. its simple but i figured someone might use it.