kolibrios/programs/games/tetris/trunk/tetris.asm

; Date : 1st April 2001
; TETRIS for MENUET
; Author : Paolo Minazzi (email paolo.minazzi@inwind.it)
;
; -Note-
; 1. This program requires a PENTIUM or higher because uses the RDTSC
;    instrucion for get a random number.
; 2. You must use NASM to compile. Compiling is OK with NASM 0.98, I
;    don't know what happen with other versions.
; 3. You must use the arrow key to move and rotate a block.
; 4. In the near future there will be a new version of TETRIS. This is
;    only the beginning.
;
; Thanks to Ville, the author of this wonderful OS !
; Join with us to code !
;
;
; Changelog:
;
; 28.06.2001 - fasm port & framed blocks - Ville Turjanmaa
; 31.10.2001 - rdtsc replaced            - quickcode <quickcode@mail.ru>
; 03.11.2003 - added new blocks & random - Ivan Poddubny
;

LEN_X equ 14
LEN_Y equ 24
BORDER_LEFT equ 2
BORDER_RIGHT equ 2
BORDER_TOP equ 1
BORDER_BOTTOM equ 1
ADOBE_SIZE equ 12
X_LOCATION equ 6
Y_LOCATION equ 21
_MAXBLOCKS_ = 7*4
SCORE_TO_NEW_LEVEL equ 100000


use32

		org	0x0

		db	'MENUET01'    ; 8 byte id
		dd	0x01	      ; header version
		dd	START	      ; program start
		dd	I_END	      ; program image size
		dd	IM_END	      ; reguired amount of memory
		dd	IM_END	      ; esp
		dd	0x0,0x0       ; I_PARAM, I_ICON
include 'lang.inc'
START:				      ; start of execution

    mov   eax,3 		      ;
    int   0x40			      ;
    mov   cl,16 		      ;
    ror   eax,cl		      ; to make seconds more significant
    mov   [generator],eax	      ;
    call  random		      ;

    mov  byte[status],'0'
    mov  byte[menu],'0'
    call draw_window		      ; at first, draw the window

still:

    cmp  byte[status],'2'
    je	 attesa

    cmp  byte[status],'1'

    jne  attesa
    xor  edx,edx

    call draw_block


attesa:

    call mouse
    ;disabled because of bug
    ;EDIT: the bug is somewhere else..
    ;NOTE: dont release this without fixing the bug you lazy bastard!

    mov  eax,11 		      ; get event
    int  0x40

    cmp  eax,1			      ; redraw request ?
    jz	 red
    cmp  eax,2			      ; key in buffer ?
    jnz  check_button
    jmp  key
check_button:
    cmp  eax,3			      ; button in buffer ?
    jnz  scendi
    mov  eax,-1 		      ; close this program
    int  0x40

  red:				      ; redraw
    call draw_window
    jmp  still

parallel dd 1

scendi: 	cmp  byte[status],'1'
		jne  still

		cmp  byte[blabla],10
		je   blabla_0
		inc  byte[blabla]
		jmp  blabla_1
	      blabla_0:
		mov  byte[blabla],0
		inc  dword [current_block_y]
		call  check_crash
		jne   block_crash
	      blabla_1:


draw:		movzx edx,byte [current_block_color]
		call  draw_block
		mov   eax,5
		mov   ebx,5
		sub   ebx,[speed]
		int   0x40
		jmp   still

block_crash:	dec dword [current_block_y]
		movzx edx,byte [current_block_color]
		call draw_block
		call fix_block
		call check_full_line
		call draw_table
		call new_block
		call write_score
		call check_crash
		jz adr400
aspetta:	mov eax,10
		int 0x40
		cmp eax,1
		jne adr10000
		call draw_window
adr10000:	cmp eax,3
		jne aspetta

new_game:	mov dword [score],0
		mov dword [lines],0
		mov dword [level],0
		mov dword [speed],0
		mov byte [status],'1'
		call clear_table_tetris
		call first_block
		call new_block
		call draw_window

adr400: 	movzx edx,byte [current_block_color]
		call draw_block
		jmp still

include 'key.inc'
include 'mouse.inc'
include 'menu.inc'
include 'window.inc'
include 'block.inc'
include 'table.inc'
include 'random.inc'
include 'score.inc'

; DATA AREA

include 'blocks.inc'

  labelt:		db 'TETRIS II'
  scoretext:		db 'Score:'
  linestext:		db 'Lines:'
  speedtext:		db 'Speed:'
  leveltext:		db 'Level:'
  startgame:		db 'START'
  instr:		db 'INSTRUCTIONS'
  hist: 		db 'HISTORY'
  quit: 		db 'EXIT'
  paused:		db 'PAUSED'
  txt_end:

history:
    db 'TETRIS for MENUET v2.0            '
    db '                                  '
    db '                                  '
    db 'Originally made                   '
    db '               by Paolo Minazzi   '
    db '                                  '
    db 'Port & framed blocks              '
    db '               by Ville Turjanmaa '
    db '                                  '
    db 'RDTSC replaced                    '
    db '               by quickcode       '
    db '                                  '
    db 'New blocks & better random        '
    db '               by Ivan Poddubny   '
    db '                                  '
    db 'Better control, logo, menu, pause '
    db '               by Jeffrey Amelynck'

    db 'x <- END MARKER, DONT DELETE      '

instructions:
    db 'TETRIS for MENUET v2.0            '
    db '                                  '
    db 'Controls:                         '
    db '                                  '
    db 'Use left & right key to navigate  '
    db 'Use up key to turn the block      '
    db 'Use down key to make block fall   '
    db 'Use P to pause game               '
    db 'Use N to start a new game         '
    db 'Use ESC to go back to menu or exit'
    db 'You can also use the mouse to move'
    db 'the blocks, left button to let the'
    db 'blocks fall and right button to   '
    db 'rotate them                       '
    db 'you can pause the game by pressing'
    db 'both mouse buttons                '
    db '                                  '
    db 'DONT FORGET: move mouse out of the'
    db 'window if you want to use keyboard'

    db 'x <- END MARKER, DONT DELETE      '

I_END:

score:			dd 0
level:			dd 0
speed:			dd 0
lines:			dd 0
TMP_0:			dd 0
TMP_1:			dd 0
generator:		dd 0
current_block_x:	dd 0
current_block_y:	dd 0
current_block_pointer:	dd 0
current_block_color:	db 0
next_block_pointer:	dd 0
next_block_color:	db 0
blabla			dd 0
lastmousebutton 	dd 0
number_str:		db 0,0,0,0,0,0,0,0,0
end_number_str:
size_of_number_str	dd 7
delay:			dd 5
status: 		dd 0 ; 0=menu, 1=playing, 2=paused, 3=history , 4=instructions
menu:			dd 0 ; 0=start, 1=instructions, 2=history, 3=exit

table_tetris:		rb 2048+55

IM_END: