home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 1 (Norsk) / backpacker.iso / pc / data / misc / bpk.dxr / 00200_InitMapBase.ls < prev    next >
Encoding:
Text File  |  1995-02-28  |  804 b   |  15 lines
  1. on InitMapBase
  2.   global MapBase
  3.   set MapBase to [[363, 125], [397, 130], [367, 143], [372, 148], [386, 134], [395, 137], [389, 151], [377, 154], [559, 152], [387, 161], [392, 180], [405, 203], [396, 203], [413, 192], [544, 200], [537, 205], [560, 207], [513, 166], [438, 146], [468, 171], [447, 167], [462, 185], [477, 142], [465, 148], [443, 122], [446, 128], [453, 115], [450, 110], [451, 118], [463, 108], [429, 103], [452, 123], [454, 127], [472, 113], [454, 139], [441, 137], [438, 138], [459, 140], [448, 122], [460, 124], [487, 140], [463, 136], [468, 143], [470, 180], [524, 179], [494, 149], [520, 153], [522, 136], [507, 157], [536, 140]]
  4. end
  5.  
  6. on Infla P
  7.   global tYY
  8.   if tYY > 1995 then
  9.     repeat with n = 1 to tYY - 1995
  10.       set P to 104 * P / 100
  11.     end repeat
  12.   end if
  13.   return P
  14. end
  15.