fuz1 = bitmap("/mit/kkkken/prj/squid/sq/fuz1.xbm")
fuz2 = bitmap("/mit/kkkken/prj/squid/sq/fuz2.xbm")
fuz3 = bitmap("/mit/kkkken/prj/squid/sq/fuz3.xbm")
fuz4 = bitmap("/mit/kkkken/prj/squid/sq/fuz4.xbm")
fuz5 = bitmap("/mit/kkkken/prj/squid/sq/fuz5.xbm")
fuz6 = bitmap("/mit/kkkken/prj/squid/sq/fuz6.xbm")
fuz7 = bitmap("/mit/kkkken/prj/squid/sq/fuz7.xbm")
fuz8 = bitmap("/mit/kkkken/prj/squid/sq/fuz8.xbm")
fuzj1 = bitmap("/mit/kkkken/prj/squid/sq/fuzj1.xbm")
fuzj2 = bitmap("/mit/kkkken/prj/squid/sq/fuzj2.xbm")

emacs = find_window("emacs")

fuzz_dance = sequence
  while (1)
    show fuz1
    tick
    show fuz2
    tick
    show fuz3
    tick
    show fuz4
    tick
    show fuz5
    tick
    show fuz6
    tick
    show fuz7
    tick
    show fuz8
    tick
  end
end

fuzz_walk = sequence (dx, dy, howfar)
  while (howfar > 0)
    move (dx, dy)
    howfar = howfar - 1
    tick
  end
end

do_fuzz = sequence
  create()
  set_window(emacs)
  moveto (-20, 100)
  start fuzz_dance
  call fuzz_walk(2, 0, screen_width / 2 + 10)
end

do_jump = sequence
  create()
  set_window(emacs)
  moveto (-20, 100)
  dancing = start fuzz_dance
  call fuzz_walk(2, 0, 20)
  while (on_screen())
    kill dancing 
    show fuzj1
    move (0, 1)
    ticks(3)
    show fuzj2
    call fuzz_walk(1, -5, 2)
    call fuzz_walk(1, -2, 2)
    call fuzz_walk(1, 0, 2)
    call fuzz_walk(1, 2, 2)
    call fuzz_walk(1, 5, 2)
    show fuzj1
    ticks(3)
    move (0, -1)
    dancing = start fuzz_dance
    call fuzz_walk(2, 0, 60)
  end
end


while (1)
  call do_jump
  sleep(300)
  call do_fuzz 
  sleep(300)
  call do_fuzz 
  sleep(300)
end