307_EX.ASM

	.model tiny
	locals @@
	.186
	.code
	org	100h
start:	jmp	realstart

password	db	32 dup (0FFh)		;16 ¡ ©â - § è¨äà. ¯ à®«ì, 16 ¡ ©â - ¬ãá®à
dataf		db	'307_ex.dat',0
screen		db	'307_ex.raw',0
fatal1		db	'¥ ­ ©¤¥­ ä ©« á ¤ ­­ë¬¨$'
fatal2		db	'„ ­­ ï ¯à®£à ¬¬  ­¥ ­ áâ஥­ $'
inst_title	db	0B1h,0,29,'Ž—ˆ’€‰’… ‚ˆŒ€’…‹œŽ',0
instruc		db	10,10,10,10,'   ‚ ¬ ¯à¥¤« £ ¥âáï ®â¢¥â¨âì ­  ­¥áª®«ìª® ¢®¯à®á®¢. “¯à ¢«¥­¨¥:',13,10
		db	'   ù „«ï ¢ë¡®à  ®â¢¥â  á«¥¤ã¥â ¨á¯®«ì§®¢ âì ª« ¢¨è¨ [1]-[9].',13,10
		db	'   ù „«ï ®â¬¥­ë ¢ë¡®à  á«¥¤ã¥â ­ ¦ âì ­  íâã ¦¥ ª« ¢¨èã ¯®¢â®à­®.',13,10
		db	'   ù Š« ¢¨è  [ÄÙ] á«ã¦¨â ¤«ï ¯®¤â¢¥à¦¤¥­¨ï ¢ë¡®à  ¨ ¯à®¤®«¦¥­¨ï ®¯à®á .',13,10,10
		db	' ¦¬¨â¥ «î¡ãî ª« ¢¨èã...$'
ask4surname	db	'‚¢¥¤¨â¥ ¢ èã ä ¬¨«¨î: $'
sur_stat	db	30h,24,0,'ˆá¯®«ì§ã©â¥ ⮫쪮 àãá᪨¥ ¡ãª¢ë, ¯® ®ª®­ç ­¨î ¢¢®¤  ­ ¦¬¨â¥ [ÄÙ]',0
stat_arsehole	db	0C0h,24,0,'’…‘’ ‡€‚€‹… :-)',0
stat_botan	db	0A0h,24,0,'’…‘’ Ž‰„… :-(',0

final_sur	db	'” ¬¨«¨ï      : $'

final_screen	db	13,10
final_end	db	'∴•        : '
fn_hour		db	'00:00:00'
		db	13,10
final_q		db	'‚ è १ã«ìâ â: '
done		db	'00/00'
		db	13,10,10
		db	'®§®¢¨â¥ ¯à¥¯®¤ ¢ â¥«ï.$'
realstart:
	cld
	mov	ax,0FACEh
	int	21h
	cmp	ax,2002h
	je	pst
	call	fatal

pst:	mov	bx,offset password
	cmp	byte ptr [bx],0FFh
	jne	pss
	mov	dx,offset fatal2
	mov	ah,9
	int	21h
	ret

pss:
	mov	ax,1a00h			;Is there any VGA?
	int	10h
	cmp	al,1ah
	jne	@@00				;There isn't.. Fuck..
	mov	dx,offset screen		;VGA!! Show title screen
	call	pcxshow

@@00:	xor	ax,ax
	call	fcursor
	call	font_l				;Loading screen font
	call	open				;Opening file with data
	call	passwd				;Decrypting password
	call	bufferize			;Copying file data to buffer (with deciphering)
	call	close				;®«ãç ¥¬ ¤«¨­ã ä ©«  ¨ § ªà뢠¥¬ ¥£®
	call	genseed				;ƒ¥­¥à¨à㥬 seed
	call	fill_tbl			;‡ ¯®«­ï¥¬ â ¡«¨æë (¢®§¬®¦­  ®è¨¡ª )
	mov	ax,1003h
	xor	bx,bx
	int	10h

green_mile:					;®á«¥¤­¨¥ ¯à¨£®â®¢«¥­¨ï
	push	es				;¥à¥å¢ â ¯à¥à뢠­¨© 23h, 1bh

	mov	ax,351Bh
	int	21h
	mov	word ptr [old_int1Bh],bx
	mov	ax,es
	mov	word ptr [old_int1Bh+2],ax

	mov	ax,3523h
	int	21h
	mov	word ptr [old_int23h],bx
	mov	ax,es
	mov	word ptr [old_int23h],ax

	pop	es

	mov	ax,251Bh
	mov	dx,offset dummy
	int	21h
	mov	ax,2523h
	mov	dx,offset dummy
	int	21h

restart:
	mov	bl,1Bh
	call	fclsa
	mov	bx,0B1h
	call	faline
	mov	si,offset inst_title
	call	fwritea

	mov	ah,9
	mov	dx,offset instruc
	int	21h

	xor	ax,ax
	int	16h

;‘¯à®á¨¬ ä ¬¨«¨î :)
@@reask:
	mov	ax,01
	call	fcursor
	mov	bl,1Bh
	call	infobar
	mov	si,offset sur_stat
	call	change_stat
	mov	ah,9
	mov	dx,offset ask4surname
	int	21h

	mov	di,offset surname
	mov	cx,19
	mov	bh,'€'
	mov	bl,'ï'
	call	field
	cmp	ah,01					;‘â㤥­â ¯®¦¥« « ®áâ âìáï ­¥¨§¢¥áâ­ë¬?
	je	@@reask					;„  - á¯à®á¨¬ ¥éñ à §®ª :)
	cmp	cx,2					;” ¬¨«¨ï ¤®«¦­  ¡ëâì å®âï-¡ë 2 ᨬ¢®«  ("’ñ" :) )
	jb	@@reask
	mov	bx,cx					;¨å ¥¬ $ ¢ ª®­¥æ :)
	mov	byte ptr [surname+bx],'$'
	xor	ax,ax					;‚몫î稬 ªãàá®à ­ å!
	call	fcursor

	xor	ah,ah
	int	1ah
	mov	word ptr [ticks_start],dx
	mov	word ptr [ticks_start+2],cx

	xor	cx,cx
	mov	cl,byte ptr [q_total]
;-------------------------
;	jmp	short aa
;-------------------------
exloop:	push	cx
	mov	bl,1Bh

	call	infobar
	call	gen_num
	call	ask
	cmp	bh,bl
	je	@@ex10
	jmp	short @@ex20
@@ex10:	inc	byte ptr [q_rite]
@@ex20:	pop	cx
	loop	exloop

aa:	xor	ah,ah
	int	1ah
	mov	word ptr [ticks_end],dx
	mov	word ptr [ticks_end+2],cx

	mov	ax,word ptr [ticks_end]
	sub	ax,word ptr [ticks_start]
	mov	word ptr [waited],ax

	mov	ax,word ptr [ticks_end+2]
	sbb	ax,word ptr [ticks_start+2]

	mov	word ptr [waited+2],ax

	mov	si,offset waited
	mov	di,offset secs_tot
	mov	bx,18
	call	div32			;‘ç¨â ¥¬ ᥪ㭤ë
	call	divtime			;ˆ ¢à¥¬ï

	mov	cx,3
	mov	bp,offset test_time
	mov	di,offset fn_hour
	call	conv_t

	mov	cx,1
	mov	bp,offset q_rite
	mov	di,offset done
	call	conv_t

	mov	cx,1
	mov	bp,offset q_total
	mov	di,offset [done+3]
	call	conv_t

	mov	al,q_rite
	cmp	al,q_togo
	jb	@@dumb
	mov	word ptr [stat],offset stat_botan
	mov	bl,2Fh
	jmp	short @@qq
@@dumb:
	mov	word ptr [stat],offset stat_arsehole
	mov	bl,4Bh

@@qq:	call	infobar
	mov	si,word ptr [stat]
	call	change_stat
	mov	ah,9
	mov	dx,offset final_sur
	int	21h
	mov	dx,offset surname
	int	21h
	mov	dx,offset final_screen
	int	21h

@@in:	xor	ax,ax
	int	16h
	cmp	ax,2308h			;^H
	jne	@@in
	

aus:	
	push	ds				;‚®ááâ ­®¢¨¬ INT Vectors
	mov	ax,251Bh
	mov	bx,word ptr [old_int1Bh+2]
	mov	dx,word ptr [old_int1Bh]
	mov	ds,bx
	int	21h
	mov	al,23h
	mov	bx,word ptr cs:[old_int23h+2]
	mov	dx,word ptr cs:[old_int23h]
	mov	ds,bx
	int	21h
	pop	ds


	call	font_r
	mov	al,1
	call	fcursor
	mov	bl,7
	call	fclsa

	ret

INCLUDE INCLUDE\NUM2ASC.PRC
INCLUDE INCLUDE\307_EX.INC			;à®æ¥¤ãન :)
INCLUDE INCLUDE\FONTLOAD.INC

;ÛÛÛÛÛ ¥à¥¬¥­­ë¥ ÛÛÛÛÛ


q_total		db	7			;Š®«¨ç¥á⢮ ¢®¯à®á®¢ ¤«ï § ¤ ¢ ­¨ï
q_togo		db	5			; àì¥à, ª®â. ­¥®¡å®¤¨¬® ¯à¥®¤®«¥âì
q_rite		db	0			;Š®«¨ç¥á⢮ ¯à ¢¨«ì­ëå ®â¢¥â®¢

q_num		dw	0			;Š®«¨ç¥á⢮ ¢®¯à®á®¢
l_count		dw	0			;Š®«¨ç¥á⢮ áப ¢ ¡ãä¥à¥

INCLUDE INCLUDE\PCXSHOW.INC

surname		db	20 dup (?)		;” ¬¨«¨ï áâ㤥­â 

ticks_start	dw	2 dup (?)		;‡ á¥ª ¥¬ ⨪¨ :)
ticks_end	dw	2 dup (?)		;’¨ª¨ ¢ ª®­æ¥ â¥áâ 
waited		dw	2 dup (?)		;‘ª®«ìª® ⨪®¢ â¥áâ¨à®¢ «¨áì
secs_tot	dw	2 dup (?)		;‘ª®«ìª® ᥪ㭤®¢ â¥áâ¨à®¢ «¨áì :)
test_time	db	3 dup (?)		;”¨­ «ì­®¥ ¢à¥¬ï â¥áâ !

stat		dw	?
fhandle		dw	?
fsize		dw	?			; §¬¥à ä ©« 
bread		dw	?
__seed		dw	?			;„«ï £¥­¥à â®à  á«ãç ©­ëå ç¨á¥«
passwtmp	db	16 dup (?)
readbuf		db	512 dup (?)
decodbuf	db	512 dup (?)
t_rows		dw	1024 dup (?)		;‘¬¥é¥­¨ï áâப
t_answ		db	1024 dup (?)		;Š®«¨ç¥á⢮ áâப ¢ ¢®¯à®á¥
t_asked		db	1024 dup (?)		;Œ áᨢ § ¤ ­­ëå ¢®¯à®á®¢

old_int1Bh	db	4 dup (?)		;‘â àë© ¢¥ªâ®à INT 1Bh
old_int23h	db	4 dup (?)		;‘â àë© ¢¥ªâ®à INT 23h
buffer:
	end	start