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

 ;************************************************************
 ;*GAME TANKS CRETED BY ANDREW_PROGRAMMER AKA ANDREY IGNATYEV*
 ;*********************/8/2005********************************
-;Leency aka Lipatov Kirill 19.07.2011: update and some fixes
+;Leency aka Lipatov Kirill /07/2011
+;dunkaist /07/2011
-;                      v1.02
+;                      v1.1
-; bug: window can't end redraw untill new game wasn't start
-; if press close button it goes to infinite loop
 use32
 org 0x0
 include 'lang.inc'
 	 ;-------------------------------------------------
 	 mov eax,23
 	 mov ebx,3
 	 mcall
 	 cmp eax,1
-	 jne keypressed
+	 je .redraw
+	 cmp eax,2
+	 je .key
+	 cmp eax,3
+	 je .button
+	 jmp action
+.button:
+	mcall 63,1,'o'
+	 mcall -1
+.redraw:
 	 call drawwin
 	 jmp action
+.key:
 	 keypressed:
 	 cmp eax,2
 	 jne action
 	 and [_dx],0
 	 and [_dy],0
 	 mcall 4,330*65536+5,0xf93500,Score,5
 	 mov eax,47
 	 mov ebx,3*65536
 	 mov ecx,[number_level]
-	 inc ecx
+	 ;inc ecx //leency
 	 mov edx,225*65536+5
 	 mov esi,0x1ded00
 	 mcall
 	 mov eax,47
 	 mov ebx,1*65536+640
 	 mov ecx,20*65536+400
 	 mov edx,0xc6e9
 	 mcall
 	 mov eax,4
-	 mov ebx,220*65536+190
+	 mov ebx,255*65536+190
 	 mov ecx,0xffffff
 	 mov edx,won1
 	 mov esi,29
 	 mcall
 	 mov eax,4
-	 mov ebx,220*65536+200
+	 mov ebx,255*65536+200
 	 mov ecx,0xffffff
 	 mov edx,won2
 	 mov esi,29
 	 mcall
 	 mov eax,4
-	 mov ebx,220*65536+210
+	 mov ebx,255*65536+210
 	 mov ecx,0xffffff
 	 mov edx,won3
 	 mov esi,29
 	 mcall
 	 mov eax,5
-	 mov ebx,100
+	 mov ebx,400
 	 mcall
 	 ret
 ;----------------------------------------------------------
 end_game:
 	mov eax,13
 	mov ecx,0xffffff
 	mov edx,game_over
 	mov esi,9
 	mcall
 	mov eax,5
-	mov ebx,150
+	mov ebx,350
 	mcall
 	ret
 ;----------------------------------------------------------
 drawwin:
 	mcall	12,1
 	mcall 13,238*65536+141,229*65536+20,0xed16
 	mcall 4,255*65536+235,0xff0200,start_menu,11
 	mcall 47,3*65536,[number_level],345*65536+235, 0xff0200
-	mcall 4,186*65536+5,0x888888,description,49
+	mcall 4,465*65536+5,0x888888,description,25
+	still:
+	mov eax,10
+	mcall
+	dec eax
+	jz .redraw
+	dec eax
+	jz .key
+;	jmp .button
+;.button:
-	still:
+	mcall 63,1,'l'
-	mov eax,10
+	mcall -1
+.redraw:
-	mcall
+	pop eax
-	cmp eax,2
+	jmp restart_level
-	jne still
+.key:
 	mov eax,2
 	mcall
+	shr eax,8
+	cmp eax,32
-	shr eax,8
+	je start_game
-	cmp eax,32
+	cmp eax,13
 	je start_game
 	cmp eax,176
 	jne no_left
 	dec [number_level]
-	and [number_level],11111b
+	and [number_level],15
 	jmp cycle_menu
 	no_left:
 	cmp eax,179
 	jne no_right
 	inc [number_level]
-	and [number_level],11111b
+	and [number_level],15
 	jmp cycle_menu
 	no_right:
 _dx		dd 0
 _dy		dd 0
 strike_action	dd 0
 end_bum 	db 0
 bazas		db 0
-name		db 'Tanks v1.02' ,0
+name		db 'Tanks v1.1' ,0
-description db 'SPACE - New Game        Left/Right - Change level' ,0
+description db 'Left/Right - Change level' ,0
 won1		db '*****************************'
-won2		db '*    YOU WON LEVEL   !!!    *'
+won2		db '*      YOU WON LEVEL!       *'
 won3		db '*****************************'
 game_over	db 'GAME OVER'
 Lifes		db 'LIVES'
 Level		db 'LEVEL'
 Score		db 'SCORE'
 db 2,1,2,17,2,17,2,17
 db 18,17,2,16
 ;-----------------------------------
 ;-----here begin levels-------------
 ;-----------------------------------
+lev00:
+db 146,0
+db 225,225,33,89,1,176,89,1
+db 57,17,89,1,176,25,7,41
+db 1,57,17,89,1,9,65,57
+db 64,34,1,25,1,9,17,89
+db 1,25,7,5,9,1,57,48
+db 35,33,9,1,9,17,89,1
+db 73,1,233,1,9,17,89,225
+db 113,9,17,233,233,17,233,233
+db 17,217,129,105,17,217,1,100
+db 1,105,17,41,81,64,1,7
+db 73,4,1,105,17,41,1,7
+db 41,1,64,1,89,4,1,105
+db 17,41,1,36,25,64,1,25
+db 1,41,4,145,41,1,52,1
+db 64,41,1,7,34,1,98,17
+db 41,81,64,129,18,7,50,17
+db 233,121,3,20,50,17,233,121
+db 35,17,25,17,233,233,225,225
+db 33,16
 lev01:
+db 162,0
+db 225,225,33,229,5,214,17,21
+db 33,7,149,1,198,17,21,208
+db 1,32,150,17,226,2,1,18
+db 80,70,17,2,83,130,1,18
+db 0,7,34,0,70,17,2,3
+db 144,1,0,18,1,18,0,50
+db 0,70,17,2,3,144,1,0
+db 18,1,18,0,50,0,70,17
+db 2,3,32,7,50,16,1,0
+db 66,0,50,0,70,17,2,3
+db 32,66,16,1,0,66,0,7
+db 130,17,2,3,144,1,48,18
+db 64,82,17,18,144,1,0,7
+db 50,0,2,32,82,17,18,144
+db 1,0,66,0,1,64,50,17
+db 178,1,0,66,0,2,80,34
+db 17,178,1,96,6,80,34,145
+db 0,34,113,150,17,7,82,1
+db 0,34,230,38,17,98,16,226
+db 82,17,98,16,226,82,225,225
+db 33,16
+lev02:
+db 205,0
+db 225,225,33,224,224,17,0,2
+db 83,64,233,9,0,17,0,2
+db 3,34,0,7,64,233,9,0
+db 17,0,2,3,34,96,73,7
+db 153,0,17,224,32,1,41,50
+db 41,0,17,2,145,16,18,32
+db 1,41,50,41,0,17,2,1
+db 134,16,18,32,1,41,50,41
+db 0,17,2,1,6,41,70,16
+db 1,2,32,1,7,25,50,41
+db 0,17,2,1,6,89,22,16
+db 18,32,49,50,41,0,17,2
+db 1,6,89,22,16,1,2,32
+db 1,41,50,41,0,17,2,1
+db 54,41,22,16,1,2,32,1
+db 41,50,41,0,17,2,1,54
+db 41,22,16,1,2,32,1,41
+db 50,41,0,17,2,1,54,7
+db 25,22,16,18,32,1,41,2
+db 7,16,41,0,17,2,1,54
+db 41,22,16,1,2,224,17,2
+db 1,54,41,22,16,1,2,224
+db 17,2,1,134,16,18,100,6
+db 98,17,2,1,160,1,2,100
+db 6,1,82,17,226,118,1,7
+db 66,225,225,33,16
+lev03:
 db 171,0
 db 225,225,33,150,7,2,1,7
 db 41,192,17,150,18,1,57,144
 db 1,16,17,182,1,57,112,33
 db 16,17,38,225,65,96,17,6
 db 70,35,16,1,20,17,36,32
 db 70,1,8,7,8,17,70,66
 db 1,100,112,1,40,17,70,2
 db 7,34,1,116,96,1,40,225
 db 225,33,16
-lev02:
-db 255,3
-db 225,225,33,5,49,3,225,161
-db 5,38,5,3,64,89,0,40
-db 54,50,33,5,38,5,3,32
-db 35,34,3,16,8,67,6,50
-db 33,5,38,5,3,34,16,3
-db 36,3,2,35,36,3,66,33
-db 5,22,21,3,34,3,0,3
-db 36,3,2,3,7,36,5,3
-db 2,1,35,33,5,22,21,3
-db 7,2,0,2,19,5,20,3
-db 2,51,21,3,66,33,5,22
-db 21,35,0,2,3,7,5,20
-db 18,3,24,3,22,67,2,33
-db 5,17,25,48,2,51,2,35
-db 24,3,22,9,16,19,2,33
-db 5,2,1,25,49,2,3,56
-db 3,54,67,0,3,16,33,5
-db 2,49,22,1,6,3,22,1
-db 8,3,17,88,3,48,33,5
-db 18,4,54,1,6,3,22,1
-db 8,3,7,1,99,57,33,5
-db 18,4,22,1,5,1,54,1
-db 8,3,70,51,57,33,5,18
-db 4,0,17,5,113,51,0,3
-db 38,9,32,33,5,17,4,16
-db 1,32,1,37,49,32,3,54
-db 19,0,33,5,0,20,16,1
-db 2,1,0,20,1,24,34,0
-db 33,7,38,3,16,33,5,0
-db 33,0,1,2,113,18,32,83
-db 16,33,5,16,7,16,1,146
-db 33,128,33,114,65,98,225,225
-db 193,16
-lev03:
-db 118,0
-db 225,225,33,85,50,35,162,86
-db 17,5,7,53,166,34,7,8
-db 18,86,17,85,34,19,6,19
-db 50,72,2,86,193,6,225,1
-db 6,33,160,230,54,17,18,128
-db 102,65,102,17,7,2,128,102
-db 1,166,17,160,230,54,225,113
-db 6,145,214,224,0,17,214,96
-db 81,32,17,214,96,1,7,38
-db 17,16,17,214,224,0,113,6
-db 225,145,82,198,1,144,17,82
-db 1,182,1,48,1,54,0,17
-db 18,38,2,7,2,166,1,48
-db 1,54,0,17,114,230,6,1
-db 7,48,225,225,33,16
 lev04:
-db 146,0
-db 225,225,33,89,1,176,89,1
-db 57,17,89,1,176,25,7,41
-db 1,57,17,89,1,9,65,57
-db 64,34,1,25,1,9,17,89
-db 1,25,7,5,9,1,57,48
-db 35,33,9,1,9,17,89,1
-db 73,1,233,1,9,17,89,225
-db 113,9,17,233,233,17,233,233
-db 17,217,129,105,17,217,1,100
-db 1,105,17,41,81,64,1,7
-db 73,4,1,105,17,41,1,7
-db 41,1,64,1,89,4,1,105
-db 17,41,1,36,25,64,1,25
-db 1,41,4,145,41,1,52,1
-db 64,41,1,7,34,1,98,17
-db 41,81,64,129,18,7,50,17
-db 233,121,3,20,50,17,233,121
-db 35,17,25,17,233,233,225,225
-db 33,16
-lev05:
 db 229,0
 db 225,225,33,224,224,17,0,134
 db 50,72,34,24,2,40,2,0
 db 17,0,134,34,83,2,56,2
 db 40,2,0,17,0,134,18,19
 db 24,0,17,0,118,3,64,6
 db 104,22,7,0,24,0,17,0
 db 118,83,6,136,16,24,0,17
 db 0,230,22,19,136,0,17,224
 db 224,225,225,33,16
-lev06:
+lev05:
 db 149,0
 db 225,225,33,176,1,18,19,192
 db 17,0,7,18,112,1,2,7
 db 2,16,3,160,17,0,34,112
 db 1,18,51,160,17,0,1,144
 db 50,64,1,128,4,32,6,17
 db 16,1,7,8,66,64,145,4
 db 32,6,17,16,177,144,1,70
 db 17,224,128,1,70,17,224,144
 db 70,225,225,33,16
-lev07:
+lev06:
 db 159,0
 db 225,225,33,0,7,229,197,17
 db 64,225,113,21,17,64,1,37
 db 134,133,1,21,17,32,33,37
 db 6,37,33,7,6,133,1,21
 db 1,8,1,0,229,3,69,1
 db 38,17,5,1,7,232,117,1
 db 38,17,5,1,232,8,129,38
 db 17,5,225,33,7,98,38,17
 db 229,69,150,225,225,33,16
-lev08:
+lev07:
 db 209,0
 db 225,225,33,36,7,228,84,1
 db 48,17,164,195,4,1,48,17
 db 164,3,166,3,4,1,0,7
 db 2,0,17,164,3,166,3,4
 db 3,102,3,4,1,48,17,6
 db 7,130,1,2,1,4,131,4
 db 1,48,17,38,114,1,2,193
 db 48,17,38,226,178,225,225,33
 db 16
+lev08:
+db 118,0
+db 225,225,33,85,50,35,162,86
+db 17,5,7,53,166,34,7,8
+db 18,86,17,85,34,19,6,19
+db 50,72,2,86,193,6,225,1
+db 6,33,160,230,54,17,18,128
+db 102,65,102,17,7,2,128,102
+db 1,166,17,160,230,54,225,113
+db 6,145,214,224,0,17,214,96
+db 81,32,17,214,96,1,7,38
+db 17,16,17,214,224,0,113,6
+db 225,145,82,198,1,144,17,82
+db 1,182,1,48,1,54,0,17
+db 18,38,2,7,2,166,1,48
+db 1,54,0,17,114,230,6,1
+db 7,48,225,225,33,16
 lev09:
-db 162,0
+db 255,3
-db 225,225,33,229,5,214,17,21
+db 225,225,33,5,49,3,225,161
+db 5,38,5,3,64,89,0,40
+db 54,50,33,5,38,5,3,32
-db 33,7,149,1,198,17,21,208
+db 35,34,3,16,8,67,6,50
+db 33,5,38,5,3,34,16,3
+db 36,3,2,35,36,3,66,33
+db 5,22,21,3,34,3,0,3
+db 36,3,2,3,7,36,5,3
-db 1,32,150,17,226,2,1,18
+db 2,1,35,33,5,22,21,3
+db 7,2,0,2,19,5,20,3
+db 2,51,21,3,66,33,5,22
-db 80,70,17,2,83,130,1,18
+db 21,35,0,2,3,7,5,20
-db 0,7,34,0,70,17,2,3
+db 18,3,24,3,22,67,2,33
+db 5,17,25,48,2,51,2,35
-db 144,1,0,18,1,18,0,50
+db 24,3,22,9,16,19,2,33
+db 5,2,1,25,49,2,3,56
-db 0,70,17,2,3,144,1,0
+db 3,54,67,0,3,16,33,5
-db 18,1,18,0,50,0,70,17
+db 2,49,22,1,6,3,22,1
-db 2,3,32,7,50,16,1,0
+db 8,3,17,88,3,48,33,5
-db 66,0,50,0,70,17,2,3
+db 18,4,54,1,6,3,22,1
-db 32,66,16,1,0,66,0,7
+db 8,3,7,1,99,57,33,5
-db 130,17,2,3,144,1,48,18
+db 18,4,22,1,5,1,54,1
+db 8,3,70,51,57,33,5,18
-db 64,82,17,18,144,1,0,7
+db 4,0,17,5,113,51,0,3
-db 50,0,2,32,82,17,18,144
+db 38,9,32,33,5,17,4,16
+db 1,32,1,37,49,32,3,54
-db 1,0,66,0,1,64,50,17
+db 19,0,33,5,0,20,16,1
-db 178,1,0,66,0,2,80,34
+db 2,1,0,20,1,24,34,0
-db 17,178,1,96,6,80,34,145
+db 33,7,38,3,16,33,5,0
-db 0,34,113,150,17,7,82,1
+db 33,0,1,2,113,18,32,83
-db 0,34,230,38,17,98,16,226
+db 16,33,5,16,7,16,1,146
-db 82,17,98,16,226,82,225,225
+db 33,128,33,114,65,98,225,225
-db 33,16
+db 193,16
 lev10:
-db 205,0
-db 225,225,33,224,224,17,0,2
-db 83,64,233,9,0,17,0,2
-db 3,34,0,7,64,233,9,0
-db 17,0,2,3,34,96,73,7
-db 153,0,17,224,32,1,41,50
-db 41,0,17,2,145,16,18,32
-db 1,41,50,41,0,17,2,1
-db 134,16,18,32,1,41,50,41
-db 0,17,2,1,6,41,70,16
-db 1,2,32,1,7,25,50,41
-db 0,17,2,1,6,89,22,16
-db 18,32,49,50,41,0,17,2
-db 1,6,89,22,16,1,2,32
-db 1,41,50,41,0,17,2,1
-db 54,41,22,16,1,2,32,1
-db 41,50,41,0,17,2,1,54
-db 41,22,16,1,2,32,1,41
-db 50,41,0,17,2,1,54,7
-db 25,22,16,18,32,1,41,2
-db 7,16,41,0,17,2,1,54
-db 41,22,16,1,2,224,17,2
-db 1,54,41,22,16,1,2,224
-db 17,2,1,134,16,18,100,6
-db 98,17,2,1,160,1,2,100
-db 6,1,82,17,226,118,1,7
-db 66,225,225,33,16
-lev11:
 db 228,0
 db 225,225,33,230,230,17,6,104
 db 1,104,6,1,7,152,6,17
 db 6,104,1,104,6,1,24,1
 db 120,6,17,6,104,1,8,102
 db 49,8,64,24,6,17,6,104
 db 1,8,6,72,38,40,0,88
 db 6,17,6,8,97,8,6,33
 db 56,6,40,64,24,6,17,6
 db 8,1,104,6,1,64,1,6
 db 104,0,24,6,17,6,8,1
 db 104,6,1,0,40,0,1,6
 db 104,0,24,6,17,6,8,1
 db 7,88,6,1,0,40,0,1
 db 6,40,16,24,0,24,6,17
 db 6,8,33,72,6,1,0,8
 db 7,8,0,1,6,40,0,40
 db 0,24,6,17,6,136,6,1
 db 0,40,0,1,6,40,0,40
 db 0,24,6,17,166,1,0,40
 db 0,1,6,40,64,7,8,6
 db 17,6,8,49,6,56,1,64
 db 1,6,152,6,17,6,8,7
 db 24,1,6,56,97,182,17,6
 db 56,1,6,168,6,24,80,40
 db 17,6,56,1,198,24,0,56
 db 0,40,17,6,72,6,216,0
 db 56,0,40,17,102,120,1,7
 db 56,0,1,7,8,1,0,40
 db 225,225,33,16
-lev12:
+lev11:
 db 157,0
 db 225,225,33,66,1,217,36,98
 db 17,66,1,217,36,50,3,18
 db 17,66,1,41,161,36,33,50
 db 17,66,1,41,1,196,1,2
 db 1,50,17,66,1,41,1,196
 db 1,2,1,50,17,2,65,41
 db 1,148,49,2,1,50,17,2
 db 1,7,24,25,33,4,145,7
 db 34,1,50,17,2,1,40,25
 db 1,7,20,1,7,178,1,50
 db 17,2,97,32,1,194,1,50
 db 17,162,1,194,1,50,17,162
 db 1,2,3,18,145,50,209,2
 db 3,18,1,7,178,17,7,36
 db 19,98,3,18,1,98,3,66
 db 17,68,3,4,130,1,194,17
 db 36,35,4,130,1,194,17,114
 db 129,34,3,82,3,18,17,18
 db 3,66,1,7,226,66,17,226
 db 226,225,225,33,16
-lev13:
+lev12:
 db 233,0
 db 225,225,33,224,224,17,0,53
 db 225,49,16,1,21,0,17,0
 db 53,1,230,22,1,16,1,21
 db 0,17,0,53,1,230,22,1
 db 16,1,21,0,17,0,53,1
 db 38,177,22,1,16,1,21,0
 db 17,0,5,1,21,1,38,1
 db 7,133,1,22,1,16,1,21
 db 0,17,0,5,1,21,1,38
 db 1,6,1,7,101,1,22,1
 db 16,1,21,0,17,0,5,1
 db 21,1,70,1,117,1,22,1
 db 16,1,21,0,17,0,5,1
 db 21,1,38,1,6,1,5,7
 db 85,1,22,1,16,1,21,0
 db 17,0,5,1,21,1,38,1
 db 38,81,5,1,38,16,1,21
 db 0,17,0,5,1,21,1,38
 db 1,70,7,53,1,22,1,16
 db 1,7,5,0,17,0,5,1
 db 21,1,38,177,22,1,16,1
 db 21,0,17,0,5,1,21,1
 db 230,22,1,16,1,21,0,17
 db 0,5,1,21,1,7,230,6
 db 1,16,1,21,0,17,0,5
 db 1,21,225,49,16,1,21,0
 db 17,0,5,1,7,5,224,80
 db 1,21,0,17,0,5,225,145
 db 21,0,17,224,224,225,225,33
 db 16
-lev14:
+lev13:
 db 152,0
 db 225,225,33,7,102,144,57,112
 db 17,118,48,7,40,16,7,41
 db 112,17,118,0,104,208,17,22
 db 49,232,128,17,22,1,25,1
 db 8,196,8,128,17,22,1,25
 db 1,8,196,8,128,17,38,0
 db 9,1,8,20,7,148,8,128
 db 17,6,32,9,1,8,196,72
 db 64,17,6,0,41,1,8,196
 db 72,64,17,6,0,41,1,8
 db 196,8,7,40,64,17,6,32
 db 9,1,232,128,17,70,1,0
 db 81,120,128,17,64,1,80,1
 db 224,16,17,64,1,89,1,16
 db 86,32,70,0,17,80,89,1
 db 16,86,32,70,0,17,86,1
 db 7,57,1,32,70,32,70,0
 db 17,7,70,97,118,32,70,0
 db 17,230,86,128,225,225,33,16
-lev15:
+lev14:
 db 242,0
 db 225,225,33,182,224,32,17,22
 db 69,70,0,54,0,54,0,54
 db 0,20,17,22,69,32,22,0
 db 54,0,54,0,54,0,20,17
 db 22,69,0,5,4,22,0,1
 db 38,0,54,0,54,0,20,17
 db 22,69,0,3,4,22,0,1
 db 38,0,54,0,33,6,0,20
 db 17,22,69,0,3,4,22,0
 db 17,7,6,0,54,0,1,7
 db 22,0,20,17,22,69,0,3
 db 4,22,0,1,38,0,54,0
 db 1,38,0,20,17,22,80,3
 db 4,22,0,1,38,0,54,0
 db 1,38,0,20,17,22,0,83
 db 4,22,0,54,0,54,0,49
 db 0,20,17,22,0,3,84,22
 db 0,54,0,56,0,54,0,20
 db 17,22,0,3,84,22,0,54
 db 0,56,0,54,0,20,17,22
 db 0,3,7,68,22,0,54,0
 db 8,7,24,0,54,0,25,17
 db 22,0,83,4,22,0,54,0
 db 56,0,54,0,7,9,17,22
 db 112,22,0,54,0,54,0,54
 db 0,25,17,182,0,54,0,54
 db 0,54,0,20,17,192,54,0
 db 54,0,54,0,20,225,1,7
 db 22,0,54,0,54,0,20,17
 db 7,2,116,224,32,20,225,225
 db 33,16
 ;-----------------------------------
 spisok:
   dd tan22
   dd tan21
   dd tan22
 ;-----------------------------------
 levels:
+  dd lev00
   dd lev01
   dd lev02
   dd lev03
   dd lev04
   dd lev05
   dd lev10
   dd lev11
   dd lev12
   dd lev13
   dd lev14
-  dd lev15
-  dd lev02
-  dd lev02
-  dd lev02
+  dd lev07 ; :(
-  dd lev02
-  dd lev02
-  dd lev02
-  dd lev02
-  dd lev02
-  dd lev02
-  dd lev02
-  dd lev02
-  dd lev02
-  dd lev02
-  dd lev02
 I_END:

Subversion Repositories Kolibri OS

(root)/programs/games/tanks/trunk/tanks.asm – Rev 2009 → 2018