Ok this is my RSPS Powerchopper I am working on.
Before I added the DropLog Procedure it was clicking the trees fine except I still need to add pixelshift in; however now it doesn't do anything! Please help a newbie out
It says:
So I need help Adding this:Code:Compiled successfully in 375 ms. Successfully executed.
INTO THIS:Code:Procedure DropLog; var X,Y:Integer; begin if FindColorTolerance(X, Y, 605787, 561, 226, 738, 484, 5) then begin mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Right) wait(450); if FindBitmapToleranceIn(Drop, X, Y, 561, 226, 738, 484, 145) then begin mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Left) end; end; end; Begin MouseSpeed := 15; Drop := BitmapFromString(100, 10, 'meJzNlm0KwjAMhnseEbyCqCCo4' + 'NX8s7vsBLuWVgPlNR/v2s6BIz/SNF2ap0npME4ppdtpO4xTlqz8XP' + 'aPp4gaStxVJQp0Pb4lGhajGg7frOr3fz/vWlkp6WOF2KO8mliJrsT' + '6Xw4bl5XoqtJcI7HbDVvFwowgoz19Pu4jKc8GQjcRZKUOl7Mqu8Ih' + 'Yons0eGKJ1qKXuxqlWu3PgjQhkZuTYHw54QVRndnic4bgRy3ZZib3' + 'bXbsiHHpJxrdFuHlVmvx8oea306qNt7Bvn0sVKN8D+slujubdzBJy' + 'rUworcTuhPPK19eQ/O9qbbJgiKO+NWSSDl796NbtbWExG5S6K/ueG' + 'ibaiUyVpVWtwZq5EE4qnVS+urrE/c1nAfQjjl3mCVgfD1VWZfuuW+' + 'zQ=='); DropLog; FreeBitmap(Drop); end.
Code:program CrisisXCutter; {$i srl/srl.simba} var Drop:Integer; const LOGS = 100; Procedure ClickTree; var X,Y:Integer; begin repeat if FindColorTolerance(X, Y, 14678264, 1, 5, 760, 502, 1) or FindColorTolerance(X, Y, 12187896, 1, 5, 760, 502, 1)then begin mmouse(x, y,1,1); wait(250); ClickMouse(X, Y, mouse_Left) wait(10000+random(5000)); end; until (LOGS > 100); end; Begin SetupSRL; MouseSpeed := 15; ClickTree; DropLog; end.



Reply With Quote






