?login_element?

Subversion Repositories NedoOS

Rev

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

  1. testspr=$+4
  2. _hgt=16
  3. _wid=8 ;width/2
  4.         db _wid
  5.         db _hgt
  6. _=_wid
  7.         dup _wid
  8.         dup _hgt*2
  9.         db (0xaa+$)&0xff
  10.         edup
  11. _=_-1
  12.         if _ != 0
  13.         dw 0x4000 - ((_hgt-1)*40)
  14.         else
  15.         dw 0xffff
  16.         endif
  17.         edup
  18.         dw prsprqwid
  19.  
  20. BULLETRIGHT=0xc000+(16*2)
  21. BULLETLEFT=0xc000+(17*2)
  22.  
  23. HEROSTANDRIGHT0=0xc000+(22*2)
  24. HEROSTANDRIGHT1=0xc000+(23*2)
  25. HEROSTANDLEFT0=0xc000+(24*2)
  26. HEROSTANDLEFT1=0xc000+(25*2)
  27. HERORUNRIGHT0=0xc000+(26*2)
  28. HERORUNRIGHT1=0xc000+(27*2)
  29. HERORUNRIGHT2=0xc000+(28*2)
  30. HERORUNLEFT0=0xc000+(29*2)
  31. HERORUNLEFT1=0xc000+(30*2)
  32. HERORUNLEFT2=0xc000+(31*2)
  33.  
  34. heroanim_runright
  35.         dw HERORUNRIGHT0
  36.         db 4
  37.         dw HERORUNRIGHT1
  38.         db 4
  39.         dw HERORUNRIGHT2
  40.         db 4
  41.         dw heroanim_runright
  42. heroanim_runleft
  43.         dw HERORUNLEFT0
  44.         db 4
  45.         dw HERORUNLEFT1
  46.         db 4
  47.         dw HERORUNLEFT2
  48.         db 4
  49.         dw heroanim_runleft
  50. heroanim_standright;=heroanim_runright
  51.         dw HEROSTANDRIGHT0
  52.         db 25
  53.         dw HEROSTANDRIGHT1
  54.         db 25
  55.         dw heroanim_standright
  56. heroanim_standleft;=heroanim_runleft
  57.         dw HEROSTANDLEFT0
  58.         db 25
  59.         dw HEROSTANDLEFT1
  60.         db 25
  61.         dw heroanim_standleft
  62.  
  63. bulletanim_right
  64.         dw BULLETRIGHT
  65.         db 50
  66.         dw bulletanim_right
  67.  
  68. bulletanim_left
  69.         dw BULLETLEFT
  70.         db 50
  71.         dw bulletanim_left
  72.  
  73.         STRUCT obj
  74. y16     WORD
  75. x16     WORD
  76. ;sprite16 WORD
  77. animtime BYTE
  78. animaddr16 WORD
  79. xspeed16 WORD
  80. yspeed16 WORD
  81. health  BYTE
  82. flags   BYTE ;b0=on ground, b1=jump not released, b2=blinking, b4=провалиться, b7=dead
  83. sz
  84.         ENDS
  85.  
  86. MAXOBJECTS=42
  87. MAXBULLETS=8
  88. TYPE_HERO=254
  89. OBJSIZE=obj.sz
  90.  
  91. objects
  92. ;y16 (*8)
  93. ;x16 (*8) (in double pixels)
  94. ;animtime
  95. ;animaddr16
  96. ;xspeed16
  97. ;yspeed16
  98. ;health
  99. _=0
  100. _x=10
  101.         dup 1
  102. _y=100
  103.         dup 1;  3
  104.        
  105.         dw 8*_y ;y
  106.         dw 8*(_x+(sprmaxwid-1)) ;x
  107.         ;dw HERO0
  108.         db 1
  109.         dw heroanim_standright
  110.         dw 1
  111.         dw 0
  112.         db 100
  113.         db 0 ;flags
  114. _=_+1
  115. _y=_y+40
  116.         edup
  117. _x=_x+20
  118.         edup
  119.         dw -1
  120.        
  121.         ds MAXOBJECTS*OBJSIZE
  122. endobjects
  123.  
  124. bullets
  125.         ds MAXBULLETS*OBJSIZE
  126. bulletlistend
  127.         dw -1
  128.