Mercurial > hg > xemacs-beta

comparison lisp/games/flame.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents b82b59fe008d
children b9518feda344
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
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
30 ;;; "Flame" program. This has a chequered past. 1 ;;; "Flame" program. This has a chequered past.
31 ;;; 2 ;;;
32 ;;; The original was on a Motorola 286 running Vanilla V.1, 3 ;;; The original was on a Motorola 286 running Vanilla V.1,
33 ;;; about 2 years ago. It was couched in terms of a yacc (I think) 4 ;;; about 2 years ago. It was couched in terms of a yacc (I think)
34 ;;; script. I pulled the data out of it and rewrote it as a piece 5 ;;; script. I pulled the data out of it and rewrote it as a piece
37 ;;; be very happy to credit you! 8 ;;; be very happy to credit you!
38 ;;; 9 ;;;
39 ;;; Ian G. Batten, Batten@uk.ac.bham.multics 10 ;;; Ian G. Batten, Batten@uk.ac.bham.multics
40 ;;; 11 ;;;
41 12
42 ;;; Code:
43 (random t) 13 (random t)
44 14
45 (defvar sentence 15 (defvar sentence
46 '((how can you say that (statement) \?) 16 '((how can you say that (statement) \?)
47 (I can\'t believe how (adjective) you are\.) 17 (I can\'t believe how (adjective) you are\.)
336 (sit-for 0) 306 (sit-for 0)
337 (while (not (input-pending-p)) 307 (while (not (input-pending-p))
338 (flame2 (if (= (random 2) 0) 2 1)) 308 (flame2 (if (= (random 2) 0) 2 1))
339 (sit-for 0) 309 (sit-for 0)
340 (doctor-ret-or-read 1))) 310 (doctor-ret-or-read 1)))
341
342 ;;; flame.el ends here