bitmap_path = "/afs/athena/user/k/k/kkkken/prj/squid/bm:/afs/athena/user/k/k/kkkken/lib/bitmaps"



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()
  set_window (saver)
  show bitmap("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()
  set_window (saver)
  show bitmap("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()
    set_window (saver)
    start multiweave
    ticks (10)
  end
end

saver = root_window

while (!(saver = find_big_window()))
  sleep(1)
end

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