a9t/modules/srv.scm

;;;; Time-stamp: <2016-09-05 23:54:21 teru>

(define-module (Kn Kn8630) #:version (2016 249))

(define male? #t)

(define (race sym)
  (case sym
    ((nil none NONE)   0)
    ;;
    ((kiun)         1)
    ((kiun-tcula)   2)
    ((kiun-huli)    3)
    ((kiun-kitsune) 4)
    ;;
    ((nawa)         16)
    ((nawa-dadak)   17)
    ((nawa-exodian) 18)
    ((nawa-z)       19)
    ;;
    ((unspecified) 32767)))

(define (direction sym)
  ;; ^[[A =up, ^[[B =down, ^[[C =right, ^[[D =left.
  (case sym
    ((A) 0)
    ((B) 1)
    ((D) 3)
    ((C) 2)))

(define (npc x)
  (case x
    ((empty)            -1)
    ((hidden)        32767)))

;;;; End of srv.scm.