Sdcit
2006-04-03 00:45:54
I dont knwo if this works completely. Since i am udner punishment and have no access to runescape, i can not test this. Please see if it retypes the word even if it gets it right.
This is suppose to either type the word correctly, type the word wrong and correct it, or just leave it wrong. I dont know how ischatmessage works too well so it MAY be flawed
P.S. If this doesnt work its my fault, wait till beta 3
Its a script, just run it
This is suppose to either type the word correctly, type the word wrong and correct it, or just leave it wrong. I dont know how ischatmessage works too well so it MAY be flawed
P.S. If this doesnt work its my fault, wait till beta 3
program New;
{.include SRL/SRL.scar}
{*******************************************************************************
procedure SendText3(Text : String);
By:
Description: If makes mistakes will type correct format quickly
*******************************************************************************}
Procedure SendText3(Ttx : String);
var
Mi : Boolean;
begin
begin
case Random( 2 ) of
0: begin
SendText( ttx );
SendKeys( chr( 13) );
Mi:= false;
end;
1: begin
SendText2( ttx);
If ( Not( IsChatMessage( ttx ) ) )then
begin
Mi:= True;
end;
Sendkeys( chr( 13 ) );
end;
end;
end;
If( Mi )then
begin
case Random( 2) of
0: begin
wait( 50+random( 10 ) );
SendText( ttx );
SendKeys( chr( 13 ) );
end;
1: begin
writeln( 'Mistake Not Corrected' );
end;
end;
end;
end;
begin
SetupSRL
SendText3('Helllo')
end.Its a script, just run it