37 lines
1.2 KiB
Racket
37 lines
1.2 KiB
Racket
|
#lang racket/gui
|
||
|
|
(require "structs.rkt")
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
(define (find-object obj where)
|
||
|
|
(find-object-by-name (object-name obj) where))
|
||
|
|
|
||
|
|
(define (find-object-by-name obj-name where)
|
||
|
|
(findf (λ (o) (string=? obj-name (object-name o)))
|
||
|
|
(if (creature? where)
|
||
|
|
(append (creature-equipment where) (entity-inventory where))
|
||
|
|
(entity-inventory where))))
|
||
|
|
|
||
|
|
(define (object-names list)
|
||
|
|
(map object-name list))
|
||
|
|
|
||
|
|
(define (oxford-object-names where)
|
||
|
|
(let ([lst (object-names (entity-inventory where))])
|
||
|
|
(if (empty? lst)
|
||
|
|
"nothing."
|
||
|
|
(string-join lst ", "
|
||
|
|
#:before-last ", and "
|
||
|
|
#:after-last "."))))
|
||
|
|
|
||
|
|
(define-syntax-rule (append-str! str1 str2)
|
||
|
|
(set! str1 (~a str1 str2)))
|
||
|
|
|
||
|
|
(define (add-to-inventory! ent obj)
|
||
|
|
(set-entity-inventory! ent (append (entity-inventory ent) (list obj))))
|
||
|
|
(define (remove-from-inventory! ent obj)
|
||
|
|
(set-entity-inventory! ent (remove obj (entity-inventory ent))))
|
||
|
|
(define (move-obj! obj from to)
|
||
|
|
(let ([obj-str (object-name obj)]
|
||
|
|
[from-str (object-name from)])
|
||
|
|
(add-to-inventory! to obj)
|
||
|
|
(remove-from-inventory! from obj)
|
||
|
|
(~a "Took " obj-str " from " from-str ".")))
|