Jump to content
Ironmanj3

Auto enchanter beta (mouse movement not color)

By Ironmanj3, in RS2 Scripts

Recommended Posts

Ironmanj3 Junior Member

Ironmanj3

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

 Janilabo

Posted
Posted

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
Janilabo Contributing Member

 Janilabo

Posted
Posted
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
Ironmanj3 Junior Member

Ironmanj3

Posted
  • Author
Posted

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
Ironmanj3 Junior Member

Ironmanj3

Posted
  • Author
Posted

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
AnthonyPhics Contributing Member

AnthonyPhics

Posted
Posted
オンライン カジノは、プレイヤーが自宅にいながらにしてポーカー、ルーレット、ブラックジャック、スロットなどのギャンブル ゲームを楽しむ機会を提供する仮想プラットフォームです。 オンラインカジノは、アクセスのしやすさ、ゲームの種類の多さ、そして大金を獲得する機会があるため、年々人気が高まっています。

オンラインカジノの主な利点は、利便性とアクセスしやすさです。 プレイヤーは、通常のカジノの営業時間に制限されず、いつでもゲームを楽しむことができます。 必要なのは、インターネットにアクセスできるデバイスと、カジノのウェブサイトにアクセスできることだけです。 これにより、プレイヤーは従来のカジノによくありがちなストレスや緊張を感じることなく、快適な環境でプレイすることができます。

オンラインカジノのもう1つの利点は、ゲームの選択肢が豊富なことです。 ユーザーは、それぞれ独自のルールと勝利の機会を提供する何百もの異なるゲームから選択できます。 技術革新のおかげで、オンライン ゲームのグラフィックとサウンドは高品質になり、プレイヤーは興奮と情熱の雰囲気に浸ることができます。

さまざまなゲームに加えて、オンライン カジノはプレーヤーにさまざまなボーナスやプロモーションも提供します。 これらは、スロットのフリースピン、プレイのための追加のお金、または貴重な賞品が得られる特別なトーナメントなどです。 このようなボーナスにより、勝利の可能性が高まり、ゲームがさらに楽しくなります。

もちろん、オンラインカジノでのプレイにはリスクがあります。 ギャンブルには依存性がある可能性があるため、自分の感情を監視し、支出をコントロールすることが重要であることを覚えておくことが重要です。 カジノはまた、責任あるゲーミングをサポートし、自己排除や賭け金制限の機会を提供します casinotop5.jp

全体として、オンライン カジノはギャンブル愛好家にとって便利でエキサイティングなエンターテイメントを提供します。 幅広いゲーム、ボーナスの選択肢があり、いつでもプレイできるため、世界中のプレイヤーの間で人気が高まっています。 ただし、責任あるゲームと、ゲームが単なる楽しみと娯楽の源であるように自分の行動を制御する能力について覚えておくことが重要です。
Link to comment
Share on other sites
DarrelSnush Senior Member

DarrelSnush

Posted
Posted
Как найти аудиопоздравления на телефон: полезные советы

Праздничные деньки и особые события в прекрасной жизни отличная возможность изумить своих недалёких оригинальным пожеланьем. Ежели вы желаете отправить аудиопоздравление на телефон, но не знаете, с чего же стоит начать, эта статья поможет вам найти подходящие решения.

1. Поиск готовых аудиопоздравлений

Существует множество ресурсов, где можно отыскать готовые аудиопоздравления:
- Веб-сайты специальные сайты и онлайн-дневники предлагают коллекции аудиопоздравлений на разные удачный поводы: деньки рождения, anniversaries, Новый год и прочие празднички. Воспользуйтесь поисковыми запросами, в том числе аудиопоздравления скачать либо аудиопоздравления на телефон.
- Приложения многие мобильные приложения для создания поздравлений делают отличное предложение встроенные аудиофайлы. Попытайтесь установить приложения, такие как "Пожелания" либо "Картинки и поздравления".

2. Запись собственного аудиопоздравления

Если вы хотите добавить личный штришок, запишите пожелание сами:
- Смартфон используйте приложение для записи звука (встроенное в телефон или сторонние прибавления). Просто нажмите на запись, произнесите пожеланье и сохраните файл.
- Редактирование при помощи приложений для редактирования звука (к примеру, Audacity либо GarageBand) вы можете добавить музыку, эффекты либо улучшить качество записи.

3. Отправка аудиопоздравления

После того как вы нашли или записали аудиопоздравление, для вас нужно отправить его:
- ММС вы сможете выслать аудиофайл через MMS. Просто выберите файл и отправьте его, как обыденное извещенье.
- Мессенджеры воспользуйтесь популярными прибавлениями, такими как WhatsApp, Viber либо Telegram, чтоб выслать аудиозапись. Всегда есть возможность прибавления текста и эмодзи, чтоб сделать пожелание более выразительным.
- Email если нужно отправить длинный https://audiosms.ru/ файл, используйте электронную почту. Прикрепите аудиофайл к извещенью и отправьте его адресату.

4. Внедрение социальных сетей

Ежели вы хотите сделать поздравление более общественным, опубликуйте его в нужных страничках в социальных сетях:
- Instagram Stories либо Facebook загрузите аудиофайл или добавьте его в видео, которое можно оформить с помощью прекрасных фонов и фильтров.
- VK вы можете создать пост с аудиозаписью и поделиться им с друзьями или в обществах.

Заключение

Аудиопоздравления это хороший способ изумить и повеселить недалёких. Выбор готовых аудиофайлов, создание собственного пожеланья или использование мессенджеров и соц сетей это все окажет вам помощь найти идеальный способ поздравить собственных приятелей и родных. Не бойтесь проявлять креативность, и ваш подарок станет незабываемым!
Link to comment
Share on other sites
DarrelSnush Senior Member

DarrelSnush

Posted
Posted
Как найти аудиопоздравления на телефон: полезные советы

Праздничные деньки и особенные события в жизни отличная возможность изумить собственных недалёких оригинальным пожеланием. Ежели вы желаете выслать аудиопоздравление на телефон, но не знаете, с чего же стоит начать, эта статья поможет вам отыскать подходящие решения.

1. Поиск готовых аудиопоздравлений

Существует огромное количество ресурсов, в каком месте можно найти готовые аудиопоздравления:
- Интернет-сайты специальные сайты и онлайн-дневники предлагают коллекции аудиопоздравлений на разные поводы: дни рождения, anniversaries, Новый год и другие празднички. Воспользуйтесь запросами в поисковике, такими как аудиопоздравления скачать или аудиопоздравления на телефон.
- Прибавленья многие мобильные приложения для сотворения поздравлений делают отличное предложение встроенные аудиофайлы. Попытайтесь установить приложения, такие как "Пожелания" или "Картинки и пожелания".

2. Запись собственного аудиопоздравления

Ежели вы желаете добавить личный штрих, запишите пожеланье сами:
- Телефон используйте приложение для записи звука (встроенное в телефон либо сторонние прибавления). Просто нажмите на запись, произнесите пожеланье и сохраните файл.
- Редактирование с помощью прибавлений для редактирования звука (к примеру, Audacity либо GarageBand) вы сможете добавить музыку, эффекты или сделать лучше качество записи.

3. Отправка аудиопоздравления

После того как вы нашли либо записали аудиопоздравление, вам нужно выслать его:
- ММС вы можете отправить аудиофайл через MMS. Просто изберите файл и отправьте его, как обыденное известье.
- Мессенджеры воспользуйтесь популярными прибавлениями, такими как WhatsApp, Viber либо Telegram, чтоб отправить аудиозапись. Всегда есть возможность добавления текста и эмодзи, чтобы сделать поздравление более выразительным.
- Email если нужно отправить длинный https://audiosms.ru/ файл, используйте электронную почту. Прикрепите аудиофайл к сообщению и отправьте его адресату.

4. Внедрение социальных сетей

Ежели вы хотите сделать поздравление более публичным, опубликуйте его на своих страницах в соц сетях:
- Instagram Stories либо Facebook загрузите аудиофайл или добавьте его в видео, которое можно оформить с помощью благовидных фонов и фильтров.
- VK вы можете сделать пост с аудиозаписью и поделиться им с приятелями или в обществах.

Заключение

Аудиопоздравления это отличный метод изумить и порадовать близких. Выбор готовых аудиофайлов, создание собственного пожеланья либо внедрение мессенджеров и социальных сетей все это окажет вам помощь найти образцовый метод поздравить своих друзей и родных. Не опасайтесь проявлять креативность, и ваш подарок станет незабываемым!
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.

×
Go to topic listing
×
×
  • Create New...