|
@@ -82,8 +82,13 @@
|
|
|
(draw-menu "commands" 6)
|
|
|
(let [cmd (option-list (point 30 40) ["drop" "wear" "use" "remove"] state)]
|
|
|
(if (= cmd 1) (inventory-menu "drop" identity (fn [o] (drop player o) (exit-dialogue)))
|
|
|
- (= cmd 3) (inventory-menu "use" identity (fn [o] (exit-dialogue)))
|
|
|
- (= cmd 2) (inventory-menu "wear"
|
|
|
+ (= cmd 3)
|
|
|
+ (inventory-menu
|
|
|
+ "use"
|
|
|
+ (fn [o] o.use)
|
|
|
+ (fn [o] (o.use player o) (exit-dialogue)))
|
|
|
+ (= cmd 2)
|
|
|
+ (inventory-menu "wear"
|
|
|
(fn [o] (if (or o.wear o.weapon) true))
|
|
|
(fn [o] (wear player o) (exit-dialogue)))
|
|
|
(= cmd 4) (equipment-menu "remove" identity (fn [o] (unwear player o) (exit-dialogue)))
|