Search the Community

Hello... It goes like this: When I come to the point when I need to drop all my logs/or anything else, I check the Inventory, using: if(InvFull = True) Then DropAll; - DropAll is short for DropAllExclude([]) Iv'e tried some other methods, with no luck. Like DropItems, InvCount... It all returns the same result. - Keeps jumping over the Inventory image/button, untill it has repeatet it self 28 times. I'm updating OSI 2-3 times a day in despret hope for a fix, but nothing so far. The problem has been going on atleast 4 days (that's when I updated my SCAR and startet using OSI in my dev. and not SRL). Edit: I tried updating using, GIT, since I see a lot of updates to OSI in GitHub. - Not any help. Edit2: I hacked together a sample (To make a simple IronMiner)... If it works for you, then there is somethin wrong here... So i'm atleast closer to an answer. program SomeSimpleBot; // This should probobly work with both trees, and Iron. // You will just have to change the timer, and color. // Works most places. {$DEFINE RS2} {$DEFINE OSI_Color_Anti_Randoms} {$I OSI\OSI.scar} {$I OSI\RS2\Misc\Anti-Ban.scar} procedure ScriptTerminate; begin FreeOSI; end; var x, y: Integer; //--Color: Rock, (or tree)----> const color = 2570337; //Carefully selected color of Iron. timer = 3000; //For iron. //For willows use atleast 6000. //--AntiBan-----------------> procedure MacroMouse(pos_x,pos_y:Integer; sel:boolean); begin pos_x := pos_x+random(3)-random(3); //randomshit pos_y := pos_y+random(3)-random(3); //randomshit MoveMouseSmoothEx(pos_x,pos_y, 1, 10, 100, 8, 16); wait(200+random(300)); GetMousePos(x, y); ClickMouse(x,y,sel); end; procedure Randomize; begin x := Random(123); Wait(120 + Random(120)); y := Random(153); Wait(50 + Random(50)); MoveMouseSmoothEx(x,y, 1, 10, 100, 6, 4); Wait(450 + Random(350)); end; //--END AntiBan--------------> procedure ClickTarget; begin if IsUpTextMulti(['Mine', 'ine','Min']) then GetMousePos(x, y); MacroMouse(x, y, True); Wait(timer + Random(1200)); if(random(4) = 0) Then Randomize; end; procedure FindTarget; var w, h: Integer; p: TPoint; TPA: TPointArray; begin GetClientDimensions(w, h); begin ColorToleranceSpeed(2); SetColorspeed2Modifiers(0.14, 0.72); if FindColorsTolerance(TPA, color, MSX1, MSY1, MSX2, MSY2, 8) then begin p := TPA[Random(Length(TPA))]; WriteLn('Found some rocks: ' + IntToStr(p.x) + ', ' + IntToStr(p.y)); end; MMouse(p.x, p.y, 1, 1); Wait(100 + Random(200)); end; end; //Run program-------------------> begin SetupOSI; repeat FindTarget; ClickTarget; if(InvFull) then DropAll; until False; end.