asm/mapscripts/level01.awa

   1 /*
   2  * This program is free software: you can redistribute it and/or modify
   3  * it under the terms of the GNU General Public License as published by
   4  * the Free Software Foundation, either version 3 of the License, or
   5  * (at your option) any later version.
   6  *
   7  * This program is distributed in the hope that it will be useful,
   8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
   9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  10  * GNU General Public License for more details.
  11  *
  12  * You should have received a copy of the GNU General Public License
  13  * along with this program.  If not, see <http://www.gnu.org/licenses/>.
  14  */
  15 include: ../imports.awa
  16 include: ../roomscripts.awa
  17
  18
  19 eproc: entry_local_room_onload
  20   ; move first item to player
  21   rst FRST_GET_RAND
  22   rst FRST_DEBUG_PRINT_NUM, [rst_result]
  23   rst FRST_DEBUG_PRINT_STR, -10
  24   ;
  25   dbgprintstr "level: "
  26   dbgprintnumnl [cur_level]
  27   ;
  28   bsr first_to_me
  29   ret
  30 endp: entry_local_room_onload
  31
  32
  33 eproc: entry_local_room_script_onunload
  34   rst FRST_DEBUG_PRINT_STR, .msg_unloading
  35   ret
  36 .msg_unloading: dz: "MESSAGE: unloading map script.\n"
  37 endp: entry_local_room_script_onunload
  38
  39
  40 proc: first_to_me
  41 locals: .px, .py
  42   get 0, pos_x, [.px]
  43   get 0, pos_y, [.py]
  44   rst FRST_GET_RAND, 1, 5
  45   ;rst FRST_DEBUG_PRINT_NUM, [rst_result]
  46   ;rst FRST_DEBUG_PRINT_STR, -10
  47   add [.px], [rst_result]
  48   rst FRST_GET_RAND, 0, 12
  49   ;rst FRST_DEBUG_PRINT_NUM, [rst_result]
  50   ;rst FRST_DEBUG_PRINT_STR, -10
  51   sub [.py], [rst_result]
  52   set pos_x, [.px], 1
  53   set pos_y, [.py], 1
  54   ret
  55 endp: first_to_me