2 scripts. Customizable Autoclicker,And Autotyper

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--------------------------

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.

 

feel free to comment = )

 

wow nice scripts there, they work well with me =)

 

how can i get the autoclicker to go faster?

 

how do u get then to work

 

gravedigger!

 

typer will get u banned.

 

I suggest adding some random waits to the scripts: wait(10+140)) I think that's how you do it. Haven't scripted in awhile.

 

hey

i'm new here on Sythe, and i will be honest. I have no idea how to use these scripts. I would really like to use them, obviously. So can anyone please help me how to use these? I honestly have no idea. I guess i got to learn someway haha. =)

 

copy it and paste into scar

 

GMK, try using SendKeysWait. cause if ur account is flagged, or reported, then this typer will get u banned.