File tree Expand file tree Collapse file tree 5 files changed +17
-12
lines changed
clecs-example-rougelike/src/clecs_example_rougelike Expand file tree Collapse file tree 5 files changed +17
-12
lines changed Original file line number Diff line number Diff line change 1
1
(ns clecs-example-rougelike.entities
2
2
(:require [clecs.world :as w]
3
- [clecs-example-rougelike.components :refer :all ])
4
- (:import [clecs_example_rougelike.components Location]))
3
+ [clecs-example-rougelike.components :refer :all ]))
5
4
6
5
7
6
(def tagged-entities (atom {}))
Original file line number Diff line number Diff line change 2
2
(:require [clecs.world :as w]
3
3
[clecs.component :refer [component-label]]
4
4
[lanterna.screen :as s]
5
- [clecs-example-rougelike.components :refer [->MoveIntent ->TakeIntent]]
6
- [clecs-example-rougelike.entities :refer [tagged-entities]])
7
- (:import [clecs_example_rougelike.components MoveIntent Renderable TakeIntent]))
5
+ [clecs-example-rougelike.components :refer [->MoveIntent
6
+ ->TakeIntent
7
+ MoveIntent
8
+ Renderable
9
+ TakeIntent]]
10
+ [clecs-example-rougelike.entities :refer [tagged-entities]]))
8
11
9
12
10
13
(defn- get-inputs! [inputs screen]
Original file line number Diff line number Diff line change 1
1
(ns clecs-example-rougelike.systems.move
2
2
(:require [clecs.component :refer [component-label]]
3
3
[clecs.world :as w]
4
- [clecs-example-rougelike.components :refer [->Location]])
5
- (:import [clecs_example_rougelike.components Location MoveIntent Walkable]))
4
+ [clecs-example-rougelike.components :refer [->Location
5
+ Location
6
+ MoveIntent
7
+ Walkable]]))
6
8
7
9
8
10
(declare q-movers q-walkables walkable? )
Original file line number Diff line number Diff line change 4
4
[clecs.world :as w]
5
5
[clecs-example-rougelike.components :refer :all ]
6
6
[clecs-example-rougelike.entities :refer [find-entities-at
7
- tagged-entities]])
8
- (:import [clecs_example_rougelike.components Inventory Location Name Renderable Takeable]))
7
+ tagged-entities]]))
9
8
10
9
11
10
(def min-height 20 )
Original file line number Diff line number Diff line change 1
1
(ns clecs-example-rougelike.systems.take
2
2
(:require [clecs.component :refer [component-label]]
3
3
[clecs.world :as w]
4
- [clecs-example-rougelike.components :refer [->Inventory]]
5
- [clecs-example-rougelike.entities :refer [find-entities-at]])
6
- (:import [clecs_example_rougelike.components Location Takeable TakeIntent]))
4
+ [clecs-example-rougelike.components :refer [->Inventory
5
+ Location
6
+ Takeable
7
+ TakeIntent]]
8
+ [clecs-example-rougelike.entities :refer [find-entities-at]]))
7
9
8
10
9
11
(declare q-takeable q-takers )
You can’t perform that action at this time.
0 commit comments