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)"
SCAR Code:
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;