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
Code: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




Reply With Quote


