Auto-Accept Trade not working :(

[stein3]

This should work i think... I can't find why it shouldn't...
I wanted to use colors instead of finding the text cause, well, I did.
procedure trade;
begin
if findcolor(xco,yco,8388736,18,415,474,431) then
begin
MMouse(xco+random(+500),yco+random(16),0,0);
wait(100+random(100))
Mouse(xco+random(+500),yco+random(16),0,0,true);
exit;
end;
end;

begin
hide;
repeat
typing;
trade;
until(IsFKeyDown(12));
end.

[Jason2gs]

{.include SRL/SRL.Scar}

[stein3]

I did that... I just only posted the last part of my scipt. Theres a lot of leechers out there... The beginning part was just:

procedure hide;
(changes window name to AOL Instant Messanger)

procedure typo;
(types x messages in order. X is a constant set at the beginning of the script.

[c0de]

Forgot SetupSRL;

[stein3]

{
_______________ ____________ ______________ _____ ____ _____
| | | | | || | | |/ | | ||
| _________| |___ ___| || ________| |___| | | | ||
\ \____________ | | | |/ | |\ | ||
\ | | | | | | | | || | ||
\__________ | | | || |_______ | | | \| || | ||
/|/ / | | | _______/ | | | | \ || | ||
/|/ / | | || |/ | | | | \ ||_| ||
_______/|/ / | | | || | | | | \ ||| ||
| / | | | |_______ | | | | \ ||
|____________/ |__| /___________/ | | /____| \_______||
__________________________________________________ _____________________
<|Stein's Super Untrackable Autotyper. |>
<|Types up to 4 messages at a human pace. |>
<|In line 24, set up # of mesages. Then set up your messages at 38-47! |>
<|_________________________________________________ ______________________|>
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
}
program typer;
{.include srl/srl.scar}

const
messages=1; {number of messages}

var
xco, yco:integer;

procedure hide;
begin
disguisescar('AOL Instant Messanger');
SetupSRL;
end;

procedure typing;
begin
if messages>0 then
begin
typesend('trade for 4k free willows');
wait(100+random(100));
if messages>1 then
begin
typesend('sell 2k ess-usa');
wait(100+random(100));
if messages>2 then
begin
typesend('enter phrase here');
wait(100+random(100));
if messages>3 then
begin
typesend('enter phrase here');
end;
end;
end;
end;
end;

procedure trade;
begin
if findcolor(xco,yco,8388736,18,415,474,431) then
begin
MMouse(xco,yco,0,0);
wait(100+random(100));
Mouse(xco,yco,0,0,true);
exit;
end;
end;


begin
hide;
repeat
typing;
trade;
until(IsFKeyDown(12));
end.

doesn't work :(

[c0de]

That is bad logic.

What would happen if this was scenario;
message = 5

if 5 > 0 then say something
if 5 > 1 then say something
if 5 > 2 then say something
...

If you want to have different messages for different numbers use equation sign.

if 5 = 0 then say ..
...
if 5 = 5 then say ..

[stein3]

no... it works fine. it goes through the list of messages fine. ill post the updated script now, but the logic in how many messages stays the same.

[stein3]

{
_______________ ____________ ______________ _____ ____ _____
| | | | | || | | |/ | | ||
| _________| |___ ___| || ________| |___| | | | ||
\ \____________ | | | |/ | |\ | ||
\ | | | | | | | | || | ||
\__________ | | | || |_______ | | | \| || | ||
/|/ / | | | _______/ | | | | \ || | ||
/|/ / | | || |/ | | | | \ ||_| ||
_______/|/ / | | | || | | | | \ ||| ||
| / | | | |_______ | | | | \ ||
|____________/ |__| /___________/ | | /____| \_______||
__________________________________________________ _____________________
<|Stein's Super Untrackable Autotyper. |>
<|Types up to 4 messages at a human pace. |>
<|Setup lines 24-29 with ease!!! |>
<|_________________________________________________ ______________________|>
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
}
program typer;
{.include srl/srl.scar}

const
messages=1; {number of messages}

Message1='sell 2k willows-usa'; //first message to be typed
Message2='sell 2k ess 45e-usa'; //second message to be typed, will be excluded if "messages<2"
Message3='enter message here'; //third message to be typed, will be excluded if "messages<3"
Message4='enter message here'; //fourth message to be typed, will be excluded if "messages<4"


var
xco, yco:integer;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure hide;
begin
SetupSRL
disguisescar('AOL Instant Messanger')
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure type1;
begin
if messages>0 then
begin
cleardebug
writeln('typing message 1');
typesend(Message1);
wait(100+random(100));
end;
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure type2;
begin
if messages>1 then
begin
cleardebug
writeln('typing message 2');
typesend(Message2);
wait(100+random(100));
end;
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure type3;
begin
if messages>2 then
begin
cleardebug
writeln('typing message 3');
typesend(Message3);
wait(100+random(100));
end;
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
Procedure type4;
begin
if messages>3 then
begin
cleardebug
writeln('typing message 4');
typesend(Message4);
wait(100+random(100));
end;
end;
//MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMMMMMMMM
procedure trade;
begin
if findcolor(xco,yco,8388736,18,415,236,431) then
begin
cleardebug
writeln('found trade')
MMouse(xco,yco,0,0);
wait(100+random(50))
Mouse(xco,yco,0,0,true);
writeln('accepted trade')
exit;
end;
end;


begin
hide;
repeat
type1;
trade;
type2;
trade;
type3;
trade;
type4;
trade;
until(IsFKeyDown(12));
end.