jumps
.386p
CODE32 SEGMENT PARA PUBLIC USE32
ASSUME cs:CODE32, ds:CODE32

		include	design.mak
		include pmode.inc
		include	timer.ext
		include font\fontt.ext
		include	rotatem.ext
		EXTRN	sound	:BYTE
		PUBLIC 	part6
		szudi	db 0

make_me_happy	PROC
		mov	zdelta,359
		mov	d_x, 230
		mov	d_y,100
		lea	edi,pixels
		mov	adr_pixels,edi
		lea	edi,faces
		mov	adr_faces,edi
		mov	number_p,number_of_points
		mov	number_f,number_of_faces
		call	calc_nor
		;	KOLORY
		mov	ecx,number_of_faces/2
 		mov	edi,adr_colors
	gg:	mov	byte ptr [edi],64 ;64
		mov	byte ptr [edi+1],64 ;64
		add	edi,2
		loop	gg
		mov	byte ptr [edi],64
 		ret
make_me_happy	ENDP

draw_www:
		call	reset_ramki
		lea	esi,t’o
		lea	edi,screen
		call	copyEkran
		call	copyPoints
		call	rotatety
		call	_sort
		call	make_lightE	
		call	drawFacesVcE
		lea	esi,screen
		call	ekran
                ret


part6		PROC
		mov	left_margin,20
		mov	fy,40*320
		mov	fx,20
;LEA EDI,t’o
;MOV EAX,0
;MOV ECX,16000
;REP STOSD

		call	make_me_happy 

;		lea	esi,t’o
;		lea	edi,screen
;		call	copyEkran
;		call	copyPoints
;		call	_sort
;		call	make_lightE
;		call	drawfacesVcE
;		lea	esi,screen
;		call	ekran

		mov	ecx,8
		xor	ebx,ebx
	iioo:	push	ecx
		mov	bl,8
		lea	edi,pal2
		call	pal_fadein10
		pop	ecx
		loop	iioo

                call    reset_ramki
                mov     d_x,390
        p‘tla33:
                mov     eax,ramki
		shl	eax,1
                sub     d_x,ax
                cmp     d_x,240
                jg      ii
                mov     d_x,240
                jmp     p‘tla3
        ii:
                call    draw_www
                jmp     p‘tla33

		mov	szudi,0

	p‘tla3:
		mov	draw_where,offset screen
		call	draw_www
		mov	eax,ramki
		cmp	eax,2
		jb	jawol
		shr	eax,1
		jawol:
		add	angleX,eax
		add	angleZ,eax
		add	angleY,eax

		cmp	szudi,0
		je      pik1
	        cmp     szudi,1
                je      pik2
                cmp     szudi,2
                je      pik3
                cmp     szudi,3
                je      pik4
                cmp     szudi,4
                je      pik5

        hhhhh:
                design2 0b30h,skokk,p‘tla3
        skokk:  cmp     szudi,0
                jne     s111
		call	siej
                mov     szudi,1
        s111:   design2 0c18h,skkk2,p‘tla3
        skkk2:  cmp     szudi,1
                jne     s121
                call    siej
                mov     szudi,2
        s121:   design2 0c39h,skss,p‘tla3
        skss:   cmp     szudi,2
                jne     s1233
                call    siej
                mov     szudi,3
        s1233:	design2	0d18h,sks2,p‘tla3
	sks2:	cmp	szudi,3
		jne	sss_
		call	siej
		mov	szudi,4
	sss_:   design2 0d3fh,ioio,p‘tla3
        ioio:
		mov	ecx,64
	@ii:	push	ecx
		mov	bl,1
		lea	edi,bla
		call	pal_fadein10
		pop	ecx
		loop	@ii

		lea	esi,bla
		call	pal_pal

		design	0e00h,hki1
	hki1:	call	pal_white
		lea	esi,bla
		call	pal_set
		

		ret
part6	ENDP

pik1:
		mov	fy,40*320
		mov	fx,20
		mov	ecx,6
		lea	esi,jopsa
	@io0:	push	ecx esi
		mov	ebp,dword ptr [esi] ;do designu
		design2 bp,nuy,nty
	nuy:	mov	ecx,[esi+4]
		mov	eax,[esi+8]
		mov	esi,eax
		mov	draw_where,offset t’o
		call	draw_string
	nty:	pop	esi ecx
		add	esi,12
		loop	@io0
                jmp     hhhhh

pik2:
		mov	fy,40*320
		mov	fx,20
		mov	ecx,7
		lea	esi,jops2
	@i20:	push	ecx esi
		mov	ebp,dword ptr [esi] ;do designu
		design2 bp,nuy22,nty22
	nuy22:	mov	ecx,[esi+4]
		mov	eax,[esi+8]
		mov	esi,eax
		mov	draw_where,offset t’o
		call	draw_string
	nty22:	pop	esi ecx
		add	esi,12
		loop	@i20
                jmp     hhhhh

pik3:
		mov	fy,40*320
		mov	fx,20
		mov	ecx,8
		lea	esi,jops3
	@i22:	push	ecx esi
		mov	ebp,dword ptr [esi] ;do designu
		design2 bp,nuy122,nty122
	nuy122:	mov	ecx,[esi+4]
		mov	eax,[esi+8]
		mov	esi,eax
		mov	draw_where,offset t’o
		call	draw_string
	nty122:	pop	esi ecx
		add	esi,12
		loop	@i22
                jmp     hhhhh
pik4:
		mov	fy,40*320
		mov	fx,20
		mov	ecx,8
		lea	esi,jops4
	@i24:	push	ecx esi
		mov	ebp,dword ptr [esi] ;do designu
		design2 bp,nuy124,nty124
	nuy124:	mov	ecx,[esi+4]
		mov	eax,[esi+8]
		mov	esi,eax
		mov	draw_where,offset t’o
		call	draw_string
	nty124:	pop	esi ecx
		add	esi,12
		loop	@i24
                jmp     hhhhh
pik5:
		mov	fy,40*320
		mov	fx,20
		mov	ecx,8
		lea	esi,jops5
	@i25:	push	ecx esi
		mov	ebp,dword ptr [esi] ;do designu
		design2 bp,nuy125,nty125
	nuy125:	mov	ecx,[esi+4]
		mov	eax,[esi+8]
		mov	esi,eax
		mov	draw_where,offset t’o
		call	draw_string
	nty125:	pop	esi ecx
		add	esi,12
		loop	@i25
                jmp     hhhhh


	jopsa:	dd 0b10h,36,offset n1
		dd 0b14h,18,offset n3
		dd 0b18h,18,offset n4
		dd 0b1ch,18,offset n5
		dd 0b20h,36,offset n6
		dd 0b24h,18,offset n8
	jops2:	dd 0b34h,20,offset q1
		dd 0b38h,18,offset q3
		dd 0b3ch,18,offset q4 ;b
		dd 0b3eh,18,offset q5 ;c
		dd 0b3fh,18,offset q6
		dd 0c00h,18,offset q7
		dd 0c04h,18,offset q8
        jops3:  dd 0c1ch,18,offset z1
                dd 0c20h,18,offset z2
                dd 0c24h,18,offset z3
                dd 0c28h,18,offset z4
                dd 0c2ch,18,offset z5
                dd 0c30h,18,offset z6
                dd 0c31h,18,offset z7
                dd 0c33h,18,offset z8
        jops4:  dd 0c3bh,18,offset a1
                dd 0c3ch,18,offset a2
                dd 0c3eh,18,offset a3
                dd 0c3fh,18,offset a4
                dd 0d00h,18,offset a5
                dd 0d04h,18,offset a6
                dd 0d08h,18,offset a7
                dd 0d0ch,18,offset a8
        jops5:  dd 0d1ch,18,offset i1
                dd 0d20h,18,offset i2
                dd 0d24h,18,offset i3
                dd 0d28h,18,offset i4
                dd 0d2ch,18,offset i5
                dd 0d30h,18,offset i6
                dd 0d31h,18,offset i7
                dd 0d33h,18,offset i8

        i1      db 'THANX:   ZIEL    $'
        i2      db '         TRAN    $'
        i3      db '         FRONTMAN$'
        i4      db 'SZUDI AND BRACH  $'
        i5      db 'WANT SENT FUCKING$'
        i6      db 'TO ALL SKIN-HEADS$'
        i7      db 'ON THE GLOBE !!! $'
        i8      db '              BYE$'

        a1      db '  TECHNOMANCER   $'
        a2      db '   PARADISE      $'
        a3      db '     AND         $'
        a4      db ' MIST  QUESTOR   $'
        a5      db 'TDA  COMPLEX  FC $'
        a6      db 'NOOON  VALHALLA  $'
        a7      db '  FASCINATION    $'
        a8      db '  RESISTANCE     $'

        z1      db ' SHOCKER  LOGRUS $'
        z2      db ' DARKMOON     TE $'
        z3      db 'PC MUZGI  FNOOL T$'
        z4      db ' GUARDIANS  RBL  $'
        z5      db ' BYTE LAND   DL  $'
        z6      db '  THE STRAMERS   $'
        z7      db 'NON TOXIC PROXIMA$'
        z8      db ' HL   HOUSE SOFT $'

	q1	db 'TIME FOR GREETINGS$$'
	q3	DB '  ADRAR  DESIGN  $'
	q4	DB ' HPZ CAMMORA STC $'
	q5	DB '  PULSE  MOTION  $'
	q6	DB ' EXTRAVAGANZA  WI$'
	q7	DB ' TECHNOLOGY COLOR$'
	q8	DB ' NECROBIOSIS  TG $'

	n1	db '                 $'
		db 'YOU WATCHED LAST $'
	n3	db ' !!! AMNESTY !!! $'
	n4	db '  PRESENTATION   $'
	n5	db ' CALLED !REVOLT! $'
	n6	db '                 $'
		db 'IT  WAS  REALASED$'
	n8 	db 'AT GP II PARTY !!$'


	pal2:
		include	part6.pal
	bla	db 768 DUP (0)

		include objects\ast1
		include	revolt.ext

CODE32 ENDS
END