R U KIDDING ME?
i got one but i think it's a lil to advanced for a begining scripter, so i'll post the whole thing
IsTextInAreaEx({x1}, {y1}, {x2}, {y2}, textx{add to var}, texty{add to var}, {look for this text}, 12, smallchars, False, True, 0, 1, {TextColor})))
<----------------------------------------------------------->
it's looking in the last 2 line's for text to respond to. if you use it don't forget to credit me ^^
SCAR Code:
Function AutoRespondByRick (FindText, SayRandomText1, SayRandomText2, SayRandomText3 : string):Boolean;
var
textx, texty: Integer;
TextSayd : String;
TextFound : String;
begin
if (not (IsTextInAreaEx(8, 428, 291, 461, textx, texty, FindText, 12, smallchars, False, True, 0, 1, 16711680))) then
begin
exit;
end else
begin
Result := True;
Case Random (3) of
0: begin
Typesend(SayRandomText1);
TextSayd := SayRandomText1
end;
1: begin
Typesend(SayRandomText2);
TextSayd := SayRandomText2
end;
2: begin
Typesend(SayRandomText3);
TextSayd := SayRandomText3
end;
end;
TextFound := FindText
WriteLn('- - - Auto Respond By MasterKill - - -');
WriteLn('- MrX: ' + TextFound);
WriteLn('- ' + Players[CurrentPlayer].Name + ': '+ TextSayd);
WriteLn('');
end;
end;
use like this:
SCAR Code:
Procedure AutoRespond;
begin
AutoRespondByRick('Hi','yoo','yo','ewa');
AutoRespondByRick('Noob','stfu','look at yourself','u r');
AutoRespondByRick('Haha','lol','rofl','not funny');
AutoRespondByRick('Total','look it up','look in hi-scores','not telling');
end;
AutoRespondByRick('look for text', 'random say 1', 'random say 2', 'random say 3');
EDIT:
REMEMBER: if the ('LookForText' = the same as 'random say x') then it will respond to him self!