Jump to content
Ironmanj3

Auto enchanter beta (mouse movement not color)

Recommended Posts

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 by Ironmanj3
caught a bug
Link to comment
Share on other sites

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

Link to comment
Share on other sites

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. :P That's human nature.

Like I said, it looks really good and promising so far.

 

Nice work Ironman!

-Jani

Link to comment
Share on other sites

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! :D

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



×
  • Create New...