Subversion Repositories Kolibri OS

Rev

Rev 1933 | Rev 2018 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1933 Rev 2009
Line 1... Line 1...
1 
;************************************************************
 1 
;************************************************************
2 
;*GAME TANKS CRETED BY ANDREW_PROGRAMMER AKA ANDREY IGNATYEV*
 2 
;*GAME TANKS CRETED BY ANDREW_PROGRAMMER AKA ANDREY IGNATYEV*
3 
;*********************/8/2005********************************
 3 
;*********************/8/2005********************************
- 
 
 4 
;Leency aka Lipatov Kirill 19.07.2011: update and some fixes
- 
 
 5 
;                      v1.02
- 
 
 6 
 
- 
 
 7 
; bug: window can't end redraw untill new game wasn't start
- 
 
 8 
; if press close button it goes to infinite loop
- 
 
 9 
 
4 
use32
 10 
use32
5 
org 0x0
 11 
org 0x0
6 
include 'lang.inc'
 12 
include 'lang.inc'
7 
include '../../../macros.inc'
 13 
include '../../../macros.inc'
8 
  db  'MENUET01'
 14 
  db  'MENUET01'
Line 888... Line 894...
888 
	 cmp eax,10*4
 894 
	 cmp eax,10*4
889 
	 jne next_puly
 895 
	 jne next_puly
890 
	 ;-------------------------------------------------
 896 
	 ;-------------------------------------------------
891 
	 ;-------------end of tanks logic------------------
 897 
	 ;-------------end of tanks logic------------------
892 
	 ;-------------------------------------------------
 898 
	 ;-------------------------------------------------
893 
	 mov eax,13
 - 
 
894 
	 mov ebx,180*65536+220
 899 
	 mcall 13, 190*65536+192, 5*65536+7, 0
895 
	 mov ecx,425*65536+17
 - 
 
896 
	 mov edx,0xdfffff
 - 
 
897 
	 mcall
 900 
 
898 
	 mov eax,4
 - 
 
899 
	 mov ebx,190*65536+430
 901 
	 mcall 4,190*65536+5,0x1ded00,Level,5
900 
	 mov ecx,0x1ded00;0
 - 
 
901 
	 mov edx,Level
 - 
 
902 
	 mov esi,5
 - 
 
903 
	 mcall
 - 
 
904 
	 mov eax,4
 - 
 
905 
	 mov ebx,260*65536+430
 902 
	 mcall 4,260*65536+5,0x3558ff,Lifes,5
906 
	 mov ecx,0x3558ff
 - 
 
907 
	 mov edx,Lifes
 - 
 
908 
	 mov esi,5
 - 
 
909 
	 mcall
 - 
 
910 
	 mov eax,4
 - 
 
911 
	 mov ebx,330*65536+430
 903 
	 mcall 4,330*65536+5,0xf93500,Score,5
912 
	 mov ecx,0xf93500
 - 
 
913 
	 mov edx,Score
 - 
 
914 
	 mov esi,5
 - 
 
915 
	 mcall
 904
916 
	 mov eax,47
 905 
	 mov eax,47
917 
	 mov ebx,3*65536
 906 
	 mov ebx,3*65536
918 
	 mov ecx,[number_level]
 907 
	 mov ecx,[number_level]
919 
	 inc ecx
 908 
	 inc ecx
920 
	 mov edx,225*65536+430
 909 
	 mov edx,225*65536+5
921 
	 mov esi,0x1ded00
 910 
	 mov esi,0x1ded00
922 
	 mcall
 911 
	 mcall
923 
	 mov eax,47
 912 
	 mov eax,47
924 
	 mov ebx,3*65536
 913 
	 mov ebx,3*65536
925 
	 xor ecx,ecx
 914 
	 xor ecx,ecx
926 
	 mov cl,[LifesPlayer]
 915 
	 mov cl,[LifesPlayer]
927 
	 shr ecx,2
 916 
	 shr ecx,2
928 
	 mov edx,295*65536+430
 917 
	 mov edx,295*65536+5
929 
	 mov esi,0x3558ff
 918 
	 mov esi,0x3558ff
930 
	 mcall
 919 
	 mcall
931 
	 mov eax,47
 920 
	 mov eax,47
932 
	 mov ebx,3*65536
 921 
	 mov ebx,3*65536
933 
	 xor ecx,ecx
 922 
	 xor ecx,ecx
934 
	 mov cl,byte[score]
 923 
	 mov cl,byte[score]
935 
	 mov edx,365*65536+430
 924 
	 mov edx,365*65536+5
936 
	 mov esi,0xf93500
 925 
	 mov esi,0xf93500
937 
	 mcall
 926 
	 mcall
938 
	 jmp maincycle
 927 
	 jmp maincycle
939 
;----------------------------------------------------------
 928 
;----------------------------------------------------------
940 
;-----------------end of main cycle------------------------
 929 
;-----------------end of main cycle------------------------
Line 1177... Line 1166...
1177 
	mov ebx,150
 1166 
	mov ebx,150
1178 
	mcall
 1167 
	mcall
1179 
	ret
 1168 
	ret
1180 
;----------------------------------------------------------
 1169 
;----------------------------------------------------------
1181 
drawwin:
 1170 
drawwin:
1182 
	mov eax,12
 - 
 
1183 
	mov ebx,1
 - 
 
1184 
	mcall
 1171 
	mcall	12,1
1185 
	;à¨á㥬 ®ª­® § ¤ ¢ ï ¢á¥ ­¥®¡å®¤¨¬ë¥ 梥â 
 1172 
	;à¨á㥬 ®ª­® § ¤ ¢ ï ¢á¥ ­¥®¡å®¤¨¬ë¥ 梥â 
1186 
	mov eax,0
 - 
 
1187 
	mov ebx,50*65536+640
 1173 
	mcall	0,100*65536+649,50*65536+446,(0x74000000+0xffffff),,name
1188 
	mov ecx,50*65536+480
 - 
 
1189 
	mov edx,0x03AABBCC
 - 
 
1190 
	mov esi,0x805080d0
 - 
 
1191 
	mov edi,0x005080d0
 - 
 
1192 
	mcall
 1174 
	mcall	12,2
1193 
	;¯¨è¥¬ § £®«®¢®ª ®ª­ 
 - 
 
1194 
	mov eax,4
 - 
 
1195 
	mov ebx,5*65536+5
 1175 
	mcall	13, 0*65536+640,  0*65536+20, 0
1196 
	mov ecx,0x10ffffff
 - 
 
1197 
	mov edx,name
 - 
 
1198 
	mov esi,42
 - 
 
1199 
	mcall
 - 
 
1200 
	ret
 1176 
	ret
1201 
;----------------------------------------------------------
 1177 
;----------------------------------------------------------
1202 
menu:
 1178 
menu:
1203 
   cycle_menu:
 1179 
   cycle_menu:
1204 
	mov eax,13
 1180 
 
1205 
	mov ebx,235*65536+140
 1181 
	mcall 13,238*65536+141,229*65536+20,0xed16
1206 
	mov ecx,230*65536+20
 1182 
	mcall 4,255*65536+235,0xff0200,start_menu,11
1207 
	mov edx,0xed16
 - 
 
1208 
	mcall
 - 
 
1209 
	mov eax,4
 - 
 
1210 
	mov ebx,255*65536+235
 1183 
	mcall 47,3*65536,[number_level],345*65536+235, 0xff0200
1211 
	mov ecx,0xff0200
 - 
 
1212 
	mov edx,start_menu
 - 
 
1213 
	mov esi,11
 - 
 
1214 
	mcall
 1184
1215 
	mov eax,47
 - 
 
1216 
	mov ebx,3*65536
 - 
 
1217 
	mov ecx,[number_level]
 - 
 
1218 
	mov edx,345*65536+235
 1185 
	mcall 4,186*65536+5,0x888888,description,49
1219 
	mov esi,0xff0200
 - 
 
1220 
	mcall
 1186
1221 
	still:
 1187 
	still:
1222 
	mov eax,10
 1188 
	mov eax,10
1223 
	mcall
 1189 
	mcall
1224 
	cmp eax,2
 1190 
	cmp eax,2
1225 
	jne still
 1191 
	jne still
Line 1290... Line 1256...
1290 
_dx		dd 0
 1256 
_dx		dd 0
1291 
_dy		dd 0
 1257 
_dy		dd 0
1292 
strike_action	dd 0
 1258 
strike_action	dd 0
1293 
end_bum 	db 0
 1259 
end_bum 	db 0
1294 
bazas		db 0
 1260 
bazas		db 0
- 
 
 1261 
name		db 'Tanks v1.02' ,0
1295 
name		db '  game *TANKS* creted by andrew_programmer'
 1262 
description db 'SPACE - New Game        Left/Right - Change level' ,0
1296 
won1		db '*****************************'
 1263 
won1		db '*****************************'
1297 
won2		db '*    YOU WON LEVEL   !!!    *'
 1264 
won2		db '*    YOU WON LEVEL   !!!    *'
1298 
won3		db '*****************************'
 1265 
won3		db '*****************************'
1299 
game_over	db 'GAME OVER'
 1266 
game_over	db 'GAME OVER'
1300 
Lifes		db 'LIFES'
 1267 
Lifes		db 'LIVES'
1301 
Level		db 'LEVEL'
 1268 
Level		db 'LEVEL'
1302 
Score		db 'SCORE'
 1269 
Score		db 'SCORE'
1303 
start_menu	db 'START LEVEL'
 1270 
start_menu	db 'START LEVEL'
1304 
LifesTanks	rb 16
 1271 
LifesTanks	rb 16
1305 
PulyTanks	rb 16
 1272 
PulyTanks	rb 16