(defconst 表示line 10)
(defconst 表示clm 20)

(defconst お顔
  (list '("  _--- 、" " =======&" "|n  n   |" "o=     / ")
	'("  _--- 、" " =======&" "| n  n  |" "  o=   / ")
	'("  _--- 、" " ======='" "|  n  n |" " ¥¥   o / ")
	'("  _--- 、" "@======= " "|   n  n|" " ¥¥    =o ")
	'("  _--- 、" " ======='" "|  n  - |" " ¥¥   o / ")))

(defconst おじぎ
  '("         "
    "  _---_  " " /     ¥¥ " "|       |" " ¥¥ ^  ^/  " "     0   "))


(defconst お手て
  (list '("     " " %%  " "%  % " "    %")
	'("     " "%%%  " "   % " "    %")
	'("%    " "%    " " %%  " "   % ")
	'("  %  " " %   " " %   " "  %% ")
	'(" %   " "%    " " %%  " "   % ")
	'("   % " "  %  " "  %  " "   % ")
	'("    %" "   % " "   % " "   % ")
	'("   % " "    %" "    %" "    %")
	'("%%   " "  %% " "    %" "    %")
	'(" %%  " "%  % " "    %" "    %")))

(defconst 波
  (list '("‾‾‾ ‾‾‾ ‾‾ ‾‾‾ ‾‾‾‾ ‾‾‾")
	'("‾‾ ‾‾‾ ‾‾ ‾ ‾‾‾ ‾‾‾‾ ‾‾")
	'("‾ ‾‾‾ ‾‾ ‾ ‾ ‾‾‾ ‾‾‾‾ ‾")
	'(" ‾‾‾ ‾‾‾ ‾‾ ‾‾ ‾‾‾ ‾‾‾‾")))

(defconst 岩
  '("   _     " "  / ¥¥-_  " " /     ¥¥ " "        ¥¥" "        |"))


(defun get-nth (n l)
  (nth (mod n (length l)) l))

(defun お顔の表示 (n line)
  (move-to-window-line (+ 表示line line))
  (move-to-column-force (+ 表示clm 15))
  (picture-insert-rectangle (get-nth n お顔)))

(defun おじぎの表示 (line)
  (move-to-window-line (+ 表示line line))
  (move-to-column-force (+ 表示clm 15))
  (picture-insert-rectangle おじぎ))
  
(defun 左手（？）の表示 (n)
  (move-to-window-line 表示line)
  (move-to-column-force (+ 表示clm 24))
  (picture-insert-rectangle (get-nth n お手て)))

(defun 右手（？）の表示 (n)
  (move-to-window-line 表示line)
  (move-to-column-force (+ 表示clm 8))
  (picture-insert-rectangle (get-nth n お手て)))

(defun 波の表示 (n)
  (let* ((line (+ 表示line 4))
	 (end-line (+ 4 line)))
    (while (< line end-line)
      (move-to-window-line line)
      (move-to-column-force (+ 表示clm 7))
      (picture-insert-rectangle (get-nth n 波))
      (setq n (1+ n))
      (setq line (1+ line)))))

(defun 岩の表示 ()
  (move-to-window-line (+ 表示line 3))
  (move-to-column-force 表示clm)
  (picture-insert-rectangle 岩))			  

(defun タコ ()
  (let ((タコ-buffer (get-buffer-create "タコだよーーん"))
	n line)
    (save-excursion
      (load-library "picture")
      (set-buffer タコ-buffer)
      (insert (make-string 20 ?¥n))
      (switch-to-buffer タコ-buffer)

      (setq n 3)
      (while (> n 0)
	(お顔の表示 0 n)
	(右手（？）の表示 0)
	(左手（？）の表示 5)
	(波の表示 0)
	(岩の表示)
	(sit-for 1)
	(setq n (1- n)))

      (rename-buffer "タコ踊りーーー！！")
      (set-buffer-modified-p (buffer-modified-p))
      (setq n 0 inhibit-quit t)
      (while (< n 100)
	(if (= n 30)
	    (progn (rename-buffer "飽きたら C-g してね！")
		         (set-buffer-modified-p (buffer-modified-p))))
	(波の表示 n)
	(お顔の表示 n 0)
	(右手（？）の表示 n)
	(左手（？）の表示 (+ n 5))
	(岩の表示)
	(if (sit-for 0)
	    (setq n (1+ n))
	  (setq quit-flag t))
	(if quit-flag
	    (setq quit-flag nil n 100)))
      (setq inhibit-quit nil)

      (rename-buffer "おそまつでしたーー")
      (set-buffer-modified-p (buffer-modified-p))
      (おじぎの表示 -1)
      (sit-for 1)
      (波の表示 0)
      (岩の表示)
      (sit-for 1)
      (setq n 0)
      (while (< n 3)
	(おじぎの表示 n)
	(右手（？）の表示 n)
	(左手（？）の表示 (+ n 5))
	(波の表示 0)
	(岩の表示)
	(sit-for 1)
	(setq n (1+ n)))

      (sit-for 1)
      (kill-buffer タコ-buffer))))

(タコ)