Forum :: Lounge :: can somone help me write a scar script for autoclicking

im not to familiar with the procedures for scar but i need is a script that will repeat every half hour for the next 6 hours
 (691, 782)
 (467, 449)
 (954, 295)
 (954, 295) (the reasoning for the double co-ordinates is cause i need to doubleclick on that x,y axis)
and then wait 1800000 Milliseconds or 1800 seconds (idk if it uses a second or millisecond timer) and repeat 12 times

this is what i got sofar but i tested it and got an error so i dont think im doing very good

program autobatterychanger;
begin
movemousesmooth(x,y)
clickmouse(x,y,true);
end;
until false
movemouse(954,295)
clickmouse(954,295,true)
end.

program Clicker;//digitx
var timer, i:integer;

procedure click;
begin
MoveMouseSmooth(954, 295);
ClickMouse(954, 295, True);
Sleep(15);
ClickMouse(954, 295, True);
end;

begin
repeat
click;
i:=i+1;
sleep(1800000);
until(i=12);
end.

Digitx posted: (3rd Jan 2011 02:18 am)

program Clicker;//digitx
var timer, i:integer;

procedure click;
begin
MoveMouseSmooth(954, 295);
ClickMouse(954, 295, True);
Sleep(15);
ClickMouse(954, 295, True);
end;

begin
repeat
click;
i:=i+1;
sleep(1800000);
until(i=12);
end.

so do i just repeat the middle section for the other 2 axis?

also thanks :D

Not to get into you busness, but what are you tryng to use this for, for eo? like what, a lil more info and maybe we could help you out more, i use a scar script for auto saveng and reloging/ restarting on my seose server"autosavebot", and for a auto spawn event every few hours on my eoserv"amnot open yet on the eoserv"but you realy got me wondering what you got going on. i like seeng scar scripts added into some functions on the game, like i said mine saves and relogs on seose, and does spawn events on my eoserv, could also spawn an npc once a day, for a special npc, and if no one kills it in two hours or so it will come along and despawn it.

---
Think Outside The Box.

..............Skids in my Undies........
...............Cut And Paste............

make posted: (3rd Jan 2011 02:37 am)

Not to get into you busness, but what are you tryng to use this for, for eo? like what, a lil more info and maybe we could help you out more, i use a scar script for auto saveng and reloging/ restarting on my seose server"autosavebot", and for a auto spawn event every few hours on myeoserv"amnotopen yet on the eoserv"but you realy got me wondering what you got going on. i like seeng scar scripts added into some functions on the game, like i said mine saves and relogs on seose, and does spawn events on my eoserv, could also spawn an npc once a day, for a special npc, and if noone kills itin two hours or so it will come along and despawn it.

im just trying to write an autoclicking script for timed harvesting kinda like fishing but with a vacuum that runs on batterys so every 90 seconds u get a chance to get peices of items you can craft together to make a rare item,sword,armor,ect and every 30 minutes  the equiped battery gets removed from ur inventory

im still working on the countdown code for the battery timer

i got the script to run but it only runs the first click procedure

program Clicker;//digitx
var timer, i:integer;

procedure click;
begin
MoveMouse(691, 782);
ClickMouse(691, 782, True);
end;

procedure click2;
begin
MoveMouse(467, 449);
ClickMouse(467, 449, True);
end;

procedure click3;
begin
MoveMouse(954, 295);
ClickMouse(954, 295, True);
Sleep(15);
ClickMouse(954, 295, True);
end;

begin
repeat
click;
i:=i+1;
sleep(1800000);
until(i=12);
end.

how long between clicks you want it to wait???

 

 

i dont know what your tryng to get it to do all it does is open and close me eo and click a few spots on it but it runs over and over now!

---
Think Outside The Box.

..............Skids in my Undies........
...............Cut And Paste............

make posted: (3rd Jan 2011 03:15 am)

how long between clicks you want it to wait???

around 1 second between clicks and half hour till it runs the script again
the script should run 12 times before it ends

also the reason u dont understand what its trying to do is cause i havent completed my long ass interactive harvesting code insted of sitting there and holding ctrl u will use a timed battery and collect bits and peices of items to create a whole im making the script to test it under constant afk use to see if itl crash

ok hold on let me see if i can get this to work its been a long time
 program Clicker;//digitx
var timer, i:integer;

procedure click;
begin
MoveMouse(691, 782);
ClickMouse(691, 782, True);wait(500);
end;

procedure click2;
begin
MoveMouse(467, 449);
ClickMouse(467, 449, True);wait(500);
end;

procedure click3;
begin
MoveMouse(954, 295);
ClickMouse(954, 295, True);wait(500);
Sleep(15);
ClickMouse(954, 295, True);wait(500);
end;

begin
repeat
click;
click2;
click3;
i:=i+1;
sleep(30);wait(10000000);
until(i=12);
end.

i dont know if this is what your looking for because i dont know what your running it on, you will have to ajust the last wait to what ever you need, 10000000 i dont know how long that is, if you set the last wait to say 200 its will zip threw over and over until it hits 12 then stops, idk it opened and closed eo a bunch of times for me.

---
Think Outside The Box.

..............Skids in my Undies........
...............Cut And Paste............

make posted: (3rd Jan 2011 03:25 am)

ok hold on let me see if i can get this to work its been a long time
 program Clicker;//digitx
var timer, i:integer;

procedure click;
begin
MoveMouse(691, 782);
ClickMouse(691, 782, True);wait(500);
end;

procedure click2;
begin
MoveMouse(467, 449);
ClickMouse(467, 449, True);wait(500);
end;

procedure click3;
begin
MoveMouse(954, 295);
ClickMouse(954, 295, True);wait(500);
Sleep(15);
ClickMouse(954, 295, True);wait(500);
end;

begin
repeat
click;
click2;
click3;
i:=i+1;
sleep(30);wait(10000000);
until(i=12);
end.

i dont know if this is what your looking for because i dont know what your running it on, you will have to ajust the last wait to what ever you need, 10000000 i dont know how long that is,

ur answer to 10000000 ms is 166.7 minutes :D

well i hope thats what you needed then just ajust the last wait() to what you need. if its still not going threw all the click positions let me know, i can make it work!

---
Think Outside The Box.

..............Skids in my Undies........
...............Cut And Paste............

I just made this based off the fact that you want it clicking them then waiting 30 minutes. But it should do what you need.

It will click the first two points. Then double click the third. Then wait 30 minutes. (or 1800 seconds). then repeat the cycle until it has looped 12 times.

program Clicker; //By Nerrevar

var
  I: Integer;

procedure Click(x,y: Integer);
begin
  MoveMouseSmooth(x,y);
  ClickMouse(x,y,true);
end;

procedure DoubleClick(x,y: Integer);
begin
  MoveMouseSmooth(x,y); Wait(10);
  ClickMouse(x,y,true); Wait(10);
  ClickMouse(x,y,true); Wait(10);
end;

procedure Clicker;
begin
  Click(691,782);
  wait(500);
  Click(467,499);
  wait(500);
  DoubleClick(954,295)
  I := I + 1;
  Wait (1800 * 1000);
end;
 
begin
repeat
Clicker;
until (I = 12);
end. //By Nerrevar

Nerrevar posted: (3rd Jan 2011 05:44 am)

I just made this based off the fact that you want it clicking them then waiting 30 minutes. But it should do what you need.

It will click the first two points. Then double click the third. Then wait 30 minutes. (or 1800 seconds). then repeat the cycle until it has looped 12 times.

program Clicker; //By Nerrevar

var
  I: Integer;

procedure Click(x,y: Integer);
begin
  MoveMouseSmooth(x,y);
  ClickMouse(x,y,true);
end;

procedure DoubleClick(x,y: Integer);
begin
  MoveMouseSmooth(x,y); Wait(10);
  ClickMouse(x,y,true); Wait(10);
  ClickMouse(x,y,true); Wait(10);
end;

procedure Clicker;
begin
  Click(691,782);
  wait(500);
  Click(467,499);
  wait(500);
  DoubleClick(954,295)
  I := I + 1;
  Wait (1800 * 1000);
end;
 
begin
repeat
Clicker;
until (I = 12);
end. //By Nerrevar

I didn't realise that SCAR wasn't too dis-similar from Pascal, If you're naming the procedure "Clicker" wouldn't that get confused with the program name too? I know it does in pascal

---
If money doesn't grow on trees, then why do banks have branches?

Scar is derived from pascal. And was originally programmed in pascal.
Freddy1990 however, now writes it in delphi. But anyway.
No it shouldnt get cofused with the program name and the procedure name. If it does though, its a simple matter of changing the name to something else lol.