Search the Community

SimplePowerMiner - Test Stage It's a SimplePowerMiner that will theoreticaly work wherever there is ORE spesefied by the color you set. I've only tested it 3-4 places but should work just fine. Never been tested using OSI, but should work fine There might come some updates to this script, but it's hard to develop for OSI, without getting OSI to work properly for me. {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= || Note: Ive never had it running more than 5-6 hours. Reason: No AntiRandom. So || you need to do that part you'r self. The bot is VERY basic. || =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= || Note 2: I do NOT use OSI in my script, i used my own include, because || OSI does NOT work (perfectly) for me. But with implemented OSI for you guys. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} program SimplePowerMiner; {$DEFINE RS2} //{$DEFINE SMART} //Remove "//" to use SMART, if you'r smart. {$DEFINE OSI_Color_Anti_Randoms} {$I OSI\OSI.scar} {$I OSI\RS2\Misc\Anti-Ban.scar} procedure ScriptTerminate; begin FreeOSI; end; procedure print(text:string); begin WriteLn('>>> ' + text); end; var x,y:Integer; const color = 2570337; //This is a perfect IRON-color. timer = 3000; //Works from 40-80 mining at Al Kharid - Iron. {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= || procedure InitPlayer; || Description: Startup fixes: Face North .::. Angle MAX .::. Set InventoryTab. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} procedure InitPlayer; begin SetGameTab(Tab_Inv); SetAngle(True); MakeCompass(Dir_North); end; {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= || procedure AntiBan; || doesn't do shit atm =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} procedure AntiBan; begin (* nothing *) end; {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= || procedure ClickTarget; || Description: Click The target, found by FindTarget. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} procedure ClickTarget; begin if InvFull Then DropAll; if IsUpTextMulti(['Mine', 'ine','Min']) then begin GetMousePos(x, y); Mouse(x, y, 1, 1, True); Wait(timer + Random(1200)); end; end; {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= || procedure FindTarget; || Description: Find a target color: Eg. a rock. Spesefied by color. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} procedure FindTarget; var TPA: TPointArray; TP: TPoint; begin ColorToleranceSpeed(2); SetColorspeed2Modifiers(0.14, 0.70); if FindColorsTolerance(TPA, color, MSX1, MSY1, MSX2, MSY2, 6) then begin TP := TPA[Random(Length(TPA))]; MMouse(TP.x, TP.y,1,1); Wait(100 + Random(200)); end; end; {=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= || MainLoop || Description: Runs the script, until stopped. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=} begin SetupOSI; InitPlayer; repeat FindTarget; ClickTarget; if Random(15) = 1 Then AntiBan; until False; end.