Mercurial > repos > icfp2014

comparison code/gameState.lm @ 52:70423511f49d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gameState now runs in gcc to completion without runtime errors.
author William Morgan <billjunk@mrgn.org>
date Sun, 27 Jul 2014 14:50:50 -0700
parents 57a4bddadd46
children 2c790eabe379
comparison
equal deleted inserted replaced
51:a482086958e1 52:70423511f49d
123 123
124 print: 14 124 print: 14
125 // 1.) movement 125 // 1.) movement
126 res <- executeEvents: tick 1 events gameState 126 res <- executeEvents: tick 1 events gameState
127 events <- res value 127 events <- res value
128 gameState <- (res tail) value 128 gameState <- res tail
129 129
130 print: 15 130 print: 15
131 // 2.) actions 131 // 2.) actions
132 res <- executeEvents: tick 0 events gameState 132 res <- executeEvents: tick 0 events gameState
133 133 print: #[19 res]
134 events <- res value 134 events <- res value
135 gameState <- (res tail) value 135 gameState <- res tail
136 136
137 print: 16 137 print: 16
138 // 3.) collide pills powerpills fruit 138 // 3.) collide pills powerpills fruit
139 139
140 if: pillCount = 0 { 140 if: pillCount = 0 {
166 :runUntil { 166 :runUntil {
167 res <- 0 167 res <- 0
168 tick <- 1 168 tick <- 1
169 events <- [ 169 events <- [
170 endOfLives: 0 170 endOfLives: 0
171 //moveLambdaman: 0
171 ] 172 ]
172 print: 6 173 print: 6
173 gameState <- #[0 0] 174 gameState <- #[0 0]
174 while: {(tick < runUntil) myAnd: (not: (events empty?))} do: { 175 while: {(tick < runUntil) myAnd: (not: (events empty?))} do: {
175 print: 7 176 print: 7
194 ticker: 1000 195 ticker: 1000
195 print: 3 196 print: 3
196 197
197 #[0 0] 198 #[0 0]
198 } 199 }
199 200 /*
200 main <- :initWorld ghostCode{ 201 main <- :initWorld ghostCode{
201 #[0 step] 202 #[0 step]
202 } 203 }
204 */
205 main <- {
206 print: (step: 0 #[
207 //grid
208 [
209 [0 0 0 0]
210 [0 2 2 0]
211 [0 1 0 0]
212 [0 0 0 0]
213 ]
214 //lmstate
215 #[0 #[1 2] 2 3 0]
216 //ghost state
217 []
218 //fruit state
219 0
220 ])
221 }
203 } 222 }
204 223