WebSVN – Kolibri OS – Diff – /programs/games/tanks/trunk/tanks.asm



;*************************************************************
;*GAME TANKS CREATED BY ANDREY IGNATYEV AKA ANDREW_PROGRAMMER*
;*********************/8/2005*********************************
; version:      1.15
; last update:  19/08/2011
; changed by:   Marat Zakiyanov aka Mario79, aka Mario
; changes:      1) Checking for "rolled up" window

;---------------------------------------------------------------------
;Lipatov Kirill aka Leency /07/2011
;dunkaist /07/2011
;v1.1
;----------------------------------------------------------
format binary as ""
 
        use32
        org     0x0
        db      'MENUET01'
        dd      0x1
        dd      START

        cmp     eax,2
        jne     action
        and     [_dx],0
        and     [_dy],0
        mcall   2
 
;---------
        cmp     ah,32
        jne     key2
        cmp     [strike_action],0
        jne     action
        mov     [SpriteInfo+36+4],dword 1       ;can draw sprite "puly"
        mov     [strike_action],1               ;sprite is active

        add     ebx,edx
        mov     [SpriteInfo+36+8],dword eax
        mov     [SpriteInfo+36+12],dword ebx
        jmp     action
key2:
        cmp     ah,176
        jne     key3
        mov     [SpriteInfo+8*9+0],dword 8
        mov     [SpriteInfo+8*9+4],dword 1
        mov     [SpriteInfo+8*9+28],dword -5
        mov     [SpriteInfo+8*9+32],dword 0

        jne     action
        mov     [SpriteInfo+36+28],dword -5
        mov     [SpriteInfo+36+32],dword 0
        jmp     action
key3:
        cmp     ah,179
        jne     key4
        mov     [SpriteInfo+8*9+0],dword 4
        mov     [SpriteInfo+8*9+4],dword 1
        mov     [SpriteInfo+8*9+28],dword 5
        mov     [SpriteInfo+8*9+32],dword 0

        jne     action
        mov     [SpriteInfo+36+28],dword 5
        mov     [SpriteInfo+36+32],dword 0
        jmp     action
key4:
        cmp     ah,178
        jne     key5
        mov     [SpriteInfo+8*9+0],dword 2
        mov     [SpriteInfo+8*9+4],dword 1
        mov     [SpriteInfo+8*9+28],dword 0
        mov     [SpriteInfo+8*9+32],dword -5

        jne     action
        mov     [SpriteInfo+36+28],dword 0
        mov     [SpriteInfo+36+32],dword -5
        jmp     action
key5:
        cmp     ah,177
        jne     key6
        mov     [SpriteInfo+8*9+0],dword 6
        mov     [SpriteInfo+8*9+4],dword 1
        mov     [SpriteInfo+8*9+28],dword 0
        mov     [SpriteInfo+8*9+32],dword 5

        jne     action
        mov     [SpriteInfo+36+28],dword 0
        mov     [SpriteInfo+36+32],dword 5
        jmp     action
key6:
        cmp     ah,27
        jne     action
        mcall   -1
action:
        mov     [SpriteInfo+72+4],dword 1
        mov     [SpriteInfo+72+16],dword 5      ;usal speed of tank

.redraw:
        pop     eax
        jmp     restart_level
.key:
        mcall   2
 
        cmp     ah,32
        je      start_game
        cmp     ah,13
        je      start_game
        cmp     ah,176
        jne     no_left
        dec     [number_level]
        and     [number_level],15
        jmp     cycle_menu
no_left:
        cmp     ah,179
        jne     no_right
        inc     [number_level]
        and     [number_level],15
        jmp     cycle_menu
no_right:
        cmp     ah,27
        jne     cycle_menu
        mov     eax,-1
        mcall
        start_game:
        ret

Rev 2822	Rev 4854
Line 1...	Line 1...
1	;*************************************************************	1	;*************************************************************
2	;GAME TANKS CRETED BY ANDREY IGNATYEV AKA ANDREW_PROGRAMMER	2	;GAME TANKS CREATED BY ANDREY IGNATYEV AKA ANDREW_PROGRAMMER
3	;*******************/8/2005*******************************	3	;*******************/8/2005*******************************
4	; version: 1.15	4	; version: 1.15
5	; last update: 19/08/2011	5	; last update: 19/08/2011
6	; changed by: Marat Zakiyanov aka Mario79, aka Mario	6	; changed by: Marat Zakiyanov aka Mario79, aka Mario
7	; changes: 1) Checking for "rolled up" window	7	; changes: 1) Checking for "rolled up" window
Line 10...	Line 10...
10	;---------------------------------------------------------------------	10	;---------------------------------------------------------------------
11	;Lipatov Kirill aka Leency /07/2011	11	;Lipatov Kirill aka Leency /07/2011
12	;dunkaist /07/2011	12	;dunkaist /07/2011
13	;v1.1	13	;v1.1
14	;----------------------------------------------------------	14	;----------------------------------------------------------
-		15	format binary as ""
-		16
15	use32	17	use32
16	org 0x0	18	org 0x0
17	db 'MENUET01'	19	db 'MENUET01'
18	dd 0x1	20	dd 0x1
19	dd START	21	dd START
Line 358...	Line 360...
358	cmp eax,2	360	cmp eax,2
359	jne action	361	jne action
360	and [_dx],0	362	and [_dx],0
361	and [_dy],0	363	and [_dy],0
362	mcall 2	364	mcall 2
363	shr eax,8	-
364	;---------	365	;---------
365	cmp eax,32	366	cmp ah,32
366	jne key2	367	jne key2
367	cmp [strike_action],0	368	cmp [strike_action],0
368	jne action	369	jne action
369	mov [SpriteInfo+36+4],dword 1 ;can draw sprite "puly"	370	mov [SpriteInfo+36+4],dword 1 ;can draw sprite "puly"
370	mov [strike_action],1 ;sprite is active	371	mov [strike_action],1 ;sprite is active
Line 376...	Line 377...
376	add ebx,edx	377	add ebx,edx
377	mov [SpriteInfo+36+8],dword eax	378	mov [SpriteInfo+36+8],dword eax
378	mov [SpriteInfo+36+12],dword ebx	379	mov [SpriteInfo+36+12],dword ebx
379	jmp action	380	jmp action
380	key2:	381	key2:
381	cmp eax,176	382	cmp ah,176
382	jne key3	383	jne key3
383	mov [SpriteInfo+8*9+0],dword 8	384	mov [SpriteInfo+8*9+0],dword 8
384	mov [SpriteInfo+8*9+4],dword 1	385	mov [SpriteInfo+8*9+4],dword 1
385	mov [SpriteInfo+8*9+28],dword -5	386	mov [SpriteInfo+8*9+28],dword -5
386	mov [SpriteInfo+8*9+32],dword 0	387	mov [SpriteInfo+8*9+32],dword 0
Line 390...	Line 391...
390	jne action	391	jne action
391	mov [SpriteInfo+36+28],dword -5	392	mov [SpriteInfo+36+28],dword -5
392	mov [SpriteInfo+36+32],dword 0	393	mov [SpriteInfo+36+32],dword 0
393	jmp action	394	jmp action
394	key3:	395	key3:
395	cmp eax,179	396	cmp ah,179
396	jne key4	397	jne key4
397	mov [SpriteInfo+8*9+0],dword 4	398	mov [SpriteInfo+8*9+0],dword 4
398	mov [SpriteInfo+8*9+4],dword 1	399	mov [SpriteInfo+8*9+4],dword 1
399	mov [SpriteInfo+8*9+28],dword 5	400	mov [SpriteInfo+8*9+28],dword 5
400	mov [SpriteInfo+8*9+32],dword 0	401	mov [SpriteInfo+8*9+32],dword 0
Line 404...	Line 405...
404	jne action	405	jne action
405	mov [SpriteInfo+36+28],dword 5	406	mov [SpriteInfo+36+28],dword 5
406	mov [SpriteInfo+36+32],dword 0	407	mov [SpriteInfo+36+32],dword 0
407	jmp action	408	jmp action
408	key4:	409	key4:
409	cmp eax,178	410	cmp ah,178
410	jne key5	411	jne key5
411	mov [SpriteInfo+8*9+0],dword 2	412	mov [SpriteInfo+8*9+0],dword 2
412	mov [SpriteInfo+8*9+4],dword 1	413	mov [SpriteInfo+8*9+4],dword 1
413	mov [SpriteInfo+8*9+28],dword 0	414	mov [SpriteInfo+8*9+28],dword 0
414	mov [SpriteInfo+8*9+32],dword -5	415	mov [SpriteInfo+8*9+32],dword -5
Line 418...	Line 419...
418	jne action	419	jne action
419	mov [SpriteInfo+36+28],dword 0	420	mov [SpriteInfo+36+28],dword 0
420	mov [SpriteInfo+36+32],dword -5	421	mov [SpriteInfo+36+32],dword -5
421	jmp action	422	jmp action
422	key5:	423	key5:
423	cmp eax,177	424	cmp ah,177
424	jne key6	425	jne key6
425	mov [SpriteInfo+8*9+0],dword 6	426	mov [SpriteInfo+8*9+0],dword 6
426	mov [SpriteInfo+8*9+4],dword 1	427	mov [SpriteInfo+8*9+4],dword 1
427	mov [SpriteInfo+8*9+28],dword 0	428	mov [SpriteInfo+8*9+28],dword 0
428	mov [SpriteInfo+8*9+32],dword 5	429	mov [SpriteInfo+8*9+32],dword 5
Line 432...	Line 433...
432	jne action	433	jne action
433	mov [SpriteInfo+36+28],dword 0	434	mov [SpriteInfo+36+28],dword 0
434	mov [SpriteInfo+36+32],dword 5	435	mov [SpriteInfo+36+32],dword 5
435	jmp action	436	jmp action
436	key6:	437	key6:
437	cmp eax,27	438	cmp ah,27
438	jne action	439	jne action
439	mcall -1	440	mcall -1
440	action:	441	action:
441	mov [SpriteInfo+72+4],dword 1	442	mov [SpriteInfo+72+4],dword 1
442	mov [SpriteInfo+72+16],dword 5 ;usal speed of tank	443	mov [SpriteInfo+72+16],dword 5 ;usal speed of tank
Line 1192...	Line 1193...
1192	.redraw:	1193	.redraw:
1193	pop eax	1194	pop eax
1194	jmp restart_level	1195	jmp restart_level
1195	.key:	1196	.key:
1196	mcall 2	1197	mcall 2
1197	shr eax,8	-
1198	cmp eax,32	1198	cmp ah,32
1199	je start_game	1199	je start_game
1200	cmp eax,13	1200	cmp ah,13
1201	je start_game	1201	je start_game
1202	cmp eax,176	1202	cmp ah,176
1203	jne no_left	1203	jne no_left
1204	dec [number_level]	1204	dec [number_level]
1205	and [number_level],15	1205	and [number_level],15
1206	jmp cycle_menu	1206	jmp cycle_menu
1207	no_left:	1207	no_left:
1208	cmp eax,179	1208	cmp ah,179
1209	jne no_right	1209	jne no_right
1210	inc [number_level]	1210	inc [number_level]
1211	and [number_level],15	1211	and [number_level],15
1212	jmp cycle_menu	1212	jmp cycle_menu
1213	no_right:	1213	no_right:
1214	cmp eax,27	1214	cmp ah,27
1215	jne cycle_menu	1215	jne cycle_menu
1216	mov eax,-1	1216	mov eax,-1
1217	mcall	1217	mcall
1218	start_game:	1218	start_game:
1219	ret	1219	ret

Subversion Repositories Kolibri OS

(root)/programs/games/tanks/trunk/tanks.asm @ 2501 – Rev 2822 → 4854