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