WebSVN – Kolibri OS – Diff – /programs/games/pipes/pipes.asm

+;
 ;   l.mod. 27.08.06/15:11
+;
 ;   Compile with FASM
+;
+format binary as ""
 bgcolor  equ  0x0074744A      ;thx
 fgcolor  equ  0x00E7C750      ;to
 fg2color equ  0x00E0B0A0      ;colorref
 fg3color equ  0x007F7F55
 btcolor  equ  0x005B6200
     end if
   end while
+}
 use32
-	       org    0x0
+               org    0x0
-	       db     'MENUET01'	      ; 8 byte id
+               db     'MENUET01'              ; 8 byte id
-	       dd     0x01		      ; header version
+               dd     0x01                    ; header version
-	       dd     START		      ; start of code
+               dd     START                   ; start of code
-	       dd     I_END		      ; size of image
+               dd     I_END                   ; size of image
-	       dd     0x100000		      ; memory for app
+               dd     0x100000                ; memory for app
-	       dd     0x7fff0		      ; esp
+               dd     0x7fff0                 ; esp
-	       dd     0x0 , 0x0 	      ; I_Param , I_Icon
+               dd     0x0 , 0x0               ; I_Param , I_Icon
-START:				; start of execution
+START:                          ; start of execution
      jmp red
 still:
     mcall 10            ; wait here for event
-    cmp  eax,1			; redraw request ?
+    cmp  eax,1                  ; redraw request ?
      je  red
-    cmp  eax,2			; key in buffer ?
+    cmp  eax,2                  ; key in buffer ?
      je  key
-    cmp  eax,3			; button in buffer ?
+    cmp  eax,3                  ; button in buffer ?
      je  button
     jmp  still
-  red:				; redraw
+  red:                          ; redraw
     call draw_window
     call draw_board
     call draw_message
     jmp  still
-  key:				; key
+  key:                          ; key
-    mcall 2			; just read it and ignore
+    mcall 2                     ; just read it and ignore
     jmp  still
-  button:			; button
+  button:                       ; button
     call get_input
     jmp  still
 get_input:
 pusha
     call wassermarsch
     jmp  .getno
   .board:
     cmp  [stat],2
     jge  .getno
-    shr  eax,8			; -> 24bit id
+    shr  eax,8                  ; -> 24bit id
     cmp  eax,10
     jle  .getno
     cmp  eax,150
-    jg	 .getno
+    jg   .getno
     sub  eax,10
     mov  edi,eax
     add   edi,map
     cmp   [edi], byte 1
-    jg	  .nogerade
+    jg    .nogerade
     xor   byte [edi], 1
     call  draw_board
     jmp   .getno
   .nogerade:
     cmp   [edi], byte 6
     call  draw_board
   .getno:
 popa
 ret
 ;//// end of event detection
-get_direction:		    ;Setzt Richtungs-Konstanten
+get_direction:              ;Setzt Richtungs-Konstanten
-pusha			    ;IN:
+pusha                       ;IN:
-mov eax,[esp+28]	    ;eax  -  Richtung IN
+mov eax,[esp+28]            ;eax  -  Richtung IN
-mov ebx,[esp+16]	    ;ebx  -  Teilchen (Map-Wert)
+mov ebx,[esp+16]            ;ebx  -  Teilchen (Map-Wert)
-cmp ebx,0		    ;OUT:
+cmp ebx,0                   ;OUT:
-jne .no0		    ;eax  -  Richtung OUT
+jne .no0                    ;eax  -  Richtung OUT
   cmp eax,14
   jne .o0
   jmp .setout
   .o0:
   cmp eax,-14
   cmp eax,14
   jne .col
   mov [stat],1
   jmp .setout
 .no8:
-cmp ebx,16	  ; cross 2x
+cmp ebx,16        ; cross 2x
 jne .col
   add [score],10  ; + 10 bonus points
   jmp .setout
 .col:
 xor eax,eax
 .nored:
 cmp  eax,3
 jne  .nothing
 call get_input
 .nothing:
-cmp  [stat],0	      ;bugfix 210806
+cmp  [stat],0         ;bugfix 210806
-jnz  .exitsub	      ;bugfix 210806
+jnz  .exitsub         ;bugfix 210806
 dec  ecx
 jnz  .down
 dec  [time]
 jnz   .udown
-.exitsub:	      ;bugfix 210806
+.exitsub:             ;bugfix 210806
 popa
 ret
 wassermarsch:
 pusha
    .restart:
-     mov  esi,map+16	      ;start position
+     mov  esi,map+16          ;start position
-     mov  eax, 14	      ;start-richtung
+     mov  eax, 14             ;start-richtung
    .findway:
      movzx ebx, byte [esi]
      call  get_direction
      test  eax,eax
      jz   .collision
      push  eax
       xor   eax,eax
       mov   al,6
       sub   al,[diffic]
-      add   [score],eax 	 ;points/item = 6 - difficulty
+      add   [score],eax          ;points/item = 6 - difficulty
       mov   ecx,dword [speed]
       add   byte [esi],10
       .down:
       mov   eax,5
     mov   eax,5
     mov   ebx,500
     mcall
     mov [stat],0
     inc [level]
-    cmp [speed],6		 ;waterflowdelay < 6 ?
+    cmp [speed],6                ;waterflowdelay < 6 ?
     jle .skipsub
     sub [speed],2
    .skipsub:
     call draw_window
     call scramble_board
 popa
 ret
 show_score:
 pusha
-mov  eax,13			 ;clear time and score area
+mov  eax,13                      ;clear time and score area
 mov  ebx,50 shl 16 +15
 mov  ecx,395 shl 16 +15
 mov  edx,bgcolor
 mcall
 scramble_board:
 pusha
 mov edi,map+16 ;startpunkt
 mov eax,7      ;wieder-
-stosb	       ;herstellen
+stosb          ;herstellen
 mov ebx, 0x00000007  ;modul         m max-wert
 .loop_through:
 mov   esi,edi
 lodsb
 cmp   eax, 9
  je   .skip
 inc   eax
 xor   edx, edx
-div   ebx	    ;modulo -> edx
+div   ebx           ;modulo -> edx
 mov   eax, edx
 cmp   eax,6
 jne   .skip
 ret
 gen_image:
 pusha
-    xor   ebx,ebx	   ;default: kein wasser
+    xor   ebx,ebx          ;default: kein wasser
     movzx eax,byte [map]   ;erstes byte der map lesen (position)
-    inc   byte [map]	   ;position inkrementieren
+    inc   byte [map]       ;position inkrementieren
-    add   eax,map	   ;zur position die map-adresse addieren
+    add   eax,map          ;zur position die map-adresse addieren
     movzx  esi,byte [eax]
     cmp   esi,10
-    jl	  .nowater
+    jl    .nowater
-    sub   esi,10	  ;map-werte+10 sind mit wasser gefuellt
+    sub   esi,10          ;map-werte+10 sind mit wasser gefuellt
     mov   ebx,1
     cmp   esi,16
     jne   .nowater
     sub   esi,10
  .nowater:
-   imul  esi,3072	  ;mapwert * 32*32*3 = image-adresse
+   imul  esi,3072         ;mapwert * 32*32*3 = image-adresse
     add  esi,images
     mov  edi,0x10000
     mov  ecx,32*32*3
- .gendd:		  ;RGB-Image im Speicher generieren
+ .gendd:                  ;RGB-Image im Speicher generieren
     mov   eax,dword [esi] ;byte aus imagemap lesen
     shl   eax,8
     shr   eax,8
     cmp   ebx,0
-    jz	  .nowcolor
+    jz    .nowcolor
     mov   ebx,eax
     cmp   ebx,0x00B0B5B0
     jne   .nog1
 ;   *******  WINDOW DEFINITIONS AND DRAW ********
 ;   *********************************************
 draw_message:
 pusha
     cmp  [stat],0
-	je .nomessage
+        je .nomessage
     mov  eax,13
     mov  ebx,146 shl 16 + 200
     mov  ecx,190 shl 16 + 40
     mov  edx,0x0
     mcall
     add  ebx,2 shl 16 - 4
     add  ecx,2 shl 16 - 4
     mov  edx,fgcolor
     mcall
-	cmp  [stat],3
+        cmp  [stat],3
-	jne .stat1
+        jne .stat1
     mov   eax,4
     mov   ebx,174 shl 16 +206
     mov   edx,lbl_start_a_new_game+1
     movzx esi,byte [lbl_start_a_new_game]
     mov   ecx,btcolor
     add   ecx,0x10000000
     mcall
-    jmp	.nomessage
+    jmp .nomessage
   .stat1:
     cmp   [stat],1
      je   .winmessage
     mov   eax,4
     add   ebx,8 shl 16 +17
     mov   edx,lbl_yscore+1
     movzx esi,byte [lbl_yscore]
     mov   ecx,btcolor
     mcall
-    mov   esi,ecx	;color
+    mov   esi,ecx       ;color
-    mov   edx,ebx	;pos
+    mov   edx,ebx       ;pos
     add   edx,80 shl 16
-    mov   ebx,0x50000	 ;type
+    mov   ebx,0x50000    ;type
-    mov   ecx,[score]	 ;inp
+    mov   ecx,[score]    ;inp
     mov   eax,47
     mcall
     jmp   .nomessage
    .winmessage:
     mov   eax,4
 draw_board:
 pusha
  mov  ebx,15*65536+32
  mov  ecx,50*65536+32
- mov  edx,15*65536+50		 ;Spielfeldposition
+ mov  edx,15*65536+50            ;Spielfeldposition
- mov  esi,10			  ;Spielfeldgroesse Y
+ mov  esi,10                      ;Spielfeldgroesse Y
  .vloop:
-  mov  edi,14			 ;Spielfeldgroesse X
+  mov  edi,14                    ;Spielfeldgroesse X
   .hloop:
     call gen_image
     push edx
     mov  eax,8
     movsx edx, byte [map]
-    add  edx,9		    ;button-id = map-pos + 10;gen_image inkrements
+    add  edx,9              ;button-id = map-pos + 10;gen_image inkrements
     add  edx,0x80000000     ;first delete previous button
-	mcall
+        mcall
     sub  edx,0x30000000     ;first delete previous button
     mcall
     pop  edx
     push ebx
     pop  ebx
     add  edx,33 shl 16
     add  ebx,33 shl 16
     dec  edi
     jnz  .hloop
-  sub  edx,14*(33 shl 16)	 ;Spielfeldgroesse X
+  sub  edx,14*(33 shl 16)        ;Spielfeldgroesse X
   sub  ebx,14*(33 shl 16)
   add  edx,33
   add  ecx,33 shl 16
   dec  esi
   jnz  .vloop
-  mov  [map], byte 1		 ;Map-Position zuruecksetzen
+  mov  [map], byte 1             ;Map-Position zuruecksetzen
 popa
 ret
 draw_window:
 pusha
     mcall 12,1
-    mov  eax,0			   ; function 0 : define and draw window
+    mov  eax,0                     ; function 0 : define and draw window
-    mov  ebx,100*65536+492	   ; [x start] *65536 + [x size]
+    mov  ebx,100*65536+492         ; [x start] *65536 + [x size]
-    mov  ecx,100*65536+420	   ; [y start] *65536 + [y size]
+    mov  ecx,100*65536+420         ; [y start] *65536 + [y size]
-    mov  edx,bgcolor		   ; color of work area RRGGBB,8->color gl
+    mov  edx,bgcolor               ; color of work area RRGGBB,8->color gl
     or   edx,0x14000000
      db 22
      db 'Start a new game first'
 lbl_win:
      db 32
      db '          G r e a t !           '
-     db "        Let's goin'on!          "
+     db "       Let's keep going!        "
 lbl_yscore:
      db 11
      db 'Your Score:'
 lbl_toolbar:
      db 43
      db 'v1.21 2006,Mario Birkner'
 lbl_score:
      db 28
      db   'Time:    Score:       Level:'
 end if
-stat	db 3  ;0=gameplay 1=won 2-lost 3=stopped
+stat    db 3  ;0=gameplay 1=won 2-lost 3=stopped
-speed	db 0
+speed   db 0
-time	dd 0
+time    dd 0
-diffic	db 0  ;1=hard 3=moderate 5=easy 8=dedicated to Wildwest - try it out!
+diffic  db 0  ;1=hard 3=moderate 5=easy 8=dedicated to Wildwest - try it out!
-score	dd 0
+score   dd 0
-level	dd 1
+level   dd 1
-half	db 1  ;reduces the random-crosses
+half    db 1  ;reduces the random-crosses
-map:	   ;14*10 blocks + position
+map:       ;14*10 blocks + position
      db 1  ;<- act. position
      db 9,9,9,9,9,9,9,9,9,9,9,9,9,9
      db 9,7,1,3,2,0,1,1,0,3,4,4,3,9
      db 9,5,0,2,2,1,3,0,3,1,1,6,4,9

Subversion Repositories Kolibri OS

(root)/programs/games/pipes/pipes.asm – Rev 3930 → 4697