dance = sequence
  b1 = bitmap("squid1.xbm")
  b2 = bitmap("squid2.xbm")
  while (1)
    show b1
    tick
    show b2
    tick
  end
end


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



weave = sequence
  while (1)
    call moveit(10, 0, 3)
    call moveit(7, -7, 3)
    call moveit(10, 0, 3)
    call moveit(7, 7, 3)
  end
end

multiweave = sequence
  moveto (-20, screen_height - 80)
  start dance
  start weave
  while (on_screen())
    tick
  end
end

bonkmouse = sequence (dx, dy)
  use(mouse)
  while (dx != 0 && dy != 0)
    move (dx, dy)
    tick
    move (dx, dy)
    tick
    if (dx > 0) then dx = dx - 1 else 
    if (dx < 0) then dx = dx + 1 end end
    if (dy > 0) then dy = dy - 1 else 
    if (dy < 0) then dy = dy + 1 end end
  end
end



bouncy = sequence
  create()
  show bitmap("/afs/athena/user/k/kkkken/lib/bitmaps/warthog")
  while (1)
    dy = 0
    y = 400
    moveto (0, y)
    while (on_screen() && !(hit = collide(mouse)))
      dy = dy + 1
      if (y > screen_height - 200 && dy > 0) then dy = 3 - dy end
      move (13, dy)
      y = y + dy
      tick
    end
    if (hit) then
      dx = 13
      start bonkmouse(dx, dy)
      while (on_screen())
        move (dx, dy)
        if (dx > 0) then dx = dx - 1 end
        dy = dy - 1
        tick
      end
    end
    ticks (20)
  end
end  


fuzzy = sequence
  create()
  show bitmap("/afs/athena/user/k/kkkken/lib/bitmaps/fuzzball")
  while (1)
    moveto (0, 200)
    while (on_screen())
      call moveit (5, 0, 10)
      call moveit (6, -2, 5)
      call moveit (3, -7, 7)
      call moveit (0, -5, 4)
      call moveit (-2, -2, 5)
      call moveit (-4, 0, 3)
      call moveit (-2, 6, 7)
      call moveit (0, 10, 5)
    end
    ticks (30)
  end
end
  
manysquids = sequence
  while (1)
    create()
    start multiweave
    ticks (10)
  end
end

start bouncy
start fuzzy
start manysquids
ticks (30)
start bouncy
ticks (25)
start bouncy
ticks (100)
start fuzzy
while (1)
  tick
end