\ 🐰🐱🐲🐳🐴🐵🐶🐷🐸🐹🐺🐻

var i;

begin
  call cvasclick;
  i:=1;
  while 1=1 do
    begin
      call wait(10);
      if cvclickx>-1 then
        begin
          i:=i+1;
          if i>emojicount then
            i:=1;
          call cvasclick;
        end;
      call cvclear;
      call emojidraw(i,cvx,cvy,150);
      call cvball(cvx,cvy,5);
      call cvtext(cvx,cvx-10,cvy+70);
      call cvtext(cvy,cvx+10,cvy+70);
    end
end.