worlds/haxima-1.002/player.scm

   1 ;; This defines the gob for the player party in haxima.
   2 ;; This sort of thing would probably be best stored in quest flags.
   3 (define (player-gob) (gob (kern-get-player)))
   4 (define (mk-player-gob) (list
   5                          #f ;; found warritix
   6                          #f ;; trial of stewardess done
   7                          ))
   8 (define (player-found-warritrix?) (not (null? (quest-data-getvalue 'questentry-warritrix 'found))))
   9 (define (player-stewardess-trial-done?) (not (null? (quest-data-getvalue 'questentry-warritrix 'avenged))))
  10