Mercurial > vba-clojure

     1 ******** Game Sequence

     2 

     3 start game

     4 

     5 name rival "L<PK>U<PK><PK><any-character>" 

     6 (0x8B 0xE1 0x95 0xE1 0xE1 0x<any> in character codes)

     7 

     8 get pikachu, fight rival, deliver oak's parcel, go back to

     9 viridian poke mart.

    10 

    11 Perform save corruption.

    12 

    13 switch 6th pokemon with 9th to set current-items to 0xFF

    14 

    15 Sell 254 cancel-buttons to get a bunch of money.

    16 

    17 buy a pokeball to repair item-list

    18 

    19 buy 1 potion, 1 antidote, 1 parlyz heal, 2 pokeballs, and

    20 96 burn heals

    21 

    22 95 burn heals spells out the address that will safely return

    23 control to the pokemon kernel.

    24 

    25 switch 5th pokemon with 9th to set current-items to 0xFF,

    26 corrupting the item-list again.

    27 

    28 Deposit things from your item list to get the following

    29 pattern in the item computer.  You can do this with what is

    30 in your item list because of the previous setup.

    31 

    32 [repeat the following 25 times]

    33 0xFF	

    34 0x01

    35 [end repeat]

    36 

    37 ;; Second part of program to swap item ID and quantity at

    38 ;; fixed address.

    39 

    40 0x00  ;; decrement HL

    41 0x2B

    42 

    43 0x00  ;; this starts at address 0xD56C

    44 0x2A  ;; save (HL)=(target) to A, increment HL

    45 

    46 0x00

    47 0x47  ;; save A to B

    48 

    49 0x00

    50 0x3A  ;; save (target+1) to A, decrement HL

    51 

    52 0x00

    53 0x22  ;; save A to target, increment HL [(target+1) -> target]

    54  

    55 0x00

    56 0x70  ;; load B into target+1 [(target) -> target+1]

    57 

    58 0x00

    59 0xC3  ;; first part of absolute jump                           

    60 

    61 burn-heal   (0x0C) 

    62 x 95        (0x5F)  -- address of Route 3 memory-function

    63 

    64 [repeat the following 4 times]

    65 0xFF

    66 0x01

    67 [end repeat]

    68 

    69 ;; first part of item manipulation program

    70 

    71 0x00  ;; this starts at address 0xD58A

    72 0x21  ;; load target into HL

    73 

    74 third rival's name character (U == 0x94)

    75 x D5     -- target item address

    76 

    77 0x00

    78 0x18  ;; jump relative

    79 

    80 fifth rival's name character (PK) (TM25) (0xE1 == -31)

    81 x any

    82 

    83 0xFF

    84 0x01

    85 

    86 target-item type  (at 0xD594)

    87 target-item quantity (at 0xD595)

    88 

    89 

    90 

    91 Drop enough from rival's first character/ third character

    92 as an item so that it is [_ 0xD5] instead of [_ 0xE1].

    93 

    94 shift rival's name's first two characters into

    95 mem-function-address.

    96 

    97 now close the menu and continue item manipulations using the

    98 newly constructed program.  Starting and then canceling the

    99 start menu activates the program.

   100 

   101 **********  END Game Sequence

   102 

   103 

   104 

   105 

   106 

   107 

   108 ************  Misc Notes.

   109 

   110 valid start addresses for the initial bootstrap program are

   111 the following:

   112 

   113 0xD31D - 0xD41B

   114      --OR--

   115 0xD53A - 0XD59C

   116 

   117 

   118 

   119 valid character-items:

   120 

   121    0x7F   " " ;space     [x]

   122    0x80   "A" ;          [x]

   123    0x81   "B" ;          [x]

   124    0x82   "C" ;          [x]

   125    0x83   "D" ;          [x]

   126    0x84   "E" ;          [x]

   127    0x85   "F" ;          [x]

   128    0x86   "G" ;          [x]

   129    0x87   "H" ;          [x]

   130    0x88   "I" ;          [x]

   131    0x89   "J" ;          [x]

   132    0x8A   "K" ;          [x]

   133    0x8B   "L" ;          [good]

   134    0x8C   "M" ;          [x]

   135    0x8D   "N" ;          [x] 

   136     --- last valid character for program start

   137    0x8E   "O" ;          [x] 

   138    0x8F   "P" ;          [x] 

   139    0x90   "Q" ;          [x] 

   140    0x91   "R" ;          [x]

   141    0x92   "S" ;          [x]

   142    0x93   "T" ;          [good]

   143    0x94   "U" ;          [good] [key :(]

   144    0x95   "V" ;          [good]

   145    0x96   "W" ;          [x]

   146    0x97   "X" ;          [x]

   147    0x98   "Y" ;          [key]

   148    0x99   "Z" ;          [x]

   149    0x9A   "(" ;          [key]

   150    0x9B   ")" ;          [x]

   151    0x9C   ":" ;          [x]

   152     --- last valid character for target

   153 

   154 

   155 

   156 ;;; character canadates for jump-relative backwards

   157 

   158    0xE1   "PK" ;          [TM25]

   159    0xE2   "MN" ;          [TM26]

   160    0xE6   "?"  ;          [TM30]

   161    0xE7   "!"  ;          [TM31]

   162    0xE8   "."  ;          [TM32]
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 01 Sep 2012 04:19:15 -0500
parents	5c2041d1cdda
children