Mercurial > hg > xemacs-beta

comparison lisp/games/flame.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; flame.el --- Automated insults
2
3 ;; Copyright status Unknown
4
5 ;; Author: Unknown
6 ;; Adapted-By: Ian G. Batten, Batten@uk.ac.bham.multics
7 ;; Keywords: games
8
9 ;; This file is part of XEmacs.
10
11 ;; XEmacs is free software; you can redistribute it and/or modify it
12 ;; under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; XEmacs is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
24 ;; 02111-1307, USA.
25
26 ;;; Synched up with: Not in FSF
27
28 ;;; Commentary:
29
1 ;;; "Flame" program. This has a chequered past. 30 ;;; "Flame" program. This has a chequered past.
2 ;;; 31 ;;;
3 ;;; The original was on a Motorola 286 running Vanilla V.1, 32 ;;; The original was on a Motorola 286 running Vanilla V.1,
4 ;;; about 2 years ago. It was couched in terms of a yacc (I think) 33 ;;; about 2 years ago. It was couched in terms of a yacc (I think)
5 ;;; script. I pulled the data out of it and rewrote it as a piece 34 ;;; script. I pulled the data out of it and rewrote it as a piece
8 ;;; be very happy to credit you! 37 ;;; be very happy to credit you!
9 ;;; 38 ;;;
10 ;;; Ian G. Batten, Batten@uk.ac.bham.multics 39 ;;; Ian G. Batten, Batten@uk.ac.bham.multics
11 ;;; 40 ;;;
12 41
42 ;;; Code:
13 (random t) 43 (random t)
14 44
15 (defvar sentence 45 (defvar sentence
16 '((how can you say that (statement) \?) 46 '((how can you say that (statement) \?)
17 (I can\'t believe how (adjective) you are\.) 47 (I can\'t believe how (adjective) you are\.)
306 (sit-for 0) 336 (sit-for 0)
307 (while (not (input-pending-p)) 337 (while (not (input-pending-p))
308 (flame2 (if (= (random 2) 0) 2 1)) 338 (flame2 (if (= (random 2) 0) 2 1))
309 (sit-for 0) 339 (sit-for 0)
310 (doctor-ret-or-read 1))) 340 (doctor-ret-or-read 1)))
341
342 ;;; flame.el ends here