Mercurial > vba-clojure

comparison clojure/com/aurellem/run/bootstrap_1.clj @ 594:ea448eecb615

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improved route from celadon dept. store to celadon pokemon center.
author Robert McIntyre <rlm@mit.edu>
date Sat, 01 Sep 2012 12:52:46 -0500
parents daa3497bbe12
children 96ee9d72aeb9
comparison
equal deleted inserted replaced
593:daa3497bbe12 594:ea448eecb615
297 ([script] 297 ([script]
298 (->> script 298 (->> script
299 talk 299 talk
300 (set-cursor 1) 300 (set-cursor 1)
301 (select-menu-entry) 301 (select-menu-entry)
302
303 ;; These glitch items have to be sold one at a time
304 ;; because the game will only award up to 500000 at
305 ;; a time for selling them.
302 (sell-held-item 0 1) 306 (sell-held-item 0 1)
303 (sell-held-item 0 1) 307 (sell-held-item 0 1)
308
304 (close-menu)))) 309 (close-menu))))
305 310
306 (defn-memo floor-two-TMs 311 (defn-memo floor-two-TMs
307 ([] (floor-two-TMs (get-money-floor-two))) 312 ([] (floor-two-TMs (get-money-floor-two)))
308 ([script] 313 ([script]
444 449
445 (defn-memo get-TM13 450 (defn-memo get-TM13
446 ([] (get-TM13 (roof-drinks))) 451 ([] (get-TM13 (roof-drinks)))
447 ([script] 452 ([script]
448 (->> script 453 (->> script
454 ;; alternate route depending on girl's motions
449 ;;(walk [← ← ← ← ← ← ↓]) 455 ;;(walk [← ← ← ← ← ← ↓])
450 (walk [↓ ↓ ↓ ← ← ← ← ← ←]) 456 (walk [↓ ↓ ↓ ← ← ← ← ← ←])
451 (play-moves [[][][][][:a][:a][]]) 457 (play-moves [[][][][][:a][:a][]])
452 (scroll-text 3) 458 (scroll-text 3)
453 select-menu-entry 459 select-menu-entry
457 463
458 (defn-memo to-celadon-poke-center 464 (defn-memo to-celadon-poke-center
459 ([] (to-celadon-poke-center (get-TM13))) 465 ([] (to-celadon-poke-center (get-TM13)))
460 ([script] 466 ([script]
461 (->> script 467 (->> script
468 ;; alternate route depending on girl's motions
462 ;;(walk [↑ → → → → → → → → → ↑]) ; leave roof 469 ;;(walk [↑ → → → → → → → → → ↑]) ; leave roof
463 (walk [→ → → → → → → → → ↑ ↑ ↑ ↑]) 470 (walk [→ → → → → → → → → ↑ ↑ ↑ ↑])
464 (walk [↓ ← ← ← ← ↓ ↓ ↓ ← ← ← ← ← 471 (walk [↓ ← ← ← ← ↓ ↓ ↓ ← ← ← ← ←
465 ↑ ↑ ↑ ← ← ↑]) ; to elevator 472 ↑ ↑ ↑ ← ← ↑]) ; to elevator
466 473
467 (walk [→ → ↑ ↑]) ; to controls 474 (walk [→ → ↑ ↑]) ; to controls
468 talk 475 talk
469 select-menu-entry ; to floor 1 476 select-menu-entry ; to floor 1
470 (walk [↓ ↓ ← ←]) 477 (walk [↓ ↓ ←])
471 (walk [↓ → ↓ ↓ ↓ ↓ ↓ ↓]) ; leave store 478 (walk [↓ → ↓ ↓ ↓ ↓ ↓ ↓]) ; leave store
472 (walk [↓ → → → → → → → → → → ↑ ↑]) 479 (walk [→ → → → → → → → → → ↑])
473 (walk (repeat 23 →)) 480 (walk (repeat 23 →))
474 (walk [↑ ↑ ↑ ↑]) ; enter poke center 481 (walk [↑ ↑ ↑ ↑]) ; enter poke center
475 (walk [↑ ↑ ↑ → → → → → → → → → →]) ; to computer 482 (walk [↑ ↑ ↑ → → → → → → → → → →]) ; to computer
476 (turn ↑)))) 483 (turn ↑))))
477 484