Mercurial > repos > icfp2014
annotate code/ghost0.gq @ 69:8a0f1447c034
Implement plain if in gqc and use it in ghost0. This provides a small improvement in code size
| author | Michael Pavone <pavone@retrodev.com> |
|---|---|
| date | Sun, 27 Jul 2014 23:19:23 -0700 |
| parents | f4f403c83e80 |
| children |
| rev | line source |
|---|---|
| 66 | 1 #{ |
| 2 up <- 0 | |
| 3 right <- 1 | |
| 4 down <- 2 | |
| 5 left <- 3 | |
| 6 | |
| 7 getDirX <- :dir startX { | |
| 8 if: dir = right { | |
| 9 startX <- startX + 1 | |
| 10 } else: { | |
| 11 if: dir = left { | |
| 12 startX <- startX - 1 | |
|
69
8a0f1447c034
Implement plain if in gqc and use it in ghost0. This provides a small improvement in code size
Michael Pavone <pavone@retrodev.com>
parents:
68
diff
changeset
|
13 } |
| 66 | 14 } |
| 15 startX | |
| 16 } | |
| 17 | |
| 18 getDirY <- :dir startY { | |
| 19 if: dir = up { | |
| 20 startY <- startY - 1 | |
| 21 } else: { | |
| 22 if: dir = down { | |
| 23 startY <- startY + 1 | |
|
69
8a0f1447c034
Implement plain if in gqc and use it in ghost0. This provides a small improvement in code size
Michael Pavone <pavone@retrodev.com>
parents:
68
diff
changeset
|
24 } |
| 66 | 25 } |
| 26 startY | |
| 27 } | |
| 28 | |
| 29 opDir <- :dir { | |
| 30 if: dir < 2 { | |
| 31 dir <- dir + 2 | |
| 32 } else: { | |
| 33 dir <- dir - 2 | |
| 34 } | |
| 35 dir | |
| 36 } | |
| 37 | |
| 38 goTowardsX:Y <- :targetX targetY { | |
| 39 myIdx <- (me: ) | |
| 40 myX <- ghostPos: myIdx | |
| 41 myY <- yCoord | |
| 42 myVit <- ghostStatus: myIdx | |
| 43 myDir <- direction | |
| 44 | |
| 45 | |
| 46 firstChoice <- 0 | |
| 47 secondChoice <- 0 | |
| 48 | |
| 49 if: myX > targetX { | |
| 50 //ghost is to the right of target | |
| 51 if: myY > targetY { | |
| 52 //ghost is below target | |
| 53 if: (myX - targetX) > (myY - targetY) { | |
| 54 //target is more left than up | |
| 55 firstChoice <- left | |
| 56 secondChoice <- up | |
| 57 } else: { | |
| 58 firstChoice <- up | |
| 59 secondChoice <- left | |
| 60 } | |
| 61 } else: { | |
| 62 //ghost is above or directly to the right of target | |
| 63 if: (myX - targetX) > (targetY - myY) { | |
| 64 //target is more left than down | |
| 65 firstChoice <- left | |
| 66 secondChoice <- down | |
| 67 } else: { | |
| 68 //target is more down than left | |
| 69 firstChoice <- down | |
| 70 secondChoice <- left | |
| 71 } | |
| 72 } | |
| 73 } else: { | |
| 74 //ghost is to the left of or directly above/below target | |
| 75 if: myY > targetY { | |
| 76 //ghost is below target | |
| 77 if: (targetX - myX) > (myY - targetY) { | |
| 78 //target is more right than up | |
| 79 firstChoice <- right | |
| 80 secondChoice <- up | |
| 81 } else: { | |
| 82 firstChoice <- up | |
| 83 secondChoice <- right | |
| 84 } | |
| 85 } else: { | |
| 86 //ghost is above or directly to the left of target | |
| 87 if: (targetX - myX) > (targetY - myY) { | |
| 88 //target is more right than down | |
| 89 firstChoice <- right | |
| 90 secondChoice <- down | |
| 91 } else: { | |
| 92 //target is more down than right | |
| 93 firstChoice <- down | |
| 94 secondChoice <- right | |
| 95 } | |
| 96 } | |
| 97 } | |
| 98 if: myVit = 1 { | |
| 99 //currently in fright mode, try to run away | |
| 100 firstChoice <- opDir: firstChoice | |
| 101 secondChoice <- opDir: secondChoice | |
|
69
8a0f1447c034
Implement plain if in gqc and use it in ghost0. This provides a small improvement in code size
Michael Pavone <pavone@retrodev.com>
parents:
68
diff
changeset
|
102 } |
| 66 | 103 |
| 104 | |
| 105 | |
| 106 tmp <- 0 | |
| 107 i <- 0 | |
|
68
f4f403c83e80
Small ghost AI change. Doesn't seem to change results, but closer to my actual intent
Michael Pavone <pavone@retrodev.com>
parents:
66
diff
changeset
|
108 while: { i < 3} do: { |
| 66 | 109 targetX <- getDirX: firstChoice myX |
| 110 targetY <- getDirY: firstChoice myY | |
| 111 | |
| 112 if: (mapContentsAt: targetX targetY) - 1 > 4 { | |
| 113 //first choice is a wall or ghost start pos | |
| 114 tmp <- firstChoice | |
| 115 firstChoice <- secondChoice | |
| 116 secondChoice <- opDir: firstChoice | |
| 117 i <- i + 1 | |
| 118 } else: { | |
| 119 if: firstChoice = (opDir: myDir) { | |
| 120 //first choice is backwards | |
| 121 tmp <- firstChoice | |
| 122 firstChoice <- secondChoice | |
| 123 secondChoice <- opDir: firstChoice | |
| 124 i <- i + 1 | |
| 125 } else: { | |
|
68
f4f403c83e80
Small ghost AI change. Doesn't seem to change results, but closer to my actual intent
Michael Pavone <pavone@retrodev.com>
parents:
66
diff
changeset
|
126 i <- 3 |
| 66 | 127 } |
| 128 } | |
| 129 } | |
| 130 direction!: firstChoice | |
| 131 | |
| 132 0 | |
| 133 } | |
| 134 | |
| 135 //chases lambda man | |
| 136 main <- { | |
| 137 lambdamanPos: | |
| 138 goTowardsX: xCoord Y: yCoord | |
| 139 } | |
| 140 } |