1
2;; Note: this procedure cannot be defined in the session.scm file or it will
3;; not be saved and therefore will not be available when reloading the game. In
4;; general, nothing should be defined (using Scheme 'define') in the session
5;; file, only kernel calls should be made. The exception is things that are
6;; truly only needed once on initial startup (for example, I currently define
7;; some time constants there that fit this category). Since in general
8;; procedures do not have modifiable state they can be kept in files (like this
9;; one) which are loaded by the session file.
10(define (green-tower-pre-entry-hook kplace kpp)
11  (kern-print "Enter GreenTower?\n")
12  (kern-conv-get-yes-no? kpp))
13
14(define (pit-of-death-pre-entry-hook kplace kpp)
15  (kern-print "BWA-HA-HA-HA-HA!")
16  #t)
17