I am using this with OSBuddy and everything works perfectly except it does not stop drinking absorption pots.Code:program Simple NMZ Things; {$I SRL-OSR/SRL.Simba} const mode = 'absorb'; var Absorb, tree, X, Y: Integer; procedure DrinkAbsorb; begin Absorb := DTMFromString('mWAAAAHicY2FgYJjGxMAwB4j7gXgqEFsxMjDoQbEcEG/acxCoihGOWRlQASMaBgEAWG8FVg=='); FTab(tab_inv); if (FindDTM(Absorb, x, y, MIX1, MIY1, MIX2, MIY2)) then begin WriteLn('found Absorb'); MMouse(x, y, 3, 3); if IsUpText('rink') then Mouse(x, y, 0, 0, True); end; freeDTM(Absorb); end; procedure Antiban; begin case random(5) of 1: MMouseOffClient('top'); 2: MMouseOffClient('left'); 3: MMouseOffClient('right'); 4: MMouseOffClient('bottom'); end; end; function outofNMZ: Boolean; var tree, X, Y: Integer; begin tree := DTMFromString('mGQAAAHicY2RgYJjAxMBgB6RlnbgZWIE0IxAzAAAVhAFC'); if (FindDTM(tree, x, y, MMX1, MMY1, MMX2, MMY2)) or IsChatBoxTextAnyLine('can only', clBlack) then Result := true else Result := false end; function TimeToDrink: Boolean; begin if FindChatBoxText('absorb any', 8, clBlack) then Result := true else Result := false end; begin SetupSRL; ActivateClient; ClearDebug; SetAngle(SRL_ANGLE_HIGH); FTab(tab_inv); FTab(tab_stats); if (mode = 'absorb') then repeat if (outofNMZ) then LogOut; freeDTM(tree); if (not TimeToDrink) then repeat DrinkAbsorb; until (TimeToDrink); Antiban; sleep(1800000 + random(600000)); until (not loggedin); end.
Edit: Evidently, it could not find the words "absorb any" and so I have to use a different set of words.


Reply With Quote