i wanna use this autoresponder but i get an error that it cant find "GetChatBox" obviously im missing an include could someone give me the link to the includes ? Thanks!
Code:procedure AutoRespond; var RandomNum: Integer; LastLineText: string; begin LastLineText := Lowercase(GetChatBoxText(8, clBlue)); //Step 1 if (Pos('hi', LastLineText) > 0) or (Pos('hello', LastLineText) > 0) or (Pos('hey', LastLineText) > 0) then //Step 2 begin WriteLn('Found autoresponder text'); RandomNum := Random(3); case RandomNum of //Step 3 0: TypeSend('hello'); 1: TypeSend('hi'); 2: TypeSend('hey'); end; Exit; end; if (Pos('wc lvl', LastLineText) > 0) or (Pos('wc level', LastLineText) > 0) or (Pos('cutting lvl', LastLineText) > 0) then //Step 2 begin WriteLn('Found autoresponder text'); RandomNum := Random(3); case RandomNum of //Step 3 0: TypeSend(IntToStr(YourWCLevel)); 1: TypeSend('my wc is ' + IntToStr(YourWCLevel)); 2: TypeSend('my wc level is ' + IntToStr(YourWCLevel)); end; Exit; end; end;


Reply With Quote


















