aboutsummaryrefslogtreecommitdiff
path: root/devtools/tasmrecover/dreamweb/titles.asm
diff options
context:
space:
mode:
Diffstat (limited to 'devtools/tasmrecover/dreamweb/titles.asm')
-rw-r--r--devtools/tasmrecover/dreamweb/titles.asm1148
1 files changed, 574 insertions, 574 deletions
diff --git a/devtools/tasmrecover/dreamweb/titles.asm b/devtools/tasmrecover/dreamweb/titles.asm
index b4ca4d1c49..a47f31a327 100644
--- a/devtools/tasmrecover/dreamweb/titles.asm
+++ b/devtools/tasmrecover/dreamweb/titles.asm
@@ -1,583 +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
+
+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:
+ 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:
+ 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:
+ 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
-
-
-
-
-
-
-
-
-
-
-
-
-
+ ret
+
+ endp
+
+
+
+
+
+
+
+
+
+
+
+
+
 \ No newline at end of file