When I first came here, I didn't expect I'd be writing scripts but I now realize that leeching is really "asshatty" and so I decided to read some tutorials and try to make my own script.
Now, I haven't tested the following script because I'm 95% sure that it won't work. I'm also sure that I messed up somewhere in the script and it won't compile correctly. Therefore, I'm accepting ANY help or advice to try to make it better in hopes of me learning to become a better scripter.
Perhaps I've gone beyond my limitations by making it do up to 6 different rocks (Tin, Copper, Iron, Coal, Mithril, Admantine) but I tried it.
This is my powerminer. There are no AntiRandoms, no Multiplayer, no AutoLogin, nothing special. The only thing I hope this will do is go up to a rock and mine it. Then when the inventory is full, I hope it will drop all the rocks.
You will need ScarScape in order to use this which can be found here:
http://freewebs.com/jk2fakefiles/ScarScape/Run.Html - Credits to JuKKa.
VERSION 1.0
VERSION 1.1Code:program KoldPowerMiner; { Instructions 1. You MUST use ScarScape for this script to work. Normal RuneScape will NOT work. You may find ScarScape at the following website: http://freewebs.com/jk2fakefiles/ScarScape/Run.Html - Credits to JuKKa 2. You must have a pickaxe equipped. 3. You must be near the rocks you wish to mine. 4. You must start with an empty inventory. THIS SCRIPT ONLY WORKS WITH OLD ROCKS! NEW ROCKS DO NOT WORK IN THIS SCRIPT! } const HowManyLoads = 10; //How many loads (full inventories) you wish your player to mine before the script stops. WaitPerRock = 5000; //The time to wait while mining a rock. (1000 = 1 second) Version = '1.0'; //This is just for me. This won't affect the mining procedure. Please Don't change it. RockToMine = ''; //What rock would you like to mine? Choose from below. Tin = 8553100; //DON'T EDIT! Copper = 4153733; //DON'T EDIT! Iron = 2305610; //DON'T EDIT! Coal = 3163461; //DON'T EDIT! Mithril = 5979710; //DON'T EDIT! Admantine = 5992795; //DON'T EDIT! var x,y: Integer; Procedure MiningRocks; begin repeat if(FindColorTolerance(x, y, RockToMine, 0, 0, 700, 500, 4))then begin Mouse(x, y, 0, 0, true); Wait(WaitPerRock + Random(1000)); end else Writeln('Could not find specified rock.') Wait(200 + Random(50)); until(InvFull) end; Procedure Drop; begin DropToPosition(1, 28); HowManyLoads:=HowManyLoads + 1; end; Procedure Thanks; begin ClearDebug; Writeln('Thanks for using KoldPowerMiner V. ' + Version +); end.
Once again, thanks for any help. It's greatly appreciated and necessary.Code:{ Instructions 1. You MUST use ScarScape for this script to work. Normal RuneScape will NOT work. You may find ScarScape at the following website: http://freewebs.com/jk2fakefiles/ScarScape/Run.Html - Credits to JuKKa 2. You must have a pickaxe equipped. 3. You must be near the rocks you wish to mine. 4. You must start with an empty inventory. THIS SCRIPT ONLY WORKS WITH OLD ROCKS! NEW ROCKS DO NOT WORK IN THIS SCRIPT! } const HowManyLoads = 10; //How many loads (full inventories) you wish your player to mine before the script stops. WaitPerRock = 5000; //The time to wait while mining a rock. (1000 = 1 second) Version = '1.0'; //This is just for me. This won't affect the mining procedure. Please Don't change it. RockToMine = ''; //What rock would you like to mine? Choose from below. Tin = 8553100; //DON'T EDIT! Copper = 4153733; //DON'T EDIT! Iron = 2305610; //DON'T EDIT! Coal = 3163461; //DON'T EDIT! Mithril = 5979710; //DON'T EDIT! Admantine = 5992795; //DON'T EDIT! var x,y: Integer; LoadsDone: Integer; Procedure MiningRocks; begin repeat if(FindColorTolerance(x, y, RockToMine, 0, 0, 700, 500, 4))then begin Mouse(x, y, 0, 0, true); Wait(WaitPerRock + Random(1000)); end else Writeln('Could not find specified rock.') Wait(200 + Random(50)); until(InvFull) end; Procedure Drop; begin DropToPosition(1, 28); LoadsDone:= LoadsDone+ 1; end; begin repeat MiningRocks; Drop; until(LoadsDone > LoadsToDo); Procedure Thanks; begin ClearDebug; Writeln('Thanks for using KoldPowerMiner V. ' + Version +); end; begin Thanks; end.




Reply With Quote









