From 9599894a4b2f79672fc3e2ca5a93ef9c7d457c08 Mon Sep 17 00:00:00 2001
From: Vladimir Menshakov
Date: Wed, 15 Jun 2011 17:53:45 +0400
Subject: DREAMWEB: Added original sources. Released with permission from Neil
 Dodwell.

---
 devtools/tasmrecover/dreamweb/titles.asm | 583 +++++++++++++++++++++++++++++++
 1 file changed, 583 insertions(+)
 create mode 100644 devtools/tasmrecover/dreamweb/titles.asm

(limited to 'devtools/tasmrecover/dreamweb/titles.asm')

diff --git a/devtools/tasmrecover/dreamweb/titles.asm b/devtools/tasmrecover/dreamweb/titles.asm
new file mode 100644
index 0000000000..b4ca4d1c49
--- /dev/null
+++ b/devtools/tasmrecover/dreamweb/titles.asm
@@ -0,0 +1,583 @@
+;Copyright (c) 1990-2011 by Neil Dodwell
+;Released with permission from Neil Dodwell under GPLv2
+;See LICENSE file for full license text
+
+Titles	proc	near
+	
+	if	demo
+	ret
+	else
+	call	clearpalette
+	call	biblequote
+	call	intro
+	ret
+	endif
+
+	endp
+
+
+
+
+Endgame	proc	near
+
+	mov	dx,offset cs:endtextname
+	call	loadtemptext
+	call	monkspeaking
+	call	gettingshot
+	call	getridoftemptext
+	mov	volumeto,7
+	mov	volumedirection,1
+	mov	cx,200
+	call	hangon
+	ret
+
+	endp
+
+
+	if	cd
+
+Monkspeaking	proc	near
+
+	mov	roomssample,35
+	call	loadroomssample
+	mov	dx,offset cs:monkface
+	call	loadintotemp
+	call	clearwork ;createpanel2
+	call	showmonk
+	call	worktoscreen
+	mov	volume,7
+	mov	volumedirection,-1
+	mov	volumeto,5
+	mov	al,12
+	mov	ah,255
+	call	playchannel0
+	call	fadescreenups
+	mov	cx,300
+	call	hangon
+
+	mov	al,40
+loadspeech2:	push	ax
+	mov	dl,"T"
+	mov	dh,83
+               	mov	cl,"T"
+	mov	ah,0
+	call	loadspeech
+	mov	al,50+12
+	call	playchannel1
+notloadspeech2:	
+	call vsync
+	cmp	ch1playing,255
+	jnz	notloadspeech2
+	pop	ax
+	inc	al
+	cmp	al,48
+	jnz	loadspeech2
+
+	mov	volumedirection,1
+	mov	volumeto,7
+	call	fadescreendowns
+	mov	cx,300
+	call	hangon
+	call	getridoftemp
+	ret
+
+	endp
+	
+	else
+
+Monkspeaking	proc	near
+
+	mov	roomssample,35
+	call	loadroomssample
+	mov	dx,offset cs:monkface
+	call	loadintotemp
+	call	clearwork ;createpanel2
+	call	showmonk
+	call	worktoscreen
+	mov	volume,7
+	mov	volumedirection,-1
+	mov	volumeto,0
+	mov	al,12
+	mov	ah,255
+	call	playchannel0
+	call	fadescreenups
+	mov	cx,300
+	call	hangon
+
+	mov	al,40
+nextmonkspeak:	push	ax
+	mov	ah,0
+	mov	si,ax
+	add	si,si
+	mov	es,textfile1
+	mov	ax,[es:si]
+	add	ax,textstart
+	mov	si,ax
+nextbit:	mov	di,36
+	mov	bx,140
+	mov	dl,239
+	call	printdirect
+	push	ax si es
+	call	worktoscreen
+	call	clearwork
+	call	showmonk
+	mov	cx,240
+	call	hangon
+	pop	es si ax
+	cmp	al,0
+	jnz	nextbit
+	pop	ax
+	inc	al
+	cmp	al,44
+	jnz	nextmonkspeak
+
+	mov	volumedirection,1
+	mov	volumeto,7
+	call	fadescreendowns
+	mov	cx,300
+	call	hangon
+	call	getridoftemp
+	ret
+
+	endp
+
+	endif
+
+
+
+
+Showmonk	proc	near
+
+	mov	al,0
+	mov	ah,128
+	mov	di,160
+	mov	bx,72
+	mov	ds,tempgraphics
+	call	showframe
+	ret
+
+	endp
+
+
+Gettingshot	proc	near
+
+	mov	newlocation,55
+	call	clearpalette
+          	call	loadintroroom
+         	call	fadescreenups
+	mov	volumeto,0
+	mov	volumedirection,-1	
+        	call	runendseq
+	call	clearbeforeload
+	ret
+
+	endp
+
+
+	
+	
+	
+	
+Credits	proc	near
+
+	call	clearpalette
+	call	realcredits
+	ret	
+	
+	endp
+
+
+
+Biblequote	proc	near
+
+	call	mode640x480
+	mov	dx,offset cs:title0graphics
+	call	showpcx
+	call	fadescreenups
+	mov	cx,80
+	call	hangone
+	cmp	lasthardkey,1
+	jz	biblequotearly
+	mov	cx,560
+	call	hangone
+	cmp	lasthardkey,1
+	jz	biblequotearly
+	call	fadescreendowns
+	mov	cx,200 ;128
+	call	hangone
+	cmp	lasthardkey,1
+	jz	biblequotearly
+	call	cancelch0	
+biblequotearly:
+	mov lasthardkey,0
+	ret
+
+	endp
+
+
+
+
+Hangone	proc	near
+
+hangonloope:	push	cx
+	call	vsync
+	pop	cx
+	cmp	lasthardkey,1
+	jz	hangonearly
+	loop	hangonloope
+hangonearly:
+	ret
+
+	endp
+
+
+
+
+
+
+Intro	proc	near
+
+	mov	dx,offset cs:introtextname
+	call	loadtemptext
+
+	call	loadpalfromiff
+	call	setmode
+
+	mov	newlocation,50
+	call	clearpalette
+          	call	loadintroroom
+	mov	volume,7
+	mov	volumedirection,-1
+	if	cd
+	mov	volumeto,4
+	else
+	mov	volumeto,0
+	endif
+	mov	al,12 ;4
+	mov	ah,255
+	call	playchannel0
+         	call	fadescreenups
+        	call	runintroseq
+		cmp	lasthardkey,1
+		jz	introearly
+
+;waitsound:	cmp	ch1blockstoplay,0
+;	jnz	waitsound
+	call	clearbeforeload
+	
+	mov	newlocation,52
+	call	loadintroroom
+	call	runintroseq
+	cmp	lasthardkey,1
+	jz	introearly
+	call	clearbeforeload
+	
+	mov	newlocation,53
+	call	loadintroroom
+	call	runintroseq
+	cmp	lasthardkey,1
+	jz	introearly
+	call	clearbeforeload
+	
+	call	allpalette
+	mov	newlocation,54
+	call	loadintroroom
+	;mov	al,12
+	;mov	ah,255
+	;call	playchannel0
+	call	runintroseq
+	cmp	lasthardkey,1
+	jz	introearly
+
+	call	getridoftemptext
+	call	clearbeforeload
+introearly:
+	mov lasthardkey, 0
+	ret
+
+	endp
+
+
+
+
+
+
+
+
+Runintroseq	proc	near
+
+	mov	getback,0
+
+moreintroseq:	call	vsync
+	cmp	lasthardkey,1
+	jz	earlyendrun
+	call	spriteupdate
+	call	vsync
+	cmp	lasthardkey,1
+	jz	earlyendrun
+	call	deleverything
+	call	printsprites
+	call	reelsonscreen
+	call	afterintroroom
+	call	usetimedtext
+	call	vsync
+	cmp	lasthardkey,1
+	jz	earlyendrun
+	call	dumpmap
+	call	dumptimedtext
+	call	vsync
+	cmp	lasthardkey,1
+	jz	earlyendrun
+	cmp	getback,1
+	jnz	moreintroseq
+	ret
+earlyendrun:
+	call	getridoftemptext
+	call	clearbeforeload
+	ret
+
+	endp
+
+
+
+
+
+Runendseq	proc	near
+	
+	call	atmospheres
+	mov	getback,0
+moreendseq:	call	vsync
+	call	spriteupdate
+	call	vsync
+	call	deleverything
+	call	printsprites
+	call	reelsonscreen
+	call	afterintroroom
+	call	usetimedtext
+	call	vsync
+	call	dumpmap
+	call	dumptimedtext
+	call	vsync
+	cmp	getback,1
+	jnz	moreendseq
+	ret
+
+	endp
+
+
+
+
+Loadintroroom	proc	near
+
+	mov	introcount,0
+	mov	location,255
+	call	loadroom
+	mov	mapoffsetx,72
+	mov	mapoffsety,16
+	call	clearsprites
+	mov	throughdoor,0
+	mov	currentkey,"0"
+	mov	mainmode,0
+	call	clearwork
+	mov	newobs,1
+	call	drawfloor
+	call	reelsonscreen
+	call	spriteupdate
+	call	printsprites
+	call	worktoscreen
+	ret
+
+	endp
+
+
+
+
+
+
+Mode640x480	proc	near
+
+	mov	al,12h+128
+	mov	ah,0
+	int	10h
+	;call	clearpalette
+	ret
+
+	endp
+
+
+
+Set16colpalette	proc	near
+
+	mov	cx,16
+	mov	bl,0
+	mov	bh,0
+	mov	al,0
+	mov	ah,10h
+set16palloop2:	push	ax bx cx
+	int	10h
+	pop	cx bx ax
+	inc	bl
+	inc	bh
+	loop	set16palloop2
+	
+	mov	bl,31h
+	mov	al,1
+	mov	ah,12h
+	int	10h
+	ret
+
+	endp
+
+
+
+
+
+RealCredits	proc	near
+
+	mov	roomssample,33
+	call	loadroomssample
+	mov	volume,0
+
+	call	mode640x480
+	mov	cx,35
+	call	hangon
+
+	mov	dx,offset cs:title1graphics
+	call	showpcx
+	mov	al,12
+	mov	ah,0
+	call	playchannel0
+	mov	cx,2
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	allpalette
+	mov	cx,80
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	fadescreendowns
+	mov	cx,256
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+
+	mov	dx,offset cs:title2graphics
+	call	showpcx
+	mov	al,12
+	mov	ah,0
+	call	playchannel0
+	mov	cx,2
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	allpalette
+	mov	cx,80
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	fadescreendowns
+	mov	cx,256
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+
+	if	demo
+	else
+	mov	dx,offset cs:title3graphics
+	call	showpcx
+	mov	al,12
+	mov	ah,0
+	call	playchannel0
+	mov	cx,2
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	allpalette
+	mov	cx,80
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	fadescreendowns
+	mov	cx,256
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+
+	mov	dx,offset cs:title4graphics
+	call	showpcx
+	mov	al,12
+	mov	ah,0
+	call	playchannel0
+	mov	cx,2
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	allpalette
+	mov	cx,80
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	fadescreendowns
+	mov	cx,256
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+
+	mov	dx,offset cs:title5graphics
+	call	showpcx
+	mov	al,12
+	mov	ah,0
+	call	playchannel0
+	mov	cx,2
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	allpalette
+	mov	cx,80
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	fadescreendowns
+	mov	cx,256
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	endif
+
+	mov	dx,offset cs:title6graphics
+	call	showpcx
+	call	fadescreenups
+	mov	cx,60
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	mov	al,13
+	mov	ah,0
+	call	playchannel0
+	mov	cx,350
+	call	hangone
+	cmp	lasthardkey,1
+	jz	realcreditsearly
+	call	fadescreendowns
+	mov	cx,256
+	call	hangone
+realcreditsearly:
+	mov lasthardkey, 0
+	ret
+
+	endp
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
-- 
cgit v1.2.3