forked from KolibriOS/kolibrios
254 lines
5.9 KiB
NASM
254 lines
5.9 KiB
NASM
; 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:
|