ummmmm0k
06-21-2007, 02:21 AM
kk well yesterday i made my first script after reading some tuts. it was an auto talker/ traed accepter, but it didnt use srl, so i updated it with srl things.
heres the first 1.
program SpammerTradeAccepter;
var
x,y: integer;
begin
repeat
Wait(3000+random(500));
sendkeys('Buying Yew Logs 230ea'+chr(13)); //put what you want to type
if(findcolor(x,y,8388736,78,423,117,427)) then
begin
MoveMouseSmoothEx(x,y,20,30,35,25,20);
wait(500+random(200));
ClickMouse(x,y,true);
end;
until(FindColor(x,y,8388736,78,423,117,427));
end.
and heres the updated one.
program SpammerTradeAccepter;
{.include SRL/SRL.scar}
var
i,o: integer;
begin
SetUpSRL;
repeat
Wait(3000+random(500));
TypeSend('Buying dds 70k'); //put what you want to type
if FindColorSpiral(i, o, 8388736, 78, 423, 117, 427) then
Mouse(i, o, 1, 1, true);
until(FindColorSpiral(x, y, 8388736, 78, 423, 117, 427));
end.
did i do it right? and is there anything i should change
heres the first 1.
program SpammerTradeAccepter;
var
x,y: integer;
begin
repeat
Wait(3000+random(500));
sendkeys('Buying Yew Logs 230ea'+chr(13)); //put what you want to type
if(findcolor(x,y,8388736,78,423,117,427)) then
begin
MoveMouseSmoothEx(x,y,20,30,35,25,20);
wait(500+random(200));
ClickMouse(x,y,true);
end;
until(FindColor(x,y,8388736,78,423,117,427));
end.
and heres the updated one.
program SpammerTradeAccepter;
{.include SRL/SRL.scar}
var
i,o: integer;
begin
SetUpSRL;
repeat
Wait(3000+random(500));
TypeSend('Buying dds 70k'); //put what you want to type
if FindColorSpiral(i, o, 8388736, 78, 423, 117, 427) then
Mouse(i, o, 1, 1, true);
until(FindColorSpiral(x, y, 8388736, 78, 423, 117, 427));
end.
did i do it right? and is there anything i should change