Log in

View Full Version : did i do this right?



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

jbrauman
06-23-2007, 02:37 AM
Look for trades.scar under misc. includes ;)

me_ntal
06-23-2007, 11:26 AM
Where was the tutorial? it has taught you old procedures.

Instead of ClickMouse(x,y,true); use Mouse(x,y,3,3,True);
sendkeys('Buying Yew Logs 230ea'+chr(13)) use TypeSend('Buying Yew Logs 230ea')
MoveMouseSmoothEx(x,y,20,30,35,25,20); use MMouse(x,y,3,3)

Edit Wooops didnt read ur second script, yeah great work.