Permalink
Browse files

removed error printing... added monstor decor

  • Loading branch information...
1 parent 3f581ca commit 37680a3391fc1e25c2d7b16f76e9624435b7291f @slagyr committed Aug 8, 2011
@@ -107,6 +107,14 @@ div#movement, div#shooting {
width: 206px;
}
+div#decor {
+ display: inline-block;
+ font-size: 5pt;
+ color: black;
+ font-weight: bold;
+ padding-left: 45px;
+}
+
div#shooting {
float: right;
}
@@ -19,7 +19,8 @@
player (:player-name (:session *request*))
report (perform-command *game* player command)]
(-> (redirect "/console")
- (update-in [:session] assoc :report report))))
+ (update-in [:session] assoc :report report)
+ (update-in [:session] assoc :game @*game*))))
(defn- shoot [direction]
(-> (redirect "/console")
@@ -10,7 +10,8 @@
(defn- successful-login [name]
(let [report (perform-command *game* name join-game)]
(-> (redirect "/console")
- (update-in [:session] assoc :player-name name :report report))))
+ (update-in [:session] assoc :player-name name :report report)
+ (update-in [:session] assoc :game @*game*))))
(defn- process-login []
(let [params (:params *request*)
@@ -40,7 +40,7 @@
after (alter game-ref update-game command-thunk player)]
(report before after player))
(catch Exception e
- (.printStackTrace e)
+; (.printStackTrace e)
{:error (.getMessage e)}))))
(def *game*
@@ -20,6 +20,33 @@
[:div.west [:a {:href "/command/move/west"}]]
[:div.east [:a {:href "/command/move/east"}]]
[:div.south [:a {:href "/command/move/south"}]]]
+ [:div#decor
+ [:pre "
+ . .
+ | |
+ || ||
+ || ||
+ /~~\\ /~~\\
+ | \\_____/ |
+ | II II |
+ | II II |
+ | II II |
+ | /
+ | ~~-~~|~
+ | { !
+ | { !
+ | ~~!~
+ | \\
+ \\ /
+ \\ /
+ =====
+ ( )
+ ---{ }---
+ +++++
+ | |
+ | |
+
+ "]]
[:div#shooting
[:h4 "Shoot"]
[:div.north [:a {:href "/command/shoot/north"}]]

0 comments on commit 37680a3

Please sign in to comment.