ok heres two scripts. as you will see by the dates on the scripts the autotyper is very old (But still Works well) and the Clicker is new.
Enjoy!
btw: please dont remind me that "i should use srl" becuase the functions work fine, and i have used the autotyper for a year and have not been banned once!
Enjoy!
--------------------------Typer--------------------------
-------------------------------------Clicker-----------------------
Enjoy!
btw: please dont remind me that "i should use srl" becuase the functions work fine, and i have used the autotyper for a year and have not been banned once!
Enjoy!
--------------------------Typer--------------------------
Code:
{
Time usage recomendation: as long as you want!
Class of script: Autotyper
Complexity 1-10: 2
Bugs: None
Notes:
The reason i did not use any random waits and why i used sendekeys instead of typesend is becuase as long as you dont abuse the speed,
you can not get banned for using an autotyper.
{.Script Info:
ScriptName = SeanSpeak
Author = Sean R
Description = Types manualy or automaticly.
Version = 1.0
Date = february 28th 2007
Comments = Add this script to your collection!
/Script Info}
program SeanSpeak;
const
color ='white:';//color of the mesage
effect='wave2:';// effect of the mesage
text = 'BUY MITH AXE ';// the message
AM = false;// true for auto-type false for manual type
Change = true;// true for auto change text false for no auto change text.
waitT = 2900;// only for automatic. the wait between types.
var
talktimes:integer;
loopcount:integer;
textO:string;
procedure calibrate;
begin
talktimes:= 0
writeln('welcome to SS type. A free script. Enjoy!')
wait(500)
writeln('you will be saying ' + (text))
wait(500)
writeln('your color will be ' + (color))
wait(500)
writeln('your effect will be ' + (effect))
if AM = true then
writeln('it will be automatic')
if AM = false then
writeln('it will be manual')
end;
procedure Autotype1;
begin
if change = false then
begin
if AM = true then
begin
clickmouse(175,755,True)
writeln('you have chosen auto-type. Enjoy!')
wait(500)
sendkeys(color + (effect + (text)))
talktimes:= talktimes + 1
wait(300)
sendkeysvb('{ENTER}',false)
wait(waitT)
end;
end;
end;
procedure Autotype2;
begin
if change = false then
begin
if AM = true then
begin
clickmouse(350,755,True)
writeln('you have chosen auto-type. Enjoy!')
wait(500)
sendkeys(color + (effect + (text)))
talktimes:= talktimes + 1
wait(300)
sendkeysvb('{ENTER}',false)
wait(waitT)
end;
end;
end;
procedure Autotype3;
begin
if change = false then
begin
if AM = true then
begin
clickmouse(500,755,True)
writeln('you have chosen auto-type. Enjoy!')
wait(500)
sendkeys(color + (effect + (text)))
talktimes:= talktimes + 1
wait(300)
sendkeysvb('{ENTER}',false)
wait(waitT)
end;
end;
end;
procedure manualtype;
begin
if AM = false then
begin
writeln('you have chosen manual type. Enjoy!')
repeat
wait(100)
if isfkeydown(1) = true then
begin
sendkeys(color + (effect + (text)))
talktimes:= talktimes + 1
wait(300)
sendkeysvb('{ENTER}',false)
end;
until(false)
end;
end;
procedure speachswitch;
begin
if change = true then
begin
if loopcount = 1 then
texto:= 'sell.'
if loopcount = 50 then
texto:= 'buy.'
if loopcount = 100 then
texto:= 'nerd.'
if loopcount = 150 then
texto:= 'sell.'
if loopcount = 200 then
texto:= 'nerd'
if loopcount = 225 then
texto:= 'sell.'
if loopcount = 230 then
loopcount:= 0
end;
end;
begin
calibrate;
loopcount:= 0
repeat
loopcount:= loopcount + 1
wait(10)
speachswitch;
wait(10)
autotype1;
wait(10)
autotype2;
wait(10)
autotype3;
wait(10)
manualtype;
wait(10)
until(false)
end.-------------------------------------Clicker-----------------------
Code:
{.Script Info:
# ScriptName = Uclix
# Author = Sean R
# Description = A safe autoclicker. Choose four spots to autoclick!
# Version = v1.0
# Date = January 7th 2008
# Comments = I chose not to use SRL becuase it really wasnt necassary.
/Script Info}
program Uclix;
/////////////HOW TO OPERATE//////////////////////////
{
step 1: press the start button on scar
step 2: to set the four mouse click positions move your mouse to the first click spot
and press q for the second press w for the third press e for the fourth press r.
step 3: press a to begin clicking.
step 4: when you are done HOLD a until the movement stops to stop the script and
show report.
note: im not sure why but sometimes if its your first time running this script it
will automaticly start clicking. to fix this just restart the script.
}
/////////////HOW TO OPERATE//////////////////////////
const
o = 1000; //time to wait before the second click
oo = 1000; //time to wait before the third click
ooo = 1000; //time to wait before the fourth click
oooo = 1000; //time to wait before the first click (before the loop reapeats)
var
clicks,a,b,c,d,e,f,g,h:integer;
procedure pos;
begin
repeat
if (iskeydown('q')) then
getmousepos(a,b)
if (iskeydown('w')) then
getmousepos(c,d)
if (iskeydown('e')) then
getmousepos(e,f)
if (iskeydown('r')) then
getmousepos(g,h)
until(iskeydown('a'))
end;
procedure click;
begin
repeat
movemousesplineex(a,b,1,1,10,35,65)
clickmousespline(a,b,1,1,true)
wait(o + random(100))
movemousesplineex(c,d,1,1,10,35,65)
clickmousespline(c,d,1,1,true)
wait(oo + random(100))
movemousesplineex(e,f,1,1,10,35,65)
clickmousespline(e,f,1,1,true)
wait(ooo + random(100))
movemousesplineex(g,h,1,1,10,35,65)
clickmousespline(g,h,1,1,true)
wait(ooo + random(100))
clicks:= clicks + 4
until(iskeydown('a'))
end;
begin
pos;
click;
writeln('clicked a total of' + inttostr(clicks) + ' times')
end.
