diff options
Diffstat (limited to 'devtools/tasmrecover/dreamweb/titles.asm')
-rw-r--r-- | devtools/tasmrecover/dreamweb/titles.asm | 1148 |
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 |