Edit: Figured it out although now I need to know how do I make it Drop all of the logs that it finds in my inventory. At the moment what it does is Click tree, wait 10 seconds, Finds log in my invent, Right clicks log, Selects drop. Then Repeats. I need to know how to make it drop all the logs in my inventory then repeat? Help Please
Code:program New; {$i srl/srl.simba} var Drop, logs: Integer; procedure ClickTree; var X, Y, logs: Integer; begin if FindColorTolerance (X, Y, 3240032, 244, 61, 293, 110, 5) then begin; mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Left) wait(10000); if FindDTM(logs, X, Y, MIX1, MIY1, MIX2, MIY2) then begin mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Right) wait(2000); Begin if FindBitmapToleranceIn(Drop, X, Y, 495, 201, 734, 462, 100) then begin writeLn('It is actually running dropshitlog'); mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Left) end; end; end; end; end; Begin cleardebug; logs := DTMFromString('m6wAAAHic42ZgYOAHYi4gZmGAABAtCMRSQCwHxJJALA7EAkDMA8TMQMwO1ScKxGJALAzEvEDMATWDCYjzU22BJCNR+D8D8YA4EyEYCQAA5QcDVQ=='); Drop := BitmapFromString(95, 7, 'meJzNVEkOwCAI9Gm9+QGv/qk/to0' + 'mZMJWtyYSDnQyFhjBmHKpFkKIKe/16y6qz+VqZ4fI602hOAWMERjo' + '4LJCGUj1LFURD9V8jirOaCJCVHGoDPxEHSzcqrAxEaGYcHZKxSUHF' + 'VNTzyVi7bOWrbnyY3+2nQuVvXTGn2s18UNncjDpf+LIiztHnDbqJ4' + 'izpZft4sg9UtvEh5cxJb6+Vj3rxji+OIyMpTqJXn8A081Suw=='); MouseSpeed :=15 repeat ClickTree; until(false) FreeDTM(logs); FreeBitmap(Drop); end.


Reply With Quote





