notid/gitea-docker
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixes.

Browse Source
This commit is contained in:
Bryce Covert
2021-09-08 08:00:59 -07:00
parent 23e87d6224
commit 8ee743e371
58 changed files with 340 additions and 255 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
desktop/src-common/advent/screens/rooms/cat_tree.clj
View File

@@ -319,23 +319,29 @@
:cursor :hand
:label "Suspicous looking rock"
:script (actions/get-script entities
(when (and (actions/has-obtained? entities :note-1)
(if (and (actions/has-obtained? entities :note-1)
(not (actions/has-obtained? entities :walkie-talkies)))
(actions/walk-to entities :ego [85 99])
(actions/play-animation entities :ego :squat)
(actions/do-dialogue entities
:ego "Hey! A little lever."
:ego "I think this is Gandarf's secret stash of helpful stuff.")
(actions/play-animation entities :ego :squat)
(actions/give entities :alarm-clock)
(actions/do-dialogue entities :ego "What is this?")
(actions/play-animation entities :ego :squat)
(actions/give entities :camera)
(actions/do-dialogue entities :ego "These are all really strange devices.")
(actions/play-animation entities :ego :squat)
(actions/give entities :walkie-talkies)
(actions/talk entities :ego "Tin cans connected with string?")
(actions/do-dialogue entities :ego "I wonder what all of these magic devices do.")))}
(do
(actions/walk-to entities :ego [85 99])
(actions/play-animation entities :ego :squat)
(actions/do-dialogue entities
:ego "Hey! A little lever."
:ego "I think this is Gandarf's secret stash of helpful stuff.")
(actions/play-animation entities :ego :squat)
(actions/give entities :alarm-clock)
(actions/do-dialogue entities :ego "What is this?")
(actions/play-animation entities :ego :squat)
(actions/give entities :camera)
(actions/do-dialogue entities :ego "These are all really strange devices.")
(actions/play-animation entities :ego :squat)
(actions/give entities :walkie-talkies)
(actions/talk entities :ego "Tin cans connected with string?")
(actions/do-dialogue entities :ego "I wonder what all of these magic devices do."))
(do
(actions/walk-to entities :ego [85 99])
(actions/play-animation entities :ego :squat)
(actions/do-dialogue entities
:ego "I've looted everything in here!"))))}
:grass {:box [26 105 60 160]
:cursor :hand
:label "Grass"
@@ -492,7 +498,55 @@
:flask-water-flies (try-flask)
:flask-flies-ash (try-flask)
:spell-component (try-flask)
:glass-eye (actions/get-script entities
(cond
(actions/has-obtained? entities :feather)
(do (actions/walk-to entities :ego [141 54] :face :right)
(actions/do-dialogue entities
:ego "Could you use this as a monocle?"
:owl "You already gave me my monocle, silly boy!"))
(get-in @entities [:state :wants-monocle?])
(do
(actions/walk-to entities :ego [141 54] :face :right)
(actions/do-dialogue entities
:ego "Could you use this glass eye as a monocle?"
:owl "It is the choicest of eyes."
:owl "But a human eye won't fit.")
(do-puke entities))
:else
(actions/talk entities :ego "Why would an owl want that?")))
:motivational-tapes (actions/get-script entities
(cond
(get-in @entities [:state :wants-monocle?])
(do
(actions/walk-to entities :ego [141 54] :face :right)
(actions/do-dialogue entities
:ego "Could these motivational tapes help you hunt?"
:owl "I already have the strength of will."
:owl "Just not the strength of stomach.")
(do-puke entities))
:else
(actions/talk entities :ego "Why would an owl want that?")))
:earplugs (actions/get-script entities
(cond
(get-in @entities [:state :wants-monocle?])
(do
(actions/walk-to entities :ego [141 54] :face :right)
(actions/do-dialogue entities
:ego "Could these earplugs help you hunt?"
:owl "No, I rely on my hearing too much.")
(do-puke entities))
:else
(actions/talk entities :ego "Why would an owl want that?")))
:flask-1-strength (actions/get-script entities
(cond
(get-in @entities [:state :wants-monocle?])