Mercurial > vba-clojure

     1 ******** Game Sequence

     2 

     3 start game

     4 

     5 name rival "<space><PK>G<PK>G<PK>" 

     6 (0x7F 0xE1 0x86 0xE1 0x86 0xE1 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 pokeball, 1 potion, 1 antidote, 1 parlyz heal, 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 following 35 times]

    33 0xFF	

    34 0x01

    35 [end repeat]

    36 

    37 0x00

    38 0xFA          -- first part of "Load A from Literal address"

    39 

    40 third rival's name character

    41 xD5           -- target item address

    42 

    43 0x00

    44 0x3C          -- increment A register

    45 

    46 0x00

    47 0xEA          -- first part of "Save A to literal address"

    48 

    49 fifth rival's name character

    50 xD5           -- target item address

    51 

    52 0x00

    53 0xC3          -- first part of "Absolute Jump to literal address"

    54 

    55 burn-heal

    56 x 95          -- address of Route 3 memory-function

    57 

    58 0x00

    59 0x??

    60 

    61 Drop enough from rival's first character/ second character

    62 as an item so that it is [0x7F 0xD5] instead of [0x7F 0xE1].

    63 

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

    65 mem-function-address.

    66 

    67 now close the menu and continue item manipulations using the

    68 newly constructed program.  Starting and then canceling the

    69 start menu activates the program.

    70 

    71 **********  END Game Sequence

    72 

    73 

    74 

    75 

    76 [repeat 35 times]

    77 0xFF

    78 0x01

    79 [end repeat]

    80 

    81 

    82 ;;; program to swap item ID and quantity at fixed address.

    83 ;; here target is equal to rival's thrid and fourth character

    84 

    85 

    86 0x00

    87 0x21  ;; load target into HL

    88 

    89 third rival's name character

    90 xD5     -- target item address

    91 

    92 0x00

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

    94 

    95 0x00

    96 0x47  ;; save A to B

    97 

    98 0x00

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

   100 

   101 0x00

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

   103 

   104 0x00

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

   106 

   107 

   108 

   109 

   110 

   111 

   112 

   113 

   114 valid start addresses for the initial bootstrap program are

   115 the following:

   116 

   117 0xD31D - 0xD41B

   118      --OR--

   119 0xD53A - 0XD59C

   120 

   121 

   122 

   123 valid character-items:

   124 

   125    0x7F   " " ;space     [x]

   126    0x80   "A" ;          [x]

   127    0x81   "B" ;          [x]

   128    0x82   "C" ;          [x]

   129    0x83   "D" ;          [x]

   130    0x84   "E" ;          [x]

   131    0x85   "F" ;          [x]

   132    0x86   "G" ;          [x]

   133    0x87   "H" ;          [x]

   134    0x88   "I" ;          [x]

   135    0x89   "J" ;          [x]

   136    0x8A   "K" ;          [x]

   137    0x8B   "L" ;          [good]

   138    0x8C   "M" ;          [x]

   139    0x8D   "N" ;          [x] 

   140     --- last valid character for program start

   141    0x8E   "O" ;          [x] 

   142    0x8F   "P" ;          [x] 

   143    0x90   "Q" ;          [x] 

   144    0x91   "R" ;          [x]

   145    0x92   "S" ;          [x]

   146    0x93   "T" ;          [good]

   147    0x94   "U" ;          [good]

   148    0x95   "V" ;          [good]

   149    0x96   "W" ;          [x]

   150    0x97   "X" ;          [x]

   151    0x98   "Y" ;          [key]

   152    0x99   "Z" ;          [x]

   153    0x9A   "(" ;          [key]

   154    0x9B   ")" ;          [x]

   155    0x9C   ":" ;          [x]

   156     --- last valid character for target
author	Robert McIntyre <rlm@mit.edu>
date	Fri, 30 Mar 2012 22:48:31 -0500
parents	95afeea88c3a
children	bc1f62b269b5