Ironmanj3 Posted December 10, 2012 Share Posted December 10, 2012 (edited) This is my first script, and only my second day using scar, so it is buggy. with that out of the way, this script enchants EMERALD items. it is not very user friendly, but once you get it going, it works like a charm, i have run it for 24 loads and have not encounterd any problems. This script is for slow, bugy computers, such as my laptop, and has a minimum of a 2 second delay for choosing item to enchant, and has a minimum of a 3 second delay for clicking the enchant button. so it is somwhat slow, but reliable incase you encounter natorious lag. this script does NOT handle randoms, logins, breaks(well, you choose how many inventories you would like to enchant), or any other feature than the ones listed in the following. Full list of abilities 1. banks at lumbrige 2. enchants Emerald items 3. comes with an option to choose how many loads you enchant (default 4. is verry poorly put together by a noob Instructions! 1. launch SMART from scar 2. log into your runescape account (i havnt added in a log in feature yet, as thoes always scare me) 3. go to lumby bank and click on the compus. Then spam the up arrow untill your view is as high as it will go IMPORTANT!!!! 4. follow the instructions in the script to change ammount of rounds you will complete (if all goes well) (note 2, I will add a function in later that will allow you to change the ammount of envintories a lot easier. 5. go back to Runescape and enter bank pin (if any) and change the current tab to magic, then alchemy looking tab. IMPORTANT!!!! 6. make sure that the item you wish to enchant is in the verry botom left corner!!!!!!!! 7. hit run and enjoy. sorry for this poorly typed entrie, but i suck at writing, and am only a sophmor in highschool, so that should explane it. this is the code incase the download doesn't work {$DEFINE RS2} {$DEFINE SMART} {$I OSI\OSI.scar} //this was made by Ironmanj3, but may be edited by //anyone who can understand this madness. //INVENTORIE INSTRUCTIONS //go to the bottom of this script and replace the 24 //above the "end" line var x : Integer; var y : integer; procedure ScriptTerminate; begin FreeOSI; end; procedure enchantemerald; begin mouse(261,185-50,7,8,true) x := 1; repeat x := x+1; WriteLn(x) if x = 1 then wait(2000) else if x = 2 then wait(0900) else if x = 3 then wait(0100) else if x = 4 then wait(0096) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,280-50,2,1,false) x := 1; repeat x := x+1; WriteLn(x) if x = 1 then wait(2000) else if x = 2 then wait(0100) else if x = 3 then wait(0100) else if x = 4 then wait(0096) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(642,383-50,6,1,true) x := 1; repeat x := x+1; WriteLn(x) if x = 1 then wait(1500) else if x = 2 then wait(0100) else if x = 3 then wait(0100) else if x = 4 then wait(0096) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(53,315-50,3,1,false) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(0950) else if x = 3 then wait(0500) else if x = 3 then wait(0500) else if x = 4 then wait(0150) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(94,423-50,5,0,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(0500) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(489,86-50,2,1,true) x :=1; repeat x := x+1 WriteLn(x) if x = 1 then wait(1000) else if x = 2 then wait(0500) else if x = 3 then wait(0100) else if x > 3 then x := 1; until x = RandomRange(2, 3); x := 1; mouse(576,390-50,5,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,280-50,5,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,1,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,280-50,3,5,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,280-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,316-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2500) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,316-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2800) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,316-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,316-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,352-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2500) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,352-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2040) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,352-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2010) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,352-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2088) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,388-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2300) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,388-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,388-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2700) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,388-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,424-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,424-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2090) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,424-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,424-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2500) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,460-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,460-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,460-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,460-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2300) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,496-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2220) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,496-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,496-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2600) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,496-50,2,3,true) end; begin y := 0; SetupOSI; repeat y := y+1 enchantemerald; //change 24 to how many loads you desire until y = 24; end. v.1enchantemerald.scar Edited December 10, 2012 by Ironmanj3 caught a bug Quote Link to comment Share on other sites More sharing options...
Janilabo Posted December 10, 2012 Share Posted December 10, 2012 Nice, not a bad script for second day of scripting! Keep working on it mate, looks pretty good so far. BTW, I recommend using CODE tags for the script lines there.. [ code]CODE HERE[ /code] (without spaces) -Jani - - - Updated - - - Note: 1 suggestion (well, fix actually) Use SetupOSI ONLY once. Right now, you have SetupOSI in a loop... That will keep loading data to your memory until you run out of memory (pretty quickly).. Do this: {$DEFINE RS2} {$DEFINE SMART} {$I OSI\OSI.scar} //this was made by Ironmanj3, but may be edited by //anyone who can understand this madness. //INVENTORIE INSTRUCTIONS //go to the bottom of this script and replace the 24 //above the "end" line var x : Integer; var y : integer; procedure ScriptTerminate; begin FreeOSI; end; procedure enchantemerald; begin mouse(261,185-50,7,8,true) x := 1; repeat x := x+1; WriteLn(x) if x = 1 then wait(2000) else if x = 2 then wait(0900) else if x = 3 then wait(0100) else if x = 4 then wait(0096) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,280-50,2,1,false) x := 1; repeat x := x+1; WriteLn(x) if x = 1 then wait(2000) else if x = 2 then wait(0100) else if x = 3 then wait(0100) else if x = 4 then wait(0096) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(642,383-50,6,1,true) x := 1; repeat x := x+1; WriteLn(x) if x = 1 then wait(1500) else if x = 2 then wait(0100) else if x = 3 then wait(0100) else if x = 4 then wait(0096) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(53,315-50,3,1,false) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(0950) else if x = 3 then wait(0500) else if x = 3 then wait(0500) else if x = 4 then wait(0150) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(94,423-50,5,0,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(0500) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(489,86-50,2,1,true) x :=1; repeat x := x+1 WriteLn(x) if x = 1 then wait(1000) else if x = 2 then wait(0500) else if x = 3 then wait(0100) else if x > 3 then x := 1; until x = RandomRange(2, 3); x := 1; mouse(576,390-50,5,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,280-50,5,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,1,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,280-50,3,5,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,280-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,316-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2500) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,316-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2800) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,316-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,316-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,352-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2500) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,352-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2040) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,352-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2010) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,352-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2088) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,388-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2300) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,388-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,388-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2700) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,388-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,424-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,424-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2090) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,424-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,424-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2500) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,460-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,460-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,460-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,460-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2300) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(576,496-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2220) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(619,496-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(662,496-50,2,3,true) x := 1; repeat x := x+1; WriteLn(x) if x = 2 then wait(3000) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); x := 1; mouse(576,390-50,3,3,true) repeat x := x+1; WriteLn(x) if x = 2 then wait(2600) else if x = 3 then wait(0200) else if x = 3 then wait(0200) else if x = 4 then wait(0050) else if x > 5 then x := 1; until x = RandomRange(2, 5); mouse(705,496-50,2,3,true) end; begin SetupOSI; y := 0; repeat y := y+1; enchantemerald; //change 24 to how many loads you desire until y = 24; end. So, mainloop: begin SetupOSI; y := 0; repeat y := y+1; enchantemerald; //change 24 to how many loads you desire until y = 24; end. -Jani Quote Link to comment Share on other sites More sharing options...
Ironmanj3 Posted December 10, 2012 Author Share Posted December 10, 2012 ah, thanks for the catch, like i said, im a noob. i apriciate the feed back. - - - Updated - - - ah, thanks for the catch, like i said, im a noob. i apriciate the feed back. - - - Updated - - - fixed it, huge thanks to you. Quote Link to comment Share on other sites More sharing options...
Janilabo Posted December 10, 2012 Share Posted December 10, 2012 ah, thanks for the catch, like i said, im a noob. i apriciate the feed back. - - - Updated - - - ah, thanks for the catch, like i said, im a noob. i apriciate the feed back. - - - Updated - - - fixed it, huge thanks to you. Haaay, don't worry mate, I wasn't complaining there, only helping you out.. I can tell you, my first scripts were nothing compared to this script! ..and I did shitloads of mistakes back in the day, but we all do mistakes, even then when we have achieved the maximum level we can. That's human nature. Like I said, it looks really good and promising so far. Nice work Ironman! -Jani Quote Link to comment Share on other sites More sharing options...
Ironmanj3 Posted December 13, 2012 Author Share Posted December 13, 2012 sorry for the late response, but i have been working on this script, and am currently converting it over to a color bot because thoes are a lot more reliable, and in this case, would save space. I have the banking down already, i just have to finish it by makeing it enchant the items, which i think i know how to do. and thanks for the complement! Quote Link to comment Share on other sites More sharing options...
Ironmanj3 Posted January 19, 2013 Author Share Posted January 19, 2013 If anyone is wondering why I havn't been updateing this, it is because my rs membership ran out, I am sorry, and I intend to get back on within this month. Thank you for understanding. - - - Updated - - - Also, I was in the middle of reworking it to use color as well. Quote Link to comment Share on other sites More sharing options...