?login_element?

Subversion Repositories NedoOS

Rev

Rev 1107 | Blame | Compare with Previous | Last modification | View Log | Download

  1.         module CHUPA
  2. init:
  3.         SET_EXEC_IX update
  4. ;       call getCurrentLevelNumber
  5. ;       ld a,CHUPA_001_PBM_ID
  6. ;       call numberObjectsType
  7.         xor a
  8. ;       ld hl,coinsInLevelVar
  9. ;       ld (hl),a
  10. ;       inc hl
  11. ;       ld (hl),e
  12. ;       ld h,a
  13. ;       ld l,a
  14. ;       ld (pointsPerLevel),hl
  15.         ld (ix+oData.isMovable),a
  16.        if EGA
  17.         ld (ix+oData.drawMethod),2;a    ; for sprite 2x2 draw
  18.        else
  19.         ld (ix+oData.drawMethod),a      ; for 2x2 draw
  20.        endif
  21.         ld (ix+oData.accelerate),1
  22.        
  23.         ld (ix+oData.color),%01000110
  24.         ld a,r
  25.         and 3
  26.         ld (ix+oData.animationId),a
  27.         ld c,(ix+oData.cellId)
  28.         call getAttrAddrByCellId
  29.         ld (ix+oData.clrScrAddrL),e
  30.         ld (ix+oData.clrScrAddrH),d
  31.         call OBJECTS.setObjectId
  32.         ret
  33. ;------------------------------------
  34. update:
  35.         ld c,%00000011
  36.         call BOMB.blink
  37.         call delta7
  38.         ret nz
  39.         ld hl,CHUPA_001_PBM
  40.         ld c,4
  41.         jp animation2x2
  42. ;--------------------------------------
  43.         endmodule
  44.