const
	RespondBot : array[1..7] of string = ('wha?','Who?','Nope.','No','What?','No..','lol, no.');

var
	Obj: Tl2Live;
	Index : Integer;

Procedure Respond;
begin
	while true do begin
	Index := 1 + random(7); //used to pick a random response

    	if ChatMessage.Unread and (ChatMessage.Time < 3000) then
    	begin
    		if CharList.ByName(ChatMessage.sender, Obj) and not Obj.IsMember then //checks to make sure player not part of party
    		begin
    			if Obj.InZone and (ChatMessage.text = 'Hey') then //checks to make sure player is in zone
    			begin
    			delay(1500);
    			print(RespondBot[Index]); //uses the randomly picked number
    			end;

            end;
        end; delay(100);
   end; //end of while
 end;

begin //start of main body
Script.NewThread(@Respond);
end. //end of main body