From 7d1948e210bb7b58af0a0412e71f2a0a0a2010af Mon Sep 17 00:00:00 2001 From: sparky4 Date: Sat, 7 Oct 2023 15:28:13 -0500 Subject: [PATCH] extrcted keen code remake --- 16/keen456/KEEN4-6/-ID_VW_AE.ASM | 1832 ++++++++++ 16/keen456/KEEN4-6/CK_DEF.H | 775 +++++ 16/keen456/KEEN4-6/CK_DEMO.C | 2132 ++++++++++++ 16/keen456/KEEN4-6/CK_GAME.C | 1009 ++++++ 16/keen456/KEEN4-6/CK_KEEN.C | 2509 ++++++++++++++ 16/keen456/KEEN4-6/CK_KEEN2.C | 1606 +++++++++ 16/keen456/KEEN4-6/CK_MAIN.C | 531 +++ 16/keen456/KEEN4-6/CK_PLAY.C | 2422 ++++++++++++++ 16/keen456/KEEN4-6/CK_STATE.C | 1968 +++++++++++ 16/keen456/KEEN4-6/CK_TEXT.C | 971 ++++++ 16/keen456/KEEN4-6/COPYING | 339 ++ 16/keen456/KEEN4-6/ID_CA.C | 2151 ++++++++++++ 16/keen456/KEEN4-6/ID_CA.H | 152 + 16/keen456/KEEN4-6/ID_IN.C | 1243 +++++++ 16/keen456/KEEN4-6/ID_IN.H | 232 ++ 16/keen456/KEEN4-6/ID_MM.C | 1136 +++++++ 16/keen456/KEEN4-6/ID_MM.H | 116 + 16/keen456/KEEN4-6/ID_RF.C | 2965 +++++++++++++++++ 16/keen456/KEEN4-6/ID_RF.H | 169 + 16/keen456/KEEN4-6/ID_RF_A.ASM | 690 ++++ 16/keen456/KEEN4-6/ID_SD.C | 1336 ++++++++ 16/keen456/KEEN4-6/ID_SD.H | 210 ++ 16/keen456/KEEN4-6/ID_US.H | 160 + 16/keen456/KEEN4-6/ID_US_1.C | 1358 ++++++++ 16/keen456/KEEN4-6/ID_US_2.C | 2260 +++++++++++++ 16/keen456/KEEN4-6/ID_US_A.ASM | 117 + 16/keen456/KEEN4-6/ID_VW.C | 1548 +++++++++ 16/keen456/KEEN4-6/ID_VW.H | 381 +++ 16/keen456/KEEN4-6/ID_VW_A.ASM | 732 ++++ 16/keen456/KEEN4-6/ID_VW_AC.ASM | 1536 +++++++++ 16/keen456/KEEN4-6/ID_VW_AE.ASM | 1824 ++++++++++ 16/keen456/KEEN4-6/KEEN4/AUDIOCK4.H | 125 + 16/keen456/KEEN4-6/KEEN4/GFXE_CK4.EQU | 55 + 16/keen456/KEEN4-6/KEEN4/GFXE_CK4.H | 765 +++++ 16/keen456/KEEN4-6/KEEN4/ID_ASM.EQU | 115 + 16/keen456/KEEN4-6/KEEN4/ID_HEADS.H | 109 + 16/keen456/KEEN4-6/KEEN4/K4_ACT1.C | 1221 +++++++ 16/keen456/KEEN4-6/KEEN4/K4_ACT2.C | 1392 ++++++++ 16/keen456/KEEN4-6/KEEN4/K4_ACT3.C | 1317 ++++++++ 16/keen456/KEEN4-6/KEEN4/K4_DEF.H | 511 +++ 16/keen456/KEEN4-6/KEEN4/K4_SPEC.C | 1305 ++++++++ 16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.EQU | 55 + 16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.H | 767 +++++ 16/keen456/KEEN4-6/KEEN4C/ID_ASM.EQU | 115 + 16/keen456/KEEN4-6/KEEN4C/ID_HEADS.H | 109 + 16/keen456/KEEN4-6/KEEN5/AUDIOCK5.H | 145 + 16/keen456/KEEN4-6/KEEN5/GFXE_CK5.EQU | 55 + 16/keen456/KEEN4-6/KEEN5/GFXE_CK5.H | 690 ++++ 16/keen456/KEEN4-6/KEEN5/ID_ASM.EQU | 115 + 16/keen456/KEEN4-6/KEEN5/ID_HEADS.H | 109 + 16/keen456/KEEN4-6/KEEN5/K5_ACT1.C | 1524 +++++++++ 16/keen456/KEEN4-6/KEEN5/K5_ACT2.C | 906 +++++ 16/keen456/KEEN4-6/KEEN5/K5_ACT3.C | 2142 ++++++++++++ 16/keen456/KEEN4-6/KEEN5/K5_DEF.H | 485 +++ 16/keen456/KEEN4-6/KEEN5/K5_SPEC.C | 1158 +++++++ 16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.EQU | 55 + 16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.H | 690 ++++ 16/keen456/KEEN4-6/KEEN5C/ID_ASM.EQU | 115 + 16/keen456/KEEN4-6/KEEN5C/ID_HEADS.H | 109 + 16/keen456/KEEN4-6/KEEN6/AUDIOCK6.H | 136 + 16/keen456/KEEN4-6/KEEN6/GFXE_CK6.EQU | 55 + 16/keen456/KEEN4-6/KEEN6/GFXE_CK6.H | 670 ++++ 16/keen456/KEEN4-6/KEEN6/ID_ASM.EQU | 115 + 16/keen456/KEEN4-6/KEEN6/ID_HEADS.H | 109 + 16/keen456/KEEN4-6/KEEN6/K6_ACT1.C | 2137 ++++++++++++ 16/keen456/KEEN4-6/KEEN6/K6_ACT2.C | 1311 ++++++++ 16/keen456/KEEN4-6/KEEN6/K6_ACT3.C | 765 +++++ 16/keen456/KEEN4-6/KEEN6/K6_DEF.H | 518 +++ 16/keen456/KEEN4-6/KEEN6/K6_SPEC.C | 887 +++++ 16/keen456/KEEN4-6/KEEN6/OBJ/fix_RCK6_v15.pat | 3 + 16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.EQU | 55 + 16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.H | 667 ++++ 16/keen456/KEEN4-6/KEEN6C/ID_ASM.EQU | 115 + 16/keen456/KEEN4-6/KEEN6C/ID_HEADS.H | 109 + .../KEEN4-6/KEEN6C/OBJ/fix_RCK6C_v15.pat | 3 + 16/keen456/KEEN4-6/RCK4.DSK | Bin 0 -> 236 bytes 16/keen456/KEEN4-6/RCK4.PRJ | Bin 0 -> 13193 bytes 16/keen456/KEEN4-6/RCK4C.DSK | Bin 0 -> 324 bytes 16/keen456/KEEN4-6/RCK4C.PRJ | Bin 0 -> 13165 bytes 16/keen456/KEEN4-6/RCK4GT.DSK | Bin 0 -> 96 bytes 16/keen456/KEEN4-6/RCK4GT.PRJ | Bin 0 -> 13203 bytes 16/keen456/KEEN4-6/RCK5.DSK | Bin 0 -> 441 bytes 16/keen456/KEEN4-6/RCK5.PRJ | Bin 0 -> 13159 bytes 16/keen456/KEEN4-6/RCK5C.DSK | Bin 0 -> 305 bytes 16/keen456/KEEN4-6/RCK5C.PRJ | Bin 0 -> 13165 bytes 16/keen456/KEEN4-6/RCK5GT.DSK | Bin 0 -> 66 bytes 16/keen456/KEEN4-6/RCK5GT.PRJ | Bin 0 -> 13203 bytes 16/keen456/KEEN4-6/RCK6.DSK | Bin 0 -> 223 bytes 16/keen456/KEEN4-6/RCK6.PRJ | Bin 0 -> 13276 bytes 16/keen456/KEEN4-6/RCK6C.DSK | Bin 0 -> 294 bytes 16/keen456/KEEN4-6/RCK6C.PRJ | Bin 0 -> 13318 bytes 16/keen456/KEEN4-6/RCK6C15.DSK | Bin 0 -> 275 bytes 16/keen456/KEEN4-6/RCK6C15.PRJ | Bin 0 -> 13326 bytes 16/keen456/KEEN4-6/RCK6E15.DSK | Bin 0 -> 96 bytes 16/keen456/KEEN4-6/RCK6E15.PRJ | Bin 0 -> 13320 bytes 16/keen456/KEEN4-6/static/MAKEOBJ.EXE | Bin 0 -> 13978 bytes 16/keen456/KEEN4-6/static/make.bat | 30 + 16/keen456/KEEN4-6/static/makeobj.c | 470 +++ 16/keen456/KEEN4-6/static/ripck4.pat | 44 + 16/keen456/KEEN4-6/static/ripck5.pat | 44 + 16/keen456/KEEN4-6/static/ripck6.pat | 65 + 16/keen456/KEEN4-6/timeline.txt | 352 ++ 16/keen456/LZEXE.EXE | Bin 0 -> 12304 bytes 16/keen456/RCK4.BAT | 4 + 16/keen456/RCK4C.BAT | 4 + 16/keen456/RCK4GT.BAT | 4 + 16/keen456/RCK5.BAT | 4 + 16/keen456/RCK5C.BAT | 4 + 16/keen456/RCK5GT.BAT | 4 + 16/keen456/RCK6.BAT | 4 + 16/keen456/RCK6C.BAT | 4 + 16/keen456/RCK6C15.BAT | 4 + 16/keen456/RCK6E15.BAT | 4 + 16/keen456/cleanup.bat | 7 + 16/keen456/readme.txt | 376 +++ 16/keen456/ripnmake.bat | 20 + 116 files changed, 61772 insertions(+) create mode 100755 16/keen456/KEEN4-6/-ID_VW_AE.ASM create mode 100755 16/keen456/KEEN4-6/CK_DEF.H create mode 100755 16/keen456/KEEN4-6/CK_DEMO.C create mode 100755 16/keen456/KEEN4-6/CK_GAME.C create mode 100755 16/keen456/KEEN4-6/CK_KEEN.C create mode 100755 16/keen456/KEEN4-6/CK_KEEN2.C create mode 100755 16/keen456/KEEN4-6/CK_MAIN.C create mode 100755 16/keen456/KEEN4-6/CK_PLAY.C create mode 100755 16/keen456/KEEN4-6/CK_STATE.C create mode 100755 16/keen456/KEEN4-6/CK_TEXT.C create mode 100755 16/keen456/KEEN4-6/COPYING create mode 100755 16/keen456/KEEN4-6/ID_CA.C create mode 100755 16/keen456/KEEN4-6/ID_CA.H create mode 100755 16/keen456/KEEN4-6/ID_IN.C create mode 100755 16/keen456/KEEN4-6/ID_IN.H create mode 100755 16/keen456/KEEN4-6/ID_MM.C create mode 100755 16/keen456/KEEN4-6/ID_MM.H create mode 100755 16/keen456/KEEN4-6/ID_RF.C create mode 100755 16/keen456/KEEN4-6/ID_RF.H create mode 100755 16/keen456/KEEN4-6/ID_RF_A.ASM create mode 100755 16/keen456/KEEN4-6/ID_SD.C create mode 100755 16/keen456/KEEN4-6/ID_SD.H create mode 100755 16/keen456/KEEN4-6/ID_US.H create mode 100755 16/keen456/KEEN4-6/ID_US_1.C create mode 100755 16/keen456/KEEN4-6/ID_US_2.C create mode 100755 16/keen456/KEEN4-6/ID_US_A.ASM create mode 100755 16/keen456/KEEN4-6/ID_VW.C create mode 100755 16/keen456/KEEN4-6/ID_VW.H create mode 100755 16/keen456/KEEN4-6/ID_VW_A.ASM create mode 100755 16/keen456/KEEN4-6/ID_VW_AC.ASM create mode 100755 16/keen456/KEEN4-6/ID_VW_AE.ASM create mode 100755 16/keen456/KEEN4-6/KEEN4/AUDIOCK4.H create mode 100755 16/keen456/KEEN4-6/KEEN4/GFXE_CK4.EQU create mode 100755 16/keen456/KEEN4-6/KEEN4/GFXE_CK4.H create mode 100755 16/keen456/KEEN4-6/KEEN4/ID_ASM.EQU create mode 100755 16/keen456/KEEN4-6/KEEN4/ID_HEADS.H create mode 100755 16/keen456/KEEN4-6/KEEN4/K4_ACT1.C create mode 100755 16/keen456/KEEN4-6/KEEN4/K4_ACT2.C create mode 100755 16/keen456/KEEN4-6/KEEN4/K4_ACT3.C create mode 100755 16/keen456/KEEN4-6/KEEN4/K4_DEF.H create mode 100755 16/keen456/KEEN4-6/KEEN4/K4_SPEC.C create mode 100755 16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.EQU create mode 100755 16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.H create mode 100755 16/keen456/KEEN4-6/KEEN4C/ID_ASM.EQU create mode 100755 16/keen456/KEEN4-6/KEEN4C/ID_HEADS.H create mode 100755 16/keen456/KEEN4-6/KEEN5/AUDIOCK5.H create mode 100755 16/keen456/KEEN4-6/KEEN5/GFXE_CK5.EQU create mode 100755 16/keen456/KEEN4-6/KEEN5/GFXE_CK5.H create mode 100755 16/keen456/KEEN4-6/KEEN5/ID_ASM.EQU create mode 100755 16/keen456/KEEN4-6/KEEN5/ID_HEADS.H create mode 100755 16/keen456/KEEN4-6/KEEN5/K5_ACT1.C create mode 100755 16/keen456/KEEN4-6/KEEN5/K5_ACT2.C create mode 100755 16/keen456/KEEN4-6/KEEN5/K5_ACT3.C create mode 100755 16/keen456/KEEN4-6/KEEN5/K5_DEF.H create mode 100755 16/keen456/KEEN4-6/KEEN5/K5_SPEC.C create mode 100755 16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.EQU create mode 100755 16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.H create mode 100755 16/keen456/KEEN4-6/KEEN5C/ID_ASM.EQU create mode 100755 16/keen456/KEEN4-6/KEEN5C/ID_HEADS.H create mode 100755 16/keen456/KEEN4-6/KEEN6/AUDIOCK6.H create mode 100755 16/keen456/KEEN4-6/KEEN6/GFXE_CK6.EQU create mode 100755 16/keen456/KEEN4-6/KEEN6/GFXE_CK6.H create mode 100755 16/keen456/KEEN4-6/KEEN6/ID_ASM.EQU create mode 100755 16/keen456/KEEN4-6/KEEN6/ID_HEADS.H create mode 100755 16/keen456/KEEN4-6/KEEN6/K6_ACT1.C create mode 100755 16/keen456/KEEN4-6/KEEN6/K6_ACT2.C create mode 100755 16/keen456/KEEN4-6/KEEN6/K6_ACT3.C create mode 100755 16/keen456/KEEN4-6/KEEN6/K6_DEF.H create mode 100755 16/keen456/KEEN4-6/KEEN6/K6_SPEC.C create mode 100755 16/keen456/KEEN4-6/KEEN6/OBJ/fix_RCK6_v15.pat create mode 100755 16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.EQU create mode 100755 16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.H create mode 100755 16/keen456/KEEN4-6/KEEN6C/ID_ASM.EQU create mode 100755 16/keen456/KEEN4-6/KEEN6C/ID_HEADS.H create mode 100755 16/keen456/KEEN4-6/KEEN6C/OBJ/fix_RCK6C_v15.pat create mode 100755 16/keen456/KEEN4-6/RCK4.DSK create mode 100755 16/keen456/KEEN4-6/RCK4.PRJ create mode 100755 16/keen456/KEEN4-6/RCK4C.DSK create mode 100755 16/keen456/KEEN4-6/RCK4C.PRJ create mode 100755 16/keen456/KEEN4-6/RCK4GT.DSK create mode 100755 16/keen456/KEEN4-6/RCK4GT.PRJ create mode 100755 16/keen456/KEEN4-6/RCK5.DSK create mode 100755 16/keen456/KEEN4-6/RCK5.PRJ create mode 100755 16/keen456/KEEN4-6/RCK5C.DSK create mode 100755 16/keen456/KEEN4-6/RCK5C.PRJ create mode 100755 16/keen456/KEEN4-6/RCK5GT.DSK create mode 100755 16/keen456/KEEN4-6/RCK5GT.PRJ create mode 100755 16/keen456/KEEN4-6/RCK6.DSK create mode 100755 16/keen456/KEEN4-6/RCK6.PRJ create mode 100755 16/keen456/KEEN4-6/RCK6C.DSK create mode 100755 16/keen456/KEEN4-6/RCK6C.PRJ create mode 100755 16/keen456/KEEN4-6/RCK6C15.DSK create mode 100755 16/keen456/KEEN4-6/RCK6C15.PRJ create mode 100755 16/keen456/KEEN4-6/RCK6E15.DSK create mode 100755 16/keen456/KEEN4-6/RCK6E15.PRJ create mode 100755 16/keen456/KEEN4-6/static/MAKEOBJ.EXE create mode 100755 16/keen456/KEEN4-6/static/make.bat create mode 100755 16/keen456/KEEN4-6/static/makeobj.c create mode 100755 16/keen456/KEEN4-6/static/ripck4.pat create mode 100755 16/keen456/KEEN4-6/static/ripck5.pat create mode 100755 16/keen456/KEEN4-6/static/ripck6.pat create mode 100755 16/keen456/KEEN4-6/timeline.txt create mode 100755 16/keen456/LZEXE.EXE create mode 100755 16/keen456/RCK4.BAT create mode 100755 16/keen456/RCK4C.BAT create mode 100755 16/keen456/RCK4GT.BAT create mode 100755 16/keen456/RCK5.BAT create mode 100755 16/keen456/RCK5C.BAT create mode 100755 16/keen456/RCK5GT.BAT create mode 100755 16/keen456/RCK6.BAT create mode 100755 16/keen456/RCK6C.BAT create mode 100755 16/keen456/RCK6C15.BAT create mode 100755 16/keen456/RCK6E15.BAT create mode 100755 16/keen456/cleanup.bat create mode 100755 16/keen456/readme.txt create mode 100755 16/keen456/ripnmake.bat diff --git a/16/keen456/KEEN4-6/-ID_VW_AE.ASM b/16/keen456/KEEN4-6/-ID_VW_AE.ASM new file mode 100755 index 00000000..4e76e86a --- /dev/null +++ b/16/keen456/KEEN4-6/-ID_VW_AE.ASM @@ -0,0 +1,1832 @@ +; Reconstructed Commander Keen 4-6 Source Code +; Copyright (C) 2021 K1n9_Duk3 +; +; This file is primarily based on: +; Catacomb 3-D Source Code +; Copyright (C) 1993-2014 Flat Rock Software +; +; This program is free software; you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License along +; with this program; if not, write to the Free Software Foundation, Inc., +; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +;================================= +; +; EGA view manager routines +; +;================================= + +;============================================================================ +; +; All EGA drawing routines that write out words need to have alternate forms +; for starting on even and odd addresses, because writing a word at segment +; offset 0xffff causes an exception! To work around this, write a single +; byte out to make the address even, so it wraps cleanly at the end. +; +; All of these routines assume read/write mode 0, and will allways return +; in that state. +; The direction flag should be clear +; readmap/writemask is left in an undefined state +; +;============================================================================ + + +;============================================================================ +; +; VW_Plot (int x,y,color) +; +;============================================================================ + +DATASEG + +plotpixels db 128,64,32,16,8,4,2,1 + +CODESEG + +PROC VW_Plot x:WORD, y:WORD, color:WORD +PUBLIC VW_Plot +USES SI,DI + + mov es,[screenseg] + + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + + mov dx,GC_INDEX + mov ax,GC_MODE+2*256 ;write mode 2 + WORDOUT + + mov di,[bufferofs] + mov bx,[y] + shl bx,1 + add di,[ylookup+bx] + mov bx,[x] + mov ax,bx + shr ax,1 + shr ax,1 + shr ax,1 + add di,ax ; di = byte on screen + + and bx,7 + mov ah,[plotpixels+bx] + mov al,GC_BITMASK ;mask off other pixels + WORDOUT + + mov bl,[BYTE color] + xchg bl,[es:di] ; load latches and write pixel + + mov dx,GC_INDEX + mov ah,0ffh ;no bit mask + WORDOUT + mov ax,GC_MODE+0*256 ;write mode 0 + WORDOUT + + ret + +ENDP + + +;============================================================================ +; +; VW_Vlin (int yl,yh,x,color) +; +;============================================================================ + +PROC VW_Vlin yl:WORD, yh:WORD, x:WORD, color:WORD +PUBLIC VW_Vlin +USES SI,DI + + mov es,[screenseg] + + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + + mov dx,GC_INDEX + mov ax,GC_MODE+2*256 ;write mode 2 + WORDOUT + + mov di,[bufferofs] + mov bx,[yl] + shl bx,1 + add di,[ylookup+bx] + mov bx,[x] + mov ax,bx + shr ax,1 + shr ax,1 + shr ax,1 + add di,ax ; di = byte on screen + + and bx,7 + mov ah,[plotpixels+bx] + mov al,GC_BITMASK ;mask off other pixels + WORDOUT + + mov cx,[yh] + sub cx,[yl] + inc cx ;number of pixels to plot + + mov bh,[BYTE color] + mov dx,[linewidth] + +@@plot: + mov bl,bh + xchg bl,[es:di] ; load latches and write pixel + add di,dx + + loop @@plot + + mov dx,GC_INDEX + mov ah,0ffh ;no bit mask + WORDOUT + mov ax,GC_MODE+0*256 ;write mode 0 + WORDOUT + + ret + +ENDP + + +;============================================================================ + + +;=================== +; +; VW_DrawTile8 +; +; xcoord in bytes (8 pixels), ycoord in pixels +; All Tile8s are in one grseg, so an offset is calculated inside it +; +;=================== + +PROC VW_DrawTile8 xcoord:WORD, ycoord:WORD, tile:WORD +PUBLIC VW_DrawTile8 +USES SI,DI + + mov es,[screenseg] + + mov di,[bufferofs] + add di,[xcoord] + mov bx,[ycoord] + shl bx,1 + add di,[ylookup+bx] + mov [ss:screendest],di ;screen destination + + mov bx,[linewidth] + dec bx + + mov si,[tile] + shl si,1 + shl si,1 + shl si,1 + shl si,1 + shl si,1 + + mov ds,[grsegs+STARTTILE8*2] ; segment for all tile8s + + mov cx,4 ;planes to draw + mov ah,0001b ;map mask + + mov dx,SC_INDEX + mov al,SC_MAPMASK + +; +; start drawing +; + +@@planeloop: + WORDOUT + shl ah,1 ;shift plane mask over for next plane + + mov di,[ss:screendest] ;start at same place in all planes + +REPT 7 + movsb + add di,bx +ENDM + movsb + + loop @@planeloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + + +;============================================================================ +; +; VW_MaskBlock +; +; Draws a masked block shape to the screen. bufferofs is NOT accounted for. +; The mask comes first, then four planes of data. +; +;============================================================================ + +DATASEG + +UNWOUNDMASKS = 10 + + +maskroutines dw mask0,mask0,mask1E,mask1E,mask2E,mask2O,mask3E,mask3O + dw mask4E,mask4O,mask5E,mask5O,mask6E,mask6O + dw mask7E,mask7O,mask8E,mask8O,mask9E,mask9O + dw mask10E,mask10O + + +routinetouse dw ? + +CODESEG + +PROC VW_MaskBlock segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD, planesize:WORD +PUBLIC VW_MaskBlock +USES SI,DI + + mov es,[screenseg] + + mov [BYTE planemask],1 + mov [BYTE planenum],0 + + mov di,[wide] + mov dx,[linewidth] + sub dx,[wide] + mov [linedelta],dx ;amount to add after drawing each line + + mov bx,[planesize] ; si+bx = data location + + cmp di,UNWOUNDMASKS + jbe @@unwoundroutine + mov [routinetouse],OFFSET generalmask + jmp NEAR @@startloop + +;================= +; +; use the unwound routines +; +;================= + +@@unwoundroutine: + mov cx,[dest] + shr cx,1 + rcl di,1 ;shift a 1 in if destination is odd + shl di,1 ;to index into a word width table + mov ax,[maskroutines+di] ;call the right routine + mov [routinetouse],ax + +@@startloop: + mov ds,[segm] + +@@drawplane: + mov dx,SC_INDEX + mov al,SC_MAPMASK + mov ah,[ss:planemask] + WORDOUT + mov dx,GC_INDEX + mov al,GC_READMAP + mov ah,[ss:planenum] + WORDOUT + + mov si,[ofs] ;start back at the top of the mask + mov di,[dest] ;start at same place in all planes + mov cx,[height] ;scan lines to draw + mov dx,[ss:linedelta] + + jmp [ss:routinetouse] ;draw one plane +planereturn: ;routine jmps back here + + add bx,[ss:planesize] ;start of mask = start of next plane + + inc [ss:planenum] + shl [ss:planemask],1 ;shift plane mask over for next plane + cmp [ss:planemask],10000b ;done all four planes? + jne @@drawplane + +mask0: + mov ax,ss + mov ds,ax + ret ;width of 0 = no drawing + +;============== +; +; General purpose masked block drawing. This could be optimised into +; four routines to use words, but few play loop sprites should be this big! +; +;============== + +generalmask: + mov dx,cx + +@@lineloopgen: + mov cx,[wide] +@@byteloop: + mov al,[es:di] + and al,[si] + or al,[bx+si] + inc si + stosb + loop @@byteloop + + add di,[ss:linedelta] + dec dx + jnz @@lineloopgen + jmp planereturn + +;================= +; +; Horizontally unwound routines to draw certain masked blocks faster +; +;================= + +MACRO MASKBYTE + lodsb + and al,[es:di] + or al,[bx+si-1] + stosb +ENDM + +MACRO MASKWORD + lodsw + and ax,[es:di] + or ax,[bx+si-2] + stosw +ENDM + +MACRO SPRITELOOP addr + add di,dx + loop addr + jmp planereturn +ENDM + + +EVEN +mask1E: + MASKBYTE + SPRITELOOP mask1E + +EVEN +mask2E: + MASKWORD + SPRITELOOP mask2E + +EVEN +mask2O: + MASKBYTE + MASKBYTE + SPRITELOOP mask2O + +EVEN +mask3E: + MASKWORD + MASKBYTE + SPRITELOOP mask3E + +EVEN +mask3O: + MASKBYTE + MASKWORD + SPRITELOOP mask3O + +EVEN +mask4E: + MASKWORD + MASKWORD + SPRITELOOP mask4E + +EVEN +mask4O: + MASKBYTE + MASKWORD + MASKBYTE + SPRITELOOP mask4O + +EVEN +mask5E: + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask5E + +EVEN +mask5O: + MASKBYTE + MASKWORD + MASKWORD + SPRITELOOP mask5O + +EVEN +mask6E: + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask6E + +EVEN +mask6O: + MASKBYTE + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask6O + +EVEN +mask7E: + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask7E + +EVEN +mask7O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask7O + +EVEN +mask8E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask8E + +EVEN +mask8O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask8O + +EVEN +mask9E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask9E + +EVEN +mask9O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask9O + +EVEN +mask10E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask10E + +EVEN +mask10O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask10O + + +ENDP + + +;============================================================================ +; +; VW_InverseMask +; +; Draws a masked block shape to the screen. bufferofs is NOT accounted for. +; The mask comes first, then four planes of data. +; +;============================================================================ + +PROC VW_InverseMask segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_InverseMask +USES SI,DI + + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + mov dx,GC_INDEX + mov ax,GC_DATAROTATE+16*256 ;set function = OR + WORDOUT + + mov es, [screenseg] + mov ax, [wide] + mov dx, [linewidth] + sub dx, ax; + mov ds, [segm] + mov si, [ofs] + mov di, [dest] + mov bx, [height] +@@yloop: + mov cx, [wide] +@@xloop: + lodsb + not al + xchg al, [es:di] + inc di + loop @@xloop + add di, dx + dec bx + jnz @@yloop + + mov dx,GC_INDEX + mov ax,GC_DATAROTATE+0*256 ;set function = no change + WORDOUT + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + +;============================================================================ +; +; VW_ScreenToScreen +; +; Basic block copy routine. Copies one block of screen memory to another, +; using write mode 1 (sets it and returns with write mode 0). bufferofs is +; NOT accounted for. +; +;============================================================================ + +PROC VW_ScreenToScreen source:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_ScreenToScreen +USES SI,DI + + pushf + cli + + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + mov dx,GC_INDEX + mov ax,GC_MODE+1*256 + WORDOUT + + popf + + mov bx,[linewidth] + sub bx,[wide] + + mov ax,[screenseg] + mov es,ax + mov ds,ax + + mov si,[source] + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + mov ax,[wide] + +@@lineloop: + mov cx,ax + rep movsb + add si,bx + add di,bx + + dec dx + jnz @@lineloop + + mov dx,GC_INDEX + mov ax,GC_MODE+0*256 + WORDOUT + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + + +;============================================================================ +; +; VW_MemToScreen +; +; Basic block drawing routine. Takes a block shape at segment pointer source +; with four planes of width by height data, and draws it to dest in the +; virtual screen, based on linewidth. bufferofs is NOT accounted for. +; There are four drawing routines to provide the best optimized code while +; accounting for odd segment wrappings due to the floating screens. +; +;============================================================================ + +DATASEG + +memtoscreentable dw eventoeven,eventoodd,oddtoeven,oddtoodd + +CODESEG + + +PROC VW_MemToScreen source:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_MemToScreen +USES SI,DI + + mov es,[screenseg] + + mov bx,[linewidth] + sub bx,[wide] + + mov ds,[source] + + + xor si,si ;block is segment aligned + + xor di,di + shr [wide],1 ;change wide to words, and see if carry is set + rcl di,1 ;1 if wide is odd + mov ax,[dest] + shr ax,1 + rcl di,1 ;shift a 1 in if destination is odd + shl di,1 ;to index into a word width table + mov ax,SC_MAPMASK+0001b*256 ;map mask for plane 0 + jmp [ss:memtoscreentable+di] ;call the right routine + +;============== +; +; Copy an even width block to an even video address +; +;============== + +eventoeven: + mov dx,SC_INDEX + WORDOUT + + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloopEE: + mov cx,[wide] + rep movsw + + add di,bx + + dec dx + jnz @@lineloopEE + + shl ah,1 ;shift plane mask over for next plane + cmp ah,10000b ;done all four planes? + jne eventoeven + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +;============== +; +; Copy an odd width block to an even video address +; +;============== + +oddtoeven: + mov dx,SC_INDEX + WORDOUT + + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloopOE: + mov cx,[wide] + rep movsw + movsb ;copy the last byte + + add di,bx + + dec dx + jnz @@lineloopOE + + shl ah,1 ;shift plane mask over for next plane + cmp ah,10000b ;done all four planes? + jne oddtoeven + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +;============== +; +; Copy an even width block to an odd video address +; +;============== + +eventoodd: + dec [wide] ;one word has to be handled seperately +EOplaneloop: + mov dx,SC_INDEX + WORDOUT + + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloopEO: + movsb + mov cx,[wide] + rep movsw + movsb + + add di,bx + + dec dx + jnz @@lineloopEO + + shl ah,1 ;shift plane mask over for next plane + cmp ah,10000b ;done all four planes? + jne EOplaneloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +;============== +; +; Copy an odd width block to an odd video address +; +;============== + +oddtoodd: + mov dx,SC_INDEX + WORDOUT + + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloopOO: + movsb + mov cx,[wide] + rep movsw + + add di,bx + + dec dx + jnz @@lineloopOO + + shl ah,1 ;shift plane mask over for next plane + cmp ah,10000b ;done all four planes? + jne oddtoodd + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + + +ENDP + +;=========================================================================== +; +; VW_ScreenToMem +; +; Copies a block of video memory to main memory, in order from planes 0-3. +; This could be optimized along the lines of VW_MemToScreen to take advantage +; of word copies, but this is an infrequently called routine. +; +;=========================================================================== + +PROC VW_ScreenToMem source:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_ScreenToMem +USES SI,DI + + mov es,[dest] + + mov bx,[linewidth] + sub bx,[wide] + + mov ds,[screenseg] + + mov ax,GC_READMAP ;read map for plane 0 + + xor di,di + +@@planeloop: + mov dx,GC_INDEX + WORDOUT + + mov si,[source] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloop: + mov cx,[wide] + rep movsb + + add si,bx + + dec dx + jnz @@lineloop + + inc ah + cmp ah,4 ;done all four planes? + jne @@planeloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + + +;============================================================================ +; +; VWL_UpdateScreenBlocks +; +; Scans through the update matrix and copies any areas that have changed +; to the visable screen, then zeros the update array +; +;============================================================================ + + + +; AX 0/1 for scasb, temp for segment register transfers +; BX width for block copies +; CX REP counter +; DX line width deltas +; SI source for copies +; DI scas dest / movsb dest +; BP pointer to end of bufferblocks + +PROC VWL_UpdateScreenBlocks +PUBLIC VWL_UpdateScreenBlocks +USES SI,DI,BP + + jmp SHORT @@realstart +@@done: +; +; all tiles have been scanned +; + mov dx,GC_INDEX ; restore write mode 0 + mov ax,GC_MODE+0*256 + WORDOUT + + xor ax,ax ; clear out the update matrix + mov cx,UPDATEWIDE*UPDATEHIGH/2 + + mov di,[updateptr] + rep stosw + + ret + +@@realstart: + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + mov dx,GC_INDEX + mov ax,GC_MODE+1*256 + WORDOUT + + mov di,[updateptr] ; start of floating update screen + mov bp,di + add bp,UPDATEWIDE*UPDATEHIGH+1 ; when di = bp, all tiles have been scanned + + push di + mov cx,-1 ; definately scan the entire thing + +; +; scan for a 1 in the update list, meaning a tile needs to be copied +; from the master screen to the current screen +; +@@findtile: + pop di ; place to continue scaning from + mov ax,ss + mov es,ax ; search in the data segment + mov ds,ax + mov al,1 + repne scasb + cmp di,bp + jae @@done + + cmp [BYTE di],al + jne @@singletile + jmp @@tileblock + +;============ +; +; copy a single tile +; +;============ +@@singletile: + inc di ; we know the next tile is nothing + push di ; save off the spot being scanned + sub di,[updateptr] + shl di,1 + mov di,[blockstarts-4+di] ; start of tile location on screen + mov si,di + add si,[bufferofs] + add di,[displayofs] + + mov dx,[linewidth] + sub dx,2 + mov ax,[screenseg] + mov ds,ax + mov es,ax + +REPT 15 + movsb + movsb + add si,dx + add di,dx +ENDM + movsb + movsb + + jmp @@findtile + +;============ +; +; more than one tile in a row needs to be updated, so do it as a group +; +;============ +EVEN +@@tileblock: + mov dx,di ; hold starting position + 1 in dx + inc di ; we know the next tile also gets updated + repe scasb ; see how many more in a row + push di ; save off the spot being scanned + + mov bx,di + sub bx,dx ; number of tiles in a row + shl bx,1 ; number of bytes / row + + mov di,dx ; lookup position of start tile + sub di,[updateptr] + shl di,1 + mov di,[blockstarts-2+di] ; start of tile location + mov si,di + add si,[bufferofs] + add di,[displayofs] + + mov dx,[linewidth] + sub dx,bx ; offset to next line on screen + + mov ax,[screenseg] + mov ds,ax + mov es,ax + +REPT 15 + mov cx,bx + rep movsb + add si,dx + add di,dx +ENDM + mov cx,bx + rep movsb + + dec cx ; was 0 from last rep movsb, now $ffff for scasb + jmp @@findtile + +ENDP + + +;=========================================================================== +; +; MISC EGA ROUTINES +; +;=========================================================================== + +;================= +; +; VWL_WaitRetrace +; +;================= + +DATASEG + +EXTRN TimeCount :DWORD +EXTRN jerk :WORD +EXTRN nopan :WORD + +CODESEG + +PROC VWL_WaitRetrace NEAR + mov dx,STATUS_REGISTER_1 + mov bx,[WORD TimeCount] +@@waitloop: + sti + jmp $+2 + cli + + in al,dx + test al,8 + jnz @@done + mov ax,[WORD TimeCount] + sub ax,bx + cmp ax,1 + jbe @@waitloop + +@@done: + ret +ENDP + + +;============== +; +; VW_SetScreen +; +;============== + +PROC VW_SetScreen crtc:WORD, pel:WORD +PUBLIC VW_SetScreen + +if waitforvbl + + mov dx,STATUS_REGISTER_1 + +; +; wait util the CRTC just starts scaning a diplayed line to set the CRTC start +; + cli + +@@waitnodisplay: + in al,dx + test al,01b + jz @@waitnodisplay + +@@waitdisplay: + in al,dx + test al,01b + jnz @@waitdisplay + +endif + +; +; set CRTC start +; +; for some reason, my XT's EGA card doesn't like word outs to the CRTC +; index... +; + mov cx,[crtc] + mov dx,CRTC_INDEX + mov al,0ch ;start address high register + out dx,al + inc dx + mov al,ch + out dx,al + dec dx + mov al,0dh ;start address low register + out dx,al + mov al,cl + inc dx + out dx,al + + test [jerk],1 + jz @@l3 + call VWL_WaitRetrace + +@@l3: + test [nopan],1 + jnz @@l4 +; +; set horizontal panning +; + + mov dx,ATR_INDEX + mov al,ATR_PELPAN or 20h + out dx,al + jmp $+2 + mov al,[BYTE pel] ;pel pan value + out dx,al + +@@l4: + test [jerk],1 + jnz @@done + call VWL_WaitRetrace + +@@done: + sti + + ret + +ENDP + + +if NUMFONT+NUMFONTM + +;=========================================================================== +; +; GENERAL FONT DRAWING ROUTINES +; +;=========================================================================== + +DATASEG + +px dw ? ; proportional character drawing coordinates +py dw ? +pdrawmode db 11000b ; 8 = OR, 24 = XOR, put in GC_DATAROTATE +fontcolor db 15 ;0-15 mapmask value + +PUBLIC px,py,pdrawmode,fontcolor + +; +; offsets in font structure +; +pcharheight = 0 ;lines high +charloc = 2 ;pointers to every character +charwidth = 514 ;every character's width in pixels + + +propchar dw ? ; the character number to shift +stringptr dw ?,? + + +BUFFWIDTH = 50 +BUFFHEIGHT = 32 ; must be twice as high as font for masked fonts + +databuffer db BUFFWIDTH*BUFFHEIGHT dup (?) + +bufferwidth dw ? ; bytes with valid info / line +bufferheight dw ? ; number of lines currently used + +bufferbyte dw ? +bufferbit dw ? + +screenspot dw ? ; where the buffer is going + +bufferextra dw ? ; add at end of a line copy +screenextra dw ? + +PUBLIC bufferwidth,bufferheight,screenspot + +CODESEG + +;====================== +; +; Macros to table shift a byte of font +; +;====================== + +MACRO SHIFTNOXOR + mov al,[es:bx] ; source + xor ah,ah + shl ax,1 + mov si,ax + mov ax,[bp+si] ; table shift into two bytes + or [di],al ; or with first byte + inc di + mov [di],ah ; replace next byte + inc bx ; next source byte +ENDM + +MACRO SHIFTWITHXOR + mov al,[es:bx] ; source + xor ah,ah + shl ax,1 + mov si,ax + mov ax,[bp+si] ; table shift into two bytes + not ax + and [di],al ; and with first byte + inc di + mov [di],ah ; replace next byte + inc bx ; next source byte +ENDM + + +;======================= +; +; BufferToScreen +; +; Pass buffer start in SI (somewhere in databuffer) +; Draws the buffer to the EGA screen in the current write mode +; +;======================== + +PROC BufferToScreen NEAR + + mov es,[screenseg] + mov di,[screenspot] + + mov bx,[bufferwidth] ;calculate offsets for end of each line + or bx,bx + jnz @@isthere + ret ;nothing to draw + +@@isthere: + mov ax,[linewidth] + sub ax,bx + mov [screenextra],ax + mov ax,BUFFWIDTH + sub ax,bx + mov [bufferextra],ax + + mov bx,[bufferheight] ;lines to copy +@@lineloop: + mov cx,[bufferwidth] ;bytes to copy +@@byteloop: + lodsb ;get a byte from the buffer + xchg [es:di],al ;load latches and store back to screen + inc di + + loop @@byteloop + + add si,[bufferextra] + add di,[screenextra] + + dec bx + jnz @@lineloop + + ret +ENDP + + +;============================================================================ +; +; NON MASKED FONT DRAWING ROUTINES +; +;============================================================================ + +if numfont + +DATASEG + +shiftdrawtable dw 0,shift1wide,shift2wide,shift3wide,shift4wide + dw shift5wide + +CODESEG + +;================== +; +; ShiftPropChar +; +; Call with BX = character number (0-255) +; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts +; them to the new position +; +;================== + +PROC ShiftPropChar NEAR + + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONT*2+si] ;segment of font to use + +; +; find character location, width, and height +; + mov si,[es:charwidth+bx] + and si,0ffh ;SI hold width in pixels + shl bx,1 + mov bx,[es:charloc+bx] ;BX holds pointer to character data + +; +; look up which shift table to use, based on bufferbit +; + mov di,[bufferbit] + shl di,1 + mov bp,[shifttabletable+di] ;BP holds pointer to shift table + + mov di,OFFSET databuffer + add di,[bufferbyte] ;DI holds pointer to buffer + +; +; advance position by character width +; + mov cx,[bufferbit] + add cx,si ;new bit position + mov ax,cx + and ax,7 + mov [bufferbit],ax ;new bit position + mov ax,cx + shr ax,1 + shr ax,1 + shr ax,1 + add [bufferbyte],ax ;new byte position + + add si,7 + shr si,1 + shr si,1 + shr si,1 ;bytes the character is wide + shl si,1 ;*2 to look up in shiftdrawtable + + mov cx,[es:pcharheight] + mov dx,BUFFWIDTH + jmp [ss:shiftdrawtable+si] ;procedure to draw this width + +; +; one byte character +; +shift1wide: + dec dx +EVEN +@@loop1: + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop1 + ret + +; +; two byte character +; +shift2wide: + dec dx + dec dx +EVEN +@@loop2: + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop2 + ret + +; +; three byte character +; +shift3wide: + sub dx,3 +EVEN +@@loop3: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop3 + ret + +; +; four byte character +; +shift4wide: + sub dx,4 +EVEN +@@loop4: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop4 + ret + +; +; five byte character +; +shift5wide: + sub dx,5 +EVEN +@@loop5: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop5 + ret + + + +ENDP + +;============================================================================ + +;================== +; +; VW_DrawPropString +; +; Draws a C string of characters at px/py and advances px +; +; Assumes write mode 0 +; +;================== + +CODESEG + +PROC VW_DrawPropString string:DWORD +PUBLIC VW_DrawPropString +USES SI,DI + +; +; proportional spaceing, which clears the buffer ahead of it, so only +; clear the first collumn +; + mov al,0 +line = 0 +REPT BUFFHEIGHT + mov [BYTE databuffer+BUFFWIDTH*line],al +line = line+1 +ENDM + +; +; shift the characters into the buffer +; +@@shiftchars: + mov ax,[px] + and ax,7 + mov [bufferbit],ax + mov [bufferbyte],0 + + mov ax,[WORD string] + mov [stringptr],ax + mov ax,[WORD string+2] + mov [stringptr+2],ax + +@@shiftone: + mov es,[stringptr+2] + mov bx,[stringptr] + inc [stringptr] + mov bx,[es:bx] + xor bh,bh + or bl,bl + jz @@allshifted + call ShiftPropChar + jmp @@shiftone + +@@allshifted: +; +; calculate position to draw buffer on screen +; + mov bx,[py] + shl bx,1 + mov di,[ylookup+bx] + add di,[bufferofs] + add di,[panadjust] + + mov ax,[px] + shr ax,1 + shr ax,1 + shr ax,1 ;x location in bytes + add di,ax + mov [screenspot],di + +; +; advance px +; + mov ax,[bufferbyte] + shl ax,1 + shl ax,1 + shl ax,1 + or ax,[bufferbit] + add [px],ax + +; +; draw it +; + +; set xor/or mode + mov dx,GC_INDEX + mov al,GC_DATAROTATE + mov ah,[pdrawmode] + WORDOUT + +; set mapmask to color + mov dx,SC_INDEX + mov al,SC_MAPMASK + mov ah,[fontcolor] + WORDOUT + + mov ax,[bufferbyte] + test [bufferbit],7 + jz @@go + inc ax ;so the partial byte also gets drawn +@@go: + mov [bufferwidth],ax + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONT*2+si] + mov ax,[es:pcharheight] + mov [bufferheight],ax + + mov si,OFFSET databuffer + call BufferToScreen + +; set copy mode + mov dx,GC_INDEX + mov ax,GC_DATAROTATE + WORDOUT + +; set mapmask to all + mov dx,SC_INDEX + mov ax,SC_MAPMASK + 15*256 + WORDOUT + + + ret + +ENDP + +endif ;numfont + +;============================================================================ +; +; MASKED FONT DRAWING ROUTINES +; +;============================================================================ + +if numfontm + +DATASEG + +mshiftdrawtable dw 0,mshift1wide,mshift2wide,mshift3wide + + +CODESEG + +;================== +; +; ShiftMPropChar +; +; Call with BX = character number (0-255) +; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts +; them to the new position +; +;================== + +PROC ShiftMPropChar NEAR + + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONTM*2+si] ;segment of font to use + +; +; find character location, width, and height +; + mov si,[es:charwidth+bx] + and si,0ffh ;SI hold width in pixels + shl bx,1 + mov bx,[es:charloc+bx] ;BX holds pointer to character data + +; +; look up which shift table to use, based on bufferbit +; + mov di,[bufferbit] + shl di,1 + mov bp,[shifttabletable+di] ;BP holds pointer to shift table + + mov di,OFFSET databuffer + add di,[bufferbyte] ;DI holds pointer to buffer + + mov cx,[bufferbit] + add cx,si ;new bit position + mov ax,cx + and ax,7 + mov [bufferbit],ax ;new bit position + mov ax,cx + shr ax,1 + shr ax,1 + shr ax,1 + add [bufferbyte],ax ;new byte position + + add si,7 + shr si,1 + shr si,1 + shr si,1 ;bytes the character is wide + shl si,1 ;*2 to look up in shiftdrawtable + + mov cx,[es:pcharheight] + mov dx,BUFFWIDTH + jmp [ss:mshiftdrawtable+si] ;procedure to draw this width + +; +; one byte character +; +mshift1wide: + dec dx + +EVEN +@@loop1m: + SHIFTWITHXOR + add di,dx ; next line in buffer + + loop @@loop1m + + mov cx,[es:pcharheight] + +EVEN +@@loop1: + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop1 + + ret + +; +; two byte character +; +mshift2wide: + dec dx + dec dx +EVEN +@@loop2m: + SHIFTWITHXOR + SHIFTWITHXOR + add di,dx ; next line in buffer + + loop @@loop2m + + mov cx,[es:pcharheight] + +EVEN +@@loop2: + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop2 + + ret + +; +; three byte character +; +mshift3wide: + sub dx,3 +EVEN +@@loop3m: + SHIFTWITHXOR + SHIFTWITHXOR + SHIFTWITHXOR + add di,dx ; next line in buffer + + loop @@loop3m + + mov cx,[es:pcharheight] + +EVEN +@@loop3: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop3 + + ret + + +ENDP + +;============================================================================ + +;================== +; +; VW_DrawMPropString +; +; Draws a C string of characters at px/py and advances px +; +; Assumes write mode 0 +; +;================== + + + +PROC VW_DrawMPropString string:DWORD +PUBLIC VW_DrawMPropString +USES SI,DI + +; +; clear out the first byte of the buffer, the rest will automatically be +; cleared as characters are drawn into it +; + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONTM*2+si] + mov dx,[es:pcharheight] + mov di,OFFSET databuffer + mov ax,ds + mov es,ax + mov bx,BUFFWIDTH-1 + + mov cx,dx + mov al,0ffh +@@maskfill: + stosb ; fill the mask part with $ff + add di,bx + loop @@maskfill + + mov cx,dx + xor al,al +@@datafill: + stosb ; fill the data part with $0 + add di,bx + loop @@datafill + +; +; shift the characters into the buffer +; + mov ax,[px] + and ax,7 + mov [bufferbit],ax + mov [bufferbyte],0 + + mov ax,[WORD string] + mov [stringptr],ax + mov ax,[WORD string+2] + mov [stringptr+2],ax + +@@shiftone: + mov es,[stringptr+2] + mov bx,[stringptr] + inc [stringptr] + mov bx,[es:bx] + xor bh,bh + or bl,bl + jz @@allshifted + call ShiftMPropChar + jmp @@shiftone + +@@allshifted: +; +; calculate position to draw buffer on screen +; + mov bx,[py] + shl bx,1 + mov di,[ylookup+bx] + add di,[bufferofs] + add di,[panadjust] + + mov ax,[px] + shr ax,1 + shr ax,1 + shr ax,1 ;x location in bytes + add di,ax + mov [screenspot],di + +; +; advance px +; + mov ax,[bufferbyte] + shl ax,1 + shl ax,1 + shl ax,1 + or ax,[bufferbit] + add [px],ax + +; +; draw it +; + mov ax,[bufferbyte] + test [bufferbit],7 + jz @@go + inc ax ;so the partial byte also gets drawn +@@go: + mov [bufferwidth],ax + mov es,[grsegs+STARTFONTM*2] + mov ax,[es:pcharheight] + mov [bufferheight],ax + +; set AND mode to punch out the mask + mov dx,GC_INDEX + mov ax,GC_DATAROTATE + 8*256 + WORDOUT + +; set mapmask to all + mov dx,SC_INDEX + mov ax,SC_MAPMASK + 15*256 + WORDOUT + + mov si,OFFSET databuffer + call BufferToScreen + +; set OR mode to fill in the color + mov dx,GC_INDEX + mov ax,GC_DATAROTATE + 16*256 + WORDOUT + +; set mapmask to color + mov dx,SC_INDEX + mov al,SC_MAPMASK + mov ah,[fontcolor] + WORDOUT + + call BufferToScreen ; SI is still in the right position in buffer + +; set copy mode + mov dx,GC_INDEX + mov ax,GC_DATAROTATE + WORDOUT + +; set mapmask to all + mov dx,SC_INDEX + mov ax,SC_MAPMASK + 15*256 + WORDOUT + + + ret + +ENDP + +endif ; if numfontm + +endif ; if fonts diff --git a/16/keen456/KEEN4-6/CK_DEF.H b/16/keen456/KEEN4-6/CK_DEF.H new file mode 100755 index 00000000..62e79445 --- /dev/null +++ b/16/keen456/KEEN4-6/CK_DEF.H @@ -0,0 +1,775 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __CK_DEF__ +#define __CK_DEF__ + +#include +#include + +#include "ID_HEADS.H" + +/* +============================================================================= + + GLOBAL CONSTANTS & MACROS + +============================================================================= +*/ + +#define MAXACTORS 100 + +#define GAMELEVELS 25 + +#define CONVERT_GLOBAL_TO_TILE(x) ((x)>>(G_T_SHIFT)) +#define CONVERT_TILE_TO_GLOBAL(x) ((x)<<(G_T_SHIFT)) +#define CONVERT_GLOBAL_TO_PIXEL(x) ((x)>>(G_P_SHIFT)) +#define CONVERT_PIXEL_TO_GLOBAL(x) ((x)<<(G_P_SHIFT)) +#define CONVERT_PIXEL_TO_TILE(x) ((x)>>(P_T_SHIFT)) +#define CONVERT_TILE_TO_PIXEL(x) ((x)<<(P_T_SHIFT)) + +#define SPAWN_ADJUST_Y(y, h) (CONVERT_TILE_TO_GLOBAL(y) + (CONVERT_PIXEL_TO_GLOBAL(16-(h)))) + +#define ARRAYLENGTH(x) (sizeof(x)/sizeof(*(x))) + +#define CA_UnmarkGrChunk(num) (grneeded[num] &= ~ca_levelbit) + +#define SetPalette(pal) {_ES=FP_SEG(pal); _DX=FP_OFF(pal); _AX=0x1002; geninterrupt(0x10);} +#define SetPaletteEx(pal) {(pal)[16] = bordercolor; SetPalette(pal);} + +//HACK IMPORTS: +void RFL_InitAnimList(void); +void CA_FreeGraphics(void); +void CA_SetGrPurge(void); + +/* +Note: + +The ID software memory manager doesn't care about the different purge levels. +Using PURGE_FIST is identical to using PURGE_LAST. +*/ +#define PURGE_FIRST 3 +#define PURGE_LAST 1 + +#define PLATFORMBLOCK 31 +#define DIRARROWSTART 91 +#define DIRARROWEND (DIRARROWSTART+arrow_None) + +/* +============================================================================= + + GLOBAL TYPES + +============================================================================= +*/ + +//SDL-style integer types - just to make future SDL ports easier +typedef unsigned int Uint16; +typedef signed int Sint16; +typedef unsigned char Uint8; +typedef signed char Sint8; +typedef unsigned long Uint32; +typedef signed long Sint32; +//Note: only the game code (CK_*.C, K?_*.C) uses these! + +//some compile-time checks to make sure the ints have the correct size +#if (sizeof(Uint16) != 2) +#error 'Uint16' has wrong size +#elif (sizeof(Sint16) != 2) +#error 'Sint16' has wrong size +#elif (sizeof(Uint8) != 1) +#error 'Uint8' has wrong size +#elif (sizeof(Sint8) != 1) +#error 'Sint8' has wrong size +#elif (sizeof(Uint32) != 4) +#error 'Uint32' has wrong size +#elif (sizeof(Sint32) != 4) +#error 'Sint32' has wrong size +#endif + +typedef enum { + arrow_North, // 0 + arrow_East, // 1 + arrow_South, // 2 + arrow_West, // 3 + arrow_NorthEast, // 4 + arrow_SouthEast, // 5 + arrow_SouthWest, // 6 + arrow_NorthWest, // 7 + arrow_None // 8 +} arrowdirtype; + +typedef enum { + ex_stillplaying, // 0 + ex_died, // 1 + ex_completed, // 2 + ex_rescued, // 3, only in Keen 4 + ex_warped, // 4 + ex_resetgame, // 5 + ex_loadedgame, // 6 + ex_foot, // 7, only in Keen 4 + ex_abortgame, // 8 + ex_sandwich, // 9, only in Keen 6 + ex_hook, // 10, only in Keen 6 + ex_card, // 11, only in Keen 6 + ex_molly, // 12, only in Keen 6 + ex_portout, // 13, only in Keen 5 + ex_fusebroke, // 14, only in Keen 5 + ex_qedbroke, // 15, only in Keen 5 + NUMEXITTYPES +} exittype; + +typedef enum +{ + INTILE_NOTHING, // 0 + INTILE_POLE, // 1 + INTILE_DOOR, // 2 + INTILE_DEADLY, // 3 + INTILE_DROP, // 4 + INTILE_SWITCH0, // 5 + INTILE_SWITCH1, // 6 + INTILE_GEMSOCKET0, // 7 + INTILE_GEMSOCKET1, // 8 + INTILE_GEMSOCKET2, // 9 + INTILE_GEMSOCKET3, // 10 + INTILE_SHORESOUTH, // 11 + INTILE_SHOREWEST, // 12 + INTILE_SHORENORTH, // 13 + INTILE_SHOREEAST, // 14 + INTILE_BRIDGESWITCH, // 15 + INTILE_MOON, // 16 + INTILE_DIRARROW, // 17 (not used in the code, but assigned to tiles in Keen 5 & 6) + INTILE_BRIDGE, // 18 + INTILE_FORCEFIELD, // 19 + INTILE_TELEPORT, // 20 + INTILE_BONUS100, // 21 + INTILE_BONUS200, // 22 + INTILE_BONUS500, // 23 + INTILE_BONUS1000, // 24 + INTILE_BONUS2000, // 25 + INTILE_BONUS5000, // 26 + INTILE_EXTRALIFE, // 27 + INTILE_AMMO, // 28 + INTILE_29, // 29 (never used) + INTILE_FORCEFIELDEND, // 30 + INTILE_AMPTONCOMPUTER, // 31 + INTILE_KEYCARDDOOR, // 32 + INTILE_ELEVATORLEFT, // 33 + INTILE_ELEVATORRIGHT, // 34 + + INTILE_FOREGROUND = 0x80 +} intiletype; + +#define INTILE_TYPEMASK (INTILE_FOREGROUND-1) + +typedef enum +{ + nothing, // 0 + inertobj, // 1 + keenobj, // 2 + stunshotobj, // 3 +#if defined KEEN4 + bonusobj, // 4 + slugobj, // 5 + oracleobj, // 6 + classtype_7, // 7, never used + eggobj, // 8 + madmushroomobj, // 9 + arachnutobj, // 10 + skypestobj, // 11 + wormouthobj, // 12 + thundercloudobj, // 13 + berkeloidobj, // 14 + bounderobj, // 15 + inchwormobj, // 16 + footobj, // 17 + lickobj, // 18 + mimrockobj, // 19 + platformobj, // 20 + dopefishobj, // 21 + schoolfishobj, // 22 + pixieobj, // 23 + lindseyobj, // 24 + lightningobj, // 25 + treasureeaterobj,// 26 + eggbirdobj, // 27 + classtype_28, // 28, never used + classtype_29, // 29, never used + scubaobj, // 30 + mshotobj, // 31 + mineobj, // 32 + stunnedobj, // 33 + flagobj, // 34 +#elif defined KEEN5 + mshotobj, // 4 + bonusobj, // 5 + platformobj, // 6 + stunnedobj, // 7 + flagobj, // 8 + sparkyobj, // 9 + mineobj, // 10 + slicestarobj, // 11 + roboredobj, // 12 + spirogripobj, // 13 + amptonobj, // 14 + cannonobj, // 15 + volteobj, // 16 + shelleyobj, // 17, never used + spindredobj, // 18 + shikadimasterobj,// 19 + shikadiobj, // 20 + petobj, // 21 + spherefulobj, // 22 + scottieobj, // 23 + teleporterobj, // 24 + qedobj, // 25 +#elif defined KEEN6 + mshotobj, // 4 + bonusobj, // 5 + platformobj, // 6 + bloogobj, // 7 + bloogletobj, // 8 + classtype_9, // 9, never used + fleexobj, // 10 + classtype_11, // 11, never used + mollyobj, // 12 + babobbaobj, // 13 + bobbaobj, // 14 + classtype_15, // 15 + nospikeobj, // 16 + gikobj, // 17 + cannonobj, // 18 + orbatrixobj, // 19 + bipobj, // 20 + flectobj, // 21 + blorbobj, // 22 + ceilickobj, // 23 + blooguardobj, // 24 + stunnedobj, // 25 + bipshipobj, // 26 + sandwichobj, // 27 + hookobj, // 28 + passcardobj, // 29 + grabbiterobj, // 30 + rocketobj, // 31 + grapplespotobj, // 32 + satelliteobj, // 33 + satellitestopobj,// 34 + flagobj, // 35 +#endif + NUMCLASSTYPES +} classtype; + +typedef struct statestruct +{ + Sint16 leftshapenum, rightshapenum; + enum {step,slide,think,stepthink,slidethink} progress; + boolean skippable; + boolean pushtofloor; + Sint16 tictime; + Sint16 xmove; + Sint16 ymove; + void (*think) (struct objstruct*); + void (*contact) (struct objstruct*, struct objstruct*); + void (*react) (struct objstruct*); + struct statestruct *nextstate; +} statetype; + +typedef struct objstruct +{ + classtype obclass; + enum {ac_no, ac_yes, ac_allways, ac_removable} active; + boolean needtoreact; + enum {cl_noclip, cl_midclip, cl_fullclip} needtoclip; + Uint16 nothink; + Uint16 x, y; + Sint16 xdir, ydir; + Sint16 xmove, ymove; + Sint16 xspeed, yspeed; + Sint16 ticcount; + statetype *state; + Uint16 shapenum; + Uint16 priority; + Uint16 left, top, right, bottom, midx; + Uint16 tileleft, tiletop, tileright, tilebottom, tilemidx; + Sint16 hitnorth, hiteast, hitsouth, hitwest; + Sint16 temp1, temp2, temp3, temp4; + void *sprite; + struct objstruct *next, *prev; +} objtype; + +typedef struct +{ + Uint16 worldx, worldy; + boolean leveldone[GAMELEVELS]; + Sint32 score, nextextra; + Sint16 ammo, drops; +#if defined KEEN4 + Sint16 wetsuit; + Sint16 rescued; +#elif defined KEEN5 + boolean keycard; + Sint16 destroyed; // never used + Sint16 numfuses; +#elif defined KEEN6 + Sint16 sandwichstate, hookstate, passcardstate, rocketstate; +#endif + Sint16 keys[4]; + Sint16 mapon; + Sint16 lives; + Sint16 difficulty; + objtype *riding; +} gametype; + +/* +============================================================================= + + CK_MAIN DEFINITIONS + +============================================================================= +*/ + +extern char str[80], str2[20]; +extern boolean storedemo; + +void SizeText(char *text, Uint16 *width, Uint16 *height); + +/* +============================================================================= + + CK_DEMO DEFINITIONS + +============================================================================= +*/ + +extern boolean scorescreenkludge; + +void CheckLastScan(void); +#if GRMODE == EGAGR +void Terminator(void); +void StarWars(void); +#endif +void ShowTitle(void); +#if GRMODE == CGAGR +void ShowCredits(void); +#endif +void RunDemo(Sint16 num); +void DrawHighScores(void); +void CheckHighScore(Sint32 score, Sint16 completed); +void ShowHighScores(void); + +/* +============================================================================= + + CK_GAME DEFINITIONS + +============================================================================= +*/ + +void FreeGraphics(void); +void NewGame(void); +boolean SaveTheGame(Sint16 handle); +boolean LoadTheGame(Sint16 handle); +void ResetGame(void); +void SetupGameLevel(boolean loadnow); +void DialogDraw(char *title, Uint16 numcache); +void DialogUpdate(void); +void DialogFinish(void); +void StartDemoRecord(void); +void EndDemoRecord(void); +void GameLoop(void); +void HandleDeath(void); + +/* +============================================================================= + + CK_PLAY DEFINITIONS + +============================================================================= +*/ + +extern boolean singlestep, jumpcheat, godmode, keenkilled; +extern exittype playstate; +extern gametype gamestate; +extern objtype *new, *check, *player, *scoreobj; +extern Uint16 originxtilemax, originytilemax; +extern ControlInfo c; +extern boolean button2, button3; // never used +extern objtype dummyobj; +extern Sint16 invincible; +extern boolean oldshooting, showscorebox, joypad; +extern Sint16 groundslam; +extern boolean debugok; +extern boolean jumpbutton, jumpheld, pogobutton, pogoheld, firebutton, fireheld, upheld; + + +void CheckKeys(void); +void StatusWindow(void); +void CenterActor(objtype *ob); +void WorldScrollScreen(objtype *ob); +void ScrollScreen(objtype *ob); +void InitObjArray(void); +Sint16 GetNewObj(boolean usedummy); +void RemoveObj(objtype *ob); +void GivePoints(Uint16 points); +void StopMusic(void); +void StartMusic(Uint16 num); +void PlayLoop(void); + +/* +============================================================================= + + CK_TEXT DEFINITIONS + +============================================================================= +*/ + +void HelpScreens(void); +void FinaleLayout(void); + +/* +============================================================================= + + CK_STATE DEFINITIONS + +============================================================================= +*/ + +extern Sint16 wallclip[8][16]; + +extern Sint16 xtry; +extern Sint16 ytry; +extern boolean playerkludgeclipcancel; + +void MoveObjVert(objtype *ob, Sint16 ymove); +void MoveObjHoriz(objtype *ob, Sint16 xmove); +void PlayerBottomKludge(objtype *ob); +void PlayerTopKludge(objtype *ob); +void ClipToEnds(objtype *ob); +void ClipToSides(objtype *ob); +boolean CheckPosition(objtype *ob); +boolean StatePositionOk(objtype *ob, statetype *state); + +#ifdef KEEN5 +void CalcBounds(objtype *ob); +#endif + +void ClipToWalls(objtype *ob); +void FullClipToWalls(objtype *ob); +void PushObj(objtype *ob); +void ClipToSpriteSide(objtype *push, objtype *solid); +void ClipToSpriteTop(objtype *push, objtype *solid); +void ClipToSprite(objtype *push, objtype *solid, boolean squish); +Sint16 DoActor(objtype *ob, Sint16 numtics); +void StateMachine(objtype *ob); +void NewState(objtype *ob, statetype *state); +void ChangeState(objtype *ob, statetype *state); +boolean OnScreen(objtype *ob); +void DoGravity(objtype *ob); +void DoWeakGravity(objtype *ob); +void DoTinyGravity(objtype *ob); +void AccelerateX(objtype *ob, Sint16 dir, Sint16 maxspeed); +void AccelerateXv(objtype *ob, Sint16 dir, Sint16 maxspeed); +void AccelerateY(objtype *ob, Sint16 dir, Sint16 maxspeed); +void FrictionX(objtype *ob); +void FrictionY(objtype *ob); +void StunObj(objtype *ob, objtype *shot, statetype *stunstate); +void T_Projectile(objtype *ob); +void T_WeakProjectile(objtype *ob); +void ProjectileThink1(objtype *ob); +void T_Velocity(objtype *ob); +void SetReactThink(objtype *ob); +void T_Stunned(objtype *ob); +void C_Lethal(objtype *ob, objtype *hit); +void R_Draw(objtype *ob); +void R_Walk(objtype *ob); +void R_WalkNormal(objtype *ob); +void BadState(void); +void R_Stunned(objtype *ob); + +extern statetype sc_deadstate; +extern statetype sc_badstate; + +/* +============================================================================= + + CK_KEEN DEFINITIONS + +============================================================================= +*/ + +extern Uint16 bounceangle[8][8]; +#ifndef KEEN4 +extern arrowdirtype arrowflip[]; +#endif + +extern statetype s_keenstand; +extern statetype s_keenpauselook; +extern statetype s_keenwait1; +extern statetype s_keenwait2; +extern statetype s_keenwait3; +extern statetype s_keenwait4; +extern statetype s_keenwait5; +extern statetype s_keenwait6; +extern statetype s_keenmoon1; +extern statetype s_keenmoon2; +extern statetype s_keenmoon3; +extern statetype s_keenread; +extern statetype s_keenread2; +extern statetype s_keenread3; +extern statetype s_keenread4; +extern statetype s_keenread5; +extern statetype s_keenread6; +extern statetype s_keenread7; +extern statetype s_keenstopread; +extern statetype s_keenstopread2; +extern statetype s_keenstopread3; +extern statetype s_keenlookup; +extern statetype s_keenlookup2; +extern statetype s_keenlookdown; +extern statetype s_keenlookdown2; +extern statetype s_keenlookdown3; +extern statetype s_keenlookdown4; +extern statetype s_keendrop; +extern statetype s_keendead; +extern statetype s_keendie1; +extern statetype s_keendie2; +#ifdef KEEN4 +extern statetype s_keensuitdie1; +extern statetype s_keensuitdie2; +#endif +extern statetype s_keenshoot1; +extern statetype s_keenshoot2; +extern statetype s_keenshootup1; +extern statetype s_keenshootup2; +extern statetype s_keenswitch; +extern statetype s_keenswitch2; +extern statetype s_keenkey; +extern statetype s_keenlineup; +extern statetype s_keenenter1; +extern statetype s_keenenter2; +extern statetype s_keenenter3; +extern statetype s_keenenter4; +extern statetype s_keenenter5; +extern statetype s_keenpole; +extern statetype s_keenclimb1; +extern statetype s_keenclimb2; +extern statetype s_keenclimb3; +extern statetype s_keenslide1; +extern statetype s_keenslide2; +extern statetype s_keenslide3; +extern statetype s_keenslide4; +extern statetype s_keenpoleshoot1; +extern statetype s_keenpoleshoot2; +extern statetype s_keenpoleshootup1; +extern statetype s_keenpoleshootup2; +extern statetype s_keenpoleshootdown1; +extern statetype s_keenpoleshootdown2; +extern statetype s_keenwalk1; +extern statetype s_keenwalk2; +extern statetype s_keenwalk3; +extern statetype s_keenwalk4; +extern statetype s_keenpogodown; +extern statetype s_keenpogo; +extern statetype s_keenpogo2; +extern statetype s_keenjump1; +extern statetype s_keenjump2; +extern statetype s_keenjump3; +extern statetype s_keenjump4; +extern statetype s_keenairshoot1; +extern statetype s_keenairshoot2; +extern statetype s_keenairshoot3; +extern statetype s_keenairshootup1; +extern statetype s_keenairshootup2; +extern statetype s_keenairshootup3; +extern statetype s_keenairshootdown1; +extern statetype s_keenairshootdown2; +extern statetype s_keenairshootdown3; +extern statetype s_keenholdon; +extern statetype s_keenholdon2; +extern statetype s_keenclimbup; +extern statetype s_keenclimbup2; +extern statetype s_keenclimbup3; +extern statetype s_keenclimbup4; +extern statetype s_keenclimbup5; + +extern Sint16 slopespeed[8]; +extern Sint16 polexspeed[3]; + +extern Sint16 shotsinclip[4]; +extern Sint16 bonussound[]; +extern Sint16 bonuspoints[]; +extern Sint16 bonussprite[]; + +extern Uint16 zeromap; + +extern Sint16 singlegravity; +extern Sint16 jumptime; +extern Sint32 leavepoletime; +extern Sint16 moonok; + +void SpawnKeen(Sint16 x, Sint16 y, Sint16 dir); +boolean CheckGrabPole(objtype *ob); +boolean CheckEnterHouse(objtype *ob); +void WalkSound1(objtype *ob); +void WalkSound2(objtype *ob); +void KeenStandThink(objtype *ob); +void KeenPauseThink(objtype *ob); +void KeenReadThink(objtype *ob); +void KeenLookUpThink(objtype *ob); +void KeenLookDownThink(objtype *ob); +void KeenWalkThink(objtype *ob); +void T_LineUp(objtype *ob); +void KeenEnterThink(objtype *ob); +void KeenSwitchThink(objtype *ob); +void KeenKeyThink(objtype *ob); +void KeenAirThink(objtype *ob); +void KeenBounceThink(objtype *ob); +void KeenPogoThink(objtype *ob); +void PoleActions(objtype *ob); +void KeenPoleThink(objtype *ob); +void KeenClimbThink(objtype *ob); +void KeenDropThink(objtype *ob); +void KeenDropDownThink(objtype *ob); +void KeenHoldThink(objtype *ob); +void KeenShootThink(objtype *ob); +void T_PullUp1(objtype *ob); +void T_PullUp2(objtype *ob); +void T_PullUp3(objtype *ob); +void T_PulledUp(objtype *ob); +void KeenDieThink(objtype *ob); +void KillKeen(void); +void KeenContact(objtype *ob, objtype *hit); +void KeenPosContact(objtype *ob, objtype *hit); +void HandleRiding(objtype *ob); +void TileBonus(Uint16 x, Uint16 y, Uint16 bonus); +void GiveDrop(Uint16 x, Uint16 y); +void CheckInTiles(objtype *ob); +void KeenSimpleReact(objtype *ob); +void KeenStandReact(objtype *ob); +void KeenWalkReact(objtype *ob); +void KeenAirReact(objtype *ob); +void KeenPogoReact(objtype *ob); +void KeenPoleReact(objtype *ob); + + +/* +============================================================================= + + CK_KEEN2 DEFINITIONS + +============================================================================= +*/ + +extern statetype s_score; +extern statetype s_demo; +void SpawnScore(void); +void UpdateScore(objtype *ob); +void DrawDemoPlaque(objtype *ob); + +extern statetype s_worldkeen; +extern statetype s_worldkeenwave1; +extern statetype s_worldkeenwave2; +extern statetype s_worldkeenwave3; +extern statetype s_worldkeenwave4; +extern statetype s_worldkeenwave5; +extern statetype s_worldkeenwalk; +void SpawnWorldKeen(Sint16 x, Sint16 y); +#ifdef KEEN5 +void SpawnWorldKeenPort(Uint16 tileX, Uint16 tileY); +#endif +void CheckEnterLevel(objtype *ob); +void T_KeenWorld(objtype *ob); +void T_KeenWorldWalk(objtype *ob); +void CheckWorldInTiles(objtype *ob); + +#ifdef KEEN4 +extern statetype s_keenonfoot1; +extern statetype s_keenonfoot2; +extern statetype s_worldswim; +void T_FootFly(objtype *ob); +void T_KeenWorldSwim(objtype *ob); +#endif + +#ifdef KEEN5 +extern statetype s_worldelevate; +void T_Elevate(objtype *ob); +#endif + +extern statetype s_flagwave1; +extern statetype s_flagwave2; +extern statetype s_flagwave3; +extern statetype s_flagwave4; +void SpawnFlag(Sint16 x, Sint16 y); + +#ifndef KEEN5 +extern statetype s_throwflag0; +extern statetype s_throwflag1; +extern statetype s_throwflag2; +extern statetype s_throwflag3; +extern statetype s_throwflag4; +extern statetype s_throwflag5; +extern statetype s_throwflag6; +void SpawnThrowFlag(Sint16 x, Sint16 y); +void TossThink(objtype *ob); +void PathThink(objtype *ob); +void FlagAlign(objtype *ob); +#endif + +extern statetype s_stunray1; +extern statetype s_stunray2; +extern statetype s_stunray3; +extern statetype s_stunray4; +extern statetype s_stunhit; +extern statetype s_stunhit2; +void SpawnShot(Uint16 x, Uint16 y, Direction dir); +void ExplodeShot(objtype *ob); +void T_Shot(objtype *ob); +void R_Shot(objtype *ob); + +extern statetype s_door1; +extern statetype s_door2; +extern statetype s_door3; +void DoorOpen(objtype *ob); + +#ifdef KEEN5 +extern statetype s_carddoor; +void CardDoorOpen(objtype *ob); +#endif + +/* +============================================================================= + + OTHER DEFINITIONS + +============================================================================= +*/ + +#if defined KEEN4 +#include "K4_DEF.H" +#elif defined KEEN5 +#include "K5_DEF.H" +#elif defined KEEN6 +#include "K6_DEF.H" +#endif + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/CK_DEMO.C b/16/keen456/KEEN4-6/CK_DEMO.C new file mode 100755 index 00000000..5004cf34 --- /dev/null +++ b/16/keen456/KEEN4-6/CK_DEMO.C @@ -0,0 +1,2132 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#include "CK_DEF.H" + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +boolean scorescreenkludge; + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +#if GRMODE == EGAGR + +Uint8 starcolors[17] = STARPALETTE; +Uint16 plaquenum[4] = {IDSOFTPIC, PROGTEAMPIC, ARTISTPIC, DIRECTORPIC}; +Uint8 termcolors[17] = INTROPALETTE; +Uint8 termcolors2[17] = SHRINKPALETTE; + +Uint8 ortoend[8] = {0xFF, 0x7F, 0x3F, 0x1F, 0x0F, 0x07, 0x03, 0x01}; +Uint8 andtoend[8] = {0x00, 0x80, 0xC0, 0xE0, 0xF0, 0xF8, 0xFC, 0xFE}; + +///////////////////////////////////////////////////////////////////////////// +// uninitialized variables: +///////////////////////////////////////////////////////////////////////////// + +typedef struct { + Uint16 height; + Uint16 width; + Uint16 rowofs[200]; +} shapehead; + +typedef shapehead _seg * shapeseg; + +// text crawl variables: +memptr linecode; +void far *linestarts[200]; +Uint16 sourceline[200]; +Uint16 masterlines; +void far *routine; +memptr sourcepic; +memptr bittables; + +// terminator intro variables: +shapeseg commander; +shapeseg keen; +shapeseg both; +memptr scaletable; +memptr cmdrshifts[8]; +Sint16 commanderbwide; +Uint16 lastsource; +Uint16 keenstart; +memptr basepl[5]; +Uint16 baseplwidth[5]; +Uint16 baseplheight[5]; +memptr plaqueseg; +Uint16 plaquewidth; +Uint16 plaquewidthwords; +Uint16 plaqueheight; +Uint16 plaqueplane; +Uint16 plaquedelta; +Uint16 *shiftptr; +Uint16 planeon; +Sint16 drawheight; +Uint16 source2; +static Uint16 t_dest; +static Sint16 plaque; +static Sint16 plaquephase; +static Sint16 plaquey; +static Sint16 lastframe; +static Sint16 pageon; +static Sint16 prevbottom[2]; +Uint16 pageofs; +Uint16 byteadjust; + +#endif // if GRMODE == EGAGR + +//=========================================================================== + +/* +============================ += += CheckLastScan += +============================ +*/ + +void CheckLastScan(void) +{ + if (LastScan) + { + if (storedemo) + { + playstate = ex_resetgame; + restartgame = gd_Normal; + IN_ClearKeysDown(); + NewGame(); + } +#ifndef KEEN6 + else if (LastScan == sc_F1) + { + HelpScreens(); + } +#endif + else + { + US_ControlPanel(); + if (restartgame) + { + playstate = ex_resetgame; + } + else if (loadedgame) + { + playstate = ex_loadedgame; + } + } + } +} + +#if GRMODE == EGAGR +/* +============================================================================= + + TERMINATOR INTRO + +============================================================================= +*/ + +/* +============================ += += LoadPlaque += +============================ +*/ + +void LoadPlaque(Sint16 index) +{ + Sint16 LocatePlaque(Sint16 elapsed); + + Uint16 chunk, picnum, width, height, planesize, i; + Uint8 far *source; + Uint16 far *dest; + + // + // cache the pic and get pic size + // + chunk = plaquenum[index]; + CA_CacheGrChunk(chunk); + picnum = chunk - STARTPICS; + baseplwidth[index] = width = pictable[picnum].width; + baseplheight[index] = height = pictable[picnum].height; + planesize = width * height * 2; + + // + // allocate buffer and convert pic into to our format + // (convert bytes to word indices for faster shift-drawing) + // + MM_GetPtr(&basepl[index], planesize*2); // 2 planes + source = grsegs[chunk]; + dest = basepl[index]; + for (i=0; i> 1)); + + EGAMAPMASK(12); // write to "red" and "intensity" plane (for erasing old pic) + + // + // update position (and pic number) + // + y = LocatePlaque(elapsed); + + // + // erase leftovers of the previous frame + // + bottom = y + plaqueheight; + if (bottom < 0) + bottom = 0; + oldbottom = prevbottom[pageon]; + if (bottom < 200 && oldbottom > bottom) + { + eraseheight = oldbottom - bottom; + screenoff = xb + ylookup[bottom]; + asm { + mov es, screenseg; + mov bx, linewidth; + sub bx, plaquewidthwords; + sub bx, plaquewidthwords; + mov di, screenoff; + mov dx, eraseheight; + mov si, plaquewidthwords; + xor ax, ax; + } +eraseloop: + asm { + mov cx, si; + rep stosw; + add di, bx; + dec dx; + jnz eraseloop; + } + } + if (bottom > 200) + bottom = 200; + prevbottom[pageon] = bottom; + + // + // draw the (new) pic at the new position + // + drawheight = plaqueheight; + skip = 0; + if (y < 0) + { + skip = -y * (plaquewidth << 1); + drawheight += y; + y = 0; + } + else if (y + plaqueheight > 200) + { + drawheight = 200 - y; + } + source2 = skip + plaqueplane; + if (drawheight > 0) + { + shiftptr = shifttabletable[shift]; + t_dest = xb + ylookup[y]; + asm { + mov bx, skip; + push bp; + mov bp, shiftptr; + mov es, screenseg; + mov ds, plaqueseg; + mov ah, 4; + mov BYTE PTR ss:planeon, ah; + } +planeloop: + asm { + mov dx, SC_INDEX; + mov al, SC_MAPMASK; + out dx, ax; + mov dx, ss:drawheight; + mov di, ss:t_dest; + } +yloop: + asm { + mov cx, ss:plaquewidth; + xor al, al; + } +xloop: + asm { + mov si, [bx]; + add bx, 2; + xor ah, ah; + or ax, [bp+si]; + stosb; + mov al, ah; + loop xloop; + stosb; + mov WORD PTR es:[di], 0; + add di, ss:plaquedelta; + dec dx; + jnz yloop; + mov bx, ss:source2; + mov ah, BYTE PTR ss:planeon; + shl ah, 1; + mov BYTE PTR ss:planeon, ah; + cmp ah, 16; + jnz planeloop; + pop bp; + mov ax, ss; + mov ds, ax; + } + } +} + +/* +============================ += += LocatePlaque += +============================ +*/ + +Sint16 LocatePlaque(Sint16 elapsed) +{ + switch (plaquephase) + { + case -1: + // + // pic starts to appear + // + plaqueseg = basepl[plaque]; + plaquewidth = baseplwidth[plaque]; + plaquewidthwords = (plaquewidth + 3) >> 1; + plaqueheight = baseplheight[plaque]; + plaquedelta = linewidth - (plaquewidth + 1); + plaqueplane = (plaquewidth * plaqueheight) << 1; + plaquephase++; + lastframe = elapsed; + plaquey = 240; + // no break or return here! + case 0: + // + // pic is moving from the bottom to the center of the screen + // + plaquey -= (elapsed - lastframe) << 1; + if (plaquey < 100) + { + plaquey = 100; + plaquephase++; + } + lastframe = elapsed; + return plaquey - (plaqueheight >> 1); + + case 1: + // + // pic is staying at the center position + // + if (elapsed - lastframe > 200) + { + plaquephase++; + lastframe = elapsed; + } + return 100 - (plaqueheight >> 1); + + case 2: + // + // pic is moving up from the center to the top of the screen + // + plaquey -= (elapsed - lastframe) << 1; + if (plaquey < -40) + { + plaquey = -40; + if (++plaque < 4) + { + plaquephase = -1; + } + else + { + plaquephase = 3; + } + } + lastframe = elapsed; + return plaquey - (plaqueheight >> 1); + } + + return -40; +} + +/* +============================ += += SlideLetters += +============================ +*/ + +void SlideLetters(void) +{ + Sint16 x, cPosX, screenxb; + Uint16 elapsed, totaltics, dstofs; + Sint16 cStart, cEnd, cTotalMove; + Uint16 shift, srcseg, srcofs; + Sint16 clearleft, copywidth, clearright; + Uint16 srcdif, dstdif; + Sint32 now; + + // + // set up characteristics of the animation + // + EGAWRITEMODE(0); + EGAREADMAP(0); // useless... + + keenstart = keen->width + 200; + EGAREADMAP(1); // also useless ... I think... + + cEnd = 120 - commander->width; + cStart = 320; + cTotalMove = cEnd - cStart; + totaltics = abs(cTotalMove); + + pageofs = pageon = 0; + lasttimecount = TimeCount; + while (TimeCount == lasttimecount); + lasttimecount = TimeCount; + + for (elapsed=0; elapsed <= totaltics; elapsed += tics) + { + // + // draw the credits pic + // + x = ((Sint32)keenstart * (Sint32)(totaltics-elapsed)) / (Sint32)totaltics; + DrawPlaque(elapsed, x); + + // + // get ready to draw draw the "COMMANDER" pic + // + cPosX = cStart + ((Sint32)cTotalMove * (Sint32)elapsed) / (Sint32)totaltics; + cPosX += x & 7; + screenxb = (cPosX + 0x800) / 8 + -0x100; + shift = (cPosX + 0x800) & 7; + srcseg = FP_SEG(cmdrshifts[shift]); + srcofs = 0; + dstofs = pageofs + x / 8; + if (screenxb > 0) + { + clearleft = (screenxb + 1) / 2; + if (screenxb & 1) + dstofs--; + copywidth = 21 - clearleft; + clearright = 0; + } + else if (-commanderbwide + 40 < screenxb) + { + clearleft = 0; + copywidth = 21; + clearright = 0; + srcofs -= screenxb; + } + else + { + clearleft = 0; + copywidth = (commanderbwide + screenxb) / 2; + clearright = 21 - copywidth; + srcofs -= screenxb; + } + srcdif = commanderbwide - copywidth*2; + dstdif = 248 - (clearleft + copywidth + clearright)*2; + + // + // draw "COMMANDER" pic + // + EGAMAPMASK(2); + + asm { + mov di, dstofs; + mov es, screenseg; + mov si, srcofs; + mov lastsource, si; + mov ds, srcseg; + mov dx, 200; + } +yloop: + asm { + xor ax, ax; + mov cx, clearleft; + rep stosw; + mov cx, copywidth; + rep movsw; + xor ax, ax; + mov cx, clearright; + rep stosw; + test dx, 1; + jnz oddline; + mov si, ss:lastsource; + jmp nextline; + } +oddline: + asm { + add si, srcdif; + mov ss:lastsource, si; + } +nextline: + asm { + add di, dstdif; + dec dx; + jnz yloop; + mov ax, ss; + mov ds, ax; + } + + // + // page flip + // + VW_SetScreen(pageofs + x / 8, x & 7); + pageon ^= 1; + if (pageon) + { + pageofs = 124; + } + else + { + pageofs = 0; + } + + // + // handle timing + // + do + { + now = TimeCount; + tics = now - lasttimecount; + } while (tics < 2); + lasttimecount = now; + + // + // handle input + // + if (IN_IsUserInput() && LastScan != sc_F1) + { + LastScan = sc_Space; + } + if (LastScan) + return; + } + + byteadjust = x / 8; +} + +/* +============================ += += DrawScan += +============================ +*/ + +void DrawScan(Sint16 far *source, Uint8 far *dest) +{ + register Uint16 x; + register Sint16 w; + register Uint16 val; + register Uint16 i; + + val = x = 0; + for (;;) + { + // + // first part: puts black pixels ( pixels wide) + // + w = *source++; + if (w == -1) + { + *dest++ = val; + *dest = 0; + return; + } + + x += w; + if (x > 7) + { + *dest++ = val; + val = 0; + i = (x / 8) - 1; + while (i--) + { + *dest++ = 0; + } + x &= 7; + } + + // + // second part: puts white pixels ( pixels wide) + // + w = *source++; + if (w == -1) + { + *dest++ = val; + *dest = 0; + return; + } + + val |= ortoend[x]; + x += w; + if (x > 7) + { + *dest++ = val; + val = 0xFF; + i = (x / 8) - 1; + while (i--) + { + *dest++ = 0xFF; + } + x &= 7; + } + val &= andtoend[x]; + } +} + +/* +============================ += += BuildScaleShape += +============================ +*/ + +void BuildScaleShape(void) +{ + Sint16 px, w; + Sint16 far *source; + Sint16 far *dest; + Sint16 y; + + MM_GetPtr((memptr*)&both, 30000); + dest = MK_FP(FP_SEG(both), sizeof(shapehead)); + + for (y=0; y<200; y++) + { + both->rowofs[y] = FP_OFF(dest); + px = 0; + + EGAREADMAP(1); // this is pretty useless, we're not reading from EGA memory here + + source = (Sint16 far *)((byte _seg *)commander + commander->rowofs[y]); + w = *source++; + do + { + *dest++ = px; + px = px + w; + w = *source++; + } while (w != -1); + + // + // insert an 80 pixel gap between "COMMANDER" and "KEEN" + // + // This assumes that the rightmost column(s) of the "COMMANDER" + // shape are black. Otherwise the gap would be filled with + // white pixels and the "KEEN" image would use inverted colors + // as a result. + // + px += 80; + + EGAREADMAP(0); // this is pretty useless, we're not reading from EGA memory here + + source = (Sint16 far *)((byte _seg *)keen + keen->rowofs[y]); + source++; // kludgy bit, causes errors when left egde of "KEEN" is no rectangle + w = *source++; + do + { + *dest++ = px; + px = px + w; + w = *source++; + } while (w != -1); + + *dest++ = px; // put last value + *dest++ = -1; // put end-of-line + } +} + +/* +============================ += += ScalePointScan += +============================ +*/ + +void ScalePointScan(Sint16 far *rowptr, Sint16 y, Sint16 toleft, Sint16 far *scaletable) +{ + Uint8 far *dest; + Sint16 left, endx; + Uint16 w, val, x, right; + register Sint16 px, sx; + + val = x = 0; + endx = 320 - toleft; + dest = MK_FP(0xA000, pageofs + byteadjust + ylookup[y]); + + if (toleft < 0) + { + left = -toleft; + val = 0; + x = 0; + + for (;;) + { + px = *rowptr++; + sx = scaletable[px]; + if (sx > left) + goto drawwhite; + + px = *rowptr++; + sx = scaletable[px]; + if (sx > left) + goto drawblack; + } + } + + // + // regular + // + val = 0; + x = toleft & 7; + dest += (toleft >> 3); + left = 0; + rowptr++; // the first value is always 0, we need the next value +drawloop: + px = *rowptr++; + sx = scaletable[px]; + + // + // draw/add black pixels + // +drawblack: + w = sx - left; + left = sx; + x += w; + if (x > 7) + { + asm { + les di, dest; + mov al, BYTE PTR val; + stosb; + mov cx, x; + shr cx, 1; + shr cx, 1; + shr cx, 1; + dec cx; + xor al, al; + mov BYTE PTR val, al; + rep stosb; + and x, 7; + mov WORD PTR dest, di; + } + } + + // + // stop if the right side of the screen is reached + // + if (sx > endx) + return; + + // + // stop if the end of the image row is reached + // + // This is only checked after drawing the black part, so the + // combined shape must not end with white pixels on the right. + // That means the rightmost column(s) of the "KEEN" shape must + // always be black. + // + px = *rowptr++; + if (px == -1) + goto clearright; + + sx = scaletable[px]; + + // + // draw/add white pixels + // +drawwhite: + w = sx - left; + left = sx; + val |= ortoend[x]; + x += w; + if (x > 7) + { + asm { + les di, dest; + mov al, BYTE PTR val; + stosb; + mov cx, x; + shr cx, 1; + shr cx, 1; + shr cx, 1; + dec cx; + mov al, 255; + mov BYTE PTR val, al; + rep stosb; + and x, 7; + mov WORD PTR dest, di; + } + } + + // + // stop if the right side of the screen is reached + // + if (sx > endx) + return; + + val &= andtoend[x]; + goto drawloop; + + // + // clear the right side of the screen + // +clearright: + w = 320 - left; + x += w; + if (x > 7) + { + *dest++ = val; + val = 0; + right = x / 8 - 1; + while (right--) + { + *dest++ = 0; + } + x &= 7; + return; + } + return; +} + +/* +============================ += += ScaleDown += +============================ +*/ + +void ScaleDown(void) +{ + Uint16 i; + Uint16 toleft, ticselapsed, ticstotal, scale, endscale, rownum, rowinc; + Sint32 now; + Sint16 far *rowptr; + Uint16 scaleheight, top, bottom, lastbottom[2]; + Sint32 leftorigin; + + // + // set our new palette + // + SetPalette(termcolors2); + + EGAREADMAP(1); // this is pretty useless, we're not reading from EGA memory here + + leftorigin = 120l - commander->width; + BuildScaleShape(); + MM_GetPtr(&scaletable, 2500*sizeof(Uint16)); + + scale = 0x100; // 100% + endscale = 0x21; // 13% (scale from 200px to 26px) + endscale = 0x21; // redundant + lastbottom[0] = lastbottom[1] = 200; + ticselapsed = 1; + ticstotal = 30; // time for the whole shrinking animation + + while (ticselapsed <= ticstotal) + { + // + // get current scaling + // + if (ticselapsed == ticstotal) + { + scale = endscale; + toleft = 0; + top = 4; + } + else + { + scale = 0x100 - ((0x100-endscale) * ticselapsed) / ticstotal; + toleft = (leftorigin * (ticstotal - ticselapsed)) / ticstotal; + top = (ticselapsed * 4) / ticstotal; + } + + // + // build scale table: scaletable[i] = (i*scale) / 0x100; + // + asm { + xor ax, ax; + xor dx, dx; + mov cx, 2500; + mov bx, scale; + mov es, scaletable; + xor di, di; + } +l1: + asm { + mov es:[di], ah; + inc di; + mov es:[di], dl; + inc di; + add ax, bx; + adc dx, 0; + loop l1; + } + + // + // wait... didn't we already do this? + // + if (ticselapsed == ticstotal) + { + toleft = 0; + } + else + { + toleft = (leftorigin * (ticstotal - ticselapsed)) / ticstotal; + } + + // + // prepare scaled drawing process + // + scaleheight = ((Sint16 _seg *)scaletable)[200]; + rownum = 0; + rowinc = 0x10000l / scale; + bufferofs = pageofs + byteadjust; + + // + // erase stuff at the top + // + if (top > 0) + { + VW_Bar(0, 0, 320, top, BLACK); + } + + // + // draw the scaled shape + // + EGAWRITEMODE(0); + EGAMAPMASK(15); + + for (i=0; irowofs[rownum >> 8]); + ScalePointScan(rowptr, i+top, toleft, scaletable); + + rownum += rowinc; + } + + // + // erase leftovers at the bottom of the screen + // + bufferofs = pageofs + byteadjust; + bottom = scaleheight + top; + if (lastbottom[pageon] > bottom) + { + VW_Bar(0, bottom, 320, lastbottom[pageon] - bottom, BLACK); + lastbottom[pageon] = bottom; + } + + // + // page flip + // + VW_SetScreen(pageofs+byteadjust, 0); + pageon ^= 1; + if (pageon) + { + pageofs = 124; + } + else + { + pageofs = 0; + } + + // + // handle timing + // + now = TimeCount; + tics = now - lasttimecount; + lasttimecount = now; + if (tics > 8) + tics = 8; // don't skip too many frames on slow systems + + if (ticselapsed == ticstotal) + break; + + ticselapsed += tics; + if (ticselapsed > ticstotal) + ticselapsed = ticstotal; + + // + // handle input + // + if (IN_IsUserInput() && LastScan != sc_F1) + { + LastScan = sc_Space; + } + if (LastScan) + return; // BUG: buffers aren't freed! + } + + // + // free the buffers + // + MM_FreePtr(&scaletable); + MM_FreePtr((memptr*)&both); +} + +/* +============================ += += FinishPage += +============================ +*/ + +void FinishPage(void) +{ + Sint16 swap, temp, i, n, x, y; + Uint16 ofs; + Sint16 top, bottom, delta; + Uint8 bitmask[] = {0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80}; + Sint16 xtable[320], ytable[200]; + + // + // build lookup tables + // + for (i=0; i<320; i++) + { + xtable[i] = i; + } + for (i=0; i<320; i++) + { + swap = random(320); + temp = xtable[swap]; + xtable[swap] = xtable[i]; + xtable[i] = temp; + } + for (i=0; i<200; i++) + { + ytable[i] = xtable[i]; + } + + // + // set up display + // + VW_SetDefaultColors(); + if (pageon) + { + bufferofs = byteadjust + 124; + displayofs = byteadjust; + } + else + { + bufferofs = byteadjust; + displayofs = byteadjust + 124; + } + VW_SetScreen(displayofs, 0); + + // + // draw title pic to the non-displayed buffer + // + VW_DrawPic(0, 0, TITLEPICPIC); + + // + // copy "random" pixels from the non-displayed area + // into the displayed area to create the "fizzle" effect + // + delta = displayofs - bufferofs; + + // + // set ES register for the pixel copying code in the loops + // + // This is faster than setting the ES register in the loops, + // but you need to make sure nothing in the loops overwrites + // the ES register, otherwise the code won't work correctly. + // + asm mov es, screenseg; + + for (i = 0; i< 360; i++) + { + top = i - 160; + if (top < 0) + top = 0; + + bottom = i; + if (bottom >= 200) + bottom = 199; + + for (y = top; y <= bottom; y++) + { + ofs = bufferofs + ylookup[y]; + for (n=0; n<2; n++) + { + x = xtable[ytable[y]]; + if (++ytable[y] == 320) + { + ytable[y] = 0; + } + + // + // set bitmask for our x value + // + asm mov cx, x; + asm mov si, cx; + asm and si, 7; + asm cli; + asm mov dx, GC_INDEX; + asm mov al, GC_BITMASK; + asm mov ah, BYTE PTR bitmask[si]; + asm out dx, ax; + asm sti; + + // + // set up source and dest index registers + // + asm mov si, ofs; + asm shr cx, 1; + asm shr cx, 1; + asm shr cx, 1; + asm add si, cx; + asm mov di, si; + asm add di, delta; + + // + // copy the pixel data (all 4 planes) + // + // "blue" plane: + asm mov dx, SC_INDEX; + asm mov ax, SC_MAPMASK + 1*256; + asm out dx, ax; + asm mov dx, GC_INDEX; + asm mov ax, GC_READMAP + 0*256; + asm out dx, ax; + asm mov bl, es:[si]; + asm xchg bl, es:[di]; + // "green" plane: + asm mov dx, SC_INDEX; + asm mov ax, SC_MAPMASK + 2*256; + asm out dx, ax; + asm mov dx, GC_INDEX; + asm mov ax, GC_READMAP + 1*256; + asm out dx, ax; + asm mov bl, es:[si]; + asm xchg bl, es:[di]; + // "red" plane: + asm mov dx, SC_INDEX; + asm mov ax, SC_MAPMASK + 4*256; + asm out dx, ax; + asm mov dx, GC_INDEX; + asm mov ax, GC_READMAP + 2*256; + asm out dx, ax; + asm mov bl, es:[si]; + asm xchg bl, es:[di]; + // "intensity" plane: + asm mov dx, SC_INDEX; + asm mov ax, SC_MAPMASK + 8*256; + asm out dx, ax; + asm mov dx, GC_INDEX; + asm mov ax, GC_READMAP + 3*256; + asm out dx, ax; + asm mov bl, es:[si]; + asm xchg bl, es:[di]; + } + } + + VW_WaitVBL(1); // so the fizzle animation won't go super fast + + if (IN_IsUserInput() && LastScan != sc_F1) + { + LastScan = sc_Space; + } + if (LastScan) + { + EGABITMASK(0xFF); + EGAMAPMASK(15); + return; + } + } + + // + // clean up EGA registers + // + EGABITMASK(0xFF); + EGAMAPMASK(15); + + // + // pause for 6 seconds + // + IN_UserInput(6 * TickBase, false); +} + +/* +============================ += += Terminator += +============================ +*/ + +void Terminator(void) +{ + Uint16 i, shift, bufsize; + Sint16 far *source; + Uint8 far *dest; + Uint16 srcseg, destseg; + boolean pagefinished; + Uint16 rowofs[200]; + + pagefinished = false; + CA_SetAllPurge(); + SetPaletteEx(colors[0]); // all black + VW_ClearVideo(BLACK); + VW_SetLineWidth(248); // 1984 pixels total, we're using 992 per "page" + + CA_CacheGrChunk(TITLEPICPIC); + CA_CacheGrChunk(BIGCOMMANDER); + CA_CacheGrChunk(BIGKEEN); + keen = grsegs[BIGKEEN]; + commander = grsegs[BIGCOMMANDER]; + + EGAMAPMASK(1); + + keenstart = keen->width + 200; + VW_SetScreen((keenstart/8)+1, 0); + + // + // draw the "KEEN" pic (to first "page") + // + for (i=0; i<200; i++) + { + source = (Sint16 far *)((byte _seg *)keen + keen->rowofs[i]); + dest = MK_FP(0xA000, ylookup[i]); + dest += 25; // 25 bytes -> 200 pixels + DrawScan(source, dest); + } + // + // copy pic from first "page" to second "page" + // + VW_ScreenToScreen(0, 124, 109, 200); + + // + // create pre-shifted image buffers for the "COMMANDER" pic + // (only 100 pixels high instead of 200 pixels to save memory) + // + commanderbwide = (commander->width + 7) / 8; + commanderbwide = (commanderbwide + 3) & ~1; + bufsize = commanderbwide * 100; // half height + for (shift = 0; shift < 8; shift++) + { + MM_GetPtr(&cmdrshifts[shift], bufsize); + } + + // + // re-assign shape pointers (memory manager might have moved the buffers) + // + keen = grsegs[BIGKEEN]; + commander = grsegs[BIGCOMMANDER]; + + // + // draw the first (unshifted) version of the "COMMANDER" pic to the buffer + // + for (i=0; i<100; i++) + { + rowofs[i*2] = rowofs[i*2+1] = i * commanderbwide; + source = (Sint16 far *)((byte _seg *)commander + commander->rowofs[i*2]); + dest = (Uint8 _seg *)cmdrshifts[0] + rowofs[i*2]; + DrawScan(source, dest); + } + + // + // create the shifted versions of the "COMMANDER" pic + // + for (shift = 1; shift < 8; shift++) + { + srcseg = FP_SEG(cmdrshifts[shift-1]); + destseg = FP_SEG(cmdrshifts[shift]); + asm { + mov ds, srcseg; + mov es, destseg; + mov cx, bufsize; + clc; + xor si, si; + xor di, di; + } +l1: + asm { + lodsb; + rcr al, 1; + stosb; + loop l1; + mov ax, ss; + mov ds, ax; + } + } + + // + // prepare (and set) the palettes + // + termcolors[16] = termcolors2[16] = termcolors[16] = bordercolor; + SetPalette(termcolors); + + // + // cache the credits pics (they are converted into a special + // format to make shifted drawing easier during the animation) + // + for (i=0; i<4; i++) + { + LoadPlaque(i); + } + + // + // play the animation + // + plaque = lastframe = 0; + plaquephase = -1; + SlideLetters(); + + // + // free some of the buffers + // (shrink animation needs additional memory) + // + for (i=0; i<4; i++) + { + MM_FreePtr(&basepl[i]); + } + for (shift=0; shift<8; shift++) + { + MM_FreePtr(&cmdrshifts[shift]); + } + + // + // do the shrinking and fizzle fade animations + // (if intro wasn't aborted) + // + if (!LastScan) + { + ScaleDown(); + } + + if (!LastScan) + { + FinishPage(); + pagefinished = true; + } + + // + // free the remaining buffers + // + MM_SetPurge(&grsegs[BIGCOMMANDER], 3); + MM_SetPurge(&grsegs[BIGKEEN], 3); + + // + // switch back to default graphics settings + // + VW_ClearVideo(BLACK); + VW_SetLineWidth(SCREENWIDTH); + VW_SetDefaultColors(); + RF_FixOfs(); + CA_ClearMarks(); + + // + // handle input and main menu stuff + // + if (LastScan == sc_None) + { + return; + } +#ifndef KEEN6 + if (LastScan == sc_F1) + { + HelpScreens(); + return; + } +#endif + if (!pagefinished) + { + RF_FixOfs(); //redundant + CA_CacheGrChunk(TITLEPICPIC); + VW_DrawPic(0, 0, TITLEPICPIC); + VW_SetScreen(bufferofs, 0); + IN_Ack(); + CA_ClearMarks(); + if (storedemo) + { + playstate = ex_resetgame; + restartgame = gd_Normal; + IN_ClearKeysDown(); + NewGame(); + return; + } + } + + US_ControlPanel(); + if (restartgame) + { + playstate = ex_resetgame; + } + else if (loadedgame) + { + playstate = ex_loadedgame; + } +} + +/* +============================================================================= + + STAR WARS TEXT CRAWL + +============================================================================= +*/ + +/* +============================ += += BuildBitTables += +============================ +*/ + +void BuildBitTables(void) +{ + Uint16 bit1, bit2, i; + Uint8 far *buffer; + + MM_GetPtr(&bittables, 0x4000); + buffer = bittables; + + // + // generate a lookup table that maps the bits of the "texture" (bit1) + // to the appropriate bit for the screen position (bit2) to make the + // scaler code faster and smaller + // + // table[((7-b1)*8+(7-b2))*256+i] = (i & (1 << (7-b1))) ? (1 << (7-b2)) : 0; + // + for (bit1 = 1; bit1 < 0x100; bit1 <<= 1) + { + for (bit2 = 1; bit2 < 0x100; bit2 <<= 1) + { + for (i = 0; i < 0x100; i++, buffer++) + { + if (i & bit1) + { + *buffer = bit2; + } + else + { + *buffer = 0; + } + } + } + } +} + +/* +============================ += += CompileSWUpdate += +============================ +*/ + +void CompileSWUpdate(void) +{ + Sint16 y; + Uint16 i, width, scalestep, step; + Sint32 scale, rowof, xpos, size; + void far *buffer; + Uint8 srcoff, srcbit, bitpos; + Uint16 destoff, srcx, left, orindex, lastoff; + + BuildBitTables(); + size = 190000; + MM_GetPtr(&linecode, size); + buffer = linecode; + // + // Note: You should really lock the pointer to prevent the memmory manager + // from moving the buffer around. This code stores a bunch of pointers to + // this memory block in the linestarts array. Those pointers will not be + // updated when the memory manager moves the buffer around and the game + // might end up crashing (or worse) when trying to run the "code" at the + // memory location after the data was moved. The game starts playing music + // after this function is done, which may or may not cause the memory + // manager to move memory blocks around. + // + + // + // move the buffer address into ES:DI (and keep it there) + // + asm mov es, WORD PTR buffer+2; + asm mov di, WORD PTR buffer; + // + // Since the address is kept in ES:DI, we must save and restore + // the ES register when calling other functions (push es / pop es). + // The Borland C compiler always saves and restores the DI register + // when a function modifies it, so we don't need to worry about + // that register. This is a bit of an ugly hack, but it makes this + // code a little faster and smaller. + // + + scale = 320l << 11; + scalestep = (((Uint32)(320-40) << 11) / 200); // roughly 1.4 pixels per step, going from 320 pixels to 40 pixels in 200 steps + rowof = 0; + + for (y=199; y >= 0; y--) + { + // + // draw a blue line for the current row + // + asm push es; + VW_Hlin(0, 320, y, BLUE); + asm pop es; + + // + // update the buffer variable with the current (normalized) ES:DI address + // + asm mov WORD PTR buffer, di; + asm mov WORD PTR buffer+2, es; + + // + // store the address in the scaler lookup table + // + linestarts[y] = buffer; + + // + // get current scaling factors + // + width = ((Uint16)((scale/2) >> 11)) << 1; // some trickery to make sure width is even + sourceline[y] = (rowof >> 11); + step = (336l << 11) / width; + xpos = 0; + rowof += step; + left = 160 - (width >> 1); + destoff = ylookup[y] + left / 8; + bitpos = left & 7; + + // + // generate the machine code + // + // MOV CX, SS + // MOV SS, AX + // ADD DI, + // XOR AL, AL + // + asm mov ax, 0D18Ch; + asm stosw; + asm mov ax, 0D08Eh; + asm stosw; + asm mov ax, 0C781h; + asm stosw; + asm mov ax, destoff; + asm stosw; + asm mov ax, 0C030h; + asm stosw; + + lastoff = -1; + for (i=0; i> 11); + srcoff = (srcx / 8); + srcbit = srcx & 7; + + orindex = ((7-srcbit)*8 + 7-bitpos) << 8; + if (srcoff != lastoff) + { + // + // MOV BL, [BP + ] + // + asm mov ax, 5E8Ah; + asm stosw; + asm mov al, srcoff; + asm stosb; + + lastoff = srcoff; + } + + // + // OR AL, [BX + ] + // + asm mov ax, 870Ah; + asm stosw; + asm mov ax, orindex; + asm stosw; + + bitpos++; + if (bitpos == 8) + { + bitpos = 0; + + // + // STOSB + // XOR AL, AL + // + asm mov ax, 30AAh; + asm stosw; + asm mov al, 0C0h; + asm stosb; + } + + xpos += step; + } + + if (bitpos) + { + // + // STOSB + // + asm mov al, 0AAh; + asm stosb; + } + // + // generate end of subroutine + // + // MOV SS, CX + // RETF + // + asm mov ax, 0D18Eh; + asm stosw; + asm mov al, 0CBh; + asm stosb; + + // + // normalize ES:DI + // + asm mov ax, di; + asm shr ax, 1; + asm shr ax, 1; + asm shr ax, 1; + asm shr ax, 1; + asm mov bx, es; + asm add ax, bx; + asm mov es, ax; + asm and di, 0Fh; + + // + // update scale value for next row + // + scale -= scalestep; + + // + // replace the blue line with the row from the background image + // + asm push es; + VW_ScreenToScreen(ylookup[y] + 0x8000, ylookup[y], 40, 1); + asm pop es; + + if (LastScan) + return; + } +} + +/* +============================ += += TranslateString += +============================ +*/ + +void TranslateString(char *text) +{ + char c; + + while (*text) + { + c = *text; + + if (c >= 'A' && c <= 'Z') + { + c = c + -33; + } + else if (c >= 'a' && c <= 'z') + { + c = c + -39; + } + else if (c == '.') + { + c = 84; + } + else if (c == ',') + { + c = 85; + } + else if (c == '-') + { + c = 86; + } + else if (c == '"') + { + c = 87; + } + else if (c == ' ') + { + c = 88; + } + else if (c == '!') + { + c = 89; + } + else if (c == '\'') + { + c = 90; + } + else if (c != '\n') + { + c = 84; // any unhandled character is drawn as '.' + } + + *text++ = c; + } +} + +/* +============================ += += DrawSWText += +============================ +*/ + +void DrawSWText(void) +{ + char far *text; + char *ptr; + char c; + char strbuf[80]; + + WindowX = 0; + WindowW = 336; + PrintY = 1; // always leave the first line blank + bufferofs = 0; + panadjust = 0; + text = swtext; + masterlines = 0; + + // + // draw the entire text to video memory + // + while (*text) + { + ptr = strbuf; + do + { + c = *text++; + *ptr++ = c; + } while (c != '\n' && c != '\0'); + *ptr = '\0'; + + TranslateString(strbuf); + + US_CPrint(strbuf); + + bufferofs += ylookup[PrintY]; + masterlines += PrintY; + PrintY = 0; + } + + // + // allocate a buffer large enough to hold the entire text image + // and move the image data from video memory into that buffer + // + MM_GetPtr(&sourcepic, bufferofs); + EGAREADMAP(1); // read from "green" plane (doesn't really matter from which plane we read) + movedata(screenseg, 0, FP_SEG(sourcepic), 0, bufferofs); + + // + // erase the (first screen of the) text from video memory. + // we're going to display this area and copy the backgound pic + // here line-by-line as the scalers are generated and we don't + // want to have parts of the text still visible at that point. + // + bufferofs = 0; + VW_Bar(0, 0, 320, 200, BLACK); +} + +/* +============================ += += ScrollSWText += +============================ +*/ + +void ScrollSWText(void) +{ + Sint32 now; + Uint16 pos; + Sint16 i, rowof; + + tics = TimeCount = lasttimecount = 0; + + EGAWRITEMODE(0); + EGAMAPMASK(8); // only draw to the "intensity" plane (so we don't erase the backgound pic) + + pos = 0; + while (masterlines + 400 >= pos) + { + for (i = 199; i >= 0; i--) + { + rowof = pos - sourceline[i]; + if (rowof < 0 || rowof >= masterlines) + { + masterofs = 0; // draw the first (blank) line of the buffer + } + else + { + masterofs = rowof * 42; + } + routine = linestarts[i]; + asm { + mov es, screenseg; + mov di, pageofs; + mov ds, bittables; + push bp; + mov bp, ss:masterofs; + mov ax, ss:sourcepic; + xor bh, bh; + cli; // disable interrupts (scaler changes register SS, so interrupts would be fatal!) + call ss:routine; + sti; // enable interrupts again + pop bp; + mov ax, ss; + mov ds, ax; + } + } + + VW_SetScreen(pageofs, 0); + pageon ^= 1; + pageofs = pageon << 15; + + now = TimeCount; + tics = tics + (now - lasttimecount); + lasttimecount = now; + if (tics > 20) + tics = 20; + + pos = pos + tics / 4; + tics &= 3; + + if (IN_IsUserInput() && LastScan != sc_F1) + LastScan = sc_Space; + + if (LastScan) + break; + } +} + +/* +============================ += += StarWars += +============================ +*/ + +void StarWars(void) +{ + SetPaletteEx(colors[0]); // all black + VW_ClearVideo(BLACK); + VW_SetLineWidth(42); // 336 pixels + VW_SetScreen(0, 0); + pageon = pageofs = 0; + CA_SetAllPurge(); + CA_CacheGrChunk(STARTFONT+2); + fontnumber = 2; + DrawSWText(); + fontnumber = 0; + + CA_CacheGrChunk(SW_BACKGROUNDPIC); + bufferofs = 0x8000; + VW_DrawPic(0, 0, SW_BACKGROUNDPIC); + CA_SetAllPurge(); + SetPaletteEx(starcolors); + bufferofs = 0; + CompileSWUpdate(); + + if (!LastScan) + { + StartMusic(STARWARSMUSIC); + ScrollSWText(); + StopMusic(); + } + + MM_FreePtr(&linecode); + MM_FreePtr(&bittables); + MM_FreePtr(&sourcepic); + + VW_ClearVideo(BLACK); + VW_SetLineWidth(SCREENWIDTH); + VW_SetDefaultColors(); + RF_FixOfs(); + CA_ClearMarks(); + + CheckLastScan(); +} + +#endif // if GRMODE == EGAGR + +//=========================================================================== + +/* +============================ += += ShowTitle += +============================ +*/ + +void ShowTitle(void) +{ + panadjust = 0; + CA_CacheGrChunk(TITLEPICPIC); + VW_DrawPic(0, 0, TITLEPICPIC); +#if GRMODE == CGAGR + VW_UpdateScreen(); +#else + VW_SetScreen(displayofs, 0); + VW_ScreenToScreen(bufferofs, displayofs, 42, 224); +#endif + IN_UserInput(6*TickBase, false); + CA_ClearMarks(); + CheckLastScan(); +} + +//=========================================================================== + +#if GRMODE == CGAGR +/* +============================ += += ShowCredits += +============================ +*/ + +void ShowCredits(void) +{ + panadjust = 0; + CA_CacheGrChunk(SW_BACKGROUNDPIC); + VW_DrawPic(0, 0, SW_BACKGROUNDPIC); + VW_UpdateScreen(); + IN_UserInput(6*TickBase, false); + CA_ClearMarks(); + CheckLastScan(); +} +#endif + +//=========================================================================== + +/* +============================ += += RunDemo += +============================ +*/ + +void RunDemo(Sint16 num) +{ + Uint16 far *demodata; + + NewGame(); + num += DEMO0; + CA_CacheGrChunk(num); + demodata = grsegs[num]; + gamestate.mapon = demodata[0]; + DemoSize = demodata[1]; + MM_GetPtr(&(memptr)DemoBuffer, DemoSize); + MM_SetLock(&(memptr)DemoBuffer, true); + _fmemcpy(DemoBuffer, ((char _seg *)grsegs[num])+4, DemoSize); + MM_FreePtr(&grsegs[num]); + IN_StartDemoPlayback(DemoBuffer, DemoSize); + SetupGameLevel(true); + if (scorescreenkludge) + { + DrawHighScores(); + } + PlayLoop(); + IN_StopDemo(); + MM_FreePtr(&(memptr)DemoBuffer); + VW_FixRefreshBuffer(); + CA_ClearMarks(); + CheckLastScan(); +} + +//=========================================================================== + +/* +============================ += += DrawHighScores += +============================ +*/ + +void DrawHighScores(void) +{ + Uint16 i, n; + Uint16 width, height; + HighScore *entry; + Uint16 oldbufferofs; + char buf[16], *bufptr; + + RF_NewPosition(0, 0); + oldbufferofs = bufferofs; + bufferofs = masterofs; +#ifdef KEEN5 +#if GRMODE == CGAGR + fontcolor = 2; +#else + fontcolor = BLUE ^ LIGHTMAGENTA; // blue text on light magenta background (XOR draw mode!) +#endif +#endif + for (i=0, entry=&Scores[0]; iname); +#ifdef KEEN4 + PrintX = 152; + for (n=0; ncompleted; n++) + { + VWB_DrawTile8(PrintX, PrintY+1, 71); + PrintX += 8; + } +#endif + ultoa(entry->score, buf, 10); + for (bufptr=buf; *bufptr; bufptr++) + { + *bufptr = *bufptr + 81; + } + USL_MeasureString(buf, &width, &height); + PrintX = HIGHSCORE_RIGHT - width; + US_Print(buf); + } + fontcolor = WHITE; // back to default color + bufferofs = oldbufferofs; +} + +//=========================================================================== + +/* +============================ += += CheckHighScore += +============================ +*/ + +void CheckHighScore(Sint32 score, Sint16 completed) +{ + Uint16 i, n; + Sint16 index; + HighScore entry; + + strcpy(entry.name, ""); //Note: 'entry.name[0] = 0;' would be more efficient + entry.score = score; + entry.completed = completed; + for (i=0, index=-1; i i) + { + Scores[n] = Scores[n-1]; + } + Scores[i] = entry; + index = i; + HighScoresDirty = true; + break; + } + } + if (index != -1) + { + scorescreenkludge = true; + gamestate.mapon = HIGHSCORE_MAP; + SetupGameLevel(true); + DrawHighScores(); +#ifdef KEEN5 +#if GRMODE == CGAGR + fontcolor = 2; +#else + fontcolor = BLUE ^ LIGHTMAGENTA; // blue text on light magenta background (XOR draw mode!) +#endif +#endif + RF_Refresh(); + RF_Refresh(); + PrintY = i*16 + HIGHSCORE_TOP; + PrintX = HIGHSCORE_LEFT; + US_LineInput(PrintX, PrintY, Scores[index].name, NULL, true, MaxHighName, 112); + scorescreenkludge = false; + } +#ifdef KEEN5 + fontcolor = 15; // back to default color (white) +#endif +} + +//=========================================================================== + +/* +============================ += += ShowHighScores += +============================ +*/ + +void ShowHighScores(void) +{ + scorescreenkludge = true; + IN_ClearKeysDown(); + RunDemo(4); + scorescreenkludge = false; +} diff --git a/16/keen456/KEEN4-6/CK_GAME.C b/16/keen456/KEEN4-6/CK_GAME.C new file mode 100755 index 00000000..157bd3f8 --- /dev/null +++ b/16/keen456/KEEN4-6/CK_GAME.C @@ -0,0 +1,1009 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#include "CK_DEF.H" + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +Uint16 fadecount; +Sint16 levelcompleted; +Sint32 chunkcount, chunkmax, handpic; + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +void FadeAndUnhook(void); + +//=========================================================================== + +/* +============================ += += FreeGraphics += +============================ +*/ + +void FreeGraphics(void) +{ + Sint16 i; + for (i=STARTSPRITES; inext) + { + if (!CA_FarWrite(handle, (byte far *)ob, sizeof(objtype))) + { + MM_FreePtr(&bigbuffer); + return false; + } + } + MM_FreePtr(&bigbuffer); + return true; +} + +//=========================================================================== + +/* +============================ += += LoadTheGame += +============================ +*/ + +boolean LoadTheGame(Sint16 handle) +{ + Uint16 i; + objtype *prev,*next,*followed; + Uint16 compressed,expanded; + memptr bigbuffer; +#ifdef KEEN5 + Sint16 numfuses; +#endif + + if (!CA_FarRead(handle, (byte far *)&gamestate, sizeof(gamestate))) + return false; + +#ifdef KEEN5 + // + // remember the fuses value for later - SetupGameLevel calls + // ScanInfoPlane, which resets this part of the gamestate + // + numfuses = gamestate.numfuses; +#endif + + ca_levelbit >>= 1; + ca_levelnum--; + SetupGameLevel(false); + if (mmerror) + { + mmerror = false; + US_CenterWindow(20, 8); + PrintY += 20; + US_CPrint("Not enough memory\nto load game!"); + VW_UpdateScreen(); + IN_Ack(); + return false; + } + ca_levelbit <<= 1; + ca_levelnum++; + + expanded = mapwidth * mapheight * 2; + MM_BombOnError(true); //BUG: this should use false to avoid an instant crash + MM_GetPtr(&bigbuffer, expanded); + MM_BombOnError(false); //BUG: this should use true to force an instant crash + if (mmerror) + { + mmerror = false; + US_CenterWindow(20, 8); + PrintY += 20; + US_CPrint("Not enough memory\nto load game!"); + VW_UpdateScreen(); + IN_Ack(); + return false; + } + for (i = 0; i < 3; i++) + { + if (!CA_FarRead(handle, (byte far *)&compressed, sizeof(compressed))) + { + MM_FreePtr(&bigbuffer); + return false; + } + if (!CA_FarRead(handle, (byte far *)bigbuffer, compressed)) + { + MM_FreePtr(&bigbuffer); + return false; + } + CA_RLEWexpand(bigbuffer, mapsegs[i], expanded, RLETAG); + } + MM_FreePtr(&bigbuffer); + + InitObjArray(); + new = player; + prev = new->prev; + next = new->next; + if (!CA_FarRead(handle, (byte far *)new, sizeof(objtype))) + { + return false; + } + new->prev = prev; + new->next = next; + new->needtoreact = true; + new->sprite = NULL; + new = scoreobj; + while (true) + { + prev = new->prev; + next = new->next; + if (!CA_FarRead(handle, (byte far *)new, sizeof(objtype))) + { + return false; + } + followed = new->next; + new->prev = prev; + new->next = next; + new->needtoreact = true; + new->sprite = NULL; + if (new->obclass == stunnedobj) + { + new->temp3 = 0; //clear sprite ptr for the stars + } +#if defined KEEN4 + else if (new->obclass == platformobj) + { + new->temp2 = new->temp3 = 0; //clear sprite ptrs + } +#elif defined KEEN5 + else if (new->obclass == mineobj) + { + new->temp4 = 0; //clear sprite ptr + } + else if (new->obclass == spherefulobj) + { + new->temp1 = new->temp2 = new->temp3 = new->temp4 = 0; //clear sprite ptrs + } +#elif defined KEEN6 + else if (new->obclass == platformobj) + { + new->temp3 = 0; //clear sprite ptr + } +#endif + if (followed) + { + GetNewObj(false); + } + else + { + break; + } + } + scoreobj->temp2 = -1; + scoreobj->temp1 = -1; + scoreobj->temp3 = -1; + scoreobj->temp4 = -1; +#ifdef KEEN5 + gamestate.numfuses = numfuses; // put value from saved game back in place +#endif + return true; +} + +//=========================================================================== + +/* +============================ += += ResetGame += +============================ +*/ + +void ResetGame(void) +{ + NewGame(); + ca_levelnum--; + ca_levelbit >>= 1; + CA_ClearMarks(); + ca_levelbit <<= 1; + ca_levelnum++; +} + +//=========================================================================== + + +/* +========================== += += PatchWorldMap += += Takes out blocking squares and spawns flags += +========================== +*/ + +void PatchWorldMap(void) +{ + Uint16 x, y, planeoff, info, level, tag; + Uint16 far *infoptr; + + planeoff = 0; + infoptr = mapsegs[2]; + for (y = 0; y < mapheight; y++) + { + for (x = 0; x < mapwidth; x++, infoptr++, planeoff++) + { + info = *infoptr; + level = info & 0xFF; + if (level >= MINDONELEVEL && level <= MAXDONELEVEL && gamestate.leveldone[level]) + { + tag = info >> 8; + *infoptr = 0; // BUG: infoplane value should only be set to 0 if tag == 0xC0 + if (tag == 0xD0) + { + mapsegs[1][planeoff] = 0; + } + else if (tag == 0xF0) + { +#ifdef KEEN5 + SpawnFlag(x, y); +#else + if (levelcompleted == level) + { + SpawnThrowFlag(x, y); + } + else + { + SpawnFlag(x, y); + } +#endif + } + } + } + } +} + +//=========================================================================== + +/* +========================== += += DelayedFade += += Fades out and latches FadeAndUnhook onto the refresh += +========================== +*/ + +void DelayedFade(void) +{ + VW_FadeOut(); + fadecount = 0; + RF_SetRefreshHook(&FadeAndUnhook); +} + +/* +========================== += += FadeAndUnhook += += Latch this onto the refresh so the screen only gets faded in after two += refreshes. This lets all actors draw themselves to both pages before += fading the screen in. += +========================== +*/ + +void FadeAndUnhook(void) +{ + if (++fadecount == 2) + { + VW_FadeIn(); + RF_SetRefreshHook(NULL); + TimeCount = lasttimecount; // don't adaptively time the fade + } +} + +//=========================================================================== + + +/* +========================== += += SetupGameLevel += += Load in map mapon and cache everything needed for it += +========================== +*/ + +void SetupGameLevel(boolean loadnow) +{ +// +// randomize if not a demo +// + if (DemoMode) + { + US_InitRndT(false); + gamestate.difficulty = gd_Normal; + } + else + { + US_InitRndT(true); + } + +// +// load the level header and three map planes +// + CA_CacheMap(gamestate.mapon); + +// +// let the refresh manager set up some variables +// + RF_NewMap(); + +// +// decide which graphics are needed and spawn actors +// + CA_ClearMarks(); + ScanInfoPlane(); + if (mapon == 0) + { + PatchWorldMap(); + } + RF_MarkTileGraphics(); + +// +// have the caching manager load and purge stuff to make sure all marks +// are in memory +// + MM_BombOnError(false); + CA_LoadAllSounds(); + if (loadnow) + { + if (scorescreenkludge) + { + CA_CacheMarks(NULL); + } + else if (DemoMode) + { + CA_CacheMarks("DEMO"); + } +#ifdef KEEN5 + else if (mapon == 0 && player->tiletop > 100) + { + CA_CacheMarks("Keen steps out\nonto Korath III"); + } +#endif + else + { + _fstrcpy(str, levelenter[mapon]); + CA_CacheMarks(str); + } + } + MM_BombOnError(true); + + if (!mmerror && loadnow) + { + DelayedFade(); + } +} + +//=========================================================================== + + +/* +========================== += += DialogDraw += +========================== +*/ + +void DialogDraw(char *title, Uint16 numcache) +{ + Sint16 i; + Uint16 width, height; + Sint32 totalfree; + + totalfree = MM_TotalFree(); + if (totalfree < 2048) + { + handpic = 5; + } + else + { + handpic = 0; + for (i = 0; i < 6; i++) + { + CA_CacheGrChunk(i+KEENCOUNT1PIC); + CA_UnmarkGrChunk(i+KEENCOUNT1PIC); + if (grsegs[i+KEENCOUNT1PIC]) + { + MM_SetPurge(&grsegs[i+KEENCOUNT1PIC], PURGE_FIRST); + } + else + { + mmerror = false; + handpic = 5; + break; + } + } + } + US_CenterWindow(26, 8); + if (grsegs[KEENCOUNT1PIC]) + { + VWB_DrawPic(WindowX, WindowY, KEENCOUNT1PIC); + } + else + { + handpic = 5; + } + CA_UnmarkGrChunk(KEENCOUNT1PIC); //redundant + WindowW -= 48; + WindowX += 48; + SizeText(title, &width, &height); + PrintY += (WindowH-height)/2 - 4; + US_CPrint(title); + VW_UpdateScreen(); + chunkmax = chunkcount = numcache / 6; + if (!chunkmax && !handpic) + { + handpic = 5; + if (grsegs[KEENCOUNT6PIC]) + VWB_DrawPic(WindowX-24, WindowY+40, KEENCOUNT6PIC); + VW_UpdateScreen(); + } +} + +/* +========================== += += DialogUpdate += +========================== +*/ + +void DialogUpdate(void) +{ + if (--chunkcount || handpic > 4) + return; + + chunkcount = chunkmax; + if (grsegs[handpic+KEENCOUNT2PIC]) + { + VWB_DrawPic(WindowX-24, WindowY+40, handpic+KEENCOUNT2PIC); + } + VW_UpdateScreen(); + handpic++; +} + +/* +========================== += += DialogFinish += +========================== +*/ + +void DialogFinish(void) +{ + //this is empty +} + +//========================================================================== + +/* +================== += += StartDemoRecord += +================== +*/ + +void StartDemoRecord(void) +{ + Sint16 level; + boolean esc; + + VW_FixRefreshBuffer(); + US_CenterWindow(30, 3); + PrintY += 6; + US_Print(" Record a demo from level(0-21):"); + VW_UpdateScreen(); + esc = !US_LineInput(px, py, str, NULL, true, 2, 0); + if (!esc) + { + level = atoi(str); + if (level >= 0 && level <= 21) + { + gamestate.mapon = level; + playstate = ex_warped; + IN_StartDemoRecord(0x1000); + } + } +} + +/* +================== += += EndDemoRecord += +================== +*/ + +void EndDemoRecord(void) +{ + Sint16 handle; + boolean esc; + char filename[] = "DEMO?."EXTENSION; + + IN_StopDemo(); + VW_FixRefreshBuffer(); + US_CenterWindow(22, 3); + PrintY += 6; + US_Print(" Save as demo #(0-9):"); + VW_UpdateScreen(); + esc = !US_LineInput(px, py, str, NULL, true, 2, 0); + if (!esc && str[0] >= '0' && str[0] <= '9') + { + filename[4] = str[0]; + handle = open(filename, O_BINARY|O_WRONLY|O_CREAT, S_IFREG|S_IREAD|S_IWRITE); + if (handle == -1) + { + Quit("EndDemoRecord: Cannot write demo file!"); + } + write(handle, &mapon, sizeof(mapon)); + write(handle, &DemoOffset, sizeof(DemoOffset)); + CA_FarWrite(handle, DemoBuffer, DemoOffset); + close(handle); + } + IN_FreeDemoBuffer(); +} + +//========================================================================== + +/* +========================== += += HandleDeath += +========================== +*/ + +void HandleDeath(void) +{ + Uint16 y, color, top, bottom, selection, w, h; + + _fstrcpy(str, levelnames[mapon]); + SizeText(str, &w, &h); + + memset(gamestate.keys, 0, sizeof(gamestate.keys)); + gamestate.lives--; + if (gamestate.lives >= 0) + { + VW_FixRefreshBuffer(); + US_CenterWindow(20, 8); + PrintY += 3; + US_CPrint("You didn't make it past"); + top = PrintY+22; + if (h < 15) + PrintY += 4; + US_CPrint(str); + PrintY = top+2; + US_CPrint("Try Again"); + PrintY += 4; + bottom = PrintY-2; + US_CPrint("Exit to "WORLDMAPNAME); + + IN_ClearKeysDown(); + selection = 0; + while (true) + { + if (selection) + { + y = bottom; + } + else + { + y = top; + } + +// draw select bar + if ((TimeCount / 16) & 1) + { + color = SECONDCOLOR; + } + else + { + color = FIRSTCOLOR; + } + VWB_Hlin(WindowX+4, WindowX+WindowW-4, y, color); + VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+1, color); + VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+12, color); + VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+13, color); + VWB_Vlin(y+1, y+11, WindowX+4, color); + VWB_Vlin(y+1, y+11, WindowX+5, color); + VWB_Vlin(y+1, y+11, WindowX+WindowW-4, color); + VWB_Vlin(y+1, y+11, WindowX+WindowW-5, color); + + VW_UpdateScreen(); + +// erase select bar + VWB_Hlin(WindowX+4, WindowX+WindowW-4, y, WHITE); + VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+1, WHITE); + VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+12, WHITE); + VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+13, WHITE); + VWB_Vlin(y+1, y+11, WindowX+4, WHITE); + VWB_Vlin(y+1, y+11, WindowX+5, WHITE); + VWB_Vlin(y+1, y+11, WindowX+WindowW-4, WHITE); + VWB_Vlin(y+1, y+11, WindowX+WindowW-5, WHITE); + + if (LastScan == sc_Escape) + { + gamestate.mapon = 0; // exit to world map + IN_ClearKeysDown(); + return; + } + + IN_ReadControl(0, &c); + if (c.button0 || c.button1 || LastScan == sc_Return || LastScan == sc_Space) + { + if (selection) + gamestate.mapon = 0; // exit to world map + return; + } + if (c.yaxis == -1 || LastScan == sc_UpArrow) + { + selection = 0; + } + else if (c.yaxis == 1 || LastScan == sc_DownArrow) + { + selection = 1; + } + } + } +} + +//========================================================================== + +/* +============================ += += GameLoop += += A game has just started (after the cinematic or load game) += +============================ +*/ + +void GameLoop(void) +{ + Uint16 temp; +#ifdef KEEN6 + Uint16 i; +#endif + +#ifdef KEEN6 + if (!storedemo) + { + if (!US_ManualCheck()) + { + loadedgame = false; + restartgame = gd_Continue; + return; + } + } +#endif + + if (playstate == ex_loadedgame) + { + goto loaded; + } +reset: + gamestate.difficulty = restartgame; + restartgame = gd_Continue; + do + { +startlevel: + SetupGameLevel(true); + if (mmerror) + { + if (gamestate.mapon != 0) + { + mmerror = false; + US_CenterWindow(20, 8); + PrintY += 20; + US_CPrint("Insufficient memory\nto load level!"); + VW_UpdateScreen(); + IN_Ack(); + gamestate.mapon = 0; // exit to world map + SetupGameLevel(true); + } + if (mmerror) + { + Quit("GameLoop: Insufficient memory to load world map!"); + } + } +loaded: + keenkilled = false; + SD_WaitSoundDone(); + + PlayLoop(); + + if (playstate != ex_loadedgame) + { + memset(gamestate.keys, 0, sizeof(gamestate.keys)); +#ifdef KEEN5 + gamestate.keycard = false; +#endif + } + VW_FixRefreshBuffer(); + + if (tedlevel) + { + if (playstate == ex_loadedgame) + { + goto loaded; + } + else if (playstate == ex_died) + { + goto startlevel; + } + else + { + TEDDeath(); + } + } + + levelcompleted = -1; + switch (playstate) + { + case ex_resetgame: + goto reset; + + case ex_loadedgame: + goto loaded; + + case ex_died: + HandleDeath(); + break; + +#if defined KEEN4 + case ex_rescued: + if (mapon != 0) + { + SD_PlaySound(SND_LEVELDONE); + } + levelcompleted = mapon; + gamestate.leveldone[mapon] = true; + RescuedMember(); + if (gamestate.rescued != 8) + { + gamestate.mapon = 0; + } + else + { + FreeGraphics(); + RF_FixOfs(); + VW_FixRefreshBuffer(); + FinaleLayout(); + CheckHighScore(gamestate.score, gamestate.rescued); + return; + } + break; + +#elif defined KEEN5 + case ex_fusebroke: + SD_PlaySound(SND_LEVELDONE); + levelcompleted = mapon; + gamestate.leveldone[mapon] = ex_fusebroke; + FinishedFuse(); + gamestate.mapon = 0; + break; + + case ex_qedbroke: + FreeGraphics(); + RF_FixOfs(); + VW_FixRefreshBuffer(); + FinaleLayout(); + CheckHighScore(gamestate.score, 0); + return; + +#elif defined KEEN6 + case ex_hook: + GotHook(); + goto completed; + + case ex_sandwich: + GotSandwich(); + goto completed; + + case ex_card: + GotPasscard(); + goto completed; + + case ex_molly: + FreeGraphics(); + RF_FixOfs(); + VW_FixRefreshBuffer(); + FinaleLayout(); + goto check_score; + +#endif + case ex_completed: + case ex_foot: + case ex_portout: +completed: + if (mapon != 0) + { + SD_PlaySound(SND_LEVELDONE); + gamestate.mapon = 0; + levelcompleted = mapon; + gamestate.leveldone[mapon] = true; + if (storedemo && mapon == 2) + { + IN_ClearKeysDown(); + return; + } + } + else + { +#if GRMODE != CGAGR + temp = bufferofs; + bufferofs = displayofs; +#endif + US_CenterWindow(26, 8); + PrintY += 25; + US_CPrint("One moment"); +#if GRMODE == CGAGR + VW_UpdateScreen(); +#else + bufferofs = temp; +#endif + } + break; + + case ex_abortgame: + IN_ClearKeysDown(); + return; + } + } while (gamestate.lives >= 0); + + GameOver(); + +check_score: +#if defined KEEN4 + CheckHighScore(gamestate.score, gamestate.rescued); +#else + temp = 0; +#if defined KEEN6 + for (i = 0; i < GAMELEVELS; i++) + { + if (gamestate.leveldone[i]) + temp++; + } +#endif + CheckHighScore(gamestate.score, temp); +#endif +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/CK_KEEN.C b/16/keen456/KEEN4-6/CK_KEEN.C new file mode 100755 index 00000000..3cb12b9a --- /dev/null +++ b/16/keen456/KEEN4-6/CK_KEEN.C @@ -0,0 +1,2509 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +CK_KEEN.C +========= + +Contains the following actor types (in this order): + +- Keen (regular levels) + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +Sint16 singlegravity; // left over from Keen Dreams, not used in Keen 4-6 + +Uint16 bounceangle [8][8] = +{ + { 0, 0, 0, 0, 0, 0, 0, 0}, + { 7, 6, 5, 4, 3, 2, 1, 0}, + { 5, 4, 3, 2, 1, 0, 15, 14}, + { 5, 4, 3, 2, 1, 0, 15, 14}, + { 3, 2, 1, 0, 15, 14, 13, 12}, + { 9, 8, 7, 6, 5, 4, 3, 2}, + { 9, 8, 7, 6, 5, 4, 3, 2}, + {11, 10, 9, 8, 7, 6, 5, 4} +}; + +#ifndef KEEN4 +arrowdirtype arrowflip[] = {arrow_South, arrow_West, arrow_North, arrow_East, arrow_SouthWest, arrow_NorthWest, arrow_NorthEast, arrow_SouthEast}; +#endif + +statetype s_keenstand = {KEENSTANDLSPR, KEENSTANDRSPR, stepthink, false, true, 4, 0, 32, KeenPauseThink, KeenContact, KeenStandReact, &s_keenstand}; + +#ifdef KEEN5 +statetype s_keenride = {KEENONPLATSPR, KEENONPLATSPR, stepthink, false, true, 4, 0, 32, KeenStandThink, KeenContact, KeenStandReact, &s_keenride}; +#endif + +statetype s_keenpauselook = {KEENLOOKUSPR, KEENLOOKUSPR, stepthink, false, true, 60, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenstand}; + +statetype s_keenwait1 = {KEENWAITR2SPR, KEENWAITR2SPR, stepthink, false, true, 90, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait2}; +statetype s_keenwait2 = {KEENWAITR1SPR, KEENWAITR1SPR, stepthink, false, true, 10, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait3}; +statetype s_keenwait3 = {KEENWAITR2SPR, KEENWAITR2SPR, stepthink, false, true, 90, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait4}; +statetype s_keenwait4 = {KEENWAITR1SPR, KEENWAITR1SPR, stepthink, false, true, 10, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait5}; +statetype s_keenwait5 = {KEENWAITR2SPR, KEENWAITR2SPR, stepthink, false, true, 90, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait6}; +statetype s_keenwait6 = {KEENWAITR3SPR, KEENWAITR3SPR, stepthink, false, true, 70, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenstand}; + +#ifdef KEEN4 +statetype s_keenmoon1 = {KEENMOON1SPR, KEENMOON1SPR, stepthink, false, true, 20, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenmoon2}; +statetype s_keenmoon2 = {KEENMOON2SPR, KEENMOON2SPR, stepthink, false, true, 90, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenmoon3}; +statetype s_keenmoon3 = {KEENMOON1SPR, KEENMOON1SPR, stepthink, false, true, 20, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenstand}; +#endif + +statetype s_keenread = {KEENSITREAD1SPR, KEENSITREAD1SPR, step, false, true, 16, 0, 0, 0, KeenContact, KeenStandReact, &s_keenread2}; +statetype s_keenread2 = {KEENSITREAD2SPR, KEENSITREAD2SPR, step, false, true, 16, 0, 0, 0, KeenContact, KeenStandReact, &s_keenread3}; +statetype s_keenread3 = {KEENSITREAD3SPR, KEENSITREAD3SPR, step, false, true, 16, 0, 0, 0, KeenContact, KeenStandReact, &s_keenread4}; +statetype s_keenread4 = {KEENSITREAD4SPR, KEENSITREAD4SPR, step, false, true, 16, 0, 0, 0, KeenContact, KeenStandReact, &s_keenread5}; +statetype s_keenread5 = {KEENREAD1SPR, KEENREAD1SPR, stepthink, false, true, 300, 0, 0, KeenReadThink, KeenContact, KeenStandReact, &s_keenread6}; +statetype s_keenread6 = {KEENREAD2SPR, KEENREAD2SPR, stepthink, false, true, 16, 0, 0, KeenReadThink, KeenContact, KeenStandReact, &s_keenread7}; +statetype s_keenread7 = {KEENREAD3SPR, KEENREAD3SPR, stepthink, false, true, 16, 0, 0, KeenReadThink, KeenContact, KeenStandReact, &s_keenread5}; +statetype s_keenstopread = {KEENSTOPREAD1SPR, KEENSTOPREAD1SPR, step, false, true, 12, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstopread2}; +statetype s_keenstopread2 = {KEENSTOPREAD2SPR, KEENSTOPREAD2SPR, step, false, true, 12, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstopread3}; +statetype s_keenstopread3 = {KEENSITREAD2SPR, KEENSITREAD2SPR, step, false, true, 12, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstand}; + +statetype s_keenlookup = {KEENLOOKUSPR, KEENLOOKUSPR, stepthink, false, true, 30, 0, 0, KeenLookUpThink, KeenContact, KeenStandReact, &s_keenlookup2}; +statetype s_keenlookup2 = {KEENLOOKUSPR, KEENLOOKUSPR, think, false, true, 0, 0, 0, KeenLookUpThink, KeenPosContact, KeenStandReact, NULL}; + +statetype s_keenlookdown = {KEENLOOKD1SPR, KEENLOOKD1SPR, stepthink, false, true, 6, 0, 0, KeenLookDownThink, KeenContact, KeenStandReact, &s_keenlookdown2}; +statetype s_keenlookdown2 = {KEENLOOKD2SPR, KEENLOOKD2SPR, stepthink, false, true, 24, 0, 0, KeenLookDownThink, KeenPosContact, KeenStandReact, &s_keenlookdown3}; +statetype s_keenlookdown3 = {KEENLOOKD2SPR, KEENLOOKD2SPR, think, false, true, 0, 0, 0, KeenLookDownThink, KeenPosContact, KeenStandReact, NULL}; +statetype s_keenlookdown4 = {KEENLOOKD1SPR, KEENLOOKD1SPR, step, false, true, 6, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstand}; + +statetype s_keendrop = {KEENLOOKD1SPR, KEENLOOKD1SPR, step, false, false, 0, 0, 0, KeenDropDownThink, KeenContact, KeenSimpleReact, &s_keenjump3}; +statetype s_keendead = {-1, -1, think, false, false, 10, 0, 0, 0, 0, R_Draw, NULL}; + +statetype s_keendie1 = {KEENDIE1SPR, KEENDIE1SPR, think, false, false, 100, 0, 0, KeenDieThink, 0, R_Draw, &s_keendie1}; +statetype s_keendie2 = {KEENDIE2SPR, KEENDIE2SPR, think, false, false, 100, 0, 0, KeenDieThink, 0, R_Draw, &s_keendie2}; + +#ifdef KEEN4 +statetype s_keensuitdie1 = {SCUBAKEENDEAD1SPR, SCUBAKEENDEAD1SPR, think, false, false, 100, 0, 0, KeenDieThink, NULL, R_Draw, &s_keensuitdie1}; +statetype s_keensuitdie2 = {SCUBAKEENDEAD2SPR, SCUBAKEENDEAD2SPR, think, false, false, 100, 0, 0, KeenDieThink, NULL, R_Draw, &s_keensuitdie2}; +#endif + +statetype s_keenshoot1 = {KEENSHOOTLSPR, KEENSHOOTRSPR, step, false, true, 9, 0, 0, KeenShootThink, KeenContact, KeenStandReact, &s_keenshoot2}; +statetype s_keenshoot2 = {KEENSHOOTLSPR, KEENSHOOTRSPR, step, false, true, 6, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstand}; + +statetype s_keenshootup1 = {KEENSHOOTUSPR, KEENSHOOTUSPR, step, false, true, 9, 0, 0, KeenShootThink, KeenContact, KeenStandReact, &s_keenshootup2}; +statetype s_keenshootup2 = {KEENSHOOTUSPR, KEENSHOOTUSPR, step, false, true, 6, 0, 0, 0, KeenContact, KeenStandReact, &s_keenlookup}; + +statetype s_keenswitch = {KEENENTER1SPR, KEENENTER1SPR, step, false, true, 8, 0, 0, KeenSwitchThink, NULL, KeenStandReact, &s_keenswitch2}; +statetype s_keenswitch2 = {KEENENTER1SPR, KEENENTER1SPR, step, false, true, 8, 0, 0, 0, 0, KeenStandReact, &s_keenstand}; +statetype s_keenkey = {KEENENTER1SPR, KEENENTER1SPR, step, false, true, 6, 0, 0, KeenKeyThink, NULL, KeenStandReact, &s_keenswitch2}; + +statetype s_keenlineup = {KEENENTER1SPR, KEENENTER1SPR, think, false, false, 0, 0, 0, T_LineUp, 0, R_Draw, NULL}; +#ifdef KEEN5 +statetype s_keenenter0 = {KEENENTER1SPR, KEENENTER1SPR, step, false, false, 45, 0, -64, NULL, NULL, R_Draw, &s_keenenter1}; +statetype s_keenteleport = {KEENWAITR2SPR, KEENWAITR2SPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, NULL}; +#endif + +statetype s_keenenter1 = {KEENENTER1SPR, KEENENTER1SPR, step, false, false, 9, 0, -64, WalkSound1, NULL, R_Draw, &s_keenenter2}; +statetype s_keenenter2 = {KEENENTER2SPR, KEENENTER2SPR, step, false, false, 9, 0, -64, WalkSound2, NULL, R_Draw, &s_keenenter3}; +statetype s_keenenter3 = {KEENENTER3SPR, KEENENTER3SPR, step, false, false, 9, 0, -64, WalkSound1, NULL, R_Draw, &s_keenenter4}; +statetype s_keenenter4 = {KEENENTER4SPR, KEENENTER4SPR, step, false, false, 9, 0, -64, WalkSound2, NULL, R_Draw, &s_keenenter5}; +statetype s_keenenter5 = {KEENENTER5SPR, KEENENTER5SPR, step, false, false, 9, 0, -64, KeenEnterThink, NULL, R_Draw, &s_keenstand}; +#ifdef KEEN5 +statetype s_keenenter6 = {-1, -1, step, false, false, 9, 0, -64, KeenEnterThink, 0, R_Draw, &s_keenstand}; +#endif + +statetype s_keenpole = {KEENSHINNYL1SPR, KEENSHINNYR1SPR, think, false, false, 0, 0, 0, KeenPoleThink, KeenPosContact, KeenSimpleReact, &s_keenpole}; + +statetype s_keenclimb1 = {KEENSHINNYL1SPR, KEENSHINNYR1SPR, slidethink, false, false, 8, 0, 8, KeenClimbThink, KeenPosContact, KeenSimpleReact, &s_keenclimb2}; +statetype s_keenclimb2 = {KEENSHINNYL2SPR, KEENSHINNYR2SPR, slidethink, false, false, 8, 0, 8, KeenClimbThink, KeenPosContact, KeenSimpleReact, &s_keenclimb3}; +statetype s_keenclimb3 = {KEENSHINNYL3SPR, KEENSHINNYR3SPR, slidethink, false, false, 8, 0, 8, KeenClimbThink, KeenPosContact, KeenSimpleReact, &s_keenclimb1}; + +statetype s_keenslide1 = {KEENSLIDED1SPR, KEENSLIDED1SPR, slide, false, false, 8, 0, 24, KeenDropThink, KeenPosContact, KeenPoleReact, &s_keenslide2}; +statetype s_keenslide2 = {KEENSLIDED2SPR, KEENSLIDED2SPR, slide, false, false, 8, 0, 24, KeenDropThink, KeenPosContact, KeenPoleReact, &s_keenslide3}; +statetype s_keenslide3 = {KEENSLIDED3SPR, KEENSLIDED3SPR, slide, false, false, 8, 0, 24, KeenDropThink, KeenPosContact, KeenPoleReact, &s_keenslide4}; +statetype s_keenslide4 = {KEENSLIDED4SPR, KEENSLIDED4SPR, slide, false, false, 8, 0, 24, KeenDropThink, KeenPosContact, KeenPoleReact, &s_keenslide1}; + +statetype s_keenpoleshoot1 = {KEENPSHOOTLSPR, KEENPSHOOTRSPR, step, false, false, 9, 0, 0, KeenShootThink, KeenPosContact, KeenSimpleReact, &s_keenpoleshoot2}; +statetype s_keenpoleshoot2 = {KEENPSHOOTLSPR, KEENPSHOOTRSPR, step, false, false, 6, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenpole}; + +statetype s_keenpoleshootup1 = {KEENPLSHOOTUSPR, KEENPRSHOOTUSPR, step, false, false, 9, 0, 0, KeenShootThink, KeenPosContact, KeenSimpleReact, &s_keenpoleshootup2}; +statetype s_keenpoleshootup2 = {KEENPLSHOOTUSPR, KEENPRSHOOTUSPR, step, false, false, 6, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenpole}; + +statetype s_keenpoleshootdown1 = {KEENPLSHOOTDSPR, KEENPRSHOOTDSPR, step, false, false, 9, 0, 0, KeenShootThink, KeenPosContact, KeenSimpleReact, &s_keenpoleshootdown2}; +statetype s_keenpoleshootdown2 = {KEENPLSHOOTDSPR, KEENPRSHOOTDSPR, step, false, false, 6, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenpole}; + +statetype s_keenwalk1 = {KEENRUNL1SPR, KEENRUNR1SPR, slidethink, true, true, 6, 24, 0, KeenWalkThink, KeenContact, KeenWalkReact, &s_keenwalk2}; +statetype s_keenwalk2 = {KEENRUNL2SPR, KEENRUNR2SPR, slidethink, true, true, 6, 24, 0, KeenWalkThink, KeenContact, KeenWalkReact, &s_keenwalk3}; +statetype s_keenwalk3 = {KEENRUNL3SPR, KEENRUNR3SPR, slidethink, true, true, 6, 24, 0, KeenWalkThink, KeenContact, KeenWalkReact, &s_keenwalk4}; +statetype s_keenwalk4 = {KEENRUNL4SPR, KEENRUNR4SPR, slidethink, true, true, 6, 24, 0, KeenWalkThink, KeenContact, KeenWalkReact, &s_keenwalk1}; + +statetype s_keenpogodown = {KEENPOGOL2SPR, KEENPOGOR2SPR, step, true, false, 1, 0, 0, KeenBounceThink, KeenContact, KeenPogoReact, &s_keenpogo}; +statetype s_keenpogo = {KEENPOGOL2SPR, KEENPOGOR2SPR, think, true, false, 0, 0, 0, KeenPogoThink, KeenContact, KeenPogoReact, &s_keenpogo2}; +statetype s_keenpogo2 = {KEENPOGOL1SPR, KEENPOGOR1SPR, think, true, false, 0, 0, 0, KeenPogoThink, KeenContact, KeenPogoReact, NULL}; + +statetype s_keenjump1 = {KEENJUMPL1SPR, KEENJUMPR1SPR, think, false, false, 0, 0, 0, KeenAirThink, KeenContact, KeenAirReact, &s_keenjump2}; +statetype s_keenjump2 = {KEENJUMPL2SPR, KEENJUMPR2SPR, think, false, false, 0, 0, 0, KeenAirThink, KeenContact, KeenAirReact, &s_keenjump3}; +statetype s_keenjump3 = {KEENJUMPL3SPR, KEENJUMPR3SPR, stepthink, false, false, 50, 0, 0, KeenAirThink, KeenContact, KeenAirReact, &s_keenjump4}; +statetype s_keenjump4 = {KEENJUMPL2SPR, KEENJUMPR2SPR, stepthink, false, false, 40, 0, 0, KeenAirThink, KeenContact, KeenAirReact, &s_keenjump3}; + +statetype s_keenairshoot1 = {KEENJLSHOOTLSPR, KEENJRSHOOTRSPR, stepthink, false, false, 9, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenairshoot2}; +statetype s_keenairshoot2 = {KEENJLSHOOTLSPR, KEENJRSHOOTRSPR, stepthink, true, false, 1, 0, 0, KeenShootThink, KeenContact, KeenAirReact, &s_keenairshoot3}; +statetype s_keenairshoot3 = {KEENJLSHOOTLSPR, KEENJRSHOOTRSPR, stepthink, false, false, 6, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenjump3}; + +statetype s_keenairshootup1 = {KEENJSHOOTUSPR, KEENJSHOOTUSPR, stepthink, false, false, 9, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenairshootup2}; +statetype s_keenairshootup2 = {KEENJSHOOTUSPR, KEENJSHOOTUSPR, stepthink, true, false, 1, 0, 0, KeenShootThink, KeenContact, KeenAirReact, &s_keenairshootup3}; +statetype s_keenairshootup3 = {KEENJSHOOTUSPR, KEENJSHOOTUSPR, stepthink, false, false, 6, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenjump3}; + +statetype s_keenairshootdown1 = {KEENJSHOOTDSPR, KEENJSHOOTDSPR, stepthink, false, false, 9, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenairshootdown2}; +statetype s_keenairshootdown2 = {KEENJSHOOTDSPR, KEENJSHOOTDSPR, stepthink, true, false, 1, 0, 0, KeenShootThink, KeenContact, KeenAirReact, &s_keenairshootdown3}; +statetype s_keenairshootdown3 = {KEENJSHOOTDSPR, KEENJSHOOTDSPR, stepthink, false, false, 6, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenjump3}; + +statetype s_keenholdon = {KEENHANGLSPR, KEENHANGRSPR, step, false, false, 12, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenholdon2}; +statetype s_keenholdon2 = {KEENHANGLSPR, KEENHANGRSPR, think, false, false, 0, 0, 0, KeenHoldThink, KeenPosContact, KeenSimpleReact, NULL}; + +statetype s_keenclimbup = {KEENCLIMBEDGEL1SPR, KEENCLIMBEDGER1SPR, step, false, false, 10, 0, 0, T_PullUp1, KeenPosContact, KeenSimpleReact, &s_keenclimbup2}; +statetype s_keenclimbup2 = {KEENCLIMBEDGEL2SPR, KEENCLIMBEDGER2SPR, step, false, false, 10, 0, 0, T_PullUp2, KeenPosContact, KeenSimpleReact, &s_keenclimbup3}; +statetype s_keenclimbup3 = {KEENCLIMBEDGEL3SPR, KEENCLIMBEDGER3SPR, step, false, false, 10, 0, 0, T_PullUp3, KeenPosContact, KeenSimpleReact, &s_keenclimbup4}; +statetype s_keenclimbup4 = {KEENCLIMBEDGEL4SPR, KEENCLIMBEDGER4SPR, step, false, false, 10, 0, 0, T_PulledUp, KeenPosContact, KeenSimpleReact, &s_keenclimbup5}; +statetype s_keenclimbup5 = {KEENSTANDLSPR, KEENSTANDRSPR, step, false, false, 6, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenstand}; + +Sint16 slopespeed[8] = {0, 0, 4, 4, 8, -4, -4, -8}; +Sint16 polexspeed[3] = {-8, 0, 8}; + +Sint16 shotsinclip[4] = {0, 8, 5, 5}; +Sint16 bonussound[] = { + SND_GETKEY,SND_GETKEY,SND_GETKEY,SND_GETKEY, + SND_GETPOINTS,SND_GETPOINTS,SND_GETPOINTS, + SND_GETPOINTS,SND_GETPOINTS,SND_GETPOINTS, + SND_EXTRAKEEN, + SND_GETAMMO +#ifdef KEEN5 + ,SND_GETKEYCARD +#endif +}; +Sint16 bonuspoints[] = { + 0, 0, 0, 0, + 100, 200, 500, + 1000, 2000, 5000, + 0, + 0 +#ifdef KEEN5 + ,0 +#endif +}; +Sint16 bonussprite[] = { + BONUSGEMSPR, BONUSGEMSPR, BONUSGEMSPR, BONUSGEMSPR, + BONUS100SPR, BONUS200SPR, BONUS500SPR, + BONUS1000SPR, BONUS2000SPR, BONUS5000SPR, + BONUS1UPSPR, + BONUSCLIPSPR +#ifdef KEEN5 + ,BONUSCARDSPR +#endif +}; + +Uint16 zeromap = 0; + +// uninitialized variables: + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +Sint16 jumptime; +Sint32 leavepoletime; +Sint16 moonok; + +/* +============================================================================= + + KEEN + +player->temp1 = pausetime / pointer to zees when sleeping +player->temp2 = pausecount / stagecount +player->temp3 = +player->temp4 = + +============================================================================= +*/ + + +/* +=============== += += SpawnKeen += +=============== +*/ + +void SpawnKeen(Sint16 x, Sint16 y, Sint16 dir) +{ + player->obclass = keenobj; + player->active = ac_allways; + player->priority = 1; + player->x = CONVERT_TILE_TO_GLOBAL(x); + player->y = CONVERT_TILE_TO_GLOBAL(y) - 0xF1; //TODO: weird + + player->xdir = dir; + player->ydir = 1; + NewState(player, &s_keenstand); +} + +//========================================================================== + +/* +====================== += += CheckGrabPole += +====================== +*/ + +boolean CheckGrabPole(objtype *ob) +{ + Uint16 far *map; + +// +// kludgy bit to not let you grab a pole the instant you jump off it +// + if (lasttimecount < leavepoletime) + { + leavepoletime = 0; + } + else if (lasttimecount-leavepoletime < 19) + { + return false; + } + + if (c.yaxis == -1) + { + map = mapsegs[1] + mapbwidthtable[(ob->top+6*PIXGLOBAL)/TILEGLOBAL]/2; + } + else + { + map = mapsegs[1] + mapbwidthtable[ob->tilebottom+1]/2; + } + + map += ob->tilemidx; + + if ((tinf[INTILE + *map] & 0x7F) == INTILE_POLE) + { + ob->x = CONVERT_TILE_TO_GLOBAL(ob->tilemidx-1) + 8*PIXGLOBAL; + xtry = 0; + ytry = c.yaxis * 32; + ob->needtoclip = cl_noclip; // can climb through pole holes + ob->state = &s_keenpole; + return true; + } + return false; +} + +//========================================================================== + +/* +====================== += += CheckEnterHouse += += Checks for tiles that Keen can interact with by pressing up += +====================== +*/ + +boolean CheckEnterHouse(objtype *ob) +{ + Uint16 temp; +#ifdef KEEN5 + Uint16 infoval; +#endif + Uint16 intile, intile2; + + intile = tinf[INTILE + *(mapsegs[1]+mapbwidthtable[ob->tiletop]/2+ob->tilemidx)]; + if (intile == INTILE_SWITCH0 || intile == INTILE_SWITCH1 || intile == INTILE_BRIDGESWITCH) + { + temp = CONVERT_TILE_TO_GLOBAL(ob->tilemidx) - 4*PIXGLOBAL; + if (ob->x != temp) + { + ob->temp1 = temp; + ob->state = &s_keenlineup; + } + else + { + ob->state = &s_keenswitch; + } + upheld = true; + return true; + } + else if (intile == INTILE_DOOR || intile == INTILE_KEYCARDDOOR) + { + temp = CONVERT_TILE_TO_GLOBAL(ob->tilemidx) + 6*PIXGLOBAL; + intile2 = tinf[INTILE + *(mapsegs[1]+mapbwidthtable[ob->tiletop]/2+ob->tilemidx-1)]; + if (intile2 == 2 || intile2 == 32) + temp -= TILEGLOBAL; + + // BUG: + // + // The s_keenenter? states rely on Keen's ydir being set to 1, + // which may not always be the case (e.g. if Keen was pushed off + // a pole by another actor in the level). + // If ydir is not 1, Keen will not move up during that animation + // which means the teleport coordinates won't be read from the + // intended tile position and Keen might end up teleporting to + // position 0, 0 in the map and thus win the current level. + // + // That can easily be avoided by setting ob->ydir to 1 when + // changing ob->state to s_keenenter0 or s_keenenter1. + + if (ob->x != temp) + { + ob->temp1 = temp; + ob->state = &s_keenlineup; + } +#ifdef KEEN5 + else if (intile == INTILE_KEYCARDDOOR) + { + if (gamestate.keycard) + { + gamestate.keycard = false; + SD_PlaySound(SND_OPENCARDDOOR); + GetNewObj(false); + new->x = ob->tilemidx - 2; + new->y = ob->tilebottom - 4; + new->active = ac_allways; + new->needtoclip = cl_noclip; + new->obclass = inertobj; + NewState(new, &s_carddoor); + // Note: no invincibility here - card doors were always used as level exits in Keen 5 + ob->state = &s_keenenter0; + ob->priority = 0; + upheld = true; + return true; + } + else + { + SD_PlaySound(SND_NOWAY); + ob->state = &s_keenstand; + upheld = true; + return false; + } + } +#endif + else + { + invincible = 110; //about 1.57 seconds + ob->state = &s_keenenter1; + ob->priority = 0; +#ifdef KEEN5 + { + infoval = *(mapsegs[2]+mapbwidthtable[ob->tiletop]/2+ob->tilemidx); + if (!infoval) + SpawnTeleport(); + } +#endif + } + upheld = true; + return true; + } + return false; +} + +//========================================================================== + +/* +============================ += += WalkSound1 += +============================ +*/ + +void WalkSound1(objtype *ob) +{ + SD_PlaySound(SND_WORLDWALK1); + ob++; // shut up compiler +} + +/* +============================ += += WalkSound2 += +============================ +*/ + +void WalkSound2(objtype *ob) +{ + SD_PlaySound(SND_WORLDWALK2); + ob++; // shut up compiler +} + +//========================================================================== + +/* +============================ += += KeenStandThink += +============================ +*/ + +void KeenStandThink(objtype *ob) +{ +#ifdef KEEN5 + if (ob->hitnorth == 25 && ob->state != &s_keenride) + { + ob->state = &s_keenride; + } +#endif + + if (c.xaxis) + { + // started walking + ob->state = &s_keenwalk1; + KeenWalkThink(ob); + xtry = (Sint16)(ob->xdir * ob->state->xmove * tics) / 4; + } + else if (firebutton && !fireheld) + { + // shoot current xdir + fireheld = true; + if (c.yaxis == -1) + { + ob->state = &s_keenshootup1; + } + else + { + ob->state = &s_keenshoot1; + } + } + else if (jumpbutton && ! jumpheld) + { + // jump straight up + jumpheld = true; + SD_PlaySound(SND_JUMP); + ob->xspeed = 0; + ob->yspeed = -40; + ytry = 0; + jumptime = 18; + ob->state = &s_keenjump1; + } + else if (pogobutton && !pogoheld) + { + // get on pogo + pogoheld = true; + SD_PlaySound(SND_JUMP); + ob->state = &s_keenpogodown; + ob->xspeed = 0; + ob->yspeed = -48; + ytry = 0; + jumptime = 24; + } + else + { + switch (c.yaxis) + { + case -1: + if (CheckGrabPole(ob)) + break; + if (upheld || !CheckEnterHouse(ob)) + { + ob->state = &s_keenlookup; + } + break; + case 1: + if (CheckGrabPole(ob)) + break; + ob->state = &s_keenlookdown; + } + return; + } +} + +//=========================================================================== + +/* +======================= += += KeenPauseThink += += Do special animations in time += +======================= +*/ + +void KeenPauseThink(objtype *ob) +{ +#ifdef KEEN5 + if (ob->hitnorth == 25 && ob->state != &s_keenride) + { + ob->state = &s_keenride; + } +#endif + + if (c.dir != dir_None || jumpbutton || pogobutton || firebutton) + { + ob->temp1 = ob->temp2 = 0; // not paused any more + ob->state = &s_keenstand; + KeenStandThink(ob); + } + else + { + //only increase idle counter when NOT standing on a sprite: + if ((ob->hitnorth & ~7) != 0x18) + ob->temp1 = ob->temp1 + tics; + + switch (ob->temp2) + { + case 0: + if (ob->temp1 > 200) + { + ob->temp2++; + ob->state = &s_keenpauselook; + ob->temp1 = 0; + } + break; + case 1: + if (ob->temp1 > 300) + { + ob->temp2++; + ob->temp1 = 0; +#ifdef KEEN4 + if (moonok == 1) + { + moonok = 2; //don't moon again unless the level is restarted + ob->state = &s_keenmoon1; + } + else +#endif + { + ob->state = &s_keenwait1; + } + } + break; + case 2: + if (ob->temp1 > 700) + { + ob->temp2++; + ob->state = &s_keenread; + ob->temp1 = 0; + } + break; + } + } +} + +//=========================================================================== + +/* +======================= += += KeenReadThink += +======================= +*/ + +void KeenReadThink(objtype *ob) +{ + if (storedemo) + { + playstate = ex_abortgame; + IN_ClearKeysDown(); + } + if (c.dir != dir_None || jumpbutton || pogobutton) + { + ob->temp1 = ob->temp2 = 0; + ob->state = &s_keenstopread; + } +} + +//=========================================================================== + +/* +======================= += += KeenLookUpThink += +======================= +*/ + +void KeenLookUpThink(objtype *ob) +{ + if (c.yaxis != -1 || c.xaxis + || (jumpbutton && !jumpheld) + || (pogobutton && !pogoheld) + || firebutton) + { + ob->state = &s_keenstand; + KeenStandThink(ob); + } +} + +//=========================================================================== + +/* +======================= += += KeenLookDownThink += +======================= +*/ + +void KeenLookDownThink(objtype *ob) +{ + Uint16 far *map; + Sint16 y, ymove; + Uint16 tile; + + if (jumpbutton && ! jumpheld && (ob->hitnorth & 7) == 1) + { + // + // drop down a level + // + jumpheld = true; + + y = ob->tilebottom; + map = (Uint16 far *)mapsegs[1] + mapbwidthtable[y]/2 + ob->tilemidx; + tile = *map; + if (tinf[WESTWALL+tile] || tinf[EASTWALL+tile] || tinf[SOUTHWALL+tile]) + return; // wall prevents drop down + + map += mapwidth; + tile = *map; + if (tinf[WESTWALL+tile] || tinf[EASTWALL+tile] || tinf[SOUTHWALL+tile]) + return; // wall prevents drop down + + ymove = max(4, tics) * PIXGLOBAL; + if (gamestate.riding) + ymove += gamestate.riding->ymove; + ob->bottom += ymove; + gamestate.riding = NULL; + ob->y += ymove; + xtry = ytry = 0; + ob->state = &s_keenjump3; + ob->xspeed = ob->yspeed = 0; + SD_PlaySound(SND_PLUMMET); + } + else if (c.yaxis != 1 || c.xaxis + || (jumpbutton && !jumpheld) + || (pogobutton && !pogoheld)) + { + ob->state = &s_keenlookdown4; + } +} + +//=========================================================================== + +/* +======================= += += KeenWalkThink += +======================= +*/ + +void KeenWalkThink(objtype *ob) +{ + Sint16 xmove; + + if (c.xaxis == 0) + { + // + // stopped running + // + ob->state = &s_keenstand; + KeenStandThink(ob); + return; + } + + ob->xdir = c.xaxis; + + switch (c.yaxis) + { + case -1: + if (CheckGrabPole(ob)) + return; + if (upheld) + return; + if (!CheckEnterHouse(ob)) + break;; + return; + + case 1: + if (!CheckGrabPole(ob)) + break; + return; + } + + if (firebutton && !fireheld) + { + // + // shoot + // + fireheld = true; + if (c.yaxis == -1) + { + ob->state = &s_keenshootup1; + } + else + { + ob->state = &s_keenshoot1; + } + return; + } + + if (jumpbutton && !jumpheld) + { + // + // running jump + // + jumpheld = true; + SD_PlaySound(SND_JUMP); + ob->xspeed = ob->xdir * 16; + ob->yspeed = -40; + xtry = ytry = 0; + jumptime = 18; + ob->state = &s_keenjump1; + } + + if (pogobutton && !pogoheld) + { + // + // get on pogo + // + pogoheld = true; + ob->state = &s_keenpogodown; + SD_PlaySound(SND_JUMP); + ob->xspeed = ob->xdir * 16; + ob->yspeed = -48; + xtry = 0; + jumptime = 24; + return; + } + + // + // give speed for slopes + // + xmove = slopespeed[ob->hitnorth & 7] * tics; + xtry += xmove; + + // + // handle walking sounds + // + if (ob->state == &s_keenwalk1 && ob->temp3 == 0) + { + SD_PlaySound(SND_WORLDWALK1); + ob->temp3 = 1; + } + else if (ob->state == &s_keenwalk3 && ob->temp3 == 0) + { + SD_PlaySound(SND_WORLDWALK2); + ob->temp3 = 1; + } + else if (ob->state == &s_keenwalk2 ||ob->state == &s_keenwalk4) + { + ob->temp3 = 0; + } +} + +//=========================================================================== + +/* +======================= += += T_LineUp += += Lines up Keen's position for interacting with tiles (temp1 is desired x) += +======================= +*/ + +void T_LineUp(objtype *ob) +{ + Sint16 xmove; + + xmove = ob->temp1 - ob->x; + if (xmove < 0) + { + xtry = xtry - tics * 16; + if (xtry > xmove) + return; + } + else if (xmove > 0) + { + xtry = xtry + tics * 16; + if (xtry < xmove) + return; + } + xtry = xmove; + ob->temp1 = 0; + if (!CheckEnterHouse(ob)) + ob->state = &s_keenstand; +} + +//=========================================================================== + +/* +======================= += += KeenEnterThink += +======================= +*/ + +void KeenEnterThink(objtype *ob) +{ + Uint16 info; + Uint16 far *map; + + map = mapsegs[2] + mapbwidthtable[ob->tilebottom]/2 + ob->tileleft; + info = *map; +#ifdef KEEN5 + if (!info) + { + playstate = ex_portout; + ob->state = &s_keenenter6; + return; + } + else if (info == 0xB1B1) + { + playstate = ex_completed; + ob->state = &s_keenenter6; + return; + } +#endif + ob->y = (CONVERT_TILE_TO_GLOBAL(info & 0xFF) - TILEGLOBAL) + 15; + ob->x = CONVERT_TILE_TO_GLOBAL(info >> 8); + ob->priority = 1; + ob->needtoclip = cl_noclip; + ChangeState(ob, ob->state->nextstate); + ob->needtoclip = cl_midclip; + CenterActor(ob); +} + +//=========================================================================== + +/* +======================= += += KeenSwitchThink += +======================= +*/ + +void KeenSwitchThink(objtype *ob) +{ + Uint16 intile, maptile, newtile, info, sx, sy, tileoff; + Uint16 far *map; + Uint16 tile, x, y; + Sint8 manim; + + tileoff = mapbwidthtable[ob->tiletop]/2 + ob->tilemidx; + maptile = mapsegs[1][tileoff]; + newtile = maptile + (Sint8)tinf[MANIM + maptile]; + info = mapsegs[2][tileoff]; + sx = info >> 8; + sy = info & 0xFF; + intile = tinf[INTILE + maptile]; + + RF_MemToMap(&newtile, 1, ob->tilemidx, ob->tiletop, 1, 1); + SD_PlaySound(SND_USESWITCH); + if (intile == INTILE_BRIDGESWITCH) + { + //toggle bridge: + for (y = sy; sy+2 > y; y++) + { + map = mapsegs[1] + mapbwidthtable[y]/2 + sx - (y != sy); + for (x = sx - (y != sy); x < mapwidth; x++) + { + tile = *(map++); + manim = tinf[MANIM + tile]; + if (!manim) + break; + + tile += manim; + RF_MemToMap(&tile, 1, x, y, 1, 1); + } + } + } + else + { + //toggle platform blocker: + map = mapsegs[2] + mapbwidthtable[sy]/2 + sx; + tile = *map; +#ifdef KEEN5 + if (tile >= DIRARROWSTART && tile < DIRARROWEND) + { + *map = arrowflip[tile-DIRARROWSTART]+DIRARROWSTART; + return; + } +#endif + *map = tile ^ PLATFORMBLOCK; + } +} + +//=========================================================================== + +/* +======================= += += KeenKeyThink += +======================= +*/ + +void KeenKeyThink(objtype *ob) +{ + Uint16 newtile, info, x, y, tileoff; + Uint16 far *map; + Uint16 tile, h; + + tileoff = mapbwidthtable[ob->tilebottom]/2 + ob->tilemidx; + newtile = mapsegs[1][tileoff] + 18; + info = mapsegs[2][tileoff]; + x = info >> 8; + y = info & 0xFF; + RF_MemToMap(&newtile, 1, ob->tilemidx, ob->tilebottom, 1, 1); + SD_PlaySound(SND_OPENDOOR); + GetNewObj(false); + new->x = x; + new->y = y; + + if (x > mapwidth || x < 2 || y > mapheight || y < 2) + Quit("Keyholder points to a bad spot!"); + + map = mapsegs[1] + mapbwidthtable[y]/2 + x; + tile = *map; + h = 1; + map += mapwidth; + while (*map == tile) + { + h++; + map += mapwidth; + } + new->temp1 = h; + new->active = ac_allways; + new->needtoclip = cl_noclip; + new->obclass = inertobj; + NewState(new, &s_door1); +} + +//=========================================================================== + +/* +======================= += += KeenAirThink += +======================= +*/ + +void KeenAirThink(objtype *ob) +{ + if (jumpcheat && jumpbutton) + { + ob->yspeed = -40; + jumptime = 18; + jumpheld = true; + } + if (jumptime) + { + if (jumptime <= tics) + { + ytry = ob->yspeed * jumptime; + jumptime = 0; + } + else + { + ytry = ob->yspeed * tics; + if (!jumpcheat) + jumptime = jumptime - tics; + } + if (!jumpbutton) + jumptime = 0; + + if (jumptime == 0 && ob->state->nextstate) + ob->state = ob->state->nextstate; // switch to second jump stage + } + else + { + if (gamestate.difficulty == gd_Easy) + { + DoWeakGravity(ob); + } + else + { + DoGravity(ob); + } + if (ob->yspeed > 0 && ob->state != &s_keenjump3 && ob->state != &s_keenjump4) + { + ob->state = ob->state->nextstate; // switch to third jump stage + } + } + +//------------- + + if (c.xaxis) + { + ob->xdir = c.xaxis; + AccelerateX(ob, c.xaxis*2, 24); + } + else + { + FrictionX(ob); + } + + if (ob->hitsouth == 17) // going through a pole hole + { + ob->xspeed = xtry = 0; + } + + if (firebutton && !fireheld) + { + fireheld = true; + // + // shoot + // + switch (c.yaxis) + { + case -1: + ob->state = &s_keenairshootup1; + return; + case 0: + ob->state = &s_keenairshoot1; + return; + case 1: + ob->state = &s_keenairshootdown1; + return; + } + } + + if (pogobutton && !pogoheld) + { + pogoheld = true; + ob->state = &s_keenpogo; + jumptime = 0; + return; + } + + if (c.yaxis == -1) + CheckGrabPole(ob); +} + +//=========================================================================== + +/* +======================= += += KeenBounceThink += += Gives an extra bit of height on the first pogo bounce and creates += the "impossible pogo trick" when the jump key is held down += +======================= +*/ + +void KeenBounceThink(objtype *ob) +{ + ob->yspeed = -48; + ytry = ob->yspeed * 6; + jumptime = 24; + SD_PlaySound(SND_POGOBOUNCE); +} + +//=========================================================================== + +/* +======================= += += KeenPogoThink += +======================= +*/ + +void KeenPogoThink(objtype *ob) +{ + if (jumptime) + { + if (jumpbutton || jumptime <= 9) + { + DoTinyGravity(ob); + } + else + { + DoGravity(ob); + } + if (jumptime <= tics) + { + jumptime = 0; + } + else + { + jumptime = jumptime - tics; + } + if (jumptime == 0 && ob->state->nextstate) + ob->state = ob->state->nextstate; + } + else + { + if (gamestate.difficulty == gd_Easy) + { + DoWeakGravity(ob); + } + else + { + DoGravity(ob); + } + } + + if (c.xaxis) + { + if (ob->xspeed == 0) + ob->xdir = c.xaxis; + AccelerateX(ob, c.xaxis, 24); + } + else + { + xtry = xtry + ob->xspeed * tics; + if (ob->xspeed > 0) + { + ob->xdir = 1; + } + else if (ob->xspeed < 0) + { + ob->xdir = -1; + } + } + + if (ob->hitsouth == 17) // going through a pole hole + { + ob->xspeed = xtry = 0; + } + + if (firebutton && !fireheld) + { + fireheld = true; + switch (c.yaxis) + { + case -1: + ob->state = &s_keenairshootup1; + return; + case 0: + ob->state = &s_keenairshoot1; + return; + case 1: + ob->state = &s_keenairshootdown1; + return; + } + } + + if (pogobutton && !pogoheld) + { + pogoheld = true; + ob->state = &s_keenjump3; + } +} + +//=========================================================================== + +/* +======================= += += PoleActions += +======================= +*/ + +void PoleActions(objtype *ob) +{ + if (c.xaxis) + ob->xdir = c.xaxis; + + if (firebutton && !fireheld) + { + fireheld = true; + switch (c.yaxis) + { + case -1: + ob->state = &s_keenpoleshootup1; + break; + case 0: + ob->state = &s_keenpoleshoot1; + break; + case 1: + ob->state = &s_keenpoleshootdown1; + break; + } + } + + if (jumpbutton && !jumpheld) // jump off the pole + { + jumpheld = true; + SD_PlaySound(SND_JUMP); + ob->xspeed = polexspeed[c.xaxis+1]; + ob->yspeed = -20; + ob->needtoclip = cl_midclip; + jumptime = 10; + ob->state = &s_keenjump1; + ob->ydir = 1; + leavepoletime = lasttimecount; + } +} + +/* +======================= += += KeenPoleThink += +======================= +*/ + +void KeenPoleThink(objtype *ob) +{ + Uint16 tile; + Uint16 far *map; + + switch (c.yaxis) + { + case -1: + ob->state = &s_keenclimb1; + ob->ydir = -1; + return; + case 1: + ob->state = &s_keenslide1; + ob->ydir = 1; + KeenDropThink(ob); + return; + } + + if (c.xaxis) + { + // + // walk off pole if right next to ground + // + map = mapsegs[1] + (mapbwidthtable[ob->tilebottom+1]/2 + ob->tilemidx); + tile = *map; + if (tinf[NORTHWALL+tile]) + { + ob->xspeed = 0; + ob->yspeed = 0; + ob->needtoclip = cl_midclip; + jumptime = 0; + ob->state = &s_keenjump3; + ob->ydir = 1; + SD_PlaySound(SND_PLUMMET); + return; + } + } + PoleActions(ob); +} + +/* +======================= += += KeenClimbThink += +======================= +*/ + +void KeenClimbThink(objtype *ob) +{ + Uint16 far *map; + + map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tilemidx; + + if ((tinf[INTILE+*map] & 0x7F) != INTILE_POLE) + { + ytry = 0; + ob->state = &s_keenpole; // ran out of pole + PoleActions(ob); + return; + } + + switch (c.yaxis) + { + case 0: + ob->state = &s_keenpole; + ob->ydir = 0; + break; + + case 1: + ob->state = &s_keenslide1; + ob->ydir = 1; + KeenDropThink(ob); + break; + } + + PoleActions(ob); +} + +/* +======================= += += KeenDropThink += +======================= +*/ + +void KeenDropThink(objtype *ob) +{ + Uint16 far *map; + Uint16 y; + + y = CONVERT_GLOBAL_TO_TILE(ob->bottom - 4*PIXGLOBAL); + map = mapsegs[1] + mapbwidthtable[y]/2 + ob->tilemidx; + + if ((tinf[INTILE+*map] & 0x7F) != INTILE_POLE) + { + SD_PlaySound(SND_PLUMMET); + ob->state = &s_keenjump3; // ran out of pole + jumptime = 0; + ob->xspeed = polexspeed[c.xaxis+1]; + ob->yspeed = 0; + ob->needtoclip = cl_midclip; + ob->tilebottom--; + return; + } + + switch (c.yaxis) + { + case -1: + ob->state = &s_keenclimb1; + ob->ydir = -1; + break; + + case 0: + ob->state = &s_keenpole; + ob->ydir = 0; + break; + } + + PoleActions(ob); +} + +//=========================================================================== + +/* +======================= += += KeenDropDownThink += +======================= +*/ + +void KeenDropDownThink(objtype *ob) +{ + ob->needtoclip = cl_midclip; +} + +//=========================================================================== + +/* +======================= += += KeenHoldThink += +======================= +*/ + +void KeenHoldThink(objtype *ob) +{ + Uint16 tile; + + if (c.yaxis == -1 || ob->xdir == c.xaxis) + { + ob->state = &s_keenclimbup; + if (ob->xdir == 1) + { + tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop-1]/2+ob->tileright); + } + else + { + tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop-1]/2+ob->tileleft); + } + if (ob->xdir == 1) + { + ytry = -16*PIXGLOBAL; + } + else + { + ytry = -8*PIXGLOBAL; + } + if (!(tinf[INTILE+tile] & INTILE_FOREGROUND)) + ob->priority = 3; + } + else if (c.yaxis == 1 || c.xaxis && ob->xdir != c.xaxis) + { + ob->state = &s_keenjump3; + ob->needtoclip = cl_midclip; + } +} + +//=========================================================================== + +/* +======================= += += KeenShootThink += +======================= +*/ + +void KeenShootThink(objtype *ob) +{ +// can't use & in a switch statement... + + if (ob->state == &s_keenshoot1) + { + if (ob->xdir == 1) + { + SpawnShot(ob->x + 16*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_East); + } + else + { + SpawnShot(ob->x - 8*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_West); + } + } + if (ob->state == &s_keenairshoot2) + { + if (ob->xdir == 1) + { + SpawnShot(ob->x + 16*PIXGLOBAL, ob->y + 2*PIXGLOBAL, dir_East); + } + else + { + SpawnShot(ob->x, ob->y + 2*PIXGLOBAL, dir_West); + } + } + if (ob->state == &s_keenairshootdown2) + { + SpawnShot(ob->x + 8*PIXGLOBAL, ob->y + 18*PIXGLOBAL, dir_South); + } + if (ob->state == &s_keenairshootup2) + { + SpawnShot(ob->x + 5*PIXGLOBAL, ob->y - 10*PIXGLOBAL, dir_North); + } + if (ob->state == &s_keenshootup1) + { + SpawnShot(ob->x + 5*PIXGLOBAL, ob->y - 10*PIXGLOBAL, dir_North); + } + if (ob->state == &s_keenpoleshoot1) + { + if (ob->xdir == 1) + { + SpawnShot(ob->x + 16*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_East); + } + else + { + SpawnShot(ob->x - 8*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_West); + } + } + if (ob->state == &s_keenpoleshootup1) + { + if (ob->xdir == 1) + { + SpawnShot(ob->x + 6*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_North); + } + else + { + SpawnShot(ob->x + 12*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_North); + } + } + if (ob->state == &s_keenpoleshootdown1) + { + if (ob->xdir == 1) + { + SpawnShot(ob->x + 6*PIXGLOBAL, ob->y + 24*PIXGLOBAL, dir_South); + } + else + { + SpawnShot(ob->x + 12*PIXGLOBAL, ob->y + 24*PIXGLOBAL, dir_South); + } + } +} + +//=========================================================================== + +/* +======================= += += T_PullUp1 += +======================= +*/ + +void T_PullUp1(objtype *ob) +{ + if (ob->xdir == 1) + { + xtry = 8*PIXGLOBAL; + } + else + { + ytry = -8*PIXGLOBAL; + } +} + +/* +======================= += += T_PullUp2 += +======================= +*/ + +void T_PullUp2(objtype *ob) +{ + if (ob->xdir == 1) + { + xtry = 8*PIXGLOBAL; + ytry = -8*PIXGLOBAL; + } + else + { + xtry = -8*PIXGLOBAL; + ytry = -8*PIXGLOBAL; + } +} + +/* +======================= += += T_PullUp3 += +======================= +*/ + +#pragma argsused +void T_PullUp3(objtype *ob) +{ + ytry = -8*PIXGLOBAL; +} + +/* +======================= += += T_PulledUp += +======================= +*/ + +void T_PulledUp(objtype *ob) +{ + ob->needtoclip = cl_midclip; + ob->priority = 1; + ytry = 8*PIXGLOBAL; +} + +//=========================================================================== + +/* +======================= += += KeenDieThink += +======================= +*/ + +void KeenDieThink(objtype *ob) +{ + DoWeakGravity(ob); + xtry = ob->xspeed * tics; + if (!OnScreen(ob)) + playstate = ex_died; +} + +/* +============================================================================= + + CONTACT ROUTINES + +============================================================================= +*/ + +/* +============================ += += KillKeen += +============================ +*/ + +void KillKeen(void) +{ + if (invincible || godmode) + return; + + if (player->state != &s_keendead) + { + + moonok = 0; + invincible = 30; //0.43 seconds + keenkilled = true; + player->needtoclip = cl_noclip; + player->priority = 3; +#ifdef KEEN4 + if (mapon == 17) + { + if (US_RndT() < 0x80) + { + ChangeState(player, &s_keensuitdie1); + } + else + { + ChangeState(player, &s_keensuitdie2); + } + } + else +#endif + { + if (US_RndT() < 0x80) + { + ChangeState(player, &s_keendie1); + } + else + { + ChangeState(player, &s_keendie2); + } + } + SD_PlaySound(SND_KEENDEAD); + player->yspeed = -40; + player->xspeed = 16; + } +} + +/* +============================ += += KeenContact += +============================ +*/ + +void KeenContact(objtype *ob, objtype *hit) +{ + switch (hit->obclass) + { + case bonusobj: + switch (hit->temp1) + { + case 0: + case 1: + case 2: + case 3: + case 4: + case 5: + case 6: + case 7: + case 8: + case 9: + case 10: + case 11: +#ifdef KEEN5 + case 12: +#endif + SD_PlaySound(bonussound[hit->temp1]); + hit->obclass = inertobj; + hit->priority = 3; + hit->shapenum = bonussprite[hit->temp1]; + GivePoints(bonuspoints[hit->temp1]); + if (hit->temp1 < 4) + { + gamestate.keys[hit->temp1]++; + } + else if (hit->temp1 == 10) + { + gamestate.lives++; + } + else if (hit->temp1 == 11) + { + gamestate.ammo += shotsinclip[gamestate.difficulty]; + } +#ifdef KEEN5 + else if (hit->temp1 == 12) + { + gamestate.keycard = true; + } +#endif + ChangeState(hit, &s_bonusrise); + } + break; + +#if defined KEEN4 + case oracleobj: + if (!ob->hitnorth) + break; + + if (mapon == 14) + { + RescueJanitor(); + RF_ForceRefresh(); + RemoveObj(hit); + } + else + { + SD_PlaySound(SND_LINDSEY); + playstate = ex_rescued; + } + break; + case stunnedobj: + if (hit->temp4 != bounderobj) + break; + //no break here -- drop through to platformobj is intended! + case platformobj: + if (!gamestate.riding) + { + ClipToSpriteTop(ob, hit); + } + else + return; + break; + case bounderobj: + ClipToSprite(ob, hit, false); + break; + case lindseyobj: + PrincessLindsey(); + RemoveObj(hit); + RF_ForceRefresh(); + break; + case footobj: + playstate = ex_foot; + break; +#elif defined KEEN5 + case platformobj: + if (!gamestate.riding) + ClipToSpriteTop(ob, hit); + break; +#elif defined KEEN6 + case stunshotobj: + if (hit->temp4) + { + ExplodeShot(hit); + ChangeState(ob, &s_keenstun); + } + // BUG: there is no break here - this causes the impossible bullet bug + case platformobj: + if (!gamestate.riding) + ClipToSpriteTop(ob, hit); + break; +#endif + } +} + +/* +============================ += += KeenPosContact += +============================ +*/ + +void KeenPosContact(objtype *ob, objtype *hit) +{ + switch (hit->obclass) + { +#if defined KEEN4 + case platformobj: + // BUG: priority is not reset here + ob->needtoclip = cl_midclip; + ChangeState(ob, &s_keenjump3); + jumptime = ob->xspeed = ob->yspeed = 0; + ClipToSpriteTop(ob, hit); + break; + case madmushroomobj: + case arachnutobj: + case berkeloidobj: + KillKeen(); + break; + case bounderobj: + ob->priority = 1; + ob->needtoclip = cl_midclip; + ChangeState(ob, &s_keenjump3); + jumptime = ob->xspeed = ob->yspeed = 0; + ClipToSprite(ob, hit, false); + break; +#elif defined KEEN5 + case platformobj: + // BUG: priority is not reset here + ob->needtoclip = cl_midclip; + ChangeState(ob, &s_keenjump3); + jumptime = ob->xspeed = ob->yspeed = 0; + ClipToSpriteTop(ob, hit); + break; + case amptonobj: + case scottieobj: + ob->priority = 1; + ob->needtoclip = cl_midclip; + ChangeState(ob, &s_keenjump3); + jumptime = ob->xspeed = ob->yspeed = 0; + break; +#elif defined KEEN6 + case platformobj: + case gikobj: + case flectobj: + case bloogletobj: + ob->priority = 1; + ob->needtoclip = cl_midclip; + ChangeState(ob, &s_keenjump3); + jumptime = ob->xspeed = ob->yspeed = 0; + ClipToSpriteTop(ob, hit); // BUG: allows Keen to stand on Blooglets and Flects + break; +#endif + } +} + +/* +============================ += += HandleRiding += +============================ +*/ + +void HandleRiding(objtype *ob) +{ + objtype *plat; + + plat = gamestate.riding; + if (ob->right < plat->left || ob->left > plat->right) + { + gamestate.riding = NULL; + } + else if (ob->ymove < 0) + { + gamestate.riding = NULL; + if (plat->ymove < 0) + { + xtry = 0; + ytry = plat->ymove; + PushObj(ob); + } + } + else + { + xtry = plat->xmove; + ytry = plat->top - ob->bottom - 16; + PushObj(ob); + +#if GRMODE == CGAGR + if (ob->xmove == plat->xmove) + { + ob->x &= ~0x3F; + ob->x |= plat->x & 0x3F; + } +#else + if (nopan) + { + ob->x &= ~0x7F; + ob->x |= plat->x & 0x7F; + } + else + { + ob->x |= plat->x & 0x1F; + } +#endif + + if (ob->hitsouth) + { + gamestate.riding = NULL; + } + else + { + ob->hitnorth = 25; + } + } +} + +/* +============================ += += TileBonus += +============================ +*/ + +void TileBonus(Uint16 x, Uint16 y, Uint16 bonus) +{ + RF_MemToMap(&zeromap, 1, x, y, 1, 1); + SD_PlaySound(bonussound[bonus]); + GivePoints(bonuspoints[bonus]); + if (bonus < 4) + { + gamestate.keys[bonus]++; + } + else if (bonus == 10) + { + gamestate.lives++; + } + else if (bonus == 11) + { + gamestate.ammo += shotsinclip[gamestate.difficulty]; + } + GetNewObj(true); + new->obclass = inertobj; + new->priority = 3; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + new->ydir = -1; + new->temp2 = new->shapenum = bonussprite[bonus]; + NewState(new, &s_bonusrise); + new->needtoclip = cl_noclip; +} + +/* +============================ += += GiveDrop += +============================ +*/ + +void GiveDrop(Uint16 x, Uint16 y) +{ + RF_MemToMap(&zeromap, 1, x, y, 1, 1); + SD_PlaySound(SND_GETWATER); + SpawnSplash(x, y); + if (++gamestate.drops == 100) + { + gamestate.drops = 0; + SD_PlaySound(SND_EXTRAKEEN); + gamestate.lives++; + GetNewObj(true); + new->obclass = inertobj; + new->priority = 3; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y-1); + new->ydir = -1; + new->temp2 = new->shapenum = BONUS100UPSPR; + NewState(new, &s_bonusrise); + new->needtoclip = cl_noclip; + } +} + +/* +============================ += += CheckInTiles += +============================ +*/ + +void CheckInTiles(objtype *ob) +{ + Uint16 x, y; + Uint16 far *map; + Uint16 rowdelta, intile, midx; + + if (moonok == 1) + moonok = 0; + + map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft; + rowdelta = mapwidth - (ob->tileright - ob->tileleft + 1); + for (y = ob->tiletop; y <= ob->tilebottom; y++, map += rowdelta) + { + for (x = ob->tileleft; x <= ob->tileright; x++, map++) + { + if ((intile = tinf[INTILE + *map] & INTILE_TYPEMASK) != 0) + { + switch (intile) + { + case INTILE_DEADLY: + KillKeen(); + break; + + case INTILE_DROP: + GiveDrop(x, y); + break; + + case INTILE_GEMSOCKET0: + case INTILE_GEMSOCKET1: + case INTILE_GEMSOCKET2: + case INTILE_GEMSOCKET3: + if (ob->tilebottom != y || !ob->hitnorth + || ob->state == &s_keenkey + || !gamestate.keys[intile-INTILE_GEMSOCKET0]) + { + return; + } + + midx = CONVERT_TILE_TO_GLOBAL(x) + -4*PIXGLOBAL; + if (ob->x != midx) + { + ob->temp1 = midx; + ob->state = &s_keenlineup; + return; + } + else + { + gamestate.keys[intile-INTILE_GEMSOCKET0]--; + ChangeState(ob, &s_keenkey); + } + break; + + case INTILE_MOON: + if (moonok == 0) + moonok = 1; + break; + + case INTILE_BONUS100: + case INTILE_BONUS200: + case INTILE_BONUS500: + case INTILE_BONUS1000: + case INTILE_BONUS2000: + case INTILE_BONUS5000: + case INTILE_EXTRALIFE: + case INTILE_AMMO: + TileBonus(x, y, (intile-INTILE_BONUS100)+4); + break; + } + } + } + } +} + +/* +============================================================================= + + REACTION ROUTINES + +============================================================================= +*/ + + +/* +============================ += += KeenSimpleReact += +============================ +*/ + +void KeenSimpleReact(objtype *ob) +{ + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + + +/* +============================ += += KeenStandReact += +============================ +*/ + +void KeenStandReact(objtype *ob) +{ + if (!ob->hitnorth) + { + // + // walked off an edge + // + SD_PlaySound(SND_PLUMMET); + ob->xspeed = ob->xdir * 8; + ob->yspeed = 0; + ChangeState(ob, &s_keenjump3); + jumptime = 0; + } + else if ((ob->hitnorth & ~7) == 8) // deadly floor! + { + KillKeen(); + } + else if (ob->hitnorth == 41) + { + xtry = tics * 8; + ytry = 0; + ob->temp1 = 0; + ClipToWalls(ob); + } + else if (ob->hitnorth == 49) + { + xtry = tics * -8; + ytry = 0; + ob->temp1 = 0; + ClipToWalls(ob); + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================ += += KeenWalkReact += +============================ +*/ + +void KeenWalkReact(objtype *ob) +{ + if (!ob->hitnorth) + { + // + // walked off an edge + // + SD_PlaySound(SND_PLUMMET); + ob->xspeed = ob->xdir * 8; + ob->yspeed = 0; + ChangeState(ob, &s_keenjump3); + jumptime = 0; + } + else if ((ob->hitnorth & ~7) == 8) // deadly floor! + { + KillKeen(); + } + else if (ob->hitnorth == 41) + { + xtry = tics * 8; + ytry = 0; + ClipToWalls(ob); + } + else if (ob->hitnorth == 49) + { + xtry = tics * -8; + ytry = 0; + ClipToWalls(ob); + } + else if (ob->hiteast && ob->xdir == -1 || ob->hitwest && ob->xdir == 1) + { + // + // ran into a wall + // + ob->ticcount = 0; + ob->state = &s_keenstand; + ob->shapenum = ob->xdir == 1? s_keenstand.rightshapenum : s_keenstand.leftshapenum; + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================ += += KeenAirReact += +============================ +*/ + +void KeenAirReact(objtype *ob) +{ + Uint16 far *map; + Uint16 oldtop, graby, ty, tile; + + if (ob->hiteast && ob->xdir == -1 || ob->hitwest && ob->xdir == 1) + ob->xspeed = 0; + + if (ob->hitsouth) + { + if (ob->hitsouth == 17) // jumping up through a pole hole + { + ob->y -= 2*PIXGLOBAL; + ob->top -= 2*PIXGLOBAL; + ob->xspeed = 0; + ob->x = CONVERT_TILE_TO_GLOBAL(ob->tilemidx) - 2*PIXGLOBAL; + } + else + { +#ifdef KEEN6 + if (ob->hitsouth == 33) + { + FlipBigSwitch(ob, false); + } +#endif + if (!jumpcheat) + { + SD_PlaySound(SND_HELMETHIT); + if (ob->hitsouth > 1) + { + ob->yspeed += 16; + if (ob->yspeed < 0) // push away from slopes + ob->yspeed = 0; + } + else + { + ob->yspeed = 0; + } + jumptime = 0; + } + } + } + + if (ob->hitnorth) + { + ob->ymove = 0; + if ((ob->hitnorth & ~7) == 8) // deadly floor! + { + KillKeen(); + } + else + { +#if defined KEEN5 + if (ob->hitnorth == 57) + { + SD_PlaySound(SND_LANDONFUSE); + } +#elif defined KEEN6 + if (ob->hitnorth == 33) + { + FlipBigSwitch(ob, true); + } +#endif + if (ob->hitnorth != 25 || !jumptime) // KLUDGE to allow jumping off + { + ob->temp1 = ob->temp2 = 0; + if (ob->state == &s_keenairshoot1) + { + ChangeState(ob, &s_keenshoot1); + } + else if (ob->state == &s_keenairshootup1) + { + ChangeState(ob, &s_keenshootup1); + } + else if (c.xaxis) + { + ChangeState(ob, &s_keenwalk1); + } + else + { + ChangeState(ob, &s_keenstand); + } + SD_PlaySound(SND_LAND); + } + } + } + else if (ob->ymove > 0) + { +// +// check if there is an edge to grab +// + oldtop = ob->top - ob->ymove; + graby = ((ob->top - 4*PIXGLOBAL) & 0xFF00) + 4*PIXGLOBAL; + ty = CONVERT_GLOBAL_TO_TILE(graby) - 1; + if (oldtop < graby && ob->top >= graby) + { + if (c.xaxis == -1) + { + map = mapsegs[1] + mapbwidthtable[ty]/2 + ob->tileleft; + if (ob->hiteast) + map--; + tile = *map; + if (!tinf[EASTWALL + tile] && !tinf[WESTWALL + tile] + && !tinf[NORTHWALL + tile] && !tinf[SOUTHWALL + tile] + && tinf[EASTWALL + map[mapwidth]] && tinf[NORTHWALL + map[mapwidth]] + ) + { + ob->xdir = -1; + ob->needtoclip = cl_noclip; + ob->x = (ob->x & 0xFF00) + 8*PIXGLOBAL; + ob->y = graby - 4*PIXGLOBAL; + ob->yspeed = ob->ymove = 0; + ChangeState(ob, &s_keenholdon); + } + } + else if (c.xaxis == 1) + { + map = mapsegs[1] + mapbwidthtable[ty]/2 + ob->tileright; + if (ob->hitwest) + map++; + tile = *map; + if (!tinf[EASTWALL + tile] && !tinf[WESTWALL + tile] + && !tinf[NORTHWALL + tile] && !tinf[SOUTHWALL + tile] + && tinf[WESTWALL + map[mapwidth]] && tinf[NORTHWALL + map[mapwidth]] + ) + { + ob->xdir = 1; + ob->needtoclip = cl_noclip; + ob->x = (ob->x & 0xFF00) + 16*PIXGLOBAL; + ob->y = graby - 4*PIXGLOBAL; + ob->yspeed = ob->ymove = 0; + ChangeState(ob, &s_keenholdon); + } + } + } + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +#ifdef KEEN5 +/* +============================ += += BreakFuse += +============================ +*/ + +void BreakFuse(Uint16 tileX, Uint16 tileY) +{ + Uint16 tiles[] = {1932, 1950}; // should be 'static' for less overhead + + // The original disassembly had some code here equivalent to this: + // + // _AX = tiles[0]; + // _DX = 4; + // + // As it turned out, that was just a compiler quirk. + + SpawnFuseFlash(tileX, tileY); + if (--gamestate.numfuses == 0) + { + SpawnDeadMachine(); + } + RF_MemToMap(tiles, 1, tileX, tileY, 1, 2); +} +#endif + +/* +============================ += += KeenPogoReact += +============================ +*/ + +void KeenPogoReact(objtype *ob) +{ + if (ob->hiteast && ob->xdir == -1 || ob->hitwest && ob->xdir == 1) + ob->xspeed = 0; + + if (ob->hitsouth) + { + if (ob->hitsouth == 17) // jumping up through a pole hole + { + ob->y -= 2*PIXGLOBAL; + ob->top -= 2*PIXGLOBAL; + ob->xspeed = 0; + ob->x = CONVERT_TILE_TO_GLOBAL(ob->tilemidx) - 2*PIXGLOBAL; + } + else + { +#ifdef KEEN6 + if (ob->hitsouth == 33) + { + FlipBigSwitch(ob, false); + } +#endif + if (!jumpcheat) + { + SD_PlaySound(SND_HELMETHIT); + if (ob->hitsouth > 1) + { + ob->yspeed += 16; + if (ob->yspeed < 0) // push away from slopes + ob->yspeed = 0; + } + else + { + ob->yspeed = 0; + } + jumptime = 0; + } + } + } + + if (ob->hitnorth) + { + ob->ymove = 0; + if ((ob->hitnorth & ~7) == 8) // deadly floor! + { + KillKeen(); + } + else + { +#if defined KEEN5 + if (ob->hitnorth == 57) + { + if (ob->yspeed < 48) + { + SD_PlaySound(SND_LANDONFUSE); + } + else + { + BreakFuse(ob->tilemidx, ob->tilebottom); + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + return; + } + } +#elif defined KEEN6 + if (ob->hitnorth == 33) + { + FlipBigSwitch(ob, true); + } + else if (ob->hitnorth == 41) + { + ob->xspeed += 8; + if (ob->xspeed > 8) + ob->xspeed = 8; + } + else if (ob->hitnorth == 49) + { + ob->xspeed -= 8; + if (ob->xspeed < -8) + ob->xspeed = -8; + } +#endif + if (ob->hitnorth != 25 || !jumptime) // KLUDGE to allow jumping off + { + ob->yspeed = -48; + jumptime = 24; + SD_PlaySound(SND_POGOBOUNCE); + ChangeState(ob, &s_keenpogo); + } + } + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================ += += KeenPoleReact += +============================ +*/ + +void KeenPoleReact(objtype *ob) +{ + Uint16 far *map; + Uint16 ymove; + + map = mapsegs[1] + mapbwidthtable[ob->tilebottom]/2 + ob->tilemidx; + if (tinf[NORTHWALL + *map] == 1) + { + ymove = (ob->bottom & 0xFF) + 1; + ob->y -= ymove; + ob->bottom -= ymove; + ob->tilebottom--; + ob->needtoclip = cl_midclip; + ChangeState(ob, &s_keenlookdown); + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} diff --git a/16/keen456/KEEN4-6/CK_KEEN2.C b/16/keen456/KEEN4-6/CK_KEEN2.C new file mode 100755 index 00000000..e30e5d7a --- /dev/null +++ b/16/keen456/KEEN4-6/CK_KEEN2.C @@ -0,0 +1,1606 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +CK_KEEN2.C +========== + +Contains the following actor types (in this order): + +- Score Box & Demo sprites +- Keen (world map) +- Flags (world map) +- Neural Stunner Shots +- Gem Door Opener +- Card Door Opener (Keen 5 only) + +*/ + +#include "CK_DEF.H" + +Direction opposite[8] = {dir_South, dir_SouthWest, dir_West, dir_NorthWest, dir_North, dir_NorthEast, dir_East, dir_SouthEast}; + +/* +============================================================================= + + SCORE BOX ROUTINES + +============================================================================= +*/ + +statetype s_score = { 0, 0, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL}; +statetype s_demo = {DEMOPLAQUESPR, DEMOPLAQUESPR, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL}; + +/* +====================== += += SpawnScore += +====================== +*/ + +void SpawnScore(void) +{ + scoreobj->obclass = inertobj; + scoreobj->priority = 3; + scoreobj->active = ac_allways; + scoreobj->needtoclip = cl_noclip; + scoreobj->temp2 = -1; + scoreobj->temp1 = -1; + scoreobj->temp3 = -1; + scoreobj->temp4 = -1; + if (scorescreenkludge) + { + scoreobj->state = &sc_deadstate; + } + else if (!DemoMode) + { + NewState(scoreobj, &s_score); + } + else + { + NewState(scoreobj, &s_demo); + CA_MarkGrChunk(DEMOPLAQUESPR); + } +} + + +// Taken from Keen Dreams: MemDrawChar and ShiftScore + +/* +====================== += += MemDrawChar += +====================== +*/ + +#if GRMODE == EGAGR + +void MemDrawChar(Sint16 char8, Uint8 far *dest, Uint16 width, Uint16 planesize) +{ + Uint16 source = (Uint16)grsegs[STARTTILE8]; // Note: this differs from Keen Dreams source + +asm mov si,[char8] +asm shl si,1 +asm shl si,1 +asm shl si,1 +asm shl si,1 +asm shl si,1 // index into char 8 segment + +asm mov ds,[WORD PTR source] // Note: this differs from Keen Dreams source +asm mov es,[WORD PTR dest+2] + +asm mov cx,4 // draw four planes +asm mov bx,[width] +asm dec bx + +planeloop: + +asm mov di,[WORD PTR dest] + +asm movsb +asm add di,bx +asm movsb +asm add di,bx +asm movsb +asm add di,bx +asm movsb +asm add di,bx +asm movsb +asm add di,bx +asm movsb +asm add di,bx +asm movsb +asm add di,bx +asm movsb + +asm mov ax,[planesize] +asm add [WORD PTR dest],ax + +asm loop planeloop + +asm mov ax,ss +asm mov ds,ax +} + +#elif GRMODE == CGAGR + +void MemDrawChar (int char8,byte far *dest,unsigned width,unsigned planesize) +{ +asm mov si,[char8] +asm shl si,1 +asm shl si,1 +asm shl si,1 +asm shl si,1 // index into char 8 segment + +asm mov ds,[WORD PTR grsegs+STARTTILE8*2] +asm mov es,[WORD PTR dest+2] + +asm mov bx,[width] +asm sub bx,2 + +asm mov di,[WORD PTR dest] + +asm movsw +asm add di,bx +asm movsw +asm add di,bx +asm movsw +asm add di,bx +asm movsw +asm add di,bx +asm movsw +asm add di,bx +asm movsw +asm add di,bx +asm movsw +asm add di,bx +asm movsw + +asm mov ax,ss +asm mov ds,ax + + planesize++; // shut the compiler up +} +#endif + +/* +==================== += += ShiftScore += +==================== +*/ +#if GRMODE == EGAGR +void ShiftScore (void) +{ + spritetabletype far *spr; + spritetype _seg *dest; + + spr = &spritetable[SCOREBOXSPR-STARTSPRITES]; + dest = (spritetype _seg *)grsegs[SCOREBOXSPR]; + + CAL_ShiftSprite (FP_SEG(dest),dest->sourceoffset[0], + dest->sourceoffset[1],spr->width,spr->height,2); + + CAL_ShiftSprite (FP_SEG(dest),dest->sourceoffset[0], + dest->sourceoffset[2],spr->width,spr->height,4); + + CAL_ShiftSprite (FP_SEG(dest),dest->sourceoffset[0], + dest->sourceoffset[3],spr->width,spr->height,6); +} +#endif + +/* +=============== += += UpdateScore += +=============== +*/ + +void UpdateScore(objtype *ob) +{ + char str[10],*ch; + spritetype _seg *block; + Uint8 far *dest; + Uint16 i, length, width, planesize, number; + boolean changed; + + if (scorescreenkludge) + return; + + if (DemoMode) + { + DrawDemoPlaque(ob); + return; + } + + if (!showscorebox) + return; + + changed = false; + +//code below is a combination of ScoreThink and ScoreReact from Keen Dreams with minor changes + +// +// score changed +// + if ((gamestate.score>>16) != ob->temp1 + || (Uint16)gamestate.score != ob->temp2 ) + { + block = (spritetype _seg *)grsegs[SCOREBOXSPR]; + width = block->width[0]; + planesize = block->planesize[0]; + dest = (Uint8 far *)grsegs[SCOREBOXSPR]+block->sourceoffset[0] + + planesize + width*4; + + ltoa (gamestate.score,str,10); + + // erase leading spaces + length = strlen(str); + for (i=9;i>length;i--) + MemDrawChar (41,dest+=CHARWIDTH,width,planesize); + + // draw digits + ch = str; + while (*ch) + MemDrawChar (*ch++ - '0'+42,dest+=CHARWIDTH,width,planesize); + +#if GRMODE == EGAGR + ShiftScore (); +#endif + ob->needtoreact = true; + ob->temp1 = gamestate.score>>16; + ob->temp2 = gamestate.score; + + changed = true; + } + +// +// ammo changed +// + number = gamestate.ammo; + if (number != ob->temp3) + { + block = (spritetype _seg *)grsegs[SCOREBOXSPR]; + width = block->width[0]; + planesize = block->planesize[0]; + dest = (byte far *)grsegs[SCOREBOXSPR]+block->sourceoffset[0] + + planesize + width*20 + 7*CHARWIDTH; + + if (number > 99) + strcpy (str,"99"); + else + ltoa (number,str,10); + + // erase leading spaces + length = strlen(str); + for (i=2;i>length;i--) + MemDrawChar (41,dest+=CHARWIDTH,width,planesize); + + // draw digits + ch = str; + while (*ch) + MemDrawChar (*ch++ - '0'+42,dest+=CHARWIDTH,width,planesize); + +#if GRMODE == EGAGR + ShiftScore (); +#endif + ob->needtoreact = true; + ob->temp3 = number; + + changed = true; + } + +// +// lives changed +// + if (gamestate.lives != ob->temp4) + { + block = (spritetype _seg *)grsegs[SCOREBOXSPR]; + width = block->width[0]; + planesize = block->planesize[0]; + dest = (byte far *)grsegs[SCOREBOXSPR]+block->sourceoffset[0] + + planesize + width*20 + 2*CHARWIDTH; + + if (gamestate.lives > 99) + strcpy (str,"99"); + else + ltoa (gamestate.lives,str,10); + + // erase leading spaces + length = strlen(str); + for (i=2;i>length;i--) + MemDrawChar (41,dest+=CHARWIDTH,width,planesize); + + // draw digits + ch = str; + while (*ch) + MemDrawChar (*ch++ - '0'+42,dest+=CHARWIDTH,width,planesize); + +#if GRMODE == EGAGR + ShiftScore (); +#endif + ob->needtoreact = true; + ob->temp4 = gamestate.lives; + + changed = true; + } + +/* +Note: +----- + +It would be more efficient to use + + if (changed) + ShiftScore(); + +here instead of the individual ShiftScore() calls above. Because if the player +gains a life by collecting points items, both the score and lives numbers need +to be updated, which means the sprite would be shifted twice. And if the player +fires a shot during the same frame, the ammo number also needs to be updated, +leading to up to three shifts in one frame. +*/ + + if (ob->x != originxglobal || ob->y != originyglobal) + { + ob->x = originxglobal; + ob->y = originyglobal; + changed = true; + } + + if (changed) +#if GRMODE == EGAGR + RF_PlaceSprite(&ob->sprite, ob->x+4*PIXGLOBAL, ob->y+4*PIXGLOBAL, SCOREBOXSPR, spritedraw, 3); +#elif GRMODE == CGAGR + RF_PlaceSprite(&ob->sprite, ob->x+8*PIXGLOBAL, ob->y+8*PIXGLOBAL, SCOREBOXSPR, spritedraw, 3); +#endif +} + +/* +=============== += += DrawDemoPlaque += +=============== +*/ + +void DrawDemoPlaque(objtype *ob) +{ + if (ob->x != originxglobal || ob->y != originyglobal) + { + ob->x = originxglobal; + ob->y = originyglobal; + RF_PlaceSprite(&ob->sprite, ob->x + 160*PIXGLOBAL - 32*PIXGLOBAL, ob->y + 8*PIXGLOBAL, DEMOPLAQUESPR, spritedraw, 3); + } +} + + +/* +============================================================================= + + MINI KEEN + +player->temp1 = dir +player->temp2 = animation stage + +============================================================================= +*/ + +#ifdef KEEN4 +statetype s_keenonfoot1 = {WOLRDKEENRIDE1SPR, WOLRDKEENRIDE1SPR, stepthink, false, false, 30, 0, 0, T_FootFly, NULL, R_Draw, &s_keenonfoot2}; +statetype s_keenonfoot2 = {WOLRDKEENRIDE2SPR, WOLRDKEENRIDE2SPR, stepthink, false, false, 30, 0, 0, T_FootFly, NULL, R_Draw, &s_keenonfoot1}; +statetype s_worldswim = {0, 0, slide, true, false, 6, 16, 16, T_KeenWorldSwim, NULL, R_Draw, &s_worldswim}; +#endif + +#ifdef KEEN5 +statetype s_worldelevate = {-1, -1, think, true, false, 6, 16, 16, T_Elevate, NULL, R_Draw, NULL}; +#endif + +statetype s_worldkeen = {0, 0, stepthink, false, false, 360, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave1}; + +statetype s_worldkeenwave1 = {WORLDKEENWAVE1SPR, WORLDKEENWAVE1SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave2}; +statetype s_worldkeenwave2 = {WORLDKEENWAVE2SPR, WORLDKEENWAVE2SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave3}; +statetype s_worldkeenwave3 = {WORLDKEENWAVE1SPR, WORLDKEENWAVE1SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave4}; +statetype s_worldkeenwave4 = {WORLDKEENWAVE2SPR, WORLDKEENWAVE2SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave5}; +statetype s_worldkeenwave5 = {WORLDKEENWAVE1SPR, WORLDKEENWAVE1SPR, stepthink, false, false, 20, 0, 0, T_KeenWorldWalk, NULL, R_Draw, &s_worldkeen}; + +statetype s_worldkeenwalk = {0, 0, slide, true, false, 4, 24, 24, T_KeenWorldWalk, NULL, R_Draw, &s_worldkeenwalk}; + +Sint16 worldshapes[8] = {WORLDKEENU1SPR-1, WORLDKEENUR1SPR-1, WORLDKEENR1SPR-1, WORLDKEENDR1SPR-1, WORLDKEEND1SPR-1, WORLDKEENDL1SPR-1, WORLDKEENL1SPR-1, WORLDKEENUL1SPR-1}; //-1 to everything because worldanims values are 1-based +Sint16 worldanims[4] = {2, 3, 1, 3}; +#ifdef KEEN4 +Sint16 swimshapes[8] = {WORLDKEENSWIMU1SPR, WORLDKEENSWIMUR1SPR, WORLDKEENSWIMR1SPR, WORLDKEENSWIMDR1SPR, WORLDKEENSWIMD1SPR, WORLDKEENSWIMDL1SPR, WORLDKEENSWIML1SPR, WORLDKEENSWIMUL1SPR}; +#endif +#ifndef KEEN6 +Sint16 tiledir[4] = {dir_South, dir_West, dir_North, dir_East}; +#endif + +/* +====================== += += SpawnWorldKeen += +====================== +*/ + +void SpawnWorldKeen(Sint16 x, Sint16 y) +{ +#ifdef KEEN4 + if (playstate == ex_foot) + { + player->needtoclip = cl_noclip; + player->obclass = keenobj; + player->x = gamestate.worldx; + player->y = gamestate.worldy; + player->active = ac_allways; + player->priority = 3; + player->xdir = 0; + player->ydir = 0; + if (gamestate.worldx < 20*TILEGLOBAL) + { + player->temp1 = 280; + player->xspeed = (30*TILEGLOBAL - player->x)/280 + 1; + player->yspeed = (55*TILEGLOBAL - player->y)/280 + 1; + } + else + { + player->temp1 = 140; + player->xspeed = (Sint16)(16*TILEGLOBAL - player->x)/140 + 1; + player->yspeed = (Sint16)(47*TILEGLOBAL - player->y)/140 + 1; + } + NewState(player, &s_keenonfoot1); + return; + } +#endif + + player->obclass = keenobj; + if (gamestate.worldx == 0) + { + player->x = CONVERT_TILE_TO_GLOBAL(x); + player->y = CONVERT_TILE_TO_GLOBAL(y); + } + else + { + player->x = gamestate.worldx; + player->y = gamestate.worldy; + } + player->active = ac_allways; + player->priority = 1; + player->xdir = 0; + player->ydir = 0; + player->temp1 = dir_West; + player->temp2 = 3; + player->temp3 = 0; + player->shapenum = WORLDKEENL3SPR; + NewState(player, &s_worldkeen); +} + +#ifdef KEEN5 +/* +====================== += += SpawnWorldKeenPort += +====================== +*/ + +void SpawnWorldKeenPort(Uint16 tileX, Uint16 tileY) +{ + player->obclass = keenobj; + player->x = CONVERT_TILE_TO_GLOBAL(tileX); + player->y = CONVERT_TILE_TO_GLOBAL(tileY); + player->active = ac_allways; + player->priority = 1; + player->xdir = 0; + player->ydir = 0; + player->temp1 = dir_West; + player->temp2 = 3; + player->temp3 = 0; + player->shapenum = WORLDKEENL3SPR; + NewState(player, &s_worldkeen); +} +#endif + + +/* +====================== += += CheckEnterLevel += +====================== +*/ + +void CheckEnterLevel(objtype *ob) +{ + Uint16 x, y, info; + + for (y = ob->tiletop; y <= ob->tilebottom; y++) + { + for (x = ob->tileleft; x <= ob->tileright; x++) + { + info = *(mapsegs[2]+mapbwidthtable[y]/2 + x); + if (info > 0xC000 && info <= (0xC000 + 18)) + { + gamestate.worldx = ob->x; + gamestate.worldy = ob->y; + gamestate.mapon = info - 0xC000; + playstate = ex_completed; + SD_PlaySound(SND_ENTERLEVEL); + } + } + } +} + +/* +====================== += += T_KeenWorld += +====================== +*/ + +void T_KeenWorld(objtype *ob) +{ + if (c.dir != dir_None) + { + ob->state = &s_worldkeenwalk; + ob->temp2 = 0; + T_KeenWorldWalk(ob); + } + if (jumpbutton || pogobutton || firebutton) + { + CheckEnterLevel(ob); + } +} + +/* +====================== += += T_KeenWorldWalk += +====================== +*/ + +void T_KeenWorldWalk(objtype *ob) +{ + if (ob->temp3) + { + ob->temp3 -= 4; + if (ob->temp3 < 0) + ob->temp3 = 0; + } + else + { + ob->xdir = c.xaxis; + ob->ydir = c.yaxis; + if (pogobutton || firebutton || jumpbutton) + { + CheckEnterLevel(ob); + } + if (c.dir == dir_None) + { + ob->state = &s_worldkeen; + ob->shapenum = worldshapes[ob->temp1] + 3; + return; + } + ob->temp1 = c.dir; + } + if (++ob->temp2 == 4) + ob->temp2 = 0; + ob->shapenum = worldshapes[ob->temp1] + worldanims[ob->temp2]; + + if (ob->temp2 == 1) + { + SD_PlaySound(SND_WORLDWALK1); + } + else if (ob->temp2 == 3) + { + SD_PlaySound(SND_WORLDWALK2); + } +} + +#ifdef KEEN4 +/* +====================== += += T_FootFly += +====================== +*/ + +void T_FootFly(objtype *ob) +{ + ob->temp1 = ob->temp1 - tics; + xtry = ob->xspeed * tics; + ytry = ob->yspeed * tics; + if (ob->temp1 <= 0) + { + xtry -= ob->xspeed * -ob->temp1; + ytry -= ob->yspeed * -ob->temp1; + ob->priority = 1; + ob->temp1 = dir_West; + ob->temp2 = 3; + ob->temp3 = 0; + player->xdir = 0; + player->ydir = 0; + ob->state = &s_worldkeen; + ob->shapenum = WORLDKEENL3SPR; + ob->needtoclip = cl_midclip; + } +} + +/* +====================== += += T_KeenWorldSwim += +====================== +*/ + +void T_KeenWorldSwim(objtype *ob) +{ + if (ob->temp3) + { + ob->temp3 -= 6; + if (ob->temp3 < 0) + ob->temp3 = 0; + } + else + { + ob->xdir = c.xaxis; + ob->ydir = c.yaxis; + if (c.xaxis || c.yaxis) + ob->temp1 = c.dir; + } + ob->shapenum = swimshapes[ob->temp1] + ob->temp2; + if (++ob->temp2 == 2) + ob->temp2 = 0; + + if (ob->temp2 == 0) + { + SD_PlaySound(SND_SWIM1); + } + else + { + SD_PlaySound(SND_SWIM2); + } +} + +#else // NOT Keen 4 (i.e. Keen 5 & 6): + +/* +====================== += += Teleport += +====================== +*/ + +void Teleport(Uint16 tileX, Uint16 tileY) +{ + Uint16 tile, globalx, globaly, duration, move; + objtype *o; + objtype *ob = player; + + // + // enter the teleporter + // + SD_PlaySound(SND_TELEPORT); + globalx = CONVERT_TILE_TO_GLOBAL(tileX); + globaly = CONVERT_TILE_TO_GLOBAL(tileY); + +#ifdef KEEN6Ev15 + // We need to make the compiler "forget" that duration starts at 0 + // to make sure the while-loop check is performed when entering the + // loop. Can't change compiler settings since we do need that loop + // optimization for the for-loop at the end of this routine. + if (true) + duration = 0; +#else + duration = 0; +#endif + + while (duration < 130) + { + RF_Refresh(); + move = tics*2; + duration += tics; + + if (ob->x == globalx && ob->y == globaly) + break; + + if (ob->y < globaly) + { + ob->y += move; + if (ob->y > globaly) + ob->y = globaly; + } + else if (ob->y > globaly) + { + ob->y -= move; + if (ob->y < globaly) + ob->y = globaly; + } + + if (ob->x < globalx) + { + ob->x += move; + if (ob->x > globalx) + ob->x = globalx; + } + else if (ob->x > globalx) + { + ob->x -= move; + if (ob->x < globalx) + ob->x = globalx; + } + + ob->shapenum = ((TimeCount >> 3) % 3) + WORLDKEENU1SPR; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + + tile = ((TimeCount >> 2) & TELEPORERTILEMASK) + TELEPORTERTILE1; + RF_MemToMap(&tile, 1, tileX, tileY, 1, 1); + } + + tile = TELEPORTERTILE2; + RF_MemToMap(&tile, 1, tileX, tileY, 1, 1); + + // + // teleport to new location + // + tile = *(mapsegs[2]+mapbwidthtable[tileY]/2 + tileX); + tileX = tile >> 8; + tileY = tile & 0x7F; // BUG? y coordinate is limited to 1..127 + ob->x = CONVERT_TILE_TO_GLOBAL(tileX); + ob->y = CONVERT_TILE_TO_GLOBAL(tileY); + ob->xdir = 0; + ob->ydir = 1; + ob->temp1 = dir_South; + NewState(ob, ob->state); + CenterActor(ob); + + // + // draw flags/signs for new location + // + for (o=player->next; o; o=o->next) + { + if (!o->active && o->obclass == flagobj + && o->tileright >= originxtile-1 && o->tileleft <= originxtilemax+1 + && o->tiletop <= originytilemax+1 && o->tilebottom >= originytile-1) + { + o->needtoreact = true; + o->active = ac_yes; + RF_PlaceSprite(&o->sprite, o->x, o->y, o->shapenum, spritedraw, o->priority); + } + } + UpdateScore(scoreobj); + RF_Refresh(); + RF_Refresh(); + + // + // leave teleporter + // + SD_PlaySound(SND_TELEPORT); + + for (duration = 0; duration < 90; ) + { + RF_Refresh(); + duration += tics; + ob->y += tics*2 + tics; + + ob->shapenum = ((TimeCount >> 3) % 3) + WORLDKEEND1SPR; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + + tile = ((TimeCount >> 2) & TELEPORERTILEMASK) + TELEPORTERTILE3; + RF_MemToMap(&tile, 1, tileX, tileY, 1, 1); + } + + tile = TELEPORTERTILE4; + RF_MemToMap(&tile, 1, tileX, tileY, 1, 1); + xtry = ytry = 0; + ClipToWalls(ob); +} + +#ifdef KEEN5 + +/* +====================== += += T_Elevate += +====================== +*/ + +void T_Elevate(objtype *ob) +{ + Sint16 i, x, y, tx, ty; + Uint16 tiles[2][2]; + + ytry = ob->ydir * 64 * tics; + if (ob->x != ob->temp2) + { + xtry = ob->xdir * 12 * tics; + if ( (ob->xdir == 1 && ob->x + xtry > ob->temp2) + || (ob->xdir == -1 && ob->x + xtry < ob->temp2) ) + { + xtry = ob->temp2 - ob->x; + } + } + + // + // Keen has no sprite in this state, so we need to update the hitbox manually + // to avoid issues (the screen scrolling routines use left/right/top/bottom) + // + ob->left = ob->x + xtry; + ob->right = ob->left + (TILEGLOBAL-1); + ob->top = ob->y + ytry; + ob->bottom = ob->top + (TILEGLOBAL-1); + + if (ob->ydir == 1) + { + if (ob->y + ytry < ob->temp1) + return; + } + else + { + if (ob->y + ytry > ob->temp1) + return; + } + + // + // the invisible Keen has arrived at its destination + // + ytry = 0; + xtry = 0; + ob->x = ob->temp2; + ob->y = ob->temp1; + ob->priority = 1; + ob->temp1 = 4; + ob->temp2 = 3; + ob->temp3 = 0; + player->xdir = 0; + player->ydir = 0; + ob->state = &s_worldkeen; + ob->shapenum = WORLDKEEND3SPR; + ob->needtoclip = cl_midclip; + tx = CONVERT_GLOBAL_TO_TILE(ob->x); + ty = CONVERT_GLOBAL_TO_TILE(ob->y); + WorldScrollScreen(ob); + UpdateScore(scoreobj); + RF_Refresh(); + RF_Refresh(); + + ob->y -= TILEGLOBAL; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + + // + // open the elevator door + // + SD_PlaySound(SND_ELEVATORDOOR); + for (i=0; i<=5; i++) + { + for (y=0; y<2; y++) + { + for (x=0; x<2; x++) + { + tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + i*2 + x); + } + } + RF_MemToMap(&tiles[0][0], 1, tx, ty-2, 2, 2); + RF_Refresh(); + VW_WaitVBL(8); + } + + // + // make Keen walk out of the elevator + // + for (y=0; y<32; y++) + { + ob->y += 8; // move half a pixel every frame for 32 frames -> move down 16 pixels total + ob->shapenum = (y / 4) % 3 + WORLDKEEND1SPR; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + RF_Refresh(); + } + ob->needtoclip = cl_midclip; // redundant, but doesn't do any harm +} + +/* +====================== += += Elevator += +====================== +*/ + +void Elevator(Uint16 tileX, Uint16 tileY, Sint16 dir) +{ + Uint16 info, globalx, globaly, duration, move; + Sint16 x, y, i; + Uint16 tiles[2][2]; + objtype *ob = player; + + globalx = CONVERT_TILE_TO_GLOBAL(tileX); + globaly = CONVERT_TILE_TO_GLOBAL(tileY); + + // + // make Keen walk into the elevator + // + for (duration = 0; duration < 130; ) + { + CalcBounds(ob); + WorldScrollScreen(ob); + UpdateScore(scoreobj); + RF_Refresh(); + + move = tics * 2; + duration += tics; + + if (ob->x == globalx && ob->y == globaly) + break; + + if (ob->y < globaly) + { + ob->y += move; + if (ob->y > globaly) + ob->y = globaly; + } + else if (ob->y > globaly) + { + ob->y -= move; + if (ob->y < globaly) + ob->y = globaly; + } + + if (ob->x < globalx) + { + ob->x += move; + if (ob->x > globalx) + ob->x = globalx; + } + else if (ob->x > globalx) + { + ob->x -= move; + if (ob->x < globalx) + ob->x = globalx; + } + + ob->shapenum = ((duration / 8) % 3) + WORLDKEENU1SPR; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + } + + // + // close the elevator door + // + SD_PlaySound(SND_ELEVATORDOOR); + for (i=5; i >= 0; i--) + { + for (y=0; y<2; y++) + { + for (x=0; x<2; x++) + { + tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + i*2 + x); + } + } + RF_MemToMap(&tiles[0][0], 1, tileX+dir, tileY-1, 2, 2); + RF_Refresh(); + VW_WaitVBL(8); + } + + // + // make Keen invisible (and not clipping) and send him to the destination + // + RF_RemoveSprite(&ob->sprite); + info = *(mapsegs[2] + mapbwidthtable[tileY]/2 + tileX); + ob->temp2 = CONVERT_TILE_TO_GLOBAL(info >> 8); + ob->temp1 = CONVERT_TILE_TO_GLOBAL((info & 0x7F) + 1); // BUG? y coordinate is limited to 1..127 + if (ob->temp1 < ob->y) + { + ob->ydir = -1; + } + else + { + ob->ydir = 1; + } + if (ob->temp2 < ob->x) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } + ob->needtoclip = cl_noclip; + ob->state = &s_worldelevate; +} + +#endif //ifdef KEEN5 + +#endif //ifdef KEEN4 ... else ... + +/* +====================== += += CheckWorldInTiles += +====================== +*/ + +void CheckWorldInTiles(objtype *ob) +{ + Uint16 tx, ty, intile; + + if (ob->temp3) + return; + + tx = ob->tilemidx; + ty = CONVERT_GLOBAL_TO_TILE(ob->top + (ob->bottom-ob->top)/2); + intile = tinf[INTILE + *(mapsegs[1]+mapbwidthtable[ty]/2+tx)]; +#if defined KEEN4 + if (intile == INTILE_SHORESOUTH || intile == INTILE_SHORENORTH + || intile == INTILE_SHOREEAST || intile == INTILE_SHOREWEST) + { + if (!gamestate.wetsuit) + { + SD_PlaySound(SND_NOWAY); + CantSwim(); + RF_ForceRefresh(); + xtry = -ob->xmove; + ytry = -ob->ymove; + ob->xdir = ob->ydir = 0; + ClipToWalls(ob); + } + else + { + ob->temp1 = tiledir[intile-INTILE_SHORESOUTH]; + if (ob->state == &s_worldswim) + { + ob->temp1 = opposite[ob->temp1]; + } + switch (ob->temp1) + { + case dir_North: + ob->xdir = 0; + ob->ydir = -1; + break; + case dir_East: + ob->xdir = 1; + ob->ydir = 0; + break; + case dir_South: + ob->xdir = 0; + ob->ydir = 1; + break; + case dir_West: + ob->xdir = -1; + ob->ydir = 0; + break; + } + ob->temp2 = 0; + ob->temp3 = 18; + if (ob->state == &s_worldswim) + { + ChangeState(ob, &s_worldkeenwalk); + } + else + { + ChangeState(ob, &s_worldswim); + } + } + } +#elif defined KEEN5 + switch (intile) + { + case INTILE_TELEPORT: + Teleport(tx, ty); + break; + case INTILE_ELEVATORLEFT: + Elevator(tx, ty, 0); + break; + case INTILE_ELEVATORRIGHT: + Elevator(tx, ty, -1); + break; + } +#elif defined KEEN6 + switch (intile) + { + case INTILE_TELEPORT: + Teleport(tx, ty); + break; + } +#endif +} + +/* +============================================================================= + + FLAGS + +temp1 = x destination for the thrown flag +temp2 = y destination for the thrown flag +temp3 = amount of time passed since flag was thrown (in tics) + +============================================================================= +*/ + +statetype s_flagwave1 = {FLAGFLAP1SPR, FLAGFLAP1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave2}; +statetype s_flagwave2 = {FLAGFLAP2SPR, FLAGFLAP2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave3}; +statetype s_flagwave3 = {FLAGFLAP3SPR, FLAGFLAP3SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave4}; +statetype s_flagwave4 = {FLAGFLAP4SPR, FLAGFLAP4SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave1}; + +#ifndef KEEN5 +statetype s_throwflag0 = {FLAGFLIP1SPR, FLAGFLIP1SPR, think, false, false, 6, 0, 0, TossThink, NULL, R_Draw, &s_throwflag1}; +statetype s_throwflag1 = {FLAGFLIP1SPR, FLAGFLIP1SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag2}; +statetype s_throwflag2 = {FLAGFLIP2SPR, FLAGFLIP2SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag3}; +statetype s_throwflag3 = {FLAGFLIP3SPR, FLAGFLIP3SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag4}; +statetype s_throwflag4 = {FLAGFLIP4SPR, FLAGFLIP4SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag5}; +statetype s_throwflag5 = {FLAGFALL1SPR, FLAGFALL1SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag6}; +statetype s_throwflag6 = {FLAGFALL1SPR, FLAGFALL1SPR, stepthink, true, false, 1, 0, 0, FlagAlign, NULL, R_Draw, &s_flagwave1}; +#endif + +Sint16 flagx, flagy; +Point flagpath[30]; + +/* +====================== += += SpawnFlag += +====================== +*/ + +void SpawnFlag(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->needtoclip = cl_noclip; + new->priority = 3; + new->obclass = flagobj; + new->active = ac_yes; +#if defined KEEN4 + new->x = CONVERT_TILE_TO_GLOBAL(x) + 6*PIXGLOBAL; + new->y = CONVERT_TILE_TO_GLOBAL(y) + -30*PIXGLOBAL; +#elif defined KEEN5 + new->x = CONVERT_TILE_TO_GLOBAL(x) + -5*PIXGLOBAL; + new->y = CONVERT_TILE_TO_GLOBAL(y) + -30*PIXGLOBAL; +#elif defined KEEN6 + new->x = CONVERT_TILE_TO_GLOBAL(x) + 6*PIXGLOBAL; // useless! + new->y = CONVERT_TILE_TO_GLOBAL(y) + -30*PIXGLOBAL; // useless! +#if GRMODE == CGAGR + new->x = CONVERT_TILE_TO_GLOBAL(x) + 10*PIXGLOBAL; +#else + new->x = CONVERT_TILE_TO_GLOBAL(x) + 14*PIXGLOBAL; +#endif + new->y = CONVERT_TILE_TO_GLOBAL(y) + -26*PIXGLOBAL; + { + Uint16 tile = *(mapsegs[1]+mapbwidthtable[y]/2 + x) + 1; + RF_MemToMap(&tile, 1, x, y, 1, 1); + } +#endif + new->ticcount = US_RndT() / 16; + NewState(new, &s_flagwave1); +} + +#ifndef KEEN5 +/* +====================== += += SpawnThrowFlag += +====================== +*/ + +void SpawnThrowFlag(Sint16 x, Sint16 y) +{ + Sint16 i; + Sint32 xdist, ydist; + + GetNewObj(false); + new->needtoclip = cl_noclip; + new->priority = 3; + new->obclass = flagobj; + new->active = ac_allways; + new->x = gamestate.worldx - 16*PIXGLOBAL; + new->y = gamestate.worldy - 16*PIXGLOBAL; +#if defined KEEN4 + new->temp1 = CONVERT_TILE_TO_GLOBAL(x) + 6*PIXGLOBAL; + new->temp2 = CONVERT_TILE_TO_GLOBAL(y) + -38*PIXGLOBAL; +#elif defined KEEN6 + flagx = x; + flagy = y; +#if GRMODE == CGAGR + new->temp1 = CONVERT_TILE_TO_GLOBAL(x) + 10*PIXGLOBAL; +#else + new->temp1 = CONVERT_TILE_TO_GLOBAL(x) + 14*PIXGLOBAL; +#endif + new->temp2 = CONVERT_TILE_TO_GLOBAL(y) + -34*PIXGLOBAL; +#endif + xdist = (Sint32)new->temp1 - (Sint32)new->x; + ydist = (Sint32)new->temp2 - (Sint32)new->y; + for (i = 0; i < 30; i++) + { + flagpath[i].x = new->x + (xdist * min(i, 24))/24; + flagpath[i].y = new->y + (ydist * i)/30; + if (i < 10) + { + flagpath[i].y -= i*3*PIXGLOBAL; + } + else if (i < 15) + { + flagpath[i].y -= i*PIXGLOBAL + 20*PIXGLOBAL; + } + else if (i < 20) + { + flagpath[i].y -= (20-i)*PIXGLOBAL + 30*PIXGLOBAL; + } + else + { + flagpath[i].y -= (29-i)*3*PIXGLOBAL; + } + } + NewState(new, &s_throwflag0); +} + +/* +====================== += += TossThink += +====================== +*/ + +void TossThink(objtype *ob) +{ + if (screenfaded) + return; + + SD_StopSound(); + SD_PlaySound(SND_FLAGSPIN); + ob->state = ob->state->nextstate; +} + +/* +====================== += += PathThink += +====================== +*/ + +void PathThink(objtype *ob) +{ + ob->temp3 = ob->temp3 + tics; + if (ob->temp3 > 58) + ob->temp3 = 58; + + ob->x = flagpath[ob->temp3/2].x; + ob->y = flagpath[ob->temp3/2].y; + ob->needtoreact = true; + if (ob->temp1 == 0) + { + SD_PlaySound(SND_FLAGSPIN); + } +} + +/* +====================== += += FlagAlign += +====================== +*/ + +void FlagAlign(objtype *ob) +{ + ob->x = ob->temp1; + ob->y = ob->temp2 + 8*PIXGLOBAL; + SD_PlaySound(SND_FLAGLAND); +#ifdef KEEN6 + { + Uint16 tile = *(mapsegs[1]+mapbwidthtable[flagy]/2 + flagx) + 1; + RF_MemToMap(&tile, 1, flagx, flagy, 1, 1); + } +#endif +} +#endif + +/* +============================================================================= + + NEURAL STUNNER + +============================================================================= +*/ +statetype s_stunray1 = {STUN1SPR, STUN1SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray2}; +statetype s_stunray2 = {STUN2SPR, STUN2SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray3}; +statetype s_stunray3 = {STUN3SPR, STUN3SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray4}; +statetype s_stunray4 = {STUN4SPR, STUN4SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray1}; + +statetype s_stunhit = {STUNHIT1SPR, STUNHIT1SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_stunhit2}; +statetype s_stunhit2 = {STUNHIT2SPR, STUNHIT2SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +====================== += += SpawnShot += +====================== +*/ + +void SpawnShot(Uint16 x, Uint16 y, Direction dir) +{ + if (!gamestate.ammo) + { + SD_PlaySound(SND_USESWITCH); + return; + } + + gamestate.ammo--; + GetNewObj(true); + new->x = x; + new->y = y; + new->priority = 0; + new->obclass = stunshotobj; + new->active = ac_allways; + SD_PlaySound(SND_KEENFIRE); + switch (dir) + { + case dir_North: + new->xdir = 0; + new->ydir = -1; + break; + case dir_East: + new->xdir = 1; + new->ydir = 0; + break; + case dir_South: + new->xdir = 0; + new->ydir = 1; + break; + case dir_West: + new->xdir = -1; + new->ydir = 0; + break; + default: + Quit("SpawnShot: Bad dir!"); + break; + } + NewState(new, &s_stunray1); + +#ifdef KEEN6 + { + objtype *ob; + + for (ob=player->next; ob; ob=ob->next) + { + if (ob->active + && new->right > ob->left && new->left < ob->right + && new->top < ob->bottom && new->bottom > ob->top + && ob->state->contact) + { + ob->state->contact(ob, new); + return; + } + } + } +#endif +} + +/* +====================== += += ExplodeShot += +====================== +*/ + +void ExplodeShot(objtype *ob) +{ + ob->obclass = inertobj; + ChangeState(ob, &s_stunhit); + SD_PlaySound(SND_SHOTEXPLODE); +} + +/* +====================== += += T_Shot += +====================== +*/ + +void T_Shot(objtype *ob) +{ + objtype *ob2; + + if (ob->tileright >= originxtile && ob->tilebottom >= originytile + && ob->tileleft <= originxtilemax && ob->tiletop <= originytilemax) + { + //object is visible, so do nothing + return; + } + + if (ob->tileright+10 < originxtile + || ob->tileleft-10 > originxtilemax + || ob->tilebottom+6 < originytile + || ob->tiletop-6 > originytilemax) + { + //shot is off-screen by more than half a screen, so remove it + RemoveObj(ob); + return; + } + + //check for collisions with INACTIVE objects + for (ob2 = player->next; ob2; ob2 = ob2->next) + { + if (!ob2->active && ob->right > ob2->left && ob->left < ob2->right + && ob->top < ob2->bottom && ob->bottom > ob2->top) + { + if (ob2->state->contact) + { + ob2->state->contact(ob2, ob); + ob2->needtoreact = true; + ob2->active = ac_yes; + } + + if (ob->obclass == nothing) //BUG: obclass is 'inertobj' for the exploded shot + break; + } + } +} + +/* +====================== += += R_Shot += +====================== +*/ + +void R_Shot(objtype *ob) +{ + Uint16 tile; + + if (ob->hitnorth == 1 && ob->tileleft != ob->tileright) + { + tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop-1]/2+ob->tileright); + if (tinf[NORTHWALL+tile] == 17) + { + ob->hitnorth = 17; + ob->x += 0x100 - (ob->x & 0xFF); + } + } + else if (ob->hitnorth == 17 && ob->tileleft != ob->tileright) + { + ob->x &= 0xFF00; + } + if (ob->hitsouth == 1 && ob->tileleft != ob->tileright) + { + tile = *(mapsegs[1]+mapbwidthtable[ob->tilebottom+1]/2+ob->tileright); + if (tinf[SOUTHWALL+tile] == 17) + { + ob->hitsouth = 17; + ob->x += 0x100 - (ob->x & 0xFF); + } + } + else if (ob->hitsouth == 17 && ob->tileleft != ob->tileright) + { + ob->x &= 0xFF00; + } + if (ob->hitnorth == 17 || ob->hitsouth == 17) + { + ytry = ob->state->ymove * tics * ob->ydir; + ob->y += ytry; + ob->top += ytry; + ob->bottom += ytry; + ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top); + ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom); + } + else if (ob->hitnorth || ob->hitsouth || ob->hiteast || ob->hitwest) + { + ExplodeShot(ob); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + DOOR + +temp1 = height of the door's main section (identical tiles!), in tiles + DoorOpen changes two more tiles at the bottom end of the door + (total door height in tiles is temp1 + 2) + +============================================================================= +*/ + +statetype s_door1 = {0, 0, step, false, false, 10, 0, 0, DoorOpen, NULL, NULL, &s_door2}; +statetype s_door2 = {0, 0, step, false, false, 10, 0, 0, DoorOpen, NULL, NULL, &s_door3}; +statetype s_door3 = {0, 0, step, false, false, 10, 0, 0, DoorOpen, NULL, NULL, NULL}; + +/* +====================== += += DoorOpen += +====================== +*/ + +void DoorOpen(objtype *ob) +{ + Sint16 i; + Uint16 far *map; + Uint16 tiles[50]; + + map = mapsegs[1] + mapbwidthtable[ob->y]/2 + ob->x; + for (i=0; i < ob->temp1+2; i++, map+=mapwidth) + { + tiles[i] = *map + 1; + } + RF_MemToMap(tiles, 1, ob->x, ob->y, 1, ob->temp1+2); +} + +#ifdef KEEN5 +/* +============================================================================= + + CARD DOOR + +temp1 = frame counter + +============================================================================= +*/ +statetype s_carddoor = {0, 0, step, false, false, 15, 0, 0, CardDoorOpen, NULL, NULL, &s_carddoor}; + +/* +====================== += += CardDoorOpen += +====================== +*/ + +void CardDoorOpen(objtype *ob) +{ + Sint16 x, y; + Uint16 far *map; + Uint16 tiles[16], *tileptr; + + tileptr = tiles; + map = mapsegs[1] + mapbwidthtable[ob->y]/2 + ob->x; + for (y=0; y<4; y++, map+=mapwidth) + { + for (x=0; x<4; x++) + { + *tileptr++ = map[x]-4; + } + } + RF_MemToMap(tiles, 1, ob->x, ob->y, 4, 4); + + if (++ob->temp1 == 3) + ob->state = NULL; +} + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/CK_MAIN.C b/16/keen456/KEEN4-6/CK_MAIN.C new file mode 100755 index 00000000..b8e71538 --- /dev/null +++ b/16/keen456/KEEN4-6/CK_MAIN.C @@ -0,0 +1,531 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// CK_MAIN.C +/* +============================================================================= + + COMMANDER KEEN + + An Id Software production + +============================================================================= +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +boolean tedlevel; +Uint16 tedlevelnum; + +char str[80], str2[20]; +boolean storedemo, jerk; + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +//=========================================================================== + +/* +===================== += += SizeText += += Calculates width and height of a string that contains line breaks += (Note: only the height is ever used, width is NOT calculated correctly) += +===================== +*/ + +void SizeText(char *text, Uint16 *width, Uint16 *height) +{ + register char *ptr; + char c; + Uint16 w, h; + char strbuf[80]; + + *width = *height = 0; + ptr = &strbuf[0]; + while ((c=*(text++)) != '\0') + { + *(ptr++) = c; + if (c == '\n' || !*text) + { + USL_MeasureString(strbuf, &w, &h); // BUG: strbuf may not have a terminating '\0' at the end! + *height += h; + if (*width < w) + { + *width = w; + } + ptr = &strbuf[0]; + } + } +} + +//=========================================================================== + +/* +========================== += += ShutdownId += += Shuts down all ID_?? managers += +========================== +*/ + +void ShutdownId(void) +{ + US_Shutdown(); + SD_Shutdown(); + IN_Shutdown(); + RF_Shutdown(); + VW_Shutdown(); + CA_Shutdown(); + MM_Shutdown(); +} + + +//=========================================================================== + +/* +========================== += += InitGame += += Load a few things right away += +========================== +*/ + +void InitGame(void) +{ + static char *ParmStrings[] = {"JERK", ""}; + void MML_UseSpace (Uint16 segstart, Uint16 seglength); + + Uint16 segstart,seglength; + Sint16 i; + + // Note: The value of the jerk variable is replaced with the value + // read from the config file during US_Startup, which means the + // JERK parameter has absolutely no effect if a valid config file + // exists. The parameter check should be moved to some place after + // US_Startup to make it work reliably. + + for (i=1; i < _argc; i++) + { + if (US_CheckParm(_argv[i], ParmStrings) == 0) + { + jerk = true; + } + } + + US_TextScreen(); + + MM_Startup(); + VW_Startup(); + RF_Startup(); + IN_Startup(); + SD_Startup(); + US_Startup(); + + US_UpdateTextScreen(); + + CA_Startup(); + US_Setup(); + + US_SetLoadSaveHooks(&LoadTheGame, &SaveTheGame, &ResetGame); + drawcachebox = DialogDraw; + updatecachebox = DialogUpdate; + finishcachebox = DialogFinish; + +// +// load in and lock down some basic chunks +// + + CA_ClearMarks(); + + CA_MarkGrChunk(STARTFONT); + CA_MarkGrChunk(STARTTILE8); + CA_MarkGrChunk(STARTTILE8M); +#if GRMODE == EGAGR + CA_MarkGrChunk(CORDPICM); + CA_MarkGrChunk(METALPOLEPICM); +#endif + + CA_CacheMarks(NULL); + + MM_SetLock(&grsegs[STARTFONT], true); + MM_SetLock(&grsegs[STARTTILE8], true); + MM_SetLock(&grsegs[STARTTILE8M], true); +#if GRMODE == EGAGR + MM_SetLock(&grsegs[CORDPICM], true); + MM_SetLock(&grsegs[METALPOLEPICM], true); +#endif + + fontcolor = WHITE; + + US_FinishTextScreen(); + +// +// reclaim the memory from the linked in text screen +// + segstart = FP_SEG(&introscn); + seglength = 4000/16; + if (FP_OFF(&introscn)) + { + segstart++; + seglength--; + } + MML_UseSpace (segstart,seglength); + + VW_SetScreenMode(GRMODE); +#if GRMODE == CGAGR + VW_ColorBorder(BROWN); +#else + VW_ColorBorder(CYAN); +#endif + VW_ClearVideo(BLACK); +} + +//=========================================================================== + +/* +========================== += += Quit += +========================== +*/ + +void Quit(char *error) +{ + Uint16 finscreen; + + if (!error) + { + CA_SetAllPurge(); + CA_CacheGrChunk(ORDERSCREEN); + finscreen = (Uint16)grsegs[ORDERSCREEN]; + } + + // BUG: VW_ClearVideo may brick the system if screenseg is 0 + // (i.e. VW_SetScreenMode has not been executed) - this may + // happen if the code runs into an error during InitGame + // (EMS/XMS errors, files not found etc.) + VW_ClearVideo(BLACK); + VW_SetLineWidth(40); + + ShutdownId(); + if (error && *error) + { + puts(error); + if (tedlevel) + { + getch(); + execlp("TED5.EXE", "TED5.EXE", "/LAUNCH", NULL); + } + else if (US_ParmPresent("windows")) + { + bioskey(0); + } + exit(1); + } + + if (!NoWait) + { + movedata(finscreen, 7, 0xB800, 0, 4000); + gotoxy(1, 24); + if (US_ParmPresent("windows")) + { + bioskey(0); + } + } + + exit(0); +} + +//=========================================================================== + +/* +================== += += TEDDeath += +================== +*/ + +void TEDDeath(void) +{ + ShutdownId(); + execlp("TED5.EXE", "TED5.EXE", "/LAUNCH", NULL); + // BUG: should call exit(1); here in case starting TED5 fails +} + +//=========================================================================== + +/* +================== += += CheckMemory += +================== +*/ + +void CheckMemory(void) +{ + Uint16 finscreen; + + if (mminfo.nearheap+mminfo.farheap+mminfo.EMSmem+mminfo.XMSmem >= MINMEMORY) + return; + + CA_CacheGrChunk (OUTOFMEM); + finscreen = (Uint16)grsegs[OUTOFMEM]; + ShutdownId(); + movedata (finscreen,7,0xb800,0,4000); + gotoxy (1,24); + exit(1); +} + +//=========================================================================== + +/* +===================== += += DemoLoop += +===================== +*/ + +void DemoLoop(void) +{ + static char *ParmStrings[] = {"easy", "normal", "hard", ""}; + + register Sint16 i, state; + Sint16 level; + +// +// check for launch from ted +// + if (tedlevel) + { + NewGame(); + CA_LoadAllSounds(); + gamestate.mapon = tedlevelnum; + restartgame = gd_Normal; + for (i = 1;i < _argc;i++) + { + if ( (level = US_CheckParm(_argv[i],ParmStrings)) == -1) + continue; + + restartgame = level+gd_Easy; + break; + } + GameLoop(); + TEDDeath(); + } + +// +// demo loop +// + state = 0; + playstate = ex_stillplaying; + while (1) + { + switch (state++) + { + case 0: +#if GRMODE == CGAGR + ShowTitle(); +#else + if (nopan) + { + ShowTitle(); + } + else + { + Terminator(); + } +#endif + break; + + case 1: + RunDemo(0); + break; + + case 2: +#if GRMODE == CGAGR + ShowCredits(); +#else + StarWars(); +#endif + break; + + case 3: + RunDemo(1); + break; + + case 4: + ShowHighScores(); + break; + + case 5: + RunDemo(2); + break; + + case 6: + state = 0; + RunDemo(3); + break; + } + + while (playstate == ex_resetgame || playstate == ex_loadedgame) + { + GameLoop(); + ShowHighScores(); + if (playstate == ex_resetgame || playstate == ex_loadedgame) + { + continue; // don't show title screen, go directly to GameLoop(); + } + ShowTitle(); + /////////////// + // this is completely useless: + if (playstate == ex_resetgame || playstate == ex_loadedgame) + { + continue; + } + /////////////// + } + } +} + +//=========================================================================== + +#if (GRMODE == EGAGR) && !(defined KEEN6) +/* +===================== += += CheckCutFile += +===================== +*/ + +#define FILE_GR1 GREXT"1."EXTENSION +#define FILE_GR2 GREXT"2."EXTENSION +#define FILE_GRAPH GREXT"GRAPH."EXTENSION + +static void CheckCutFile(void) +{ + register Sint16 ohandle, ihandle; + Sint16 handle; + Sint32 size; + void far *buffer; + + if ( (handle = open(FILE_GRAPH, O_BINARY|O_RDONLY)) != -1) + { + close(handle); + return; + } + puts("Combining "FILE_GR1" and "FILE_GR2" into "FILE_GRAPH"..."); + if (rename(FILE_GR1, FILE_GRAPH) == -1) + { + puts("Can't rename "FILE_GR1"!"); + exit(1); + } + if ( (ohandle = open(FILE_GRAPH, O_BINARY|O_APPEND|O_WRONLY)) == -1) + { + puts("Can't open "FILE_GRAPH"!"); + exit(1); + } + lseek(ohandle, 0, SEEK_END); + if ( (ihandle = open(FILE_GR2, O_BINARY|O_RDONLY)) == -1) + { + puts("Can't find "FILE_GR2"!"); + exit(1); + } + size = filelength(ihandle); + buffer = farmalloc(32000); + while (size) + { + if (size > 32000) + { + CA_FarRead(ihandle, buffer, 32000); + CA_FarWrite(ohandle, buffer, 32000); + size -= 32000; + } + else + { + CA_FarRead(ihandle, buffer, size); + CA_FarWrite(ohandle, buffer, size); + size = 0; + } + } + farfree(buffer); + close(ohandle); + close(ihandle); + unlink(FILE_GR2); +} +#endif + +//=========================================================================== + + +/* +========================== += += main += +========================== +*/ + +void main(void) +{ +#if (GRMODE == EGAGR) && !(defined KEEN6) + CheckCutFile(); +#endif + + if (US_ParmPresent("DEMO")) + storedemo = true; + + if (US_ParmPresent("JOYPAD")) + joypad = true; // Note: the joypad variable is never used + + InitGame(); + CheckMemory(); + if (NoWait || tedlevel) + debugok = true; + + DemoLoop(); + Quit("Demo loop exited???"); +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/CK_PLAY.C b/16/keen456/KEEN4-6/CK_PLAY.C new file mode 100755 index 00000000..0e081405 --- /dev/null +++ b/16/keen456/KEEN4-6/CK_PLAY.C @@ -0,0 +1,2422 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#include "CK_DEF.H" + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +ScanCode firescan = sc_Space; + +boolean singlestep, jumpcheat, godmode, keenkilled; + +exittype playstate; +gametype gamestate; + +objtype *new, *check, *player, *scoreobj; + +Uint16 originxtilemax; +Uint16 originytilemax; + +ControlInfo c; +boolean button2, button3; // never used + +objtype dummyobj; + +Sint16 invincible; + +boolean oldshooting, showscorebox, joypad; + +Sint16 groundslam; + +boolean debugok; +boolean jumpbutton, jumpheld, pogobutton, pogoheld, firebutton, fireheld, upheld; + + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +objtype *obj; + +Uint16 centerlevel; + +Uint16 objectcount; +objtype objarray[MAXACTORS]; +objtype *lastobj; +objtype *objfreelist; + +Sint16 inactivateleft; +Sint16 inactivateright; +Sint16 inactivatetop; +Sint16 inactivatebottom; + +#ifdef KEEN6Ev15 +Uint16 __dummy__; // never used, but must be present to recreate the original EXE +#endif + +Uint16 extravbls; + +Uint16 windowofs; +Sint16 vislines; +boolean scrollup; + +Sint16 oldfirecount; + +//=========================================================================== + +/* +================== += += CountObjects += +================== +*/ + +void CountObjects(void) +{ + Uint16 activeobjects, inactiveobjects; + objtype *ob; + + activeobjects = inactiveobjects = 0; + for (ob=player; ob; ob=ob->next) + { + if (ob->active) + { + activeobjects++; + } + else + { + inactiveobjects++; + } + } + VW_FixRefreshBuffer(); + US_CenterWindow(18, 4); + PrintY += 7; + US_Print("Active Objects :"); + US_PrintUnsigned(activeobjects); + US_Print("\nInactive Objects:"); + US_PrintUnsigned(inactiveobjects); + VW_UpdateScreen(); + IN_Ack(); +} + +/* +================== += += DebugMemory += +================== +*/ + +void DebugMemory(void) +{ + VW_FixRefreshBuffer(); + US_CenterWindow(16, 7); + US_CPrint("Memory Usage"); + US_CPrint("------------"); + US_Print("Total :"); + US_PrintUnsigned((mminfo.mainmem+mminfo.EMSmem+mminfo.XMSmem)/1024); + US_Print("k\nFree :"); + US_PrintUnsigned(MM_UnusedMemory()/1024); + US_Print("k\nWith purge:"); + US_PrintUnsigned(MM_TotalFree()/1024); + US_Print("k\n"); + VW_UpdateScreen(); + IN_Ack(); +#if GRMODE != CGAGR + MM_ShowMemory(); +#endif +} + +/* +=================== += += TestSprites += +=================== +*/ + +void TestSprites(void) +{ + Uint16 infox, infoy; + Sint16 chunk, oldchunk; + Sint16 shift; + Uint16 infobottom, drawx; + spritetabletype far *info; + Uint8 _seg *block; + Uint16 size; + Uint16 scan; + Uint32 totalsize; + + VW_FixRefreshBuffer(); + US_CenterWindow(30, 17); + totalsize = 0; + US_CPrint("Sprite Test"); + US_CPrint("-----------"); + infoy = PrintY; + infox = (PrintX + 56) & ~7; + drawx = infox + 40; + US_Print("Chunk:\nWidth:\nHeight:\nOrgx:\nOrgy:\nXl:\nYl:\nXh:\nYh:\nShifts:\nMem:\n"); + infobottom = PrintY; + chunk = STARTSPRITES; + shift = 0; + while (1) + { + if (chunk >= STARTSPRITES+NUMSPRITES) + { + chunk = STARTSPRITES+NUMSPRITES-1; + } + else if (chunk < STARTSPRITES) + { + chunk = STARTSPRITES; + } + info = &spritetable[chunk-STARTSPRITES]; + block = grsegs[chunk]; + VWB_Bar(infox, infoy, 40, infobottom-infoy, WHITE); + PrintX = infox; + PrintY = infoy; + US_PrintUnsigned(chunk); + US_Print("\n"); + PrintX = infox; + US_PrintUnsigned(info->width); + US_Print("\n"); + PrintX = infox; + US_PrintUnsigned(info->height); + US_Print("\n"); + PrintX = infox; + US_PrintSigned(info->orgx); + US_Print("\n"); + PrintX = infox; + US_PrintSigned(info->orgy); + US_Print("\n"); + PrintX = infox; + US_PrintSigned(info->xl); + US_Print("\n"); + PrintX = infox; + US_PrintSigned(info->yl); + US_Print("\n"); + PrintX = infox; + US_PrintSigned(info->xh); + US_Print("\n"); + PrintX = infox; + US_PrintSigned(info->yh); + US_Print("\n"); + PrintX = infox; + US_PrintSigned(info->shifts); + US_Print("\n"); + PrintX = infox; + if (!block) + { + US_Print("-----"); + } + else + { + size = ((spritetype far *)block)->sourceoffset[3] + ((spritetype far *)block)->planesize[3]*5; + size = (size + 15) & ~15; //round up to multiples of 16 + totalsize += size; //useless: the value stored in 'totalsize' is never used + US_PrintUnsigned(size); + US_Print("="); + } + oldchunk = chunk; + do + { + VWB_Bar(drawx, infoy, 110, infobottom-infoy, WHITE); + if (block) + { + PrintX = drawx; + PrintY = infoy; + US_Print("Shift:"); + US_PrintUnsigned(shift); + US_Print("\n"); + VWB_DrawSprite(drawx + 2*shift + 16, PrintY, chunk); + } + VW_UpdateScreen(); + scan = IN_WaitForKey(); + switch (scan) + { + case sc_UpArrow: + chunk++; + break; + case sc_DownArrow: + chunk--; + break; + case sc_PgUp: + chunk += 10; + if (chunk >= STARTSPRITES+NUMSPRITES) + { + chunk = STARTSPRITES+NUMSPRITES-1; + } + break; + case sc_PgDn: + chunk -= 10; + if (chunk < STARTSPRITES) + { + chunk = STARTSPRITES; + } + break; + case sc_LeftArrow: + if (--shift == -1) + { + shift = 3; + } + break; + case sc_RightArrow: + if (++shift == 4) + { + shift = 0; + } + break; + case sc_Escape: + return; + } + + } while (chunk == oldchunk); + + } +} + +/* +=================== += += PicturePause += +=================== +*/ + +void PicturePause(void) +{ + Uint16 source; + Sint16 y; + +// +// wait for a key press, abort if it's not Enter +// + IN_ClearKeysDown(); + while (!LastScan); + if (LastScan != sc_Enter) + { + IN_ClearKeysDown(); + return; + } + + SD_PlaySound(SND_JUMP); + SD_WaitSoundDone(); + +// +// rearrange onscreen image into base EGA layout, so that it +// can be grabbed correctly by an external screenshot tool +// + source = displayofs + panadjust; + + VW_ColorBorder(15); // white (can't use WHITE as parameter, since that's defined as 3 for CGA and this must use 15) + VW_SetLineWidth(40); + VW_SetScreen(0, 0); + + if (source < 0x10000l-200*64) + { + // + // copy top line first + // + for (y=0; y<200; y++) + { + VW_ScreenToScreen(source+y*64, y*40, 40, 1); + } + } + else + { + // + // copy bottom line first + // + for (y=199; y>=0; y--) + { + VW_ScreenToScreen(source+y*64, y*40, 40, 1); + } + } + +// +// shut down input manager so that screenshot tool can see input again +// + IN_Shutdown(); + + SD_PlaySound(SND_EXTRAKEEN); + SD_WaitSoundDone(); + +// +// shut down the remaining ID managers, except VW (stay in graphics mode!) +// + US_Shutdown(); + SD_Shutdown(); + IN_Shutdown(); + RF_Shutdown(); + CA_Shutdown(); + MM_Shutdown(); + +// +// wait until user hits Escape +// + while (((bioskey(0) >> 8) & 0xFF) != sc_Escape); + +// +// back to text mode and exit to DOS +// + VW_Shutdown(); + exit(0); +} + +/* +=================== += += MaskOnTile += +=================== +*/ + +void MaskOnTile(Uint16 dest, Uint16 source) +{ + Sint16 i; + Uint16 _seg *sourceseg; + Uint16 _seg *destseg; + Uint16 sourceval, maskindex, sourcemask; + + sourceseg = (grsegs+STARTTILE16M)[source]; + destseg = (grsegs+STARTTILE16M)[dest]; + for (i=0; i<64; i++) + { + maskindex = i & 15; +#ifdef KEEN6Ev15 + sourceval = sourceseg[16+i]; +#else + sourceval = (sourceseg+16)[i]; +#endif + sourcemask = sourceseg[maskindex]; + destseg[maskindex] &= sourcemask; + destseg[16+i] &= sourcemask; + destseg[16+i] |= sourceval; + } +} + +/* +=================== += += WallDebug += +=================== +*/ + +void WallDebug(void) +{ + Sint16 i, val; + + VW_FixRefreshBuffer(); + US_CenterWindow(24, 3); + US_PrintCentered("WORKING"); + VW_UpdateScreen(); + for (i=STARTTILE16M+108; i 1) + { + strcpy(str, "WallDebug: East wall other than 1:"); + itoa(i, str2, 10); + strcat(str, str2); + Quit(str); + } + if (val) + { + MaskOnTile(i, val+114); //Note: val is always 1 here, so you could use 115 as 2nd arg + } + val = tinf[i+WESTWALL] & 7; + if (val > 1) + { + strcpy(str, "WallDebug: West wall other than 1:"); + itoa(i, str2, 10); + strcat(str, str2); + Quit(str); + } + if (val) + { + MaskOnTile(i, val+122); //Note: val is always 1 here, so you could use 123 as 2nd arg + } + } +} + + +//=========================================================================== + +/* +================ += += DebugKeys += +================ +*/ + +boolean DebugKeys(void) +{ + Sint16 level, i, esc; + + if (Keyboard[sc_B] && ingame) // B = border color + { + VW_FixRefreshBuffer(); + US_CenterWindow(24, 3); + PrintY += 6; + US_Print(" Border color (0-15):"); + VW_UpdateScreen(); + esc = !US_LineInput(px, py, str, NULL, true, 2, 0); + if (!esc) + { + level = atoi(str); + if (level >= 0 && level <= 15) + { + VW_ColorBorder(level); + } + } + return true; + } + + if (Keyboard[sc_C] && ingame) // C = count objects + { + CountObjects(); + return true; + } + + if (Keyboard[sc_D] && ingame) // D = start / end demo record + { + if (DemoMode == demo_Off) + { + StartDemoRecord(); + } + else if (DemoMode == demo_Record) + { + EndDemoRecord(); + playstate = ex_completed; + } + return true; + } + + if (Keyboard[sc_E] && ingame) // E = quit level + { + if (tedlevel) + { + TEDDeath(); + } + playstate = ex_completed; + //BUG? there is no return in this branch (should return false) + } + + if (Keyboard[sc_G] && ingame) // G = god mode + { + VW_FixRefreshBuffer(); + US_CenterWindow(12, 2); + if (godmode) + { + US_PrintCentered("God mode OFF"); + } + else + { + US_PrintCentered("God mode ON"); + } + VW_UpdateScreen(); + IN_Ack(); + godmode ^= true; + return true; + } + else if (Keyboard[sc_I]) // I = item cheat + { + VW_FixRefreshBuffer(); + US_CenterWindow(12, 3); + US_PrintCentered("Free items!"); + for (i=0; i<4; i++) + { + gamestate.keys[i] = 99; + } + gamestate.ammo = 99; +#if defined KEEN4 + gamestate.wetsuit = true; +#elif defined KEEN5 + gamestate.keycard = true; +#elif defined KEEN6 + gamestate.passcardstate=gamestate.hookstate=gamestate.sandwichstate = 1; +#endif + VW_UpdateScreen(); + IN_Ack(); + GivePoints(3000); + return true; + } + else if (Keyboard[sc_J]) // J = jump cheat + { + jumpcheat ^= true; + VW_FixRefreshBuffer(); + US_CenterWindow(18, 3); + if (jumpcheat) + { + US_PrintCentered("Jump cheat ON"); + } + else + { + US_PrintCentered("Jump cheat OFF"); + } + VW_UpdateScreen(); + IN_Ack(); + return true; + } + else if (Keyboard[sc_M]) // M = memory info + { + DebugMemory(); + return true; + } + else if (Keyboard[sc_N]) // N = no clip + { + VW_FixRefreshBuffer(); + US_CenterWindow(18, 3); + if (player->needtoclip) + { + US_PrintCentered("No clipping ON"); + player->needtoclip = cl_noclip; + } + else + { + US_PrintCentered("No clipping OFF"); + player->needtoclip = cl_midclip; + } + VW_UpdateScreen(); + IN_Ack(); + return true; + } + else if (Keyboard[sc_P]) // P = pause with no screen disruptioon + { + IN_ClearKeysDown(); + PicturePause(); + return true; + } + else if (Keyboard[sc_S] && ingame) // S = slow motion + { + singlestep ^= true; + VW_FixRefreshBuffer(); + US_CenterWindow(18, 3); + if (singlestep) + { + US_PrintCentered("Slow motion ON"); + } + else + { + US_PrintCentered("Slow motion OFF"); + } + VW_UpdateScreen(); + IN_Ack(); + return true; + } + else if (Keyboard[sc_T]) // T = sprite test + { + TestSprites(); + return true; + } + else if (Keyboard[sc_V]) // V = extra VBLs + { + VW_FixRefreshBuffer(); + US_CenterWindow(30, 3); + PrintY += 6; + US_Print(" Add how many extra VBLs(0-8):"); + VW_UpdateScreen(); + esc = !US_LineInput(px, py, str, NULL, true, 2, 0); + if (!esc) + { + level = atoi(str); + if (level >= 0 && level <= 8) + { + extravbls = level; + } + } + return true; + } + else if (Keyboard[sc_W] && ingame) // W = warp to level + { + VW_FixRefreshBuffer(); + US_CenterWindow(26, 3); + PrintY += 6; + US_Print(" Warp to which level(1-18):"); + VW_UpdateScreen(); + esc = !US_LineInput(px, py, str, NULL, true, 2, 0); + if (!esc) + { + level = atoi(str); + if (level > 0 && level <= 18) + { + gamestate.mapon = level; + playstate = ex_warped; + } + } + return true; + } + else if (Keyboard[sc_Y]) // Y = wall debug + { + WallDebug(); + return true; + } + else if (Keyboard[sc_Z]) // Z = game over + { + gamestate.lives = 0; + KillKeen(); + return false; + } + return false; +} + +//=========================================================================== + +/* +================ += += UserCheat += +================ +*/ + +void UserCheat(void) +{ + Sint16 i; + + for (i=sc_A; i<=sc_Z; i++) //Note: this does NOT check the keys in alphabetical order! + { + if (i != sc_B && i != sc_A && i != sc_T && Keyboard[i]) + { + return; + } + } + US_CenterWindow(20, 7); + PrintY += 2; + US_CPrint( + "Cheat Option!\n" + "\n" + "You just got all\n" + "the keys, 99 shots,\n" + "and an extra keen!"); + VW_UpdateScreen(); + IN_Ack(); + RF_ForceRefresh(); + gamestate.ammo = 99; + gamestate.lives++; +#ifdef KEEN5 + gamestate.keycard = true; +#endif + gamestate.keys[0] = gamestate.keys[1] = gamestate.keys[2] = gamestate.keys[3] = 1; +} + +//=========================================================================== + +/* +===================== += += CheckKeys += +===================== +*/ + +void CheckKeys(void) +{ + if (screenfaded) // don't do anything with a faded screen + { + return; + } + +// +// Enter for status screen +// + if (Keyboard[sc_Enter] || (GravisGamepad && GravisAction[ga_Status])) + { + StatusWindow(); + IN_ClearKeysDown(); + RF_ForceRefresh(); + lasttimecount = TimeCount; // BUG: should be the other way around + } + +// +// pause key wierdness can't be checked as a scan code +// + if (Paused) + { + SD_MusicOff(); + VW_FixRefreshBuffer(); + US_CenterWindow(8, 3); + US_PrintCentered("PAUSED"); + VW_UpdateScreen(); + IN_Ack(); + RF_ForceRefresh(); + Paused = false; + SD_MusicOn(); + } + +#ifndef KEEN6 +// +// F1 to enter help screens +// + if (LastScan == sc_F1) + { + StopMusic(); + HelpScreens(); + StartMusic(gamestate.mapon); + if (showscorebox) + { + scoreobj->temp2 = -1; + scoreobj->temp1 = -1; + scoreobj->temp3 = -1; + scoreobj->temp4 = -1; + } + RF_ForceRefresh(); + } +#endif + + if (!storedemo) + { +// +// F2-F7/ESC to enter control panel +// + if (LastScan >= sc_F2 && LastScan <= sc_F7 || LastScan == sc_Escape) + { + VW_FixRefreshBuffer(); + StopMusic(); + US_ControlPanel(); + RF_FixOfs(); + StartMusic(gamestate.mapon); + if (!showscorebox && scoreobj->sprite) + { + RF_RemoveSprite(&scoreobj->sprite); + } + if (showscorebox) + { + scoreobj->temp2 = -1; + scoreobj->temp1 = -1; + scoreobj->temp3 = -1; + scoreobj->temp4 = -1; + } + IN_ClearKeysDown(); + if (restartgame) + { + playstate = ex_resetgame; + } + else if (!loadedgame) + { + RF_ForceRefresh(); + } + if (abortgame) + { + abortgame = false; + playstate = ex_abortgame; + } + if (loadedgame) + { + playstate = ex_loadedgame; + } + lasttimecount = TimeCount; // BUG: should be the other way around + } + +// +// F9 boss key +// + if (LastScan == sc_F9) + { + VW_Shutdown(); + SD_MusicOff(); + cputs("C:>"); + IN_ClearKeysDown(); + while (LastScan != sc_Escape); + VW_SetScreenMode(GRMODE); + VW_ColorBorder(bordercolor); + RF_ForceRefresh(); + IN_ClearKeysDown(); + lasttimecount = TimeCount; // BUG: should be the other way around + SD_MusicOn(); + } + } + +// +// B-A-T cheat code +// + if (Keyboard[sc_B] && Keyboard[sc_A] && Keyboard[sc_T]) + { + UserCheat(); + } + +// +// F10-? debug keys +// + if (debugok && Keyboard[sc_F10]) + { + if (DebugKeys()) + { + RF_ForceRefresh(); + lasttimecount = TimeCount; // BUG: should be the other way around + } + } + +// +// Ctrl-S toggles sound (only in storedemo mode) +// + if (storedemo && Keyboard[sc_Control] && LastScan == sc_S) + { + if (SoundMode != sdm_Off) + { + SD_SetSoundMode(sdm_Off); + SD_SetMusicMode(smm_Off); + } + else + { + if (AdLibPresent) + { + SD_SetSoundMode(sdm_AdLib); + QuietFX = false; + SD_SetMusicMode(smm_AdLib); + } + else + { + SD_SetSoundMode(sdm_PC); + SD_SetMusicMode(smm_Off); + } + CA_LoadAllSounds(); + } + } + +// +// Ctrl-Q quick quit +// + if (Keyboard[sc_Control] && LastScan == sc_Q) + { + IN_ClearKeysDown(); + Quit(NULL); + } +} + +//=========================================================================== + +/* +================== += += PrintNumbers += +================== +*/ + +void PrintNumbers(Sint16 x, Sint16 y, Sint16 maxlen, Sint16 basetile, Sint32 number) +{ + register Sint16 i; + Sint16 len; + char buffer[20]; + + ltoa(number, buffer, 10); + len = strlen(buffer); + i = maxlen; + while (i>len) + { + VWB_DrawTile8(x, y, basetile); + i--; + x += 8; + } + while (i>0) + { + VWB_DrawTile8(x, y, basetile+buffer[len-i]+(1-'0')); + i--; + x += 8; + } +} + +/* +================== += += DrawStatusWindow += +================== +*/ + +#if GRMODE == CGAGR + +#define BACKCOLOR WHITE +#define TEXTBACK BLACK +#define NUMBERBACK BLACK + +#else + +#define BACKCOLOR LIGHTGRAY +#define TEXTBACK WHITE +#define NUMBERBACK BLACK + +#endif + +void DrawStatusWindow(void) +{ + Sint16 off, x, y, w, h, i; + Uint16 width, height; + + x = 64; + y = 16; + w = 184; + h = 144; + VWB_DrawTile8(x, y, 54); + VWB_DrawTile8(x, y+h, 60); + for (i=x+8; i<=x+w-8; i+=8) + { + VWB_DrawTile8(i, y, 55); + VWB_DrawTile8(i, y+h, 61); + } + VWB_DrawTile8(i, y, 56); + VWB_DrawTile8(i, y+h, 62); + for (i=y+8; i<=y+h-8; i+=8) + { + VWB_DrawTile8(x, i, 57); + VWB_DrawTile8(x+w, i, 59); + } + VWB_Bar(72, 24, 176, 136, BACKCOLOR); + + PrintY = 28; + WindowX = 80; + WindowW = 160; + US_CPrint("LOCATION"); + VWB_Bar(79, 38, 162, 20, TEXTBACK); +#ifdef KEEN5 + if (mapon == 0 && player->y > 100*TILEGLOBAL) + _fstrcpy(str, levelnames[13]); + else + _fstrcpy(str, levelnames[gamestate.mapon]); +#else + _fstrcpy(str, levelnames[gamestate.mapon]); +#endif + SizeText(str, &width, &height); + PrintY = (20-height)/2+40-2; + US_CPrint(str); + + PrintY = 61; + WindowX = 80; + WindowW = 64; + US_CPrint("SCORE"); + VWB_Bar(79, 71, 66, 10, NUMBERBACK); + PrintNumbers(80, 72, 8, 41, gamestate.score); + + PrintY = 61; + WindowX = 176; + WindowW = 64; + US_CPrint("EXTRA"); + VWB_Bar(175, 71, 66, 10, NUMBERBACK); + PrintNumbers(176, 72, 8, 41, gamestate.nextextra); + +#if defined KEEN4 + PrintY = 85; + WindowX = 80; + WindowW = 64; + US_CPrint("RESCUED"); + VWB_Bar(79, 95, 66, 10, NUMBERBACK); + for (i = 0; i < gamestate.rescued; i++, off+=8) + { + VWB_DrawTile8(i*8 + 80, 96, 40); + } +#elif defined KEEN5 + PrintY = 92; + PrintX = 80; + US_Print("KEYCARD"); + VWB_Bar(135, 91, 10, 10, NUMBERBACK); + if (gamestate.keycard) + { + VWB_DrawTile8(136, 92, 40); + } +#endif + + PrintY = 85; + WindowX = 176; + WindowW = 64; + US_CPrint("LEVEL"); + VWB_Bar(175, 95, 66, 10, TEXTBACK); + PrintY = 96; + WindowX = 176; + WindowW = 64; + switch (gamestate.difficulty) + { + case gd_Easy: + US_CPrint("Easy"); + break; + case gd_Normal: + US_CPrint("Normal"); + break; + case gd_Hard: + US_CPrint("Hard"); + break; + } + +#ifdef KEEN6 + PrintX = 80; + PrintY = 96; + US_Print("ITEMS"); + VWB_Bar(127, 95, 26, 10, NUMBERBACK); + if (gamestate.sandwichstate == 1) + { + VWB_DrawTile8(128, 96, 2); + } + else + { + VWB_DrawTile8(128, 96, 1); + } + if (gamestate.hookstate == 1) + { + VWB_DrawTile8(136, 96, 4); + } + else + { + VWB_DrawTile8(136, 96, 3); + } + if (gamestate.passcardstate == 1) + { + VWB_DrawTile8(144, 96, 6); + } + else + { + VWB_DrawTile8(144, 96, 5); + } +#endif + + PrintX = 80; + PrintY = 112; + US_Print("KEYS"); + VWB_Bar(119, 111, 34, 10, NUMBERBACK); + for (i = 0; i < 4; i++) + { + if (gamestate.keys[i]) + { + VWB_DrawTile8(i*8+120, 112, 36+i); + } + } + + PrintX = 176; + PrintY = 112; + US_Print("AMMO"); + VWB_Bar(215, 111, 26, 10, NUMBERBACK); + PrintNumbers(216, 112, 3, 41, gamestate.ammo); + + PrintX = 80; + PrintY = 128; + US_Print("KEENS"); + VWB_Bar(127, 127, 18, 10, NUMBERBACK); + PrintNumbers(128, 128, 2, 41, gamestate.lives); + + PrintX = 176; + PrintY = 128; + US_Print(DROPSNAME); + VWB_Bar(224, 127, 16, 10, NUMBERBACK); + PrintNumbers(224, 128, 2, 41, gamestate.drops); + +#ifdef KEEN4 + VWB_Bar(79, 143, 66, 10, TEXTBACK); + PrintY = 144; + WindowX = 80; + WindowW = 64; + if (gamestate.wetsuit) + { + US_CPrint("Wetsuit"); + } + else + { + US_CPrint("???"); + } +#endif + + // draw the tiles for "PRESS A KEY": + for (i = 0; i < 10; i++) + { + VWB_DrawTile8(i*8+STATUS_PRESSKEY_X, 140, i+72); + VWB_DrawTile8(i*8+STATUS_PRESSKEY_X, 148, i+82); + } +} + +/* +================== += += ScrollStatusWindow += +================== +*/ + +void ScrollStatusWindow(void) +{ + Uint16 source, dest; + Sint16 height; + + if (vislines > 152) + { + height = vislines - 152; + source = windowofs + panadjust + 8; + dest = bufferofs + panadjust + 8; + VW_ScreenToScreen(source, dest, 192/BYTEPIXELS, height); + VW_ClipDrawMPic((pansx+136)/BYTEPIXELS, -(16-height)+pansy, METALPOLEPICM); + source = windowofs + panadjust + 16*SCREENWIDTH + 8*CHARWIDTH; + dest = bufferofs + panadjust + height*SCREENWIDTH + 8; + height = 152; + } + else + { + source = windowofs + panadjust + (152-vislines)*SCREENWIDTH + 16*SCREENWIDTH + 8*CHARWIDTH; + dest = bufferofs + panadjust + 8; + height = vislines; + } + if (height > 0) + { + VW_ScreenToScreen(source, dest, 192/BYTEPIXELS, height); + } + if (scrollup) + { + height = 168-vislines; + source = masterofs + panadjust + vislines*SCREENWIDTH + 8; + dest = bufferofs + panadjust + vislines*SCREENWIDTH + 8; + VW_ScreenToScreen(source, dest, 192/BYTEPIXELS, height); + height = vislines; + source = windowofs + panadjust + 8 - 24/BYTEPIXELS; + dest = bufferofs + panadjust + 8 - 24/BYTEPIXELS; + if (height > 0) + VW_ScreenToScreen(source, dest, 24/BYTEPIXELS, height); + } + else + { + height = vislines + -72; + if (height > 0) + { + source = windowofs + panadjust + 8 - 24/BYTEPIXELS; + dest = bufferofs + panadjust + 8 - 24/BYTEPIXELS; + if (height > 0) + VW_ScreenToScreen(source, dest, 24/BYTEPIXELS, height); + } + } + if (vislines >= 72) + { + VW_ClipDrawMPic((pansx+40)/BYTEPIXELS, vislines-168+pansy, CORDPICM); + } + VW_UpdateScreen(); +} + +/* +================== += += StatusWindow += +================== +*/ + +void StatusWindow(void) +{ +#if GRMODE == CGAGR + + if (Keyboard[sc_A] && Keyboard[sc_2]) + { + US_CenterWindow(20, 2); + PrintY += 2; + US_Print("Debug keys active"); + VW_UpdateScreen(); + IN_Ack(); + debugok = true; + } + + WindowX = 0; + WindowW = 320; + WindowY = 0; + WindowH = 200; + DrawStatusWindow(); + VW_UpdateScreen(); + IN_ClearKeysDown(); + IN_Ack(); + +#else + + Uint16 oldbufferofs; + + WindowX = 0; + WindowW = 320; + WindowY = 0; + WindowH = 200; + + if (Keyboard[sc_A] && Keyboard[sc_2]) + { + US_CenterWindow(20, 2); + PrintY += 2; + US_Print("Debug keys active"); + VW_UpdateScreen(); + IN_Ack(); + debugok = true; + } + + RF_Refresh(); + RFL_InitAnimList(); + oldbufferofs = bufferofs; + bufferofs = windowofs = RF_FindFreeBuffer(); + VW_ScreenToScreen(displayofs, displayofs, 44, 224); // useless (source and dest offsets are identical) + VW_ScreenToScreen(displayofs, masterofs, 44, 224); + VW_ScreenToScreen(displayofs, bufferofs, 44, 168); + DrawStatusWindow(); + bufferofs = oldbufferofs; + RF_Refresh(); + + SD_PlaySound(SND_SHOWSTATUS); + vislines = 16; + scrollup = false; + RF_SetRefreshHook(ScrollStatusWindow); + + while (true) + { + RF_Refresh(); + if (vislines == 168) + break; + vislines = vislines + tics*8; + if (vislines > 168) + vislines = 168; + } + + RF_Refresh(); + RF_SetRefreshHook(NULL); + IN_ClearKeysDown(); + IN_Ack(); + + SD_PlaySound(SND_HIDESTATUS); + vislines -= 16; + scrollup = true; + RF_SetRefreshHook(ScrollStatusWindow); + + while (true) + { + RF_Refresh(); + if (vislines == 0) + break; + vislines = vislines - tics*8; + if (vislines < 0) + vislines = 0; + } + + RF_SetRefreshHook(NULL); + + scoreobj->x = 0; //force scorebox to redraw? + +#endif +} + +//=========================================================================== + +/* +================== += += CenterActor += +================== +*/ + +void CenterActor(objtype *ob) +{ + Uint16 orgx, orgy; + + centerlevel = 140; + if (ob->x < 152*PIXGLOBAL) + { + orgx = 0; + } + else + { + orgx = ob->x - 152*PIXGLOBAL; + } + if (mapon == 0) + { + if (ob->y < 80*PIXGLOBAL) + { + orgy = 0; + } + else + { + orgy = ob->y - 80*PIXGLOBAL; + } + } + else + { + if (ob->bottom < 140*PIXGLOBAL) + { + orgy = 0; + } + else + { + orgy = ob->bottom - 140*PIXGLOBAL; + } + } + if (!scorescreenkludge) + { + RF_NewPosition(orgx, orgy); + } + +// +// update limits for onscreen and inactivate checks +// + originxtilemax = (originxtile + PORTTILESWIDE) - 1; + originytilemax = (originytile + PORTTILESHIGH) - 1; + inactivateleft = originxtile - INACTIVATEDIST; + if (inactivateleft < 0) + { + inactivateleft = 0; + } + inactivateright = originxtilemax + INACTIVATEDIST; + if (inactivateright < 0) + { + inactivateright = 0; + } + inactivatetop = originytile - INACTIVATEDIST; + if (inactivatetop < 0) + { + inactivatetop = 0; + } + inactivatebottom = originytilemax + INACTIVATEDIST; + if (inactivatebottom < 0) + { + inactivatebottom = 0; + } +} + +//=========================================================================== + +/* +================== += += WorldScrollScreen += += Scroll if Keen is nearing an edge += +================== +*/ + +void WorldScrollScreen(objtype *ob) +{ + Sint16 xscroll, yscroll; + + if (keenkilled) + return; + + if (ob->left < originxglobal + 9*TILEGLOBAL) + { + xscroll = ob->left - (originxglobal + 9*TILEGLOBAL); + } + else if (ob->right > originxglobal + 12*TILEGLOBAL) + { + xscroll = ob->right + 16 - (originxglobal + 12*TILEGLOBAL); + } + else + { + xscroll = 0; + } + + if (ob->top < originyglobal + 5*TILEGLOBAL) + { + yscroll = ob->top - (originyglobal + 5*TILEGLOBAL); + } + else if (ob->bottom > originyglobal + 7*TILEGLOBAL) + { + yscroll = ob->bottom - (originyglobal + 7*TILEGLOBAL); + } + else + { + yscroll = 0; + } + + if (!xscroll && !yscroll) + return; + +// +// don't scroll more than one tile per frame +// + if (xscroll >= 0x100) + { + xscroll = 0xFF; + } + else if (xscroll <= -0x100) + { + xscroll = -0xFF; + } + if (yscroll >= 0x100) + { + yscroll = 0xFF; + } + else if (yscroll <= -0x100) + { + yscroll = -0xFF; + } + + RF_Scroll(xscroll, yscroll); + +// +// update limits for onscreen and inactivate checks +// + originxtilemax = (originxtile + PORTTILESWIDE) - 1; + originytilemax = (originytile + PORTTILESHIGH) - 1; + inactivateleft = originxtile - INACTIVATEDIST; + if (inactivateleft < 0) + { + inactivateleft = 0; + } + inactivateright = originxtilemax + INACTIVATEDIST; + if (inactivateright < 0) + { + inactivateright = 0; + } + inactivatetop = originytile - INACTIVATEDIST; + if (inactivatetop < 0) + { + inactivatetop = 0; + } + inactivatebottom = originytilemax + INACTIVATEDIST; + if (inactivatebottom < 0) + { + inactivatebottom = 0; + } +} + +//=========================================================================== + +/* +================== += += ScrollScreen += += Scroll if Keen is nearing an edge += Set playstate to ex_completes += +================== +*/ + +void ScrollScreen(objtype *ob) +{ + Sint16 xscroll, yscroll, pix, speed; + Uint16 bottom; + + if (keenkilled) + return; + +// +// walked off edge of map? +// + if (ob->left < originxmin || ob->right > originxmax + 320*PIXGLOBAL) + { + playstate = ex_completed; + return; + } + +// +// fallen off bottom of world? +// + if (ob->bottom > originymax + 13*TILEGLOBAL) + { + ob->y -= ob->bottom - (originymax + 13*TILEGLOBAL); + SD_PlaySound(SND_PLUMMET); + godmode = false; + KillKeen(); + return; + } + + xscroll=yscroll=0; + + if (ob->x < originxglobal + 9*TILEGLOBAL) + { + xscroll = ob->x - (originxglobal + 9*TILEGLOBAL); + } + else if (ob->x > originxglobal + 12*TILEGLOBAL) + { + xscroll = ob->x - (originxglobal + 12*TILEGLOBAL); + } + + if (ob->state == &s_keenlookup2) + { + if (centerlevel+tics > 167) + { + pix = 167-centerlevel; + } + else + { + pix = tics; + } + centerlevel += pix; + yscroll = CONVERT_PIXEL_TO_GLOBAL(-pix); + } + else if (ob->state == &s_keenlookdown3) + { + if (centerlevel-tics < 33) + { + pix = centerlevel + -33; + } + else + { + pix = tics; + } + centerlevel -= pix; + yscroll = CONVERT_PIXEL_TO_GLOBAL(pix); + } + +#ifdef KEEN6 + if (groundslam) + { + static Sint16 shaketable[] = {0, + -64, -64, -64, 64, 64, 64, + -200, -200, -200, 200, 200, 200, + -250, -250, -250, 250, 250, 250, + -250, -250, -250, 250, 250, 250 + }; + yscroll = yscroll + (bottom - (ob->bottom + shaketable[groundslam])); // BUG: 'bottom' has not been initialized yet! + } + else +#endif + if ( (ob->hitnorth || !ob->needtoclip || ob->state == &s_keenholdon)) + { + if ( ob->state != &s_keenclimbup + && ob->state != &s_keenclimbup2 + && ob->state != &s_keenclimbup3 + && ob->state != &s_keenclimbup4) + { + yscroll += ob->ymove; + bottom = originyglobal + yscroll + CONVERT_PIXEL_TO_GLOBAL(centerlevel); + if (ob->bottom == bottom) + { + // player didn't move, no additional scrolling + } + else + { + if (ob->bottom < bottom) + { + pix = bottom - ob->bottom; + } + else + { + pix = ob->bottom - bottom; + } + speed = CONVERT_PIXEL_TO_GLOBAL(pix) >> 7; + if (speed > 0x30) + { + speed = 0x30; + } + speed *= tics; + if (speed < 0x10) + { + if (pix < 0x10) + { + speed = pix; + } + else + { + speed = 0x10; + } + } + if (ob->bottom < bottom) + { + yscroll -= speed; + } + else + { + yscroll += speed; + } + } + } + } + else + { + centerlevel = 140; + } + + pix = (ob->bottom-32*PIXGLOBAL)-(originyglobal+yscroll); + if (pix < 0) + { + yscroll += pix; + } + pix = (ob->bottom+32*PIXGLOBAL)-(originyglobal+yscroll+200*PIXGLOBAL); + if (pix > 0) + { + yscroll += pix; + } + + if (xscroll == 0 && yscroll == 0) + return; + +// +// don't scroll more than one tile per frame +// + if (xscroll >= 0x100) + { + xscroll = 0xFF; + } + else if (xscroll <= -0x100) + { + xscroll = -0xFF; + } + if (yscroll >= 0x100) + { + yscroll = 0xFF; + } + else if (yscroll <= -0x100) + { + yscroll = -0xFF; + } + RF_Scroll(xscroll, yscroll); + +// +// update limits for onscreen and inactivate checks +// + originxtilemax = (originxtile + PORTTILESWIDE) - 1; + originytilemax = (originytile + PORTTILESHIGH) - 1; + inactivateleft = originxtile - INACTIVATEDIST; + if (inactivateleft < 0) + { + inactivateleft = 0; + } + inactivateright = originxtilemax + INACTIVATEDIST; + if (inactivateright < 0) + { + inactivateright = 0; + } + inactivatetop = originytile - INACTIVATEDIST; + if (inactivatetop < 0) + { + inactivatetop = 0; + } + inactivatebottom = originytilemax + INACTIVATEDIST; + if (inactivatebottom < 0) + { + inactivatebottom = 0; + } +} + +//=========================================================================== + + +/* +############################################################################# + + The objarray data structure + +############################################################################# + +Objarray contains structures for every actor currently playing. The structure +is accessed as a linked list starting at *player, ending when ob->next == +NULL. GetNewObj inserts a new object at the end of the list, meaning that +if an actor spawns another actor, the new one WILL get to think and react the +same frame. RemoveObj unlinks the given object and returns it to the free +list, but does not damage the objects ->next pointer, so if the current object +removes itself, a linked list following loop can still safely get to the +next element. + + + +############################################################################# +*/ + + +/* +========================= += += InitObjArray += += Call to clear out the entire object list, returning them all to the free += list. Allocates a special spot for the player. += +========================= +*/ + +void InitObjArray(void) +{ + Sint16 i; + + for (i=0; iprev; + memset(new, 0, sizeof(*new)); + if (lastobj) + { + lastobj->next = new; + } + new->prev = lastobj; // new->next is allready NULL from memset + + new->active = ac_yes; + new->needtoclip = cl_midclip; + lastobj = new; + + objectcount++; + return 0; +} + +//=========================================================================== + +/* +========================= += += RemoveObj += += Add the given object back into the free list, and unlink it from it's += neighbors += +========================= +*/ + +void RemoveObj(objtype *ob) +{ + if (ob == player) + Quit("RemoveObj: Tried to remove the player!"); + +// +// erase it from the refresh manager +// + RF_RemoveSprite(&ob->sprite); + if (ob->obclass == stunnedobj) + { + RF_RemoveSprite((void **)&ob->temp3); + } + +// +// fix the next object's back link +// + if (ob == lastobj) + { + lastobj = ob->prev; + } + else + { + ob->next->prev = ob->prev; + } + +// +// fix the previous object's forward link +// + ob->prev->next = ob->next; + +// +// add it back in to the free list +// + ob->prev = objfreelist; + objfreelist = ob; +} + +//========================================================================== + +/* +==================== += += GivePoints += += Grants extra men at 20k,40k,80k,160k,320k += +==================== +*/ + +void GivePoints(Uint16 points) +{ + gamestate.score += points; + if (!DemoMode && gamestate.score >= gamestate.nextextra) + { + SD_PlaySound(SND_EXTRAKEEN); + gamestate.lives++; + gamestate.nextextra *= 2; + } +} + +//========================================================================== + +/* +=================== += += PollControls += +=================== +*/ + +void PollControls(void) +{ + IN_ReadControl(0, &c); + if (c.yaxis != -1) + upheld = false; + + if (GravisGamepad && !DemoMode) + { + jumpbutton = GravisAction[ga_Jump]; + pogobutton = GravisAction[ga_Pogo]; + firebutton = GravisAction[ga_Fire]; + if (!jumpbutton) + jumpheld = false; + if (!pogobutton) + pogoheld = false; + if (!firebutton) + fireheld = false; + } + else if (oldshooting || DemoMode) + { + if (c.button0 && c.button1) + { + firebutton = true; + jumpbutton = pogobutton = jumpheld = pogoheld = false; + } + else + { + firebutton = fireheld = false; + if (c.button0) + { + jumpbutton = true; + } + else + { + jumpbutton = jumpheld = false; + } + if (c.button1) + { + if (oldfirecount <= 8) + { + oldfirecount = oldfirecount + tics; + } + else + { + pogobutton = true; + } + } + else + { + if (oldfirecount != 0) + { + pogobutton = true; + } + else + { + pogobutton = pogoheld = false; + } + oldfirecount = 0; + } + } + } + else + { + jumpbutton = c.button0; + pogobutton = c.button1; + firebutton = Keyboard[firescan]; + if (!jumpbutton) + jumpheld = false; + if (!pogobutton) + pogoheld = false; + if (!firebutton) + fireheld = false; + } +} + +//========================================================================== + + +/* +================= += += StopMusic += +================= +*/ + +void StopMusic(void) +{ + Sint16 i; + + SD_MusicOff(); + for (i=0; i= ARRAYLENGTH(songs) && num != 0xFFFF) + { + Quit("StartMusic() - bad level number"); + } + +#ifdef FIX_MUSIC_MEMORY_ISSUES + StopMusic(); +#else + SD_MusicOff(); +#endif + +#ifdef KEEN4 + if (num == 0xFFFF) + { + song = WONDER_MUS; + } + else + { + song = songs[num]; + } +#else + song = songs[num]; +#endif + + if (song == -1 || MusicMode != smm_AdLib) + { + return; + } + + MM_BombOnError(false); + CA_CacheAudioChunk(STARTMUSIC+song); + MM_BombOnError(true); + if (mmerror) + { + mmerror = false; + if (!DemoMode) + { + US_CenterWindow(20, 8); + PrintY += 20; + US_CPrint("Insufficient memory\nfor background music!"); + VW_UpdateScreen(); + wasfaded = screenfaded; + if (wasfaded) + { + VW_SetDefaultColors(); + } + IN_ClearKeysDown(); + IN_UserInput(3*TickBase, false); + if (wasfaded) + { + VW_FadeOut(); + } + } + } + else + { +#ifdef FIX_MUSIC_MEMORY_ISSUES + //The current music should be locked, so the memory manager will not + //mess with it when compressing memory blocks in MM_SortMem(). + MM_SetLock(&(memptr)audiosegs[STARTMUSIC+song], true); +#endif + SD_StartMusic((MusicGroup far *)audiosegs[STARTMUSIC+song]); + } +} + +//========================================================================== + + +/* +=================== += += PlayLoop += +=================== +*/ + +void PlayLoop(void) +{ + objtype *check; + + StartMusic(gamestate.mapon); + fireheld = pogoheld = upheld = jumpheld = false; + ingame = true; + playstate = ex_stillplaying; + invincible = keenkilled = oldfirecount = 0; + + CenterActor(player); + + if (DemoMode) + { + US_InitRndT(false); + } + else + { + US_InitRndT(true); + } + TimeCount = lasttimecount = tics = 3; + + do + { + PollControls(); + +// +// go through state changes and propose movements +// + for (obj=player; obj; obj=obj->next) + { + if (!obj->active && obj->tileright >= originxtile-1 + && obj->tileleft <= originxtilemax+1 && obj->tiletop <= originytilemax+1 + && obj->tilebottom >= originytile-1) + { + obj->needtoreact = true; + obj->active = ac_yes; + } + if (obj->active) + { + if (obj->tileright < inactivateleft + || obj->tileleft > inactivateright + || obj->tiletop > inactivatebottom + || obj->tilebottom < inactivatetop) + { + if (obj->active == ac_removable) + { + RemoveObj(obj); + continue; + } + else if (obj->active != ac_allways) + { + if (US_RndT() < tics*2 || screenfaded || loadedgame) + { + RF_RemoveSprite(&obj->sprite); + if (obj->obclass == stunnedobj) + RF_RemoveSprite((void **)&obj->temp3); + obj->active = ac_no; + continue; + } + } + } + StateMachine(obj); + } + } + + if (gamestate.riding) + { + HandleRiding(player); + } + +// +// check for and handle collisions between objects +// + for (obj=player; obj; obj=obj->next) + { + if (obj->active) + { + for (check=obj->next; check; check=check->next) + { + if (!check->active) + { + continue; + } + if (obj->right > check->left && obj->left < check->right + && obj->top < check->bottom && obj->bottom > check->top) + { + if (obj->state->contact) + { + obj->state->contact(obj, check); + } + if (check->state->contact) + { + check->state->contact(check, obj); + } + if (obj->obclass == nothing) //useless -- obclass is NOT set to nothing by RemoveObj + { + break; + } + } + } + } + } + +// +// check intiles +// + if (mapon != 0) + { + CheckInTiles(player); + } + else + { + CheckWorldInTiles(player); + } + +// +// react to whatever happened, and post sprites to the refresh manager +// + for (obj=player; obj; obj=obj->next) + { + if (!obj->active) + { + continue; + } + if (obj->tilebottom >= mapheight-1) + { + if (obj->obclass == keenobj) + { + playstate = ex_died; + } + else + { + RemoveObj(obj); + } + continue; + } + if (obj->needtoreact && obj->state->react) + { + obj->needtoreact = false; + obj->state->react(obj); + } + } + +// +// scroll the screen and update the score box +// +#ifdef KEEN4 + if (mapon != 0 && mapon != 17) +#else + if (mapon != 0) +#endif + { + ScrollScreen(player); + } + else + { + WorldScrollScreen(player); + } + UpdateScore(scoreobj); + if (loadedgame) + { + loadedgame = false; + } + +// +// update the screen and calculate the number of tics it took to execute +// this cycle of events (for adaptive timing of next cycle) +// + RF_Refresh(); + + if (invincible) + { + if ((invincible = invincible - tics) < 0) + invincible = 0; + } + +#ifdef KEEN6 + if (groundslam) + { + if ((groundslam = groundslam - tics) < 0) + groundslam = 0; + } +#endif +// +// single step debug mode +// + if (singlestep) + { + VW_WaitVBL(14); //reduces framerate to 5 fps on VGA or 4.3 fps on EGA cards + lasttimecount = TimeCount; + } +// +// extra VBLs debug mode +// + if (extravbls) + { + VW_WaitVBL(extravbls); + } + +// +// handle user inputs +// + if (DemoMode == demo_Playback) + { + if (!screenfaded && IN_IsUserInput()) + { + playstate = ex_completed; + if (LastScan != sc_F1) + { + LastScan = sc_Space; + } + } + } + else if (DemoMode == demo_PlayDone) + { + playstate = ex_completed; + } + else + { + CheckKeys(); + } + +// +// E-N-D cheat +// + if (Keyboard[sc_E] && Keyboard[sc_N] && Keyboard[sc_D]) + { +#if defined KEEN4 + gamestate.rescued = 7; + playstate = ex_rescued; +#elif defined KEEN5 + playstate = ex_qedbroke; +#elif defined KEEN6 + playstate = ex_molly; +#endif + } + + } while (playstate == ex_stillplaying); + + ingame = false; + StopMusic(); +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/CK_STATE.C b/16/keen456/KEEN4-6/CK_STATE.C new file mode 100755 index 00000000..25d3be69 --- /dev/null +++ b/16/keen456/KEEN4-6/CK_STATE.C @@ -0,0 +1,1968 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#include "CK_DEF.H" + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +Sint16 wallclip[8][16] = { // the height of a given point in a tile +{ 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256}, +{ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, +{ 0,0x08,0x10,0x18,0x20,0x28,0x30,0x38,0x40,0x48,0x50,0x58,0x60,0x68,0x70,0x78}, +{0x80,0x88,0x90,0x98,0xa0,0xa8,0xb0,0xb8,0xc0,0xc8,0xd0,0xd8,0xe0,0xe8,0xf0,0xf8}, +{ 0,0x10,0x20,0x30,0x40,0x50,0x60,0x70,0x80,0x90,0xa0,0xb0,0xc0,0xd0,0xe0,0xf0}, +{0x78,0x70,0x68,0x60,0x58,0x50,0x48,0x40,0x38,0x30,0x28,0x20,0x18,0x10,0x08, 0}, +{0xf8,0xf0,0xe8,0xe0,0xd8,0xd0,0xc8,0xc0,0xb8,0xb0,0xa8,0xa0,0x98,0x90,0x88,0x80}, +{0xf0,0xe0,0xd0,0xc0,0xb0,0xa0,0x90,0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10, 0} +}; + +Sint16 xtry, ytry; +boolean playerkludgeclipcancel; + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +Uint16 oldtileleft, oldtiletop, oldtileright, oldtilebottom, oldtilemidx; +Uint16 oldleft, oldtop, oldright, oldbottom, oldmidx; +Sint16 leftmoved, topmoved, rightmoved, bottommoved, midxmoved; + +//========================================================================== + +/* +==================== += += MoveObjVert += +==================== +*/ + +void MoveObjVert(objtype *ob, Sint16 ymove) +{ + ob->y += ymove; + ob->top += ymove; + ob->bottom += ymove; + ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top); + ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom); +} + +/* +==================== += += MoveObjHoriz += +==================== +*/ + +void MoveObjHoriz(objtype *ob, Sint16 xmove) +{ + //BUG? ob->midx is not adjusted in Keen 4 & 5 + ob->x += xmove; + ob->left += xmove; + ob->right += xmove; +#ifdef KEEN6 + ob->midx += xmove; //BUG? ob->tilemidx is not updated +#endif + ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left); + ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right); +} + +//========================================================================== + +/* +==================== += += PlayerBottomKludge += +==================== +*/ + +void PlayerBottomKludge(objtype *ob) +{ + Uint16 far *map; + Uint16 wall, clip, xpix; + Sint16 xmove, ymove; + + map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tilebottom-1]/2; + if (ob->xdir == 1) + { + xpix = 0; + map += ob->tileright; + xmove = ob->right - ob->midx; + if (tinf[*(map-mapwidth)+WESTWALL] || tinf[*map+WESTWALL]) + { + return; + } + } + else + { + xpix = 15; + map += ob->tileleft; + xmove = ob->left - ob->midx; + if (tinf[*(map-mapwidth)+EASTWALL] || tinf[*map+EASTWALL]) + { + return; + } + } + if ((_AX = tinf[*map+NORTHWALL]) != 0) // the _AX = ... part is just to recreate the original code's quirks, feel free to delete this + { + return; + } + map += mapwidth; + if ((wall = tinf[*map+NORTHWALL]) != 1) + { + return; + } + clip = wallclip[wall&7][xpix]; + ymove = CONVERT_TILE_TO_GLOBAL(ob->tilebottom) + clip - 1 -ob->bottom; + if (ymove <= 0 && ymove >= -bottommoved) + { + ob->hitnorth = wall; + MoveObjVert(ob, ymove); + MoveObjHoriz(ob, xmove); + } +} + +/* +==================== += += PlayerTopKludge += +==================== +*/ + +void PlayerTopKludge(objtype *ob) +{ + Uint16 far *map; + Uint16 xpix, wall, clip; + Sint16 move; + + map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tiletop+1]/2; + if (ob->xdir == 1) + { + xpix = 0; + map += ob->tileright; + if (tinf[*(map+mapwidth)+WESTWALL] || tinf[*(map+2*mapwidth)+WESTWALL]) + { + return; + } + } + else + { + xpix = 15; + map += ob->tileleft; + if (tinf[*(map+mapwidth)+EASTWALL] || tinf[*(map+2*mapwidth)+EASTWALL]) + { + return; + } + } + if ((_AX = tinf[*map+SOUTHWALL]) != 0) // the _AX = ... part is just to recreate the original code's quirks, feel free to delete this + { + return; + } + map -= mapwidth; + if ((wall = tinf[*map+SOUTHWALL]) != 0) + { + clip = wallclip[wall&7][xpix]; + move = CONVERT_TILE_TO_GLOBAL(ob->tiletop+1) - clip - ob->top; + if (move >= 0 && move <= -topmoved) + { + ob->hitsouth = wall; + MoveObjVert(ob, move); + } + } +} + +/* +=========================== += += ClipToEnds += +=========================== +*/ + +void ClipToEnds(objtype *ob) +{ + Uint16 far *map; + Uint16 wall, y, clip; + Sint16 totalmove, maxmove, move; + Uint16 midxpix; + + midxpix = CONVERT_GLOBAL_TO_PIXEL(ob->midx & 0xF0); + maxmove = -abs(midxmoved)-bottommoved-16; + map = (Uint16 far *)mapsegs[1] + (mapbwidthtable-1)[oldtilebottom]/2 + ob->tilemidx; + for (y=oldtilebottom-1; y <= ob->tilebottom; y++,map+=mapwidth) + { + if ((wall = tinf[*map + NORTHWALL]) != 0) + { + clip = wallclip[wall&7][midxpix]; + move = (CONVERT_TILE_TO_GLOBAL(y) + clip)-1-ob->bottom; + if (move < 0 && move >= maxmove) + { + ob->hitnorth = wall; + MoveObjVert(ob, move); + return; + } + } + } + maxmove = abs(midxmoved)-topmoved+16; + map = (Uint16 far *)mapsegs[1] + (mapbwidthtable+1)[oldtiletop]/2 + ob->tilemidx; + for (y=oldtiletop+1; y >= ob->tiletop; y--,map-=mapwidth) // BUG: unsigned comparison - loop never ends if ob->tiletop is 0 + { + if ((wall = tinf[*map + SOUTHWALL]) != 0) + { + clip = wallclip[wall&7][midxpix]; + move = CONVERT_TILE_TO_GLOBAL(y+1) - clip - ob->top; + if (move > 0 && move <= maxmove) + { + totalmove = ytry+move; + if (totalmove < 0x100 && totalmove > -0x100) + { + ob->hitsouth = wall; + MoveObjVert(ob, move); + //BUG? no return here + } + } + } + } +} + +/* +=========================== += += ClipToSides += +=========================== +*/ + +void ClipToSides(objtype *ob) +{ + Sint16 move, y, top, bottom; + Uint16 far *map; + + top = ob->tiletop; + if (ob->hitsouth > 1) + { + top++; + } + bottom = ob->tilebottom; + if (ob->hitnorth > 1) + { + bottom--; + } + for (y=top; y<=bottom; y++) + { + map = (Uint16 far *)mapsegs[1] + mapbwidthtable[y]/2 + ob->tileleft; + if ((ob->hiteast = tinf[*map+EASTWALL]) != 0) + { + move = CONVERT_TILE_TO_GLOBAL(ob->tileleft+1) - ob->left; + MoveObjHoriz(ob, move); + return; + } + } + for (y=top; y<=bottom; y++) + { + map = (Uint16 far *)mapsegs[1] + mapbwidthtable[y]/2 + ob->tileright; + if ((ob->hitwest = tinf[*map+WESTWALL]) != 0) + { + move = (CONVERT_TILE_TO_GLOBAL(ob->tileright)-1)-ob->right; + MoveObjHoriz(ob, move); + return; + } + } +} + +/* +=========================== += += CheckPosition += +=========================== +*/ + +boolean CheckPosition(objtype *ob) +{ +#ifdef KEEN6Ev15 + // This version is pretty much a compiler-optimized version of the other + // version below, but I simply could not get the compiler to optimize it + // in exactly the same way. + + Uint16 tile, x, tileright; + Uint16 far *map; + Uint16 rowdiff; + Uint16 tileleft, y, tilebottom; + + map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft; + rowdiff = mapwidth-(ob->tileright-ob->tileleft+1); + + y = ob->tiletop; + tileleft = ob->tileleft; + tileright = _AX = ob->tileright; + tilebottom = ob->tilebottom; + + for (; tilebottom>=y; y++,map+=rowdiff) + { + for (x=tileleft; tileright>=x; x++) + { + tile = *(map++); + if (tinf[tile+NORTHWALL] || tinf[tile+EASTWALL] || tinf[tile+SOUTHWALL] || tinf[tile+WESTWALL]) + { + return false; + } + } + } + return true; +#else + Uint16 tile, x, y; + Uint16 far *map; + Uint16 rowdiff; + + map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft; + rowdiff = mapwidth-(ob->tileright-ob->tileleft+1); + for (y=ob->tiletop; y<=ob->tilebottom; y++,map+=rowdiff) + { + for (x=ob->tileleft; x<=ob->tileright; x++) + { + tile = *(map++); + if (tinf[tile+NORTHWALL] || tinf[tile+EASTWALL] || tinf[tile+SOUTHWALL] || tinf[tile+WESTWALL]) + { + return false; + } + } + } + return true; +#endif +} + +/* +=========================== += += StatePositionOk += +=========================== +*/ + +boolean StatePositionOk(objtype *ob, statetype *state) +{ + spritetabletype far *shape; + + if (ob->xdir > 0) + { + ob->shapenum = state->rightshapenum; + } + else + { + ob->shapenum = state->leftshapenum; + } + shape = &spritetable[ob->shapenum-STARTSPRITES]; + ob->left = ob->x + shape->xl; + ob->right = ob->x + shape->xh; + ob->top = ob->y + shape->yl; + ob->bottom = ob->y + shape->yh; + ob->midx = ob->left + (ob->right-ob->left)/2; + ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left); + ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right); + ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top); + ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom); + ob->tilemidx = CONVERT_GLOBAL_TO_TILE(ob->midx); + return CheckPosition(ob); +} + +#ifdef KEEN5 +/* +=========================== += += CalcBounds += +=========================== +*/ + +void CalcBounds(objtype *ob) //not present in Keen 4 & 6 +{ + spritetabletype far *shape; + + shape = &spritetable[ob->shapenum-STARTSPRITES]; + ob->left = ob->x + shape->xl; + ob->right = ob->x + shape->xh; + ob->top = ob->y + shape->yl; + ob->bottom = ob->y + shape->yh; + ob->midx = ob->left + (ob->right-ob->left)/2; +} +#endif + +//========================================================================== + +/* +================ += += ClipToWalls += += Moves the current object xtry/ytry units, clipping to walls += +================ +*/ + +void ClipToWalls(objtype *ob) +{ + Uint16 oldx, oldy; +#ifdef KEEN6 + Uint16 y; +#endif + spritetabletype far *shape; + boolean pushed; + + oldx = ob->x; + oldy = ob->y; + pushed = false; + +// +// make sure it stays in contact with a 45 degree slope +// + if (ob->state->pushtofloor) + { + if (ob->hitnorth == 25) + { + ytry = 145; + } + else + { + if (xtry > 0) + { + ytry = xtry+16; + } + else + { + ytry = -xtry+16; + } + pushed = true; + } + } + +// +// move the shape +// + if (xtry > 239) + { + xtry = 239; + } + else if (xtry < -239) + { + xtry = -239; + } + if (ytry > 255) // +16 for push to floor + { + ytry = 255; + } + else if (ytry < -239) + { + ytry = -239; + } + + ob->x += xtry; + ob->y += ytry; + + ob->needtoreact = true; + + if (!ob->shapenum) // can't get a hit rect with no shape! + { + return; + } + + shape = &spritetable[ob->shapenum-STARTSPRITES]; + + oldtileright = ob->tileright; + oldtiletop = ob->tiletop; + oldtileleft = ob->tileleft; + oldtilebottom = ob->tilebottom; + oldtilemidx = ob->tilemidx; + + oldright = ob->right; + oldtop = ob->top; + oldleft = ob->left; + oldbottom = ob->bottom; + oldmidx = ob->midx; + + ob->left = ob->x + shape->xl; + ob->right = ob->x + shape->xh; + ob->top = ob->y + shape->yl; + ob->bottom = ob->y + shape->yh; + ob->midx = ob->left + (ob->right-ob->left)/2; + + ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left); + ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right); + ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top); + ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom); + ob->tilemidx = CONVERT_GLOBAL_TO_TILE(ob->midx); + + ob->hitnorth=ob->hiteast=ob->hitsouth=ob->hitwest=0; + + if (ob->needtoclip) + { + leftmoved = ob->left - oldleft; + rightmoved = ob->right - oldright; + topmoved = ob->top - oldtop; + bottommoved = ob->bottom - oldbottom; + midxmoved = ob->midx - oldmidx; + + // + // clip it + // + ClipToEnds(ob); + + if (ob == player && !playerkludgeclipcancel) // zero tolerance near the edge when player gets pushed! + { + if (!ob->hitnorth && bottommoved > 0) + { + PlayerBottomKludge(ob); + } + if (!ob->hitsouth && topmoved < 0) + { + PlayerTopKludge(ob); + } + } + ClipToSides(ob); + +#ifdef KEEN6 + // + // special hack to prevent player from getting stuck on slopes? + // + if (ob == player && (ob->hitnorth & 7) > 1 && (ob->hiteast || ob->hitwest)) + { + Uint16 far *map; + Uint16 pixx, clip, move; + Uint16 wall; + + pixx = CONVERT_GLOBAL_TO_PIXEL(ob->midx & (15*PIXGLOBAL)); + map = (Uint16 far *)mapsegs[1] + mapbwidthtable[oldtilebottom]/2 + ob->tilemidx; + + for (y=oldtilebottom; ob->tilebottom+1 >= y; y++, map+=mapwidth) + { + if ((wall = tinf[*map + NORTHWALL]) != 0) + { + clip = wallclip[wall & 7][pixx]; + move = CONVERT_TILE_TO_GLOBAL(y) + clip - 1 - ob->bottom; + ob->hitnorth = wall; + MoveObjVert(ob, move); + return; + } + } + } +#endif + } + if (pushed && !ob->hitnorth) + { + ob->y = oldy; + ob->x = oldx + xtry; + + ob->left = ob->x + shape->xl; + ob->right = ob->x + shape->xh; + ob->top = ob->y + shape->yl; + ob->bottom = ob->y + shape->yh; + ob->midx = ob->left + (ob->right-ob->left)/2; + + ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left); + ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right); + ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top); + ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom); + ob->tilemidx = CONVERT_GLOBAL_TO_TILE(ob->midx); + } + + ob->xmove = ob->xmove + (ob->x - oldx); + ob->ymove = ob->ymove + (ob->y - oldy); +} + +/* +================ += += FullClipToWalls += += Moves the current object xtry/ytry units, clipping to walls += +================ +*/ + +void FullClipToWalls(objtype *ob) +{ + Uint16 oldx, oldy, w, h; + spritetabletype far *shape; + + oldx = ob->x; + oldy = ob->y; + +// +// move the shape +// + if (xtry > 239) + { + xtry = 239; + } + else if (xtry < -239) + { + xtry = -239; + } + if (ytry > 239) + { + ytry = 239; + } + else if (ytry < -239) + { + ytry = -239; + } + + ob->x += xtry; + ob->y += ytry; + + ob->needtoreact = true; + + shape = &spritetable[ob->shapenum-STARTSPRITES]; + + switch (ob->obclass) + { +#if defined KEEN4 + case keenobj: + w = 40*PIXGLOBAL; + h = 24*PIXGLOBAL; + break; + case eggbirdobj: + w = 64*PIXGLOBAL; + h = 32*PIXGLOBAL; + break; + case dopefishobj: + w = 88*PIXGLOBAL; + h = 64*PIXGLOBAL; + break; + case schoolfishobj: + w = 16*PIXGLOBAL; + h = 8*PIXGLOBAL; + break; +#elif defined KEEN5 + case slicestarobj: + case spherefulobj: + w = h = 32*PIXGLOBAL; + break; +#elif defined KEEN6 + case blorbobj: + w = h = 32*PIXGLOBAL; + break; +#endif + + default: + Quit("FullClipToWalls: Bad obclass"); + break; + } + + ob->right = ob->x + w; + ob->left = ob->x; + ob->top = ob->y; + ob->bottom = ob->y + h; + + ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left); + ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right); + ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top); + ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom); + + ob->hitnorth=ob->hiteast=ob->hitsouth=ob->hitwest=0; + +// +// clip it +// + if (!CheckPosition(ob)) + { + MoveObjHoriz(ob, -xtry); //undo x movement + if (CheckPosition(ob)) + { + if (xtry > 0) + { + ob->hitwest = 1; + } + else + { + ob->hiteast = 1; + } + } + else + { + if (ytry > 0) + { + ob->hitnorth = 1; + } + else + { + ob->hitsouth = 1; + } + MoveObjHoriz(ob, xtry); //redo x movement + MoveObjVert(ob, -ytry); //undo y movement + if (!CheckPosition(ob)) + { + MoveObjHoriz(ob, -xtry); //undo x movement + if (xtry > 0) + { + ob->hitwest = 1; + } + else + { + ob->hiteast = 1; + } + } + } + } + + ob->xmove = ob->xmove + (ob->x - oldx); + ob->ymove = ob->ymove + (ob->y - oldy); + + ob->left = ob->x + shape->xl; + ob->right = ob->x + shape->xh; + ob->top = ob->y + shape->yl; + ob->bottom = ob->y + shape->yh; + ob->midx = ob->left + (ob->right-ob->left)/2; +} + +/* +================ += += PushObj += += Moves the current object xtry/ytry units, clipping to walls += +================ +*/ + +void PushObj(objtype *ob) +{ + Uint16 oldx, oldy; + spritetabletype far *shape; + + oldx = ob->x; + oldy = ob->y; + +// +// move the shape +// + ob->x += xtry; + ob->y += ytry; + + ob->needtoreact = true; + + if (!ob->shapenum) // can't get a hit rect with no shape! + { + return; + } + + shape = &spritetable[ob->shapenum-STARTSPRITES]; + + oldtileright = ob->tileright; + oldtiletop = ob->tiletop; + oldtileleft = ob->tileleft; + oldtilebottom = ob->tilebottom; + oldtilemidx = ob->tilemidx; + + oldright = ob->right; + oldtop = ob->top; + oldleft = ob->left; + oldbottom = ob->bottom; + oldmidx = ob->midx; + + ob->left = ob->x + shape->xl; + ob->right = ob->x + shape->xh; + ob->top = ob->y + shape->yl; + ob->bottom = ob->y + shape->yh; + ob->midx = ob->left + (ob->right-ob->left)/2; + + ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left); + ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right); + ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top); + ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom); + ob->tilemidx = CONVERT_GLOBAL_TO_TILE(ob->midx); + + if (ob->needtoclip) + { + leftmoved = ob->left - oldleft; + rightmoved = ob->right - oldright; + topmoved = ob->top - oldtop; + bottommoved = ob->bottom - oldbottom; + midxmoved = ob->midx - oldmidx; + + ClipToEnds(ob); + ClipToSides(ob); + } + + ob->xmove = ob->xmove + (ob->x - oldx); + ob->ymove = ob->ymove + (ob->y - oldy); +} + +//========================================================================== + + +/* +================== += += ClipToSpriteSide += += Clips push to solid += +================== +*/ + +void ClipToSpriteSide(objtype *push, objtype *solid) +{ + Sint16 xmove, leftinto, rightinto; + + // + // amount the push shape can be pushed + // + xmove = solid->xmove - push->xmove; + + // + // amount it is inside + // + leftinto = solid->right - push->left; + rightinto = push->right - solid->left; + + if (leftinto > 0 && leftinto <= xmove) + { + xtry = leftinto; + if (push->state->pushtofloor) + { + ytry = leftinto+16; + } + ClipToWalls(push); + push->hiteast = 1; + } + else if (rightinto > 0 && rightinto <= -xmove) + { + xtry = -rightinto; + if (push->state->pushtofloor) + { + ytry = rightinto+16; + } + ClipToWalls(push); + push->hitwest = 1; + } +} + +//========================================================================== + + +/* +================== += += ClipToSpriteTop += += Clips push to solid += +================== +*/ + +void ClipToSpriteTop(objtype *push, objtype *solid) +{ + Sint16 temp, ymove, bottominto; + + // + // amount the push shape can be pushed + // + ymove = push->ymove - solid->ymove; + + // + // amount it is inside + // + bottominto = push->bottom - solid->top; + + if (bottominto >= 0 && bottominto <= ymove) + { + if (push == player) + { + gamestate.riding = solid; + } + ytry = -bottominto; + temp = push->state->pushtofloor; + push->state->pushtofloor = false; + ClipToWalls(push); + push->state->pushtofloor = temp; + if (!push->hitsouth) + { + push->hitnorth = 25; + } + } +} + +//========================================================================== + + +/* +================== += += ClipToSprite += += Clips push to solid += +================== +*/ + +void ClipToSprite(objtype *push, objtype *solid, boolean squish) +{ + Sint16 xmove, ymove, leftinto, rightinto, topinto, bottominto; + + xmove = solid->xmove - push->xmove; + xtry = ytry = 0; + + // + // left / right + // + leftinto = solid->right - push->left; + rightinto = push->right - solid->left; + + if (leftinto > 0 && xmove+1 >= leftinto) + { + xtry = leftinto; + push->xspeed = 0; + PushObj(push); + if (squish && push->hitwest) + { + KillKeen(); + } + push->hiteast = 1; + return; + } + else if (rightinto > 0 && -xmove+1 >= rightinto) + { + xtry = -rightinto; + push->xspeed = 0; + PushObj(push); + if (squish && push->hiteast) + { + KillKeen(); + } + push->hitwest = 1; + return; + } + + // + // top / bottom + // + ymove = push->ymove - solid->ymove; + topinto = solid->bottom - push->top; + bottominto = push->bottom - solid->top; + if (bottominto >= 0 && bottominto <= ymove) + { + if (push == player) + { + gamestate.riding = solid; + } + ytry = -bottominto; + PushObj(push); + if (squish && push->hitsouth) + { + KillKeen(); + } + if (!push->hitsouth) + { + push->hitnorth = 25; + } + return; + } + else if (topinto >= 0 && topinto <= ymove) // BUG: should be 'topinto <= -ymove' + { + ytry = topinto; + ClipToWalls(push); + if (squish && push->hitnorth) + { + KillKeen(); + } + push->hitsouth = 25; + } +} + +//========================================================================== + + +/* +================== += += DoActor += += Moves an actor in its current state by a given number of tics. += If that time takes it into the next state, it changes the state += and returns the number of excess tics after the state change += +================== +*/ + +Sint16 DoActor(objtype *ob, Sint16 numtics) +{ + Sint16 ticcount, usedtics, excesstics; + statetype *state; + + state = ob->state; + + if (state->progress == think) + { + if (state->think) + { + if (ob->nothink) + { + ob->nothink--; + } + else + { + state->think(ob); + } + } + return 0; + } + + ticcount = ob->ticcount + numtics; + + if (state->tictime > ticcount || state->tictime == 0) + { + ob->ticcount = ticcount; + if (state->progress == slide || state->progress == slidethink) + { + if (ob->xdir) + { + xtry += ob->xdir == 1? numtics*state->xmove : -numtics*state->xmove; + } + if (ob->ydir) + { + ytry += ob->ydir == 1? numtics*state->ymove : -numtics*state->ymove; + } + } + if ((state->progress == slidethink || state->progress == stepthink) && state->think) + { + if (ob->nothink) + { + ob->nothink--; + } + else + { + state->think(ob); + } + } + return 0; + } + else + { + usedtics = state->tictime - ob->ticcount; + excesstics = ticcount - state->tictime; + ob->ticcount = 0; + if (state->progress == slide || state->progress == slidethink) + { + if (ob->xdir) + { + xtry += ob->xdir == 1? usedtics*state->xmove : -usedtics*state->xmove; + } + if (ob->ydir) + { + ytry += ob->ydir == 1? usedtics*state->ymove : -usedtics*state->ymove; + } + } + else + { + if (ob->xdir) + { + xtry += ob->xdir == 1? state->xmove : -state->xmove; + } + if (ob->ydir) + { + ytry += ob->ydir == 1? state->ymove : -state->ymove; + } + } + + if (state->think) + { + if (ob->nothink) + { + ob->nothink--; + } + else + { + state->think(ob); + } + } + + if (state == ob->state) + { + ob->state = state->nextstate; // go to next state + } + else if (!ob->state) + { + return 0; // object removed itself + } + return excesstics; + } +} + +//========================================================================== + + +/* +==================== += += StateMachine += += Change state and give directions += +==================== +*/ + +void StateMachine(objtype *ob) +{ + Sint16 excesstics, oldshapenum; + statetype *state; + + ob->xmove=ob->ymove=xtry=ytry=0; + oldshapenum = ob->shapenum; + + state = ob->state; + + excesstics = DoActor(ob, tics); + if (ob->state != state) + { + ob->ticcount = 0; // start the new state at 0, then use excess + state = ob->state; + } + + while (excesstics) + { + // + // passed through to next state + // + if (!state->skippable && state->tictime <= excesstics) + { + excesstics = DoActor(ob, state->tictime-1); + } + else + { + excesstics = DoActor(ob, excesstics); + } + if (ob->state != state) + { + ob->ticcount = 0; // start the new state at 0, then use excess + state = ob->state; + } + } + + if (!state) // object removed itself + { + RemoveObj(ob); + return; + } + + // + // if state->rightshapenum == NULL, the state does not have a standard + // shape (the think routine should have set it) + // + if (state->rightshapenum) + { + if (ob->xdir > 0) + { + ob->shapenum = state->rightshapenum; + } + else + { + ob->shapenum = state->leftshapenum; + } + } + if ((Sint16)ob->shapenum == -1) + { + ob->shapenum = 0; // make it invisable this time + } + + if (xtry || ytry || ob->shapenum != oldshapenum || ob->hitnorth == 25) + { + // + // actor moved or changed shape + // make sure the movement is within limits (one tile) + // + if (ob->needtoclip == cl_fullclip) + { + FullClipToWalls(ob); + } + else + { + ClipToWalls(ob); + } + } +} + +//========================================================================== + + +/* +==================== += += NewState += +==================== +*/ + +void NewState(objtype *ob, statetype *state) +{ + Sint16 temp; + + ob->state = state; + + if (state->rightshapenum) + { + if (ob->xdir > 0) + { + ob->shapenum = state->rightshapenum; + } + else + { + ob->shapenum = state->leftshapenum; + } + } + + if ((Sint16)ob->shapenum == -1) + { + ob->shapenum = 0; + } + + temp = ob->needtoclip; + ob->needtoclip = cl_noclip; + + xtry = ytry = 0; // no movement + ClipToWalls(ob); // just calculate values + + ob->needtoclip = temp; + + if (ob->needtoclip == cl_fullclip) + { + FullClipToWalls(ob); + } + else if (ob->needtoclip == cl_midclip) + { + ClipToWalls(ob); + } +} + +//========================================================================== + + +/* +==================== += += ChangeState += +==================== +*/ + +void ChangeState(objtype *ob, statetype *state) +{ + ob->state = state; + ob->ticcount = 0; + if (state->rightshapenum) + { + if (ob->xdir > 0) + { + ob->shapenum = state->rightshapenum; + } + else + { + ob->shapenum = state->leftshapenum; + } + } + + if ((Sint16)ob->shapenum == -1) + { + ob->shapenum = 0; + } + + ob->needtoreact = true; // it will need to be redrawn this frame + + xtry = ytry = 0; // no movement + + if (ob->hitnorth != 25) + { + ClipToWalls(ob); + } +} + +//========================================================================== + + +/* +==================== += += OnScreen += +==================== +*/ + +boolean OnScreen(objtype *ob) +{ + if (ob->tileright < originxtile || ob->tilebottom < originytile + || ob->tileleft > originxtilemax || ob->tiletop > originytilemax) + { + return false; + } + return true; +} + +//========================================================================== + + +/* +==================== += += DoGravity += +==================== +*/ + +void DoGravity(objtype *ob) +{ + Sint32 i; +// +// only accelerate on odd tics, because of limited precision +// + for (i = lasttimecount-tics; iyspeed < 0 && ob->yspeed >= -4) + { + ytry += ob->yspeed; + ob->yspeed = 0; + return; + } + ob->yspeed += 4; + if (ob->yspeed > 70) + { + ob->yspeed = 70; + } + } + ytry += ob->yspeed; + } +} + + +/* +==================== += += DoWeakGravity += +==================== +*/ + +void DoWeakGravity(objtype *ob) +{ + Sint32 i; +// +// only accelerate on odd tics, because of limited precision +// + for (i = lasttimecount-tics; iyspeed < 0 && ob->yspeed >= -3) + { + ytry += ob->yspeed; + ob->yspeed = 0; + return; + } + ob->yspeed += 3; + if (ob->yspeed > 70) + { + ob->yspeed = 70; + } + } + ytry += ob->yspeed; + } +} + + +/* +==================== += += DoTinyGravity += +==================== +*/ + +void DoTinyGravity(objtype *ob) +{ + Sint32 i; +// +// only accelerate every 4 tics, because of limited precision +// + for (i = lasttimecount-tics; iyspeed++; + if (ob->yspeed > 70) + { + ob->yspeed = 70; + } + } + ytry += ob->yspeed; + } +} + + +/* +=============== += += AccelerateX += +=============== +*/ + +void AccelerateX(objtype *ob, Sint16 dir, Sint16 maxspeed) +{ + Sint32 i; + Uint16 oldsign; + + oldsign = ob->xspeed & 0x8000; +// +// only accelerate on odd tics, because of limited precision +// + for (i=lasttimecount-tics; ixspeed += dir; + if ((ob->xspeed & 0x8000) != oldsign) + { + oldsign = ob->xspeed & 0x8000; + ob->xdir = oldsign? -1 : 1; + } + if (ob->xspeed > maxspeed) + { + ob->xspeed = maxspeed; + } + else if (ob->xspeed < -maxspeed) + { + ob->xspeed = -maxspeed; + } + } + xtry += ob->xspeed; + } +} + + +/* +=============== += += AccelerateXv += += Doesn't change object's xdir += +=============== +*/ + +void AccelerateXv(objtype *ob, Sint16 dir, Sint16 maxspeed) +{ + Sint32 i; + +// +// only accelerate on odd tics, because of limited precision +// + for (i=lasttimecount-tics; ixspeed += dir; + if (ob->xspeed > maxspeed) + { + ob->xspeed = maxspeed; + } + else if (ob->xspeed < -maxspeed) + { + ob->xspeed = -maxspeed; + } + } + xtry += ob->xspeed; + } +} + + +/* +=============== += += AccelerateY += +=============== +*/ + +void AccelerateY(objtype *ob, Sint16 dir, Sint16 maxspeed) +{ + Sint32 i; + +// +// only accelerate on odd tics, because of limited precision +// + for (i=lasttimecount-tics; iyspeed += dir; + if (ob->yspeed > maxspeed) + { + ob->yspeed = maxspeed; + } + else if (ob->yspeed < -maxspeed) + { + ob->yspeed = -maxspeed; + } + } + ytry += ob->yspeed; + } +} + + +/* +=============== += += FrictionX += +=============== +*/ + +void FrictionX(objtype *ob) +{ + Sint16 friction, oldsign; + Sint32 i; + + oldsign = ob->xspeed & 0x8000; + if (ob->xspeed > 0) + { + friction = -1; + } + else if (ob->xspeed < 0) + { + friction = 1; + } + else + { + friction = 0; + } +// +// only accelerate on odd tics, because of limited precision +// + + for (i=lasttimecount-tics; ixspeed += friction; + if ((ob->xspeed & 0x8000) != oldsign) + { + ob->xspeed = 0; + } + } + xtry += ob->xspeed; + } +} + + +/* +=============== += += FrictionY += +=============== +*/ + +void FrictionY(objtype *ob) +{ + Sint16 friction, oldsign; + Sint32 i; + + if (ob->yspeed > 0) + { + friction = -1; + } + else if (ob->yspeed < 0) + { + friction = 1; + } + else + { + friction = 0; + } +// +// only accelerate on odd tics, because of limited precision +// + for (i=lasttimecount-tics; iyspeed += friction; + if ((ob->yspeed & 0x8000) != oldsign) //BUG: oldsign is not initialized! + { + ob->yspeed = 0; + } + } + ytry += ob->yspeed; + } +} + +//========================================================================== + +/* +=============== += += StunObj += +=============== +*/ + +void StunObj(objtype *ob, objtype *shot, statetype *stunstate) +{ + ExplodeShot(shot); + ob->temp1 = ob->temp2 = ob->temp3 = 0; // Note: ob->nothink should also be set to 0 + ob->temp4 = ob->obclass; + ChangeState(ob, stunstate); + ob->obclass = stunnedobj; +#ifndef KEEN4 + ob->yspeed -= 24; + if (ob->yspeed < -48) + ob->yspeed = -48; +#endif +} + +//========================================================================== + +/* +=============== += += T_Projectile += +=============== +*/ + +void T_Projectile(objtype *ob) +{ + DoGravity(ob); + xtry = ob->xspeed*tics; +} + + +/* +=============== += += T_WeakProjectile += +=============== +*/ + +void T_WeakProjectile(objtype *ob) +{ + DoWeakGravity(ob); + xtry = ob->xspeed*tics; +} + + +/* +=============== += += T_Velocity += +=============== +*/ + +void T_Velocity(objtype *ob) +{ + xtry = ob->xspeed*tics; + ytry = ob->yspeed*tics; +} + + +/* +=============== += += SetReactThink += +=============== +*/ + +void SetReactThink(objtype *ob) +{ + ob->needtoreact = true; +} + + +/* +=============== += += T_Stunned += +=============== +*/ + +void T_Stunned(objtype *ob) +{ + ob->temp1 = 0; + ob->needtoreact = true; + if (++ob->temp2 == 3) + ob->temp2 = 0; +} + + +/* +=============== += += C_Lethal += +=============== +*/ + +void C_Lethal(objtype *ob, objtype *hit) +{ + ob++; // shut up compiler + if (hit->obclass == keenobj) + { + KillKeen(); + } +} + + +/* +=============== += += R_Draw += +=============== +*/ + +void R_Draw(objtype *ob) +{ + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + + +/* +=============== += += R_Walk += +=============== +*/ + +void R_Walk(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (!ob->hitnorth) + { + ob->x -= ob->xmove; + ob->xdir = -ob->xdir; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + + +/* +=============== += += R_WalkNormal += += Actor will not walk onto tiles with special (e.g. deadly) north walls += +=============== +*/ + +void R_WalkNormal(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (!ob->hitnorth || (ob->hitnorth & ~7)) + { + ob->x -= ob->xmove*2; + ob->xdir = -ob->xdir; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + + +/* +=============== += += BadState += +=============== +*/ + +void BadState(void) +{ + Quit("Object with bad state!"); +} + + +/* +=============== += += R_Stunned += +=============== +*/ + +void R_Stunned(objtype *ob) +{ + Sint16 starx, stary; + + if (ob->hitwest || ob->hiteast) + ob->xspeed = 0; + + if (ob->hitsouth) + ob->yspeed = 0; + + if (ob->hitnorth) + { + ob->xspeed = ob->yspeed = 0; + if (ob->state->nextstate) + ChangeState(ob, ob->state->nextstate); + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + + starx = stary = 0; + switch (ob->temp4) + { +#if defined KEEN4 + case mimrockobj: + stary = -4*PIXGLOBAL; + break; + case eggobj: + starx = 8*PIXGLOBAL; + stary = -8*PIXGLOBAL; + break; + case treasureeaterobj: + starx = 8*PIXGLOBAL; + break; + case bounderobj: + starx = 4*PIXGLOBAL; + stary = -8*PIXGLOBAL; + break; + case wormouthobj: + starx = 4*PIXGLOBAL; + stary = -350; // -21.875 pixels (this one is a bit strange) + break; + case lickobj: + stary = -8*PIXGLOBAL; + break; + case inchwormobj: + starx = -4*PIXGLOBAL; + stary = -8*PIXGLOBAL; + break; + case slugobj: + stary = -8*PIXGLOBAL; + break; +#elif defined KEEN5 + case sparkyobj: + starx += 4*PIXGLOBAL; + break; + case amptonobj: + stary -= 8*PIXGLOBAL; + asm jmp done; // just to recreate the original code's quirks, feel free to delete this + break; + case scottieobj: + stary -= 8*PIXGLOBAL; + break; +#elif defined KEEN6 + case blooguardobj: + starx = 16*PIXGLOBAL; + stary = -4*PIXGLOBAL; + break; + case flectobj: + starx = 4*PIXGLOBAL; + stary = -4*PIXGLOBAL; + break; + case bloogobj: + case nospikeobj: + starx = 8*PIXGLOBAL; + stary = -4*PIXGLOBAL; + break; + case bloogletobj: + case babobbaobj: + stary = -8*PIXGLOBAL; + break; + case fleexobj: + starx = 16*PIXGLOBAL; + stary = 8*PIXGLOBAL; + break; + case ceilickobj: + stary = 12*PIXGLOBAL; + break; + default: + Quit("No star spec for object!"); +#endif + } +done: + + ob->temp1 = ob->temp1 + tics; + if (ob->temp1 > 10) + { + ob->temp1 -= 10; + if (++ob->temp2 == 3) + ob->temp2 = 0; + } + + RF_PlaceSprite((void **)&ob->temp3, ob->x+starx, ob->y+stary, ob->temp2+STUNSTARS1SPR, spritedraw, 3); +} + +//========================================================================== + +statetype sc_deadstate = {0, 0, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL}; +#pragma warn -sus //BadState is not a valid think/contact/react function. Nobody cares. +statetype sc_badstate = {0, 0, think, false, false, 0, 0, 0, &BadState, &BadState, &BadState, NULL}; +#pragma warn +sus \ No newline at end of file diff --git a/16/keen456/KEEN4-6/CK_TEXT.C b/16/keen456/KEEN4-6/CK_TEXT.C new file mode 100755 index 00000000..d4fdf65a --- /dev/null +++ b/16/keen456/KEEN4-6/CK_TEXT.C @@ -0,0 +1,971 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Wolfenstein 3-D Source Code + * Copyright (C) 1992 id Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#include "CK_DEF.H" + +/* +============================================================================= + +TEXT FORMATTING COMMANDS +------------------------ +^C Change text color +^E[enter] End of layout (all pages) +^G,,[enter] Draw a graphic and push margins +^P[enter] start new page, must be the first chars in a layout +^L,[ENTER] Locate to a specific spot, x in pixels, y in lines + +============================================================================= +*/ + +/* +============================================================================= + + LOCAL CONSTANTS + +============================================================================= +*/ + +#if GRMODE == CGAGR +#ifdef KEEN5 +#define BACKCOLOR 2 // CGA magenta +#else +#define BACKCOLOR WHITE +#endif +#else +#define BACKCOLOR RED +#endif + +#define WORDLIMIT 80 +#define FONTHEIGHT 10 +#define TOPMARGIN 10 +#define BOTTOMMARGIN 10 +#define LEFTMARGIN 10 +#define RIGHTMARGIN 10 +#define PICMARGIN 8 +#define SPACEWIDTH 7 +#define TEXTROWS ((200-TOPMARGIN-BOTTOMMARGIN)/FONTHEIGHT) +#define SCREENPIXWIDTH 320 +#define SCREENMID (SCREENPIXWIDTH/2) + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +Sint16 pagenum,numpages; +Uint16 leftmargin[TEXTROWS],rightmargin[TEXTROWS]; +char far *text; +Uint16 rowon; +Sint16 picx,picy,picnum,picdelay; +boolean layoutdone; + +Sint16 helpmenupos; + +//=========================================================================== + +/* +===================== += += RipToEOL += +===================== +*/ + +void RipToEOL(void) +{ + while (*text++ != '\n'); +} + + +/* +===================== += += ParseNumber += +===================== +*/ + +Sint16 ParseNumber(void) +{ + char c, buffer[80]; + char *bufptr; + +// +// scan until a number is found +// + c = *text; + while (c < '0' || c > '9') + c = *++text; + +// +// copy the number out +// + bufptr = buffer; + do + { + *bufptr = c; + bufptr++; + text++; + c = *text; + } while (c >= '0' && c <= '9'); + *bufptr = 0; + + return atoi(buffer); +} + + +/* +===================== += += ParsePicCommand += += Call with text pointing just after a ^P += Upon exit text points to the start of next line += +===================== +*/ + +void ParsePicCommand(void) +{ + picy = ParseNumber(); + picx = ParseNumber(); + picnum = ParseNumber(); + RipToEOL(); +} + +void ParseTimedCommand(void) +{ + picy = ParseNumber(); + picx = ParseNumber(); + picnum = ParseNumber(); + picdelay = ParseNumber(); + RipToEOL(); +} + +/* +===================== += += TimedPicCommand += += Call with text pointing just after a ^P += Upon exit text points to the start of next line += +===================== +*/ + +void TimedPicCommand(void) +{ + ParseTimedCommand(); + +// +// update the screen, and wait for time delay +// +#if GRMODE == CGAGR + VW_UpdateScreen(); +#else + VW_WaitVBL(1); + VW_ScreenToScreen(bufferofs, displayofs, 40, 200); +#endif + +// +// wait for time +// + TimeCount = 0; + while (picdelay > TimeCount) + ; + +// +// draw pic +// + VWB_DrawPic(picx & ~7, picy, picnum); +} + + +/* +===================== += += HandleCommand += +===================== +*/ + +void HandleCommand(void) +{ + Sint16 i,margin,top,bottom; + Sint16 picwidth,picheight,picmid; + + switch (toupper(*(++text))) + { + case 'B': + picy = ParseNumber(); + picx = ParseNumber(); + picwidth = ParseNumber(); + picheight = ParseNumber(); + VWB_Bar(picx, picy, picwidth, picheight, BACKCOLOR); + RipToEOL(); + break; + + case 'P': // ^P is start of next page, ^E is end of file + case 'E': + layoutdone = true; + text--; + break; + + case 'C': // ^c changes text color + i = toupper(*(++text)); + if (i >= '0' && i <= '9') + { + fontcolor = i + 0 - '0'; + } + else if (i >= 'A' && i <= 'F') + { + fontcolor = i + 10 - 'A'; + } +#if GRMODE == CGAGR + { + static Sint16 colormap[16] = {2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}; + // Note: This mapping is a bit problematic for Keen 5 CGA, + // since some colors get mapped to CGA magenta, which is + // used as the background color in that version. Luckily + // those colors aren't used in the Keen 5 texts anyway. + + fontcolor = colormap[fontcolor]; + } +#endif + fontcolor ^= BACKCOLOR; + text++; + break; + + case 'L': + py = ParseNumber(); + rowon = (py - 10)/10; + py = rowon * 10 + 10; + px = ParseNumber(); + while (*(text++) != '\n') // scan to end of line + ; + break; + + case 'T': // ^Tyyy,xxx,ppp,ttt waits ttt tics, then draws pic + TimedPicCommand(); + break; + + case 'G': // ^Gyyy,xxx,ppp draws graphic + ParsePicCommand(); + VWB_DrawPic(picx & ~7, picy, picnum); + picwidth = pictable[picnum-STARTPICS].width * BYTEPIXELS; + picheight = pictable[picnum-STARTPICS].height; + picmid = picx + picwidth/2; + // + // adjust margins + // + if (picmid > SCREENMID) + { + margin = picx-PICMARGIN; // new right margin + } + else + { + margin = picx+picwidth+PICMARGIN; // new left margin + } + top = (picy-TOPMARGIN)/FONTHEIGHT; + if (top < 0) + { + top = 0; + } + bottom = (picy+picheight-TOPMARGIN)/FONTHEIGHT; + if (bottom >= TEXTROWS) + { + bottom = TEXTROWS-1; + } + + for (i=top; i<=bottom; i++) + { + if (picmid > SCREENMID) + { + rightmargin[i] = margin; + } + else + { + leftmargin[i] = margin; + } + } + + // + // adjust this line if needed + // + if (leftmargin[rowon] > px) + { + px = leftmargin[rowon]; + } + break; + } +} + + +/* +===================== += += NewLine += +===================== +*/ + +void NewLine(void) +{ + char c; + + if (++rowon == TEXTROWS) + { + // + // overflowed the page, so skip until next page break + // + layoutdone = true; + do + { + if (*text == '^') + { + c = toupper(text[1]); + if (c == 'E' || c == 'P') + { + layoutdone = true; + return; + } + } + text++; + } while (1); + } + px = leftmargin[rowon]; + py += FONTHEIGHT; +} + + +/* +===================== += += HandleCtrls += +===================== +*/ + +void HandleCtrls(void) +{ + char c; + + c = *(text++); // get the character and advance + + if (c == '\n') + { + NewLine(); + return; + } +} + +/* +===================== += += HandleWord += +===================== +*/ + +void HandleWord(void) +{ + Uint16 wwidth, wheight, newpos, wordindex; + char word[WORDLIMIT]; + + // + // copy the next word into [word] + // + word[0] = *(text++); + wordindex = 1; + while (*text > ' ') + { + word[wordindex] = *(text++); + if (++wordindex == WORDLIMIT) + { + Quit("PageLayout: Word limit exceeded"); + } + } + word[wordindex] = 0; // stick a null at end for C + + // + // see if it fits on this line + // + VW_MeasurePropString(word, &wwidth, &wheight); + + while (rightmargin[rowon] < px+wwidth) + { + NewLine(); + if (layoutdone) + { + return; // overflowed page + } + } + + // + // print it + // + newpos = px+wwidth; + VWB_DrawPropString(word); + px = newpos; + + // + // suck up any extra spaces + // + while (*text == ' ') + { + px += SPACEWIDTH; + text++; + } +} + +/* +===================== += += PageLayout += += Clears the screen, draws the pics on the page, and word wraps the text. += Returns a pointer to the terminating command += +===================== +*/ + +void PageLayout(boolean shownumber) +{ + Sint16 oldcolor, i; + char c; + + oldcolor = fontcolor; + +#if GRMODE == CGAGR + fontcolor = BLACK^BACKCOLOR; +#else + fontcolor = YELLOW^BACKCOLOR; +#endif + +// +// clear the screen +// + VWB_Bar(0, 0, 320, 200, BACKCOLOR); +#ifndef KEEN6 + VWB_DrawPic( 0, 0, H_TOPWINDOWPIC); + VWB_DrawPic( 0, 8, H_LEFTWINDOWPIC); + VWB_DrawPic(312, 8, H_RIGHTWINDOWPIC); + if (shownumber) + { + VWB_DrawPic(8, 176, H_BOTTOMINFOPIC); + } + else + { + VWB_DrawPic(8, 192, H_BOTTOMWINDOWPIC); + } +#endif + + for (i=0; i 3) + { + helpmenupos = 3; + } +#else + else if (helpmenupos > 4) + { + helpmenupos = 4; + } +#endif + VWB_DrawPic(48, 24*helpmenupos+48, H_HANDPIC); + VW_UpdateScreen(); + VWB_Bar(48, 24*helpmenupos+48, 39, 24, BACKCOLOR); + IN_ReadControl(0, &control); + IN_ReadCursor(&cursor); + if (LastScan) + { + key = LastScan; + IN_ClearKeysDown(); + switch (key) + { + case sc_UpArrow: + helpmenupos--; + break; + case sc_DownArrow: + helpmenupos++; + break; + case sc_Enter: + VW_ClearVideo(BACKCOLOR); + return helpmenupos; + case sc_Escape: + VW_ClearVideo(BACKCOLOR); + return -1; + } + } + ydelta += cursor.y; + if (cursor.button0 || cursor.button1 || control.button0 || control.button1) + { + VW_ClearVideo(BACKCOLOR); + return helpmenupos; + } + if (ydelta < -40) + { + ydelta += 40; + helpmenupos--; + } + else if (ydelta > 40) + { + ydelta -= 40; + helpmenupos++; + } + } while (1); +} + +/* +================= += += HelpScreens += +================= +*/ +void HelpScreens(void) +{ + static Uint16 layouttable[5] = + { + T_HELPART, + T_CONTRART, + T_STORYART, +#ifndef GOODTIMES + T_ORDERART, +#endif + T_IDART + }; + + Uint16 olddisplayofs, oldbufferofs, oldfontnumber, temp; + Sint16 pos; + boolean newpage; + + oldfontnumber = fontnumber; + olddisplayofs = displayofs; + oldbufferofs = bufferofs; + fontnumber = 0; + +#if GRMODE == EGAGR + EGAMAPMASK(15); +#endif + + CA_UpLevel(); + CA_SetGrPurge(); + VW_ClearVideo(BACKCOLOR); + +#if GRMODE == EGAGR + RF_FixOfs(); + bufferofs = 0; + displayofs = 0x8000; + VW_SetScreen(displayofs, 0); +#endif + +#ifdef KEEN5 + StartMusic(19); +#endif + + do + { + pos = HelpMenu(); + + VW_ClearVideo(BACKCOLOR); + + if (pos == -1) + { + CA_DownLevel(); + IN_ClearKeysDown(); + bufferofs = oldbufferofs; + displayofs = olddisplayofs; + fontnumber = oldfontnumber; + VW_ClearVideo(BACKCOLOR); + RF_FixOfs(); +#ifdef KEEN5 + StopMusic(); // Note: it's safer to call StopMusic BEFORE CA_DownLevel +#endif + return; + } + + pos = layouttable[pos]; + CA_CacheGrChunk(pos); + text = grsegs[pos]; + CacheLayoutGraphics(); + + newpage = true; + do + { + if (newpage) + { + newpage = false; + PageLayout(true); +#if GRMODE == CGAGR + VW_UpdateScreen(); +#else + VW_SetScreen(bufferofs, 0); + temp = displayofs; + displayofs = bufferofs; + bufferofs = temp; +#endif + } + + LastScan = 0; + while (!LastScan); + + switch (LastScan) + { + case sc_UpArrow: + case sc_LeftArrow: + case sc_PgUp: + if (pagenum > 1) + { + BackPage(); + BackPage(); + newpage = true; + } + break; + case sc_DownArrow: + case sc_RightArrow: + case sc_PgDn: + if (pagenum < numpages) + { + newpage = true; + } + break; + } + } while (LastScan != sc_Escape); + + MM_FreePtr(&grsegs[pos]); + IN_ClearKeysDown(); + } while (true); +} + +#endif + +//=========================================================================== + +/* +================= += += FinaleLayout += +================= +*/ +void FinaleLayout(void) +{ + char _seg *textseg; + Sint16 i; + + VW_ClearVideo(BACKCOLOR); + RF_FixOfs(); + CA_UpLevel(); + CA_SetGrPurge(); + CA_CacheGrChunk(H_FLASHARROW2PIC); + CA_CacheGrChunk(H_FLASHARROW1PIC); + +#ifdef KEEN5 + if (gamestate.leveldone[13] == ex_fusebroke) + { + CA_CacheGrChunk(T_ENDART2); + textseg = grsegs[T_ENDART2]; + } + else + { + CA_CacheGrChunk(T_ENDART); + textseg = grsegs[T_ENDART]; + } +#else + CA_CacheGrChunk(T_ENDART); + textseg = grsegs[T_ENDART]; +#endif + + text = textseg; + CacheLayoutGraphics(); + + StartMusic(ENDINGMUSIC); + + while (pagenum < numpages) + { + PageLayout(false); + IN_ClearKeysDown(); +#if GRMODE == CGAGR + VW_UpdateScreen(); +#else + VW_SetScreen(bufferofs, 0); +#endif + + do + { + VWB_DrawPic(298, 184, H_FLASHARROW1PIC); +#if GRMODE == CGAGR + VW_UpdateScreen(); +#endif + for (i=0; i + Copyright (C) + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License along + with this program; if not, write to the Free Software Foundation, Inc., + 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +Also add information on how to contact you by electronic and paper mail. + +If the program is interactive, make it output a short notice like this +when it starts in an interactive mode: + + Gnomovision version 69, Copyright (C) year name of author + Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'. + This is free software, and you are welcome to redistribute it + under certain conditions; type `show c' for details. + +The hypothetical commands `show w' and `show c' should show the appropriate +parts of the General Public License. Of course, the commands you use may +be called something other than `show w' and `show c'; they could even be +mouse-clicks or menu items--whatever suits your program. + +You should also get your employer (if you work as a programmer) or your +school, if any, to sign a "copyright disclaimer" for the program, if +necessary. Here is a sample; alter the names: + + Yoyodyne, Inc., hereby disclaims all copyright interest in the program + `Gnomovision' (which makes passes at compilers) written by James Hacker. + + , 1 April 1989 + Ty Coon, President of Vice + +This General Public License does not permit incorporating your program into +proprietary programs. If your program is a subroutine library, you may +consider it more useful to permit linking proprietary applications with the +library. If this is what you want to do, use the GNU Lesser General +Public License instead of this License. diff --git a/16/keen456/KEEN4-6/ID_CA.C b/16/keen456/KEEN4-6/ID_CA.C new file mode 100755 index 00000000..a8323a21 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_CA.C @@ -0,0 +1,2151 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_CA.C + +/* +============================================================================= + +Id Software Caching Manager +--------------------------- + +Must be started BEFORE the memory manager, because it needs to get the headers +loaded into the data segment + +============================================================================= +*/ + +#include "ID_HEADS.H" +#pragma hdrstop + +#pragma warn -pro +#pragma warn -use + +#define THREEBYTEGRSTARTS + +/* +============================================================================= + + LOCAL CONSTANTS + +============================================================================= +*/ + +typedef struct +{ + unsigned bit0,bit1; // 0-255 is a character, > is a pointer to a node +} huffnode; + + +typedef struct +{ + unsigned RLEWtag; + long headeroffsets[100]; + byte tileinfo[]; +} mapfiletype; + + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +byte _seg *tinf; +int mapon; + +unsigned _seg *mapsegs[3]; +maptype _seg *mapheaderseg[NUMMAPS]; +byte _seg *audiosegs[NUMSNDCHUNKS]; +void _seg *grsegs[NUMCHUNKS]; + +byte far grneeded[NUMCHUNKS]; +byte ca_levelbit,ca_levelnum; + +int profilehandle,debughandle; + +void (*drawcachebox) (char *title, unsigned numcache); +void (*updatecachebox) (void); +void (*finishcachebox) (void); + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +extern long far CGAhead; +extern long far EGAhead; +extern byte CGAdict; +extern byte EGAdict; +extern byte far maphead; +extern byte mapdict; +extern byte far audiohead; +extern byte audiodict; + + +long _seg *grstarts; // array of offsets in egagraph, -1 for sparse +long _seg *audiostarts; // array of offsets in audio / audiot + +#ifdef GRHEADERLINKED +huffnode *grhuffman; +#else +huffnode grhuffman[255]; +#endif + +#ifdef AUDIOHEADERLINKED +huffnode *audiohuffman; +#else +huffnode audiohuffman[255]; +#endif + + +int grhandle; // handle to EGAGRAPH +int maphandle; // handle to MAPTEMP / GAMEMAPS +int audiohandle; // handle to AUDIOT / AUDIO + +long chunkcomplen,chunkexplen; + +SDMode oldsoundmode; + + + +void CAL_DialogDraw (char *title,unsigned numcache); +void CAL_DialogUpdate (void); +void CAL_DialogFinish (void); +void CAL_CarmackExpand (unsigned far *source, unsigned far *dest, + unsigned length); + + +#ifdef THREEBYTEGRSTARTS +#define FILEPOSSIZE 3 +//#define GRFILEPOS(c) (*(long far *)(((byte far *)grstarts)+(c)*3)&0xffffff) +long GRFILEPOS(int c) +{ + long value; + int offset; + + offset = c*3; + + value = *(long far *)(((byte far *)grstarts)+offset); + + value &= 0x00ffffffl; + + if (value == 0xffffffl) + value = -1; + + return value; +}; +#else +#define FILEPOSSIZE 4 +#define GRFILEPOS(c) (grstarts[c]) +#endif + +/* +============================================================================= + + LOW LEVEL ROUTINES + +============================================================================= +*/ + +/* +============================ += += CA_OpenDebug / CA_CloseDebug += += Opens a binary file with the handle "debughandle" += +============================ +*/ + +void CA_OpenDebug (void) +{ + unlink ("DEBUG.TXT"); + debughandle = open("DEBUG.TXT", O_CREAT | O_WRONLY | O_TEXT); +} + +void CA_CloseDebug (void) +{ + close (debughandle); +} + + + +/* +============================ += += CAL_GetGrChunkLength += += Gets the length of an explicit length chunk (not tiles) += The file pointer is positioned so the compressed data can be read in next. += +============================ +*/ + +void CAL_GetGrChunkLength (int chunk) +{ + lseek(grhandle,GRFILEPOS(chunk),SEEK_SET); + read(grhandle,&chunkexplen,sizeof(chunkexplen)); + chunkcomplen = GRFILEPOS(chunk+1)-GRFILEPOS(chunk)-4; +} + + +/* +========================== += += CA_FarRead += += Read from a file to a far pointer += +========================== +*/ + +boolean CA_FarRead (int handle, byte far *dest, long length) +{ + if (length>0xffffl) + Quit ("CA_FarRead doesn't support 64K reads yet!"); + +asm push ds +asm mov bx,[handle] +asm mov cx,[WORD PTR length] +asm mov dx,[WORD PTR dest] +asm mov ds,[WORD PTR dest+2] +asm mov ah,0x3f // READ w/handle +asm int 21h +asm pop ds +asm jnc good + errno = _AX; + return false; +good: +asm cmp ax,[WORD PTR length] +asm je done + errno = EINVFMT; // user manager knows this is bad read + return false; +done: + return true; +} + + +/* +========================== += += CA_SegWrite += += Write from a file to a far pointer += +========================== +*/ + +boolean CA_FarWrite (int handle, byte far *source, long length) +{ + if (length>0xffffl) + Quit ("CA_FarWrite doesn't support 64K reads yet!"); + +asm push ds +asm mov bx,[handle] +asm mov cx,[WORD PTR length] +asm mov dx,[WORD PTR source] +asm mov ds,[WORD PTR source+2] +asm mov ah,0x40 // WRITE w/handle +asm int 21h +asm pop ds +asm jnc good + errno = _AX; + return false; +good: +asm cmp ax,[WORD PTR length] +asm je done + errno = ENOMEM; // user manager knows this is bad write + return false; + +done: + return true; +} + + +/* +========================== += += CA_ReadFile += += Reads a file into an allready allocated buffer += +========================== +*/ + +boolean CA_ReadFile (char *filename, memptr *ptr) +{ + int handle; + long size; + + if ((handle = open(filename,O_RDONLY | O_BINARY, S_IREAD)) == -1) + return false; + + size = filelength (handle); + if (!CA_FarRead (handle,*ptr,size)) + { + close (handle); + return false; + } + close (handle); + return true; +} + + + +/* +========================== += += CA_LoadFile += += Allocate space for and load a file += +========================== +*/ + +boolean CA_LoadFile (char *filename, memptr *ptr) +{ + int handle; + long size; + + if ((handle = open(filename,O_RDONLY | O_BINARY, S_IREAD)) == -1) + return false; + + size = filelength (handle); + MM_GetPtr (ptr,size); + if (!CA_FarRead (handle,*ptr,size)) + { + close (handle); + return false; + } + close (handle); + return true; +} + +/* +============================================================================ + + COMPRESSION routines, see JHUFF.C for more + +============================================================================ +*/ + + + +/* +=============== += += CAL_OptimizeNodes += += Goes through a huffman table and changes the 256-511 node numbers to the += actular address of the node. Must be called before CAL_HuffExpand += +=============== +*/ + +void CAL_OptimizeNodes (huffnode *table) +{ + huffnode *node; + int i; + + node = table; + + for (i=0;i<255;i++) + { + if (node->bit0 >= 256) + node->bit0 = (unsigned)(table+(node->bit0-256)); + if (node->bit1 >= 256) + node->bit1 = (unsigned)(table+(node->bit1-256)); + node++; + } +} + + + +/* +====================== += += CAL_HuffExpand += += Length is the length of the EXPANDED data += +====================== +*/ + +void CAL_HuffExpand (byte huge *source, byte huge *dest, + long length,huffnode *hufftable) +{ +// unsigned bit,byte,node,code; + unsigned sourceseg,sourceoff,destseg,destoff,endoff; + huffnode *headptr; +// huffnode *nodeon; + + headptr = hufftable+254; // head node is allways node 254 + + source++; // normalize + source--; + dest++; + dest--; + + sourceseg = FP_SEG(source); + sourceoff = FP_OFF(source); + destseg = FP_SEG(dest); + destoff = FP_OFF(dest); + endoff = destoff+length; + +// +// ds:si source +// es:di dest +// ss:bx node pointer +// + + if (length <0xfff0) + { + +//-------------------------- +// expand less than 64k of data +//-------------------------- + +asm mov bx,[headptr] + +asm mov si,[sourceoff] +asm mov di,[destoff] +asm mov es,[destseg] +asm mov ds,[sourceseg] +asm mov ax,[endoff] + +asm mov ch,[si] // load first byte +asm inc si +asm mov cl,1 + +expandshort: +asm test ch,cl // bit set? +asm jnz bit1short +asm mov dx,[ss:bx] // take bit0 path from node +asm shl cl,1 // advance to next bit position +asm jc newbyteshort +asm jnc sourceupshort + +bit1short: +asm mov dx,[ss:bx+2] // take bit1 path +asm shl cl,1 // advance to next bit position +asm jnc sourceupshort + +newbyteshort: +asm mov ch,[si] // load next byte +asm inc si +asm mov cl,1 // back to first bit + +sourceupshort: +asm or dh,dh // if dx<256 its a byte, else move node +asm jz storebyteshort +asm mov bx,dx // next node = (huffnode *)code +asm jmp expandshort + +storebyteshort: +asm mov [es:di],dl +asm inc di // write a decopmpressed byte out +asm mov bx,[headptr] // back to the head node for next bit + +asm cmp di,ax // done? +asm jne expandshort + } + else + { + +//-------------------------- +// expand more than 64k of data +//-------------------------- + + length--; + +asm mov bx,[headptr] +asm mov cl,1 + +asm mov si,[sourceoff] +asm mov di,[destoff] +asm mov es,[destseg] +asm mov ds,[sourceseg] + +asm lodsb // load first byte + +expand: +asm test al,cl // bit set? +asm jnz bit1 +asm mov dx,[ss:bx] // take bit0 path from node +asm jmp gotcode +bit1: +asm mov dx,[ss:bx+2] // take bit1 path + +gotcode: +asm shl cl,1 // advance to next bit position +asm jnc sourceup +asm lodsb +asm cmp si,0x10 // normalize ds:si +asm jb sinorm +asm mov cx,ds +asm inc cx +asm mov ds,cx +asm xor si,si +sinorm: +asm mov cl,1 // back to first bit + +sourceup: +asm or dh,dh // if dx<256 its a byte, else move node +asm jz storebyte +asm mov bx,dx // next node = (huffnode *)code +asm jmp expand + +storebyte: +asm mov [es:di],dl +asm inc di // write a decopmpressed byte out +asm mov bx,[headptr] // back to the head node for next bit + +asm cmp di,0x10 // normalize es:di +asm jb dinorm +asm mov dx,es +asm inc dx +asm mov es,dx +asm xor di,di +dinorm: + +asm sub [WORD PTR ss:length],1 +asm jnc expand +asm dec [WORD PTR ss:length+2] +asm jns expand // when length = ffff ffff, done + + } + +asm mov ax,ss +asm mov ds,ax + +} + + +/* +====================== += += CAL_CarmackExpand += += Length is the length of the EXPANDED data += +====================== +*/ + +#define NEARTAG 0xa7 +#define FARTAG 0xa8 + +void CAL_CarmackExpand (unsigned far *source, unsigned far *dest, unsigned length) +{ + unsigned ch,chhigh,count,offset; + unsigned far *copyptr, far *inptr, far *outptr; + + length/=2; + + inptr = source; + outptr = dest; + + while (length) + { + ch = *inptr++; + chhigh = ch>>8; + if (chhigh == NEARTAG) + { + count = ch&0xff; + if (!count) + { // have to insert a word containing the tag byte + ch |= *((unsigned char far *)inptr)++; + *outptr++ = ch; + length--; + } + else + { + offset = *((unsigned char far *)inptr)++; + copyptr = outptr - offset; + length -= count; + while (count--) + *outptr++ = *copyptr++; + } + } + else if (chhigh == FARTAG) + { + count = ch&0xff; + if (!count) + { // have to insert a word containing the tag byte + ch |= *((unsigned char far *)inptr)++; + *outptr++ = ch; + length --; + } + else + { + offset = *inptr++; + copyptr = dest + offset; + length -= count; + while (count--) + *outptr++ = *copyptr++; + } + } + else + { + *outptr++ = ch; + length --; + } + } +} + + + +/* +====================== += += CA_RLEWcompress += +====================== +*/ + +long CA_RLEWCompress (unsigned huge *source, long length, unsigned huge *dest, + unsigned rlewtag) +{ + long complength; + unsigned value,count,i; + unsigned huge *start,huge *end; + + start = dest; + + end = source + (length+1)/2; + +// +// compress it +// + do + { + count = 1; + value = *source++; + while (*source == value && source3 || value == rlewtag) + { + // + // send a tag / count / value string + // + *dest++ = rlewtag; + *dest++ = count; + *dest++ = value; + } + else + { + // + // send word without compressing + // + for (i=1;i<=count;i++) + *dest++ = value; + } + + } while (source0 + MM_GetPtr(&(memptr)pictable,NUMPICS*sizeof(pictabletype)); + CAL_GetGrChunkLength(STRUCTPIC); // position file pointer + MM_GetPtr(&compseg,chunkcomplen); + CA_FarRead (grhandle,compseg,chunkcomplen); + CAL_HuffExpand (compseg, (byte huge *)pictable,NUMPICS*sizeof(pictabletype),grhuffman); + MM_FreePtr(&compseg); +#endif + +#if NUMPICM>0 + MM_GetPtr(&(memptr)picmtable,NUMPICM*sizeof(pictabletype)); + CAL_GetGrChunkLength(STRUCTPICM); // position file pointer + MM_GetPtr(&compseg,chunkcomplen); + CA_FarRead (grhandle,compseg,chunkcomplen); + CAL_HuffExpand (compseg, (byte huge *)picmtable,NUMPICS*sizeof(pictabletype),grhuffman); + MM_FreePtr(&compseg); +#endif + +#if NUMSPRITES>0 + MM_GetPtr(&(memptr)spritetable,NUMSPRITES*sizeof(spritetabletype)); + CAL_GetGrChunkLength(STRUCTSPRITE); // position file pointer + MM_GetPtr(&compseg,chunkcomplen); + CA_FarRead (grhandle,compseg,chunkcomplen); + CAL_HuffExpand (compseg, (byte huge *)spritetable,NUMSPRITES*sizeof(spritetabletype),grhuffman); + MM_FreePtr(&compseg); +#endif + +} + +//========================================================================== + + +/* +====================== += += CAL_SetupMapFile += +====================== +*/ + +void CAL_SetupMapFile (void) +{ + int handle; + long length; + +// +// load maphead.ext (offsets and tileinfo for map file) +// +#ifndef MAPHEADERLINKED + if ((handle = open("MAPHEAD."EXTENSION, + O_RDONLY | O_BINARY, S_IREAD)) == -1) + Quit ("Can't open MAPHEAD."EXTENSION"!"); + length = filelength(handle); + MM_GetPtr (&(memptr)tinf,length); + CA_FarRead(handle, tinf, length); + close(handle); +#else + + tinf = (byte _seg *)FP_SEG(&maphead); + +#endif + +// +// open the data file +// +#ifdef MAPHEADERLINKED + if ((maphandle = open("GAMEMAPS."EXTENSION, + O_RDONLY | O_BINARY, S_IREAD)) == -1) + Quit ("Can't open GAMEMAPS."EXTENSION"!"); +#else + if ((maphandle = open("MAPTEMP."EXTENSION, + O_RDONLY | O_BINARY, S_IREAD)) == -1) + Quit ("Can't open MAPTEMP."EXTENSION"!"); +#endif +} + +//========================================================================== + + +/* +====================== += += CAL_SetupAudioFile += +====================== +*/ + +void CAL_SetupAudioFile (void) +{ + int handle; + long length; + +// +// load maphead.ext (offsets and tileinfo for map file) +// +#ifndef AUDIOHEADERLINKED + if ((handle = open("AUDIOHED."EXTENSION, + O_RDONLY | O_BINARY, S_IREAD)) == -1) + Quit ("Can't open AUDIOHED."EXTENSION"!"); + length = filelength(handle); + MM_GetPtr (&(memptr)audiostarts,length); + CA_FarRead(handle, (byte far *)audiostarts, length); + close(handle); +#else + audiohuffman = (huffnode *)&audiodict; + CAL_OptimizeNodes (audiohuffman); + audiostarts = (long _seg *)FP_SEG(&audiohead); +#endif + +// +// open the data file +// +#ifndef AUDIOHEADERLINKED + if ((audiohandle = open("AUDIOT."EXTENSION, + O_RDONLY | O_BINARY, S_IREAD)) == -1) + Quit ("Can't open AUDIOT."EXTENSION"!"); +#else + if ((audiohandle = open("AUDIO."EXTENSION, + O_RDONLY | O_BINARY, S_IREAD)) == -1) + Quit ("Can't open AUDIO."EXTENSION"!"); +#endif +} + +//========================================================================== + + +/* +====================== += += CA_Startup += += Open all files and load in headers += +====================== +*/ + +void CA_Startup (void) +{ +#ifdef PROFILE + unlink ("PROFILE.TXT"); + profilehandle = open("PROFILE.TXT", O_CREAT | O_WRONLY | O_TEXT); +#endif + +#ifndef NOMAPS + CAL_SetupMapFile (); +#endif +#ifndef NOGRAPHICS + CAL_SetupGrFile (); +#endif +#ifndef NOAUDIO + CAL_SetupAudioFile (); +#endif + + mapon = -1; + ca_levelbit = 1; + ca_levelnum = 0; + + drawcachebox = CAL_DialogDraw; + updatecachebox = CAL_DialogUpdate; + finishcachebox = CAL_DialogFinish; +} + +//========================================================================== + + +/* +====================== += += CA_Shutdown += += Closes all files += +====================== +*/ + +void CA_Shutdown (void) +{ +#ifdef PROFILE + close (profilehandle); +#endif + + close (maphandle); + close (grhandle); + close (audiohandle); +} + +//=========================================================================== + +/* +====================== += += CA_CacheAudioChunk += +====================== +*/ + +void CA_CacheAudioChunk (int chunk) +{ + long pos,compressed; +#ifdef AUDIOHEADERLINKED + long expanded; + memptr bigbufferseg; + byte far *source; +#endif + + if (audiosegs[chunk]) + { + MM_SetPurge (&(memptr)audiosegs[chunk],0); + return; // allready in memory + } + +// +// load the chunk into a buffer, either the miscbuffer if it fits, or allocate +// a larger buffer +// + pos = audiostarts[chunk]; + compressed = audiostarts[chunk+1]-pos; + + lseek(audiohandle,pos,SEEK_SET); + +#ifndef AUDIOHEADERLINKED + + MM_GetPtr (&(memptr)audiosegs[chunk],compressed); + if (mmerror) + return; + + CA_FarRead(audiohandle,audiosegs[chunk],compressed); + +#else + + if (compressed<=BUFFERSIZE) + { + CA_FarRead(audiohandle,bufferseg,compressed); + source = bufferseg; + } + else + { + MM_GetPtr(&bigbufferseg,compressed); + if (mmerror) + return; + MM_SetLock (&bigbufferseg,true); + CA_FarRead(audiohandle,bigbufferseg,compressed); + source = bigbufferseg; + } + + expanded = *(long far *)source; + source += 4; // skip over length + MM_GetPtr (&(memptr)audiosegs[chunk],expanded); + if (mmerror) + goto done; + CAL_HuffExpand (source,audiosegs[chunk],expanded,audiohuffman); + +done: + if (compressed>BUFFERSIZE) + MM_FreePtr(&bigbufferseg); +#endif +} + +//=========================================================================== + +/* +====================== += += CA_LoadAllSounds += += Purges all sounds, then loads all new ones (mode switch) += +====================== +*/ + +void CA_LoadAllSounds (void) +{ + unsigned start,i; + + switch (oldsoundmode) + { + case sdm_Off: + goto cachein; + case sdm_PC: + start = STARTPCSOUNDS; + break; + case sdm_AdLib: + start = STARTADLIBSOUNDS; + break; + } + + for (i=0;iwidth*spr->height; + MM_GetPtr (&grsegs[chunk],smallplane*2+MAXSHIFTS*6); + if (mmerror) + return; + dest = (spritetype _seg *)grsegs[chunk]; + dest->sourceoffset[0] = MAXSHIFTS*6; // start data after 3 unsigned tables + dest->planesize[0] = smallplane; + dest->width[0] = spr->width; + +// +// expand the unshifted shape +// + CAL_HuffExpand (compressed, &dest->data[0],smallplane*2,grhuffman); + +#endif + + +#if GRMODE == EGAGR + +// +// calculate sizes +// + spr = &spritetable[chunk-STARTSPRITES]; + smallplane = spr->width*spr->height; + bigplane = (spr->width+1)*spr->height; + + shiftstarts[0] = MAXSHIFTS*6; // start data after 3 unsigned tables + shiftstarts[1] = shiftstarts[0] + smallplane*5; // 5 planes in a sprite + shiftstarts[2] = shiftstarts[1] + bigplane*5; + shiftstarts[3] = shiftstarts[2] + bigplane*5; + shiftstarts[4] = shiftstarts[3] + bigplane*5; // nothing ever put here + + expanded = shiftstarts[spr->shifts]; + MM_GetPtr (&grsegs[chunk],expanded); + if (mmerror) + return; + dest = (spritetype _seg *)grsegs[chunk]; + +// +// expand the unshifted shape +// + CAL_HuffExpand (compressed, &dest->data[0],smallplane*5,grhuffman); + +// +// make the shifts! +// + switch (spr->shifts) + { + case 1: + for (i=0;i<4;i++) + { + dest->sourceoffset[i] = shiftstarts[0]; + dest->planesize[i] = smallplane; + dest->width[i] = spr->width; + } + break; + + case 2: + for (i=0;i<2;i++) + { + dest->sourceoffset[i] = shiftstarts[0]; + dest->planesize[i] = smallplane; + dest->width[i] = spr->width; + } + for (i=2;i<4;i++) + { + dest->sourceoffset[i] = shiftstarts[1]; + dest->planesize[i] = bigplane; + dest->width[i] = spr->width+1; + } + CAL_ShiftSprite ((unsigned)grsegs[chunk],dest->sourceoffset[0], + dest->sourceoffset[2],spr->width,spr->height,4); + break; + + case 4: + dest->sourceoffset[0] = shiftstarts[0]; + dest->planesize[0] = smallplane; + dest->width[0] = spr->width; + + dest->sourceoffset[1] = shiftstarts[1]; + dest->planesize[1] = bigplane; + dest->width[1] = spr->width+1; + CAL_ShiftSprite ((unsigned)grsegs[chunk],dest->sourceoffset[0], + dest->sourceoffset[1],spr->width,spr->height,2); + + dest->sourceoffset[2] = shiftstarts[2]; + dest->planesize[2] = bigplane; + dest->width[2] = spr->width+1; + CAL_ShiftSprite ((unsigned)grsegs[chunk],dest->sourceoffset[0], + dest->sourceoffset[2],spr->width,spr->height,4); + + dest->sourceoffset[3] = shiftstarts[3]; + dest->planesize[3] = bigplane; + dest->width[3] = spr->width+1; + CAL_ShiftSprite ((unsigned)grsegs[chunk],dest->sourceoffset[0], + dest->sourceoffset[3],spr->width,spr->height,6); + + break; + + default: + Quit ("CAL_CacheSprite: Bad shifts number!"); + } + +#endif +} + +//=========================================================================== + + +/* +====================== += += CAL_ExpandGrChunk += += Does whatever is needed with a pointer to a compressed chunk += +====================== +*/ + +void CAL_ExpandGrChunk (int chunk, byte far *source) +{ + long expanded; + + + if (chunk >= STARTTILE8 && chunk < STARTEXTERNS) + { + // + // expanded sizes of tile8/16/32 are implicit + // + +#if GRMODE == EGAGR +#define BLOCK 32 +#define MASKBLOCK 40 +#endif + +#if GRMODE == CGAGR +#define BLOCK 16 +#define MASKBLOCK 32 +#endif + + if (chunk=STARTSPRITES && chunk< STARTTILE8) + CAL_CacheSprite(chunk,source); + else + { + MM_GetPtr (&grsegs[chunk],expanded); + if (mmerror) + return; + CAL_HuffExpand (source,grsegs[chunk],expanded,grhuffman); + } +} + + +/* +====================== += += CAL_ReadGrChunk += += Gets a chunk off disk, optimizing reads to general buffer += +====================== +*/ + +void CAL_ReadGrChunk (int chunk) +{ + long pos,compressed; + memptr bigbufferseg; + byte far *source; + int next; + +// +// load the chunk into a buffer, either the miscbuffer if it fits, or allocate +// a larger buffer +// + pos = GRFILEPOS(chunk); + if (pos<0) // $FFFFFFFF start is a sparse tile + return; + + next = chunk +1; + while (GRFILEPOS(next) == -1) // skip past any sparse tiles + next++; + + compressed = GRFILEPOS(next)-pos; + + lseek(grhandle,pos,SEEK_SET); + + if (compressed<=BUFFERSIZE) + { + CA_FarRead(grhandle,bufferseg,compressed); + source = bufferseg; + } + else + { + MM_GetPtr(&bigbufferseg,compressed); + if (mmerror) + return; + MM_SetLock (&bigbufferseg,true); + CA_FarRead(grhandle,bigbufferseg,compressed); + source = bigbufferseg; + } + + CAL_ExpandGrChunk (chunk,source); + + if (compressed>BUFFERSIZE) + MM_FreePtr(&bigbufferseg); +} + + +/* +====================== += += CA_CacheGrChunk += += Makes sure a given chunk is in memory, loadiing it if needed += +====================== +*/ + +void CA_CacheGrChunk (int chunk) +{ + long pos,compressed; + memptr bigbufferseg; + byte far *source; + int next; + + grneeded[chunk] |= ca_levelbit; // make sure it doesn't get removed + if (grsegs[chunk]) + { + MM_SetPurge (&grsegs[chunk],0); + return; // allready in memory + } + +// +// load the chunk into a buffer, either the miscbuffer if it fits, or allocate +// a larger buffer +// + pos = GRFILEPOS(chunk); + if (pos<0) // $FFFFFFFF start is a sparse tile + return; + + next = chunk +1; + while (GRFILEPOS(next) == -1) // skip past any sparse tiles + next++; + + compressed = GRFILEPOS(next)-pos; + + lseek(grhandle,pos,SEEK_SET); + + if (compressed<=BUFFERSIZE) + { + CA_FarRead(grhandle,bufferseg,compressed); + source = bufferseg; + } + else + { + MM_GetPtr(&bigbufferseg,compressed); + MM_SetLock (&bigbufferseg,true); + CA_FarRead(grhandle,bigbufferseg,compressed); + source = bigbufferseg; + } + + CAL_ExpandGrChunk (chunk,source); + + if (compressed>BUFFERSIZE) + MM_FreePtr(&bigbufferseg); +} + + + +//========================================================================== + +/* +====================== += += CA_CacheMap += +====================== +*/ + +void CA_CacheMap (int mapnum) +{ + long pos,compressed; + int plane; + memptr *dest,bigbufferseg; + unsigned size; + unsigned far *source; +#ifdef MAPHEADERLINKED + memptr buffer2seg; + long expanded; +#endif + + +// +// free up memory from last map +// + if (mapon>-1 && mapheaderseg[mapon]) + MM_SetPurge (&(memptr)mapheaderseg[mapon],3); + for (plane=0;planeheaderoffsets[mapnum]; + if (pos<0) // $FFFFFFFF start is a sparse map + Quit ("CA_CacheMap: Tried to load a non existent map!"); + + MM_GetPtr(&(memptr)mapheaderseg[mapnum],sizeof(maptype)); + lseek(maphandle,pos,SEEK_SET); + CA_FarRead (maphandle,(memptr)mapheaderseg[mapnum],sizeof(maptype)); + } + else + MM_SetPurge (&(memptr)mapheaderseg[mapnum],0); + +// +// load the planes in +// If a plane's pointer still exists it will be overwritten (levels are +// allways reloaded, never cached) +// + + size = mapheaderseg[mapnum]->width * mapheaderseg[mapnum]->height * 2; + + for (plane = 0; planeplanestart[plane]; + compressed = mapheaderseg[mapnum]->planelength[plane]; + + if (!compressed) + continue; // the plane is not used in this game + + dest = &(memptr)mapsegs[plane]; + MM_GetPtr(dest,size); + + lseek(maphandle,pos,SEEK_SET); + if (compressed<=BUFFERSIZE) + source = bufferseg; + else + { + MM_GetPtr(&bigbufferseg,compressed); + MM_SetLock (&bigbufferseg,true); + source = bigbufferseg; + } + + CA_FarRead(maphandle,(byte far *)source,compressed); +#ifdef MAPHEADERLINKED + // + // unhuffman, then unRLEW + // The huffman'd chunk has a two byte expanded length first + // The resulting RLEW chunk also does, even though it's not really + // needed + // + expanded = *source; + source++; + MM_GetPtr (&buffer2seg,expanded); + CAL_CarmackExpand (source, (unsigned far *)buffer2seg,expanded); + CA_RLEWexpand (((unsigned far *)buffer2seg)+1,*dest,size, + ((mapfiletype _seg *)tinf)->RLEWtag); + MM_FreePtr (&buffer2seg); + +#else + // + // unRLEW, skipping expanded length + // + CA_RLEWexpand (source+1, *dest,size, + ((mapfiletype _seg *)tinf)->RLEWtag); +#endif + + if (compressed>BUFFERSIZE) + MM_FreePtr(&bigbufferseg); + } +} + +//=========================================================================== + +/* +====================== += += CA_UpLevel += += Goes up a bit level in the needed lists and clears it out. += Everything is made purgable += +====================== +*/ + +void CA_UpLevel (void) +{ + if (ca_levelnum==7) + Quit ("CA_UpLevel: Up past level 7!"); + + ca_levelbit<<=1; + ca_levelnum++; +} + +//=========================================================================== + +/* +====================== += += CA_DownLevel += += Goes down a bit level in the needed lists and recaches += everything from the lower level += +====================== +*/ + +void CA_DownLevel (void) +{ + if (!ca_levelnum) + Quit ("CA_DownLevel: Down past level 0!"); + ca_levelbit>>=1; + ca_levelnum--; + CA_CacheMarks(NULL); +} + +//=========================================================================== + +/* +====================== += += CA_ClearMarks += += Clears out all the marks at the current level += +====================== +*/ + +void CA_ClearMarks (void) +{ + int i; + + for (i=0;i>16; + if (xh - lastx > BARSTEP) + { + for (x=lastx;x<=xh;x++) +#if GRMODE == EGAGR + VWB_Vlin (thy,thy+13,x,14); +#endif +#if GRMODE == CGAGR + VWB_Vlin (thy,thy+13,x,SECONDCOLOR); +#endif + lastx = xh; + VW_UpdateScreen(); + } +} + +/* +====================== += += CAL_DialogFinish += +====================== +*/ + +void CAL_DialogFinish (void) +{ + unsigned x,xh; + + xh = thx + NUMBARS; + for (x=lastx;x<=xh;x++) +#if GRMODE == EGAGR + VWB_Vlin (thy,thy+13,x,14); +#endif +#if GRMODE == CGAGR + VWB_Vlin (thy,thy+13,x,SECONDCOLOR); +#endif + VW_UpdateScreen(); + +} + +//=========================================================================== + +/* +====================== += += CA_CacheMarks += +====================== +*/ +#define MAXEMPTYREAD 1024 + +void CA_CacheMarks (char *title) +{ + boolean dialog; + int i,next,numcache; + long pos,endpos,nextpos,nextendpos,compressed; + long bufferstart,bufferend; // file position of general buffer + byte far *source; + memptr bigbufferseg; + + dialog = (title!=NULL); + + numcache = 0; +// +// go through and make everything not needed purgable +// + for (i=0;i= endpos) + { + // data is allready in buffer + source = (byte _seg *)bufferseg+(pos-bufferstart); + } + else + { + // load buffer with a new block from disk + // try to get as many of the needed blocks in as possible + while ( next < NUMCHUNKS ) + { + while (next < NUMCHUNKS && + !(grneeded[next]&ca_levelbit && !grsegs[next])) + next++; + if (next == NUMCHUNKS) + continue; + + nextpos = GRFILEPOS(next); + while (GRFILEPOS(++next) == -1) // skip past any sparse tiles + ; + nextendpos = GRFILEPOS(next); + if (nextpos - endpos <= MAXEMPTYREAD + && nextendpos-pos <= BUFFERSIZE) + endpos = nextendpos; + else + next = NUMCHUNKS; // read pos to posend + } + + lseek(grhandle,pos,SEEK_SET); + CA_FarRead(grhandle,bufferseg,endpos-pos); + bufferstart = pos; + bufferend = endpos; + source = bufferseg; + } + } + else + { + // big chunk, allocate temporary buffer + MM_GetPtr(&bigbufferseg,compressed); + if (mmerror) + return; + MM_SetLock (&bigbufferseg,true); + lseek(grhandle,pos,SEEK_SET); + CA_FarRead(grhandle,bigbufferseg,compressed); + source = bigbufferseg; + } + + CAL_ExpandGrChunk (i,source); + if (mmerror) + return; + + if (compressed>BUFFERSIZE) + MM_FreePtr(&bigbufferseg); + + } + +// +// finish up any thermometer remnants +// + if (dialog && finishcachebox) + finishcachebox(); +} + diff --git a/16/keen456/KEEN4-6/ID_CA.H b/16/keen456/KEEN4-6/ID_CA.H new file mode 100755 index 00000000..a1737872 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_CA.H @@ -0,0 +1,152 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_CA.H + +#ifndef __TYPES__ +#include "ID_TYPES.H" +#endif + +#ifndef __ID_MM__ +#include "ID_MM.H" +#endif + +#ifndef __ID_GLOB__ +#include "ID_GLOB.H" +#endif + +#define __ID_CA__ + +//=========================================================================== + +//#define NOMAPS +//#define NOGRAPHICS +//#define NOAUDIO + +#define MAPHEADERLINKED +#define GRHEADERLINKED +#define AUDIOHEADERLINKED + +#define NUMMAPS 30 +#define MAPPLANES 3 + +#ifndef CAT3D +// +// tile info defines, as bytes after tinf the table starts +// + + +// +// TILEINFO offsets +// +#define SPEED 402 +#define ANIM (SPEED+NUMTILE16) + +// +// TILEINFOM offsets +// +#define NORTHWALL (ANIM+NUMTILE16) +#define EASTWALL (NORTHWALL+NUMTILE16M) +#define SOUTHWALL (EASTWALL+NUMTILE16M) +#define WESTWALL (SOUTHWALL+NUMTILE16M) +#define MANIM (WESTWALL+NUMTILE16M) +#define INTILE (MANIM+NUMTILE16M) +#define MSPEED (INTILE+NUMTILE16M) +#endif + +//=========================================================================== + +typedef struct +{ + long planestart[3]; + unsigned planelength[3]; + unsigned width,height; + char name[16]; +} maptype; + +//=========================================================================== + +extern byte _seg *tinf; +extern int mapon; + +extern unsigned _seg *mapsegs[3]; +extern maptype _seg *mapheaderseg[NUMMAPS]; +extern byte _seg *audiosegs[NUMSNDCHUNKS]; +extern void _seg *grsegs[NUMCHUNKS]; + +extern byte far grneeded[NUMCHUNKS]; +extern byte ca_levelbit,ca_levelnum; + +extern char *titleptr[8]; + +extern int profilehandle,debughandle; + +// +// hooks for custom cache dialogs +// +extern void (*drawcachebox) (char *title, unsigned numcache); +extern void (*updatecachebox) (void); +extern void (*finishcachebox) (void); + +//=========================================================================== + +// just for the score box reshifting + +void CAL_ShiftSprite (unsigned segment,unsigned source,unsigned dest, + unsigned width, unsigned height, unsigned pixshift); + +//=========================================================================== + +void CA_OpenDebug (void); +void CA_CloseDebug (void); +boolean CA_FarRead (int handle, byte far *dest, long length); +boolean CA_FarWrite (int handle, byte far *source, long length); +boolean CA_ReadFile (char *filename, memptr *ptr); +boolean CA_LoadFile (char *filename, memptr *ptr); + +long CA_RLEWCompress (unsigned huge *source, long length, unsigned huge *dest, + unsigned rlewtag); + +void CA_RLEWexpand (unsigned huge *source, unsigned huge *dest,long length, + unsigned rlewtag); + +void CA_Startup (void); +void CA_Shutdown (void); + +void CA_CacheAudioChunk (int chunk); +void CA_LoadAllSounds (void); + +void CA_UpLevel (void); +void CA_DownLevel (void); + +void CA_SetAllPurge (void); + +void CA_ClearMarks (void); +void CA_ClearAllMarks (void); + +#define CA_MarkGrChunk(chunk) grneeded[chunk]|=ca_levelbit + +void CA_CacheGrChunk (int chunk); +void CA_CacheMap (int mapnum); + +void CA_CacheMarks (char *title); + diff --git a/16/keen456/KEEN4-6/ID_IN.C b/16/keen456/KEEN4-6/ID_IN.C new file mode 100755 index 00000000..bb6929e0 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_IN.C @@ -0,0 +1,1243 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// +// ID Engine +// ID_IN.c - Input Manager +// v1.0d1 +// By Jason Blochowiak +// + +// +// This module handles dealing with the various input devices +// +// Depends on: Memory Mgr (for demo recording), Sound Mgr (for timing stuff), +// User Mgr (for command line parms) +// +// Globals: +// LastScan - The keyboard scan code of the last key pressed +// LastASCII - The ASCII value of the last key pressed +// DEBUG - there are more globals +// + +#include "ID_HEADS.H" +#pragma hdrstop + +#define KeyInt 9 // The keyboard ISR number + +// Stuff for the joystick +#define JoyScaleMax 32768 +#define JoyScaleShift 8 +#define MaxJoyValue 5000 + +// Global variables + boolean Keyboard[NumCodes], + JoysPresent[MaxJoys], + MousePresent; + boolean Paused; + char LastASCII; + ScanCode LastScan; + KeyboardDef KbdDefs[MaxKbds] = {{0x1d,0x38,0x47,0x48,0x49,0x4b,0x4d,0x4f,0x50,0x51}}; + JoystickDef JoyDefs[MaxJoys]; + ControlType Controls[MaxPlayers]; + boolean GravisGamepad; + word GravisAction[4]; + word GravisMap[4]; + + boolean Latch; + long MouseDownCount; + boolean LatchedButton0[MaxPlayers]; + boolean LatchedButton1[MaxPlayers]; + + Demo DemoMode = demo_Off; + byte _seg *DemoBuffer; + word DemoOffset,DemoSize; + +// Internal variables +static boolean IN_Started; +static boolean CapsLock; +static ScanCode CurCode,LastCode; +static byte far ASCIINames[] = // Unshifted ASCII for scan codes + { +// 0 1 2 3 4 5 6 7 8 9 A B C D E F + 0 ,27 ,'1','2','3','4','5','6','7','8','9','0','-','=',8 ,9 , // 0 + 'q','w','e','r','t','y','u','i','o','p','[',']',13 ,0 ,'a','s', // 1 + 'd','f','g','h','j','k','l',';',39 ,'`',0 ,92 ,'z','x','c','v', // 2 + 'b','n','m',',','.','/',0 ,'*',0 ,' ',0 ,0 ,0 ,0 ,0 ,0 , // 3 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,'7','8','9','-','4','5','6','+','1', // 4 + '2','3','0',127,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 5 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 6 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 // 7 + }, + far ShiftNames[] = // Shifted ASCII for scan codes + { +// 0 1 2 3 4 5 6 7 8 9 A B C D E F + 0 ,27 ,'!','@','#','$','%','^','&','*','(',')','_','+',8 ,9 , // 0 + 'Q','W','E','R','T','Y','U','I','O','P','{','}',13 ,0 ,'A','S', // 1 + 'D','F','G','H','J','K','L',':',34 ,'~',0 ,'|','Z','X','C','V', // 2 + 'B','N','M','<','>','?',0 ,'*',0 ,' ',0 ,0 ,0 ,0 ,0 ,0 , // 3 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,'7','8','9','-','4','5','6','+','1', // 4 + '2','3','0',127,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 5 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 6 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 // 7 + }, + far SpecialNames[] = // ASCII for 0xe0 prefixed codes + { +// 0 1 2 3 4 5 6 7 8 9 A B C D E F + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 0 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,13 ,0 ,0 ,0 , // 1 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 2 + 0 ,0 ,0 ,0 ,0 ,'/',0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 3 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 4 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 5 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 6 + 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 // 7 + }, + + *ScanNames[] = // Scan code names with single chars + { + "?","?","1","2","3","4","5","6","7","8","9","0","-","+","?","?", + "Q","W","E","R","T","Y","U","I","O","P","[","]","|","?","A","S", + "D","F","G","H","J","K","L",";","\"","?","?","?","Z","X","C","V", + "B","N","M",",",".","/","?","?","?","?","?","?","?","?","?","?", + "?","?","?","?","?","?","?","?","\xf","?","-","\x15","5","\x11","+","?", + "\x13","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?", + "?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?", + "?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?" + }, // DEBUG - consolidate these + far ExtScanCodes[] = // Scan codes with >1 char names + { + 1,0xe,0xf,0x1d,0x2a,0x39,0x3a,0x3b,0x3c,0x3d,0x3e, + 0x3f,0x40,0x41,0x42,0x43,0x44,0x57,0x59,0x46,0x1c,0x36, + 0x37,0x38,0x47,0x49,0x4f,0x51,0x52,0x53,0x45,0x48, + 0x50,0x4b,0x4d,0x00 + }, + *ExtScanNames[] = // Names corresponding to ExtScanCodes + { + "Esc","BkSp","Tab","Ctrl","LShft","Space","CapsLk","F1","F2","F3","F4", + "F5","F6","F7","F8","F9","F10","F11","F12","ScrlLk","Enter","RShft", + "PrtSc","Alt","Home","PgUp","End","PgDn","Ins","Del","NumLk","Up", + "Down","Left","Right","" + }; +static Direction DirTable[] = // Quick lookup for total direction + { + dir_NorthWest, dir_North, dir_NorthEast, + dir_West, dir_None, dir_East, + dir_SouthWest, dir_South, dir_SouthEast + }; + +static void (*INL_KeyHook)(void); +static void interrupt (*OldKeyVect)(void); + +static char *ParmStrings[] = {"nojoys","nomouse",nil}; + +// Internal routines + +/////////////////////////////////////////////////////////////////////////// +// +// INL_KeyService() - Handles a keyboard interrupt (key up/down) +// +/////////////////////////////////////////////////////////////////////////// +static void interrupt +INL_KeyService(void) +{ +static boolean special; + byte k,c, + temp; + int player; + + k = inportb(0x60); // Get the scan code + + // Tell the XT keyboard controller to clear the key + outportb(0x61,(temp = inportb(0x61)) | 0x80); + outportb(0x61,temp); + + if (k == 0xe0) // Special key prefix + special = true; + else if (k == 0xe1) // Handle Pause key + Paused = true; + else + { + if (k & 0x80) // Break code + { + k &= 0x7f; + +// DEBUG - handle special keys: ctl-alt-delete, print scrn + + Keyboard[k] = false; + } + else // Make code + { + LastCode = CurCode; + CurCode = LastScan = k; + Keyboard[k] = true; + + if (Latch) + { + for (player = 0; player < MaxPlayers; player++) + { + if (Controls[player] == ctrl_Keyboard1) + { + if (CurCode == KbdDefs[0].button0) + LatchedButton0[player] = true; + else if (CurCode == KbdDefs[0].button1) + LatchedButton1[player] = true; + } + else if (Controls[player] == ctrl_Keyboard1) // BUG? should probably check for ctrl_Keyboard2 here... + { + if (CurCode == KbdDefs[1].button0) + LatchedButton0[player] = true; + else if (CurCode == KbdDefs[1].button1) + LatchedButton1[player] = true; + } + } + } + + if (special) + c = SpecialNames[k]; + else + { + if (k == sc_CapsLock) + { + CapsLock ^= true; + // DEBUG - make caps lock light work + } + + if (Keyboard[sc_LShift] || Keyboard[sc_RShift]) // If shifted + { + c = ShiftNames[k]; + if ((c >= 'A') && (c <= 'Z') && CapsLock) + c += 'a' - 'A'; + } + else + { + c = ASCIINames[k]; + if ((c >= 'a') && (c <= 'z') && CapsLock) + c -= 'a' - 'A'; + } + } + if (c) + LastASCII = c; + } + + special = false; + } + + if (INL_KeyHook && !special) + INL_KeyHook(); + outportb(0x20,0x20); +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_GetMouseDelta() - Gets the amount that the mouse has moved from the +// mouse driver +// +/////////////////////////////////////////////////////////////////////////// +static void +INL_GetMouseDelta(int *x,int *y) +{ + Mouse(MDelta); + *x = _CX; + *y = _DX; +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_GetMouseButtons() - Gets the status of the mouse buttons from the +// mouse driver +// +/////////////////////////////////////////////////////////////////////////// +static word +INL_GetMouseButtons(void) +{ + word buttons; + + Mouse(MButtons); + buttons = _BX; + return(buttons); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_GetJoyAbs() - Reads the absolute position of the specified joystick +// +/////////////////////////////////////////////////////////////////////////// +void +IN_GetJoyAbs(word joy,word *xp,word *yp) +{ + byte xb,yb, + xs,ys; + word x,y; + + x = y = 0; + xs = joy? 2 : 0; // Find shift value for x axis + xb = 1 << xs; // Use shift value to get x bit mask + ys = joy? 3 : 1; // Do the same for y axis + yb = 1 << ys; + +// Read the absolute joystick values +asm pushf // Save some registers +asm push si +asm push di +asm cli // Make sure an interrupt doesn't screw the timings + + +asm mov dx,0x201 +asm in al,dx +asm out dx,al // Clear the resistors + +asm mov ah,[xb] // Get masks into registers +asm mov ch,[yb] + +asm xor si,si // Clear count registers +asm xor di,di +asm xor bh,bh // Clear high byte of bx for later + +asm push bp // Don't mess up stack frame +asm mov bp,MaxJoyValue + +loop: +asm in al,dx // Get bits indicating whether all are finished + +asm dec bp // Check bounding register +asm jz done // We have a silly value - abort + +asm mov bl,al // Duplicate the bits +asm and bl,ah // Mask off useless bits (in [xb]) +asm add si,bx // Possibly increment count register +asm mov cl,bl // Save for testing later + +asm mov bl,al +asm and bl,ch // [yb] +asm add di,bx + +asm add cl,bl +asm jnz loop // If both bits were 0, drop out + +done: +asm pop bp + +asm mov cl,[xs] // Get the number of bits to shift +asm shr si,cl // and shift the count that many times + +asm mov cl,[ys] +asm shr di,cl + +asm mov [x],si // Store the values into the variables +asm mov [y],di + +asm pop di +asm pop si +asm popf // Restore the registers + + *xp = x; + *yp = y; +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_GetJoyDelta() - Returns the relative movement of the specified +// joystick (from +/-127, scaled adaptively) +// +/////////////////////////////////////////////////////////////////////////// +static void +INL_GetJoyDelta(word joy,int *dx,int *dy,boolean adaptive) +{ + word x,y; + longword time; + JoystickDef *def; +static longword lasttime; + + IN_GetJoyAbs(joy,&x,&y); + def = JoyDefs + joy; + + if (x < def->threshMinX) + { + if (x < def->joyMinX) + x = def->joyMinX; + + x = -(x - def->threshMinX); + x *= def->joyMultXL; + x >>= JoyScaleShift; + *dx = (x > 127)? -127 : -x; + } + else if (x > def->threshMaxX) + { + if (x > def->joyMaxX) + x = def->joyMaxX; + + x = x - def->threshMaxX; + x *= def->joyMultXH; + x >>= JoyScaleShift; + *dx = (x > 127)? 127 : x; + } + else + *dx = 0; + + if (y < def->threshMinY) + { + if (y < def->joyMinY) + y = def->joyMinY; + + y = -(y - def->threshMinY); + y *= def->joyMultYL; + y >>= JoyScaleShift; + *dy = (y > 127)? -127 : -y; + } + else if (y > def->threshMaxY) + { + if (y > def->joyMaxY) + y = def->joyMaxY; + + y = y - def->threshMaxY; + y *= def->joyMultYH; + y >>= JoyScaleShift; + *dy = (y > 127)? 127 : y; + } + else + *dy = 0; + + if (adaptive) + { + time = (TimeCount - lasttime) / 2; + if (time) + { + if (time > 8) + time = 8; + *dx *= time; + *dy *= time; + } + } + lasttime = TimeCount; +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_GetJoyButtons() - Returns the button status of the specified +// joystick +// +/////////////////////////////////////////////////////////////////////////// +static word +INL_GetJoyButtons(word joy) +{ +register word result; + + result = inportb(0x201); // Get all the joystick buttons + if (joy == 2) + { + // all 4 buttons (for Gravis Gamepad option) + result >>= 4; + result &= 15; + result ^= 15; + } + else + { + result >>= joy? 6 : 4; // Shift into bits 0-1 + result &= 3; // Mask off the useless bits + result ^= 3; + } + return(result); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_GetJoyButtonsDB() - Returns the de-bounced button status of the +// specified joystick +// +/////////////////////////////////////////////////////////////////////////// +word +IN_GetJoyButtonsDB(word joy) +{ + longword endtime; + word result1,result2; + + do + { + result1 = INL_GetJoyButtons(joy); + endtime = TimeCount + 2; + while (TimeCount <= endtime) + ; + result2 = INL_GetJoyButtons(joy); + } while (result1 != result2); + return(result1); +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_StartKbd() - Sets up my keyboard stuff for use +// +/////////////////////////////////////////////////////////////////////////// +static void +INL_StartKbd(void) +{ + INL_KeyHook = 0; // Clear key hook + + IN_ClearKeysDown(); + + OldKeyVect = getvect(KeyInt); + setvect(KeyInt,INL_KeyService); +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_ShutKbd() - Restores keyboard control to the BIOS +// +/////////////////////////////////////////////////////////////////////////// +static void +INL_ShutKbd(void) +{ + poke(0x40,0x17,peek(0x40,0x17) & 0xfaf0); // Clear ctrl/alt/shift flags + + setvect(KeyInt,OldKeyVect); +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_StartMouse() - Detects and sets up the mouse +// +/////////////////////////////////////////////////////////////////////////// +static boolean +INL_StartMouse(void) +{ + if (getvect(MouseInt)) + { + Mouse(MReset); + if (_AX == 0xffff) + return(true); + } + return(false); +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_ShutMouse() - Cleans up after the mouse +// +/////////////////////////////////////////////////////////////////////////// +static void +INL_ShutMouse(void) +{ +} + +// +// INL_SetJoyScale() - Sets up scaling values for the specified joystick +// +static void +INL_SetJoyScale(word joy) +{ + JoystickDef *def; + + def = &JoyDefs[joy]; + def->joyMultXL = JoyScaleMax / (def->threshMinX - def->joyMinX); + def->joyMultXH = JoyScaleMax / (def->joyMaxX - def->threshMaxX); + def->joyMultYL = JoyScaleMax / (def->threshMinY - def->joyMinY); + def->joyMultYH = JoyScaleMax / (def->joyMaxY - def->threshMaxY); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_SetupJoy() - Sets up thresholding values and calls INL_SetJoyScale() +// to set up scaling values +// +/////////////////////////////////////////////////////////////////////////// +void +IN_SetupJoy(word joy,word minx,word maxx,word miny,word maxy) +{ + word d,r; + JoystickDef *def; + + def = &JoyDefs[joy]; + + def->joyMinX = minx; + def->joyMaxX = maxx; + r = maxx - minx; + d = r / 5; + def->threshMinX = ((r / 2) - d) + minx; + def->threshMaxX = ((r / 2) + d) + minx; + + def->joyMinY = miny; + def->joyMaxY = maxy; + r = maxy - miny; + d = r / 5; + def->threshMinY = ((r / 2) - d) + miny; + def->threshMaxY = ((r / 2) + d) + miny; + + INL_SetJoyScale(joy); +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_StartJoy() - Detects & auto-configures the specified joystick +// The auto-config assumes the joystick is centered +// +/////////////////////////////////////////////////////////////////////////// +static boolean +INL_StartJoy(word joy) +{ + word x,y; + + IN_GetJoyAbs(joy,&x,&y); + + if + ( + ((x == 0) || (x > MaxJoyValue - 10)) + || ((y == 0) || (y > MaxJoyValue - 10)) + ) + return(false); + else + { + IN_SetupJoy(joy,0,x * 2,0,y * 2); + return(true); + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_ShutJoy() - Cleans up the joystick stuff +// +/////////////////////////////////////////////////////////////////////////// +static void +INL_ShutJoy(word joy) +{ + JoysPresent[joy] = false; +} + +// Public routines + +/////////////////////////////////////////////////////////////////////////// +// +// IN_ClearButtonLatch() - Clears the button latch stuff +// +/////////////////////////////////////////////////////////////////////////// +void +IN_ClearButtonLatch(void) +{ + int player; + +asm pushf +asm cli + + MouseDownCount = 0; + + for (player = 0; player < MaxPlayers; player++) + { + LatchedButton0[player] = LatchedButton1[player] = 0; + } + +asm popf +} + +/////////////////////////////////////////////////////////////////////////// +// +// LatchSndHook() - Hook routine for joystick button latch +// +/////////////////////////////////////////////////////////////////////////// +void +LatchSndHook(void) +{ + int player; + ControlType ctrl; + word buttons; + + for (player = 0; player < MaxPlayers; player++) + { + ctrl = Controls[player]; + + if (ctrl == ctrl_Joystick1 || ctrl == ctrl_Joystick2) + { + buttons = INL_GetJoyButtons(ctrl - ctrl_Joystick1); + + if (buttons & 1) + LatchedButton0[player] = true; + if (buttons & 2) + LatchedButton1[player] = true; + } + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_LatchButtons() - Enables or disables button latch +// +/////////////////////////////////////////////////////////////////////////// +void IN_LatchButtons(boolean enabled) +{ + if (enabled) + { + Latch = false; + IN_ClearButtonLatch(); + } + + Latch = enabled; + SD_SetUserHook(Latch ? LatchSndHook : NULL); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_Startup() - Starts up the Input Mgr +// +/////////////////////////////////////////////////////////////////////////// +void +IN_Startup(void) +{ + boolean checkjoys,checkmouse; + word i; + + if (IN_Started) + return; + + checkjoys = true; + checkmouse = true; + for (i = 1;i < _argc;i++) + { + switch (US_CheckParm(_argv[i],ParmStrings)) + { + case 0: + checkjoys = false; + break; + case 1: + checkmouse = false; + break; + } + } + + INL_StartKbd(); + MousePresent = checkmouse? INL_StartMouse() : false; + + for (i = 0;i < MaxJoys;i++) + JoysPresent[i] = checkjoys? INL_StartJoy(i) : false; + + IN_Started = true; +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_Default() - Sets up default conditions for the Input Mgr +// +/////////////////////////////////////////////////////////////////////////// +void +IN_Default(boolean gotit,ControlType in) +{ + if + ( + (!gotit) + || ((in == ctrl_Joystick1) && !JoysPresent[0]) + || ((in == ctrl_Joystick2) && !JoysPresent[1]) + || ((in == ctrl_Mouse) && !MousePresent) + ) + in = ctrl_Keyboard1; + IN_SetControlType(0,in); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_Shutdown() - Shuts down the Input Mgr +// +/////////////////////////////////////////////////////////////////////////// +void +IN_Shutdown(void) +{ + word i; + + if (!IN_Started) + return; + + INL_ShutMouse(); + for (i = 0;i < MaxJoys;i++) + INL_ShutJoy(i); + INL_ShutKbd(); + + IN_Started = false; +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_SetKeyHook() - Sets the routine that gets called by INL_KeyService() +// everytime a real make/break code gets hit +// +/////////////////////////////////////////////////////////////////////////// +void +IN_SetKeyHook(void (*hook)()) +{ + // BUG: interrupts should be disabled while setting INL_KeyHook! + INL_KeyHook = hook; +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_ClearKeyDown() - Clears the keyboard array +// +/////////////////////////////////////////////////////////////////////////// +void +IN_ClearKeysDown(void) +{ + int i; + + LastScan = sc_None; + LastASCII = key_None; + for (i = 0;i < NumCodes;i++) + Keyboard[i] = false; +} + +/////////////////////////////////////////////////////////////////////////// +// +// INL_AdjustCursor() - Internal routine of common code from IN_ReadCursor() +// +/////////////////////////////////////////////////////////////////////////// +static void +INL_AdjustCursor(CursorInfo *info,word buttons,int dx,int dy) +{ + if (buttons & (1 << 0)) + info->button0 = true; + if (buttons & (1 << 1)) + info->button1 = true; + + info->x += dx; + info->y += dy; +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_ReadCursor() - Reads the input devices and fills in the cursor info +// struct +// +/////////////////////////////////////////////////////////////////////////// +void +IN_ReadCursor(CursorInfo *info) +{ + word i, + player, + buttons; + int dx,dy; + + info->x = info->y = 0; + info->button0 = info->button1 = false; + + if (MousePresent) + { + buttons = INL_GetMouseButtons(); + INL_GetMouseDelta(&dx,&dy); + INL_AdjustCursor(info,buttons,dx,dy); + } + + for (i = 0;i < MaxJoys;i++) + { + if (!JoysPresent[i]) + continue; + + for (player = 0;player < MaxPlayers; player++) + { + if (Controls[player] == ctrl_Joystick1+i) + goto joyok; + } + continue; + +joyok: + buttons = INL_GetJoyButtons(i); + INL_GetJoyDelta(i,&dx,&dy,true); + dx /= 64; + dy /= 64; + INL_AdjustCursor(info,buttons,dx,dy); + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_ReadControl() - Reads the device associated with the specified +// player and fills in the control info struct +// +/////////////////////////////////////////////////////////////////////////// +void +IN_ReadControl(int player,ControlInfo *info) +{ + boolean realdelta; + byte dbyte; + word buttons; + int i; + int dx,dy; + Motion mx,my; + ControlType type; +register KeyboardDef *def; + + dx = dy = 0; + mx = my = motion_None; + buttons = 0; + + if (DemoMode == demo_Playback) + { + dbyte = DemoBuffer[DemoOffset + 1]; + my = (dbyte & 3) - 1; + mx = ((dbyte >> 2) & 3) - 1; + buttons = (dbyte >> 4) & 3; + + if (!(--DemoBuffer[DemoOffset])) + { + DemoOffset += 2; + if (DemoOffset >= DemoSize) + DemoMode = demo_PlayDone; + } + + realdelta = false; + } + else if (DemoMode == demo_PlayDone) + Quit("Demo playback exceeded"); + else + { + switch (type = Controls[player]) + { + case ctrl_Keyboard1: + case ctrl_Keyboard2: + def = &KbdDefs[type - ctrl_Keyboard]; + + if (Keyboard[def->upleft]) + mx = motion_Left,my = motion_Up; + else if (Keyboard[def->upright]) + mx = motion_Right,my = motion_Up; + else if (Keyboard[def->downleft]) + mx = motion_Left,my = motion_Down; + else if (Keyboard[def->downright]) + mx = motion_Right,my = motion_Down; + + if (Keyboard[def->up]) + my = motion_Up; + else if (Keyboard[def->down]) + my = motion_Down; + + if (Keyboard[def->left]) + mx = motion_Left; + else if (Keyboard[def->right]) + mx = motion_Right; + + if (Keyboard[def->button0]) + buttons += 1 << 0; + if (Keyboard[def->button1]) + buttons += 1 << 1; + realdelta = false; + break; + case ctrl_Joystick1: + case ctrl_Joystick2: + INL_GetJoyDelta(type - ctrl_Joystick,&dx,&dy,false); + if (GravisGamepad) + { + buttons = INL_GetJoyButtons(2); + for (i=0; i<4; i++) + { + GravisAction[i] = buttons & (1 << GravisMap[i]); + } + } + buttons = INL_GetJoyButtons(type - ctrl_Joystick); + realdelta = true; + break; + case ctrl_Mouse: + INL_GetMouseDelta(&dx,&dy); + buttons = INL_GetMouseButtons(); + realdelta = true; + break; + } + } + + if (realdelta) + { + mx = (dx < 0)? motion_Left : ((dx > 0)? motion_Right : motion_None); + my = (dy < 0)? motion_Up : ((dy > 0)? motion_Down : motion_None); + } + else + { + dx = mx * 127; + dy = my * 127; + } + + info->x = dx; + info->xaxis = mx; + info->y = dy; + info->yaxis = my; + info->button0 = buttons & (1 << 0); + info->button1 = buttons & (1 << 1); + info->dir = DirTable[((my + 1) * 3) + (mx + 1)]; + + if (DemoMode == demo_Record) + { + // Pack the control info into a byte + dbyte = (buttons << 4) | ((mx + 1) << 2) | (my + 1); + + if + ( + (DemoBuffer[DemoOffset + 1] == dbyte) + && (DemoBuffer[DemoOffset] < 255) + ) + (DemoBuffer[DemoOffset])++; + else + { + if (DemoOffset || DemoBuffer[DemoOffset]) + DemoOffset += 2; + + if (DemoOffset >= DemoSize) + Quit("Demo buffer overflow"); + + DemoBuffer[DemoOffset] = 1; + DemoBuffer[DemoOffset + 1] = dbyte; + } + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_SetControlType() - Sets the control type to be used by the specified +// player +// +/////////////////////////////////////////////////////////////////////////// +void +IN_SetControlType(int player,ControlType type) +{ + // DEBUG - check that requested type is present? + Controls[player] = type; +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_StartDemoRecord() - Starts the demo recording, using a buffer the +// size passed. Returns if the buffer allocation was successful +// +/////////////////////////////////////////////////////////////////////////// +boolean +IN_StartDemoRecord(word bufsize) +{ + if (!bufsize) + return(false); + + MM_GetPtr((memptr *)&DemoBuffer,bufsize); + DemoMode = demo_Record; + DemoSize = bufsize & ~1; + DemoOffset = 0; + DemoBuffer[0] = DemoBuffer[1] = 0; + + return(true); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_StartDemoPlayback() - Plays back the demo pointed to of the given size +// +/////////////////////////////////////////////////////////////////////////// +void +IN_StartDemoPlayback(byte _seg *buffer,word bufsize) +{ + DemoBuffer = buffer; + DemoMode = demo_Playback; + DemoSize = bufsize & ~1; + DemoOffset = 0; +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_StopDemo() - Turns off demo mode +// +/////////////////////////////////////////////////////////////////////////// +void +IN_StopDemo(void) +{ + if ((DemoMode == demo_Record) && DemoOffset) + DemoOffset += 2; + + DemoMode = demo_Off; +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_FreeDemoBuffer() - Frees the demo buffer, if it's been allocated +// +/////////////////////////////////////////////////////////////////////////// +void +IN_FreeDemoBuffer(void) +{ + if (DemoBuffer) + MM_FreePtr((memptr *)&DemoBuffer); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_GetScanName() - Returns a string containing the name of the +// specified scan code +// +/////////////////////////////////////////////////////////////////////////// +byte * +IN_GetScanName(ScanCode scan) +{ + byte **p; + ScanCode far *s; + + for (s = ExtScanCodes,p = ExtScanNames;*s;p++,s++) + if (*s == scan) + return(*p); + + return(ScanNames[scan]); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_WaitForKey() - Waits for a scan code, then clears LastScan and +// returns the scan code +// +/////////////////////////////////////////////////////////////////////////// +ScanCode +IN_WaitForKey(void) +{ + ScanCode result; + + while (!(result = LastScan)) + ; + LastScan = 0; + return(result); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_WaitForASCII() - Waits for an ASCII char, then clears LastASCII and +// returns the ASCII value +// +/////////////////////////////////////////////////////////////////////////// +char +IN_WaitForASCII(void) +{ + char result; + + while (!(result = LastASCII)) + ; + LastASCII = '\0'; + return(result); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_AckBack() - Waits for either an ASCII keypress or a button press +// +/////////////////////////////////////////////////////////////////////////// +void +IN_AckBack(void) +{ + word i; + + while (!LastScan) + { + if (MousePresent) + { + if (INL_GetMouseButtons()) + { + while (INL_GetMouseButtons()) + ; + return; + } + } + + for (i = 0;i < MaxJoys;i++) + { + if (JoysPresent[i] || GravisGamepad) + { + if (IN_GetJoyButtonsDB(i)) + { + while (IN_GetJoyButtonsDB(i)) + ; + return; + } + } + } + } + + IN_ClearKey(LastScan); + LastScan = sc_None; +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_Ack() - Clears user input & then calls IN_AckBack() +// +/////////////////////////////////////////////////////////////////////////// +void +IN_Ack(void) +{ + word i; + + IN_ClearKey(LastScan); + LastScan = sc_None; + + if (MousePresent) + while (INL_GetMouseButtons()) + ; + for (i = 0;i < MaxJoys;i++) + if (JoysPresent[i] || GravisGamepad) + while (IN_GetJoyButtonsDB(i)) + ; + + IN_AckBack(); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_IsUserInput() - Returns true if a key has been pressed or a button +// is down +// +/////////////////////////////////////////////////////////////////////////// +boolean +IN_IsUserInput(void) +{ + boolean result; + word i; + + result = LastScan; + + if (MousePresent) + if (INL_GetMouseButtons()) + result = true; + + for (i = 0;i < MaxJoys;i++) + if (JoysPresent[i] || GravisGamepad) + if (INL_GetJoyButtons(i)) + result = true; + + return(result); +} + +/////////////////////////////////////////////////////////////////////////// +// +// IN_UserInput() - Waits for the specified delay time (in ticks) or the +// user pressing a key or a mouse button. If the clear flag is set, it +// then either clears the key or waits for the user to let the mouse +// button up. +// +/////////////////////////////////////////////////////////////////////////// +boolean +IN_UserInput(longword delay,boolean clear) +{ + longword lasttime; + + lasttime = TimeCount; + do + { + if (IN_IsUserInput()) + { + if (clear) + IN_AckBack(); + return(true); + } + } while (TimeCount - lasttime < delay); + return(false); +} diff --git a/16/keen456/KEEN4-6/ID_IN.H b/16/keen456/KEEN4-6/ID_IN.H new file mode 100755 index 00000000..d3ade29f --- /dev/null +++ b/16/keen456/KEEN4-6/ID_IN.H @@ -0,0 +1,232 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// +// ID Engine +// ID_IN.h - Header file for Input Manager +// v1.0d1 +// By Jason Blochowiak +// + +#ifndef __TYPES__ +#include "ID_Types.h" +#endif + +#ifndef __ID_IN__ +#define __ID_IN__ + +#ifdef __DEBUG__ +#define __DEBUG_InputMgr__ +#endif + +#define MaxPlayers 4 +#define MaxKbds 2 +#define MaxJoys 2 +#define NumCodes 128 + +typedef byte ScanCode; +#define sc_None 0 +#define sc_Bad 0xff +#define sc_Return 0x1c +#define sc_Enter sc_Return +#define sc_Escape 0x01 +#define sc_Space 0x39 +#define sc_BackSpace 0x0e +#define sc_Tab 0x0f +#define sc_Alt 0x38 +#define sc_Control 0x1d +#define sc_CapsLock 0x3a +#define sc_LShift 0x2a +#define sc_RShift 0x36 +#define sc_UpArrow 0x48 +#define sc_DownArrow 0x50 +#define sc_LeftArrow 0x4b +#define sc_RightArrow 0x4d +#define sc_Insert 0x52 +#define sc_Delete 0x53 +#define sc_Home 0x47 +#define sc_End 0x4f +#define sc_PgUp 0x49 +#define sc_PgDn 0x51 +#define sc_F1 0x3b +#define sc_F2 0x3c +#define sc_F3 0x3d +#define sc_F4 0x3e +#define sc_F5 0x3f +#define sc_F6 0x40 +#define sc_F7 0x41 +#define sc_F8 0x42 +#define sc_F9 0x43 +#define sc_F10 0x44 +#define sc_F11 0x57 +#define sc_F12 0x59 // BUG: F12 uses scan code 0x58! + +#define sc_A 0x1e +#define sc_B 0x30 +#define sc_C 0x2e +#define sc_D 0x20 +#define sc_E 0x12 +#define sc_F 0x21 +#define sc_G 0x22 +#define sc_H 0x23 +#define sc_I 0x17 +#define sc_J 0x24 +#define sc_K 0x25 +#define sc_L 0x26 +#define sc_M 0x32 +#define sc_N 0x31 +#define sc_O 0x18 +#define sc_P 0x19 +#define sc_Q 0x10 +#define sc_R 0x13 +#define sc_S 0x1f +#define sc_T 0x14 +#define sc_U 0x16 +#define sc_V 0x2f +#define sc_W 0x11 +#define sc_X 0x2d +#define sc_Y 0x15 +#define sc_Z 0x2c + +#define sc_1 0x02 +#define sc_2 0x03 +#define sc_3 0x04 +#define sc_4 0x05 +#define sc_5 0x06 +#define sc_6 0x07 +#define sc_7 0x08 +#define sc_8 0x09 +#define sc_9 0x0a +#define sc_0 0x0b + +#define key_None 0 +#define key_Return 0x0d +#define key_Enter key_Return +#define key_Escape 0x1b +#define key_Space 0x20 +#define key_BackSpace 0x08 +#define key_Tab 0x09 +#define key_Delete 0x7f + +// Stuff for the mouse +#define MReset 0 +#define MButtons 3 +#define MDelta 11 + +#define MouseInt 0x33 +#define Mouse(x) _AX = x,geninterrupt(MouseInt) + +typedef enum { + demo_Off,demo_Record,demo_Playback,demo_PlayDone + } Demo; +typedef enum { + ctrl_Keyboard, + ctrl_Keyboard1 = ctrl_Keyboard,ctrl_Keyboard2, + ctrl_Joystick, + ctrl_Joystick1 = ctrl_Joystick,ctrl_Joystick2, + ctrl_Mouse + } ControlType; +typedef enum { + motion_Left = -1,motion_Up = -1, + motion_None = 0, + motion_Right = 1,motion_Down = 1 + } Motion; +typedef enum { + dir_North,dir_NorthEast, + dir_East,dir_SouthEast, + dir_South,dir_SouthWest, + dir_West,dir_NorthWest, + dir_None + } Direction; +typedef enum { + ga_Jump, + ga_Pogo, + ga_Fire, + ga_Status + } GravisAType; +typedef struct { + boolean button0,button1; + int x,y; + Motion xaxis,yaxis; + Direction dir; + } CursorInfo; +typedef CursorInfo ControlInfo; +typedef struct { + ScanCode button0,button1, + upleft, up, upright, + left, right, + downleft, down, downright; + } KeyboardDef; +typedef struct { + word joyMinX,joyMinY, + threshMinX,threshMinY, + threshMaxX,threshMaxY, + joyMaxX,joyMaxY, + joyMultXL,joyMultYL, + joyMultXH,joyMultYH; + } JoystickDef; +// Global variables +extern boolean Keyboard[], + MousePresent, + JoysPresent[]; +extern boolean Paused; +extern char LastASCII; +extern ScanCode LastScan; +extern KeyboardDef KbdDefs[]; +extern JoystickDef JoyDefs[]; +extern ControlType Controls[MaxPlayers]; +extern boolean GravisGamepad; +extern word GravisAction[4]; +extern word GravisMap[4]; + +extern Demo DemoMode; +extern byte _seg *DemoBuffer; +extern word DemoOffset,DemoSize; + +// Function prototypes +#define IN_KeyDown(code) (Keyboard[(code)]) +#define IN_ClearKey(code) {Keyboard[code] = false;\ + if (code == LastScan) LastScan = sc_None;} + +// DEBUG - put names in prototypes +extern void IN_Startup(void),IN_Shutdown(void), + IN_Default(boolean gotit,ControlType in), + IN_SetKeyHook(void (*)()), + IN_ClearKeysDown(void), + IN_ReadCursor(CursorInfo *), + IN_ReadControl(int,ControlInfo *), + IN_SetControlType(int,ControlType), + IN_GetJoyAbs(word joy,word *xp,word *yp), + IN_SetupJoy(word joy,word minx,word maxx, + word miny,word maxy), + IN_StartDemoPlayback(byte _seg *buffer,word bufsize), + IN_StopDemo(void),IN_FreeDemoBuffer(void), + IN_Ack(void),IN_AckBack(void); +extern boolean IN_UserInput(longword delay,boolean clear), + IN_IsUserInput(void), + IN_StartDemoRecord(word bufsize); +extern byte *IN_GetScanName(ScanCode); +extern char IN_WaitForASCII(void); +extern ScanCode IN_WaitForKey(void); +extern word IN_GetJoyButtonsDB(word joy); + +#endif diff --git a/16/keen456/KEEN4-6/ID_MM.C b/16/keen456/KEEN4-6/ID_MM.C new file mode 100755 index 00000000..07fdb7c2 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_MM.C @@ -0,0 +1,1136 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// NEWMM.C + +/* +============================================================================= + + ID software memory manager + -------------------------- + +Primary coder: John Carmack + +RELIES ON +--------- +Quit (char *error) function + + +WORK TO DO +---------- +MM_SizePtr to change the size of a given pointer + +Multiple purge levels utilized + +EMS / XMS unmanaged routines + +============================================================================= +*/ + +#include "ID_HEADS.H" +#pragma hdrstop + +#pragma warn -pro +#pragma warn -use + +/* +============================================================================= + + LOCAL INFO + +============================================================================= +*/ + +#define LOCKBIT 0x80 // if set in attributes, block cannot be moved +#define PURGEBITS 3 // 0-3 level, 0= unpurgable, 3= purge first +#define PURGEMASK 0xfffc +#define BASEATTRIBUTES 0 // unlocked, non purgable + +#define MAXUMBS 10 + +typedef struct mmblockstruct +{ + unsigned start,length; + unsigned attributes; + memptr *useptr; // pointer to the segment start + struct mmblockstruct far *next; +} mmblocktype; + + +//#define GETNEWBLOCK {if(!(mmnew=mmfree))Quit("MM_GETNEWBLOCK: No free blocks!")\ +// ;mmfree=mmfree->next;} + +#define GETNEWBLOCK {if(!mmfree)MML_ClearBlock();mmnew=mmfree;mmfree=mmfree->next;} + +#define FREEBLOCK(x) {*x->useptr=NULL;x->next=mmfree;mmfree=x;} + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +mminfotype mminfo; +memptr bufferseg; +boolean mmerror; + +void (* beforesort) (void); +void (* aftersort) (void); + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +boolean mmstarted; + +void far *farheap; +void *nearheap; + +mmblocktype far mmblocks[MAXBLOCKS] + ,far *mmhead,far *mmfree,far *mmrover,far *mmnew; + +boolean bombonerror; + +unsigned totalEMSpages,freeEMSpages,EMSpageframe,EMSpagesmapped,EMShandle; + +void (* XMSaddr) (void); // far pointer to XMS driver + +unsigned numUMBs,UMBbase[MAXUMBS]; + +//========================================================================== + +// +// local prototypes +// + +boolean MML_CheckForEMS (void); +void MML_ShutdownEMS (void); +void MM_MapEMS (void); +boolean MML_CheckForXMS (void); +void MML_ShutdownXMS (void); +void MML_UseSpace (unsigned segstart, unsigned seglength); +void MML_ClearBlock (void); + +//========================================================================== + +/* +====================== += += MML_CheckForEMS += += Routine from p36 of Extending DOS += +======================= +*/ + +char emmname[9] = "EMMXXXX0"; + +boolean MML_CheckForEMS (void) +{ +asm mov dx,OFFSET emmname[0] +asm mov ax,0x3d00 +asm int 0x21 // try to open EMMXXXX0 device +asm jc error + +asm mov bx,ax +asm mov ax,0x4400 + +asm int 0x21 // get device info +asm jc error + +asm and dx,0x80 +asm jz error + +asm mov ax,0x4407 + +asm int 0x21 // get status +asm jc error +asm or al,al +asm jz error + +asm mov ah,0x3e +asm int 0x21 // close handle +asm jc error + +// +// EMS is good +// + return true; + +error: +// +// EMS is bad +// + return false; +} + + +/* +====================== += += MML_SetupEMS += +======================= +*/ + +void MML_SetupEMS (void) +{ + char str[80],str2[10]; + unsigned error; + + totalEMSpages = freeEMSpages = EMSpageframe = EMSpagesmapped = 0; + +asm { + mov ah,EMS_STATUS + int EMS_INT // make sure EMS hardware is present + or ah,ah + jnz error + + mov ah,EMS_VERSION + int EMS_INT + or ah,ah + jnz error + cmp al,0x32 // only work on ems 3.2 or greater + jb error + + mov ah,EMS_GETFRAME + int EMS_INT // find the page frame address + or ah,ah + jnz error + mov [EMSpageframe],bx + + mov ah,EMS_GETPAGES + int EMS_INT // find out how much EMS is there + or ah,ah + jnz error + mov [totalEMSpages],dx + mov [freeEMSpages],bx + or bx,bx + jz noEMS // no EMS at all to allocate + + cmp bx,4 + jle getpages // there is only 1,2,3,or 4 pages + mov bx,4 // we can't use more than 4 pages + } + +getpages: +asm { + mov [EMSpagesmapped],bx + mov ah,EMS_ALLOCPAGES // allocate up to 64k of EMS + int EMS_INT + or ah,ah + jnz error + mov [EMShandle],dx + } + return; + +error: + error = _AH; + strcpy (str,"MML_SetupEMS: EMS error 0x"); + itoa(error,str2,16); + strcpy (str,str2); + Quit (str); + +noEMS: +; +} + + +/* +====================== += += MML_ShutdownEMS += +======================= +*/ + +void MML_ShutdownEMS (void) +{ + if (!EMShandle) + return; + +asm { + mov ah,EMS_FREEPAGES + mov dx,[EMShandle] + int EMS_INT + or ah,ah + jz ok + } + + Quit ("MML_ShutdownEMS: Error freeing EMS!"); + +ok: +; +} + +/* +==================== += += MM_MapEMS += += Maps the 64k of EMS used by memory manager into the page frame += for general use. This only needs to be called if you are keeping += other things in EMS. += +==================== +*/ + +void MM_MapEMS (void) +{ + char str[80],str2[10]; + unsigned error; + int i; + + for (i=0;istart+scan->length < segstart) + { + last = scan; + scan = scan->next; + } + +// +// take the given range out of the block +// + oldend = scan->start + scan->length; + extra = oldend - (segstart+seglength); + if (extra < 0) + Quit ("MML_UseSpace: Segment spans two blocks!"); + + if (segstart == scan->start) + { + last->next = scan->next; // unlink block + FREEBLOCK(scan); + scan = last; + } + else + scan->length = segstart-scan->start; // shorten block + + if (extra > 0) + { + GETNEWBLOCK; + mmnew->useptr = NULL; // Keen addition + + mmnew->next = scan->next; + scan->next = mmnew; + mmnew->start = segstart+seglength; + mmnew->length = extra; + mmnew->attributes = LOCKBIT; + } + +} + +//========================================================================== + +/* +==================== += += MML_ClearBlock += += We are out of blocks, so free a purgable block += +==================== +*/ + +void MML_ClearBlock (void) +{ + mmblocktype far *scan,far *last; + + scan = mmhead->next; + + while (scan) + { + if (!(scan->attributes&LOCKBIT) && (scan->attributes&PURGEBITS) ) + { + MM_FreePtr(scan->useptr); + return; + } + scan = scan->next; + } + + Quit ("MM_ClearBlock: No purgable blocks!"); +} + + +//========================================================================== + +/* +=================== += += MM_Startup += += Grabs all space from turbo with malloc/farmalloc += Allocates bufferseg misc buffer += +=================== +*/ + +static char *ParmStrings[] = {"noems","noxms",""}; + +void MM_Startup (void) +{ + int i; + unsigned long length; + void far *start; + unsigned segstart,seglength,endfree; + + if (mmstarted) + MM_Shutdown (); + + + mmstarted = true; + bombonerror = true; +// +// set up the linked list (everything in the free list; +// + mmhead = NULL; + mmfree = &mmblocks[0]; + for (i=0;istart = 0; + mmnew->length = 0xffff; + mmnew->attributes = LOCKBIT; + mmnew->next = NULL; + mmrover = mmhead; + + +// +// get all available near conventional memory segments +// + length=coreleft(); + start = (void far *)(nearheap = malloc(length)); + + length -= 16-(FP_OFF(start)&15); + length -= SAVENEARHEAP; + seglength = length / 16; // now in paragraphs + segstart = FP_SEG(start)+(FP_OFF(start)+15)/16; + MML_UseSpace (segstart,seglength); + mminfo.nearheap = length; + +// +// get all available far conventional memory segments +// + length=farcoreleft(); + start = farheap = farmalloc(length); + length -= 16-(FP_OFF(start)&15); + length -= SAVEFARHEAP; + seglength = length / 16; // now in paragraphs + segstart = FP_SEG(start)+(FP_OFF(start)+15)/16; + MML_UseSpace (segstart,seglength); + mminfo.farheap = length; + mminfo.mainmem = mminfo.nearheap + mminfo.farheap; + + +// +// detect EMS and allocate up to 64K at page frame +// + mminfo.EMSmem = 0; + for (i = 1;i < _argc;i++) + { + if ( US_CheckParm(_argv[i],ParmStrings) == 0) + goto emsskip; // param NOEMS + } + + if (MML_CheckForEMS()) + { + MML_SetupEMS(); // allocate space + MML_UseSpace (EMSpageframe,EMSpagesmapped*0x400); + MM_MapEMS(); // map in used pages + mminfo.EMSmem = EMSpagesmapped*0x4000l; + } + +// +// detect XMS and get upper memory blocks +// +emsskip: + mminfo.XMSmem = 0; + for (i = 1;i < _argc;i++) + { + if ( US_CheckParm(_argv[i],ParmStrings) == 0) // BUG: NOXMS is index 1, not 0 + goto xmsskip; // param NOXMS + } + + if (MML_CheckForXMS()) + MML_SetupXMS(); // allocate as many UMBs as possible + +// +// allocate the misc buffer +// +xmsskip: + mmrover = mmhead; // start looking for space after low block + + MM_GetPtr (&bufferseg,BUFFERSIZE); +} + +//========================================================================== + +/* +==================== += += MM_Shutdown += += Frees all conventional, EMS, and XMS allocated += +==================== +*/ + +void MM_Shutdown (void) +{ + if (!mmstarted) + return; + + farfree (farheap); + free (nearheap); + MML_ShutdownEMS (); + MML_ShutdownXMS (); +} + +//========================================================================== + +/* +==================== += += MM_GetPtr += += Allocates an unlocked, unpurgable block += +==================== +*/ + +void MM_GetPtr (memptr *baseptr,unsigned long size) +{ + mmblocktype far *scan,far *lastscan,far *endscan + ,far *purge,far *next; + int search; + unsigned needed,startseg; + + needed = (size+15)/16; // convert size from bytes to paragraphs + + GETNEWBLOCK; // fill in start and next after a spot is found + mmnew->length = needed; + mmnew->useptr = baseptr; + mmnew->attributes = BASEATTRIBUTES; + + for (search = 0; search<3; search++) + { + // + // first search: try to allocate right after the rover, then on up + // second search: search from the head pointer up to the rover + // third search: compress memory, then scan from start + if (search == 1 && mmrover == mmhead) + search++; + + switch (search) + { + case 0: + lastscan = mmrover; + scan = mmrover->next; + endscan = NULL; + break; + case 1: + lastscan = mmhead; + scan = mmhead->next; + endscan = mmrover; + break; + case 2: + MM_SortMem (); + lastscan = mmhead; + scan = mmhead->next; + endscan = NULL; + break; + } + + startseg = lastscan->start + lastscan->length; + + while (scan != endscan) + { + if (scan->start - startseg >= needed) + { + // + // got enough space between the end of lastscan and + // the start of scan, so throw out anything in the middle + // and allocate the new block + // + purge = lastscan->next; + lastscan->next = mmnew; + mmnew->start = *(unsigned *)baseptr = startseg; + mmnew->next = scan; + while ( purge != scan) + { // free the purgable block + next = purge->next; + FREEBLOCK(purge); + purge = next; // purge another if not at scan + } + mmrover = mmnew; + return; // good allocation! + } + + // + // if this block is purge level zero or locked, skip past it + // + if ( (scan->attributes & LOCKBIT) + || !(scan->attributes & PURGEBITS) ) + { + lastscan = scan; + startseg = lastscan->start + lastscan->length; + } + + + scan=scan->next; // look at next line + } + } + + if (bombonerror) + Quit ("MM_GetPtr: Out of memory!"); + else + mmerror = true; +} + +//========================================================================== + +/* +==================== += += MM_FreePtr += += Allocates an unlocked, unpurgable block += +==================== +*/ + +void MM_FreePtr (memptr *baseptr) +{ + mmblocktype far *scan,far *last; + + last = mmhead; + scan = last->next; + + if (baseptr == mmrover->useptr) // removed the last allocated block + mmrover = mmhead; + + while (scan->useptr != baseptr && scan) + { + last = scan; + scan = scan->next; + } + + if (!scan) + Quit ("MM_FreePtr: Block not found!"); + + last->next = scan->next; + + FREEBLOCK(scan); +} +//========================================================================== + +/* +===================== += += MM_SetPurge += += Sets the purge level for a block (locked blocks cannot be made purgable) += +===================== +*/ + +void MM_SetPurge (memptr *baseptr, int purge) +{ + mmblocktype far *start; + + start = mmrover; + + do + { + if (mmrover->useptr == baseptr) + break; + + mmrover = mmrover->next; + + if (!mmrover) + mmrover = mmhead; + else if (mmrover == start) + Quit ("MM_SetPurge: Block not found!"); + + } while (1); + + mmrover->attributes &= ~PURGEBITS; + mmrover->attributes |= purge; +} + +//========================================================================== + +/* +===================== += += MM_SetLock += += Locks / unlocks the block += +===================== +*/ + +void MM_SetLock (memptr *baseptr, boolean locked) +{ + mmblocktype far *start; + + start = mmrover; + + do + { + if (mmrover->useptr == baseptr) + break; + + mmrover = mmrover->next; + + if (!mmrover) + mmrover = mmhead; + else if (mmrover == start) + Quit ("MM_SetLock: Block not found!"); + + } while (1); + + mmrover->attributes &= ~LOCKBIT; + mmrover->attributes |= locked*LOCKBIT; +} + +//========================================================================== + +/* +===================== += += MM_SortMem += += Throws out all purgable stuff and compresses movable blocks += +===================== +*/ + +void MM_SortMem (void) +{ + mmblocktype far *scan,far *last,far *next; + unsigned start,length,source,dest,oldborder; + int playing; + + // + // lock down a currently playing sound + // + playing = SD_SoundPlaying (); + if (playing) + { + switch (SoundMode) + { + case sdm_PC: + playing += STARTPCSOUNDS; + break; + case sdm_AdLib: + playing += STARTADLIBSOUNDS; + break; + } + MM_SetLock(&(memptr)audiosegs[playing],true); + } + + + SD_StopSound(); + oldborder = bordercolor; + VW_ColorBorder (15); + + if (beforesort) + beforesort(); + + scan = mmhead; + + last = NULL; // shut up compiler warning + + while (scan) + { + if (scan->attributes & LOCKBIT) + { + // + // block is locked, so try to pile later blocks right after it + // + start = scan->start + scan->length; + } + else + { + if (scan->attributes & PURGEBITS) + { + // + // throw out the purgable block + // + next = scan->next; + FREEBLOCK(scan); + last->next = next; + scan = next; + continue; + } + else + { + // + // push the non purgable block on top of the last moved block + // + if (scan->start != start) + { + length = scan->length; + source = scan->start; + dest = start; + while (length > 0xf00) + { + movedata(source,0,dest,0,0xf00*16); + length -= 0xf00; + source += 0xf00; + dest += 0xf00; + } + movedata(source,0,dest,0,length*16); + + scan->start = start; + *(unsigned *)scan->useptr = start; + } + start = scan->start + scan->length; + } + } + + last = scan; + scan = scan->next; // go to next block + } + + mmrover = mmhead; + + if (aftersort) + aftersort(); + + VW_ColorBorder (oldborder); + + if (playing) + MM_SetLock(&(memptr)audiosegs[playing],false); +} + + +//========================================================================== + +/* +===================== += += MM_ShowMemory += +===================== +*/ + +void MM_ShowMemory (void) +{ + mmblocktype far *scan; + unsigned color,temp; + long end,owner; + char scratch[80],str[10]; + + VW_SetDefaultColors(); + VW_SetLineWidth(40); + temp = bufferofs; + bufferofs = 0; + VW_SetScreen (0,0); + + scan = mmhead; + + end = -1; + +//CA_OpenDebug (); + + while (scan) + { + if (scan->attributes & PURGEBITS) + color = 5; // dark purple = purgable + else + color = 9; // medium blue = non purgable + if (scan->attributes & LOCKBIT) + color = 12; // red = locked + if (scan->start<=end) + Quit ("MM_ShowMemory: Memory block order corrupted!"); + end = scan->start+scan->length-1; + VW_Hlin(scan->start,(unsigned)end,0,color); + VW_Plot(scan->start,0,15); + if (scan->next->start > end+1) + VW_Hlin(end+1,scan->next->start,0,0); // black = free + +#if 0 +strcpy (scratch,"Size:"); +ltoa ((long)scan->length*16,str,10); +strcat (scratch,str); +strcat (scratch,"\tOwner:0x"); +owner = (unsigned)scan->useptr; +ultoa (owner,str,16); +strcat (scratch,str); +strcat (scratch,"\n"); +write (debughandle,scratch,strlen(scratch)); +#endif + + scan = scan->next; + } + +//CA_CloseDebug (); + + IN_Ack(); + VW_SetLineWidth(64); + bufferofs = temp; +} + +//========================================================================== + + +/* +====================== += += MM_UnusedMemory += += Returns the total free space without purging += +====================== +*/ + +long MM_UnusedMemory (void) +{ + unsigned free; + mmblocktype far *scan; + + free = 0; + scan = mmhead; + + while (scan->next) + { + free += scan->next->start - (scan->start + scan->length); + scan = scan->next; + } + + return free*16l; +} + +//========================================================================== + + +/* +====================== += += MM_TotalFree += += Returns the total free space with purging += +====================== +*/ + +long MM_TotalFree (void) +{ + unsigned free; + mmblocktype far *scan; + + free = 0; + scan = mmhead; + + while (scan->next) + { + if ((scan->attributes&PURGEBITS) && !(scan->attributes&LOCKBIT)) + free += scan->length; + free += scan->next->start - (scan->start + scan->length); + scan = scan->next; + } + + return free*16l; +} + +//========================================================================== + +/* +===================== += += MM_BombOnError += +===================== +*/ + +void MM_BombOnError (boolean bomb) +{ + bombonerror = bomb; +} + + diff --git a/16/keen456/KEEN4-6/ID_MM.H b/16/keen456/KEEN4-6/ID_MM.H new file mode 100755 index 00000000..4cf2d169 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_MM.H @@ -0,0 +1,116 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_MM.H + +#ifndef __ID_CA__ + +#define __ID_CA__ + +#define SAVENEARHEAP 0x400 // space to leave in data segment +#define SAVEFARHEAP 0 // space to leave in far heap + +#define BUFFERSIZE 0x1000 // miscelanious, allways available buffer + +#ifdef CAT3D +#define MAXBLOCKS 600 +#else +#define MAXBLOCKS 1200 +#endif + + +//-------- + +#define EMS_INT 0x67 + +#define EMS_STATUS 0x40 +#define EMS_GETFRAME 0x41 +#define EMS_GETPAGES 0x42 +#define EMS_ALLOCPAGES 0x43 +#define EMS_MAPPAGE 0x44 +#define EMS_FREEPAGES 0x45 +#define EMS_VERSION 0x46 + +//-------- + +#define XMS_VERSION 0x00 + +#define XMS_ALLOCHMA 0x01 +#define XMS_FREEHMA 0x02 + +#define XMS_GENABLEA20 0x03 +#define XMS_GDISABLEA20 0x04 +#define XMS_LENABLEA20 0x05 +#define XMS_LDISABLEA20 0x06 +#define XMS_QUERYA20 0x07 + +#define XMS_QUERYREE 0x08 +#define XMS_ALLOC 0x09 +#define XMS_FREE 0x0A +#define XMS_MOVE 0x0B +#define XMS_LOCK 0x0C +#define XMS_UNLOCK 0x0D +#define XMS_GETINFO 0x0E +#define XMS_RESIZE 0x0F + +#define XMS_ALLOCUMB 0x10 +#define XMS_FREEUMB 0x11 + +//========================================================================== + +typedef void _seg * memptr; + +typedef struct +{ + long nearheap,farheap,EMSmem,XMSmem,mainmem; +} mminfotype; + +//========================================================================== + +extern mminfotype mminfo; +extern memptr bufferseg; +extern boolean mmerror; + +extern void (* beforesort) (void); +extern void (* aftersort) (void); + +//========================================================================== + +void MM_Startup (void); +void MM_Shutdown (void); +void MM_MapEMS (void); + +void MM_GetPtr (memptr *baseptr,unsigned long size); +void MM_FreePtr (memptr *baseptr); + +void MM_SetPurge (memptr *baseptr, int purge); +void MM_SetLock (memptr *baseptr, boolean locked); +void MM_SortMem (void); + +void MM_ShowMemory (void); + +long MM_UnusedMemory (void); +long MM_TotalFree (void); + +void MM_BombOnError (boolean bomb); + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/ID_RF.C b/16/keen456/KEEN4-6/ID_RF.C new file mode 100755 index 00000000..a040c6bf --- /dev/null +++ b/16/keen456/KEEN4-6/ID_RF.C @@ -0,0 +1,2965 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_RF.C + +/* +============================================================================= + +notes +----- + +scrolling more than one tile / refresh forces a total redraw + +two overlapping sprites of equal priority can change drawing order when +updated + +============================================================================= +*/ + +#include "ID_HEADS.H" +#pragma hdrstop + +/* +============================================================================= + + LOCAL CONSTANTS + +============================================================================= +*/ + +#define SCREENTILESWIDE 20 +#define SCREENTILESHIGH 13 + +#define SCREENSPACE (SCREENWIDTH*240) +#define FREEEGAMEM (0x10000l-3l*SCREENSPACE) + +// +// the update array must have enough space for two screens that can float +// up two two tiles each way +// +// (PORTTILESWIDE+1)*PORTTILESHIGH must be even so the arrays can be cleared +// by word width instructions + +#define UPDATESCREENSIZE (UPDATEWIDE*PORTTILESHIGH+2) +#define UPDATESPARESIZE (UPDATEWIDE*2+4) +#define UPDATESIZE (UPDATESCREENSIZE+2*UPDATESPARESIZE) + +#define G_EGASX_SHIFT 7 // global >> ?? = screen x +#define G_CGASX_SHIFT 6 // global >> ?? = screen x +#define G_SY_SHIFT 4 // global >> ?? = screen y + +unsigned SX_T_SHIFT; // screen x >> ?? = tile EGA = 1, CGA = 2; +#define SY_T_SHIFT 4 // screen y >> ?? = tile + + +#define EGAPORTSCREENWIDE 42 +#define CGAPORTSCREENWIDE 84 +#define PORTSCREENHIGH 224 + +#define UPDATESCREENSIZE (UPDATEWIDE*PORTTILESHIGH+2) +#define UPDATESPARESIZE (UPDATEWIDE*2+4) +#define UPDATESIZE (UPDATESCREENSIZE+2*UPDATESPARESIZE) + +#define MAXSCROLLEDGES 6 + +/* +============================================================================= + + LOCAL TYPES + +============================================================================= +*/ + +typedef struct spriteliststruct +{ + int screenx,screeny; + int width,height; + + unsigned grseg,sourceofs,planesize; + drawtype draw; + unsigned tilex,tiley,tilewide,tilehigh; + int priority,updatecount; + struct spriteliststruct **prevptr,*nextsprite; +} spritelisttype; + + +typedef struct +{ + int screenx,screeny; + int width,height; +} eraseblocktype; + + +typedef struct +{ + unsigned current; // foreground tiles have high bit set + int count; +#ifdef KEEN6 + unsigned soundtile; + unsigned visible; + int sound; +#endif +} tiletype; + + +typedef struct animtilestruct +{ + unsigned x,y,tile; + tiletype *chain; + unsigned far *mapplane; + struct animtilestruct **prevptr,*nexttile; +} animtiletype; + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +unsigned tics; +long lasttimecount; + +boolean compatability; // crippled refresh for wierdo SVGAs + +unsigned mapwidth,mapheight,mapbyteswide,mapwordswide + ,mapbytesextra,mapwordsextra; +unsigned mapbwidthtable[MAXMAPHEIGHT]; + +// +// Global : Actor coordinates are in this, at 1/16 th of a pixel, to allow +// for fractional movement and acceleration. +// +// Tiles : Tile offsets from the upper left corner of the current map. +// +// Screen : Graphics level offsets from map origin, x in bytes, y in pixels. +// originxscreen is the same spot as originxtile, just with extra precision +// so graphics don't need to be done in tile boundaries. +// + +unsigned originxglobal,originyglobal; +unsigned originxtile,originytile; +unsigned originxscreen,originyscreen; +unsigned originmap; +unsigned originxmin,originxmax,originymin,originymax; + +unsigned masterofs; + +// +// Table of the offsets from bufferofs of each tile spot in the +// view port. The extra wide tile should never be drawn, but the space +// is needed to account for the extra 0 in the update arrays. Built by +// RF_Startup +// + +unsigned blockstarts[UPDATEWIDE*UPDATEHIGH]; +unsigned updatemapofs[UPDATEWIDE*UPDATEHIGH]; + +unsigned uwidthtable[PORTTILESHIGH]; // lookup instead of multiply + +byte update[2][UPDATESIZE]; +byte *updateptr,*baseupdateptr, // current start of update window + *updatestart[2], + *baseupdatestart[2]; + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +static char scratch[20],str[80]; + +tiletype allanims[MAXANIMTYPES]; +unsigned numanimchains; + +void (*refreshvector) (void); + +unsigned screenstart[3] = + {0,SCREENSPACE,SCREENSPACE*2}; + +unsigned xpanmask; // prevent panning to odd pixels + +unsigned screenpage; // screen currently being displayed +unsigned otherpage; + + +spritelisttype spritearray[MAXSPRITES],*prioritystart[PRIORITIES], + *spritefreeptr; + +animtiletype animarray[MAXANIMTILES],*animhead,*animfreeptr; + +int animfreespot; + +eraseblocktype eraselist[2][MAXSPRITES],*eraselistptr[2]; + +int hscrollblocks,vscrollblocks; +int hscrolledge[MAXSCROLLEDGES],vscrolledge[MAXSCROLLEDGES]; + +/* +============================================================================= + + LOCAL PROTOTYPES + +============================================================================= +*/ + +void RFL_NewTile (unsigned updateoffset); +void RFL_MaskForegroundTiles (void); +void RFL_UpdateTiles (void); + +void RFL_BoundScroll (int x, int y); +void RFL_CalcOriginStuff (long x, long y); +void RFL_ClearScrollBlocks (void); +void RFL_InitSpriteList (void); +void RFL_InitAnimList (void); +void RFL_CheckForAnimTile (unsigned x, unsigned y); +void RFL_AnimateTiles (void); +void RFL_RemoveAnimsOnX (unsigned x); +void RFL_RemoveAnimsOnY (unsigned y); +void RFL_EraseBlocks (void); +void RFL_UpdateSprites (void); + + +/* +============================================================================= + + GRMODE INDEPENDANT ROUTINES + +============================================================================= +*/ + + +/* +===================== += += RF_Startup += +===================== +*/ + +static char *ParmStrings[] = {"comp",""}; + +void RF_Startup (void) +{ + int i,x,y; + unsigned *blockstart; + +#ifndef KEEN + // + // Keen 4-6 store the compatability setting in the game's config file. + // The setting is loaded from that file AFTER RF_Startup is executed, + // making this check useless (unless the config file doesn't exist). + // Instead, US_Startup now checks for that parameter after the config + // file has been read. + // + if (grmode == EGAGR) + for (i = 1;i < _argc;i++) + if (US_CheckParm(_argv[i],ParmStrings) == 0) + { + compatability = true; + break; + } +#endif + + for (i=0;i += +===================== +*/ + +void RF_NewMap (void) +{ + int i,x,y; + unsigned spot,*table; + + mapwidth = mapheaderseg[mapon]->width; + mapbyteswide = 2*mapwidth; + mapheight = mapheaderseg[mapon]->height; + mapwordsextra = mapwidth-PORTTILESWIDE; + mapbytesextra = 2*mapwordsextra; + +// +// make a lookup table for the maps left edge +// + if (mapheight > MAXMAPHEIGHT) + Quit ("RF_NewMap: Map too tall!"); + spot = 0; + for (i=0;isoundtile = tile; + anim->sound = soundtiles.sounds[i]; + break; + } + } +} + +#endif + +//=========================================================================== + +/* +========================== += += RF_MarkTileGraphics += += Goes through mapplane[0/1] and marks all background/foreground tiles += needed, then follows all animation sequences to make sure animated += tiles get all the stages. Every unique animating tile is given an += entry in allanims[], so every instance of that tile will animate at the += same rate. The info plane for each animating tile will hold a pointer += into allanims[], therefore you can't have both an animating foreground += and background tile in the same spot! += +========================== +*/ + +void RF_MarkTileGraphics (void) +{ + unsigned size; + int tile,next,anims,change; + unsigned far *start,far *end,far *info; + unsigned i,tilehigh; + char str[80],str2[10]; + + memset (allanims,0,sizeof(allanims)); + numanimchains = 0; + + size = mapwidth*mapheight; + +// +// background plane +// + start = mapsegs[0]; + info = mapsegs[2]; + end = start+size; + do + { + tile = *start++; + if (tile>=0) // <0 is a tile that is never drawn + { + CA_MarkGrChunk(STARTTILE16+tile); + if (tinf[ANIM+tile]) + { + // this tile will animated + + if (tinf[SPEED+tile]) + { + if (!tinf[ANIM+tile]) + { + strcpy (str,"RF_MarkTileGraphics: Background anim of 0:"); + itoa (tile,str2,10); + strcat (str,str2); + Quit (str); + } + for (i=0;i=MAXANIMTYPES) + Quit ("RF_MarkTileGraphics: Too many unique animated tiles!"); + allanims[i].current = tile; + allanims[i].count = tinf[SPEED+tile]; +#ifdef KEEN6 + allanims[i].visible = 0; + allanims[i].sound = -1; +#endif + *info = (unsigned)&allanims[i]; + numanimchains++; + } +#ifdef KEEN6 + RFL_CheckTileSound(&allanims[i], tile); +#endif + + anims = 0; + change = (signed char)(tinf[ANIM+tile]); + next = tile+change; + while (change && next != tile) + { +#ifdef KEEN6 + RFL_CheckTileSound(&allanims[i], next); +#endif + CA_MarkGrChunk(STARTTILE16+next); + change = (signed char)(tinf[ANIM+next]); + next += change; + if (++anims > 20) + { + strcpy (str,"RF_MarkTileGraphics: Unending background animation:"); + itoa (next,str2,10); + strcat (str,str2); + Quit (str); + } + } + + } + } +nextback: + info++; + } while (start=0) // <0 is a tile that is never drawn + { + CA_MarkGrChunk(STARTTILE16M+tile); + if (tinf[MANIM+tile]) + { + // this tile will animated + + if (tinf[MSPEED+tile]) + { + if (!tinf[MANIM+tile]) + { + strcpy (str,"RF_MarkTileGraphics: Foreground anim of 0:"); + itoa (tile,str2,10); + strcat (str,str2); + Quit (str); + } + tilehigh = tile | 0x8000; // foreground tiles have high bit + for (i=0;i=MAXANIMTYPES) + Quit ("RF_MarkTileGraphics: Too many unique animated tiles!"); + allanims[i].current = tilehigh; + allanims[i].count = tinf[MSPEED+tile]; +#ifdef KEEN6 + allanims[i].visible = 0; + allanims[i].sound = -1; +#endif + *info = (unsigned)&allanims[i]; + numanimchains++; + } + +#ifdef KEEN6 + RFL_CheckTileSound(&allanims[i], tilehigh); +#endif + anims = 0; + change = (signed char)(tinf[MANIM+tile]); + next = tile+change; + while (change && next != tile) + { +#ifdef KEEN6 + RFL_CheckTileSound(&allanims[i], next | 0x8000); // foreground tiles have high bit +#endif + CA_MarkGrChunk(STARTTILE16M+next); + change = (signed char)(tinf[MANIM+next]); + next += change; + if (++anims > 20) + { + strcpy (str,"RF_MarkTileGraphics: Unending foreground animation:"); + itoa (next,str2,10); + strcat (str,str2); + Quit (str); + } + } + + } + } +nextfront: + info++; + } while (startcurrent != 0; anim++) + anim->visible = 0; + } +#endif +} + + +/* +==================== += += RFL_CheckForAnimTile += +==================== +*/ + +void RFL_CheckForAnimTile (unsigned x, unsigned y) +{ + unsigned tile,offset,speed,lasttime,thistime,timemissed; + unsigned far *map; + animtiletype *anim,*next; + +// the info plane of each animating tile has a near pointer into allanims[] +// which gives the current state of all concurrently animating tiles + + offset = mapbwidthtable[y]/2+x; + +// +// background +// + map = mapsegs[0]+offset; + tile = *map; + if (tinf[ANIM+tile] && tinf[SPEED+tile]) + { + if (!animfreeptr) + Quit ("RF_CheckForAnimTile: No free spots in tilearray!"); + anim = animfreeptr; + animfreeptr = animfreeptr->nexttile; + next = animhead; // stick it at the start of the list + animhead = anim; + if (next) + next->prevptr = &anim->nexttile; + anim->nexttile = next; + anim->prevptr = &animhead; + + anim->x = x; + anim->y = y; + anim->tile = tile; + anim->mapplane = map; + anim->chain = (tiletype *)*(mapsegs[2]+offset); +#ifdef KEEN6 + anim->chain->visible++; +#endif + } + +// +// foreground +// + map = mapsegs[1]+offset; + tile = *map; + if (tinf[MANIM+tile] && tinf[MSPEED+tile]) + { + if (!animfreeptr) + Quit ("RF_CheckForAnimTile: No free spots in tilearray!"); + anim = animfreeptr; + animfreeptr = animfreeptr->nexttile; + next = animhead; // stick it at the start of the list + animhead = anim; + if (next) + next->prevptr = &anim->nexttile; + anim->nexttile = next; + anim->prevptr = &animhead; + + anim->x = x; + anim->y = y; + anim->tile = tile; + anim->mapplane = map; + anim->chain = (tiletype *)*(mapsegs[2]+offset); +#ifdef KEEN6 + anim->chain->visible++; +#endif + } + +} + + +/* +==================== += += RFL_RemoveAnimsOnX += +==================== +*/ + +void RFL_RemoveAnimsOnX (unsigned x) +{ + animtiletype *current,*next; + + current = animhead; + while (current) + { + if (current->x == x) + { +#ifdef KEEN6 + current->chain->visible--; +#endif + *(void **)current->prevptr = current->nexttile; + if (current->nexttile) + current->nexttile->prevptr = current->prevptr; + next = current->nexttile; + current->nexttile = animfreeptr; + animfreeptr = current; + current = next; + } + else + current = current->nexttile; + } +} + + +/* +==================== += += RFL_RemoveAnimsOnY += +==================== +*/ + +void RFL_RemoveAnimsOnY (unsigned y) +{ + animtiletype *current,*next; + + current = animhead; + while (current) + { + if (current->y == y) + { +#ifdef KEEN6 + current->chain->visible--; +#endif + *(void **)current->prevptr = current->nexttile; + if (current->nexttile) + current->nexttile->prevptr = current->prevptr; + next = current->nexttile; + current->nexttile = animfreeptr; + animfreeptr = current; + current = next; + } + else + current = current->nexttile; + } +} + + +/* +==================== += += RFL_RemoveAnimsInBlock += +==================== +*/ + +void RFL_RemoveAnimsInBlock (unsigned x, unsigned y, unsigned width, unsigned height) +{ + animtiletype *current,*next; + + current = animhead; + while (current) + { + if (current->x - x < width && current->y - y < height) + { +#ifdef KEEN6 + current->chain->visible--; +#endif + *(void **)current->prevptr = current->nexttile; + if (current->nexttile) + current->nexttile->prevptr = current->prevptr; + next = current->nexttile; + current->nexttile = animfreeptr; + animfreeptr = current; + current = next; + } + else + current = current->nexttile; + } +} + + +/* +==================== += += RFL_AnimateTiles += +==================== +*/ + +void RFL_AnimateTiles (void) +{ + animtiletype *current; + unsigned updateofs,tile,x,y; + tiletype *anim; + +// +// animate the lists of tiles +// + anim = &allanims[0]; + while (anim->current) + { + anim->count-=tics; + while ( anim->count < 1) + { + if (anim->current & 0x8000) + { + tile = anim->current & 0x7fff; + tile += (signed char)tinf[MANIM+tile]; + anim->count += tinf[MSPEED+tile]; + tile |= 0x8000; + } + else + { + tile = anim->current; + tile += (signed char)tinf[ANIM+tile]; + anim->count += tinf[SPEED+tile]; + } + anim->current = tile; +#ifdef KEEN6 + if (anim->visible && anim->current == anim->soundtile && anim->sound != -1) + { + SD_PlaySound(anim->sound); + } +#endif + } + anim++; + } + + +// +// traverse the list of animating tiles +// + current = animhead; + while (current) + { + tile =current->chain->current; + if ( tile != current->tile) + { + // tile has animated + // + // remove tile from master screen cache, + // change a tile to its next state, set the structure up for + // next animation, and post an update region to both update pages + // + current->tile = tile; + + *(current->mapplane) = tile & 0x7fff; // change in map + + x = current->x-originxtile; + y = current->y-originytile; + + if (x>=PORTTILESWIDE || y>=PORTTILESHIGH) + Quit ("RFL_AnimateTiles: Out of bounds!"); + + updateofs = uwidthtable[y] + x; + RFL_NewTile(updateofs); // puts "1"s in both pages + } + current = current->nexttile; + } +} + + +//=========================================================================== + +/* +========================= += += RFL_InitSpriteList += += Call to clear out the entire sprite list and return all of them to += the free list. += +========================= +*/ + +void RFL_InitSpriteList (void) +{ + int i; + + spritefreeptr = &spritearray[0]; + for (i=0;i>G_T_SHIFT; + originytile = originyglobal>>G_T_SHIFT; + originxscreen = originxtile<>G_P_SHIFT) & 15; + pansx = panx & 8; + pany = pansy = (originyglobal>>G_P_SHIFT) & 15; + panadjust = panx/8 + ylookup[pany]; +#endif + +#if GRMODE == CGAGR + panx = (originxglobal>>G_P_SHIFT) & 15; + pansx = panx & 12; + pany = pansy = (originyglobal>>G_P_SHIFT) & 15; + panadjust = pansx/4 + ylookup[pansy]; +#endif + +} + + +/* +================= += += RFL_ClearScrollBlocks += +================= +*/ + +void RFL_ClearScrollBlocks (void) +{ + hscrollblocks = vscrollblocks = 0; +} + + +/* +================= += += RF_SetScrollBlock += += Sets a horizontal or vertical scroll block += a horizontal block is ----, meaning it blocks up/down movement += +================= +*/ + +void RF_SetScrollBlock (int x, int y, boolean horizontal) +{ + if (horizontal) + { + hscrolledge[hscrollblocks] = y; + if (hscrollblocks++ == MAXSCROLLEDGES) + Quit ("RF_SetScrollBlock: Too many horizontal scroll blocks"); + } + else + { + vscrolledge[vscrollblocks] = x; + if (vscrollblocks++ == MAXSCROLLEDGES) + Quit ("RF_SetScrollBlock: Too many vertical scroll blocks"); + } +} + + +/* +================= += += RFL_BoundScroll += += Bound a given x/y movement to scroll blocks += +================= +*/ + +void RFL_BoundScroll (int x, int y) +{ + int check,newxtile,newytile; + + originxglobal += x; + originyglobal += y; + + newxtile= originxglobal >> G_T_SHIFT; + newytile = originyglobal >> G_T_SHIFT; + + if (x>0) + { + newxtile+=SCREENTILESWIDE; + for (check=0;check0) + { + newytile+=SCREENTILESHIGH; + for (check=0;checkoriginxmax) + orgx=originxmax; + + if (orgyoriginymax) + orgy=originymax; + + originxtile = orgx>>G_T_SHIFT; + originytile = orgy>>G_T_SHIFT; + + for (check=0;check=originxtile && edge <=originxtile+10) + { + orgx = (edge+1)*TILEGLOBAL; + break; + } + if (edge>=originxtile+11 && edge <=originxtile+20) + { + orgx = (edge-20)*TILEGLOBAL; + break; + } + } + + for (check=0;check=originytile && edge <=originytile+6) + { + orgy = (edge+1)*TILEGLOBAL; + break; + } + if (edge>=originytile+7 && edge <=originytile+13) + { + orgy = (edge-13)*TILEGLOBAL; + break; + } + } + + + RFL_CalcOriginStuff (orgx,orgy); +} + + +//=========================================================================== + +/* +===================== += += RF_ClearBlock += += Posts erase blocks to clear a certain area of the screen to the master += screen, to erase text or something draw directly to the screen += += Parameters in pixels, but erasure is byte bounded += +===================== +*/ + +void RF_ClearBlock (int x, int y, int width, int height) +{ + eraseblocktype block; + +#if GRMODE == EGAGR + block.screenx = x/8+originxscreen; + block.screeny = y+originyscreen; + block.width = (width+(x&7)+7)/8; + block.height = height; + memcpy (eraselistptr[0]++,&block,sizeof(block)); + memcpy (eraselistptr[1]++,&block,sizeof(block)); +#endif + +#if GRMODE == CGAGR + block.screenx = x/4+originxscreen; + block.screeny = y+originyscreen; + block.width = (width+(x&3)+3)/4; + block.height = height; + memcpy (eraselistptr[0]++,&block,sizeof(block)); +#endif + +} + +//=========================================================================== + +/* +===================== += += RF_RedrawBlock += += Causes a number of tiles to be redrawn to the master screen and updated += += Parameters in pixels, but erasure is tile bounded += +===================== +*/ + +void RF_RedrawBlock (int x, int y, int width, int height) +{ + int xx,yy,xl,xh,yl,yh; + + xl=(x+panx)/16; + xh=(x+panx+width+15)/16; + yl=(y+pany)/16; + yh=(y+pany+height+15)/16; + for (yy=yl;yy<=yh;yy++) + for (xx=xl;xx<=xh;xx++) + RFL_NewTile (yy*UPDATEWIDE+xx); +} + + +//=========================================================================== + +/* +===================== += += RF_CalcTics += +===================== +*/ + +void RF_CalcTics (void) +{ + long newtime,oldtimecount; + +// +// calculate tics since last refresh for adaptive timing +// + if (lasttimecount > TimeCount) + TimeCount = lasttimecount; // if the game was paused a LONG time + + if (DemoMode) // demo recording and playback needs + { // to be constant +// +// take DEMOTICS or more tics, and modify Timecount to reflect time taken +// + oldtimecount = lasttimecount; + while (TimeCountMAXTICS) + { + TimeCount -= (tics-MAXTICS); + tics = MAXTICS; + } + } +} + +//=========================================================================== + +/* +===================== += += RF_FindFreeBuffer += += Finds the start of unused, non visable buffer space += +===================== +*/ + +unsigned RF_FindFreeBuffer (void) +{ + unsigned spot,i,j; + boolean ok; + + for (i=0;i<3;i++) + { + spot = screenstart[i]+SCREENSPACE; + ok = true; + for (j=0;j<3;j++) + if (spot == screenstart[j]) + { + ok = false; + break; + } + if (ok) + return spot; + } + + return 0; // never get here... +} + +/* +============================================================================= + + EGA specific routines + +============================================================================= +*/ + +#if GRMODE == EGAGR + +/* +===================== += += RF_NewPosition EGA += +===================== +*/ + +void RF_NewPosition (unsigned x, unsigned y) +{ + int mx,my; + byte *page0ptr,*page1ptr; + unsigned updatenum; + + RFL_BoundNewOrigin (x,y); +// +// clear out all animating tiles +// + RFL_InitAnimList (); + +// +// set up the new update arrays at base position +// + updatestart[0] = baseupdatestart[0]; + updatestart[1] = baseupdatestart[1]; + updateptr = updatestart[otherpage]; + + page0ptr = updatestart[0]+PORTTILESWIDE; // used to stick "0"s after rows + page1ptr = updatestart[1]+PORTTILESWIDE; + + updatenum = 0; // start at first visable tile + + for (my=0;my1 || absdy>1) + { + // + // scrolled more than one tile, so start from scratch + // + RF_NewPosition(originxglobal,originyglobal); + return; + } + + if (!absdx && !absdy) + return; // the screen has not scrolled an entire tile + + +// +// adjust screens and handle SVGA crippled compatability mode +// + screenmove = deltay*16*SCREENWIDTH + deltax*TILEWIDTH; + for (i=0;i<3;i++) + { + screenstart[i]+= screenmove; + if (compatability && screenstart[i] > (0x10000l-SCREENSPACE) ) + { + // + // move the screen to the opposite end of the buffer + // + screencopy = screenmove>0 ? FREEEGAMEM : -FREEEGAMEM; + oldscreen = screenstart[i] - screenmove; + newscreen = oldscreen + screencopy; + screenstart[i] = newscreen + screenmove; + VW_ScreenToScreen (oldscreen,newscreen, + PORTTILESWIDE*2,PORTTILESHIGH*16); + + if (i==screenpage) + VW_SetScreen(newscreen+oldpanadjust,oldpanx & xpanmask); + } + } + bufferofs = screenstart[otherpage]; + displayofs = screenstart[screenpage]; + masterofs = screenstart[2]; + + +// +// float the update regions +// + move = deltax; + if (deltay==1) + move += UPDATEWIDE; + else if (deltay==-1) + move -= UPDATEWIDE; + + updatestart[0]+=move; + updatestart[1]+=move; + +// +// draw the new tiles just scrolled on to the master screen, and +// mark them as needing to be copied to each screen next refreshes +// Make sure a zero is at the end of each row in update +// + + if (deltax) + { + if (deltax==1) + { + RFL_NewRow (1); // new right row + RFL_RemoveAnimsOnX (originxtile-1); + } + else + { + RFL_NewRow (3); // new left row + RFL_RemoveAnimsOnX (originxtile+PORTTILESWIDE); + } + + update0 = updatestart[0]+PORTTILESWIDE; + update1 = updatestart[1]+PORTTILESWIDE; + for (yy=0;yyupdatecount<2) + { + if (!sprite->updatecount) + memcpy (eraselistptr[otherpage]++,sprite,sizeof(eraseblocktype)); + memcpy (eraselistptr[screenpage]++,sprite,sizeof(eraseblocktype)); + } + + if (priority != sprite->priority) + { + // sprite mvoed to another priority, so unlink the old one and + // relink it in the new priority + + next = sprite->nextsprite; // cut old links + if (next) + next->prevptr = sprite->prevptr; + *sprite->prevptr = next; + goto linknewspot; + } + } + else + { + // this is a brand new sprite, so allocate a block from the array + + if (!spritefreeptr) + Quit ("RF_PlaceSprite: No free spots in spritearray!"); + + sprite = spritefreeptr; + spritefreeptr = spritefreeptr->nextsprite; + +linknewspot: + next = prioritystart[priority]; // stick it in new spot + if (next) + next->prevptr = &sprite->nextsprite; + sprite->nextsprite = next; + prioritystart[priority] = sprite; + sprite->prevptr = &prioritystart[priority]; + } + +// +// write the new info to the sprite +// + spr = &spritetable[spritenumber-STARTSPRITES]; + block = (spritetype _seg *)grsegs[spritenumber]; + + if (!block) + { + strcpy (str,"RF_PlaceSprite: Placed an uncached sprite:"); + itoa (spritenumber,str2,10); + strcat (str,str2); + Quit (str); + } + + globaly+=spr->orgy; + globalx+=spr->orgx; + + pixx = globalx >> G_SY_SHIFT; + if (nopan) + shift = 0; + else + shift = (pixx&7)/2; + + sprite->screenx = pixx >> (G_EGASX_SHIFT-G_SY_SHIFT); + sprite->screeny = globaly >> G_SY_SHIFT; + sprite->width = block->width[shift]; + sprite->height = spr->height; + sprite->grseg = spritenumber; + sprite->sourceofs = block->sourceoffset[shift]; + sprite->planesize = block->planesize[shift]; + sprite->draw = draw; + sprite->priority = priority; + sprite->tilex = sprite->screenx >> SX_T_SHIFT; + sprite->tiley = sprite->screeny >> SY_T_SHIFT; + sprite->tilewide = ( (sprite->screenx + sprite->width -1) >> SX_T_SHIFT ) + - sprite->tilex + 1; + sprite->tilehigh = ( (sprite->screeny + sprite->height -1) >> SY_T_SHIFT ) + - sprite->tiley + 1; + + sprite->updatecount = 2; // draw on next two refreshes + +// save the sprite pointer off in the user's pointer so it can be moved +// again later + + *user = sprite; +} + +//=========================================================================== + +/* +===================== += += RF_RemoveSprite EGA += +===================== +*/ + +void RF_RemoveSprite (void **user) +{ + spritelisttype *sprite,*next; + + sprite = (spritelisttype *)*user; + if (!sprite) + return; + +// +// post an erase block to both pages by copying screenx,screeny,width,height +// both pages may not need to be erased if the sprite just changed last frame +// + if (sprite->updatecount<2) + { + if (!sprite->updatecount) + memcpy (eraselistptr[otherpage]++,sprite,sizeof(eraseblocktype)); + memcpy (eraselistptr[screenpage]++,sprite,sizeof(eraseblocktype)); + } + +// +// unlink the sprite node +// + next = sprite->nextsprite; + if (next) // if (!next), sprite is last in chain + next->prevptr = sprite->prevptr; + *sprite->prevptr = next; + +// +// add it back to the free list +// + sprite->nextsprite = spritefreeptr; + spritefreeptr = sprite; + +// +// null the users pointer, so next time that actor gets placed, it will +// allocate a new block +// + + *user = 0; +} + + +//=========================================================================== + + +/* +==================== += += RFL_EraseBlocks EGA += += Write mode 1 should be set += +==================== +*/ + +void RFL_EraseBlocks (void) +{ + eraseblocktype *block,*done; + int screenxh,screenyh; + unsigned pos,xtl,ytl,xth,yth,x,y; + byte *updatespot; + unsigned updatedelta; + unsigned erasecount; + +#ifdef PROFILE + erasecount = 0; +#endif + + block = otherpage ? &eraselist[1][0] : &eraselist[0][0]; + + done = eraselistptr[otherpage]; + + while (block != done) + { + + // + // clip the block to the current screen view + // + block->screenx -= originxscreen; + block->screeny -= originyscreen; + + if (block->screenx < 0) + { + block->width += block->screenx; + if (block->width<1) + goto next; + block->screenx = 0; + } + + if (block->screeny < 0) + { + block->height += block->screeny; + if (block->height<1) + goto next; + block->screeny = 0; + } + + screenxh = block->screenx + block->width; + screenyh = block->screeny + block->height; + + if (screenxh > EGAPORTSCREENWIDE) + { + block->width = EGAPORTSCREENWIDE-block->screenx; + screenxh = block->screenx + block->width; + } + + if (screenyh > PORTSCREENHIGH) + { + block->height = PORTSCREENHIGH-block->screeny; + screenyh = block->screeny + block->height; + } + + if (block->width<1 || block->height<1) + goto next; + + // + // erase the block by copying from the master screen + // + pos = ylookup[block->screeny]+block->screenx; + VW_ScreenToScreen (masterofs+pos,bufferofs+pos, + block->width,block->height); + + // + // put 2s in update where the block was, to force sprites to update + // + xtl = block->screenx >> SX_T_SHIFT; + xth = (block->screenx+block->width-1) >> SX_T_SHIFT; + ytl = block->screeny >> SY_T_SHIFT; + yth = (block->screeny+block->height-1) >> SY_T_SHIFT; + + updatespot = updateptr + uwidthtable[ytl] + xtl; + updatedelta = UPDATEWIDE - (xth-xtl+1); + + for (y=ytl;y<=yth;y++) + { + for (x=xtl;x<=xth;x++) + *updatespot++ = 2; + updatespot += updatedelta; // down to next line + } +#ifdef PROFILE + erasecount++; +#endif + +next: + block++; + } + eraselistptr[otherpage] = otherpage ? &eraselist[1][0] : &eraselist[0][0]; +#ifdef PROFILE + strcpy (scratch,"\tErase:"); + itoa (erasecount,str,10); + strcat (scratch,str); + write (profilehandle,scratch,strlen(scratch)); +#endif + +} + + +/* +==================== += += RFL_UpdateSprites EGA += += NOTE: Implement vertical clipping! += +==================== +*/ + +void RFL_UpdateSprites (void) +{ + spritelisttype *sprite; + int portx,porty,x,y,xtl,xth,ytl,yth; + int priority; + unsigned dest; + byte *updatespot,*baseupdatespot; + unsigned updatedelta; + unsigned updatecount; + unsigned height,sourceofs; + +#ifdef PROFILE + updatecount = 0; +#endif + + for (priority=0;prioritynextsprite) + { + // + // see if the sprite has any visable area in the port + // + + portx = sprite->screenx - originxscreen; + porty = sprite->screeny - originyscreen; + xtl = portx >> SX_T_SHIFT; + xth = (portx + sprite->width-1) >> SX_T_SHIFT; + ytl = porty >> SY_T_SHIFT; + yth = (porty + sprite->height-1) >> SY_T_SHIFT; + + if (xtl<0) + xtl = 0; + if (xth>=PORTTILESWIDE) + xth = PORTTILESWIDE-1; + if (ytl<0) + ytl = 0; + if (yth>=PORTTILESHIGH) + yth = PORTTILESHIGH-1; + + if (xtl>xth || ytl>yth) + continue; + + // + // see if it's visable area covers any non 0 update tiles + // + updatespot = baseupdatespot = updateptr + uwidthtable[ytl] + xtl; + updatedelta = UPDATEWIDE - (xth-xtl+1); + + if (sprite->updatecount) + { + sprite->updatecount--; // the sprite was just placed, + goto redraw; // so draw it for sure + } + + for (y=ytl;y<=yth;y++) + { + for (x=xtl;x<=xth;x++) + if (*updatespot++) + goto redraw; + updatespot += updatedelta; // down to next line + } + continue; // no need to update + +redraw: + // + // set the tiles it covers to 3, because those tiles are being + // updated + // + updatespot = baseupdatespot; + for (y=ytl;y<=yth;y++) + { + for (x=xtl;x<=xth;x++) + *updatespot++ = 3; + updatespot += updatedelta; // down to next line + } + // + // draw it! + // + height = sprite->height; + sourceofs = sprite->sourceofs; + if (porty<0) + { + height += porty; // clip top off + sourceofs -= porty*sprite->width; + porty = 0; + } + else if (porty+height>PORTSCREENHIGH) + { + height = PORTSCREENHIGH - porty; // clip bottom off + } + + dest = bufferofs + ylookup[porty] + portx; + + switch (sprite->draw) + { + case spritedraw: + VW_MaskBlock(grsegs[sprite->grseg], sourceofs, + dest,sprite->width,height,sprite->planesize); + break; + + case maskdraw: + VW_InverseMask(grsegs[sprite->grseg], sourceofs, + dest,sprite->width,height); + break; + + } +#ifdef PROFILE + updatecount++; +#endif + + + } + } +#ifdef PROFILE + strcpy (scratch,"\tSprites:"); + itoa (updatecount,str,10); + strcat (scratch,str); + write (profilehandle,scratch,strlen(scratch)); +#endif + +} + + +/* +===================== += += RF_Refresh EGA += += All routines will draw at the port at bufferofs, possibly copying from += the port at masterofs. The EGA version then page flips, while the += CGA version updates the screen from the buffer port. += += Screenpage is the currently displayed page, not the one being drawn += Otherpage is the page to be worked with now += +===================== +*/ + +void RF_Refresh (void) +{ + byte *newupdate; + + updateptr = updatestart[otherpage]; + + RFL_AnimateTiles (); // DEBUG + +// +// update newly scrolled on tiles and animated tiles from the master screen +// + EGAWRITEMODE(1); + EGAMAPMASK(15); + RFL_UpdateTiles (); + RFL_EraseBlocks (); + +// +// Update is all 0 except where sprites have changed or new area has +// been scrolled on. Go through all sprites and update the ones that cover +// a non 0 update tile +// + EGAWRITEMODE(0); + RFL_UpdateSprites (); + +// +// if the main program has a refresh hook set, call their function before +// displaying the new page +// + if (refreshvector) + refreshvector(); + +// +// display the changed screen +// + VW_SetScreen(bufferofs+panadjust,panx & xpanmask); + +// +// prepare for next refresh +// +// Set the update array to the middle position and clear it out to all "0"s +// with an UPDATETERMINATE at the end +// + updatestart[otherpage] = newupdate = baseupdatestart[otherpage]; +asm mov ax,ds +asm mov es,ax +asm xor ax,ax +asm mov cx,(UPDATESCREENSIZE-2)/2 +asm mov di,[newupdate] +asm rep stosw +asm mov [WORD PTR es:di],UPDATETERMINATE + + screenpage ^= 1; + otherpage ^= 1; + bufferofs = screenstart[otherpage]; + displayofs = screenstart[screenpage]; + +// +// calculate tics since last refresh for adaptive timing +// + RF_CalcTics (); +} + +#endif // GRMODE == EGAGR + +/* +============================================================================= + + CGA specific routines + +============================================================================= +*/ + +#if GRMODE == CGAGR + + +/* +===================== += += RF_NewPosition CGA += +===================== +*/ + +void RF_NewPosition (unsigned x, unsigned y) +{ + int mx,my; + byte *spotptr; + unsigned updatenum; + + RFL_BoundNewOrigin (x,y); + +// +// clear out all animating tiles +// + RFL_InitAnimList (); + +// +// set up the new update arrays at base position +// + updateptr = baseupdateptr; + + spotptr = updateptr + PORTTILESWIDE; // used to stick "0"s after rows + + updatenum = 0; // start at first visable tile + + for (my=0;my1 || absdy>1) + { + // + // scrolled more than one tile, so start from scratch + // + RF_NewPosition(originxglobal,originyglobal); + return; + } + + if (!absdx && !absdy) + return; // the screen has not scrolled an entire tile + + +// +// float screens +// + screenmove = deltay*16*SCREENWIDTH + deltax*TILEWIDTH; + bufferofs += screenmove; + masterofs += screenmove; + + +// +// float the update regions +// + move = deltax; + if (deltay==1) + move += UPDATEWIDE; + else if (deltay==-1) + move -= UPDATEWIDE; + + updateptr+=move; + +// +// draw the new tiles just scrolled on to the master screen, and +// mark them as needing to be copied to each screen next refreshes +// Make sure a zero is at the end of each row in update +// + + if (deltax) + { + if (deltax==1) + { + RFL_NewRow (1); // new right row + RFL_RemoveAnimsOnX (originxtile-1); + } + else + { + RFL_NewRow (3); // new left row + RFL_RemoveAnimsOnX (originxtile+PORTTILESWIDE); + } + + spotptr = updateptr+PORTTILESWIDE; + for (yy=0;yyupdatecount) // may not have been drawn at all yet + memcpy (eraselistptr[0]++,sprite,sizeof(eraseblocktype)); + + if (priority != sprite->priority) + { + // sprite moved to another priority, so unlink the old one and + // relink it in the new priority + + next = sprite->nextsprite; // cut old links + if (next) + next->prevptr = sprite->prevptr; + *sprite->prevptr = next; + goto linknewspot; + } + } + else + { + // this is a brand new sprite, so allocate a block from the array + + if (!spritefreeptr) + Quit ("RF_PlaceSprite: No free spots in spritearray!"); + + sprite = spritefreeptr; + spritefreeptr = spritefreeptr->nextsprite; + +linknewspot: + next = prioritystart[priority]; // stick it in new spot + if (next) + next->prevptr = &sprite->nextsprite; + sprite->nextsprite = next; + prioritystart[priority] = sprite; + sprite->prevptr = &prioritystart[priority]; + } + +// +// write the new info to the sprite +// + spr = &spritetable[spritenumber-STARTSPRITES]; + block = (spritetype _seg *)grsegs[spritenumber]; + + if (!block) + { + strcpy (str,"RF_PlaceSprite: Placed an uncached sprite!"); + itoa (spritenumber,str2,10); + strcat (str,str2); + Quit (str); + } + + + globaly+=spr->orgy; + globalx+=spr->orgx; + + sprite->screenx = globalx >> G_CGASX_SHIFT; + sprite->screeny = globaly >> G_SY_SHIFT; + sprite->width = block->width[0]; + sprite->height = spr->height; + sprite->grseg = spritenumber; + sprite->sourceofs = block->sourceoffset[0]; + sprite->planesize = block->planesize[0]; + sprite->draw = draw; + sprite->priority = priority; + sprite->tilex = sprite->screenx >> SX_T_SHIFT; + sprite->tiley = sprite->screeny >> SY_T_SHIFT; + sprite->tilewide = ( (sprite->screenx + sprite->width -1) >> SX_T_SHIFT ) + - sprite->tilex + 1; + sprite->tilehigh = ( (sprite->screeny + sprite->height -1) >> SY_T_SHIFT ) + - sprite->tiley + 1; + + sprite->updatecount = 1; // draw on next refresh + +// save the sprite pointer off in the user's pointer so it can be moved +// again later + + *user = sprite; +} + +//=========================================================================== + +/* +===================== += += RF_RemoveSprite CGA += +===================== +*/ + +void RF_RemoveSprite (void **user) +{ + spritelisttype *sprite,*next; + + sprite = (spritelisttype *)*user; + if (!sprite) + return; + +// +// post an erase block to erase the old position by copying +// screenx,screeny,width,height +// + if (!sprite->updatecount) + { + memcpy (eraselistptr[0]++,sprite,sizeof(eraseblocktype)); + } + +// +// unlink the sprite node +// + next = sprite->nextsprite; + if (next) // if (!next), sprite is last in chain + next->prevptr = sprite->prevptr; + *sprite->prevptr = next; + +// +// add it back to the free list +// + sprite->nextsprite = spritefreeptr; + spritefreeptr = sprite; + +// +// null the users pointer, so next time that actor gets placed, it will +// allocate a new block +// + + *user = 0; +} + + +/* +==================== += += RFL_EraseBlocks CGA += += Write mode 1 should be set += +==================== +*/ + +void RFL_EraseBlocks (void) +{ + eraseblocktype *block,*done; + int screenxh,screenyh; + unsigned pos,xtl,ytl,xth,yth,x,y; + byte *updatespot; + unsigned updatedelta; + + block = &eraselist[0][0]; + + done = eraselistptr[0]; + + while (block != done) + { + + // + // clip the block to the current screen view + // + block->screenx -= originxscreen; + block->screeny -= originyscreen; + + if (block->screenx < 0) + { + block->width += block->screenx; + if (block->width<1) + goto next; + block->screenx = 0; + } + + if (block->screeny < 0) + { + block->height += block->screeny; + if (block->height<1) + goto next; + block->screeny = 0; + } + + screenxh = block->screenx + block->width; + screenyh = block->screeny + block->height; + + if (screenxh > CGAPORTSCREENWIDE) + { + block->width = CGAPORTSCREENWIDE-block->screenx; + screenxh = block->screenx + block->width; + } + + if (screenyh > PORTSCREENHIGH) + { + block->height = PORTSCREENHIGH-block->screeny; + screenyh = block->screeny + block->height; + } + + if (block->width<1 || block->height<1) + goto next; + + // + // erase the block by copying from the master screen + // + pos = ylookup[block->screeny]+block->screenx; + block->width = (block->width + (pos&1) + 1)& ~1; + pos &= ~1; // make sure a word copy gets used + VW_ScreenToScreen (masterofs+pos,bufferofs+pos, + block->width,block->height); + + // + // put 2s in update where the block was, to force sprites to update + // + xtl = block->screenx >> SX_T_SHIFT; + xth = (block->screenx+block->width-1) >> SX_T_SHIFT; + ytl = block->screeny >> SY_T_SHIFT; + yth = (block->screeny+block->height-1) >> SY_T_SHIFT; + + updatespot = updateptr + uwidthtable[ytl] + xtl; + updatedelta = UPDATEWIDE - (xth-xtl+1); + + for (y=ytl;y<=yth;y++) + { + for (x=xtl;x<=xth;x++) + *updatespot++ = 2; + updatespot += updatedelta; // down to next line + } + +next: + block++; + } + eraselistptr[0] = &eraselist[0][0]; +} + + +/* +==================== += += RFL_UpdateSprites CGA += += NOTE: Implement vertical clipping! += +==================== +*/ + +void RFL_UpdateSprites (void) +{ + spritelisttype *sprite; + int portx,porty,x,y,xtl,xth,ytl,yth; + int priority; + unsigned dest; + byte *updatespot,*baseupdatespot; + unsigned updatedelta; + + unsigned updatecount; + unsigned height,sourceofs; + +#ifdef PROFILE + updatecount = 0; +#endif + + + for (priority=0;prioritynextsprite) + { + // + // see if the sprite has any visable area in the port + // + + portx = sprite->screenx - originxscreen; + porty = sprite->screeny - originyscreen; + xtl = portx >> SX_T_SHIFT; + xth = (portx + sprite->width-1) >> SX_T_SHIFT; + ytl = porty >> SY_T_SHIFT; + yth = (porty + sprite->height-1) >> SY_T_SHIFT; + + if (xtl<0) + xtl = 0; + if (xth>=PORTTILESWIDE) + xth = PORTTILESWIDE-1; + if (ytl<0) + ytl = 0; + if (yth>=PORTTILESHIGH) + yth = PORTTILESHIGH-1; + + if (xtl>xth || ytl>yth) + continue; + + // + // see if it's visable area covers any non 0 update tiles + // + updatespot = baseupdatespot = updateptr + uwidthtable[ytl] + xtl; + updatedelta = UPDATEWIDE - (xth-xtl+1); + + if (sprite->updatecount) + { + sprite->updatecount--; // the sprite was just placed, + goto redraw; // so draw it for sure + } + + for (y=ytl;y<=yth;y++) + { + for (x=xtl;x<=xth;x++) + if (*updatespot++) + goto redraw; + updatespot += updatedelta; // down to next line + } + continue; // no need to update + +redraw: + // + // set the tiles it covers to 3, because those tiles are being + // updated + // + updatespot = baseupdatespot; + for (y=ytl;y<=yth;y++) + { + for (x=xtl;x<=xth;x++) + *updatespot++ = 3; + updatespot += updatedelta; // down to next line + } + // + // draw it! + // + height = sprite->height; + sourceofs = sprite->sourceofs; + if (porty<0) + { + height += porty; // clip top off + sourceofs -= porty*sprite->width; + porty = 0; + } + else if (porty+height>PORTSCREENHIGH) + { + height = PORTSCREENHIGH - porty; // clip bottom off + } + + dest = bufferofs + ylookup[porty] + portx; + + switch (sprite->draw) + { + case spritedraw: + VW_MaskBlock(grsegs[sprite->grseg], sourceofs, + dest,sprite->width,height,sprite->planesize); + break; + + case maskdraw: + VW_InverseMask(grsegs[sprite->grseg], sourceofs, + dest,sprite->width,height); + break; + + } +#ifdef PROFILE + updatecount++; +#endif + + + } + } +} + + +/* +===================== += += RF_Refresh CGA += += All routines will draw at the port at bufferofs, possibly copying from += the port at masterofs. The EGA version then page flips, while the += CGA version updates the screen from the buffer port. += += Screenpage is the currently displayed page, not the one being drawn += Otherpage is the page to be worked with now += +===================== +*/ + +void RF_Refresh (void) +{ + long newtime,oldtimecount; + + RFL_AnimateTiles (); + +// +// update newly scrolled on tiles and animated tiles from the master screen +// + RFL_UpdateTiles (); + RFL_EraseBlocks (); + +// +// Update is all 0 except where sprites have changed or new area has +// been scrolled on. Go through all sprites and update the ones that cover +// a non 0 update tile +// + RFL_UpdateSprites (); + +// +// if the main program has a refresh hook set, call their function before +// displaying the new page +// + if (refreshvector) + refreshvector(); + +// +// update everything to the screen +// + VW_CGAFullUpdate (); + +// +// calculate tics since last refresh for adaptive timing +// + RF_CalcTics (); +} + +#endif // GRMODE == CGAGR diff --git a/16/keen456/KEEN4-6/ID_RF.H b/16/keen456/KEEN4-6/ID_RF.H new file mode 100755 index 00000000..5648034b --- /dev/null +++ b/16/keen456/KEEN4-6/ID_RF.H @@ -0,0 +1,169 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_RF.H + +#define __ID_RF__ + +#ifndef __ID_MM__ +#include "ID_MM.H" +#endif + +/* +============================================================================= + + CONSTANTS + +============================================================================= +*/ + +#define MINTICS 2 +#define MAXTICS 5 +#define DEMOTICS 3 + +#define MAPBORDER 2 // map border must be at least 1 + +#ifdef KEEN5 + +#define MAXSPRITES 60 // max tracked sprites +#define MAXANIMTILES 90 // max animating tiles on screen +#define MAXANIMTYPES 80 // max different unique anim tiles on map + +#define MAXMAPHEIGHT 250 + +#else + +#define MAXSPRITES 60 // max tracked sprites +#define MAXANIMTILES 90 // max animating tiles on screen +#define MAXANIMTYPES 65 // max different unique anim tiles on map + +#define MAXMAPHEIGHT 200 + +#endif + +#define PRIORITIES 4 +#define MASKEDTILEPRIORITY 3 // planes go: 0,1,2,MTILES,3 + +#define TILEGLOBAL 256 +#define PIXGLOBAL 16 + +#define G_T_SHIFT 8 // global >> ?? = tile +#define G_P_SHIFT 4 // global >> ?? = pixels +#define P_T_SHIFT 4 // pixels >> ?? = tile + +#define PORTTILESWIDE 21 // all drawing takes place inside a +#define PORTTILESHIGH 14 // non displayed port of this size + +//#define PORTGLOBALWIDE (21*TILEGLOBAL) +//#define PORTGLOBALHIGH (14*TILEGLOBAL) + +#define UPDATEWIDE (PORTTILESWIDE+1) +#define UPDATEHIGH PORTTILESHIGH + + +//=========================================================================== + +typedef enum {spritedraw,maskdraw} drawtype; + +/* +============================================================================= + + PUBLIC VARIABLES + +============================================================================= +*/ + + +extern boolean compatability; // crippled refresh for wierdo SVGAs + +extern unsigned tics; +extern long lasttimecount; + +extern unsigned originxglobal,originyglobal; +extern unsigned originxtile,originytile; +extern unsigned originxscreen,originyscreen; + +extern unsigned mapwidth,mapheight,mapbyteswide,mapwordswide + ,mapbytesextra,mapwordsextra; +extern unsigned mapbwidthtable[MAXMAPHEIGHT]; + +extern unsigned originxmin,originxmax,originymin,originymax; + +extern unsigned masterofs; + +// +// the floating update window is also used by the view manager for +// double buffer tracking +// + +extern byte *updateptr; // current start of update window + +#if GRMODE == CGAGR +extern byte *baseupdateptr; +#endif + +extern unsigned blockstarts[UPDATEWIDE*UPDATEHIGH]; +extern unsigned updatemapofs[UPDATEWIDE*UPDATEHIGH]; +extern unsigned uwidthtable[UPDATEHIGH]; // lookup instead of multiple + +#define UPDATETERMINATE 0x0301 + +/* +============================================================================= + + PUBLIC FUNCTIONS + +============================================================================= +*/ + +void RF_Startup (void); +void RF_Shutdown (void); + +void RF_FixOfs (void); +void RF_NewMap (void); +void RF_MarkTileGraphics (void); +void RF_SetScrollBlock (int x, int y, boolean horizontal); +void RF_NewPosition (unsigned x, unsigned y); +void RF_Scroll (int x, int y); + +void RF_MapToMap (unsigned srcx, unsigned srcy, + unsigned destx, unsigned desty, + unsigned width, unsigned height); +void RF_MemToMap (unsigned far *source, unsigned plane, + unsigned destx, unsigned desty, + unsigned width, unsigned height); + +void RF_ClearBlock (int x, int y, int width, int height); +void RF_RedrawBlock (int x, int y, int width, int height); + +void RF_PlaceSprite (void **user,unsigned globalx,unsigned globaly, + unsigned spritenumber, drawtype draw, int priority); +void RF_RemoveSprite (void **user); + +void RF_CalcTics (void); + +void RF_Refresh (void); +void RF_ForceRefresh (void); +void RF_SetRefreshHook (void (*func) (void) ); + +unsigned RF_FindFreeBuffer (void); + diff --git a/16/keen456/KEEN4-6/ID_RF_A.ASM b/16/keen456/KEEN4-6/ID_RF_A.ASM new file mode 100755 index 00000000..56db0c77 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_RF_A.ASM @@ -0,0 +1,690 @@ +; Catacomb 3-D Source Code +; Copyright (C) 1993-2014 Flat Rock Software +; +; This program is free software; you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License along +; with this program; if not, write to the Free Software Foundation, Inc., +; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +; ID_RF_A.ASM + +IDEAL +MODEL MEDIUM,C + +INCLUDE "ID_ASM.EQU" + +;============================================================================ + +TILESWIDE = 21 +TILESHIGH = 14 + +UPDATESIZE = (TILESWIDE+1)*TILESHIGH+1 + +DATASEG + +EXTRN screenseg:WORD +EXTRN updateptr:WORD +EXTRN updatestart:WORD +EXTRN masterofs:WORD ;start of master tile port +EXTRN bufferofs:WORD ;start of current buffer port +EXTRN screenstart:WORD ;starts of three screens (0/1/master) in EGA mem +EXTRN grsegs:WORD +EXTRN mapsegs:WORD +EXTRN originmap:WORD +EXTRN updatemapofs:WORD +EXTRN tinf:WORD ;seg pointer to map header and tile info +EXTRN blockstarts:WORD ;offsets from bufferofs for each update block + +planemask db ? +planenum db ? + +CODESEG + +screenstartcs dw ? ;in code segment for accesability + + + + +IFE GRMODE-CGAGR +;============================================================================ +; +; CGA refresh routines +; +;============================================================================ + +TILEWIDTH = 4 + +;================= +; +; RFL_NewTile +; +; Draws a composit two plane tile to the master screen and sets the update +; spot to 1 in both update pages, forcing the tile to be copied to the +; view pages the next two refreshes +; +; Called to draw newlly scrolled on strips and animating tiles +; +;================= + +PROC RFL_NewTile updateoffset:WORD +PUBLIC RFL_NewTile +USES SI,DI + +; +; mark both update lists at this spot +; + mov di,[updateoffset] + + mov bx,[updateptr] ;start of update matrix + mov [BYTE bx+di],1 + + mov dx,SCREENWIDTH-TILEWIDTH ;add to get to start of next line + +; +; set di to the location in screenseg to draw the tile +; + shl di,1 + mov si,[updatemapofs+di] ;offset in map from origin + add si,[originmap] + mov di,[blockstarts+di] ;screen location for tile + add di,[masterofs] + +; +; set BX to the foreground tile number and SI to the background number +; If either BX or SI = 0xFFFF, the tile does not need to be masked together +; as one of the planes totally eclipses the other +; + mov es,[mapsegs+2] ;foreground plane + mov bx,[es:si] + mov es,[mapsegs] ;background plane + mov si,[es:si] + + mov es,[screenseg] + + or bx,bx + jz @@singletile + jmp @@maskeddraw ;draw both together + +;============= +; +; Draw single background tile from main memory +; +;============= + +@@singletile: + shl si,1 + mov ds,[grsegs+STARTTILE16*2+si] + + xor si,si ;block is segment aligned + +REPT 15 + movsw + movsw + add di,dx +ENDM + movsw + movsw + + mov ax,ss + mov ds,ax ;restore turbo's data segment + ret + + +;========= +; +; Draw a masked tile combo +; Interupts are disabled and the stack segment is reassigned +; +;========= +@@maskeddraw: + cli ; don't allow ints when SS is set + shl bx,1 + mov ss,[grsegs+STARTTILE16M*2+bx] + shl si,1 + mov ds,[grsegs+STARTTILE16*2+si] + + xor si,si ;first word of tile data + +REPT 16 + mov ax,[si] ;background tile + and ax,[ss:si] ;mask + or ax,[ss:si+64] ;masked data + stosw + mov ax,[si+2] ;background tile + and ax,[ss:si+2] ;mask + or ax,[ss:si+66] ;masked data + stosw + add si,4 + add di,dx +ENDM + + mov ax,@DATA + mov ss,ax + sti + mov ds,ax + ret +ENDP + +ENDIF + + + +IFE GRMODE-EGAGR +;=========================================================================== +; +; EGA refresh routines +; +;=========================================================================== + +TILEWIDTH = 2 + +;================= +; +; RFL_NewTile +; +; Draws a composit two plane tile to the master screen and sets the update +; spot to 1 in both update pages, forcing the tile to be copied to the +; view pages the next two refreshes +; +; Called to draw newlly scrolled on strips and animating tiles +; +; Assumes write mode 0 +; +;================= + +PROC RFL_NewTile updateoffset:WORD +PUBLIC RFL_NewTile +USES SI,DI + +; +; mark both update lists at this spot +; + mov di,[updateoffset] + + mov bx,[updatestart] ;page 0 pointer + mov [BYTE bx+di],1 + mov bx,[updatestart+2] ;page 1 pointer + mov [BYTE bx+di],1 + +; +; set screenstartcs to the location in screenseg to draw the tile +; + shl di,1 + mov si,[updatemapofs+di] ;offset in map from origin + add si,[originmap] + mov di,[blockstarts+di] ;screen location for tile + add di,[masterofs] + mov [cs:screenstartcs],di + +; +; set BX to the foreground tile number and SI to the background number +; If either BX or SI = 0xFFFF, the tile does not need to be masked together +; as one of the planes totally eclipses the other +; + mov es,[mapsegs+2] ;foreground plane + mov bx,[es:si] + mov es,[mapsegs] ;background plane + mov si,[es:si] + + mov es,[screenseg] + mov dx,SC_INDEX ;for stepping through map mask planes + + or bx,bx + jz @@singletile + jmp @@maskeddraw ;draw both together + +;========= +; +; No foreground tile, so draw a single background tile. +; +;========= +@@singletile: + + mov bx,SCREENWIDTH-2 ;add to get to start of next line + shl si,1 + + mov ax,[cs:screenstartcs] + mov ds,[grsegs+STARTTILE16*2+si] + + xor si,si ;block is segment aligned + + mov ax,SC_MAPMASK+0001b*256 ;map mask for plane 0 + + mov cx,4 ;draw four planes +@@planeloop: + mov dx,SC_INDEX + WORDOUT + + mov di,[cs:screenstartcs] ;start at same place in all planes + +REPT 15 + movsw + add di,bx +ENDM + movsw + + shl ah,1 ;shift plane mask over for next plane + loop @@planeloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + ret + + +;========= +; +; Draw a masked tile combo +; Interupts are disabled and the stack segment is reassigned +; +;========= +@@maskeddraw: + cli ; don't allow ints when SS is set + shl bx,1 + mov ss,[grsegs+STARTTILE16M*2+bx] + shl si,1 + mov ds,[grsegs+STARTTILE16*2+si] + + xor si,si ;first word of tile data + + mov ax,SC_MAPMASK+0001b*256 ;map mask for plane 0 + + mov di,[cs:screenstartcs] +@@planeloopm: + WORDOUT +tileofs = 0 +lineoffset = 0 +REPT 16 + mov bx,[si+tileofs] ;background tile + and bx,[ss:tileofs] ;mask + or bx,[ss:si+tileofs+32] ;masked data + mov [es:di+lineoffset],bx +tileofs = tileofs + 2 +lineoffset = lineoffset + SCREENWIDTH +ENDM + add si,32 + shl ah,1 ;shift plane mask over for next plane + cmp ah,10000b + je @@done ;drawn all four planes + jmp @@planeloopm + +@@done: + mov ax,@DATA + mov ss,ax + sti + mov ds,ax + ret +ENDP + +ENDIF + +IFE GRMODE-VGAGR +;============================================================================ +; +; VGA refresh routines +; +;============================================================================ + + +ENDIF + + +;============================================================================ +; +; reasonably common refresh routines +; +;============================================================================ + + +;================= +; +; RFL_UpdateTiles +; +; Scans through the update matrix pointed to by updateptr, looking for 1s. +; A 1 represents a tile that needs to be copied from the master screen to the +; current screen (a new row or an animated tiled). If more than one adjacent +; tile in a horizontal row needs to be copied, they will be copied as a group. +; +; Assumes write mode 1 +; +;================= + + +; AX 0/1 for scasb, temp for segment register transfers +; BX width for block copies +; CX REP counter +; DX line width deltas +; SI source for copies +; DI scas dest / movsb dest +; BP pointer to UPDATETERMINATE +; +; DS +; ES +; SS + +PROC RFL_UpdateTiles +PUBLIC RFL_UpdateTiles +USES SI,DI,BP + + jmp SHORT @@realstart +@@done: +; +; all tiles have been scanned +; + ret + +@@realstart: + mov di,[updateptr] + mov bp,(TILESWIDE+1)*TILESHIGH+1 + add bp,di ; when di = bx, all tiles have been scanned + push di + mov cx,-1 ; definately scan the entire thing + +; +; scan for a 1 in the update list, meaning a tile needs to be copied +; from the master screen to the current screen +; +@@findtile: + pop di ; place to continue scaning from + mov ax,ss + mov es,ax ; search in the data segment + mov ds,ax + mov al,1 + repne scasb + cmp di,bp + je @@done + + cmp [BYTE di],al + jne @@singletile + jmp @@tileblock + +;============ +; +; copy a single tile +; +;============ +EVEN +@@singletile: + inc di ; we know the next tile is nothing + push di ; save off the spot being scanned + sub di,[updateptr] + shl di,1 + mov di,[blockstarts-4+di] ; start of tile location on screen + mov si,di + add di,[bufferofs] ; dest in current screen + add si,[masterofs] ; source in master screen + + mov dx,SCREENWIDTH-TILEWIDTH + mov ax,[screenseg] + mov ds,ax + mov es,ax + +;-------------------------- + +IFE GRMODE-CGAGR + +REPT 15 + movsw + movsw + add si,dx + add di,dx +ENDM + movsw + movsw + +ENDIF + +;-------------------------- + +IFE GRMODE-EGAGR + +REPT 15 + movsb + movsb + add si,dx + add di,dx +ENDM + movsb + movsb + +ENDIF + +;-------------------------- + + jmp @@findtile + +;============ +; +; more than one tile in a row needs to be updated, so do it as a group +; +;============ +EVEN +@@tileblock: + mov dx,di ; hold starting position + 1 in dx + inc di ; we know the next tile also gets updated + repe scasb ; see how many more in a row + push di ; save off the spot being scanned + + mov bx,di + sub bx,dx ; number of tiles in a row + shl bx,1 ; number of bytes / row + + mov di,dx ; lookup position of start tile + sub di,[updateptr] + shl di,1 + mov di,[blockstarts-2+di] ; start of tile location + mov si,di + add di,[bufferofs] ; dest in current screen + add si,[masterofs] ; source in master screen + + mov dx,SCREENWIDTH + sub dx,bx ; offset to next line on screen +IFE GRMODE-CGAGR + sub dx,bx ; bx is words wide in CGA tiles +ENDIF + + mov ax,[screenseg] + mov ds,ax + mov es,ax + +REPT 15 + mov cx,bx +IFE GRMODE-CGAGR + rep movsw +ENDIF +IFE GRMODE-EGAGR + rep movsb +ENDIF + add si,dx + add di,dx +ENDM + mov cx,bx +IFE GRMODE-CGAGR + rep movsw +ENDIF +IFE GRMODE-EGAGR + rep movsb +ENDIF + + dec cx ; was 0 from last rep movsb, now $ffff for scasb + jmp @@findtile + +ENDP + + +;============================================================================ + + +;================= +; +; RFL_MaskForegroundTiles +; +; Scan through update looking for 3's. If the foreground tile there is a +; masked foreground tile, draw it to the screen +; +;================= + +PROC RFL_MaskForegroundTiles +PUBLIC RFL_MaskForegroundTiles +USES SI,DI,BP + jmp SHORT @@realstart +@@done: +; +; all tiles have been scanned +; + ret + +@@realstart: + mov di,[updateptr] + mov bp,(TILESWIDE+1)*TILESHIGH+2 + add bp,di ; when di = bx, all tiles have been scanned + push di + mov cx,-1 ; definately scan the entire thing +; +; scan for a 3 in the update list +; +@@findtile: + mov ax,ss + mov es,ax ; scan in the data segment + mov al,3 + pop di ; place to continue scaning from + repne scasb + cmp di,bp + je @@done + +;============ +; +; found a tile, see if it needs to be masked on +; +;============ + + push di + + sub di,[updateptr] + shl di,1 + mov si,[updatemapofs-2+di] ; offset from originmap + add si,[originmap] + + mov es,[mapsegs+2] ; foreground map plane segment + mov si,[es:si] ; foreground tile number + + or si,si + jz @@findtile ; 0 = no foreground tile + + mov bx,si + add bx,INTILE ;INTILE tile info table + mov es,[tinf] + test [BYTE PTR es:bx],80h ;high bit = masked tile + jz @@findtile + +;------------------- + +IFE GRMODE-CGAGR +;================= +; +; mask the tile CGA +; +;================= + + mov di,[blockstarts-2+di] + add di,[bufferofs] + mov es,[screenseg] + shl si,1 + mov ds,[grsegs+STARTTILE16M*2+si] + + mov bx,64 ;data starts 64 bytes after mask + + xor si,si + +lineoffset = 0 +REPT 16 + mov ax,[es:di+lineoffset] ;background + and ax,[si] ;mask + or ax,[si+bx] ;masked data + mov [es:di+lineoffset],ax ;background + inc si + inc si + mov ax,[es:di+lineoffset+2] ;background + and ax,[si] ;mask + or ax,[si+bx] ;masked data + mov [es:di+lineoffset+2],ax ;background + inc si + inc si +lineoffset = lineoffset + SCREENWIDTH +ENDM +ENDIF + +;------------------- + +IFE GRMODE-EGAGR +;================= +; +; mask the tile +; +;================= + + mov [BYTE planemask],1 + mov [BYTE planenum],0 + + mov di,[blockstarts-2+di] + add di,[bufferofs] + mov [cs:screenstartcs],di + mov es,[screenseg] + shl si,1 + mov ds,[grsegs+STARTTILE16M*2+si] + + mov bx,32 ;data starts 32 bytes after mask + +@@planeloopm: + mov dx,SC_INDEX + mov al,SC_MAPMASK + mov ah,[ss:planemask] + WORDOUT + mov dx,GC_INDEX + mov al,GC_READMAP + mov ah,[ss:planenum] + WORDOUT + + xor si,si + mov di,[cs:screenstartcs] +lineoffset = 0 +REPT 16 + mov cx,[es:di+lineoffset] ;background + and cx,[si] ;mask + or cx,[si+bx] ;masked data + inc si + inc si + mov [es:di+lineoffset],cx +lineoffset = lineoffset + SCREENWIDTH +ENDM + add bx,32 ;the mask is now further away + inc [ss:planenum] + shl [ss:planemask],1 ;shift plane mask over for next plane + cmp [ss:planemask],10000b ;done all four planes? + je @@drawn ;drawn all four planes + jmp @@planeloopm + +@@drawn: +ENDIF + +;------------------- + + mov ax,ss + mov ds,ax + mov cx,-1 ;definately scan the entire thing + + jmp @@findtile + +ENDP + + +END + diff --git a/16/keen456/KEEN4-6/ID_SD.C b/16/keen456/KEEN4-6/ID_SD.C new file mode 100755 index 00000000..91f1ba75 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_SD.C @@ -0,0 +1,1336 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// +// ID Engine +// ID_SD.c - Sound Manager +// v1.1d1 +// By Jason Blochowiak +// + +// +// This module handles dealing with generating sound on the appropriate +// hardware +// +// Depends on: User Mgr (for parm checking) +// +// Globals: +// For User Mgr: +// SoundSourcePresent - Sound Source thingie present? +// SoundBlasterPresent - SoundBlaster card present? +// AdLibPresent - AdLib card present? +// SoundMode - What device is used for sound effects +// (Use SM_SetSoundMode() to set) +// MusicMode - What device is used for music +// (Use SM_SetMusicMode() to set) +// For Cache Mgr: +// NeedsDigitized - load digitized sounds? +// NeedsMusic - load music? +// + +#pragma hdrstop // Wierdo thing with MUSE + +#include + +#ifdef _MUSE_ // Will be defined in ID_Types.h +#include "ID_SD.h" +#else +#include "ID_HEADS.H" +#endif +#pragma hdrstop +#pragma warn -pia + +#define SDL_SoundFinished() {SoundNumber = SoundPriority = 0;} + +// Macros for AdLib stuff +#define selreg(n) outportb(0x388,n) +#define writereg(n) outportb(0x389,n) +#define readstat() inportb(0x388) + +// Global variables + boolean SoundSourcePresent,SoundBlasterPresent,AdLibPresent,QuietFX, + NeedsDigitized,NeedsMusic; + SDMode SoundMode; + SMMode MusicMode; + longword TimeCount; + word HackCount; + word *SoundTable; // Really * _seg *SoundTable, but that don't work + boolean ssIsTandy; + word ssPort = 2; + +// Internal variables +static boolean SD_Started; +static boolean TimerDone; +static word TimerVal,TimerDelay10,TimerDelay25,TimerDelay100; +static longword TimerDivisor,TimerCount; +static char *ParmStrings[] = + { + "noal", + "adlib", + nil + }; +static void (*SoundUserHook)(void); +static word SoundNumber,SoundPriority; +static void interrupt (*t0OldService)(void); +//static word t0CountTable[] = {8,8,8,8,40,40}; +static long LocalTime; + +// PC Sound variables +static byte pcLastSample,far *pcSound; +static longword pcLengthLeft; +static word pcSoundLookup[255]; + +// AdLib variables +static boolean alNoCheck; +static byte far *alSound; +static word alBlock; +static longword alLengthLeft; +static longword alTimeCount; +static Instrument alZeroInst; + +// This table maps channel numbers to carrier and modulator op cells +static byte carriers[9] = { 3, 4, 5,11,12,13,19,20,21}, + modifiers[9] = { 0, 1, 2, 8, 9,10,16,17,18}, +// This table maps percussive voice numbers to op cells + pcarriers[5] = {19,0xff,0xff,0xff,0xff}, + pmodifiers[5] = {16,17,18,20,21}; + +// Sequencer variables +static boolean sqActive; +static word alFXReg; +static ActiveTrack *tracks[sqMaxTracks], + mytracks[sqMaxTracks]; +static word sqMode,sqFadeStep; +static word far *sqHack,far *sqHackPtr,sqHackLen,sqHackSeqLen; +static long sqHackTime; + +// Internal routines + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_SetTimer0() - Sets system timer 0 to the specified speed +// +/////////////////////////////////////////////////////////////////////////// +#pragma argsused +static void +SDL_SetTimer0(word speed) +{ +#ifndef TPROF // If using Borland's profiling, don't screw with the timer + outportb(0x43,0x36); // Change timer 0 + outportb(0x40,speed); + outportb(0x40,speed >> 8); + TimerDivisor = speed; +#else + TimerDivisor = 0x10000; +#endif +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_SetIntsPerSec() - Uses SDL_SetTimer0() to set the number of +// interrupts generated by system timer 0 per second +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_SetIntsPerSec(word ints) +{ + SDL_SetTimer0(1192030 / ints); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_TimingService() - Used by SDL_InitDelay() to determine a timing +// value for the current system that we're running on +// +/////////////////////////////////////////////////////////////////////////// +static void interrupt +SDL_TimingService(void) +{ + TimerVal = _CX; + TimerDone++; + + outportb(0x20,0x20); // Ack interrupt +} + +#if 0 +/////////////////////////////////////////////////////////////////////////// +// +// SDL_InitDelay() - Sets up TimerDelay's for SDL_Delay() +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_InitDelay(void) +{ + int i; + word timer; + + setvect(8,SDL_TimingService); // Set to my timer 0 ISR + + SDL_SetIntsPerSec(1000); // Time 1ms + + for (i = 0,timer = 0;i < 10;i++) // Do timing test 10 times + { + asm xor dx,dx // Zero DX + asm mov cx,0xffff // Put starting value in CX + asm mov [TimerDone],cx // TimerDone = false - 1 +startloop: + asm or [TimerDone],0 + asm jnz startloop // Make sure we're at the start +loop: + asm test [TimerDone],1 // See if TimerDone flag got hit + asm jnz done // Yep - drop out of the loop + asm loop loop +done: + + if (0xffff - TimerVal > timer) + timer = 0xffff - TimerVal; + } + timer += timer / 2; // Use some slop + TimerDelay10 = timer / (1000 / 10); + TimerDelay25 = timer / (1000 / 25); + TimerDelay100 = timer / (1000 / 100); + + SDL_SetTimer0(0); // Reset timer 0 + + setvect(8,t0OldService); // Set back to old ISR +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_Delay() - Delays the specified amount of time +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_Delay(word delay) +{ + if (!delay) + return; + +asm mov cx,[delay] +loop: +asm test [TimerDone],0 // Useless code - just for timing equivilency +asm jnz done +asm loop loop +done:; +} +#endif + +// +// PC Sound code +// + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_PCPlaySound() - Plays the specified sound on the PC speaker +// +/////////////////////////////////////////////////////////////////////////// +#ifdef _MUSE_ +void +#else +static void +#endif +SDL_PCPlaySound(PCSound far *sound) +{ +asm pushf +asm cli + + pcLastSample = -1; + pcLengthLeft = sound->common.length; + pcSound = sound->data; + +asm popf +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_PCStopSound() - Stops the current sound playing on the PC Speaker +// +/////////////////////////////////////////////////////////////////////////// +#ifdef _MUSE_ +void +#else +static void +#endif +SDL_PCStopSound(void) +{ +asm pushf +asm cli + + (long)pcSound = 0; + +asm in al,0x61 // Turn the speaker off +asm and al,0xfd // ~2 +asm out 0x61,al + +asm popf +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_PCService() - Handles playing the next sample in a PC sound +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_PCService(void) +{ + byte s; + word t; + + if (pcSound) + { + s = *pcSound++; + if (s != pcLastSample) + { + asm pushf + asm cli + + pcLastSample = s; + if (s) // We have a frequency! + { + t = pcSoundLookup[s]; + asm mov bx,[t] + + asm mov al,0xb6 // Write to channel 2 (speaker) timer + asm out 43h,al + asm mov al,bl + asm out 42h,al // Low byte + asm mov al,bh + asm out 42h,al // High byte + + asm in al,0x61 // Turn the speaker & gate on + asm or al,3 + asm out 0x61,al + } + else // Time for some silence + { + asm in al,0x61 // Turn the speaker & gate off + asm and al,0xfc // ~3 + asm out 0x61,al + } + + asm popf + } + + if (!(--pcLengthLeft)) + { + SDL_PCStopSound(); + SDL_SoundFinished(); + } + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_ShutPC() - Turns off the pc speaker +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_ShutPC(void) +{ +asm pushf +asm cli + + pcSound = 0; + +asm in al,0x61 // Turn the speaker & gate off +asm and al,0xfc // ~3 +asm out 0x61,al + +asm popf +} + +// AdLib Code + +/////////////////////////////////////////////////////////////////////////// +// +// alOut(n,b) - Puts b in AdLib card register n +// +/////////////////////////////////////////////////////////////////////////// +void +alOut(byte n,byte b) +{ +asm pushf +asm cli + +asm mov dx,0x388 +asm mov al,[n] +asm out dx,al +#if 0 + SDL_Delay(TimerDelay10); +#else +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +#endif + +asm mov dx,0x389 +asm mov al,[b] +asm out dx,al + +asm popf + +#if 0 + SDL_Delay(TimerDelay25); +#else +asm mov dx,0x388 +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx + +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx + +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx + +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +asm in al, dx +#endif +} + +#if 0 +/////////////////////////////////////////////////////////////////////////// +// +// SDL_SetInstrument() - Puts an instrument into a generator +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_SetInstrument(int track,int which,Instrument far *inst,boolean percussive) +{ + byte c,m; + + if (percussive) + { + c = pcarriers[which]; + m = pmodifiers[which]; + } + else + { + c = carriers[which]; + m = modifiers[which]; + } + + tracks[track - 1]->inst = *inst; + tracks[track - 1]->percussive = percussive; + + alOut(m + alChar,inst->mChar); + alOut(m + alScale,inst->mScale); + alOut(m + alAttack,inst->mAttack); + alOut(m + alSus,inst->mSus); + alOut(m + alWave,inst->mWave); + + // Most percussive instruments only use one cell + if (c != 0xff) + { + alOut(c + alChar,inst->cChar); + alOut(c + alScale,inst->cScale); + alOut(c + alAttack,inst->cAttack); + alOut(c + alSus,inst->cSus); + alOut(c + alWave,inst->cWave); + } + + alOut(which + alFeedCon,inst->nConn); // DEBUG - I think this is right +} +#endif + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_ALStopSound() - Turns off any sound effects playing through the +// AdLib card +// +/////////////////////////////////////////////////////////////////////////// +#ifdef _MUSE_ +void +#else +static void +#endif +SDL_ALStopSound(void) +{ +asm pushf +asm cli + + (long)alSound = 0; + alOut(alFreqH + 0,0); + +asm popf +} + +static void +SDL_AlSetFXInst(Instrument far *inst) +{ + byte c,m; + byte scale; // added for "quiet AdLib" mode + + m = modifiers[0]; + c = carriers[0]; + alOut(m + alChar,inst->mChar); + alOut(m + alScale,inst->mScale); + alOut(m + alAttack,inst->mAttack); + alOut(m + alSus,inst->mSus); + alOut(m + alWave,inst->mWave); + alOut(c + alChar,inst->cChar); +#if 1 + // quiet AdLib code: + scale = inst->cScale; + if (QuietFX) + { + scale = 0x3F-scale; + scale = (scale>>1) + (scale>>2); // basically 'scale *= 0.75;' + scale = 0x3F-scale; + } + alOut(c + alScale,scale); +#else + // old code: + alOut(c + alScale,inst->cScale); +#endif + alOut(c + alAttack,inst->cAttack); + alOut(c + alSus,inst->cSus); + alOut(c + alWave,inst->cWave); + // DEBUG!!! - I just put this in +// alOut(alFeedCon,inst->nConn); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_ALPlaySound() - Plays the specified sound on the AdLib card +// +/////////////////////////////////////////////////////////////////////////// +#ifdef _MUSE_ +void +#else +static void +#endif +SDL_ALPlaySound(AdLibSound far *sound) +{ + Instrument far *inst; + + SDL_ALStopSound(); + +asm pushf +asm cli + + alLengthLeft = sound->common.length; + alSound = sound->data; + alBlock = ((sound->block & 7) << 2) | 0x20; + inst = &sound->inst; + + if (!(inst->mSus | inst->cSus)) + { + asm popf + Quit("SDL_ALPlaySound() - Bad instrument"); + } + + SDL_AlSetFXInst(inst); + +asm popf +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_ALSoundService() - Plays the next sample out through the AdLib card +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_ALSoundService(void) +{ + byte s; + + if (alSound) + { + s = *alSound++; + if (!s) + alOut(alFreqH + 0,0); + else + { + alOut(alFreqL + 0,s); + alOut(alFreqH + 0,alBlock); + } + + if (!(--alLengthLeft)) + { + (long)alSound = 0; + alOut(alFreqH + 0,0); + SDL_SoundFinished(); + } + } +} + +#if 0 +/////////////////////////////////////////////////////////////////////////// +// +// SDL_SelectMeasure() - sets up sequencing variables for a given track +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_SelectMeasure(ActiveTrack *track) +{ + track->seq = track->moods[track->mood]; + track->nextevent = 0; +} +#endif + +static void +SDL_ALService(void) +{ + byte a,v; + word w; + + if (!sqActive) + return; + + while (sqHackLen && (sqHackTime <= alTimeCount)) + { + w = *sqHackPtr++; + sqHackTime = alTimeCount + *sqHackPtr++; + asm mov dx,[w] + asm mov [a],dl + asm mov [v],dh + alOut(a,v); + sqHackLen -= 4; + } + alTimeCount++; + if (!sqHackLen) + { + sqHackPtr = (word far *)sqHack; + sqHackLen = sqHackSeqLen; + alTimeCount = sqHackTime = 0; + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_ShutAL() - Shuts down the AdLib card for sound effects +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_ShutAL(void) +{ +asm pushf +asm cli + + alOut(alEffects,0); + alOut(alFreqH + 0,0); + SDL_AlSetFXInst(&alZeroInst); + alSound = 0; + +asm popf +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_CleanAL() - Totally shuts down the AdLib card +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_CleanAL(void) +{ + int i; + +asm pushf +asm cli + + alOut(alEffects,0); + for (i = 1;i < 0xf5;i++) + alOut(i,0); + +asm popf +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_StartAL() - Starts up the AdLib card for sound effects +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_StartAL(void) +{ + alFXReg = 0; + alOut(alEffects,alFXReg); + SDL_AlSetFXInst(&alZeroInst); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_DetectAdLib() - Determines if there's an AdLib (or SoundBlaster +// emulating an AdLib) present +// +/////////////////////////////////////////////////////////////////////////// +static boolean +SDL_DetectAdLib(boolean force) +{ + byte status1,status2; + int i; + + alOut(4,0x60); // Reset T1 & T2 + alOut(4,0x80); // Reset IRQ + status1 = readstat(); + alOut(2,0xff); // Set timer 1 + alOut(4,0x21); // Start timer 1 +#if 0 + SDL_Delay(TimerDelay100); +#else + asm mov dx, 0x388; + asm mov cx, 100; +waitloop: + asm in al, dx; + asm jmp here; +here: + asm loop waitloop; +#endif + + status2 = readstat(); + alOut(4,0x60); + alOut(4,0x80); + + if (force || (((status1 & 0xe0) == 0x00) && ((status2 & 0xe0) == 0xc0))) + { + for (i = 1;i <= 0xf5;i++) // Zero all the registers + alOut(i,0); + + alOut(1,0x20); // Set WSE=1 + alOut(8,0); // Set CSM=0 & SEL=0 + + return(true); + } + else + return(false); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_t0Service() - My timer 0 ISR which handles the different timings and +// dispatches to whatever other routines are appropriate +// +/////////////////////////////////////////////////////////////////////////// +static void interrupt +SDL_t0Service(void) +{ +static word count = 1; + +#if 0 // for debugging +asm mov dx,STATUS_REGISTER_1 +asm in al,dx +asm mov dx,ATR_INDEX +asm mov al,ATR_OVERSCAN +asm out dx,al +asm mov al,4 // red +asm out dx,al +#endif + + HackCount++; + + if (MusicMode == smm_AdLib) + { + SDL_ALService(); + if (!(++count & 7)) + { + LocalTime++; + TimeCount++; + if (SoundUserHook) + SoundUserHook(); + } + if (!(count & 3)) + { + switch (SoundMode) + { + case sdm_PC: + SDL_PCService(); + break; + case sdm_AdLib: + SDL_ALSoundService(); + break; + } + } + } + else + { + if (!(++count & 1)) + { + LocalTime++; + TimeCount++; + if (SoundUserHook) + SoundUserHook(); + } + switch (SoundMode) + { + case sdm_PC: + SDL_PCService(); + break; + case sdm_AdLib: + SDL_ALSoundService(); + break; + } + } + +asm mov ax,[WORD PTR TimerCount] +asm add ax,[WORD PTR TimerDivisor] +asm mov [WORD PTR TimerCount],ax +asm jnc myack + t0OldService(); // If we overflow a word, time to call old int handler +asm jmp olddone +myack:; + outportb(0x20,0x20); // Ack the interrupt +olddone:; + +#if 0 // for debugging +asm mov dx,STATUS_REGISTER_1 +asm in al,dx +asm mov dx,ATR_INDEX +asm mov al,ATR_OVERSCAN +asm out dx,al +asm mov al,3 // blue +asm out dx,al +asm mov al,0x20 // normal +asm out dx,al +#endif +} + +//////////////////////////////////////////////////////////////////////////// +// +// SDL_ShutDevice() - turns off whatever device was being used for sound fx +// +//////////////////////////////////////////////////////////////////////////// +static void +SDL_ShutDevice(void) +{ + switch (SoundMode) + { + case sdm_PC: + SDL_ShutPC(); + break; + case sdm_AdLib: + SDL_ShutAL(); + break; + } + SoundMode = sdm_Off; +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_CleanDevice() - totally shuts down all sound devices +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_CleanDevice(void) +{ + if ((SoundMode == sdm_AdLib) || (MusicMode == smm_AdLib)) + SDL_CleanAL(); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SDL_StartDevice() - turns on whatever device is to be used for sound fx +// +/////////////////////////////////////////////////////////////////////////// +static void +SDL_StartDevice(void) +{ + switch (SoundMode) + { + case sdm_AdLib: + SDL_StartAL(); + break; + } + SoundNumber = SoundPriority = 0; +} + +static void +SDL_SetTimerSpeed(void) +{ + word rate; + + if (MusicMode == smm_AdLib) + rate = TickBase * 8; + else + rate = TickBase * 2; + SDL_SetIntsPerSec(rate); +} + +// Public routines + +/////////////////////////////////////////////////////////////////////////// +// +// SD_SetSoundMode() - Sets which sound hardware to use for sound effects +// +/////////////////////////////////////////////////////////////////////////// +boolean +SD_SetSoundMode(SDMode mode) +{ + boolean result; + word tableoffset; + + SD_StopSound(); + +#ifndef _MUSE_ + switch (mode) + { + case sdm_Off: + NeedsDigitized = false; + result = true; + break; + case sdm_PC: + tableoffset = STARTPCSOUNDS; + NeedsDigitized = false; + result = true; + break; + case sdm_AdLib: + if (AdLibPresent) + { + tableoffset = STARTADLIBSOUNDS; + NeedsDigitized = false; + result = true; + } + break; + default: + result = false; + break; + } +#endif + + if (result && (mode != SoundMode)) + { + SDL_ShutDevice(); + SoundMode = mode; +#ifndef _MUSE_ + SoundTable = (word *)(&audiosegs[tableoffset]); +#endif + SDL_StartDevice(); + } + + SDL_SetTimerSpeed(); + + return(result); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_SetMusicMode() - sets the device to use for background music +// +/////////////////////////////////////////////////////////////////////////// +boolean +SD_SetMusicMode(SMMode mode) +{ + boolean result; + + SD_FadeOutMusic(); + while (SD_MusicPlaying()) + ; + + switch (mode) + { + case smm_Off: + NeedsMusic = false; + result = true; + break; + case smm_AdLib: + if (AdLibPresent) + { + NeedsMusic = true; + result = true; + } + break; + default: + result = false; + break; + } + + if (result) + MusicMode = mode; + + SDL_SetTimerSpeed(); + + return(result); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_Startup() - starts up the Sound Mgr +// Detects all additional sound hardware and installs my ISR +// +/////////////////////////////////////////////////////////////////////////// +void +SD_Startup(void) +{ + int i; + boolean alForce; + + alForce = false; + + if (SD_Started) + return; + + ssIsTandy = false; + alNoCheck = false; +#ifndef _MUSE_ + for (i = 1;i < _argc;i++) + { + switch (US_CheckParm(_argv[i],ParmStrings)) + { + case 0: // No AdLib detection + alNoCheck = true; + break; + + case 1: + alForce = true; + break; + } + } +#endif + + SoundUserHook = 0; + + t0OldService = getvect(8); // Get old timer 0 ISR + + //SDL_InitDelay(); // SDL_InitDelay() uses t0OldService + + setvect(8,SDL_t0Service); // Set to my timer 0 ISR + LocalTime = TimeCount = alTimeCount = 0; + + SD_SetSoundMode(sdm_Off); + SD_SetMusicMode(smm_Off); + + if (!alNoCheck) + AdLibPresent = SDL_DetectAdLib(alForce); + + for (i = 0;i < 255;i++) + pcSoundLookup[i] = i * 60; + + SD_Started = true; +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_Default() - Sets up the default behaviour for the Sound Mgr whether +// the config file was present or not. +// +/////////////////////////////////////////////////////////////////////////// +void +SD_Default(boolean gotit,SDMode sd,SMMode sm) +{ + boolean gotsd,gotsm; + + gotsd = gotsm = gotit; + + if (gotsd) // Make sure requested sound hardware is available + { + switch (sd) + { + case sdm_AdLib: + gotsd = AdLibPresent; + break; + } + } + if (!gotsd) + { + if (AdLibPresent) + sd = sdm_AdLib; + else + sd = sdm_PC; + } + if (sd != SoundMode) + SD_SetSoundMode(sd); + + + if (gotsm) // Make sure requested music hardware is available + { + switch (sm) + { + case sdm_AdLib: // BUG: this should use smm_AdLib! + gotsm = AdLibPresent; + break; + } + } + if (!gotsm) + { + if (AdLibPresent) + sm = smm_AdLib; + else + sm = smm_Off; + } + if (sm != MusicMode) + SD_SetMusicMode(sm); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_Shutdown() - shuts down the Sound Mgr +// Removes sound ISR and turns off whatever sound hardware was active +// +/////////////////////////////////////////////////////////////////////////// +void +SD_Shutdown(void) +{ + if (!SD_Started) + return; + + SD_MusicOff(); + SDL_ShutDevice(); + SDL_CleanDevice(); + + asm pushf + asm cli + + SDL_SetTimer0(0); + + setvect(8,t0OldService); + + asm popf + + SD_Started = false; +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_SetUserHook() - sets the routine that the Sound Mgr calls every 1/70th +// of a second from its timer 0 ISR +// +/////////////////////////////////////////////////////////////////////////// +void +SD_SetUserHook(void (* hook)(void)) +{ + // BUG: interrupts should be disabled while setting SoundUserHook! + SoundUserHook = hook; +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_PlaySound() - plays the specified sound on the appropriate hardware +// +/////////////////////////////////////////////////////////////////////////// +void +SD_PlaySound(soundnames sound) +{ + SoundCommon far *s; + + if ((SoundMode == sdm_Off) /*|| (sound == -1)*/) + return; + + s = MK_FP(SoundTable[sound],0); + if (!s) + Quit("SD_PlaySound() - Uncached sound"); + if (!s->length) + Quit("SD_PlaySound() - Zero length sound"); + if (s->priority < SoundPriority) + return; + + switch (SoundMode) + { + case sdm_PC: + SDL_PCPlaySound((void far *)s); + break; + case sdm_AdLib: + SDL_ALPlaySound((void far *)s); + break; + } + + SoundNumber = sound; + SoundPriority = s->priority; +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_SoundPlaying() - returns the sound number that's playing, or 0 if +// no sound is playing +// +/////////////////////////////////////////////////////////////////////////// +word +SD_SoundPlaying(void) +{ + boolean result = false; + + switch (SoundMode) + { + case sdm_PC: + result = pcSound? true : false; + break; + case sdm_AdLib: + result = alSound? true : false; + break; + } + + if (result) + return(SoundNumber); + else + return(false); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_StopSound() - if a sound is playing, stops it +// +/////////////////////////////////////////////////////////////////////////// +void +SD_StopSound(void) +{ + switch (SoundMode) + { + case sdm_PC: + SDL_PCStopSound(); + break; + case sdm_AdLib: + SDL_ALStopSound(); + break; + } + + SDL_SoundFinished(); +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_WaitSoundDone() - waits until the current sound is done playing +// +/////////////////////////////////////////////////////////////////////////// +void +SD_WaitSoundDone(void) +{ + while (SD_SoundPlaying()) + ; +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_MusicOn() - turns on the sequencer +// +/////////////////////////////////////////////////////////////////////////// +void +SD_MusicOn(void) +{ + sqActive = true; +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_MusicOff() - turns off the sequencer and any playing notes +// +/////////////////////////////////////////////////////////////////////////// +void +SD_MusicOff(void) +{ + word i; + + + switch (MusicMode) + { + case smm_AdLib: + alFXReg = 0; + alOut(alEffects,0); + for (i = 0;i < sqMaxTracks;i++) + alOut(alFreqH + i + 1,0); + break; + } + sqActive = false; +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_StartMusic() - starts playing the music pointed to +// +/////////////////////////////////////////////////////////////////////////// +void +SD_StartMusic(MusicGroup far *music) +{ + SD_MusicOff(); +asm pushf +asm cli + + if (MusicMode == smm_AdLib) + { + sqHackPtr = sqHack = music->values; + sqHackSeqLen = sqHackLen = music->length; + sqHackTime = 0; + alTimeCount = 0; + SD_MusicOn(); + } + +asm popf +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_FadeOutMusic() - starts fading out the music. Call SD_MusicPlaying() +// to see if the fadeout is complete +// +/////////////////////////////////////////////////////////////////////////// +void +SD_FadeOutMusic(void) +{ + switch (MusicMode) + { + case smm_AdLib: + // DEBUG - quick hack to turn the music off + SD_MusicOff(); + break; + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// SD_MusicPlaying() - returns true if music is currently playing, false if +// not +// +/////////////////////////////////////////////////////////////////////////// +boolean +SD_MusicPlaying(void) +{ + boolean result; + + switch (MusicMode) + { + case smm_AdLib: + result = false; + // DEBUG - not written + break; + default: + result = false; + } + + return(result); +} diff --git a/16/keen456/KEEN4-6/ID_SD.H b/16/keen456/KEEN4-6/ID_SD.H new file mode 100755 index 00000000..a48e442a --- /dev/null +++ b/16/keen456/KEEN4-6/ID_SD.H @@ -0,0 +1,210 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// +// ID Engine +// ID_SD.h - Sound Manager Header +// v1.0d1 +// By Jason Blochowiak +// + +#ifndef __TYPES__ +#include "ID_Types.h" +#endif + +#ifndef __ID_SD__ +#define __ID_SD__ + +#ifdef __DEBUG__ +#define __DEBUG_SoundMgr__ +#endif + +#define TickBase 70 // 70Hz per tick - used as a base for timer 0 + +typedef enum { + sdm_Off, + sdm_PC,sdm_AdLib, + } SDMode; +typedef enum { + smm_Off,smm_AdLib + } SMMode; + +typedef struct + { + longword length; + word priority; + } SoundCommon; + +// PC Sound stuff +#define pcTimer 0x42 +#define pcTAccess 0x43 +#define pcSpeaker 0x61 + +#define pcSpkBits 3 + +typedef struct + { + SoundCommon common; + byte data[1]; + } PCSound; + +// Registers for the Sound Blaster card - needs to be offset by n0 +#define sbReset 0x206 +#define sbReadData 0x20a +#define sbWriteCmd 0x20c +#define sbWriteData 0x20c +#define sbWriteStat 0x20c +#define sbDataAvail 0x20e + +typedef struct + { + SoundCommon common; + word hertz; + byte bits, + reference, + data[1]; + } SampledSound; + +// Registers for the AdLib card +// Operator stuff +#define alChar 0x20 +#define alScale 0x40 +#define alAttack 0x60 +#define alSus 0x80 +#define alWave 0xe0 +// Channel stuff +#define alFreqL 0xa0 +#define alFreqH 0xb0 +#define alFeedCon 0xc0 +// Global stuff +#define alEffects 0xbd + +typedef struct + { + byte mChar,cChar, + mScale,cScale, + mAttack,cAttack, + mSus,cSus, + mWave,cWave, + nConn, + + // These are only for Muse - these bytes are really unused + voice, + mode, + unused[3]; + } Instrument; + +typedef struct + { + SoundCommon common; + Instrument inst; + byte block, + data[1]; + } AdLibSound; + +// +// Sequencing stuff +// +#define sqMaxTracks 10 +#define sqMaxMoods 1 // DEBUG + +#define sev_Null 0 // Does nothing +#define sev_NoteOff 1 // Turns a note off +#define sev_NoteOn 2 // Turns a note on +#define sev_NotePitch 3 // Sets the pitch of a currently playing note +#define sev_NewInst 4 // Installs a new instrument +#define sev_NewPerc 5 // Installs a new percussive instrument +#define sev_PercOn 6 // Turns a percussive note on +#define sev_PercOff 7 // Turns a percussive note off +#define sev_SeqEnd -1 // Terminates a sequence + +// Flags for MusicGroup.flags +#define sf_Melodic 0 +#define sf_Percussive 1 + +#if 1 +typedef struct + { + word length, + values[1]; + } MusicGroup; +#else +typedef struct + { + word flags, + count, + offsets[1]; + } MusicGroup; +#endif + +typedef struct + { + /* This part needs to be set up by the user */ + word mood,far *moods[sqMaxMoods]; + + /* The rest is set up by the code */ + Instrument inst; + boolean percussive; + word far *seq; + longword nextevent; + } ActiveTrack; + +#define sqmode_Normal 0 +#define sqmode_FadeIn 1 +#define sqmode_FadeOut 2 + +#define sqMaxFade 64 // DEBUG + + +// Global variables +extern boolean AdLibPresent, + NeedsMusic, // For Caching Mgr + QuietFX; +extern SDMode SoundMode; +extern SMMode MusicMode; +extern longword TimeCount; // Global time in ticks + +// Function prototypes +extern void SD_Startup(void), + SD_Shutdown(void), + SD_Default(boolean gotit,SDMode sd,SMMode sm), + SD_PlaySound(soundnames sound), + SD_StopSound(void), + SD_WaitSoundDone(void), + SD_StartMusic(MusicGroup far *music), + SD_MusicOn(void), + SD_MusicOff(void), + SD_FadeOutMusic(void), + SD_SetUserHook(void (*hook)(void)); +extern boolean SD_MusicPlaying(void), + SD_SetSoundMode(SDMode mode), + SD_SetMusicMode(SMMode mode); +extern word SD_SoundPlaying(void); + +#ifdef _MUSE_ // MUSE Goes directly to the lower level routines +extern void SDL_PCPlaySound(PCSound far *sound), + SDL_PCStopSound(void), + SDL_ALPlaySound(AdLibSound far *sound), + SDL_ALStopSound(void); +#endif + +#endif diff --git a/16/keen456/KEEN4-6/ID_US.H b/16/keen456/KEEN4-6/ID_US.H new file mode 100755 index 00000000..2e50d2a7 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_US.H @@ -0,0 +1,160 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// +// ID Engine +// ID_US.h - Header file for the User Manager +// v1.0d1 +// By Jason Blochowiak +// + +#ifndef __TYPES__ +#include "ID_Types.h" +#endif + +#ifndef __ID_US__ +#define __ID_US__ + +#ifdef __DEBUG__ +#define __DEBUG_UserMgr__ +#endif + +//#define HELPTEXTLINKED + +#define MaxX 320 +#define MaxY 200 + +#define MaxHelpLines 500 + +#define MaxHighName 57 +#ifdef CAT3D +#define MaxScores 7 +#else +#define MaxScores 8 +#endif +typedef struct + { + char name[MaxHighName + 1]; + long score; + word completed; + } HighScore; + +#define MaxGameName 32 +#define MaxSaveGames 6 +typedef struct + { + char signature[4]; + word *oldtest; + boolean present; + char name[MaxGameName + 1]; + } SaveGame; + +#define MaxString 128 // Maximum input string size + +typedef struct + { + int x,y, + w,h, + px,py; + } WindowRec; // Record used to save & restore screen windows + +typedef enum + { + gd_Continue, + gd_Easy, + gd_Normal, + gd_Hard + } GameDiff; + +// Hack import for TED launch support +extern boolean tedlevel; +extern word tedlevelnum; +extern void TEDDeath(void); + +extern boolean ingame, // Set by game code if a game is in progress + abortgame, // Set if a game load failed + loadedgame, // Set if the current game was loaded +#ifdef KEEN6 + checkpassed, +#endif + NoWait, + HighScoresDirty; +extern char *abortprogram; // Set to error msg if program is dying +extern GameDiff restartgame; // Normally gd_Continue, else starts game +extern word PrintX,PrintY; // Current printing location in the window +extern word WindowX,WindowY,// Current location of window + WindowW,WindowH;// Current size of window + +extern boolean Button0,Button1, + CursorBad; +extern int CursorX,CursorY; + +extern void (*USL_MeasureString)(char far *,word *,word *), + (*USL_DrawString)(char far *); + +extern boolean (*USL_SaveGame)(int),(*USL_LoadGame)(int); +extern void (*USL_ResetGame)(void); +extern SaveGame Games[MaxSaveGames]; +extern HighScore Scores[]; + +#define US_HomeWindow() {PrintX = WindowX; PrintY = WindowY;} + +extern void US_Startup(void), + US_Setup(void), + US_Shutdown(void), + US_InitRndT(boolean randomize), + US_SetLoadSaveHooks(boolean (*load)(int), + boolean (*save)(int), + void (*reset)(void)), + US_TextScreen(void), + US_UpdateTextScreen(void), + US_FinishTextScreen(void), + US_ControlPanel(void), + US_DrawWindow(word x,word y,word w,word h), + US_CenterWindow(word,word), + US_SaveWindow(WindowRec *win), + US_RestoreWindow(WindowRec *win), + US_ClearWindow(void), + US_SetPrintRoutines(void (*measure)(char far *,word *,word *), + void (*print)(char far *)), + US_PrintCentered(char *s), + US_CPrint(char *s), + US_CPrintLine(char *s), + US_Print(char *s), + US_PrintUnsigned(longword n), + US_PrintSigned(long n), + US_StartCursor(void), + US_ShutCursor(void), + US_ControlPanel(void), + US_CheckHighScore(long score,word other), + US_DisplayHighScores(int which); +extern boolean US_UpdateCursor(void), + US_LineInput(int x,int y,char *buf,char *def,boolean escok, + int maxchars,int maxwidth); +extern int US_CheckParm(char *parm,char **strings), + US_RndT(void); + +extern boolean US_ParmPresent(char *arg); + + void USL_PrintInCenter(char *s,Rect r); + char *USL_GiveSaveName(word game); +#endif diff --git a/16/keen456/KEEN4-6/ID_US_1.C b/16/keen456/KEEN4-6/ID_US_1.C new file mode 100755 index 00000000..d7b27aac --- /dev/null +++ b/16/keen456/KEEN4-6/ID_US_1.C @@ -0,0 +1,1358 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// +// ID Engine +// ID_US_1.c - User Manager - General routines +// v1.1d1 +// By Jason Blochowiak +// Hacked up for Catacomb 3D +// + +// +// This module handles dealing with user input & feedback +// +// Depends on: Input Mgr, View Mgr, some variables from the Sound, Caching, +// and Refresh Mgrs, Memory Mgr for background save/restore +// +// Globals: +// ingame - Flag set by game indicating if a game is in progress +// abortgame - Flag set if the current game should be aborted (if a load +// game fails) +// loadedgame - Flag set if a game was loaded +// abortprogram - Normally nil, this points to a terminal error message +// if the program needs to abort +// restartgame - Normally set to gd_Continue, this is set to one of the +// difficulty levels if a new game should be started +// PrintX, PrintY - Where the User Mgr will print (global coords) +// WindowX,WindowY,WindowW,WindowH - The dimensions of the current +// window +// + +#include "ID_HEADS.H" + +#pragma hdrstop + +#pragma warn -pia + + +// Special imports +extern boolean showscorebox; +#ifdef KEEN +extern boolean jerk; +extern boolean oldshooting; +extern ScanCode firescan; +#else + ScanCode firescan; +#endif + +// Global variables + char *abortprogram; + boolean NoWait, + HighScoresDirty; + word PrintX,PrintY; + word WindowX,WindowY,WindowW,WindowH; + +// Internal variables +#define ConfigVersion 4 + +static char *ParmStrings[] = {"TEDLEVEL","NOWAIT"}, + *ParmStrings2[] = {"COMP","NOCOMP"}; +static boolean US_Started; + + boolean Button0,Button1, + CursorBad; + int CursorX,CursorY; + + void (*USL_MeasureString)(char far *,word *,word *) = VW_MeasurePropString, + (*USL_DrawString)(char far *) = VWB_DrawPropString; + + boolean (*USL_SaveGame)(int),(*USL_LoadGame)(int); + void (*USL_ResetGame)(void); + SaveGame Games[MaxSaveGames]; + HighScore Scores[MaxScores] = + { +#if defined CAT3D + {"Sir Lancelot",500,3}, + {"",0}, + {"",0}, + {"",0}, + {"",0}, + {"",0}, + {"",0}, +#elif defined GOODTIMES + {"Id Software",10000,0}, + {"Adrian Carmack",10000,0}, + {"John Carmack",10000,0}, + {"Kevin Cloud",10000,0}, + {"Shawn Green",10000,0}, + {"Tom Hall",10000,0}, + {"John Romero",10000,0}, + {"Jay Wilbur",10000,0}, +#else + {"Id Software - '91",10000,0}, + {"",10000,0}, + {"Jason Blochowiak",10000,0}, + {"Adrian Carmack",10000,0}, + {"John Carmack",10000,0}, + {"Tom Hall",10000,0}, + {"John Romero",10000,0}, + {"",10000,0}, +#endif + }; + +// Internal routines + +// Public routines + +/////////////////////////////////////////////////////////////////////////// +// +// USL_HardError() - Handles the Abort/Retry/Fail sort of errors passed +// from DOS. +// +/////////////////////////////////////////////////////////////////////////// +#pragma warn -par +#pragma warn -rch +int +USL_HardError(word errval,int ax,int bp,int si) +{ +#define IGNORE 0 +#define RETRY 1 +#define ABORT 2 +extern void ShutdownId(void); + +static char buf[32]; +static WindowRec wr; + int di; + char c,*s,*t; + + + di = _DI; + + if (ax < 0) + s = "Device Error"; + else + { + if ((di & 0x00ff) == 0) + s = "Drive ~ is Write Protected"; + else + s = "Error on Drive ~"; + for (t = buf;*s;s++,t++) // Can't use sprintf() + if ((*t = *s) == '~') + *t = (ax & 0x00ff) + 'A'; + *t = '\0'; + s = buf; + } + + c = peekb(0x40,0x49); // Get the current screen mode + if ((c < 4) || (c == 7)) + goto oh_kill_me; + + // DEBUG - handle screen cleanup + + US_SaveWindow(&wr); + US_CenterWindow(30,3); + US_CPrint(s); + US_CPrint("(R)etry or (A)bort?"); + VW_UpdateScreen(); + IN_ClearKeysDown(); + +asm sti // Let the keyboard interrupts come through + + while (true) + { + switch (IN_WaitForASCII()) + { + case key_Escape: + case 'a': + case 'A': + goto oh_kill_me; + break; + case key_Return: + case key_Space: + case 'r': + case 'R': + US_ClearWindow(); + VW_UpdateScreen(); + US_RestoreWindow(&wr); + return(RETRY); + break; + } + } + +oh_kill_me: + abortprogram = s; + ShutdownId(); + fprintf(stderr,"Terminal Error: %s\n",s); + if (tedlevel) + fprintf(stderr,"You launched from TED. I suggest that you reboot...\n"); + + return(ABORT); +#undef IGNORE +#undef RETRY +#undef ABORT +} +#pragma warn +par +#pragma warn +rch + +/////////////////////////////////////////////////////////////////////////// +// +// USL_GiveSaveName() - Returns a pointer to a static buffer that contains +// the filename to use for the specified save game +// +/////////////////////////////////////////////////////////////////////////// +char * +USL_GiveSaveName(word game) +{ +static char name[] = "SAVEGAMx."EXTENSION; + + name[7] = '0' + game; + return(name); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_SetLoadSaveHooks() - Sets the routines that the User Mgr calls after +// reading or writing the save game headers +// +/////////////////////////////////////////////////////////////////////////// +void +US_SetLoadSaveHooks(boolean (*load)(int),boolean (*save)(int),void (*reset)(void)) +{ + USL_LoadGame = load; + USL_SaveGame = save; + USL_ResetGame = reset; +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_ReadConfig() - Reads the configuration file, if present, and sets +// things up accordingly. If it's not present, uses defaults. This file +// includes the high scores. +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_ReadConfig(void) +{ + boolean gotit, hadAdLib; + char sig[sizeof(EXTENSION)]; + word version; + int file; + SDMode sd; + SMMode sm; + ControlType ctl; + + if ((file = open("CONFIG."EXTENSION,O_BINARY | O_RDONLY)) != -1) + { + read(file,sig,sizeof(EXTENSION)); + read(file,&version,sizeof(version)); + if (strcmp(sig,EXTENSION) || (version != ConfigVersion)) + { + close(file); + goto rcfailed; + } + read(file,Scores,sizeof(HighScore) * MaxScores); + read(file,&sd,sizeof(sd)); + read(file,&sm,sizeof(sm)); + read(file,&ctl,sizeof(ctl)); + read(file,&(KbdDefs[0]),sizeof(KbdDefs[0])); + read(file,&showscorebox,sizeof(showscorebox)); + read(file,&compatability,sizeof(compatability)); + read(file,&QuietFX,sizeof(QuietFX)); + read(file,&hadAdLib,sizeof(hadAdLib)); + read(file,&jerk,sizeof(jerk)); +#ifdef KEEN + read(file,&oldshooting,sizeof(oldshooting)); + read(file,&firescan,sizeof(firescan)); +#endif + read(file,&GravisGamepad,sizeof(GravisGamepad)); + read(file,&GravisMap,sizeof(GravisMap)); + close(file); + + HighScoresDirty = false; + gotit = true; + } + else + { +rcfailed: + sd = sdm_Off; + sm = smm_Off; + ctl = ctrl_Keyboard; + showscorebox = true; +#ifdef KEEN + oldshooting = false; +#endif + + gotit = false; + HighScoresDirty = true; + } + + SD_Default(gotit? (hadAdLib==AdLibPresent) : false, sd,sm); + IN_Default(gotit,ctl); +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_WriteConfig() - Writes out the current configuration, including the +// high scores. +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_WriteConfig(void) +{ + word version; + int file; + + version = ConfigVersion; + file = open("CONFIG."EXTENSION,O_CREAT | O_BINARY | O_WRONLY, + S_IREAD | S_IWRITE | S_IFREG); + if (file != -1) + { + write(file,EXTENSION,sizeof(EXTENSION)); + write(file,&version,sizeof(version)); + write(file,Scores,sizeof(HighScore) * MaxScores); + write(file,&SoundMode,sizeof(SoundMode)); + write(file,&MusicMode,sizeof(MusicMode)); +#ifdef CAT3D + if // Hack + ( + (Controls[0] == ctrl_Joystick1) + || (Controls[0] == ctrl_Joystick2) + ) + Controls[0] = ctrl_Keyboard; +#endif + write(file,&(Controls[0]),sizeof(Controls[0])); + write(file,&(KbdDefs[0]),sizeof(KbdDefs[0])); + write(file,&showscorebox,sizeof(showscorebox)); + write(file,&compatability,sizeof(compatability)); + write(file,&QuietFX,sizeof(QuietFX)); + write(file,&AdLibPresent,sizeof(AdLibPresent)); + write(file,&jerk,sizeof(jerk)); +#ifdef KEEN + write(file,&oldshooting,sizeof(oldshooting)); + write(file,&firescan,sizeof(firescan)); +#endif + write(file,&GravisGamepad,sizeof(GravisGamepad)); + write(file,&GravisMap,sizeof(GravisMap)); + close(file); + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_CheckSavedGames() - Checks to see which saved games are present +// & valid +// +/////////////////////////////////////////////////////////////////////////// +#ifdef KEEN +void +#else +static void +#endif +USL_CheckSavedGames(void) +{ + boolean ok; + char *filename; + word i; + int file; + SaveGame *game; + +#ifdef CAT3D + USL_SaveGame = 0; + USL_LoadGame = 0; +#endif + + for (i = 0,game = Games;i < MaxSaveGames;i++,game++) + { + filename = USL_GiveSaveName(i); + ok = false; + if ((file = open(filename,O_BINARY | O_RDONLY)) != -1) + { + if + ( + (read(file,game,sizeof(*game)) == sizeof(*game)) + && (!strcmp(game->signature,EXTENSION)) + && (game->oldtest == &PrintX) + ) + ok = true; + + close(file); + } + + if (ok) + game->present = true; + else + { + strcpy(game->signature,EXTENSION); + game->present = false; + strcpy(game->name,"Empty"); + } + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_Startup() - Starts the User Mgr +// +/////////////////////////////////////////////////////////////////////////// +void +US_Startup(void) +{ + int i; + + if (US_Started) + return; + + harderr(USL_HardError); // Install the fatal error handler + + US_InitRndT(true); // Initialize the random number generator + + USL_ReadConfig(); // Read config file + + for (i = 1;i < _argc;i++) + { + switch (US_CheckParm(_argv[i],ParmStrings2)) + { + case 0: + if (grmode == EGAGR) + compatability = true; + break; + case 1: + compatability = false; + break; + } + } + + US_Started = true; +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_Setup() - Does the disk access part of the User Mgr's startup +// +/////////////////////////////////////////////////////////////////////////// +void +US_Setup(void) +{ +#ifndef CAT3D + USL_SaveGame = 0; + USL_LoadGame = 0; +#endif + USL_CheckSavedGames(); // Check which saved games are present +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_Shutdown() - Shuts down the User Mgr +// +/////////////////////////////////////////////////////////////////////////// +void +US_Shutdown(void) +{ + if (!US_Started) + return; + + if (!abortprogram) + USL_WriteConfig(); + + US_Started = false; +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_CheckParm() - checks to see if a string matches one of a set of +// strings. The check is case insensitive. The routine returns the +// index of the string that matched, or -1 if no matches were found +// +/////////////////////////////////////////////////////////////////////////// +int +US_CheckParm(char *parm,char **strings) +{ + char cp,cs, + *p,*s; + int i; + + while (!isalpha(*parm)) // Skip non-alphas + parm++; + + for (i = 0;*strings && **strings;i++) + { + for (s = *strings++,p = parm,cs = cp = 0;cs == cp;) + { + cs = *s++; + if (!cs) + return(i); + cp = *p++; + + if (isupper(cs)) + cs = tolower(cs); + if (isupper(cp)) + cp = tolower(cp); + } + } + return(-1); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_ParmPresent() - checks if a given string was passed as a command +// line parameter at startup +// +/////////////////////////////////////////////////////////////////////////// +boolean +US_ParmPresent(char *arg) +{ + int i; + char *strings[2]; + + strings[0] = arg; + strings[1] = NULL; + + for (i=1; i<_argc; i++) + { + if (US_CheckParm(_argv[i], strings) != -1) + return true; + } + return false; +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_ScreenDraw() - Draws a chunk of the text screen (called only by +// US_TextScreen()) +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_ScreenDraw(word x,word y,char *s,byte attr) +{ + byte far *screen,far *oscreen; + + screen = MK_FP(0xb800,(x * 2) + (y * 80 * 2)); + oscreen = (&introscn + 7) + ((x - 1) * 2) + (y * 80 * 2) + 1; + while (*s) + { + *screen++ = *s++; + if (attr != 0xff) + { + *screen++ = (attr & 0x8f) | (*oscreen & 0x70); + oscreen += 2; + } + else + screen++; + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_ClearTextScreen() - Makes sure the screen is in text mode, clears it, +// and moves the cursor to the leftmost column of the bottom line +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_ClearTextScreen(void) +{ + // Set to 80x25 color text mode + _AL = 3; // Mode 3 + _AH = 0x00; + geninterrupt(0x10); + + // Use BIOS to move the cursor to the bottom of the screen + _AH = 0x0f; + geninterrupt(0x10); // Get current video mode into _BH + _DL = 0; // Lefthand side of the screen + _DH = 24; // Bottom row + _AH = 0x02; + geninterrupt(0x10); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_TextScreen() - Puts up the startup text screen +// Note: These are the only User Manager functions that can be safely called +// before the User Mgr has been started up +// +/////////////////////////////////////////////////////////////////////////// +void +US_TextScreen(void) +{ + word i,n; + + USL_ClearTextScreen(); + + _fmemcpy(MK_FP(0xb800,0),7 + &introscn,80 * 25 * 2); + + // Check for TED launching here + for (i = 1;i < _argc;i++) + { + n = US_CheckParm(_argv[i],ParmStrings); + if (n == 0) + { + tedlevelnum = atoi(_argv[i + 1]); + if (tedlevelnum >= 0) + { + tedlevel = true; + return; + } + else + break; + } + else if (n == 1) + { + NoWait = true; + return; + } + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_Show() - Changes the appearance of one of the fields on the text +// screen. Possibly adds a checkmark in front of it and highlights it +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_Show(word x,word y,word w,boolean show,boolean hilight) +{ + byte far *screen,far *oscreen; + + screen = MK_FP(0xb800,((x - 1) * 2) + (y * 80 * 2)); + oscreen = (&introscn + 7) + ((x - 1) * 2) + (y * 80 * 2) - 1; + *screen++ = show? 251 : ' '; // Checkmark char or space +// *screen = 0x48; +// *screen = (*oscreen & 0xf0) | 8; + oscreen += 2; + if (show && hilight) + { + for (w++;w--;screen += 2,oscreen += 2) + *screen = (*oscreen & 0xf0) | 0x0f; + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_ShowMem() - Right justifies a longword in one of the memory fields on +// the text screen +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_ShowMem(word x,word y,long mem) +{ + char buf[16]; + word i; + + for (i = strlen(ltoa(mem,buf,10));i < 5;i++) + USL_ScreenDraw(x++,y," ",0xff); + USL_ScreenDraw(x,y,buf,0xff); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_UpdateTextScreen() - Called after the ID libraries are started up. +// Displays what hardware is present. +// +/////////////////////////////////////////////////////////////////////////// +void +US_UpdateTextScreen(void) +{ + boolean b; + longword totalmem; + + // Show video card info + b = (grmode == CGAGR); + USL_Show(21,7,4,(videocard >= CGAcard) && (videocard <= VGAcard),b); + b = (grmode == EGAGR || grmode == VGAGR); + USL_Show(21,8,7,(videocard >= EGAcard) && (videocard <= VGAcard),b); +// b = (grmode == VGAGR); +// USL_Show(21,9,4,videocard == VGAcard,b); +#if GRMODE != CGAGR + if (compatability) + USL_ScreenDraw(5,10,"SVGA Compatibility Mode Enabled.",0x4f); +#endif + + // Show input device info + USL_Show(60,7,8,true,true); + USL_Show(60,8,11,JoysPresent[0],true); + USL_Show(60,9,11,JoysPresent[1],true); + USL_Show(60,10,5,MousePresent,true); + + // Show sound hardware info + USL_Show(21,14,11,true,SoundMode == sdm_PC); + b = (SoundMode == sdm_AdLib) || (MusicMode == smm_AdLib); + USL_Show(21,15,14,AdLibPresent,b); + if (b && AdLibPresent) // Hack because of two lines + { + byte far *screen,far *oscreen; + word x,y,w; + + x = 21; + y = 16; + w = 14; + screen = MK_FP(0xb800,(x * 2) + (y * 80 * 2) - 1); + oscreen = (&introscn + 7) + (x * 2) + (y * 80 * 2) - 1; + oscreen += 2; + for (w++;w--;screen += 2,oscreen += 2) + *screen = (*oscreen & 0xf0) | 0x0f; + } + + // Show memory available/used + USL_ShowMem(63,15,mminfo.mainmem / 1024); + USL_Show(53,15,23,true,true); + USL_ShowMem(63,16,mminfo.EMSmem / 1024); + USL_Show(53,16,23,mminfo.EMSmem? true : false,true); + USL_ShowMem(63,17,mminfo.XMSmem / 1024); + USL_Show(53,17,23,mminfo.XMSmem? true : false,true); + totalmem = mminfo.mainmem + mminfo.EMSmem + mminfo.XMSmem; + USL_ShowMem(63,18,totalmem / 1024); + USL_Show(53,18,23,true,true); // DEBUG + USL_ScreenDraw(52,18," ",0xff); + + // Change Initializing... to Loading... + USL_ScreenDraw(27,22," Loading... ",0x9c); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_FinishTextScreen() - After the main program has finished its initial +// loading, this routine waits for a keypress and then clears the screen +// +/////////////////////////////////////////////////////////////////////////// +void +US_FinishTextScreen(void) +{ +static byte colors[] = {4,6,13,15,15,15,15,15,15}; + boolean up; + int i,c; + + // Change Loading... to Press a Key + + if (!(tedlevel || NoWait)) + { + IN_ClearKeysDown(); + for (i = 0,up = true;!IN_UserInput(4,true);) + { + c = colors[i]; + if (up) + { + if (++i == 9) + i = 8,up = false; + } + else + { + if (--i < 0) + i = 1,up = true; + } + + USL_ScreenDraw(29,22," Ready - Press a Key ",0x00 + c); + } + } + else + USL_ScreenDraw(29,22," Ready - Press a Key ",0x9a); + + IN_ClearKeysDown(); + + USL_ClearTextScreen(); +} + +// Window/Printing routines + +/////////////////////////////////////////////////////////////////////////// +// +// US_SetPrintRoutines() - Sets the routines used to measure and print +// from within the User Mgr. Primarily provided to allow switching +// between masked and non-masked fonts +// +/////////////////////////////////////////////////////////////////////////// +void +US_SetPrintRoutines(void (*measure)(char far *,word *,word *),void (*print)(char far *)) +{ + USL_MeasureString = measure; + USL_DrawString = print; +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_Print() - Prints a string in the current window. Newlines are +// supported. +// +/////////////////////////////////////////////////////////////////////////// +void +US_Print(char *s) +{ + char c,*se; + word w,h; + + while (*s) + { + se = s; + while ((c = *se) && (c != '\n')) + se++; + *se = '\0'; + + USL_MeasureString(s,&w,&h); + px = PrintX; + py = PrintY; + USL_DrawString(s); + + s = se; + if (c) + { + *se = c; + s++; + + PrintX = WindowX; + PrintY += h; + } + else + PrintX += w; + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_PrintUnsigned() - Prints an unsigned long +// +/////////////////////////////////////////////////////////////////////////// +void +US_PrintUnsigned(longword n) +{ + char buffer[32]; + + US_Print(ultoa(n,buffer,10)); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_PrintSigned() - Prints a signed long +// +/////////////////////////////////////////////////////////////////////////// +void +US_PrintSigned(long n) +{ + char buffer[32]; + + US_Print(ltoa(n,buffer,10)); +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_PrintInCenter() - Prints a string in the center of the given rect +// +/////////////////////////////////////////////////////////////////////////// +void +USL_PrintInCenter(char *s,Rect r) +{ + word w,h, + rw,rh; + + USL_MeasureString(s,&w,&h); + rw = r.lr.x - r.ul.x; + rh = r.lr.y - r.ul.y; + + px = r.ul.x + ((rw - w) / 2); + py = r.ul.y + ((rh - h) / 2); + USL_DrawString(s); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_PrintCentered() - Prints a string centered in the current window. +// +/////////////////////////////////////////////////////////////////////////// +void +US_PrintCentered(char *s) +{ + Rect r; + + r.ul.x = WindowX; + r.ul.y = WindowY; + r.lr.x = r.ul.x + WindowW; + r.lr.y = r.ul.y + WindowH; + + USL_PrintInCenter(s,r); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_CPrintLine() - Prints a string centered on the current line and +// advances to the next line. Newlines are not supported. +// +/////////////////////////////////////////////////////////////////////////// +void +US_CPrintLine(char *s) +{ + word w,h; + + USL_MeasureString(s,&w,&h); + + if (w > WindowW) + Quit("US_CPrintLine() - String exceeds width"); + px = WindowX + ((WindowW - w) / 2); + py = PrintY; + USL_DrawString(s); + PrintY += h; +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_CPrint() - Prints a string in the current window. Newlines are +// supported. +// +/////////////////////////////////////////////////////////////////////////// +void +US_CPrint(char *s) +{ + char c,*se; + + while (*s) + { + se = s; + while ((c = *se) && (c != '\n')) + se++; + *se = '\0'; + + US_CPrintLine(s); + + s = se; + if (c) + { + *se = c; + s++; + } + } +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_ClearWindow() - Clears the current window to white and homes the +// cursor +// +/////////////////////////////////////////////////////////////////////////// +void +US_ClearWindow(void) +{ + VWB_Bar(WindowX,WindowY,WindowW,WindowH,WHITE); + PrintX = WindowX; + PrintY = WindowY; +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_DrawWindow() - Draws a frame and sets the current window parms +// +/////////////////////////////////////////////////////////////////////////// +void +US_DrawWindow(word x,word y,word w,word h) +{ + word i, + sx,sy,sw,sh; + + WindowX = x * 8; + WindowY = y * 8; + WindowW = w * 8; + WindowH = h * 8; + + PrintX = WindowX; + PrintY = WindowY; + + sx = (x - 1) * 8; + sy = (y - 1) * 8; + sw = (w + 1) * 8; + sh = (h + 1) * 8; + + US_ClearWindow(); + + VWB_DrawTile8M(sx,sy,0),VWB_DrawTile8M(sx,sy + sh,6); + for (i = sx + 8;i <= sx + sw - 8;i += 8) + VWB_DrawTile8M(i,sy,1),VWB_DrawTile8M(i,sy + sh,7); + VWB_DrawTile8M(i,sy,2),VWB_DrawTile8M(i,sy + sh,8); + + for (i = sy + 8;i <= sy + sh - 8;i += 8) + VWB_DrawTile8M(sx,i,3),VWB_DrawTile8M(sx + sw,i,5); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_CenterWindow() - Generates a window of a given width & height in the +// middle of the screen +// +/////////////////////////////////////////////////////////////////////////// +void +US_CenterWindow(word w,word h) +{ + US_DrawWindow(((MaxX / 8) - w) / 2,((MaxY / 8) - h) / 2,w,h); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_CenterSaveWindow() - Generates a window of a given width & height in +// the middle of the screen, saving the background +// +/////////////////////////////////////////////////////////////////////////// +void +US_CenterSaveWindow(word w,word h,memptr *save) +{ + word x,y, + screen; + + x = ((MaxX / 8) - w) / 2; + y = ((MaxY / 8) - h) / 2; + MM_GetPtr(save,(w * h) * CHARWIDTH); + screen = bufferofs + panadjust + ylookup[y] + (x * CHARWIDTH); + VW_ScreenToMem(screen,*save,w * CHARWIDTH,h); + US_DrawWindow(((MaxX / 8) - w) / 2,((MaxY / 8) - h) / 2,w,h); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_RestoreSaveWindow() - Restores the background of the size of the +// current window from the memory specified by save +// +/////////////////////////////////////////////////////////////////////////// +void +US_RestoreSaveWindow(memptr *save) +{ + word screen; + + screen = bufferofs + panadjust + ylookup[WindowY] + (WindowX * CHARWIDTH); + VW_MemToScreen(*save,screen,WindowW * CHARWIDTH,WindowH); + MM_FreePtr(save); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_SaveWindow() - Saves the current window parms into a record for +// later restoration +// +/////////////////////////////////////////////////////////////////////////// +void +US_SaveWindow(WindowRec *win) +{ + win->x = WindowX; + win->y = WindowY; + win->w = WindowW; + win->h = WindowH; + + win->px = PrintX; + win->py = PrintY; +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_RestoreWindow() - Sets the current window parms to those held in the +// record +// +/////////////////////////////////////////////////////////////////////////// +void +US_RestoreWindow(WindowRec *win) +{ + WindowX = win->x; + WindowY = win->y; + WindowW = win->w; + WindowH = win->h; + + PrintX = win->px; + PrintY = win->py; +} + +// Cursor routines + +#if 0 +/////////////////////////////////////////////////////////////////////////// +// +// US_StartCursor() - Sets up the cursor for User Mgr use +// +/////////////////////////////////////////////////////////////////////////// +void +US_StartCursor(void) +{ + CursorInfo info; + + VW_SetCursor(CURSORARROWSPR); + CursorX = MaxX / 2; + CursorY = MaxY / 2; + VW_MoveCursor(CursorX,CursorY); + VW_ShowCursor(); + + IN_ReadCursor(&info); // Dispose of any accumulated movement +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_ShutCursor() - Cleans up after US_StartCursor() +// +/////////////////////////////////////////////////////////////////////////// +void +US_ShutCursor(void) +{ + VW_HideCursor(); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_UpdateCursor() - Gets the new cursor position & button states from +// the Input Mgr and tells the View Mgr where the cursor is +// +/////////////////////////////////////////////////////////////////////////// +boolean +US_UpdateCursor(void) +{ + CursorInfo info; + + IN_ReadCursor(&info); + if (info.x || info.y || CursorBad) + { + CursorX += info.x; + if (CursorX >= MaxX) + CursorX = MaxX - 1; + else if (CursorX < 0) + CursorX = 0; + + CursorY += info.y; + if (CursorY >= MaxY) + CursorY = MaxY - 1; + else if (CursorY < 0) + CursorY = 0; + + VW_MoveCursor(CursorX,CursorY); + CursorBad = false; + } + Button0 = info.button0; + Button1 = info.button1; + return(Button0 || Button1); +} +#endif + +// Input routines + +/////////////////////////////////////////////////////////////////////////// +// +// USL_XORICursor() - XORs the I-bar text cursor. Used by US_LineInput() +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_XORICursor(int x,int y,char *s,word cursor) +{ + char buf[MaxString]; + word w,h; + + strcpy(buf,s); + buf[cursor] = '\0'; + USL_MeasureString(buf,&w,&h); + + px = x + w - 1; + py = y; + USL_DrawString("\x80"); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_LineInput() - Gets a line of user input at (x,y), the string defaults +// to whatever is pointed at by def. Input is restricted to maxchars +// chars or maxwidth pixels wide. If the user hits escape (and escok is +// true), nothing is copied into buf, and false is returned. If the +// user hits return, the current string is copied into buf, and true is +// returned +// +/////////////////////////////////////////////////////////////////////////// +boolean +US_LineInput(int x,int y,char *buf,char *def,boolean escok, + int maxchars,int maxwidth) +{ + boolean redraw, + cursorvis,cursormoved, + done,result; + ScanCode sc; + char c, + s[MaxString],olds[MaxString]; + word i, + cursor, + w,h, + len; + longword lasttime; + + VW_HideCursor(); + + if (def) + strcpy(s,def); + else + *s = '\0'; + *olds = '\0'; + cursor = strlen(s); + cursormoved = redraw = true; + + cursorvis = done = false; + lasttime = TimeCount; + LastASCII = key_None; + LastScan = sc_None; + + while (!done) + { + if (cursorvis) + USL_XORICursor(x,y,s,cursor); + + asm pushf + asm cli + + sc = LastScan; + LastScan = sc_None; + c = LastASCII; + LastASCII = key_None; + + asm popf + + switch (sc) + { + case sc_LeftArrow: + if (cursor) + cursor--; + c = key_None; + cursormoved = true; + break; + case sc_RightArrow: + if (s[cursor]) + cursor++; + c = key_None; + cursormoved = true; + break; + case sc_Home: + cursor = 0; + c = key_None; + cursormoved = true; + break; + case sc_End: + cursor = strlen(s); + c = key_None; + cursormoved = true; + break; + + case sc_Return: + strcpy(buf,s); + done = true; + result = true; + c = key_None; + break; + case sc_Escape: + if (escok) + { + done = true; + result = false; + } + c = key_None; + break; + + case sc_BackSpace: + if (cursor) + { + strcpy(s + cursor - 1,s + cursor); + cursor--; + redraw = true; + } + c = key_None; + cursormoved = true; + break; + case sc_Delete: + if (s[cursor]) + { + strcpy(s + cursor,s + cursor + 1); + redraw = true; + } + c = key_None; + cursormoved = true; + break; + + case 0x4c: // Keypad 5 + case sc_UpArrow: + case sc_DownArrow: + case sc_PgUp: + case sc_PgDn: + case sc_Insert: + c = key_None; + break; + } + + if (c) + { + len = strlen(s); + USL_MeasureString(s,&w,&h); + + if + ( + isprint(c) + && (len < MaxString - 1) + && ((!maxchars) || (len < maxchars)) + && ((!maxwidth) || (w < maxwidth)) + ) + { + for (i = len + 1;i > cursor;i--) + s[i] = s[i - 1]; + s[cursor++] = c; + redraw = true; + } + } + + if (redraw) + { + px = x; + py = y; + USL_DrawString(olds); + strcpy(olds,s); + + px = x; + py = y; + USL_DrawString(s); + + redraw = false; + } + + if (cursormoved) + { + cursorvis = false; + lasttime = TimeCount - TickBase; + + cursormoved = false; + } + if (TimeCount - lasttime > TickBase / 2) + { + lasttime = TimeCount; + + cursorvis ^= true; + } + if (cursorvis) + USL_XORICursor(x,y,s,cursor); + + VW_UpdateScreen(); + } + + if (cursorvis) + USL_XORICursor(x,y,s,cursor); + if (!result) + { + px = x; + py = y; + USL_DrawString(olds); + } + VW_ShowCursor(); + VW_UpdateScreen(); + + IN_ClearKeysDown(); + return(result); +} diff --git a/16/keen456/KEEN4-6/ID_US_2.C b/16/keen456/KEEN4-6/ID_US_2.C new file mode 100755 index 00000000..e1948616 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_US_2.C @@ -0,0 +1,2260 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// +// ID Engine +// ID_US.c - User Manager - User interface +// v1.1d1 +// By Jason Blochowiak +// Hacked up for Catacomb 3D +// + +#include "ID_HEADS.H" +#pragma hdrstop + +#pragma warn -pia + +// Special imports +extern boolean showscorebox; +#ifdef KEEN +extern boolean jerk; +extern boolean oldshooting; +extern ScanCode firescan; +void USL_CheckSavedGames(void); +#else + ScanCode firescan; +#endif + +// Global variables + boolean ingame,abortgame,loadedgame; + GameDiff restartgame = gd_Continue; + +// Internal variables +static boolean GameIsDirty, + QuitToDos, + CtlPanelDone; + +#ifdef KEEN6 + int listindex = -1; + boolean checkpassed; +#endif + +// Forward reference prototypes +static void USL_SetupCard(void); + +// Control panel data + +#define CtlPanelSX 74 +#define CtlPanelSY 48 +#define CtlPanelEX 234 +#define CtlPanelEY 150 +#define CtlPanelW (CtlPanelEX - CtlPanelSX) +#define CtlPanelH (CtlPanelEY - CtlPanelSY) + +#ifdef KEEN + +#define TileBase 92 + +#if GRMODE == CGAGR + +#define BackColor 0 +#define HiliteColor (BackColor ^ 3) +#define NohiliteColor (BackColor ^ 2) + +#else + +#define BackColor 8 +#define HiliteColor (BackColor ^ 10) +#define NohiliteColor (BackColor ^ 2) + +#endif // if GRMODE == CGAGR ... else ... + +#else // ifdef KEEN + +#define TileBase 92 + +// DEBUG - CGA +#define BackColor 0 +#define HiliteColor (BackColor ^ 12) +#define NohiliteColor (BackColor ^ 4) + +#endif + +typedef enum + { + uc_None, + uc_Return, + uc_Abort, + uc_Quit, + uc_Loaded, + uc_SEasy, + uc_SNormal, + uc_SHard, + } UComm; +typedef enum + { + uii_Bad, + uii_Button,uii_RadioButton,uii_Folder + } UIType; +typedef enum + { + ui_Normal = 0, + ui_Pushed = 1, + ui_Selected = 2, + ui_Disabled = 4, + ui_Separated = 8 + } UIFlags; +#define UISelectFlags (ui_Pushed | ui_Selected | ui_Disabled) + +typedef enum + { + uic_SetupCard,uic_DrawCard,uic_TouchupCard, + uic_DrawIcon,uic_Draw,uic_Hit + } UserCall; + +typedef struct UserItem + { + UIType type; + UIFlags flags; + ScanCode hotkey; + char *text; + UComm comm; + void far *child; // Should be (UserItemGroup *) + + word x,y; + } UserItem; +typedef struct UserItemGroup + { + word x,y; + graphicnums title; + ScanCode hotkey; + UserItem far *items; + boolean (*custom)(UserCall,struct UserItem far *); // Custom routine + + word cursor; + struct UserItemGroup far *parent; + } UserItemGroup; + +static char *BottomS1,*BottomS2,*BottomS3; +static UComm Communication; +static ScanCode *KeyMaps[] = + { + &KbdDefs[0].button0, + &KbdDefs[0].button1, + &firescan, + &KbdDefs[0].upleft, + &KbdDefs[0].up, + &KbdDefs[0].upright, + &KbdDefs[0].right, + &KbdDefs[0].downright, + &KbdDefs[0].down, + &KbdDefs[0].downleft, + &KbdDefs[0].left + }; + +// Custom routine prototypes +static boolean USL_ConfigCustom(UserCall call,struct UserItem far *item), + USL_KeyCustom(UserCall call,struct UserItem far *item), + USL_KeySCustom(UserCall call,struct UserItem far *item), + USL_Joy1Custom(UserCall call,struct UserItem far *item), + USL_Joy2Custom(UserCall call,struct UserItem far *item), + USL_JoyGCustom(UserCall call,struct UserItem far *item), + USL_LoadCustom(UserCall call,struct UserItem far *item), + USL_SaveCustom(UserCall call,struct UserItem far *item), + USL_ScoreCustom(UserCall call,struct UserItem far *item), + USL_CompCustom(UserCall call,struct UserItem far *item), + USL_SmoothCustom(UserCall call,struct UserItem far *item), +#ifdef KEEN + USL_TwoCustom(UserCall call,struct UserItem far *item), +#endif + USL_PongCustom(UserCall call,struct UserItem far *item); + +#define DefButton(key,text) uii_Button,ui_Normal,key,text +#define DefRButton(key,text) uii_RadioButton,ui_Normal,key,text +#define DefFolder(key,text,child) uii_Folder,ui_Normal,key,text,uc_None,child +#define CustomGroup(title,key,custom) 0,0,title,key,0,custom + UserItem far holder[] = + { + {DefButton(sc_None,"DEBUG")}, + {uii_Bad} + }; + UserItemGroup far holdergroup = {0,0,CP_MAINMENUPIC,sc_None,holder}; + + // Sound menu + UserItem far soundi[] = + { + {DefRButton(sc_N,"NO SOUND EFFECTS")}, + {DefRButton(sc_P,"PC SPEAKER")}, + {DefRButton(sc_A,"ADLIB/SOUNDBLASTER")}, + {DefRButton(sc_Q,"QUIET ADLIB/SOUNDBLASTER")}, + {uii_Bad} + }; + UserItemGroup far soundgroup = {8,0,CP_SOUNDMENUPIC,sc_None,soundi}; + + // Music menu + UserItem far musici[] = + { + {DefRButton(sc_N,"NO MUSIC")}, + {DefRButton(sc_A,"ADLIB/SOUNDBLASTER")}, + {uii_Bad} + }; + UserItemGroup far musicgroup = {8,0,CP_MUSICMENUPIC,sc_None,musici}; + + // New game menu + UserItem far newgamei[] = + { + {DefButton(sc_E,"BEGIN EASY GAME"),uc_SEasy}, + {DefButton(sc_N,"BEGIN NORMAL GAME"),uc_SNormal}, + {DefButton(sc_H,"BEGIN HARD GAME"),uc_SHard}, + {uii_Bad} + }; + UserItemGroup far newgamegroup = {8,0,CP_NEWGAMEMENUPIC,sc_None,newgamei,0,1}; + + // Load/Save game menu + UserItem far loadsavegamei[] = + { +#ifdef CAT3D + {uii_Button,ui_Normal,sc_None}, + {uii_Button,ui_Normal,sc_None}, + {uii_Button,ui_Normal,sc_None}, + {uii_Button,ui_Normal,sc_None}, + {uii_Button,ui_Normal,sc_None}, + {uii_Button,ui_Normal,sc_None}, +#else + {uii_Button,ui_Normal,sc_1}, + {uii_Button,ui_Normal,sc_2}, + {uii_Button,ui_Normal,sc_3}, + {uii_Button,ui_Normal,sc_4}, + {uii_Button,ui_Normal,sc_5}, + {uii_Button,ui_Normal,sc_6}, +#endif + {uii_Bad} + }; + UserItemGroup far loadgamegroup = {4,3,CP_LOADMENUPIC,sc_None,loadsavegamei,USL_LoadCustom}; + UserItemGroup far savegamegroup = {4,3,CP_SAVEMENUPIC,sc_None,loadsavegamei,USL_SaveCustom}; + + // Options menu + UserItemGroup far scoregroup = {0,0,0,sc_None,0,USL_ScoreCustom}; +#ifdef KEEN + UserItemGroup far twogroup = {0,0,0,sc_None,0,USL_TwoCustom}; +#endif +#if GRMODE != CGAGR + UserItemGroup far smoothgroup = {0,0,0,sc_None,0,USL_SmoothCustom}; + UserItemGroup far compgroup = {0,0,0,sc_None,0,USL_CompCustom}; +#endif + + UserItem far optionsi[] = + { + {DefFolder(sc_S,"",&scoregroup)}, +#ifdef KEEN + {DefFolder(sc_T,"",&twogroup)}, +#endif +#if GRMODE != CGAGR + {DefFolder(sc_M,"",&smoothgroup)}, + {DefFolder(sc_C,"",&compgroup)}, +#endif + {uii_Bad} + }; + UserItemGroup far optionsgroup = {8,0,CP_OPTIONSMENUPIC,sc_None,optionsi}; + + // Keyboard menu + UserItem far keyi[] = + { + {DefButton(sc_None,"UP & LEFT")}, + {DefButton(sc_None,"UP")}, + {DefButton(sc_None,"UP & RIGHT")}, + {DefButton(sc_None,"RIGHT")}, + {DefButton(sc_None,"DOWN & RIGHT")}, + {DefButton(sc_None,"DOWN")}, + {DefButton(sc_None,"DOWN & LEFT")}, + {DefButton(sc_None,"LEFT")}, + {uii_Bad} + }; + UserItemGroup far keygroup = {0,0,CP_KEYMOVEMENTPIC,sc_None,keyi,USL_KeyCustom}; + UserItem far keybi[] = + { +#ifdef KEEN + {DefButton(sc_J,"JUMP")}, + {DefButton(sc_P,"POGO")}, + {DefButton(sc_F,"FIRE")}, +#endif +#ifdef CAT3D + {DefButton(sc_J,"FIRE")}, + {DefButton(sc_P,"STRAFE")}, +#endif +#ifdef CPD + {DefButton(sc_J,"SHOOT")}, + {DefButton(sc_P,"BOMB")}, +#endif + {uii_Bad} + }; + UserItemGroup far keybgroup = {0,0,CP_KEYBUTTONPIC,sc_None,keybi,USL_KeyCustom}; + UserItem far keysi[] = + { + {DefFolder(sc_M,"MOVEMENT",&keygroup)}, + {DefFolder(sc_B,"BUTTONS",&keybgroup)}, + {uii_Bad} + }; + UserItemGroup far keysgroup = {8,0,CP_KEYBOARDMENUPIC,sc_None,keysi,USL_KeySCustom}; + + // Joystick #1 & #2 + UserItemGroup far joy1group = {CustomGroup(CP_JOYSTICKMENUPIC,sc_None,USL_Joy1Custom)}; + UserItemGroup far joy2group = {CustomGroup(CP_JOYSTICKMENUPIC,sc_None,USL_Joy2Custom)}; + UserItemGroup far gravisgroup = {CustomGroup(CP_JOYSTICKMENUPIC,sc_None,USL_JoyGCustom)}; + + // Config menu + UserItem far configi[] = + { + {DefFolder(sc_S,"SOUND",&soundgroup)}, + {DefFolder(sc_M,"MUSIC",&musicgroup)}, +#ifndef CAT3D + {DefFolder(sc_O,"OPTIONS",&optionsgroup)}, +#endif + {uii_Folder,ui_Separated,sc_K,"USE KEYBOARD",uc_None,&keysgroup}, + {DefFolder(sc_1,"USE JOYSTICK #1",&joy1group)}, + {DefFolder(sc_2,"USE JOYSTICK #2",&joy2group)}, + {DefFolder(sc_G,"",&gravisgroup)}, + {uii_Bad} + }; +#ifdef CAT3D + UserItemGroup far configgroup = {8,0,CP_CONFIGMENUPIC,sc_None,configi,USL_ConfigCustom}; +#else + UserItemGroup far configgroup = {0,0,CP_CONFIGMENUPIC,sc_None,configi,USL_ConfigCustom}; +#endif + + // Main menu + UserItemGroup far ponggroup = {0,0,0,sc_None,0,USL_PongCustom}; + UserItem far rooti[] = + { + {DefFolder(sc_N,"NEW GAME",&newgamegroup)}, + {DefFolder(sc_L,"LOAD GAME",&loadgamegroup)}, + {DefFolder(sc_S,"SAVE GAME",&savegamegroup)}, + {DefFolder(sc_C,"CONFIGURE",&configgroup)}, + {DefButton(sc_R,nil),uc_Return}, // Return to Game/Demo + {DefButton(sc_E,"END GAME"),uc_Abort}, +#ifdef KEEN + {DefFolder(sc_P,"PADDLE WAR",&ponggroup)}, +#elif defined CAT3D + {DefFolder(sc_B,"SKULL 'N' BONES",&ponggroup)}, +#endif + {DefButton(sc_Q,"QUIT"),uc_Quit}, + {uii_Bad} + }; + UserItemGroup far rootgroup = {32,4,CP_MAINMENUPIC,sc_None,rooti}; +#undef DefButton +#undef DefFolder + +#define MaxCards 7 + word cstackptr; + UserItemGroup far *cardstack[MaxCards], + far *topcard; + +// Card stack code +static void +USL_SetupStack(void) +{ + cstackptr = 0; + cardstack[0] = topcard = &rootgroup; +} + +static void +USL_PopCard(void) +{ + if (!cstackptr) + return; + + topcard = cardstack[--cstackptr]; +} + +static void +USL_PushCard(UserItemGroup far *card) +{ + if (cstackptr == MaxCards - 1) + return; + + topcard = cardstack[++cstackptr] = card; +} + +static void +USL_DrawItemIcon(UserItem far *item) +{ + word flags,tile; + + if (topcard->custom && topcard->custom(uic_DrawIcon,item)) + return; + + flags = item->flags; + if (flags & ui_Disabled) + tile = TileBase + ((flags & ui_Selected)? 5 : 4); + else if ((item->type == uii_RadioButton) && (!(flags & ui_Pushed))) + tile = TileBase + ((flags & ui_Selected)? 3 : 2); + else + tile = TileBase + ((flags & ui_Selected)? 1 : 0); + VWB_DrawTile8(item->x,item->y,tile); +} + +static void +USL_DrawItem(UserItem far *item) +{ + if (topcard->custom && topcard->custom(uic_Draw,item)) + return; + + VWB_Bar(CtlPanelSX + 1,item->y, + CtlPanelEX - CtlPanelSX - 1,8,BackColor); // Clear out background + USL_DrawItemIcon(item); + if ((item->flags & ui_Selected) && !(item->flags & ui_Disabled)) + fontcolor = HiliteColor; + else + fontcolor = NohiliteColor; + px = item->x + 8; + py = item->y + 1; + USL_DrawString(item->text); + fontcolor = F_BLACK; +} + +#ifdef KEEN +#if GRMODE == CGAGR +#define MyLine(y) VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,y,3); +#else +#define MyLine(y) VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,y,10); +#endif +#else +#define MyLine(y) VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,y,12); +#endif + +static void +USL_DrawBottom(void) +{ + word w,h; + + fontcolor = NohiliteColor; + + px = CtlPanelSX + 4; + py = CtlPanelEY - 15; + USL_DrawString(BottomS1); + + USL_MeasureString(BottomS2,&w,&h); + px = CtlPanelEX - 4 - w; + USL_DrawString(BottomS2); + + USL_MeasureString(BottomS3,&w,&h); + px = CtlPanelSX + ((CtlPanelEX - CtlPanelSX - w) / 2); + py += h + 1; + USL_DrawString(BottomS3); + + fontcolor = F_WHITE; + MyLine(CtlPanelEY - 17); +} + +static void +USL_DrawCtlPanelContents(void) +{ + int x,y; + UserItem far *item; + + if (topcard->custom && topcard->custom(uic_DrawCard,nil)) + return; + + if (topcard->title) + { + // Draw the title + MyLine(CtlPanelSY + 7); + VWB_DrawPic(CtlPanelSX + 6,CtlPanelSY,topcard->title); + } + + USL_DrawBottom(); + + if (!topcard->items) + return; + + x = topcard->x + CtlPanelSX; + if (x % 8) + x += 8 - (x % 8); + y = topcard->y + CtlPanelSY + 12; + for (item = topcard->items;item->type != uii_Bad;item++) + { + if (item->flags & ui_Separated) + y += 8; + + item->x = x; + item->y = y; + USL_DrawItem(item); + y += 8; + } + if (topcard->custom) + topcard->custom(uic_TouchupCard,nil); +} + +static void +USL_DrawCtlPanel(void) +{ + if (topcard->items || topcard->title) + { + // Draw the backdrop + VWB_DrawPic(0,0,CP_MENUSCREENPIC); + + // Draw the contents + USL_DrawCtlPanelContents(); + } + + // Refresh the screen + VW_UpdateScreen(); +} + +static void +USL_DialogSetup(word w,word h,word *x,word *y) +{ + VWB_DrawMPic(CtlPanelSX,CtlPanelSY,CP_MENUMASKPICM); + + *x = CtlPanelSX + ((CtlPanelW - w) / 2); + *y = CtlPanelSY + ((CtlPanelH - h) / 2); + VWB_Bar(*x,*y,w + 1,h + 1,BackColor); + VWB_Hlin(*x - 1,*x + w + 1,*y - 1,NohiliteColor); + VWB_Hlin(*x - 1,*x + w + 1,*y + h + 1,NohiliteColor); + VWB_Vlin(*y - 1,*y + h + 1,*x - 1,NohiliteColor); + VWB_Vlin(*y - 1,*y + h + 1,*x + w + 1,NohiliteColor); +} + +static void +USL_ShowLoadSave(char *s,char *name) +{ + word x,y, + w,h, + tw,sw; + char msg[MaxGameName + 4]; + + strcpy(msg,"'"); + strcat(msg,name); + strcat(msg,"'"); + USL_MeasureString(s,&sw,&h); + USL_MeasureString(msg,&w,&h); + tw = ((sw > w)? sw : w) + 6; + USL_DialogSetup(tw,(h * 2) + 2,&x,&y); + py = y + 2; + px = x + ((tw - sw) / 2); + USL_DrawString(s); + py += h; + px = x + ((tw - w) / 2); + USL_DrawString(msg); + + VW_UpdateScreen(); +#ifdef CAT3D + IN_UserInput(100, true); +#endif +} + +static boolean +USL_CtlDialog(char *s1,char *s2,char *s3) +{ + word w,h,sh, + w1,w2,w3, + x,y; + ScanCode c; + CursorInfo cursorinfo; + + USL_MeasureString(s1,&w1,&h); + USL_MeasureString(s2,&w2,&h); + if (s3) + USL_MeasureString(s3,&w3,&h); + else + w3 = 0; + w = (w1 > w2)? ((w1 > w3)? w1 : w3) : ((w2 > w3)? w2 : w3); + w += 7; + sh = h; + h *= s3? 5 : 4; + + USL_DialogSetup(w,h,&x,&y); + + fontcolor = HiliteColor; + px = x + ((w - w1) / 2); + py = y + sh + 1; + USL_DrawString(s1); + py += (sh * 2) - 1; + + VWB_Hlin(x + 3,x + w - 3,py,NohiliteColor); + py += 2; + + fontcolor = NohiliteColor; + px = x + ((w - w2) / 2); + USL_DrawString(s2); + py += sh; + + if (s3) + { + px = x + ((w - w3) / 2); + USL_DrawString(s3); + } + + VW_UpdateScreen(); + + IN_ClearKeysDown(); + do + { + IN_ReadCursor(&cursorinfo); + if (cursorinfo.button0) + c = sc_Y; + else if (cursorinfo.button1) + c = sc_Escape; + else + c = LastScan; + } while (c == sc_None); + do + { + IN_ReadCursor(&cursorinfo); + } while (cursorinfo.button0 || cursorinfo.button1); + + IN_ClearKeysDown(); + USL_DrawCtlPanel(); + return(c == sc_Y); +} + +static boolean +USL_ConfirmComm(UComm comm) +{ + boolean confirm,dialog; + char *s1,*s2,*s3; + + if (!comm) + Quit("USL_ConfirmComm() - empty comm"); + + confirm = true; + dialog = false; + s3 = "ESC TO BACK OUT"; + switch (comm) + { + case uc_Abort: + s1 = "REALLY END CURRENT GAME?"; + s2 = "PRESS Y TO END IT"; + if (ingame && GameIsDirty) + dialog = true; + break; + case uc_Quit: + s1 = "REALLY QUIT?"; + s2 = "PRESS Y TO QUIT"; + dialog = true; + break; + case uc_Loaded: + s1 = "YOU'RE IN A GAME"; + s2 = "PRESS Y TO LOAD GAME"; + if (ingame && GameIsDirty) + dialog = true; + break; + case uc_SEasy: + case uc_SNormal: + case uc_SHard: + s1 = "YOU'RE IN A GAME"; + s2 = "PRESS Y FOR NEW GAME"; + if (ingame && GameIsDirty) + dialog = true; + break; + } + + confirm = dialog? USL_CtlDialog(s1,s2,s3) : true; + if (confirm) + { + Communication = comm; + CtlPanelDone = true; + } + return(confirm); +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_HandleError() - Handles telling the user that there's been an error +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_HandleError(int num) +{ + char buf[64]; + + strcpy(buf,"Error: "); + if (num < 0) + strcat(buf,"Unknown"); + else if (num == ENOMEM) + strcat(buf,"Disk is Full"); + else if (num == EINVFMT) + strcat(buf,"File is Incomplete"); + else + strcat(buf,sys_errlist[num]); + + VW_HideCursor(); + + USL_CtlDialog(buf,"PRESS ANY KEY",nil); + VW_UpdateScreen(); + + IN_ClearKeysDown(); + IN_Ack(); + + VW_ShowCursor(); + VW_UpdateScreen(); +} + +// Custom routines +#if 0 +static boolean +USL_GenericCustom(UserCall call,UserItem far *item) +{ + boolean result; + + result = false; + switch (call) + { + } + return(result); +} +#endif + +static void +USL_SetOptionsText(void) +{ + optionsi[0].text = showscorebox? "SCORE BOX (ON)" : "SCORE BOX (OFF)"; + optionsi[1].text = oldshooting? "TWO-BUTTON FIRING (ON)" : "TWO-BUTTON FIRING (OFF)"; +#if GRMODE != CGAGR + optionsi[2].text = jerk? "FIX JERKY MOTION (ON)" : "FIX JERKY MOTION (OFF)"; + optionsi[3].text = compatability? "SVGA COMPATIBILITY (ON)" : "SVGA COMPATIBILITY (OFF)"; +#endif + + keybi[2].flags &= ~ui_Disabled; + if (oldshooting) + keybi[2].flags |= ui_Disabled; + + // gravis option is only enabled when a joystick is selected + configi[6].flags |= ui_Disabled; + if (Controls[0] == ctrl_Joystick1 || Controls[0] == ctrl_Joystick2) + configi[6].flags &= ~ui_Disabled; + + configi[6].text = GravisGamepad? "USE GRAVIS GAMEPAD (ON)" : "USE GRAVIS GAMEPAD (OFF)"; +} + +#pragma argsused +static boolean +USL_ScoreCustom(UserCall call,UserItem far *item) +{ + if (call != uic_SetupCard) + return(false); + + showscorebox ^= true; + USL_CtlDialog(showscorebox? "Score box now on" : "Score box now off", + "Press any key",nil); + USL_SetOptionsText(); + return(true); +} + +#pragma argsused +static boolean +USL_SmoothCustom(UserCall call,UserItem far *item) +{ + if (call != uic_SetupCard) + return(false); + + jerk ^= true; + USL_CtlDialog(jerk? "Jerky motion fix enabled" : "Jerky motion fix disabled", + "Press any key",nil); + USL_SetOptionsText(); + return(true); +} + +#pragma argsused +static boolean +USL_CompCustom(UserCall call,UserItem far *item) +{ + if (call != uic_SetupCard) + return(false); + + compatability ^= true; + USL_CtlDialog(compatability? "SVGA compatibility now on" : "SVGA compatibility now off", + "Press any key",nil); + USL_SetOptionsText(); + return(true); +} + +#ifdef KEEN +#pragma argsused +static boolean +USL_TwoCustom(UserCall call,UserItem far *item) +{ + if (call != uic_SetupCard) + return(false); + + oldshooting ^= true; + USL_CtlDialog(oldshooting? "Two-button firing now on" : "Two-button firing now off", + "Press any key",nil); + USL_SetOptionsText(); + return(true); +} +#endif + +static boolean +USL_ConfigCustom(UserCall call,UserItem far *item) +{ +static char *CtlNames[] = {"KEYBOARD","KEYBOARD","JOYSTICK #1","JOYSTICK #2","MOUSE"}; + char *s; + word w,h, + tw; + + if (call == uic_TouchupCard) + { + s = "CONTROL: "; + USL_MeasureString(s,&w,&h); + tw = w; + USL_MeasureString(CtlNames[Controls[0]],&w,&h); + tw += w; + py = CtlPanelEY - 18 - h; + px = CtlPanelSX + ((CtlPanelW - tw) / 2); + fontcolor = NohiliteColor; + USL_DrawString(s); + USL_DrawString(CtlNames[Controls[0]]); + } + item++; // Shut the compiler up + return(false); +} + +static void +USL_CKSetKey(UserItem far *item,word i) +{ + boolean on; + word j; + ScanCode scan; + longword time; + CursorInfo cursorinfo; + + on = false; + time = 0; + LastScan = sc_None; + fontcolor = HiliteColor; + do + { + if (TimeCount >= time) + { + on ^= true; + VWB_Bar(item->x + 90,item->y,40,8,fontcolor ^ BackColor); + VWB_Bar(item->x + 90 + 1,item->y + 1,40 - 2,8 - 2,BackColor); + if (on) + VWB_DrawTile8(item->x + 90 + 16,item->y,TileBase + 8); + VW_UpdateScreen(); + + time = TimeCount + (TickBase / 2); + } + + IN_ReadCursor(&cursorinfo); + while (cursorinfo.button0 || cursorinfo.button1) + { + IN_ReadCursor(&cursorinfo); + LastScan = sc_Escape; + } + + asm pushf + asm cli + if (LastScan == sc_LShift) + LastScan = sc_None; + asm popf + } while (!(scan = LastScan)); + + if (scan != sc_Escape) + { + for (j = 0,on = false;j < 11;j++) + { + if (j == i) + continue; + if (*(KeyMaps[j]) == scan) + { + on = true; + break; + } + } + if (on) +#ifdef KEEN + USL_CtlDialog("Key already used","Press any key",nil); +#else + USL_CtlDialog("Key already used","Press a key",nil); +#endif + else + *(KeyMaps[i]) = scan; + } + IN_ClearKeysDown(); +} + +#pragma argsused +static boolean +USL_KeySCustom(UserCall call,UserItem far *item) +{ + if (call == uic_SetupCard) + { + Controls[0] = ctrl_Keyboard; + GravisGamepad = false; + USL_SetOptionsText(); + } + return(false); +} + +#pragma argsused +static boolean +USL_KeyCustom(UserCall call,UserItem far *item) +{ + boolean result; + word i; + + result = false; + i = (topcard == &keygroup)? (3 + (item - keyi)) : (item - keybi); + switch (call) + { + case uic_SetupCard: + Controls[0] = ctrl_Keyboard; + break; + case uic_Draw: + VWB_Bar(CtlPanelSX + 1,item->y, + CtlPanelEX - CtlPanelSX - 1,8,BackColor); // Clear out background + USL_DrawItemIcon(item); + fontcolor = (item->flags & ui_Selected)? HiliteColor : NohiliteColor; + px = item->x + 8; + py = item->y + 1; + USL_DrawString(item->text); + VWB_Bar(item->x + 90,item->y,40,8,fontcolor ^ BackColor); + VWB_Bar(item->x + 90 + 1,item->y + 1,40 - 2,8 - 2,BackColor); + px = item->x + 90 + 6; + py = item->y + 1; + USL_DrawString(IN_GetScanName(*KeyMaps[i])); + result = true; + break; + case uic_Hit: + USL_KeyCustom(uic_Draw,item); + USL_CKSetKey(item,i); + USL_DrawCtlPanel(); + result = true; + break; + } + return(result); +} + +static void +USL_CJDraw(char *s1,char *s2) +{ + word w,h; + + USL_MeasureString(s1,&w,&h); + px = CtlPanelSX + ((CtlPanelW - w) / 2); + py = CtlPanelEY - 34; + VWB_Bar(CtlPanelSX + 1,py,CtlPanelW - 2,h * 2,BackColor); + fontcolor = HiliteColor; + USL_DrawString(s1); + py += h; + USL_MeasureString(s2,&w,&h); + px = CtlPanelSX + ((CtlPanelW - w) / 2); + USL_DrawString(s2); +} + +static boolean +USL_CJGet(word joy,word button,word x,word y,word *xaxis,word *yaxis) +{ + boolean on; + longword time; + + while (IN_GetJoyButtonsDB(joy)) + if (LastScan == sc_Escape) + return(false); + + on = false; + time = 0; + while (!(IN_GetJoyButtonsDB(joy) & (1 << button))) + { + if (TimeCount >= time) + { + on ^= true; + time = TimeCount + (TickBase / 2); + VWB_DrawTile8(x,y,TileBase + on); + VW_UpdateScreen(); + } + + if (LastScan == sc_Escape) + return(false); + } + IN_GetJoyAbs(joy,xaxis,yaxis); + return(true); +} + +static boolean +USL_ConfigJoystick(word joy) +{ + word x,y, + minx,miny, + maxx,maxy; + + BottomS1 = BottomS2 = ""; +#ifdef KEEN + BottomS3 = "ESC to back out"; +#else + BottomS3 = "Esc to back out"; +#endif + USL_DrawCtlPanel(); + x = CtlPanelSX + 60; + y = CtlPanelSY + 19; + VWB_DrawPic(x,y,CP_JOYSTICKPIC); + + USL_CJDraw("Move Joystick to upper left","and press button #1"); + VWB_DrawTile8(x + 24,y + 8,TileBase + 6); + VWB_DrawTile8(x + 8,y + 8,TileBase + 1); + VWB_DrawTile8(x + 8,y + 24,TileBase + 0); + VW_UpdateScreen(); + if (!USL_CJGet(joy,0,x + 8,y + 8,&minx,&miny)) + return(false); + + USL_CJDraw("Move Joystick to lower right","and press button #2"); + VWB_DrawTile8(x + 24,y + 8,TileBase - 25); + VWB_DrawTile8(x + 40,y + 24,TileBase + 7); + VWB_DrawTile8(x + 8,y + 8,TileBase + 0); + VWB_DrawTile8(x + 8,y + 24,TileBase + 1); + VW_UpdateScreen(); + if (!USL_CJGet(joy,1,x + 8,y + 24,&maxx,&maxy)) + return(false); + + while (IN_GetJoyButtonsDB(joy)) + ; + +#ifdef KEEN + if (minx != maxx && miny != maxy) + { + IN_SetupJoy(joy,minx,maxx,miny,maxy); + return(true); + } + return(false); +#else + IN_SetupJoy(joy,minx,maxx,miny,maxy); + return(true); +#endif +} + +#pragma argsused +static boolean +USL_Joy1Custom(UserCall call,UserItem far *item) +{ + if (call == uic_SetupCard) + { + if (USL_ConfigJoystick(0)) + { + Controls[0] = ctrl_Joystick1; + USL_CtlDialog("USING JOYSTICK #1","PRESS ANY KEY",nil); + USL_SetOptionsText(); + } + return(true); + } + else + return(false); +} + +#pragma argsused +static boolean +USL_Joy2Custom(UserCall call,UserItem far *item) +{ + if (call == uic_SetupCard) + { + if (USL_ConfigJoystick(1)) + { + Controls[0] = ctrl_Joystick2; + USL_CtlDialog("USING JOYSTICK #2","PRESS ANY KEY",nil); + USL_SetOptionsText(); + } + return(true); + } + else + return(false); +} + +static void +USL_CGDraw(char *s1, char *s2, int buttonsDone) +{ + static char *GButtonNames[4] = {"Red","Blue","Yellow","Green"}; + static char *GActionNames[4] = {"Jump","Pogo","Fire","Status"}; + + int i, n; + char *actionstr; + word w, h; + + VWB_Bar(CtlPanelSX+1, CtlPanelSY+16, CtlPanelW-2, 68, BackColor); + px = CtlPanelSX+8; + py = CtlPanelSY+16; + USL_DrawString("Make sure that the button"); + px = CtlPanelSX+8; + py = CtlPanelSY+24; + USL_DrawString("switch is set for 4 buttons"); + + for (i=0; i<4; i++) + { + px = CtlPanelSX+8; + py = i*8 + CtlPanelSY+40; + USL_DrawString(GButtonNames[i]); + USL_DrawString(":"); + actionstr = "?"; + for (n=0;n= 5) + continue; + + n--; + for (i=0; iy = topcard->y + CtlPanelSY + 12; + item->y += (item - loadsavegamei) * 11; + + fontcolor = (item->flags & ui_Selected)? HiliteColor : NohiliteColor; + color = fontcolor ^ BackColor; // Blech! + VWB_Hlin(item->x,item->x + (CtlPanelW - 12),item->y,color); + VWB_Hlin(item->x,item->x + (CtlPanelW - 12),item->y + 9,color); + VWB_Vlin(item->y,item->y + 9,item->x,color); + VWB_Vlin(item->y,item->y + 9,item->x + (CtlPanelW - 12),color); +} + +static void +USL_DoLoadGame(UserItem far *item) +{ + char *filename; + word n, + err; + int file; + SaveGame *game; + + if (!USL_ConfirmComm(uc_Loaded)) + return; + + n = item - loadsavegamei; + game = &Games[n]; + + USL_ShowLoadSave("Loading",game->name); + + err = 0; + filename = USL_GiveSaveName(n); + if ((file = open(filename,O_BINARY | O_RDONLY)) != -1) + { + if (read(file,game,sizeof(*game)) == sizeof(*game)) + { + if (USL_LoadGame) + if (!USL_LoadGame(file)) + USL_HandleError(err = errno); + } + else + USL_HandleError(err = errno); + close(file); + } + else + USL_HandleError(err = errno); + if (err) + { + abortgame = true; + Communication = uc_None; + CtlPanelDone = false; + } + else + loadedgame = true; + game->present = true; + + if (loadedgame) + Paused = true; + + USL_DrawCtlPanel(); +} + +static boolean +USL_LoadCustom(UserCall call,UserItem far *item) +{ + boolean result; + word i; + + result = false; + switch (call) + { + case uic_SetupCard: +#ifdef KEEN + if (getenv("UID")) + USL_CheckSavedGames(); +#endif + for (i = 0;i < MaxSaveGames;i++) + { + if (Games[i].present) + loadsavegamei[i].flags &= ~ui_Disabled; + else + loadsavegamei[i].flags |= ui_Disabled; + } + break; + case uic_DrawIcon: + USL_DrawFileIcon(item); + result = true; + break; + case uic_Draw: + USL_DrawFileIcon(item); + VWB_Bar(item->x + 1,item->y + 2,CtlPanelW - 12 - 2,7,BackColor); + + i = item - loadsavegamei; + if (Games[i].present) + px = item->x + 2; + else + px = item->x + 60; + py = item->y + 2; + USL_DrawString(Games[i].present? Games[i].name : "Empty"); + result = true; + break; + case uic_Hit: + USL_DoLoadGame(item); + result = true; + break; + } + return(result); +} + +static void +USL_DoSaveGame(UserItem far *item) +{ + boolean ok; + char *filename; + word n,err; + int file; + SaveGame *game; + + BottomS1 = "Type name"; + BottomS2 = "Enter accepts"; + USL_DrawCtlPanel(); + + n = item - loadsavegamei; + game = &Games[n]; + fontcolor = HiliteColor; + VWB_Bar(item->x + 1,item->y + 2,CtlPanelW - 12 - 2,7,BackColor); + game->oldtest = &PrintX; + ok = US_LineInput(item->x + 2,item->y + 2, + game->name,game->present? game->name : nil, + true,MaxGameName, + CtlPanelW - 22); + if (!strlen(game->name)) + strcpy(game->name,"Untitled"); + if (ok) + { + USL_ShowLoadSave("Saving",game->name); + + filename = USL_GiveSaveName(n); + err = 0; + file = open(filename,O_CREAT | O_BINARY | O_WRONLY, + S_IREAD | S_IWRITE | S_IFREG); + if (file != -1) + { + if (write(file,game,sizeof(*game)) == sizeof(*game)) + { + if (USL_SaveGame) + ok = USL_SaveGame(file); + if (!ok) + USL_HandleError(err = errno); + } + else + USL_HandleError(err = ((errno == ENOENT)? ENOMEM : errno)); + close(file); + } + else + USL_HandleError(err = ((errno == ENOENT)? ENOMEM : errno)); + if (err) + { + remove(filename); + ok = false; + } + + } + + if (!game->present) + game->present = ok; + + if (ok) + GameIsDirty = false; + USL_SetupCard(); +} + +static boolean +USL_SaveCustom(UserCall call,UserItem far *item) +{ + word i; + + switch (call) + { + case uic_SetupCard: +#ifdef KEEN + if (getenv("UID")) + USL_CheckSavedGames(); +#endif + for (i = 0;i < MaxSaveGames;i++) + loadsavegamei[i].flags &= ~ui_Disabled; + return(false); + case uic_Hit: + USL_DoSaveGame(item); + return(true); +// break; + } + return(USL_LoadCustom(call,item)); +} + +#define PaddleMinX (CtlPanelSX + 4) +#define PaddleMaxX (CtlPanelEX - 15) +#define BallMinX (CtlPanelSX + 4) +#define BallMinY (CtlPanelSY + 12 + 2) +#define BallMaxX (CtlPanelEX - 6) +#define BallMaxY (CtlPanelEY - 13) +#define CPaddleY (BallMinY + 4) +#define KPaddleY (BallMaxY - 2) +void +USL_DrawPongScore(word k,word c) +{ + fontcolor = HiliteColor; + PrintY = py = CtlPanelSY + 4; + px = CtlPanelSX + 6; + VWB_Bar(px,py,42,6,BackColor); + USL_DrawString("KEEN:"); + PrintX = px; + US_PrintUnsigned(k); + px = CtlPanelSX + 108; + VWB_Bar(px,py,50,6,BackColor); + USL_DrawString("COMP:"); + PrintX = px; + US_PrintUnsigned(c); +} + +void +USL_PlayPong(void) +{ + boolean ball,killball,revdir,done,lastscore; + word cycle, + x,y, + kx,cx, + rx, + bx,by, + oldkx,oldcx,oldbx,oldby, + kscore,cscore, + speedup; + int bdx,bdy; + longword balltime,lasttime,waittime; + CursorInfo cursorinfo; + + kx = cx = PaddleMinX + ((PaddleMaxX - PaddleMinX) / 2); + bx = by = bdx = bdy = 0; + oldbx = oldcx = oldkx = PaddleMinX; + oldby = BallMinY; + kscore = cscore = 0; + USL_DrawPongScore(0,0); + cycle = 0; + revdir = false; + killball = true; + done = false; + lastscore = false; + lasttime = TimeCount; + do + { + while ((waittime = TimeCount - lasttime) == 0) + ; + + lasttime = TimeCount; + if (waittime > 4) + waittime = 4; + + while (waittime-- && !done && LastScan != sc_Escape) + { + IN_ReadCursor(&cursorinfo); + if (((cursorinfo.x < 0) || IN_KeyDown(sc_LeftArrow)) && (kx > PaddleMinX)) + kx -= 2; + else if (((cursorinfo.x > 0) || IN_KeyDown(sc_RightArrow)) && (kx < PaddleMaxX)) + kx += 2; + + if (killball) + { + ball = false; + balltime = TickBase; + speedup = 10; + killball = false; + VWB_Bar(oldbx,oldby,5,5,BackColor); + } + + if (ball && (cycle++ % 3)) + { + x = (bx >> 2); + if (!(x & 1)) + x += (US_RndT() & 1); + + if ((cx + 6 < x) && (cx < PaddleMaxX)) + cx += 1; + else if ((cx + 6 > x) && (cx > PaddleMinX)) + cx -= 1; + } + + if (!ball && !--balltime) + { + ball = true; + bdx = 1 - (US_RndT() % 3); + bdy = 3; + if (lastscore) + bdy = -bdy; + bx = (BallMinX + ((BallMaxX - BallMinX) / 2)) << 2; + by = (BallMinY + ((BallMaxY - BallMinY) / 2)) << 2; + } + + if (ball) + { + if + ( + (((bx + bdx) >> 2) > BallMaxX) + || (((bx + bdx) >> 2) < BallMinX) + ) + { + SD_PlaySound(BALLBOUNCESND); + bdx = -bdx; + } + bx += bdx; + + if (((by + bdy) >> 2) > BallMaxY) + { + killball = true; + lastscore = false; + cscore++; + SD_PlaySound(COMPSCOREDSND); + USL_DrawPongScore(kscore,cscore); + if (cscore == 21) + { + USL_CtlDialog("You lost!","Press any key",nil); + done = true; + continue; + } + } + else if (((by + bdy) >> 2) < BallMinY) + { + killball = true; + lastscore = true; + kscore++; + SD_PlaySound(KEENSCOREDSND); + USL_DrawPongScore(kscore,cscore); + if (kscore == 21) + { + USL_CtlDialog("You won!","Press any key",nil); + done = true; + continue; + } + } + by += bdy; + + x = bx >> 2; + y = by >> 2; + if (!killball) + { + if + ( + (bdy < 0) + && ((y >= CPaddleY) && (y < CPaddleY + 3)) + && ((x >= (cx - 5)) && (x < (cx + 11))) + ) + { + rx = cx; + revdir = true; + SD_PlaySound(COMPPADDLESND); + } + else if + ( + (bdy > 0) + && ((y >= (KPaddleY - 3)) && (y < KPaddleY)) + && ((x >= (kx - 5)) && (x < (kx + 11))) + ) + { + if (((bdy >> 2) < 3) && !(--speedup)) + { + bdy++; + speedup = 10; + } + rx = kx; + revdir = true; + SD_PlaySound(KEENPADDLESND); + } + if (revdir) + { + bdy = -bdy; + bdx = ((x + 5 - rx) >> 1) - (1 << 2); + if (!bdx) + bdx--; + revdir = false; + } + } + } + } + + if (ball) + { + VWB_Bar(oldbx,oldby,5,5,BackColor); + oldbx = x; + oldby = y; +#if GRMODE == CGAGR + { + static int ballsprites[4] = {BALLSPR, BALL1PIXELTOTHERIGHTSPR, BALL2PIXELSTOTHERIGHTSPR, BALL3PIXELSTOTHERIGHTSPR}; + VWB_DrawSprite(x,y,ballsprites[x & 3]); + } +#else + VWB_DrawSprite(x,y,(x & 1)? BALL1PIXELTOTHERIGHTSPR : BALLSPR); +#endif + } + VWB_Bar(oldcx-3,CPaddleY,16,3,BackColor); + oldcx = cx; + VWB_DrawSprite(cx,CPaddleY,PADDLESPR); + VWB_Bar(oldkx-3,KPaddleY,16,3,BackColor); + oldkx = kx; + VWB_DrawSprite(kx,KPaddleY,PADDLESPR); + + VW_UpdateScreen(); + } while ((LastScan != sc_Escape) && !done); + IN_ClearKeysDown(); +} + +#pragma argsused +static boolean +USL_PongCustom(UserCall call,struct UserItem far *item) +{ + if (call != uic_SetupCard) + return(false); + + VWB_DrawPic(0,0,CP_MENUSCREENPIC); + VWB_DrawPic(CtlPanelSX + 56,CtlPanelSY,CP_PADDLEWARPIC); + VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,CtlPanelSY + 12,HiliteColor ^ BackColor); + VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,CtlPanelEY - 7,HiliteColor ^ BackColor); + USL_PlayPong(); + + return(true); +} + +// Flag management stuff +static void +USL_ClearFlags(UserItemGroup far *node) +{ + UserItem far *i; + + if (!node->items) + return; + + for (i = node->items;i->type != uii_Bad;i++) + { + i->flags &= ~UISelectFlags; + if (i->child) + USL_ClearFlags((UserItemGroup far *)i->child); + } +} + +static int +USL_FindPushedItem(UserItemGroup far *group) +{ + word i; + UserItem far *item; + + for (item = group->items,i = 0;item->type != uii_Bad;item++,i++) + if (item->flags & ui_Pushed) + return(i); + return(-1); +} + +static void +USL_SelectItem(UserItemGroup far *group,word index,boolean draw) +{ + UserItem far *item; + + if (index != group->cursor) + { + item = &group->items[group->cursor]; + item->flags &= ~ui_Selected; + if (draw) + USL_DrawItem(item); + } + + group->cursor = index; + item = &group->items[group->cursor]; + group->items[group->cursor].flags |= ui_Selected; + if (draw) + USL_DrawItem(item); +} + +static void +USL_PushItem(UserItemGroup far *group,word index,boolean draw) +{ + word i; + UserItem far *item; + + USL_SelectItem(group,index,draw); + for (item = group->items,i = 0;item->type != uii_Bad;item++,i++) + { + if (item->type != uii_RadioButton) + continue; + + if (i == index) + { + item->flags |= ui_Pushed; + if (draw) + USL_DrawItem(item); + } + else if (item->flags & ui_Pushed) + { + item->flags &= ~ui_Pushed; + if (draw) + USL_DrawItem(item); + } + } +} + +static void +USL_NextItem(void) +{ + if (topcard->items[topcard->cursor + 1].type == uii_Bad) + return; + USL_SelectItem(topcard,topcard->cursor + 1,true); +} + +static void +USL_PrevItem(void) +{ + if (!topcard->cursor) + return; + USL_SelectItem(topcard,topcard->cursor - 1,true); +} + +static void +USL_SetupCard(void) +{ + BottomS1 = "Arrows move"; + BottomS2 = "Enter selects"; + BottomS3 = cstackptr? "ESC to back out" : "ESC to quit"; + + USL_SelectItem(topcard,topcard->cursor,false); + USL_DrawCtlPanel(); // Contents? +} + +static void +USL_DownLevel(UserItemGroup far *group) +{ + if (!group) + Quit("USL_DownLevel() - nil card"); + USL_PushCard(group); + if (group->custom && group->custom(uic_SetupCard,nil)) + USL_PopCard(); + USL_SetupCard(); +} + +static void +USL_UpLevel(void) +{ + if (!cstackptr) + { + USL_ConfirmComm(uc_Quit); + return; + } + + if (topcard->items) + topcard->items[topcard->cursor].flags &= ~ui_Selected; + USL_PopCard(); + USL_SetupCard(); +} + +static void +USL_DoItem(void) +{ + // DEBUG - finish this routine + UserItem far *item; + + item = &topcard->items[topcard->cursor]; + if (item->flags & ui_Disabled) + SD_PlaySound(NOWAYSND); + else + { + switch (item->type) + { + case uii_Button: + if (!(topcard->custom && topcard->custom(uic_Hit,item))) + USL_ConfirmComm(item->comm); + break; + case uii_RadioButton: + USL_PushItem(topcard,topcard->cursor,true); + break; + case uii_Folder: + USL_DownLevel(item->child); + break; + } + } +} + +static void +USL_SetControlValues(void) +{ + int sndindex; + + sndindex = SoundMode; + if (sndindex == sdm_AdLib && QuietFX) + sndindex++; + + USL_PushItem(&soundgroup,sndindex,false); + USL_PushItem(&musicgroup,MusicMode,false); + if (!AdLibPresent) + { + soundi[2].flags |= ui_Disabled; // AdLib sound effects + soundi[3].flags |= ui_Disabled; // Quiet AdLib sound effects + musici[1].flags |= ui_Disabled; // AdLib music + } + +#ifdef CAT3D + if (!JoysPresent[0]) + configi[3].flags |= ui_Disabled; + if (!JoysPresent[1]) + configi[4].flags |= ui_Disabled; +#else + if (!JoysPresent[0]) + configi[4].flags |= ui_Disabled; + if (!JoysPresent[1]) + configi[5].flags |= ui_Disabled; + if (!JoysPresent[0] && !JoysPresent[1]) + configi[6].flags |= ui_Disabled; +#endif + + rooti[4].text = ingame? "RETURN TO GAME" : "RETURN TO DEMO"; + if (!ingame) + { + rooti[2].flags |= ui_Disabled; // Save Game + rooti[5].flags |= ui_Disabled; // End Game + } + rootgroup.cursor = ingame? 4 : 0; + USL_SetOptionsText(); + // DEBUG - write the rest of this +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_SetUpCtlPanel() - Sets the states of the UserItems to reflect the +// values of all the appropriate variables +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_SetUpCtlPanel(void) +{ + int i; + + // Cache in all of the stuff for the control panel + CA_UpLevel(); + for (i = CONTROLS_LUMP_START;i <= CONTROLS_LUMP_END;i++) + CA_MarkGrChunk(i); + for (i = PADDLE_LUMP_START;i <= PADDLE_LUMP_END;i++) + CA_MarkGrChunk(i); + CA_MarkGrChunk(STARTFONT+1); // Little font + CA_MarkGrChunk(CP_MENUMASKPICM); // Mask for dialogs + CA_CacheMarks("Control Panel"); + CA_LoadAllSounds(); + + // Do some other setup + fontnumber = 1; + US_SetPrintRoutines(VW_MeasurePropString,VWB_DrawPropString); + fontcolor = F_BLACK; +#ifdef CAT3D + VW_Bar (0,0,320,200,3); // CAT3D patch +#else + VW_ClearVideo(3); +#endif + RF_FixOfs(); + VW_InitDoubleBuffer(); + + Communication = uc_None; + USL_ClearFlags(&rootgroup); + USL_SetControlValues(); + USL_SetupStack(); + USL_SetupCard(); + + if (ingame) + GameIsDirty = true; + + IN_ClearKeysDown(); +} + +static void +USL_HandleComm(UComm comm) +{ + switch (comm) + { + case uc_Loaded: + case uc_Return: + break; + case uc_Abort: + abortgame = true; + break; + case uc_Quit: + QuitToDos = true; + break; + case uc_SEasy: + restartgame = gd_Easy; + break; + case uc_SNormal: + restartgame = gd_Normal; + break; + case uc_SHard: + restartgame = gd_Hard; + break; + + default: + Quit("USL_HandleComm() - unknown"); + break; + } +} + +static void +USL_GetControlValues(void) +{ + int i; + + // DEBUG - write the rest of this + i = USL_FindPushedItem(&soundgroup); + if (i == 3) + { + QuietFX = true; + i--; + } + else + { + QuietFX = false; + } + if (i != SoundMode) + SD_SetSoundMode(i); + + i = USL_FindPushedItem(&musicgroup); + if (i != MusicMode) + SD_SetMusicMode(i); +} + +/////////////////////////////////////////////////////////////////////////// +// +// USL_TearDownCtlPanel() - Given the state of the control panel, sets the +// modes and values as appropriate +// +/////////////////////////////////////////////////////////////////////////// +static void +USL_TearDownCtlPanel(void) +{ + USL_GetControlValues(); + if (Communication) + USL_HandleComm(Communication); + + fontnumber = 0; // Normal font + fontcolor = F_BLACK; + if (restartgame && USL_ResetGame) + USL_ResetGame(); + else if (QuitToDos) + { + if (tedlevel) + TEDDeath(); + else + { + US_CenterWindow(20,3); + fontcolor = F_SECONDCOLOR; + US_PrintCentered("Quitting..."); + fontcolor = F_BLACK; + VW_UpdateScreen(); + Quit(nil); + } + } + + IN_ClearKeysDown(); + SD_WaitSoundDone(); +#ifdef CAT3D + VW_Bar (0,0,320,200,3); // CAT3D patch +#else + VW_ClearVideo(3); +#endif + CA_DownLevel(); + CA_LoadAllSounds(); +} + +/////////////////////////////////////////////////////////////////////////// +// +// US_ControlPanel() - This is the main routine for the control panel +// +/////////////////////////////////////////////////////////////////////////// +#define MoveMin 40 +void +US_ControlPanel(void) +{ +extern void HelpScreens(void); + + boolean resetitem,on; + word i; + int ydelta; + longword flashtime; + UserItem far *item; + CursorInfo cursorinfo; + +#if 0 + // DEBUG!!! + { + USL_SetUpCtlPanel(); + Communication = uc_Loaded; + CtlPanelDone = true; + loadedgame = true; + USL_TearDownCtlPanel(); + return; + } +#endif + + if ((LastScan < sc_F1) || (LastScan > sc_F10)) + IN_ClearKeysDown(); + + USL_SetUpCtlPanel(); + USL_DrawCtlPanel(); + + ydelta = 0; + for (CtlPanelDone = false,resetitem = on = true;!CtlPanelDone;) + { + item = &(topcard->items[topcard->cursor]); + + if (resetitem) + { + flashtime = TimeCount + (TickBase / 2); + resetitem = false; + } + + if (TimeCount >= flashtime) + { + on ^= true; + resetitem = true; + if (!on) + item->flags &= ~ui_Selected; + USL_DrawItemIcon(item); + item->flags |= ui_Selected; + } + + VW_UpdateScreen(); + + if (LastScan) + { + switch (LastScan) + { + case sc_UpArrow: + USL_PrevItem(); + resetitem = true; + break; + case sc_DownArrow: + USL_NextItem(); + resetitem = true; + break; + case sc_Return: + USL_DoItem(); + resetitem = true; + break; + case sc_Escape: + USL_UpLevel(); + resetitem = true; + break; +#ifndef KEEN6 + case sc_F1: + HelpScreens(); + USL_DrawCtlPanel(); + resetitem = true; + break; +#endif + } + + if + ( + (!resetitem) + && ( + (LastScan == KbdDefs[0].button0) + || (LastScan == KbdDefs[0].button1) + ) + ) + { + USL_DoItem(); + resetitem = true; + } + + if (!resetitem) + { + for (item = topcard->items,i = 0;item->type != uii_Bad;item++,i++) + { + if (item->hotkey == LastScan) + { + USL_SelectItem(topcard,i,true); + resetitem = true; + break; + } + } + } + + IN_ClearKeysDown(); + } + else + { + IN_ReadCursor(&cursorinfo); + ydelta += cursorinfo.y; + if (cursorinfo.button0) + { + do + { + IN_ReadCursor(&cursorinfo); + } while (cursorinfo.button0); + USL_DoItem(); + resetitem = true; + } + else if (cursorinfo.button1) + { + do + { + IN_ReadCursor(&cursorinfo); + } while (cursorinfo.button1); + USL_UpLevel(); + resetitem = true; + } + else if (ydelta < -MoveMin) + { + ydelta += MoveMin; + USL_PrevItem(); + resetitem = true; + } + else if (ydelta > MoveMin) + { + ydelta -= MoveMin; + USL_NextItem(); + resetitem = true; + } + } + } + + USL_TearDownCtlPanel(); +} + +#ifdef KEEN6 + +boolean US_ManualCheck(void) +{ + typedef struct { + char far *name; + int shapenum; + int x, y; + } creatureinfo; + + static creatureinfo list[] = { + {"BIP", BIPSHIPRSPR, -2, 0}, + {"BABOBBA", BABOBBAR1SPR, 0, 0}, + {"BLORB", BLORB1SPR, -2, 0}, + {"GIK", GIKWALKR1SPR, -1, 0}, + {"CEILICK", CEILICK1SPR, 0, 0}, + {"BLOOGLET", RBLOOGLETWALKR1SPR, -2, 0}, + {"BLOOGUARD", BLOOGUARDWALKL1SPR, -3, -1}, + {"FLECT", FLECTSTANDSPR, -1, 0}, + {"BOBBA", BOBBAR1SPR, -2, 0}, + {"NOSPIKE", NOSPIKESTANDSPR, -2, 0}, + {"ORBATRIX", ORBATRIXR1SPR, -2, 1}, + {"FLEEX", FLEEXWALKR1SPR, -2, 0} + }; + + boolean correct; + char far *name; + char c; + char *ptr; + unsigned spriteheight, spritewidth; + int x, y; + int editwidth; + creatureinfo info; + char strbuf[16]; + + if (checkpassed) + return true; + + correct = false; + if (listindex == -1) + { + _AH = 0x2C; // get time + geninterrupt(0x21); + x = _CH; // store hours + _AH = 0x2A; // get date + geninterrupt(0x21); + y = _DL; // store day + + listindex = (x + y) % (int)(sizeof(list)/sizeof(creatureinfo)); + } + + CA_UpLevel(); + info = list[listindex]; + name = info.name; + CA_ClearMarks(); + CA_MarkGrChunk(info.shapenum); + CA_CacheMarks(NULL); + + VWB_Bar(0, 0, 320, 200, BackColor); + spritewidth = spritetable[info.shapenum - STARTSPRITES].width; + spriteheight = spritetable[info.shapenum - STARTSPRITES].height; + US_CenterWindow(30, (spriteheight+41)/8 + 1); + PrintY = WindowY + 2; + US_CPrint("What is the name of this creature?"); + + x = WindowX + (WindowW-spritewidth)/2 + info.x*8; + y = WindowY + 15; + if (info.shapenum == CEILICK1SPR) + { + y++; + } + else + { + y += info.y * 8; + } + VWB_DrawSprite(x, y, info.shapenum); + + y = WindowY + WindowH - 16; + editwidth = 100; + x = WindowX + (WindowW - 100) / 2; + VWB_Bar(x, y, editwidth, 14, BLACK); + VWB_Bar(x+1, y+1, editwidth-2, 12, WHITE); + x += 2; + y += 2; + editwidth -= 8; + VW_UpdateScreen(); + + if (US_LineInput(x, y, strbuf, NULL, true, sizeof(strbuf), editwidth)) + { + ptr = strbuf; + correct = true; + while (*name) + { + c = *ptr; + if ((islower(c)? _toupper(c) : c) != *name) + { + correct = false; + } + + ptr++; + name++; + } + if (*ptr) + { + correct = false; + } + + if (!correct) + { + VWB_Bar(0, 0, 320, 200, BackColor); + US_CenterWindow(35, 5); + PrintY += 11; + US_CPrint("Sorry, that's not quite right."); + US_CPrint("Please check your manual and try again."); + VW_UpdateScreen(); + IN_Ack(); + } + } + + VWB_Bar(0, 0, 320, 200, BackColor); + CA_DownLevel(); + checkpassed = correct; + return correct; +} + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/ID_US_A.ASM b/16/keen456/KEEN4-6/ID_US_A.ASM new file mode 100755 index 00000000..15e6f12d --- /dev/null +++ b/16/keen456/KEEN4-6/ID_US_A.ASM @@ -0,0 +1,117 @@ +; Catacomb 3-D Source Code +; Copyright (C) 1993-2014 Flat Rock Software +; +; This program is free software; you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License along +; with this program; if not, write to the Free Software Foundation, Inc., +; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +IDEAL +MODEL MEDIUM,C + +; Assembly portion of the User Mgr. This is just John Carmack's table +; driven pseudo-random number generator, and we put it in the User Mgr +; because we couldn't figure out where it should go + + +;============================================================================ +; +; RANDOM ROUTINES +; +;============================================================================ + + FARDATA + +rndindex dw ? + +rndtable db 0, 8, 109, 220, 222, 241, 149, 107, 75, 248, 254, 140, 16, 66 + db 74, 21, 211, 47, 80, 242, 154, 27, 205, 128, 161, 89, 77, 36 + db 95, 110, 85, 48, 212, 140, 211, 249, 22, 79, 200, 50, 28, 188 + db 52, 140, 202, 120, 68, 145, 62, 70, 184, 190, 91, 197, 152, 224 + db 149, 104, 25, 178, 252, 182, 202, 182, 141, 197, 4, 81, 181, 242 + db 145, 42, 39, 227, 156, 198, 225, 193, 219, 93, 122, 175, 249, 0 + db 175, 143, 70, 239, 46, 246, 163, 53, 163, 109, 168, 135, 2, 235 + db 25, 92, 20, 145, 138, 77, 69, 166, 78, 176, 173, 212, 166, 113 + db 94, 161, 41, 50, 239, 49, 111, 164, 70, 60, 2, 37, 171, 75 + db 136, 156, 11, 56, 42, 146, 138, 229, 73, 146, 77, 61, 98, 196 + db 135, 106, 63, 197, 195, 86, 96, 203, 113, 101, 170, 247, 181, 113 + db 80, 250, 108, 7, 255, 237, 129, 226, 79, 107, 112, 166, 103, 241 + db 24, 223, 239, 120, 198, 58, 60, 82, 128, 3, 184, 66, 143, 224 + db 145, 224, 81, 206, 163, 45, 63, 90, 168, 114, 59, 33, 159, 95 + db 28, 139, 123, 98, 125, 196, 15, 70, 194, 253, 54, 14, 109, 226 + db 71, 17, 161, 93, 186, 87, 244, 138, 20, 52, 123, 251, 26, 36 + db 17, 46, 52, 231, 232, 76, 31, 221, 84, 37, 216, 165, 212, 106 + db 197, 242, 98, 43, 39, 175, 254, 145, 190, 84, 118, 222, 187, 136 + db 120, 163, 236, 249 + + + CODESEG + +LastRnd dw ? + +;================================================= +; +; void US_InitRndT (boolean randomize) +; Init table based RND generator +; if randomize is false, the counter is set to 0 +; +;================================================= + +PROC US_InitRndT randomize:word + uses si,di + public US_InitRndT + + mov ax,SEG rndtable + mov es,ax + mov ax,[randomize] + or ax,ax + jne @@timeit ;if randomize is true, really random + + mov dx,0 ;set to a definite value + jmp @@setit + +@@timeit: + mov ah,2ch + int 21h ;GetSystemTime + and dx,0ffh + +@@setit: + mov [es:rndindex],dx + ret + +ENDP + +;================================================= +; +; int US_RndT (void) +; Return a random # between 0-255 +; Exit : AX = value +; +;================================================= +PROC US_RndT + public US_RndT + + mov ax,SEG rndtable + mov es,ax + mov bx,[es:rndindex] + inc bx + and bx,0ffh + mov [es:rndindex],bx + mov al,[es:rndtable+BX] + xor ah,ah + + ret + +ENDP + +END + diff --git a/16/keen456/KEEN4-6/ID_VW.C b/16/keen456/KEEN4-6/ID_VW.C new file mode 100755 index 00000000..69b54c5c --- /dev/null +++ b/16/keen456/KEEN4-6/ID_VW.C @@ -0,0 +1,1548 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_VW.C + +#include "ID_HEADS.H" + +/* +============================================================================= + + LOCAL CONSTANTS + +============================================================================= +*/ + +#define VIEWWIDTH 40 + +#define PIXTOBLOCK 4 // 16 pixels to an update block + +/* +============================================================================= + + GLOBAL VARIABLES + +============================================================================= +*/ + +cardtype videocard; // set by VW_Startup +grtype grmode; // CGAgr, EGAgr, VGAgr + +unsigned bufferofs; // hidden area to draw to before displaying +unsigned displayofs; // origin of the visable screen +unsigned panx,pany; // panning adjustments inside port in pixels +unsigned pansx,pansy; // panning adjustments inside port in screen + // block limited pixel values (ie 0/8 for ega x) +unsigned panadjust; // panx/pany adjusted by screen resolution + +unsigned screenseg; // normally 0xa000 / 0xb800 +unsigned linewidth; +unsigned ylookup[VIRTUALHEIGHT]; + +unsigned fontnumber; // 0 based font number for drawing + +boolean screenfaded; + +pictabletype _seg *pictable; +pictabletype _seg *picmtable; +spritetabletype _seg *spritetable; + +int bordercolor; +boolean nopan; + +/* +============================================================================= + + LOCAL VARIABLES + +============================================================================= +*/ + +void VWL_MeasureString (char far *string, word *width, word *height, + fontstruct _seg *font); +void VWL_DrawCursor (void); +void VWL_EraseCursor (void); +void VWL_DBSetup (void); +void VWL_UpdateScreenBlocks (void); + + +int bordercolor; +int cursorvisible; +int cursornumber,cursorwidth,cursorheight,cursorx,cursory; +memptr cursorsave; +unsigned cursorspot; + +//=========================================================================== + + +/* +======================= += += VW_Startup += +======================= +*/ + +static char *ParmStrings[] = {"HIDDENCARD","NOPAN",""}; + +void VW_Startup (void) +{ + int i,n; + + asm cld; + + videocard = 0; + + for (i = 1;i < _argc;i++) + { + n = US_CheckParm(_argv[i],ParmStrings); + if (n == 0) + { + videocard = EGAcard; + } + else if (n == 1) + { + nopan = true; + } + } + + if (!videocard) + videocard = VW_VideoID (); + +#if GRMODE == EGAGR + grmode = EGAGR; + if (videocard != EGAcard && videocard != VGAcard) +#ifdef KEEN +Quit ("Improper video card! If you really have an EGA/VGA card that I am not\n" + "detecting, use the -HIDDENCARD command line parameter!"); +#else +Quit ("Improper video card! If you really have an EGA/VGA card that I am not \n" + "detecting, use the -HIDDENCARD command line parameter!"); +#endif + EGAWRITEMODE(0); +#endif + +#if GRMODE == CGAGR + grmode = CGAGR; + if (videocard < CGAcard || videocard > VGAcard) +#ifdef KEEN +Quit ("Improper video card! If you really have a CGA card that I am not\n" + "detecting, use the -HIDDENCARD command line parameter!"); +#else +Quit ("Improper video card! If you really have a CGA card that I am not \n" + "detecting, use the -HIDDENCARD command line parameter!"); +#endif + MM_GetPtr (&(memptr)screenseg,0x10000l); // grab 64k for floating screen +#endif + + cursorvisible = 0; +} + +//=========================================================================== + +/* +======================= += += VW_Shutdown += +======================= +*/ + +void VW_Shutdown (void) +{ + VW_SetScreenMode (TEXTGR); +#if GRMODE == EGAGR + VW_SetLineWidth (80); +#endif +} + +//=========================================================================== + +/* +======================== += += VW_SetScreenMode += Call BIOS to set TEXT / CGAgr / EGAgr / VGAgr += +======================== +*/ + +void VW_SetScreenMode (int grmode) +{ + switch (grmode) + { + case TEXTGR: _AX = 3; + geninterrupt (0x10); +#ifdef CAT3D + screenseg=0xb000; +#endif + break; + case CGAGR: _AX = 4; + geninterrupt (0x10); // screenseg is actually a main mem buffer + break; + case EGAGR: _AX = 0xd; + geninterrupt (0x10); + screenseg=0xa000; + break; +#ifdef VGAGAME + case VGAGR:{ + char extern VGAPAL; // deluxepaint vga pallet .OBJ file + void far *vgapal = &VGAPAL; + SetCool256 (); // custom 256 color mode + screenseg=0xa000; + _ES = FP_SEG(vgapal); + _DX = FP_OFF(vgapal); + _BX = 0; + _CX = 0x100; + _AX = 0x1012; + geninterrupt(0x10); // set the deluxepaint pallet + + break; +#endif + } + VW_SetLineWidth(SCREENWIDTH); +} + +/* +============================================================================= + + SCREEN FADES + +============================================================================= +*/ + +char colors[7][17]= +{{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, + {0,0,0,0,0,0,0,0,0,1,2,3,4,5,6,7,0}, + {0,0,0,0,0,0,0,0,0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f,0}, + {0,1,2,3,4,5,6,7,0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f,0}, + {0,1,2,3,4,5,6,7,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0}, + {0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f}}; + + +void VW_ColorBorder (int color) +{ + _AH=0x10; + _AL=1; + _BH=color; + geninterrupt (0x10); + bordercolor = color; +} + +void VW_SetPalette(byte *palette) +{ + byte p; + word i; + + for (i = 0;i < 15;i++) + { + p = palette[i]; + colors[0][i] = 0; + colors[1][i] = (p > 0x10)? (p & 0x0f) : 0; + colors[2][i] = (p > 0x10)? p : 0; + colors[3][i] = p; + colors[4][i] = (p > 0x10)? 0x1f : p; + colors[5][i] = 0x1f; + } +} + +void VW_SetDefaultColors(void) +{ +#if GRMODE == EGAGR + colors[3][16] = bordercolor; + _ES=FP_SEG(&colors[3]); + _DX=FP_OFF(&colors[3]); + _AX=0x1002; + geninterrupt(0x10); + screenfaded = false; +#endif +} + + +void VW_FadeOut(void) +{ +#if GRMODE == EGAGR + int i; + + for (i=3;i>=0;i--) + { + colors[i][16] = bordercolor; + _ES=FP_SEG(&colors[i]); + _DX=FP_OFF(&colors[i]); + _AX=0x1002; + geninterrupt(0x10); + VW_WaitVBL(6); + } + screenfaded = true; +#endif +} + + +void VW_FadeIn(void) +{ +#if GRMODE == EGAGR + int i; + + for (i=0;i<4;i++) + { + colors[i][16] = bordercolor; + _ES=FP_SEG(&colors[i]); + _DX=FP_OFF(&colors[i]); + _AX=0x1002; + geninterrupt(0x10); + VW_WaitVBL(6); + } + screenfaded = false; +#endif +} + +void VW_FadeUp(void) +{ +#if GRMODE == EGAGR + int i; + + for (i=3;i<6;i++) + { + colors[i][16] = bordercolor; + _ES=FP_SEG(&colors[i]); + _DX=FP_OFF(&colors[i]); + _AX=0x1002; + geninterrupt(0x10); + VW_WaitVBL(6); + } + screenfaded = true; +#endif +} + +void VW_FadeDown(void) +{ +#if GRMODE == EGAGR + int i; + + for (i=5;i>2;i--) + { + colors[i][16] = bordercolor; + _ES=FP_SEG(&colors[i]); + _DX=FP_OFF(&colors[i]); + _AX=0x1002; + geninterrupt(0x10); + VW_WaitVBL(6); + } + screenfaded = false; +#endif +} + + +/* +======================== += += VW_SetAtrReg += += Sets an attribute (pallete / border) register += Does NOT vsync! += +======================== +*/ + +void VW_SetAtrReg (int reg, int value) +{ + asm cli + asm mov dx,STATUS_REGISTER_1 + asm in al,dx + asm mov dx,ATR_INDEX + + asm mov al,BYTE PTR [reg] + asm out dx,al + asm mov al,BYTE PTR [value] + asm out dx,al + asm mov dx,0x3da + asm in al,dx + asm mov dx,ATR_INDEX + asm mov al,0x20 + asm out dx,al + asm sti +} + + + +//=========================================================================== + +/* +==================== += += VW_SetLineWidth += += Must be an even number of bytes += +==================== +*/ + +void VW_SetLineWidth (int width) +{ + int i,offset; + +#if GRMODE == EGAGR +// +// set wide virtual screen +// +asm mov dx,CRTC_INDEX +asm mov al,CRTC_OFFSET +asm mov ah,[BYTE PTR width] +asm shr ah,1 +asm out dx,ax +#endif + +// +// set up lookup tables +// + linewidth = width; + + offset = 0; + + for (i=0;i0 + +/* +==================== += += VW_DrawPic += += X in bytes, y in pixels, chunknum is the #defined picnum += +==================== +*/ + +void VW_DrawPic(unsigned x, unsigned y, unsigned chunknum) +{ + int picnum = chunknum - STARTPICS; + memptr source; + unsigned dest,width,height; + + source = grsegs[chunknum]; + dest = ylookup[y]+x+bufferofs; + width = pictable[picnum].width; + height = pictable[picnum].height; + + VW_MemToScreen(source,dest,width,height); +} + + +#endif + +#if NUMPICM>0 + +/* +==================== += += VW_DrawMPic += += X in bytes, y in pixels, chunknum is the #defined picnum += +==================== +*/ + +void VW_DrawMPic(unsigned x, unsigned y, unsigned chunknum) +{ + int picnum = chunknum - STARTPICM; + memptr source; + unsigned dest,width,height; + + source = grsegs[chunknum]; + dest = ylookup[y]+x+bufferofs; + width = picmtable[picnum].width; + height = picmtable[picnum].height; + + VW_MaskBlock(source,0,dest,width,height,width*height); +} + +void VW_ClipDrawMPic(unsigned x, int y, unsigned chunknum) +{ + int picnum = chunknum - STARTPICM; + memptr source; + unsigned dest,width,ofs,plane; + int height; + + source = grsegs[chunknum]; + width = picmtable[picnum].width; + height = picmtable[picnum].height; + plane = width*height; + + ofs = 0; + if (y<0) + { + ofs= -y*width; + height+=y; + y=0; + } + else if (y+height>216) + { + height-=(y-216); + } + dest = ylookup[y]+x+bufferofs; + if (height<1) + return; + + VW_MaskBlock(source,ofs,dest,width,height,plane); +} + + +#endif + +//=========================================================================== + +#if NUMSPRITES>0 + +/* +==================== += += VW_DrawSprite += += X and Y in pixels, it will match the closest shift possible += += To do: += Add vertical clipping! += Make the shifts act as center points, rather than break points += +==================== +*/ + +void VW_DrawSprite(int x, int y, unsigned chunknum) +{ + spritetabletype far *spr; + spritetype _seg *block; + unsigned dest,shift; + + spr = &spritetable[chunknum-STARTSPRITES]; + block = (spritetype _seg *)grsegs[chunknum]; + + y+=spr->orgy>>G_P_SHIFT; + x+=spr->orgx>>G_P_SHIFT; + +#if GRMODE == EGAGR + shift = (x&7)/2; +#endif +#if GRMODE == CGAGR + shift = 0; +#endif + + dest = bufferofs + ylookup[y]; + if (x>=0) + dest += x/SCREENXDIV; + else + dest += (x+1)/SCREENXDIV; + + VW_MaskBlock (block,block->sourceoffset[shift],dest, + block->width[shift],spr->height,block->planesize[shift]); +} + +#endif + + +/* +================== += += VW_Hlin += +================== +*/ + + +#if GRMODE == EGAGR + +unsigned char leftmask[8] = {0xff,0x7f,0x3f,0x1f,0xf,7,3,1}; +unsigned char rightmask[8] = {0x80,0xc0,0xe0,0xf0,0xf8,0xfc,0xfe,0xff}; + +void VW_Hlin(unsigned xl, unsigned xh, unsigned y, unsigned color) +{ + unsigned dest,xlb,xhb,maskleft,maskright,mid; + + xlb=xl/8; + xhb=xh/8; + + EGAWRITEMODE(2); + EGAMAPMASK(15); + + maskleft = leftmask[xl&7]; + maskright = rightmask[xh&7]; + + mid = xhb-xlb-1; + dest = bufferofs+ylookup[y]+xlb; + + if (xlb==xhb) + { + // + // entire line is in one byte + // + + maskleft&=maskright; + + asm mov es,[screenseg] + asm mov di,[dest] + + asm mov dx,GC_INDEX + asm mov al,GC_BITMASK + asm mov ah,[BYTE PTR maskleft] + asm out dx,ax // mask off pixels + + asm mov al,[BYTE PTR color] + asm xchg al,[es:di] // load latches and write pixels + + goto done; + } + +asm mov es,[screenseg] +asm mov di,[dest] +asm mov dx,GC_INDEX +asm mov bh,[BYTE PTR color] + +// +// draw left side +// +asm mov al,GC_BITMASK +asm mov ah,[BYTE PTR maskleft] +asm out dx,ax // mask off pixels + +asm mov al,bh +asm mov bl,[es:di] // load latches +asm stosb + +// +// draw middle +// +asm mov ax,GC_BITMASK + 255*256 +asm out dx,ax // no masking + +asm mov al,bh +asm mov cx,[mid] +asm rep stosb + +// +// draw right side +// +asm mov al,GC_BITMASK +asm mov ah,[BYTE PTR maskright] +asm out dx,ax // mask off pixels + +asm xchg bh,[es:di] // load latches and write pixels + +done: + EGABITMASK(255); + EGAWRITEMODE(0); +} +#endif + + +#if GRMODE == CGAGR + +unsigned char pixmask[4] = {0xc0,0x30,0x0c,0x03}; +unsigned char leftmask[4] = {0xff,0x3f,0x0f,0x03}; +unsigned char rightmask[4] = {0xc0,0xf0,0xfc,0xff}; +unsigned char colorbyte[4] = {0,0x55,0xaa,0xff}; + +// +// could be optimized for rep stosw +// +void VW_Hlin(unsigned xl, unsigned xh, unsigned y, unsigned color) +{ + unsigned dest,xlb,xhb,mid; + byte maskleft,maskright; + + color = colorbyte[color]; // expand 2 color bits to 8 + + xlb=xl/4; + xhb=xh/4; + + maskleft = leftmask[xl&3]; + maskright = rightmask[xh&3]; + + mid = xhb-xlb-1; + dest = bufferofs+ylookup[y]+xlb; +asm mov es,[screenseg] + + if (xlb==xhb) + { + // + // entire line is in one byte + // + maskleft&=maskright; + + asm mov ah,[maskleft] + asm mov bl,[BYTE PTR color] + asm and bl,[maskleft] + asm not ah + + asm mov di,[dest] + + asm mov al,[es:di] + asm and al,ah // mask out pixels + asm or al,bl // or in color + asm mov [es:di],al + return; + } + +asm mov di,[dest] +asm mov bh,[BYTE PTR color] + +// +// draw left side +// +asm mov ah,[maskleft] +asm mov bl,bh +asm and bl,[maskleft] +asm not ah +asm mov al,[es:di] +asm and al,ah // mask out pixels +asm or al,bl // or in color +asm stosb + +// +// draw middle +// +asm mov al,bh +asm mov cx,[mid] +asm rep stosb + +// +// draw right side +// +asm mov ah,[maskright] +asm mov bl,bh +asm and bl,[maskright] +asm not ah +asm mov al,[es:di] +asm and al,ah // mask out pixels +asm or al,bl // or in color +asm stosb +} +#endif + + +/* +================== += += VW_Bar += += Pixel addressable block fill routine += +================== +*/ + +#if GRMODE == CGAGR + +void VW_Bar (unsigned x, unsigned y, unsigned width, unsigned height, + unsigned color) +{ + unsigned xh = x+width-1; + + while (height--) + VW_Hlin (x,xh,y++,color); +} + +#endif + + +#if GRMODE == EGAGR + +void VW_Bar (unsigned x, unsigned y, unsigned width, unsigned height, + unsigned color) +{ + unsigned dest,xh,xlb,xhb,maskleft,maskright,mid; + + xh = x+width-1; + xlb=x/8; + xhb=xh/8; + + EGAWRITEMODE(2); + EGAMAPMASK(15); + + maskleft = leftmask[x&7]; + maskright = rightmask[xh&7]; + + mid = xhb-xlb-1; + dest = bufferofs+ylookup[y]+xlb; + + if (xlb==xhb) + { + // + // entire line is in one byte + // + + maskleft&=maskright; + + asm mov es,[screenseg] + asm mov di,[dest] + + asm mov dx,GC_INDEX + asm mov al,GC_BITMASK + asm mov ah,[BYTE PTR maskleft] + asm out dx,ax // mask off pixels + + asm mov ah,[BYTE PTR color] + asm mov dx,[linewidth] +yloop1: + asm mov al,ah + asm xchg al,[es:di] // load latches and write pixels + asm add di,dx // down to next line + asm dec [height] + asm jnz yloop1 + + goto done; + } + +asm mov es,[screenseg] +asm mov di,[dest] +asm mov bh,[BYTE PTR color] +asm mov dx,GC_INDEX +asm mov si,[linewidth] +asm sub si,[mid] // add to di at end of line to get to next scan +asm dec si + +// +// draw left side +// +yloop2: +asm mov al,GC_BITMASK +asm mov ah,[BYTE PTR maskleft] +asm out dx,ax // mask off pixels + +asm mov al,bh +asm mov bl,[es:di] // load latches +asm stosb + +// +// draw middle +// +asm mov ax,GC_BITMASK + 255*256 +asm out dx,ax // no masking + +asm mov al,bh +asm mov cx,[mid] +asm rep stosb + +// +// draw right side +// +asm mov al,GC_BITMASK +asm mov ah,[BYTE PTR maskright] +asm out dx,ax // mask off pixels + +asm mov al,bh +asm xchg al,[es:di] // load latches and write pixels + +asm add di,si // move to start of next line +asm dec [height] +asm jnz yloop2 + +done: + EGABITMASK(255); + EGAWRITEMODE(0); +} + +#endif + +//========================================================================== + +/* +================== += += VW_MeasureString += +================== +*/ + +#if NUMFONT+NUMFONTM>0 +void +VWL_MeasureString (char far *string, word *width, word *height, fontstruct _seg *font) +{ + *height = font->height; + for (*width = 0;*string;string++) + *width += font->width[*((byte far *)string)]; // proportional width +} + +void VW_MeasurePropString (char far *string, word *width, word *height) +{ + VWL_MeasureString(string,width,height,(fontstruct _seg *)grsegs[STARTFONT+fontnumber]); +} + +void VW_MeasureMPropString (char far *string, word *width, word *height) +{ + VWL_MeasureString(string,width,height,(fontstruct _seg *)grsegs[STARTFONTM+fontnumber]); +} + + +#endif + + +/* +============================================================================= + + CGA stuff + +============================================================================= +*/ + +#if GRMODE == CGAGR + +#define CGACRTCWIDTH 40 + +/* +========================== += += VW_CGAFullUpdate += +========================== +*/ + +void VW_CGAFullUpdate (void) +{ + byte *update; + boolean halftile; + unsigned x,y,middlerows,middlecollumns; + + displayofs = bufferofs+panadjust; + +asm mov ax,0xb800 +asm mov es,ax + +asm mov si,[displayofs] +asm xor di,di + +asm mov bx,100 // pairs of scan lines to copy +asm mov dx,[linewidth] +asm sub dx,80 + +asm mov ds,[screenseg] +asm test si,1 +asm jz evenblock + +// +// odd source +// +asm mov ax,39 // words accross screen +copytwolineso: +asm movsb +asm mov cx,ax +asm rep movsw +asm movsb +asm add si,dx +asm add di,0x2000-80 // go to the interlaced bank +asm movsb +asm mov cx,ax +asm rep movsw +asm movsb +asm add si,dx +asm sub di,0x2000 // go to the non interlaced bank + +asm dec bx +asm jnz copytwolineso +asm jmp blitdone + +// +// even source +// +evenblock: +asm mov ax,40 // words accross screen +copytwolines: +asm mov cx,ax +asm rep movsw +asm add si,dx +asm add di,0x2000-80 // go to the interlaced bank +asm mov cx,ax +asm rep movsw +asm add si,dx +asm sub di,0x2000 // go to the non interlaced bank + +asm dec bx +asm jnz copytwolines + +blitdone: +asm mov ax,ss +asm mov ds,ax +asm mov es,ax + +asm xor ax,ax // clear out the update matrix +asm mov cx,UPDATEWIDE*UPDATEHIGH/2 + +asm mov di,[baseupdateptr] +asm rep stosw + + updateptr = baseupdateptr; + *(unsigned *)(updateptr + UPDATEWIDE*PORTTILESHIGH) = UPDATETERMINATE; +} + + +#endif + +/* +============================================================================= + + CURSOR ROUTINES + +These only work in the context of the double buffered update routines + +============================================================================= +*/ + +/* +==================== += += VWL_DrawCursor += += Background saves, then draws the cursor at cursorspot += +==================== +*/ + +void VWL_DrawCursor (void) +{ + cursorspot = bufferofs + ylookup[cursory+pansy]+(cursorx+pansx)/SCREENXDIV; + VW_ScreenToMem(cursorspot,cursorsave,cursorwidth,cursorheight); + VWB_DrawSprite(cursorx,cursory,cursornumber); +} + + +//========================================================================== + + +/* +==================== += += VWL_EraseCursor += +==================== +*/ + +void VWL_EraseCursor (void) +{ + VW_MemToScreen(cursorsave,cursorspot,cursorwidth,cursorheight); + VW_MarkUpdateBlock ((cursorx+pansx)&SCREENXMASK,cursory+pansy, + ( (cursorx+pansx)&SCREENXMASK)+cursorwidth*SCREENXDIV-1, + cursory+pansy+cursorheight-1); +} + + +//========================================================================== + + +/* +==================== += += VW_ShowCursor += +==================== +*/ + +void VW_ShowCursor (void) +{ + cursorvisible++; +} + + +//========================================================================== + +/* +==================== += += VW_HideCursor += +==================== +*/ + +void VW_HideCursor (void) +{ + cursorvisible--; +} + +//========================================================================== + +/* +==================== += += VW_MoveCursor += +==================== +*/ +#define MAXCURSORX (319-24) +#define MAXCURSORY (199-24) + +void VW_MoveCursor (int x, int y) +{ +#ifdef CAT3D + if (x>MAXCURSORX) + x=MAXCURSORX; + if (y>MAXCURSORY) + y=MAXCURSORY; // catacombs hack to keep cursor on screen +#endif + + cursorx = x; + cursory = y; +} + +//========================================================================== + +/* +==================== += += VW_SetCursor += += Load in a sprite to be used as a cursor, and allocate background save space += +==================== +*/ + +void VW_SetCursor (int spritenum) +{ + VW_FreeCursor (); + + cursornumber = spritenum; + + CA_CacheGrChunk (spritenum); + MM_SetLock (&grsegs[spritenum],true); + + cursorwidth = spritetable[spritenum-STARTSPRITES].width+1; + cursorheight = spritetable[spritenum-STARTSPRITES].height; + + MM_GetPtr (&cursorsave,cursorwidth*cursorheight*5); + MM_SetLock (&cursorsave,true); +} + + +/* +==================== += += VW_FreeCursor += += Frees the memory used by the cursor and its background save += +==================== +*/ + +void VW_FreeCursor (void) +{ + if (cursornumber) + { + MM_SetLock (&grsegs[cursornumber],false); + MM_SetPurge (&grsegs[cursornumber],3); + MM_SetLock (&cursorsave,false); + MM_FreePtr (&cursorsave); + cursornumber = 0; + } +} + + +/* +============================================================================= + + Double buffer management routines + +============================================================================= +*/ + +/* +====================== += += VW_InitDoubleBuffer += +====================== +*/ + +void VW_InitDoubleBuffer (void) +{ +#if GRMODE == EGAGR + VW_SetScreen (displayofs+panadjust,0); // no pel pan +#endif +} + + +/* +====================== += += VW_FixRefreshBuffer += += Copies the view page to the buffer page on page flipped refreshes to += avoid a one frame shear around pop up windows += +====================== +*/ + +void VW_FixRefreshBuffer (void) +{ +#if GRMODE == EGAGR + VW_ScreenToScreen (displayofs,bufferofs,PORTTILESWIDE*4*CHARWIDTH, + (PORTTILESHIGH-1)*16); +#endif +} + + +/* +====================== += += VW_QuitDoubleBuffer += +====================== +*/ + +void VW_QuitDoubleBuffer (void) +{ +} + + +/* +======================= += += VW_MarkUpdateBlock += += Takes a pixel bounded block and marks the tiles in bufferblocks += Returns 0 if the entire block is off the buffer screen += +======================= +*/ + +int VW_MarkUpdateBlock (int x1, int y1, int x2, int y2) +{ + int x,y,xt1,yt1,xt2,yt2,nextline; + byte *mark; + + xt1 = x1>>PIXTOBLOCK; + yt1 = y1>>PIXTOBLOCK; + + xt2 = x2>>PIXTOBLOCK; + yt2 = y2>>PIXTOBLOCK; + + if (xt1<0) + xt1=0; + else if (xt1>=UPDATEWIDE-1) + return 0; + + if (yt1<0) + yt1=0; + else if (yt1>UPDATEHIGH) + return 0; + + if (xt2<0) + return 0; + else if (xt2>=UPDATEWIDE-1) + xt2 = UPDATEWIDE-2; + + if (yt2<0) + return 0; + else if (yt2>=UPDATEHIGH) + yt2 = UPDATEHIGH-1; + + mark = updateptr + uwidthtable[yt1] + xt1; + nextline = UPDATEWIDE - (xt2-xt1) - 1; + + for (y=yt1;y<=yt2;y++) + { + for (x=xt1;x<=xt2;x++) + *mark++ = 1; // this tile will need to be updated + + mark += nextline; + } + + return 1; +} + + +/* +=========================== += += VW_UpdateScreen += += Updates any changed areas of the double buffer and displays the cursor += +=========================== +*/ + +void VW_UpdateScreen (void) +{ + if (cursorvisible>0) + VWL_DrawCursor(); + +#if GRMODE == EGAGR + VWL_UpdateScreenBlocks(); +#endif +#if GRMODE == CGAGR + VW_CGAFullUpdate(); +#endif + + if (cursorvisible>0) + VWL_EraseCursor(); +} + + + +void VWB_DrawTile8 (int x, int y, int tile) +{ + x+=pansx; + y+=pansy; + if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+7,y+7)) + VW_DrawTile8 (x/SCREENXDIV,y,tile); +} + +void VWB_DrawTile8M (int x, int y, int tile) +{ + int xb; + + x+=pansx; + y+=pansy; + xb = x/SCREENXDIV; // use intermediate because VW_DT8M is macro + if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+7,y+7)) + VW_DrawTile8M (xb,y,tile); +} + +void VWB_DrawTile16 (int x, int y, int tile) +{ + x+=pansx; + y+=pansy; + if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+15,y+15)) + VW_DrawTile16 (x/SCREENXDIV,y,tile); +} + +void VWB_DrawTile16M (int x, int y, int tile) +{ + int xb; + + x+=pansx; + y+=pansy; + xb = x/SCREENXDIV; // use intermediate because VW_DT16M is macro + if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+15,y+15)) + VW_DrawTile16M (xb,y,tile); +} + +#if NUMPICS +void VWB_DrawPic (int x, int y, int chunknum) +{ +// mostly copied from drawpic + int picnum = chunknum - STARTPICS; + memptr source; + unsigned dest,width,height; + + x+=pansx; + y+=pansy; + x/= SCREENXDIV; + + source = grsegs[chunknum]; + dest = ylookup[y]+x+bufferofs; + width = pictable[picnum].width; + height = pictable[picnum].height; + + if (VW_MarkUpdateBlock (x*SCREENXDIV,y,(x+width)*SCREENXDIV-1,y+height-1)) + VW_MemToScreen(source,dest,width,height); +} +#endif + +#if NUMPICM>0 +void VWB_DrawMPic(int x, int y, int chunknum) +{ +// mostly copied from drawmpic + int picnum = chunknum - STARTPICM; + memptr source; + unsigned dest,width,height; + + x+=pansx; + y+=pansy; + x/=SCREENXDIV; + + source = grsegs[chunknum]; + dest = ylookup[y]+x+bufferofs; + width = picmtable[picnum].width; + height = picmtable[picnum].height; + + if (VW_MarkUpdateBlock (x*SCREENXDIV,y,(x+width)*SCREENXDIV-1,y+height-1)) + VW_MaskBlock(source,0,dest,width,height,width*height); +} +#endif + + +void VWB_Bar (int x, int y, int width, int height, int color) +{ + x+=pansx; + y+=pansy; + if (VW_MarkUpdateBlock (x,y,x+width,y+height-1) ) + VW_Bar (x,y,width,height,color); +} + + +#if NUMFONT +void VWB_DrawPropString (char far *string) +{ + int x,y; + x = px+pansx; + y = py+pansy; + VW_DrawPropString (string); + VW_MarkUpdateBlock(x,y,x+bufferwidth*8-1,y+bufferheight-1); +} +#endif + + +#if NUMFONTM +void VWB_DrawMPropString (char far *string) +{ + int x,y; + x = px+pansx; + y = py+pansy; + VW_DrawMPropString (string); + VW_MarkUpdateBlock(x,y,x+bufferwidth*8-1,y+bufferheight-1); +} +#endif + +#if NUMSPRITES +void VWB_DrawSprite(int x, int y, int chunknum) +{ + spritetabletype far *spr; + spritetype _seg *block; + unsigned dest,shift,width,height; + + x+=pansx; + y+=pansy; + + spr = &spritetable[chunknum-STARTSPRITES]; + block = (spritetype _seg *)grsegs[chunknum]; + + y+=spr->orgy>>G_P_SHIFT; + x+=spr->orgx>>G_P_SHIFT; + + +#if GRMODE == EGAGR + shift = (x&7)/2; +#endif +#if GRMODE == CGAGR + shift = 0; +#endif + + dest = bufferofs + ylookup[y]; + if (x>=0) + dest += x/SCREENXDIV; + else + dest += (x+1)/SCREENXDIV; + + width = block->width[shift]; + height = spr->height; + + if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+width*SCREENXDIV-1 + ,y+height-1)) + VW_MaskBlock (block,block->sourceoffset[shift],dest, + width,height,block->planesize[shift]); +} +#endif + +void VWB_Plot (int x, int y, int color) +{ + x+=pansx; + y+=pansy; + if (VW_MarkUpdateBlock (x,y,x,y)) + VW_Plot(x,y,color); +} + +void VWB_Hlin (int x1, int x2, int y, int color) +{ + x1+=pansx; + x2+=pansx; + y+=pansy; + if (VW_MarkUpdateBlock (x1,y,x2,y)) + VW_Hlin(x1,x2,y,color); +} + +void VWB_Vlin (int y1, int y2, int x, int color) +{ + x+=pansx; + y1+=pansy; + y2+=pansy; + if (VW_MarkUpdateBlock (x,y1,x,y2)) + VW_Vlin(y1,y2,x,color); +} + + +//=========================================================================== diff --git a/16/keen456/KEEN4-6/ID_VW.H b/16/keen456/KEEN4-6/ID_VW.H new file mode 100755 index 00000000..65e98679 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_VW.H @@ -0,0 +1,381 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_VW.H + +#ifndef __TYPES__ +#include "ID_TYPES.H" +#endif + +#ifndef __ID_MM__ +#include "ID_MM.H" +#endif + +#ifndef __ID_GLOB__ +#include "ID_GLOB.H" +#endif + +#define __ID_VW__ + +//=========================================================================== + +#define G_P_SHIFT 4 // global >> ?? = pixels + +#if GRMODE == EGAGR +#ifdef CAT3D +#define SCREENWIDTH 40 +#else +#define SCREENWIDTH 64 +#endif +#define CHARWIDTH 1 +#define TILEWIDTH 2 +#define GRPLANES 4 +#define BYTEPIXELS 8 +#endif + +#if GRMODE == CGAGR +#define SCREENWIDTH 128 +#define CHARWIDTH 2 +#define TILEWIDTH 4 +#define GRPLANES 1 +#define BYTEPIXELS 4 +#endif + +#define VIRTUALHEIGHT 300 +#define VIRTUALWIDTH 512 + + +#if GRMODE == CGAGR + +#define MAXSHIFTS 1 + +#define WHITE 3 // graphics mode independant colors +#define BLACK 0 +#define FIRSTCOLOR 1 +#define SECONDCOLOR 2 +#define F_WHITE 0 // for XOR font drawing +#define F_BLACK 3 +#define F_FIRSTCOLOR 2 +#define F_SECONDCOLOR 1 + +#endif + +#if GRMODE == EGAGR + +#define MAXSHIFTS 4 + +#define WHITE 15 // graphics mode independant colors +#define BLACK 0 +#define FIRSTCOLOR 1 +#define SECONDCOLOR 12 +#define F_WHITE 0 // for XOR font drawing +#define F_BLACK 15 +#define F_FIRSTCOLOR 14 +#define F_SECONDCOLOR 3 + +#endif + +#if GRMODE == EGAGR +#define SCREENXMASK (~7) +#define SCREENXPLUS (7) +#define SCREENXDIV (8) +#endif + +#if GRMODE == CGAGR +#define SCREENXMASK (~3) +#define SCREENXDIV (4) +#endif + +//=========================================================================== + + +#define SC_INDEX 0x3C4 +#define SC_RESET 0 +#define SC_CLOCK 1 +#define SC_MAPMASK 2 +#define SC_CHARMAP 3 +#define SC_MEMMODE 4 + +#define CRTC_INDEX 0x3D4 +#define CRTC_H_TOTAL 0 +#define CRTC_H_DISPEND 1 +#define CRTC_H_BLANK 2 +#define CRTC_H_ENDBLANK 3 +#define CRTC_H_RETRACE 4 +#define CRTC_H_ENDRETRACE 5 +#define CRTC_V_TOTAL 6 +#define CRTC_OVERFLOW 7 +#define CRTC_ROWSCAN 8 +#define CRTC_MAXSCANLINE 9 +#define CRTC_CURSORSTART 10 +#define CRTC_CURSOREND 11 +#define CRTC_STARTHIGH 12 +#define CRTC_STARTLOW 13 +#define CRTC_CURSORHIGH 14 +#define CRTC_CURSORLOW 15 +#define CRTC_V_RETRACE 16 +#define CRTC_V_ENDRETRACE 17 +#define CRTC_V_DISPEND 18 +#define CRTC_OFFSET 19 +#define CRTC_UNDERLINE 20 +#define CRTC_V_BLANK 21 +#define CRTC_V_ENDBLANK 22 +#define CRTC_MODE 23 +#define CRTC_LINECOMPARE 24 + + +#define GC_INDEX 0x3CE +#define GC_SETRESET 0 +#define GC_ENABLESETRESET 1 +#define GC_COLORCOMPARE 2 +#define GC_DATAROTATE 3 +#define GC_READMAP 4 +#define GC_MODE 5 +#define GC_MISCELLANEOUS 6 +#define GC_COLORDONTCARE 7 +#define GC_BITMASK 8 + +#define ATR_INDEX 0x3c0 +#define ATR_MODE 16 +#define ATR_OVERSCAN 17 +#define ATR_COLORPLANEENABLE 18 +#define ATR_PELPAN 19 +#define ATR_COLORSELECT 20 + +#define STATUS_REGISTER_1 0x3da + +//=========================================================================== + +typedef enum {NOcard,MDAcard,CGAcard,EGAcard,MCGAcard,VGAcard, + HGCcard=0x80,HGCPcard,HICcard} cardtype; + +typedef struct +{ + int width, + height, + orgx,orgy, + xl,yl,xh,yh, + shifts; +} spritetabletype; + +typedef struct +{ + unsigned sourceoffset[MAXSHIFTS]; + unsigned planesize[MAXSHIFTS]; + unsigned width[MAXSHIFTS]; + byte data[]; +} spritetype; // the memptr for each sprite points to this + +typedef struct +{ + int width,height; +} pictabletype; + + +typedef struct +{ + int height; + int location[256]; + char width[256]; +} fontstruct; + + +typedef enum {CGAgr,EGAgr,VGAgr} grtype; + +//=========================================================================== + +extern cardtype videocard; // set by VW_Startup +extern grtype grmode; // CGAgr, EGAgr, VGAgr + +extern unsigned bufferofs; // hidden port to draw to before displaying +extern unsigned displayofs; // origin of port on visable screen +extern unsigned panx,pany; // panning adjustments inside port in pixels +extern unsigned pansx,pansy; +extern unsigned panadjust; // panx/pany adjusted by screen resolution + +extern unsigned screenseg; // normally 0xa000 or buffer segment + +extern unsigned linewidth; +extern unsigned ylookup[VIRTUALHEIGHT]; + +extern boolean screenfaded; +extern char colors[7][17]; // pallets for fades + +extern pictabletype _seg *pictable; +extern pictabletype _seg *picmtable; +extern spritetabletype _seg *spritetable; + +extern unsigned fontnumber; // 0 based font number for drawing +extern int px,py; +extern byte pdrawmode,fontcolor; + +extern int bordercolor; +extern boolean nopan; + +// +// asm globals +// + +extern unsigned *shifttabletable[8]; +extern unsigned bufferwidth,bufferheight,screenspot; // used by font drawing stuff + + + +//=========================================================================== + + +void VW_Startup (void); +void VW_Shutdown (void); + +cardtype VW_VideoID (void); + +// +// EGA hardware routines +// + +#define EGAWRITEMODE(x) asm{cli;mov dx,GC_INDEX;mov ax,GC_MODE+256*x;out dx,ax;sti;} +#define EGABITMASK(x) asm{cli;mov dx,GC_INDEX;mov ax,GC_BITMASK+256*x;out dx,ax;sti;} +#define EGAMAPMASK(x) asm{cli;mov dx,SC_INDEX;mov ax,SC_MAPMASK+x*256;out dx,ax;sti;} +#define EGAREADMAP(x) asm{cli;mov dx,GC_INDEX;mov ax,GC_READMAP+x*256;out dx,ax;sti;} + +void VW_SetLineWidth(int width); +void VW_SetSplitScreen(int width); +void VW_SetScreen (unsigned CRTC, unsigned pelpan); + +void VW_SetScreenMode (int grmode); +void VW_ClearVideo (int color); +void VW_WaitVBL (int number); + +void VW_ColorBorder (int color); +void VW_SetPalette(byte *palette); +void VW_SetDefaultColors(void); +void VW_FadeOut(void); +void VW_FadeIn(void); +void VW_FadeUp(void); +void VW_FadeDown(void); + +void VW_SetAtrReg (int reg, int value); + +// +// block primitives +// + +void VW_MaskBlock(memptr segm,unsigned ofs,unsigned dest, + unsigned wide,unsigned height,unsigned planesize); +void VW_InverseMask(memptr segm,unsigned ofs,unsigned dest, + unsigned wide,unsigned height); +void VW_MemToScreen(memptr source,unsigned dest,unsigned width,unsigned height); +void VW_ScreenToMem(unsigned source,memptr dest,unsigned width,unsigned height); +void VW_ScreenToScreen(unsigned source,unsigned dest,unsigned width,unsigned height); + + +// +// block addressable routines +// + +void VW_DrawTile8(unsigned x, unsigned y, unsigned tile); + +#if GRMODE == EGAGR + +#define VW_DrawTile8M(x,y,t) \ + VW_MaskBlock(grsegs[STARTTILE8M],(t)*40,bufferofs+ylookup[y]+(x),1,8,8) +#define VW_DrawTile16(x,y,t) \ + VW_MemToScreen(grsegs[STARTTILE16+t],bufferofs+ylookup[y]+(x),2,16) +#define VW_DrawTile16M(x,y,t) \ + VW_MaskBlock(grsegs[STARTTILE16M],(t)*160,bufferofs+ylookup[y]+(x),2,16,32) + +#endif + +#if GRMODE == CGAGR + +#define VW_DrawTile8M(x,y,t) \ + VW_MaskBlock(grsegs[STARTTILE8M],(t)*32,bufferofs+ylookup[y]+(x),2,8,16) +#define VW_DrawTile16(x,y,t) \ + VW_MemToScreen(grsegs[STARTTILE16+t],bufferofs+ylookup[y]+(x),4,16) +#define VW_DrawTile16M(x,y,t) \ + VW_MaskBlock(grsegs[STARTTILE16M],(t)*128,bufferofs+ylookup[y]+(x),4,16,64) + +#endif + +void VW_DrawPic(unsigned x, unsigned y, unsigned chunknum); +void VW_DrawMPic(unsigned x, unsigned y, unsigned chunknum); +void VW_ClipDrawMPic(unsigned x, int y, unsigned chunknum); + +// +// pixel addressable routines +// +void VW_MeasurePropString (char far *string, word *width, word *height); +void VW_MeasureMPropString (char far *string, word *width, word *height); + +void VW_DrawPropString (char far *string); +void VW_DrawMPropString (char far *string); +void VW_DrawSprite(int x, int y, unsigned sprite); +void VW_Plot(unsigned x, unsigned y, unsigned color); +void VW_Hlin(unsigned xl, unsigned xh, unsigned y, unsigned color); +void VW_Vlin(unsigned yl, unsigned yh, unsigned x, unsigned color); +void VW_Bar (unsigned x, unsigned y, unsigned width, unsigned height, + unsigned color); + +//=========================================================================== + +// +// Double buffer management routines +// + +void VW_InitDoubleBuffer (void); +void VW_FixRefreshBuffer (void); +int VW_MarkUpdateBlock (int x1, int y1, int x2, int y2); +void VW_UpdateScreen (void); +void VW_CGAFullUpdate (void); + +// +// cursor +// + +void VW_ShowCursor (void); +void VW_HideCursor (void); +void VW_MoveCursor (int x, int y); +void VW_SetCursor (int spritenum); +void VW_FreeCursor (void); + +// +// mode independant routines +// coordinates in pixels, rounded to best screen res +// regions marked in double buffer +// + +void VWB_DrawTile8 (int x, int y, int tile); +void VWB_DrawTile8M (int x, int y, int tile); +void VWB_DrawTile16 (int x, int y, int tile); +void VWB_DrawTile16M (int x, int y, int tile); +void VWB_DrawPic (int x, int y, int chunknum); +void VWB_DrawMPic(int x, int y, int chunknum); +void VWB_Bar (int x, int y, int width, int height, int color); + +void VWB_DrawPropString (char far *string); +void VWB_DrawMPropString (char far *string); +void VWB_DrawSprite (int x, int y, int chunknum); +void VWB_Plot (int x, int y, int color); +void VWB_Hlin (int x1, int x2, int y, int color); +void VWB_Vlin (int y1, int y2, int x, int color); + +//=========================================================================== diff --git a/16/keen456/KEEN4-6/ID_VW_A.ASM b/16/keen456/KEEN4-6/ID_VW_A.ASM new file mode 100755 index 00000000..3c5132e3 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_VW_A.ASM @@ -0,0 +1,732 @@ +; Catacomb 3-D Source Code +; Copyright (C) 1993-2014 Flat Rock Software +; +; This program is free software; you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License along +; with this program; if not, write to the Free Software Foundation, Inc., +; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +; ID_VW_A.ASM + +IDEAL +MODEL MEDIUM,C + +INCLUDE "ID_ASM.EQU" + +WAITFORVBL = 1 ; setting to 0 causes setscreen and waitvbl + ; to skip waiting for VBL (for timing things) + +;============================================================================ + +DATASEG + +EXTRN screenseg :WORD +EXTRN drawofs :WORD +EXTRN bufferofs :WORD +EXTRN displayofs :WORD +EXTRN drawofs :WORD +EXTRN panadjust :WORD +EXTRN ylookup :WORD +EXTRN linewidth :WORD +EXTRN grsegs :WORD +EXTRN updateptr :WORD +EXTRN blockstarts :WORD ;offsets from drawofs for each update block +EXTRN fontspace :WORD +EXTRN fontnumber :WORD + + +planemask db ? +planenum db ? +screendest dw ? +linedelta dw ? + +LABEL shiftdata0 WORD + dw 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13 + dw 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27 + dw 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41 + dw 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55 + dw 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69 + dw 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83 + dw 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97 + dw 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111 + dw 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125 + dw 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139 + dw 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153 + dw 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167 + dw 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181 + dw 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195 + dw 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209 + dw 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223 + dw 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237 + dw 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251 + dw 252, 253, 254, 255 + +LABEL shiftdata1 WORD + dw 0,32768, 1,32769, 2,32770, 3,32771, 4,32772, 5,32773, 6,32774 + dw 7,32775, 8,32776, 9,32777, 10,32778, 11,32779, 12,32780, 13,32781 + dw 14,32782, 15,32783, 16,32784, 17,32785, 18,32786, 19,32787, 20,32788 + dw 21,32789, 22,32790, 23,32791, 24,32792, 25,32793, 26,32794, 27,32795 + dw 28,32796, 29,32797, 30,32798, 31,32799, 32,32800, 33,32801, 34,32802 + dw 35,32803, 36,32804, 37,32805, 38,32806, 39,32807, 40,32808, 41,32809 + dw 42,32810, 43,32811, 44,32812, 45,32813, 46,32814, 47,32815, 48,32816 + dw 49,32817, 50,32818, 51,32819, 52,32820, 53,32821, 54,32822, 55,32823 + dw 56,32824, 57,32825, 58,32826, 59,32827, 60,32828, 61,32829, 62,32830 + dw 63,32831, 64,32832, 65,32833, 66,32834, 67,32835, 68,32836, 69,32837 + dw 70,32838, 71,32839, 72,32840, 73,32841, 74,32842, 75,32843, 76,32844 + dw 77,32845, 78,32846, 79,32847, 80,32848, 81,32849, 82,32850, 83,32851 + dw 84,32852, 85,32853, 86,32854, 87,32855, 88,32856, 89,32857, 90,32858 + dw 91,32859, 92,32860, 93,32861, 94,32862, 95,32863, 96,32864, 97,32865 + dw 98,32866, 99,32867, 100,32868, 101,32869, 102,32870, 103,32871, 104,32872 + dw 105,32873, 106,32874, 107,32875, 108,32876, 109,32877, 110,32878, 111,32879 + dw 112,32880, 113,32881, 114,32882, 115,32883, 116,32884, 117,32885, 118,32886 + dw 119,32887, 120,32888, 121,32889, 122,32890, 123,32891, 124,32892, 125,32893 + dw 126,32894, 127,32895 + +LABEL shiftdata2 WORD + dw 0,16384,32768,49152, 1,16385,32769,49153, 2,16386,32770,49154, 3,16387 + dw 32771,49155, 4,16388,32772,49156, 5,16389,32773,49157, 6,16390,32774,49158 + dw 7,16391,32775,49159, 8,16392,32776,49160, 9,16393,32777,49161, 10,16394 + dw 32778,49162, 11,16395,32779,49163, 12,16396,32780,49164, 13,16397,32781,49165 + dw 14,16398,32782,49166, 15,16399,32783,49167, 16,16400,32784,49168, 17,16401 + dw 32785,49169, 18,16402,32786,49170, 19,16403,32787,49171, 20,16404,32788,49172 + dw 21,16405,32789,49173, 22,16406,32790,49174, 23,16407,32791,49175, 24,16408 + dw 32792,49176, 25,16409,32793,49177, 26,16410,32794,49178, 27,16411,32795,49179 + dw 28,16412,32796,49180, 29,16413,32797,49181, 30,16414,32798,49182, 31,16415 + dw 32799,49183, 32,16416,32800,49184, 33,16417,32801,49185, 34,16418,32802,49186 + dw 35,16419,32803,49187, 36,16420,32804,49188, 37,16421,32805,49189, 38,16422 + dw 32806,49190, 39,16423,32807,49191, 40,16424,32808,49192, 41,16425,32809,49193 + dw 42,16426,32810,49194, 43,16427,32811,49195, 44,16428,32812,49196, 45,16429 + dw 32813,49197, 46,16430,32814,49198, 47,16431,32815,49199, 48,16432,32816,49200 + dw 49,16433,32817,49201, 50,16434,32818,49202, 51,16435,32819,49203, 52,16436 + dw 32820,49204, 53,16437,32821,49205, 54,16438,32822,49206, 55,16439,32823,49207 + dw 56,16440,32824,49208, 57,16441,32825,49209, 58,16442,32826,49210, 59,16443 + dw 32827,49211, 60,16444,32828,49212, 61,16445,32829,49213, 62,16446,32830,49214 + dw 63,16447,32831,49215 + +LABEL shiftdata3 WORD + dw 0, 8192,16384,24576,32768,40960,49152,57344, 1, 8193,16385,24577,32769,40961 + dw 49153,57345, 2, 8194,16386,24578,32770,40962,49154,57346, 3, 8195,16387,24579 + dw 32771,40963,49155,57347, 4, 8196,16388,24580,32772,40964,49156,57348, 5, 8197 + dw 16389,24581,32773,40965,49157,57349, 6, 8198,16390,24582,32774,40966,49158,57350 + dw 7, 8199,16391,24583,32775,40967,49159,57351, 8, 8200,16392,24584,32776,40968 + dw 49160,57352, 9, 8201,16393,24585,32777,40969,49161,57353, 10, 8202,16394,24586 + dw 32778,40970,49162,57354, 11, 8203,16395,24587,32779,40971,49163,57355, 12, 8204 + dw 16396,24588,32780,40972,49164,57356, 13, 8205,16397,24589,32781,40973,49165,57357 + dw 14, 8206,16398,24590,32782,40974,49166,57358, 15, 8207,16399,24591,32783,40975 + dw 49167,57359, 16, 8208,16400,24592,32784,40976,49168,57360, 17, 8209,16401,24593 + dw 32785,40977,49169,57361, 18, 8210,16402,24594,32786,40978,49170,57362, 19, 8211 + dw 16403,24595,32787,40979,49171,57363, 20, 8212,16404,24596,32788,40980,49172,57364 + dw 21, 8213,16405,24597,32789,40981,49173,57365, 22, 8214,16406,24598,32790,40982 + dw 49174,57366, 23, 8215,16407,24599,32791,40983,49175,57367, 24, 8216,16408,24600 + dw 32792,40984,49176,57368, 25, 8217,16409,24601,32793,40985,49177,57369, 26, 8218 + dw 16410,24602,32794,40986,49178,57370, 27, 8219,16411,24603,32795,40987,49179,57371 + dw 28, 8220,16412,24604,32796,40988,49180,57372, 29, 8221,16413,24605,32797,40989 + dw 49181,57373, 30, 8222,16414,24606,32798,40990,49182,57374, 31, 8223,16415,24607 + dw 32799,40991,49183,57375 + +LABEL shiftdata4 WORD + dw 0, 4096, 8192,12288,16384,20480,24576,28672,32768,36864,40960,45056,49152,53248 + dw 57344,61440, 1, 4097, 8193,12289,16385,20481,24577,28673,32769,36865,40961,45057 + dw 49153,53249,57345,61441, 2, 4098, 8194,12290,16386,20482,24578,28674,32770,36866 + dw 40962,45058,49154,53250,57346,61442, 3, 4099, 8195,12291,16387,20483,24579,28675 + dw 32771,36867,40963,45059,49155,53251,57347,61443, 4, 4100, 8196,12292,16388,20484 + dw 24580,28676,32772,36868,40964,45060,49156,53252,57348,61444, 5, 4101, 8197,12293 + dw 16389,20485,24581,28677,32773,36869,40965,45061,49157,53253,57349,61445, 6, 4102 + dw 8198,12294,16390,20486,24582,28678,32774,36870,40966,45062,49158,53254,57350,61446 + dw 7, 4103, 8199,12295,16391,20487,24583,28679,32775,36871,40967,45063,49159,53255 + dw 57351,61447, 8, 4104, 8200,12296,16392,20488,24584,28680,32776,36872,40968,45064 + dw 49160,53256,57352,61448, 9, 4105, 8201,12297,16393,20489,24585,28681,32777,36873 + dw 40969,45065,49161,53257,57353,61449, 10, 4106, 8202,12298,16394,20490,24586,28682 + dw 32778,36874,40970,45066,49162,53258,57354,61450, 11, 4107, 8203,12299,16395,20491 + dw 24587,28683,32779,36875,40971,45067,49163,53259,57355,61451, 12, 4108, 8204,12300 + dw 16396,20492,24588,28684,32780,36876,40972,45068,49164,53260,57356,61452, 13, 4109 + dw 8205,12301,16397,20493,24589,28685,32781,36877,40973,45069,49165,53261,57357,61453 + dw 14, 4110, 8206,12302,16398,20494,24590,28686,32782,36878,40974,45070,49166,53262 + dw 57358,61454, 15, 4111, 8207,12303,16399,20495,24591,28687,32783,36879,40975,45071 + dw 49167,53263,57359,61455 + +LABEL shiftdata5 WORD + dw 0, 2048, 4096, 6144, 8192,10240,12288,14336,16384,18432,20480,22528,24576,26624 + dw 28672,30720,32768,34816,36864,38912,40960,43008,45056,47104,49152,51200,53248,55296 + dw 57344,59392,61440,63488, 1, 2049, 4097, 6145, 8193,10241,12289,14337,16385,18433 + dw 20481,22529,24577,26625,28673,30721,32769,34817,36865,38913,40961,43009,45057,47105 + dw 49153,51201,53249,55297,57345,59393,61441,63489, 2, 2050, 4098, 6146, 8194,10242 + dw 12290,14338,16386,18434,20482,22530,24578,26626,28674,30722,32770,34818,36866,38914 + dw 40962,43010,45058,47106,49154,51202,53250,55298,57346,59394,61442,63490, 3, 2051 + dw 4099, 6147, 8195,10243,12291,14339,16387,18435,20483,22531,24579,26627,28675,30723 + dw 32771,34819,36867,38915,40963,43011,45059,47107,49155,51203,53251,55299,57347,59395 + dw 61443,63491, 4, 2052, 4100, 6148, 8196,10244,12292,14340,16388,18436,20484,22532 + dw 24580,26628,28676,30724,32772,34820,36868,38916,40964,43012,45060,47108,49156,51204 + dw 53252,55300,57348,59396,61444,63492, 5, 2053, 4101, 6149, 8197,10245,12293,14341 + dw 16389,18437,20485,22533,24581,26629,28677,30725,32773,34821,36869,38917,40965,43013 + dw 45061,47109,49157,51205,53253,55301,57349,59397,61445,63493, 6, 2054, 4102, 6150 + dw 8198,10246,12294,14342,16390,18438,20486,22534,24582,26630,28678,30726,32774,34822 + dw 36870,38918,40966,43014,45062,47110,49158,51206,53254,55302,57350,59398,61446,63494 + dw 7, 2055, 4103, 6151, 8199,10247,12295,14343,16391,18439,20487,22535,24583,26631 + dw 28679,30727,32775,34823,36871,38919,40967,43015,45063,47111,49159,51207,53255,55303 + dw 57351,59399,61447,63495 + +LABEL shiftdata6 WORD + dw 0, 1024, 2048, 3072, 4096, 5120, 6144, 7168, 8192, 9216,10240,11264,12288,13312 + dw 14336,15360,16384,17408,18432,19456,20480,21504,22528,23552,24576,25600,26624,27648 + dw 28672,29696,30720,31744,32768,33792,34816,35840,36864,37888,38912,39936,40960,41984 + dw 43008,44032,45056,46080,47104,48128,49152,50176,51200,52224,53248,54272,55296,56320 + dw 57344,58368,59392,60416,61440,62464,63488,64512, 1, 1025, 2049, 3073, 4097, 5121 + dw 6145, 7169, 8193, 9217,10241,11265,12289,13313,14337,15361,16385,17409,18433,19457 + dw 20481,21505,22529,23553,24577,25601,26625,27649,28673,29697,30721,31745,32769,33793 + dw 34817,35841,36865,37889,38913,39937,40961,41985,43009,44033,45057,46081,47105,48129 + dw 49153,50177,51201,52225,53249,54273,55297,56321,57345,58369,59393,60417,61441,62465 + dw 63489,64513, 2, 1026, 2050, 3074, 4098, 5122, 6146, 7170, 8194, 9218,10242,11266 + dw 12290,13314,14338,15362,16386,17410,18434,19458,20482,21506,22530,23554,24578,25602 + dw 26626,27650,28674,29698,30722,31746,32770,33794,34818,35842,36866,37890,38914,39938 + dw 40962,41986,43010,44034,45058,46082,47106,48130,49154,50178,51202,52226,53250,54274 + dw 55298,56322,57346,58370,59394,60418,61442,62466,63490,64514, 3, 1027, 2051, 3075 + dw 4099, 5123, 6147, 7171, 8195, 9219,10243,11267,12291,13315,14339,15363,16387,17411 + dw 18435,19459,20483,21507,22531,23555,24579,25603,26627,27651,28675,29699,30723,31747 + dw 32771,33795,34819,35843,36867,37891,38915,39939,40963,41987,43011,44035,45059,46083 + dw 47107,48131,49155,50179,51203,52227,53251,54275,55299,56323,57347,58371,59395,60419 + dw 61443,62467,63491,64515 + +LABEL shiftdata7 WORD + dw 0, 512, 1024, 1536, 2048, 2560, 3072, 3584, 4096, 4608, 5120, 5632, 6144, 6656 + dw 7168, 7680, 8192, 8704, 9216, 9728,10240,10752,11264,11776,12288,12800,13312,13824 + dw 14336,14848,15360,15872,16384,16896,17408,17920,18432,18944,19456,19968,20480,20992 + dw 21504,22016,22528,23040,23552,24064,24576,25088,25600,26112,26624,27136,27648,28160 + dw 28672,29184,29696,30208,30720,31232,31744,32256,32768,33280,33792,34304,34816,35328 + dw 35840,36352,36864,37376,37888,38400,38912,39424,39936,40448,40960,41472,41984,42496 + dw 43008,43520,44032,44544,45056,45568,46080,46592,47104,47616,48128,48640,49152,49664 + dw 50176,50688,51200,51712,52224,52736,53248,53760,54272,54784,55296,55808,56320,56832 + dw 57344,57856,58368,58880,59392,59904,60416,60928,61440,61952,62464,62976,63488,64000 + dw 64512,65024, 1, 513, 1025, 1537, 2049, 2561, 3073, 3585, 4097, 4609, 5121, 5633 + dw 6145, 6657, 7169, 7681, 8193, 8705, 9217, 9729,10241,10753,11265,11777,12289,12801 + dw 13313,13825,14337,14849,15361,15873,16385,16897,17409,17921,18433,18945,19457,19969 + dw 20481,20993,21505,22017,22529,23041,23553,24065,24577,25089,25601,26113,26625,27137 + dw 27649,28161,28673,29185,29697,30209,30721,31233,31745,32257,32769,33281,33793,34305 + dw 34817,35329,35841,36353,36865,37377,37889,38401,38913,39425,39937,40449,40961,41473 + dw 41985,42497,43009,43521,44033,44545,45057,45569,46081,46593,47105,47617,48129,48641 + dw 49153,49665,50177,50689,51201,51713,52225,52737,53249,53761,54273,54785,55297,55809 + dw 56321,56833,57345,57857,58369,58881,59393,59905,60417,60929,61441,61953,62465,62977 + dw 63489,64001,64513,65025 + +shifttabletable dw shiftdata0,shiftdata1,shiftdata2,shiftdata3 + dw shiftdata4,shiftdata5,shiftdata6,shiftdata7 + +PUBLIC shifttabletable + + +;============================================================================ + +CODESEG + +IFE GRMODE-CGAGR +INCLUDE "ID_VW_AC.ASM" +ENDIF + +IFE GRMODE-EGAGR +INCLUDE "ID_VW_AE.ASM" +ENDIF + +IFE GRMODE-VGAGR +INCLUDE "ID_VW_AV.ASM" +ENDIF + +;============================================================================ +; +; MISC VIDEO ROUTINES +; +;============================================================================ + +;======== +; +; VW_WaitVBL (int number) +; +;======== + +PROC VW_WaitVBL number:WORD +PUBLIC VW_WaitVBL + +if WAITFORVBL ; skip wait if profiling + + mov dx,STATUS_REGISTER_1 + + mov cx,[number] + +waitvbl1: + in al,dx + test al,00001000b ;look for vbl + jnz waitvbl1 + +waitvbl2: + in al,dx + test al,00001000b ;look for vbl + jz waitvbl2 + + loop waitvbl1 + +endif + + ret + +ENDP + + +;=========================================================================== + + + MASM +;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ +; +; Name: VW_VideoID +; +; Function: Detects the presence of various video subsystems +; +; int VideoID; +; +; Subsystem ID values: +; 0 = (none) +; 1 = MDA +; 2 = CGA +; 3 = EGA +; 4 = MCGA +; 5 = VGA +; 80h = HGC +; 81h = HGC+ +; 82h = Hercules InColor +; +;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ + +;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ +; +; Equates +; +;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ +VIDstruct STRUC ; corresponds to C data structure + +Video0Type DB ? ; first subsystem type +Display0Type DB ? ; display attached to first subsystem + +Video1Type DB ? ; second subsystem type +Display1Type DB ? ; display attached to second subsystem + +VIDstruct ENDS + + +Device0 EQU word ptr Video0Type[di] +Device1 EQU word ptr Video1Type[di] + + +MDA EQU 1 ; subsystem types +CGA EQU 2 +EGA EQU 3 +MCGA EQU 4 +VGA EQU 5 +HGC EQU 80h +HGCPlus EQU 81h +InColor EQU 82h + +MDADisplay EQU 1 ; display types +CGADisplay EQU 2 +EGAColorDisplay EQU 3 +PS2MonoDisplay EQU 4 +PS2ColorDisplay EQU 5 + +TRUE EQU 1 +FALSE EQU 0 + +;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ +; +; Program +; +;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ + +Results VIDstruct <> ;results go here! + +EGADisplays DB CGADisplay ; 0000b, 0001b (EGA switch values) + DB EGAColorDisplay ; 0010b, 0011b + DB MDADisplay ; 0100b, 0101b + DB CGADisplay ; 0110b, 0111b + DB EGAColorDisplay ; 1000b, 1001b + DB MDADisplay ; 1010b, 1011b + +DCCtable DB 0,0 ; translate table for INT 10h func 1Ah + DB MDA,MDADisplay + DB CGA,CGADisplay + DB 0,0 + DB EGA,EGAColorDisplay + DB EGA,MDADisplay + DB 0,0 + DB VGA,PS2MonoDisplay + DB VGA,PS2ColorDisplay + DB 0,0 + DB MCGA,EGAColorDisplay + DB MCGA,PS2MonoDisplay + DB MCGA,PS2ColorDisplay + +TestSequence DB TRUE ; this list of flags and addresses + DW FindPS2 ; determines the order in which this + ; program looks for the various +EGAflag DB ? ; subsystems + DW FindEGA + +CGAflag DB ? + DW FindCGA + +Monoflag DB ? + DW FindMono + +NumberOfTests EQU ($-TestSequence)/3 + + +PUBLIC VW_VideoID +VW_VideoID PROC + + push bp ; preserve caller registers + mov bp,sp + push ds + push si + push di + + push cs + pop ds + ASSUME DS:@Code + +; initialize the data structure that will contain the results + + lea di,Results ; DS:DI -> start of data structure + + mov Device0,0 ; zero these variables + mov Device1,0 + +; look for the various subsystems using the subroutines whose addresses are +; tabulated in TestSequence; each subroutine sets flags in TestSequence +; to indicate whether subsequent subroutines need to be called + + mov byte ptr CGAflag,TRUE + mov byte ptr EGAflag,TRUE + mov byte ptr Monoflag,TRUE + + mov cx,NumberOfTests + mov si,offset TestSequence + +@@L01: lodsb ; AL := flag + test al,al + lodsw ; AX := subroutine address + jz @@L02 ; skip subroutine if flag is false + + push si + push cx + call ax ; call subroutine to detect subsystem + pop cx + pop si + +@@L02: loop @@L01 + +; determine which subsystem is active + + call FindActive + + mov al,Results.Video0Type + mov ah,0 ; was: Results.Display0Type + + pop di ; restore caller registers and return + pop si + pop ds + mov sp,bp + pop bp + ret + +VW_VideoID ENDP + + +; +; FindPS2 +; +; This subroutine uses INT 10H function 1Ah to determine the video BIOS +; Display Combination Code (DCC) for each video subsystem present. +; + +FindPS2 PROC near + + mov ax,1A00h + int 10h ; call video BIOS for info + + cmp al,1Ah + jne @@L13 ; exit if function not supported (i.e., + ; no MCGA or VGA in system) + +; convert BIOS DCCs into specific subsystems & displays + + mov cx,bx + xor bh,bh ; BX := DCC for active subsystem + + or ch,ch + jz @@L11 ; jump if only one subsystem present + + mov bl,ch ; BX := inactive DCC + add bx,bx + mov ax,[bx+offset DCCtable] + + mov Device1,ax + + mov bl,cl + xor bh,bh ; BX := active DCC + +@@L11: add bx,bx + mov ax,[bx+offset DCCtable] + + mov Device0,ax + +; reset flags for subsystems that have been ruled out + + mov byte ptr CGAflag,FALSE + mov byte ptr EGAflag,FALSE + mov byte ptr Monoflag,FALSE + + lea bx,Video0Type[di] ; if the BIOS reported an MDA ... + cmp byte ptr [bx],MDA + je @@L12 + + lea bx,Video1Type[di] + cmp byte ptr [bx],MDA + jne @@L13 + +@@L12: mov word ptr [bx],0 ; ... Hercules can't be ruled out + mov byte ptr Monoflag,TRUE + +@@L13: ret + +FindPS2 ENDP + + +; +; FindEGA +; +; Look for an EGA. This is done by making a call to an EGA BIOS function +; which doesn't exist in the default (MDA, CGA) BIOS. + +FindEGA PROC near ; Caller: AH = flags + ; Returns: AH = flags + ; Video0Type and + ; Display0Type updated + + mov bl,10h ; BL := 10h (return EGA info) + mov ah,12h ; AH := INT 10H function number + int 10h ; call EGA BIOS for info + ; if EGA BIOS is present, + ; BL <> 10H + ; CL = switch setting + cmp bl,10h + je @@L22 ; jump if EGA BIOS not present + + mov al,cl + shr al,1 ; AL := switches/2 + mov bx,offset EGADisplays + xlat ; determine display type from switches + mov ah,al ; AH := display type + mov al,EGA ; AL := subystem type + call FoundDevice + + cmp ah,MDADisplay + je @@L21 ; jump if EGA has a monochrome display + + mov CGAflag,FALSE ; no CGA if EGA has color display + jmp short @@L22 + +@@L21: mov Monoflag,FALSE ; EGA has a mono display, so MDA and + ; Hercules are ruled out +@@L22: ret + +FindEGA ENDP + +; +; FindCGA +; +; This is done by looking for the CGA's 6845 CRTC at I/O port 3D4H. +; +FindCGA PROC near ; Returns: VIDstruct updated + + mov dx,3D4h ; DX := CRTC address port + call Find6845 + jc @@L31 ; jump if not present + + mov al,CGA + mov ah,CGADisplay + call FoundDevice + +@@L31: ret + +FindCGA ENDP + +; +; FindMono +; +; This is done by looking for the MDA's 6845 CRTC at I/O port 3B4H. If +; a 6845 is found, the subroutine distinguishes between an MDA +; and a Hercules adapter by monitoring bit 7 of the CRT Status byte. +; This bit changes on Hercules adapters but does not change on an MDA. +; +; The various Hercules adapters are identified by bits 4 through 6 of +; the CRT Status value: +; +; 000b = HGC +; 001b = HGC+ +; 101b = InColor card +; + +FindMono PROC near ; Returns: VIDstruct updated + + mov dx,3B4h ; DX := CRTC address port + call Find6845 + jc @@L44 ; jump if not present + + mov dl,0BAh ; DX := 3BAh (status port) + in al,dx + and al,80h + mov ah,al ; AH := bit 7 (vertical sync on HGC) + + mov cx,8000h ; do this 32768 times +@@L41: in al,dx + and al,80h ; isolate bit 7 + cmp ah,al + loope @@L41 ; wait for bit 7 to change + jne @@L42 ; if bit 7 changed, it's a Hercules + + mov al,MDA ; if bit 7 didn't change, it's an MDA + mov ah,MDADisplay + call FoundDevice + jmp short @@L44 + +@@L42: in al,dx + mov dl,al ; DL := value from status port + and dl,01110000b ; mask bits 4 thru 6 + + mov ah,MDADisplay ; assume it's a monochrome display + + mov al,HGCPlus ; look for an HGC+ + cmp dl,00010000b + je @@L43 ; jump if it's an HGC+ + + mov al,HGC ; look for an InColor card or HGC + cmp dl,01010000b + jne @@L43 ; jump if it's not an InColor card + + mov al,InColor ; it's an InColor card + mov ah,EGAColorDisplay + +@@L43: call FoundDevice + +@@L44: ret + +FindMono ENDP + +; +; Find6845 +; +; This routine detects the presence of the CRTC on a MDA, CGA or HGC. +; The technique is to write and read register 0Fh of the chip (cursor +; low). If the same value is read as written, assume the chip is +; present at the specified port addr. +; + +Find6845 PROC near ; Caller: DX = port addr + ; Returns: cf set if not present + mov al,0Fh + out dx,al ; select 6845 reg 0Fh (Cursor Low) + inc dx + in al,dx ; AL := current Cursor Low value + mov ah,al ; preserve in AH + mov al,66h ; AL := arbitrary value + out dx,al ; try to write to 6845 + + mov cx,100h +@@L51: loop @@L51 ; wait for 6845 to respond + + in al,dx + xchg ah,al ; AH := returned value + ; AL := original value + out dx,al ; restore original value + + cmp ah,66h ; test whether 6845 responded + je @@L52 ; jump if it did (cf is reset) + + stc ; set carry flag if no 6845 present + +@@L52: ret + +Find6845 ENDP + + +; +; FindActive +; +; This subroutine stores the currently active device as Device0. The +; current video mode determines which subsystem is active. +; + +FindActive PROC near + + cmp word ptr Device1,0 + je @@L63 ; exit if only one subsystem + + cmp Video0Type[di],4 ; exit if MCGA or VGA present + jge @@L63 ; (INT 10H function 1AH + cmp Video1Type[di],4 ; already did the work) + jge @@L63 + + mov ah,0Fh + int 10h ; AL := current BIOS video mode + + and al,7 + cmp al,7 ; jump if monochrome + je @@L61 ; (mode 7 or 0Fh) + + cmp Display0Type[di],MDADisplay + jne @@L63 ; exit if Display0 is color + jmp short @@L62 + +@@L61: cmp Display0Type[di],MDADisplay + je @@L63 ; exit if Display0 is monochrome + +@@L62: mov ax,Device0 ; make Device0 currently active + xchg ax,Device1 + mov Device0,ax + +@@L63: ret + +FindActive ENDP + + +; +; FoundDevice +; +; This routine updates the list of subsystems. +; + +FoundDevice PROC near ; Caller: AH = display # + ; AL = subsystem # + ; Destroys: BX + lea bx,Video0Type[di] + cmp byte ptr [bx],0 + je @@L71 ; jump if 1st subsystem + + lea bx,Video1Type[di] ; must be 2nd subsystem + +@@L71: mov [bx],ax ; update list entry + ret + +FoundDevice ENDP + +IDEAL + + + +END diff --git a/16/keen456/KEEN4-6/ID_VW_AC.ASM b/16/keen456/KEEN4-6/ID_VW_AC.ASM new file mode 100755 index 00000000..80523b4b --- /dev/null +++ b/16/keen456/KEEN4-6/ID_VW_AC.ASM @@ -0,0 +1,1536 @@ +; Reconstructed Commander Keen 4-6 Source Code +; Copyright (C) 2021 K1n9_Duk3 +; +; This file is primarily based on: +; Catacomb 3-D Source Code +; Copyright (C) 1993-2014 Flat Rock Software +; +; This program is free software; you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License along +; with this program; if not, write to the Free Software Foundation, Inc., +; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +;================================= +; +; CGA view manager routines +; +;================================= + +;============================================================================ +; +; All of these routines draw into a floating virtual screen segment in main +; memory. bufferofs points to the origin of the drawing page in screenseg. +; The routines that write out words must take into account buffer wrapping +; and not write a word at 0xffff (which causes an exception on 386s). +; +; The direction flag should be clear +; +;============================================================================ + +DATASEG + +plotpixels db 0c0h,030h,0ch,03h +colorbyte db 000000b,01010101b,10101010b,11111111b +colorword dw 0,5555h,0aaaah,0ffffh + +CODESEG + +;============================================================================ +; +; VW_Plot (int x,y,color) +; +;============================================================================ + + +PROC VW_Plot x:WORD, y:WORD, color:WORD +PUBLIC VW_Plot +USES SI,DI + + mov es,[screenseg] + + mov di,[bufferofs] + mov bx,[y] + shl bx,1 + add di,[ylookup+bx] + mov bx,[x] + mov ax,bx + shr ax,1 + shr ax,1 + add di,ax ; di = byte on screen + + and bx,3 + mov ah,[plotpixels+bx] + mov bx,[color] + mov cl,[colorbyte+bx] + and cl,ah + not ah + + mov al,[es:di] + and al,ah ; mask off other pixels + or al,cl + stosb + + ret + +ENDP + + +;============================================================================ +; +; VW_Vlin (int yl,yh,x,color) +; +;============================================================================ + +PROC VW_Vlin yl:WORD, yh:WORD, x:WORD, color:WORD +PUBLIC VW_Vlin +USES SI,DI + + mov es,[screenseg] + + mov di,[bufferofs] + mov bx,[yl] + shl bx,1 + add di,[ylookup+bx] + mov bx,[x] + mov ax,bx + shr ax,1 + shr ax,1 + add di,ax ; di = byte on screen + + and bx,3 + mov ah,[plotpixels+bx] + mov bx,[color] + mov bl,[colorbyte+bx] + and bl,ah + not ah + + mov cx,[yh] + sub cx,[yl] + inc cx ;number of pixels to plot + + mov dx,[linewidth] + +@@plot: + mov al,[es:di] + and al,ah ; mask off other pixels + or al,bl + mov [es:di],al + add di,dx + loop @@plot + + ret + + ret + +ENDP + + +;============================================================================ + + +;=================== +; +; VW_DrawTile8 +; +; xcoord in bytes (8 pixels), ycoord in pixels +; All Tile8s are in one grseg, so an offset is calculated inside it +; +; DONE +; +;=================== + +PROC VW_DrawTile8 xcoord:WORD, ycoord:WORD, tile:WORD +PUBLIC VW_DrawTile8 +USES SI,DI + + mov es,[screenseg] + + mov di,[bufferofs] + add di,[xcoord] + mov bx,[ycoord] + shl bx,1 + add di,[ylookup+bx] + + mov bx,[linewidth] + sub bx,2 + + mov si,[tile] + shl si,1 + shl si,1 + shl si,1 + shl si,1 + + mov ds,[grsegs+STARTTILE8*2] ; segment for all tile8s + +; +; start drawing +; + +REPT 7 + movsb ;no word moves because of segment wrapping + movsb + add di,bx +ENDM + movsb + movsb + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + + +;============================================================================ +; +; VW_MaskBlock +; +; Draws a masked block shape to the screen. bufferofs is NOT accounted for. +; The mask comes first, then the data. Seperate unwound routines are used +; to speed drawing. +; +; Mask blocks will allways be an even width because of the way IGRAB works +; +; DONE +; +;============================================================================ + +DATASEG + +UNWOUNDMASKS = 18 + + +maskroutines dw mask0,mask0,mask2E,mask2O,mask4E,mask4O + dw mask6E,mask6O,mask8E,mask8O,mask10E,mask10O + dw mask12E,mask12O,mask14E,mask14O,mask16E,mask16O + dw mask18E,mask18O + + +routinetouse dw ? + +CODESEG + +PROC VW_MaskBlock segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD, planesize:WORD +PUBLIC VW_MaskBlock +USES SI,DI + + mov es,[screenseg] + + mov di,[wide] + mov dx,[linewidth] + sub dx,di ;dx = delta to start of next line + + mov bx,[planesize] ; si+bx = data location + + cmp di,UNWOUNDMASKS + jbe @@unwoundroutine + +;============== +; +; General purpose masked block drawing. This could be optimised into +; four routines to use words, but few play loop sprites should be this big! +; +;============== + + mov [ss:linedelta],dx + mov ds,[segm] + mov si,[ofs] + mov di,[dest] + mov dx,[height] ;scan lines to draw + +@@lineloopgen: + mov cx,[wide] +@@byteloop: + mov al,[es:di] + and al,[si] + or al,[bx+si] + inc si + stosb + loop @@byteloop + + add di,[ss:linedelta] + dec dx + jnz @@lineloopgen + +mask0: + mov ax,ss + mov ds,ax + ret ;width of 0 = no drawing + + +;================= +; +; use the unwound routines +; +;================= + +@@unwoundroutine: + shr di,1 ;we only have even width unwound routines + mov cx,[dest] + shr cx,1 + rcl di,1 ;shift a 1 in if destination is odd + shl di,1 + mov ax,[maskroutines+di] ;call the right routine + + mov ds,[segm] + mov si,[ofs] + mov di,[dest] + mov cx,[height] ;scan lines to draw + + jmp ax ;draw it + +;================= +; +; Horizontally unwound routines to draw certain masked blocks faster +; +;================= + +MACRO MASKBYTE + mov al,[es:di] + and al,[si] + or al,[bx+si] + inc si + stosb +ENDM + +MACRO MASKWORD + mov ax,[es:di] + and ax,[si] + or ax,[bx+si] + inc si + inc si + stosw +ENDM + +MACRO SPRITELOOP addr + add di,dx + loop addr + mov ax,ss + mov ds,ax + ret +ENDM + + +EVEN +mask2E: + MASKWORD + SPRITELOOP mask2E + +EVEN +mask2O: + MASKBYTE + MASKBYTE + SPRITELOOP mask2O + +EVEN +mask4E: + MASKWORD + MASKWORD + SPRITELOOP mask4E + +EVEN +mask4O: + MASKBYTE + MASKWORD + MASKBYTE + SPRITELOOP mask4O + +EVEN +mask6E: + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask6E + +EVEN +mask6O: + MASKBYTE + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask6O + +EVEN +mask8E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask8E + +EVEN +mask8O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask8O + +EVEN +mask10E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask10E + +EVEN +mask10O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask10O + +EVEN +mask12E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask12E + +EVEN +mask12O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask12O + +EVEN +mask14E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask14E + +EVEN +mask14O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask14O + +EVEN +mask16E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask16E + +EVEN +mask16O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask16O + +EVEN +mask18E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask18E + +EVEN +mask18O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask18O + + +ENDP + + +;============================================================================ +; +; VW_InverseMask +; +; Draws a masked block shape to the screen. bufferofs is NOT accounted for. +; The mask comes first, then the data. +; +; Mask blocks will allways be an even width because of the way IGRAB works +; +;============================================================================ + +PROC VW_InverseMask segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_InverseMask +USES SI,DI + + mov es, [screenseg] + mov ax, [wide] + mov dx, [linewidth] + sub dx, ax; + mov ds, [segm] + mov si, [ofs] + mov di, [dest] + mov bx, [height] + shr [wide], 1 +@@yloop: + mov cx, [wide] +@@xloop: + lodsw + not ax + or [es:di], ax + inc di + inc di + loop @@xloop + add di, dx + dec bx + jnz @@yloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret +ENDP + + +;============================================================================ +; +; VW_ScreenToScreen +; +; Basic block copy routine. Copies one block of screen memory to another, +; bufferofs is NOT accounted for. +; +; DONE +; +;============================================================================ + +PROC VW_ScreenToScreen source:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_ScreenToScreen +USES SI,DI + + mov bx,[linewidth] + sub bx,[wide] + + mov ax,[screenseg] + mov es,ax + mov ds,ax + + mov si,[source] + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + mov ax,[wide] +; +; if the width, source, and dest are all even, use word moves +; This is allways the case in the CGA refresh +; + test ax,1 + jnz @@bytelineloop + test si,1 + jnz @@bytelineloop + test di,1 + jnz @@bytelineloop + + shr ax,1 +@@wordlineloop: + mov cx,ax + rep movsw + add si,bx + add di,bx + + dec dx + jnz @@wordlineloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +@@bytelineloop: + mov cx,ax + rep movsb + add si,bx + add di,bx + + dec dx + jnz @@bytelineloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + + +;============================================================================ +; +; VW_MemToScreen +; +; Basic block drawing routine. Takes a block shape at segment pointer source +; of width by height data, and draws it to dest in the virtual screen, +; based on linewidth. bufferofs is NOT accounted for. +; There are four drawing routines to provide the best optimized code while +; accounting for odd segment wrappings due to the floating screens. +; +; DONE +; +;============================================================================ + +DATASEG + +memtoscreentable dw eventoeven,eventoodd,oddtoeven,oddtoodd + +CODESEG + + +PROC VW_MemToScreen source:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_MemToScreen +USES SI,DI + + mov es,[screenseg] + + mov bx,[linewidth] + sub bx,[wide] + + mov ds,[source] + + xor si,si ;block is segment aligned + + xor di,di + shr [wide],1 ;change wide to words, and see if carry is set + rcl di,1 ;1 if wide is odd + mov ax,[dest] + shr ax,1 + rcl di,1 ;shift a 1 in if destination is odd + shl di,1 ;to index into a word width table + mov dx,[height] ;scan lines to draw + mov ax,[wide] + jmp [ss:memtoscreentable+di] ;call the right routine + +;============== +; +; Copy an even width block to an even destination address +; +;============== + +eventoeven: + mov di,[dest] ;start at same place in all planes +EVEN +@@lineloopEE: + mov cx,ax + rep movsw + add di,bx + dec dx + jnz @@lineloopEE + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +;============== +; +; Copy an odd width block to an even video address +; +;============== + +oddtoeven: + mov di,[dest] ;start at same place in all planes +EVEN +@@lineloopOE: + mov cx,ax + rep movsw + movsb ;copy the last byte + add di,bx + dec dx + jnz @@lineloopOE + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +;============== +; +; Copy an even width block to an odd video address +; +;============== + +eventoodd: + mov di,[dest] ;start at same place in all planes + dec ax ;one word has to be handled seperately +EVEN +@@lineloopEO: + movsb + mov cx,ax + rep movsw + movsb + add di,bx + dec dx + jnz @@lineloopEO + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +;============== +; +; Copy an odd width block to an odd video address +; +;============== + +oddtoodd: + mov di,[dest] ;start at same place in all planes +EVEN +@@lineloopOO: + movsb + mov cx,ax + rep movsw + add di,bx + dec dx + jnz @@lineloopOO + + mov ax,ss + mov ds,ax ;restore turbo's data segment + ret + + +ENDP + +;=========================================================================== +; +; VW_ScreenToMem +; +; Copies a block of video memory to main memory, in order from planes 0-3. +; This could be optimized along the lines of VW_MemToScreen to take advantage +; of word copies, but this is an infrequently called routine. +; +; DONE +; +;=========================================================================== + +PROC VW_ScreenToMem source:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_ScreenToMem +USES SI,DI + + mov es,[dest] + + mov bx,[linewidth] + sub bx,[wide] + + mov ds,[screenseg] + + xor di,di + + mov si,[source] + mov dx,[height] ;scan lines to draw + +@@lineloop: + mov cx,[wide] + rep movsb + + add si,bx + + dec dx + jnz @@lineloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + + +;=========================================================================== +; +; MISC CGA ROUTINES +; +;=========================================================================== + +;============== +; +; VW_SetScreen +; +; DONE +; +;============== + +PROC VW_SetScreen crtc:WORD +PUBLIC VW_SetScreen + +; +; for some reason, my XT's EGA card doesn't like word outs to the CRTC +; index... +; + cli + + mov cx,[crtc] + mov dx,CRTC_INDEX + mov al,0ch ;start address high register + out dx,al + inc dx + mov al,ch + out dx,al + dec dx + mov al,0dh ;start address low register + out dx,al + mov al,cl + inc dx + out dx,al + + sti + + ret + +ENDP + + +if NUMFONT+NUMFONTM + +;=========================================================================== +; +; GENERAL FONT DRAWING ROUTINES +; +;=========================================================================== + +DATASEG + +px dw ? ; proportional character drawing coordinates +py dw ? +pdrawmode db 11000b ; 8 = OR, 24 = XOR, put in GC_DATAROTATE +fontcolor db 15 ;0-15 mapmask value + +PUBLIC px,py,pdrawmode,fontcolor + +; +; offsets in font structure +; +pcharheight = 0 ;lines high +charloc = 2 ;pointers to every character +charwidth = 514 ;every character's width in pixels + + +propchar dw ? ; the character number to shift +stringptr dw ?,? + +fontcolormask dw ? ; font color expands into this + +BUFFWIDTH = 100 +BUFFHEIGHT = 32 ; must be twice as high as font for masked fonts + +databuffer db BUFFWIDTH*BUFFHEIGHT dup (?) + +bufferwidth dw ? ; bytes with valid info / line +bufferheight dw ? ; number of lines currently used + +bufferbyte dw ? +bufferbit dw ? +PUBLIC bufferwidth,bufferheight,bufferbyte,bufferbit + +screenspot dw ? ; where the buffer is going + +bufferextra dw ? ; add at end of a line copy +screenextra dw ? + +CODESEG + +;====================== +; +; Macros to table shift a byte of font +; +;====================== + +MACRO SHIFTNOXOR + mov al,[es:bx] ; source + xor ah,ah + shl ax,1 + mov si,ax + mov ax,[bp+si] ; table shift into two bytes + or [di],al ; or with first byte + inc di + mov [di],ah ; replace next byte + inc bx ; next source byte +ENDM + +MACRO SHIFTWITHXOR + mov al,[es:bx] ; source + xor ah,ah + shl ax,1 + mov si,ax + mov ax,[bp+si] ; table shift into two bytes + not ax + and [di],al ; and with first byte + inc di + mov [di],ah ; replace next byte + inc bx ; next source byte +ENDM + + +;======================= +; +; VWL_XORBuffer +; +; Pass buffer start in SI (somewhere in databuffer) +; Draws the buffer to the screen buffer +; +;======================== + +PROC VWL_XORBuffer NEAR +USES BP + mov bl,[fontcolor] + xor bh,bh + shl bx,1 + mov ax,[colorword+bx] + mov [fontcolormask],ax + + mov es,[screenseg] + mov di,[screenspot] + + mov bx,[bufferwidth] ;calculate offsets for end of each line + mov [bufferwidth],bx + + or bx,bx + jnz @@isthere + ret ;nothing to draw + +@@isthere: + test bx,1 + jnz @@odd + jmp @@even +; +; clear the last byte so word draws can be used +; +@@odd: + mov al,0 +line = 0 +REPT BUFFHEIGHT + mov [BYTE databuffer+BUFFWIDTH*line+bx],al +line = line+1 +ENDM + + inc bx +@@even: + mov ax,[linewidth] + sub ax,bx + mov [screenextra],ax + mov ax,BUFFWIDTH + sub ax,bx + mov [bufferextra],ax + mov dx,bx + + mov bx,[bufferheight] ;lines to copy + mov bp,[fontcolormask] +@@lineloop: + mov cx,dx +@@byteloop: + lodsb ;get a word from the buffer + and ax,bp + xor [es:di],al ;draw it + inc di + loop @@byteloop + + add si,[bufferextra] + add di,[screenextra] + + dec bx + jnz @@lineloop + + ret +ENDP + + +DATASEG + +;============================================================================ +; +; NON MASKED FONT DRAWING ROUTINES +; +;============================================================================ + +if numfont + +DATASEG + +shiftdrawtable dw 0,shift1wide,shift2wide,shift3wide,shift4wide + dw shift5wide,shift6wide + +CODESEG + +;================== +; +; ShiftPropChar +; +; Call with BX = character number (0-255) +; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts +; them to the new position +; +;================== + +PROC ShiftPropChar NEAR + + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONT*2+si] ;segment of font to use + +; +; find character location, width, and height +; + mov si,[es:charwidth+bx] + and si,0ffh ;SI hold width in pixels + shl bx,1 + mov bx,[es:charloc+bx] ;BX holds pointer to character data + +; +; look up which shift table to use, based on bufferbit +; + mov di,[bufferbit] + shl di,1 + mov bp,[shifttabletable+di] ;BP holds pointer to shift table + + mov di,OFFSET databuffer + add di,[bufferbyte] ;DI holds pointer to buffer + + mov cx,[bufferbit] + add cx,si ;add twice because pixel == two bits + add cx,si ;new bit position + mov ax,cx + and ax,7 + mov [bufferbit],ax ;new bit position + mov ax,cx + shr ax,1 + shr ax,1 + shr ax,1 + add [bufferbyte],ax ;new byte position + + add si,3 + shr si,1 + shr si,1 ;bytes the character is wide + shl si,1 ;*2 to look up in shiftdrawtable + + mov cx,[es:pcharheight] + mov dx,BUFFWIDTH + jmp [ss:shiftdrawtable+si] ;procedure to draw this width + +; +; one byte character +; +shift1wide: + dec dx +EVEN +@@loop1: + SHIFTNOXOR + add di,dx ; next line in buffer + + loop @@loop1 + + ret + +; +; two byte character +; +shift2wide: + dec dx + dec dx +EVEN +@@loop2: + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + + loop @@loop2 + + ret + +; +; three byte character +; +shift3wide: + sub dx,3 +EVEN +@@loop3: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + + loop @@loop3 + + ret + + +; +; four byte character +; +shift4wide: + sub dx,4 +EVEN +@@loop4: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + + loop @@loop4 + + ret + + +; +; five byte character +; +shift5wide: + sub dx,5 +EVEN +@@loop5: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + + loop @@loop5 + + ret + +; +; six byte character +; +shift6wide: + sub dx,6 +EVEN +@@loop6: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + + loop @@loop6 + + ret + + + +ENDP + +;============================================================================ + +;================== +; +; VW_DrawPropString +; +; Draws a C string of characters at px/py and advances px +; +;================== + +CODESEG + +PROC VW_DrawPropString string:DWORD +PUBLIC VW_DrawPropString +USES SI,DI + +; +; proportional spaceing, which clears the buffer ahead of it, so only +; clear the first collumn +; + mov al,0 +line = 0 +REPT BUFFHEIGHT + mov [BYTE databuffer+BUFFWIDTH*line],al +line = line+1 +ENDM + +; +; shift the characters into the buffer +; +@@shiftchars: + mov ax,[px] + and ax,3 + shl ax,1 ;one pixel == two bits + mov [bufferbit],ax + mov [bufferbyte],0 + + mov ax,[WORD string] + mov [stringptr],ax + mov ax,[WORD string+2] + mov [stringptr+2],ax + +@@shiftone: + mov es,[stringptr+2] + mov bx,[stringptr] + inc [stringptr] + mov bx,[es:bx] + xor bh,bh + or bl,bl + jz @@allshifted + call ShiftPropChar + jmp @@shiftone + +@@allshifted: +; +; calculate position to draw buffer on screen +; + mov bx,[py] + shl bx,1 + mov di,[ylookup+bx] + add di,[bufferofs] + add di,[panadjust] + + mov ax,[px] + shr ax,1 + shr ax,1 ;x location in bytes + add di,ax + mov [screenspot],di + +; +; advance px +; + mov ax,[bufferbyte] + shl ax,1 + shl ax,1 + mov bx,[bufferbit] + shr bx,1 ;two bits == one pixel + or ax,bx + add [px],ax + +; +; draw it +; + mov ax,[bufferbyte] + test [bufferbit],7 + jz @@go + inc ax ;so the partial byte also gets drawn +@@go: + mov [bufferwidth],ax + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONT*2+si] + mov ax,[es:pcharheight] + mov [bufferheight],ax + + mov si,OFFSET databuffer + call VWL_XORBuffer + + ret + +ENDP + +endif ;numfont + +;============================================================================ +; +; MASKED FONT DRAWING ROUTINES +; +;============================================================================ + +if numfontm + +DATASEG + +mshiftdrawtable dw 0,mshift1wide,mshift2wide,mshift3wide + + +CODESEG + +;================== +; +; ShiftMPropChar +; +; Call with BX = character number (0-255) +; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts +; them to the new position +; +;================== + +PROC ShiftMPropChar NEAR + + mov es,[grsegs+STARTFONTM*2] ;segment of font to use + +; +; find character location, width, and height +; + mov si,[es:charwidth+bx] + and si,0ffh ;SI hold width in pixels + shl bx,1 + mov bx,[es:charloc+bx] ;BX holds pointer to character data + +; +; look up which shift table to use, based on bufferbit +; + mov di,[bufferbit] + shl di,1 + mov bp,[shifttabletable+di] ;BP holds pointer to shift table + + mov di,OFFSET databuffer + add di,[bufferbyte] ;DI holds pointer to buffer + +; +; advance position by character width +; + mov cx,[bufferbit] + add cx,si ;new bit position + mov ax,cx + and ax,7 + mov [bufferbit],ax ;new bit position + mov ax,cx + shr ax,1 + shr ax,1 + shr ax,1 + add [bufferbyte],ax ;new byte position + + add si,7 + shr si,1 + shr si,1 + shr si,1 ;bytes the character is wide + shl si,1 ;*2 to look up in shiftdrawtable + + mov cx,[es:pcharheight] + mov dx,BUFFWIDTH + jmp [ss:mshiftdrawtable+si] ;procedure to draw this width + +; +; one byte character +; +mshift1wide: + dec dx + +EVEN +@@loop1m: + SHIFTWITHXOR + add di,dx ; next line in buffer + + loop @@loop1m + + mov cx,[es:pcharheight] + +EVEN +@@loop1: + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop1 + + ret + +; +; two byte character +; +mshift2wide: + dec dx + dec dx +EVEN +@@loop2m: + SHIFTWITHXOR + SHIFTWITHXOR + add di,dx ; next line in buffer + + loop @@loop2m + + mov cx,[es:pcharheight] + +EVEN +@@loop2: + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop2 + + ret + +; +; three byte character +; +mshift3wide: + sub dx,3 +EVEN +@@loop3m: + SHIFTWITHXOR + SHIFTWITHXOR + SHIFTWITHXOR + add di,dx ; next line in buffer + + loop @@loop3m + + mov cx,[es:pcharheight] + +EVEN +@@loop3: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop3 + + ret + + +ENDP + +;============================================================================ + +;================== +; +; VW_DrawMPropString +; +; Draws a C string of characters at px/py and advances px +; +;================== + + + +PROC VW_DrawMPropString string:DWORD +PUBLIC VW_DrawMPropString +USES SI,DI + +; +; clear out the first byte of the buffer, the rest will automatically be +; cleared as characters are drawn into it +; + mov es,[grsegs+STARTFONTM*2] + mov dx,[es:pcharheight] + mov di,OFFSET databuffer + mov ax,ds + mov es,ax + mov bx,BUFFWIDTH-1 + + mov cx,dx + mov al,0ffh +@@maskfill: + stosb ; fill the mask part with $ff + add di,bx + loop @@maskfill + + mov cx,dx + xor al,al +@@datafill: + stosb ; fill the data part with $0 + add di,bx + loop @@datafill + +; +; shift the characters into the buffer +; + mov ax,[px] + and ax,7 + mov [bufferbit],ax + mov [bufferbyte],0 + + mov ax,[WORD string] + mov [stringptr],ax + mov ax,[WORD string+2] + mov [stringptr+2],ax + +@@shiftone: + mov es,[stringptr+2] + mov bx,[stringptr] + inc [stringptr] + mov bx,[es:bx] + xor bh,bh + or bl,bl + jz @@allshifted + call ShiftMPropChar + jmp @@shiftone + +@@allshifted: +; +; calculate position to draw buffer on screen +; + mov bx,[py] + shl bx,1 + mov di,[ylookup+bx] + add di,[bufferofs] + + mov ax,[px] + shr ax,1 + shr ax,1 + shr ax,1 ;x location in bytes + add di,ax + mov [screenspot],di + +; +; advance px +; + mov ax,[bufferbyte] + shl ax,1 + shl ax,1 + shl ax,1 + or ax,[bufferbit] + add [px],ax + +; +; draw it +; + mov ax,[bufferbyte] + test [bufferbit],7 + jz @@go + inc ax ;so the partial byte also gets drawn +@@go: + mov [bufferwidth],ax + mov es,[grsegs+STARTFONTM*2] + mov ax,[es:pcharheight] + mov [bufferheight],ax + + mov si,OFFSET databuffer + call BufferToScreen ; cut out mask + ; or in data + call BufferToScreen ; SI is still in the right position in buffer + + ret + +ENDP + +endif ; if numfontm + +endif ; if fonts diff --git a/16/keen456/KEEN4-6/ID_VW_AE.ASM b/16/keen456/KEEN4-6/ID_VW_AE.ASM new file mode 100755 index 00000000..37d4e9e2 --- /dev/null +++ b/16/keen456/KEEN4-6/ID_VW_AE.ASM @@ -0,0 +1,1824 @@ +; Reconstructed Commander Keen 4-6 Source Code +; Copyright (C) 2021 K1n9_Duk3 +; +; This file is primarily based on: +; Catacomb 3-D Source Code +; Copyright (C) 1993-2014 Flat Rock Software +; +; This program is free software; you can redistribute it and/or modify +; it under the terms of the GNU General Public License as published by +; the Free Software Foundation; either version 2 of the License, or +; (at your option) any later version. +; +; This program is distributed in the hope that it will be useful, +; but WITHOUT ANY WARRANTY; without even the implied warranty of +; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +; GNU General Public License for more details. +; +; You should have received a copy of the GNU General Public License along +; with this program; if not, write to the Free Software Foundation, Inc., +; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + +;================================= +; +; EGA view manager routines +; +;================================= + +;============================================================================ +; +; All EGA drawing routines that write out words need to have alternate forms +; for starting on even and odd addresses, because writing a word at segment +; offset 0xffff causes an exception! To work around this, write a single +; byte out to make the address even, so it wraps cleanly at the end. +; +; All of these routines assume read/write mode 0, and will allways return +; in that state. +; The direction flag should be clear +; readmap/writemask is left in an undefined state +; +;============================================================================ + + +;============================================================================ +; +; VW_Plot (int x,y,color) +; +;============================================================================ + +DATASEG + +plotpixels db 128,64,32,16,8,4,2,1 + +CODESEG + +PROC VW_Plot x:WORD, y:WORD, color:WORD +PUBLIC VW_Plot +USES SI,DI + + mov es,[screenseg] + + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + + mov dx,GC_INDEX + mov ax,GC_MODE+2*256 ;write mode 2 + WORDOUT + + mov di,[bufferofs] + mov bx,[y] + shl bx,1 + add di,[ylookup+bx] + mov bx,[x] + mov ax,bx + shr ax,1 + shr ax,1 + shr ax,1 + add di,ax ; di = byte on screen + + and bx,7 + mov ah,[plotpixels+bx] + mov al,GC_BITMASK ;mask off other pixels + WORDOUT + + mov bl,[BYTE color] + xchg bl,[es:di] ; load latches and write pixel + + mov dx,GC_INDEX + mov ah,0ffh ;no bit mask + WORDOUT + mov ax,GC_MODE+0*256 ;write mode 0 + WORDOUT + + ret + +ENDP + + +;============================================================================ +; +; VW_Vlin (int yl,yh,x,color) +; +;============================================================================ + +PROC VW_Vlin yl:WORD, yh:WORD, x:WORD, color:WORD +PUBLIC VW_Vlin +USES SI,DI + + mov es,[screenseg] + + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + + mov dx,GC_INDEX + mov ax,GC_MODE+2*256 ;write mode 2 + WORDOUT + + mov di,[bufferofs] + mov bx,[yl] + shl bx,1 + add di,[ylookup+bx] + mov bx,[x] + mov ax,bx + shr ax,1 + shr ax,1 + shr ax,1 + add di,ax ; di = byte on screen + + and bx,7 + mov ah,[plotpixels+bx] + mov al,GC_BITMASK ;mask off other pixels + WORDOUT + + mov cx,[yh] + sub cx,[yl] + inc cx ;number of pixels to plot + + mov bh,[BYTE color] + mov dx,[linewidth] + +@@plot: + mov bl,bh + xchg bl,[es:di] ; load latches and write pixel + add di,dx + + loop @@plot + + mov dx,GC_INDEX + mov ah,0ffh ;no bit mask + WORDOUT + mov ax,GC_MODE+0*256 ;write mode 0 + WORDOUT + + ret + +ENDP + + +;============================================================================ + + +;=================== +; +; VW_DrawTile8 +; +; xcoord in bytes (8 pixels), ycoord in pixels +; All Tile8s are in one grseg, so an offset is calculated inside it +; +;=================== + +PROC VW_DrawTile8 xcoord:WORD, ycoord:WORD, tile:WORD +PUBLIC VW_DrawTile8 +USES SI,DI + + mov es,[screenseg] + + mov di,[bufferofs] + add di,[xcoord] + mov bx,[ycoord] + shl bx,1 + add di,[ylookup+bx] + mov [ss:screendest],di ;screen destination + + mov bx,[linewidth] + dec bx + + mov si,[tile] + shl si,1 + shl si,1 + shl si,1 + shl si,1 + shl si,1 + + mov ds,[grsegs+STARTTILE8*2] ; segment for all tile8s + + mov cx,4 ;planes to draw + mov ah,0001b ;map mask + + mov dx,SC_INDEX + mov al,SC_MAPMASK + +; +; start drawing +; + +@@planeloop: + WORDOUT + shl ah,1 ;shift plane mask over for next plane + + mov di,[ss:screendest] ;start at same place in all planes + +REPT 7 + movsb + add di,bx +ENDM + movsb + + loop @@planeloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + + +;============================================================================ +; +; VW_MaskBlock +; +; Draws a masked block shape to the screen. bufferofs is NOT accounted for. +; The mask comes first, then four planes of data. +; +;============================================================================ + +DATASEG + +UNWOUNDMASKS = 10 + + +maskroutines dw mask0,mask0,mask1E,mask1E,mask2E,mask2O,mask3E,mask3O + dw mask4E,mask4O,mask5E,mask5O,mask6E,mask6O + dw mask7E,mask7O,mask8E,mask8O,mask9E,mask9O + dw mask10E,mask10O + + +routinetouse dw ? + +CODESEG + +PROC VW_MaskBlock segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD, planesize:WORD +PUBLIC VW_MaskBlock +USES SI,DI + + mov es,[screenseg] + + mov [BYTE planemask],1 + mov [BYTE planenum],0 + + mov di,[wide] + mov dx,[linewidth] + sub dx,[wide] + mov [linedelta],dx ;amount to add after drawing each line + + mov bx,[planesize] ; si+bx = data location + + cmp di,UNWOUNDMASKS + jbe @@unwoundroutine + mov [routinetouse],OFFSET generalmask + jmp NEAR @@startloop + +;================= +; +; use the unwound routines +; +;================= + +@@unwoundroutine: + mov cx,[dest] + shr cx,1 + rcl di,1 ;shift a 1 in if destination is odd + shl di,1 ;to index into a word width table + mov ax,[maskroutines+di] ;call the right routine + mov [routinetouse],ax + +@@startloop: + mov ds,[segm] + +@@drawplane: + mov dx,SC_INDEX + mov al,SC_MAPMASK + mov ah,[ss:planemask] + WORDOUT + mov dx,GC_INDEX + mov al,GC_READMAP + mov ah,[ss:planenum] + WORDOUT + + mov si,[ofs] ;start back at the top of the mask + mov di,[dest] ;start at same place in all planes + mov cx,[height] ;scan lines to draw + mov dx,[ss:linedelta] + + jmp [ss:routinetouse] ;draw one plane +planereturn: ;routine jmps back here + + add bx,[ss:planesize] ;start of mask = start of next plane + + inc [ss:planenum] + shl [ss:planemask],1 ;shift plane mask over for next plane + cmp [ss:planemask],10000b ;done all four planes? + jne @@drawplane + +mask0: + mov ax,ss + mov ds,ax + ret ;width of 0 = no drawing + +;============== +; +; General purpose masked block drawing. This could be optimised into +; four routines to use words, but few play loop sprites should be this big! +; +;============== + +generalmask: + mov dx,cx + +@@lineloopgen: + mov cx,[wide] +@@byteloop: + mov al,[es:di] + and al,[si] + or al,[bx+si] + inc si + stosb + loop @@byteloop + + add di,[ss:linedelta] + dec dx + jnz @@lineloopgen + jmp planereturn + +;================= +; +; Horizontally unwound routines to draw certain masked blocks faster +; +;================= + +MACRO MASKBYTE + lodsb + and al,[es:di] + or al,[bx+si-1] + stosb +ENDM + +MACRO MASKWORD + lodsw + and ax,[es:di] + or ax,[bx+si-2] + stosw +ENDM + +MACRO SPRITELOOP addr + add di,dx + loop addr + jmp planereturn +ENDM + + +EVEN +mask1E: + MASKBYTE + SPRITELOOP mask1E + +EVEN +mask2E: + MASKWORD + SPRITELOOP mask2E + +EVEN +mask2O: + MASKBYTE + MASKBYTE + SPRITELOOP mask2O + +EVEN +mask3E: + MASKWORD + MASKBYTE + SPRITELOOP mask3E + +EVEN +mask3O: + MASKBYTE + MASKWORD + SPRITELOOP mask3O + +EVEN +mask4E: + MASKWORD + MASKWORD + SPRITELOOP mask4E + +EVEN +mask4O: + MASKBYTE + MASKWORD + MASKBYTE + SPRITELOOP mask4O + +EVEN +mask5E: + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask5E + +EVEN +mask5O: + MASKBYTE + MASKWORD + MASKWORD + SPRITELOOP mask5O + +EVEN +mask6E: + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask6E + +EVEN +mask6O: + MASKBYTE + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask6O + +EVEN +mask7E: + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask7E + +EVEN +mask7O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask7O + +EVEN +mask8E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask8E + +EVEN +mask8O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask8O + +EVEN +mask9E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask9E + +EVEN +mask9O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask9O + +EVEN +mask10E: + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKWORD + SPRITELOOP mask10E + +EVEN +mask10O: + MASKBYTE + MASKWORD + MASKWORD + MASKWORD + MASKWORD + MASKBYTE + SPRITELOOP mask10O + + +ENDP + + +;============================================================================ +; +; VW_InverseMask +; +; Draws a masked block shape to the screen. bufferofs is NOT accounted for. +; The mask comes first, then four planes of data. +; +;============================================================================ + +PROC VW_InverseMask segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_InverseMask +USES SI,DI + + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + mov dx,GC_INDEX + mov ax,GC_DATAROTATE+16*256 ;set function = OR + WORDOUT + + mov es, [screenseg] + mov ax, [wide] + mov dx, [linewidth] + sub dx, ax; + mov ds, [segm] + mov si, [ofs] + mov di, [dest] + mov bx, [height] +@@yloop: + mov cx, [wide] +@@xloop: + lodsb + not al + xchg al, [es:di] + inc di + loop @@xloop + add di, dx + dec bx + jnz @@yloop + + mov dx,GC_INDEX + mov ax,GC_DATAROTATE+0*256 ;set function = no change + WORDOUT + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + +;============================================================================ +; +; VW_ScreenToScreen +; +; Basic block copy routine. Copies one block of screen memory to another, +; using write mode 1 (sets it and returns with write mode 0). bufferofs is +; NOT accounted for. +; +;============================================================================ + +PROC VW_ScreenToScreen source:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_ScreenToScreen +USES SI,DI + + pushf + cli + + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + mov dx,GC_INDEX + mov ax,GC_MODE+1*256 + WORDOUT + + popf + + mov bx,[linewidth] + sub bx,[wide] + + mov ax,[screenseg] + mov es,ax + mov ds,ax + + mov si,[source] + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + mov ax,[wide] + +@@lineloop: + mov cx,ax + rep movsb + add si,bx + add di,bx + + dec dx + jnz @@lineloop + + mov dx,GC_INDEX + mov ax,GC_MODE+0*256 + WORDOUT + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + + +;============================================================================ +; +; VW_MemToScreen +; +; Basic block drawing routine. Takes a block shape at segment pointer source +; with four planes of width by height data, and draws it to dest in the +; virtual screen, based on linewidth. bufferofs is NOT accounted for. +; There are four drawing routines to provide the best optimized code while +; accounting for odd segment wrappings due to the floating screens. +; +;============================================================================ + +DATASEG + +memtoscreentable dw eventoeven,eventoodd,oddtoeven,oddtoodd + +CODESEG + + +PROC VW_MemToScreen source:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_MemToScreen +USES SI,DI + + mov es,[screenseg] + + mov bx,[linewidth] + sub bx,[wide] + + mov ds,[source] + + + xor si,si ;block is segment aligned + + xor di,di + shr [wide],1 ;change wide to words, and see if carry is set + rcl di,1 ;1 if wide is odd + mov ax,[dest] + shr ax,1 + rcl di,1 ;shift a 1 in if destination is odd + shl di,1 ;to index into a word width table + mov ax,SC_MAPMASK+0001b*256 ;map mask for plane 0 + jmp [ss:memtoscreentable+di] ;call the right routine + +;============== +; +; Copy an even width block to an even video address +; +;============== + +eventoeven: + mov dx,SC_INDEX + WORDOUT + + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloopEE: + mov cx,[wide] + rep movsw + + add di,bx + + dec dx + jnz @@lineloopEE + + shl ah,1 ;shift plane mask over for next plane + cmp ah,10000b ;done all four planes? + jne eventoeven + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +;============== +; +; Copy an odd width block to an even video address +; +;============== + +oddtoeven: + mov dx,SC_INDEX + WORDOUT + + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloopOE: + mov cx,[wide] + rep movsw + movsb ;copy the last byte + + add di,bx + + dec dx + jnz @@lineloopOE + + shl ah,1 ;shift plane mask over for next plane + cmp ah,10000b ;done all four planes? + jne oddtoeven + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +;============== +; +; Copy an even width block to an odd video address +; +;============== + +eventoodd: + dec [wide] ;one word has to be handled seperately +EOplaneloop: + mov dx,SC_INDEX + WORDOUT + + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloopEO: + movsb + mov cx,[wide] + rep movsw + movsb + + add di,bx + + dec dx + jnz @@lineloopEO + + shl ah,1 ;shift plane mask over for next plane + cmp ah,10000b ;done all four planes? + jne EOplaneloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +;============== +; +; Copy an odd width block to an odd video address +; +;============== + +oddtoodd: + mov dx,SC_INDEX + WORDOUT + + mov di,[dest] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloopOO: + movsb + mov cx,[wide] + rep movsw + + add di,bx + + dec dx + jnz @@lineloopOO + + shl ah,1 ;shift plane mask over for next plane + cmp ah,10000b ;done all four planes? + jne oddtoodd + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + + +ENDP + +;=========================================================================== +; +; VW_ScreenToMem +; +; Copies a block of video memory to main memory, in order from planes 0-3. +; This could be optimized along the lines of VW_MemToScreen to take advantage +; of word copies, but this is an infrequently called routine. +; +;=========================================================================== + +PROC VW_ScreenToMem source:WORD, dest:WORD, wide:WORD, height:WORD +PUBLIC VW_ScreenToMem +USES SI,DI + + mov es,[dest] + + mov bx,[linewidth] + sub bx,[wide] + + mov ds,[screenseg] + + mov ax,GC_READMAP ;read map for plane 0 + + xor di,di + +@@planeloop: + mov dx,GC_INDEX + WORDOUT + + mov si,[source] ;start at same place in all planes + mov dx,[height] ;scan lines to draw + +@@lineloop: + mov cx,[wide] + rep movsb + + add si,bx + + dec dx + jnz @@lineloop + + inc ah + cmp ah,4 ;done all four planes? + jne @@planeloop + + mov ax,ss + mov ds,ax ;restore turbo's data segment + + ret + +ENDP + + +;============================================================================ +; +; VWL_UpdateScreenBlocks +; +; Scans through the update matrix and copies any areas that have changed +; to the visable screen, then zeros the update array +; +;============================================================================ + + + +; AX 0/1 for scasb, temp for segment register transfers +; BX width for block copies +; CX REP counter +; DX line width deltas +; SI source for copies +; DI scas dest / movsb dest +; BP pointer to end of bufferblocks + +PROC VWL_UpdateScreenBlocks +PUBLIC VWL_UpdateScreenBlocks +USES SI,DI,BP + + jmp SHORT @@realstart +@@done: +; +; all tiles have been scanned +; + mov dx,GC_INDEX ; restore write mode 0 + mov ax,GC_MODE+0*256 + WORDOUT + + xor ax,ax ; clear out the update matrix + mov cx,UPDATEWIDE*UPDATEHIGH/2 + + mov di,[updateptr] + rep stosw + + ret + +@@realstart: + mov dx,SC_INDEX + mov ax,SC_MAPMASK+15*256 + WORDOUT + mov dx,GC_INDEX + mov ax,GC_MODE+1*256 + WORDOUT + + mov di,[updateptr] ; start of floating update screen + mov bp,di + add bp,UPDATEWIDE*UPDATEHIGH+1 ; when di = bp, all tiles have been scanned + + push di + mov cx,-1 ; definately scan the entire thing + +; +; scan for a 1 in the update list, meaning a tile needs to be copied +; from the master screen to the current screen +; +@@findtile: + pop di ; place to continue scaning from + mov ax,ss + mov es,ax ; search in the data segment + mov ds,ax + mov al,1 + repne scasb + cmp di,bp + jae @@done + + cmp [BYTE di],al + jne @@singletile + jmp @@tileblock + +;============ +; +; copy a single tile +; +;============ +@@singletile: + inc di ; we know the next tile is nothing + push di ; save off the spot being scanned + sub di,[updateptr] + shl di,1 + mov di,[blockstarts-4+di] ; start of tile location on screen + mov si,di + add si,[bufferofs] + add di,[displayofs] + + mov dx,[linewidth] + sub dx,2 + mov ax,[screenseg] + mov ds,ax + mov es,ax + +REPT 15 + movsb + movsb + add si,dx + add di,dx +ENDM + movsb + movsb + + jmp @@findtile + +;============ +; +; more than one tile in a row needs to be updated, so do it as a group +; +;============ +EVEN +@@tileblock: + mov dx,di ; hold starting position + 1 in dx + inc di ; we know the next tile also gets updated + repe scasb ; see how many more in a row + push di ; save off the spot being scanned + + mov bx,di + sub bx,dx ; number of tiles in a row + shl bx,1 ; number of bytes / row + + mov di,dx ; lookup position of start tile + sub di,[updateptr] + shl di,1 + mov di,[blockstarts-2+di] ; start of tile location + mov si,di + add si,[bufferofs] + add di,[displayofs] + + mov dx,[linewidth] + sub dx,bx ; offset to next line on screen + + mov ax,[screenseg] + mov ds,ax + mov es,ax + +REPT 15 + mov cx,bx + rep movsb + add si,dx + add di,dx +ENDM + mov cx,bx + rep movsb + + dec cx ; was 0 from last rep movsb, now $ffff for scasb + jmp @@findtile + +ENDP + + +;=========================================================================== +; +; MISC EGA ROUTINES +; +;=========================================================================== + +;================= +; +; SyncVBL +; +;================= + +DATASEG + +EXTRN TimeCount :DWORD +EXTRN jerk :WORD +EXTRN nopan :WORD + +CODESEG + +PROC SyncVBL + mov dx,STATUS_REGISTER_1 + mov bx,[WORD TimeCount] + add bx,3 +@@waitloop: + sti + jmp $+2 + cli + cmp [WORD TimeCount],bx + je @@done +@@waitnovert: + in al,dx + test al,1 + jnz @@waitnovert +@@waitvert: + in al,dx + test al,1 + jz @@waitvert + +REPT 5 + in al,dx + test al,8 + jnz @@waitloop + test al,1 + jz @@waitloop +ENDM + + test [jerk],1 + jz @@done + +REPT 5 + in al,dx + test al,8 + jnz @@waitloop + test al,1 + jz @@waitloop +ENDM + +@@done: + ret +ENDP + + +;============== +; +; VW_SetScreen +; +;============== + +PROC VW_SetScreen crtc:WORD, pel:WORD +PUBLIC VW_SetScreen + + call SyncVBL +; +; set CRTC start +; +; for some reason, my XT's EGA card doesn't like word outs to the CRTC +; index... +; + mov cx,[crtc] + mov dx,CRTC_INDEX + mov al,0ch ;start address high register + out dx,al + inc dx + mov al,ch + out dx,al + dec dx + mov al,0dh ;start address low register + out dx,al + mov al,cl + inc dx + out dx,al + + test [nopan],1 + jnz @@done +; +; set horizontal panning +; + + mov dx,ATR_INDEX + mov al,ATR_PELPAN or 20h + out dx,al + jmp $+2 + mov al,[BYTE pel] ;pel pan value + out dx,al + +@@done: + sti + + ret + +ENDP + + +if NUMFONT+NUMFONTM + +;=========================================================================== +; +; GENERAL FONT DRAWING ROUTINES +; +;=========================================================================== + +DATASEG + +px dw ? ; proportional character drawing coordinates +py dw ? +pdrawmode db 11000b ; 8 = OR, 24 = XOR, put in GC_DATAROTATE +fontcolor db 15 ;0-15 mapmask value + +PUBLIC px,py,pdrawmode,fontcolor + +; +; offsets in font structure +; +pcharheight = 0 ;lines high +charloc = 2 ;pointers to every character +charwidth = 514 ;every character's width in pixels + + +propchar dw ? ; the character number to shift +stringptr dw ?,? + + +BUFFWIDTH = 50 +BUFFHEIGHT = 32 ; must be twice as high as font for masked fonts + +databuffer db BUFFWIDTH*BUFFHEIGHT dup (?) + +bufferwidth dw ? ; bytes with valid info / line +bufferheight dw ? ; number of lines currently used + +bufferbyte dw ? +bufferbit dw ? + +screenspot dw ? ; where the buffer is going + +bufferextra dw ? ; add at end of a line copy +screenextra dw ? + +PUBLIC bufferwidth,bufferheight,screenspot + +CODESEG + +;====================== +; +; Macros to table shift a byte of font +; +;====================== + +MACRO SHIFTNOXOR + mov al,[es:bx] ; source + xor ah,ah + shl ax,1 + mov si,ax + mov ax,[bp+si] ; table shift into two bytes + or [di],al ; or with first byte + inc di + mov [di],ah ; replace next byte + inc bx ; next source byte +ENDM + +MACRO SHIFTWITHXOR + mov al,[es:bx] ; source + xor ah,ah + shl ax,1 + mov si,ax + mov ax,[bp+si] ; table shift into two bytes + not ax + and [di],al ; and with first byte + inc di + mov [di],ah ; replace next byte + inc bx ; next source byte +ENDM + + +;======================= +; +; BufferToScreen +; +; Pass buffer start in SI (somewhere in databuffer) +; Draws the buffer to the EGA screen in the current write mode +; +;======================== + +PROC BufferToScreen NEAR + + mov es,[screenseg] + mov di,[screenspot] + + mov bx,[bufferwidth] ;calculate offsets for end of each line + or bx,bx + jnz @@isthere + ret ;nothing to draw + +@@isthere: + mov ax,[linewidth] + sub ax,bx + mov [screenextra],ax + mov ax,BUFFWIDTH + sub ax,bx + mov [bufferextra],ax + + mov bx,[bufferheight] ;lines to copy +@@lineloop: + mov cx,[bufferwidth] ;bytes to copy +@@byteloop: + lodsb ;get a byte from the buffer + xchg [es:di],al ;load latches and store back to screen + inc di + + loop @@byteloop + + add si,[bufferextra] + add di,[screenextra] + + dec bx + jnz @@lineloop + + ret +ENDP + + +;============================================================================ +; +; NON MASKED FONT DRAWING ROUTINES +; +;============================================================================ + +if numfont + +DATASEG + +shiftdrawtable dw 0,shift1wide,shift2wide,shift3wide,shift4wide + dw shift5wide + +CODESEG + +;================== +; +; ShiftPropChar +; +; Call with BX = character number (0-255) +; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts +; them to the new position +; +;================== + +PROC ShiftPropChar NEAR + + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONT*2+si] ;segment of font to use + +; +; find character location, width, and height +; + mov si,[es:charwidth+bx] + and si,0ffh ;SI hold width in pixels + shl bx,1 + mov bx,[es:charloc+bx] ;BX holds pointer to character data + +; +; look up which shift table to use, based on bufferbit +; + mov di,[bufferbit] + shl di,1 + mov bp,[shifttabletable+di] ;BP holds pointer to shift table + + mov di,OFFSET databuffer + add di,[bufferbyte] ;DI holds pointer to buffer + +; +; advance position by character width +; + mov cx,[bufferbit] + add cx,si ;new bit position + mov ax,cx + and ax,7 + mov [bufferbit],ax ;new bit position + mov ax,cx + shr ax,1 + shr ax,1 + shr ax,1 + add [bufferbyte],ax ;new byte position + + add si,7 + shr si,1 + shr si,1 + shr si,1 ;bytes the character is wide + shl si,1 ;*2 to look up in shiftdrawtable + + mov cx,[es:pcharheight] + mov dx,BUFFWIDTH + jmp [ss:shiftdrawtable+si] ;procedure to draw this width + +; +; one byte character +; +shift1wide: + dec dx +EVEN +@@loop1: + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop1 + ret + +; +; two byte character +; +shift2wide: + dec dx + dec dx +EVEN +@@loop2: + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop2 + ret + +; +; three byte character +; +shift3wide: + sub dx,3 +EVEN +@@loop3: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop3 + ret + +; +; four byte character +; +shift4wide: + sub dx,4 +EVEN +@@loop4: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop4 + ret + +; +; five byte character +; +shift5wide: + sub dx,5 +EVEN +@@loop5: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop5 + ret + + + +ENDP + +;============================================================================ + +;================== +; +; VW_DrawPropString +; +; Draws a C string of characters at px/py and advances px +; +; Assumes write mode 0 +; +;================== + +CODESEG + +PROC VW_DrawPropString string:DWORD +PUBLIC VW_DrawPropString +USES SI,DI + +; +; proportional spaceing, which clears the buffer ahead of it, so only +; clear the first collumn +; + mov al,0 +line = 0 +REPT BUFFHEIGHT + mov [BYTE databuffer+BUFFWIDTH*line],al +line = line+1 +ENDM + +; +; shift the characters into the buffer +; +@@shiftchars: + mov ax,[px] + and ax,7 + mov [bufferbit],ax + mov [bufferbyte],0 + + mov ax,[WORD string] + mov [stringptr],ax + mov ax,[WORD string+2] + mov [stringptr+2],ax + +@@shiftone: + mov es,[stringptr+2] + mov bx,[stringptr] + inc [stringptr] + mov bx,[es:bx] + xor bh,bh + or bl,bl + jz @@allshifted + call ShiftPropChar + jmp @@shiftone + +@@allshifted: +; +; calculate position to draw buffer on screen +; + mov bx,[py] + shl bx,1 + mov di,[ylookup+bx] + add di,[bufferofs] + add di,[panadjust] + + mov ax,[px] + shr ax,1 + shr ax,1 + shr ax,1 ;x location in bytes + add di,ax + mov [screenspot],di + +; +; advance px +; + mov ax,[bufferbyte] + shl ax,1 + shl ax,1 + shl ax,1 + or ax,[bufferbit] + add [px],ax + +; +; draw it +; + +; set xor/or mode + mov dx,GC_INDEX + mov al,GC_DATAROTATE + mov ah,[pdrawmode] + WORDOUT + +; set mapmask to color + mov dx,SC_INDEX + mov al,SC_MAPMASK + mov ah,[fontcolor] + WORDOUT + + mov ax,[bufferbyte] + test [bufferbit],7 + jz @@go + inc ax ;so the partial byte also gets drawn +@@go: + mov [bufferwidth],ax + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONT*2+si] + mov ax,[es:pcharheight] + mov [bufferheight],ax + + mov si,OFFSET databuffer + call BufferToScreen + +; set copy mode + mov dx,GC_INDEX + mov ax,GC_DATAROTATE + WORDOUT + +; set mapmask to all + mov dx,SC_INDEX + mov ax,SC_MAPMASK + 15*256 + WORDOUT + + + ret + +ENDP + +endif ;numfont + +;============================================================================ +; +; MASKED FONT DRAWING ROUTINES +; +;============================================================================ + +if numfontm + +DATASEG + +mshiftdrawtable dw 0,mshift1wide,mshift2wide,mshift3wide + + +CODESEG + +;================== +; +; ShiftMPropChar +; +; Call with BX = character number (0-255) +; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts +; them to the new position +; +;================== + +PROC ShiftMPropChar NEAR + + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONTM*2+si] ;segment of font to use + +; +; find character location, width, and height +; + mov si,[es:charwidth+bx] + and si,0ffh ;SI hold width in pixels + shl bx,1 + mov bx,[es:charloc+bx] ;BX holds pointer to character data + +; +; look up which shift table to use, based on bufferbit +; + mov di,[bufferbit] + shl di,1 + mov bp,[shifttabletable+di] ;BP holds pointer to shift table + + mov di,OFFSET databuffer + add di,[bufferbyte] ;DI holds pointer to buffer + + mov cx,[bufferbit] + add cx,si ;new bit position + mov ax,cx + and ax,7 + mov [bufferbit],ax ;new bit position + mov ax,cx + shr ax,1 + shr ax,1 + shr ax,1 + add [bufferbyte],ax ;new byte position + + add si,7 + shr si,1 + shr si,1 + shr si,1 ;bytes the character is wide + shl si,1 ;*2 to look up in shiftdrawtable + + mov cx,[es:pcharheight] + mov dx,BUFFWIDTH + jmp [ss:mshiftdrawtable+si] ;procedure to draw this width + +; +; one byte character +; +mshift1wide: + dec dx + +EVEN +@@loop1m: + SHIFTWITHXOR + add di,dx ; next line in buffer + + loop @@loop1m + + mov cx,[es:pcharheight] + +EVEN +@@loop1: + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop1 + + ret + +; +; two byte character +; +mshift2wide: + dec dx + dec dx +EVEN +@@loop2m: + SHIFTWITHXOR + SHIFTWITHXOR + add di,dx ; next line in buffer + + loop @@loop2m + + mov cx,[es:pcharheight] + +EVEN +@@loop2: + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop2 + + ret + +; +; three byte character +; +mshift3wide: + sub dx,3 +EVEN +@@loop3m: + SHIFTWITHXOR + SHIFTWITHXOR + SHIFTWITHXOR + add di,dx ; next line in buffer + + loop @@loop3m + + mov cx,[es:pcharheight] + +EVEN +@@loop3: + SHIFTNOXOR + SHIFTNOXOR + SHIFTNOXOR + add di,dx ; next line in buffer + loop @@loop3 + + ret + + +ENDP + +;============================================================================ + +;================== +; +; VW_DrawMPropString +; +; Draws a C string of characters at px/py and advances px +; +; Assumes write mode 0 +; +;================== + + + +PROC VW_DrawMPropString string:DWORD +PUBLIC VW_DrawMPropString +USES SI,DI + +; +; clear out the first byte of the buffer, the rest will automatically be +; cleared as characters are drawn into it +; + mov si,[fontnumber] + shl si,1 + mov es,[grsegs+STARTFONTM*2+si] + mov dx,[es:pcharheight] + mov di,OFFSET databuffer + mov ax,ds + mov es,ax + mov bx,BUFFWIDTH-1 + + mov cx,dx + mov al,0ffh +@@maskfill: + stosb ; fill the mask part with $ff + add di,bx + loop @@maskfill + + mov cx,dx + xor al,al +@@datafill: + stosb ; fill the data part with $0 + add di,bx + loop @@datafill + +; +; shift the characters into the buffer +; + mov ax,[px] + and ax,7 + mov [bufferbit],ax + mov [bufferbyte],0 + + mov ax,[WORD string] + mov [stringptr],ax + mov ax,[WORD string+2] + mov [stringptr+2],ax + +@@shiftone: + mov es,[stringptr+2] + mov bx,[stringptr] + inc [stringptr] + mov bx,[es:bx] + xor bh,bh + or bl,bl + jz @@allshifted + call ShiftMPropChar + jmp @@shiftone + +@@allshifted: +; +; calculate position to draw buffer on screen +; + mov bx,[py] + shl bx,1 + mov di,[ylookup+bx] + add di,[bufferofs] + add di,[panadjust] + + mov ax,[px] + shr ax,1 + shr ax,1 + shr ax,1 ;x location in bytes + add di,ax + mov [screenspot],di + +; +; advance px +; + mov ax,[bufferbyte] + shl ax,1 + shl ax,1 + shl ax,1 + or ax,[bufferbit] + add [px],ax + +; +; draw it +; + mov ax,[bufferbyte] + test [bufferbit],7 + jz @@go + inc ax ;so the partial byte also gets drawn +@@go: + mov [bufferwidth],ax + mov es,[grsegs+STARTFONTM*2] + mov ax,[es:pcharheight] + mov [bufferheight],ax + +; set AND mode to punch out the mask + mov dx,GC_INDEX + mov ax,GC_DATAROTATE + 8*256 + WORDOUT + +; set mapmask to all + mov dx,SC_INDEX + mov ax,SC_MAPMASK + 15*256 + WORDOUT + + mov si,OFFSET databuffer + call BufferToScreen + +; set OR mode to fill in the color + mov dx,GC_INDEX + mov ax,GC_DATAROTATE + 16*256 + WORDOUT + +; set mapmask to color + mov dx,SC_INDEX + mov al,SC_MAPMASK + mov ah,[fontcolor] + WORDOUT + + call BufferToScreen ; SI is still in the right position in buffer + +; set copy mode + mov dx,GC_INDEX + mov ax,GC_DATAROTATE + WORDOUT + +; set mapmask to all + mov dx,SC_INDEX + mov ax,SC_MAPMASK + 15*256 + WORDOUT + + + ret + +ENDP + +endif ; if numfontm + +endif ; if fonts diff --git a/16/keen456/KEEN4-6/KEEN4/AUDIOCK4.H b/16/keen456/KEEN4-6/KEEN4/AUDIOCK4.H new file mode 100755 index 00000000..835b83e0 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/AUDIOCK4.H @@ -0,0 +1,125 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __AUDIO_H__ +#define __AUDIO_H__ + +//#include "VERSION.H" + +///////////////////////////////////////////////// +// +// MUSE Header for .CK4 +// +///////////////////////////////////////////////// + +#define NUMSOUNDS LASTSOUND +#define NUMSNDCHUNKS ((3*LASTSOUND)+LASTMUSIC) + +// +// Sound names & indexes +// +typedef enum { + SND_WORLDWALK1, + SND_WORLDWALK2, + SND_JUMP, + SND_LAND, + SND_KEENFIRE, + SND_WORMOUTHATTACK, + SND_6, + SND_POGOBOUNCE, + SND_GETPOINTS, + SND_GETAMMO, + SND_GETWATER, + SND_11, + SND_ENTERLEVEL, + SND_LEVELDONE, + SND_NOWAY, + SND_HELMETHIT, + SND_BOUNCE2, + SND_EXTRAKEEN, + SND_OPENDOOR, + SND_GETKEY, + SND_PLUMMET, + SND_USESWITCH, + SND_SQUISH, + SND_KEENDEAD, + SND_24, + SND_SHOTEXPLODE, + SND_SWIM1, + SND_SWIM2, + SND_BOUNCE1, + SND_EATBONUS, + SND_TREASUREEATERVANISH, + SND_LINDSEY, + SND_LICKATTACK, + SND_BERKELOIDATTACK, + SND_SHOWSTATUS, + SND_HIDESTATUS, + SND_BLUB, + SND_MINEEXPLODE, + SND_SPRITEFIRE, + SND_THUNDER, + SND_FIREBALLLAND, + SND_SHOOTDART, + SND_BURP, + SND_FLAGSPIN, + SND_FLAGLAND, + SND_MAKEFOOT, + SND_SLUGPOO, + KEENPADDLESND, + BALLBOUNCESND, + COMPPADDLESND, + COMPSCOREDSND, + KEENSCOREDSND, + LASTSOUND +} soundnames; + +#if LASTSOUND != 52 +#error bad sound enum! +#endif + +#define NOWAYSND SND_NOWAY + +// +// Base offsets +// +#define STARTPCSOUNDS 0 +#define STARTADLIBSOUNDS (STARTPCSOUNDS+NUMSOUNDS) +#define STARTDIGISOUNDS (STARTADLIBSOUNDS+NUMSOUNDS) +#define STARTMUSIC (STARTDIGISOUNDS+NUMSOUNDS) + +// +// Music names & indexes +// +typedef enum { + SHADOWS_MUS, + VEGGIES_MUS, + TOOHOT_MUS, + OASIS_MUS, + KICKPANT_MUS, + WONDER_MUS, + LASTMUSIC +} musicnames; + +///////////////////////////////////////////////// +// +// Thanks for playing with MUSE! +// +///////////////////////////////////////////////// + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN4/GFXE_CK4.EQU b/16/keen456/KEEN4-6/KEEN4/GFXE_CK4.EQU new file mode 100755 index 00000000..10a0c2ae --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/GFXE_CK4.EQU @@ -0,0 +1,55 @@ +;===================================== +; +; Graphics .EQU file for .CK4 +; not IGRAB-ed :) +; +;===================================== + +;INCLUDE "VERSION.EQU" + +; +; Amount of each data item +; +NUMFONT = 3 +NUMFONTM = 0 +NUMPICM = 3 +NUMTILE8 = 108 +NUMTILE8M = 36 +NUMTILE32 = 0 +NUMTILE32M = 0 + +; +; Amount of each item in episode 4 +; +NUMPICS = 115 +NUMSPRITES = 397 +NUMTILE16 = 1296 +NUMTILE16M = 2916 +NUMEXTERN = 16 + + +; +; File offsets for data items +; +STRUCTPIC = 0 +STRUCTPICM = 1 +STRUCTSPRITE = 2 + +STARTFONT = 3 +STARTFONTM = (STARTFONT+NUMFONT) +STARTPICS = (STARTFONTM+NUMFONTM) +STARTPICM = (STARTPICS+NUMPICS) +STARTSPRITES = (STARTPICM+NUMPICM) +STARTTILE8 = (STARTSPRITES+NUMSPRITES) +STARTTILE8M = (STARTTILE8+1) +STARTTILE16 = (STARTTILE8M+1) +STARTTILE16M = (STARTTILE16+NUMTILE16) +STARTTILE32 = (STARTTILE16M+NUMTILE16M) +STARTTILE32M = (STARTTILE32+NUMTILE32) +STARTEXTERN = (STARTTILE32M+NUMTILE32M) + +NUMCHUNKS = (STARTEXTERN+NUMEXTERN) + +; +; Thank you for using IGRAB! +; diff --git a/16/keen456/KEEN4-6/KEEN4/GFXE_CK4.H b/16/keen456/KEEN4-6/KEEN4/GFXE_CK4.H new file mode 100755 index 00000000..f1d92bd0 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/GFXE_CK4.H @@ -0,0 +1,765 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __GFX_H__ +#define __GFX_H__ + +//#include "VERSION.H" + +////////////////////////////////////// +// +// Graphics .H file for .CK4 +// not IGRAB-ed :) +// +////////////////////////////////////// + +// +// Lump creation macros +// + +#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1, +#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1, + +// +// Amount of each data item +// + +//common numbers: +#define NUMCHUNKS NUMGRCHUNKS +#define NUMFONT 3 +#define NUMFONTM 0 +#define NUMPICM 3 +#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH! +#define NUMTILE8M 36 // BUG: only 20 tiles exist in EGAGRAPH! +#define NUMTILE32 0 +#define NUMTILE32M 0 + +//episode-specific numbers: +#define NUMPICS 115 +#define NUMSPRITES 397 +#define NUMTILE16 1296 +#define NUMTILE16M 2916 +#define NUMEXTERNS 16 + +// +// File offsets for data items +// +#define STRUCTPIC 0 +#define STRUCTPICM 1 +#define STRUCTSPRITE 2 + +#define STARTFONT 3 +#define STARTFONTM (STARTFONT+NUMFONT) +#define STARTPICS (STARTFONTM+NUMFONTM) +#define STARTPICM (STARTPICS+NUMPICS) +#define STARTSPRITES (STARTPICM+NUMPICM) +#define STARTTILE8 (STARTSPRITES+NUMSPRITES) +#define STARTTILE8M (STARTTILE8+1) +#define STARTTILE16 (STARTTILE8M+1) +#define STARTTILE16M (STARTTILE16+NUMTILE16) +#define STARTTILE32 (STARTTILE16M+NUMTILE16M) +#define STARTTILE32M (STARTTILE32+NUMTILE32) +#define STARTEXTERNS (STARTTILE32M+NUMTILE32M) + +typedef enum { + LASTFONT=STARTPICS-1, + + // + // PICS + // + + H_HELPPIC, // 6 + H_LARROWPIC, // 7 + H_RARROWPIC, // 8 + H_ESCPIC, // 9 + H_ENTERPIC, // 10 + DUMMYPIC, // 11 + H_STORY1PIC, // 12 + H_STORY2PIC, // 13 + H_STORY3PIC, // 14 + H_STORY4PIC, // 15 + STORY5PIC, // 16 + STORY6PIC, // 17 + STORY7PIC, // 18 + STORY8PIC, // 19 + ITEM1PIC, // 20 + ITEM2PIC, // 21 + ITEM3PIC, // 22 + ITEM4PIC, // 23 + ITEM5PIC, // 24 + ITEM6PIC, // 25 + ITEM7PIC, // 26 + ITEM8PIC, // 27 + ITEM9PIC, // 28 + ARACHNUTPIC, // 29 + BERKELOISPIC, // 30 + BOUNDERPIC, // 31 + COUNCILMEMBERPIC, // 32 + DOPEFISHPIC, // 33 + INCHWORMPIC, // 34 + LICKPIC, // 35 + MADMUSHROOMPIC, // 36 + POISONSLIGPIC, // 37 + PRINCESSLINDSEYPIC, // 38 + SCHOOLFISHPIC, // 39 + SKYPESTPIC, // 40 + SPRITEPIC, // 41 + WORMOUTHPIC, // 42 + ENDOFTEXTPIC, // 43 + H_MCPIC, // 44 + H_HANDPIC, // 45 + H_VISAPIC, // 46 + H_FLASHARROW1PIC, // 47 + H_FLASHARROW2PIC, // 48 + ENDINDG1PIC, // 49 + ENDINDG2PIC, // 50 + ENDINDG3PIC, // 51 + ENDINDG4PIC, // 52 + ENDINDG5PIC, // 53 + ENDINDG6PIC, // 54 + ENDINDG7PIC, // 55 + ENDINDG8PIC, // 56 + ENDINDG9PIC, // 57 + ENDINDG10PIC, // 58 + ENDINDG11PIC, // 59 + ENDINDG12PIC, // 60 + ENDINDG13PIC, // 61 + ENDINDG14PIC, // 62 + ENDINDG15PIC, // 63 + ENDINDG16PIC, // 64 + ENDINDG17PIC, // 65 + ENDINDG18PIC, // 66 + ENDINDG19PIC, // 67 + ENDINDG20PIC, // 68 + ENDINDG21PIC, // 69 + ENDINDG22PIC, // 70 + ENDINDG23PIC, // 71 + ENDINDG24PIC, // 72 + ENDINDG25PIC, // 73 + ENDINDG26PIC, // 74 + ENDINDG27PIC, // 75 + ENDINDG28PIC, // 76 + ENDINDG29PIC, // 77 + ENDINDG30PIC, // 78 + H_IDLOGOPIC, // 79 + H_TOPWINDOWPIC, // 80 + H_LEFTWINDOWPIC, // 81 + H_RIGHTWINDOWPIC, // 82 + H_BOTTOMINFOPIC, // 83 + H_BOTTOMWINDOWPIC, // 84 + H_BARPIC, // 85 + H_KEEN5PIC, // 86 + H_KEEN6PIC, // 87 + + START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART) + CP_MAINMENUPIC, // 88 + CP_NEWGAMEMENUPIC, // 89 + CP_LOADMENUPIC, // 90 + CP_SAVEMENUPIC, // 91 + CP_CONFIGMENUPIC, // 92 + CP_SOUNDMENUPIC, // 93 + CP_MUSICMENUPIC, // 94 + CP_KEYBOARDMENUPIC, // 95 + CP_KEYMOVEMENTPIC, // 96 + CP_KEYBUTTONPIC, // 97 + CP_JOYSTICKMENUPIC, // 98 + CP_OPTIONSMENUPIC, // 99 + CP_PADDLEWARPIC, // 100 + CP_QUITPIC, // 101 + CP_JOYSTICKPIC, // 102 + CP_MENUSCREENPIC, // 103 + END_LUMP(CONTROLS_LUMP_END, __CONTROLSEND) + + IDSOFTPIC, // 104 + PROGTEAMPIC, // 105 + ARTISTPIC, // 106 + DIRECTORPIC, // 107 + SW_BACKGROUNDPIC, // 108 + TITLEPICPIC, // 109 + ORACLEPIC, // 110 + KEENTALK1PIC, // 111 + KEENTALK2PIC, // 112 + KEENMADPIC, // 113 + LINDSEYPIC, // 114 + KEENCOUNT1PIC, // 115 + KEENCOUNT2PIC, // 116 + KEENCOUNT3PIC, // 117 + KEENCOUNT4PIC, // 118 + KEENCOUNT5PIC, // 119 + KEENCOUNT6PIC, // 120 + + // + // MASKED PICS + // + + CP_MENUMASKPICM, // 121 + CORDPICM, // 122 + METALPOLEPICM, // 123 + + // + // SPRITES + // + + START_LUMP(PADDLE_LUMP_START, __PADDLESTART) + PADDLESPR, // 124 + BALLSPR, // 125 + BALL1PIXELTOTHERIGHTSPR, // 126 + BALL2PIXELSTOTHERIGHTSPR, // 127 + BALL3PIXELSTOTHERIGHTSPR, // 128 + END_LUMP(PADDLE_LUMP_END, __PADDLEEND) + + DEMOPLAQUESPR, // 129 + + //player lump: + START_LUMP(KEEN_LUMP_START, __KEENSTART) + KEENSTANDRSPR, // 130 + KEENRUNR1SPR, // 131 + KEENRUNR2SPR, // 132 + KEENRUNR3SPR, // 133 + KEENRUNR4SPR, // 134 + KEENJUMPR1SPR, // 135 + KEENJUMPR2SPR, // 136 + KEENJUMPR3SPR, // 137 + KEENSTANDLSPR, // 138 + KEENRUNL1SPR, // 139 + KEENRUNL2SPR, // 140 + KEENRUNL3SPR, // 141 + KEENRUNL4SPR, // 142 + KEENJUMPL1SPR, // 143 + KEENJUMPL2SPR, // 144 + KEENJUMPL3SPR, // 145 + KEENLOOKUSPR, // 146 + KEENWAITR1SPR, // 147 + KEENWAITR2SPR, // 148 + KEENWAITR3SPR, // 149 + KEENSITREAD1SPR, // 150 + KEENSITREAD2SPR, // 151 + KEENSITREAD3SPR, // 152 + KEENSITREAD4SPR, // 153 + KEENREAD1SPR, // 154 + KEENREAD2SPR, // 155 + KEENREAD3SPR, // 156 + KEENSTOPREAD1SPR, // 157 + KEENSTOPREAD2SPR, // 158 + KEENWATCHSPR, // 159 + KEENLOOKD1SPR, // 160 + KEENLOOKD2SPR, // 161 + KEENDIE1SPR, // 162 + KEENDIE2SPR, // 163 + STUNSTARS1SPR, // 164 + STUNSTARS2SPR, // 165 + STUNSTARS3SPR, // 166 + KEENSHOOTLSPR, // 167 + KEENJLSHOOTLSPR, // 168 + KEENJSHOOTDSPR, // 169 + KEENJSHOOTUSPR, // 170 + KEENSHOOTUSPR, // 171 + KEENSHOOTRSPR, // 172 + KEENJRSHOOTRSPR, // 173 + STUN1SPR, // 174 + STUN2SPR, // 175 + STUN3SPR, // 176 + STUN4SPR, // 177 + STUNHIT1SPR, // 178 + STUNHIT2SPR, // 179 + KEENSHINNYR1SPR, // 180 + KEENSHINNYR2SPR, // 181 + KEENSHINNYR3SPR, // 182 + KEENSLIDED1SPR, // 183 + KEENSLIDED2SPR, // 184 + KEENSLIDED3SPR, // 185 + KEENSLIDED4SPR, // 186 + KEENSHINNYL1SPR, // 187 + KEENSHINNYL2SPR, // 188 + KEENSHINNYL3SPR, // 189 + KEENPLSHOOTUSPR, // 190 + KEENPRSHOOTUSPR, // 191 + KEENPRSHOOTDSPR, // 192 + KEENPLSHOOTDSPR, // 193 + KEENPSHOOTLSPR, // 194 + KEENPSHOOTRSPR, // 195 + KEENENTER1SPR, // 196 + KEENENTER2SPR, // 197 + KEENENTER3SPR, // 198 + KEENENTER4SPR, // 199 + KEENENTER5SPR, // 200 + KEENHANGLSPR, // 201 + KEENHANGRSPR, // 202 + KEENCLIMBEDGEL1SPR, // 203 + KEENCLIMBEDGEL2SPR, // 204 + KEENCLIMBEDGEL3SPR, // 205 + KEENCLIMBEDGEL4SPR, // 206 + KEENCLIMBEDGER1SPR, // 207 + KEENCLIMBEDGER2SPR, // 208 + KEENCLIMBEDGER3SPR, // 209 + KEENCLIMBEDGER4SPR, // 210 + KEENPOGOR1SPR, // 211 + KEENPOGOR2SPR, // 212 + KEENPOGOL1SPR, // 213 + KEENPOGOL2SPR, // 214 + DROPSPLASH1SPR, // 215 + DROPSPLASH2SPR, // 216 + DROPSPLASH3SPR, // 217 + BONUS100UPSPR, // 218 + BONUS100SPR, // 219 + BONUS200SPR, // 220 + BONUS500SPR, // 221 + BONUS1000SPR, // 222 + BONUS2000SPR, // 223 + BONUS5000SPR, // 224 + BONUS1UPSPR, // 225 + BONUSCLIPSPR, // 226 + END_LUMP(KEEN_LUMP_END, __KEENEND) + + START_LUMP(SUGAR1_LUMP_START, __SUGAR1START) + SUGAR1ASPR, // 227 + SUGAR1BSPR, // 228 + END_LUMP(SUGAR1_LUMP_END, __SUGAR1END) + + START_LUMP(SUGAR2_LUMP_START, __SUGAR2START) + SUGAR2ASPR, // 229 + SUGAR2BSPR, // 230 + END_LUMP(SUGAR2_LUMP_END, __SUGAR2END) + + START_LUMP(SUGAR3_LUMP_START, __SUGAR3START) + SUGAR3ASPR, // 231 + SUGAR3BSPR, // 232 + END_LUMP(SUGAR3_LUMP_END, __SUGAR3END) + + START_LUMP(SUGAR4_LUMP_START, __SUGAR4START) + SUGAR4ASPR, // 233 + SUGAR4BSPR, // 234 + END_LUMP(SUGAR4_LUMP_END, __SUGAR4END) + + START_LUMP(SUGAR5_LUMP_START, __SUGAR5START) + SUGAR5ASPR, // 235 + SUGAR5BSPR, // 236 + END_LUMP(SUGAR5_LUMP_END, __SUGAR5END) + + START_LUMP(SUGAR6_LUMP_START, __SUGAR6START) + SUGAR6ASPR, // 237 + SUGAR6BSPR, // 238 + END_LUMP(SUGAR6_LUMP_END, __SUGAR6END) + + START_LUMP(ONEUP_LUMP_START, __ONEUPSTART) + ONEUPASPR, // 239 + ONEUPBSPR, // 240 + END_LUMP(ONEUP_LUMP_END, __ONEUPEND) + + DOORSPR, // 241 + + START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART) + REDGEM1SPR, // 242 + REDGEM2SPR, // 243 + YELLOWGEM1SPR, // 244 + YELLOWGEM2SPR, // 245 + BLUEGEM1SPR, // 246 + BLUEGEM2SPR, // 247 + GREENGEM1SPR, // 248 + GREENGEM2SPR, // 249 + BONUSGEMSPR, // 250 + END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND) + + START_LUMP(AMMO_LUMP_START, __AMMOSTART) + STUNCLIP1SPR, // 251 + STUNCLIP2SPR, // 252 + END_LUMP(AMMO_LUMP_END, __AMMOEND) + + SCOREBOXSPR, // 253 + + START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART) + WORLDKEENL1SPR, // 254 + WORLDKEENL2SPR, // 255 + WORLDKEENL3SPR, // 256 + WORLDKEENR1SPR, // 257 + WORLDKEENR2SPR, // 258 + WORLDKEENR3SPR, // 259 + WORLDKEENU1SPR, // 260 + WORLDKEENU2SPR, // 261 + WORLDKEENU3SPR, // 262 + WORLDKEEND1SPR, // 263 + WORLDKEEND2SPR, // 264 + WORLDKEEND3SPR, // 265 + WORLDKEENDR1SPR, // 266 + WORLDKEENDR2SPR, // 267 + WORLDKEENDR3SPR, // 268 + WORLDKEENDL1SPR, // 269 + WORLDKEENDL2SPR, // 270 + WORLDKEENDL3SPR, // 271 + WORLDKEENUL1SPR, // 272 + WORLDKEENUL2SPR, // 273 + WORLDKEENUL3SPR, // 274 + WORLDKEENUR1SPR, // 275 + WORLDKEENUR2SPR, // 276 + WORLDKEENUR3SPR, // 277 + WORLDKEENWAVE1SPR, // 278 + WORLDKEENWAVE2SPR, // 279 + WORLDKEENSWIMU1SPR, // 280 + WORLDKEENSWIMU2SPR, // 281 + WORLDKEENSWIMR1SPR, // 282 + WORLDKEENSWIMR2SPR, // 283 + WORLDKEENSWIMD1SPR, // 284 + WORLDKEENSWIMD2SPR, // 285 + WORLDKEENSWIML1SPR, // 286 + WORLDKEENSWIML2SPR, // 287 + WORLDKEENSWIMUR1SPR, // 288 + WORLDKEENSWIMUR2SPR, // 289 + WORLDKEENSWIMDR1SPR, // 290 + WORLDKEENSWIMDR2SPR, // 291 + WORLDKEENSWIMDL1SPR, // 292 + WORLDKEENSWIMDL2SPR, // 293 + WORLDKEENSWIMUL1SPR, // 294 + WORLDKEENSWIMUL2SPR, // 295 + WOLRDKEENRIDE1SPR, // 296 + WOLRDKEENRIDE2SPR, // 297 + FLAGFLIP1SPR, // 298 + FLAGFLIP2SPR, // 299 + FLAGFLIP3SPR, // 300 + FLAGFLIP4SPR, // 301 + FLAGFLIP5SPR, // 302 + FLAGFALL1SPR, // 303 + FLAGFALL2SPR, // 304 + FLAGFLAP1SPR, // 305 + FLAGFLAP2SPR, // 306 + FLAGFLAP3SPR, // 307 + FLAGFLAP4SPR, // 308 + END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND) + + START_LUMP(SCUBAKEEN_LUMP_START, __SCUBAKEENSTART) + SCUBAKEENL1SPR, // 309 + SCUBAKEENL2SPR, // 310 + SCUBAKEENR1SPR, // 311 + SCUBAKEENR2SPR, // 312 + SCUBAKEENDEAD1SPR, // 313 + SCUBAKEENDEAD2SPR, // 314 + END_LUMP(SCUBAKEEN_LUMP_END, __SCUBAKEENEND) + + START_LUMP(SLUG_LUMP_START, __SLUGSTART) + SLUGWALKR1SPR, // 315 + SLUGWALKR2SPR, // 316 + SLUGPISSRSPR, // 317 + SLUGSTUN1SPR, // 318 + SLUGSTUN2SPR, // 319 + SLUGWALKL1SPR, // 320 + SLUGWALKL2SPR, // 321 + SLUGPISSLSPR, // 322 + SLUGSLIME1SPR, // 323 + SLUGSLIME2SPR, // 324 + END_LUMP(SLUG_LUMP_END, __SLUGEND) + + START_LUMP(MADMUSHROOM_LUMP_START, __MADMUSHROOMSTART) + MADMUSHROOML1SPR, // 325 + MADMUSHROOML2SPR, // 326 + MADMUSHROOMR1SPR, // 327 + MADMUSHROOMR2SPR, // 328 + END_LUMP(MADMUSHROOM_LUMP_END, __MADMUSHROOMEND) + + START_LUMP(LINDSEY_LUMP_START, __LINDSEYSTART) + LINDSEY1SPR, // 329 + LINDSEY2SPR, // 330 + LINDSEY3SPR, // 331 + LINDSEY4SPR, // 332 + END_LUMP(LINDSEY_LUMP_END, __LINDSEYEND) + + START_LUMP(INCHWORM_LUMP_START, __INCHWORMSTART) + INCHWORMR1SPR, // 333 + INCHWORMR2SPR, // 334 + INCHWORML1SPR, // 335 + INCHWORML2SPR, // 336 + FOOTSPR, // 337 + END_LUMP(INCHWORM_LUMP_END, __INCHWORMEND) + + START_LUMP(EATER_LUMP_START, __EATERSTART) + EATERSTAND1SPR, // 338 + EATERSTAND2SPR, // 339 + EATERJUMPR1SPR, // 340 + EATERJUMPR2SPR, // 341 + EATERJUMPR3SPR, // 342 + EATERJUMPL1SPR, // 343 + EATERJUMPL2SPR, // 344 + EATERJUMPL3SPR, // 345 + EATENBONUS1SPR, // 346 + EATENBONUS2SPR, // 347 + EATENBONUS3SPR, // 348 + EATENBONUS4SPR, // 349 + SMOKE1SPR, // 350 + SMOKE2SPR, // 351 + SMOKE3SPR, // 352 + SMOKE4SPR, // 353 + SMOKE5SPR, // 354 + EATERSTUNSPR, // 355 + END_LUMP(EATER_LUMP_END, __EATEREND) + + START_LUMP(COUNCIL_LUMP_START, __COUINCILSTART) + COUNCILWALKR1SPR, // 356 + COUNCILWALKR2SPR, // 357 + COUNCILWALKL1SPR, // 358 + COUNCILWALKL2SPR, // 359 + COUNCILTHINKLSPR, // 360 + COUNCILTHINKRSPR, // 361 + END_LUMP(COUNCIL_LUMP_END, __COUNCILEND) + + START_LUMP(EGG_LUMP_START, __EGGSTART) + EGGSPR, // 362 + EGGBROKESPR, // 363 + EGGCHIP1SPR, // 364 + EGGCHIP2SPR, // 365 + EGGCHIP3SPR, // 366 + END_LUMP(EGG_LUMP_END, __EGGEND) + + START_LUMP(EGGBIRD_LUMP_START, __EGGBIRDSTART) + BIRDWALKR1SPR, // 367 + BIRDWALKR2SPR, // 368 + BIRDWALKR3SPR, // 369 + BIRDWALKR4SPR, // 370 + BIRDWALKL1SPR, // 371 + BIRDWALKL2SPR, // 372 + BIRDWALKL3SPR, // 373 + BIRDWALKL4SPR, // 374 + BIRDFLY1SPR, // 375 + BIRDFLY2SPR, // 376 + BIRDFLY3SPR, // 377 + BIRDFLY4SPR, // 378 + BIRDSTUNSPR, // 379 + END_LUMP(EGGBIRD_LUMP_END, __EGGBIRDEND) + + START_LUMP(DARTS_LUMP_START, __DARTSSTART) + DARTU1SPR, // 380 + DARTU2SPR, // 381 + DARTD1SPR, // 382 + DARTD2SPR, // 383 + DARTR1SPR, // 384 + DARTR2SPR, // 385 + DARTL1SPR, // 386 + DARTL2SPR, // 387 + END_LUMP(DARTS_LUMP_END, __DARTSEND) + + START_LUMP(MIMROCK_LUMP_START, __MIMROCKSTART) + MIMROCKSPR, // 388 + MIMROCKWALKL1SPR, // 389 + MIMROCKWALKL2SPR, // 390 + MIMROCKWALKL3SPR, // 391 + MIMROCKWALKL4SPR, // 392 + MIMROCKWALKR1SPR, // 393 + MIMROCKWALKR2SPR, // 394 + MIMROCKWALKR3SPR, // 395 + MIMROCKWALKR4SPR, // 396 + MIMROCKJUMPR1SPR, // 397 + MIMROCKJUMPR2SPR, // 398 + MIMROCKJUMPR3SPR, // 399 + MIMROCKJUMPL1SPR, // 400 + MIMROCKJUMPL2SPR, // 401 + MIMROCKJUMPL3SPR, // 402 + MINROCKSTUNSPR, // 403 + END_LUMP(MIMROCK_LUMP_END, __MIMROCKEND) + + START_LUMP(DOPEFISH_LUMP_START, __DOPEFISHSTART) + DOPEFISHSWIMR1SPR, // 404 + DOPEFISHSWIMR2SPR, // 405 + DOPEFISHHUNGRYRSPR, // 406 + DOPEFISHBURP1SPR, // 407 + DOPEFISHBURP2SPR, // 408 + BIGBUBBLE1SPR, // 409 + BIGBUBBLE2SPR, // 410 + BIGBUBBLE3SPR, // 411 + BIGBUBBLE4SPR, // 412 + SMALLBUBBLE1SPR, // 413 + SMALLBUBBLE2SPR, // 414 + SMALLBUBBLE3SPR, // 415 + SMALLBUBBLE4SPR, // 416 + MEDIUMBUBBLESPR, // 417 + DOPEFISHSWIML1SPR, // 418 + DOPEFISHSWIML2SPR, // 419 + DOPEFISHHUNGRYLSPR, // 420 + END_LUMP(DOPEFISH_LUMP_END, __DOPEFISHEND) + + START_LUMP(SCHOOLFISH_LUMP_START, __SCHOOLFISHSTART) + SCHOOLFISHL1SPR, // 421 + SCHOOLFISHL2SPR, // 422 + SCHOOLFISHR1SPR, // 423 + SCHOOLFISHR2SPR, // 424 + END_LUMP(SCHOOLFISH_LUMP_END, __SCHOOLFISHEND) + + START_LUMP(ARACHNUT_LUMP_START, __ARACHNUTSTART) + ARACHNUTWALK1SPR, // 425 + ARACHNUTWALK2SPR, // 426 + ARACHNUTWALK3SPR, // 427 + ARACHNUTWALK4SPR, // 428 + ARACHNUTSTUNSPR, // 429 + END_LUMP(ARACHNUT_LUMP_END, __ARACHNUTEND) + + SCUBASPR, // 430 + + START_LUMP(SPRITE_LUMP_START, __SPRITESTART) + SPRITEFLOATSPR, // 431 + SPRITEAIMLSPR, // 432 + SPRITESHOOTLSPR, // 433 + SPRITEAIMRSPR, // 434 + SPRITESHOOTRSPR, // 435 + SPRITESHOT1SPR, // 436 + SPRITESHOT2SPR, // 437 + SPRITESHOT3SPR, // 438 + SPRITESHOT4SPR, // 439 + END_LUMP(SPRITE_LUMP_END, __SPRITEEND) + + START_LUMP(MINE_LUMP_START, __MINESTART) + MINESPR, // 440 + MINEEXPLODE1SPR, // 441 + MINEEXPLODE2SPR, // 442 + END_LUMP(MINE_LUMP_END, __MINEEND) + + START_LUMP(SKYPEST_LUMP_START, __SKYPESTSTART) + SKYPESTFLYL1SPR, // 443 + SKYPESTFLYL2SPR, // 444 + SKYPESTFLYR1SPR, // 445 + SKYPESTFLYR2SPR, // 446 + SKYPESTSIT1SPR, // 447 + SKYPESTSIT2SPR, // 448 + SKYPESTSIT3SPR, // 449 + SKYPESTSIT4SPR, // 450 + SKYPESTSIT5SPR, // 451 + SKYPESTSIT6SPR, // 452 + SKYPESTSIT7SPR, // 453 + SKYPESTSIT8SPR, // 454 + SKYPESTSIT9SPR, // 455 + SKYPESTSQUASHEDSPR, // 456 + END_LUMP(SKYPEST_LUMP_END, __SKYPESTEND) + + START_LUMP(WORMOUTH_LUMP_START, __WORMOUTHSTART) + WORMOUTHSPR, // 457 + WORMOUTHPEEKR1SPR, // 458 + WORMOUTHPEEKR2SPR, // 459 + WORMOUTHPEEKL1SPR, // 460 + WORMOUTHPEEKL2SPR, // 461 + WORMOUTHBITER1SPR, // 462 + WORMOUTHBITER2SPR, // 463 + WORMOUTHBITER3SPR, // 464 + WORMOUTHBITEL1SPR, // 465 + WORMOUTHBITEL2SPR, // 466 + WORMOUTHBITEL3SPR, // 467 + WORMOUTHSTUNSPR, // 468 + END_LUMP(WORMOUTH_LUMP_END, __WORMOUTHEND) + + START_LUMP(LICK_LUMP_START, __LICKSTART) + LICKMOVER1SPR, // 469 + LICKMOVER2SPR, // 470 + LICKMOVER3SPR, // 471 + LICKMOVER4SPR, // 472 + LICKMOVEL1SPR, // 473 + LICKMOVEL2SPR, // 474 + LICKMOVEL3SPR, // 475 + LICKMOVEL4SPR, // 476 + LICKATTACKR1SPR, // 477 + LICKATTACKR2SPR, // 478 + LICKATTACKR3SPR, // 479 + LICKATTACKL1SPR, // 480 + LICKATTACKL2SPR, // 481 + LICKATTACKL3SPR, // 482 + LICKSTUNSPR, // 483 + END_LUMP(LICK_LUMP_END, __LICKEND) + + START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART) + PLATFORMSPR, // 484 + PLATSIDETHRUST1SPR, // 485 + PLATSIDETHRUST2SPR, // 486 + PLATRTHRUST1SPR, // 487 + PLATRTHRUST2SPR, // 488 + PLATLTHRUST1SPR, // 489 + PLATLTHRUST2SPR, // 490 + END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND) + + START_LUMP(BOUNDER_LUMP_START, __BOUNDERSTART) + BOUNDERL1SPR, // 491 + BOUNDERL2SPR, // 492 + BOUNDERR1SPR, // 493 + BOUNDERR2SPR, // 494 + BOUNDERC1SPR, // 495 + BOUNDERC2SPR, // 496 + BOUNDERSTUNSPR, // 497 + END_LUMP(BOUNDER_LUMP_END, __BOUNDEREND) + + START_LUMP(THUNDERCLOUD_LUMP_START, __THUNDERCLOUDSTART) + CLOUDSPR, // 498 + CLOUDACTIVESPR, // 499 + CLOUDCHARGESPR, // 500 + BOLT1SPR, // 501 + BOLT2SPR, // 502 + END_LUMP(THUNDERCLOUD_LUMP_END, __THUNDERCLOUDEND) + + START_LUMP(BERKELOID_LUMP_START, __BERKELOIDSTART) + BERKEWALKL1SPR, // 503 + BERKEWALKL2SPR, // 504 + BERKEWALKL3SPR, // 505 + BERKEWALKL4SPR, // 506 + BERKEWALKR1SPR, // 507 + BERKEWALKR2SPR, // 508 + BERKEWALKR3SPR, // 509 + BERKEWALKR4SPR, // 510 + BERKETHROWL1SPR, // 511 + BERKETHROWL2SPR, // 512 + BERKETHROWR1SPR, // 513 + BERKETHROWR2SPR, // 514 + FIREBALL1SPR, // 515 + FIREBALL2SPR, // 516 + FIREBALL3SPR, // 517 + FIREBALL4SPR, // 518 + END_LUMP(BERKELOID_LUMP_END, __BERKELOIDEND) + + START_LUMP(MOON_LUMP_START, __MOONSTART) + KEENMOON1SPR, // 519 + KEENMOON2SPR, // 520 + END_LUMP(MOON_LUMP_END, __MOONEND) + + // + // TILES (these don't need names) + // + + LASTTILE=STARTEXTERNS-1, + + // + // EXTERNS + // + + ORDERSCREEN, // 4735 + BIGCOMMANDER, // 4736 + BIGKEEN, // 4737 + OUTOFMEM, // 4738 + + //texts + T_HELPART, // 4739 + T_STORYART, // 4740 + T_CONTRART, // 4741 + T_IDART, // 4742 + T_ENDART, // 4743 + T_DEMOART, // 4744 + T_ORDERART, // 4745 + + //demos + DEMO0, // 4746 + DEMO1, // 4747 + DEMO2, // 4748 + DEMO3, // 4749 + DEMO4, // 4750 + + NUMGRCHUNKS +} graphicnums; + +#undef START_LUMP +#undef END_LUMP + +#endif //__GFX_H__ \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN4/ID_ASM.EQU b/16/keen456/KEEN4-6/KEEN4/ID_ASM.EQU new file mode 100755 index 00000000..6f755671 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/ID_ASM.EQU @@ -0,0 +1,115 @@ +; +; Equates for all .ASM files +; + +;---------------------------------------------------------------------------- + +INCLUDE "GFXE_CK4.EQU" + +;---------------------------------------------------------------------------- + +CGAGR = 1 +EGAGR = 2 +VGAGR = 3 + +GRMODE = EGAGR +PROFILE = 0 ; 1=keep stats on tile drawing + +SC_INDEX = 03C4h +SC_RESET = 0 +SC_CLOCK = 1 +SC_MAPMASK = 2 +SC_CHARMAP = 3 +SC_MEMMODE = 4 + +CRTC_INDEX = 03D4h +CRTC_H_TOTAL = 0 +CRTC_H_DISPEND = 1 +CRTC_H_BLANK = 2 +CRTC_H_ENDBLANK = 3 +CRTC_H_RETRACE = 4 +CRTC_H_ENDRETRACE = 5 +CRTC_V_TOTAL = 6 +CRTC_OVERFLOW = 7 +CRTC_ROWSCAN = 8 +CRTC_MAXSCANLINE = 9 +CRTC_CURSORSTART = 10 +CRTC_CURSOREND = 11 +CRTC_STARTHIGH = 12 +CRTC_STARTLOW = 13 +CRTC_CURSORHIGH = 14 +CRTC_CURSORLOW = 15 +CRTC_V_RETRACE = 16 +CRTC_V_ENDRETRACE = 17 +CRTC_V_DISPEND = 18 +CRTC_OFFSET = 19 +CRTC_UNDERLINE = 20 +CRTC_V_BLANK = 21 +CRTC_V_ENDBLANK = 22 +CRTC_MODE = 23 +CRTC_LINECOMPARE = 24 + + +GC_INDEX = 03CEh +GC_SETRESET = 0 +GC_ENABLESETRESET = 1 +GC_COLORCOMPARE = 2 +GC_DATAROTATE = 3 +GC_READMAP = 4 +GC_MODE = 5 +GC_MISCELLANEOUS = 6 +GC_COLORDONTCARE = 7 +GC_BITMASK = 8 + +ATR_INDEX = 03c0h +ATR_MODE = 16 +ATR_OVERSCAN = 17 +ATR_COLORPLANEENABLE = 18 +ATR_PELPAN = 19 +ATR_COLORSELECT = 20 + +STATUS_REGISTER_1 = 03dah + + +MACRO WORDOUT + out dx,ax +ENDM + +if 0 + +MACRO WORDOUT + out dx,al + inc dx + xchg al,ah + out dx,al + dec dx + xchg al,ah +ENDM + +endif + +UPDATEWIDE = 22 +UPDATEHIGH = 14 + +; +; tile info offsets from segment tinf +; + +ANIM = 402 +SPEED = (ANIM+NUMTILE16) + +NORTHWALL = (SPEED+NUMTILE16) +EASTWALL = (NORTHWALL+NUMTILE16M) +SOUTHWALL = (EASTWALL+NUMTILE16M) +WESTWALL = (SOUTHWALL+NUMTILE16M) +MANIM = (WESTWALL+NUMTILE16M) +INTILE = (MANIM+NUMTILE16M) +MSPEED = (INTILE+NUMTILE16M) + + +IFE GRMODE-EGAGR +SCREENWIDTH = 64 +ENDIF +IFE GRMODE-CGAGR +SCREENWIDTH = 128 +ENDIF diff --git a/16/keen456/KEEN4-6/KEEN4/ID_HEADS.H b/16/keen456/KEEN4-6/KEEN4/ID_HEADS.H new file mode 100755 index 00000000..1c42a6b6 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/ID_HEADS.H @@ -0,0 +1,109 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_GLOB.H + + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#define __ID_GLOB__ + +//-------------------------------------------------------------------------- + +#define KEEN +#define KEEN4 + +#define EXTENSION "CK4" + +extern char far introscn; + +#include "GFXE_CK4.H" +#include "AUDIOCK4.H" + +//-------------------------------------------------------------------------- + +#define TEXTGR 0 +#define CGAGR 1 +#define EGAGR 2 +#define VGAGR 3 + +#define GRMODE EGAGR + +#if GRMODE == EGAGR +#define GREXT "EGA" +#endif +#if GRMODE == CGAGR +#define GREXT "CGA" +#endif + +//#define PROFILE + +// +// ID Engine +// Types.h - Generic types, #defines, etc. +// v1.0d1 +// + +#ifndef __TYPES__ +#define __TYPES__ + +typedef enum {false,true} boolean; +typedef unsigned char byte; +typedef unsigned int word; +typedef unsigned long longword; +typedef byte * Ptr; + +typedef struct + { + int x,y; + } Point; +typedef struct + { + Point ul,lr; + } Rect; + +#define nil ((void *)0) + +#endif + +#include "ID_MM.H" +#include "ID_CA.H" +#include "ID_VW.H" +#include "ID_RF.H" +#include "ID_IN.H" +#include "ID_SD.H" +#include "ID_US.H" + + +void Quit (char *error); // defined in user program + diff --git a/16/keen456/KEEN4-6/KEEN4/K4_ACT1.C b/16/keen456/KEEN4-6/KEEN4/K4_ACT1.C new file mode 100755 index 00000000..f26104b1 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/K4_ACT1.C @@ -0,0 +1,1221 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K4_ACT1.C +========= + +Contains the following actor types (in this order): + +- Miragia (world map) +- Bonus Items +- Council Member +- Poison Slug +- Mad Mushroom +- Egg & Eggbird +- Arachnut +- Skypest + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + MIRAGIA + +============================================================================= +*/ + +statetype s_miragia0 = {0, 0, step, false, false, 300, 0, 0, T_Miragia0, NULL, NULL, &s_miragia1}; +statetype s_miragia1 = {0, 0, step, false, false, 30, 0, 0, T_Miragia1, NULL, NULL, &s_miragia2}; +statetype s_miragia2 = {0, 0, step, false, false, 30, 0, 0, T_Miragia2, NULL, NULL, &s_miragia3}; +statetype s_miragia3 = {0, 0, step, false, false, 30, 0, 0, T_Miragia3, NULL, NULL, &s_miragia4}; +statetype s_miragia4 = {0, 0, step, false, false, 300, 0, 0, T_Miragia4, NULL, NULL, &s_miragia5}; +statetype s_miragia5 = {0, 0, step, false, false, 30, 0, 0, T_Miragia5, NULL, NULL, &s_miragia6}; +statetype s_miragia6 = {0, 0, step, false, false, 30, 0, 0, T_Miragia6, NULL, NULL, &s_miragia7}; +statetype s_miragia7 = {0, 0, step, false, false, 30, 0, 0, T_Miragia7, NULL, NULL, &s_miragia0}; + +/* +=========================== += += SpawnMiragia += +=========================== +*/ + +void SpawnMiragia(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = inertobj; + new->active = ac_allways; + new->x = x; + new->y = y; + new->state = &s_miragia0; +} + +/* +=========================== += += T_Miragia0 += +=========================== +*/ + +void T_Miragia0(objtype *ob) +{ + if (player->tileright >= ob->x && player->tileleft <= ob->x+5 + && player->tiletop >= ob->y && player->tilebottom <= ob->y+4) + { + //don't let miragia appear if player is in the area, so player won't get stuck + ob->state = &s_miragia7; + } + else + { + RF_MapToMap(8, 60, ob->x, ob->y, 6, 4); + } +} + +/* +=========================== += += T_Miragia1 += +=========================== +*/ + +void T_Miragia1(objtype *ob) +{ + RF_MapToMap(14, 60, ob->x, ob->y, 6, 4); +} + +/* +=========================== += += T_Miragia2 += +=========================== +*/ + +void T_Miragia2(objtype *ob) +{ + RF_MapToMap(20, 60, ob->x, ob->y, 6, 4); +} + +/* +=========================== += += T_Miragia3 += +=========================== +*/ + +void T_Miragia3(objtype *ob) +{ + RF_MapToMap(26, 60, ob->x, ob->y, 6, 4); +} + +/* +=========================== += += T_Miragia4 += +=========================== +*/ + +void T_Miragia4(objtype *ob) +{ + RF_MapToMap(20, 60, ob->x, ob->y, 6, 4); +} + +/* +=========================== += += T_Miragia5 += +=========================== +*/ + +void T_Miragia5(objtype *ob) +{ + RF_MapToMap(14, 60, ob->x, ob->y, 6, 4); +} + +/* +=========================== += += T_Miragia6 += +=========================== +*/ + +void T_Miragia6(objtype *ob) +{ + RF_MapToMap(8, 60, ob->x, ob->y, 6, 4); +} + +/* +=========================== += += T_Miragia7 += +=========================== +*/ + +void T_Miragia7(objtype *ob) +{ + RF_MapToMap(2, 60, ob->x, ob->y, 6, 4); +} + +/* +============================================================================= + + BONUS ITEMS + +temp1 = bonus type +temp2 = base shape number +temp3 = last animated shape number +1 + +============================================================================= +*/ + +statetype s_bonus1 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus2}; +statetype s_bonus2 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus1}; +statetype s_bonusrise = {0, 0, slide, false, false, 40, 0, 8, NULL, NULL, R_Draw, NULL}; + +statetype s_splash1 = {DROPSPLASH1SPR, DROPSPLASH1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_splash2}; +statetype s_splash2 = {DROPSPLASH2SPR, DROPSPLASH2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_splash3}; +statetype s_splash3 = {DROPSPLASH3SPR, DROPSPLASH3SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL}; + +Uint16 bonusshape[] = {REDGEM1SPR, YELLOWGEM1SPR, BLUEGEM1SPR, GREENGEM1SPR, SUGAR1ASPR, SUGAR2ASPR, SUGAR3ASPR, SUGAR4ASPR, SUGAR5ASPR, SUGAR6ASPR, ONEUPASPR, STUNCLIP1SPR}; + +/* +=========================== += += SpawnBonus += +=========================== +*/ + +void SpawnBonus(Sint16 x, Sint16 y, Sint16 type) +{ + GetNewObj(false); + new->needtoclip = cl_noclip; + new->priority = 2; + new->obclass = bonusobj; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + new->ydir = -1; + new->temp1 = type; + new->temp2 = new->shapenum = bonusshape[type]; + new->temp3 = new->temp2 + 2; + NewState(new, &s_bonus1); +} + +/* +=========================== += += SpawnSplash += +=========================== +*/ + +void SpawnSplash(Sint16 x, Sint16 y) +{ + GetNewObj(true); + new->needtoclip = cl_noclip; + new->priority = 3; + new->obclass = inertobj; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + NewState(new, &s_splash1); +} + +/* +=========================== += += T_Bonus += +=========================== +*/ + +void T_Bonus(objtype *ob) +{ + ob->shapenum++; + if (ob->shapenum == ob->temp3) + ob->shapenum = ob->temp2; +} + +/* +============================================================================= + + COUNCIL MEMBER + +============================================================================= +*/ + +statetype s_councilwalk1 = {COUNCILWALKL1SPR, COUNCILWALKR1SPR, step, false, true, 10, 64, 0, T_Council, NULL, R_Walk, &s_councilwalk2}; +statetype s_councilwalk2 = {COUNCILWALKL2SPR, COUNCILWALKR2SPR, step, false, true, 10, 64, 0, T_Council, NULL, R_Walk, &s_councilwalk1}; +statetype s_councilstand = {COUNCILTHINKLSPR, COUNCILTHINKRSPR, step, false, false, 120, 128, 0, NULL, NULL, R_Draw, &s_councilwalk1}; + +/* +=========================== += += SpawnCouncil += +=========================== +*/ + +void SpawnCouncil(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = oracleobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) -0x171; //TODO: wierd + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_councilwalk1); +} + +/* +=========================== += += T_Council += +=========================== +*/ + +void T_Council(objtype *ob) +{ + Uint16 randnum; + + randnum = US_RndT(); + if (tics*8 > randnum) + { + // BUG: might be about to move off a ledge, causing it to get stuck + // after standing (the stand state doesn't use R_Walk)! + // To avoid that, set xtry to 0 here. + ob->state = &s_councilstand; + } +} + +/* +============================================================================= + + POINSON SLUG + +============================================================================= +*/ + +statetype s_slugwalk1 = {SLUGWALKL1SPR, SLUGWALKR1SPR, step, false, true, 8, 64, 0, NULL, C_Slug, R_WalkNormal, &s_slugwalk2}; +statetype s_slugwalk2 = {SLUGWALKL2SPR, SLUGWALKR2SPR, step, false, true, 8, 64, 0, T_Slug, C_Slug, R_WalkNormal, &s_slugwalk1}; +statetype s_slugpiss1 = {SLUGPISSLSPR, SLUGPISSRSPR, step, false, true, 60, 64, 0, T_SlugPiss, C_Slug, R_WalkNormal, &s_slugwalk1}; +statetype s_slugstun = {SLUGSTUN1SPR, SLUGSTUN1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; +statetype s_slugstunalt = {SLUGSTUN2SPR, SLUGSTUN2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; +statetype s_slugslime = {SLUGSLIME1SPR, SLUGSLIME1SPR, step, false, false, 300, 0, 0, NULL, C_Lethal, R_Draw, &s_slugslime2}; +statetype s_slugslime2 = {SLUGSLIME2SPR, SLUGSLIME2SPR, step, false, false, 60, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnSlug += +=========================== +*/ + +void SpawnSlug(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = slugobj; + new->active = ac_yes; + new->priority = 2; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) - 0x71; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_slugwalk1); +} + +/* +=========================== += += T_Slug += +=========================== +*/ + +void T_Slug(objtype *ob) +{ + if (US_RndT() < 16) + { + if (ob->x < player->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + ob->state = &s_slugpiss1; + SD_PlaySound(SND_SLUGPOO); + // Note: might be a good idea to set xtry to 0 here + } +} + +/* +=========================== += += T_SlugPiss += +=========================== +*/ + +void T_SlugPiss(objtype *ob) +{ + GetNewObj(true); + new->obclass = inertobj; + new->active = ac_removable; + new->priority = 0; + new->x = ob->x; + new->y = ob->bottom - 8*PIXGLOBAL; + NewState(new, &s_slugslime); +} + +/* +=========================== += += C_Slug += +=========================== +*/ + +void C_Slug(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + if (US_RndT() < 0x80) + { + StunObj(ob, hit, &s_slugstun); + } + else + { + StunObj(ob, hit, &s_slugstunalt); + } + ob->yspeed = -24; + ob->xspeed = ob->xdir*8; + } +} + +/* +============================================================================= + + MAD MUSHROOM + +temp1 = jump counter + +============================================================================= +*/ + +statetype s_mushroom1 = {MADMUSHROOML1SPR, MADMUSHROOMR1SPR, stepthink, false, false, 8, 0, 0, T_Mushroom, C_Mushroom, R_Mushroom, &s_mushroom2}; +statetype s_mushroom2 = {MADMUSHROOML2SPR, MADMUSHROOMR2SPR, stepthink, false, false, 8, 0, 0, T_Mushroom, C_Mushroom, R_Mushroom, &s_mushroom1}; + +/* +=========================== += += SpawnMadMushroom += +=========================== +*/ + +void SpawnMadMushroom(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = madmushroomobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) - 0xF1; + new->xdir = 1; + new->ydir = 1; + NewState(new, &s_mushroom1); +} + +/* +=========================== += += T_Mushroom += +=========================== +*/ + +void T_Mushroom(objtype *ob) +{ + if (player->x < ob->x) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } + + // BUG: this might be executed twice during the same frame if the + // object's animation/state changed during that frame, causing the + // object to move at twice the speed during that frame! + // To avoid that, return if ytry is not 0. + DoWeakGravity(ob); +} + +/* +=========================== += += C_Mushroom += +=========================== +*/ + +void C_Mushroom(objtype *ob, objtype *hit) +{ + ob++; // shut up compiler + if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + } + else if (hit->obclass == keenobj) + { + KillKeen(); + } +} + +/* +=========================== += += R_Mushroom += +=========================== +*/ + +void R_Mushroom(objtype *ob) +{ + if (ob->hitsouth) + ob->yspeed = 0; + + if (ob->hitnorth) + { + ob->yspeed = 0; + if (++ob->temp1 == 3) + { + ob->temp1 = 0; + ob->yspeed = -68; + SD_PlaySound(SND_BOUNCE2); + } + else + { + SD_PlaySound(SND_BOUNCE1); + ob->yspeed = -40; + } + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + EGGBIRD + +temp1 = blocked flag for flying eggbird (cannot change xdir to chase Keen + while this is non-zero) + +============================================================================= +*/ + +statetype s_egg = {EGGSPR, EGGSPR, think, false, true, 8, 0, 0, NULL, C_Egg, R_Draw, NULL}; +statetype s_eggbroke = {EGGBROKESPR, EGGBROKESPR, step, false, false, 30000, 0, 0, NULL, NULL, R_Draw, NULL}; +statetype s_eggchip1 = {EGGCHIP1SPR, EGGCHIP1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Chip, NULL}; +statetype s_eggchip2 = {EGGCHIP2SPR, EGGCHIP2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Chip, NULL}; +statetype s_eggchip3 = {EGGCHIP3SPR, EGGCHIP3SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Chip, NULL}; + +statetype s_eggbirdpause = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 120, 128, 0, NULL, C_EggbirdStun, R_Eggbird, &s_eggbirdwalk2}; +statetype s_eggbirdwalk1 = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 7, 128, 0, NULL, C_Eggbird, R_Eggbird, &s_eggbirdwalk2}; +statetype s_eggbirdwalk2 = {BIRDWALKL2SPR, BIRDWALKR2SPR, step, false, true, 7, 128, 0, NULL, C_Eggbird, R_Eggbird, &s_eggbirdwalk3}; +statetype s_eggbirdwalk3 = {BIRDWALKL3SPR, BIRDWALKR3SPR, step, false, true, 7, 128, 0, NULL, C_Eggbird, R_Eggbird, &s_eggbirdwalk4}; +statetype s_eggbirdwalk4 = {BIRDWALKL4SPR, BIRDWALKR4SPR, step, false, true, 7, 128, 0, T_Eggbird, C_Eggbird, R_Eggbird, &s_eggbirdwalk1}; +statetype s_eggbirdfly1 = {BIRDFLY1SPR, BIRDFLY1SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly2}; +statetype s_eggbirdfly2 = {BIRDFLY2SPR, BIRDFLY2SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly3}; +statetype s_eggbirdfly3 = {BIRDFLY3SPR, BIRDFLY3SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly4}; +statetype s_eggbirdfly4 = {BIRDFLY4SPR, BIRDFLY4SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly1}; +statetype s_eggbirddrop = {BIRDFLY4SPR, BIRDFLY4SPR, think, false, false, 8, 128, 0, T_WeakProjectile, C_Eggbird, R_EggbirdDrop, NULL}; +statetype s_eggbirdstun = {BIRDSTUNSPR, BIRDSTUNSPR, stepthink, false, false, 240, 0, 0, T_Projectile, C_EggbirdStun, R_Draw, &s_eggbirdstun2}; +statetype s_eggbirdstun2 = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 20, 0, 0, NULL, C_EggbirdStun, R_Draw, &s_eggbirdstun3}; +statetype s_eggbirdstun3 = {BIRDSTUNSPR, BIRDSTUNSPR, step, false, true, 20, 0, 0, NULL, C_EggbirdStun, R_Draw, &s_eggbirdstun4}; +statetype s_eggbirdstun4 = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 20, 0, 0, NULL, C_EggbirdStun, R_Draw, &s_eggbirdstun5}; +statetype s_eggbirdstun5 = {BIRDSTUNSPR, BIRDSTUNSPR, step, false, true, 20, 0, 0, T_EggUnstun, C_EggbirdStun, R_Draw, &s_eggbirdwalk1}; + +/* +=========================== += += SpawnEggbird += +=========================== +*/ + +void SpawnEggbird(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = eggobj; + new->active = ac_yes; + new->priority = 2; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) - 0x71; + new->xdir = 1; + new->ydir = 1; + NewState(new, &s_egg); +} + +/* +=========================== += += T_EggUnstun += +=========================== +*/ + +void T_EggUnstun(objtype *ob) +{ + ob->obclass = eggbirdobj; +} + +/* +=========================== += += SpawnEggbirdOut += +=========================== +*/ + +void SpawnEggbirdOut(Sint16 x, Sint16 y) +{ + GetNewObj(true); + new->obclass = eggbirdobj; + new->active = ac_yes; + new->priority = 2; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) - 0xF1; + if (new->x < player->x) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_eggbirdpause); +} + +/* +=========================== += += C_Egg += +=========================== +*/ + +void C_Egg(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj || hit->obclass == keenobj) + { + if (hit->obclass == stunshotobj) + ExplodeShot(hit); + + ob->obclass = inertobj; + ob->active = ac_removable; + ChangeState(ob, &s_eggbroke); + + GetNewObj(true); + new->obclass = eggbirdobj; + new->active = ac_yes; + new->x = ob->x; + new->y = ob->y - 8*PIXGLOBAL; + if (ob->x < player->x) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_eggbirdpause); + + GetNewObj(true); + new->obclass = inertobj; + new->active = ac_removable; + new->x = ob->x; + new->y = ob->y; + new->xspeed = -28; + new->yspeed = -40; + NewState(new, &s_eggchip1); + + GetNewObj(true); + new->obclass = inertobj; + new->active = ac_removable; + new->x = ob->x; + new->y = ob->y; + new->xspeed = 28; + new->yspeed = -40; + NewState(new, &s_eggchip2); + + GetNewObj(true); + new->obclass = inertobj; + new->active = ac_removable; + new->x = ob->x; + new->y = ob->y; + new->xspeed = 0; + new->yspeed = -56; + NewState(new, &s_eggchip3); + } +} + +/* +=========================== += += T_Eggbird += +=========================== +*/ + +void T_Eggbird(objtype *ob) +{ + if (ob->x < player->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + if (ob->bottom >= player->bottom + 3*TILEGLOBAL && player->hitnorth + && StatePositionOk(ob, &s_eggbirdfly1)) // BUG: StatePositionOk() only works for normal clipping, not for full clipping + { + // Note: might be a good idea to set xtry to 0 here + ob->state = &s_eggbirdfly1; + ob->needtoclip = cl_fullclip; + ob->yspeed = -8; + ob->temp1 = 0; + } +} + +/* +=========================== += += T_EggbirdFly += +=========================== +*/ + +void T_EggbirdFly(objtype *ob) +{ + if (ob->temp1 == 0) + { + if (ob->x < player->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + } + AccelerateXv(ob, ob->xdir, 16); + if (ob->y < player->y) + { + AccelerateY(ob, 1, 16); + } + else + { + AccelerateY(ob, -1, 16); + } +} + +/* +=========================== += += C_Eggbird += +=========================== +*/ + +void C_Eggbird(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + ob->xspeed = 0; + ob->needtoclip = cl_midclip; + StunObj(ob, hit, &s_eggbirdstun); + } +} + +/* +=========================== += += C_EggbirdStun += +=========================== +*/ + +void C_EggbirdStun(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + ob->xspeed = 0; + StunObj(ob, hit, &s_eggbirdstun); + } +} + +/* +=========================== += += R_Eggbird += +=========================== +*/ + +void R_Eggbird(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + if (!ob->hitnorth) + { + ob->yspeed = -16; + ob->needtoclip = cl_fullclip; + ChangeState(ob, &s_eggbirdfly1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_EggbirdDrop += +=========================== +*/ + +void R_EggbirdDrop(objtype *ob) //never actually used +{ + if (ob->hitnorth) + { + ChangeState(ob, &s_eggbirdwalk1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_Chip += +=========================== +*/ + +void R_Chip(objtype *ob) +{ + if (ob->hitnorth) + ob->xspeed = ob->yspeed = 0; + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_Eggbirdfly += +=========================== +*/ + +void R_Eggbirdfly(objtype *ob) +{ + statetype *oldstate; + + if ((ob->hitsouth || ob->hitnorth) && !ob->temp1) + ob->temp1++; + + if (ob->hiteast && ob->xspeed < 0 || ob->hitwest && ob->xspeed > 0) + { + ob->xspeed = 0; + ob->xdir = -ob->xdir; + } + if (ob->hitnorth == 1 && player->bottom - ob->bottom < 8*PIXGLOBAL) // BUG? unsigned comparison! + { + oldstate = ob->state; + ob->needtoclip = cl_midclip; + ChangeState(ob, &s_eggbirdwalk1); + xtry = 0; + ytry = 8*PIXGLOBAL; + PushObj(ob); + if (!ob->hitnorth) + { + ob->needtoclip = cl_fullclip; + ChangeState(ob, oldstate); + } + return; // BUG: sprite isn't updated + } + + if (!ob->hitsouth && !ob->hitnorth) + ob->temp1 = 0; + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + ARACHNUT + +============================================================================= +*/ + +statetype s_arach1 = {ARACHNUTWALK1SPR, ARACHNUTWALK4SPR, step, false, true, 6, 128, 0, NULL, C_Arach, R_Walk, &s_arach2}; +statetype s_arach2 = {ARACHNUTWALK2SPR, ARACHNUTWALK3SPR, step, false, true, 6, 128, 0, NULL, C_Arach, R_Walk, &s_arach3}; +statetype s_arach3 = {ARACHNUTWALK3SPR, ARACHNUTWALK2SPR, step, false, true, 6, 128, 0, NULL, C_Arach, R_Walk, &s_arach4}; +statetype s_arach4 = {ARACHNUTWALK4SPR, ARACHNUTWALK1SPR, step, false, true, 6, 128, 0, T_Arach, C_Arach, R_Walk, &s_arach1}; +statetype s_arachstun = {ARACHNUTSTUNSPR, ARACHNUTSTUNSPR, step, false, true, 240, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun2}; +statetype s_arachstun2 = {ARACHNUTWALK1SPR, ARACHNUTWALK1SPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun3}; +statetype s_arachstun3 = {ARACHNUTSTUNSPR, ARACHNUTSTUNSPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun4}; +statetype s_arachstun4 = {ARACHNUTWALK1SPR, ARACHNUTWALK1SPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun5}; +statetype s_arachstun5 = {ARACHNUTSTUNSPR, ARACHNUTSTUNSPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arach1}; + +/* +=========================== += += SpawnArachnut += +=========================== +*/ + +void SpawnArachnut(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = arachnutobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) - 0x171; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_arach1); +} + +/* +=========================== += += T_Arach += +=========================== +*/ + +void T_Arach(objtype *ob) +{ + if (ob->x > player->x) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } +} + +/* +=========================== += += C_Arach += +=========================== +*/ + +void C_Arach(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + StunObj(ob, hit, &s_arachstun); + } + else if (hit->obclass == keenobj) + { + KillKeen(); + } +} + +/* +=========================== += += C_ArachStun += +=========================== +*/ + +void C_ArachStun(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + StunObj(ob, hit, &s_arachstun); + } +} + +/* +============================================================================= + + SKYPEST + +============================================================================= +*/ + +statetype s_pestfly1 = {SKYPESTFLYL1SPR, SKYPESTFLYR1SPR, stepthink, true, false, 5, 0, 0, T_PestFly, C_PestFly, R_Pest, &s_pestfly2}; +statetype s_pestfly2 = {SKYPESTFLYL2SPR, SKYPESTFLYR2SPR, stepthink, true, false, 5, 0, 0, T_PestFly, C_PestFly, R_Pest, &s_pestfly1}; +statetype s_squashedpest = {SKYPESTSQUASHEDSPR, SKYPESTSQUASHEDSPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, &s_squashedpest}; +statetype s_pestrest1 = {SKYPESTSIT9SPR, SKYPESTSIT9SPR, step, false, false, 100, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest2}; +statetype s_pestrest2 = {SKYPESTSIT1SPR, SKYPESTSIT1SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest3}; +statetype s_pestrest3 = {SKYPESTSIT2SPR, SKYPESTSIT2SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest4}; +statetype s_pestrest4 = {SKYPESTSIT3SPR, SKYPESTSIT3SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest5}; +statetype s_pestrest5 = {SKYPESTSIT4SPR, SKYPESTSIT4SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest6}; +statetype s_pestrest6 = {SKYPESTSIT3SPR, SKYPESTSIT3SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest7}; +statetype s_pestrest7 = {SKYPESTSIT2SPR, SKYPESTSIT2SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest8}; +statetype s_pestrest8 = {SKYPESTSIT1SPR, SKYPESTSIT1SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest9}; +statetype s_pestrest9 = {SKYPESTSIT9SPR, SKYPESTSIT9SPR, step, false, false, 60, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest10}; +statetype s_pestrest10 = {SKYPESTSIT5SPR, SKYPESTSIT5SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest11}; +statetype s_pestrest11 = {SKYPESTSIT6SPR, SKYPESTSIT6SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest12}; +statetype s_pestrest12 = {SKYPESTSIT7SPR, SKYPESTSIT7SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest13}; +statetype s_pestrest13 = {SKYPESTSIT8SPR, SKYPESTSIT8SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest14}; +statetype s_pestrest14 = {SKYPESTSIT7SPR, SKYPESTSIT7SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest15}; +statetype s_pestrest15 = {SKYPESTSIT6SPR, SKYPESTSIT6SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest16}; +statetype s_pestrest16 = {SKYPESTSIT5SPR, SKYPESTSIT5SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest17}; +statetype s_pestrest17 = {SKYPESTSIT9SPR, SKYPESTSIT9SPR, step, false, false, 100, 0, 0, T_PestRest, C_Squashable, R_Draw, &s_pestfly1}; + +/* +=========================== += += SpawnSkypest += +=========================== +*/ + +void SpawnSkypest(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = skypestobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + if (US_RndT() < 0x80) + { + new->ydir = 1; + } + else + { + new->ydir = -1; + } + NewState(new, &s_pestfly1); +} + +/* +=========================== += += T_PestFly += +=========================== +*/ + +void T_PestFly(objtype *ob) +{ + // BUG: this might be executed twice during the same frame if the + // object's animation/state changed during that frame, causing the + // object to move at twice the speed during that frame! + // To avoid that, return if xtry is not 0 or ytry is not 0. + + if (US_RndT() < tics) + ob->xdir = -ob->xdir; + + if (ob->ydir == -1 && US_RndT() < tics) + ob->ydir = 1; + + if (ob->ydir == 1 && US_RndT() < tics*2) + ob->ydir = -ob->ydir; + + AccelerateX(ob, ob->xdir, 20); + AccelerateY(ob, ob->ydir, 20); +} + +/* +=========================== += += C_PestFly += +=========================== +*/ + +void C_PestFly(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + KillKeen(); + + if (hit->obclass == stunshotobj) + { + if (hit->xdir == 1) + { + ob->xspeed = 20; + } + else if (hit->xdir == -1) + { + ob->xspeed = -20; + } + else if (hit->ydir == 1) + { + ob->yspeed = 20; + } + else if (hit->ydir == -1) + { + ob->yspeed = -20; + } + ExplodeShot(hit); + } +} + +/* +=========================== += += C_Squashable += +=========================== +*/ + +void C_Squashable(objtype *ob, objtype *hit) +{ + if (hit->state == &s_keenpogodown || hit->state == &s_keenpogo || hit->state == &s_keenpogo2) + { + ChangeState(ob, &s_squashedpest); + SD_PlaySound(SND_SQUISH); + ob->obclass = inertobj; + } +} + +/* +=========================== += += T_PestRest += +=========================== +*/ + +void T_PestRest(objtype *ob) +{ + ob->ydir = -1; + ob->yspeed = -16; + ytry = -144; +} + +/* +=========================== += += R_Pest += +=========================== +*/ + +void R_Pest(objtype *ob) +{ + if (ob->hitsouth) + { + ob->yspeed = 8; + ob->ydir = 1; + } + if (ob->hitnorth && !ob->hiteast && !ob->hitwest) + { + ob->y += 8*PIXGLOBAL; + ChangeState(ob, &s_pestrest1); + } + if (ob->hitwest) + { + ob->xspeed = 0; + ob->xdir = -1; + } + if (ob->hiteast) + { + ob->xspeed = 0; + ob->xdir = 1; + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} diff --git a/16/keen456/KEEN4-6/KEEN4/K4_ACT2.C b/16/keen456/KEEN4-6/KEEN4/K4_ACT2.C new file mode 100755 index 00000000..41b0ad95 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/K4_ACT2.C @@ -0,0 +1,1392 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K4_ACT2.C +========= + +Contains the following actor types (in this order): + +- Wormouth +- Thundercloud & Lightning +- Berkeloid & Fireball +- Inchworm & Foot (in-level) +- Bounder +- Lick +- Platform +- Dropping Platform + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + WORMOUTH + +============================================================================= +*/ + +statetype s_worm = {WORMOUTHSPR, WORMOUTHSPR, slide, true, true, 4, 16, 0, T_Worm, NULL, R_Walk, &s_worm}; +statetype s_wormpeek1 = {WORMOUTHPEEKL1SPR, WORMOUTHPEEKL1SPR, step, false, false, 20, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek2}; +statetype s_wormpeek2 = {WORMOUTHPEEKL2SPR, WORMOUTHPEEKL2SPR, step, false, false, 8, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek3}; +statetype s_wormpeek3 = {WORMOUTHPEEKL1SPR, WORMOUTHPEEKL1SPR, step, false, false, 20, 0, 0, T_WormLookLeft, C_Worm, R_Draw, &s_wormpeek4}; +statetype s_wormpeek4 = {WORMOUTHSPR, WORMOUTHSPR, step, false, false, 8, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek5}; +statetype s_wormpeek5 = {WORMOUTHPEEKR1SPR, WORMOUTHPEEKR1SPR, step, false, false, 20, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek6}; +statetype s_wormpeek6 = {WORMOUTHPEEKR2SPR, WORMOUTHPEEKR2SPR, step, false, false, 8, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek7}; +statetype s_wormpeek7 = {WORMOUTHPEEKR1SPR, WORMOUTHPEEKR1SPR, step, false, false, 20, 0, 0, T_WormLookRight, C_Worm, R_Draw, &s_wormpeek8}; +statetype s_wormpeek8 = {WORMOUTHSPR, WORMOUTHSPR, step, false, false, 8, 0, 0, T_WormLook, NULL, R_Draw, &s_worm}; +statetype s_wormbite1 = {WORMOUTHBITEL1SPR, WORMOUTHBITER1SPR, step, false, false, 8, 0, 0, NULL, C_WormKill, R_Draw, &s_wormbite2}; +statetype s_wormbite2 = {WORMOUTHBITEL2SPR, WORMOUTHBITER2SPR, step, false, false, 8, 0, 0, NULL, C_WormKill, R_Draw, &s_wormbite3}; +statetype s_wormbite3 = {WORMOUTHBITEL3SPR, WORMOUTHBITER3SPR, step, false, false, 16, 0, 0, NULL, C_WormKill, R_Draw, &s_wormbite4}; +statetype s_wormbite4 = {WORMOUTHBITEL2SPR, WORMOUTHBITER2SPR, step, false, false, 8, 0, 0, NULL, C_WormKill, R_Draw, &s_wormbite5}; +statetype s_wormbite5 = {WORMOUTHBITEL1SPR, WORMOUTHBITER1SPR, step, false, false, 8, 0, 0, NULL, C_WormKill, R_Draw, &s_worm}; +statetype s_wormstun = {WORMOUTHSTUNSPR, WORMOUTHSTUNSPR, think, false, false, 10, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnWormMouth += +=========================== +*/ + +void SpawnWormMouth(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = wormouthobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) + 0x8F; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_worm); +} + +/* +=========================== += += T_WormLookRight += +=========================== +*/ + +void T_WormLookRight(objtype *ob) +{ + if (player->x > ob->x) + { + ob->xdir = 1; + ob->state = &s_worm; + } +} + +/* +=========================== += += T_WormLook += +=========================== +*/ + +void T_WormLook(objtype *ob) +{ + if (player->x > ob->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } +} + +/* +=========================== += += T_WormLookLeft += +=========================== +*/ + +void T_WormLookLeft(objtype *ob) +{ + if (player->x < ob->x) + { + ob->xdir = -1; + ob->state = &s_worm; + } +} + +/* +=========================== += += T_Worm += +=========================== +*/ + +void T_Worm(objtype *ob) +{ + Sint16 xdist, ydist; + + xdist = player->x - ob->x; + ydist = player->bottom - ob->bottom; + if ((xdist < -3*TILEGLOBAL || xdist > 3*TILEGLOBAL) && US_RndT() < 6) + { + ob->state = &s_wormpeek1; + } + else if (ydist >= -TILEGLOBAL && ydist <= TILEGLOBAL) + { + if (ob->xdir == 1 && xdist > 8*PIXGLOBAL && xdist < 24*PIXGLOBAL + || ob->xdir == -1 && xdist < -8*PIXGLOBAL && xdist > -32*PIXGLOBAL) + { + SD_PlaySound(SND_WORMOUTHATTACK); + ob->state = &s_wormbite1; + } + } +} + +/* +=========================== += += C_Worm += +=========================== +*/ + +void C_Worm(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + StunObj(ob, hit, &s_wormstun); + } +} + +/* +=========================== += += C_WormKill += +=========================== +*/ + +void C_WormKill(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + if (!(ob->xdir == 1 && ob->x > hit->x || ob->xdir == -1 && ob->x < hit->x)) + { + KillKeen(); + } + return; + } + else + { + C_Worm(ob, hit); + } +} + +/* +============================================================================= + + THUNDERCLOUD + +============================================================================= +*/ + +statetype s_cloudsleep = {CLOUDSPR, CLOUDSPR, think, false, false, 20, 0, 0, NULL, C_CloudSleep, R_Draw, NULL}; +statetype s_cloudwake = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 100, 0, 0, NULL, NULL, R_Cloud, &s_cloud}; +statetype s_cloud = {CLOUDACTIVESPR, CLOUDACTIVESPR, think, false, false, 20, 0, 0, T_Cloud, NULL, R_Cloud, NULL}; +statetype s_cloudalign = {CLOUDACTIVESPR, CLOUDACTIVESPR, think, false, false, 20, 0, 0, T_CloudAlign, NULL, R_Cloud, NULL}; +statetype s_cloudcharge = {CLOUDACTIVESPR, CLOUDACTIVESPR, stepthink, false, false, 60, 0, 0, T_Velocity, NULL, R_Cloud, &s_cloud}; +statetype s_cloudattack1 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack2}; +statetype s_cloudattack2 = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack3}; +statetype s_cloudattack3 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack4}; +statetype s_cloudattack4 = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 10, 0, 0, T_CloudShoot, NULL, R_Draw, &s_cloudattack5}; +statetype s_cloudattack5 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack6}; +statetype s_cloudattack6 = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack7}; +statetype s_cloudattack7 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack8}; +statetype s_cloudattack8 = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack9}; +statetype s_cloudattack9 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 48, 0, 0, NULL, NULL, R_Draw, &s_cloudcharge}; + +statetype s_bolt1 = {BOLT1SPR, BOLT1SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt2}; +statetype s_bolt2 = {BOLT2SPR, BOLT2SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt3}; +statetype s_bolt3 = {BOLT1SPR, BOLT1SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt4}; +statetype s_bolt4 = {BOLT2SPR, BOLT2SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt5}; +statetype s_bolt5 = {BOLT1SPR, BOLT1SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt6}; +statetype s_bolt6 = {BOLT2SPR, BOLT2SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, NULL}; + +/* +=========================== += += SpawnCloudster += +=========================== +*/ + +void SpawnCloudster(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = thundercloudobj; + new->active = ac_yes; + new->priority = 2; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + new->ydir = new->xdir = 1; + NewState(new, &s_cloudsleep); +} + +/* +=========================== += += T_Cloud += +=========================== +*/ + +void T_Cloud(objtype *ob) +{ + if (US_RndT() < tics) + ob->xdir = ob->x > player->x? -1 : 1; + + AccelerateX(ob, ob->xdir, 10); + if (player->bottom < ob->bottom || (Sint16)(player->top - ob->bottom) > 64*PIXGLOBAL) + return; + if (ob->left < player->right && ob->right > player->left) + { + ob->state = &s_cloudalign; + } +} + +/* +=========================== += += T_CloudAlign += +=========================== +*/ + +void T_CloudAlign(objtype *ob) +{ + AccelerateX(ob, ob->xdir, 10); + if (xtry < 0 && (Sint16)((ob->x & 0x7F) + xtry) <= 0) + { + xtry = -(ob->x & 0x7F); + ob->state = &s_cloudattack1; + } + if (xtry > 0 && (ob->x & 0x7F) + xtry >= 8*PIXGLOBAL) + { + xtry = 8*PIXGLOBAL - (ob->x & 0x7F); + ob->state = &s_cloudattack1; + } +} + +/* +=========================== += += R_Cloud += +=========================== +*/ + +void R_Cloud(objtype *ob) +{ + if (ob->hitwest) + { + ob->xspeed = 0; + ob->xdir = -1; + } + else if (ob->hiteast) + { + ob->xspeed = 0; + ob->xdir = 1; + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += T_CloudShoot += +=========================== +*/ + +void T_CloudShoot(objtype *ob) +{ + GetNewObj(true); + new->obclass = lightningobj; + new->active = ac_removable; + new->needtoclip = cl_noclip; + new->x = ob->x + TILEGLOBAL; + new->y = ob->y + TILEGLOBAL; + NewState(new, &s_bolt1); + SD_PlaySound(SND_THUNDER); +} + +/* +=========================== += += C_CloudSleep += +=========================== +*/ + +void C_CloudSleep(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + ChangeState(ob, &s_cloudwake); + } +} + +/* +============================================================================= + + BERKELOID + +temp1 = float offset, in global units (added to ob->y when drawing the sprite) +temp2 = float speed, in global units per tic (added to temp1 for every tic) + +============================================================================= +*/ + +statetype s_berkefloat1 = {BERKEWALKL1SPR, BERKEWALKR1SPR, slide, false, true, 6, 8, 0, BerkeThink, C_Berke, BerkeWalkReact, &s_berkefloat2}; +statetype s_berkefloat2 = {BERKEWALKL2SPR, BERKEWALKR2SPR, slide, false, true, 6, 8, 0, BerkeThink, C_Berke, BerkeWalkReact, &s_berkefloat3}; +statetype s_berkefloat3 = {BERKEWALKL3SPR, BERKEWALKR3SPR, slide, false, true, 6, 8, 0, BerkeThink, C_Berke, BerkeWalkReact, &s_berkefloat4}; +statetype s_berkefloat4 = {BERKEWALKL4SPR, BERKEWALKR4SPR, slide, false, true, 6, 8, 0, BerkeThink, C_Berke, BerkeWalkReact, &s_berkefloat1}; +statetype s_berkethrow1 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow2}; +statetype s_berkethrow2 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow3}; +statetype s_berkethrow3 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow4}; +statetype s_berkethrow4 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow5}; +statetype s_berkethrow5 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow6}; +statetype s_berkethrow6 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, BerkeThrowThink, C_Berke, BerkeDrawReact, &s_berkethrow7}; +statetype s_berkethrow7 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow8}; +statetype s_berkethrow8 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow9}; +statetype s_berkethrow9 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow10}; +statetype s_berkethrow10 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow11}; +statetype s_berkethrow11 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow12}; +statetype s_berkethrow12 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, BerkeThrowDone, C_Berke, BerkeDrawReact, &s_berkefloat1}; + +statetype s_fire1 = {FIREBALL1SPR, FIREBALL1SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Lethal, FireReact, &s_fire2}; +statetype s_fire2 = {FIREBALL2SPR, FIREBALL2SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Lethal, FireReact, &s_fire1}; +statetype s_fireland1 = {FIREBALL1SPR, FIREBALL1SPR, step, false, false, 6, 0, 0, NULL, C_Berke, R_Draw, &s_fireland2}; +statetype s_fireland2 = {FIREBALL3SPR, FIREBALL3SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland3}; +statetype s_fireland3 = {FIREBALL4SPR, FIREBALL4SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland4}; +statetype s_fireland4 = {FIREBALL3SPR, FIREBALL3SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland5}; +statetype s_fireland5 = {FIREBALL4SPR, FIREBALL4SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland6}; +statetype s_fireland6 = {FIREBALL1SPR, FIREBALL1SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland7}; +statetype s_fireland7 = {FIREBALL2SPR, FIREBALL2SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland8}; +statetype s_fireland8 = {FIREBALL1SPR, FIREBALL1SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland9}; +statetype s_fireland9 = {FIREBALL2SPR, FIREBALL2SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, NULL}; + +/* +=========================== += += SpawnBerkeloid += +=========================== +*/ + +void SpawnBerkeloid(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = berkeloidobj; + new->active = ac_yes; + new->priority = 2; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) + -2*TILEGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + new->temp2 = 8; + NewState(new, &s_berkefloat1); +} + + +/* +=========================== += += BerkeThink += +=========================== +*/ + +void BerkeThink(objtype *ob) +{ + Sint16 xdist, ydist; + + if (US_RndT() < 0x20) + ob->xdir = player->x < ob->x? -1 : 1; + + if (US_RndT() < 8) + { + // BUG: might be about to move off a ledge, causing it to get stuck + // after throwing (the throw states don't use BerkeWalkReact)! + // To avoid that, set xtry to 0 here. + + ob->state = &s_berkethrow1; + // BUG? this doesn't play the attack sound + } + else if (US_RndT() <= 0x40) + { + xdist = player->x - ob->x; + ydist = player->y - ob->y; + if (ydist >= -TILEGLOBAL && ydist <= TILEGLOBAL + && (ob->xdir == 1 && xdist > 0 || ob->xdir == -1 && xdist < 0)) + { + // BUG: might be about to move off a ledge, causing it to get stuck + // after throwing (the throw states don't use BerkeWalkReact)! + // To avoid that, set xtry to 0 here. + + ob->state = &s_berkethrow1; + SD_PlaySound(SND_BERKELOIDATTACK); + } + } +} + +/* +=========================== += += BerkeThrowThink += +=========================== +*/ + +void BerkeThrowThink(objtype *ob) +{ + GetNewObj(true); + new->active = ac_removable; + new->obclass = berkeloidobj; + new->y = ob->y + 8*PIXGLOBAL; + new->yspeed = -8; + if (ob->xdir == 1) + { + new->xspeed = 48; + new->x = ob->x + 32*PIXGLOBAL; + new->xdir = 1; + } + else + { + new->xspeed = -48; + new->x = ob->x - 16*PIXGLOBAL; + new->xdir = -1; + } + NewState(new, &s_fire1); + ob->needtoreact = true; +} + +/* +=========================== += += BerkeThrowDone += +=========================== +*/ + +void BerkeThrowDone(objtype *ob) +{ + ob->nothink = 4; + ob->needtoreact = true; +} + +/* +=========================== += += C_Berke += +=========================== +*/ + +void C_Berke(objtype *ob, objtype *hit) +{ + ob++; // shut up compiler + if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + } + else if (hit->obclass == keenobj) + { + KillKeen(); + } +} + +/* +=========================== += += FireReact += +=========================== +*/ + +void FireReact(objtype *ob) +{ + if (ob->hiteast || ob->hitwest) + ob->xspeed = 0; + + if (ob->hitnorth) + { + SD_PlaySound(SND_FIREBALLLAND); + ChangeState(ob, &s_fireland1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += BerkeDrawReact += +=========================== +*/ + +void BerkeDrawReact(objtype *ob) +{ + //float up & down: + ob->temp1 = ob->temp1 + ob->temp2 * tics; + if (ob->temp1 > 0) + { + ob->temp1 = 0; + ob->temp2 = -8; + } + else if (ob->temp1 < -TILEGLOBAL) + { + ob->temp1 = -TILEGLOBAL; + ob->temp2 = 8; + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y+ob->temp1, ob->shapenum, spritedraw, 0); +} + +/* +=========================== += += BerkeWalkReact += +=========================== +*/ + +void BerkeWalkReact(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (!ob->hitnorth) + { + ob->x -= ob->xmove*2; + ob->xdir = -ob->xdir; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + BerkeDrawReact(ob); +} + +/* +============================================================================= + + INCHWORM & FOOT + +temp1 = last lasttimecount (for resetting the touch counter after each frame) +temp2 = touch counter + +============================================================================= +*/ + +statetype s_footsmoke1 = {SMOKE1SPR, SMOKE1SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_footsmoke2}; +statetype s_footsmoke2 = {SMOKE2SPR, SMOKE2SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_footsmoke3}; +statetype s_footsmoke3 = {SMOKE3SPR, SMOKE3SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_footsmoke4}; +statetype s_footsmoke4 = {SMOKE4SPR, SMOKE4SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, NULL}; +statetype s_inch1 = {INCHWORML1SPR, INCHWORMR1SPR, step, false, true, 30, 128, 0, InchThink, InchContact, R_Walk, &s_inch2}; +statetype s_inch2 = {INCHWORML2SPR, INCHWORMR2SPR, step, false, true, 30, 128, 0, InchThink, InchContact, R_Walk, &s_inch1}; +statetype s_footchange = { -1, -1, step, false, false, 48, 0, 0, NULL, NULL, R_Draw, &s_footwait}; //never used! +statetype s_footwait = {FOOTSPR, FOOTSPR, think, false, false, 30000, 0, 0, NULL, FootContact, R_Draw, NULL}; + +/* +=========================== += += SpawnInchworm += +=========================== +*/ + +void SpawnInchworm(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = inchwormobj; + new->active = ac_yes; + new->priority = 2; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_inch1); + new->ticcount = US_RndT() / 32; +} + +/* +=========================== += += SpawnFoot += +=========================== +*/ + +void SpawnFoot(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = footobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y-3); + NewState(new, &s_footwait); +} + +/* +=========================== += += InchThink += +=========================== +*/ + +void InchThink(objtype *ob) +{ + if (ob->x > player->x) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } +} + +/* +=========================== += += InchContact += +=========================== +*/ + +void InchContact(objtype *ob, objtype *hit) +{ + objtype *ob2; + + if (hit->obclass != inchwormobj) + return; + + if (ob->temp1 != (Sint16)lasttimecount) + { + ob->temp1 = (Sint16)lasttimecount; + ob->temp2 = 0; + } + + if (++ob->temp2 != 11) //11 instead of 12 since the object can't contact itself + return; + + //change current inchworm into a foot: + SD_PlaySound(SND_MAKEFOOT); + ob->y -= 5*TILEGLOBAL; + ob->obclass = footobj; + ChangeState(ob, &s_footwait); + + //Note: It would make more sense to remove the remaining inchworm BEFORE + //spawning the smoke, just in case there are not enough free spots in the + //objarray to spawn the smoke. The game won't crash either way, though. + + //spawn smoke: + GetNewObj(true); + new->x = ob->x - 8*PIXGLOBAL; + new->y = ob->y + 16*PIXGLOBAL; + new->priority = 3; + NewState(new, &s_footsmoke1); + + GetNewObj(true); + new->x = ob->x + 16*PIXGLOBAL; + new->y = ob->y + 24*PIXGLOBAL; + new->priority = 3; + NewState(new, &s_footsmoke1); + + GetNewObj(true); + new->x = ob->x + 40*PIXGLOBAL; + new->y = ob->y + 16*PIXGLOBAL; + new->priority = 3; + NewState(new, &s_footsmoke1); + + GetNewObj(true); + new->x = ob->x; + new->y = ob->y - 8*PIXGLOBAL; + new->priority = 3; + NewState(new, &s_footsmoke1); + + //remove ALL inchworm from the level: + for (ob2 = player->next; ob2; ob2=ob2->next) + { + if (ob2->obclass == inchwormobj) + RemoveObj(ob2); + } +} + +/* +=========================== += += FootContact += +=========================== +*/ + +void FootContact(objtype *ob, objtype *hit) //completely useless +{ + ob++; // shut up compiler + hit++; // shut up compiler +} + +/* +============================================================================= + + BOUNDER + +temp1 = if non-zero, pick a new (random) direction when hitting the ground + Makes the Bounder jump straight up at least once after having jumped + left/right (unless Keen is riding the Bounder) +temp2 = jump counter to make the Bounder jump straight up at least twice + after Keen has fallen/jumped off + +============================================================================= +*/ + +statetype s_bounderup1 = {BOUNDERC1SPR, BOUNDERC1SPR, stepthink, false, false, 20, 0, 0, T_Projectile, C_Bounder, R_Bounder, &s_bounderup2}; +statetype s_bounderup2 = {BOUNDERC2SPR, BOUNDERC2SPR, stepthink, false, false, 20, 0, 0, T_Projectile, C_Bounder, R_Bounder, &s_bounderup1}; +statetype s_bounderside1 = {BOUNDERL1SPR, BOUNDERR1SPR, stepthink, false, false, 20, 0, 0, T_Projectile, C_Bounder, R_Bounder, &s_bounderside2}; +statetype s_bounderside2 = {BOUNDERL2SPR, BOUNDERR2SPR, stepthink, false, false, 20, 0, 0, T_Projectile, C_Bounder, R_Bounder, &s_bounderside1}; +statetype s_bounderstun = {BOUNDERC1SPR, BOUNDERC1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_bounderstun2}; +statetype s_bounderstun2 = {BOUNDERSTUNSPR, BOUNDERSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnBounder += +=========================== +*/ + +void SpawnBounder(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = bounderobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) + -8*PIXGLOBAL; + new->ydir = 1; + new->xdir = 0; + NewState(new, &s_bounderup1); +} + +/* +=========================== += += C_Bounder += +=========================== +*/ + +void C_Bounder(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + //basically StunObj(), but in different order: + ob->temp1 = 0; + ob->temp2 = 0; + ob->temp3 = 0; + ob->temp4 = ob->obclass; + ExplodeShot(hit); + ChangeState(ob, &s_bounderstun); + ob->obclass = stunnedobj; + + ob->yspeed -= 32; + } +} + +/* +=========================== += += R_Bounder += +=========================== +*/ + +void R_Bounder(objtype *ob) +{ + Sint16 randnum; + + if (ob->hitsouth) + ob->yspeed = 0; + + if (ob->hitnorth) + { + ob->temp2++; + if (OnScreen(ob)) + SD_PlaySound(SND_BOUNCE2); + + ob->yspeed = -50; + if (gamestate.riding == ob) + { + ob->temp2 = 0; + if (player->left < ob->left-4*PIXGLOBAL) + { + ob->xdir = -1; + } + else if (player->right > ob->right+4*PIXGLOBAL) + { + ob->xdir = 1; + } + else + { + ob->xdir = 0; + } + ob->xspeed = ob->xdir * 24; + } + else if (ob->temp2 <= 2 || ob->temp1 == 0) + { + ob->temp1 = 1; + ob->xdir = ob->xspeed = 0; + ChangeState(ob, &s_bounderup1); + } + else + { + ob->temp1 = 0; + randnum = US_RndT(); + if (randnum < 100) + { + ob->xdir = -1; + } + else if (randnum < 200) + { + ob->xdir = 1; + } + else + { + ob->xdir = 0; + } + ob->xspeed = ob->xdir * 24; + } + + if (ob->xdir) + { + ChangeState(ob, &s_bounderside1); + } + else + { + ChangeState(ob, &s_bounderup1); + } + } + + if (ob->hiteast || ob->hitwest) + { + ob->xdir = -ob->xdir; + ob->xspeed = -ob->xspeed; + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + LICK + +============================================================================= +*/ + +statetype s_lick1 = {LICKMOVEL1SPR, LICKMOVER1SPR, step, false, false, 10, 0, 0, LickJumpThink, LickContact, R_Draw, &s_lick2}; +statetype s_lick2 = {LICKMOVEL2SPR, LICKMOVER2SPR, think, false, false, 0, 0, 0, T_Projectile, LickContact, LickAirReact, &s_lick3}; +statetype s_lick3 = {LICKMOVEL3SPR, LICKMOVER3SPR, think, false, false, 0, 0, 0, T_Projectile, LickContact, LickAirReact, NULL}; +statetype s_lick4 = {LICKMOVEL4SPR, LICKMOVER4SPR, step, false, false, 10, 0, 0, NULL, LickContact, R_Draw, &s_lick1}; +statetype s_licklick1 = {LICKATTACKL1SPR, LICKATTACKR1SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick2}; +statetype s_licklick2 = {LICKATTACKL2SPR, LICKATTACKR2SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick3}; +statetype s_licklick3 = {LICKATTACKL3SPR, LICKATTACKR3SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick4}; +statetype s_licklick4 = {LICKATTACKL2SPR, LICKATTACKR2SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick5}; +statetype s_licklick5 = {LICKATTACKL1SPR, LICKATTACKR1SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick6}; +statetype s_licklick6 = {LICKATTACKL2SPR, LICKATTACKR2SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick7}; +statetype s_licklick7 = {LICKATTACKL3SPR, LICKATTACKR3SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick8}; +statetype s_licklick8 = {LICKATTACKL2SPR, LICKATTACKR2SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_lick3}; +statetype s_lickstun = {LICKSTUNSPR, LICKSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_lickstun2}; +statetype s_lickstun2 = {LICKSTUNSPR, LICKSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnLick += +=========================== +*/ + +void SpawnLick(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = lickobj; + new->active = ac_yes; + new->priority = 2; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + new->nothink = US_RndT() / 64; + NewState(new, &s_lick3); +} + +/* +=========================== += += LickJumpThink += +=========================== +*/ + +void LickJumpThink(objtype *ob) +{ + Sint16 xdist, ydist; + + if (ob->x > player->x) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } + + xdist = player->x - ob->x; + ydist = player->y - ob->y; + + if (ydist >= -TILEGLOBAL && ydist <= TILEGLOBAL && + ( ob->xdir == 1 && xdist > -2*PIXGLOBAL && xdist < 24*PIXGLOBAL + || ob->xdir == -1 && xdist < 2*PIXGLOBAL && xdist > -32*PIXGLOBAL ) ) + { + SD_PlaySound(SND_LICKATTACK); + ob->state = &s_licklick1; + } + else if (abs(xdist) > 3*TILEGLOBAL) + { + ob->xspeed = ob->xdir * 32; + ob->yspeed = -32; + } + else + { + ob->xspeed = (ob->xdir * 32)/2; + ob->yspeed = -16; + } +} + +/* +=========================== += += LickContact += +=========================== +*/ + +void LickContact(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + StunObj(ob, hit, &s_lickstun); + ob->yspeed -= 16; + } +} + +/* +=========================== += += LickKillContact += +=========================== +*/ + +void LickKillContact(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + if (ob->xdir == 1 && player->x > ob->x + || ob->xdir == -1 && player->x < ob->x) + { + KillKeen(); + } + } + else + { + LickContact(ob, hit); + } +} + +/* +=========================== += += LickAirReact += +=========================== +*/ + +void LickAirReact(objtype *ob) +{ + if (ob->hitnorth) + ChangeState(ob, &s_lick4); + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + PLATFORM + +temp2 = additional sprite pointer for thruster sprites +temp3 = additional sprite pointer for thruster sprites + +============================================================================= +*/ + +statetype s_platform = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_Platform, NULL, R_Platform, NULL}; + +/* +=========================== += += SpawnPlatform += +=========================== +*/ + +void SpawnPlatform(Sint16 x, Sint16 y, Sint16 dir) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + switch (dir) + { + case 0: + new->xdir = 0; + new->ydir = -1; + break; + case 1: + new->xdir = 1; + new->ydir = 0; + break; + case 2: + new->xdir = 0; + new->ydir = 1; + break; + case 3: + new->xdir = -1; + new->ydir = 0; + break; + } + NewState(new, &s_platform); +} + +/* +=========================== += += T_Platform += +=========================== +*/ + +void T_Platform(objtype *ob) +{ + Uint16 newpos, newtile; + + xtry = ob->xdir * 12 * tics; + ytry = ob->ydir * 12 * tics; + + if (ob->xdir == 1) + { + newpos = ob->right + xtry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tileright != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2+newtile) == 31) + { + ob->xdir = -1; + xtry = xtry - (newpos & 0xFF); + } + } + } + else if (ob->xdir == -1) + { + newpos = ob->left + xtry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tileleft != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2+newtile) == 31) + { + ob->xdir = 1; + xtry = xtry + (0x100 - (newpos & 0xFF)); + } + } + } + else if (ob->ydir == 1) + { + newpos = ob->bottom + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tilebottom != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2+ob->tileleft) == 31) + { + if (*(mapsegs[2]+mapbwidthtable[newtile-2]/2+ob->tileleft) == 31) + { + ytry = 0; + ob->needtoreact = true; + } + else + { + ob->ydir = -1; + ytry = ytry - (newpos & 0xFF); + } + } + } + } + else if (ob->ydir == -1) + { + newpos = ob->top + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tiletop != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2+ob->tileleft) == 31) + { + if (*(mapsegs[2]+mapbwidthtable[newtile+2]/2+ob->tileleft) == 31) + { + ytry = 0; + ob->needtoreact = true; + } + else + { + ob->ydir = 1; + ytry = ytry + (0x100 - (newpos & 0xFF)); + } + } + } + } +} + +/* +=========================== += += R_Platform += +=========================== +*/ + +void R_Platform(objtype *ob) +{ + Uint16 frame; + + //place platform sprite: + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + + //place (or remove) thruster sprites: + frame = (lasttimecount >> 2) & 1; + if (ob->xdir == 1) + { + RF_PlaceSprite((void**)&ob->temp2, ob->x-1*PIXGLOBAL, ob->y+3*PIXGLOBAL, frame+PLATSIDETHRUST1SPR, spritedraw, 0); + if (ob->temp3) + RF_RemoveSprite((void**)&ob->temp3); + } + else if (ob->xdir == -1) + { + if (ob->temp2) + RF_RemoveSprite((void**)&ob->temp2); + RF_PlaceSprite((void**)&ob->temp3, ob->x+48*PIXGLOBAL, ob->y+5*PIXGLOBAL, frame+PLATSIDETHRUST1SPR, spritedraw, 1); + } + else if (ob->ydir == -1) + { + RF_PlaceSprite((void**)&ob->temp2, ob->x+2*PIXGLOBAL, ob->y+9*PIXGLOBAL, frame+PLATLTHRUST1SPR, spritedraw, 0); + RF_PlaceSprite((void**)&ob->temp3, ob->x+46*PIXGLOBAL, ob->y+8*PIXGLOBAL, frame+PLATRTHRUST1SPR, spritedraw, 0); + } + else if (ob->ydir == 1) + { + if (frame) + { + RF_PlaceSprite((void**)&ob->temp2, ob->x+2*PIXGLOBAL, ob->y+9*PIXGLOBAL, frame+PLATLTHRUST1SPR, spritedraw, 0); + RF_PlaceSprite((void**)&ob->temp3, ob->x+46*PIXGLOBAL, ob->y+8*PIXGLOBAL, frame+PLATRTHRUST1SPR, spritedraw, 0); + } + else + { + if (ob->temp2) + RF_RemoveSprite((void**)&ob->temp2); + if (ob->temp3) + RF_RemoveSprite((void**)&ob->temp3); + } + } +} + +/* +============================================================================= + + DROPPING PLATFORM + +temp1 = initial y position + +============================================================================= +*/ + +statetype s_dropplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatSit, NULL, R_Draw, NULL}; +statetype s_dropplatfall = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatFall, NULL, R_Draw, NULL}; +statetype s_dropplatrise = {PLATFORMSPR, PLATFORMSPR, slidethink, false, false, 0, 0, -32, T_DropPlatRise, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnDropPlat += +=========================== +*/ + +void SpawnDropPlat(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = new->temp1 = CONVERT_TILE_TO_GLOBAL(y); + new->xdir = 0; + new->ydir = 1; + new->needtoclip = cl_noclip; + NewState(new, &s_dropplatsit); +} + +/* +=========================== += += T_DropPlatSit += +=========================== +*/ + +void T_DropPlatSit(objtype *ob) +{ + if (gamestate.riding == ob) + { + ytry = tics * 16; + ob->yspeed = 0; + if (ob->y + ytry - ob->temp1 >= 8*PIXGLOBAL) + ob->state = &s_dropplatfall; + } +} + +/* +=========================== += += T_DropPlatFall += +=========================== +*/ + +void T_DropPlatFall(objtype *ob) +{ + Uint16 newy, ty; + + DoGravity(ob); + + if (ytry >= 15*PIXGLOBAL) + ytry = 15*PIXGLOBAL; + + newy = ob->bottom + ytry; + ty = CONVERT_GLOBAL_TO_TILE(newy); + if (ob->tilebottom != ty) + { + if (*(mapsegs[2]+mapbwidthtable[ty]/2+ob->tileleft) == 31) + { + ytry = 0xFF - (ob->bottom & 0xFF); + if (gamestate.riding != ob) + ob->state = &s_dropplatrise; + } + } +} + +/* +=========================== += += T_DropPlatRise += +=========================== +*/ + +void T_DropPlatRise(objtype *ob) +{ + if (gamestate.riding == ob) + { + ob->yspeed = 0; + ob->state = &s_dropplatfall; + } + else if (ob->y <= ob->temp1) + { + ytry = ob->temp1 - ob->y; + ob->state = &s_dropplatsit; + } +} diff --git a/16/keen456/KEEN4-6/KEEN4/K4_ACT3.C b/16/keen456/KEEN4-6/KEEN4/K4_ACT3.C new file mode 100755 index 00000000..287a66fe --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/K4_ACT3.C @@ -0,0 +1,1317 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K4_ACT3.C +========= + +Contains the following actor types (in this order): + +- Treasure Eater +- Mimrock +- Dopefish +- Schoolfish +- Sprite +- Mine +- Lindsey +- Dart Shooter & Dart +- Wetsuit + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + TREASURE EATER + +temp1 = turn counter + +============================================================================= +*/ + +statetype s_eaterstand1 = {EATERSTAND1SPR, EATERSTAND1SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eaterstand2}; +statetype s_eaterstand2 = {EATERSTAND2SPR, EATERSTAND2SPR, step, false, false, 20, 0, 0, T_EaterJump, C_Eater, R_Draw, NULL}; +statetype s_eatertport1 = {SMOKE1SPR, SMOKE1SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport2}; +statetype s_eatertport2 = {SMOKE2SPR, SMOKE2SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport3}; +statetype s_eatertport3 = {SMOKE3SPR, SMOKE3SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport4}; +statetype s_eatertport4 = {SMOKE4SPR, SMOKE4SPR, step, false, false, 20, 0, 0, T_EaterTeleport, C_Eater, R_Draw, &s_eatertport5}; +statetype s_eatertport5 = {SMOKE4SPR, SMOKE4SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport6}; +statetype s_eatertport6 = {SMOKE3SPR, SMOKE3SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport7}; +statetype s_eatertport7 = {SMOKE2SPR, SMOKE2SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport8}; +statetype s_eatertport8 = {SMOKE1SPR, SMOKE1SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eaterjump1}; +statetype s_eaterjump1 = {EATERJUMPL1SPR, EATERJUMPR1SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Eater, R_EaterAir, &s_eaterjump2}; +statetype s_eaterjump2 = {EATERJUMPL2SPR, EATERJUMPR2SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Eater, R_EaterAir, &s_eaterjump3}; +statetype s_eaterjump3 = {EATERJUMPL3SPR, EATERJUMPR3SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Eater, R_EaterAir, &s_eaterjump4}; +statetype s_eaterjump4 = {EATERJUMPL2SPR, EATERJUMPR2SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Eater, R_EaterAir, &s_eaterjump1}; +statetype s_eaterstun = {EATERJUMPL1SPR, EATERJUMPL1SPR, think, false, false, 0, 0, 0, T_Projectile, 0, R_Stunned, &s_eaterstun2}; +statetype s_eaterstun2 = {EATERSTUNSPR, EATERSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, 0, R_Stunned, NULL}; + +statetype s_eatenbonus1 = {EATENBONUS1SPR, EATENBONUS1SPR, slide, false, false, 10, 0, 8, NULL, NULL, R_Draw, &s_eatenbonus2}; +statetype s_eatenbonus2 = {EATENBONUS2SPR, EATENBONUS2SPR, slide, false, false, 10, 0, 8, NULL, NULL, R_Draw, &s_eatenbonus3}; +statetype s_eatenbonus3 = {EATENBONUS3SPR, EATENBONUS3SPR, slide, false, false, 10, 0, 8, NULL, NULL, R_Draw, &s_eatenbonus4}; +statetype s_eatenbonus4 = {EATENBONUS4SPR, EATENBONUS4SPR, slide, false, false, 10, 0, 8, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnEater += +=========================== +*/ + +void SpawnEater(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = treasureeaterobj; + new->active = ac_yes; + new->priority = 3; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) - 24*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_eaterstand1); +} + +/* +=========================== += += T_EaterJump += +=========================== +*/ + +void T_EaterJump(objtype *ob) +{ + objtype *ob2; + Uint16 x; + Sint16 y; + Uint16 far *map; + Uint16 intile, rowdiff, width; + + ob->state = &s_eaterjump1; + + //jump straight up if below bonus object: + for (ob2 = player->next; ob2; ob2 = ob2->next) + { + if (ob2->obclass == bonusobj && ob2->active == ac_yes + && ob2->right > ob->left && ob2->left < ob->right + && ob2->bottom < ob->top && ob2->bottom + 3*TILEGLOBAL > ob->top) + { + ob->xspeed = 0; + ob->yspeed = -48; + return; + } + } + + //jump straight up if below bonus tile: + map = mapsegs[1] + mapbwidthtable[ob->tiletop-3]/2 + ob->tileleft; + width = ob->tileright-ob->tileleft+1; + rowdiff = mapwidth-width; + for (y=0; y<3; y++, map+=rowdiff) + { + for (x=0; x= INTILE_BONUS100 && intile <= INTILE_AMMO) + { + ob->xspeed = 0; + ob->yspeed = -48; + return; + } + } + } + + //vanish after having checked both directions: + if (ob->temp1 >= 2) + { + // BUG? this doesn't play a sound + ob->state = &s_eatertport1; + return; + } + + //jump in current direction if there is a floor in that direction: + map = mapsegs[1] + mapbwidthtable[ob->tilebottom-2]/2 + ob->tilemidx; + map += ob->xdir * 4; + for (y=0; y<4; y++, map+=mapwidth) + { + if (tinf[NORTHWALL+*map]) + { + ob->xspeed = ob->xdir * 20; + ob->yspeed = -24; + return; + } + } + + //couldn't jump in current direction, so turn around: + if (++ob->temp1 == 2) + { + SD_PlaySound(SND_TREASUREEATERVANISH); + ob->state = &s_eatertport1; + return; + } + + //jump in opposite direction: + ob->xdir = -ob->xdir; + ob->xspeed = ob->xdir * 20; + ob->yspeed = -24; +} + +/* +=========================== += += T_EaterTeleport += +=========================== +*/ + +void T_EaterTeleport(objtype *ob) +{ + objtype *ob2; + + ob->temp1 = 0; + for (ob2=player->next; ob2; ob2=ob2->next) + { + if (ob2->obclass == bonusobj) + { + ob->x = ob2->x - 8*PIXGLOBAL; + ob->y = ob2->y; + NewState(ob, &s_eatertport5); + return; + } + } + RemoveObj(ob); +} + +/* +=========================== += += C_Eater += +=========================== +*/ + +void C_Eater(objtype *ob, objtype *hit) +{ + if (hit->obclass == bonusobj) + { + //BUG? bonus object might be a key, and eating a key makes a level unwinnable + hit->obclass = inertobj; + hit->priority = 3; + ChangeState(hit, &s_eatenbonus1); + SD_PlaySound(SND_EATBONUS); + } + else if (hit->obclass == stunshotobj) + { + //basically StunObj(), but in different order: + ob->temp1 = 0; + ob->temp2 = 0; + ob->temp3 = 0; + ob->temp4 = ob->obclass; + ob->obclass = stunnedobj; + ExplodeShot(hit); + ChangeState(ob, &s_eaterstun); + + ob->yspeed -= 16; + } +} + +/* +=========================== += += EaterInTile += +=========================== +*/ + +void EaterInTile(objtype *ob) +{ + Uint16 x, y; + Uint16 far *map; + Uint16 rowdiff, intile; + + map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft; + rowdiff = mapwidth-(ob->tileright-ob->tileleft+1); + for (y=ob->tiletop; y<=ob->tilebottom; y++, map+=rowdiff) + { + for (x=ob->tileleft; x<=ob->tileright; x++, map++) + { + intile = tinf[INTILE + *map] & INTILE_TYPEMASK; + if (intile == INTILE_DROP || intile >= INTILE_BONUS100 && intile <= INTILE_AMMO) + { + RF_MemToMap(&zeromap, 1, x, y, 1, 1); + GetNewObj(true); + new->obclass = inertobj; + new->priority = 3; + new->needtoclip = cl_noclip; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + new->active = ac_removable; + ChangeState(new, &s_eatenbonus1); //using ChangeState and not NewState is fine for noclipping objects + //BUG? this doesn't play a sound + break; + } + } + } +} + +/* +=========================== += += R_EaterAir += +=========================== +*/ + +void R_EaterAir(objtype *ob) +{ + EaterInTile(ob); + + if (ob->hitnorth) + ChangeState(ob, &s_eaterstand1); + + if (ob->hiteast || ob->hitwest) + { + ob->temp1++; + ob->xdir = -ob->xdir; + ob->xspeed = 0; + } + + if (ob->hitnorth) //BUG? maybe this was supposed to check hitsouth as well? + ob->yspeed = 0; + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + MIMROCK + +============================================================================= +*/ + +statetype s_mimrock = {MIMROCKSPR, MIMROCKSPR, step, false, true, 20, 0, 0, T_MimrockWait, NULL, R_Walk, &s_mimrock}; +statetype s_mimsneak1 = {MIMROCKWALKR1SPR, MIMROCKWALKL1SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak2}; +statetype s_mimsneak2 = {MIMROCKWALKR2SPR, MIMROCKWALKL2SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak3}; +statetype s_mimsneak3 = {MIMROCKWALKR3SPR, MIMROCKWALKL3SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak4}; +statetype s_mimsneak4 = {MIMROCKWALKR4SPR, MIMROCKWALKL4SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak5}; +statetype s_mimsneak5 = {MIMROCKWALKR1SPR, MIMROCKWALKL1SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak6}; +statetype s_mimsneak6 = {MIMROCKWALKR2SPR, MIMROCKWALKL2SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimrock}; +statetype s_mimbonk1 = {MIMROCKJUMPL1SPR, MIMROCKJUMPR1SPR, stepthink, false, false, 24, 0, 0, T_WeakProjectile, C_MimLethal, R_MimAir, &s_mimbonk2}; +statetype s_mimbonk2 = {MIMROCKJUMPL2SPR, MIMROCKJUMPR2SPR, stepthink, false, false, 10, 0, 0, T_WeakProjectile, C_MimLethal, R_MimAir, &s_mimbonk3}; +statetype s_mimbonk3 = {MIMROCKJUMPL3SPR, MIMROCKJUMPR3SPR, think, false, false, 10, 0, 0, T_WeakProjectile, C_MimLethal, R_MimAir, &s_mimbonk2}; +statetype s_mimbounce = {MIMROCKJUMPL3SPR, MIMROCKJUMPR3SPR, think, false, false, 10, 0, 0, T_Projectile, C_Mimrock, R_MimBounce, NULL}; +statetype s_mimstun = {MIMROCKJUMPL3SPR, MIMROCKJUMPL3SPR, think, false, false, 12, 0, 0, T_Projectile, NULL, R_Stunned, &s_mimstun2}; +statetype s_mimstun2 = {MINROCKSTUNSPR, MINROCKSTUNSPR, think, false, false, 12, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnMimrock += +=========================== +*/ + +void SpawnMimrock(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = mimrockobj; + new->active = ac_yes; + new->priority = 3; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y)+ -13*PIXGLOBAL; + new->ydir = new->xdir = 1; + NewState(new, &s_mimrock); +} + +/* +=========================== += += T_MimrockWait += +=========================== +*/ + +void T_MimrockWait(objtype *ob) +{ + if (abs(ob->bottom - player->bottom) > 5*TILEGLOBAL) + return; + + if (abs(ob->x - player->x) > 3*TILEGLOBAL) + { + if (player->x < ob->x) + { + if (player->xdir == -1) + { + ob->xdir = -1; + ob->state = &s_mimsneak1; + } + } + else + { + if (player->xdir == 1) + { + ob->xdir = 1; + ob->state = &s_mimsneak1; + } + } + } +} + +/* +=========================== += += T_MimrockSneak += +=========================== +*/ + +void T_MimrockSneak(objtype *ob) +{ + if (abs(ob->bottom - player->bottom) > 5*TILEGLOBAL + || ob->xdir != player->xdir) + { + ob->state = &s_mimrock; + } + else if (abs(ob->x - player->x) < 4*TILEGLOBAL) + { + ob->xspeed = ob->xdir * 20; + ob->yspeed = -40; + ytry = ob->yspeed * tics; + ob->state = &s_mimbonk1; + } +} + +/* +=========================== += += C_Mimrock += +=========================== +*/ + +void C_Mimrock(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + //basically StunObj(), but in different order: + ob->temp1 = 0; + ob->temp2 = 0; + ob->temp3 = 0; + ob->temp4 = ob->obclass; + ob->obclass = stunnedobj; + ExplodeShot(hit); + ChangeState(ob, &s_mimstun); + + ob->yspeed -= 16; + } +} + +/* +=========================== += += C_MimLethal += +=========================== +*/ + +void C_MimLethal(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else + { + C_Mimrock(ob, hit); + } +} + +/* +=========================== += += R_MimAir += +=========================== +*/ + +void R_MimAir(objtype *ob) +{ + if (ob->hitnorth) + { + SD_PlaySound(SND_HELMETHIT); + ob->yspeed = -20; + ChangeState(ob, &s_mimbounce); + } + + if (ob->hiteast || ob->hitwest) + ob->xspeed = 0; + + if (ob->hitnorth || ob->hitsouth) + ob->yspeed = 0; + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_MimBounce += +=========================== +*/ + +void R_MimBounce(objtype *ob) +{ + if (ob->hitnorth) + { + SD_PlaySound(SND_HELMETHIT); + ChangeState(ob, &s_mimrock); + } + + if (ob->hiteast || ob->hitwest) + ob->xspeed = 0; + + if (ob->hitnorth) + ob->yspeed = 0; + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + DOPEFISH + +temp1 = blocked (cannot change xdir to chase Keen while this is non-zero) +temp2 = old x position +temp3 = old y position +temp4 = pointer to object being eaten + (BUG: pointer may be invalid after loading a saved game!) + +============================================================================= +*/ + +statetype s_dopefish1 = {DOPEFISHSWIML1SPR, DOPEFISHSWIMR1SPR, stepthink, false, false, 20, 0, 0, T_Dope, C_Dope, R_Fish, &s_dopefish2}; +statetype s_dopefish2 = {DOPEFISHSWIML2SPR, DOPEFISHSWIMR2SPR, stepthink, false, false, 20, 0, 0, T_Dope, C_Dope, R_Fish, &s_dopefish1}; +statetype s_dopeattack = {DOPEFISHHUNGRYLSPR, DOPEFISHHUNGRYRSPR, think, false, false, 0, 0, 0, T_DopeHunt, NULL, R_Draw, NULL}; +statetype s_dopeeat = {DOPEFISHSWIML1SPR, DOPEFISHSWIMR1SPR, step, false, false, 60, 0, 0, NULL, NULL, R_Draw, &s_dopeburp1}; +statetype s_dopeburp1 = {DOPEFISHBURP1SPR, DOPEFISHBURP1SPR, step, false, false, 60, 0, 0, T_Burp, NULL, R_Draw, &s_dopeburp2}; +statetype s_dopeburp2 = {DOPEFISHBURP2SPR, DOPEFISHBURP2SPR, step, false, false, 60, 0, 0, NULL, NULL, R_Draw, &s_dopereturn}; +statetype s_dopereturn = {DOPEFISHSWIML1SPR, DOPEFISHSWIMR1SPR, think, false, false, 0, 0, 0, T_DopeReturn, NULL, R_Draw, &s_dopefish1}; + +statetype s_dopefood = {SCHOOLFISHL1SPR, SCHOOLFISHR1SPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, NULL}; +statetype s_keendopefood = {SCUBAKEENDEAD1SPR, SCUBAKEENDEAD1SPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, &s_keendieslow}; +statetype s_keendieslow = {-1, -1, step, false, false, 180, 0, 0, T_EatenKeen, NULL, R_Draw, &s_keendieslow}; + +statetype s_bubble1 = {BIGBUBBLE1SPR, BIGBUBBLE1SPR, think, false, false, 20, 0, 20, T_Bubble, NULL, R_Draw, &s_bubble2}; +statetype s_bubble2 = {BIGBUBBLE2SPR, BIGBUBBLE2SPR, think, false, false, 20, 0, 20, T_Bubble, NULL, R_Draw, &s_bubble3}; +statetype s_bubble3 = {BIGBUBBLE3SPR, BIGBUBBLE3SPR, think, false, false, 20, 0, 20, T_Bubble, NULL, R_Draw, &s_bubble4}; +statetype s_bubble4 = {BIGBUBBLE4SPR, BIGBUBBLE4SPR, think, false, false, 20, 0, 20, T_Bubble, NULL, R_Draw, &s_bubble1}; + +/* +=========================== += += SpawnDopefish += +=========================== +*/ + +void SpawnDopefish(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = dopefishobj; + new->active = ac_yes; + new->priority = 2; + new->needtoclip = cl_fullclip; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) + -3*TILEGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_dopefish1); +} + +/* +=========================== += += T_EatenKeen += +=========================== +*/ + +void T_EatenKeen(objtype *ob) +{ + ob++; // shut up compiler + playstate = ex_died; +} + +/* +=========================== += += T_Dope += +=========================== +*/ + +void T_Dope(objtype *ob) +{ + if (ob->temp1 == 0) + { + if (ob->x < player->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + } + AccelerateXv(ob, ob->xdir, 10); + + if (ob->y < player->y) + { + AccelerateY(ob, 1, 10); + } + else + { + AccelerateY(ob, -1, 10); + } +} + +/* +=========================== += += T_DopeHunt += +=========================== +*/ + +void T_DopeHunt(objtype *ob) +{ + objtype *target; + Sint16 xdist, ydist; + + target = (objtype *)(ob->temp4); + ydist = target->y - TILEGLOBAL - ob->y; + if (ob->xdir == 1) + { + xdist = target->right + 2*PIXGLOBAL - ob->right; + } + else + { + xdist = target->left - 2*PIXGLOBAL - ob->left; + } + + if (xdist < 0) + { + xtry = tics * -32; + if (xtry < xdist) + xtry = xdist; + } + else + { + xtry = tics * 32; + if (xtry > xdist) + xtry = xdist; + } + + if (ydist < 0) + { + ytry = tics * -32; + if (ytry < ydist) + ytry = ydist; + } + else + { + ytry = tics * 32; + if (ytry > ydist) + ytry = ydist; + } + + if (xtry == xdist && ytry == ydist) + { + if (target == player) + { + ChangeState(target, &s_keendieslow); + } + else if (target->state->nextstate) + { + ChangeState(target, target->state->nextstate); + } + else + { + RemoveObj(target); + } + ob->state = &s_dopeeat; + } +} + +/* +=========================== += += T_DopeReturn += +=========================== +*/ + +void T_DopeReturn(objtype *ob) +{ + Sint16 xdist, ydist; + + ydist = ob->temp3 - ob->y; + xdist = ob->temp2 - ob->x; + + if (xdist < 0) + { + xtry = tics * -32; + if (xtry < xdist) + xtry = xdist; + } + else + { + xtry = tics * 32; + if (xtry > xdist) + xtry = xdist; + } + + if (ydist < 0) + { + ytry = tics * -32; + if (ytry < ydist) + ytry = ydist; + } + else + { + ytry = tics * 32; + if (ytry > ydist) + ytry = ydist; + } + + if (xtry == xdist && ytry == ydist) + { + ob->state = ob->state->nextstate; + ob->needtoclip = cl_fullclip; + } +} + +/* +=========================== += += T_Burp += +=========================== +*/ + +void T_Burp(objtype *ob) +{ + GetNewObj(true); + new->x = ob->x + 56*PIXGLOBAL; + new->y = ob->y + 32*PIXGLOBAL; + new->obclass = inertobj; + new->priority = 3; + new->active = ac_removable; + new->needtoclip = cl_noclip; + new->yspeed = -20; + new->xspeed = 4; + NewState(new, &s_bubble1); + SD_PlaySound(SND_BURP); +} + +/* +=========================== += += T_Bubble += +=========================== +*/ + +void T_Bubble(objtype *ob) +{ + T_Velocity(ob); + if (US_RndT() < tics * 16) + ob->xspeed = -ob->xspeed; + + if (ob->y < 3*TILEGLOBAL) + RemoveObj(ob); +} + +/* +=========================== += += C_Dope += +=========================== +*/ + +void C_Dope(objtype *ob, objtype *hit) +{ + if (hit->obclass == schoolfishobj) + { + ChangeState(hit, &s_dopefood); + } + else if (hit->obclass == keenobj && !godmode) + { + hit->obclass = inertobj; //prevents other objects from killing Keen before he is fully swallowed + hit->needtoclip = cl_noclip; + SD_PlaySound(SND_KEENDEAD); + ChangeState(hit, &s_keendopefood); + } + else + { + return; + } + + ob->temp2 = ob->x; + ob->temp3 = ob->y; + ob->temp4 = (Sint16)hit; + if (hit->midx < ob->midx) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } + ChangeState(ob, &s_dopeattack); + ob->needtoclip = cl_noclip; +} + +/* +=========================== += += R_Fish += +=========================== +*/ + +void R_Fish(objtype *ob) //for Dopefish and Schoolfish +{ + if ((ob->hitsouth || ob->hitnorth) && ob->temp1 == 0) + ob->temp1++; + + if (ob->hiteast || ob->hitwest) + { + ob->xspeed = 0; + ob->xdir = -ob->xdir; + ob->temp1 = 1; + } + + if (!ob->hitsouth && !ob->hitnorth) + ob->temp1 = 0; + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + SCHOOLFISH + +temp1 = blocked (cannot change xdir to chase Keen while this is non-zero) + +============================================================================= +*/ + +statetype s_schoolfish1 = {SCHOOLFISHL1SPR, SCHOOLFISHR1SPR, stepthink, false, false, 20, 0, 0, T_SchoolFish, NULL, R_Fish, &s_schoolfish2}; +statetype s_schoolfish2 = {SCHOOLFISHL2SPR, SCHOOLFISHR2SPR, stepthink, false, false, 20, 0, 0, T_SchoolFish, NULL, R_Fish, &s_schoolfish1}; + +/* +=========================== += += SpawnSchoolfish += +=========================== +*/ + +void SpawnSchoolfish(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = schoolfishobj; + new->active = ac_yes; + new->needtoclip = cl_fullclip; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + new->ydir = new->xdir = 1; + NewState(new, &s_schoolfish1); +} + +/* +=========================== += += T_SchoolFish += +=========================== +*/ + +void T_SchoolFish(objtype *ob) +{ + if (ob->temp1 == 0) + { + if (ob->x < player->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + } + AccelerateXv(ob, ob->xdir, 10); + + if (ob->y < player->y) + { + AccelerateY(ob, 1, 10); + } + else + { + AccelerateY(ob, -1, 10); + } +} + +/* +============================================================================= + + PIXIE (a.k.a. SPRITE) + +============================================================================= +*/ + +statetype s_pixie = {SPRITEFLOATSPR, SPRITEFLOATSPR, think, false, false, 10, 0, 0, T_Pixie, C_Lethal, R_Draw, &s_pixie}; +statetype s_pixielook = {SPRITEAIMLSPR, SPRITEAIMRSPR, step, false, false, 40, 0, 0, T_PixieCheck, C_Lethal, R_Draw, &s_pixie}; +statetype s_pixieshoot = {SPRITESHOOTLSPR, SPRITESHOOTRSPR, step, false, false, 40, 0, 0, T_PixieShoot, C_Lethal, R_Draw, &s_pixieshoot2}; +statetype s_pixieshoot2 = {SPRITESHOOTLSPR, SPRITESHOOTRSPR, step, false, false, 30, 0, 0, NULL, C_Lethal, R_Draw, &s_pixie}; +statetype s_pixiefire1 = {SPRITESHOT1SPR, SPRITESHOT1SPR, slide, false, false, 10, 64, 0, NULL, C_Lethal, R_Mshot, &s_pixiefire2}; +statetype s_pixiefire2 = {SPRITESHOT2SPR, SPRITESHOT2SPR, slide, false, false, 10, 64, 0, NULL, C_Lethal, R_Mshot, &s_pixiefire3}; +statetype s_pixiefire3 = {SPRITESHOT3SPR, SPRITESHOT3SPR, slide, false, false, 10, 64, 0, NULL, C_Lethal, R_Mshot, &s_pixiefire4}; +statetype s_pixiefire4 = {SPRITESHOT4SPR, SPRITESHOT4SPR, slide, false, false, 10, 64, 0, NULL, C_Lethal, R_Mshot, &s_pixiefire1}; + +/* +=========================== += += SpawnPixie += +=========================== +*/ + +void SpawnPixie(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = pixieobj; + new->active = ac_yes; + new->priority = 0; + new->needtoclip = cl_noclip; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = new->temp1 = CONVERT_TILE_TO_GLOBAL(y); + new->ydir = new->xdir = 1; + NewState(new, &s_pixie); +} + +/* +=========================== += += T_Pixie += +=========================== +*/ + +void T_Pixie(objtype *ob) +{ + AccelerateY(ob, ob->ydir, 8); + if ((Sint16)(ob->temp1 - ob->y) > 2*PIXGLOBAL) + { + ob->ydir = 1; + } + if ((Sint16)(ob->y - ob->temp1) > 2*PIXGLOBAL) + { + ob->ydir = -1; + } + + if (player->top < ob->bottom && player->bottom > ob->top) + { + if (player->x < ob->x) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } + ob->state = &s_pixielook; + } +} + +/* +=========================== += += T_PixieCheck += +=========================== +*/ + +void T_PixieCheck(objtype *ob) +{ + if (player->top < ob->bottom && player->bottom > ob->top) + ob->state = &s_pixieshoot; +} + +/* +=========================== += += T_PixieShoot += +=========================== +*/ + +void T_PixieShoot(objtype *ob) +{ + GetNewObj(true); + new->x = ob->x; + new->y = ob->y + 8*PIXGLOBAL; + new->priority = 0; + new->obclass = mshotobj; + new->active = ac_removable; + SD_PlaySound(SND_KEENFIRE); //BUG? + new->xdir = ob->xdir; + NewState(new, &s_pixiefire1); + SD_PlaySound(SND_SPRITEFIRE); +} + +/* +=========================== += += R_Mshot += +=========================== +*/ + +void R_Mshot(objtype *ob) +{ + if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest) + { + RemoveObj(ob); + } + else + { + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + } +} + +/* +============================================================================= + + MINE + +============================================================================= +*/ +statetype s_mine = {MINESPR, MINESPR, think, false, false, 10, 0, 0, T_Platform, C_Mine, R_Draw, &s_mine}; +statetype s_mineboom1 = {MINEEXPLODE1SPR, MINEEXPLODE1SPR, step, false, false, 30, 0, 0, NULL, NULL, R_Draw, &s_mineboom2}; +statetype s_mineboom2 = {MINEEXPLODE2SPR, MINEEXPLODE2SPR, step, false, false, 30, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnMine += +=========================== +*/ + +void SpawnMine(Sint16 x, Sint16 y, Sint16 dir) +{ + GetNewObj(false); + new->obclass = mineobj; + new->active = ac_allways; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y); + switch (dir) + { + case 0: + new->xdir = 0; + new->ydir = -1; + break; + case 1: + new->xdir = 1; + new->ydir = 0; + break; + case 2: + new->xdir = 0; + new->ydir = 1; + break; + case 3: + new->xdir = -1; + new->ydir = 0; + break; + } + NewState(new, &s_mine); +} + +/* +=========================== += += C_Mine += +=========================== +*/ + +void C_Mine(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + ChangeState(ob, &s_mineboom1); + SD_PlaySound(SND_MINEEXPLODE); + KillKeen(); + } +} + +/* +============================================================================= + + PRINCESS LINDSEY + +temp1 = initial y position + +============================================================================= +*/ +statetype s_lindsey1 = {LINDSEY1SPR, LINDSEY1SPR, stepthink, false, false, 20, 0, 0, T_Lindsey, NULL, R_Draw, &s_lindsey2}; +statetype s_lindsey2 = {LINDSEY2SPR, LINDSEY2SPR, stepthink, false, false, 20, 0, 0, T_Lindsey, NULL, R_Draw, &s_lindsey3}; +statetype s_lindsey3 = {LINDSEY3SPR, LINDSEY3SPR, stepthink, false, false, 20, 0, 0, T_Lindsey, NULL, R_Draw, &s_lindsey4}; +statetype s_lindsey4 = {LINDSEY4SPR, LINDSEY4SPR, stepthink, false, false, 20, 0, 0, T_Lindsey, NULL, R_Draw, &s_lindsey1}; + +/* +=========================== += += SpawnLindsey += +=========================== +*/ + +void SpawnLindsey(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = lindseyobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = new->temp1 = CONVERT_TILE_TO_GLOBAL(y) - TILEGLOBAL; + new->ydir = 1; + NewState(new, &s_lindsey1); +} + +/* +=========================== += += T_Lindsey += +=========================== +*/ + +void T_Lindsey(objtype *ob) +{ + AccelerateY(ob, ob->ydir, 8); + if (ob->temp1 - (Sint16)ob->y > 2*PIXGLOBAL) + { + ob->ydir = 1; + } + if ((Sint16)ob->y - ob->temp1 > 2*PIXGLOBAL) + { + ob->ydir = -1; + } +} + +/* +============================================================================= + + DARTS + +temp1 = direction + +============================================================================= +*/ + +statetype s_dartthrower = {0, 0, step, false, false, 150, 0, 0, T_DartShoot, NULL, NULL, &s_dartthrower}; +statetype s_dart1 = {DARTL1SPR, DARTR1SPR, slide, false, false, 6, 64, 0, NULL, C_Lethal, R_Mshot, &s_dart2}; +statetype s_dart2 = {DARTL2SPR, DARTR2SPR, slide, false, false, 6, 64, 0, NULL, C_Lethal, R_Mshot, &s_dart1}; +statetype s_dartup1 = {DARTU1SPR, DARTU1SPR, slide, false, false, 6, 0, 64, NULL, C_Lethal, R_Mshot, &s_dartup2}; +statetype s_dartup2 = {DARTU2SPR, DARTU2SPR, slide, false, false, 6, 0, 64, NULL, C_Lethal, R_Mshot, &s_dartup1}; +statetype s_dartdown1 = {DARTD1SPR, DARTD1SPR, slide, false, false, 6, 0, 64, NULL, C_Lethal, R_Mshot, &s_dartdown2}; +statetype s_dartdown2 = {DARTD2SPR, DARTD2SPR, slide, false, false, 6, 0, 64, NULL, C_Lethal, R_Mshot, &s_dartdown1}; + +/* +=========================== += += SpawnDartShooter += +=========================== +*/ + +void SpawnDartShooter(Sint16 x, Sint16 y, Sint16 dir) +{ + GetNewObj(false); + new->obclass = inertobj; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->needtoclip = cl_noclip; + new->y = CONVERT_TILE_TO_GLOBAL(y); + new->temp1 = dir; + switch (dir) + { + case 0: + new->y -= 3*PIXGLOBAL; + new->x += 9*PIXGLOBAL; + new->shapenum = DARTU1SPR; + break; + case 1: + new->x += 8*PIXGLOBAL; + new->y += 5*PIXGLOBAL; + new->shapenum = DARTR1SPR; + break; + case 2: + new->x += 9*PIXGLOBAL; + new->shapenum = DARTD1SPR; + break; + case 3: + new->y += 7*PIXGLOBAL; + new->x -= 3*PIXGLOBAL; + new->shapenum = DARTL1SPR; + break; + } + NewState(new, &s_dartthrower); +} + +/* +=========================== += += T_DartShoot += +=========================== +*/ + +void T_DartShoot(objtype *ob) +{ + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + new->obclass = mshotobj; + new->active = ac_removable; + switch (ob->temp1) + { + case 0: + new->xdir = 0; + new->ydir = -1; + NewState(new, &s_dartup1); + break; + case 1: + new->xdir = 1; + new->ydir = 0; + NewState(new, &s_dart1); + break; + case 2: + new->xdir = 0; + new->ydir = 1; + NewState(new, &s_dartdown1); + break; + case 3: + new->xdir = -1; + new->ydir = 0; + NewState(new, &s_dart1); + break; + } + SD_PlaySound(SND_SHOOTDART); +} + +/* +=========================== += += R_DartThrower += +=========================== +*/ + +void R_DartThrower(objtype *ob) //never used +{ + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + SCUBA GEAR + +============================================================================= +*/ +statetype s_scuba = {SCUBASPR, SCUBASPR, step, false, false, 30000, 0, 0, NULL, C_Scuba, R_Draw, &s_scuba}; + +/* +=========================== += += SpawnScuba += +=========================== +*/ + +void SpawnScuba(Sint16 x, Sint16 y) +{ + GetNewObj(false); + new->obclass = scubaobj; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(x); + new->y = CONVERT_TILE_TO_GLOBAL(y) + -TILEGLOBAL; + NewState(new, &s_scuba); +} + +/* +=========================== += += C_Scuba += +=========================== +*/ + +void C_Scuba(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj && hit->hitnorth) + { + gamestate.wetsuit = true; + SD_PlaySound(SND_MAKEFOOT); + GotScuba(); + RF_ForceRefresh(); + playstate = ex_completed; + ob++; // shut up compiler + } +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN4/K4_DEF.H b/16/keen456/KEEN4-6/KEEN4/K4_DEF.H new file mode 100755 index 00000000..ee7ced03 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/K4_DEF.H @@ -0,0 +1,511 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __K4_DEF__ +#define __K4_DEF__ + +/* +============================================================================= + + GLOBAL CONSTANTS + +============================================================================= +*/ + +#if GRMODE == CGAGR +#define MINMEMORY 280000l +#else +#define MINMEMORY 310000l +#endif + +#define STARPALETTE {0, 1, 2, 3, 4, 16, 6, 7, 31, 31, 31, 31, 31, 31, 31, 31, 0} +#define INTROPALETTE {0, 24, 24, 7, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 19, 0} +#define SHRINKPALETTE {0, 24, 24, 7, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 24, 0} + +#define HIGHSCORE_LEFT 24 +#define HIGHSCORE_TOP 51 +#define HIGHSCORE_RIGHT 296 +#define HIGHSCORE_MAP 19 + +#define STATUS_PRESSKEY_X 160 + +#define WORLDMAPNAME "Shadowlands" +#define DROPSNAME "DROPS" + +#define STARWARSMUSIC 12 +#define ENDINGMUSIC 7 + +// levels in this range can NOT be re-entered (BWB level should be > MAXDONELEVEL) +#define MINDONELEVEL 1 +#define MAXDONELEVEL 17 + +#define INACTIVATEDIST 4 + +/* +============================================================================= + + K4_SPEC DEFINITIONS + +============================================================================= +*/ + +extern char far swtext[]; +extern char far *levelnames[GAMELEVELS]; +extern char far *levelenter[GAMELEVELS]; + +void ScanInfoPlane(void); +void PrincessLindsey(void); +void RescueJanitor(void); +void CantSwim(void); +void GotScuba(void); +void RescuedMember(void); + +extern statetype s_keenswimslow1; +extern statetype s_keenswimslow2; +extern statetype s_keenswim1; +extern statetype s_keenswim2; +extern statetype s_kbubble1; +extern statetype s_kbubble2; +extern statetype s_kbubble3; +extern statetype s_kbubble4; +void SpawnSwimKeen(Sint16 x, Sint16 y); +void SpawnKbubble(objtype *ob); +void T_KeenSwimSlow(objtype *ob); +void T_KeenSwim(objtype *ob); +void C_KeenSwim(objtype *ob, objtype *hit); +void R_KeenSwim(objtype *ob); + +/* +============================================================================= + + K4_ACT1 DEFINITIONS + +============================================================================= +*/ + +extern statetype s_miragia0; +extern statetype s_miragia1; +extern statetype s_miragia2; +extern statetype s_miragia3; +extern statetype s_miragia4; +extern statetype s_miragia5; +extern statetype s_miragia6; +extern statetype s_miragia7; +void SpawnMiragia(Sint16 x, Sint16 y); +void T_Miragia0(objtype *ob); +void T_Miragia1(objtype *ob); +void T_Miragia2(objtype *ob); +void T_Miragia3(objtype *ob); +void T_Miragia4(objtype *ob); +void T_Miragia5(objtype *ob); +void T_Miragia6(objtype *ob); +void T_Miragia7(objtype *ob); + +extern statetype s_bonus1; +extern statetype s_bonus2; +extern statetype s_bonusrise; +extern statetype s_splash1; +extern statetype s_splash2; +extern statetype s_splash3; +extern Uint16 bonusshape[]; +void SpawnBonus(Sint16 x, Sint16 y, Sint16 type); +void SpawnSplash(Sint16 x, Sint16 y); +void T_Bonus(objtype *ob); + +extern statetype s_councilwalk1; +extern statetype s_councilwalk2; +extern statetype s_councilstand; +void SpawnCouncil(Sint16 x, Sint16 y); +void T_Council(objtype *ob); + +extern statetype s_slugwalk1; +extern statetype s_slugwalk2; +extern statetype s_slugpiss1; +extern statetype s_slugstun; +extern statetype s_slugstunalt; +extern statetype s_slugslime; +extern statetype s_slugslime2; +void SpawnSlug(Sint16 x, Sint16 y); +void T_Slug(objtype *ob); +void T_SlugPiss(objtype *ob); +void C_Slug(objtype *ob, objtype *hit); + +extern statetype s_mushroom1; +extern statetype s_mushroom2; +void SpawnMadMushroom(Sint16 x, Sint16 y); +void T_Mushroom(objtype *ob); +void C_Mushroom(objtype *ob, objtype *hit); +void R_Mushroom(objtype *ob); + +extern statetype s_egg; +extern statetype s_eggbroke; +extern statetype s_eggchip1; +extern statetype s_eggchip2; +extern statetype s_eggchip3; +extern statetype s_eggbirdpause; +extern statetype s_eggbirdwalk1; +extern statetype s_eggbirdwalk2; +extern statetype s_eggbirdwalk3; +extern statetype s_eggbirdwalk4; +extern statetype s_eggbirdfly1; +extern statetype s_eggbirdfly2; +extern statetype s_eggbirdfly3; +extern statetype s_eggbirdfly4; +extern statetype s_eggbirddrop; +extern statetype s_eggbirdstun; +extern statetype s_eggbirdstun2; +extern statetype s_eggbirdstun3; +extern statetype s_eggbirdstun4; +extern statetype s_eggbirdstun5; +void SpawnEggbird(Sint16 x, Sint16 y); +void T_EggUnstun(objtype *ob); +void SpawnEggbirdOut(Sint16 x, Sint16 y); +void C_Egg(objtype *ob, objtype *hit); +void T_Eggbird(objtype *ob); +void T_EggbirdFly(objtype *ob); +void C_Eggbird(objtype *ob, objtype *hit); +void C_EggbirdStun(objtype *ob, objtype *hit); +void R_Eggbird(objtype *ob); +void R_EggbirdDrop(objtype *ob); +void R_Chip(objtype *ob); +void R_Eggbirdfly(objtype *ob); + +extern statetype s_arach1; +extern statetype s_arach2; +extern statetype s_arach3; +extern statetype s_arach4; +extern statetype s_arachstun; +extern statetype s_arachstun2; +extern statetype s_arachstun3; +extern statetype s_arachstun4; +extern statetype s_arachstun5; +void SpawnArachnut(Sint16 x, Sint16 y); +void T_Arach(objtype *ob); +void C_Arach(objtype *ob, objtype *hit); +void C_ArachStun(objtype *ob, objtype *hit); + +extern statetype s_pestfly1; +extern statetype s_pestfly2; +extern statetype s_squashedpest; +extern statetype s_pestrest1; +extern statetype s_pestrest2; +extern statetype s_pestrest3; +extern statetype s_pestrest4; +extern statetype s_pestrest5; +extern statetype s_pestrest6; +extern statetype s_pestrest7; +extern statetype s_pestrest8; +extern statetype s_pestrest9; +extern statetype s_pestrest10; +extern statetype s_pestrest11; +extern statetype s_pestrest12; +extern statetype s_pestrest13; +extern statetype s_pestrest14; +extern statetype s_pestrest15; +extern statetype s_pestrest16; +extern statetype s_pestrest17; +void SpawnSkypest(Sint16 x, Sint16 y); +void T_PestFly(objtype *ob); +void C_PestFly(objtype *ob, objtype *hit); +void C_Squashable(objtype *ob, objtype *hit); +void T_PestRest(objtype *ob); +void R_Pest(objtype *ob); + +/* +============================================================================= + + K4_ACT2 DEFINITIONS + +============================================================================= +*/ + +extern statetype s_worm; +extern statetype s_wormpeek1; +extern statetype s_wormpeek2; +extern statetype s_wormpeek3; +extern statetype s_wormpeek4; +extern statetype s_wormpeek5; +extern statetype s_wormpeek6; +extern statetype s_wormpeek7; +extern statetype s_wormpeek8; +extern statetype s_wormbite1; +extern statetype s_wormbite2; +extern statetype s_wormbite3; +extern statetype s_wormbite4; +extern statetype s_wormbite5; +extern statetype s_wormstun; +void SpawnWormMouth(Sint16 x, Sint16 y); +void T_WormLookRight(objtype *ob); +void T_WormLook(objtype *ob); +void T_WormLookLeft(objtype *ob); +void T_Worm(objtype *ob); +void C_Worm(objtype *ob, objtype *hit); +void C_WormKill(objtype *ob, objtype *hit); + +extern statetype s_cloudsleep; +extern statetype s_cloudwake; +extern statetype s_cloud; +extern statetype s_cloudalign; +extern statetype s_cloudcharge; +extern statetype s_cloudattack1; +extern statetype s_cloudattack2; +extern statetype s_cloudattack3; +extern statetype s_cloudattack4; +extern statetype s_cloudattack5; +extern statetype s_cloudattack6; +extern statetype s_cloudattack7; +extern statetype s_cloudattack8; +extern statetype s_cloudattack9; +extern statetype s_bolt1; +extern statetype s_bolt2; +extern statetype s_bolt3; +extern statetype s_bolt4; +extern statetype s_bolt5; +extern statetype s_bolt6; +void SpawnCloudster(Sint16 x, Sint16 y); +void T_Cloud(objtype *ob); +void T_CloudAlign(objtype *ob); +void R_Cloud(objtype *ob); +void T_CloudShoot(objtype *ob); +void C_CloudSleep(objtype *ob, objtype *hit); + +extern statetype s_berkefloat1; +extern statetype s_berkefloat2; +extern statetype s_berkefloat3; +extern statetype s_berkefloat4; +extern statetype s_berkethrow1; +extern statetype s_berkethrow2; +extern statetype s_berkethrow3; +extern statetype s_berkethrow4; +extern statetype s_berkethrow5; +extern statetype s_berkethrow6; +extern statetype s_berkethrow7; +extern statetype s_berkethrow8; +extern statetype s_berkethrow9; +extern statetype s_berkethrow10; +extern statetype s_berkethrow11; +extern statetype s_berkethrow12; +extern statetype s_fire1; +extern statetype s_fire2; +extern statetype s_fireland1; +extern statetype s_fireland2; +extern statetype s_fireland3; +extern statetype s_fireland4; +extern statetype s_fireland5; +extern statetype s_fireland6; +extern statetype s_fireland7; +extern statetype s_fireland8; +extern statetype s_fireland9; +void SpawnBerkeloid(Sint16 x, Sint16 y); +void BerkeThink(objtype *ob); +void BerkeThrowThink(objtype *ob); +void BerkeThrowDone(objtype *ob); +void C_Berke(objtype *ob, objtype *hit); +void FireReact(objtype *ob); +void BerkeDrawReact(objtype *ob); +void BerkeWalkReact(objtype *ob); + +extern statetype s_footsmoke1; +extern statetype s_footsmoke2; +extern statetype s_footsmoke3; +extern statetype s_footsmoke4; +extern statetype s_inch1; +extern statetype s_inch2; +extern statetype s_footchange; //never used! +extern statetype s_footwait; +void SpawnInchworm(Sint16 x, Sint16 y); +void SpawnFoot(Sint16 x, Sint16 y); +void InchThink(objtype *ob); +void InchContact(objtype *ob, objtype *hit); +void FootContact(objtype *ob, objtype *hit); + +extern statetype s_bounderup1; +extern statetype s_bounderup2; +extern statetype s_bounderside1; +extern statetype s_bounderside2; +extern statetype s_bounderstun; +extern statetype s_bounderstun2; +void SpawnBounder(Sint16 x, Sint16 y); +void C_Bounder(objtype *ob, objtype *hit); +void R_Bounder(objtype *ob); + +extern statetype s_lick1; +extern statetype s_lick2; +extern statetype s_lick3; +extern statetype s_lick4; +extern statetype s_licklick1; +extern statetype s_licklick2; +extern statetype s_licklick3; +extern statetype s_licklick4; +extern statetype s_licklick5; +extern statetype s_licklick6; +extern statetype s_licklick7; +extern statetype s_licklick8; +extern statetype s_lickstun; +extern statetype s_lickstun2; +void SpawnLick(Sint16 x, Sint16 y); +void LickJumpThink(objtype *ob); +void LickContact(objtype *ob, objtype *hit); +void LickKillContact(objtype *ob, objtype *hit); +void LickAirReact(objtype *ob); + +extern statetype s_platform; +void SpawnPlatform(Sint16 x, Sint16 y, Sint16 dir); +void T_Platform(objtype *ob); +void R_Platform(objtype *ob); + +extern statetype s_dropplatsit; +extern statetype s_dropplatfall; +extern statetype s_dropplatrise; +void SpawnDropPlat(Sint16 x, Sint16 y); +void T_DropPlatSit(objtype *ob); +void T_DropPlatFall(objtype *ob); +void T_DropPlatRise(objtype *ob); + +/* +============================================================================= + + K4_ACT3 DEFINITIONS + +============================================================================= +*/ + +extern statetype s_eaterstand1; +extern statetype s_eaterstand2; +extern statetype s_eatertport1; +extern statetype s_eatertport2; +extern statetype s_eatertport3; +extern statetype s_eatertport4; +extern statetype s_eatertport5; +extern statetype s_eatertport6; +extern statetype s_eatertport7; +extern statetype s_eatertport8; +extern statetype s_eaterjump1; +extern statetype s_eaterjump2; +extern statetype s_eaterjump3; +extern statetype s_eaterjump4; +extern statetype s_eaterstun; +extern statetype s_eaterstun2; +extern statetype s_eatenbonus1; +extern statetype s_eatenbonus2; +extern statetype s_eatenbonus3; +extern statetype s_eatenbonus4; +void SpawnEater(Sint16 x, Sint16 y); +void T_EaterJump(objtype *ob); +void T_EaterTeleport(objtype *ob); +void C_Eater(objtype *ob, objtype *hit); +void EaterInTile(objtype *ob); +void R_EaterAir(objtype *ob); + +extern statetype s_mimrock; +extern statetype s_mimsneak1; +extern statetype s_mimsneak2; +extern statetype s_mimsneak3; +extern statetype s_mimsneak4; +extern statetype s_mimsneak5; +extern statetype s_mimsneak6; +extern statetype s_mimbonk1; +extern statetype s_mimbonk2; +extern statetype s_mimbonk3; +extern statetype s_mimbounce; +extern statetype s_mimstun; +extern statetype s_mimstun2; +void SpawnMimrock(Sint16 x, Sint16 y); +void T_MimrockWait(objtype *ob); +void T_MimrockSneak(objtype *ob); +void C_Mimrock(objtype *ob, objtype *hit); +void C_MimLethal(objtype *ob, objtype *hit); +void R_MimAir(objtype *ob); +void R_MimBounce(objtype *ob); + +extern statetype s_dopefish1; +extern statetype s_dopefish2; +extern statetype s_dopeattack; +extern statetype s_dopeeat; +extern statetype s_dopeburp1; +extern statetype s_dopeburp2; +extern statetype s_dopereturn; +extern statetype s_dopefood; +extern statetype s_keendopefood; +extern statetype s_keendieslow; +extern statetype s_bubble1; +extern statetype s_bubble2; +extern statetype s_bubble3; +extern statetype s_bubble4; +void SpawnDopefish(Sint16 x, Sint16 y); +void T_EatenKeen(objtype *ob); +void T_Dope(objtype *ob); +void T_DopeHunt(objtype *ob); +void T_DopeReturn(objtype *ob); +void T_Burp(objtype *ob); +void T_Bubble(objtype *ob); +void C_Dope(objtype *ob, objtype *hit); +void R_Fish(objtype *ob); + +extern statetype s_schoolfish1; +extern statetype s_schoolfish2; +void SpawnSchoolfish(Sint16 x, Sint16 y); +void T_SchoolFish(objtype *ob); + +extern statetype s_pixie; +extern statetype s_pixielook; +extern statetype s_pixieshoot; +extern statetype s_pixieshoot2; +extern statetype s_pixiefire1; +extern statetype s_pixiefire2; +extern statetype s_pixiefire3; +extern statetype s_pixiefire4; +void SpawnPixie(Sint16 x, Sint16 y); +void T_Pixie(objtype *ob); +void T_PixieCheck(objtype *ob); +void T_PixieShoot(objtype *ob); +void R_Mshot(objtype *ob); + +extern statetype s_mine; +extern statetype s_mineboom1; +extern statetype s_mineboom2; +void SpawnMine(Sint16 x, Sint16 y, Sint16 dir); +void C_Mine(objtype *ob, objtype *hit); + +extern statetype s_lindsey1; +extern statetype s_lindsey2; +extern statetype s_lindsey3; +extern statetype s_lindsey4; +void SpawnLindsey(Sint16 x, Sint16 y); +void T_Lindsey(objtype *ob); + +extern statetype s_dartthrower; +extern statetype s_dart1; +extern statetype s_dart2; +extern statetype s_dartup1; +extern statetype s_dartup2; +extern statetype s_dartdown1; +extern statetype s_dartdown2; +void SpawnDartShooter(Sint16 x, Sint16 y, Sint16 dir); +void T_DartShoot(objtype *ob); +void R_DartThrower(objtype *ob); + +extern statetype s_scuba; +void SpawnScuba(Sint16 x, Sint16 y); +void C_Scuba(objtype *ob, objtype *hit); + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN4/K4_SPEC.C b/16/keen456/KEEN4-6/KEEN4/K4_SPEC.C new file mode 100755 index 00000000..45c28615 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4/K4_SPEC.C @@ -0,0 +1,1305 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K4_SPEC.C +========= + +Contains (in this order): + +- lump definition +- "Star Wars" crawl text +- level names & messages +- ScanInfoPlane() - for spawning the level objects and marking required sprites +- messages for Lindsey, Janitor, Oracle Members and more + +- actor states & implementation for swimming Keen + +*/ + +#include "CK_DEF.H" + +enum { + CONTROLS_LUMP, // 0 + KEEN_LUMP, // 1 + SUGAR1_LUMP, // 2 + SUGAR2_LUMP, // 3 + SUGAR3_LUMP, // 4 + SUGAR4_LUMP, // 5 + SUGAR5_LUMP, // 6 + SUGAR6_LUMP, // 7 + ONEUP_LUMP, // 8 + AMMO_LUMP, // 9 + WOLRDKEEN_LUMP, // 10 + SLUG_LUMP, // 11 + MADMUSHROOM_LUMP, // 12 + UNUSED1_LUMP, // 13 + LINDSEY_LUMP, // 14 + INCHWORM_LUMP, // 15 + EATER_LUMP, // 16 + COUNCIL_LUMP, // 17 + EGGBIRD_LUMP, // 18 + MIMROCK_LUMP, // 19 + DOPEFISH_LUMP, // 20 + SCHOOLFISH_LUMP, // 21 + ARACHNUT_LUMP, // 22 + SKYPEST_LUMP, // 23 + WORMOUTH_LUMP, // 24 + LICK_LUMP, // 25 + PLATFORM_LUMP, // 26 + BOUNDER_LUMP, // 27 + THUNDERCLOUD_LUMP, // 28 + BERKELOID_LUMP, // 29 + KEYGEM_LUMP, // 30 + DARTS_LUMP, // 31 + SCUBAKEEN_LUMP, // 32 + SPRITE_LUMP, // 33 + MINE_LUMP, // 34 + MOON_LUMP, // 35 + EGG_LUMP, // 36 + NUMLUMPS // 37 +}; + +Uint16 lumpstart[NUMLUMPS] = { + CONTROLS_LUMP_START, + KEEN_LUMP_START, + SUGAR1_LUMP_START, + SUGAR2_LUMP_START, + SUGAR3_LUMP_START, + SUGAR4_LUMP_START, + SUGAR5_LUMP_START, + SUGAR6_LUMP_START, + ONEUP_LUMP_START, + AMMO_LUMP_START, + WORLDKEEN_LUMP_START, + SLUG_LUMP_START, + MADMUSHROOM_LUMP_START, + 0, + LINDSEY_LUMP_START, + INCHWORM_LUMP_START, + EATER_LUMP_START, + COUNCIL_LUMP_START, + EGGBIRD_LUMP_START, + MIMROCK_LUMP_START, + DOPEFISH_LUMP_START, + SCHOOLFISH_LUMP_START, + ARACHNUT_LUMP_START, + SKYPEST_LUMP_START, + WORMOUTH_LUMP_START, + LICK_LUMP_START, + PLATFORM_LUMP_START, + BOUNDER_LUMP_START, + THUNDERCLOUD_LUMP_START, + BERKELOID_LUMP_START, + KEYGEM_LUMP_START, + DARTS_LUMP_START, + SCUBAKEEN_LUMP_START, + SPRITE_LUMP_START, + MINE_LUMP_START, + MOON_LUMP_START, + EGG_LUMP_START +}; + +Uint16 lumpend[NUMLUMPS] = { + CONTROLS_LUMP_END, + KEEN_LUMP_END, + SUGAR1_LUMP_END, + SUGAR2_LUMP_END, + SUGAR3_LUMP_END, + SUGAR4_LUMP_END, + SUGAR5_LUMP_END, + SUGAR6_LUMP_END, + ONEUP_LUMP_END, + AMMO_LUMP_END, + WORLDKEEN_LUMP_END, + SLUG_LUMP_END, + MADMUSHROOM_LUMP_END, + 0, + LINDSEY_LUMP_END, + INCHWORM_LUMP_END, + EATER_LUMP_END, + COUNCIL_LUMP_END, + EGGBIRD_LUMP_END, + MIMROCK_LUMP_END, + DOPEFISH_LUMP_END, + SCHOOLFISH_LUMP_END, + ARACHNUT_LUMP_END, + SKYPEST_LUMP_END, + WORMOUTH_LUMP_END, + LICK_LUMP_END, + PLATFORM_LUMP_END, + BOUNDER_LUMP_END, + THUNDERCLOUD_LUMP_END, + BERKELOID_LUMP_END, + KEYGEM_LUMP_END, + DARTS_LUMP_END, + SCUBAKEEN_LUMP_END, + SPRITE_LUMP_END, + MINE_LUMP_END, + MOON_LUMP_END, + EGG_LUMP_END +}; + +boolean lumpneeded[NUMLUMPS]; + +#if GRMODE == EGAGR + +char far swtext[] = + "Episode Four\n" + "\n" + "Secret of the Oracle\n" + "\n" + "After delivering a\n" + "crippling blow to the\n" + "plans of Mortimer\n" + "McMire and receiving\n" + "the praise of the\n" + "Vorticon race,\n" + "Commander Keen\n" + "returned to his home in\n" + "the suburbs.\n" + "\n" + "Here he was forced to\n" + "go to bed at an early\n" + "hour, and to eat mashed\n" + "potatoes.\n" + "\n" + "Months later, Billy\n" + "tinkered around with\n" + "his latest invention,\n" + "the Photachyon\n" + "Transceiver, or faster-\n" + "than-light radio. After\n" + "picking up a lot of bad\n" + "alien sitcoms, he\n" + "stumbled upon a strange\n" + "message of terrible\n" + "importance....\n"; + +#endif + +char far l0n[] = "Shadowlands"; +char far l1n[] = "Border Village"; +char far l2n[] = "Slug Village"; +char far l3n[] = "The Perilous Pit"; +char far l4n[] = "Cave of the Descendents"; +char far l5n[] = "Chasm of Chills"; +char far l6n[] = "Crystalus"; +char far l7n[] = "Hillville"; +char far l8n[] = "Sand Yego"; +char far l9n[] = "Miragia"; +char far l10n[] = "Lifewater Oasis"; +char far l11n[] = "Pyramid of the Moons"; +char far l12n[] = "Pyramid of Shadows"; +char far l13n[] = "Pyramid of the\nGnosticene Ancients"; +char far l14n[] = "Pyramid of the Forbidden"; +char far l15n[] = "Isle of Tar"; +char far l16n[] = "Isle of Fire"; +char far l17n[] = "Well of Wishes"; +char far l18n[] = "Bean-with-Bacon\nMegarocket"; + +char far l0e[] = "Keen enters the\nShadowlands"; +char far l1e[] = "Keen makes a run for\nthe Border Village"; +char far l2e[] = "Keen slips into\nSlug Village"; +char far l3e[] = "Keen plummets into\nthe The Perilous Pit"; // sic! +char far l4e[] = "Keen plods down into\nthe Cave of the\nDescendents"; +char far l5e[] = "Keen shivers along\nthe Chasm of Chills"; +char far l6e[] = "Keen reflects upon\nentering Crystalus"; +char far l7e[] = "Keen stumbles upon\nHillville"; +char far l8e[] = "Keen grits his teeth\nand enters Sand Yego"; +char far l9e[] = "Keen disappears into\nMiragia"; +char far l10e[] = "Keen crawls into\nLifewater Oasis"; +char far l11e[] = "Keen backs into the\nPyramid of the Moons"; +char far l12e[] = "Keen move silently in\nthe Pyramid of Shadows"; // sic! +char far l13e[] = "Keen reverently enters\nthe Pyramid of the\nGnosticene Ancients"; +char far l14e[] = "Keen hesitantly crosses\ninto the Pyramid of the\nForbidden"; +char far l15e[] = "Keen mucks along the\nIsle of Tar"; +char far l16e[] = "Keen blazes across the\nIsle of Fire"; +char far l17e[] = "Keen hopefully enters\nthe Well of Wishes"; +char far l18e[] = "Keen launches into the\nBean-with-Bacon\nMegarocket"; + +char far *levelnames[GAMELEVELS] = { + l0n, + l1n, + l2n, + l3n, + l4n, + l5n, + l6n, + l7n, + l8n, + l9n, + l10n, + l11n, + l12n, + l13n, + l14n, + l15n, + l16n, + l17n, + l18n +}; + +char far *levelenter[GAMELEVELS] = { + l0e, + l1e, + l2e, + l3e, + l4e, + l5e, + l6e, + l7e, + l8e, + l9e, + l10e, + l11e, + l12e, + l13e, + l14e, + l15e, + l16e, + l17e, + l18e +}; + +Uint16 bonuslump[] = { + KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP, + SUGAR1_LUMP, SUGAR2_LUMP, SUGAR3_LUMP, + SUGAR4_LUMP, SUGAR5_LUMP, SUGAR6_LUMP, + ONEUP_LUMP, AMMO_LUMP +}; + +//========================================================================== + +/* +========================== += += ScanInfoPlane += += Spawn all actors and mark down special places += +========================== +*/ + +void ScanInfoPlane(void) +{ + objtype *ob; + Uint16 i, x, y, chunk; + Sint16 info; + Uint16 far *map; + + InitObjArray(); // start spawning things with a clean slate + + memset(lumpneeded, 0, sizeof(lumpneeded)); + map = mapsegs[2]; + + for (y=0; ynext) + { + if (ob->active != ac_allways) + ob->active = ac_no; + } + + for (i = 0; i < NUMLUMPS; i++) + { + if (lumpneeded[i]) + { + for (chunk = lumpstart[i]; chunk <= lumpend[i]; chunk++) + { + CA_MarkGrChunk(chunk); + } + } + } +} + +//============================================================================ + +/* +=========================== += += PrincessLindsey += +=========================== +*/ + +char *lindseytext[2] = +{ + "There's gear to help\n" + "you swim in Three-Tooth\n" + "Lake. It is hidden in\n" + "Miragia.\n" + , + "The way to the Pyramid\n" + "of the Forbidden lies\n" + "under the Pyramid of\n" + "Moons.\n" +}; + +char *klindseytext[2] = +{ + "Thanks, your Highness!" + , + "Thanks for the\n" + "mysterious clue,\n" + "Princess!\n" +}; + +void PrincessLindsey(void) +{ + SD_WaitSoundDone(); + StopMusic(); + CA_UpLevel(); + CA_MarkGrChunk(LINDSEYPIC); + CA_MarkGrChunk(KEENTALK1PIC); + CA_MarkGrChunk(KEENTALK2PIC); + CA_CacheMarks(NULL); + VW_FixRefreshBuffer(); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX, WindowY, LINDSEYPIC); + PrintY += 6; + WindowW -= 48; + WindowX += 48; + US_CPrint("Princess Lindsey says:\n"); + if (mapon == 7) + { + US_CPrint(lindseytext[0]); + } + else + { + US_CPrint(lindseytext[1]); + } + VW_UpdateScreen(); + SD_PlaySound(SND_MAKEFOOT); + VW_WaitVBL(60); + IN_ClearKeysDown(); + IN_Ack(); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 12; + if (mapon == 7) + { + US_CPrint(klindseytext[0]); + } + else + { + US_CPrint(klindseytext[1]); + } + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + + VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK2PIC); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + + CA_DownLevel(); + StartMusic(gamestate.mapon); + + //reset scorebox (sprite may have been re-cached by CA_DownLevel) + scoreobj->temp2 = -1; + scoreobj->temp1 = -1; + scoreobj->temp3 = -1; + scoreobj->temp4 = -1; +} + +//============================================================================ + +/* +=========================== += += RescueJanitor += +=========================== +*/ + +char far jantext1[] = + "Thanks for going to all\n" + "that trouble, but I'm\n" + "just the janitor for the\n" + "High Council."; + +char far jantext2[] = + "I tried to tell the\n" + "Shikadi that but they\n" + "just wouldn't listen..."; + +char far keenjantext[] = + "This had better\n" + "be a joke."; + +char far jantext3[] = + "Sorry. You aren't\n" + "mad, are you?"; + +void RescueJanitor(void) +{ + char str[200]; + + SD_WaitSoundDone(); + CA_UpLevel(); + CA_MarkGrChunk(ORACLEPIC); + CA_MarkGrChunk(KEENTALK1PIC); + CA_MarkGrChunk(KEENMADPIC); + CA_CacheMarks(NULL); + VW_FixRefreshBuffer(); + StartMusic(-1); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX, WindowY, ORACLEPIC); + PrintY += 6; + WindowW -= 48; + WindowX += 48; + _fstrcpy(str, jantext1); + US_CPrint(str); + VW_UpdateScreen(); + VW_WaitVBL(60); + IN_ClearKeysDown(); + IN_Ack(); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX, WindowY, ORACLEPIC); + PrintY += 6; + WindowW -= 48; + WindowX += 48; + _fstrcpy(str, jantext2); + US_CPrint(str); + VW_UpdateScreen(); + VW_WaitVBL(60); + IN_ClearKeysDown(); + IN_Ack(); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 12; + _fstrcpy(str, keenjantext); + US_CPrint(str); + VW_UpdateScreen(); + VW_WaitVBL(60); + IN_ClearKeysDown(); + IN_Ack(); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX, WindowY, ORACLEPIC); + PrintY += 6; + WindowW -= 48; + WindowX += 48; + _fstrcpy(str, jantext3); + US_CPrint(str); + VW_UpdateScreen(); + VW_WaitVBL(60); + IN_ClearKeysDown(); + IN_Ack(); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + VWB_DrawPic(WindowX+WindowW-40, WindowY+24, KEENMADPIC); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + + StopMusic(); + CA_DownLevel(); + StartMusic(gamestate.mapon); + + //BUG: scorebox needs to be reset here (sprite may have been re-cached by CA_DownLevel) +} + +//============================================================================ + +/* +=========================== += += CanitSwim += +=========================== +*/ + +void CantSwim(void) +{ + SD_WaitSoundDone(); + CA_UpLevel(); // kinda useless without CA_CacheMarks or CA_SetGrPurge + // BUG: haven't made anything purgable here, caching the pic may cause an "out of memory" crash + CA_CacheGrChunk(KEENTALK1PIC); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 12; + US_CPrint("I can't swim!"); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + CA_DownLevel(); + + //Note: scorebox sprite has not been re-cached here (didn't use CA_CacheMarks or anything else that would have made the sprite purgable) +} + +//============================================================================ + +/* +=========================== += += GotScuba += +=========================== +*/ + +void GotScuba(void) +{ + SD_WaitSoundDone(); + CA_UpLevel(); + CA_MarkGrChunk(KEENTALK1PIC); + CA_MarkGrChunk(KEENTALK2PIC); + CA_CacheMarks(NULL); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 12; + US_CPrint( + "Cool! I can breathe\n" + "under water now!" + ); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + + VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK2PIC); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + + CA_DownLevel(); + + //Note: scorebox sprite may have been re-cached by CA_DownLevel, but the level ends after this anyway +} + +//============================================================================ + +/* +=========================== += += RescuedMember += +=========================== +*/ + +char *keentext[] = { + "No sweat, oh guardian\n" + "of wisdom!" + , + "Sounds like a plan,\n" + "bearded one!" + , + "No problemo." + , + "Great. You know, you\n" + "look a lot like the\n" + "last guy I rescued..." + , + "Good idea, Gramps." + , + "May the road rise\n" + "to meet your feet,\n" + "Mr. Member." + , + "Wise plan of action,\n" + "your ancientness." + , + "You're the last one,\n" + "fella. Let's both\n" + "get back to the\n" + "Oracle chamber!" +}; + +void RescuedMember(void) +{ + SD_WaitSoundDone(); + CA_UpLevel(); + CA_MarkGrChunk(ORACLEPIC); + CA_MarkGrChunk(KEENTALK1PIC); + CA_MarkGrChunk(KEENTALK2PIC); + CA_CacheMarks(NULL); + StartMusic(-1); + VW_FixRefreshBuffer(); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX, WindowY, ORACLEPIC); + PrintY += 6; + WindowW -= 48; + WindowX += 48; + if (mapon == 17) + { + US_CPrint( + "Ggoh thig you sogh mg\n" + "fgor regscuing mgge!\n" + "I'gll regur tgo the\n" + "Goracle chagber\n" + "igmediatggely. Blub." + ); + } + else + { + US_CPrint( + "Oh thank you so much\n" + "for rescuing me!\n" + "I'll return to the\n" + "Oracle chamber\n" + "immediately." + ); + } + VW_UpdateScreen(); + VW_WaitVBL(60); + IN_ClearKeysDown(); + IN_Ack(); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 12; + US_CPrint(keentext[gamestate.rescued]); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + + VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK2PIC); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + + gamestate.rescued++; + CA_DownLevel(); + StopMusic(); + + //Note: scorebox sprite may have been re-cached by CA_DownLevel, but the level ends after this anyway +} + +/* +============================================================================= + + SWIMMING KEEN + +temp4 = counter for spawning bubbles + +============================================================================= +*/ + +statetype s_keenswimslow1 = {SCUBAKEENL1SPR, SCUBAKEENR1SPR, stepthink, false, false, 50, 0, 0, T_KeenSwimSlow, C_KeenSwim, R_KeenSwim, &s_keenswimslow2}; +statetype s_keenswimslow2 = {SCUBAKEENL2SPR, SCUBAKEENR2SPR, stepthink, false, false, 50, 0, 0, T_KeenSwimSlow, C_KeenSwim, R_KeenSwim, &s_keenswimslow1}; +statetype s_keenswim1 = {SCUBAKEENL1SPR, SCUBAKEENR1SPR, stepthink, false, false, 50, 0, 0, T_KeenSwim, C_KeenSwim, R_KeenSwim, &s_keenswimslow2}; +statetype s_keenswim2 = {SCUBAKEENL2SPR, SCUBAKEENR2SPR, stepthink, false, false, 50, 0, 0, T_KeenSwim, C_KeenSwim, R_KeenSwim, &s_keenswimslow1}; +//Note: the die states for swimming Keen are in CK_KEEN.C and K4_ACT3.C (dopefish section) + +statetype s_kbubble1 = {SMALLBUBBLE1SPR, SMALLBUBBLE1SPR, think, false, false, 20, 0, 24, T_Bubble, NULL, R_Draw, &s_kbubble1}; +statetype s_kbubble2 = {SMALLBUBBLE2SPR, SMALLBUBBLE2SPR, think, false, false, 20, 0, 24, T_Bubble, NULL, R_Draw, &s_kbubble2}; +statetype s_kbubble3 = {SMALLBUBBLE3SPR, SMALLBUBBLE3SPR, think, false, false, 20, 0, 24, T_Bubble, NULL, R_Draw, &s_kbubble3}; +statetype s_kbubble4 = {SMALLBUBBLE4SPR, SMALLBUBBLE4SPR, think, false, false, 20, 0, 24, T_Bubble, NULL, R_Draw, &s_kbubble4}; + +/* +=========================== += += SpawnSwimKeen += +=========================== +*/ + +void SpawnSwimKeen(Sint16 x, Sint16 y) +{ + player->obclass = keenobj; + player->active = ac_allways; + player->priority = 1; + player->x = CONVERT_TILE_TO_GLOBAL(x); + player->y = CONVERT_TILE_TO_GLOBAL(y); + player->xdir = 1; + player->ydir = 1; + player->needtoclip = cl_fullclip; + NewState(player, &s_keenswimslow1); +} + +/* +=========================== += += SpawnKbubble += +=========================== +*/ + +void SpawnKbubble(objtype *ob) +{ + ob->temp4 = 0; + GetNewObj(true); + if (ob->xdir == -1) + { + new->x = ob->x; + } + else + { + new->x = ob->x + 24*PIXGLOBAL; + } + new->y = ob->y; + new->obclass = inertobj; + new->priority = 3; + new->active = ac_removable; + new->needtoclip = cl_noclip; + new->yspeed = -24; + new->xspeed = 4; + switch (US_RndT() / 64) + { + case 0: + NewState(new, &s_kbubble1); + break; + case 1: + NewState(new, &s_kbubble2); + break; + case 2: + NewState(new, &s_kbubble3); + break; + case 3: + NewState(new, &s_kbubble4); + break; + } + SD_PlaySound(SND_BLUB); +} + +/* +=========================== += += T_KeenSwimSlow += +=========================== +*/ + +void T_KeenSwimSlow(objtype *ob) +{ + Sint32 i; + Sint16 vx, vy, xc, yc; + + xc = ob->xspeed < 0; + yc = ob->yspeed < 4; + + ob->temp4 = ob->temp4 + tics; + if (ob->temp4 > 60) + SpawnKbubble(ob); + + if (jumpbutton && !jumpheld) + { + jumpheld = true; + if (c.xaxis) + ob->xspeed = c.xaxis * 18; + if (c.yaxis) + ob->yspeed = c.yaxis * 18; + ob->state = ob->state->nextstate; + } + if (c.xaxis) + ob->xdir = c.xaxis; + + for (i = lasttimecount-tics; i < lasttimecount; i++) + { + if ((i & 7) == 0) + { + if (ob->xspeed > 12) + { + vx = -3; + } + else if (ob->xspeed > 0) + { + vx = -1; + } + else if (ob->xspeed > -12) + { + vx = 1; + } + else + { + vx = 3; + } + vx += c.xaxis; + vx += c.xaxis; + ob->xspeed += vx; + + if (c.xaxis == 0 && (ob->xspeed < 0) != xc) + ob->xspeed = 0; + + if (ob->yspeed > 12) + { + vy = -3; + } + else if (ob->yspeed > 4) + { + vy = -1; + } + else if (ob->yspeed > -12) + { + vy = 1; + } + else + { + vy = 3; + } + vy += c.yaxis; + vy += c.yaxis; + ob->yspeed += vy; + + if (c.yaxis == 0 && ob->yspeed > 4 && yc) + ob->yspeed = 0; + } + xtry += ob->xspeed; + ytry += ob->yspeed; + } +} + +/* +=========================== += += T_KeenSwim += +=========================== +*/ + +void T_KeenSwim(objtype *ob) //never actually used +{ + ob->temp4 = ob->temp4 + tics; + if (ob->temp4 > 60) + SpawnKbubble(ob); + + if (jumpbutton && !jumpheld) + { + jumpheld = true; + ob->xspeed = c.xaxis * 18; + if (c.yaxis) + ob->yspeed = c.yaxis * 18; + + if (ob->state == &s_keenswim1) + { + ob->state = &s_keenswim2; + } + else + { + ob->state = &s_keenswim1; + } + } + + xtry = xtry + ob->xspeed * tics; + ytry = ytry + ob->yspeed * tics; + if (xtry > 0) + { + ob->xdir = 1; + } + else if (xtry < 0) + { + ob->xdir = -1; + } + + ytry = ytry + tics*4; +} + +/* +=========================== += += C_KeenSwim += +=========================== +*/ + +void C_KeenSwim(objtype *ob, objtype *hit) +{ + switch (hit->obclass) + { + case bonusobj: + switch (hit->temp1) + { + case 0: + case 1: + case 2: + case 3: + case 4: + case 5: + case 6: + case 7: + case 8: + case 9: + case 10: + case 11: + SD_PlaySound(bonussound[hit->temp1]); + hit->obclass = inertobj; + hit->priority = 3; + hit->shapenum = bonussprite[hit->temp1]; + GivePoints(bonuspoints[hit->temp1]); + if (hit->temp1 < 4) + { + gamestate.keys[hit->temp1]++; + } + else if (hit->temp1 == 10) + { + gamestate.lives++; + } + else if (hit->temp1 == 11) + { + gamestate.ammo += shotsinclip[gamestate.difficulty]; + } + ChangeState(hit, &s_bonusrise); + break; + } + break; + + case oracleobj: + playstate = ex_rescued; + break; + } + ob++; // shut up compiler +} + +/* +=========================== += += R_KeenSwim += +=========================== +*/ + +void R_KeenSwim(objtype *ob) +{ + if (ob->hiteast && ob->xspeed < 0 || ob->hitwest && ob->xspeed > 0) + ob->xspeed = 0; + + if (ob->hitnorth && ob->yspeed > 0 || ob->hitsouth && ob->yspeed < 0) + ob->yspeed = 0; + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} diff --git a/16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.EQU b/16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.EQU new file mode 100755 index 00000000..44440397 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.EQU @@ -0,0 +1,55 @@ +;===================================== +; +; Graphics .EQU file for .CK4 +; not IGRAB-ed :) +; +;===================================== + +;INCLUDE "VERSION.EQU" + +; +; Amount of each data item +; +NUMFONT = 2 +NUMFONTM = 0 +NUMPICM = 3 +NUMTILE8 = 108 +NUMTILE8M = 36 +NUMTILE32 = 0 +NUMTILE32M = 0 + +; +; Amount of each item in episode 4 +; +NUMPICS = 116 +NUMSPRITES = 397 +NUMTILE16 = 1296 +NUMTILE16M = 2916 +NUMEXTERN = 16 + + +; +; File offsets for data items +; +STRUCTPIC = 0 +STRUCTPICM = 1 +STRUCTSPRITE = 2 + +STARTFONT = 3 +STARTFONTM = (STARTFONT+NUMFONT) +STARTPICS = (STARTFONTM+NUMFONTM) +STARTPICM = (STARTPICS+NUMPICS) +STARTSPRITES = (STARTPICM+NUMPICM) +STARTTILE8 = (STARTSPRITES+NUMSPRITES) +STARTTILE8M = (STARTTILE8+1) +STARTTILE16 = (STARTTILE8M+1) +STARTTILE16M = (STARTTILE16+NUMTILE16) +STARTTILE32 = (STARTTILE16M+NUMTILE16M) +STARTTILE32M = (STARTTILE32+NUMTILE32) +STARTEXTERN = (STARTTILE32M+NUMTILE32M) + +NUMCHUNKS = (STARTEXTERN+NUMEXTERN) + +; +; Thank you for using IGRAB! +; diff --git a/16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.H b/16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.H new file mode 100755 index 00000000..02585642 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4C/GFXC_CK4.H @@ -0,0 +1,767 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __GFX_H__ +#define __GFX_H__ + +//#include "VERSION.H" + +////////////////////////////////////// +// +// Graphics .H file for .CK4 +// not IGRAB-ed :) +// +////////////////////////////////////// + +// +// Lump creation macros +// + +#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1, +#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1, + +// +// Amount of each data item +// + +//common numbers: +#define NUMCHUNKS NUMGRCHUNKS +#define NUMFONT 2 +#define NUMFONTM 0 +#define NUMPICM 3 +#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH! +#define NUMTILE8M 36 // BUG: only 20 tiles exist in EGAGRAPH! +#define NUMTILE32 0 +#define NUMTILE32M 0 + +//episode-specific numbers: +#define NUMPICS 116 +#define NUMSPRITES 397 +#define NUMTILE16 1296 +#define NUMTILE16M 2916 +#define NUMEXTERNS 16 + +// +// File offsets for data items +// +#define STRUCTPIC 0 +#define STRUCTPICM 1 +#define STRUCTSPRITE 2 + +#define STARTFONT 3 +#define STARTFONTM (STARTFONT+NUMFONT) +#define STARTPICS (STARTFONTM+NUMFONTM) +#define STARTPICM (STARTPICS+NUMPICS) +#define STARTSPRITES (STARTPICM+NUMPICM) +#define STARTTILE8 (STARTSPRITES+NUMSPRITES) +#define STARTTILE8M (STARTTILE8+1) +#define STARTTILE16 (STARTTILE8M+1) +#define STARTTILE16M (STARTTILE16+NUMTILE16) +#define STARTTILE32 (STARTTILE16M+NUMTILE16M) +#define STARTTILE32M (STARTTILE32+NUMTILE32) +#define STARTEXTERNS (STARTTILE32M+NUMTILE32M) + +typedef enum { + LASTFONT=STARTPICS-1, + + // + // PICS + // + + PADDINGPIC, // 5 (compensate for the missing Star Wars font to give the other pics the correct chunk numbers) + + H_HELPPIC, // 6 + H_LARROWPIC, // 7 + H_RARROWPIC, // 8 + H_ESCPIC, // 9 + H_ENTERPIC, // 10 + DUMMYPIC, // 11 + H_STORY1PIC, // 12 + H_STORY2PIC, // 13 + H_STORY3PIC, // 14 + H_STORY4PIC, // 15 + STORY5PIC, // 16 + STORY6PIC, // 17 + STORY7PIC, // 18 + STORY8PIC, // 19 + ITEM1PIC, // 20 + ITEM2PIC, // 21 + ITEM3PIC, // 22 + ITEM4PIC, // 23 + ITEM5PIC, // 24 + ITEM6PIC, // 25 + ITEM7PIC, // 26 + ITEM8PIC, // 27 + ITEM9PIC, // 28 + ARACHNUTPIC, // 29 + BERKELOISPIC, // 30 + BOUNDERPIC, // 31 + COUNCILMEMBERPIC, // 32 + DOPEFISHPIC, // 33 + INCHWORMPIC, // 34 + LICKPIC, // 35 + MADMUSHROOMPIC, // 36 + POISONSLIGPIC, // 37 + PRINCESSLINDSEYPIC, // 38 + SCHOOLFISHPIC, // 39 + SKYPESTPIC, // 40 + SPRITEPIC, // 41 + WORMOUTHPIC, // 42 + ENDOFTEXTPIC, // 43 + H_MCPIC, // 44 + H_HANDPIC, // 45 + H_VISAPIC, // 46 + H_FLASHARROW1PIC, // 47 + H_FLASHARROW2PIC, // 48 + ENDINDG1PIC, // 49 + ENDINDG2PIC, // 50 + ENDINDG3PIC, // 51 + ENDINDG4PIC, // 52 + ENDINDG5PIC, // 53 + ENDINDG6PIC, // 54 + ENDINDG7PIC, // 55 + ENDINDG8PIC, // 56 + ENDINDG9PIC, // 57 + ENDINDG10PIC, // 58 + ENDINDG11PIC, // 59 + ENDINDG12PIC, // 60 + ENDINDG13PIC, // 61 + ENDINDG14PIC, // 62 + ENDINDG15PIC, // 63 + ENDINDG16PIC, // 64 + ENDINDG17PIC, // 65 + ENDINDG18PIC, // 66 + ENDINDG19PIC, // 67 + ENDINDG20PIC, // 68 + ENDINDG21PIC, // 69 + ENDINDG22PIC, // 70 + ENDINDG23PIC, // 71 + ENDINDG24PIC, // 72 + ENDINDG25PIC, // 73 + ENDINDG26PIC, // 74 + ENDINDG27PIC, // 75 + ENDINDG28PIC, // 76 + ENDINDG29PIC, // 77 + ENDINDG30PIC, // 78 + H_IDLOGOPIC, // 79 + H_TOPWINDOWPIC, // 80 + H_LEFTWINDOWPIC, // 81 + H_RIGHTWINDOWPIC, // 82 + H_BOTTOMINFOPIC, // 83 + H_BOTTOMWINDOWPIC, // 84 + H_BARPIC, // 85 + H_KEEN5PIC, // 86 + H_KEEN6PIC, // 87 + + START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART) + CP_MAINMENUPIC, // 88 + CP_NEWGAMEMENUPIC, // 89 + CP_LOADMENUPIC, // 90 + CP_SAVEMENUPIC, // 91 + CP_CONFIGMENUPIC, // 92 + CP_SOUNDMENUPIC, // 93 + CP_MUSICMENUPIC, // 94 + CP_KEYBOARDMENUPIC, // 95 + CP_KEYMOVEMENTPIC, // 96 + CP_KEYBUTTONPIC, // 97 + CP_JOYSTICKMENUPIC, // 98 + CP_OPTIONSMENUPIC, // 99 + CP_PADDLEWARPIC, // 100 + CP_QUITPIC, // 101 + CP_JOYSTICKPIC, // 102 + CP_MENUSCREENPIC, // 103 + END_LUMP(CONTROLS_LUMP_END, __CONTROLSEND) + + IDSOFTPIC, // 104 + PROGTEAMPIC, // 105 + ARTISTPIC, // 106 + DIRECTORPIC, // 107 + SW_BACKGROUNDPIC, // 108 + TITLEPICPIC, // 109 + ORACLEPIC, // 110 + KEENTALK1PIC, // 111 + KEENTALK2PIC, // 112 + KEENMADPIC, // 113 + LINDSEYPIC, // 114 + KEENCOUNT1PIC, // 115 + KEENCOUNT2PIC, // 116 + KEENCOUNT3PIC, // 117 + KEENCOUNT4PIC, // 118 + KEENCOUNT5PIC, // 119 + KEENCOUNT6PIC, // 120 + + // + // MASKED PICS + // + + CP_MENUMASKPICM, // 121 + CORDPICM, // 122 + METALPOLEPICM, // 123 + + // + // SPRITES + // + + START_LUMP(PADDLE_LUMP_START, __PADDLESTART) + PADDLESPR, // 124 + BALLSPR, // 125 + BALL1PIXELTOTHERIGHTSPR, // 126 + BALL2PIXELSTOTHERIGHTSPR, // 127 + BALL3PIXELSTOTHERIGHTSPR, // 128 + END_LUMP(PADDLE_LUMP_END, __PADDLEEND) + + DEMOPLAQUESPR, // 129 + + //player lump: + START_LUMP(KEEN_LUMP_START, __KEENSTART) + KEENSTANDRSPR, // 130 + KEENRUNR1SPR, // 131 + KEENRUNR2SPR, // 132 + KEENRUNR3SPR, // 133 + KEENRUNR4SPR, // 134 + KEENJUMPR1SPR, // 135 + KEENJUMPR2SPR, // 136 + KEENJUMPR3SPR, // 137 + KEENSTANDLSPR, // 138 + KEENRUNL1SPR, // 139 + KEENRUNL2SPR, // 140 + KEENRUNL3SPR, // 141 + KEENRUNL4SPR, // 142 + KEENJUMPL1SPR, // 143 + KEENJUMPL2SPR, // 144 + KEENJUMPL3SPR, // 145 + KEENLOOKUSPR, // 146 + KEENWAITR1SPR, // 147 + KEENWAITR2SPR, // 148 + KEENWAITR3SPR, // 149 + KEENSITREAD1SPR, // 150 + KEENSITREAD2SPR, // 151 + KEENSITREAD3SPR, // 152 + KEENSITREAD4SPR, // 153 + KEENREAD1SPR, // 154 + KEENREAD2SPR, // 155 + KEENREAD3SPR, // 156 + KEENSTOPREAD1SPR, // 157 + KEENSTOPREAD2SPR, // 158 + KEENWATCHSPR, // 159 + KEENLOOKD1SPR, // 160 + KEENLOOKD2SPR, // 161 + KEENDIE1SPR, // 162 + KEENDIE2SPR, // 163 + STUNSTARS1SPR, // 164 + STUNSTARS2SPR, // 165 + STUNSTARS3SPR, // 166 + KEENSHOOTLSPR, // 167 + KEENJLSHOOTLSPR, // 168 + KEENJSHOOTDSPR, // 169 + KEENJSHOOTUSPR, // 170 + KEENSHOOTUSPR, // 171 + KEENSHOOTRSPR, // 172 + KEENJRSHOOTRSPR, // 173 + STUN1SPR, // 174 + STUN2SPR, // 175 + STUN3SPR, // 176 + STUN4SPR, // 177 + STUNHIT1SPR, // 178 + STUNHIT2SPR, // 179 + KEENSHINNYR1SPR, // 180 + KEENSHINNYR2SPR, // 181 + KEENSHINNYR3SPR, // 182 + KEENSLIDED1SPR, // 183 + KEENSLIDED2SPR, // 184 + KEENSLIDED3SPR, // 185 + KEENSLIDED4SPR, // 186 + KEENSHINNYL1SPR, // 187 + KEENSHINNYL2SPR, // 188 + KEENSHINNYL3SPR, // 189 + KEENPLSHOOTUSPR, // 190 + KEENPRSHOOTUSPR, // 191 + KEENPRSHOOTDSPR, // 192 + KEENPLSHOOTDSPR, // 193 + KEENPSHOOTLSPR, // 194 + KEENPSHOOTRSPR, // 195 + KEENENTER1SPR, // 196 + KEENENTER2SPR, // 197 + KEENENTER3SPR, // 198 + KEENENTER4SPR, // 199 + KEENENTER5SPR, // 200 + KEENHANGLSPR, // 201 + KEENHANGRSPR, // 202 + KEENCLIMBEDGEL1SPR, // 203 + KEENCLIMBEDGEL2SPR, // 204 + KEENCLIMBEDGEL3SPR, // 205 + KEENCLIMBEDGEL4SPR, // 206 + KEENCLIMBEDGER1SPR, // 207 + KEENCLIMBEDGER2SPR, // 208 + KEENCLIMBEDGER3SPR, // 209 + KEENCLIMBEDGER4SPR, // 210 + KEENPOGOR1SPR, // 211 + KEENPOGOR2SPR, // 212 + KEENPOGOL1SPR, // 213 + KEENPOGOL2SPR, // 214 + DROPSPLASH1SPR, // 215 + DROPSPLASH2SPR, // 216 + DROPSPLASH3SPR, // 217 + BONUS100UPSPR, // 218 + BONUS100SPR, // 219 + BONUS200SPR, // 220 + BONUS500SPR, // 221 + BONUS1000SPR, // 222 + BONUS2000SPR, // 223 + BONUS5000SPR, // 224 + BONUS1UPSPR, // 225 + BONUSCLIPSPR, // 226 + END_LUMP(KEEN_LUMP_END, __KEENEND) + + START_LUMP(SUGAR1_LUMP_START, __SUGAR1START) + SUGAR1ASPR, // 227 + SUGAR1BSPR, // 228 + END_LUMP(SUGAR1_LUMP_END, __SUGAR1END) + + START_LUMP(SUGAR2_LUMP_START, __SUGAR2START) + SUGAR2ASPR, // 229 + SUGAR2BSPR, // 230 + END_LUMP(SUGAR2_LUMP_END, __SUGAR2END) + + START_LUMP(SUGAR3_LUMP_START, __SUGAR3START) + SUGAR3ASPR, // 231 + SUGAR3BSPR, // 232 + END_LUMP(SUGAR3_LUMP_END, __SUGAR3END) + + START_LUMP(SUGAR4_LUMP_START, __SUGAR4START) + SUGAR4ASPR, // 233 + SUGAR4BSPR, // 234 + END_LUMP(SUGAR4_LUMP_END, __SUGAR4END) + + START_LUMP(SUGAR5_LUMP_START, __SUGAR5START) + SUGAR5ASPR, // 235 + SUGAR5BSPR, // 236 + END_LUMP(SUGAR5_LUMP_END, __SUGAR5END) + + START_LUMP(SUGAR6_LUMP_START, __SUGAR6START) + SUGAR6ASPR, // 237 + SUGAR6BSPR, // 238 + END_LUMP(SUGAR6_LUMP_END, __SUGAR6END) + + START_LUMP(ONEUP_LUMP_START, __ONEUPSTART) + ONEUPASPR, // 239 + ONEUPBSPR, // 240 + END_LUMP(ONEUP_LUMP_END, __ONEUPEND) + + DOORSPR, // 241 + + START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART) + REDGEM1SPR, // 242 + REDGEM2SPR, // 243 + YELLOWGEM1SPR, // 244 + YELLOWGEM2SPR, // 245 + BLUEGEM1SPR, // 246 + BLUEGEM2SPR, // 247 + GREENGEM1SPR, // 248 + GREENGEM2SPR, // 249 + BONUSGEMSPR, // 250 + END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND) + + START_LUMP(AMMO_LUMP_START, __AMMOSTART) + STUNCLIP1SPR, // 251 + STUNCLIP2SPR, // 252 + END_LUMP(AMMO_LUMP_END, __AMMOEND) + + SCOREBOXSPR, // 253 + + START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART) + WORLDKEENL1SPR, // 254 + WORLDKEENL2SPR, // 255 + WORLDKEENL3SPR, // 256 + WORLDKEENR1SPR, // 257 + WORLDKEENR2SPR, // 258 + WORLDKEENR3SPR, // 259 + WORLDKEENU1SPR, // 260 + WORLDKEENU2SPR, // 261 + WORLDKEENU3SPR, // 262 + WORLDKEEND1SPR, // 263 + WORLDKEEND2SPR, // 264 + WORLDKEEND3SPR, // 265 + WORLDKEENDR1SPR, // 266 + WORLDKEENDR2SPR, // 267 + WORLDKEENDR3SPR, // 268 + WORLDKEENDL1SPR, // 269 + WORLDKEENDL2SPR, // 270 + WORLDKEENDL3SPR, // 271 + WORLDKEENUL1SPR, // 272 + WORLDKEENUL2SPR, // 273 + WORLDKEENUL3SPR, // 274 + WORLDKEENUR1SPR, // 275 + WORLDKEENUR2SPR, // 276 + WORLDKEENUR3SPR, // 277 + WORLDKEENWAVE1SPR, // 278 + WORLDKEENWAVE2SPR, // 279 + WORLDKEENSWIMU1SPR, // 280 + WORLDKEENSWIMU2SPR, // 281 + WORLDKEENSWIMR1SPR, // 282 + WORLDKEENSWIMR2SPR, // 283 + WORLDKEENSWIMD1SPR, // 284 + WORLDKEENSWIMD2SPR, // 285 + WORLDKEENSWIML1SPR, // 286 + WORLDKEENSWIML2SPR, // 287 + WORLDKEENSWIMUR1SPR, // 288 + WORLDKEENSWIMUR2SPR, // 289 + WORLDKEENSWIMDR1SPR, // 290 + WORLDKEENSWIMDR2SPR, // 291 + WORLDKEENSWIMDL1SPR, // 292 + WORLDKEENSWIMDL2SPR, // 293 + WORLDKEENSWIMUL1SPR, // 294 + WORLDKEENSWIMUL2SPR, // 295 + WOLRDKEENRIDE1SPR, // 296 + WOLRDKEENRIDE2SPR, // 297 + FLAGFLIP1SPR, // 298 + FLAGFLIP2SPR, // 299 + FLAGFLIP3SPR, // 300 + FLAGFLIP4SPR, // 301 + FLAGFLIP5SPR, // 302 + FLAGFALL1SPR, // 303 + FLAGFALL2SPR, // 304 + FLAGFLAP1SPR, // 305 + FLAGFLAP2SPR, // 306 + FLAGFLAP3SPR, // 307 + FLAGFLAP4SPR, // 308 + END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND) + + START_LUMP(SCUBAKEEN_LUMP_START, __SCUBAKEENSTART) + SCUBAKEENL1SPR, // 309 + SCUBAKEENL2SPR, // 310 + SCUBAKEENR1SPR, // 311 + SCUBAKEENR2SPR, // 312 + SCUBAKEENDEAD1SPR, // 313 + SCUBAKEENDEAD2SPR, // 314 + END_LUMP(SCUBAKEEN_LUMP_END, __SCUBAKEENEND) + + START_LUMP(SLUG_LUMP_START, __SLUGSTART) + SLUGWALKR1SPR, // 315 + SLUGWALKR2SPR, // 316 + SLUGPISSRSPR, // 317 + SLUGSTUN1SPR, // 318 + SLUGSTUN2SPR, // 319 + SLUGWALKL1SPR, // 320 + SLUGWALKL2SPR, // 321 + SLUGPISSLSPR, // 322 + SLUGSLIME1SPR, // 323 + SLUGSLIME2SPR, // 324 + END_LUMP(SLUG_LUMP_END, __SLUGEND) + + START_LUMP(MADMUSHROOM_LUMP_START, __MADMUSHROOMSTART) + MADMUSHROOML1SPR, // 325 + MADMUSHROOML2SPR, // 326 + MADMUSHROOMR1SPR, // 327 + MADMUSHROOMR2SPR, // 328 + END_LUMP(MADMUSHROOM_LUMP_END, __MADMUSHROOMEND) + + START_LUMP(LINDSEY_LUMP_START, __LINDSEYSTART) + LINDSEY1SPR, // 329 + LINDSEY2SPR, // 330 + LINDSEY3SPR, // 331 + LINDSEY4SPR, // 332 + END_LUMP(LINDSEY_LUMP_END, __LINDSEYEND) + + START_LUMP(INCHWORM_LUMP_START, __INCHWORMSTART) + INCHWORMR1SPR, // 333 + INCHWORMR2SPR, // 334 + INCHWORML1SPR, // 335 + INCHWORML2SPR, // 336 + FOOTSPR, // 337 + END_LUMP(INCHWORM_LUMP_END, __INCHWORMEND) + + START_LUMP(EATER_LUMP_START, __EATERSTART) + EATERSTAND1SPR, // 338 + EATERSTAND2SPR, // 339 + EATERJUMPR1SPR, // 340 + EATERJUMPR2SPR, // 341 + EATERJUMPR3SPR, // 342 + EATERJUMPL1SPR, // 343 + EATERJUMPL2SPR, // 344 + EATERJUMPL3SPR, // 345 + EATENBONUS1SPR, // 346 + EATENBONUS2SPR, // 347 + EATENBONUS3SPR, // 348 + EATENBONUS4SPR, // 349 + SMOKE1SPR, // 350 + SMOKE2SPR, // 351 + SMOKE3SPR, // 352 + SMOKE4SPR, // 353 + SMOKE5SPR, // 354 + EATERSTUNSPR, // 355 + END_LUMP(EATER_LUMP_END, __EATEREND) + + START_LUMP(COUNCIL_LUMP_START, __COUINCILSTART) + COUNCILWALKR1SPR, // 356 + COUNCILWALKR2SPR, // 357 + COUNCILWALKL1SPR, // 358 + COUNCILWALKL2SPR, // 359 + COUNCILTHINKLSPR, // 360 + COUNCILTHINKRSPR, // 361 + END_LUMP(COUNCIL_LUMP_END, __COUNCILEND) + + START_LUMP(EGG_LUMP_START, __EGGSTART) + EGGSPR, // 362 + EGGBROKESPR, // 363 + EGGCHIP1SPR, // 364 + EGGCHIP2SPR, // 365 + EGGCHIP3SPR, // 366 + END_LUMP(EGG_LUMP_END, __EGGEND) + + START_LUMP(EGGBIRD_LUMP_START, __EGGBIRDSTART) + BIRDWALKR1SPR, // 367 + BIRDWALKR2SPR, // 368 + BIRDWALKR3SPR, // 369 + BIRDWALKR4SPR, // 370 + BIRDWALKL1SPR, // 371 + BIRDWALKL2SPR, // 372 + BIRDWALKL3SPR, // 373 + BIRDWALKL4SPR, // 374 + BIRDFLY1SPR, // 375 + BIRDFLY2SPR, // 376 + BIRDFLY3SPR, // 377 + BIRDFLY4SPR, // 378 + BIRDSTUNSPR, // 379 + END_LUMP(EGGBIRD_LUMP_END, __EGGBIRDEND) + + START_LUMP(DARTS_LUMP_START, __DARTSSTART) + DARTU1SPR, // 380 + DARTU2SPR, // 381 + DARTD1SPR, // 382 + DARTD2SPR, // 383 + DARTR1SPR, // 384 + DARTR2SPR, // 385 + DARTL1SPR, // 386 + DARTL2SPR, // 387 + END_LUMP(DARTS_LUMP_END, __DARTSEND) + + START_LUMP(MIMROCK_LUMP_START, __MIMROCKSTART) + MIMROCKSPR, // 388 + MIMROCKWALKL1SPR, // 389 + MIMROCKWALKL2SPR, // 390 + MIMROCKWALKL3SPR, // 391 + MIMROCKWALKL4SPR, // 392 + MIMROCKWALKR1SPR, // 393 + MIMROCKWALKR2SPR, // 394 + MIMROCKWALKR3SPR, // 395 + MIMROCKWALKR4SPR, // 396 + MIMROCKJUMPR1SPR, // 397 + MIMROCKJUMPR2SPR, // 398 + MIMROCKJUMPR3SPR, // 399 + MIMROCKJUMPL1SPR, // 400 + MIMROCKJUMPL2SPR, // 401 + MIMROCKJUMPL3SPR, // 402 + MINROCKSTUNSPR, // 403 + END_LUMP(MIMROCK_LUMP_END, __MIMROCKEND) + + START_LUMP(DOPEFISH_LUMP_START, __DOPEFISHSTART) + DOPEFISHSWIMR1SPR, // 404 + DOPEFISHSWIMR2SPR, // 405 + DOPEFISHHUNGRYRSPR, // 406 + DOPEFISHBURP1SPR, // 407 + DOPEFISHBURP2SPR, // 408 + BIGBUBBLE1SPR, // 409 + BIGBUBBLE2SPR, // 410 + BIGBUBBLE3SPR, // 411 + BIGBUBBLE4SPR, // 412 + SMALLBUBBLE1SPR, // 413 + SMALLBUBBLE2SPR, // 414 + SMALLBUBBLE3SPR, // 415 + SMALLBUBBLE4SPR, // 416 + MEDIUMBUBBLESPR, // 417 + DOPEFISHSWIML1SPR, // 418 + DOPEFISHSWIML2SPR, // 419 + DOPEFISHHUNGRYLSPR, // 420 + END_LUMP(DOPEFISH_LUMP_END, __DOPEFISHEND) + + START_LUMP(SCHOOLFISH_LUMP_START, __SCHOOLFISHSTART) + SCHOOLFISHL1SPR, // 421 + SCHOOLFISHL2SPR, // 422 + SCHOOLFISHR1SPR, // 423 + SCHOOLFISHR2SPR, // 424 + END_LUMP(SCHOOLFISH_LUMP_END, __SCHOOLFISHEND) + + START_LUMP(ARACHNUT_LUMP_START, __ARACHNUTSTART) + ARACHNUTWALK1SPR, // 425 + ARACHNUTWALK2SPR, // 426 + ARACHNUTWALK3SPR, // 427 + ARACHNUTWALK4SPR, // 428 + ARACHNUTSTUNSPR, // 429 + END_LUMP(ARACHNUT_LUMP_END, __ARACHNUTEND) + + SCUBASPR, // 430 + + START_LUMP(SPRITE_LUMP_START, __SPRITESTART) + SPRITEFLOATSPR, // 431 + SPRITEAIMLSPR, // 432 + SPRITESHOOTLSPR, // 433 + SPRITEAIMRSPR, // 434 + SPRITESHOOTRSPR, // 435 + SPRITESHOT1SPR, // 436 + SPRITESHOT2SPR, // 437 + SPRITESHOT3SPR, // 438 + SPRITESHOT4SPR, // 439 + END_LUMP(SPRITE_LUMP_END, __SPRITEEND) + + START_LUMP(MINE_LUMP_START, __MINESTART) + MINESPR, // 440 + MINEEXPLODE1SPR, // 441 + MINEEXPLODE2SPR, // 442 + END_LUMP(MINE_LUMP_END, __MINEEND) + + START_LUMP(SKYPEST_LUMP_START, __SKYPESTSTART) + SKYPESTFLYL1SPR, // 443 + SKYPESTFLYL2SPR, // 444 + SKYPESTFLYR1SPR, // 445 + SKYPESTFLYR2SPR, // 446 + SKYPESTSIT1SPR, // 447 + SKYPESTSIT2SPR, // 448 + SKYPESTSIT3SPR, // 449 + SKYPESTSIT4SPR, // 450 + SKYPESTSIT5SPR, // 451 + SKYPESTSIT6SPR, // 452 + SKYPESTSIT7SPR, // 453 + SKYPESTSIT8SPR, // 454 + SKYPESTSIT9SPR, // 455 + SKYPESTSQUASHEDSPR, // 456 + END_LUMP(SKYPEST_LUMP_END, __SKYPESTEND) + + START_LUMP(WORMOUTH_LUMP_START, __WORMOUTHSTART) + WORMOUTHSPR, // 457 + WORMOUTHPEEKR1SPR, // 458 + WORMOUTHPEEKR2SPR, // 459 + WORMOUTHPEEKL1SPR, // 460 + WORMOUTHPEEKL2SPR, // 461 + WORMOUTHBITER1SPR, // 462 + WORMOUTHBITER2SPR, // 463 + WORMOUTHBITER3SPR, // 464 + WORMOUTHBITEL1SPR, // 465 + WORMOUTHBITEL2SPR, // 466 + WORMOUTHBITEL3SPR, // 467 + WORMOUTHSTUNSPR, // 468 + END_LUMP(WORMOUTH_LUMP_END, __WORMOUTHEND) + + START_LUMP(LICK_LUMP_START, __LICKSTART) + LICKMOVER1SPR, // 469 + LICKMOVER2SPR, // 470 + LICKMOVER3SPR, // 471 + LICKMOVER4SPR, // 472 + LICKMOVEL1SPR, // 473 + LICKMOVEL2SPR, // 474 + LICKMOVEL3SPR, // 475 + LICKMOVEL4SPR, // 476 + LICKATTACKR1SPR, // 477 + LICKATTACKR2SPR, // 478 + LICKATTACKR3SPR, // 479 + LICKATTACKL1SPR, // 480 + LICKATTACKL2SPR, // 481 + LICKATTACKL3SPR, // 482 + LICKSTUNSPR, // 483 + END_LUMP(LICK_LUMP_END, __LICKEND) + + START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART) + PLATFORMSPR, // 484 + PLATSIDETHRUST1SPR, // 485 + PLATSIDETHRUST2SPR, // 486 + PLATRTHRUST1SPR, // 487 + PLATRTHRUST2SPR, // 488 + PLATLTHRUST1SPR, // 489 + PLATLTHRUST2SPR, // 490 + END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND) + + START_LUMP(BOUNDER_LUMP_START, __BOUNDERSTART) + BOUNDERL1SPR, // 491 + BOUNDERL2SPR, // 492 + BOUNDERR1SPR, // 493 + BOUNDERR2SPR, // 494 + BOUNDERC1SPR, // 495 + BOUNDERC2SPR, // 496 + BOUNDERSTUNSPR, // 497 + END_LUMP(BOUNDER_LUMP_END, __BOUNDEREND) + + START_LUMP(THUNDERCLOUD_LUMP_START, __THUNDERCLOUDSTART) + CLOUDSPR, // 498 + CLOUDACTIVESPR, // 499 + CLOUDCHARGESPR, // 500 + BOLT1SPR, // 501 + BOLT2SPR, // 502 + END_LUMP(THUNDERCLOUD_LUMP_END, __THUNDERCLOUDEND) + + START_LUMP(BERKELOID_LUMP_START, __BERKELOIDSTART) + BERKEWALKL1SPR, // 503 + BERKEWALKL2SPR, // 504 + BERKEWALKL3SPR, // 505 + BERKEWALKL4SPR, // 506 + BERKEWALKR1SPR, // 507 + BERKEWALKR2SPR, // 508 + BERKEWALKR3SPR, // 509 + BERKEWALKR4SPR, // 510 + BERKETHROWL1SPR, // 511 + BERKETHROWL2SPR, // 512 + BERKETHROWR1SPR, // 513 + BERKETHROWR2SPR, // 514 + FIREBALL1SPR, // 515 + FIREBALL2SPR, // 516 + FIREBALL3SPR, // 517 + FIREBALL4SPR, // 518 + END_LUMP(BERKELOID_LUMP_END, __BERKELOIDEND) + + START_LUMP(MOON_LUMP_START, __MOONSTART) + KEENMOON1SPR, // 519 + KEENMOON2SPR, // 520 + END_LUMP(MOON_LUMP_END, __MOONEND) + + // + // TILES (these don't need names) + // + + LASTTILE=STARTEXTERNS-1, + + // + // EXTERNS + // + + ORDERSCREEN, // 4735 + BIGCOMMANDER, // 4736 + BIGKEEN, // 4737 + OUTOFMEM, // 4738 + + //texts + T_HELPART, // 4739 + T_STORYART, // 4740 + T_CONTRART, // 4741 + T_IDART, // 4742 + T_ENDART, // 4743 + T_DEMOART, // 4744 + T_ORDERART, // 4745 + + //demos + DEMO0, // 4746 + DEMO1, // 4747 + DEMO2, // 4748 + DEMO3, // 4749 + DEMO4, // 4750 + + NUMGRCHUNKS +} graphicnums; + +#undef START_LUMP +#undef END_LUMP + +#endif //__GFX_H__ \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN4C/ID_ASM.EQU b/16/keen456/KEEN4-6/KEEN4C/ID_ASM.EQU new file mode 100755 index 00000000..2c3c92e3 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4C/ID_ASM.EQU @@ -0,0 +1,115 @@ +; +; Equates for all .ASM files +; + +;---------------------------------------------------------------------------- + +INCLUDE "GFXC_CK4.EQU" + +;---------------------------------------------------------------------------- + +CGAGR = 1 +EGAGR = 2 +VGAGR = 3 + +GRMODE = CGAGR +PROFILE = 0 ; 1=keep stats on tile drawing + +SC_INDEX = 03C4h +SC_RESET = 0 +SC_CLOCK = 1 +SC_MAPMASK = 2 +SC_CHARMAP = 3 +SC_MEMMODE = 4 + +CRTC_INDEX = 03D4h +CRTC_H_TOTAL = 0 +CRTC_H_DISPEND = 1 +CRTC_H_BLANK = 2 +CRTC_H_ENDBLANK = 3 +CRTC_H_RETRACE = 4 +CRTC_H_ENDRETRACE = 5 +CRTC_V_TOTAL = 6 +CRTC_OVERFLOW = 7 +CRTC_ROWSCAN = 8 +CRTC_MAXSCANLINE = 9 +CRTC_CURSORSTART = 10 +CRTC_CURSOREND = 11 +CRTC_STARTHIGH = 12 +CRTC_STARTLOW = 13 +CRTC_CURSORHIGH = 14 +CRTC_CURSORLOW = 15 +CRTC_V_RETRACE = 16 +CRTC_V_ENDRETRACE = 17 +CRTC_V_DISPEND = 18 +CRTC_OFFSET = 19 +CRTC_UNDERLINE = 20 +CRTC_V_BLANK = 21 +CRTC_V_ENDBLANK = 22 +CRTC_MODE = 23 +CRTC_LINECOMPARE = 24 + + +GC_INDEX = 03CEh +GC_SETRESET = 0 +GC_ENABLESETRESET = 1 +GC_COLORCOMPARE = 2 +GC_DATAROTATE = 3 +GC_READMAP = 4 +GC_MODE = 5 +GC_MISCELLANEOUS = 6 +GC_COLORDONTCARE = 7 +GC_BITMASK = 8 + +ATR_INDEX = 03c0h +ATR_MODE = 16 +ATR_OVERSCAN = 17 +ATR_COLORPLANEENABLE = 18 +ATR_PELPAN = 19 +ATR_COLORSELECT = 20 + +STATUS_REGISTER_1 = 03dah + + +MACRO WORDOUT + out dx,ax +ENDM + +if 0 + +MACRO WORDOUT + out dx,al + inc dx + xchg al,ah + out dx,al + dec dx + xchg al,ah +ENDM + +endif + +UPDATEWIDE = 22 +UPDATEHIGH = 14 + +; +; tile info offsets from segment tinf +; + +ANIM = 402 +SPEED = (ANIM+NUMTILE16) + +NORTHWALL = (SPEED+NUMTILE16) +EASTWALL = (NORTHWALL+NUMTILE16M) +SOUTHWALL = (EASTWALL+NUMTILE16M) +WESTWALL = (SOUTHWALL+NUMTILE16M) +MANIM = (WESTWALL+NUMTILE16M) +INTILE = (MANIM+NUMTILE16M) +MSPEED = (INTILE+NUMTILE16M) + + +IFE GRMODE-EGAGR +SCREENWIDTH = 64 +ENDIF +IFE GRMODE-CGAGR +SCREENWIDTH = 128 +ENDIF diff --git a/16/keen456/KEEN4-6/KEEN4C/ID_HEADS.H b/16/keen456/KEEN4-6/KEEN4C/ID_HEADS.H new file mode 100755 index 00000000..a73a9264 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN4C/ID_HEADS.H @@ -0,0 +1,109 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_GLOB.H + + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#define __ID_GLOB__ + +//-------------------------------------------------------------------------- + +#define KEEN +#define KEEN4 + +#define EXTENSION "CK4" + +extern char far introscn; + +#include "GFXC_CK4.H" +#include "AUDIOCK4.H" + +//-------------------------------------------------------------------------- + +#define TEXTGR 0 +#define CGAGR 1 +#define EGAGR 2 +#define VGAGR 3 + +#define GRMODE CGAGR + +#if GRMODE == EGAGR +#define GREXT "EGA" +#endif +#if GRMODE == CGAGR +#define GREXT "CGA" +#endif + +//#define PROFILE + +// +// ID Engine +// Types.h - Generic types, #defines, etc. +// v1.0d1 +// + +#ifndef __TYPES__ +#define __TYPES__ + +typedef enum {false,true} boolean; +typedef unsigned char byte; +typedef unsigned int word; +typedef unsigned long longword; +typedef byte * Ptr; + +typedef struct + { + int x,y; + } Point; +typedef struct + { + Point ul,lr; + } Rect; + +#define nil ((void *)0) + +#endif + +#include "ID_MM.H" +#include "ID_CA.H" +#include "ID_VW.H" +#include "ID_RF.H" +#include "ID_IN.H" +#include "ID_SD.H" +#include "ID_US.H" + + +void Quit (char *error); // defined in user program + diff --git a/16/keen456/KEEN4-6/KEEN5/AUDIOCK5.H b/16/keen456/KEEN4-6/KEEN5/AUDIOCK5.H new file mode 100755 index 00000000..d7710a07 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/AUDIOCK5.H @@ -0,0 +1,145 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __AUDIO_H__ +#define __AUDIO_H__ + +//#include "VERSION.H" + +///////////////////////////////////////////////// +// +// MUSE Header for .CK5 +// +///////////////////////////////////////////////// + +#define NUMSOUNDS LASTSOUND +#define NUMSNDCHUNKS ((3*LASTSOUND)+LASTMUSIC) + +// +// Sound names & indexes +// +typedef enum { + SND_WORLDWALK1, // 0 + SND_WORLDWALK2, // 1 + SND_JUMP, // 2 + SND_LAND, // 3 + SND_KEENFIRE, // 4 + SND_MINEEXPLODE, // 5 + SND_SLICESTARBOUNCE, // 6 + SND_POGOBOUNCE, // 7 + SND_GETPOINTS, // 8 + SND_GETAMMO, // 9 + SND_GETWATER, // 10 + SND_11, // 11 + SND_ENTERLEVEL, // 12 + SND_LEVELDONE, // 13 + SND_NOWAY, // 14 + SND_HELMETHIT, // 15 + SND_BOUNCE, // 16 + SND_EXTRAKEEN, // 17 + SND_OPENCARDDOOR, // 18 + SND_GETKEY, // 19 + SND_PLUMMET, // 20 + SND_USESWITCH, // 21 + SND_22, // 22 + SND_KEENDEAD, // 23 + SND_24, // 24 + SND_SHOTEXPLODE, // 25 + SND_26, // 26 + SND_SPIROGRAB, // 27 + SND_SPINDREDBOUNCE, // 28 + SND_ENEMYSHOT, // 29 + SND_ENEMYSHOTEXPLODE, // 30 + SND_AMPTONWALK1, // 31 + SND_AMPTONWALK2, // 32 + SND_AMPTONDIE, // 33 + SND_SHOWSTATUS, // 34 + SND_HIDESTATUS, // 35 + SND_SHELLEYEXPLODE, // 36 + SND_SPINDREDFLIP, // 37 + SND_MASTERATTACK, // 38 + SND_MASTERBLAST, // 39 + SND_SHIKADIATTACK, // 40 + SND_TELEPORT, // 41 + SND_SHOCKSHUNDBARK, // 42 + SND_FLAGSPIN, // 43 + SND_FLAGLAND, // 44 + SND_SHOCKBALLEXPLODE, // 45 + KEENPADDLESND, // 46 + BALLBOUNCESND, // 47 + COMPPADDLESND, // 48 + COMPSCOREDSND, // 49 + KEENSCOREDSND, // 50 + SND_51, // 51 + SND_BIGSPARK, // 52 + SND_GAMEOVER1, // 53 + SND_GAMEOVER2, // 54 + SND_GETKEYCARD, // 55 + SND_56, // 56 + SND_LANDONFUSE, // 57 + SND_SPARKYCHARGE, // 58 + SND_SPHEREFULBOUNCE, // 59 + SND_OPENDOOR, // 60 + SND_SPIROFLY, // 61 + SND_62, // 62 + SND_ELEVATORDOOR, // 63 + LASTSOUND +} soundnames; + +#if LASTSOUND != 64 +#error bad sound enum! +#endif + +#define NOWAYSND SND_NOWAY + +// +// Base offsets +// +#define STARTPCSOUNDS 0 +#define STARTADLIBSOUNDS (STARTPCSOUNDS+NUMSOUNDS) +#define STARTDIGISOUNDS (STARTADLIBSOUNDS+NUMSOUNDS) +#define STARTMUSIC (STARTDIGISOUNDS+NUMSOUNDS) + +// +// Music names & indexes +// +typedef enum { + CAMEIN_MUS, + HAVING_T_MUS, + SKATING_MUS, + SNOOPING_MUS, + BAGPIPES_MUS, + WEDNESDY_MUS, + ROCK_ME_MUS, + BREATHE_MUS, + SHIKAIRE_MUS, + SPHEREFUL_MUS, + TIGHTER_MUS, + ROBOROCK_MUS, + FANFARE_MUS, + FEARSOME_MUS, + LASTMUSIC +} musicnames; + +///////////////////////////////////////////////// +// +// Thanks for playing with MUSE! +// +///////////////////////////////////////////////// + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN5/GFXE_CK5.EQU b/16/keen456/KEEN4-6/KEEN5/GFXE_CK5.EQU new file mode 100755 index 00000000..11237984 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/GFXE_CK5.EQU @@ -0,0 +1,55 @@ +;===================================== +; +; Graphics .EQU file for .CK5 +; not IGRAB-ed :) +; +;===================================== + +;INCLUDE "VERSION.EQU" + +; +; Amount of each data item +; +NUMFONT = 3 +NUMFONTM = 0 +NUMPICM = 3 +NUMTILE8 = 108 +NUMTILE8M = 36 +NUMTILE32 = 0 +NUMTILE32M = 0 + +; +; Amount of each item in episode 5 +; +NUMPICS = 93 +NUMSPRITES = 346 +NUMTILE16 = 1512 +NUMTILE16M = 2952 +NUMEXTERN = 15 + + +; +; File offsets for data items +; +STRUCTPIC = 0 +STRUCTPICM = 1 +STRUCTSPRITE = 2 + +STARTFONT = 3 +STARTFONTM = (STARTFONT+NUMFONT) +STARTPICS = (STARTFONTM+NUMFONTM) +STARTPICM = (STARTPICS+NUMPICS) +STARTSPRITES = (STARTPICM+NUMPICM) +STARTTILE8 = (STARTSPRITES+NUMSPRITES) +STARTTILE8M = (STARTTILE8+1) +STARTTILE16 = (STARTTILE8M+1) +STARTTILE16M = (STARTTILE16+NUMTILE16) +STARTTILE32 = (STARTTILE16M+NUMTILE16M) +STARTTILE32M = (STARTTILE32+NUMTILE32) +STARTEXTERN = (STARTTILE32M+NUMTILE32M) + +NUMCHUNKS = (STARTEXTERN+NUMEXTERN) + +; +; Thank you for using IGRAB! +; diff --git a/16/keen456/KEEN4-6/KEEN5/GFXE_CK5.H b/16/keen456/KEEN4-6/KEEN5/GFXE_CK5.H new file mode 100755 index 00000000..f35848c9 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/GFXE_CK5.H @@ -0,0 +1,690 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __GFX_H__ +#define __GFX_H__ + +//#include "VERSION.H" + +////////////////////////////////////// +// +// Graphics .H file for .CK5 +// not IGRAB-ed :) +// +////////////////////////////////////// + +// +// Lump creation macros +// + +#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1, +#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1, + +// +// Amount of each data item +// + +//common numbers: +#define NUMCHUNKS NUMGRCHUNKS +#define NUMFONT 3 +#define NUMFONTM 0 +#define NUMPICM 3 +#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH! +#define NUMTILE8M 36 // BUG: only 20 tiles exist in EGAGRAPH! +#define NUMTILE32 0 +#define NUMTILE32M 0 + +//episode-specific numbers: +#define NUMPICS 93 +#define NUMSPRITES 346 +#define NUMTILE16 1512 +#define NUMTILE16M 2952 +#define NUMEXTERNS 17 + +// +// File offsets for data items +// +#define STRUCTPIC 0 +#define STRUCTPICM 1 +#define STRUCTSPRITE 2 + +#define STARTFONT 3 +#define STARTFONTM (STARTFONT+NUMFONT) +#define STARTPICS (STARTFONTM+NUMFONTM) +#define STARTPICM (STARTPICS+NUMPICS) +#define STARTSPRITES (STARTPICM+NUMPICM) +#define STARTTILE8 (STARTSPRITES+NUMSPRITES) +#define STARTTILE8M (STARTTILE8+1) +#define STARTTILE16 (STARTTILE8M+1) +#define STARTTILE16M (STARTTILE16+NUMTILE16) +#define STARTTILE32 (STARTTILE16M+NUMTILE16M) +#define STARTTILE32M (STARTTILE32+NUMTILE32) +#define STARTEXTERNS (STARTTILE32M+NUMTILE32M) + +typedef enum { + // Lump Start + + LASTFONT=STARTPICS-1, + + START_LUMP(HELP_LUMP_START, __HELPSTART) + H_HELPPIC, // 6 + H_LARROWPIC, // 7 + H_RARROWPIC, // 8 + H_ESCPIC, // 9 + H_ENTERPIC, // 10 + H_BOTTOMINSTRPIC, // 11 + H_GUMPIC, // 12 + H_MARSHMALLOWPIC, // 13 + H_CHOCMILKPIC, // 14 + H_TARTSTIXPIC, // 15 + H_STOOPIESPIC, // 16 + H_SUGARPIC, // 17 + H_VITALINPIC, // 18 + H_STUNNERPIC, // 19 + H_GEMPIC, // 20 + H_KEGPIC, // 21 + H_ENDOFTEXTPIC, // 22 + H_HELPMENUPIC, // 23 + H_HANDPIC, // 24 + H_ARROWSENTERESCPIC, // 25 + H_FLASHARROW1PIC, // 26 + H_FLASHARROW2PIC, // 27 + H_TOPWINDOWPIC, // 28 + H_LEFTWINDOWPIC, // 29 + H_RIGHTWINDOWPIC, // 30 + H_BOTTOMINFOPIC, // 31 + H_BOTTOMWINDOWPIC, // 32 + H_BARPIC, // 33 + H_SPARKYPIC, // 34 + H_AMPTONPIC, // 35 + H_SLICESTARPIC, // 36 + H_VOLTEFACEPIC, // 37 + H_ROBOREDPIC, // 38 + H_SHELLEYPIC, // 39 + H_SPIROGRIPPIC, // 40 + H_MINEPIC, // 41 + H_SPINDREDPIC, // 42 + H_SHIKADIPIC, // 43 + H_SPHEREFULPIC, // 44 + H_PETPIC, // 45 + H_MASTERPIC, // 46 + H_IDLOGOPIC, // 47 + H_STORY1PIC, // 48 + H_STORY2PIC, // 49 + H_STORY3PIC, // 50 + H_STORY4PIC, // 51 + H_VISAPIC, // 52 + H_MCPIC, // 53 + H_KEENTHUMBSUPPIC, // 54 + H_END1PIC, // 55 + H_END2PIC, // 56 + H_END3PIC, // 57 + H_END4PIC, // 58 + H_END5PIC, // 59 + H_END6PIC, // 60 + H_END7PIC, // 61 + H_END8PIC, // 62 + H_CONGRATSPIC, // 63 + H_KEENFEEDSPIC, // 64 + H_DOORCARDPIC, // 65 + H_KEEN6PIC, // 66 + END_LUMP(HELP_LUMP_END, __HELPEND) + + START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART) + CP_MAINMENUPIC, // 67 + CP_NEWGAMEMENUPIC, // 68 + CP_LOADMENUPIC, // 69 + CP_SAVEMENUPIC, // 70 + CP_CONFIGMENUPIC, // 71 + CP_SOUNDMENUPIC, // 72 + CP_MUSICMENUPIC, // 73 + CP_KEYBOARDMENUPIC, // 74 + CP_KEYMOVEMENTPIC, // 75 + CP_KEYBUTTONPIC, // 76 + CP_JOYSTICKMENUPIC, // 77 + CP_OPTIONSMENUPIC, // 78 + CP_PADDLEWARPIC, // 79 + CP_QUITPIC, // 80 + CP_JOYSTICKPIC, // 81 + CP_MENUSCREENPIC, // 82 + END_LUMP(CONTROLS_LUMP_END, __COLTROLSEND) + + START_LUMP(_LUMP_START, __START) + IDSOFTPIC, // 83 + PROGTEAMPIC, // 84 + ARTISTPIC, // 85 + DIRECTORPIC, // 86 + SW_BACKGROUNDPIC, // 87 + TITLEPICPIC, // 88 + MILKYWAYPIC, // 89 + END_LUMP(_LUMP_END, __END) + + START_LUMP(KEENTALK_LUMP_START, __KEENTALKSTART) + KEENTALK1PIC, // 90 + KEENTALK2PIC, // 91 + END_LUMP(KEENTALK_LUMP_END, __KEENTALKEND) + + START_LUMP(LOADING_LUMP_START, __LOADINGSTART) + KEENCOUNT1PIC, // 92 + KEENCOUNT2PIC, // 93 + KEENCOUNT3PIC, // 94 + KEENCOUNT4PIC, // 95 + KEENCOUNT5PIC, // 96 + KEENCOUNT6PIC, // 97 + END_LUMP(LOADING_LUMP_END, __LOADINGEND) + + GAMEOVERPIC, // 98 + + CP_MENUMASKPICM, // 99 + CORDPICM, // 100 + METALPOLEPICM, // 101 + + // + // SPRITES + // + + START_LUMP(PADDLE_LUMP_START, __PADDLESTART) + PADDLESPR, // 102 + BALLSPR, // 103 + BALL1PIXELTOTHERIGHTSPR, // 104 + BALL2PIXELSTOTHERIGHTSPR, // 105 + BALL3PIXELSTOTHERIGHTSPR, // 106 + END_LUMP(PADDLE_LUMP_END, __PADDLEEND) + + DEMOPLAQUESPR, // 107 + + START_LUMP(KEEN_LUMP_START, __KEENSTART) + KEENSTANDRSPR, // 108 + KEENRUNR1SPR, // 109 + KEENRUNR2SPR, // 110 + KEENRUNR3SPR, // 111 + KEENRUNR4SPR, // 112 + KEENJUMPR1SPR, // 113 + KEENJUMPR2SPR, // 114 + KEENJUMPR3SPR, // 115 + KEENSTANDLSPR, // 116 + KEENRUNL1SPR, // 117 + KEENRUNL2SPR, // 118 + KEENRUNL3SPR, // 119 + KEENRUNL4SPR, // 120 + KEENJUMPL1SPR, // 121 + KEENJUMPL2SPR, // 122 + KEENJUMPL3SPR, // 123 + KEENLOOKUSPR, // 124 + KEENWAITR1SPR, // 125 + KEENWAITR2SPR, // 126 + KEENWAITR3SPR, // 127 + KEENSITREAD1SPR, // 128 + KEENSITREAD2SPR, // 129 + KEENSITREAD3SPR, // 130 + KEENSITREAD4SPR, // 131 + KEENREAD1SPR, // 132 + KEENREAD2SPR, // 133 + KEENREAD3SPR, // 134 + KEENSTOPREAD1SPR, // 135 + KEENSTOPREAD2SPR, // 136 + KEENLOOKD1SPR, // 137 + KEENLOOKD2SPR, // 138 + KEENONPLATSPR, // 139 + KEENDIE1SPR, // 140 + KEENDIE2SPR, // 141 + KEENSTUNSPR, // 142 + STUNSTARS1SPR, // 143 + STUNSTARS2SPR, // 144 + STUNSTARS3SPR, // 145 + KEENSHOOTLSPR, // 146 + KEENJLSHOOTLSPR, // 147 + KEENJSHOOTDSPR, // 148 + KEENJSHOOTUSPR, // 149 + KEENSHOOTUSPR, // 150 + KEENSHOOTRSPR, // 151 + KEENJRSHOOTRSPR, // 152 + STUN1SPR, // 153 + STUN2SPR, // 154 + STUN3SPR, // 155 + STUN4SPR, // 156 + STUNHIT1SPR, // 157 + STUNHIT2SPR, // 158 + KEENSHINNYR1SPR, // 159 + KEENSHINNYR2SPR, // 160 + KEENSHINNYR3SPR, // 161 + KEENSLIDED1SPR, // 162 + KEENSLIDED2SPR, // 163 + KEENSLIDED3SPR, // 164 + KEENSLIDED4SPR, // 165 + KEENSHINNYL1SPR, // 166 + KEENSHINNYL2SPR, // 167 + KEENSHINNYL3SPR, // 168 + KEENPLSHOOTUSPR, // 169 + KEENPRSHOOTUSPR, // 170 + KEENPRSHOOTDSPR, // 171 + KEENPLSHOOTDSPR, // 172 + KEENPSHOOTLSPR, // 173 + KEENPSHOOTRSPR, // 174 + KEENENTER1SPR, // 175 + KEENENTER2SPR, // 176 + KEENENTER3SPR, // 177 + KEENENTER4SPR, // 178 + KEENENTER5SPR, // 179 + KEENHANGLSPR, // 180 + KEENHANGRSPR, // 181 + KEENCLIMBEDGEL1SPR, // 182 + KEENCLIMBEDGEL2SPR, // 183 + KEENCLIMBEDGEL3SPR, // 184 + KEENCLIMBEDGEL4SPR, // 185 + KEENCLIMBEDGER1SPR, // 186 + KEENCLIMBEDGER2SPR, // 187 + KEENCLIMBEDGER3SPR, // 188 + KEENCLIMBEDGER4SPR, // 189 + KEENPOGOR1SPR, // 190 + KEENPOGOR2SPR, // 191 + KEENPOGOL1SPR, // 192 + KEENPOGOL2SPR, // 193 + BONUS100UPSPR, // 194 + BONUS100SPR, // 195 + BONUS200SPR, // 196 + BONUS500SPR, // 197 + BONUS1000SPR, // 198 + BONUS2000SPR, // 199 + BONUS5000SPR, // 200 + BONUS1UPSPR, // 201 + BONUSCLIPSPR, // 202 + VIVAPOOF1SPR, // 203 + VIVAPOOF2SPR, // 204 + VIVAPOOF3SPR, // 205 + VIVAPOOF4SPR, // 206 + END_LUMP(KEEN_LUMP_END, __KEENEND) + + START_LUMP(KEYCARD_LUMP_START, __KEYCARDSTART) + DOORCARD1SPR, // 207 + DOORCARD2SPR, // 208 + BONUSCARDSPR, // 209 + END_LUMP(KEYCARD_LUMP_END, __KEYCARDEND) + + START_LUMP(SUGAR1_LUMP_START, __SUGAR1START) + SUGAR1ASPR, // 210 + SUGAR1BSPR, // 211 + END_LUMP(SUGAR1_LUMP_END, __SUGAR1END) + + START_LUMP(SUGAR2_LUMP_START, __SUGAR2START) + SUGAR2ASPR, // 212 + SUGAR2BSPR, // 213 + END_LUMP(SUGAR2_LUMP_END, __SUGAR2END) + + START_LUMP(SUGAR3_LUMP_START, __SUGAR3START) + SUGAR3ASPR, // 214 + SUGAR3BSPR, // 215 + END_LUMP(SUGAR3_LUMP_END, __SUGAR3END) + + START_LUMP(SUGAR4_LUMP_START, __SUGAR4START) + SUGAR4ASPR, // 216 + SUGAR4BSPR, // 217 + END_LUMP(SUGAR4_LUMP_END, __SUGAR4END) + + START_LUMP(SUGAR5_LUMP_START, __SUGAR5START) + SUGAR5ASPR, // 218 + SUGAR5BSPR, // 219 + END_LUMP(SUGAR5_LUMP_END, __SUGAR5END) + + START_LUMP(SUGAR6_LUMP_START, __SUGAR6START) + SUGAR6ASPR, // 220 + SUGAR6BSPR, // 221 + END_LUMP(SUGAR6_LUMP_END, __SUGAR6END) + + START_LUMP(ONEUP_LUMP_START, __ONEUPSTART) + ONEUPASPR, // 222 + ONEUPBSPR, // 223 + END_LUMP(ONEUP_LUMP_END, __ONEUPEND) + + START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART) + REDGEM1SPR, // 224 + REDGEM2SPR, // 225 + YELLOWGEM1SPR, // 226 + YELLOWGEM2SPR, // 227 + BLUEGEM1SPR, // 228 + BLUEGEM2SPR, // 229 + GREENGEM1SPR, // 230 + GREENGEM2SPR, // 231 + BONUSGEMSPR, // 232 + END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND) + + START_LUMP(AMMO_LUMP_START, __AMMOSTART) + STUNCLIP1SPR, // 233 + STUNCLIP2SPR, // 234 + END_LUMP(AMMO_LUMP_END, __AMMOEND) + + SCOREBOXSPR, // 235 + + START_LUMP(LASER_LUMP_START, __LASERSTART) + LASER1SPR, // 236 + LASER2SPR, // 237 + LASER3SPR, // 238 + LASER4SPR, // 239 + LASERHIT1SPR, // 240 + LASERHIT2SPR, // 241 + END_LUMP(LASER_LUMP_END, __LASEREND) + + START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART) + WORLDKEENL1SPR, // 242 + WORLDKEENL2SPR, // 243 + WORLDKEENL3SPR, // 244 + WORLDKEENR1SPR, // 245 + WORLDKEENR2SPR, // 246 + WORLDKEENR3SPR, // 247 + WORLDKEENU1SPR, // 248 + WORLDKEENU2SPR, // 249 + WORLDKEENU3SPR, // 250 + WORLDKEEND1SPR, // 251 + WORLDKEEND2SPR, // 252 + WORLDKEEND3SPR, // 253 + WORLDKEENDR1SPR, // 254 + WORLDKEENDR2SPR, // 255 + WORLDKEENDR3SPR, // 256 + WORLDKEENDL1SPR, // 257 + WORLDKEENDL2SPR, // 258 + WORLDKEENDL3SPR, // 259 + WORLDKEENUL1SPR, // 260 + WORLDKEENUL2SPR, // 261 + WORLDKEENUL3SPR, // 262 + WORLDKEENUR1SPR, // 263 + WORLDKEENUR2SPR, // 264 + WORLDKEENUR3SPR, // 265 + WORLDKEENWAVE1SPR, // 266 + WORLDKEENWAVE2SPR, // 267 + FLAGFLIP1SPR, // 268 + FLAGFLIP2SPR, // 269 + FLAGFLIP3SPR, // 270 + FLAGFLIP4SPR, // 271 + FLAGFLIP5SPR, // 272 + FLAGFALL1SPR, // 273 + FLAGFALL2SPR, // 274 + FLAGFLAP1SPR, // 275 + FLAGFLAP2SPR, // 276 + FLAGFLAP3SPR, // 277 + FLAGFLAP4SPR, // 278 + SHOOTINGSTAR1SPR, // 279 + SHOOTINGSTAR2SPR, // 280 + WORLDTELSPARK1SPR, // 281 + WORLDTELSPARK2SPR, // 282 + END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND) + + START_LUMP(FUSE_LUMP_START, __FUSESTART) + FUSEFLASH1SPR, // 283 + FUSEFLASH2SPR, // 284 + FUSEFLASH3SPR, // 285 + END_LUMP(FUSE_LUMP_END, __FUSEEND) + + START_LUMP(STAREXPLODE_LUMP_START, __SMALLSPARKSTART) + STAREXPLODE1SPR, // 286 + STAREXPLODE2SPR, // 287 + STAREXPLODE3SPR, // 288 + STAREXPLODE4SPR, // 289 + END_LUMP(STAREXPLODE_LUMP_END, __SMALLSPARKEND) + + START_LUMP(TELEPORT_LUMP_START, __TELEPORTSTART) + TELEPORTSPARK1SPR, // 290 + TELEPORTSPARK2SPR, // 291 + TELEPORTZAP1SPR, // 292 + TELEPORTZAP2SPR, // 293 + END_LUMP(TELEPORT_LUMP_END, __TELEPORTEND) + + START_LUMP(SCOTTIE_LUMP_START, __KORATHSTART) + SCOTTIEWALKL1SPR, // 294 + SCOTTIEWALKL2SPR, // 295 + SCOTTIEWALKL3SPR, // 296 + SCOTTIEWALKL4SPR, // 297 + SCOTTIEWALKR1SPR, // 298 + SCOTTIEWALKR2SPR, // 299 + SCOTTIEWALKR3SPR, // 300 + SCOTTIEWALKR4SPR, // 301 + SCOTTIEFACESPR, // 302 + SCOTTIESTUNSPR, // 303 + END_LUMP(SCOTTIE_LUMP_END, __KORATHEND) + + START_LUMP(MASTER_LUMP_START, __MASTERSTART) + MASTER1SPR, // 304 + MASTER2SPR, // 305 + MASTER3SPR, // 306 + MASTER4SPR, // 307 + MASTERTELEPORT1SPR, // 308 + MASTERTELEPORT2SPR, // 309 + SHIKMASTERCASTRSPR, // 310 + SHIKMASTERCASTLSPR, // 311 + MASTERFLOORSPARK1SPR, // 312 + MASTERFLOORSPARK2SPR, // 313 + MASTERFLOORSPARK3SPR, // 314 + MASTERFLOORSPARK4SPR, // 315 + MASTERSHOT1SPR, // 316 + MASTERSHOT2SPR, // 317 + MASTERSHOT3SPR, // 318 + MASTERSHOT4SPR, // 319 + END_LUMP(MASTER_LUMP_END, __MASTEREND) + + START_LUMP(SHIKADI_LUMP_START, __SHIKADISTART) + SHIKADI1SPR, // 320 + SHIKADI2SPR, // 321 + SHIKADI3SPR, // 322 + SHIKADI4SPR, // 323 + SHIKADIGRABRSPR, // 324 + SHIKADIGRABLSPR, // 325 + SHIKADIPOLESPARK1SPR, // 326 + SHIKADIPOLESPARK2SPR, // 327 + SHIKADIWALKR1SPR, // 328 + SHIKADIWALKR2SPR, // 329 + SHIKADIWALKR3SPR, // 330 + SHIKADIWALKR4SPR, // 331 + SHIKADIWALKL1SPR, // 332 + SHIKADIWALKL2SPR, // 333 + SHIKADIWALKL3SPR, // 334 + SHIKADIWALKL4SPR, // 335 + SHIKADISTUNSPR, // 336 + END_LUMP(SHIKADI_LUMP_END, __SHIKADIEND) + + START_LUMP(SHOCKSHUND_LUMP_START, __SHOCKSHUNDSTART) + PETSIT1SPR, // 337 + PETSIT2SPR, // 338 + PETRUNR1SPR, // 339 + PETRUNR2SPR, // 340 + PETRUNR3SPR, // 341 + PETRUNR4SPR, // 342 + PETRUNL1SPR, // 343 + PETRUNL2SPR, // 344 + PETRUNL3SPR, // 345 + PETRUNL4SPR, // 346 + PETJUMPLSPR, // 347 + PETJUMPRSPR, // 348 + PETBARKR1SPR, // 349 + PETBARKR2SPR, // 350 + PETBARKL1SPR, // 351 + PETBARKL2SPR, // 352 + PETSTUNSPR, // 353 + PETSPARK1SPR, // 354 + PETSPARK2SPR, // 355 + PETSPARKHIT1SPR, // 356 + PETSPARKHIT2SPR, // 357 + END_LUMP(SHOCKSHUND_LUMP_END, __SHOCKSHUNDEND) + + START_LUMP(SPHEREFUL_LUMP_START, __SPHEREFULSTART) + SPHEREFUL1SPR, // 358 + SPHEREFUL2SPR, // 359 + SPHEREFUL3SPR, // 360 + SPHEREFUL4SPR, // 361 + SPHEREGUARD1SPR, // 362 + SPHEREGUARD2SPR, // 363 + SPHEREGUARD3SPR, // 364 + SPHEREGUARD4SPR, // 365 + END_LUMP(SPHEREFUL_LUMP_END, __SPHEREFULEND) + + START_LUMP(SPARKY_LUMP_START, __SPARKYSTART) + SPARKYWALKL1SPR, // 366 + SPARKYWALKL2SPR, // 367 + SPARKYWALKL3SPR, // 368 + SPARKYWALKL4SPR, // 369 + SPARKYTURN1SPR, // 370 + SPARKYTURN2SPR, // 371 + SPARKYTURN3SPR, // 372 + SPARKYWALKR1SPR, // 373 + SPARKYWALKR2SPR, // 374 + SPARKYWALKR3SPR, // 375 + SPARKYWALKR4SPR, // 376 + SPARKYSTUNSPR, // 377 + END_LUMP(SPARKY_LUMP_END, __SPARKYEND) + + START_LUMP(MINE_LUMP_START, __MINESTART) + SHIKADIMINESPR, // 378 + SHIKADIMINEEYESPR, // 379 + SHIKADIMINEPULSE1SPR, // 380 + SHIKADIMINEPULSE2SPR, // 381 + SHIKADIMINEBOOM1SPR, // 382 + SHIKADIMINEBOOM2SPR, // 383 + SHIKADIMINEPIECESPR, // 384 + END_LUMP(MINE_LUMP_END, __MINEEND) + + START_LUMP(SLICESTAR_LUMP_START, __SLICESTARSTART) + SLICESTARSPR, // 385 + SLICESTARBOOMSPR, // 386 + END_LUMP(SLICESTAR_LUMP_END, __SLICASTAREND) + + START_LUMP(ROBORED_LUMP_START, __ROBOREDSTART) + ROBOREDRSPR, // 387 + ROBOREDLSPR, // 388 + ROBOSHOT1SPR, // 389 + ROBOSHOT2SPR, // 390 + ROBOSHOTHIT1SPR, // 391 + ROBOSHOTHIT2SPR, // 392 + END_LUMP(ROBORED_LUMP_END, __ROBOREDEND) + + START_LUMP(SPIRO_LUMP_START, __SPIROSTART) + SPIROSITDSPR, // 393 + SPIROSITLSPR, // 394 + SPIROSITUSPR, // 395 + SPIROSITRSPR, // 396 + SPIROSPINULSPR, // 397 + SPIROSPINURSPR, // 398 + SPIROSPINDRSPR, // 399 + SPIROSPINDLSPR, // 400 + SPIROSPINDSPR, // 401 + SPIROSPINLSPR, // 402 + SPIROSPINUSPR, // 403 + SPIROSPINRSPR, // 404 + END_LUMP(SPIRO_LUMP_END, __SPIROEND) + + START_LUMP(AMPTON_LUMP_START, __AMPTONSTART) + AMPTONWALKR1SPR, // 405 + AMPTONWALKR2SPR, // 406 + AMPTONWALKR3SPR, // 407 + AMPTONWALKR4SPR, // 408 + AMPTONFACESPR, // 409 + AMPTONGRAB1SPR, // 410 + AMPTONGRAB2SPR, // 411 + AMTONWALKL1SPR, // 412 + AMTONWALKL2SPR, // 413 + AMTONWALKL3SPR, // 414 + AMTONWALKL4SPR, // 415 + AMPTONSTUNSPR, // 416 + END_LUMP(AMPTON_LUMP_END, __AMPTONEND) + + START_LUMP(VOLTE_LUMP_START, __VOLTESTART) + VOLTEFACE1SPR, // 417 + VOLTEFACE2SPR, // 418 + VOLTEFACE3SPR, // 419 + VOLTEFACE4SPR, // 420 + VOLTEFACESTUNSPR, // 421 + END_LUMP(VOLTE_LUMP_END, __VOLTEEND) + + START_LUMP(SLOTPLAT_LUMP_START, __PINKPLATSTART) + SLOTPLAT1SPR, // 422 + SLOTPLAT2SPR, // 423 + END_LUMP(SLOTPLAT_LUMP_END, __PINKPLATEND) + + START_LUMP(SPINDRED_LUMP_START, __SPINDREDSTART) + SPINDRED1SPR, // 424 + SPINDRED2SPR, // 425 + SPINDRED3SPR, // 426 + SPINDRED4SPR, // 427 + END_LUMP(SPINDRED_LUMP_END, __SPINDREDEND) + + START_LUMP(SHELLEY_LUMP_START, __SHELLEYSTART) + SHELLEYR1SPR, // 428 + SHELLEYR2SPR, // 429 + SHELLEYR3SPR, // 430 + SHELLEYR4SPR, // 431 + SHELLEYL1SPR, // 432 + SHELLEYL2SPR, // 433 + SHELLEYL3SPR, // 434 + SHELLEYL4SPR, // 435 + SHELLEYJUMPRSPR, // 436 + SHELLEYFALLRSPR, // 437 + SHELLEYJUMPLSPR, // 438 + SHELLEYFALLLSPR, // 439 + SHELLEYBOOM1SPR, // 440 + SHELLEYBOOM2SPR, // 441 + SHELLEYBOOM3SPR, // 442 + SHELLEYBOOM4SPR, // 443 + SHELLEYPIECE1SPR, // 444 + SHELLEYPIECE2SPR, // 445 + END_LUMP(SHELLEY_LUMP_END, __SHELLEYEND) + + START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART) + PLATFORMSPR, // 446 + END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND) + + START_LUMP(MINIPLAT_LUMP_START, __MINIPLATSTART) + MINIPLATSPR, // 447 + END_LUMP(MINIPLAT_LUMP_END, __MINIPLATEND) + + + // + // TILES (these don't need names) + // + + LASTTILE=STARTEXTERNS-1, + + // + // EXTERNS + // + + //texts + T_HELPART, // 4914 + T_CONTRART, // 4915 + T_STORYART, // 4916 + T_IDART, // 4917 + T_ENDART, // 4918 + T_ENDART2, // 4919 + T_ORDERART, // 4920 + + ORDERSCREEN, // 4921 + BIGCOMMANDER, // 4922 + BIGKEEN, // 4923 + OUTOFMEM, // 4924 + GALAXY, // 4925 + + //demos + DEMO0, // 4926 + DEMO1, // 4927 + DEMO2, // 4928 + DEMO3, // 4929 + DEMO4, // 4930 + + NUMGRCHUNKS +} graphicnums; + +#undef START_LUMP +#undef END_LUMP + +#endif //__GFX_H__ \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN5/ID_ASM.EQU b/16/keen456/KEEN4-6/KEEN5/ID_ASM.EQU new file mode 100755 index 00000000..932d6f8b --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/ID_ASM.EQU @@ -0,0 +1,115 @@ +; +; Equates for all .ASM files +; + +;---------------------------------------------------------------------------- + +INCLUDE "GFXE_CK5.EQU" + +;---------------------------------------------------------------------------- + +CGAGR = 1 +EGAGR = 2 +VGAGR = 3 + +GRMODE = EGAGR +PROFILE = 0 ; 1=keep stats on tile drawing + +SC_INDEX = 03C4h +SC_RESET = 0 +SC_CLOCK = 1 +SC_MAPMASK = 2 +SC_CHARMAP = 3 +SC_MEMMODE = 4 + +CRTC_INDEX = 03D4h +CRTC_H_TOTAL = 0 +CRTC_H_DISPEND = 1 +CRTC_H_BLANK = 2 +CRTC_H_ENDBLANK = 3 +CRTC_H_RETRACE = 4 +CRTC_H_ENDRETRACE = 5 +CRTC_V_TOTAL = 6 +CRTC_OVERFLOW = 7 +CRTC_ROWSCAN = 8 +CRTC_MAXSCANLINE = 9 +CRTC_CURSORSTART = 10 +CRTC_CURSOREND = 11 +CRTC_STARTHIGH = 12 +CRTC_STARTLOW = 13 +CRTC_CURSORHIGH = 14 +CRTC_CURSORLOW = 15 +CRTC_V_RETRACE = 16 +CRTC_V_ENDRETRACE = 17 +CRTC_V_DISPEND = 18 +CRTC_OFFSET = 19 +CRTC_UNDERLINE = 20 +CRTC_V_BLANK = 21 +CRTC_V_ENDBLANK = 22 +CRTC_MODE = 23 +CRTC_LINECOMPARE = 24 + + +GC_INDEX = 03CEh +GC_SETRESET = 0 +GC_ENABLESETRESET = 1 +GC_COLORCOMPARE = 2 +GC_DATAROTATE = 3 +GC_READMAP = 4 +GC_MODE = 5 +GC_MISCELLANEOUS = 6 +GC_COLORDONTCARE = 7 +GC_BITMASK = 8 + +ATR_INDEX = 03c0h +ATR_MODE = 16 +ATR_OVERSCAN = 17 +ATR_COLORPLANEENABLE = 18 +ATR_PELPAN = 19 +ATR_COLORSELECT = 20 + +STATUS_REGISTER_1 = 03dah + + +MACRO WORDOUT + out dx,ax +ENDM + +if 0 + +MACRO WORDOUT + out dx,al + inc dx + xchg al,ah + out dx,al + dec dx + xchg al,ah +ENDM + +endif + +UPDATEWIDE = 22 +UPDATEHIGH = 14 + +; +; tile info offsets from segment tinf +; + +ANIM = 402 +SPEED = (ANIM+NUMTILE16) + +NORTHWALL = (SPEED+NUMTILE16) +EASTWALL = (NORTHWALL+NUMTILE16M) +SOUTHWALL = (EASTWALL+NUMTILE16M) +WESTWALL = (SOUTHWALL+NUMTILE16M) +MANIM = (WESTWALL+NUMTILE16M) +INTILE = (MANIM+NUMTILE16M) +MSPEED = (INTILE+NUMTILE16M) + + +IFE GRMODE-EGAGR +SCREENWIDTH = 64 +ENDIF +IFE GRMODE-CGAGR +SCREENWIDTH = 128 +ENDIF diff --git a/16/keen456/KEEN4-6/KEEN5/ID_HEADS.H b/16/keen456/KEEN4-6/KEEN5/ID_HEADS.H new file mode 100755 index 00000000..72b1b728 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/ID_HEADS.H @@ -0,0 +1,109 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_GLOB.H + + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#define __ID_GLOB__ + +//-------------------------------------------------------------------------- + +#define KEEN +#define KEEN5 + +#define EXTENSION "CK5" + +extern char far introscn; + +#include "GFXE_CK5.H" +#include "AUDIOCK5.H" + +//-------------------------------------------------------------------------- + +#define TEXTGR 0 +#define CGAGR 1 +#define EGAGR 2 +#define VGAGR 3 + +#define GRMODE EGAGR + +#if GRMODE == EGAGR +#define GREXT "EGA" +#endif +#if GRMODE == CGAGR +#define GREXT "CGA" +#endif + +//#define PROFILE + +// +// ID Engine +// Types.h - Generic types, #defines, etc. +// v1.0d1 +// + +#ifndef __TYPES__ +#define __TYPES__ + +typedef enum {false,true} boolean; +typedef unsigned char byte; +typedef unsigned int word; +typedef unsigned long longword; +typedef byte * Ptr; + +typedef struct + { + int x,y; + } Point; +typedef struct + { + Point ul,lr; + } Rect; + +#define nil ((void *)0) + +#endif + +#include "ID_MM.H" +#include "ID_CA.H" +#include "ID_VW.H" +#include "ID_RF.H" +#include "ID_IN.H" +#include "ID_SD.H" +#include "ID_US.H" + + +void Quit (char *error); // defined in user program + diff --git a/16/keen456/KEEN4-6/KEEN5/K5_ACT1.C b/16/keen456/KEEN4-6/KEEN5/K5_ACT1.C new file mode 100755 index 00000000..9157bac9 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/K5_ACT1.C @@ -0,0 +1,1524 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K5_ACT1.C +========= + +Contains the following actor types (in this order): + +- some shared routines +- Bonus Items +- Teleport and Fuse effects +- Platforms +- falling platforms +- static platforms +- Goplat platforms +- Volte Face +- sneaky platforms +- Turrets + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + SHARED STUFF + +============================================================================= +*/ + +Sint16 pdirx[] = {0, 1, 0, -1, 1, 1, -1, -1}; +Sint16 pdiry[] = {-1, 0, 1, 0, -1, 1, 1, -1}; + +/* +=========================== += += CheckSpawnShot += +=========================== +*/ + +Sint16 CheckSpawnShot(Uint16 x, Uint16 y, statetype *state) +{ + if (GetNewObj(true) == -1) + return -1; + new->x = x; + new->y = y; + new->obclass = mshotobj; + new->active = ac_removable; + NewState(new, state); + if (!CheckPosition(new)) + { + RemoveObj(new); + return -1; + } + return 0; +} + +/* +=========================== += += C_ClipSide += +=========================== +*/ + +void C_ClipSide(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + playerkludgeclipcancel = true; + ClipToSpriteSide(hit, ob); + playerkludgeclipcancel = false; + } +} + +/* +=========================== += += C_ClipTop += +=========================== +*/ + +void C_ClipTop(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + ClipToSpriteTop(hit, ob); +} + +/* +=========================== += += R_Land += +=========================== +*/ + +void R_Land(objtype *ob) +{ + if (ob->hiteast || ob->hitwest) + ob->xspeed = 0; + + if (ob->hitsouth) + ob->yspeed = 0; + + if (ob->hitnorth) + { + ob->yspeed = 0; + if (ob->state->nextstate) + { + ChangeState(ob, ob->state->nextstate); + } + else + { + RemoveObj(ob); + return; + } + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_Bounce += +=========================== +*/ + +void R_Bounce(objtype *ob) +{ + Uint16 wall,absx,absy,angle,newangle; + Uint32 speed; + + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + + if (ob->hiteast || ob->hitwest) + ob->xspeed = -ob->xspeed/2; + + if (ob->hitsouth) + { + ob->yspeed = -ob->yspeed/2; + return; + } + + wall = ob->hitnorth; + if (wall) + { + if (ob->yspeed < 0) + ob->yspeed = 0; + + absx = abs(ob->xspeed); + absy = ob->yspeed; + if (absx>absy) + { + if (absx>absy*2) // 22 degrees + { + angle = 0; + speed = absx*286; // x*sqrt(5)/2 + } + else // 45 degrees + { + angle = 1; + speed = absx*362; // x*sqrt(2) + } + } + else + { + if (absy>absx*2) // 90 degrees + { + angle = 3; + speed = absy*256; + } + else + { + angle = 2; // 67 degrees + speed = absy*286; // y*sqrt(5)/2 + } + } + if (ob->xspeed > 0) + angle = 7-angle; + + speed >>= 1; + newangle = bounceangle[ob->hitnorth][angle]; + switch (newangle) + { + case 0: + ob->xspeed = speed / 286; + ob->yspeed = -ob->xspeed / 2; + break; + case 1: + ob->xspeed = speed / 362; + ob->yspeed = -ob->xspeed; + break; + case 2: + ob->yspeed = -(speed / 286); + ob->xspeed = -ob->yspeed / 2; + break; + case 3: + + case 4: + ob->xspeed = 0; + ob->yspeed = -(speed / 256); + break; + case 5: + ob->yspeed = -(speed / 286); + ob->xspeed = ob->yspeed / 2; + break; + case 6: + ob->xspeed = ob->yspeed = -(speed / 362); + break; + case 7: + ob->xspeed = -(speed / 286); + ob->yspeed = ob->xspeed / 2; + break; + + case 8: + ob->xspeed = -(speed / 286); + ob->yspeed = -ob->xspeed / 2; + break; + case 9: + ob->xspeed = -(speed / 362); + ob->yspeed = -ob->xspeed; + break; + case 10: + ob->yspeed = speed / 286; + ob->xspeed = -ob->yspeed / 2; + break; + case 11: + + case 12: + ob->xspeed = 0; + ob->yspeed = -(speed / 256); + break; + case 13: + ob->yspeed = speed / 286; + ob->xspeed = ob->yspeed / 2; + break; + case 14: + ob->xspeed = speed / 362; + ob->yspeed = speed / 362; + break; + case 15: + ob->xspeed = speed / 286; + ob->yspeed = ob->xspeed / 2; + break; + } + + if (speed < 256*16) + { + ChangeState(ob, ob->state->nextstate); + } + } +} + +/* +============================================================================= + + BONUS ITEMS +temp1 = bonus type +temp2 = base shape number +temp3 = last animated shape number +1 + +============================================================================= +*/ + +statetype s_bonus1 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus2}; +statetype s_bonus2 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus1}; +statetype s_bonusfly1 = {0, 0, stepthink, false, false, 20, 0, 0, T_FlyBonus, NULL, R_Draw, &s_bonusfly2}; +statetype s_bonusfly2 = {0, 0, stepthink, false, false, 20, 0, 0, T_FlyBonus, NULL, R_Draw, &s_bonusfly1}; +statetype s_bonusrise = {0, 0, slide, false, false, 40, 0, 8, NULL, NULL, R_Draw, NULL}; +statetype s_splash1 = {VIVAPOOF1SPR, VIVAPOOF1SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash2}; +statetype s_splash2 = {VIVAPOOF2SPR, VIVAPOOF2SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash3}; +statetype s_splash3 = {VIVAPOOF3SPR, VIVAPOOF3SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash4}; +statetype s_splash4 = {VIVAPOOF4SPR, VIVAPOOF4SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, NULL}; + +Uint16 bonusshape[] = { + REDGEM1SPR, YELLOWGEM1SPR, BLUEGEM1SPR, GREENGEM1SPR, + SUGAR1ASPR, SUGAR2ASPR, SUGAR3ASPR, + SUGAR4ASPR, SUGAR5ASPR, SUGAR6ASPR, + ONEUPASPR, STUNCLIP1SPR, DOORCARD1SPR +}; + +/* +=========================== += += SpawnBonus += +=========================== +*/ + +void SpawnBonus(Uint16 tileX, Uint16 tileY, Uint16 type) +{ + GetNewObj(false); + new->needtoclip = cl_noclip; + new->priority = 2; + new->obclass = bonusobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->ydir = -1; + new->temp1 = type; + new->temp2=new->shapenum = bonusshape[type]; + new->temp3 = new->temp2+2; + NewState(new, &s_bonus1); +} + +/* +=========================== += += SpawnSplash += +=========================== +*/ + +void SpawnSplash(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(true); + new->needtoclip = cl_noclip; + new->priority = 3; + new->obclass = inertobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + NewState(new, &s_splash1); +} + +/* +=========================== += += T_Bonus += +=========================== +*/ + +void T_Bonus(objtype *ob) +{ + if (++ob->shapenum == ob->temp3) + ob->shapenum = ob->temp2; +} + +/* +=========================== += += T_FlyBonus += +=========================== +*/ + +void T_FlyBonus(objtype *ob) +{ + if (ob->hitnorth) + ob->state = &s_bonus1; + + if (++ob->shapenum == ob->temp3) + ob->shapenum = ob->temp2; + + DoGravity(ob); +} + +/* +============================================================================= + + TELEPORT EFFECTS + +============================================================================= +*/ + +statetype s_teleport1 = {TELEPORTSPARK1SPR, TELEPORTSPARK1SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_teleport2}; +statetype s_teleport2 = {TELEPORTSPARK2SPR, TELEPORTSPARK2SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_teleport1}; +statetype s_teleportzap1 = {TELEPORTZAP1SPR, TELEPORTZAP1SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_teleportzap2}; +statetype s_teleportzap2 = {TELEPORTZAP2SPR, TELEPORTZAP2SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_teleportzap1}; + +/* +=========================== += += SpawnTeleport += +=========================== +*/ + +void SpawnTeleport(void) +{ + GetNewObj(true); + new->priority = 3; + new->needtoclip = cl_noclip; + new->obclass = teleporterobj; + new->x = CONVERT_TILE_TO_GLOBAL(player->tileleft) - 8*PIXGLOBAL; + new->y = CONVERT_TILE_TO_GLOBAL(player->tilebottom) - 5*TILEGLOBAL; + NewState(new, &s_teleport1); + + GetNewObj(true); + new->priority = 3; + new->needtoclip = cl_noclip; + new->obclass = teleporterobj; + new->x = CONVERT_TILE_TO_GLOBAL(player->tileleft); + new->y = CONVERT_TILE_TO_GLOBAL(player->tiletop) - 8*PIXGLOBAL; + NewState(new, &s_teleportzap1); + + SD_PlaySound(SND_TELEPORT); +} + +/* +============================================================================= + + FUSE FLASH + +============================================================================= +*/ + +statetype s_fuseflash1 = {FUSEFLASH1SPR, FUSEFLASH1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_fuseflash2}; +statetype s_fuseflash2 = {FUSEFLASH2SPR, FUSEFLASH2SPR, step, false, false, 20, 0, 0, NULL, NULL, R_Draw, &s_fuseflash3}; +statetype s_fuseflash3 = {FUSEFLASH3SPR, FUSEFLASH3SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnFuseFlash += +=========================== +*/ + +void SpawnFuseFlash(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(true); + new->priority = 3; + new->needtoclip = cl_noclip; + new->obclass = teleporterobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX-1); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + NewState(new, &s_fuseflash1); + SD_PlaySound(SND_BIGSPARK); +} + +/* +============================================================================= + + DEAD MACHINE + +============================================================================= +*/ + +statetype s_deadmachine = {-1, -1, step, false, false, 60, 0, 0, T_DeadMachine, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnDeadMachine += +=========================== +*/ + +void SpawnDeadMachine(void) +{ + GetNewObj(false); + new->active = ac_allways; + new->needtoclip = cl_noclip; + NewState(new, &s_deadmachine); +} + +/* +=========================== += += T_DeadMachine += +=========================== +*/ + +#pragma argsused +void T_DeadMachine(objtype *ob) +{ + if (mapon == 12) + { + playstate = ex_qedbroke; + } + else + { + playstate = ex_fusebroke; + } +} + +/* +============================================================================= + + PLATFORMS + +============================================================================= +*/ + +statetype s_platform = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_Platform, NULL, R_Draw, NULL}; +statetype s_slotplat1 = {SLOTPLAT1SPR, SLOTPLAT1SPR, stepthink, false, false, 0, 0, 0, T_Slotplat, NULL, R_Draw, &s_slotplat2}; +statetype s_slotplat2 = {SLOTPLAT2SPR, SLOTPLAT2SPR, stepthink, false, false, 0, 0, 0, T_Slotplat, NULL, R_Draw, &s_slotplat1}; +// BUG? the slotplat states have a tictime of 0, so they never transition to the next state + +/* +=========================== += += SpawnPlatform += +=========================== +*/ + +void SpawnPlatform(Uint16 tileX, Uint16 tileY, Sint16 dir, Sint16 type) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + switch (dir) + { + case 0: + new->xdir = 0; + new->ydir = -1; + break; + case 1: + new->xdir = 1; + new->ydir = 0; + break; + case 2: + new->xdir = 0; + new->ydir = 1; + break; + case 3: + new->xdir = -1; + new->ydir = 0; + } + if (type) + { + new->x += 4*PIXGLOBAL; + new->y += 4*PIXGLOBAL; + NewState(new, &s_slotplat1); + } + else + { + NewState(new, &s_platform); + } +} + +/* +=========================== += += T_Platform += +=========================== +*/ + +void T_Platform(objtype *ob) +{ + Uint16 newpos, newtile; + + // + // this code could be executed twice during the same frame because the + // object's animation/state changed during that frame, so don't update + // anything if we already have movement for the current frame i.e. the + // update code has already been executed this frame + // + if (!xtry && !ytry) + { + xtry = ob->xdir * 12 * tics; + ytry = ob->ydir * 12 * tics; + + if (ob->xdir == 1) + { + newpos = ob->right + xtry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tileright != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK) + { + ob->xdir = -1; + xtry = xtry - (newpos & 0xFF); + } + } + } + else if (ob->xdir == -1) + { + newpos = ob->left + xtry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tileleft != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK) + { + ob->xdir = 1; + xtry = xtry + (TILEGLOBAL - (newpos & 0xFF)); + } + } + } + else if (ob->ydir == 1) + { + newpos = ob->bottom + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tilebottom != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK) + { + if (*(mapsegs[2]+mapbwidthtable[newtile-2]/2 + ob->tileleft) == PLATFORMBLOCK) + { + ytry = 0; + ob->needtoreact = true; + } + else + { + ob->ydir = -1; + ytry = ytry - (newpos & 0xFF); + } + } + } + } + else if (ob->ydir == -1) + { + newpos = ob->top + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tiletop != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK) + { + if (*(mapsegs[2]+mapbwidthtable[newtile+2]/2 + ob->tileleft) == PLATFORMBLOCK) + { + ytry = 0; + ob->needtoreact = true; + } + else + { + ob->ydir = 1; + ytry = ytry + (TILEGLOBAL - (newpos & 0xFF)); + } + } + } + } + } +} + +/* +=========================== += += T_Slotplat += +=========================== +*/ + +void T_Slotplat(objtype *ob) +{ + Uint16 newpos, newtile; + + // + // this code could be executed twice during the same frame because the + // object's animation/state changed during that frame, so don't update + // anything if we already have movement for the current frame i.e. the + // update code has already been executed this frame + // + if (!xtry && !ytry) + { + xtry = ob->xdir * 12 * tics; + ytry = ob->ydir * 12 * tics; + + if (ob->xdir == 1) + { + newpos = ob->right + xtry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tileright != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK) + { + ob->xdir = -1; + xtry = xtry - (newpos & 0xFF); + } + } + } + else if (ob->xdir == -1) + { + newpos = ob->left + xtry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tileleft != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK) + { + ob->xdir = 1; + xtry = xtry + (TILEGLOBAL - (newpos & 0xFF)); + } + } + } + else if (ob->ydir == 1) + { + newpos = ob->bottom + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tilebottom != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft + 1) == PLATFORMBLOCK) + { + if (*(mapsegs[2]+mapbwidthtable[newtile-2]/2 + ob->tileleft) == PLATFORMBLOCK) // BUG? '+ 1' is missing after 'tileleft' + { + ytry = 0; + ob->needtoreact = true; + } + else + { + ob->ydir = -1; + ytry = ytry - (newpos & 0xFF); + } + } + } + } + else if (ob->ydir == -1) + { + newpos = ob->top + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tiletop != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft + 1) == PLATFORMBLOCK) + { + if (*(mapsegs[2]+mapbwidthtable[newtile+2]/2 + ob->tileleft + 1) == PLATFORMBLOCK) + { + ytry = 0; + ob->needtoreact = true; + } + else + { + ob->ydir = 1; + ytry = ytry + (TILEGLOBAL - (newpos & 0xFF)); + } + } + } + } + } +} + +/* +============================================================================= + + DROPPING PLATFORM + +temp1 = initial y position + +============================================================================= +*/ + +statetype s_dropplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatSit, NULL, R_Draw, NULL}; +statetype s_dropplatfall = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatFall, NULL, R_Draw, NULL}; +statetype s_dropplatrise = {PLATFORMSPR, PLATFORMSPR, slidethink, false, false, 0, 0, -32, T_DropPlatRise, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnDropPlat += +=========================== +*/ + +void SpawnDropPlat(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY); + new->xdir = 0; + new->ydir = 1; + new->needtoclip = cl_noclip; + NewState(new, &s_dropplatsit); +} + +/* +=========================== += += T_DropPlatSit += +=========================== +*/ + +void T_DropPlatSit(objtype *ob) +{ + if (gamestate.riding == ob) + { + ytry = tics << 4; //tics * 16; + ob->yspeed = 0; + if (ob->y + ytry - ob->temp1 >= 8*PIXGLOBAL) + ob->state = &s_dropplatfall; + } +} + +/* +=========================== += += T_DropPlatFall += +=========================== +*/ + +void T_DropPlatFall(objtype *ob) +{ + Uint16 newpos, newtile; + + DoGravity(ob); + +#if 0 + // bugfix: don't skip a tile (this is present in Keen 4, but missing in 5 & 6) + if (ytry >= 15*PIXGLOBAL) + ytry = 15*PIXGLOBAL; +#endif + + newpos = ob->bottom + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tilebottom != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK) + { + ytry = 0xFF - (ob->bottom & 0xFF); + if (gamestate.riding != ob) + ob->state = &s_dropplatrise; + } + } +} + +/* +=========================== += += T_DropPlatRise += +=========================== +*/ + +void T_DropPlatRise(objtype *ob) +{ + if (gamestate.riding == ob) + { + ob->yspeed = 0; + ob->state = &s_dropplatfall; + } + else if (ob->y <= ob->temp1) + { + ytry = ob->temp1 - ob->y; + ob->state = &s_dropplatsit; + } +} + +/* +============================================================================= + + STATIC PLATFORM + +temp1 = initial y position (is set but never used) + +============================================================================= +*/ + +statetype s_statplat = {PLATFORMSPR, PLATFORMSPR, step, false, false, 32000, 0, 0, NULL, NULL, R_Draw, &s_statplat}; + +/* +=========================== += += SpawnStaticPlat += +=========================== +*/ + +void SpawnStaticPlat(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY); + new->xdir = 0; + new->ydir = 1; + new->needtoclip = cl_noclip; + NewState(new, &s_statplat); +} + +/* +============================================================================= + + GO PLATFORMS + +temp1 = direction +temp2 = countdown to next dir check + +============================================================================= +*/ + +statetype s_goplat = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_GoPlat, NULL, R_Draw, NULL}; +statetype s_slotgoplat1 = {SLOTPLAT1SPR, SLOTPLAT1SPR, stepthink, false, false, 0, 0, 0, T_GoSlotPlat, NULL, R_Draw, &s_slotgoplat2}; +statetype s_slotgoplat2 = {SLOTPLAT2SPR, SLOTPLAT2SPR, stepthink, false, false, 0, 0, 0, T_GoSlotPlat, NULL, R_Draw, &s_slotgoplat1}; +// BUG? the slotgoplat states have a tictime of 0, so they never transition to the next state + +/* +=========================== += += SpawnGoPlat += +=========================== +*/ + +void SpawnGoPlat(Uint16 tileX, Uint16 tileY, Sint16 dir, Sint16 type) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->xdir = 0; + new->ydir = 1; + new->needtoclip = cl_noclip; + if (type) + { + new->x += 4*PIXGLOBAL; + new->y += 4*PIXGLOBAL; + NewState(new, &s_slotgoplat1); + } + else + { + NewState(new, &s_goplat); + } + *(mapsegs[2]+mapbwidthtable[tileY]/2 + tileX) = DIRARROWSTART + dir; + new->temp1 = dir; + new->temp2 = TILEGLOBAL; +} + +/* +=========================== += += T_GoPlat += +=========================== +*/ + +void T_GoPlat(objtype *ob) +{ + Uint16 move; + Uint16 tx, ty; + Sint16 dir; + + // + // this code could be executed twice during the same frame because the + // object's animation/state changed during that frame, so don't update + // anything if we already have movement for the current frame i.e. the + // update code has already been executed this frame + // + if (!xtry && !ytry) + { + move = tics * 12; + if (ob->temp2 > move) + { + ob->temp2 = ob->temp2 - move; + + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = xtry + move; + } + else if (dir == -1) + { + xtry = xtry + -move; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ytry + move; + } + else if (dir == -1) + { + ytry = ytry + -move; + } + } + else + { + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry += ob->temp2; + } + else if (dir == -1) + { + xtry += -ob->temp2; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry += ob->temp2; + } + else if (dir == -1) + { + ytry += -ob->temp2; + } + + tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry); + ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry); + ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx) - DIRARROWSTART; + if (ob->temp1 < arrow_North || ob->temp1 > arrow_None) + { + char error[60] = "Goplat moved to a bad spot: "; + char buf[5] = ""; + + strcat(error, itoa(ob->x, buf, 16)); + strcat(error, ","); + strcat(error, itoa(ob->y, buf, 16)); + Quit(error); + } + + move -= ob->temp2; + ob->temp2 = TILEGLOBAL - move; + + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = xtry + move; + } + else if (dir == -1) + { + xtry = xtry - move; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ytry + move; + } + else if (dir == -1) + { + ytry = ytry - move; + } + } + } +} + +/* +=========================== += += T_GoSlotPlat += +=========================== +*/ + +void T_GoSlotPlat(objtype *ob) +{ + Uint16 move; + Uint16 tx, ty; + Sint16 dir; + + // + // this code could be executed twice during the same frame because the + // object's animation/state changed during that frame, so don't update + // anything if we already have movement for the current frame i.e. the + // update code has already been executed this frame + // + if (!xtry && !ytry) + { + move = tics * 12; + if (ob->temp2 > move) + { + ob->temp2 = ob->temp2 - move; + + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = xtry + move; + } + else if (dir == -1) + { + xtry = xtry + -move; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ytry + move; + } + else if (dir == -1) + { + ytry = ytry + -move; + } + } + else + { + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry += ob->temp2; + } + else if (dir == -1) + { + xtry += -ob->temp2; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry += ob->temp2; + } + else if (dir == -1) + { + ytry += -ob->temp2; + } + + tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry + 4*PIXGLOBAL); + ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry + 4*PIXGLOBAL); + ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx) - DIRARROWSTART; + if (ob->temp1 < arrow_North || ob->temp1 > arrow_None) + { + Quit("Goplat moved to a bad spot!"); + } + + move -= ob->temp2; + ob->temp2 = TILEGLOBAL - move; + + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = xtry + move; + } + else if (dir == -1) + { + xtry = xtry - move; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ytry + move; + } + else if (dir == -1) + { + ytry = ytry - move; + } + } + } +} + +/* +============================================================================= + + VOLTEFACE + +temp1 = direction +temp2 = countdown to next dir check + +============================================================================= +*/ + +statetype s_volte1 = {VOLTEFACE1SPR, VOLTEFACE1SPR, stepthink, false, false, 6, 0, 0, T_Volte, C_Volte, R_Draw, &s_volte2}; +statetype s_volte2 = {VOLTEFACE2SPR, VOLTEFACE2SPR, stepthink, false, false, 6, 0, 0, T_Volte, C_Volte, R_Draw, &s_volte3}; +statetype s_volte3 = {VOLTEFACE3SPR, VOLTEFACE3SPR, stepthink, false, false, 6, 0, 0, T_Volte, C_Volte, R_Draw, &s_volte4}; +statetype s_volte4 = {VOLTEFACE4SPR, VOLTEFACE4SPR, stepthink, false, false, 6, 0, 0, T_Volte, C_Volte, R_Draw, &s_volte1}; +statetype s_voltestun = {VOLTEFACESTUNSPR, VOLTEFACESTUNSPR, step, false, false, 300, 0, 0, NULL, NULL, R_Draw, &s_volte1}; + +/* +=========================== += += SpawnVolte += +=========================== +*/ + +void SpawnVolte(Uint16 tileX, Uint16 tileY) +{ + Uint16 dir; + Uint16 far *map; + + GetNewObj(false); + new->obclass = volteobj; + new->active = ac_allways; + new->priority = 2; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->needtoclip = cl_noclip; + NewState(new, &s_volte1); + map = mapsegs[2] + mapbwidthtable[tileY]/2 + tileX; + if (map[-1] == DIRARROWSTART + arrow_East) + { + dir = arrow_East; + } + else if (map[1] == DIRARROWSTART + arrow_West) + { + dir = arrow_West; + } + else if (*(map-mapwidth) == DIRARROWSTART + arrow_South) + { + dir = arrow_South; + } + else if (*(map+mapwidth) == DIRARROWSTART + arrow_North) + { + dir = arrow_North; + } + map[0] = dir + DIRARROWSTART; + new->temp1 = dir; + new->temp2 = TILEGLOBAL; +} + +/* +=========================== += += T_Volte += +=========================== +*/ + +void T_Volte(objtype *ob) +{ + Uint16 move; + Uint16 tx, ty; + Sint16 dir; + + // + // this code could be executed twice during the same frame because the + // object's animation/state changed during that frame, so don't update + // anything if we already have movement for the current frame i.e. the + // update code has already been executed this frame + // + if (!xtry && !ytry) + { + move = tics << 5; + if (ob->temp2 > move) + { + ob->temp2 = ob->temp2 - move; + + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = xtry + move; + } + else if (dir == -1) + { + xtry = xtry + -move; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ytry + move; + } + else if (dir == -1) + { + ytry = ytry + -move; + } + } + else + { + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry += ob->temp2; + } + else if (dir == -1) + { + xtry += -ob->temp2; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry += ob->temp2; + } + else if (dir == -1) + { + ytry += -ob->temp2; + } + + tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry); + ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry); + ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx) - DIRARROWSTART; + if (ob->temp1 < arrow_North || ob->temp1 > arrow_None) + { + char error[60] = "Volte moved to a bad spot: "; + char buf[5] = ""; + + strcat(error, itoa(ob->x, buf, 16)); + strcat(error, ","); + strcat(error, itoa(ob->y, buf, 16)); + Quit(error); + } + + move -= ob->temp2; + ob->temp2 = TILEGLOBAL - move; + + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = xtry + move; + } + else if (dir == -1) + { + xtry = xtry - move; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ytry + move; + } + else if (dir == -1) + { + ytry = ytry - move; + } + } + } +} + +/* +=========================== += += C_Volte += +=========================== +*/ + +void C_Volte(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + ChangeState(ob, &s_voltestun); + } +} + +/* +============================================================================= + + SNEAKY PLATFORM + +temp1 = initial x position (is set but never used) + +============================================================================= +*/ + +statetype s_sneakplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_SneakPlat, NULL, R_Draw, NULL}; +statetype s_sneakplatdodge = {PLATFORMSPR, PLATFORMSPR, slide, false, false, 48, 32, 0, NULL, NULL, R_Draw, &s_sneakplatreturn}; +statetype s_sneakplatreturn = {PLATFORMSPR, PLATFORMSPR, slide, false, false, 96, -16, 0, NULL, NULL, R_Draw, &s_sneakplatsit}; + +/* +=========================== += += SpawnSneakPlat += +=========================== +*/ + +void SpawnSneakPlat(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->xdir = 0; + new->ydir = 1; + new->needtoclip = cl_noclip; + NewState(new, &s_sneakplatsit); +} + +/* +=========================== += += T_SneakPlat += +=========================== +*/ + +void T_SneakPlat(objtype *ob) +{ + Sint16 dist; + + if (player->state != &s_keenjump1) + return; + + if (player->xdir == 1) + { + dist = ob->left-player->right; + if (dist > 4*TILEGLOBAL || dist < 0) + return; + } + else + { + dist = player->left-ob->right; + if (dist > 4*TILEGLOBAL || dist < 0) + return; + } + dist = player->y - ob->y; + if (dist < -6*TILEGLOBAL || dist > 6*TILEGLOBAL) + return; + + ob->xdir = player->xdir; + ob->state = &s_sneakplatdodge; +} + +/* +============================================================================= + + CANNON + +temp1 = direction + +============================================================================= +*/ + +statetype s_cannon = {0, 0, step, false, false, 120, 0, 0, NULL, NULL, R_Draw, &s_cannonfire}; +statetype s_cannonfire = {0, 0, step, true, false, 1, 0, 0, T_Cannon, NULL, R_Draw, &s_cannon}; +statetype s_cshot1 = {LASER1SPR, LASER1SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot2}; +statetype s_cshot2 = {LASER2SPR, LASER2SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot3}; +statetype s_cshot3 = {LASER3SPR, LASER3SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot4}; +statetype s_cshot4 = {LASER4SPR, LASER4SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot1}; +statetype s_cshothit1 = {LASERHIT1SPR, LASERHIT1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cshothit2}; +statetype s_cshothit2 = {LASERHIT2SPR, LASERHIT2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnCannon += +=========================== +*/ + +void SpawnCannon(Uint16 tileX, Uint16 tileY, Sint16 dir) +{ + GetNewObj(false); + new->obclass = cannonobj; + new->active = ac_yes; + new->tileright = new->tileleft = tileX; + new->tiletop = new->tilebottom = tileY; + new->x = new->left = new->right = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = new->top = new->bottom = CONVERT_TILE_TO_GLOBAL(tileY); + new->temp1 = dir; + NewState(new, &s_cannon); +} + +/* +=========================== += += T_Cannon += +=========================== +*/ + +void T_Cannon(objtype *ob) +{ + GetNewObj(true); + new->obclass = mshotobj; + new->active = ac_removable; + new->x = ob->x; + new->y = ob->y; + switch (ob->temp1) + { + case 0: + new->yspeed = -64; + break; + case 1: + new->xspeed = 64; + break; + case 2: + new->yspeed = 64; + break; + case 3: + new->xspeed = -64; + } + NewState(new, &s_cshot1); + SD_PlaySound(SND_ENEMYSHOT); +} + +/* +=========================== += += C_CShot += +=========================== +*/ + +void C_CShot(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + ChangeState(ob, &s_cshothit1); + } +} + +/* +=========================== += += R_CShot += +=========================== +*/ + +void R_CShot(objtype *ob) +{ + if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest) + { + SD_PlaySound(SND_ENEMYSHOTEXPLODE); + ChangeState(ob, &s_cshothit1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN5/K5_ACT2.C b/16/keen456/KEEN4-6/KEEN5/K5_ACT2.C new file mode 100755 index 00000000..7148d462 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/K5_ACT2.C @@ -0,0 +1,906 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K5_ACT2.C +========= + +Contains the following actor types (in this order): + +- Sparky +- Little Ampton +- Slicestar +- Shelley + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + SPARKY + +temp1 = charge countdown + +============================================================================= +*/ + +statetype s_sparkywalk1 = {SPARKYWALKL1SPR, SPARKYWALKR1SPR, step, false, true, 8, 128, 0, T_Sparky, C_Sparky, R_Sparky, &s_sparkywalk2}; +statetype s_sparkywalk2 = {SPARKYWALKL2SPR, SPARKYWALKR2SPR, step, false, true, 8, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkywalk3}; +statetype s_sparkywalk3 = {SPARKYWALKL3SPR, SPARKYWALKR3SPR, step, false, true, 8, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkywalk4}; +statetype s_sparkywalk4 = {SPARKYWALKL4SPR, SPARKYWALKR4SPR, step, false, true, 8, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkywalk1}; +statetype s_sparkylook1 = {SPARKYTURN1SPR, SPARKYTURN1SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook2}; +statetype s_sparkylook2 = {SPARKYTURN2SPR, SPARKYTURN2SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook3}; +statetype s_sparkylook3 = {SPARKYTURN3SPR, SPARKYTURN3SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook4}; +statetype s_sparkylook4 = {SPARKYWALKR1SPR, SPARKYWALKR1SPR, step, false, true, 6, 0, 0, T_SparkyLookL, C_Sparky, R_Sparky, &s_sparkylook5}; +statetype s_sparkylook5 = {SPARKYTURN3SPR, SPARKYTURN3SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook6}; +statetype s_sparkylook6 = {SPARKYTURN2SPR, SPARKYTURN3SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook7}; +statetype s_sparkylook7 = {SPARKYTURN1SPR, SPARKYTURN3SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook8}; +statetype s_sparkylook8 = {SPARKYWALKL1SPR, SPARKYWALKR1SPR, step, false, true, 6, 0, 0, T_SparkyLookR, C_Sparky, R_Sparky, &s_sparkywalk2}; +statetype s_sparkyspeed1 = {SPARKYWALKL1SPR, SPARKYWALKR1SPR, step, true, true, 4, 0, 0, NULL, C_Sparky, R_Sparky, &s_sparkyspeed2}; +statetype s_sparkyspeed2 = {SPARKYWALKL2SPR, SPARKYWALKR2SPR, step, true, true, 4, 0, 0, NULL, C_Sparky, R_Sparky, &s_sparkyspeed3}; +statetype s_sparkyspeed3 = {SPARKYWALKL3SPR, SPARKYWALKR3SPR, step, true, true, 4, 0, 0, NULL, C_Sparky, R_Sparky, &s_sparkyspeed4}; +statetype s_sparkyspeed4 = {SPARKYWALKL4SPR, SPARKYWALKR4SPR, step, true, true, 4, 0, 0, T_ChargeCount, C_Sparky, R_Sparky, &s_sparkyspeed1}; +statetype s_sparkycharge1 = {SPARKYWALKL1SPR, SPARKYWALKR1SPR, step, true, true, 4, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkycharge2}; +statetype s_sparkycharge2 = {SPARKYWALKL2SPR, SPARKYWALKR2SPR, step, true, true, 4, 128, 0, T_RunSnd1, C_Sparky, R_Sparky, &s_sparkycharge3}; +statetype s_sparkycharge3 = {SPARKYWALKL3SPR, SPARKYWALKR3SPR, step, true, true, 4, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkycharge4}; +statetype s_sparkycharge4 = {SPARKYWALKL4SPR, SPARKYWALKR4SPR, step, true, true, 4, 128, 0, T_RunSnd2, C_Sparky, R_Sparky, &s_sparkycharge1}; +statetype s_sparkyturn1 = {SPARKYTURN3SPR, SPARKYTURN1SPR, step, false, true, 8, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkyturn2}; +statetype s_sparkyturn2 = {SPARKYTURN2SPR, SPARKYTURN2SPR, step, false, true, 8, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkyturn3}; +statetype s_sparkyturn3 = {SPARKYTURN1SPR, SPARKYTURN3SPR, step, false, true, 8, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkywalk1}; +statetype s_sparkystun = {SPARKYSTUNSPR, SPARKYSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnSparky += +=========================== +*/ + +void SpawnSparky(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = sparkyobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_sparkywalk1); +} + +/* +=========================== += += T_Sparky += +=========================== +*/ + +void T_Sparky(objtype *ob) +{ + if (US_RndT() < 0x40) + { + ob->state = &s_sparkylook1; + xtry = 0; + } +} + +/* +=========================== += += T_ChargeCount += +=========================== +*/ + +void T_ChargeCount(objtype *ob) +{ + if (--ob->temp1 == 0) + ob->state = &s_sparkycharge1; +} + +/* +=========================== += += T_SparkyLookL += +=========================== +*/ + +void T_SparkyLookL(objtype *ob) +{ + Uint16 dist = player->bottom + TILEGLOBAL - ob->bottom; + if (dist > 2*TILEGLOBAL) + return; + + if (player->x < ob->x) + { + ob->xdir = -1; + SD_PlaySound(SND_SPARKYCHARGE); + ob->state = &s_sparkyspeed1; + ob->temp1 = 3; + } +} + +/* +=========================== += += T_SparkyLookR += +=========================== +*/ + +void T_SparkyLookR(objtype *ob) +{ + Uint16 dist = player->bottom + TILEGLOBAL - ob->bottom; + if (dist > 2*TILEGLOBAL) + return; + + if (player->x > ob->x) + { + ob->xdir = 1; + SD_PlaySound(SND_SPARKYCHARGE); + ob->state = &s_sparkyspeed1; + ob->temp1 = 3; + } +} + +/* +=========================== += += T_RunSnd1 += +=========================== +*/ + +#pragma argsused +void T_RunSnd1(objtype *ob) +{ + SD_PlaySound(SND_WORLDWALK1); +} + +/* +=========================== += += T_RunSnd2 += +=========================== +*/ + +#pragma argsused +void T_RunSnd2(objtype *ob) +{ + SD_PlaySound(SND_WORLDWALK1); +} + +/* +=========================== += += C_Sparky += +=========================== +*/ + +void C_Sparky(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + StunObj(ob, hit, &s_sparkystun); + } +} + +/* +=========================== += += R_Sparky += +=========================== +*/ + +void R_Sparky(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, &s_sparkyturn1); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, &s_sparkyturn1); + } + else if (!ob->hitnorth) + { + ob->x -= ob->xmove; + ob->xdir = -ob->xdir; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, &s_sparkyturn1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + LITTLE AMPTON + +============================================================================= +*/ + +statetype s_amptonwalk1 = {AMTONWALKL1SPR, AMPTONWALKR1SPR, step, false, true, 8, 128, 0, T_Ampton, C_Ampton, R_Ampton, &s_amptonwalk2}; +statetype s_amptonwalk2 = {AMTONWALKL2SPR, AMPTONWALKR2SPR, step, false, true, 8, 128, 0, T_Ampton, C_Ampton, R_Ampton, &s_amptonwalk3}; +statetype s_amptonwalk3 = {AMTONWALKL3SPR, AMPTONWALKR3SPR, step, false, true, 8, 128, 0, T_Ampton, C_Ampton, R_Ampton, &s_amptonwalk4}; +statetype s_amptonwalk4 = {AMTONWALKL4SPR, AMPTONWALKR4SPR, step, false, true, 8, 128, 0, T_Ampton, C_Ampton, R_Ampton, &s_amptonwalk1}; +statetype s_amptonturn = {AMPTONFACESPR, AMPTONFACESPR, step, false, true, 8, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonwalk1}; +statetype s_amptongrab1 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, true, 8, 0, 0, NULL, C_Ampton, R_Draw, &s_amptongrab2}; +statetype s_amptongrab2 = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, step, false, true, 8, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonclimb}; +statetype s_amptonclimb = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, slidethink, false, false, 0, 0, 32, T_AmptonClimb, C_Ampton, R_Draw, NULL}; +statetype s_amptonrelease1 = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, step, false, false, 8, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonrelease2}; +statetype s_amptonrelease2 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, false, 8, 0, 0, T_SetNoThink, C_Ampton, R_Draw, &s_amptonwalk1}; +statetype s_amptonfiddle1 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, true, 12, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonfiddle2}; +statetype s_amptonfiddle2 = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, step, false, true, 12, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonfiddle3}; +statetype s_amptonfiddle3 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, true, 12, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonfiddle4}; +statetype s_amptonfiddle4 = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, step, false, true, 12, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonfiddle5}; +statetype s_amptonfiddle5 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, true, 12, 0, 0, T_SetNoThink, C_Ampton, R_Draw, &s_amptonwalk1}; +statetype s_amptonstun = {AMPTONSTUNSPR, AMPTONSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnAmpton += +=========================== +*/ + +void SpawnAmpton(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = amptonobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_amptonwalk1); +} + +/* +=========================== += += T_Ampton += +=========================== +*/ + +void T_Ampton(objtype *ob) +{ + Uint16 far *map; + Uint16 intile, var8; + boolean poleup, poledown; + + if (ob->state == &s_amptonwalk1) + { + SD_PlaySound(SND_AMPTONWALK1); + } + else if (ob->state == &s_amptonwalk3) + { + SD_PlaySound(SND_AMPTONWALK2); + } + if (ob->x & 0xFF) + { + map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft + 1; + intile = tinf[*map + INTILE] & INTILE_TYPEMASK; + if (intile == INTILE_AMPTONCOMPUTER) + { + ob->state = &s_amptonfiddle1; + } + else if (intile == INTILE_POLE && US_RndT() < 196) + { + if ((tinf[*(map + mapwidth*2) + INTILE] & INTILE_TYPEMASK) == INTILE_POLE) + { + poledown = true; + } + else + { + poledown = false; + } + if ((tinf[*(map - mapwidth*2) + INTILE] & INTILE_TYPEMASK) == INTILE_POLE) + { + poleup = true; + } + else + { + poleup = false; + } + if (poleup && poledown) + { + if (US_RndT() < 0x80) + poleup = false; + else + poledown = false; + } + + if (poleup) + { + ob->ydir = -1; + ob->state = &s_amptongrab1; + ob->needtoclip = cl_noclip; + ob->nothink = 6; + xtry = 0; + } + else if (poledown) + { + ob->ydir = 1; + ob->state = &s_amptongrab1; + ob->needtoclip = cl_noclip; + ob->nothink = 6; + xtry = 0; + } + } + } +} + +/* +=========================== += += T_AmptonClimb += +=========================== +*/ + +void T_AmptonClimb(objtype *ob) +{ + Uint16 newtile; + Uint16 far *map; + Uint16 move; + + newtile = CONVERT_GLOBAL_TO_TILE(ob->bottom + ytry); + if (ob->tilebottom != newtile) + { + if (ob->ydir == -1) + { + map = mapsegs[1] + mapbwidthtable[newtile]/2 + ob->tileleft + 1; + if (!tinf[map[0] + NORTHWALL] && tinf[map[mapwidth]+NORTHWALL]) + { + if ((tinf[*(map-4*mapwidth)+INTILE] & INTILE_TYPEMASK) == INTILE_POLE && US_RndT() < 0x80) + return; + + move = (ob->bottom & 0xFF) + 1; + ob->y -= move; + ob->bottom -= move; + ob->needtoclip = cl_midclip; + ob->state = &s_amptonrelease1; + ytry = PIXGLOBAL; + ob->ydir = 1; + ClipToWalls(ob); + ob->nothink = 4; + return; + } + if ((tinf[*(map-mapwidth)+INTILE] & INTILE_TYPEMASK) != INTILE_POLE) + { + ytry = 0; + ob->ydir = 1; + } + } + else + { + map = mapsegs[1] + mapbwidthtable[newtile]/2 + ob->tileleft + 1; + if (tinf[map[0] + NORTHWALL] && !tinf[*(map-mapwidth)+NORTHWALL]) + { + if ((tinf[map[2*mapwidth] + INTILE] & INTILE_TYPEMASK) == INTILE_POLE && US_RndT() < 0x80) + return; + + move = 0xFF - (ob->bottom & 0xFF); + ob->y += move; + ob->bottom += move; + ob->needtoclip = cl_midclip; + ob->state = &s_amptonrelease1; + ytry = PIXGLOBAL; + ClipToWalls(ob); + ob->nothink = 4; + return; + } + if ((tinf[map[0] + INTILE] & INTILE_TYPEMASK) != INTILE_POLE) + { + ytry = 0; + ob->ydir = -1; + } + } + } +} + +/* +=========================== += += T_SetNoThink += +=========================== +*/ + +void T_SetNoThink(objtype *ob) +{ + ob->nothink = 4; +} + +/* +=========================== += += C_Ampton += +=========================== +*/ + +void C_Ampton(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + if (ob->state == &s_amptonclimb) + { + KillKeen(); + } + else + { + ClipToSpriteSide(hit, ob); + } + } + else if (hit->obclass == stunshotobj) + { + ob->needtoclip = cl_midclip; + ob->ydir = 1; + ob->yspeed = 0; + SD_PlaySound(SND_AMPTONDIE); + StunObj(ob, hit, &s_amptonstun); + } +} + +/* +=========================== += += R_Ampton += +=========================== +*/ + +void R_Ampton(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ChangeState(ob, &s_amptonturn); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ChangeState(ob, &s_amptonturn); + } + else if (!ob->hitnorth) + { + ob->x -= ob->xmove; + ob->xdir = -ob->xdir; + ChangeState(ob, &s_amptonturn); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + SLICESTAR + +temp4 = health + +============================================================================= +*/ + +statetype s_slicestarslide = {SLICESTARSPR, SLICESTARSPR, think, false, false, 0, 0, 0, T_Platform, C_Slicestar, R_Draw, NULL}; +statetype s_slicestarbounce = {SLICESTARSPR, SLICESTARSPR, slide, false, false, 0, 24, 24, NULL, C_Slicestar, R_Slicestar, &s_slicestarbounce}; +statetype s_slicestarboom = {SLICESTARBOOMSPR, SLICESTARBOOMSPR, step, false, false, 20, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnSlicestarSlide += +=========================== +*/ + +void SpawnSlicestarSlide(Uint16 tileX, Uint16 tileY, Sint16 dir) +{ + GetNewObj(false); + new->obclass = slicestarobj; + new->active = ac_yes; + new->priority = 2; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->temp4 = 20; // health! + switch (dir) + { + case 0: + new->xdir = 0; + new->ydir = -1; + break; + case 1: + new->xdir = 1; + new->ydir = 0; + break; + case 2: + new->xdir = 0; + new->ydir = 1; + break; + case 3: + new->xdir = -1; + new->ydir = 0; + } + NewState(new, &s_slicestarslide); +} + +/* +=========================== += += SpawnSlicestarBounce += +=========================== +*/ + +void SpawnSlicestarBounce(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = slicestarobj; + new->active = ac_yes; + new->priority = 2; + new->needtoclip = cl_fullclip; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->temp4 = 50; // health! + switch (US_RndT() / 0x40) + { + case 0: + new->xdir = -1; + new->ydir = -1; + break; + case 1: + new->xdir = 1; + new->ydir = 1; + break; + case 2: + new->xdir = -1; + new->ydir = 1; + break; + case 3: + new->xdir = 1; + new->ydir = -1; + } + NewState(new, &s_slicestarbounce); +} + +/* +=========================== += += C_Slicestar += +=========================== +*/ + +void C_Slicestar(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + if (--ob->temp4 == 0) + { + ChangeState(ob, &s_slicestarboom); + } + } +} + +/* +=========================== += += R_Slicestar += +=========================== +*/ + +void R_Slicestar(objtype *ob) +{ + if (ob->hitnorth) + { + ob->ydir = -1; + SD_PlaySound(SND_SLICESTARBOUNCE); + } + else if (ob->hitsouth) + { + ob->ydir = 1; + SD_PlaySound(SND_SLICESTARBOUNCE); + } + if (ob->hitwest) + { + ob->xdir = -1; + SD_PlaySound(SND_SLICESTARBOUNCE); + } + else if (ob->hiteast) + { + ob->xdir = 1; + SD_PlaySound(SND_SLICESTARBOUNCE); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + SHELLEY + +============================================================================= +*/ + +statetype s_shellywalk1 = {SHELLEYL1SPR, SHELLEYR1SPR, step, false, true, 8, 128, 0, NULL, C_Shelly, R_Shelly, &s_shellywalk2}; +statetype s_shellywalk2 = {SHELLEYL2SPR, SHELLEYR2SPR, step, false, true, 8, 128, 0, NULL, C_Shelly, R_Shelly, &s_shellywalk3}; +statetype s_shellywalk3 = {SHELLEYL3SPR, SHELLEYR3SPR, step, false, true, 8, 128, 0, NULL, C_Shelly, R_Shelly, &s_shellywalk4}; +statetype s_shellywalk4 = {SHELLEYL4SPR, SHELLEYR4SPR, step, false, true, 8, 128, 0, NULL, C_Shelly, R_Shelly, &s_shellywalk1}; +statetype s_shellylook = {SHELLEYL2SPR, SHELLEYR2SPR, stepthink, false, true, 100, 0, 0, T_ShellyLook, C_Shelly, R_Draw, &s_shellylook2}; +statetype s_shellylook2 = {SHELLEYL2SPR, SHELLEYR2SPR, step, true, true, 1, 0, 0, T_Turn, C_Shelly, R_Draw, &s_shellywalk1}; +statetype s_shellyjump1 = {SHELLEYJUMPLSPR, SHELLEYJUMPRSPR, stepthink, false, false, 8, 0, 0, T_Projectile, C_Shelly, R_Shell, &s_shellyjump2}; +statetype s_shellyjump2 = {SHELLEYFALLLSPR, SHELLEYFALLRSPR, think, false, false, 8, 0, 0, T_Projectile, C_Shelly, R_Shell, NULL}; +statetype s_shellydie = {SHELLEYFALLLSPR, SHELLEYFALLRSPR, step, false, false, 8, 0, 0, T_ShellyFrag, NULL, R_Shell, NULL}; +statetype s_shellydieup = {SHELLEYL2SPR, SHELLEYR2SPR, step, false, false, 8, 0, 0, T_ShellyFrag, NULL, R_Shell, NULL}; +statetype s_shellyboom1 = {SHELLEYBOOM1SPR, SHELLEYBOOM1SPR, step, false, false, 20, 0, 0, NULL, C_Lethal, R_Draw, &s_shellyboom2}; +statetype s_shellyboom2 = {SHELLEYBOOM2SPR, SHELLEYBOOM2SPR, step, false, false, 20, 0, 0, NULL, C_Lethal, R_Draw, &s_shellyboom3}; +statetype s_shellyboom3 = {SHELLEYBOOM3SPR, SHELLEYBOOM3SPR, step, false, false, 20, 0, 0, NULL, C_Lethal, R_Draw, &s_shellyboom4}; +statetype s_shellyboom4 = {SHELLEYBOOM4SPR, SHELLEYBOOM4SPR, step, false, false, 20, 0, 0, NULL, C_Lethal, R_Draw, NULL}; +statetype s_shellypiece1 = {SHELLEYPIECE1SPR, SHELLEYPIECE1SPR, think, false, false, 8, 0, 0, T_Projectile, C_Lethal, R_Bounce, NULL}; +statetype s_shellypiece2 = {SHELLEYPIECE2SPR, SHELLEYPIECE2SPR, think, false, false, 8, 0, 0, T_Projectile, C_Lethal, R_Bounce, NULL}; + +/* +=========================== += += SpawnShelly += +=========================== +*/ + +void SpawnShelly(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = sparkyobj; // BUG: should use shelleyobj + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_shellywalk1); +} + +/* +=========================== += += T_ShellyLook += +=========================== +*/ + +void T_ShellyLook(objtype *ob) +{ + Sint16 xdist; + + if (player->top < ob->bottom) + return; + + xdist = player->midx - ob->midx; + if (ob->xdir == 1) + { + if (xdist > 1*TILEGLOBAL && xdist < 3*TILEGLOBAL) + { + ob->xspeed = 16; + ob->yspeed = -24; + ob->state = &s_shellyjump1; + xtry = ytry = 0; + } + } + else + { + if (xdist < -1*TILEGLOBAL && xdist > -3*TILEGLOBAL) + { + ob->xspeed = -16; + ob->yspeed = -24; + ob->state = &s_shellyjump1; + xtry = ytry = 0; + } + } +} + +/* +=========================== += += T_Turn += +=========================== +*/ + +void T_Turn(objtype *ob) +{ + ob->xdir = -ob->xdir; +} + +/* +=========================== += += T_ShellyFrag += +=========================== +*/ + +void T_ShellyFrag(objtype *ob) +{ + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + new->xspeed = 32; + new->yspeed = -24; + NewState(new, &s_shellypiece1); + + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + new->xspeed = -32; + new->yspeed = -24; + NewState(new, &s_shellypiece2); +} + +/* +=========================== += += C_Shelly += +=========================== +*/ + +void C_Shelly(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + ClipToSpriteSide(hit, ob); + if (player->midx < ob->left || player->midx > ob->right) + return; + } + else if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + } + else if (hit->obclass == mshotobj) + { + RemoveObj(hit); + } + else + return; + +explode: + SD_PlaySound(SND_SHELLEYEXPLODE); + if (ob->hitnorth) + { + ChangeState(ob, &s_shellydieup); + } + else + { + ChangeState(ob, &s_shellydie); + } + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + NewState(new, &s_shellyboom1); +} + +/* +=========================== += += R_Shelly += +=========================== +*/ + +void R_Shelly(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + } + else if (!ob->hitnorth) + { + ob->x -= ob->xmove; + ChangeState(ob, &s_shellylook); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_Shell += +=========================== +*/ + +void R_Shell(objtype *ob) +{ + if (ob->hiteast || ob->hitwest) + { + ob->xspeed = 0; + } + if (ob->hitnorth) + { + SD_PlaySound(SND_SHELLEYEXPLODE); + ChangeState(ob, &s_shellydie); + + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + NewState(new, &s_shellyboom1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN5/K5_ACT3.C b/16/keen456/KEEN4-6/KEEN5/K5_ACT3.C new file mode 100755 index 00000000..a0fa9c78 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/K5_ACT3.C @@ -0,0 +1,2142 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K5_ACT3.C +========= + +Contains the following actor types (in this order): + +- Shikadi Mine +- Robo Red +- Spirogrip +- Spindred +- Shikadi Master +- Shikadi +- Shockshund +- Sphereful +- Scottie +- QED + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + SHIKADI MINE + +temp2 = x position of the "eye", in global units (relative to the mine sprite) +temp3 = y position of the "eye", in global units (relative to the mine sprite) +temp4 = sprite pointer for the "eye" + +============================================================================= +*/ + +static Uint16 dopposite[] = {2, 3, 0, 1, 6, 7, 4, 5, 8}; + +statetype s_mine = {SHIKADIMINESPR, SHIKADIMINESPR, think, false, false, 8, 0, 0, T_Mine, C_Solid, R_Mine, NULL}; +statetype s_minecenter = {SHIKADIMINESPR, SHIKADIMINESPR, think, false, false, 0, 0, 0, T_MineCenter, C_Solid, R_Mine, &s_mineshift}; +statetype s_mineshift = {SHIKADIMINESPR, SHIKADIMINESPR, think, false, false, 0, 0, 0, T_MineShift, C_Solid, R_Mine, &s_mine}; +statetype s_mineboom1 = {SHIKADIMINEPULSE1SPR, SHIKADIMINEPULSE1SPR, step, false, false, 10, 0, 0, NULL, C_Solid, R_Draw, &s_mineboom2}; +statetype s_mineboom2 = {SHIKADIMINEPULSE2SPR, SHIKADIMINEPULSE2SPR, step, false, false, 10, 0, 0, NULL, C_Solid, R_Draw, &s_mineboom3}; +statetype s_mineboom3 = {SHIKADIMINEPULSE1SPR, SHIKADIMINEPULSE1SPR, step, false, false, 10, 0, 0, NULL, C_Solid, R_Draw, &s_mineboom4}; +statetype s_mineboom4 = {SHIKADIMINEPULSE2SPR, SHIKADIMINEPULSE2SPR, step, false, false, 10, 0, 0, T_MineFrag, C_Solid, R_Draw, &s_mineboom5}; +statetype s_mineboom5 = {SHIKADIMINEBOOM1SPR, SHIKADIMINEBOOM1SPR, step, false, false, 20, 0, 0, NULL, C_Spindread, R_Draw, &s_mineboom6}; +statetype s_mineboom6 = {SHIKADIMINEBOOM2SPR, SHIKADIMINEBOOM2SPR, step, false, false, 20, 0, 0, NULL, C_Spindread, R_Draw, NULL}; +statetype s_minepiece = {SHIKADIMINEPIECESPR, SHIKADIMINEPIECESPR, think, false, false, 8, 0, 0, T_Projectile, C_MineFrag, R_Bounce, NULL}; + +/* +=========================== += += SpawnMine += +=========================== +*/ + +void SpawnMine(Uint16 tileX, Uint16 tileY) +{ + Sint16 i; + + GetNewObj(false); + new->obclass = mineobj; + new->active = ac_yes; + new->needtoclip = cl_noclip; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -(31*PIXGLOBAL + 1); + new->temp2 = 16*PIXGLOBAL; + new->temp3 = 13*PIXGLOBAL; + NewState(new, &s_mineshift); + new->xspeed = TILEGLOBAL; + + for (i=0; i<=3; i++) + { + if (Walk(new, i)) + break; + } +} + +/* +=========================== += += MinePosCheck += +=========================== +*/ + +boolean MinePosCheck(Uint16 tileX, Uint16 tileY) +{ + Uint16 far *map; + Uint16 x, y, tile; + + map = mapsegs[1] + mapbwidthtable[tileY]/2 + tileX; + for (y=0; y<2; y++) + { + for (x=0; x<3; x++) + { + tile = *(map + y*mapwidth + x); + if (tinf[tile+NORTHWALL] || tinf[tile+EASTWALL] || tinf[tile+SOUTHWALL] || tinf[tile+WESTWALL]) + return false; + } + } + return true; +} + +/* +=========================== += += Walk += +=========================== +*/ + +boolean Walk(objtype *ob, Sint16 dir) +{ + Uint16 tileX, tileY; + + tileX = CONVERT_GLOBAL_TO_TILE(ob->x + xtry); + tileY = CONVERT_GLOBAL_TO_TILE(ob->y + ytry); + + switch (dir) + { + case 0: + if (MinePosCheck(tileX, tileY-1)) + { + ob->xdir = 0; + ob->ydir = -1; + return true; + } + return false; + case 1: + if (MinePosCheck(tileX+1, tileY)) + { + ob->xdir = 1; + ob->ydir = 0; + return true; + } + return false; + case 2: + if (MinePosCheck(tileX, tileY+1)) + { + ob->xdir = 0; + ob->ydir = 1; + return true; + } + return false; + case 3: + if (MinePosCheck(tileX-1, tileY)) + { + ob->xdir = -1; + ob->ydir = 0; + return true; + } + return false; + default: + Quit("Walk: Bad dir"); + } + return false; +} + +/* +=========================== += += ChaseThink += +=========================== +*/ + +void ChaseThink(objtype *ob) +{ + Sint16 temp; + Sint16 xdist, ydist, ydir, xdir; + Sint16 olddir[2], oppdir; + + if (ob->xdir == 1) + { + olddir[0] = 1; + } + else if (ob->xdir == -1) + { + olddir[0] = 3; + } + else if (ob->ydir == -1) + { + olddir[0] = 0; + } + else if (ob->ydir == 1) + { + olddir[0] = 2; + } + oppdir = dopposite[olddir[0]]; + xdist = player->x - (ob->x + xtry); + ydist = player->y - (ob->y + ytry); + xdir = 8; + ydir = 8; + if (xdist > 0) + { + xdir = 1; + } + if (xdist < 0) + { + xdir = 3; + } + if (ydist > 0) + { + ydir = 2; + } + if (ydist < 0) + { + ydir = 0; + } + if (abs(ydist) > abs(xdist)) + { + temp = xdir; + xdir = ydir; + ydir = temp; + } + if (xdir == oppdir) + { + xdir = 8; + } + if (ydir == oppdir) + { + ydir = 8; + } + if (ydir != 8 && Walk(ob, ydir)) + { + return; + } + if (xdir != 8 && Walk(ob, xdir)) + { + return; + } + if (Walk(ob, olddir[0])) + { + return; + } + if (US_RndT() > 0x80) + { + for (temp=0; temp<=3; temp++) + { + if (temp != oppdir && Walk(ob, temp)) + return; + } + } + else + { + for (temp=3; temp>=0; temp--) + { + if (temp != oppdir && Walk(ob, temp)) + return; + } + } + Walk(ob, oppdir); +} + +/* +=========================== += += T_Mine += +=========================== +*/ + +void T_Mine(objtype *ob) +{ + Sint16 oldxdir, oldydir; + Sint16 xdist, ydist; + Sint16 speed; + + xdist = ob->x - player->x; + ydist = ob->y - player->y; + if (xdist <= 2*TILEGLOBAL && xdist >= -5*TILEGLOBAL && ydist <= 3*TILEGLOBAL && ydist >= -5*PIXGLOBAL) + { + SD_PlaySound(SND_MINEEXPLODE); + ob->state = &s_mineboom1; + RF_RemoveSprite((void**)(&ob->temp4)); + } + else + { + speed = tics * 10; + if (ob->xspeed <= speed) + { + xtry = ob->xdir * ob->xspeed; + ytry = ob->ydir * ob->xspeed; // yes, this uses xspeed! + speed -= ob->xspeed; + oldxdir = ob->xdir; + oldydir = ob->ydir; + ChaseThink(ob); + ob->xspeed = TILEGLOBAL; + if (ob->xdir != oldxdir || ob->ydir != oldydir) + { + ob->state = &s_minecenter; + return; + } + } + ob->xspeed -= speed; + xtry += ob->xdir * speed; + ytry += ob->ydir * speed; + } +} + +/* +=========================== += += C_Solid += +=========================== +*/ + +#pragma argsused +void C_Solid(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + } +} + +/* +=========================== += += C_MineFrag += +=========================== +*/ + +#pragma argsused +void C_MineFrag(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + } + else if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == qedobj) + { + SpawnFuseFlash(hit->tileleft, hit->tiletop); + SpawnFuseFlash(hit->tileright, hit->tiletop); + SpawnFuseFlash(hit->tileleft, hit->tilebottom); + SpawnFuseFlash(hit->tileright, hit->tilebottom); + RF_MapToMap(0, 0, 16, 11, 4, 2); + RF_MapToMap(4, 0, 16, 13, 4, 2); + SpawnDeadMachine(); + RemoveObj(hit); + } +} + +/* +=========================== += += T_MineCenter += +=========================== +*/ + +void T_MineCenter(objtype *ob) +{ + Sint16 px, py, xdist, ydist; + + xdist = ob->x - player->x; + ydist = ob->y - player->y; + + if (xdist <= 2*TILEGLOBAL && xdist >= -3*TILEGLOBAL && ydist <= 3*TILEGLOBAL && ydist >= -3*TILEGLOBAL) + { + //BUG? this doesn't play a sound + ob->state = &s_mineboom1; + RF_RemoveSprite((void**)&ob->temp4); + } + else + { + ob->needtoreact = true; + + px = 16*PIXGLOBAL; + py = 13*PIXGLOBAL; + + if (ob->temp2 < px) + { + ob->temp2 = ob->temp2 + tics*4; + if (ob->temp2 >= px) + { + ob->temp2 = px; + ob->state = ob->state->nextstate; + } + } + else if (ob->temp2 > px) + { + ob->temp2 = ob->temp2 - tics*4; + if (ob->temp2 <= px) + { + ob->temp2 = px; + ob->state = ob->state->nextstate; + } + } + if (ob->temp3 < py) + { + ob->temp3 = ob->temp3 + tics*4; + if (ob->temp3 >= py) + { + ob->temp3 = py; + ob->state = ob->state->nextstate; + } + } + else if (ob->temp3 > py) + { + ob->temp3 = ob->temp3 - tics*4; + if (ob->temp3 <= py) + { + ob->temp3 = py; + ob->state = ob->state->nextstate; + } + } + } +} + +/* +=========================== += += T_MineShift += +=========================== +*/ + +void T_MineShift(objtype *ob) +{ + Sint16 px, py, xdist, ydist; + + xdist = ob->x - player->x; + ydist = ob->y - player->y; + + if (xdist <= 2*TILEGLOBAL && xdist >= -3*TILEGLOBAL && ydist <= 3*TILEGLOBAL && ydist >= -3*TILEGLOBAL) + { + //BUG? this doesn't play a sound + ob->state = &s_mineboom1; + RF_RemoveSprite((void**)&ob->temp4); + } + else + { + ob->needtoreact = true; + + switch (ob->xdir) + { + case -1: + px = 8*PIXGLOBAL; + break; + case 0: + px = 16*PIXGLOBAL; + break; + case 1: + px = 24*PIXGLOBAL; + } + switch (ob->ydir) + { + case -1: + py = 5*PIXGLOBAL; + break; + case 0: + py = 13*PIXGLOBAL; + break; + case 1: + py = 21*PIXGLOBAL; + } + + if (ob->temp2 < px) + { + ob->temp2 = ob->temp2 + tics*4; + if (ob->temp2 >= px) + { + ob->temp2 = px; + ob->state = ob->state->nextstate; + } + } + else if (ob->temp2 > px) + { + ob->temp2 = ob->temp2 - tics*4; + if (ob->temp2 <= px) + { + ob->temp2 = px; + ob->state = ob->state->nextstate; + } + } + if (ob->temp3 < py) + { + ob->temp3 = ob->temp3 + tics*4; + if (ob->temp3 >= py) + { + ob->temp3 = py; + ob->state = ob->state->nextstate; + } + } + else if (ob->temp3 > py) + { + ob->temp3 = ob->temp3 - tics*4; + if (ob->temp3 <= py) + { + ob->temp3 = py; + ob->state = ob->state->nextstate; + } + } + } +} + +/* +=========================== += += T_MineFrag += +=========================== +*/ + +void T_MineFrag(objtype *ob) +{ + SD_PlaySound(SND_MINEEXPLODE); + + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + new->xspeed = -(US_RndT()>>3); + new->yspeed = -48; + NewState(new, &s_minepiece); + + GetNewObj(true); + new->x = ob->x + TILEGLOBAL; + new->y = ob->y; + new->xspeed = (US_RndT()>>3); + new->yspeed = -48; + NewState(new, &s_minepiece); + + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + new->xspeed = (US_RndT()>>4) + 40; + new->yspeed = -24; + NewState(new, &s_minepiece); + + GetNewObj(true); + new->x = ob->x + TILEGLOBAL; + new->y = ob->y; + new->xspeed = -40 - (US_RndT()>>4); + new->yspeed = -24; + NewState(new, &s_minepiece); + + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + new->xspeed = 24; + new->yspeed = 16; + NewState(new, &s_minepiece); + + GetNewObj(true); + new->x = ob->x + TILEGLOBAL; + new->y = ob->y; + new->xspeed = 24; + new->yspeed = 16; + NewState(new, &s_minepiece); +} + +/* +=========================== += += R_Mine += +=========================== +*/ + +void R_Mine(objtype *ob) +{ + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + RF_PlaceSprite((void**)&ob->temp4, ob->x+ob->temp2, ob->y+ob->temp3, SHIKADIMINEEYESPR, spritedraw, 2); +} + +/* +============================================================================= + + ROBO RED + +temp1 = number of shots to fire + +============================================================================= +*/ + +statetype s_robored = {ROBOREDLSPR, ROBOREDRSPR, step, false, true, 6, 64, 0, T_RoboRed, C_RoboRed, R_Walk, &s_robored}; +statetype s_roboredfire0 = {ROBOREDLSPR, ROBOREDRSPR, step, true, true, 40, 0, 0, NULL, C_Spindread, R_Draw, &s_roboredfire1}; +statetype s_roboredfire1 = {ROBOREDLSPR, ROBOREDRSPR, step, true, true, 4, 64, 0, NULL, C_Spindread, R_Draw, &s_roboredfire2}; +statetype s_roboredfire2 = {ROBOREDLSPR, ROBOREDRSPR, step, false, true, 6, 0, 0, T_RoboShoot, C_Spindread, R_Draw, &s_roboredfire1}; +statetype s_rshot1 = {ROBOSHOT1SPR, ROBOSHOT1SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_RShot, R_RShot, &s_rshot2}; +statetype s_rshot2 = {ROBOSHOT2SPR, ROBOSHOT2SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_RShot, R_RShot, &s_rshot1}; +statetype s_rshothit1 = {ROBOSHOTHIT1SPR, ROBOSHOTHIT1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_rshothit2}; +statetype s_rshothit2 = {ROBOSHOTHIT2SPR, ROBOSHOTHIT2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnRoboRed += +=========================== +*/ + +void SpawnRoboRed(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = roboredobj; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -4*TILEGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + NewState(new, &s_robored); +} + +/* +=========================== += += T_RoboRed += +=========================== +*/ + +void T_RoboRed(objtype *ob) +{ + if (!(ob->x & (4*PIXGLOBAL)) && player->bottom > ob->top && player->top < ob->bottom && US_RndT() < 16) + { + if (ob->x > player->x) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } + ob->temp1 = 10; // shoot 10 times + ob->state = &s_roboredfire0; + } +} + +/* +=========================== += += C_RoboRed += +=========================== +*/ + +void C_RoboRed(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + ob->xdir = (player->x > ob->x)? 1 : -1; + ob->temp1 = 10; // shoot 10 times + ChangeState(ob, &s_roboredfire0); + } + else if (hit->obclass == keenobj) + { + KillKeen(); + } +} + +/* +=========================== += += T_RoboShoot += +=========================== +*/ + +void T_RoboShoot(objtype *ob) +{ + Uint16 x; + + if (--ob->temp1 == 0) + { + ob->state = &s_robored; + } + if (ob->xdir == 1) + { + x = ob->x + 56*PIXGLOBAL; + } + else + { + x = ob->x; + } + if (CheckSpawnShot(x, ob->y + 32*PIXGLOBAL, &s_rshot1) != -1) + { + new->xspeed = ob->xdir * 60; + if (ob->temp1 & 1) + { + new->yspeed = 8; + } + else + { + new->yspeed = -8; + } + SD_PlaySound(SND_ENEMYSHOT); + xtry = (ob->xdir == 1)? -4*PIXGLOBAL : 4*PIXGLOBAL; + } +} + +/* +=========================== += += C_RShot += +=========================== +*/ + +void C_RShot(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + ChangeState(ob, &s_rshothit1); + } +} + +/* +=========================== += += R_RShot += +=========================== +*/ + +void R_RShot(objtype *ob) +{ + if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest) + { + SD_PlaySound(SND_ENEMYSHOTEXPLODE); + ChangeState(ob, &s_rshothit1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + SPIROGRIP + +============================================================================= +*/ + +statetype s_gripsitd = {SPIROSITDSPR, SPIROSITDSPR, step, false, false, 150, 0, 0, NULL, C_Spindread, R_Draw, &s_gripjumpd}; +statetype s_gripjumpd = {SPIROSITDSPR, SPIROSITDSPR, slide, false, false, 64, 0, -16, NULL, C_Spindread, R_Draw, &s_gripspin7}; +statetype s_gripsitl = {SPIROSITLSPR, SPIROSITLSPR, step, false, false, 150, 0, 0, NULL, C_Spindread, R_Draw, &s_gripjumpl}; +statetype s_gripjumpl = {SPIROSITLSPR, SPIROSITLSPR, slide, false, false, 64, 16, 0, NULL, C_Spindread, R_Draw, &s_gripspin1}; +statetype s_gripsitr = {SPIROSITRSPR, SPIROSITRSPR, step, false, false, 150, 0, 0, NULL, C_Spindread, R_Draw, &s_gripjumpr}; +statetype s_gripjumpr = {SPIROSITRSPR, SPIROSITRSPR, slide, false, false, 64, -16, 0, NULL, C_Spindread, R_Draw, &s_gripspin5}; +statetype s_gripsitu = {SPIROSITUSPR, SPIROSITUSPR, step, false, false, 150, 0, 0, NULL, C_Spindread, R_Draw, &s_gripjumpu}; +statetype s_gripjumpu = {SPIROSITUSPR, SPIROSITUSPR, slide, false, false, 64, 0, 16, NULL, C_Spindread, R_Draw, &s_gripspin3}; +statetype s_gripspin1 = {SPIROSPINULSPR, SPIROSPINULSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_gripspin2}; +statetype s_gripspin2 = {SPIROSPINUSPR, SPIROSPINUSPR, step, false, false, 8, 0, 0, T_SpiroLaunch, C_Spindread, R_Draw, &s_gripspin3}; +statetype s_gripspin3 = {SPIROSPINURSPR, SPIROSPINURSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_gripspin4}; +statetype s_gripspin4 = {SPIROSPINRSPR, SPIROSPINRSPR, step, false, false, 8, 0, 0, T_SpiroLaunch, C_Spindread, R_Draw, &s_gripspin5}; +statetype s_gripspin5 = {SPIROSPINDRSPR, SPIROSPINDRSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_gripspin6}; +statetype s_gripspin6 = {SPIROSPINDSPR, SPIROSPINDSPR, step, false, false, 8, 0, 0, T_SpiroLaunch, C_Spindread, R_Draw, &s_gripspin7}; +statetype s_gripspin7 = {SPIROSPINDLSPR, SPIROSPINDLSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_gripspin8}; +statetype s_gripspin8 = {SPIROSPINLSPR, SPIROSPINLSPR, step, false, false, 8, 0, 0, T_SpiroLaunch, C_Spindread, R_Draw, &s_gripspin1}; +statetype s_gripflyd = {SPIROSITDSPR, SPIROSITDSPR, slide, false, false, 0, 0, 48, NULL, C_Spindread, R_SpiroFly, &s_gripsitd}; +statetype s_gripflyl = {SPIROSITLSPR, SPIROSITLSPR, slide, false, false, 0, -48, 0, NULL, C_Spindread, R_SpiroFly, &s_gripsitl}; +statetype s_gripflyr = {SPIROSITRSPR, SPIROSITRSPR, slide, false, false, 0, 48, 0, NULL, C_Spindread, R_SpiroFly, &s_gripsitr}; +statetype s_gripflyu = {SPIROSITUSPR, SPIROSITUSPR, slide, false, false, 0, 0, -48, NULL, C_Spindread, R_SpiroFly, &s_gripsitu}; + +/* +=========================== += += SpawnSpirogrip += +=========================== +*/ + +void SpawnSpirogrip(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = spirogripobj; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL; + new->xdir = 1; + new->ydir = 1; + NewState(new, &s_gripsitd); +} + +/* +=========================== += += T_SpiroLaunch += +=========================== +*/ + +void T_SpiroLaunch(objtype *ob) +{ + if (US_RndT() <= 20) + { + SD_PlaySound(SND_SPIROFLY); + if (ob->state == &s_gripspin2) + { + ob->state = &s_gripflyu; + } + else if (ob->state == &s_gripspin4) + { + ob->state = &s_gripflyr; + } + else if (ob->state == &s_gripspin6) + { + ob->state = &s_gripflyd; + } + else if (ob->state == &s_gripspin8) + { + ob->state = &s_gripflyl; + } + } +} + +/* +=========================== += += R_SpiroFly += +=========================== +*/ + +void R_SpiroFly(objtype *ob) +{ + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest) + { + ChangeState(ob, ob->state->nextstate); + SD_PlaySound(SND_SPIROGRAB); + } +} + +/* +============================================================================= + + SPINDRED + +temp1 = bounce counter + +============================================================================= +*/ + +statetype s_spindred1 = {SPINDRED1SPR, SPINDRED1SPR, stepthink, false, false, 8, 0, 0, T_Spindread, C_Spindread, R_Spindread, &s_spindred2}; +statetype s_spindred2 = {SPINDRED2SPR, SPINDRED2SPR, stepthink, false, false, 8, 0, 0, T_Spindread, C_Spindread, R_Spindread, &s_spindred3}; +statetype s_spindred3 = {SPINDRED3SPR, SPINDRED3SPR, stepthink, false, false, 8, 0, 0, T_Spindread, C_Spindread, R_Spindread, &s_spindred4}; +statetype s_spindred4 = {SPINDRED4SPR, SPINDRED4SPR, stepthink, false, false, 8, 0, 0, T_Spindread, C_Spindread, R_Spindread, &s_spindred1}; + +/* +=========================== += += SpawnSpindread += +=========================== +*/ + +void SpawnSpindread(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = spindredobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL; + new->ydir = 1; + NewState(new, &s_spindred1); +} + +/* +=========================== += += T_Spindread += +=========================== +*/ + +void T_Spindread(objtype *ob) +{ + Sint32 i; + + // BUG: this might be executed twice during the same frame if the + // object's animation/state changed during that frame, causing the + // object to move at twice the speed during that frame! + // To avoid that, return if ytry is not 0. + + for (i=lasttimecount-tics; iydir == 1) + { + if (ob->yspeed < 0 && ob->yspeed >= -3) + { + ytry += ob->yspeed; + ob->yspeed = 0; + return; + } + else + { + ob->yspeed += 3; + if (ob->yspeed > 70) + { + ob->yspeed = 70; + } + } + } + else + { + if (ob->yspeed > 0 && ob->yspeed <= 3) + { + ytry += ob->yspeed; + ob->yspeed = 0; + return; + } + else + { + ob->yspeed -= 3; + if (ob->yspeed < -70) + { + ob->yspeed = -70; + } + } + } + } + ytry += ob->yspeed; + } +} + +/* +=========================== += += C_Spindread += +=========================== +*/ + +#pragma argsused +void C_Spindread(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + } + else if (hit->obclass == keenobj) + { + KillKeen(); + } +} + +/* +=========================== += += R_Spindread += +=========================== +*/ + +void R_Spindread(objtype *ob) +{ + if (ob->hitsouth) + { + ob->yspeed = 0; + if (ob->ydir == -1) + { + if (++ob->temp1 == 3) + { + ob->temp1 = 0; + ob->yspeed = 68; + ob->ydir = -ob->ydir; + SD_PlaySound(SND_SPINDREDFLIP); + } + else + { + SD_PlaySound(SND_SPINDREDBOUNCE); + ob->yspeed = 40; + } + } + } + if (ob->hitnorth) + { + ob->yspeed = 0; + if (ob->ydir == 1) + { + if (++ob->temp1 == 3) + { + ob->temp1 = 0; + ob->yspeed = -68; + ob->ydir = -ob->ydir; + SD_PlaySound(SND_BOUNCE); + } + else + { + SD_PlaySound(SND_SPINDREDBOUNCE); + ob->yspeed = -40; + } + } + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + SHIKADI MASTER + +temp1 = defines next action (0 = shoot, 1 = teleport) + +============================================================================= +*/ + +statetype s_master1 = {MASTER1SPR, MASTER1SPR, step, false, false, 8, 0, 0, NULL, C_Master, R_Draw, &s_master2}; +statetype s_master2 = {MASTER2SPR, MASTER2SPR, step, false, false, 8, 0, 0, NULL, C_Master, R_Draw, &s_master3}; +statetype s_master3 = {MASTER3SPR, MASTER3SPR, step, false, false, 8, 0, 0, NULL, C_Master, R_Draw, &s_master4}; +statetype s_master4 = {MASTER4SPR, MASTER4SPR, step, false, false, 8, 0, 0, T_Master, C_Master, R_Draw, &s_master1}; +statetype s_mastershoot1 = {SHIKMASTERCASTLSPR, SHIKMASTERCASTRSPR, step, false, false, 30, 0, 0, T_MasterShoot, C_Spindread, R_Draw, &s_mastershoot2}; +statetype s_mastershoot2 = {SHIKMASTERCASTLSPR, SHIKMASTERCASTRSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_master1}; +statetype s_mastertport1 = {MASTERTELEPORT1SPR, MASTERTELEPORT1SPR, step, false, true, 20, 0, 0, NULL, C_Spindread, R_Draw, &s_mastertport2}; +statetype s_mastertport2 = {MASTERTELEPORT2SPR, MASTERTELEPORT2SPR, step, false, true, 20, 0, 0, T_MasterTPort, C_Spindread, R_Draw, &s_mastertport3}; +statetype s_mastertport3 = {MASTERTELEPORT2SPR, MASTERTELEPORT2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Land, &s_mastertport4}; +statetype s_mastertport4 = {MASTERTELEPORT2SPR, MASTERTELEPORT2SPR, step, false, false, 60, 0, 0, NULL, C_Spindread, R_Draw, &s_master1}; +statetype s_mshot1 = {MASTERSHOT4SPR, MASTERSHOT1SPR, stepthink, false, false, 8, 0, 0, T_WeakProjectile, C_MShot, R_MShot, &s_mshot2}; +statetype s_mshot2 = {MASTERSHOT3SPR, MASTERSHOT2SPR, stepthink, false, false, 8, 0, 0, T_WeakProjectile, C_MShot, R_MShot, &s_mshot3}; +statetype s_mshot3 = {MASTERSHOT2SPR, MASTERSHOT3SPR, stepthink, false, false, 8, 0, 0, T_WeakProjectile, C_MShot, R_MShot, &s_mshot4}; +statetype s_mshot4 = {MASTERSHOT1SPR, MASTERSHOT4SPR, stepthink, false, false, 8, 0, 0, T_WeakProjectile, C_MShot, R_MShot, &s_mshot1}; +statetype s_mspray1 = {MASTERFLOORSPARK1SPR, MASTERFLOORSPARK1SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_MShot, R_MSpray, &s_mspray2}; +statetype s_mspray2 = {MASTERFLOORSPARK2SPR, MASTERFLOORSPARK2SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_MShot, R_MSpray, &s_mspray3}; +statetype s_mspray3 = {MASTERFLOORSPARK3SPR, MASTERFLOORSPARK3SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_MShot, R_MSpray, &s_mspray4}; +statetype s_mspray4 = {MASTERFLOORSPARK4SPR, MASTERFLOORSPARK4SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_MShot, R_MSpray, &s_mspray1}; + +/* +=========================== += += SpawnMaster += +=========================== +*/ + +void SpawnMaster(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = shikadimasterobj; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -24*PIXGLOBAL; + NewState(new, &s_master1); +} + +/* +=========================== += += T_Master += +=========================== +*/ + +void T_Master(objtype *ob) +{ + Sint16 randval; + + randval = US_RndT(); + if (randval < 0x40) + { + if (ob->temp1) + { + ob->state = &s_mastertport1; + ob->temp1 = 0; + } + else + { + ob->temp1 = 1; + if (player->x > ob->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + ob->state = &s_mastershoot1; + } + } +} + +/* +=========================== += += T_MasterShoot += +=========================== +*/ + +void T_MasterShoot(objtype *ob) +{ + Uint16 x; + + if (ob->xdir == 1) + { + x = ob->x + 16*PIXGLOBAL; + } + else + { + x = ob->x; + } + if (CheckSpawnShot(x, ob->y+8*PIXGLOBAL, &s_mshot1) != -1) + { + new->xspeed = ob->xdir * 48; + new->yspeed = -16; + SD_PlaySound(SND_MASTERATTACK); + } +} + +/* +=========================== += += C_Master += +=========================== +*/ + +void C_Master(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + ob->xdir = (player->x > ob->x)? 1 : -1; + ob->temp1 = 1; + ChangeState(ob, &s_mastershoot1); + } + else if (hit->obclass == keenobj) + { + KillKeen(); + } +} + +/* +=========================== += += T_MasterTPort += +=========================== +*/ + +void T_MasterTPort(objtype *ob) +{ + Uint16 tile; + Sint16 tx, ty, redos, oldx, oldy; + + oldx = ob->x; + oldy = ob->y; + + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + new->xspeed = 48; + NewState(new, &s_mspray1); // BUG? new object is not made removable + + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + new->xspeed = -48; + NewState(new, &s_mspray1); // BUG? new object is not made removable + + SD_PlaySound(SND_MASTERBLAST); + + redos = 0; +redo: + if (++redos == 10) + { + US_RndT(); // call it, but ignore the result + // probably to avoid repeatedly getting the same same "random" values + // due to having an even number of US_RndT() calls in this routine and + // an even number of elements in the random table. + + ob->state = &s_master1; + ob->x = oldx - 1; + ob->y = oldy; + xtry = 1; + ytry = 0; + } + else + { + tx = player->tilemidx - 16 + (US_RndT()>>3); + ty = player->tilebottom - 16 + (US_RndT()>>3); + if (tx < 2 || ty < 2 || tx > mapwidth-5 || ty > mapheight-5) + goto redo; + + + ob->x = CONVERT_TILE_TO_GLOBAL(tx); + ob->y = CONVERT_TILE_TO_GLOBAL(ty); + ob->tileleft = tx-1; + ob->tileright = tx+4; + ob->tiletop = ty-1; + ob->tilebottom = ty+4; + + { + Uint16 x, y; + Uint16 far *map; + Uint16 mapdelta; + + map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft; + mapdelta = mapwidth - (ob->tileright - ob->tileleft + 1); + + for (y = ob->tiletop; ob->tilebottom >= y; y++, map+=mapdelta) + { + for (x = ob->tileleft; ob->tileright >= x; x++) + { + tile = *map++; + if ((tinf[tile+INTILE] & INTILE_FOREGROUND) || tinf[tile+NORTHWALL] || tinf[tile+EASTWALL] + || tinf[tile+SOUTHWALL] || tinf[tile+WESTWALL]) + { + goto redo; + } + } + } + xtry = ytry = 0; + } + } +} + +/* +=========================== += += C_MShot += +=========================== +*/ + +void C_MShot(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + RemoveObj(ob); + } + else if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + RemoveObj(ob); + } +} + +/* +=========================== += += R_MShot += +=========================== +*/ + +void R_MShot(objtype *ob) +{ + if (ob->hiteast || ob->hitwest) + { + ob->xspeed = -ob->xspeed; + } + if (ob->hitsouth) + { + ob->yspeed = 0; + } + if (ob->hitnorth) + { + SD_PlaySound(SND_MASTERATTACK); + ob->xspeed = 48; + ChangeState(ob, &s_mspray1); + + GetNewObj(true); + new->x = ob->x; + new->y = ob->y; + new->xspeed = -48; + NewState(new, &s_mspray1); // BUG? new object is not made removable + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_MSpray += +=========================== +*/ + +void R_MSpray(objtype *ob) +{ + if (ob->hiteast || ob->hitwest) + { + RemoveObj(ob); + } + else + { + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + } +} + +/* +============================================================================= + + SHIKADI + +temp1 = x tile position of the pole being grabbed (is set but never used) +temp2 = health +temp3 = flash countdown + +============================================================================= +*/ + +statetype s_shikadi1 = {SHIKADI1SPR, SHIKADI1SPR, step, false, true, 8, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadi2}; +statetype s_shikadi2 = {SHIKADI2SPR, SHIKADI2SPR, step, false, true, 8, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadi3}; +statetype s_shikadi3 = {SHIKADI3SPR, SHIKADI3SPR, step, false, true, 8, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadi4}; +statetype s_shikadi4 = {SHIKADI4SPR, SHIKADI4SPR, step, false, true, 8, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadiwalk1}; +statetype s_shikadiwalk1 = {SHIKADIWALKL1SPR, SHIKADIWALKR1SPR, step, false, true, 8, 128, 0, T_Shikadi, C_Shikadi, R_Shikadi, &s_shikadiwalk2}; +statetype s_shikadiwalk2 = {SHIKADIWALKL2SPR, SHIKADIWALKR2SPR, step, false, true, 8, 128, 0, T_Shikadi, C_Shikadi, R_Shikadi, &s_shikadiwalk3}; +statetype s_shikadiwalk3 = {SHIKADIWALKL3SPR, SHIKADIWALKR3SPR, step, false, true, 8, 128, 0, T_Shikadi, C_Shikadi, R_Shikadi, &s_shikadiwalk4}; +statetype s_shikadiwalk4 = {SHIKADIWALKL4SPR, SHIKADIWALKR4SPR, step, false, true, 8, 128, 0, T_Shikadi, C_Shikadi, R_Shikadi, &s_shikadiwalk1}; +statetype s_shikadigrab = {SHIKADIGRABLSPR, SHIKADIGRABRSPR, step, false, true, 20, 0, 0, T_PoleShock, C_Shikadi, R_Shikadi, &s_shikadigrab2}; +statetype s_shikadigrab2 = {SHIKADIGRABLSPR, SHIKADIGRABRSPR, step, false, true, 20, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadiwalk1}; +statetype s_shikadistun = {SHIKADISTUNSPR, SHIKADISTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +statetype s_polespark1 = {SHIKADIPOLESPARK1SPR, SHIKADIPOLESPARK1SPR, stepthink, false, false, 0, 0, 0, T_PoleSpark, C_Lethal, R_Draw, &s_polespark2}; +statetype s_polespark2 = {SHIKADIPOLESPARK1SPR, SHIKADIPOLESPARK1SPR, stepthink, false, false, 0, 0, 0, T_PoleSpark, C_Lethal, R_Draw, &s_polespark1}; + +/* +=========================== += += SpawnShikadi += +=========================== +*/ + +void SpawnShikadi(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = shikadiobj; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL; + new->temp2 = 4; // health + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + NewState(new, &s_shikadi1); +} + +/* +=========================== += += T_Shikadi += +=========================== +*/ + +void T_Shikadi(objtype *ob) +{ + Uint16 tx, tile; + + if (player->state->contact == &KeenPosContact + || ob->bottom - player->bottom + TILEGLOBAL <= 2*TILEGLOBAL) + { + if (ob->x > player->x + TILEGLOBAL) + { + ob->xdir = -1; + } + else if (ob->x < player->x - TILEGLOBAL) + { + ob->xdir = 1; + } + if (ob->xdir == 1) + { + tx = ob->tileright; + } + else + { + tx = ob->tileleft; + } + + if (player->tilemidx != tx) + return; + } + else + { + if (US_RndT() < 0x10) + { + xtry = 0; + ob->state = &s_shikadi1; + return; + } + if ((ob->x & 0xFF) || !OnScreen(ob)) + return; + + if (ob->xdir == 1) + { + tx = ob->tileright; + } + else + { + tx = ob->tileleft; + } + } + + tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop]/2 + tx); + if (tinf[tile+INTILE] == INTILE_POLE) + { + ob->temp1 = tx; + ob->state = &s_shikadigrab; + xtry = 0; + SD_PlaySound(SND_SHIKADIATTACK); + } +} + +/* +=========================== += += C_Shikadi += +=========================== +*/ + +void C_Shikadi(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + if (hit->obclass == stunshotobj) + { + if (--ob->temp2 == 0) // handle health + { + ob->xspeed = 0; + ob->yspeed = 0; + StunObj(ob, hit, &s_shikadistun); + } + else + { + ob->temp3 = 2; // draw white two times + ob->needtoreact = true; + ExplodeShot(hit); + } + } +} + +/* +=========================== += += T_PoleShock += +=========================== +*/ + +void T_PoleShock(objtype *ob) +{ + Uint16 x; + + ob->nothink = 2; + if (ob->xdir == 1) + { + x = CONVERT_TILE_TO_GLOBAL(ob->tileright); + } + else + { + x = CONVERT_TILE_TO_GLOBAL(ob->tileleft); + } + + GetNewObj(true); + new->x = x; + new->y = ob->y + 8*PIXGLOBAL; + new->obclass = mshotobj; + new->active = ac_removable; + new->needtoclip = cl_noclip; + NewState(new, &s_polespark1); + if (ob->y < player->y) + { + new->ydir = 1; + } + else + { + new->ydir = -1; + } + SD_PlaySound(SND_SHIKADIATTACK); +} + +/* +=========================== += += T_PoleSpark += +=========================== +*/ + +void T_PoleSpark(objtype *ob) +{ + Uint16 tile; + + if (ytry == 0) + { + ytry = ob->ydir * 48; + tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop]/2 + ob->tilemidx); + if (tinf[tile+INTILE] != INTILE_POLE) + { + ob->state = NULL; + } + } +} + +/* +=========================== += += R_Shikadi += +=========================== +*/ + +void R_Shikadi(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (!ob->hitnorth) + { + ob->x -= ob->xmove; + ob->xdir = -ob->xdir; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + if (ob->temp3) + { + ob->temp3--; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority); + } + else + { + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + } +} + +/* +============================================================================= + + PET (a.k.a. SHOCKSHUND) + +temp1 = countdown for sit animation +temp2 = health +temp3 = flash countdown + +============================================================================= +*/ + +statetype s_petsit1 = {PETSIT1SPR, PETSIT1SPR, step, false, true, 8, 0, 0, NULL, C_Pet, R_Pet, &s_petsit2}; +statetype s_petsit2 = {PETSIT2SPR, PETSIT2SPR, step, false, true, 8, 0, 0, T_PetSit, C_Pet, R_Pet, &s_petsit1}; +statetype s_petbark1 = {PETBARKL1SPR, PETBARKR1SPR, step, false, true, 8, 0, 0, NULL, C_Pet, R_Pet, &s_petbark2}; +statetype s_petbark2 = {PETBARKL2SPR, PETBARKR2SPR, step, false, true, 8, 0, 0, T_PetBark, C_Pet, R_Pet, &s_pet1}; +statetype s_pet1 = {PETRUNL1SPR, PETRUNR1SPR, step, false, true, 8, 128, 0, NULL, C_Pet, R_Pet, &s_pet2}; +statetype s_pet2 = {PETRUNL2SPR, PETRUNR2SPR, step, false, true, 8, 128, 0, NULL, C_Pet, R_Pet, &s_pet3}; +statetype s_pet3 = {PETRUNL3SPR, PETRUNR3SPR, step, false, true, 8, 128, 0, NULL, C_Pet, R_Pet, &s_pet4}; +statetype s_pet4 = {PETRUNL4SPR, PETRUNR4SPR, step, false, true, 8, 128, 0, T_Pet, C_Pet, R_Pet, &s_pet1}; +statetype s_petjump = {PETJUMPLSPR, PETJUMPRSPR, think, false, false, 8, 128, 0, T_Projectile, C_Pet, R_PetJump, &s_pet2}; +statetype s_pshot1 = {PETSPARK1SPR, PETSPARK1SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_PShot, R_PShot, &s_pshot2}; +statetype s_pshot2 = {PETSPARK2SPR, PETSPARK2SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_PShot, R_PShot, &s_pshot1}; +statetype s_pshothot1 = {PETSPARKHIT1SPR, PETSPARKHIT1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_pshothot2}; +statetype s_pshothot2 = {PETSPARKHIT2SPR, PETSPARKHIT2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL}; +statetype s_petstun = {PETSTUNSPR, PETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnPet += +=========================== +*/ + +void SpawnPet(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = petobj; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL; + new->temp2 = 2; // health + new->xdir = new->ydir = 1; + NewState(new, &s_pet1); +} + +/* +=========================== += += T_Pet += +=========================== +*/ + +void T_Pet(objtype *ob) +{ + if (ob->x > player->x) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } + if (US_RndT() < 0x10) + { + xtry = 0; + ob->state = &s_petsit1; + ob->temp1 = 10; // repeat animation 10 times; + } + else + { + if (ob->bottom != player->bottom) + { + ob->state = &s_petjump; + if (ob->xdir == 1) + { + ob->xspeed = 40; + } + else + { + ob->xspeed = -40; + } + ob->yspeed = -40; + } + if (US_RndT() < 0x80) + { + xtry = 0; + ob->state = &s_petbark1; + } + } +} + +/* +=========================== += += T_PetSit += +=========================== +*/ + +void T_PetSit(objtype *ob) +{ + if (--ob->temp1 == 0) + { + ob->state = &s_pet1; + } +} + +/* +=========================== += += T_PetBark += +=========================== +*/ + +void T_PetBark(objtype *ob) +{ + Uint16 x; + + if (ob->xdir == 1) + { + x = ob->x + 7*PIXGLOBAL; + } + else + { + x = ob->x; + } + if (CheckSpawnShot(x, ob->y+4*PIXGLOBAL, &s_pshot1) != -1) + { + new->xspeed = ob->xdir * 60; + new->xdir = ob->xdir; + SD_PlaySound(SND_SHOCKSHUNDBARK); + } +} + +/* +=========================== += += C_Pet += +=========================== +*/ + +void C_Pet(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + if (hit->obclass == stunshotobj) // no 'else if' in the original code! + { + if (--ob->temp2 == 0) // handle health + { + ob->xspeed = 0; + ob->yspeed = 0; + StunObj(ob, hit, &s_petstun); + } + else + { + ob->temp3 = 2; // draw white two times + ob->needtoreact = true; + ExplodeShot(hit); + } + } +} + +/* +=========================== += += R_Pet += +=========================== +*/ + +void R_Pet(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (!ob->hitnorth) + { + if ((ob->xdir == 1 && player->x > ob->x) || (ob->xdir == -1 && player->x < ob->x)) + { + ChangeState(ob, &s_petjump); + if (ob->xdir == 1) + { + ob->xspeed = 40; + } + else + { + ob->xspeed = -40; + } + ob->yspeed = -40; + } + else + { + ob->x -= ob->xmove*2; + ob->xdir = -ob->xdir; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + } + if (ob->temp3) + { + ob->temp3--; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority); + } + else + { + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + } +} + +/* +=========================== += += R_PetJump += +=========================== +*/ + +void R_PetJump(objtype *ob) +{ + if (ob->hitnorth) + { + ob->nothink = US_RndT() >> 5; + ChangeState(ob, &s_pet1); + } + if (ob->temp3) + { + ob->temp3--; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority); + } + else + { + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + } +} + +/* +=========================== += += C_PShot += +=========================== +*/ + +void C_PShot(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + ChangeState(ob, &s_pshothot1); + } + else if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + ChangeState(ob, &s_pshothot1); + } +} + +/* +=========================== += += R_PShot += +=========================== +*/ + +void R_PShot(objtype *ob) +{ + if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest) + { + SD_PlaySound(SND_SHOCKBALLEXPLODE); + ChangeState(ob, &s_pshothot1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + SPHEREFUL + +temp1 ... temp4 = sprite pointers for the guards circling around the sphere + +============================================================================= +*/ + +statetype s_sphereful1 = {SPHEREFUL1SPR, SPHEREFUL1SPR, stepthink, false, false, 6, 0, 0, T_Sphereful, C_Spindread, R_Sphereful, &s_sphereful2}; +statetype s_sphereful2 = {SPHEREFUL2SPR, SPHEREFUL2SPR, stepthink, false, false, 6, 0, 0, T_Sphereful, C_Spindread, R_Sphereful, &s_sphereful3}; +statetype s_sphereful3 = {SPHEREFUL3SPR, SPHEREFUL3SPR, stepthink, false, false, 6, 0, 0, T_Sphereful, C_Spindread, R_Sphereful, &s_sphereful4}; +statetype s_sphereful4 = {SPHEREFUL4SPR, SPHEREFUL4SPR, stepthink, false, false, 6, 0, 0, T_Sphereful, C_Spindread, R_Sphereful, &s_sphereful1}; + +/* +=========================== += += SpawnSphereful += +=========================== +*/ + +void SpawnSphereful(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = spherefulobj; + new->needtoclip = cl_fullclip; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL; + new->priority = 1; + NewState(new, &s_sphereful1); +} + +/* +=========================== += += T_Sphereful += +=========================== +*/ + +void T_Sphereful(objtype *ob) +{ + Sint32 i; + ob->needtoreact = true; + + // + // this code could be executed twice during the same frame because the + // object's animation/state changed during that frame, so don't update + // anything if we already have movement for the current frame i.e. the + // update code has already been executed this frame + // + if (xtry == 0 && ytry == 0) + { + for (i=lasttimecount-tics; iyspeed < 8) + ob->yspeed++; + + if (ob->x < player->x && ob->xspeed < 8) + ob->xspeed++; + + if (ob->x > player->x && ob->xspeed > -8) + ob->xspeed--; + } + ytry += ob->yspeed; + xtry += ob->xspeed; + } + } +} + +/* +=========================== += += R_Sphereful += +=========================== +*/ + +void R_Sphereful(objtype *ob) +{ + static Uint16 circle[16] = { + 384, 369, 328, 265, 192, 119, 58, 15, + 0, 15, 58, 119, 192, 265, 328, 369 + }; + + Uint16 index, shapenum, priority; + + if (ob->hitwest || ob->hiteast) + { + ob->xspeed = -ob->xspeed; + SD_PlaySound(SND_SPHEREFULBOUNCE); + } + if (ob->hitsouth) + { + ob->yspeed = -ob->yspeed; + SD_PlaySound(SND_SPHEREFULBOUNCE); + } + + if (ob->hitnorth) + { + ob->yspeed = -ob->yspeed; + if (player->y < ob->y) + { + ob->yspeed--; + } + else + { + ob->yspeed++; + } + if (ob->yspeed > -4) + { + ob->yspeed = -4; + } + else if (ob->yspeed < -12) + { + ob->yspeed = -12; + } + SD_PlaySound(SND_BOUNCE); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + + index = ((Uint16)lasttimecount / 8) & 0xF; + shapenum = index / 4 + SPHEREGUARD1SPR; + if (index >= 8) + { + priority = 2; + } + else + { + priority = 0; + } + RF_PlaceSprite((void**)&ob->temp1, ob->x+circle[index], ob->y+circle[index], shapenum, spritedraw, priority); + RF_PlaceSprite((void**)&ob->temp2, ob->x+24*PIXGLOBAL-circle[index], ob->y+circle[index], shapenum, spritedraw, priority); + + index += 8; + index &= 0xF; + if (index >= 8) + { + priority = 2; + } + else + { + priority = 0; + } + RF_PlaceSprite((void**)&ob->temp3, ob->x+circle[index], ob->y+circle[index], shapenum, spritedraw, priority); + RF_PlaceSprite((void**)&ob->temp4, ob->x+24*PIXGLOBAL-circle[index], ob->y+circle[index], shapenum, spritedraw, priority); +} + +/* +============================================================================= + + SCOTTIE + +============================================================================= +*/ + +statetype s_scottie1 = {SCOTTIEWALKL1SPR, SCOTTIEWALKR1SPR, step, false, true, 8, 128, 0, T_Scottie, C_Scottie, R_Walk, &s_scottie2}; +statetype s_scottie2 = {SCOTTIEWALKL2SPR, SCOTTIEWALKR2SPR, step, false, true, 8, 128, 0, T_Scottie, C_Scottie, R_Walk, &s_scottie3}; +statetype s_scottie3 = {SCOTTIEWALKL3SPR, SCOTTIEWALKR3SPR, step, false, true, 8, 128, 0, T_Scottie, C_Scottie, R_Walk, &s_scottie4}; +statetype s_scottie4 = {SCOTTIEWALKL4SPR, SCOTTIEWALKR4SPR, step, false, true, 8, 128, 0, T_Scottie, C_Scottie, R_Walk, &s_scottie1}; +statetype s_scottieface = {SCOTTIEFACESPR, SCOTTIEFACESPR, step, false, true, 30, 0, 0, NULL, C_Scottie, R_Walk, &s_scottie1}; +statetype s_scottiestun = {SCOTTIESTUNSPR, SCOTTIESTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnScottie += +=========================== +*/ + +void SpawnScottie(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = scottieobj; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + NewState(new, &s_scottie1); +} + +/* +=========================== += += T_Scottie += +=========================== +*/ + +void T_Scottie(objtype *ob) +{ + if (US_RndT() < 0x10) + { + xtry = 0; + if (US_RndT() < 0x80) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + ob->state = &s_scottieface; + } +} + +/* +=========================== += += C_Scottie += +=========================== +*/ + +void C_Scottie(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj && hit->state->contact) + { + ClipToSpriteSide(hit, ob); + } + else if (hit->obclass == stunshotobj) + { + StunObj(ob, hit, &s_scottiestun); + } +} + +/* +============================================================================= + + QED + +============================================================================= +*/ + +statetype s_qed = {-1, -1, step, false, true, 8, 128, 0, NULL, NULL, NULL, &s_qed}; + +/* +=========================== += += SpawnQed += +=========================== +*/ + +void SpawnQed(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = qedobj; + new->active = ac_yes; + new->tileleft = tileX; + new->tiletop = tileY; + new->tileright = new->tileleft + 1; + new->tilebottom = new->tiletop + 1; + new->x = new->left = CONVERT_TILE_TO_GLOBAL(tileX) + -1*PIXGLOBAL; + new->y = new->top = CONVERT_TILE_TO_GLOBAL(tileY) + -1*PIXGLOBAL; + new->right = new->left + 34*PIXGLOBAL; + new->bottom = new->top + 34*PIXGLOBAL; + NewState(new, &s_qed); +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN5/K5_DEF.H b/16/keen456/KEEN4-6/KEEN5/K5_DEF.H new file mode 100755 index 00000000..b6fc078e --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/K5_DEF.H @@ -0,0 +1,485 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __K5_DEF__ +#define __K5_DEF__ + +/* +============================================================================= + + GLOBAL CONSTANTS + +============================================================================= +*/ + +#if GRMODE == CGAGR +#define MINMEMORY 255000l +#else +#define MINMEMORY 310000l +#endif + +#define STARPALETTE {0, 1, 24, 30, 31, 28, 6, 7, 19, 19, 19, 19, 19, 19, 19, 19, 0} +#define INTROPALETTE {0, 4, 4, 28, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 19, 0} +#define SHRINKPALETTE {0, 4, 4, 28, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 4, 0} + +#define HIGHSCORE_LEFT 40 +#define HIGHSCORE_TOP 35 +#define HIGHSCORE_RIGHT 280 +#define HIGHSCORE_MAP 15 + +#define STATUS_PRESSKEY_X 120 + +#define WORLDMAPNAME "Armageddon" +#define DROPSNAME "VITALIN" + +#define STARWARSMUSIC 17 +#define ENDINGMUSIC 14 + +// levels in this range can NOT be re-entered (BWB level should be > MAXDONELEVEL) +#define MINDONELEVEL 1 +#define MAXDONELEVEL 17 + +#define INACTIVATEDIST 6 + +// +// tiles for worldmap teleporters +// +#define TELEPORTERTILE1 2687 // tile animation for teleporting out +#define TELEPORTERTILE2 1063 // tile after teleporting out +#define TELEPORTERTILE3 TELEPORTERTILE1 // tile animation for teleporting in +#define TELEPORTERTILE4 0 // tile after teleporting in + +#define TELEPORERTILEMASK 1 // animation has 2 frames + +/* +============================================================================= + + K5_SPEC DEFINITIONS + +============================================================================= +*/ + +extern char far swtext[]; +extern char far *levelnames[GAMELEVELS]; +extern char far *levelenter[GAMELEVELS]; + +void OpenMapDoor(Sint16 tileX, Sint16 tileY); +void CloseMapDoor(Sint16 tileX, Sint16 tileY); +void ScanInfoPlane(void); +void GameOver(void); + +void FinishedFuse(void); + +/* +============================================================================= + + K5_ACT1 DEFINITIONS + +============================================================================= +*/ + +extern Sint16 pdirx[]; +extern Sint16 pdiry[]; + +Sint16 CheckSpawnShot(Uint16 x, Uint16 y, statetype *state); +void C_ClipSide(objtype *ob, objtype *hit); +void C_ClipTop(objtype *ob, objtype *hit); +void R_Land(objtype *ob); +void R_Bounce(objtype *ob); + +extern statetype s_bonus1; +extern statetype s_bonus2; +extern statetype s_bonusfly1; +extern statetype s_bonusfly2; +extern statetype s_bonusrise; +extern statetype s_splash1; +extern statetype s_splash2; +extern statetype s_splash3; +extern statetype s_splash4; + +extern Uint16 bonusshape[]; + +void SpawnBonus(Uint16 tileX, Uint16 tileY, Uint16 type); +void SpawnSplash(Uint16 tileX, Uint16 tileY); +void T_Bonus(objtype *ob); +void T_FlyBonus(objtype *ob); + +extern statetype s_teleport1; +extern statetype s_teleport2; +extern statetype s_teleportzap1; +extern statetype s_teleportzap2; + +void SpawnTeleport(void); + +extern statetype s_fuseflash1; +extern statetype s_fuseflash2; +extern statetype s_fuseflash3; + +void SpawnFuseFlash(Uint16 tileX, Uint16 tileY); + +extern statetype s_deadmachine; + +void SpawnDeadMachine(void); +void T_DeadMachine(objtype *ob); + +extern statetype s_platform; +extern statetype s_slotplat1; +extern statetype s_slotplat2; + +void SpawnPlatform(Uint16 tileX, Uint16 tileY, Sint16 dir, Sint16 type); +void T_Platform(objtype *ob); +void T_Slotplat(objtype *ob); + +extern statetype s_dropplatsit; +extern statetype s_dropplatfall; +extern statetype s_dropplatrise; + +void SpawnDropPlat(Uint16 tileX, Uint16 tileY); +void T_DropPlatSit(objtype *ob); +void T_DropPlatFall(objtype *ob); +void T_DropPlatRise(objtype *ob); + +extern statetype s_statplat; + +void SpawnStaticPlat(Uint16 tileX, Uint16 tileY); + +extern statetype s_goplat; +extern statetype s_slotgoplat1; +extern statetype s_slotgoplat2; + +void SpawnGoPlat(Uint16 tileX, Uint16 tileY, Sint16 dir, Sint16 type); +void T_GoPlat(objtype *ob); +void T_GoSlotPlat(objtype *ob); + +extern statetype s_volte1; +extern statetype s_volte2; +extern statetype s_volte3; +extern statetype s_volte4; +extern statetype s_voltestun; + +void SpawnVolte(Uint16 tileX, Uint16 tileY); +void T_Volte(objtype *ob); +void C_Volte(objtype *ob, objtype *hit); + +extern statetype s_sneakplatsit; +extern statetype s_sneakplatdodge; +extern statetype s_sneakplatreturn; + +void SpawnSneakPlat(Uint16 tileX, Uint16 tileY); +void T_SneakPlat(objtype *ob); + +extern statetype s_cannon; +extern statetype s_cannonfire; +extern statetype s_cshot1; +extern statetype s_cshot2; +extern statetype s_cshot3; +extern statetype s_cshot4; +extern statetype s_cshothit1; +extern statetype s_cshothit2; + +void SpawnCannon(Uint16 tileX, Uint16 tileY, Sint16 dir); +void T_Cannon(objtype *ob); +void C_CShot(objtype *ob, objtype *hit); +void R_CShot(objtype *ob); + +/* +============================================================================= + + K5_ACT2 DEFINITIONS + +============================================================================= +*/ + +extern statetype s_sparkywalk1; +extern statetype s_sparkywalk2; +extern statetype s_sparkywalk3; +extern statetype s_sparkywalk4; +extern statetype s_sparkylook1; +extern statetype s_sparkylook2; +extern statetype s_sparkylook3; +extern statetype s_sparkylook4; +extern statetype s_sparkylook5; +extern statetype s_sparkylook6; +extern statetype s_sparkylook7; +extern statetype s_sparkylook8; +extern statetype s_sparkyspeed1; +extern statetype s_sparkyspeed2; +extern statetype s_sparkyspeed3; +extern statetype s_sparkyspeed4; +extern statetype s_sparkycharge1; +extern statetype s_sparkycharge2; +extern statetype s_sparkycharge3; +extern statetype s_sparkycharge4; +extern statetype s_sparkyturn1; +extern statetype s_sparkyturn2; +extern statetype s_sparkyturn3; +extern statetype s_sparkystun; + +void SpawnSparky(Uint16 tileX, Uint16 tileY); +void T_Sparky(objtype *ob); +void T_ChargeCount(objtype *ob); +void T_SparkyLookL(objtype *ob); +void T_SparkyLookR(objtype *ob); +void T_RunSnd1(objtype *ob); +void T_RunSnd2(objtype *ob); +void C_Sparky(objtype *ob, objtype *hit); +void R_Sparky(objtype *ob); + +extern statetype s_amptonwalk1; +extern statetype s_amptonwalk2; +extern statetype s_amptonwalk3; +extern statetype s_amptonwalk4; +extern statetype s_amptonturn; +extern statetype s_amptongrab1; +extern statetype s_amptongrab2; +extern statetype s_amptonclimb; +extern statetype s_amptonrelease1; +extern statetype s_amptonrelease2; +extern statetype s_amptonfiddle1; +extern statetype s_amptonfiddle2; +extern statetype s_amptonfiddle3; +extern statetype s_amptonfiddle4; +extern statetype s_amptonfiddle5; +extern statetype s_amptonstun; + +void SpawnAmpton(Uint16 tileX, Uint16 tileY); +void T_Ampton(objtype *ob); +void T_AmptonClimb(objtype *ob); +void T_SetNoThink(objtype *ob); +void C_Ampton(objtype *ob, objtype *hit); +void R_Ampton(objtype *ob); + +extern statetype s_slicestarslide; +extern statetype s_slicestarbounce; +extern statetype s_slicestarboom; + +void SpawnSlicestarSlide(Uint16 tileX, Uint16 tileY, Sint16 dir); +void SpawnSlicestarBounce(Uint16 tileX, Uint16 tileY); +void C_Slicestar(objtype *ob, objtype *hit); +void R_Slicestar(objtype *ob); + +extern statetype s_shellywalk1; +extern statetype s_shellywalk2; +extern statetype s_shellywalk3; +extern statetype s_shellywalk4; +extern statetype s_shellylook; +extern statetype s_shellylook2; +extern statetype s_shellyjump1; +extern statetype s_shellyjump2; +extern statetype s_shellydie; +extern statetype s_shellydieup; +extern statetype s_shellyboom1; +extern statetype s_shellyboom2; +extern statetype s_shellyboom3; +extern statetype s_shellyboom4; +extern statetype s_shellypiece1; +extern statetype s_shellypiece2; + +void SpawnShelly(Uint16 tileX, Uint16 tileY); +void T_ShellyLook(objtype *ob); +void T_Turn(objtype *ob); +void T_ShellyFrag(objtype *ob); +void C_Shelly(objtype *ob, objtype *hit); +void R_Shelly(objtype *ob); +void R_Shell(objtype *ob); + +/* +============================================================================= + + K5_ACT3 DEFINITIONS + +============================================================================= +*/ + +extern statetype s_mine; +extern statetype s_minecenter; +extern statetype s_mineshift; +extern statetype s_mineboom1; +extern statetype s_mineboom2; +extern statetype s_mineboom3; +extern statetype s_mineboom4; +extern statetype s_mineboom5; +extern statetype s_mineboom6; +extern statetype s_minepiece; + +void SpawnMine(Uint16 tileX, Uint16 tileY); +boolean MinePosCheck(Uint16 tileX, Uint16 tileY); +boolean Walk(objtype *ob, Sint16 dir); +void ChaseThink(objtype *ob); +void T_Mine(objtype *ob); +void C_Solid(objtype *ob, objtype *hit); +void C_MineFrag(objtype *ob, objtype *hit); +void T_MineCenter(objtype *ob); +void T_MineShift(objtype *ob); +void T_MineFrag(objtype *ob); +void R_Mine(objtype *ob); + +extern statetype s_robored; +extern statetype s_roboredfire0; +extern statetype s_roboredfire1; +extern statetype s_roboredfire2; +extern statetype s_rshot1; +extern statetype s_rshot2; +extern statetype s_rshothit1; +extern statetype s_rshothit2; + +void SpawnRoboRed(Uint16 tileX, Uint16 tileY); +void T_RoboRed(objtype *ob); +void C_RoboRed(objtype *ob, objtype *hit); +void T_RoboShoot(objtype *ob); +void C_RShot(objtype *ob, objtype *hit); +void R_RShot(objtype *ob); + +extern statetype s_gripsitd; +extern statetype s_gripjumpd; +extern statetype s_gripsitl; +extern statetype s_gripjumpl; +extern statetype s_gripsitr; +extern statetype s_gripjumpr; +extern statetype s_gripsitu; +extern statetype s_gripjumpu; +extern statetype s_gripspin1; +extern statetype s_gripspin2; +extern statetype s_gripspin3; +extern statetype s_gripspin4; +extern statetype s_gripspin5; +extern statetype s_gripspin6; +extern statetype s_gripspin7; +extern statetype s_gripspin8; +extern statetype s_gripflyd; +extern statetype s_gripflyl; +extern statetype s_gripflyr; +extern statetype s_gripflyu; + +void SpawnSpirogrip(Uint16 tileX, Uint16 tileY); +void T_SpiroLaunch(objtype *ob); +void R_SpiroFly(objtype *ob); + +extern statetype s_spindred1; +extern statetype s_spindred2; +extern statetype s_spindred3; +extern statetype s_spindred4; + +void SpawnSpindread(Uint16 tileX, Uint16 tileY); +void T_Spindread(objtype *ob); +void C_Spindread(objtype *ob, objtype *hit); +void R_Spindread(objtype *ob); + +extern statetype s_master1; +extern statetype s_master2; +extern statetype s_master3; +extern statetype s_master4; +extern statetype s_mastershoot1; +extern statetype s_mastershoot2; +extern statetype s_mastertport1; +extern statetype s_mastertport2; +extern statetype s_mastertport3; +extern statetype s_mastertport4; +extern statetype s_mshot1; +extern statetype s_mshot2; +extern statetype s_mshot3; +extern statetype s_mshot4; +extern statetype s_mspray1; +extern statetype s_mspray2; +extern statetype s_mspray3; +extern statetype s_mspray4; + +void SpawnMaster(Uint16 tileX, Uint16 tileY); +void T_Master(objtype *ob); +void T_MasterShoot(objtype *ob); +void C_Master(objtype *ob, objtype *hit); +void T_MasterTPort(objtype *ob); +void C_MShot(objtype *ob, objtype *hit); +void R_MShot(objtype *ob); +void R_MSpray(objtype *ob); + +extern statetype s_shikadi1; +extern statetype s_shikadi2; +extern statetype s_shikadi3; +extern statetype s_shikadi4; +extern statetype s_shikadiwalk1; +extern statetype s_shikadiwalk2; +extern statetype s_shikadiwalk3; +extern statetype s_shikadiwalk4; +extern statetype s_shikadigrab; +extern statetype s_shikadigrab2; +extern statetype s_shikadistun; +extern statetype s_polespark1; +extern statetype s_polespark2; + +void SpawnShikadi(Uint16 tileX, Uint16 tileY); +void T_Shikadi(objtype *ob); +void C_Shikadi(objtype *ob, objtype *hit); +void T_PoleShock(objtype *ob); +void T_PoleSpark(objtype *ob); +void R_Shikadi(objtype *ob); + +extern statetype s_petsit1; +extern statetype s_petsit2; +extern statetype s_petbark1; +extern statetype s_petbark2; +extern statetype s_pet1; +extern statetype s_pet2; +extern statetype s_pet3; +extern statetype s_pet4; +extern statetype s_petjump; +extern statetype s_pshot1; +extern statetype s_pshot2; +extern statetype s_pshothot1; +extern statetype s_pshothot2; +extern statetype s_petstun; + +void SpawnPet(Uint16 tileX, Uint16 tileY); +void T_Pet(objtype *ob); +void T_PetSit(objtype *ob); +void T_PetBark(objtype *ob); +void C_Pet(objtype *ob, objtype *hit); +void R_Pet(objtype *ob); +void R_PetJump(objtype *ob); +void C_PShot(objtype *ob, objtype *hit); +void R_PShot(objtype *ob); + +extern statetype s_sphereful1; +extern statetype s_sphereful2; +extern statetype s_sphereful3; +extern statetype s_sphereful4; + +void SpawnSphereful(Uint16 tileX, Uint16 tileY); +void T_Sphereful(objtype *ob); +void R_Sphereful(objtype *ob); + +extern statetype s_scottie1; +extern statetype s_scottie2; +extern statetype s_scottie3; +extern statetype s_scottie4; +extern statetype s_scottieface; +extern statetype s_scottiestun; + +void SpawnScottie(Uint16 tileX, Uint16 tileY); +void T_Scottie(objtype *ob); +void C_Scottie(objtype *ob, objtype *hit); + +extern statetype s_qed; + +void SpawnQed(Uint16 tileX, Uint16 tileY); + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN5/K5_SPEC.C b/16/keen456/KEEN4-6/KEEN5/K5_SPEC.C new file mode 100755 index 00000000..4248954f --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5/K5_SPEC.C @@ -0,0 +1,1158 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K5_SPEC.C +========= + +Contains (in this order): + +- lump definition +- "Star Wars" crawl text +- level names & messages +- Airlock opening & closing code +- ScanInfoPlane() - for spawning the level objects and marking required sprites +- game over animation +- messages for breaking fuses +*/ + +#include "CK_DEF.H" + +enum { + HELP_LUMP, // 0 + CONTROLS_LUMP, // 1 + KEENTALK_LUMP, // 2 + LOADING_LUMP, // 3 + PADDLE_LUMP, // 4 + KEEN_LUMP, // 5 + SUGAR1_LUMP, // 6 + SUGAR2_LUMP, // 7 + SUGAR3_LUMP, // 8 + SUGAR4_LUMP, // 9 + SUGAR5_LUMP, // 10 + SUGAR6_LUMP, // 11 + ONEUP_LUMP, // 12 + KEYGEM_LUMP, // 13 + AMMO_LUMP, // 14 + LASER_LUMP, // 15 + WORLDKEEN_LUMP, // 16 + MASTER_LUMP, // 17 + SHIKADI_LUMP, // 18 + SHOCKSHUND_LUMP, // 19 + SPHEREFUL_LUMP, // 20 + SPARKY_LUMP, // 21 + MINE_LUMP, // 22 + SLICESTAR_LUMP, // 23 + ROBORED_LUMP, // 24 + SPIRO_LUMP, // 25 + AMPTON_LUMP, // 26 + VOLTE_LUMP, // 27 + SLOTPLAT_LUMP, // 28 + SPINDRED_LUMP, // 29 + SHELLEY_LUMP, // 30 + PLATFORM_LUMP, // 31 + SMALLPLAT_LUMP, // 32 + KEYCARD_LUMP, // 33 + SCOTTIE_LUMP, // 34 + FUSE_LUMP, // 35 + STAREXPLODE_LUMP, // 36 + TELEPORT_LUMP, // 37 + + NUMLUMPS=42 // Keen 5 has 4 unused lumps at the end +}; + +Uint16 lumpstart[NUMLUMPS] = { + HELP_LUMP_START, + CONTROLS_LUMP_START, + KEENTALK_LUMP_START, + LOADING_LUMP_START, + PADDLE_LUMP_START, + KEEN_LUMP_START, + SUGAR1_LUMP_START, + SUGAR2_LUMP_START, + SUGAR3_LUMP_START, + SUGAR4_LUMP_START, + SUGAR5_LUMP_START, + SUGAR6_LUMP_START, + ONEUP_LUMP_START, + KEYGEM_LUMP_START, + AMMO_LUMP_START, + LASER_LUMP_START, + WORLDKEEN_LUMP_START, + MASTER_LUMP_START, + SHIKADI_LUMP_START, + SHOCKSHUND_LUMP_START, + SPHEREFUL_LUMP_START, + SPARKY_LUMP_START, + MINE_LUMP_START, + SLICESTAR_LUMP_START, + ROBORED_LUMP_START, + SPIRO_LUMP_START, + AMPTON_LUMP_START, + VOLTE_LUMP_START, + SLOTPLAT_LUMP_START, + SPINDRED_LUMP_START, + SHELLEY_LUMP_START, + PLATFORM_LUMP_START, + MINIPLAT_LUMP_START, + KEYCARD_LUMP_START, + SCOTTIE_LUMP_START, + FUSE_LUMP_START, + STAREXPLODE_LUMP_START, + TELEPORT_LUMP_START +}; + +Uint16 lumpend[NUMLUMPS] = { + HELP_LUMP_END, + CONTROLS_LUMP_END, + KEENTALK_LUMP_END, + LOADING_LUMP_END, + PADDLE_LUMP_END, + KEEN_LUMP_END, + SUGAR1_LUMP_END, + SUGAR2_LUMP_END, + SUGAR3_LUMP_END, + SUGAR4_LUMP_END, + SUGAR5_LUMP_END, + SUGAR6_LUMP_END, + ONEUP_LUMP_END, + KEYGEM_LUMP_END, + AMMO_LUMP_END, + LASER_LUMP_END, + WORLDKEEN_LUMP_END, + MASTER_LUMP_END, + SHIKADI_LUMP_END, + SHOCKSHUND_LUMP_END, + SPHEREFUL_LUMP_END, + SPARKY_LUMP_END, + MINE_LUMP_END, + SLICESTAR_LUMP_END, + ROBORED_LUMP_END, + SPIRO_LUMP_END, + AMPTON_LUMP_END, + VOLTE_LUMP_END, + SLOTPLAT_LUMP_END, + SPINDRED_LUMP_END, + SHELLEY_LUMP_END, + PLATFORM_LUMP_END, + MINIPLAT_LUMP_END, + KEYCARD_LUMP_END, + SCOTTIE_LUMP_END, + FUSE_LUMP_END, + STAREXPLODE_LUMP_END, + TELEPORT_LUMP_END +}; + +boolean lumpneeded[NUMLUMPS]; + +#if GRMODE == EGAGR + +char far swtext[] = + "Episode Five\n" + "\n" + "The Armageddon Machine\n" + "\n" + "After learning the\n" + "location of the secret\n" + "Shikadi base, Keen\n" + "jumped in the trusty\n" + "Bean-with-Bacon\n" + "Megarocket and blasted\n" + "across interstellar\n" + "space.\n" + "\n" + "Seventy-five furious\n" + "games of Paddle War\n" + "later, Keen dropped\n" + "out of lightspeed near\n" + " the Korath system.\n" + "\n" + "He flew toward the\n" + "planet, keeping it\n" + "between him and the\n" + "base.\n" + "\n" + "Pulling up underside\n" + "and docking at the\n" + "Ion Ventilation System,\n" + "Keen must destroy the\n" + "Shikadi Armageddon\n" + "Machine before it\n" + "explodes and destroys\n" + "the Milky Way! He\n" + "steps into the dark\n" + "ventilation duct and\n" + "begins his most\n" + "dangerous adventure\n" + "yet...\n"; + +#endif + +char far l0n[] = "Omegamatic"; +char far l1n[] = "Ion Ventilation System"; +char far l2n[] = "Security Center"; +char far l3n[] = "Defense Tunnel Vlook"; +char far l4n[] = "Energy Flow Systems"; +char far l5n[] = "Defense Tunnel Burrh"; +char far l6n[] = "Regulation\nControl Center"; +char far l7n[] = "Defense Tunnel Sorra"; +char far l8n[] = "Neutrino\nBurst Injector"; +char far l9n[] = "Defense Tunnel Teln"; +char far l10n[] = "Brownian\nMotion Inducer"; +char far l11n[] = "Gravitational\nDamping Hub"; +char far l12n[] = "Quantum\nExplosion Dynamo"; +char far l13n[] = "Korath III Base"; +char far l14n[] = "BWBMegarocket"; +char far l15n[] = "High Scores"; + +char far l0e[] = "Keen purposefully\nwanders about the\nOmegamatic"; +char far l1e[] = "Keen investigates the\nIon Ventilation System"; +char far l2e[] = "Keen struts through\nthe Security Center"; +char far l3e[] = "Keen invades\nDefense Tunnel Vlook"; +char far l4e[] = "Keen engages\nEnergy Flow Systems"; +char far l5e[] = "Keen barrels into\nDefense Tunnel Burrh"; +char far l6e[] = "Keen goes nuts in\nthe Regulation\nControl Center"; +char far l7e[] = "Keen regrets entering\nDefense Tunnel Sorra"; +char far l8e[] = "Keen blows through\nthe Neutrino\nBurst Injector"; +char far l9e[] = "Keen trots through\nDefense Tunnel Teln"; +char far l10e[] = "Keen breaks into\nthe Brownian\nMotion Inducer"; +char far l11e[] = "Keen hurries through\nthe Gravitational\nDamping Hub"; +char far l12e[] = "Keen explodes into\nthe Quantum\nExplosion Dynamo"; +char far l13e[] = "Keen faces danger\nin the secret\nKorath III Base"; +char far l14e[] = "Keen will not be\nin the BWBMegarocket"; +char far l15e[] = "Keen unexplainedly\nfinds himself by\ntheHigh Scores"; // sic! + +char far *levelnames[GAMELEVELS] = { + l0n, + l1n, + l2n, + l3n, + l4n, + l5n, + l6n, + l7n, + l8n, + l9n, + l10n, + l11n, + l12n, + l13n, + l14n, + l15n +}; + +char far *levelenter[GAMELEVELS] = { + l0e, + l1e, + l2e, + l3e, + l4e, + l5e, + l6e, + l7e, + l8e, + l9e, + l10e, + l11e, + l12e, + l13e, + l14e, + l15e +}; + +Uint16 bonuslump[] = { + KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP, + SUGAR1_LUMP, SUGAR2_LUMP, SUGAR3_LUMP, + SUGAR4_LUMP, SUGAR5_LUMP, SUGAR6_LUMP, + ONEUP_LUMP, AMMO_LUMP, KEYCARD_LUMP, 0, 0 +}; + +//============================================================================ + +/* +=========================== += += OpenMapDoor += +=========================== +*/ + +void OpenMapDoor(Sint16 tileX, Sint16 tileY) +{ + Sint16 x, y; + Uint16 tiles[2][2]; + + for (y=0; y<2; y++) + { + for (x=0; x<2; x++) + { + tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + x + 10); + } + } + RF_MemToMap(&tiles[0][0], 1, tileX, tileY, 2, 2); +} + +/* +=========================== += += CloseMapDoor += +=========================== +*/ + +void CloseMapDoor(Sint16 tileX, Sint16 tileY) +{ + Sint16 x, y; + Uint16 tiles[2][2]; + + for (y=0; y<2; y++) + { + for (x=0; x<2; x++) + { + tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + x); + } + } + RF_MemToMap(&tiles[0][0], 1, tileX, tileY, 2, 2); +} + +//============================================================================ + +/* +========================== += += ScanInfoPlane += += Spawn all actors and mark down special places += +========================== +*/ + +void ScanInfoPlane(void) +{ + Uint16 i, x, y, chunk; + Sint16 info; + Uint16 far *map; + objtype *ob; + + InitObjArray(); // start spawning things with a clean slate + + memset(lumpneeded, 0, sizeof(lumpneeded)); + gamestate.numfuses = 0; + + map = mapsegs[2]; + + for (y=0; y gd_Normal) + break; + SpawnStaticPlat(x, y); + lumpneeded[PLATFORM_LUMP] = true; + break; + case 33: + if (gamestate.difficulty > gd_Easy) + break; + SpawnStaticPlat(x, y); + lumpneeded[PLATFORM_LUMP] = true; + break; + + case 36: + case 37: + case 38: + case 39: + SpawnGoPlat(x, y, info-36, 0); + lumpneeded[PLATFORM_LUMP] = true; + break; + + case 40: + SpawnSneakPlat(x, y); + lumpneeded[PLATFORM_LUMP] = true; + break; + + case 41: + if (gamestate.mapon == 12) + { + gamestate.numfuses = 4; + SpawnQed(x, y); + } + else + { + gamestate.numfuses++; + } + lumpneeded[FUSE_LUMP] = true; + break; + + case 44: + if (gamestate.difficulty < gd_Hard) + break; + case 43: + if (gamestate.difficulty < gd_Normal) + break; + case 42: + SpawnAmpton(x, y); + lumpneeded[AMPTON_LUMP] = true; + break; + + case 53: + if (gamestate.difficulty < gd_Hard) + break; + case 49: + if (gamestate.difficulty < gd_Normal) + break; + case 45: + SpawnCannon(x, y, 0); + lumpneeded[LASER_LUMP] = true; + break; + + case 54: + if (gamestate.difficulty < gd_Hard) + break; + case 50: + if (gamestate.difficulty < gd_Normal) + break; + case 46: + SpawnCannon(x, y, 1); + lumpneeded[LASER_LUMP] = true; + break; + + case 55: + if (gamestate.difficulty < gd_Hard) + break; + case 51: + if (gamestate.difficulty < gd_Normal) + break; + case 47: + SpawnCannon(x, y, 2); + lumpneeded[LASER_LUMP] = true; + break; + + case 56: + if (gamestate.difficulty < gd_Hard) + break; + case 52: + if (gamestate.difficulty < gd_Normal) + break; + case 48: + SpawnCannon(x, y, 3); + lumpneeded[LASER_LUMP] = true; + break; + + case 69: + if (gamestate.ammo >= 5) + break; + info = 68; // spawn ammo + //no break here! + case 57: + case 58: + case 59: + case 60: + case 61: + case 62: + case 63: + case 64: + case 65: + case 66: + case 67: + case 68: + SpawnBonus(x, y, info-57); + lumpneeded[bonuslump[info-57]] = true; + break; + case 70: + SpawnBonus(x, y, info-58); + lumpneeded[bonuslump[info-58]] = true; + break; + + case 73: + if (gamestate.difficulty < gd_Hard) + break; + case 72: + if (gamestate.difficulty < gd_Normal) + break; + case 71: + SpawnVolte(x, y); + lumpneeded[VOLTE_LUMP] = true; + break; + + case 76: + if (gamestate.difficulty < gd_Hard) + break; + case 75: + if (gamestate.difficulty < gd_Normal) + break; + case 74: + SpawnShelly(x, y); + lumpneeded[SHELLEY_LUMP] = true; + break; + + case 79: + if (gamestate.difficulty < gd_Hard) + break; + case 78: + if (gamestate.difficulty < gd_Normal) + break; + case 77: + SpawnSpindread(x, y); + lumpneeded[SPINDRED_LUMP] = true; + break; + + case 80: + case 81: + case 82: + case 83: + SpawnGoPlat(x, y, info-80, 1); + lumpneeded[SLOTPLAT_LUMP] = true; + break; + + case 84: + case 85: + case 86: + case 87: + SpawnPlatform(x, y, info-84, 1); + lumpneeded[SLOTPLAT_LUMP] = true; + break; + + case 90: + if (gamestate.difficulty < gd_Hard) + break; + case 89: + if (gamestate.difficulty < gd_Normal) + break; + case 88: + SpawnMaster(x, y); + lumpneeded[MASTER_LUMP] = true; + break; + + // cases 91 to 98 are direction arrows + + case 101: + if (gamestate.difficulty < gd_Hard) + break; + case 100: + if (gamestate.difficulty < gd_Normal) + break; + case 99: + SpawnShikadi(x, y); + lumpneeded[SHIKADI_LUMP] = true; + break; + + case 104: + if (gamestate.difficulty < gd_Hard) + break; + case 103: + if (gamestate.difficulty < gd_Normal) + break; + case 102: + SpawnPet(x, y); + lumpneeded[SHOCKSHUND_LUMP] = true; + break; + + case 107: + if (gamestate.difficulty < gd_Hard) + break; + case 106: + if (gamestate.difficulty < gd_Normal) + break; + case 105: + SpawnSphereful(x, y); + lumpneeded[SPHEREFUL_LUMP] = true; + break; + + // cases 108 to 123 are wall collision icons for the WallDebug cheat + + case 124: + SpawnScottie(x, y); + lumpneeded[SCOTTIE_LUMP] = true; + break; + + case 125: + lumpneeded[TELEPORT_LUMP] = true; + + } + } + } + + for (ob = player; ob; ob = ob->next) + { + if (ob->active != ac_allways) + ob->active = ac_no; + } + + for (i = 0; i < NUMLUMPS; i++) + { + if (lumpneeded[i]) + { + for (chunk = lumpstart[i]; chunk <= lumpend[i]; chunk++) + { + CA_MarkGrChunk(chunk); + } + } + } + + // Keen 5 addition to PatchWorldMap (PatchWorldMap is shared across Keen 4-6) + if (gamestate.mapon == 0) + { + info = CONVERT_GLOBAL_TO_TILE(player->y); + if (info < 75 || info > 100) + { + CloseMapDoor(24, 76); + OpenMapDoor(22, 55); + } + if (gamestate.leveldone[4] && gamestate.leveldone[6] && gamestate.leveldone[8] && gamestate.leveldone[10] + && (info > 39 || info > 100) ) + { + OpenMapDoor(26, 55); + } + if (info <= 39 || info > 100) + { + OpenMapDoor(24, 30); + } + } +} + +/* +============================================================================= + + GAME OVER SEQUENCE + +============================================================================= +*/ + +/* +------------------------------------------------------------------------------ +The galaxy explosion chunk contains data in the following format: + +struct { + Uint16 posx[4000]; + Uint16 velx[4000]; + Uint16 posy[4000]; + Uint16 vely[4000]; +}; + +The values are stored as "fixed point" numbers (divide each number by 128 to +get the amount in pixel units). The code in MoveStars basically does the +following: + +1. set all pixels on the screen to black + +2. for each of the 4000 entries do: + +2.1 x := posx[i] + velx[i] + +2.2 if x (in pixels) is < 0 or > 320 then go to 2.8 + +2.3 posx[i] := x + +2.4 y := posy[i] + vely[i] + +2.5 if y (in pixels) is < 0 or > 200 then go to 2.8 + +2.6 posy[i] := y + +2.7 draw a white pixel at position (x, y) on the screen + +2.8 continue with the next entry + +------------------------------------------------------------------------------ +*/ + +#if GRMODE == CGAGR + +Uint8 plotpixels[8] = {0xC0, 0x30, 0x0C, 0x03}; + +/* +=========================== += += MoveStars CGA += +=========================== +*/ + +void MoveStars(void) +{ + asm { + mov ax, screenseg; + mov es, ax; + mov ds, word ptr grsegs + 2*GALAXY; + mov cx, 2000h; + xor ax, ax; + xor di, di; + rep stosw; + mov si, 7998; + } +l1: + asm { + mov ax, [si]; // get posx + add ax, [si+8000]; // add velx + cmp ax, 40960; // check if new posx is on screen + ja l2; + mov [si], ax; // set new posx + mov bx, [si+16000]; // get posy + add bx, [si+24000]; // add vely + cmp bx, 25600; // check if new posy is on screen + ja l2; + mov [si+16000], bx; // set new posy + mov cl, 7; + shr bx, cl; + shl bx, 1; + mov di, word ptr ss:ylookup[bx]; + mov bx, ax; + mov cl, 9; + shr ax, cl; + add di, ax; + mov cl, 7; + shr bx, cl; + and bx, 3; + mov al, BYTE PTR ss:plotpixels[bx]; + or es:[di], al; // draw the pixel + } +l2: + asm { + sub si, 2; + jns l1; + mov ax, ss; + mov ds, ax; + } +} + +/* +=========================== += += GameOver CGA += +=========================== +*/ + +void GameOver(void) +{ + Sint16 i; + + FreeGraphics(); + CA_CacheGrChunk(MILKYWAYPIC); + CA_CacheGrChunk(GALAXY); + CA_CacheGrChunk(GAMEOVERPIC); + RF_FixOfs(); + VW_ClearVideo(BLACK); + VWB_DrawPic(0, 0, MILKYWAYPIC); + VW_UpdateScreen(); + + SD_WaitSoundDone(); + SD_PlaySound(SND_GAMEOVER2); + SD_WaitSoundDone(); + SD_PlaySound(SND_GAMEOVER1); + + IN_ClearKeysDown(); + VW_SetLineWidth(80); + + for (i=0; i<60; i++) + { + lasttimecount = TimeCount; + MoveStars(); + VW_UpdateScreen(); + + do {} while (TimeCount-lasttimecount < 4); + + if (LastScan) + break; + } + + VW_SetLineWidth(SCREENWIDTH); + VW_ClearVideo(BLACK); + StartMusic(18); + VWB_DrawPic(32, 80, GAMEOVERPIC); + VW_UpdateScreen(); + IN_UserInput(24*TickBase, false); + StopMusic(); +} + +//============================================================================ + +#else + +Uint16 dim[18] = {8, 8, 7, 15, 7, 8, 0, 8, 7, 15, 7, 8, 0, 0, 0, 0, 0, 0}; +Uint16 bright[18] = {7, 7, 7, 7, 7, 15, 7, 8, 0, 7, 15, 7, 8, 0, 0, 0, 0, 0}; +Uint8 galaxycolors[17] = {0, 1, 2, 3, 4, 5, 6, 7, 0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x1D, 0x1E, 0x1F, 3}; +Uint8 plotpixels[8] = {0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01}; + +/* +=========================== += += MoveStars EGA += +=========================== +*/ + +void MoveStars(Uint16 dest) +{ + asm { + mov dx, GC_INDEX; + mov al, GC_BITMASK; + out dx, al; + inc dx; + mov ds, word ptr grsegs + 2*GALAXY; + mov ax, 0A000h; + mov es, ax; + mov cx, 1000h; + xor ax, ax; + mov di, dest; + rep stosw; + mov si, 7998; + } +l1: + asm { + mov ax, [si]; // get posx + add ax, [si+8000]; // add velx + cmp ax, 40960; // check if new posx is on screen + ja l2; + mov [si], ax; // set new posx + mov bx, [si+16000]; // get posy + add bx, [si+24000]; // add vely + cmp bx, 25600; // check if new posy is on screen + ja l2; + mov [si+16000], bx; // set new posy + mov cl, 7; + shr bx, cl; + shl bx, 1; + mov di, word ptr ss:ylookup[bx]; + add di, dest; + mov bx, ax; + mov cl, 10; + shr ax, cl; + add di, ax; + mov cl, 7; + shr bx, cl; + and bx, 7; + mov al, BYTE PTR ss:plotpixels[bx]; + out dx, al; + mov al, 0Fh; + xchg al, es:[di]; // draw the pixel + } +l2: + asm { + sub si, 2; + jns l1; + mov ax, ss; + mov ds, ax; + mov al, 0FFh; + out dx, al; + } +} + +/* +=========================== += += SetCrtc EGA += +=========================== +*/ + +void SetCrtc(Uint16 addr) +{ + asm { + cli; + mov cx, addr; + mov dx, CRTC_INDEX; + mov al, CRTC_STARTHIGH; + out dx, al; + inc dx; + mov al, ch; + out dx, al; + dec dx; + mov al, CRTC_STARTLOW; + out dx, al; + inc dx; + mov al, cl; + out dx, al; + sti; + } +} + +/* +=========================== += += GameOver EGA += +=========================== +*/ + +void GameOver(void) +{ + Sint16 i; + + FreeGraphics(); + VW_FadeOut(); + CA_CacheGrChunk(MILKYWAYPIC); + CA_CacheGrChunk(GALAXY); + CA_CacheGrChunk(GAMEOVERPIC); + VW_SetLineWidth(40); + VW_SetScreen(0, 0); + bufferofs = 0; + VW_ClearVideo(0); + VW_DrawPic(0, 0, MILKYWAYPIC); + VW_ScreenToScreen(0, 0x2000, 40, 200); + VW_FadeIn(); + IN_ClearKeysDown(); + SD_PlaySound(SND_GAMEOVER2); + + for (i=0; i<18; i++) + { + galaxycolors[8] = dim[i]; + galaxycolors[7] = bright[i]; + + SetPalette(galaxycolors); + + VW_WaitVBL(10); + if (LastScan) + goto gameover; + } + + EGAWRITEMODE(2); + EGAMAPMASK(15); + SD_PlaySound(SND_GAMEOVER1); + + for (i=0; i<30; i++) + { + lasttimecount = TimeCount; + MoveStars(0x2000); + SetCrtc(0x2000); + do {} while (TimeCount-lasttimecount < 4); + + lasttimecount = TimeCount; + MoveStars(0); + SetCrtc(0); + do {} while (TimeCount-lasttimecount < 4); + + if (LastScan) + goto gameover; + } + +gameover: + EGAWRITEMODE(0); + VW_ClearVideo(BLACK); + VW_SetLineWidth(SCREENWIDTH); + VW_SetDefaultColors(); + RF_FixOfs(); + StartMusic(18); + VWB_DrawPic(32, 80, GAMEOVERPIC); + VW_UpdateScreen(); + IN_UserInput(24*TickBase, false); + StopMusic(); +} + +#endif + +//============================================================================ + +/* +=========================== += += FinishedFuse += +=========================== +*/ + +void FinishedFuse(void) +{ + SD_WaitSoundDone(); + CA_UpLevel(); +#if 0 + // bugfix: + CA_ClearMarks(); // don't cache more than we actually need here +#endif + CA_MarkGrChunk(KEENTALK1PIC); + CA_MarkGrChunk(KEENTALK2PIC); + CA_CacheMarks(NULL); + + VW_FixRefreshBuffer(); + US_CenterWindow(26, 8); + WindowW -= 48; + VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK1PIC); + PrintY += 12; + if (gamestate.mapon == 13) + { + US_CPrint( + "I wonder what that\n" + "fuse was for....\n" + ); + } + else + { + US_CPrint( + "One of the four\n" + "machines protecting the\n" + "main elevator shaft--\n" + "toast!\n" + ); + } + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + + VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK2PIC); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + + CA_DownLevel(); + StopMusic(); +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.EQU b/16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.EQU new file mode 100755 index 00000000..9cb6e6b0 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.EQU @@ -0,0 +1,55 @@ +;===================================== +; +; Graphics .EQU file for .CK5 +; not IGRAB-ed :) +; +;===================================== + +;INCLUDE "VERSION.EQU" + +; +; Amount of each data item +; +NUMFONT = 2 +NUMFONTM = 0 +NUMPICM = 3 +NUMTILE8 = 108 +NUMTILE8M = 36 +NUMTILE32 = 0 +NUMTILE32M = 0 + +; +; Amount of each item in episode 5 +; +NUMPICS = 94 +NUMSPRITES = 346 +NUMTILE16 = 1512 +NUMTILE16M = 2952 +NUMEXTERN = 17 + + +; +; File offsets for data items +; +STRUCTPIC = 0 +STRUCTPICM = 1 +STRUCTSPRITE = 2 + +STARTFONT = 3 +STARTFONTM = (STARTFONT+NUMFONT) +STARTPICS = (STARTFONTM+NUMFONTM) +STARTPICM = (STARTPICS+NUMPICS) +STARTSPRITES = (STARTPICM+NUMPICM) +STARTTILE8 = (STARTSPRITES+NUMSPRITES) +STARTTILE8M = (STARTTILE8+1) +STARTTILE16 = (STARTTILE8M+1) +STARTTILE16M = (STARTTILE16+NUMTILE16) +STARTTILE32 = (STARTTILE16M+NUMTILE16M) +STARTTILE32M = (STARTTILE32+NUMTILE32) +STARTEXTERN = (STARTTILE32M+NUMTILE32M) + +NUMCHUNKS = (STARTEXTERN+NUMEXTERN) + +; +; Thank you for using IGRAB! +; diff --git a/16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.H b/16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.H new file mode 100755 index 00000000..95d639ed --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5C/GFXC_CK5.H @@ -0,0 +1,690 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __GFX_H__ +#define __GFX_H__ + +//#include "VERSION.H" + +////////////////////////////////////// +// +// Graphics .H file for .CK5 +// not IGRAB-ed :) +// +////////////////////////////////////// + +// +// Lump creation macros +// + +#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1, +#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1, + +// +// Amount of each data item +// + +//common numbers: +#define NUMCHUNKS NUMGRCHUNKS +#define NUMFONT 2 +#define NUMFONTM 0 +#define NUMPICM 3 +#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH! +#define NUMTILE8M 36 // BUG: only 20 tiles exist in EGAGRAPH! +#define NUMTILE32 0 +#define NUMTILE32M 0 + +//episode-specific numbers: +#define NUMPICS 94 +#define NUMSPRITES 346 +#define NUMTILE16 1512 +#define NUMTILE16M 2952 +#define NUMEXTERNS 15 + +// +// File offsets for data items +// +#define STRUCTPIC 0 +#define STRUCTPICM 1 +#define STRUCTSPRITE 2 + +#define STARTFONT 3 +#define STARTFONTM (STARTFONT+NUMFONT) +#define STARTPICS (STARTFONTM+NUMFONTM) +#define STARTPICM (STARTPICS+NUMPICS) +#define STARTSPRITES (STARTPICM+NUMPICM) +#define STARTTILE8 (STARTSPRITES+NUMSPRITES) +#define STARTTILE8M (STARTTILE8+1) +#define STARTTILE16 (STARTTILE8M+1) +#define STARTTILE16M (STARTTILE16+NUMTILE16) +#define STARTTILE32 (STARTTILE16M+NUMTILE16M) +#define STARTTILE32M (STARTTILE32+NUMTILE32) +#define STARTEXTERNS (STARTTILE32M+NUMTILE32M) + +typedef enum { + // Lump Start + + LASTFONT=STARTPICS-1, + + PADDINGPIC, // 5 (compensate for the missing Star Wars font to give the other pics the correct chunk numbers) + + START_LUMP(HELP_LUMP_START, __HELPSTART) + H_HELPPIC, // 6 + H_LARROWPIC, // 7 + H_RARROWPIC, // 8 + H_ESCPIC, // 9 + H_ENTERPIC, // 10 + H_BOTTOMINSTRPIC, // 11 + H_GUMPIC, // 12 + H_MARSHMALLOWPIC, // 13 + H_CHOCMILKPIC, // 14 + H_TARTSTIXPIC, // 15 + H_STOOPIESPIC, // 16 + H_SUGARPIC, // 17 + H_VITALINPIC, // 18 + H_STUNNERPIC, // 19 + H_GEMPIC, // 20 + H_KEGPIC, // 21 + H_ENDOFTEXTPIC, // 22 + H_HELPMENUPIC, // 23 + H_HANDPIC, // 24 + H_ARROWSENTERESCPIC, // 25 + H_FLASHARROW1PIC, // 26 + H_FLASHARROW2PIC, // 27 + H_TOPWINDOWPIC, // 28 + H_LEFTWINDOWPIC, // 29 + H_RIGHTWINDOWPIC, // 30 + H_BOTTOMINFOPIC, // 31 + H_BOTTOMWINDOWPIC, // 32 + H_BARPIC, // 33 + H_SPARKYPIC, // 34 + H_AMPTONPIC, // 35 + H_SLICESTARPIC, // 36 + H_VOLTEFACEPIC, // 37 + H_ROBOREDPIC, // 38 + H_SHELLEYPIC, // 39 + H_SPIROGRIPPIC, // 40 + H_MINEPIC, // 41 + H_SPINDREDPIC, // 42 + H_SHIKADIPIC, // 43 + H_SPHEREFULPIC, // 44 + H_PETPIC, // 45 + H_MASTERPIC, // 46 + H_IDLOGOPIC, // 47 + H_STORY1PIC, // 48 + H_STORY2PIC, // 49 + H_STORY3PIC, // 50 + H_STORY4PIC, // 51 + H_VISAPIC, // 52 + H_MCPIC, // 53 + H_KEENTHUMBSUPPIC, // 54 + H_END1PIC, // 55 + H_END2PIC, // 56 + H_END3PIC, // 57 + H_END4PIC, // 58 + H_END5PIC, // 59 + H_END6PIC, // 60 + H_END7PIC, // 61 + H_END8PIC, // 62 + H_CONGRATSPIC, // 63 + H_KEENFEEDSPIC, // 64 + H_DOORCARDPIC, // 65 + H_KEEN6PIC, // 66 + END_LUMP(HELP_LUMP_END, __HELPEND) + + START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART) + CP_MAINMENUPIC, // 67 + CP_NEWGAMEMENUPIC, // 68 + CP_LOADMENUPIC, // 69 + CP_SAVEMENUPIC, // 70 + CP_CONFIGMENUPIC, // 71 + CP_SOUNDMENUPIC, // 72 + CP_MUSICMENUPIC, // 73 + CP_KEYBOARDMENUPIC, // 74 + CP_KEYMOVEMENTPIC, // 75 + CP_KEYBUTTONPIC, // 76 + CP_JOYSTICKMENUPIC, // 77 + CP_OPTIONSMENUPIC, // 78 + CP_PADDLEWARPIC, // 79 + CP_QUITPIC, // 80 + CP_JOYSTICKPIC, // 81 + CP_MENUSCREENPIC, // 82 + END_LUMP(CONTROLS_LUMP_END, __COLTROLSEND) + + START_LUMP(_LUMP_START, __START) + IDSOFTPIC, // 83 + PROGTEAMPIC, // 84 + ARTISTPIC, // 85 + DIRECTORPIC, // 86 + SW_BACKGROUNDPIC, // 87 + TITLEPICPIC, // 88 + MILKYWAYPIC, // 89 + END_LUMP(_LUMP_END, __END) + + START_LUMP(KEENTALK_LUMP_START, __KEENTALKSTART) + KEENTALK1PIC, // 90 + KEENTALK2PIC, // 91 + END_LUMP(KEENTALK_LUMP_END, __KEENTALKEND) + + START_LUMP(LOADING_LUMP_START, __LOADINGSTART) + KEENCOUNT1PIC, // 92 + KEENCOUNT2PIC, // 93 + KEENCOUNT3PIC, // 94 + KEENCOUNT4PIC, // 95 + KEENCOUNT5PIC, // 96 + KEENCOUNT6PIC, // 97 + END_LUMP(LOADING_LUMP_END, __LOADINGEND) + + GAMEOVERPIC, // 98 + + CP_MENUMASKPICM, // 99 + CORDPICM, // 100 + METALPOLEPICM, // 101 + + // + // SPRITES + // + + START_LUMP(PADDLE_LUMP_START, __PADDLESTART) + PADDLESPR, // 102 + BALLSPR, // 103 + BALL1PIXELTOTHERIGHTSPR, // 104 + BALL2PIXELSTOTHERIGHTSPR, // 105 + BALL3PIXELSTOTHERIGHTSPR, // 106 + END_LUMP(PADDLE_LUMP_END, __PADDLEEND) + + DEMOPLAQUESPR, // 107 + + START_LUMP(KEEN_LUMP_START, __KEENSTART) + KEENSTANDRSPR, // 108 + KEENRUNR1SPR, // 109 + KEENRUNR2SPR, // 110 + KEENRUNR3SPR, // 111 + KEENRUNR4SPR, // 112 + KEENJUMPR1SPR, // 113 + KEENJUMPR2SPR, // 114 + KEENJUMPR3SPR, // 115 + KEENSTANDLSPR, // 116 + KEENRUNL1SPR, // 117 + KEENRUNL2SPR, // 118 + KEENRUNL3SPR, // 119 + KEENRUNL4SPR, // 120 + KEENJUMPL1SPR, // 121 + KEENJUMPL2SPR, // 122 + KEENJUMPL3SPR, // 123 + KEENLOOKUSPR, // 124 + KEENWAITR1SPR, // 125 + KEENWAITR2SPR, // 126 + KEENWAITR3SPR, // 127 + KEENSITREAD1SPR, // 128 + KEENSITREAD2SPR, // 129 + KEENSITREAD3SPR, // 130 + KEENSITREAD4SPR, // 131 + KEENREAD1SPR, // 132 + KEENREAD2SPR, // 133 + KEENREAD3SPR, // 134 + KEENSTOPREAD1SPR, // 135 + KEENSTOPREAD2SPR, // 136 + KEENLOOKD1SPR, // 137 + KEENLOOKD2SPR, // 138 + KEENONPLATSPR, // 139 + KEENDIE1SPR, // 140 + KEENDIE2SPR, // 141 + KEENSTUNSPR, // 142 + STUNSTARS1SPR, // 143 + STUNSTARS2SPR, // 144 + STUNSTARS3SPR, // 145 + KEENSHOOTLSPR, // 146 + KEENJLSHOOTLSPR, // 147 + KEENJSHOOTDSPR, // 148 + KEENJSHOOTUSPR, // 149 + KEENSHOOTUSPR, // 150 + KEENSHOOTRSPR, // 151 + KEENJRSHOOTRSPR, // 152 + STUN1SPR, // 153 + STUN2SPR, // 154 + STUN3SPR, // 155 + STUN4SPR, // 156 + STUNHIT1SPR, // 157 + STUNHIT2SPR, // 158 + KEENSHINNYR1SPR, // 159 + KEENSHINNYR2SPR, // 160 + KEENSHINNYR3SPR, // 161 + KEENSLIDED1SPR, // 162 + KEENSLIDED2SPR, // 163 + KEENSLIDED3SPR, // 164 + KEENSLIDED4SPR, // 165 + KEENSHINNYL1SPR, // 166 + KEENSHINNYL2SPR, // 167 + KEENSHINNYL3SPR, // 168 + KEENPLSHOOTUSPR, // 169 + KEENPRSHOOTUSPR, // 170 + KEENPRSHOOTDSPR, // 171 + KEENPLSHOOTDSPR, // 172 + KEENPSHOOTLSPR, // 173 + KEENPSHOOTRSPR, // 174 + KEENENTER1SPR, // 175 + KEENENTER2SPR, // 176 + KEENENTER3SPR, // 177 + KEENENTER4SPR, // 178 + KEENENTER5SPR, // 179 + KEENHANGLSPR, // 180 + KEENHANGRSPR, // 181 + KEENCLIMBEDGEL1SPR, // 182 + KEENCLIMBEDGEL2SPR, // 183 + KEENCLIMBEDGEL3SPR, // 184 + KEENCLIMBEDGEL4SPR, // 185 + KEENCLIMBEDGER1SPR, // 186 + KEENCLIMBEDGER2SPR, // 187 + KEENCLIMBEDGER3SPR, // 188 + KEENCLIMBEDGER4SPR, // 189 + KEENPOGOR1SPR, // 190 + KEENPOGOR2SPR, // 191 + KEENPOGOL1SPR, // 192 + KEENPOGOL2SPR, // 193 + BONUS100UPSPR, // 194 + BONUS100SPR, // 195 + BONUS200SPR, // 196 + BONUS500SPR, // 197 + BONUS1000SPR, // 198 + BONUS2000SPR, // 199 + BONUS5000SPR, // 200 + BONUS1UPSPR, // 201 + BONUSCLIPSPR, // 202 + VIVAPOOF1SPR, // 203 + VIVAPOOF2SPR, // 204 + VIVAPOOF3SPR, // 205 + VIVAPOOF4SPR, // 206 + END_LUMP(KEEN_LUMP_END, __KEENEND) + + START_LUMP(KEYCARD_LUMP_START, __KEYCARDSTART) + DOORCARD1SPR, // 207 + DOORCARD2SPR, // 208 + BONUSCARDSPR, // 209 + END_LUMP(KEYCARD_LUMP_END, __KEYCARDEND) + + START_LUMP(SUGAR1_LUMP_START, __SUGAR1START) + SUGAR1ASPR, // 210 + SUGAR1BSPR, // 211 + END_LUMP(SUGAR1_LUMP_END, __SUGAR1END) + + START_LUMP(SUGAR2_LUMP_START, __SUGAR2START) + SUGAR2ASPR, // 212 + SUGAR2BSPR, // 213 + END_LUMP(SUGAR2_LUMP_END, __SUGAR2END) + + START_LUMP(SUGAR3_LUMP_START, __SUGAR3START) + SUGAR3ASPR, // 214 + SUGAR3BSPR, // 215 + END_LUMP(SUGAR3_LUMP_END, __SUGAR3END) + + START_LUMP(SUGAR4_LUMP_START, __SUGAR4START) + SUGAR4ASPR, // 216 + SUGAR4BSPR, // 217 + END_LUMP(SUGAR4_LUMP_END, __SUGAR4END) + + START_LUMP(SUGAR5_LUMP_START, __SUGAR5START) + SUGAR5ASPR, // 218 + SUGAR5BSPR, // 219 + END_LUMP(SUGAR5_LUMP_END, __SUGAR5END) + + START_LUMP(SUGAR6_LUMP_START, __SUGAR6START) + SUGAR6ASPR, // 220 + SUGAR6BSPR, // 221 + END_LUMP(SUGAR6_LUMP_END, __SUGAR6END) + + START_LUMP(ONEUP_LUMP_START, __ONEUPSTART) + ONEUPASPR, // 222 + ONEUPBSPR, // 223 + END_LUMP(ONEUP_LUMP_END, __ONEUPEND) + + START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART) + REDGEM1SPR, // 224 + REDGEM2SPR, // 225 + YELLOWGEM1SPR, // 226 + YELLOWGEM2SPR, // 227 + BLUEGEM1SPR, // 228 + BLUEGEM2SPR, // 229 + GREENGEM1SPR, // 230 + GREENGEM2SPR, // 231 + BONUSGEMSPR, // 232 + END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND) + + START_LUMP(AMMO_LUMP_START, __AMMOSTART) + STUNCLIP1SPR, // 233 + STUNCLIP2SPR, // 234 + END_LUMP(AMMO_LUMP_END, __AMMOEND) + + SCOREBOXSPR, // 235 + + START_LUMP(LASER_LUMP_START, __LASERSTART) + LASER1SPR, // 236 + LASER2SPR, // 237 + LASER3SPR, // 238 + LASER4SPR, // 239 + LASERHIT1SPR, // 240 + LASERHIT2SPR, // 241 + END_LUMP(LASER_LUMP_END, __LASEREND) + + START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART) + WORLDKEENL1SPR, // 242 + WORLDKEENL2SPR, // 243 + WORLDKEENL3SPR, // 244 + WORLDKEENR1SPR, // 245 + WORLDKEENR2SPR, // 246 + WORLDKEENR3SPR, // 247 + WORLDKEENU1SPR, // 248 + WORLDKEENU2SPR, // 249 + WORLDKEENU3SPR, // 250 + WORLDKEEND1SPR, // 251 + WORLDKEEND2SPR, // 252 + WORLDKEEND3SPR, // 253 + WORLDKEENDR1SPR, // 254 + WORLDKEENDR2SPR, // 255 + WORLDKEENDR3SPR, // 256 + WORLDKEENDL1SPR, // 257 + WORLDKEENDL2SPR, // 258 + WORLDKEENDL3SPR, // 259 + WORLDKEENUL1SPR, // 260 + WORLDKEENUL2SPR, // 261 + WORLDKEENUL3SPR, // 262 + WORLDKEENUR1SPR, // 263 + WORLDKEENUR2SPR, // 264 + WORLDKEENUR3SPR, // 265 + WORLDKEENWAVE1SPR, // 266 + WORLDKEENWAVE2SPR, // 267 + FLAGFLIP1SPR, // 268 + FLAGFLIP2SPR, // 269 + FLAGFLIP3SPR, // 270 + FLAGFLIP4SPR, // 271 + FLAGFLIP5SPR, // 272 + FLAGFALL1SPR, // 273 + FLAGFALL2SPR, // 274 + FLAGFLAP1SPR, // 275 + FLAGFLAP2SPR, // 276 + FLAGFLAP3SPR, // 277 + FLAGFLAP4SPR, // 278 + SHOOTINGSTAR1SPR, // 279 + SHOOTINGSTAR2SPR, // 280 + WORLDTELSPARK1SPR, // 281 + WORLDTELSPARK2SPR, // 282 + END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND) + + START_LUMP(FUSE_LUMP_START, __FUSESTART) + FUSEFLASH1SPR, // 283 + FUSEFLASH2SPR, // 284 + FUSEFLASH3SPR, // 285 + END_LUMP(FUSE_LUMP_END, __FUSEEND) + + START_LUMP(STAREXPLODE_LUMP_START, __SMALLSPARKSTART) + STAREXPLODE1SPR, // 286 + STAREXPLODE2SPR, // 287 + STAREXPLODE3SPR, // 288 + STAREXPLODE4SPR, // 289 + END_LUMP(STAREXPLODE_LUMP_END, __SMALLSPARKEND) + + START_LUMP(TELEPORT_LUMP_START, __TELEPORTSTART) + TELEPORTSPARK1SPR, // 290 + TELEPORTSPARK2SPR, // 291 + TELEPORTZAP1SPR, // 292 + TELEPORTZAP2SPR, // 293 + END_LUMP(TELEPORT_LUMP_END, __TELEPORTEND) + + START_LUMP(SCOTTIE_LUMP_START, __KORATHSTART) + SCOTTIEWALKL1SPR, // 294 + SCOTTIEWALKL2SPR, // 295 + SCOTTIEWALKL3SPR, // 296 + SCOTTIEWALKL4SPR, // 297 + SCOTTIEWALKR1SPR, // 298 + SCOTTIEWALKR2SPR, // 299 + SCOTTIEWALKR3SPR, // 300 + SCOTTIEWALKR4SPR, // 301 + SCOTTIEFACESPR, // 302 + SCOTTIESTUNSPR, // 303 + END_LUMP(SCOTTIE_LUMP_END, __KORATHEND) + + START_LUMP(MASTER_LUMP_START, __MASTERSTART) + MASTER1SPR, // 304 + MASTER2SPR, // 305 + MASTER3SPR, // 306 + MASTER4SPR, // 307 + MASTERTELEPORT1SPR, // 308 + MASTERTELEPORT2SPR, // 309 + SHIKMASTERCASTRSPR, // 310 + SHIKMASTERCASTLSPR, // 311 + MASTERFLOORSPARK1SPR, // 312 + MASTERFLOORSPARK2SPR, // 313 + MASTERFLOORSPARK3SPR, // 314 + MASTERFLOORSPARK4SPR, // 315 + MASTERSHOT1SPR, // 316 + MASTERSHOT2SPR, // 317 + MASTERSHOT3SPR, // 318 + MASTERSHOT4SPR, // 319 + END_LUMP(MASTER_LUMP_END, __MASTEREND) + + START_LUMP(SHIKADI_LUMP_START, __SHIKADISTART) + SHIKADI1SPR, // 320 + SHIKADI2SPR, // 321 + SHIKADI3SPR, // 322 + SHIKADI4SPR, // 323 + SHIKADIGRABRSPR, // 324 + SHIKADIGRABLSPR, // 325 + SHIKADIPOLESPARK1SPR, // 326 + SHIKADIPOLESPARK2SPR, // 327 + SHIKADIWALKR1SPR, // 328 + SHIKADIWALKR2SPR, // 329 + SHIKADIWALKR3SPR, // 330 + SHIKADIWALKR4SPR, // 331 + SHIKADIWALKL1SPR, // 332 + SHIKADIWALKL2SPR, // 333 + SHIKADIWALKL3SPR, // 334 + SHIKADIWALKL4SPR, // 335 + SHIKADISTUNSPR, // 336 + END_LUMP(SHIKADI_LUMP_END, __SHIKADIEND) + + START_LUMP(SHOCKSHUND_LUMP_START, __SHOCKSHUNDSTART) + PETSIT1SPR, // 337 + PETSIT2SPR, // 338 + PETRUNR1SPR, // 339 + PETRUNR2SPR, // 340 + PETRUNR3SPR, // 341 + PETRUNR4SPR, // 342 + PETRUNL1SPR, // 343 + PETRUNL2SPR, // 344 + PETRUNL3SPR, // 345 + PETRUNL4SPR, // 346 + PETJUMPLSPR, // 347 + PETJUMPRSPR, // 348 + PETBARKR1SPR, // 349 + PETBARKR2SPR, // 350 + PETBARKL1SPR, // 351 + PETBARKL2SPR, // 352 + PETSTUNSPR, // 353 + PETSPARK1SPR, // 354 + PETSPARK2SPR, // 355 + PETSPARKHIT1SPR, // 356 + PETSPARKHIT2SPR, // 357 + END_LUMP(SHOCKSHUND_LUMP_END, __SHOCKSHUNDEND) + + START_LUMP(SPHEREFUL_LUMP_START, __SPHEREFULSTART) + SPHEREFUL1SPR, // 358 + SPHEREFUL2SPR, // 359 + SPHEREFUL3SPR, // 360 + SPHEREFUL4SPR, // 361 + SPHEREGUARD1SPR, // 362 + SPHEREGUARD2SPR, // 363 + SPHEREGUARD3SPR, // 364 + SPHEREGUARD4SPR, // 365 + END_LUMP(SPHEREFUL_LUMP_END, __SPHEREFULEND) + + START_LUMP(SPARKY_LUMP_START, __SPARKYSTART) + SPARKYWALKL1SPR, // 366 + SPARKYWALKL2SPR, // 367 + SPARKYWALKL3SPR, // 368 + SPARKYWALKL4SPR, // 369 + SPARKYTURN1SPR, // 370 + SPARKYTURN2SPR, // 371 + SPARKYTURN3SPR, // 372 + SPARKYWALKR1SPR, // 373 + SPARKYWALKR2SPR, // 374 + SPARKYWALKR3SPR, // 375 + SPARKYWALKR4SPR, // 376 + SPARKYSTUNSPR, // 377 + END_LUMP(SPARKY_LUMP_END, __SPARKYEND) + + START_LUMP(MINE_LUMP_START, __MINESTART) + SHIKADIMINESPR, // 378 + SHIKADIMINEEYESPR, // 379 + SHIKADIMINEPULSE1SPR, // 380 + SHIKADIMINEPULSE2SPR, // 381 + SHIKADIMINEBOOM1SPR, // 382 + SHIKADIMINEBOOM2SPR, // 383 + SHIKADIMINEPIECESPR, // 384 + END_LUMP(MINE_LUMP_END, __MINEEND) + + START_LUMP(SLICESTAR_LUMP_START, __SLICESTARSTART) + SLICESTARSPR, // 385 + SLICESTARBOOMSPR, // 386 + END_LUMP(SLICESTAR_LUMP_END, __SLICASTAREND) + + START_LUMP(ROBORED_LUMP_START, __ROBOREDSTART) + ROBOREDRSPR, // 387 + ROBOREDLSPR, // 388 + ROBOSHOT1SPR, // 389 + ROBOSHOT2SPR, // 390 + ROBOSHOTHIT1SPR, // 391 + ROBOSHOTHIT2SPR, // 392 + END_LUMP(ROBORED_LUMP_END, __ROBOREDEND) + + START_LUMP(SPIRO_LUMP_START, __SPIROSTART) + SPIROSITDSPR, // 393 + SPIROSITLSPR, // 394 + SPIROSITUSPR, // 395 + SPIROSITRSPR, // 396 + SPIROSPINULSPR, // 397 + SPIROSPINURSPR, // 398 + SPIROSPINDRSPR, // 399 + SPIROSPINDLSPR, // 400 + SPIROSPINDSPR, // 401 + SPIROSPINLSPR, // 402 + SPIROSPINUSPR, // 403 + SPIROSPINRSPR, // 404 + END_LUMP(SPIRO_LUMP_END, __SPIROEND) + + START_LUMP(AMPTON_LUMP_START, __AMPTONSTART) + AMPTONWALKR1SPR, // 405 + AMPTONWALKR2SPR, // 406 + AMPTONWALKR3SPR, // 407 + AMPTONWALKR4SPR, // 408 + AMPTONFACESPR, // 409 + AMPTONGRAB1SPR, // 410 + AMPTONGRAB2SPR, // 411 + AMTONWALKL1SPR, // 412 + AMTONWALKL2SPR, // 413 + AMTONWALKL3SPR, // 414 + AMTONWALKL4SPR, // 415 + AMPTONSTUNSPR, // 416 + END_LUMP(AMPTON_LUMP_END, __AMPTONEND) + + START_LUMP(VOLTE_LUMP_START, __VOLTESTART) + VOLTEFACE1SPR, // 417 + VOLTEFACE2SPR, // 418 + VOLTEFACE3SPR, // 419 + VOLTEFACE4SPR, // 420 + VOLTEFACESTUNSPR, // 421 + END_LUMP(VOLTE_LUMP_END, __VOLTEEND) + + START_LUMP(SLOTPLAT_LUMP_START, __PINKPLATSTART) + SLOTPLAT1SPR, // 422 + SLOTPLAT2SPR, // 423 + END_LUMP(SLOTPLAT_LUMP_END, __PINKPLATEND) + + START_LUMP(SPINDRED_LUMP_START, __SPINDREDSTART) + SPINDRED1SPR, // 424 + SPINDRED2SPR, // 425 + SPINDRED3SPR, // 426 + SPINDRED4SPR, // 427 + END_LUMP(SPINDRED_LUMP_END, __SPINDREDEND) + + START_LUMP(SHELLEY_LUMP_START, __SHELLEYSTART) + SHELLEYR1SPR, // 428 + SHELLEYR2SPR, // 429 + SHELLEYR3SPR, // 430 + SHELLEYR4SPR, // 431 + SHELLEYL1SPR, // 432 + SHELLEYL2SPR, // 433 + SHELLEYL3SPR, // 434 + SHELLEYL4SPR, // 435 + SHELLEYJUMPRSPR, // 436 + SHELLEYFALLRSPR, // 437 + SHELLEYJUMPLSPR, // 438 + SHELLEYFALLLSPR, // 439 + SHELLEYBOOM1SPR, // 440 + SHELLEYBOOM2SPR, // 441 + SHELLEYBOOM3SPR, // 442 + SHELLEYBOOM4SPR, // 443 + SHELLEYPIECE1SPR, // 444 + SHELLEYPIECE2SPR, // 445 + END_LUMP(SHELLEY_LUMP_END, __SHELLEYEND) + + START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART) + PLATFORMSPR, // 446 + END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND) + + START_LUMP(MINIPLAT_LUMP_START, __MINIPLATSTART) + MINIPLATSPR, // 447 + END_LUMP(MINIPLAT_LUMP_END, __MINIPLATEND) + + + // + // TILES (these don't need names) + // + + LASTTILE=STARTEXTERNS-1, + + // + // EXTERNS + // + + //texts + T_HELPART, // 4914 + T_CONTRART, // 4915 + T_STORYART, // 4916 + T_IDART, // 4917 + T_ENDART, // 4918 + T_ENDART2, // 4919 + T_ORDERART, // 4920 + + ORDERSCREEN, // 4921 + OUTOFMEM, // 4922 + GALAXY, // 4923 + + //demos + DEMO0, // 4924 + DEMO1, // 4925 + DEMO2, // 4926 + DEMO3, // 4927 + DEMO4, // 4928 + + NUMGRCHUNKS +} graphicnums; + +#undef START_LUMP +#undef END_LUMP + +#endif //__GFX_H__ \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN5C/ID_ASM.EQU b/16/keen456/KEEN4-6/KEEN5C/ID_ASM.EQU new file mode 100755 index 00000000..b45d7cac --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5C/ID_ASM.EQU @@ -0,0 +1,115 @@ +; +; Equates for all .ASM files +; + +;---------------------------------------------------------------------------- + +INCLUDE "GFXC_CK5.EQU" + +;---------------------------------------------------------------------------- + +CGAGR = 1 +EGAGR = 2 +VGAGR = 3 + +GRMODE = CGAGR +PROFILE = 0 ; 1=keep stats on tile drawing + +SC_INDEX = 03C4h +SC_RESET = 0 +SC_CLOCK = 1 +SC_MAPMASK = 2 +SC_CHARMAP = 3 +SC_MEMMODE = 4 + +CRTC_INDEX = 03D4h +CRTC_H_TOTAL = 0 +CRTC_H_DISPEND = 1 +CRTC_H_BLANK = 2 +CRTC_H_ENDBLANK = 3 +CRTC_H_RETRACE = 4 +CRTC_H_ENDRETRACE = 5 +CRTC_V_TOTAL = 6 +CRTC_OVERFLOW = 7 +CRTC_ROWSCAN = 8 +CRTC_MAXSCANLINE = 9 +CRTC_CURSORSTART = 10 +CRTC_CURSOREND = 11 +CRTC_STARTHIGH = 12 +CRTC_STARTLOW = 13 +CRTC_CURSORHIGH = 14 +CRTC_CURSORLOW = 15 +CRTC_V_RETRACE = 16 +CRTC_V_ENDRETRACE = 17 +CRTC_V_DISPEND = 18 +CRTC_OFFSET = 19 +CRTC_UNDERLINE = 20 +CRTC_V_BLANK = 21 +CRTC_V_ENDBLANK = 22 +CRTC_MODE = 23 +CRTC_LINECOMPARE = 24 + + +GC_INDEX = 03CEh +GC_SETRESET = 0 +GC_ENABLESETRESET = 1 +GC_COLORCOMPARE = 2 +GC_DATAROTATE = 3 +GC_READMAP = 4 +GC_MODE = 5 +GC_MISCELLANEOUS = 6 +GC_COLORDONTCARE = 7 +GC_BITMASK = 8 + +ATR_INDEX = 03c0h +ATR_MODE = 16 +ATR_OVERSCAN = 17 +ATR_COLORPLANEENABLE = 18 +ATR_PELPAN = 19 +ATR_COLORSELECT = 20 + +STATUS_REGISTER_1 = 03dah + + +MACRO WORDOUT + out dx,ax +ENDM + +if 0 + +MACRO WORDOUT + out dx,al + inc dx + xchg al,ah + out dx,al + dec dx + xchg al,ah +ENDM + +endif + +UPDATEWIDE = 22 +UPDATEHIGH = 14 + +; +; tile info offsets from segment tinf +; + +ANIM = 402 +SPEED = (ANIM+NUMTILE16) + +NORTHWALL = (SPEED+NUMTILE16) +EASTWALL = (NORTHWALL+NUMTILE16M) +SOUTHWALL = (EASTWALL+NUMTILE16M) +WESTWALL = (SOUTHWALL+NUMTILE16M) +MANIM = (WESTWALL+NUMTILE16M) +INTILE = (MANIM+NUMTILE16M) +MSPEED = (INTILE+NUMTILE16M) + + +IFE GRMODE-EGAGR +SCREENWIDTH = 64 +ENDIF +IFE GRMODE-CGAGR +SCREENWIDTH = 128 +ENDIF diff --git a/16/keen456/KEEN4-6/KEEN5C/ID_HEADS.H b/16/keen456/KEEN4-6/KEEN5C/ID_HEADS.H new file mode 100755 index 00000000..210a4110 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN5C/ID_HEADS.H @@ -0,0 +1,109 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_GLOB.H + + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#define __ID_GLOB__ + +//-------------------------------------------------------------------------- + +#define KEEN +#define KEEN5 + +#define EXTENSION "CK5" + +extern char far introscn; + +#include "GFXC_CK5.H" +#include "AUDIOCK5.H" + +//-------------------------------------------------------------------------- + +#define TEXTGR 0 +#define CGAGR 1 +#define EGAGR 2 +#define VGAGR 3 + +#define GRMODE CGAGR + +#if GRMODE == EGAGR +#define GREXT "EGA" +#endif +#if GRMODE == CGAGR +#define GREXT "CGA" +#endif + +//#define PROFILE + +// +// ID Engine +// Types.h - Generic types, #defines, etc. +// v1.0d1 +// + +#ifndef __TYPES__ +#define __TYPES__ + +typedef enum {false,true} boolean; +typedef unsigned char byte; +typedef unsigned int word; +typedef unsigned long longword; +typedef byte * Ptr; + +typedef struct + { + int x,y; + } Point; +typedef struct + { + Point ul,lr; + } Rect; + +#define nil ((void *)0) + +#endif + +#include "ID_MM.H" +#include "ID_CA.H" +#include "ID_VW.H" +#include "ID_RF.H" +#include "ID_IN.H" +#include "ID_SD.H" +#include "ID_US.H" + + +void Quit (char *error); // defined in user program + diff --git a/16/keen456/KEEN4-6/KEEN6/AUDIOCK6.H b/16/keen456/KEEN4-6/KEEN6/AUDIOCK6.H new file mode 100755 index 00000000..d3407ceb --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/AUDIOCK6.H @@ -0,0 +1,136 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __AUDIO_H__ +#define __AUDIO_H__ + +//#include "VERSION.H" + +///////////////////////////////////////////////// +// +// MUSE Header for .CK6 +// +///////////////////////////////////////////////// + +#define NUMSOUNDS LASTSOUND +#define NUMSNDCHUNKS ((3*LASTSOUND)+LASTMUSIC) + +// +// Sound names & indexes +// +typedef enum { + SND_WORLDWALK1, // 0 + SND_WORLDWALK2, // 1 + SND_JUMP, // 2 + SND_LAND, // 3 + SND_KEENFIRE, // 4 + SND_DROPKEY, // 5 + SND_BLORBBOUNCE, // 6 + SND_POGOBOUNCE, // 7 + SND_GETPOINTS, // 8 + SND_GETAMMO, // 9 + SND_GETWATER, // 10 + SND_11, // 11 + SND_ENTERLEVEL, // 12 + SND_LEVELDONE, // 13 + SND_NOWAY, // 14 + SND_HELMETHIT, // 15 + SND_16, // 16 + SND_EXTRAKEEN, // 17 + SND_OPENDOOR, // 18 + SND_GETKEY, // 19 + SND_PLUMMET, // 20 + SND_USESWITCH, // 21 + SND_BIPSQUISH, // 22 + SND_KEENDEAD, // 23 + SND_BIPSHIPEXPLODE, // 24 + SND_SHOTEXPLODE, // 25 + SND_BOBBAJUMP, // 26 + SND_BOBBALAND, // 27 + SND_28, // 28 + SND_ENEMYSHOT, // 29 + SND_ENEMYSHOTEXPLODE, // 30 + SND_BOBBASHOT, // 31 + SND_32, // 32 + SND_GRABSATELLITE, // 33 + SND_SHOWSTATUS, // 34 + SND_HIDESTATUS, // 35 + SND_GIKJUMP, // 36 + SND_GIKLAND, // 37 + SND_ORBATRIXBOUNCE, // 38 + SND_39, // 39 + SND_40, // 40 + SND_TELEPORT, // 41 + SND_SHOTBOUNCE, // 42 + SND_FLAGSPIN, // 43 + SND_FLAGLAND, // 44 + SND_QUESTITEM, // 45 + KEENPADDLESND, // 46 + BALLBOUNCESND, // 47 + COMPPADDLESND, // 48 + COMPSCOREDSND, // 49 + KEENSCOREDSND, // 50 + SND_CEILICKATTACK, // 51 + SND_SMASH, // 52 + SND_THROWROPE, // 53 + SND_ROCKETFLY, // 54 + SND_CEILICKLAUGH, // 55 + SND_ROCKETSTART, // 56 + SND_GRABBITER, // 57 + SND_STOMP, // 58 + SND_FLAME, // 59 + LASTSOUND +} soundnames; + +#if LASTSOUND != 60 +#error bad sound enum! +#endif + +#define NOWAYSND SND_NOWAY + +// +// Base offsets +// +#define STARTPCSOUNDS 0 +#define STARTADLIBSOUNDS (STARTPCSOUNDS+NUMSOUNDS) +#define STARTDIGISOUNDS (STARTADLIBSOUNDS+NUMSOUNDS) +#define STARTMUSIC (STARTDIGISOUNDS+NUMSOUNDS) + +// +// Music names & indexes +// +typedef enum { + WONDER_MUS, + BRERTAR_MUS, + TOFUTURE_MUS, + FASTER_MUS, + SPACFUNK_MUS, + ALIENATE_MUS, + OMINOUS_MUS, + METAL_MUS, + MAMSNAKE_MUS, + LASTMUSIC +} musicnames; + +///////////////////////////////////////////////// +// +// Thanks for playing with MUSE! +// +///////////////////////////////////////////////// + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN6/GFXE_CK6.EQU b/16/keen456/KEEN4-6/KEEN6/GFXE_CK6.EQU new file mode 100755 index 00000000..d3b3d6dc --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/GFXE_CK6.EQU @@ -0,0 +1,55 @@ +;===================================== +; +; Graphics .EQU file for .CK6 +; not IGRAB-ed :) +; +;===================================== + +;INCLUDE "VERSION.EQU" + +; +; Amount of each data item +; +NUMFONT = 3 +NUMFONTM = 0 +NUMPICM = 3 +NUMTILE8 = 108 +NUMTILE8M = 36 +NUMTILE32 = 0 +NUMTILE32M = 0 + +; +; Amount of each item in episode 6 +; +NUMPICS = 37 +NUMSPRITES = 390 +NUMTILE16 = 2376 +NUMTILE16M = 2736 +NUMEXTERN = 11 + + +; +; File offsets for data items +; +STRUCTPIC = 0 +STRUCTPICM = 1 +STRUCTSPRITE = 2 + +STARTFONT = 3 +STARTFONTM = (STARTFONT+NUMFONT) +STARTPICS = (STARTFONTM+NUMFONTM) +STARTPICM = (STARTPICS+NUMPICS) +STARTSPRITES = (STARTPICM+NUMPICM) +STARTTILE8 = (STARTSPRITES+NUMSPRITES) +STARTTILE8M = (STARTTILE8+1) +STARTTILE16 = (STARTTILE8M+1) +STARTTILE16M = (STARTTILE16+NUMTILE16) +STARTTILE32 = (STARTTILE16M+NUMTILE16M) +STARTTILE32M = (STARTTILE32+NUMTILE32) +STARTEXTERN = (STARTTILE32M+NUMTILE32M) + +NUMCHUNKS = (STARTEXTERN+NUMEXTERN) + +; +; Thank you for using IGRAB! +; diff --git a/16/keen456/KEEN4-6/KEEN6/GFXE_CK6.H b/16/keen456/KEEN4-6/KEEN6/GFXE_CK6.H new file mode 100755 index 00000000..344690a3 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/GFXE_CK6.H @@ -0,0 +1,670 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __GFX_H__ +#define __GFX_H__ + +//#include "VERSION.H" + +////////////////////////////////////// +// +// Graphics .H file for .CK6 +// not IGRAB-ed :) +// +////////////////////////////////////// + +// +// Lump creation macros +// + +#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1, +#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1, + +// +// Amount of each data item +// + +//common numbers: +#define NUMCHUNKS NUMGRCHUNKS +#define NUMFONT 3 +#define NUMFONTM 0 +#define NUMPICM 3 +#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH! +#define NUMTILE8M 36 // BUG: only 12 tiles exist in EGAGRAPH! +#define NUMTILE32 0 +#define NUMTILE32M 0 + +//episode-specific numbers: +#define NUMPICS 37 +#define NUMSPRITES 390 +#define NUMTILE16 2376 +#define NUMTILE16M 2736 +#define NUMEXTERNS 10 + +// +// File offsets for data items +// +#define STRUCTPIC 0 +#define STRUCTPICM 1 +#define STRUCTSPRITE 2 + +#define STARTFONT 3 +#define STARTFONTM (STARTFONT+NUMFONT) +#define STARTPICS (STARTFONTM+NUMFONTM) +#define STARTPICM (STARTPICS+NUMPICS) +#define STARTSPRITES (STARTPICM+NUMPICM) +#define STARTTILE8 (STARTSPRITES+NUMSPRITES) +#define STARTTILE8M (STARTTILE8+1) +#define STARTTILE16 (STARTTILE8M+1) +#define STARTTILE16M (STARTTILE16+NUMTILE16) +#define STARTTILE32 (STARTTILE16M+NUMTILE16M) +#define STARTTILE32M (STARTTILE32+NUMTILE32) +#define STARTEXTERNS (STARTTILE32M+NUMTILE32M) + +typedef enum { + LASTFONT=STARTPICS-1, + + // + // PICS + // + + H_END1PIC, // 6 + H_END2PIC, // 7 + H_END3PIC, // 8 + H_END4PIC, // 9 + H_END5PIC, // 10 + + START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART) + CP_MAINMENUPIC, // 11 + CP_NEWGAMEMENUPIC, // 12 + CP_LOADMENUPIC, // 13 + CP_SAVEMENUPIC, // 14 + CP_CONFIGMENUPIC, // 15 + CP_SOUNDMENUPIC, // 16 + CP_MUSICMENUPIC, // 17 + CP_KEYBOARDMENUPIC, // 18 + CP_KEYMOVEMENTPIC, // 19 + CP_KEYBUTTONPIC, // 20 + CP_JOYSTICKMENUPIC, // 21 + CP_OPTIONSMENUPIC, // 22 + CP_PADDLEWARPIC, // 23 + CP_QUITPIC, // 24 + CP_JOYSTICKPIC, // 25 + CP_MENUSCREENPIC, // 26 + END_LUMP(CONTROLS_LUMP_END, __CONTROLSEND) + + H_FLASHARROW1PIC, // 27 + H_FLASHARROW2PIC, // 28 + IDSOFTPIC, // 29 + PROGTEAMPIC, // 30 + ARTISTPIC, // 31 + DIRECTORPIC, // 32 + SW_BACKGROUNDPIC, // 33 + TITLEPICPIC, // 34 + KEENTALK1PIC, // 35 + KEENTALK2PIC, // 36 + KEENCOUNT1PIC, // 37 + KEENCOUNT2PIC, // 38 + KEENCOUNT3PIC, // 39 + KEENCOUNT4PIC, // 40 + KEENCOUNT5PIC, // 41 + KEENCOUNT6PIC, // 42 + + // + // MASKED PICS + // + + CP_MENUMASKPICM, // 43 + CORDPICM, // 44 + METALPOLEPICM, // 45 + + // + // SPRITES + // + + START_LUMP(PADDLE_LUMP_START, __PADDLESTART) + PADDLESPR, // 46 + BALLSPR, // 47 + BALL1PIXELTOTHERIGHTSPR, // 48 + BALL2PIXELSTOTHERIGHTSPR, // 49 + BALL3PIXELSTOTHERIGHTSPR, // 50 + END_LUMP(PADDLE_LUMP_END, __PADDLEEND) + + DEMOPLAQUESPR, // 51 + + START_LUMP(KEEN_LUMP_START, __KEENSTART) + KEENSTANDRSPR, // 52 + KEENRUNR1SPR, // 53 + KEENRUNR2SPR, // 54 + KEENRUNR3SPR, // 55 + KEENRUNR4SPR, // 56 + KEENJUMPR1SPR, // 57 + KEENJUMPR2SPR, // 58 + KEENJUMPR3SPR, // 59 + KEENSTANDLSPR, // 60 + KEENRUNL1SPR, // 61 + KEENRUNL2SPR, // 62 + KEENRUNL3SPR, // 63 + KEENRUNL4SPR, // 64 + KEENJUMPL1SPR, // 65 + KEENJUMPL2SPR, // 66 + KEENJUMPL3SPR, // 67 + KEENLOOKUSPR, // 68 + KEENWAITR1SPR, // 69 + KEENWAITR2SPR, // 70 + KEENWAITR3SPR, // 71 + KEENSITREAD1SPR, // 72 + KEENSITREAD2SPR, // 73 + KEENSITREAD3SPR, // 74 + KEENSITREAD4SPR, // 75 + KEENREAD1SPR, // 76 + KEENREAD2SPR, // 77 + KEENREAD3SPR, // 78 + KEENSTOPREAD1SPR, // 79 + KEENSTOPREAD2SPR, // 80 + KEENLOOKD1SPR, // 81 + KEENLOOKD2SPR, // 82 + KEENDIE1SPR, // 83 + KEENDIE2SPR, // 84 + KEENSTUNSPR, // 85 + STUNSTARS1SPR, // 86 + STUNSTARS2SPR, // 87 + STUNSTARS3SPR, // 88 + KEENSHOOTLSPR, // 89 + KEENJLSHOOTLSPR, // 90 + KEENJSHOOTDSPR, // 91 + KEENJSHOOTUSPR, // 92 + KEENSHOOTUSPR, // 93 + KEENSHOOTRSPR, // 94 + KEENJRSHOOTRSPR, // 95 + STUN1SPR, // 96 + STUN2SPR, // 97 + STUN3SPR, // 98 + STUN4SPR, // 99 + STUNHIT1SPR, // 100 + STUNHIT2SPR, // 101 + KEENSHINNYR1SPR, // 102 + KEENSHINNYR2SPR, // 103 + KEENSHINNYR3SPR, // 104 + KEENSLIDED1SPR, // 105 + KEENSLIDED2SPR, // 106 + KEENSLIDED3SPR, // 107 + KEENSLIDED4SPR, // 108 + KEENSHINNYL1SPR, // 109 + KEENSHINNYL2SPR, // 110 + KEENSHINNYL3SPR, // 111 + KEENPLSHOOTUSPR, // 112 + KEENPRSHOOTUSPR, // 113 + KEENPRSHOOTDSPR, // 114 + KEENPLSHOOTDSPR, // 115 + KEENPSHOOTLSPR, // 116 + KEENPSHOOTRSPR, // 117 + KEENENTER1SPR, // 118 + KEENENTER2SPR, // 119 + KEENENTER3SPR, // 120 + KEENENTER4SPR, // 121 + KEENENTER5SPR, // 122 + KEENHANGLSPR, // 123 + KEENHANGRSPR, // 124 + KEENCLIMBEDGEL1SPR, // 125 + KEENCLIMBEDGEL2SPR, // 126 + KEENCLIMBEDGEL3SPR, // 127 + KEENCLIMBEDGEL4SPR, // 128 + KEENCLIMBEDGER1SPR, // 129 + KEENCLIMBEDGER2SPR, // 130 + KEENCLIMBEDGER3SPR, // 131 + KEENCLIMBEDGER4SPR, // 132 + KEENPOGOR1SPR, // 133 + KEENPOGOR2SPR, // 134 + KEENPOGOL1SPR, // 135 + KEENPOGOL2SPR, // 136 + BONUS100UPSPR, // 137 + BONUS100SPR, // 138 + BONUS200SPR, // 139 + BONUS500SPR, // 140 + BONUS1000SPR, // 141 + BONUS2000SPR, // 142 + BONUS5000SPR, // 143 + BONUS1UPSPR, // 144 + BONUSCLIPSPR, // 145 + VIVASPLASH1SPR, // 146 + VIVASPLASH2SPR, // 147 + VIVASPLASH3SPR, // 148 + VIVASPLASH4SPR, // 149 + END_LUMP(KEEN_LUMP_END, __KEENEND) + + START_LUMP(SUGAR1_LUMP_START, __SUGAR1START) + SUGAR1ASPR, // 150 + SUGAR1BSPR, // 151 + END_LUMP(SUGAR1_LUMP_END, __SUGAR1END) + + START_LUMP(SUGAR2_LUMP_START, __SUGAR2START) + SUGAR2ASPR, // 152 + SUGAR2BSPR, // 153 + END_LUMP(SUGAR2_LUMP_END, __SUGAR2END) + + START_LUMP(SUGAR3_LUMP_START, __SUGAR3START) + SUGAR3ASPR, // 154 + SUGAR3BSPR, // 155 + END_LUMP(SUGAR3_LUMP_END, __SUGAR3END) + + START_LUMP(SUGAR4_LUMP_START, __SUGAR4START) + SUGAR4ASPR, // 156 + SUGAR4BSPR, // 157 + END_LUMP(SUGAR4_LUMP_END, __SUGAR4END) + + START_LUMP(SUGAR5_LUMP_START, __SUGAR5START) + SUGAR5ASPR, // 158 + SUGAR5BSPR, // 159 + END_LUMP(SUGAR5_LUMP_END, __SUGAR5END) + + START_LUMP(SUGAR6_LUMP_START, __SUGAR6START) + SUGAR6ASPR, // 160 + SUGAR6BSPR, // 161 + END_LUMP(SUGAR6_LUMP_END, __SUGAR6END) + + START_LUMP(ONEUP_LUMP_START, __ONEUPSTART) + ONEUPASPR, // 162 + ONEUPBSPR, // 163 + END_LUMP(ONEUP_LUMP_END, __ONEUPEND) + + START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART) + REDGEM1SPR, // 164 + REDGEM2SPR, // 165 + YELLOWGEM1SPR, // 166 + YELLOWGEM2SPR, // 167 + BLUEGEM1SPR, // 168 + BLUEGEM2SPR, // 169 + GREENGEM1SPR, // 170 + GREENGEM2SPR, // 171 + BONUSGEMSPR, // 172 + END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND) + + START_LUMP(AMMO_LUMP_START, __AMMOSTART) + STUNCLIP1SPR, // 173 + STUNCLIP2SPR, // 174 + END_LUMP(AMMO_LUMP_END, __AMMOEND) + + SCOREBOXSPR, // 175 + + START_LUMP(LASER_LUMP_START, __LASERSTART) + LASER1SPR, // 176 + LASER2SPR, // 177 + LASER3SPR, // 178 + LASER4SPR, // 179 + LASERHIT1SPR, // 180 + LASERHIT2SPR, // 181 + END_LUMP(LASER_LUMP_END, __LASEREND) + + START_LUMP(SANDWICH_LUMP_START, __SANDWICHSTART) + SANDWICHSPR, // 182 + END_LUMP(SANDWICH_LUMP_END, __SANDWICHEND) + + START_LUMP(HOOK_LUMP_START, __ROPESTART) + HOOKSPR, // 183 + END_LUMP(HOOK_LUMP_END, __ROPEEND) + + START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART) + WORLDKEENL1SPR, // 184 + WORLDKEENL2SPR, // 185 + WORLDKEENL3SPR, // 186 + WORLDKEENR1SPR, // 187 + WORLDKEENR2SPR, // 188 + WORLDKEENR3SPR, // 189 + WORLDKEENU1SPR, // 190 + WORLDKEENU2SPR, // 191 + WORLDKEENU3SPR, // 192 + WORLDKEEND1SPR, // 193 + WORLDKEEND2SPR, // 194 + WORLDKEEND3SPR, // 195 + WORLDKEENDR1SPR, // 196 + WORLDKEENDR2SPR, // 197 + WORLDKEENDR3SPR, // 198 + WORLDKEENDL1SPR, // 199 + WORLDKEENDL2SPR, // 200 + WORLDKEENDL3SPR, // 201 + WORLDKEENUL1SPR, // 202 + WORLDKEENUL2SPR, // 203 + WORLDKEENUL3SPR, // 204 + WORLDKEENUR1SPR, // 205 + WORLDKEENUR2SPR, // 206 + WORLDKEENUR3SPR, // 207 + WORLDKEENWAVE1SPR, // 208 + WORLDKEENWAVE2SPR, // 209 + ROCKETSPR, // 210 + ROCKETFLY1SPR, // 211 + ROCKETFLY2SPR, // 212 + SATELLITE1SPR, // 213 + SATELLITE2SPR, // 214 + SATELLITE3SPR, // 215 + SATELLITE4SPR, // 216 + GRABBITER1SPR, // 217 + GRABBITER2SPR, // 218 + GRABBITERSLEEP1SPR, // 219 + GRABBITERSLEEP2SPR, // 220 + WORLDKEENTRHOW1SPR, // 221 + WORLDKEENTRHOW2SPR, // 222 + WORLDKEENCLIMB1SPR, // 223 + WORLDKEENCLIMB2SPR, // 224 + ROPETHROW1SPR, // 225 + ROPETHROW2SPR, // 226 + WORLDKEENHANGSPR, // 227 + FLAGFLIP1SPR, // 228 + FLAGFLIP2SPR, // 229 + FLAGFLIP3SPR, // 230 + FLAGFLIP4SPR, // 231 + FLAGFLIP5SPR, // 232 + FLAGFALL1SPR, // 233 + FLAGFALL2SPR, // 234 + FLAGFLAP1SPR, // 235 + FLAGFLAP2SPR, // 236 + FLAGFLAP3SPR, // 237 + FLAGFLAP4SPR, // 238 + END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND) + + START_LUMP(FLEEX_LUMP_START, __FLEEXSTART) + FLEEXWALKR1SPR, // 239 + FLEEXWALKR2SPR, // 240 + FLEEXWALKL1SPR, // 241 + FLEEXWALKL2SPR, // 242 + FLEEXLOOK1SPR, // 243 + FLEEXLOOK2SPR, // 244 + FLEEXSTUNSPR, // 245 + END_LUMP(FLEEX_LUMP_END, __FLEEXEND) + + START_LUMP(CEILICK_LUMP_START, __CEILICKSTART) + CEILICK1SPR, // 246 + CEILICK2SPR, // 247 + TONGUE1SPR, // 248 + TONGUE2SPR, // 249 + TONGUE3SPR, // 250 + TONGUE4SPR, // 251 + TONGUE5SPR, // 252 + CEILICKSTUNSPR, // 253 + END_LUMP(CEILICK_LUMP_END, __CEILICKEND) + + START_LUMP(BLOOGUARD_LUMP_START, __BLOOGUARDSTART) + BLOOGUARDWALKL1SPR, // 254 + BLOOGUARDWALKL2SPR, // 255 + BLOOGUARDWALKL3SPR, // 256 + BLOOGUARDWALKL4SPR, // 257 + BLOOGUARDWALKR1SPR, // 258 + BLOOGUARDWALKR2SPR, // 259 + BLOOGUARDWALKR3SPR, // 260 + BLOOGUARDWALKR4SPR, // 261 + BLOOGUARDSWINGL1SPR, // 262 + BLOOGUARDSWINGL2SPR, // 263 + BLOOGUARDSWINGL3SPR, // 264 + BLOOGUARDSWINGR1SPR, // 265 + BLOOGUARDSWINGR2SPR, // 266 + BLOOGUARDSWINGR3SPR, // 267 + BLOOGUARDSTUNSPR, // 268 + END_LUMP(BLOOGUARD_LUMP_END, __BLOOGUARDEND) + + START_LUMP(BIPSHIP_LUMP_START, __BIPSHIPSTART) + BIPSHIPRSPR, // 269 + BIPSHIPRTURN1SPR, // 270 + BIPSHIPRTURN2SPR, // 271 + BIPSHIPRTURN3SPR, // 272 + BIPSHIPRTURN4SPR, // 273 + BIPSHIPLSPR, // 274 + BIPSHIPLTURN1SPR, // 275 + BIPSHIPLTURN2SPR, // 276 + BIPSHIPLTURN3SPR, // 277 + BIPSHIPLTURN4SPR, // 278 + BIPSHIPEXPLODE1SPR, // 279 + BIPSHIPEXPLODE2SPR, // 280 + BIPSHIPEXPLODE3SPR, // 281 + BIPSHIPEXPLODE4SPR, // 282 + BIPSHIPEXPLODE5SPR, // 283 + BIPSHIPSHOTSPR, // 284 + END_LUMP(BIPSHIP_LUMP_END, __BIPSHIPEND) + + START_LUMP(BABOBBA_LUMP_START, __BABOBBASTART) + BABOBBAL1SPR, // 285 + BABOBBAL2SPR, // 286 + BABOBBAL3SPR, // 287 + BABOBBAR1SPR, // 288 + BABOBBAR2SPR, // 289 + BABOBBAR3SPR, // 290 + BABOBBASHOT1SPR, // 291 + BABOBBASHOT2SPR, // 292 + BABOBBASTUNSPR, // 293 + BABOBBASLEEP1SPR, // 294 + BABOBBASLEEP2SPR, // 295 + BABOBBASLEEP3SPR, // 296 + BABOBBASLEEP4SPR, // 297 + END_LUMP(BABOBBA_LUMP_END, __BABOBBAEND) + + START_LUMP(NOSPIKE_LUMP_START, __NOSPIKESTART) + NOSPIKESTANDSPR, // 298 + NOSPIKERUNR1SPR, // 299 + NOSPIKERUNR2SPR, // 300 + NOSPIKERUNR3SPR, // 301 + NOSPIKERUNR4SPR, // 302 + NOSPIKERUNL1SPR, // 303 + NOSPIKERUNL2SPR, // 304 + NOSPIKERUNL3SPR, // 305 + NOSPIKERUNL4SPR, // 306 + NOSPIKEWALKR1SPR, // 307 + NOSPIKEWALKR2SPR, // 308 + NOSPIKEWALKR3SPR, // 309 + NOSPIKEWALKR4SPR, // 310 + NOSPIKEWALKL1SPR, // 311 + NOSPIKEWALKL2SPR, // 312 + NOSPIKEWALKL3SPR, // 313 + NOSPIKEWALKL4SPR, // 314 + NOSPIKESTUNSPR, // 315 + QUESTIONMARKSPR, // 316 + END_LUMP(NOSPIKE_LUMP_END, __NOSPIKEEND) + + START_LUMP(FLECT_LUMP_START, __FLECTSTART) + FLECTSTANDSPR, // 317 + FLECTSTANDRSPR, // 318 + FLECTWALKR1SPR, // 319 + FLECTWALKR2SPR, // 320 + FLECTWALKR3SPR, // 321 + FLECTWALKR4SPR, // 322 + FLECTSTANDLSPR, // 323 + FLECTWALKL1SPR, // 324 + FLECTWALKL2SPR, // 325 + FLECTWALKL3SPR, // 326 + FLECTWALKL4SPR, // 327 + FLECTSTUNSPR, // 328 + END_LUMP(FLECT_LUMP_END, __FLECTEND) + + START_LUMP(ORBATRIX_LUMP_START, __ORBATRIXSTART) + ORBATRIX1SPR, // 329 + ORBATRIX2SPR, // 330 + ORBATRIX3SPR, // 331 + ORBATRIX4SPR, // 332 + ORBATRIXL1SPR, // 333 + ORBATRIXL2SPR, // 334 + ORBATRIXR1SPR, // 335 + ORBATRIXR2SPR, // 336 + ORBATRIXSPIN1SPR, // 337 + ORBATRIXSPIN2SPR, // 338 + ORBATRIXSPIN3SPR, // 339 + ORBATRIXSPIN4SPR, // 340 + ORBATRIXCURLSPR, // 341 + END_LUMP(ORBATRIX_LUMP_END, __ORBATRIXEND) + + START_LUMP(BLOOG_LUMP_START, __BLOOGSTART) + BLOOGWALKR1SPR, // 342 + BLOOGWALKR2SPR, // 343 + BLOOGWALKR3SPR, // 344 + BLOOGWALKR4SPR, // 345 + BLOOGWALKL1SPR, // 346 + BLOOGWALKL2SPR, // 347 + BLOOGWALKL3SPR, // 348 + BLOOGWALKL4SPR, // 349 + BLOOGSTUNSPR, // 350 + END_LUMP(BLOOG_LUMP_END, __BLOOGEND) + + START_LUMP(RBLOOGLET_LUMP_START, __RBLOOGLETSTART) + RBLOOGLETWALKR1SPR, // 351 + RBLOOGLETWALKR2SPR, // 352 + RBLOOGLETWALKR3SPR, // 353 + RBLOOGLETWALKR4SPR, // 354 + RBLOOGLETWALKL1SPR, // 355 + RBLOOGLETWALKL2SPR, // 356 + RBLOOGLETWALKL3SPR, // 357 + RBLOOGLETWALKL4SPR, // 358 + RBLOOGLETSTUNSPR, // 359 + END_LUMP(RBLOOGLET_LUMP_END, __RBLOOGLETEND) + + START_LUMP(YBLOOGLET_LUMP_START, __YBLOOGLETSTART) + YBLOOGLETWALKR1SPR, // 360 + YBLOOGLETWALKR2SPR, // 361 + YBLOOGLETWALKR3SPR, // 362 + YBLOOGLETWALKR4SPR, // 363 + YBLOOGLETWALKL1SPR, // 364 + YBLOOGLETWALKL2SPR, // 365 + YBLOOGLETWALKL3SPR, // 366 + YBLOOGLETWALKL4SPR, // 367 + YBLOOGLETSTUNSPR, // 368 + END_LUMP(YBLOOGLET_LUMP_END, __YBLOOGLETEND) + + START_LUMP(BBLOOGLET_LUMP_START, __BBLOOGLETSTART) + BBLOOGLETWALKR1SPR, // 369 + BBLOOGLETWALKR2SPR, // 370 + BBLOOGLETWALKR3SPR, // 371 + BBLOOGLETWALKR4SPR, // 372 + BBLOOGLETWALKL1SPR, // 373 + BBLOOGLETWALKL2SPR, // 374 + BBLOOGLETWALKL3SPR, // 375 + BBLOOGLETWALKL4SPR, // 376 + BBLOOGLETSTUNSPR, // 377 + END_LUMP(BBLOOGLET_LUMP_END, __BBLOOGLETEND) + + START_LUMP(GBLOOGLET_LUMP_START, __GBLOOGLETSTART) + GBLOOGLETWALKR1SPR, // 378 + GBLOOGLETWALKR2SPR, // 379 + GBLOOGLETWALKR3SPR, // 380 + GBLOOGLETWALKR4SPR, // 381 + GBLOOGLETWALKL1SPR, // 382 + GBLOOGLETWALKL2SPR, // 383 + GBLOOGLETWALKL3SPR, // 384 + GBLOOGLETWALKL4SPR, // 385 + GBLOOGLETSTUNSPR, // 386 + END_LUMP(GBLOOGLET_LUMP_END, __GBLOOGLETEND) + + START_LUMP(GIK_LUMP_START, __GIKSTART) + GIKWALKR1SPR, // 387 + GIKWALKR2SPR, // 388 + GIKWALKR3SPR, // 389 + GIKWALKL1SPR, // 390 + GIKWALKL2SPR, // 391 + GIKWALKL3SPR, // 392 + GIKJUMPLSPR, // 393 + GIKJUMPRSPR, // 394 + GIKSLIDER1SPR, // 395 + GIKSLIDER2SPR, // 396 + GIKSLIDEL1SPR, // 397 + GIKSLIDEL2SPR, // 398 + END_LUMP(GIK_LUMP_END, __GIKEND) + + START_LUMP(BLORB_LUMP_START, __BLORBSTART) + BLORB1SPR, // 399 + BLORB2SPR, // 400 + BLORB3SPR, // 401 + END_LUMP(BLORB_LUMP_END, __BLORBEND) + + START_LUMP(BOBBA_LUMP_START, __BOBBASTART) + BOBBAL1SPR, // 402 + BOBBAL2SPR, // 403 + BOBBAL3SPR, // 404 + BOBBAR1SPR, // 405 + BOBBAR2SPR, // 406 + BOBBAR3SPR, // 407 + BOBBASHOT1SPR, // 408 + BOBBASHOT2SPR, // 409 + BOBBASHOT3SPR, // 410 + BOBBASHOT4SPR, // 411 + BOBBASHOT5SPR, // 412 + BOBBASHOT6SPR, // 413 + END_LUMP(BOBBA_LUMP_END, __BOBBAEND) + + START_LUMP(BIP_LUMP_START, __BIPSTART) + BIPSTANDSPR, // 414 + BIPWALKR1SPR, // 415 + BIPWALKR2SPR, // 416 + BIPWALKR3SPR, // 417 + BIPWALKR4SPR, // 418 + BIPWALKL1SPR, // 419 + BIPWALKL2SPR, // 420 + BIPWALKL3SPR, // 421 + BIPWALKL4SPR, // 422 + END_LUMP(BIP_LUMP_END, __BIPEND) + + START_LUMP(BIPSQUISHED_LUMP_START, __BIPSQUISHEDSTART) + BIPSQUISHEDSPR, // 423 + END_LUMP(BIPSQUISHED_LUMP_END, __BIPSQUISHEDEND) + + START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART) + PLATFORMSPR, // 424 + PLATBIP1SPR, // 425 + PLATBIP2SPR, // 426 + PLATBIP3SPR, // 427 + PLATBIP4SPR, // 428 + PLATBIP5SPR, // 429 + PLATBIP6SPR, // 430 + PLATBIP7SPR, // 431 + PLATBIP8SPR, // 432 + END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND) + + START_LUMP(MOLLY_LUMP_START, __MOLLYSTART) + MOLLY1SPR, // 433 + MOLLY2SPR, // 434 + END_LUMP(MOLLY_LUMP_END, __MOLLYEND) + + START_LUMP(PASSCARD_LUMP_START, __PASSCARDSTART) + PASSCARDSPR, // 435 + END_LUMP(PASSCARD_LUMP_END, __PASSCARDEND) + + // + // TILES (these don't need names) + // + + LASTTILE=STARTEXTERNS-1, + + // + // EXTERNS + // + + T_ENDART, // 5550 + + ORDERSCREEN, // 5551 + BIGCOMMANDER, // 5552 + BIGKEEN, // 5553 + OUTOFMEM, // 5554 + + //demos + DEMO0, // 5555 + DEMO1, // 5556 + DEMO2, // 5557 + DEMO3, // 5558 + DEMO4, // 5559 + + NUMGRCHUNKS +} graphicnums; + +#undef START_LUMP +#undef END_LUMP + +#endif //__GFX_H__ \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN6/ID_ASM.EQU b/16/keen456/KEEN4-6/KEEN6/ID_ASM.EQU new file mode 100755 index 00000000..5989f124 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/ID_ASM.EQU @@ -0,0 +1,115 @@ +; +; Equates for all .ASM files +; + +;---------------------------------------------------------------------------- + +INCLUDE "GFXE_CK6.EQU" + +;---------------------------------------------------------------------------- + +CGAGR = 1 +EGAGR = 2 +VGAGR = 3 + +GRMODE = EGAGR +PROFILE = 0 ; 1=keep stats on tile drawing + +SC_INDEX = 03C4h +SC_RESET = 0 +SC_CLOCK = 1 +SC_MAPMASK = 2 +SC_CHARMAP = 3 +SC_MEMMODE = 4 + +CRTC_INDEX = 03D4h +CRTC_H_TOTAL = 0 +CRTC_H_DISPEND = 1 +CRTC_H_BLANK = 2 +CRTC_H_ENDBLANK = 3 +CRTC_H_RETRACE = 4 +CRTC_H_ENDRETRACE = 5 +CRTC_V_TOTAL = 6 +CRTC_OVERFLOW = 7 +CRTC_ROWSCAN = 8 +CRTC_MAXSCANLINE = 9 +CRTC_CURSORSTART = 10 +CRTC_CURSOREND = 11 +CRTC_STARTHIGH = 12 +CRTC_STARTLOW = 13 +CRTC_CURSORHIGH = 14 +CRTC_CURSORLOW = 15 +CRTC_V_RETRACE = 16 +CRTC_V_ENDRETRACE = 17 +CRTC_V_DISPEND = 18 +CRTC_OFFSET = 19 +CRTC_UNDERLINE = 20 +CRTC_V_BLANK = 21 +CRTC_V_ENDBLANK = 22 +CRTC_MODE = 23 +CRTC_LINECOMPARE = 24 + + +GC_INDEX = 03CEh +GC_SETRESET = 0 +GC_ENABLESETRESET = 1 +GC_COLORCOMPARE = 2 +GC_DATAROTATE = 3 +GC_READMAP = 4 +GC_MODE = 5 +GC_MISCELLANEOUS = 6 +GC_COLORDONTCARE = 7 +GC_BITMASK = 8 + +ATR_INDEX = 03c0h +ATR_MODE = 16 +ATR_OVERSCAN = 17 +ATR_COLORPLANEENABLE = 18 +ATR_PELPAN = 19 +ATR_COLORSELECT = 20 + +STATUS_REGISTER_1 = 03dah + + +MACRO WORDOUT + out dx,ax +ENDM + +if 0 + +MACRO WORDOUT + out dx,al + inc dx + xchg al,ah + out dx,al + dec dx + xchg al,ah +ENDM + +endif + +UPDATEWIDE = 22 +UPDATEHIGH = 14 + +; +; tile info offsets from segment tinf +; + +ANIM = 402 +SPEED = (ANIM+NUMTILE16) + +NORTHWALL = (SPEED+NUMTILE16) +EASTWALL = (NORTHWALL+NUMTILE16M) +SOUTHWALL = (EASTWALL+NUMTILE16M) +WESTWALL = (SOUTHWALL+NUMTILE16M) +MANIM = (WESTWALL+NUMTILE16M) +INTILE = (MANIM+NUMTILE16M) +MSPEED = (INTILE+NUMTILE16M) + + +IFE GRMODE-EGAGR +SCREENWIDTH = 64 +ENDIF +IFE GRMODE-CGAGR +SCREENWIDTH = 128 +ENDIF diff --git a/16/keen456/KEEN4-6/KEEN6/ID_HEADS.H b/16/keen456/KEEN4-6/KEEN6/ID_HEADS.H new file mode 100755 index 00000000..3a837a49 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/ID_HEADS.H @@ -0,0 +1,109 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_GLOB.H + + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#define __ID_GLOB__ + +//-------------------------------------------------------------------------- + +#define KEEN +#define KEEN6 + +#define EXTENSION "CK6" + +extern char far introscn; + +#include "GFXE_CK6.H" +#include "AUDIOCK6.H" + +//-------------------------------------------------------------------------- + +#define TEXTGR 0 +#define CGAGR 1 +#define EGAGR 2 +#define VGAGR 3 + +#define GRMODE EGAGR + +#if GRMODE == EGAGR +#define GREXT "EGA" +#endif +#if GRMODE == CGAGR +#define GREXT "CGA" +#endif + +//#define PROFILE + +// +// ID Engine +// Types.h - Generic types, #defines, etc. +// v1.0d1 +// + +#ifndef __TYPES__ +#define __TYPES__ + +typedef enum {false,true} boolean; +typedef unsigned char byte; +typedef unsigned int word; +typedef unsigned long longword; +typedef byte * Ptr; + +typedef struct + { + int x,y; + } Point; +typedef struct + { + Point ul,lr; + } Rect; + +#define nil ((void *)0) + +#endif + +#include "ID_MM.H" +#include "ID_CA.H" +#include "ID_VW.H" +#include "ID_RF.H" +#include "ID_IN.H" +#include "ID_SD.H" +#include "ID_US.H" + + +void Quit (char *error); // defined in user program + diff --git a/16/keen456/KEEN4-6/KEEN6/K6_ACT1.C b/16/keen456/KEEN4-6/KEEN6/K6_ACT1.C new file mode 100755 index 00000000..a2004bdf --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/K6_ACT1.C @@ -0,0 +1,2137 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K6_ACT1.C +========= + +Contains the following actor types (in this order): + +- some shared routines +- Bonus Items +- Grabbiter +- Rocket +- Grapple spots +- Satellite +- Quest Items (Sandwich, Grappling Hook, Passcard, Molly) +- Platforms +- falling platforms +- static platforms +- Goplat platforms +- Trick platforms +- Bloog +- Blooguard +- Blooglet + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + SHARED STUFF + +============================================================================= +*/ + +Sint16 pdirx[] = {0, 1, 0, -1, 1, 1, -1, -1}; +Sint16 pdiry[] = {-1, 0, 1, 0, -1, 1, 1, -1}; + +/* +=========================== += += C_ClipSide += +=========================== +*/ + +void C_ClipSide(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + playerkludgeclipcancel = true; + ClipToSpriteSide(hit, ob); + playerkludgeclipcancel = false; + } +} + +/* +=========================== += += C_ClipTop += +=========================== +*/ + +void C_ClipTop(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + ClipToSpriteTop(hit, ob); +} + +/* +=========================== += += R_Land += +=========================== +*/ + +void R_Land(objtype *ob) +{ + if (ob->hiteast || ob->hitwest) + ob->xspeed = 0; + + if (ob->hitsouth) + ob->yspeed = 0; + + if (ob->hitnorth) + { + ob->yspeed = 0; + if (ob->state->nextstate) + { + ChangeState(ob, ob->state->nextstate); + } + else + { + RemoveObj(ob); + return; + } + } + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_Bounce += +=========================== +*/ + +void R_Bounce(objtype *ob) +{ + Uint16 wall,absx,absy,angle,newangle; + Uint32 speed; + + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + + if (ob->hiteast || ob->hitwest) + ob->xspeed = -ob->xspeed/2; + + if (ob->hitsouth) + { + ob->yspeed = -ob->yspeed/2; + return; + } + + wall = ob->hitnorth; +#ifdef KEEN6Ev15 + if (!wall) + { + return; + } + else +#else + if (wall) +#endif + { + if (ob->yspeed < 0) + ob->yspeed = 0; + + absx = abs(ob->xspeed); + absy = ob->yspeed; + if (absx>absy) + { + if (absx>absy*2) // 22 degrees + { + angle = 0; + speed = absx*286; // x*sqrt(5)/2 + } + else // 45 degrees + { + angle = 1; + speed = absx*362; // x*sqrt(2) + } + } + else + { + if (absy>absx*2) // 90 degrees + { + angle = 3; + speed = absy*256; + } + else + { + angle = 2; // 67 degrees + speed = absy*286; // y*sqrt(5)/2 + } + } + if (ob->xspeed > 0) + angle = 7-angle; + + speed >>= 1; + newangle = bounceangle[ob->hitnorth][angle]; + switch (newangle) + { + case 0: + ob->xspeed = speed / 286; + ob->yspeed = -ob->xspeed / 2; + break; + case 1: + ob->xspeed = speed / 362; + ob->yspeed = -ob->xspeed; + break; + case 2: + ob->yspeed = -(speed / 286); + ob->xspeed = -ob->yspeed / 2; + break; + case 3: + + case 4: + ob->xspeed = 0; + ob->yspeed = -(speed / 256); + break; + case 5: + ob->yspeed = -(speed / 286); + ob->xspeed = ob->yspeed / 2; + break; + case 6: + ob->xspeed = ob->yspeed = -(speed / 362); + break; + case 7: + ob->xspeed = -(speed / 286); + ob->yspeed = ob->xspeed / 2; + break; + + case 8: + ob->xspeed = -(speed / 286); + ob->yspeed = -ob->xspeed / 2; + break; + case 9: + ob->xspeed = -(speed / 362); + ob->yspeed = -ob->xspeed; + break; + case 10: + ob->yspeed = speed / 286; + ob->xspeed = -ob->yspeed / 2; + break; + case 11: + + case 12: + ob->xspeed = 0; + ob->yspeed = -(speed / 256); + break; + case 13: + ob->yspeed = speed / 286; + ob->xspeed = ob->yspeed / 2; + break; + case 14: + ob->xspeed = speed / 362; + ob->yspeed = speed / 362; + break; + case 15: + ob->xspeed = speed / 286; + ob->yspeed = ob->xspeed / 2; + break; + } + + if (speed < 256*16) + { + ChangeState(ob, ob->state->nextstate); + } + } +} + +/* +============================================================================= + + BONUS ITEMS + +temp1 = bonus type +temp2 = base shape number +temp3 = last animated shape number +1 + +============================================================================= +*/ + +statetype s_bonus1 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus2}; +statetype s_bonus2 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus1}; +statetype s_bonusfly1 = {0, 0, stepthink, false, false, 20, 0, 0, T_FlyBonus, NULL, R_Draw, &s_bonusfly2}; +statetype s_bonusfly2 = {0, 0, stepthink, false, false, 20, 0, 0, T_FlyBonus, NULL, R_Draw, &s_bonusfly1}; +statetype s_bonusrise = {0, 0, slide, false, false, 40, 0, 8, NULL, NULL, R_Draw, NULL}; + +statetype s_splash1 = {VIVASPLASH1SPR, VIVASPLASH1SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash2}; +statetype s_splash2 = {VIVASPLASH2SPR, VIVASPLASH2SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash3}; +statetype s_splash3 = {VIVASPLASH3SPR, VIVASPLASH3SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash4}; +statetype s_splash4 = {VIVASPLASH4SPR, VIVASPLASH4SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, NULL}; + +Uint16 bonusshape[] = { + REDGEM1SPR, YELLOWGEM1SPR, BLUEGEM1SPR, GREENGEM1SPR, + SUGAR1ASPR, SUGAR2ASPR, SUGAR3ASPR, + SUGAR4ASPR, SUGAR5ASPR, SUGAR6ASPR, + ONEUPASPR, STUNCLIP1SPR +}; + +/* +=========================== += += SpawnBonus += +=========================== +*/ + +void SpawnBonus(Uint16 tileX, Uint16 tileY, Uint16 type) +{ + GetNewObj(false); + new->needtoclip = cl_noclip; + new->priority = 2; + new->obclass = bonusobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->ydir = -1; + new->temp1 = type; + new->temp2=new->shapenum = bonusshape[type]; + new->temp3 = new->temp2+2; + NewState(new, &s_bonus1); +} + +/* +=========================== += += SpawnSplash += +=========================== +*/ + +void SpawnSplash(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(true); + new->needtoclip = cl_noclip; + new->priority = 3; + new->obclass = inertobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + NewState(new, &s_splash1); +} + +/* +=========================== += += T_Bonus += +=========================== +*/ + +void T_Bonus(objtype *ob) +{ + if (++ob->shapenum == ob->temp3) + ob->shapenum = ob->temp2; +} + +/* +=========================== += += T_FlyBonus += +=========================== +*/ + +void T_FlyBonus(objtype *ob) +{ + if (ob->hitnorth) + ob->state = &s_bonus1; + + if (++ob->shapenum == ob->temp3) + ob->shapenum = ob->temp2; + + DoGravity(ob); +} + +/* +============================================================================= + + GRABBITER + +============================================================================= +*/ + +statetype s_grabbiter1 = {GRABBITER1SPR, GRABBITER1SPR, step, false, false, 12, 0, 0, NULL, C_Grabbiter, R_Draw, &s_grabbiter2}; +statetype s_grabbiter2 = {GRABBITER2SPR, GRABBITER2SPR, step, false, false, 12, 0, 0, NULL, C_Grabbiter, R_Draw, &s_grabbiter1}; +statetype s_grabbitersleep1 = {GRABBITERSLEEP1SPR, GRABBITERSLEEP1SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_grabbitersleep2}; +statetype s_grabbitersleep2 = {GRABBITERSLEEP2SPR, GRABBITERSLEEP2SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_grabbitersleep1}; + +/* +=========================== += += SpawnGrabbiter += +=========================== +*/ + +void SpawnGrabbiter(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->active = ac_yes; + new->needtoclip = cl_noclip; + new->priority = 2; + new->obclass = grabbiterobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + if (gamestate.sandwichstate == 2) + { + NewState(new, &s_grabbitersleep1); + } + else + { + NewState(new, &s_grabbiter1); + } +} + +/* +=========================== += += C_Grabbiter += +=========================== +*/ + +void C_Grabbiter(objtype *ob, objtype *hit) +{ + // BUG: this is executed for every object, not just (Map-)Keen! + switch (gamestate.sandwichstate) + { + case 0: + CA_CacheGrChunk(KEENTALK1PIC); + SD_PlaySound(SND_GRABBITER); + VW_FixRefreshBuffer(); + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 5; + US_CPrint( + "Oh, no!\n" + "It's a slavering\n" + "Grabbiter! He says,\n" + "\"Get me lunch and\n" + "I'll tell ya a secret!\"" + ); + VW_UpdateScreen(); + SD_PlaySound(SND_NOWAY); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + RF_ForceRefresh(); + + //push Keen back + xtry = -hit->xmove; + ytry = -hit->ymove; + hit->xdir = hit->ydir = 0; + ClipToWalls(hit); + break; + + case 1: + gamestate.sandwichstate++; + CA_CacheGrChunk(KEENTALK1PIC); + VW_FixRefreshBuffer(); + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 2; + US_CPrint( + "The Grabbiter grabs\n" + "the gigantic sandwich,\n" + "downs it in one bite,\n" + "and says,\"Here's your\n" + "secret. Big meals\n" + "make me sleepy!\n" // BUG: quote is missing at the end + ); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + ChangeState(ob, &s_grabbitersleep1); + RF_ForceRefresh(); + } +} + +/* +============================================================================= + + ROCKET + +temp1 = direction +temp2 = countdown to next dir check + +============================================================================= +*/ + +statetype s_rocket = {ROCKETSPR, ROCKETSPR, think, false, false, 0, 0, 0, NULL, C_Rocket, R_Draw, NULL}; +statetype s_rocketfly1 = {ROCKETFLY1SPR, ROCKETFLY1SPR, stepthink, false, false, 8, 0, 0, T_RocketFly, C_RocketFly, R_Draw, &s_rocketfly2}; +statetype s_rocketfly2 = {ROCKETFLY2SPR, ROCKETFLY2SPR, stepthink, false, false, 8, 0, 0, T_RocketFly, C_RocketFly, R_Draw, &s_rocketfly1}; +statetype s_keenrocket = {0, 0, think, false, false, 0, 0, 0, T_Rocket, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnRocket += +=========================== +*/ + +void SpawnRocket(Uint16 tileX, Uint16 tileY, Uint16 state) +{ + if (gamestate.rocketstate == state) + { + GetNewObj(false); + new->active = ac_yes; + new->needtoclip = cl_noclip; + new->priority = 3; + new->obclass = rocketobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + NewState(new, &s_rocket); + } +} + +/* +=========================== += += T_Rocket += +=========================== +*/ + +void T_Rocket(objtype *ob) +{ + ob->needtoreact = true; +} + +/* +=========================== += += C_Rocket += +=========================== +*/ + +void C_Rocket(objtype *ob, objtype *hit) +{ + // BUG: this is executed for every object, not just (Map-)Keen! + switch (gamestate.passcardstate) + { + case 0: + CA_CacheGrChunk(KEENTALK1PIC); + VW_FixRefreshBuffer(); + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 5; + US_CPrint( + "The door makes a loud\n" + "blooping noise.\n" + "It says,\n" + "\"Passcard required\n" + "for entry.\"" + ); + VW_UpdateScreen(); + SD_PlaySound(SND_NOWAY); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + RF_ForceRefresh(); + + //push Keen back + xtry = -hit->xmove; + ytry = -hit->ymove; + hit->xdir = hit->ydir = 0; + ClipToWalls(hit); + break; + + case 1: + ob->temp1 = arrow_North; + ob->temp2 = TILEGLOBAL; + ChangeState(ob, &s_rocketfly1); + + hit->x = ob->x; + hit->y = ob->y + TILEGLOBAL; + hit->needtoclip = cl_noclip; + ChangeState(hit, &s_keenrocket); + SD_PlaySound(SND_ROCKETSTART); + SD_WaitSoundDone(); + } +} + +/* +=========================== += += C_RocketFly += +=========================== +*/ + +void C_RocketFly(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + hit->x = ob->x; + hit->y = ob->y+TILEGLOBAL; + ChangeState(hit, hit->state); + } +} + +/* +=========================== += += T_RocketFly += +=========================== +*/ + +void T_RocketFly(objtype *ob) +{ + Uint16 move, tx, ty; + Sint16 dir; + + // + // this code could be executed twice during the same frame because the + // object's animation/state changed during that frame, so don't update + // anything if we already have movement for the current frame i.e. the + // update code has already been executed this frame + // + if (xtry == 0 && ytry == 0) + { + if (!SD_SoundPlaying()) + SD_PlaySound(SND_ROCKETFLY); + + move = tics << 5; + if (ob->temp2 > move) + { + ob->temp2 = ob->temp2 - move; + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = move; + } + else if (dir == -1) + { + xtry = -move; + } + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = move; + + } + else if (dir == -1) + { + ytry = -move; + } + } + else + { + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = ob->temp2; + } + else if (dir == -1) + { + xtry = -ob->temp2; + } + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ob->temp2; + } + else if (dir == -1) + { + ytry = -ob->temp2; + } + + tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry); + ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry); + ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx)-DIRARROWSTART; + if (ob->temp1 < arrow_North || ob->temp1 > arrow_None) + { + ob->x += xtry; + ob->y += ytry; + ChangeState(ob, &s_rocket); + + player->x = CONVERT_TILE_TO_GLOBAL(tx+1) + 1*PIXGLOBAL; + player->y = CONVERT_TILE_TO_GLOBAL(ty+1); + player->obclass = keenobj; + player->shapenum = WORLDKEENR3SPR; + player->needtoclip = cl_midclip; + NewState(player, &s_worldkeen); + gamestate.rocketstate ^= 1; + } + else + { + move -= ob->temp2; + ob->temp2 = TILEGLOBAL - move; + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = xtry + move; + } + else if (dir == -1) + { + xtry = xtry - move; + } + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ytry + move; + } + else if (dir == -1) + { + ytry = ytry - move; + } + } + } + } +} + +/* +============================================================================= + + GRAPPLE SPOT + +temp1 = type (0 = top of cliff, 1 = bottom of cliff) + +============================================================================= +*/ + +statetype s_grapplespot = {-1, -1, think, false, false, 0, 0, 0, NULL, C_GrappleSpot, R_Draw, NULL}; +statetype s_throwrope1 = {WORLDKEENTRHOW1SPR, WORLDKEENTRHOW1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_throwrope2}; +statetype s_throwrope2 = {WORLDKEENTRHOW2SPR, WORLDKEENTRHOW2SPR, step, false, false, 8, 0, 0, T_ThrowRope, NULL, R_Draw, &s_worldkeen}; +statetype s_climbrope1 = {WORLDKEENCLIMB1SPR, WORLDKEENCLIMB1SPR, slide, true, false, 4, 0, 16, NULL, NULL, R_Draw, &s_climbrope2}; +statetype s_climbrope2 = {WORLDKEENCLIMB2SPR, WORLDKEENCLIMB2SPR, slide, true, false, 4, 0, 16, T_ClimbRope, NULL, R_Draw, &s_climbrope1}; +statetype s_maprope = {ROPETHROW2SPR, ROPETHROW2SPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, NULL}; +statetype s_mapropeshort = {ROPETHROW1SPR, ROPETHROW1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_mapropeshort}; + +/* +=========================== += += SpawnGrappleSpot += +=========================== +*/ + +void SpawnGrappleSpot(Uint16 tileX, Uint16 tileY, Uint16 type) +{ + GetNewObj(false); + new->active = ac_yes; + new->needtoclip = cl_noclip; + new->priority = 2; + new->obclass = grapplespotobj; + new->tileleft = new->tileright = tileX; + new->tiletop = new->tilebottom = tileY; + new->temp1 = type; + new->x = new->left = CONVERT_TILE_TO_GLOBAL(tileX); + new->right = new->left + TILEGLOBAL; + if (type) + { + new->y = new->top = CONVERT_TILE_TO_GLOBAL(tileY+1)-1; + } + else + { + new->y = new->top = CONVERT_TILE_TO_GLOBAL(tileY); + } + new->bottom = new->top + 1; + NewState(new, &s_grapplespot); + + if (gamestate.hookstate == 2 && type) + { + GetNewObj(false); + new->active = ac_yes; + new->needtoclip = cl_noclip; + new->priority = 0; + new->obclass = inertobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY+1); + NewState(new, &s_maprope); + } +} + +/* +=========================== += += T_ThrowRope += +=========================== +*/ + +void T_ThrowRope(objtype *ob) +{ + GetNewObj(false); + new->active = ac_yes; + new->needtoclip = cl_noclip; + new->priority = 0; + new->obclass = inertobj; + new->x = CONVERT_TILE_TO_GLOBAL(ob->tileright); + new->y = ob->y - 2*TILEGLOBAL; + NewState(new, &s_maprope); + + ob->obclass = keenobj; + ob->shapenum = WORLDKEENU3SPR; +} + +/* +=========================== += += T_ClimbRope += +=========================== +*/ + +void T_ClimbRope(objtype *ob) +{ + if (--ob->temp4 == 0) + { + if (ob->ydir == 1) + { + ob->y += 3*PIXGLOBAL; + ob->shapenum = WORLDKEEND3SPR; + } + else + { + ob->y -= 3*PIXGLOBAL; + ob->shapenum = WORLDKEENU3SPR; + } + ob->obclass = keenobj; + NewState(ob, &s_worldkeen); + } +} + +/* +=========================== += += C_GrappleSpot += +=========================== +*/ + +void C_GrappleSpot(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + switch (gamestate.hookstate) + { + case 0: + CA_CacheGrChunk(KEENTALK1PIC); + VW_FixRefreshBuffer(); + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 15; + US_CPrint( + "What a tall cliff!\n" + "Wish I had a rope\n" + "and grappling hook.\n" + ); + VW_UpdateScreen(); + SD_PlaySound(SND_NOWAY); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + RF_ForceRefresh(); + + //push Keen back + xtry = -hit->xmove; + ytry = -hit->ymove; + hit->xdir = hit->ydir = 0; + ClipToWalls(hit); + break; + + case 1: + gamestate.hookstate++; + SD_PlaySound(SND_THROWROPE); + ChangeState(hit, &s_throwrope1); + hit->obclass = inertobj; + break; + + case 2: + if (ob->temp1) + { + hit->y += 4*PIXGLOBAL; + hit->temp4 = 6; + hit->ydir = 1; + } + else + { + hit->y -= 4*PIXGLOBAL; + hit->temp4 = 6; + hit->ydir = -1; + } + NewState(hit, &s_climbrope1); + hit->obclass = inertobj; + } + } +} + +/* +============================================================================= + + SATELLITE + +temp1 = direction (satellite) / type (stop points) +temp2 = countdown to next dir check +temp3 = type of stop point touched (low byte: current; high byte: previous) + is updated every frame and resets to 0 when no longer touching a spot +temp4 = type of last stop point passed over (1 or 2, never 0) + is updated when no longer touching the spot + +============================================================================= +*/ + +statetype s_satellitestopspot = {-1, -1, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL}; +statetype s_worldkeensatellite = {WORLDKEENHANGSPR, WORLDKEENHANGSPR, think, false, false, 0, 0, 0, NULL, NULL, R_WorldKeenSatellite, NULL}; +statetype s_satellite1 = {SATELLITE1SPR, SATELLITE1SPR, stepthink, false, false, 10, 0, 0, T_Satellite, C_Satellite, R_Draw, &s_satellite2}; +statetype s_satellite2 = {SATELLITE2SPR, SATELLITE2SPR, stepthink, false, false, 10, 0, 0, T_Satellite, C_Satellite, R_Draw, &s_satellite3}; +statetype s_satellite3 = {SATELLITE3SPR, SATELLITE3SPR, stepthink, false, false, 10, 0, 0, T_Satellite, C_Satellite, R_Draw, &s_satellite4}; +statetype s_satellite4 = {SATELLITE4SPR, SATELLITE4SPR, stepthink, false, false, 10, 0, 0, T_Satellite, C_Satellite, R_Draw, &s_satellite1}; + +/* +=========================== += += SpawnSatelliteStop += +=========================== +*/ + +void SpawnSatelliteStop(Uint16 tileX, Uint16 tileY, Uint16 type) +{ + GetNewObj(false); + new->active = ac_allways; + new->needtoclip = cl_noclip; + new->priority = 2; + new->obclass = satellitestopobj; + new->tileleft=new->tileright=tileX; + new->tiletop=new->tilebottom=tileY; + new->temp1 = (type ^ 1) + 1; // type is either 0 or 1, so this just maps 0 to 2 and 1 to 1 + new->x=new->left = CONVERT_TILE_TO_GLOBAL(tileX); + new->right = new->left + TILEGLOBAL; + new->y=new->top = CONVERT_TILE_TO_GLOBAL(tileY); + new->bottom = new->top + TILEGLOBAL; + NewState(new, &s_satellitestopspot); +} + +/* +=========================== += += SpawnSatellite += +=========================== +*/ + +void SpawnSatellite(Uint16 tileX, Uint16 tileY) +{ + Sint16 dir; + + GetNewObj(false); + new->needtoclip = cl_noclip; + new->priority = 2; + new->active = ac_allways; + new->obclass = satelliteobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->xdir = 0; + new->ydir = 1; + NewState(new, &s_satellite1); + + dir = arrow_West; + (mapsegs[2]+mapbwidthtable[tileY]/2)[tileX] = (dir+DIRARROWSTART); + new->temp1 = dir; + new->temp2 = TILEGLOBAL; + new->temp4 = 2; +} + +/* +=========================== += += T_Satellite += +=========================== +*/ + +void T_Satellite(objtype *ob) +{ + // + // this code could be executed twice during the same frame because the + // object's animation/state changed during that frame, so don't update + // anything if we already have movement for the current frame i.e. the + // update code has already been executed this frame + // + if (xtry == 0 && ytry == 0) + { + // + // if current stop spot type is 0 (not touching a spot), but previous + // type is not 0, then set temp4 to the previous type + // + if (!(ob->temp3 & 0xFF) && (ob->temp3 & 0xFF00)) + { + ob->temp4 = ob->temp3 >> 8; + } + // + // move current type into previous type and set current stop type to 0 + // + ob->temp3 <<= 8; + + // + // follow the arrow path like a GoPlat + // + T_GoPlat(ob); + } +} + +/* +=========================== += += C_Satellite += +=========================== +*/ + +void C_Satellite(objtype *ob, objtype *hit) +{ + Sint16 temp; + objtype *o; + + if (hit->state == &s_satellitestopspot) + { + ob->temp3 |= hit->temp1; + } + else if (hit->obclass == keenobj) + { + // + // check if satellite has reaced a new stop spot + // + temp = ob->temp3 >> 8; + if (temp && temp != ob->temp4) + { + SD_PlaySound(SND_GRABSATELLITE); + // + // update last spot value (don't grab or drop Keen until moved to the next spot) + // + ob->temp4 = temp; + if (player->state == &s_worldkeensatellite) + { + // + // drop Keen off at the current stop spot + // + for (o=player->next; o; o=o->next) + { + if (o->obclass == satellitestopobj && o->temp1 == temp) + { + hit->x = o->x; + hit->y = o->y; + hit->shapenum = WORLDKEENU3SPR; + ChangeState(player, &s_worldkeen); + hit->needtoclip = cl_midclip; + return; + } + } + } + else + { + // + // grab and carry Keen + // + hit->x = ob->x + 12*PIXGLOBAL; + hit->y = ob->y + 16*PIXGLOBAL; + hit->needtoclip = cl_noclip; + ChangeState(player, &s_worldkeensatellite); + } + } + else if (hit->state == &s_worldkeensatellite) + { + // + // move Keen along with the satellite + // + hit->x = ob->x + 12*PIXGLOBAL; + hit->y = ob->y + 16*PIXGLOBAL; + ChangeState(hit, hit->state); + } + } +} + +/* +=========================== += += R_WorldKeenSatellite += +=========================== +*/ + +void R_WorldKeenSatellite(objtype *ob) +{ + RF_PlaceSprite(&ob->sprite, ob->x + 4*PIXGLOBAL, ob->y + 8*PIXGLOBAL, WORLDKEENHANGSPR, spritedraw, 1); +} + +/* +============================================================================= + + SANDWICH + +============================================================================= +*/ + +statetype s_sandwich = {SANDWICHSPR, SANDWICHSPR, think, false, false, 0, 0, 0, NULL, C_Molly, R_Draw, NULL}; + +/* +=========================== += += SpawnSandwich += +=========================== +*/ + +void SpawnSandwich(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->needtoclip = cl_noclip; + new->priority = 2; + new->obclass = sandwichobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + NewState(new, &s_sandwich); +} + +/* +============================================================================= + + GRAPPLING HOOK + +============================================================================= +*/ + +statetype s_hook = {HOOKSPR, HOOKSPR, think, false, false, 0, 0, 0, NULL, C_Molly, R_Draw, NULL}; + +/* +=========================== += += SpawnHook += +=========================== +*/ + +void SpawnHook(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->needtoclip = cl_noclip; + new->priority = 2; + new->obclass = hookobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + NewState(new, &s_hook); +} + +/* +============================================================================= + + PASSCARD + +============================================================================= +*/ + +statetype s_passcard = {PASSCARDSPR, PASSCARDSPR, think, false, false, 0, 0, 0, NULL, C_Molly, R_Draw, NULL}; + +/* +=========================== += += SpawnPasscard += +=========================== +*/ + +void SpawnPasscard(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->needtoclip = cl_noclip; + new->priority = 2; + new->obclass = passcardobj; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + NewState(new, &s_passcard); +} + +//============================================================================ + +/* +=========================== += += C_Molly += +=========================== +*/ + +void C_Molly(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + switch (ob->obclass) + { + case sandwichobj: + playstate = ex_sandwich; + break; + + case hookobj: + playstate = ex_hook; + break; + + case passcardobj: + playstate = ex_card; + break; + + case mollyobj: + playstate = ex_molly; + } + } +} + +/* +============================================================================= + + MOLLY + +============================================================================= +*/ + +statetype s_molly1 = {MOLLY1SPR, MOLLY1SPR, step, false, false, 20, 0, 0, NULL, C_Molly, R_Draw, &s_molly2}; +statetype s_molly2 = {MOLLY2SPR, MOLLY2SPR, step, false, false, 40, 0, 0, NULL, C_Molly, R_Draw, &s_molly3}; +statetype s_molly3 = {MOLLY1SPR, MOLLY1SPR, step, false, false, 40, 0, 0, NULL, C_Molly, R_Draw, &s_molly4}; +statetype s_molly4 = {MOLLY2SPR, MOLLY2SPR, step, false, false, 20, 0, 0, NULL, C_Molly, R_Draw, &s_molly1}; + +/* +=========================== += += SpawnMolly += +=========================== +*/ + +void SpawnMolly(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = mollyobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_molly1); +} + +/* +============================================================================= + + PLATFORM + +============================================================================= +*/ + +statetype s_platform = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_Platform, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnPlatform += +=========================== +*/ + +void SpawnPlatform(Uint16 tileX, Uint16 tileY, Sint16 dir) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + switch (dir) + { + case 0: + new->xdir = 0; + new->ydir = -1; + break; + case 1: + new->xdir = 1; + new->ydir = 0; + break; + case 2: + new->xdir = 0; + new->ydir = 1; + break; + case 3: + new->xdir = -1; + new->ydir = 0; + } + NewState(new, &s_platform); +} + +/* +=========================== += += T_Platform += +=========================== +*/ + +void T_Platform(objtype *ob) +{ + Uint16 newpos, newtile; + + xtry = ob->xdir * 12 * tics; + ytry = ob->ydir * 12 * tics; + + if (ob->xdir == 1) + { + newpos = ob->right + xtry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tileright != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK) + { + ob->xdir = -1; + xtry = xtry - (newpos & 0xFF); + } + } + } + else if (ob->xdir == -1) + { + newpos = ob->left + xtry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tileleft != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK) + { + ob->xdir = 1; + xtry = xtry + (TILEGLOBAL - (newpos & 0xFF)); + } + } + } + else if (ob->ydir == 1) + { + newpos = ob->bottom + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tilebottom != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK) + { + if (*(mapsegs[2]+mapbwidthtable[newtile-2]/2 + ob->tileleft) == PLATFORMBLOCK) + { + ytry = 0; + ob->needtoreact = true; + } + else + { + ob->ydir = -1; + ytry = ytry - (newpos & 0xFF); + } + } + } + } + else if (ob->ydir == -1) + { + newpos = ob->top + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tiletop != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK) + { + if (*(mapsegs[2]+mapbwidthtable[newtile+2]/2 + ob->tileleft) == PLATFORMBLOCK) + { + ytry = 0; + ob->needtoreact = true; + } + else + { + ob->ydir = 1; + ytry = ytry + (TILEGLOBAL - (newpos & 0xFF)); + } + } + } + } +} + +/* +============================================================================= + + DROPPING PLATFORM + +temp1 = initial y position + +============================================================================= +*/ + +statetype s_dropplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatSit, NULL, R_Draw, NULL}; +statetype s_fallplatfall = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatFall, NULL, R_Draw, NULL}; +statetype s_fallplatrise = {PLATFORMSPR, PLATFORMSPR, slidethink, false, false, 0, 0, -32, T_DropPlatRise, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnDropPlat += +=========================== +*/ + +void SpawnDropPlat(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY); + new->xdir = 0; + new->ydir = 1; + new->needtoclip = cl_noclip; + NewState(new, &s_dropplatsit); +} + +/* +=========================== += += T_DropPlatSit += +=========================== +*/ + +void T_DropPlatSit(objtype *ob) +{ + if (gamestate.riding == ob) + { + ytry = tics << 4; //tics * 16; + ob->yspeed = 0; + if (ob->y + ytry - ob->temp1 >= 8*PIXGLOBAL) + ob->state = &s_fallplatfall; + } +} + +/* +=========================== += += T_DropPlatFall += +=========================== +*/ + +void T_DropPlatFall(objtype *ob) +{ + Uint16 newpos, newtile; + + DoGravity(ob); + +#if 0 + // bugfix: don't skip a tile (this is present in Keen 4, but missing in 5 & 6) + if (ytry >= 15*PIXGLOBAL) + ytry = 15*PIXGLOBAL; +#endif + + newpos = ob->bottom + ytry; + newtile = CONVERT_GLOBAL_TO_TILE(newpos); + if (ob->tilebottom != newtile) + { + if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK) + { + ytry = 0xFF - (ob->bottom & 0xFF); + if (gamestate.riding != ob) + ob->state = &s_fallplatrise; + } + } +} + +/* +=========================== += += T_DropPlatRise += +=========================== +*/ + +void T_DropPlatRise(objtype *ob) +{ + if (gamestate.riding == ob) + { + ob->yspeed = 0; + ob->state = &s_fallplatfall; + } + else if (ob->y <= ob->temp1) + { + ytry = ob->temp1 - ob->y; + ob->state = &s_dropplatsit; + } +} + +/* +============================================================================= + + STATIC PLATFORM + +temp1 = initial y position (is set but never used) + +============================================================================= +*/ + +statetype s_staticplatform = {PLATFORMSPR, PLATFORMSPR, step, false, false, 32000, 0, 0, NULL, NULL, R_Draw, &s_staticplatform}; + +/* +=========================== += += SpawnStaticPlat += +=========================== +*/ + +void SpawnStaticPlat(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY); + new->xdir = 0; + new->ydir = 1; + new->needtoclip = cl_noclip; + NewState(new, &s_staticplatform); +} + +/* +============================================================================= + + GO PLATFORM + +temp1 = direction +temp2 = countdown to next dir check +temp3 = sprite pointer for the Bip sprite + +============================================================================= +*/ + +statetype s_goplat = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_GoPlat, NULL, R_GoPlat, NULL}; + +/* +=========================== += += SpawnGoPlat += +=========================== +*/ + +void SpawnGoPlat(Uint16 tileX, Uint16 tileY, Sint16 dir) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->xdir = 0; + new->ydir = 1; + new->needtoclip = cl_noclip; + NewState(new, &s_goplat); + *(mapsegs[2]+mapbwidthtable[tileY]/2 + tileX) = dir + DIRARROWSTART; + new->temp1 = dir; + new->temp2 = TILEGLOBAL; +} + +/* +=========================== += += T_GoPlat += +=========================== +*/ + +void T_GoPlat(objtype *ob) +{ + Uint16 move; + Sint16 dir; + Uint16 tx, ty; + + move = tics * 12; + if (ob->temp2 > move) + { + ob->temp2 = ob->temp2 - move; + + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = xtry + move; + } + else if (dir == -1) + { + xtry = xtry + -move; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ytry + move; + } + else if (dir == -1) + { + ytry = ytry + -move; + } + } + else + { + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry += ob->temp2; + } + else if (dir == -1) + { + xtry += -ob->temp2; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry += ob->temp2; + } + else if (dir == -1) + { + ytry += -ob->temp2; + } + + tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry); + ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry); + ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx) - DIRARROWSTART; + if (ob->temp1 < arrow_North || ob->temp1 > arrow_None) + { + Quit("Goplat moved to a bad spot!"); + } + + move -= ob->temp2; + ob->temp2 = TILEGLOBAL - move; + + dir = pdirx[ob->temp1]; + if (dir == 1) + { + xtry = xtry + move; + } + else if (dir == -1) + { + xtry = xtry - move; + } + + dir = pdiry[ob->temp1]; + if (dir == 1) + { + ytry = ytry + move; + } + else if (dir == -1) + { + ytry = ytry - move; + } + } +} + +/* +=========================== += += R_GoPlat += +=========================== +*/ + +void R_GoPlat(objtype *ob) +{ + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + RF_PlaceSprite((void**)&ob->temp3, ob->x+TILEGLOBAL, ob->y+TILEGLOBAL, ob->temp1+PLATBIP1SPR, spritedraw, ob->priority); +} + +/* +============================================================================= + + SNEAKY PLATFORM + +temp1 = initial x position (is set but never used) + +============================================================================= +*/ + +statetype s_sneakplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_SneakPlat, NULL, R_Draw, NULL}; +statetype s_sneakplatdodge = {PLATFORMSPR, PLATFORMSPR, slide, false, false, 48, 32, 0, NULL, NULL, R_Draw, &s_sneakplatreturn}; +statetype s_sneakplatreturn = {PLATFORMSPR, PLATFORMSPR, slide, false, false, 96, -16, 0, NULL, NULL, R_Draw, &s_sneakplatsit}; + +/* +=========================== += += SpawnSneakPlat += +=========================== +*/ + +void SpawnSneakPlat(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = platformobj; + new->active = ac_allways; + new->priority = 0; + new->x=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + new->xdir = 0; + new->ydir = 1; + new->needtoclip = cl_noclip; + NewState(new, &s_sneakplatsit); +} + +/* +=========================== += += T_SneakPlat += +=========================== +*/ + +void T_SneakPlat(objtype *ob) +{ + Sint16 dist; + + if (player->state != &s_keenjump1) + return; + + if (player->xdir == 1) + { + dist = ob->left-player->right; + if (dist > 4*TILEGLOBAL || dist < 0) + return; + } + else + { + dist = player->left-ob->right; + if (dist > 4*TILEGLOBAL || dist < 0) + return; + } + + dist = player->y - ob->y; + if (dist < -6*TILEGLOBAL || dist > 6*TILEGLOBAL) + return; + + ob->xdir = player->xdir; + ob->state = &s_sneakplatdodge; +} + +/* +============================================================================= + + BLOOG + +============================================================================= +*/ + +statetype s_bloogwalk1 = {BLOOGWALKL1SPR, BLOOGWALKR1SPR, step, false, true, 10, 128, 0, T_BloogWalk, C_Bloog, R_Walk, &s_bloogwalk2}; +statetype s_bloogwalk2 = {BLOOGWALKL2SPR, BLOOGWALKR2SPR, step, false, true, 10, 128, 0, T_BloogWalk, C_Bloog, R_Walk, &s_bloogwalk3}; +statetype s_bloogwalk3 = {BLOOGWALKL3SPR, BLOOGWALKR3SPR, step, false, true, 10, 128, 0, T_BloogWalk, C_Bloog, R_Walk, &s_bloogwalk4}; +statetype s_bloogwalk4 = {BLOOGWALKL4SPR, BLOOGWALKR4SPR, step, false, true, 10, 128, 0, T_BloogWalk, C_Bloog, R_Walk, &s_bloogwalk1}; +statetype s_bloogstun = {BLOOGSTUNSPR, BLOOGSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_bloogstun}; + +/* +=========================== += += SpawnBloog += +=========================== +*/ + +void SpawnBloog(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = bloogobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -2*TILEGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_bloogwalk1); +} + +/* +=========================== += += T_BloogWalk += +=========================== +*/ + +void T_BloogWalk(objtype *ob) +{ + if (US_RndT() < 0x20) + { + if (ob->x < player->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + } +} + +/* +=========================== += += C_Bloog += +=========================== +*/ + +void C_Bloog(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + StunObj(ob, hit, &s_bloogstun); + } +} + +/* +============================================================================= + + BLOOGUARD + +temp1 = flash countdown +temp2 = health + +============================================================================= +*/ + +statetype s_blooguardwalk1 = {BLOOGUARDWALKL1SPR, BLOOGUARDWALKR1SPR, step, false, true, 9, 128, 0, T_BlooguardWalk, C_Blooguard, R_Blooguard, &s_blooguardwalk2}; +statetype s_blooguardwalk2 = {BLOOGUARDWALKL2SPR, BLOOGUARDWALKR2SPR, step, false, true, 9, 128, 0, T_BlooguardWalk, C_Blooguard, R_Blooguard, &s_blooguardwalk3}; +statetype s_blooguardwalk3 = {BLOOGUARDWALKL3SPR, BLOOGUARDWALKR3SPR, step, false, true, 9, 128, 0, T_BlooguardWalk, C_Blooguard, R_Blooguard, &s_blooguardwalk4}; +statetype s_blooguardwalk4 = {BLOOGUARDWALKL4SPR, BLOOGUARDWALKR4SPR, step, false, true, 9, 128, 0, T_BlooguardWalk, C_Blooguard, R_Blooguard, &s_blooguardwalk1}; +statetype s_blooguardattack1 = {BLOOGUARDSWINGL1SPR, BLOOGUARDSWINGR1SPR, step, false, true, 30, 0, 0, NULL, C_Blooguard, R_Blooguard, &s_blooguardattack2}; +statetype s_blooguardattack2 = {BLOOGUARDSWINGL2SPR, BLOOGUARDSWINGR2SPR, step, false, true, 9, 0, 0, NULL, C_Blooguard, R_Blooguard, &s_blooguardattack3}; +statetype s_blooguardattack3 = {BLOOGUARDSWINGL3SPR, BLOOGUARDSWINGR3SPR, step, true, true, 1, 0, 0, T_BlooguardAttack, C_Blooguard, R_Blooguard, &s_blooguardattack4}; +statetype s_blooguardattack4 = {BLOOGUARDSWINGL3SPR, BLOOGUARDSWINGR3SPR, step, false, true, 9, 0, 0, NULL, C_Blooguard, R_Blooguard, &s_blooguardwalk1}; +statetype s_blooguardstun = {BLOOGUARDSTUNSPR, BLOOGUARDSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_blooguardstun}; + +/* +=========================== += += SpawnBlooguard += +=========================== +*/ + +void SpawnBlooguard(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = blooguardobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -40*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + new->temp2 = 3; // health + NewState(new, &s_blooguardwalk1); +} + +/* +=========================== += += T_BlooguardWalk += +=========================== +*/ + +void T_BlooguardWalk(objtype *ob) +{ + if (US_RndT() < 0x20) + { + if (ob->x < player->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + } + if ( ((ob->xdir == 1 && ob->x < player->x) || (ob->xdir == -1 && ob->x > player->x)) + && ob->bottom == player->bottom && US_RndT() < 0x20) + { + ob->state = &s_blooguardattack1; + } +} + +/* +=========================== += += T_BlooguardAttack += +=========================== +*/ + +#pragma argsused +void T_BlooguardAttack(objtype *ob) +{ + SD_PlaySound(SND_SMASH); + groundslam = 23; + if (player->hitnorth) + { + ChangeState(player, &s_keenstun); + } +} + +/* +=========================== += += C_Blooguard += +=========================== +*/ + +void C_Blooguard(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + if (hit->obclass == stunshotobj) // not 'else if' in the original code + { + if (--ob->temp2 == 0) // handle health + { + StunObj(ob, hit, &s_blooguardstun); + } + else + { + ob->temp1 = 2; // draw white twice + ob->needtoreact = true; + ExplodeShot(hit); + } + } +} + +/* +=========================== += += R_Blooguard += +=========================== +*/ + +void R_Blooguard(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (!ob->hitnorth) + { + ob->x -= ob->xmove*2; + ob->xdir = -ob->xdir; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + if (ob->temp1) + { + ob->temp1--; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority); + } + else + { + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + } +} + +/* +============================================================================= + + BLOOGLET + +temp1 = type + +============================================================================= +*/ + +// red Blooglet: +statetype s_rbloogletwalk1 = {RBLOOGLETWALKL1SPR, RBLOOGLETWALKR1SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_rbloogletwalk2}; +statetype s_rbloogletwalk2 = {RBLOOGLETWALKL2SPR, RBLOOGLETWALKR2SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_rbloogletwalk3}; +statetype s_rbloogletwalk3 = {RBLOOGLETWALKL3SPR, RBLOOGLETWALKR3SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_rbloogletwalk4}; +statetype s_rbloogletwalk4 = {RBLOOGLETWALKL4SPR, RBLOOGLETWALKR4SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_rbloogletwalk1}; +statetype s_rbloogletstun = {RBLOOGLETSTUNSPR, RBLOOGLETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +// yellow Blooglet: +statetype s_ybloogletwalk1 = {YBLOOGLETWALKL1SPR, YBLOOGLETWALKR1SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_ybloogletwalk2}; +statetype s_ybloogletwalk2 = {YBLOOGLETWALKL2SPR, YBLOOGLETWALKR2SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_ybloogletwalk3}; +statetype s_ybloogletwalk3 = {YBLOOGLETWALKL3SPR, YBLOOGLETWALKR3SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_ybloogletwalk4}; +statetype s_ybloogletwalk4 = {YBLOOGLETWALKL4SPR, YBLOOGLETWALKR4SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_ybloogletwalk1}; +statetype s_ybloogletstun = {YBLOOGLETSTUNSPR, YBLOOGLETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +// blue Blooglet: +statetype s_bbloogletwalk1 = {BBLOOGLETWALKL1SPR, BBLOOGLETWALKR1SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_bbloogletwalk2}; +statetype s_bbloogletwalk2 = {BBLOOGLETWALKL2SPR, BBLOOGLETWALKR2SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_bbloogletwalk3}; +statetype s_bbloogletwalk3 = {BBLOOGLETWALKL3SPR, BBLOOGLETWALKR3SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_bbloogletwalk4}; +statetype s_bbloogletwalk4 = {BBLOOGLETWALKL4SPR, BBLOOGLETWALKR4SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_bbloogletwalk1}; +statetype s_bbloogletstun = {BBLOOGLETSTUNSPR, BBLOOGLETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +// green Blooglet: +statetype s_gbloogletwalk1 = {GBLOOGLETWALKL1SPR, GBLOOGLETWALKR1SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_gbloogletwalk2}; +statetype s_gbloogletwalk2 = {GBLOOGLETWALKL2SPR, GBLOOGLETWALKR2SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_gbloogletwalk3}; +statetype s_gbloogletwalk3 = {GBLOOGLETWALKL3SPR, GBLOOGLETWALKR3SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_gbloogletwalk4}; +statetype s_gbloogletwalk4 = {GBLOOGLETWALKL4SPR, GBLOOGLETWALKR4SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_gbloogletwalk1}; +statetype s_gbloogletstun = {GBLOOGLETSTUNSPR, GBLOOGLETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnBlooglet += +=========================== +*/ + +void SpawnBlooglet(Uint16 tileX, Uint16 tileY, Sint16 type) +{ + GetNewObj(false); + new->obclass = bloogletobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + new->temp1 = type; + + switch (type % 4) + { + case 0: + NewState(new, &s_rbloogletwalk1); + break; + + case 1: + NewState(new, &s_ybloogletwalk1); + break; + + case 2: + NewState(new, &s_bbloogletwalk1); + break; + + case 3: + NewState(new, &s_gbloogletwalk1); + } +} + +/* +=========================== += += C_Blooglet += +=========================== +*/ + +void C_Blooglet(objtype *ob, objtype *hit) +{ + static statetype *stunnedstate[4] = { + &s_rbloogletstun, + &s_ybloogletstun, + &s_bbloogletstun, + &s_gbloogletstun + }; + Sint16 color; + + if (hit->obclass == keenobj && hit->state->contact) + { + playerkludgeclipcancel = true; + ClipToSpriteSide(hit, ob); + playerkludgeclipcancel = false; + } + else if (hit->obclass == stunshotobj) + { + color = ob->temp1 & 3; + if (ob->temp1 > 3) + { + // + // spawn a key gem + // + GetNewObj(false); + new->needtoclip = cl_midclip; + new->priority = 2; + new->obclass = bonusobj; + new->x = ob->x; + new->y = ob->y; + new->ydir = -1; + new->yspeed = -40; + new->temp1 = color; + new->temp2=new->shapenum = bonusshape[color]; + new->temp3 = new->temp2 + 2; + NewState(new, &s_bonusfly1); + SD_PlaySound(SND_DROPKEY); + } + StunObj(ob, hit, stunnedstate[color]); + } +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN6/K6_ACT2.C b/16/keen456/KEEN4-6/KEEN6/K6_ACT2.C new file mode 100755 index 00000000..ddea36fb --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/K6_ACT2.C @@ -0,0 +1,1311 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K6_ACT2.C +========= + +Contains the following actor types (in this order): + +- Nospike +- Gik +- Turrets +- Orbatrix +- Bip & Bipship +- Flect + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + NOSPIKE + +temp1 = step counter for running on thin air +temp2 = low byte: running flag; high byte: flash countdown +temp3 = sprite pointer for the question mark +temp4 = health + +============================================================================= +*/ + +statetype s_nospikestand = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, step, false, true, 90, 0, 0, NULL, C_Nospike, R_Walk, &s_nospikewalk1}; +statetype s_nospikewalk1 = {NOSPIKEWALKL1SPR, NOSPIKEWALKR1SPR, step, false, true, 10, 128, 0, T_NospikeWalk, C_Nospike, R_Walk, &s_nospikewalk2}; +statetype s_nospikewalk2 = {NOSPIKEWALKL2SPR, NOSPIKEWALKR2SPR, step, false, true, 10, 128, 0, T_NospikeWalk, C_Nospike, R_Walk, &s_nospikewalk3}; +statetype s_nospikewalk3 = {NOSPIKEWALKL3SPR, NOSPIKEWALKR3SPR, step, false, true, 10, 128, 0, T_NospikeWalk, C_Nospike, R_Walk, &s_nospikewalk4}; +statetype s_nospikewalk4 = {NOSPIKEWALKL4SPR, NOSPIKEWALKR4SPR, step, false, true, 10, 128, 0, T_NospikeWalk, C_Nospike, R_Walk, &s_nospikewalk1}; +statetype s_nospikerun1 = {NOSPIKERUNL1SPR, NOSPIKERUNR1SPR, step, false, true, 4, 128, 0, T_NospikeRun, C_Nospike, R_NospikeRun, &s_nospikerun2}; +statetype s_nospikerun2 = {NOSPIKERUNL2SPR, NOSPIKERUNR2SPR, step, false, true, 4, 128, 0, T_NospikeRun, C_Nospike, R_NospikeRun, &s_nospikerun3}; +statetype s_nospikerun3 = {NOSPIKERUNL3SPR, NOSPIKERUNR3SPR, step, false, true, 4, 128, 0, T_NospikeRun, C_Nospike, R_NospikeRun, &s_nospikerun4}; +statetype s_nospikerun4 = {NOSPIKERUNL4SPR, NOSPIKERUNR4SPR, step, false, true, 4, 128, 0, T_NospikeRun, C_Nospike, R_NospikeRun, &s_nospikerun1}; +statetype s_nospikeconfused1 = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, step, false, false, 20, 0, 1, NULL, NULL, R_Draw, &s_nospikeconfused2}; +statetype s_nospikeconfused2 = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, step, false, false, 90, 0, 0, T_NospikeConfused, NULL, R_NospikeConfused, &s_nospikeconfused3}; +statetype s_nospikeconfused3 = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, step, false, false, 20, 0, 0, NULL, NULL, R_Draw, &s_nospikefall}; +statetype s_nospikefall = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_NospikeFall, NULL}; +statetype s_nospikestun = {NOSPIKESTUNSPR, NOSPIKESTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_nospikestun}; + +/* +=========================== += += SpawnNospike += +=========================== +*/ + +void SpawnNospike(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = nospikeobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -24*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_nospikestand); + new->temp4 = 4; // health +} + +/* +=========================== += += T_NospikeWalk += +=========================== +*/ + +void T_NospikeWalk(objtype *ob) +{ + if (US_RndT() < 0x10) + { + ob->state = &s_nospikestand; + } + else if (ob->bottom == player->bottom && US_RndT() <= 0x20) + { + // + // start running towards player + // + if (player->x > ob->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + ob->temp1 = 0; // nospike is still on solid ground (should already be 0 anyway) + ob->temp2 = 1; // nospike is running + if (ob->state == &s_nospikewalk1) + { + ob->state = &s_nospikerun2; + } + else if (ob->state == &s_nospikewalk2) + { + ob->state = &s_nospikerun3; + } + else if (ob->state == &s_nospikewalk3) + { + ob->state = &s_nospikerun4; + } + else if (ob->state == &s_nospikewalk4) + { + ob->state = &s_nospikerun1; + } + } +} + +/* +=========================== += += T_NospikeRun += +=========================== +*/ + +void T_NospikeRun(objtype *ob) +{ + if (ob->temp1) + return; // nospike is running on thin air, so we'd better not stop + + if ( ( ( player->bottom != ob->bottom // not on same ground level as Keen? + || (ob->xdir == -1 && ob->x < player->x) + || (ob->xdir == 1 && ob->x > player->x) ) // already ran past Keen? + && US_RndT() < 8 ) + || !OnScreen(ob) ) // always stop running when off-screen + { + // + // stop running + // + ob->temp2 = 0; + if (ob->state == &s_nospikerun1) + { + ob->state = &s_nospikewalk2; + } + else if (ob->state == &s_nospikerun2) + { + ob->state = &s_nospikewalk3; + } + else if (ob->state == &s_nospikerun3) + { + ob->state = &s_nospikewalk4; + } + else if (ob->state == &s_nospikerun4) + { + ob->state = &s_nospikewalk1; + } + } +} + +/* +=========================== += += C_Nospike += +=========================== +*/ + +void C_Nospike(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + if (--ob->temp4 == 0) // handle health + { + StunObj(ob, hit, &s_nospikestun); + ob->yspeed = -24; + } + else + { + if (player->x > ob->x) + { + ob->xdir = 1; + } + else + { + ob->xdir = -1; + } + ob->temp2 |= 0x400; // draw white 4 times + ob->needtoreact = true; + if (ob->state == &s_nospikestand || ob->state == &s_nospikewalk1) + { + ChangeState(ob, &s_nospikerun2); + } + else if (ob->state == &s_nospikewalk2) + { + ChangeState(ob, &s_nospikerun3); + } + else if (ob->state == &s_nospikewalk3) + { + ChangeState(ob, &s_nospikerun4); + } + else if (ob->state == &s_nospikewalk4) + { + ChangeState(ob, &s_nospikerun1); + } + ExplodeShot(hit); + } + } + else if (hit->obclass == nospikeobj + && (hit->temp2 & 0xFF) && (ob->temp2 & 0xFF) // both nospikes are running? + && hit->xdir != ob->xdir) // running in opposite directions? + { + // + // stun both nospikes + // + ob->temp1=ob->temp2=ob->temp3=hit->temp1=hit->temp2=hit->temp3 = 0; + ob->temp4 = hit->temp4 = ob->obclass; + ChangeState(ob, &s_nospikestun); + ChangeState(hit, &s_nospikestun); + SD_PlaySound(SND_SMASH); + ob->obclass = hit->obclass = stunnedobj; + ob->yspeed = hit->yspeed = -24; + } +} + +/* +=========================== += += T_NospikeConfused += +=========================== +*/ + +void T_NospikeConfused(objtype* ob) +{ + RF_RemoveSprite((void**)&ob->temp3); +} + +/* +=========================== += += R_NospikeConfused += +=========================== +*/ + +void R_NospikeConfused(objtype *ob) +{ + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + RF_PlaceSprite((void**)&ob->temp3, ob->x+TILEGLOBAL, ob->y-8*PIXGLOBAL, QUESTIONMARKSPR, spritedraw, 3); +} + +/* +=========================== += += R_NospikeFall += +=========================== +*/ + +void R_NospikeFall(objtype *ob) +{ + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + if (ob->hitnorth) + { + ob->temp1=ob->temp2=ob->temp3 = 0; + ob->temp4 = ob->obclass; + ChangeState(ob, &s_nospikestun); + SD_PlaySound(SND_SMASH); + ob->obclass = stunnedobj; + ob->yspeed = -24; + } +} + +/* +=========================== += += R_NospikeRun += +=========================== +*/ + +void R_NospikeRun(objtype *ob) +{ + if (ob->hitnorth) + { + ob->temp1 = 0; // on solid ground + if (ob->hiteast || ob->hitwest) + { + ob->x -= ob->xdir << 7; + NewState(ob, &s_nospikestand); + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + ob->temp2 = 0; // no longer running or flashing white + return; + } + } + else + { + if (++ob->temp1 == 6) // not on solid ground for 6 steps? + { + ChangeState(ob, &s_nospikeconfused1); +#if 0 + // bugfix: + ob->nothink = 0; // to make sure T_NospikeConfused can remove the question mark sprite +#endif + } + } + if (ob->temp2 & 0xFF00) + { + ob->temp2 -= 0x100; + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority); + } + else + { + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + } +} + +/* +============================================================================= + + GIK + +============================================================================= +*/ + +statetype s_gikwalk1 = {GIKWALKL1SPR, GIKWALKR1SPR, step, false, true, 10, 128, 0, T_GikWalk, C_ClipTop, R_Walk, &s_gikwalk2}; +statetype s_gikwalk2 = {GIKWALKL2SPR, GIKWALKR2SPR, step, false, true, 10, 128, 0, T_GikWalk, C_ClipTop, R_Walk, &s_gikwalk3}; +statetype s_gikwalk3 = {GIKWALKL3SPR, GIKWALKR3SPR, step, false, true, 10, 128, 0, T_GikWalk, C_ClipTop, R_Walk, &s_gikwalk1}; +statetype s_gikjump = {GIKJUMPLSPR, GIKJUMPRSPR, think, false, false, 0, 0, 0, T_Projectile, C_ClipSide, R_GikJump, &s_gikslide1}; +statetype s_gikslide1 = {GIKSLIDEL1SPR, GIKSLIDER1SPR, stepthink, false, false, 6, 0, 0, T_GikSlide, C_Lethal, R_GikSlide, &s_gikslide2}; +statetype s_gikslide2 = {GIKSLIDEL2SPR, GIKSLIDER2SPR, stepthink, false, false, 6, 0, 0, T_GikSlide, C_Lethal, R_GikSlide, &s_gikslide1}; +statetype s_gikstand = {GIKSLIDEL1SPR, GIKSLIDER1SPR, step, false, true, 20, 0, 0, NULL, C_Lethal, R_Walk, &s_gikwalk1}; + +/* +=========================== += += SpawnGik += +=========================== +*/ + +void SpawnGik(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = gikobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY); + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_gikwalk1); +} + +/* +=========================== += += T_GikWalk += +=========================== +*/ + +void T_GikWalk(objtype *ob) +{ + Sint16 xdist; + + if (ob->hitnorth != 9) // if NOT on flat ground that kills Keen + { + xdist = player->x - ob->x; + if (player->bottom <= ob->bottom && ob->bottom - player->bottom <= 4*TILEGLOBAL) + { + if (xdist < 0) + { + ob->xdir = -1; + } + else + { + ob->xdir = 1; + } + if (xdist >= -7*TILEGLOBAL && xdist <= 7*TILEGLOBAL + && (xdist <= -TILEGLOBAL || xdist >= TILEGLOBAL) ) + { + if (xdist < 0) + { + ob->xspeed = -40; + } + else + { + ob->xspeed = 40; + } + ob->yspeed = -28; + ob->state = &s_gikjump; + SD_PlaySound(SND_GIKJUMP); + } + } + } +} + +/* +=========================== += += T_GikSlide += +=========================== +*/ + +void T_GikSlide(objtype *ob) +{ + // tic masks for friction, based on slope type and direction + // 0 - no friction + // 7 - lowest friction (speed decreases every 8 tics) + // 3 - medium friction (speed decreases every 4 tics) + // 1 - highest friction (speed decreases every 2 tics) + static Sint16 rticmask[8] = {0, 7, 0, 0, 0, 3, 3, 1}; + static Sint16 lticmask[8] = {0, 7, 3, 3, 1, 0, 0, 0}; + + Sint16 ticmask; + Sint16 slope; + Sint32 i; + + DoGravity(ob); + + slope = ob->hitnorth & 7; + if (ob->xdir == 1) + { + ticmask = rticmask[slope]; + } + else + { + ticmask = lticmask[slope]; + } + + if (ob->xspeed == 0 && ob->hitnorth) + { + ob->state = &s_gikstand; + } + else + { + for (i = lasttimecount-tics; i < lasttimecount; i++) + { + if (ticmask && !(i & ticmask)) + { + if ((ob->xspeed < 0 && ++ob->xspeed == 0) + || (ob-> xspeed > 0 && --ob->xspeed == 0)) + { + ob->state = &s_gikstand; + return; + } + } + xtry += ob->xspeed; + } + } +} + +/* +=========================== += += R_GikJump += +=========================== +*/ + +void R_GikJump(objtype *ob) +{ + if (ob->hiteast || ob->hitwest) + ob->xspeed = 0; + + if (ob->hitsouth) + ob->yspeed = 0; + + if (ob->hitnorth) + { + ob->yspeed = 0; + SD_PlaySound(SND_GIKLAND); + ChangeState(ob, ob->state->nextstate); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_GikSlide += +=========================== +*/ + +void R_GikSlide(objtype *ob) +{ + if ((ob->hiteast && ob->xspeed < 0) || (ob->hitwest && ob->xspeed > 0)) + ob->xspeed = 0; + + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + CANNON + +temp1 = direction + +============================================================================= +*/ + +statetype s_cannon = {0, 0, step, false, false, 120, 0, 0, NULL, NULL, R_Draw, &s_cannonfire}; +statetype s_cannonfire = {0, 0, step, true, false, 1, 0, 0, T_Cannon, NULL, R_Draw, &s_cannon}; +statetype s_cshot1 = {LASER1SPR, LASER1SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot2}; +statetype s_cshot2 = {LASER2SPR, LASER2SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot3}; +statetype s_cshot3 = {LASER3SPR, LASER3SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot4}; +statetype s_cshot4 = {LASER4SPR, LASER4SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot1}; +statetype s_cshothit1 = {LASERHIT1SPR, LASERHIT1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cshothit2}; +statetype s_cshothit2 = {LASERHIT2SPR, LASERHIT2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnCannon += +=========================== +*/ + +void SpawnCannon(Uint16 tileX, Uint16 tileY, Sint16 dir) +{ + GetNewObj(false); + new->obclass = cannonobj; + new->active = ac_yes; + new->tileright = new->tileleft = tileX; + new->tiletop = new->tilebottom = tileY; + new->x = new->left = new->right = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = new->top = new->bottom = CONVERT_TILE_TO_GLOBAL(tileY); + new->temp1 = dir; + NewState(new, &s_cannon); +} + +/* +=========================== += += T_Cannon += +=========================== +*/ + +void T_Cannon(objtype *ob) +{ + GetNewObj(true); + new->obclass = mshotobj; + new->active = ac_yes; // BUG? NOT removable in Keen 6 (checked v1.0, v1.4 and v1.5) + new->x = ob->x; + new->y = ob->y; + switch (ob->temp1) + { + case 0: + new->yspeed = -64; + break; + case 1: + new->xspeed = 64; + break; + case 2: + new->yspeed = 64; + break; + case 3: + new->xspeed = -64; + } + NewState(new, &s_cshot1); + SD_PlaySound(SND_ENEMYSHOT); +} + +/* +=========================== += += C_CShot += +=========================== +*/ + +void C_CShot(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + ChangeState(ob, &s_cshothit1); + } +} + +/* +=========================== += += R_CShot += +=========================== +*/ + +void R_CShot(objtype *ob) +{ + if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest) + { + SD_PlaySound(SND_ENEMYSHOTEXPLODE); + ChangeState(ob, &s_cshothit1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + ORBATRIX + +temp1 = bounce counter +temp2 = amount to move up during uncurl animation +temp3 = float offset +temp4 = float direction (up or down) + +============================================================================= +*/ + +statetype s_orbatrix1 = {ORBATRIXL1SPR, ORBATRIXR1SPR, slide, false, true, 12, 16, 0, T_OrbatrixFly, C_Orbatrix, R_Orbatrix, &s_orbatrix2}; +statetype s_orbatrix2 = {ORBATRIXL2SPR, ORBATRIXR2SPR, slide, false, true, 12, 16, 0, T_OrbatrixFly, C_Orbatrix, R_Orbatrix, &s_orbatrix1}; +statetype s_orbatrixcurl1 = {ORBATRIX1SPR, ORBATRIX1SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixcurl2}; +statetype s_orbatrixcurl2 = {ORBATRIXCURLSPR, ORBATRIXCURLSPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixcurl3}; +statetype s_orbatrixcurl3 = {ORBATRIXCURLSPR, ORBATRIXCURLSPR, think, false, true, 12, 0, 0, T_OrbatrixCurl, C_Orbatrix, R_Orbatrix, &s_orbatrixbounce1}; +statetype s_orbatrixuncurl1 = {ORBATRIXSPIN1SPR, ORBATRIXSPIN1SPR, think, false, false, 12, 0, 0, T_OrbatrixUncurl, C_OrbatrixBounce, R_Draw, &s_orbatrixuncurl2}; +statetype s_orbatrixuncurl2 = {ORBATRIXCURLSPR, ORBATRIXCURLSPR, step, false, false, 12, 0, 0, NULL, C_OrbatrixBounce, R_Draw, &s_orbatrixidle1}; +statetype s_orbatrixidle1 = {ORBATRIX1SPR, ORBATRIX1SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixidle2}; +statetype s_orbatrixidle2 = {ORBATRIX2SPR, ORBATRIX2SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixidle3}; +statetype s_orbatrixidle3 = {ORBATRIX3SPR, ORBATRIX3SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixidle4}; +statetype s_orbatrixidle4 = {ORBATRIX4SPR, ORBATRIX4SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrix1}; +statetype s_orbatrixbounce1 = {ORBATRIXSPIN4SPR, ORBATRIXSPIN1SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_OrbatrixBounce, R_OrbatrixBounce, &s_orbatrixbounce2}; +statetype s_orbatrixbounce2 = {ORBATRIXSPIN3SPR, ORBATRIXSPIN2SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_OrbatrixBounce, R_OrbatrixBounce, &s_orbatrixbounce3}; +statetype s_orbatrixbounce3 = {ORBATRIXSPIN2SPR, ORBATRIXSPIN3SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_OrbatrixBounce, R_OrbatrixBounce, &s_orbatrixbounce4}; +statetype s_orbatrixbounce4 = {ORBATRIXSPIN1SPR, ORBATRIXSPIN4SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_OrbatrixBounce, R_OrbatrixBounce, &s_orbatrixbounce1}; + +/* +=========================== += += SpawnOrbatrix += +=========================== +*/ + +void SpawnOrbatrix(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = orbatrixobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -24*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + new->temp4 = 1; + NewState(new, &s_orbatrix1); +} + +/* +=========================== += += T_OrbatrixFly += +=========================== +*/ + +void T_OrbatrixFly(objtype *ob) +{ + Sint16 dist; + + if (US_RndT() < 0x20) + { + ob->state = &s_orbatrixidle1; + return; + } + + if (ob->bottom != player->bottom) + { + return; + } + + dist = player->x - ob->x; + ob->xdir = (dist < 0)? -1 : 1; + if (dist > -5*TILEGLOBAL && dist < 5*TILEGLOBAL) + { + ob->state = &s_orbatrixcurl1; + } +} + +/* +=========================== += += C_Orbatrix += +=========================== +*/ + +void C_Orbatrix(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + ChangeState(ob, &s_orbatrixidle1); + } +} + +/* +=========================== += += R_Orbatrix += +=========================== +*/ + +void R_Orbatrix(objtype *ob) +{ + // + // ugly hack: apply float offset before drawing the sprite + // (it's ugly because the sprite moves up/down, but the hitbox doesn't) + // + ob->y -= ob->temp3; + R_Walk(ob); + ob->y += ob->temp3; + + // + // update the float offset + // + ob->temp3 = ob->temp3 + ob->temp4 * tics * 4; + if (ob->temp3 > 8*PIXGLOBAL) + { + ob->temp3 = 8*PIXGLOBAL; + ob->temp4 = -1; + } + else if (ob->temp3 < -8*PIXGLOBAL) + { + ob->temp3 = -8*PIXGLOBAL; + ob->temp4 = 1; + } +} + +/* +=========================== += += R_OrbatrixBounce += +=========================== +*/ + +void R_OrbatrixBounce(objtype *ob) +{ + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + + if (ob->hitnorth) + { + ob->yspeed = -ob->yspeed; + } + if (ob->hitnorth || ob->hitwest || ob->hiteast) + { + ob->xspeed = -ob->xspeed; + SD_PlaySound(SND_ORBATRIXBOUNCE); + if (ob->hitnorth && --ob->temp1 == 0) + { + ChangeState(ob, &s_orbatrixuncurl1); + ob->temp2 = 24*PIXGLOBAL; + } + } +} + +/* +=========================== += += T_OrbatrixCurl += +=========================== +*/ + +void T_OrbatrixCurl(objtype *ob) +{ + if (ob->temp3 >= 16) + { + ob->xspeed = ob->xdir * 60; + ob->yspeed = -32; + ob->y -= ob->temp3; + ob->temp1 = 5; // bounce 5 times + ob->state = ob->state->nextstate; + } + ob->needtoreact = true; +} + +/* +=========================== += += T_OrbatrixUncurl += +=========================== +*/ + +void T_OrbatrixUncurl(objtype *ob) +{ + ob->temp2 += (ytry = tics * -8); + if (ob->temp2 <= 0) + { + ytry -= ob->temp2; + ob->state = ob->state->nextstate; + } +} + +/* +=========================== += += C_OrbatrixBounce += +=========================== +*/ + +void C_OrbatrixBounce(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + ob->xspeed = 0; + } +} + +/* +============================================================================= + + BIP + +============================================================================= +*/ + +statetype s_bipstand = {BIPSTANDSPR, BIPSTANDSPR, step, false, true, 30, 0, 0, NULL, C_Bip, R_Walk, &s_bipwalk1}; +statetype s_bipwalk1 = {BIPWALKL1SPR, BIPWALKR1SPR, step, true, true, 4, 32, 0, T_BipWalk, C_Bip, R_Walk, &s_bipwalk2}; +statetype s_bipwalk2 = {BIPWALKL2SPR, BIPWALKR2SPR, step, true, true, 4, 32, 0, T_BipWalk, C_Bip, R_Walk, &s_bipwalk3}; +statetype s_bipwalk3 = {BIPWALKL3SPR, BIPWALKR3SPR, step, true, true, 4, 32, 0, T_BipWalk, C_Bip, R_Walk, &s_bipwalk4}; +statetype s_bipwalk4 = {BIPWALKL4SPR, BIPWALKR4SPR, step, true, true, 4, 32, 0, T_BipWalk, C_Bip, R_Walk, &s_bipwalk1}; +statetype s_bipsquished = {BIPSQUISHEDSPR, BIPSQUISHEDSPR, think, false, true, 0, 0, 0, T_Projectile, NULL, R_Draw, NULL}; + +/* +=========================== += += T_BipWalk += +=========================== +*/ + +void T_BipWalk(objtype *ob) +{ + if (ob->bottom == player->bottom) + { + if (ob->right < player->left - 4*PIXGLOBAL) + ob->xdir = 1; + + if (ob->left > player->right + 4*PIXGLOBAL) + ob->xdir = -1; + } + else if (US_RndT() < 0x10) + { + ob->xdir = -ob->xdir; + ob->state = &s_bipstand; + } +} + +/* +=========================== += += C_Bip += +=========================== +*/ + +void C_Bip(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj && hit->ymove > 0) + { + SD_PlaySound(SND_BIPSQUISH); + ob->obclass = inertobj; + ChangeState(ob, &s_bipsquished); + } +} + +/* +============================================================================= + + BIPSHIP + +============================================================================= +*/ + +statetype s_bipship = {BIPSHIPLSPR, BIPSHIPRSPR, think, false, true, 0, 0, 0, T_BipshipFly, C_Bipship, R_Draw, &s_bipship}; +statetype s_bipshipshot = {BIPSHIPSHOTSPR, BIPSHIPSHOTSPR, think, false, false, 0, 0, 0, T_Velocity, C_Lethal, R_BipShot, NULL}; +statetype s_bipshipturn1 = {BIPSHIPRTURN1SPR, BIPSHIPLTURN1SPR, stepthink, false, true, 10, 0, 0, T_BipshipTurn, C_Bipship, R_Draw, &s_bipshipturn2}; +statetype s_bipshipturn2 = {BIPSHIPRTURN2SPR, BIPSHIPLTURN2SPR, stepthink, false, true, 10, 0, 0, T_BipshipTurn, C_Bipship, R_Draw, &s_bipshipturn3}; +statetype s_bipshipturn3 = {BIPSHIPRTURN3SPR, BIPSHIPLTURN3SPR, stepthink, false, true, 10, 0, 0, T_BipshipTurn, C_Bipship, R_Draw, &s_bipshipturn4}; +statetype s_bipshipturn4 = {BIPSHIPRTURN4SPR, BIPSHIPLTURN4SPR, stepthink, false, true, 10, 0, 0, T_BipshipTurn, C_Bipship, R_Draw, &s_bipship}; +statetype s_bipshipexplode1 = {BIPSHIPEXPLODE2SPR, BIPSHIPEXPLODE1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Land, &s_bipshipexplode2}; +statetype s_bipshipexplode2 = {BIPSHIPEXPLODE2SPR, BIPSHIPEXPLODE1SPR, step, true, false, 1, 0, 0, T_BipshipExplode, NULL, R_Land, &s_bipshipexplode3}; +statetype s_bipshipexplode3 = {BIPSHIPEXPLODE5SPR, BIPSHIPEXPLODE5SPR, step, true, false, 30000, 0, 0, NULL, NULL, R_Land, &s_bipshipexplode3}; +statetype s_bipshipsmoke1 = {BIPSHIPEXPLODE3SPR, BIPSHIPEXPLODE3SPR, step, true, false, 10, 0, 0, NULL, NULL, R_Draw, &s_bipshipsmoke2}; +statetype s_bipshipsmoke2 = {BIPSHIPEXPLODE4SPR, BIPSHIPEXPLODE4SPR, step, true, false, 10, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnBipship += +=========================== +*/ + +void SpawnBipship(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = bipshipobj; + new->active = ac_yes; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY)+ -24*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->xspeed = new->xdir * 20; + NewState(new, &s_bipship); +} + +/* +=========================== += += R_BipShot += +=========================== +*/ + +void R_BipShot(objtype *ob) +{ + if (ob->hitnorth || ob->hitsouth || ob->hiteast || ob->hitwest) + { + RemoveObj(ob); + } + else + { + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); + } +} + +/* +=========================== += += T_BipshipTurn += +=========================== +*/ + +void T_BipshipTurn(objtype *ob) +{ + AccelerateX(ob, ob->xdir, 20); +} + +/* +=========================== += += T_BipshipFly += +=========================== +*/ + +void T_BipshipFly(objtype *ob) +{ + Uint16 far *map; + Sint16 dir; + Uint16 tile, tx, ty; + + AccelerateX(ob, ob->xdir, 20); + dir = ob->xdir; + if (player->bottom + TILEGLOBAL - ob->bottom <= 2*TILEGLOBAL) + { + if (player->x < ob->x) + { + dir = -1; + } + else + { + dir = 1; + } + if (ob->xdir == dir && US_RndT() < tics*4) + { + SD_PlaySound(SND_KEENFIRE); + GetNewObj(true); + new->obclass = mshotobj; + new->active = ac_removable; + new->priority = 1; + if (ob->xdir == 1) + { + new->x = ob->x + TILEGLOBAL; + new->xspeed = 64; + } + else + { + new->x = ob->x; + new->xspeed = -64; + } + new->y = ob->y + 10*PIXGLOBAL; + new->yspeed = 16; + NewState(new, &s_bipshipshot); + } + } + + tx = ob->tilemidx + dir*4; + map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + tx; + + for (ty = ob->tiletop; ty <= ob->tilebottom; ty++, map += mapwidth) + { + tile = *map; + if (tinf[tile+EASTWALL] || tinf[tile+WESTWALL]) + { + dir = -dir; + goto check_turn; + } + } + tile = *map; + if (!tinf[tile+NORTHWALL]) + { + dir = -dir; + } +check_turn: + if (dir != ob->xdir) + { + ob->xdir = dir; + ChangeState(ob, &s_bipshipturn1); + } +} + +/* +=========================== += += T_BipshipExplode += +=========================== +*/ + +void T_BipshipExplode(objtype *ob) +{ + SD_PlaySound(SND_BIPSHIPEXPLODE); + + GetNewObj(true); + new->obclass = inertobj; + new->active = ac_yes; + new->priority = 2; + new->x = ob->x; + new->y = ob->y - 24*PIXGLOBAL; + NewState(new, &s_bipshipsmoke1); + + GetNewObj(true); + new->obclass = bipobj; + new->active = ac_yes; + new->priority = 0; + new->x = ob->x; + new->y = ob->y - 8*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + NewState(new, &s_bipstand); +} + +/* +=========================== += += C_Bipship += +=========================== +*/ + +void C_Bipship(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + ChangeState(ob, &s_bipshipexplode1); + } +} + +/* +============================================================================= + + FLECT + +============================================================================= +*/ + +statetype s_flectstand = {FLECTSTANDLSPR, FLECTSTANDRSPR, think, false, true, 60, 0, 0, T_FlectStand, C_Flect, R_Flect, &s_flectwalk1}; +statetype s_flectturn = {FLECTSTANDSPR, FLECTSTANDSPR, step, false, true, 8, 0, 0, NULL, C_Flect, R_Flect, &s_flectwalk1}; +statetype s_flectwalk1 = {FLECTWALKL1SPR, FLECTWALKR1SPR, step, false, true, 10, 128, 0, T_FlectWalk, C_Flect, R_Flect, &s_flectwalk2}; +statetype s_flectwalk2 = {FLECTWALKL2SPR, FLECTWALKR2SPR, step, false, true, 10, 128, 0, T_FlectWalk, C_Flect, R_Flect, &s_flectwalk3}; +statetype s_flectwalk3 = {FLECTWALKL3SPR, FLECTWALKR3SPR, step, false, true, 10, 128, 0, T_FlectWalk, C_Flect, R_Flect, &s_flectwalk4}; +statetype s_flectwalk4 = {FLECTWALKL4SPR, FLECTWALKR4SPR, step, false, true, 10, 128, 0, T_FlectWalk, C_Flect, R_Flect, &s_flectwalk1}; +statetype s_flectstun = {FLECTSTUNSPR, FLECTSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_flectstun}; + +/* +=========================== += += SpawnFlect += +=========================== +*/ + +void SpawnFlect(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = flectobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_flectwalk1); +} + +/* +=========================== += += T_FlectStand += +=========================== +*/ + +void T_FlectStand(objtype *ob) +{ + if (player->x < ob->x) + { + if (ob->xdir != -1) + { + ob->state = &s_flectturn; + ob->xdir = -1; + } + else + { + ob->state = &s_flectwalk1; + } + } + else + { + if (ob->xdir != 1) + { + ob->state = &s_flectturn; + ob->xdir = 1; + } + else + { + ob->state = &s_flectwalk1; + } + } +} + +/* +=========================== += += T_FlectWalk += +=========================== +*/ + +void T_FlectWalk(objtype *ob) +{ + if (player->x < ob->x && ob->xdir == 1) + { + if (ob->xdir != -1) // always true here! + { + ob->state = &s_flectturn; + } + ob->xdir = -1; + } + + if (player->x > ob->x && ob->xdir == -1) + { + if (ob->xdir != 1) // always true here! + { + ob->state = &s_flectturn; + } + ob->xdir = 1; + } + + if (US_RndT() < 0x20) + { + ob->state = &s_flectstand; + } +} + +/* +=========================== += += C_Flect += +=========================== +*/ + +void C_Flect(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + ClipToSpriteSide(hit, ob); + } + else if (hit->obclass == stunshotobj) + { + if (hit->xdir == 0) + { + StunObj(ob, hit, &s_flectstun); + } + else if (hit->xdir != ob->xdir) + { + // reflect shot: + hit->xdir = ob->xdir; + hit->temp4 = true; // shot can now stun Keen + SD_PlaySound(SND_SHOTBOUNCE); + } + } +} + +/* +=========================== += += R_Flect += +=========================== +*/ + +void R_Flect(objtype *ob) +{ + if (ob->xdir == 1 && ob->hitwest) + { + ob->x -= ob->xmove; + ob->xdir = -1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (ob->xdir == -1 && ob->hiteast) + { + ob->x -= ob->xmove; + ob->xdir = 1; + ob->nothink = US_RndT() >> 5; + ChangeState(ob, ob->state); + } + else if (!ob->hitnorth) + { + ob->x -= ob->xmove; + ob->xdir = -ob->xdir; + ChangeState(ob, ob->state); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} diff --git a/16/keen456/KEEN4-6/KEEN6/K6_ACT3.C b/16/keen456/KEEN4-6/KEEN6/K6_ACT3.C new file mode 100755 index 00000000..81efc993 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/K6_ACT3.C @@ -0,0 +1,765 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K6_ACT3.C +========= + +Contains the following actor types (in this order): + +- Fleex +- Bobba +- Babobba +- Blorb +- Ceilick + +*/ + +#include "CK_DEF.H" + +/* +============================================================================= + + FLEEX + +temp1 = flash countdown +temp2 = health + +============================================================================= +*/ + +statetype s_fleexwalk1 = {FLEEXWALKL1SPR, FLEEXWALKR1SPR, step, false, true, 7, 128, 0, T_FleexWalk, C_Fleex, R_Blooguard, &s_fleexwalk2}; +statetype s_fleexwalk2 = {FLEEXWALKL2SPR, FLEEXWALKR2SPR, step, false, true, 7, 128, 0, T_FleexWalk, C_Fleex, R_Blooguard, &s_fleexwalk1}; +statetype s_fleexrun1 = {FLEEXWALKL1SPR, FLEEXWALKR1SPR, step, false, true, 7, 128, 0, NULL, C_Fleex, R_Blooguard, &s_fleexrun2}; +statetype s_fleexrun2 = {FLEEXWALKL2SPR, FLEEXWALKR2SPR, step, false, true, 7, 128, 0, NULL, C_Fleex, R_Blooguard, &s_fleexrun3}; +statetype s_fleexrun3 = {FLEEXWALKL1SPR, FLEEXWALKR1SPR, step, false, true, 7, 128, 0, NULL, C_Fleex, R_Blooguard, &s_fleexrun4}; +statetype s_fleexrun4 = {FLEEXWALKL2SPR, FLEEXWALKR2SPR, step, false, true, 7, 128, 0, NULL, C_Fleex, R_Blooguard, &s_fleexwalk1}; +statetype s_fleexlook1 = {FLEEXLOOK1SPR, FLEEXLOOK1SPR, step, false, true, 60, 0, 0, NULL, C_Fleex, R_Blooguard, &s_fleexlook2}; +statetype s_fleexlook2 = {FLEEXLOOK2SPR, FLEEXLOOK2SPR, step, false, true, 60, 0, 0, T_FleexLook, C_Fleex, R_Blooguard, &s_fleexrun1}; +statetype s_fleexstun = {FLEEXSTUNSPR, FLEEXSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnFleex += +=========================== +*/ + +void SpawnFleex(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = fleexobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -40*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_fleexwalk1); + new->temp2 = 4; // health +} + +/* +=========================== += += T_FleexWalk += +=========================== +*/ + +void T_FleexWalk(objtype *ob) +{ + if (!player->xmove && !ob->temp1) + { + ob->state = &s_fleexlook1; + } + else + { + ob->xdir = (ob->x < player->x)? 1 : -1; + } +} + +/* +=========================== += += T_FleexLook += +=========================== +*/ + +void T_FleexLook(objtype *ob) +{ + ob->xdir = (ob->x < player->x)? 1 : -1; +} + +/* +=========================== += += C_Fleex += +=========================== +*/ + +void C_Fleex(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + if (hit->obclass == stunshotobj) // this is not 'else if' in the original code + { + if (--ob->temp2 == 0) + { + StunObj(ob, hit, &s_fleexstun); + ob->yspeed = -20; + } + else + { + ob->temp1 = 2; // draw white twice + ob->needtoreact = true; + ExplodeShot(hit); + if (ob->state == &s_fleexlook1 || ob->state == &s_fleexlook2) + { + ob->xdir = (ob->x < player->x)? 1 : -1; + ChangeState(ob, &s_fleexwalk1); + } + } + } +} + +/* +============================================================================= + + BOBBA + +temp1 = jump counter + +============================================================================= +*/ + +statetype s_bobbajump1 = {BOBBAL2SPR, BOBBAR2SPR, stepthink, false, false, 8, 0, 0, T_Projectile, C_Bobba, R_Bobba, &s_bobbajump2}; +statetype s_bobbajump2 = {BOBBAL3SPR, BOBBAR3SPR, think, false, false, 8, 0, 0, T_Projectile, C_Bobba, R_Bobba, &s_bobbajump2}; +statetype s_bobbastand = {BOBBAL1SPR, BOBBAR1SPR, step, false, false, 20, 0, 0, T_BobbaStand, C_Bobba, R_Draw, &s_bobbajump1}; +statetype s_bobbaattack = {BOBBAL1SPR, BOBBAR1SPR, step, false, false, 40, 0, 0, NULL, C_Bobba, R_Draw, &s_bobbajump1}; +statetype s_bobbashot1 = {BOBBASHOT1SPR, BOBBASHOT1SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashot2}; +statetype s_bobbashot2 = {BOBBASHOT2SPR, BOBBASHOT2SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashot3}; +statetype s_bobbashot3 = {BOBBASHOT1SPR, BOBBASHOT1SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashot4}; +statetype s_bobbashot4 = {BOBBASHOT2SPR, BOBBASHOT2SPR, step, false, false, 8, 0, 0, T_BobbaShot, NULL, R_Draw, &s_bobbashot5}; +statetype s_bobbashot5 = {BOBBASHOT3SPR, BOBBASHOT3SPR, slide, false, false, 8, 48, 0, NULL, C_Lethal, R_BobbaShot, &s_bobbashot6}; +statetype s_bobbashot6 = {BOBBASHOT4SPR, BOBBASHOT4SPR, slide, false, false, 8, 48, 0, NULL, C_Lethal, R_BobbaShot, &s_bobbashot7}; +statetype s_bobbashot7 = {BOBBASHOT5SPR, BOBBASHOT5SPR, slide, false, false, 8, 48, 0, NULL, C_Lethal, R_BobbaShot, &s_bobbashot8}; +statetype s_bobbashot8 = {BOBBASHOT6SPR, BOBBASHOT6SPR, slide, false, false, 8, 48, 0, NULL, C_Lethal, R_BobbaShot, &s_bobbashot5}; +statetype s_bobbashotvanish1 = {BOBBASHOT6SPR, BOBBASHOT6SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashotvanish2}; +statetype s_bobbashotvanish2 = {BOBBASHOT6SPR, BOBBASHOT6SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashotvanish3}; +statetype s_bobbashotvanish3 = {BOBBASHOT6SPR, BOBBASHOT6SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, NULL}; + +/* +=========================== += += SpawnBobba += +=========================== +*/ + +void SpawnBobba(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = bobbaobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -2*TILEGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_bobbajump1); +} + +/* +=========================== += += T_BobbaShot += +=========================== +*/ + +#pragma argsused +void T_BobbaShot(objtype *ob) +{ + SD_PlaySound(SND_BOBBASHOT); +} + +/* +=========================== += += T_BobbaStand += +=========================== +*/ + +void T_BobbaStand(objtype *ob) +{ + Sint16 i; + Uint16 far *map; + + if (++ob->temp1 == 3) + { + ob->temp1 = 0; + GetNewObj(true); + new->active = ac_removable; + new->obclass = mshotobj; + new->y = ob->y + 11*PIXGLOBAL; + new->xdir = ob->xdir; + if (ob->xdir == 1) + { + new->x = ob->x + 16*PIXGLOBAL; + } + else + { + new->x = ob->x + 11*PIXGLOBAL; + } + NewState(new, &s_bobbashot1); + new->priority = 2; + ob->state = &s_bobbaattack; + } + else + { + map = mapsegs[1] + mapbwidthtable[ob->tilebottom+1]/2 + ob->tilemidx; + for (i=0; i<4; map += ob->xdir, i++) + { + if ( !tinf[*map+NORTHWALL] + && !tinf[*(map-mapwidth)+NORTHWALL] + && !tinf[*(map+mapwidth)+NORTHWALL] ) + { + ob->xdir = -ob->xdir; + break; + } + } + ob->xspeed = ob->xdir << 5; + ob->yspeed = -32; + SD_PlaySound(SND_BOBBAJUMP); + } +} + +/* +=========================== += += C_Bobba += +=========================== +*/ + +void C_Bobba(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + ExplodeShot(hit); + if (hit->xdir != 0) + { + ob->xdir = -hit->xdir; + } + } +} + +/* +=========================== += += R_Bobba += +=========================== +*/ + +void R_Bobba(objtype *ob) +{ + if (ob->hiteast) + { + ob->xdir = 1; + ob->xspeed = -ob->xspeed; + } + else if (ob->hitwest) + { + ob->xdir = -1; + ob->xspeed = -ob->xspeed; + } + + if (ob->hitsouth) + ob->yspeed = 0; + + if (ob->hitnorth) + { + SD_PlaySound(SND_BOBBALAND); + ChangeState(ob, &s_bobbastand); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += R_BobbaShot += +=========================== +*/ + +void R_BobbaShot(objtype *ob) +{ + if (ob->hitnorth || ob->hitsouth || ob->hiteast || ob->hitwest) + { + ChangeState(ob, &s_bobbashotvanish1); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + BABOBBA + +temp1 = jump counter (Babobba) / animation counter (Shot) + +============================================================================= +*/ + +statetype s_babobbajump1 = {BABOBBAL2SPR, BABOBBAR2SPR, stepthink, false, false, 8, 0, 0, T_Projectile, C_Babobba, R_Babobba, &s_babobbajump2}; +statetype s_babobbajump2 = {BABOBBAL3SPR, BABOBBAR3SPR, think, false, false, 8, 0, 0, T_Projectile, C_Babobba, R_Babobba, &s_babobbajump2}; +statetype s_babobbastand = {BABOBBAL1SPR, BABOBBAR1SPR, step, false, false, 20, 0, 0, T_BabobbaStand, C_Babobba, R_Draw, &s_babobbajump1}; +statetype s_babobbaattack = {BABOBBAL1SPR, BABOBBAR1SPR, step, false, false, 70, 0, 0, NULL, C_Babobba, R_Draw, &s_babobbastand}; +statetype s_babobbastun1 = {BABOBBAL2SPR, BABOBBAR2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_babobbastun2}; +statetype s_babobbastun2 = {BABOBBASTUNSPR, BABOBBASTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL}; +statetype s_babobbasleep1 = {BABOBBASLEEP1SPR, BABOBBASLEEP1SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep2}; +statetype s_babobbasleep2 = {BABOBBASLEEP2SPR, BABOBBASLEEP2SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep3}; +statetype s_babobbasleep3 = {BABOBBASLEEP3SPR, BABOBBASLEEP3SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep4}; +statetype s_babobbasleep4 = {BABOBBASLEEP4SPR, BABOBBASLEEP4SPR, step, false, false, 500, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep5}; +statetype s_babobbasleep5 = {BABOBBASLEEP3SPR, BABOBBASLEEP3SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep6}; +statetype s_babobbasleep6 = {BABOBBASLEEP2SPR, BABOBBASLEEP2SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep7}; +statetype s_babobbasleep7 = {BABOBBASLEEP1SPR, BABOBBASLEEP1SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbastand}; +statetype s_babobbashot1 = {BABOBBASHOT1SPR, BABOBBASHOT1SPR, think, false, false, 0, 0, 0, T_Projectile, C_Lethal, R_Bounce, &s_babobbashot2}; +statetype s_babobbashot2 = {BABOBBASHOT2SPR, BABOBBASHOT2SPR, step, false, false, 8, 0, 0, T_BabobbaShot, C_Lethal, R_Draw, &s_babobbashot3}; +statetype s_babobbashot3 = {BABOBBASHOT1SPR, BABOBBASHOT1SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_babobbashot2}; +statetype s_babobbashotvanish1 = {BABOBBASHOT2SPR, BABOBBASHOT2SPR, step, false, false, 8, 0, 0, T_BabobbaShotVanish, C_Lethal, R_Draw, &s_babobbashotvanish2}; +statetype s_babobbashotvanish2 = {-1, -1, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_babobbashotvanish1}; + +/* +=========================== += += SpawnBabobba += +=========================== +*/ + +void SpawnBabobba(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = babobbaobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -2*TILEGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + new->ydir = 1; + NewState(new, &s_babobbajump1); +} + +/* +=========================== += += T_BabobbaStand += +=========================== +*/ + +void T_BabobbaStand(objtype *ob) +{ + Sint16 i; + Uint16 far *map; + + if (US_RndT() < 4) + { + ob->temp1 = 0; + ob->state = &s_babobbasleep1; + } + else if (++ob->temp1 == 3) + { + ob->temp1 = 0; + + GetNewObj(true); + new->active = ac_removable; + new->obclass = mshotobj; + new->y = ob->y + 4*PIXGLOBAL; + new->xdir = ob->xdir; + if (ob->xdir == 1) + { + new->x = ob->x + 16*PIXGLOBAL; + } + else + { + new->x = ob->x + 11*PIXGLOBAL; + } + new->xspeed = new->xdir << 5; + NewState(new, &s_babobbashot1); + new->priority = 2; + ob->state = &s_babobbaattack; + } + else + { + map = mapsegs[1] + mapbwidthtable[ob->tilebottom+1]/2 + ob->tilemidx; + for (i=0; i<4; map += ob->xdir, i++) + { + if ( !tinf[*map+NORTHWALL] + && !tinf[*(map-mapwidth)+NORTHWALL] + && !tinf[*(map+mapwidth)+NORTHWALL] ) + { + ob->xdir = -ob->xdir; + break; + } + } + ob->xspeed = ob->xdir *24; + ob->yspeed = -32; + } +} + +/* +=========================== += += C_Babobba += +=========================== +*/ + +void C_Babobba(objtype *ob, objtype *hit) +{ + if (hit->obclass == keenobj) + { + KillKeen(); + } + else if (hit->obclass == stunshotobj) + { + StunObj(ob, hit, &s_babobbastun1); + } +} + +/* +=========================== += += C_BabobbaSleep += +=========================== +*/ + +void C_BabobbaSleep(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + StunObj(ob, hit, &s_babobbastun1); + } +} + +/* +=========================== += += R_Babobba += +=========================== +*/ + +void R_Babobba(objtype *ob) +{ + if (ob->hiteast) + { + ob->xdir = 1; + ob->xspeed = -ob->xspeed; + } + else if (ob->hitwest) + { + ob->xdir = -1; + ob->xspeed = -ob->xspeed; + } + + if (ob->hitsouth) + ob->yspeed = 0; + + if (ob->hitnorth) + { + ChangeState(ob, &s_babobbastand); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +=========================== += += T_BabobbaShot += +=========================== +*/ + +void T_BabobbaShot(objtype *ob) +{ + if (++ob->temp1 == 10) + { + ob->temp1 = 0; + ob->state = &s_babobbashotvanish1; + } +} + +/* +=========================== += += T_BabobbaShotVanish += +=========================== +*/ + +void T_BabobbaShotVanish(objtype *ob) +{ + if (++ob->temp1 == 5) + { + RemoveObj(ob); + } +} + +/* +============================================================================= + + BLORB + +============================================================================= +*/ + +statetype s_blorb1 = {BLORB1SPR, BLORB1SPR, slide, false, false, 20, 8, 8, 0, C_Lethal, R_Blorb, &s_blorb2}; +statetype s_blorb2 = {BLORB2SPR, BLORB2SPR, slide, false, false, 20, 8, 8, 0, C_Lethal, R_Blorb, &s_blorb3}; +statetype s_blorb3 = {BLORB3SPR, BLORB3SPR, slide, false, false, 20, 8, 8, 0, C_Lethal, R_Blorb, &s_blorb1}; + +/* +=========================== += += SpawnBlorb += +=========================== +*/ + +void SpawnBlorb(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = blorbobj; + new->active = ac_yes; + new->priority = 0; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL; + if (US_RndT() < 0x80) + { + new->xdir = 1; + } + else + { + new->xdir = -1; + } + if (US_RndT() < 0x80) + { + new->ydir = 1; + } + else + { + new->ydir = -1; + } + new->needtoclip = cl_fullclip; + NewState(new, &s_blorb1); +} + +/* +=========================== += += R_Blorb += +=========================== +*/ + +void R_Blorb(objtype *ob) +{ + if (ob->hitnorth) + { + ob->ydir = -1; + SD_PlaySound(SND_BLORBBOUNCE); + } + else if (ob->hitsouth) + { + ob->ydir = 1; + SD_PlaySound(SND_BLORBBOUNCE); + } + if (ob->hitwest) + { + ob->xdir = -1; + SD_PlaySound(SND_BLORBBOUNCE); + } + else if (ob->hiteast) + { + ob->xdir = 1; + SD_PlaySound(SND_BLORBBOUNCE); + } + RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority); +} + +/* +============================================================================= + + CEILICK + +temp1 = initial y position + +============================================================================= +*/ + +statetype s_ceilickhidden = {TONGUE1SPR, TONGUE1SPR, think, false, false, 20, 0, 0, T_CeilickHidden, NULL, R_Draw, NULL}; +statetype s_ceilickattack1 = {TONGUE1SPR, TONGUE1SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_ceilickattack2}; +statetype s_ceilickattack2 = {TONGUE2SPR, TONGUE2SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack3}; +statetype s_ceilickattack3 = {TONGUE3SPR, TONGUE3SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack4}; +statetype s_ceilickattack4 = {TONGUE4SPR, TONGUE4SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack5}; +statetype s_ceilickattack5 = {TONGUE5SPR, TONGUE5SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack6}; +statetype s_ceilickattack6 = {TONGUE4SPR, TONGUE4SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack7}; +statetype s_ceilickattack7 = {TONGUE3SPR, TONGUE3SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack8}; +statetype s_ceilickattack8 = {TONGUE4SPR, TONGUE4SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack9}; +statetype s_ceilickattack9 = {TONGUE5SPR, TONGUE5SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack10}; +statetype s_ceilickattack10 = {TONGUE2SPR, TONGUE2SPR, step, false, false, 10, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack11}; +statetype s_ceilickattack11 = {TONGUE1SPR, TONGUE1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_ceilicklaugh1}; +statetype s_ceilicklaugh1 = {CEILICK1SPR, CEILICK1SPR, slide, true, false, 16, 0, 16, T_CeilickLaugh, C_Ceilick, R_Draw, &s_ceilicklaugh2}; +statetype s_ceilicklaugh2 = {CEILICK2SPR, CEILICK2SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh3}; +statetype s_ceilicklaugh3 = {CEILICK1SPR, CEILICK1SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh4}; +statetype s_ceilicklaugh4 = {CEILICK2SPR, CEILICK2SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh5}; +statetype s_ceilicklaugh5 = {CEILICK1SPR, CEILICK1SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh6}; +statetype s_ceilicklaugh6 = {CEILICK2SPR, CEILICK2SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh7}; +statetype s_ceilicklaugh7 = {CEILICK1SPR, CEILICK1SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh8}; +statetype s_ceilicklaugh8 = {CEILICK1SPR, CEILICK1SPR, slide, true, false, 16, 0, -16, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh9}; +statetype s_ceilicklaugh9 = {-1, -1, step, true, false, 60, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilickhidden}; +statetype s_ceilickstun = {CEILICKSTUNSPR, CEILICKSTUNSPR, think, true, false, 0, 0, 0, T_CeilickStunned, NULL, R_Stunned, NULL}; + +/* +=========================== += += SpawnCeilick += +=========================== +*/ + +void SpawnCeilick(Uint16 tileX, Uint16 tileY) +{ + GetNewObj(false); + new->obclass = ceilickobj; + new->active = ac_yes; + new->priority = 0; + new->needtoclip = cl_noclip; + new->x = CONVERT_TILE_TO_GLOBAL(tileX); + new->y = new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY); + new->ydir = 1; + NewState(new, &s_ceilickhidden); +} + +/* +=========================== += += T_CeilickHidden += +=========================== +*/ + +void T_CeilickHidden(objtype *ob) +{ + if ( player->y - ob->y <= 40*PIXGLOBAL + && player->left < ob->right+PIXGLOBAL + && player->right > ob->left-PIXGLOBAL ) + { + SD_PlaySound(SND_CEILICKATTACK); + ob->state = &s_ceilickattack1; + } +} + +/* +=========================== += += T_CeilickLaugh += +=========================== +*/ + +#pragma argsused +void T_CeilickLaugh(objtype *ob) +{ + SD_PlaySound(SND_CEILICKLAUGH); +} + +/* +=========================== += += T_CeilickStunned += +=========================== +*/ + +void T_CeilickStunned(objtype *ob) +{ + ob->needtoreact = true; // to make sure the stunned stars animate +} + +/* +=========================== += += C_Ceilick += +=========================== +*/ + +void C_Ceilick(objtype *ob, objtype *hit) +{ + if (hit->obclass == stunshotobj) + { + ob->y = ob->temp1; + ExplodeShot(hit); + ob->temp1 = ob->temp2 = ob->temp3 = 0; + ob->temp4 = ob->obclass; + ChangeState(ob, &s_ceilickstun); + ob->obclass = stunnedobj; + } +} \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN6/K6_DEF.H b/16/keen456/KEEN4-6/KEEN6/K6_DEF.H new file mode 100755 index 00000000..9453b52c --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/K6_DEF.H @@ -0,0 +1,518 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __K6_DEF__ +#define __K6_DEF__ + +/* +============================================================================= + + GLOBAL CONSTANTS + +============================================================================= +*/ + +#if GRMODE == CGAGR +#define MINMEMORY 255000l +#else +#define MINMEMORY 300000l +#endif + +#define STARPALETTE {0, 1, 24, 25, 4, 28, 6, 7, 31, 31, 31, 31, 31, 31, 31, 31, 0} +#define INTROPALETTE {0, 5, 5, 21, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 19, 0} +#define SHRINKPALETTE {0, 5, 5, 21, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 5, 0} + +#define HIGHSCORE_LEFT 40 +#define HIGHSCORE_TOP 51 +#define HIGHSCORE_RIGHT 280 +#define HIGHSCORE_MAP 18 + +#define STATUS_PRESSKEY_X 120 + +#define WORLDMAPNAME "Fribbulus Xax" +#define DROPSNAME "VIVAS" + +#define STARWARSMUSIC 13 +#define ENDINGMUSIC 1 + +// levels in this range can NOT be re-entered (BWB level should be > MAXDONELEVEL) +#define MINDONELEVEL 1 +#define MAXDONELEVEL 16 + +#define INACTIVATEDIST 4 + +// +// tiles for worldmap teleporters +// +#define TELEPORTERTILE1 2613 // tile animation for teleporting out +#define TELEPORTERTILE2 2629 // tile after teleporting out +#define TELEPORTERTILE3 TELEPORTERTILE1 // tile animation for teleporting in +#define TELEPORTERTILE4 TELEPORTERTILE2 // tile after teleporting in + +#define TELEPORERTILEMASK 3 // animation has 4 frames + +extern Sint16 groundslam; + +//HACKs: +//#define US_ManualCheck() true +boolean US_ManualCheck(void); + +/* +============================================================================= + + K6_SPEC DEFINITIONS + +============================================================================= +*/ + +extern char far swtext[]; +extern char far *levelnames[GAMELEVELS]; +extern char far *levelenter[GAMELEVELS]; + +void ScanInfoPlane(void); + +extern statetype s_keenstun; + +void FlipBigSwitch(objtype *ob, boolean isup); +void GotSandwich(void); +void GotHook(void); +void GotPasscard(void); + + +/* +============================================================================= + + K6_ACT1 DEFINITIONS + +============================================================================= +*/ + +extern Sint16 pdirx[]; +extern Sint16 pdiry[]; + +void C_ClipSide(objtype *ob, objtype *hit); +void C_ClipTop(objtype *ob, objtype *hit); +void R_Land(objtype *ob); +void R_Bounce(objtype *ob); + +extern statetype s_bonus1; +extern statetype s_bonus2; +extern statetype s_bonusfly1; +extern statetype s_bonusfly2; +extern statetype s_bonusrise; + +extern statetype s_splash1; +extern statetype s_splash2; +extern statetype s_splash3; +extern statetype s_splash4; + +extern Uint16 bonusshape[]; + +void SpawnBonus(Uint16 tileX, Uint16 tileY, Uint16 type); +void SpawnSplash(Uint16 tileX, Uint16 tileY); +void T_Bonus(objtype *ob); +void T_FlyBonus(objtype *ob); + +extern statetype s_grabbiter1; +extern statetype s_grabbiter2; +extern statetype s_grabbitersleep1; +extern statetype s_grabbitersleep2; + +void SpawnGrabbiter(Uint16 tileX, Uint16 tileY); +void C_Grabbiter(objtype *ob, objtype *hit); + +extern statetype s_rocket; +extern statetype s_rocketfly1; +extern statetype s_rocketfly2; +extern statetype s_keenrocket; + +void SpawnRocket(Uint16 tileX, Uint16 tileY, Uint16 state); +void T_Rocket(objtype *ob); +void C_Rocket(objtype *ob, objtype *hit); +void C_RocketFly(objtype *ob, objtype *hit); +void T_RocketFly(objtype *ob); + +extern statetype s_grapplespot; +extern statetype s_throwrope1; +extern statetype s_throwrope2; +extern statetype s_climbrope1; +extern statetype s_climbrope2; +extern statetype s_maprope; +extern statetype s_mapropeshort; + +void SpawnGrappleSpot(Uint16 tileX, Uint16 tileY, Uint16 type); +void T_ThrowRope(objtype *ob); +void T_ClimbRope(objtype *ob); +void C_GrappleSpot(objtype *ob, objtype *hit); + +extern statetype s_satellitestopspot; +extern statetype s_worldkeensatellite; +extern statetype s_satellite1; +extern statetype s_satellite2; +extern statetype s_satellite3; +extern statetype s_satellite4; + +void SpawnSatelliteStop(Uint16 tileX, Uint16 tileY, Uint16 type); +void SpawnSatellite(Uint16 tileX, Uint16 tileY); +void T_Satellite(objtype *ob); +void C_Satellite(objtype *ob, objtype *hit); +void R_WorldKeenSatellite(objtype *ob); + +extern statetype s_sandwich; + +void SpawnSandwich(Uint16 tileX, Uint16 tileY); + +extern statetype s_hook; + +void SpawnHook(Uint16 tileX, Uint16 tileY); + +extern statetype s_passcard; + +void SpawnPasscard(Uint16 tileX, Uint16 tileY); +void C_Molly(objtype *ob, objtype *hit); + +extern statetype s_molly1; +extern statetype s_molly2; +extern statetype s_molly3; +extern statetype s_molly4; + +void SpawnMolly(Uint16 tileX, Uint16 tileY); + +extern statetype s_platform; + +void SpawnPlatform(Uint16 tileX, Uint16 tileY, Sint16 dir); +void T_Platform(objtype *ob); + +extern statetype s_dropplatsit; +extern statetype s_fallplatfall; +extern statetype s_fallplatrise; + +void SpawnDropPlat(Uint16 tileX, Uint16 tileY); +void T_DropPlatSit(objtype *ob); +void T_DropPlatFall(objtype *ob); +void T_DropPlatRise(objtype *ob); + +extern statetype s_staticplatform; + +void SpawnStaticPlat(Uint16 tileX, Uint16 tileY); + +extern statetype s_goplat; + +void SpawnGoPlat(Uint16 tileX, Uint16 tileY, Sint16 dir); +void T_GoPlat(objtype *ob); +void R_GoPlat(objtype *ob); + +extern statetype s_sneakplatsit; +extern statetype s_sneakplatdodge; +extern statetype s_sneakplatreturn; + +void SpawnSneakPlat(Uint16 tileX, Uint16 tileY); +void T_SneakPlat(objtype *ob); + +extern statetype s_bloogwalk1; +extern statetype s_bloogwalk2; +extern statetype s_bloogwalk3; +extern statetype s_bloogwalk4; +extern statetype s_bloogstun; + +void SpawnBloog(Uint16 tileX, Uint16 tileY); +void T_BloogWalk(objtype *ob); +void C_Bloog(objtype *ob, objtype *hit); + +extern statetype s_blooguardwalk1; +extern statetype s_blooguardwalk2; +extern statetype s_blooguardwalk3; +extern statetype s_blooguardwalk4; +extern statetype s_blooguardattack1; +extern statetype s_blooguardattack2; +extern statetype s_blooguardattack3; +extern statetype s_blooguardattack4; +extern statetype s_blooguardstun; + +void SpawnBlooguard(Uint16 tileX, Uint16 tileY); +void T_BlooguardWalk(objtype *ob); +void T_BlooguardAttack(objtype *ob); +void C_Blooguard(objtype *ob, objtype *hit); +void R_Blooguard(objtype *ob); + +extern statetype s_rbloogletwalk1; +extern statetype s_rbloogletwalk2; +extern statetype s_rbloogletwalk3; +extern statetype s_rbloogletwalk4; +extern statetype s_rbloogletstun; +extern statetype s_ybloogletwalk1; +extern statetype s_ybloogletwalk2; +extern statetype s_ybloogletwalk3; +extern statetype s_ybloogletwalk4; +extern statetype s_ybloogletstun; +extern statetype s_bbloogletwalk1; +extern statetype s_bbloogletwalk2; +extern statetype s_bbloogletwalk3; +extern statetype s_bbloogletwalk4; +extern statetype s_bbloogletstun; +extern statetype s_gbloogletwalk1; +extern statetype s_gbloogletwalk2; +extern statetype s_gbloogletwalk3; +extern statetype s_gbloogletwalk4; +extern statetype s_gbloogletstun; + +void SpawnBlooglet(Uint16 tileX, Uint16 tileY, Sint16 type); +void C_Blooglet(objtype *ob, objtype *hit); + +/* +============================================================================= + + K6_ACT2 DEFINITIONS + +============================================================================= +*/ + +extern statetype s_nospikestand; +extern statetype s_nospikewalk1; +extern statetype s_nospikewalk2; +extern statetype s_nospikewalk3; +extern statetype s_nospikewalk4; +extern statetype s_nospikerun1; +extern statetype s_nospikerun2; +extern statetype s_nospikerun3; +extern statetype s_nospikerun4; +extern statetype s_nospikeconfused1; +extern statetype s_nospikeconfused2; +extern statetype s_nospikeconfused3; +extern statetype s_nospikefall; +extern statetype s_nospikestun; + +void SpawnNospike(Uint16 tileX, Uint16 tileY); +void T_NospikeWalk(objtype *ob); +void T_NospikeRun(objtype *ob); +void C_Nospike(objtype *ob, objtype *hit); +void T_NospikeConfused(objtype* ob); +void R_NospikeConfused(objtype *ob); +void R_NospikeFall(objtype *ob); +void R_NospikeRun(objtype *ob); + +extern statetype s_gikwalk1; +extern statetype s_gikwalk2; +extern statetype s_gikwalk3; +extern statetype s_gikjump; +extern statetype s_gikslide1; +extern statetype s_gikslide2; +extern statetype s_gikstand; + +void SpawnGik(Uint16 tileX, Uint16 tileY); +void T_GikWalk(objtype *ob); +void T_GikSlide(objtype *ob); +void R_GikJump(objtype *ob); +void R_GikSlide(objtype *ob); + +extern statetype s_cannon; +extern statetype s_cannonfire; +extern statetype s_cshot1; +extern statetype s_cshot2; +extern statetype s_cshot3; +extern statetype s_cshot4; +extern statetype s_cshothit1; +extern statetype s_cshothit2; + +void SpawnCannon(Uint16 tileX, Uint16 tileY, Sint16 dir); +void T_Cannon(objtype *ob); +void C_CShot(objtype *ob, objtype *hit); +void R_CShot(objtype *ob); + +extern statetype s_orbatrix1; +extern statetype s_orbatrix2; +extern statetype s_orbatrixcurl1; +extern statetype s_orbatrixcurl2; +extern statetype s_orbatrixcurl3; +extern statetype s_orbatrixuncurl1; +extern statetype s_orbatrixuncurl2; +extern statetype s_orbatrixidle1; +extern statetype s_orbatrixidle2; +extern statetype s_orbatrixidle3; +extern statetype s_orbatrixidle4; +extern statetype s_orbatrixbounce1; +extern statetype s_orbatrixbounce2; +extern statetype s_orbatrixbounce3; +extern statetype s_orbatrixbounce4; + +void SpawnOrbatrix(Uint16 tileX, Uint16 tileY); +void T_OrbatrixFly(objtype *ob); +void C_Orbatrix(objtype *ob, objtype *hit); +void R_Orbatrix(objtype *ob); +void R_OrbatrixBounce(objtype *ob); +void T_OrbatrixCurl(objtype *ob); +void T_OrbatrixUncurl(objtype *ob); +void C_OrbatrixBounce(objtype *ob, objtype *hit); + +extern statetype s_bipstand; +extern statetype s_bipwalk1; +extern statetype s_bipwalk2; +extern statetype s_bipwalk3; +extern statetype s_bipwalk4; +extern statetype s_bipsquished; + +void T_BipWalk(objtype *ob); +void C_Bip(objtype *ob, objtype *hit); + +extern statetype s_bipship; +extern statetype s_bipshipshot; +extern statetype s_bipshipturn1; +extern statetype s_bipshipturn2; +extern statetype s_bipshipturn3; +extern statetype s_bipshipturn4; +extern statetype s_bipshipexplode1; +extern statetype s_bipshipexplode2; +extern statetype s_bipshipexplode3; +extern statetype s_bipshipsmoke1; +extern statetype s_bipshipsmoke2; + +void SpawnBipship(Uint16 tileX, Uint16 tileY); +void R_BipShot(objtype *ob); +void T_BipshipTurn(objtype *ob); +void T_BipshipFly(objtype *ob); +void T_BipshipExplode(objtype *ob); +void C_Bipship(objtype *ob, objtype *hit); + +extern statetype s_flectstand; +extern statetype s_flectturn; +extern statetype s_flectwalk1; +extern statetype s_flectwalk2; +extern statetype s_flectwalk3; +extern statetype s_flectwalk4; +extern statetype s_flectstun; + +void SpawnFlect(Uint16 tileX, Uint16 tileY); +void T_FlectStand(objtype *ob); +void T_FlectWalk(objtype *ob); +void C_Flect(objtype *ob, objtype *hit); +void R_Flect(objtype *ob); + +/* +============================================================================= + + K6_ACT3 DEFINITIONS + +============================================================================= +*/ + +extern statetype s_fleexwalk1; +extern statetype s_fleexwalk2; +extern statetype s_fleexrun1; +extern statetype s_fleexrun2; +extern statetype s_fleexrun3; +extern statetype s_fleexrun4; +extern statetype s_fleexlook1; +extern statetype s_fleexlook2; +extern statetype s_fleexstun; + +void SpawnFleex(Uint16 tileX, Uint16 tileY); +void T_FleexWalk(objtype *ob); +void T_FleexLook(objtype *ob); +void C_Fleex(objtype *ob, objtype *hit); + +extern statetype s_bobbajump1; +extern statetype s_bobbajump2; +extern statetype s_bobbastand; +extern statetype s_bobbaattack; +extern statetype s_bobbashot1; +extern statetype s_bobbashot2; +extern statetype s_bobbashot3; +extern statetype s_bobbashot4; +extern statetype s_bobbashot5; +extern statetype s_bobbashot6; +extern statetype s_bobbashot7; +extern statetype s_bobbashot8; +extern statetype s_bobbashotvanish1; +extern statetype s_bobbashotvanish2; +extern statetype s_bobbashotvanish3; + +void SpawnBobba(Uint16 tileX, Uint16 tileY); +void T_BobbaShot(objtype *ob); +void T_BobbaStand(objtype *ob); +void C_Bobba(objtype *ob, objtype *hit); +void R_Bobba(objtype *ob); +void R_BobbaShot(objtype *ob); + +extern statetype s_babobbajump1; +extern statetype s_babobbajump2; +extern statetype s_babobbastand; +extern statetype s_babobbaattack; +extern statetype s_babobbastun1; +extern statetype s_babobbastun2; +extern statetype s_babobbasleep1; +extern statetype s_babobbasleep2; +extern statetype s_babobbasleep3; +extern statetype s_babobbasleep4; +extern statetype s_babobbasleep5; +extern statetype s_babobbasleep6; +extern statetype s_babobbasleep7; +extern statetype s_babobbashot1; +extern statetype s_babobbashot2; +extern statetype s_babobbashot3; +extern statetype s_babobbashotvanish1; +extern statetype s_babobbashotvanish2; + +void SpawnBabobba(Uint16 tileX, Uint16 tileY); +void T_BabobbaStand(objtype *ob); +void C_Babobba(objtype *ob, objtype *hit); +void C_BabobbaSleep(objtype *ob, objtype *hit); +void R_Babobba(objtype *ob); +void T_BabobbaShot(objtype *ob); +void T_BabobbaShotVanish(objtype *ob); + +extern statetype s_blorb1; +extern statetype s_blorb2; +extern statetype s_blorb3; + +void SpawnBlorb(Uint16 tileX, Uint16 tileY); +void R_Blorb(objtype *ob); + +extern statetype s_ceilickhidden; +extern statetype s_ceilickattack1; +extern statetype s_ceilickattack2; +extern statetype s_ceilickattack3; +extern statetype s_ceilickattack4; +extern statetype s_ceilickattack5; +extern statetype s_ceilickattack6; +extern statetype s_ceilickattack7; +extern statetype s_ceilickattack8; +extern statetype s_ceilickattack9; +extern statetype s_ceilickattack10; +extern statetype s_ceilickattack11; +extern statetype s_ceilicklaugh1; +extern statetype s_ceilicklaugh2; +extern statetype s_ceilicklaugh3; +extern statetype s_ceilicklaugh4; +extern statetype s_ceilicklaugh5; +extern statetype s_ceilicklaugh6; +extern statetype s_ceilicklaugh7; +extern statetype s_ceilicklaugh8; +extern statetype s_ceilicklaugh9; +extern statetype s_ceilickstun; + +void SpawnCeilick(Uint16 tileX, Uint16 tileY); +void T_CeilickHidden(objtype *ob); +void T_CeilickLaugh(objtype *ob); +void T_CeilickStunned(objtype *ob); +void C_Ceilick(objtype *ob, objtype *hit); + +#endif \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN6/K6_SPEC.C b/16/keen456/KEEN4-6/KEEN6/K6_SPEC.C new file mode 100755 index 00000000..ab7c1d14 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/K6_SPEC.C @@ -0,0 +1,887 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is loosely based on: + * Keen Dreams Source Code + * Copyright (C) 2014 Javier M. Chavez + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +/* +K6_SPEC.C +========= + +Contains (in this order): + +- lump definition +- "Star Wars" crawl text +- level names & messages +- ScanInfoPlane() - for spawning the level objects and marking required sprites +- stunned state for Keen +- code to flip the big yellow switches +- messages for sandwich, rope and passcard +*/ + +#include "CK_DEF.H" + +enum { + CONTROLS_LUMP, // 0 + KEEN_LUMP, // 1 + SUGAR1_LUMP, // 2 + SUGAR2_LUMP, // 3 + SUGAR3_LUMP, // 4 + SUGAR4_LUMP, // 5 + SUGAR5_LUMP, // 6 + SUGAR6_LUMP, // 7 + ONEUP_LUMP, // 8 + KEYGEM_LUMP, // 9 + AMMO_LUMP, // 10 + WORLDKEEN_LUMP, // 11 + UNUSED1_LUMP, // 12 + BLOOG_LUMP, // 13 + RBLOOGLET_LUMP, // 14 + YBLOOGLET_LUMP, // 15 + BBLOOGLET_LUMP, // 16 + GBLOOGLET_LUMP, // 17 + PLATFORM_LUMP, // 18 + GIK_LUMP, // 19 + BLORB_LUMP, // 20 + BOBBA_LUMP, // 21 + BABOBBA_LUMP, // 22 + BLOOGUARD_LUMP, // 23 + FLECT_LUMP, // 24 + BIP_LUMP, // 25 + BIPSQUISHED_LUMP, // 26 + BIPSHIP_LUMP, // 27 + NOSPIKE_LUMP, // 28 + ORBATRIX_LUMP, // 29 + CEILICK_LUMP, // 30 + FLEEX_LUMP, // 31 + HOOK_LUMP, // 32 + SANDWICH_LUMP, // 33 + LASER_LUMP, // 34 + PASSCARD_LUMP, // 35 + MOLLY_LUMP, // 36 + + NUMLUMPS=40 // Keen 6 has 3 unused lumps at the end +}; + +Uint16 lumpstart[NUMLUMPS] = { + CONTROLS_LUMP_START, + KEEN_LUMP_START, + SUGAR1_LUMP_START, + SUGAR2_LUMP_START, + SUGAR3_LUMP_START, + SUGAR4_LUMP_START, + SUGAR5_LUMP_START, + SUGAR6_LUMP_START, + ONEUP_LUMP_START, + KEYGEM_LUMP_START, + AMMO_LUMP_START, + WORLDKEEN_LUMP_START, + 0, + BLOOG_LUMP_START, + RBLOOGLET_LUMP_START, + YBLOOGLET_LUMP_START, + BBLOOGLET_LUMP_START, + GBLOOGLET_LUMP_START, + PLATFORM_LUMP_START, + GIK_LUMP_START, + BLORB_LUMP_START, + BOBBA_LUMP_START, + BABOBBA_LUMP_START, + BLOOGUARD_LUMP_START, + FLECT_LUMP_START, + BIP_LUMP_START, + BIPSQUISHED_LUMP_START, + BIPSHIP_LUMP_START, + NOSPIKE_LUMP_START, + ORBATRIX_LUMP_START, + CEILICK_LUMP_START, + FLEEX_LUMP_START, + HOOK_LUMP_START, + SANDWICH_LUMP_START, + LASER_LUMP_START, + PASSCARD_LUMP_START, + MOLLY_LUMP_START +}; + +Uint16 lumpend[NUMLUMPS] = { + CONTROLS_LUMP_END, + KEEN_LUMP_END, + SUGAR1_LUMP_END, + SUGAR2_LUMP_END, + SUGAR3_LUMP_END, + SUGAR4_LUMP_END, + SUGAR5_LUMP_END, + SUGAR6_LUMP_END, + ONEUP_LUMP_END, + KEYGEM_LUMP_END, + AMMO_LUMP_END, + WORLDKEEN_LUMP_END, + 0, + BLOOG_LUMP_END, + RBLOOGLET_LUMP_END, + YBLOOGLET_LUMP_END, + BBLOOGLET_LUMP_END, + GBLOOGLET_LUMP_END, + PLATFORM_LUMP_END, + GIK_LUMP_END, + BLORB_LUMP_END, + BOBBA_LUMP_END, + BABOBBA_LUMP_END, + BLOOGUARD_LUMP_END, + FLECT_LUMP_END, + BIP_LUMP_END, + BIPSQUISHED_LUMP_END, + BIPSHIP_LUMP_END, + NOSPIKE_LUMP_END, + ORBATRIX_LUMP_END, + CEILICK_LUMP_END, + FLEEX_LUMP_END, + HOOK_LUMP_END, + SANDWICH_LUMP_END, + LASER_LUMP_END, + PASSCARD_LUMP_END, + MOLLY_LUMP_END +}; + +boolean lumpneeded[NUMLUMPS]; + +#if GRMODE == EGAGR + +char far swtext[] = + "Episode Six\n" + "\n" + "Aliens Ate My\n" + "Baby Sitter!\n" + "\n" + "While out in his\n" + "backyard clubhouse,\n" + "Billy's baby sitter\n" + "Molly calls him for\n" + "dinner. He continues\n" + "working on his new\n" + "wrist computer.\n" + "\n" + "Suddenly, there is a\n" + "loud noise outside.\n" + "\n" + "Rushing out, Keen finds\n" + "his baby sitter gone\n" + "and a note on a patch\n" + "of scorched grass. The\n" + "Bloogs of Fribbulus Xax\n" + "are going to make a\n" + "meal out of Molly!\n" + "\n" + "You've got to rescue\n" + "her, because your\n" + "parents will never\n" + "believe you when you\n" + "tell them...\n" + "\n" + "\"Aliens Ate My\n" + "Baby Sitter!\"\n"; + +#endif + +char far l0n[] = "Fribbulus Xax"; +char far l1n[] = "Bloogwaters\nCrossing"; +char far l2n[] = "Guard Post One"; +char far l3n[] = "First Dome\nof Darkness"; +char far l4n[] = "Second Dome\nof Darkness"; +char far l5n[] = "The Bloogdome"; +char far l6n[] = "Bloogton Mfg.,\nIncorporated"; +char far l7n[] = "Bloogton Tower"; +char far l8n[] = "Bloogfoods, Inc."; +char far l9n[] = "Guard Post Two"; +char far l10n[] = "Bloogville"; +char far l11n[] = "BASA"; +char far l12n[] = "Guard Post Three"; +char far l13n[] = "Bloogbase Rec\nDistrict"; +char far l14n[] = "Bloogbase Mgmt.\nDistrict"; +char far l15n[] = "Bloog Control Center"; +char far l16n[] = "Blooglab"; +char far l17n[] = "Bean-with-Bacon\nMegarocket"; +char far l18n[] = "High Scores"; + +char far l0e[] = "Keen attacks\nFribbulus Xax"; +char far l1e[] = "Keen hops across\nBloogwaters\nCrossing"; +char far l2e[] = "Keen fights his way\nthrough Guard Post One"; +char far l3e[] = "Keen crosses into the\nFirst Dome of Darkness"; +char far l4e[] = "Keen dares to enter the\nSecond Dome of Darkness"; +char far l5e[] = "Keen foolishly enters\nthe Bloogdome"; +char far l6e[] = "Keen makes his way\ninto Bloogton\nManufacturing"; +char far l7e[] = "Keen ascends\nBloogton Tower"; +char far l8e[] = "Keen hungrily enters\nBloogfoods, Inc."; +char far l9e[] = "Keen smashes through\nGuard Post Two"; +char far l10e[] = "Keen seeks thrills\nin Bloogville"; +char far l11e[] = "Keen rockets into the\nBloog Aeronautics and\nSpace Administration"; +char far l12e[] = "Keen boldly assaults\nGuard Post Three"; +char far l13e[] = "Keen whoops it up in\nthe Bloogbae\nRecreational District"; // sic! +char far l14e[] = "Keen purposefully struts\ninto the Bloogbase\nManagement District"; +char far l15e[] = "Keen bravely enters the\nBloog Control Center,\nlooking for Molly"; +char far l16e[] = "Keen warily enters\nBlooglab Space\nStation"; +char far l17e[] = "Keen returns to the\nBean-with-Bacon\nMegarocket"; +char far l18e[] = "Keen is in the High\nScore screen. Call Id!"; + +char far *levelnames[GAMELEVELS] = { + l0n, + l1n, + l2n, + l3n, + l4n, + l5n, + l6n, + l7n, + l8n, + l9n, + l10n, + l11n, + l12n, + l13n, + l14n, + l15n, + l16n, + l17n, + l18n +}; + +char far *levelenter[GAMELEVELS] = { + l0e, + l1e, + l2e, + l3e, + l4e, + l5e, + l6e, + l7e, + l8e, + l9e, + l10e, + l11e, + l12e, + l13e, + l14e, + l15e, + l16e, + l17e, + l18e +}; + +Uint16 bonuslump[] = { + KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP, + SUGAR1_LUMP, SUGAR2_LUMP, SUGAR3_LUMP, + SUGAR4_LUMP, SUGAR5_LUMP, SUGAR6_LUMP, + ONEUP_LUMP, AMMO_LUMP, AMMO_LUMP, 0, 0 +}; + +//============================================================================ + +/* +========================== += += ScanInfoPlane += += Spawn all actors and mark down special places += +========================== +*/ + +void ScanInfoPlane(void) +{ + Uint16 i, x, y, chunk; + Sint16 info; + Uint16 far *map; + objtype *ob; + + InitObjArray(); // start spawning things with a clean slate + + memset(lumpneeded, 0, sizeof(lumpneeded)); + map = mapsegs[2]; + + for (y=0; y 10) + lumpneeded[KEYGEM_LUMP] = true; + break; + + case 15: + case 16: + SpawnGrappleSpot(x, y, info-15); + break; + + // case 17 is not used + + case 20: + if (gamestate.difficulty < gd_Hard) + break; + case 19: + if (gamestate.difficulty < gd_Normal) + break; + case 18: + SpawnFleex(x, y); + lumpneeded[FLEEX_LUMP] = true; + break; + + case 21: + case 22: + case 23: + case 24: + SpawnMolly(x, y); + lumpneeded[MOLLY_LUMP] = true; + break; + + case 25: + RF_SetScrollBlock(x, y, true); + break; + + case 26: + RF_SetScrollBlock(x, y, false); + break; + + case 27: + case 28: + case 29: + case 30: + SpawnPlatform(x, y, info-27); + lumpneeded[PLATFORM_LUMP] = true; + break; + + // case 31 is the block icon + + case 32: + SpawnDropPlat(x, y); + lumpneeded[PLATFORM_LUMP] = true; + break; + + case 35: + SpawnStaticPlat(x, y); + lumpneeded[PLATFORM_LUMP] = true; + break; + case 34: + if (gamestate.difficulty > gd_Normal) + break; + SpawnStaticPlat(x, y); + lumpneeded[PLATFORM_LUMP] = true; + break; + case 33: + if (gamestate.difficulty > gd_Easy) + break; + SpawnStaticPlat(x, y); + lumpneeded[PLATFORM_LUMP] = true; + break; + + case 36: + case 37: + case 38: + case 39: + SpawnGoPlat(x, y, info-36); + lumpneeded[PLATFORM_LUMP] = true; + lumpneeded[BIPSQUISHED_LUMP] = true; // why? + break; + + case 40: + SpawnSneakPlat(x, y); + lumpneeded[PLATFORM_LUMP] = true; + break; + + case 43: + if (gamestate.difficulty < gd_Hard) + break; + case 42: + if (gamestate.difficulty < gd_Normal) + break; + case 41: + SpawnBobba(x, y); + lumpneeded[BOBBA_LUMP] = true; + break; + + case 44: + case 45: + SpawnSatelliteStop(x, y, info-44); + break; + + // case 46 is not used + + case 49: + if (gamestate.difficulty < gd_Hard) + break; + case 48: + if (gamestate.difficulty < gd_Normal) + break; + case 47: + SpawnNospike(x, y); + lumpneeded[NOSPIKE_LUMP] = true; + break; + + case 52: + if (gamestate.difficulty < gd_Hard) + break; + case 51: + if (gamestate.difficulty < gd_Normal) + break; + case 50: + SpawnGik(x, y); + lumpneeded[GIK_LUMP] = true; + break; + + case 53: + case 54: + case 55: + case 56: + SpawnCannon(x, y, info-53); + lumpneeded[LASER_LUMP] = true; + break; + + case 69: + if (gamestate.ammo >= 5) + break; + info = 68; + // no break here! + case 57: + case 58: + case 59: + case 60: + case 61: + case 62: + case 63: + case 64: + case 65: + case 66: + case 67: + case 68: + SpawnBonus(x, y, info-57); + lumpneeded[bonuslump[info-57]] = true; + break; + + case 72: + if (gamestate.difficulty < gd_Hard) + break; + case 71: + if (gamestate.difficulty < gd_Normal) + break; + case 70: + SpawnOrbatrix(x, y); + lumpneeded[ORBATRIX_LUMP] = true; + break; + + case 75: + if (gamestate.difficulty < gd_Hard) + break; + case 74: + if (gamestate.difficulty < gd_Normal) + break; + case 73: + SpawnBipship(x, y); + lumpneeded[BIP_LUMP]=lumpneeded[BIPSHIP_LUMP]=lumpneeded[BIPSQUISHED_LUMP] = true; + break; + + case 78: + if (gamestate.difficulty < gd_Hard) + break; + case 77: + if (gamestate.difficulty < gd_Normal) + break; + case 76: + SpawnFlect(x, y); + lumpneeded[FLECT_LUMP] = true; + break; + + case 81: + if (gamestate.difficulty < gd_Hard) + break; + case 80: + if (gamestate.difficulty < gd_Normal) + break; + case 79: + SpawnBlorb(x, y); + lumpneeded[BLORB_LUMP] = true; + break; + + case 84: + if (gamestate.difficulty < gd_Hard) + break; + case 83: + if (gamestate.difficulty < gd_Normal) + break; + case 82: + SpawnCeilick(x, y); + lumpneeded[CEILICK_LUMP] = true; + break; + + case 87: + if (gamestate.difficulty < gd_Hard) + break; + case 86: + if (gamestate.difficulty < gd_Normal) + break; + case 85: + SpawnBlooguard(x, y); + lumpneeded[BLOOGUARD_LUMP] = true; + break; + + case 88: + SpawnGrabbiter(x, y); + // no additional lump needed - sprites are in WORLDKEEN_LUMP + break; + + case 89: + SpawnSatellite(x, y); + // no additional lump needed - sprites are in WORLDKEEN_LUMP + break; + + // case 90 is not used + // cases 91 to 98 are direction arrows + + case 99: + SpawnHook(x, y); + lumpneeded[HOOK_LUMP] = true; + break; + + case 100: + SpawnSandwich(x, y); + lumpneeded[SANDWICH_LUMP] = true; + break; + + case 101: + SpawnPasscard(x, y); + lumpneeded[PASSCARD_LUMP] = true; + break; + + case 104: + if (gamestate.difficulty < gd_Hard) + break; + case 103: + if (gamestate.difficulty < gd_Normal) + break; + case 102: + SpawnBabobba(x, y); + lumpneeded[BABOBBA_LUMP] = true; + break; + + case 105: + case 106: + SpawnRocket(x, y, info-105); + // no additional lump needed - sprites are in WORLDKEEN_LUMP + break; + } + } + } + + for (ob = player; ob; ob = ob->next) + { + if (ob->active != ac_allways) + ob->active = ac_no; + } + + for (i = 0; i < NUMLUMPS; i++) + { + if (lumpneeded[i]) + { + for (chunk = lumpstart[i]; chunk <= lumpend[i]; chunk++) + { + CA_MarkGrChunk(chunk); + } + } + } +} + +//============================================================================ + +statetype s_keenstun = {KEENSTUNSPR, KEENSTUNSPR, step, false, true, 60, 0, 0, T_Projectile, KeenContact, KeenStandReact, &s_keenstand}; + +//============================================================================ + +/* +=========================== += += FlipBigSwitch += +=========================== +*/ + +void FlipBigSwitch(objtype *ob, boolean isup) +{ + Uint16 x, y; + Uint16 far *map; + Uint16 top, mid, bot; + Uint16 *tileptr; + Uint16 tile, tx, ty, xi, yi, offset, anim; + Uint16 tiles[6]; + + // + // handle flipping the switch itself: + // + if (isup) + { + ty = ob->tilebottom; + } + else + { + ty = ob->tiletop - 2; + } + tx = ob->tileleft - 1; + map = mapsegs[2] + mapbwidthtable[ty+1]/2 + tx + 1; + while (*map == 0) + { + map++; + tx++; + } + map = mapsegs[1] + mapbwidthtable[ty]/2 + tx; + tileptr = tiles; + for (y = 0; y < 3; y++, map += mapwidth) + { + for (x = 0; x < 2; tileptr++, x++) + { + tile = map[x]; + *tileptr = tile + (Sint8)tinf[tile+MANIM]; + } + } + RF_MemToMap(tiles, 1, tx, ty, 2, 3); + + tile = *(mapsegs[2]+mapbwidthtable[ty+1]/2 + tx + 1); + x = tile >> 8; + y = tile & 0xFF; + SD_PlaySound(SND_USESWITCH); + + // + // toggle whatever was linked to the switch (at tile x, y): + // + offset = mapbwidthtable[y]/2 + x; + map = mapsegs[2] + offset; + tile = *map; + + if (tile >= DIRARROWSTART && tile < DIRARROWEND) + { + // turn direction arrow: + *map = arrowflip[tile-DIRARROWSTART] + DIRARROWSTART; + } + else + { + map = mapsegs[1] + offset; + tile = *map; + switch (tinf[tile+INTILE] & INTILE_TYPEMASK) + { + case INTILE_NOTHING: // no special tiles + mapsegs[2][offset] ^= PLATFORMBLOCK; + break; + + case INTILE_BRIDGE: // bridge + for (yi=y; y+2 > yi; yi++) + { + map = mapsegs[1] + mapbwidthtable[yi]/2 + x - (yi != y); + for (xi = x - (yi != y); xi < mapwidth; xi++) + { + tile = *map; + map++; + anim = tinf[tile + MANIM]; + if (!anim) + break; + tile += (Sint8)anim; + RF_MemToMap(&tile, 1, xi, yi, 1, 1); + } + } + break; + + case INTILE_FORCEFIELD: // active force field + map = mapsegs[1]; + top = *map; + mid = *++map; + bot = *++map; + map = mapsegs[1] + mapbwidthtable[y+1]/2 + x; + + RF_MemToMap(&top, 1, x, y++, 1, 1); + while (tinf[*map+INTILE] == INTILE_DEADLY) + { + RF_MemToMap(&mid, 1, x, y++, 1, 1); + map += mapwidth; + } + RF_MemToMap(&bot, 1, x, y, 1, 1); + break; + + case INTILE_FORCEFIELDEND: // inactive force field + map = mapsegs[1] + 3; + top = *map; + mid = *++map; + bot = *++map; + map = mapsegs[1] + mapbwidthtable[y+1]/2 + x; + + RF_MemToMap(&top, 1, x, y++, 1, 1); + while (tinf[*map+INTILE] != INTILE_FORCEFIELDEND) + { + RF_MemToMap(&mid, 1, x, y++, 1, 1); + map += mapwidth; + } + RF_MemToMap(&bot, 1, x, y, 1, 1); + } + } +} + +//============================================================================ + +/* +=========================== += += GotSandwich += +=========================== +*/ + +void GotSandwich(void) +{ + SD_WaitSoundDone(); + SD_PlaySound(SND_QUESTITEM); + CA_UpLevel(); // kinda useless without CA_CacheMarks or CA_SetGrPurge + // BUG: haven't made anything purgable here, caching the pic may cause an "out of memory" crash + CA_CacheGrChunk(KEENTALK1PIC); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 12; + US_CPrint( + "This is the second\n" + "biggest sandwich\n" + "I ever saw!\n" + ); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + CA_DownLevel(); + gamestate.sandwichstate = 1; +} + +/* +=========================== += += GotHook += +=========================== +*/ + +void GotHook(void) +{ + SD_WaitSoundDone(); + SD_PlaySound(SND_QUESTITEM); + CA_UpLevel(); // kinda useless without CA_CacheMarks or CA_SetGrPurge + // BUG: haven't made anything purgable here, caching the pic may cause an "out of memory" crash + CA_CacheGrChunk(KEENTALK1PIC); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 12; + US_CPrint( + "Wow! A rope and\n" + "grappling hook!\n" + "They look useful!\n" + ); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + CA_DownLevel(); + gamestate.hookstate = 1; +} + +/* +=========================== += += GotPasscard += +=========================== +*/ + +void GotPasscard(void) +{ + SD_WaitSoundDone(); + SD_PlaySound(SND_QUESTITEM); + CA_UpLevel(); // kinda useless without CA_CacheMarks or CA_SetGrPurge + // BUG: haven't made anything purgable here, caching the pic may cause an "out of memory" crash + CA_CacheGrChunk(KEENTALK1PIC); + + US_CenterWindow(26, 8); + VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC); + WindowW -= 48; + PrintY += 4; + US_CPrint( + "What's this? Cool!\n" + "A passcard for\n" + "the Bloogstar Rocket!\n" + "(It can fly through\n" + "their force field.)" + ); + VW_UpdateScreen(); + VW_WaitVBL(30); + IN_ClearKeysDown(); + IN_Ack(); + CA_DownLevel(); + gamestate.passcardstate = 1; +} diff --git a/16/keen456/KEEN4-6/KEEN6/OBJ/fix_RCK6_v15.pat b/16/keen456/KEEN4-6/KEEN6/OBJ/fix_RCK6_v15.pat new file mode 100755 index 00000000..9fb9c33d --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6/OBJ/fix_RCK6_v15.pat @@ -0,0 +1,3 @@ +%file RCK6E15.exe 109058 +%patch $1C 0 0 0 0 +%end \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.EQU b/16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.EQU new file mode 100755 index 00000000..3e71cb77 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.EQU @@ -0,0 +1,55 @@ +;===================================== +; +; Graphics .EQU file for .CK6 +; not IGRAB-ed :) +; +;===================================== + +;INCLUDE "VERSION.EQU" + +; +; Amount of each data item +; +NUMFONT = 2 +NUMFONTM = 0 +NUMPICM = 3 +NUMTILE8 = 108 +NUMTILE8M = 36 +NUMTILE32 = 0 +NUMTILE32M = 0 + +; +; Amount of each item in episode 6 +; +NUMPICS = 34 +NUMSPRITES = 390 +NUMTILE16 = 2376 +NUMTILE16M = 2736 +NUMEXTERN = 8 + + +; +; File offsets for data items +; +STRUCTPIC = 0 +STRUCTPICM = 1 +STRUCTSPRITE = 2 + +STARTFONT = 3 +STARTFONTM = (STARTFONT+NUMFONT) +STARTPICS = (STARTFONTM+NUMFONTM) +STARTPICM = (STARTPICS+NUMPICS) +STARTSPRITES = (STARTPICM+NUMPICM) +STARTTILE8 = (STARTSPRITES+NUMSPRITES) +STARTTILE8M = (STARTTILE8+1) +STARTTILE16 = (STARTTILE8M+1) +STARTTILE16M = (STARTTILE16+NUMTILE16) +STARTTILE32 = (STARTTILE16M+NUMTILE16M) +STARTTILE32M = (STARTTILE32+NUMTILE32) +STARTEXTERN = (STARTTILE32M+NUMTILE32M) + +NUMCHUNKS = (STARTEXTERN+NUMEXTERN) + +; +; Thank you for using IGRAB! +; diff --git a/16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.H b/16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.H new file mode 100755 index 00000000..d4c64559 --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6C/GFXC_CK6.H @@ -0,0 +1,667 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +#ifndef __GFX_H__ +#define __GFX_H__ + +//#include "VERSION.H" + +////////////////////////////////////// +// +// Graphics .H file for .CK6 +// not IGRAB-ed :) +// +////////////////////////////////////// + +// +// Lump creation macros +// + +#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1, +#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1, + +// +// Amount of each data item +// + +//common numbers: +#define NUMCHUNKS NUMGRCHUNKS +#define NUMFONT 2 +#define NUMFONTM 0 +#define NUMPICM 3 +#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH! +#define NUMTILE8M 36 // BUG: only 12 tiles exist in EGAGRAPH! +#define NUMTILE32 0 +#define NUMTILE32M 0 + +//episode-specific numbers: +#define NUMPICS 34 +#define NUMSPRITES 390 +#define NUMTILE16 2376 +#define NUMTILE16M 2736 +#define NUMEXTERNS 8 + +// +// File offsets for data items +// +#define STRUCTPIC 0 +#define STRUCTPICM 1 +#define STRUCTSPRITE 2 + +#define STARTFONT 3 +#define STARTFONTM (STARTFONT+NUMFONT) +#define STARTPICS (STARTFONTM+NUMFONTM) +#define STARTPICM (STARTPICS+NUMPICS) +#define STARTSPRITES (STARTPICM+NUMPICM) +#define STARTTILE8 (STARTSPRITES+NUMSPRITES) +#define STARTTILE8M (STARTTILE8+1) +#define STARTTILE16 (STARTTILE8M+1) +#define STARTTILE16M (STARTTILE16+NUMTILE16) +#define STARTTILE32 (STARTTILE16M+NUMTILE16M) +#define STARTTILE32M (STARTTILE32+NUMTILE32) +#define STARTEXTERNS (STARTTILE32M+NUMTILE32M) + +typedef enum { + LASTFONT=STARTPICS-1, + + // + // PICS + // + + PADDINGPIC, // 5 (compensate for the missing Star Wars font to give the other pics the correct chunk numbers) + + H_END1PIC, // 6 + H_END2PIC, // 7 + H_END3PIC, // 8 + H_END4PIC, // 9 + H_END5PIC, // 10 + + START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART) + CP_MAINMENUPIC, // 11 + CP_NEWGAMEMENUPIC, // 12 + CP_LOADMENUPIC, // 13 + CP_SAVEMENUPIC, // 14 + CP_CONFIGMENUPIC, // 15 + CP_SOUNDMENUPIC, // 16 + CP_MUSICMENUPIC, // 17 + CP_KEYBOARDMENUPIC, // 18 + CP_KEYMOVEMENTPIC, // 19 + CP_KEYBUTTONPIC, // 20 + CP_JOYSTICKMENUPIC, // 21 + CP_OPTIONSMENUPIC, // 22 + CP_PADDLEWARPIC, // 23 + CP_QUITPIC, // 24 + CP_JOYSTICKPIC, // 25 + CP_MENUSCREENPIC, // 26 + END_LUMP(CONTROLS_LUMP_END, __CONTROLSEND) + + H_FLASHARROW1PIC, // 27 + H_FLASHARROW2PIC, // 28 + + SW_BACKGROUNDPIC, // 33 + TITLEPICPIC, // 34 + KEENTALK1PIC, // 35 + KEENTALK2PIC, // 36 + KEENCOUNT1PIC, // 37 + KEENCOUNT2PIC, // 38 + KEENCOUNT3PIC, // 39 + KEENCOUNT4PIC, // 40 + KEENCOUNT5PIC, // 41 + KEENCOUNT6PIC, // 42 + + // + // MASKED PICS + // + + CP_MENUMASKPICM, // 43 + CORDPICM, // 44 + METALPOLEPICM, // 45 + + // + // SPRITES + // + + START_LUMP(PADDLE_LUMP_START, __PADDLESTART) + PADDLESPR, // 46 + BALLSPR, // 47 + BALL1PIXELTOTHERIGHTSPR, // 48 + BALL2PIXELSTOTHERIGHTSPR, // 49 + BALL3PIXELSTOTHERIGHTSPR, // 50 + END_LUMP(PADDLE_LUMP_END, __PADDLEEND) + + DEMOPLAQUESPR, // 51 + + START_LUMP(KEEN_LUMP_START, __KEENSTART) + KEENSTANDRSPR, // 52 + KEENRUNR1SPR, // 53 + KEENRUNR2SPR, // 54 + KEENRUNR3SPR, // 55 + KEENRUNR4SPR, // 56 + KEENJUMPR1SPR, // 57 + KEENJUMPR2SPR, // 58 + KEENJUMPR3SPR, // 59 + KEENSTANDLSPR, // 60 + KEENRUNL1SPR, // 61 + KEENRUNL2SPR, // 62 + KEENRUNL3SPR, // 63 + KEENRUNL4SPR, // 64 + KEENJUMPL1SPR, // 65 + KEENJUMPL2SPR, // 66 + KEENJUMPL3SPR, // 67 + KEENLOOKUSPR, // 68 + KEENWAITR1SPR, // 69 + KEENWAITR2SPR, // 70 + KEENWAITR3SPR, // 71 + KEENSITREAD1SPR, // 72 + KEENSITREAD2SPR, // 73 + KEENSITREAD3SPR, // 74 + KEENSITREAD4SPR, // 75 + KEENREAD1SPR, // 76 + KEENREAD2SPR, // 77 + KEENREAD3SPR, // 78 + KEENSTOPREAD1SPR, // 79 + KEENSTOPREAD2SPR, // 80 + KEENLOOKD1SPR, // 81 + KEENLOOKD2SPR, // 82 + KEENDIE1SPR, // 83 + KEENDIE2SPR, // 84 + KEENSTUNSPR, // 85 + STUNSTARS1SPR, // 86 + STUNSTARS2SPR, // 87 + STUNSTARS3SPR, // 88 + KEENSHOOTLSPR, // 89 + KEENJLSHOOTLSPR, // 90 + KEENJSHOOTDSPR, // 91 + KEENJSHOOTUSPR, // 92 + KEENSHOOTUSPR, // 93 + KEENSHOOTRSPR, // 94 + KEENJRSHOOTRSPR, // 95 + STUN1SPR, // 96 + STUN2SPR, // 97 + STUN3SPR, // 98 + STUN4SPR, // 99 + STUNHIT1SPR, // 100 + STUNHIT2SPR, // 101 + KEENSHINNYR1SPR, // 102 + KEENSHINNYR2SPR, // 103 + KEENSHINNYR3SPR, // 104 + KEENSLIDED1SPR, // 105 + KEENSLIDED2SPR, // 106 + KEENSLIDED3SPR, // 107 + KEENSLIDED4SPR, // 108 + KEENSHINNYL1SPR, // 109 + KEENSHINNYL2SPR, // 110 + KEENSHINNYL3SPR, // 111 + KEENPLSHOOTUSPR, // 112 + KEENPRSHOOTUSPR, // 113 + KEENPRSHOOTDSPR, // 114 + KEENPLSHOOTDSPR, // 115 + KEENPSHOOTLSPR, // 116 + KEENPSHOOTRSPR, // 117 + KEENENTER1SPR, // 118 + KEENENTER2SPR, // 119 + KEENENTER3SPR, // 120 + KEENENTER4SPR, // 121 + KEENENTER5SPR, // 122 + KEENHANGLSPR, // 123 + KEENHANGRSPR, // 124 + KEENCLIMBEDGEL1SPR, // 125 + KEENCLIMBEDGEL2SPR, // 126 + KEENCLIMBEDGEL3SPR, // 127 + KEENCLIMBEDGEL4SPR, // 128 + KEENCLIMBEDGER1SPR, // 129 + KEENCLIMBEDGER2SPR, // 130 + KEENCLIMBEDGER3SPR, // 131 + KEENCLIMBEDGER4SPR, // 132 + KEENPOGOR1SPR, // 133 + KEENPOGOR2SPR, // 134 + KEENPOGOL1SPR, // 135 + KEENPOGOL2SPR, // 136 + BONUS100UPSPR, // 137 + BONUS100SPR, // 138 + BONUS200SPR, // 139 + BONUS500SPR, // 140 + BONUS1000SPR, // 141 + BONUS2000SPR, // 142 + BONUS5000SPR, // 143 + BONUS1UPSPR, // 144 + BONUSCLIPSPR, // 145 + VIVASPLASH1SPR, // 146 + VIVASPLASH2SPR, // 147 + VIVASPLASH3SPR, // 148 + VIVASPLASH4SPR, // 149 + END_LUMP(KEEN_LUMP_END, __KEENEND) + + START_LUMP(SUGAR1_LUMP_START, __SUGAR1START) + SUGAR1ASPR, // 150 + SUGAR1BSPR, // 151 + END_LUMP(SUGAR1_LUMP_END, __SUGAR1END) + + START_LUMP(SUGAR2_LUMP_START, __SUGAR2START) + SUGAR2ASPR, // 152 + SUGAR2BSPR, // 153 + END_LUMP(SUGAR2_LUMP_END, __SUGAR2END) + + START_LUMP(SUGAR3_LUMP_START, __SUGAR3START) + SUGAR3ASPR, // 154 + SUGAR3BSPR, // 155 + END_LUMP(SUGAR3_LUMP_END, __SUGAR3END) + + START_LUMP(SUGAR4_LUMP_START, __SUGAR4START) + SUGAR4ASPR, // 156 + SUGAR4BSPR, // 157 + END_LUMP(SUGAR4_LUMP_END, __SUGAR4END) + + START_LUMP(SUGAR5_LUMP_START, __SUGAR5START) + SUGAR5ASPR, // 158 + SUGAR5BSPR, // 159 + END_LUMP(SUGAR5_LUMP_END, __SUGAR5END) + + START_LUMP(SUGAR6_LUMP_START, __SUGAR6START) + SUGAR6ASPR, // 160 + SUGAR6BSPR, // 161 + END_LUMP(SUGAR6_LUMP_END, __SUGAR6END) + + START_LUMP(ONEUP_LUMP_START, __ONEUPSTART) + ONEUPASPR, // 162 + ONEUPBSPR, // 163 + END_LUMP(ONEUP_LUMP_END, __ONEUPEND) + + START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART) + REDGEM1SPR, // 164 + REDGEM2SPR, // 165 + YELLOWGEM1SPR, // 166 + YELLOWGEM2SPR, // 167 + BLUEGEM1SPR, // 168 + BLUEGEM2SPR, // 169 + GREENGEM1SPR, // 170 + GREENGEM2SPR, // 171 + BONUSGEMSPR, // 172 + END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND) + + START_LUMP(AMMO_LUMP_START, __AMMOSTART) + STUNCLIP1SPR, // 173 + STUNCLIP2SPR, // 174 + END_LUMP(AMMO_LUMP_END, __AMMOEND) + + SCOREBOXSPR, // 175 + + START_LUMP(LASER_LUMP_START, __LASERSTART) + LASER1SPR, // 176 + LASER2SPR, // 177 + LASER3SPR, // 178 + LASER4SPR, // 179 + LASERHIT1SPR, // 180 + LASERHIT2SPR, // 181 + END_LUMP(LASER_LUMP_END, __LASEREND) + + START_LUMP(SANDWICH_LUMP_START, __SANDWICHSTART) + SANDWICHSPR, // 182 + END_LUMP(SANDWICH_LUMP_END, __SANDWICHEND) + + START_LUMP(HOOK_LUMP_START, __ROPESTART) + HOOKSPR, // 183 + END_LUMP(HOOK_LUMP_END, __ROPEEND) + + START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART) + WORLDKEENL1SPR, // 184 + WORLDKEENL2SPR, // 185 + WORLDKEENL3SPR, // 186 + WORLDKEENR1SPR, // 187 + WORLDKEENR2SPR, // 188 + WORLDKEENR3SPR, // 189 + WORLDKEENU1SPR, // 190 + WORLDKEENU2SPR, // 191 + WORLDKEENU3SPR, // 192 + WORLDKEEND1SPR, // 193 + WORLDKEEND2SPR, // 194 + WORLDKEEND3SPR, // 195 + WORLDKEENDR1SPR, // 196 + WORLDKEENDR2SPR, // 197 + WORLDKEENDR3SPR, // 198 + WORLDKEENDL1SPR, // 199 + WORLDKEENDL2SPR, // 200 + WORLDKEENDL3SPR, // 201 + WORLDKEENUL1SPR, // 202 + WORLDKEENUL2SPR, // 203 + WORLDKEENUL3SPR, // 204 + WORLDKEENUR1SPR, // 205 + WORLDKEENUR2SPR, // 206 + WORLDKEENUR3SPR, // 207 + WORLDKEENWAVE1SPR, // 208 + WORLDKEENWAVE2SPR, // 209 + ROCKETSPR, // 210 + ROCKETFLY1SPR, // 211 + ROCKETFLY2SPR, // 212 + SATELLITE1SPR, // 213 + SATELLITE2SPR, // 214 + SATELLITE3SPR, // 215 + SATELLITE4SPR, // 216 + GRABBITER1SPR, // 217 + GRABBITER2SPR, // 218 + GRABBITERSLEEP1SPR, // 219 + GRABBITERSLEEP2SPR, // 220 + WORLDKEENTRHOW1SPR, // 221 + WORLDKEENTRHOW2SPR, // 222 + WORLDKEENCLIMB1SPR, // 223 + WORLDKEENCLIMB2SPR, // 224 + ROPETHROW1SPR, // 225 + ROPETHROW2SPR, // 226 + WORLDKEENHANGSPR, // 227 + FLAGFLIP1SPR, // 228 + FLAGFLIP2SPR, // 229 + FLAGFLIP3SPR, // 230 + FLAGFLIP4SPR, // 231 + FLAGFLIP5SPR, // 232 + FLAGFALL1SPR, // 233 + FLAGFALL2SPR, // 234 + FLAGFLAP1SPR, // 235 + FLAGFLAP2SPR, // 236 + FLAGFLAP3SPR, // 237 + FLAGFLAP4SPR, // 238 + END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND) + + START_LUMP(FLEEX_LUMP_START, __FLEEXSTART) + FLEEXWALKR1SPR, // 239 + FLEEXWALKR2SPR, // 240 + FLEEXWALKL1SPR, // 241 + FLEEXWALKL2SPR, // 242 + FLEEXLOOK1SPR, // 243 + FLEEXLOOK2SPR, // 244 + FLEEXSTUNSPR, // 245 + END_LUMP(FLEEX_LUMP_END, __FLEEXEND) + + START_LUMP(CEILICK_LUMP_START, __CEILICKSTART) + CEILICK1SPR, // 246 + CEILICK2SPR, // 247 + TONGUE1SPR, // 248 + TONGUE2SPR, // 249 + TONGUE3SPR, // 250 + TONGUE4SPR, // 251 + TONGUE5SPR, // 252 + CEILICKSTUNSPR, // 253 + END_LUMP(CEILICK_LUMP_END, __CEILICKEND) + + START_LUMP(BLOOGUARD_LUMP_START, __BLOOGUARDSTART) + BLOOGUARDWALKL1SPR, // 254 + BLOOGUARDWALKL2SPR, // 255 + BLOOGUARDWALKL3SPR, // 256 + BLOOGUARDWALKL4SPR, // 257 + BLOOGUARDWALKR1SPR, // 258 + BLOOGUARDWALKR2SPR, // 259 + BLOOGUARDWALKR3SPR, // 260 + BLOOGUARDWALKR4SPR, // 261 + BLOOGUARDSWINGL1SPR, // 262 + BLOOGUARDSWINGL2SPR, // 263 + BLOOGUARDSWINGL3SPR, // 264 + BLOOGUARDSWINGR1SPR, // 265 + BLOOGUARDSWINGR2SPR, // 266 + BLOOGUARDSWINGR3SPR, // 267 + BLOOGUARDSTUNSPR, // 268 + END_LUMP(BLOOGUARD_LUMP_END, __BLOOGUARDEND) + + START_LUMP(BIPSHIP_LUMP_START, __BIPSHIPSTART) + BIPSHIPRSPR, // 269 + BIPSHIPRTURN1SPR, // 270 + BIPSHIPRTURN2SPR, // 271 + BIPSHIPRTURN3SPR, // 272 + BIPSHIPRTURN4SPR, // 273 + BIPSHIPLSPR, // 274 + BIPSHIPLTURN1SPR, // 275 + BIPSHIPLTURN2SPR, // 276 + BIPSHIPLTURN3SPR, // 277 + BIPSHIPLTURN4SPR, // 278 + BIPSHIPEXPLODE1SPR, // 279 + BIPSHIPEXPLODE2SPR, // 280 + BIPSHIPEXPLODE3SPR, // 281 + BIPSHIPEXPLODE4SPR, // 282 + BIPSHIPEXPLODE5SPR, // 283 + BIPSHIPSHOTSPR, // 284 + END_LUMP(BIPSHIP_LUMP_END, __BIPSHIPEND) + + START_LUMP(BABOBBA_LUMP_START, __BABOBBASTART) + BABOBBAL1SPR, // 285 + BABOBBAL2SPR, // 286 + BABOBBAL3SPR, // 287 + BABOBBAR1SPR, // 288 + BABOBBAR2SPR, // 289 + BABOBBAR3SPR, // 290 + BABOBBASHOT1SPR, // 291 + BABOBBASHOT2SPR, // 292 + BABOBBASTUNSPR, // 293 + BABOBBASLEEP1SPR, // 294 + BABOBBASLEEP2SPR, // 295 + BABOBBASLEEP3SPR, // 296 + BABOBBASLEEP4SPR, // 297 + END_LUMP(BABOBBA_LUMP_END, __BABOBBAEND) + + START_LUMP(NOSPIKE_LUMP_START, __NOSPIKESTART) + NOSPIKESTANDSPR, // 298 + NOSPIKERUNR1SPR, // 299 + NOSPIKERUNR2SPR, // 300 + NOSPIKERUNR3SPR, // 301 + NOSPIKERUNR4SPR, // 302 + NOSPIKERUNL1SPR, // 303 + NOSPIKERUNL2SPR, // 304 + NOSPIKERUNL3SPR, // 305 + NOSPIKERUNL4SPR, // 306 + NOSPIKEWALKR1SPR, // 307 + NOSPIKEWALKR2SPR, // 308 + NOSPIKEWALKR3SPR, // 309 + NOSPIKEWALKR4SPR, // 310 + NOSPIKEWALKL1SPR, // 311 + NOSPIKEWALKL2SPR, // 312 + NOSPIKEWALKL3SPR, // 313 + NOSPIKEWALKL4SPR, // 314 + NOSPIKESTUNSPR, // 315 + QUESTIONMARKSPR, // 316 + END_LUMP(NOSPIKE_LUMP_END, __NOSPIKEEND) + + START_LUMP(FLECT_LUMP_START, __FLECTSTART) + FLECTSTANDSPR, // 317 + FLECTSTANDRSPR, // 318 + FLECTWALKR1SPR, // 319 + FLECTWALKR2SPR, // 320 + FLECTWALKR3SPR, // 321 + FLECTWALKR4SPR, // 322 + FLECTSTANDLSPR, // 323 + FLECTWALKL1SPR, // 324 + FLECTWALKL2SPR, // 325 + FLECTWALKL3SPR, // 326 + FLECTWALKL4SPR, // 327 + FLECTSTUNSPR, // 328 + END_LUMP(FLECT_LUMP_END, __FLECTEND) + + START_LUMP(ORBATRIX_LUMP_START, __ORBATRIXSTART) + ORBATRIX1SPR, // 329 + ORBATRIX2SPR, // 330 + ORBATRIX3SPR, // 331 + ORBATRIX4SPR, // 332 + ORBATRIXL1SPR, // 333 + ORBATRIXL2SPR, // 334 + ORBATRIXR1SPR, // 335 + ORBATRIXR2SPR, // 336 + ORBATRIXSPIN1SPR, // 337 + ORBATRIXSPIN2SPR, // 338 + ORBATRIXSPIN3SPR, // 339 + ORBATRIXSPIN4SPR, // 340 + ORBATRIXCURLSPR, // 341 + END_LUMP(ORBATRIX_LUMP_END, __ORBATRIXEND) + + START_LUMP(BLOOG_LUMP_START, __BLOOGSTART) + BLOOGWALKR1SPR, // 342 + BLOOGWALKR2SPR, // 343 + BLOOGWALKR3SPR, // 344 + BLOOGWALKR4SPR, // 345 + BLOOGWALKL1SPR, // 346 + BLOOGWALKL2SPR, // 347 + BLOOGWALKL3SPR, // 348 + BLOOGWALKL4SPR, // 349 + BLOOGSTUNSPR, // 350 + END_LUMP(BLOOG_LUMP_END, __BLOOGEND) + + START_LUMP(RBLOOGLET_LUMP_START, __RBLOOGLETSTART) + RBLOOGLETWALKR1SPR, // 351 + RBLOOGLETWALKR2SPR, // 352 + RBLOOGLETWALKR3SPR, // 353 + RBLOOGLETWALKR4SPR, // 354 + RBLOOGLETWALKL1SPR, // 355 + RBLOOGLETWALKL2SPR, // 356 + RBLOOGLETWALKL3SPR, // 357 + RBLOOGLETWALKL4SPR, // 358 + RBLOOGLETSTUNSPR, // 359 + END_LUMP(RBLOOGLET_LUMP_END, __RBLOOGLETEND) + + START_LUMP(YBLOOGLET_LUMP_START, __YBLOOGLETSTART) + YBLOOGLETWALKR1SPR, // 360 + YBLOOGLETWALKR2SPR, // 361 + YBLOOGLETWALKR3SPR, // 362 + YBLOOGLETWALKR4SPR, // 363 + YBLOOGLETWALKL1SPR, // 364 + YBLOOGLETWALKL2SPR, // 365 + YBLOOGLETWALKL3SPR, // 366 + YBLOOGLETWALKL4SPR, // 367 + YBLOOGLETSTUNSPR, // 368 + END_LUMP(YBLOOGLET_LUMP_END, __YBLOOGLETEND) + + START_LUMP(BBLOOGLET_LUMP_START, __BBLOOGLETSTART) + BBLOOGLETWALKR1SPR, // 369 + BBLOOGLETWALKR2SPR, // 370 + BBLOOGLETWALKR3SPR, // 371 + BBLOOGLETWALKR4SPR, // 372 + BBLOOGLETWALKL1SPR, // 373 + BBLOOGLETWALKL2SPR, // 374 + BBLOOGLETWALKL3SPR, // 375 + BBLOOGLETWALKL4SPR, // 376 + BBLOOGLETSTUNSPR, // 377 + END_LUMP(BBLOOGLET_LUMP_END, __BBLOOGLETEND) + + START_LUMP(GBLOOGLET_LUMP_START, __GBLOOGLETSTART) + GBLOOGLETWALKR1SPR, // 378 + GBLOOGLETWALKR2SPR, // 379 + GBLOOGLETWALKR3SPR, // 380 + GBLOOGLETWALKR4SPR, // 381 + GBLOOGLETWALKL1SPR, // 382 + GBLOOGLETWALKL2SPR, // 383 + GBLOOGLETWALKL3SPR, // 384 + GBLOOGLETWALKL4SPR, // 385 + GBLOOGLETSTUNSPR, // 386 + END_LUMP(GBLOOGLET_LUMP_END, __GBLOOGLETEND) + + START_LUMP(GIK_LUMP_START, __GIKSTART) + GIKWALKR1SPR, // 387 + GIKWALKR2SPR, // 388 + GIKWALKR3SPR, // 389 + GIKWALKL1SPR, // 390 + GIKWALKL2SPR, // 391 + GIKWALKL3SPR, // 392 + GIKJUMPLSPR, // 393 + GIKJUMPRSPR, // 394 + GIKSLIDER1SPR, // 395 + GIKSLIDER2SPR, // 396 + GIKSLIDEL1SPR, // 397 + GIKSLIDEL2SPR, // 398 + END_LUMP(GIK_LUMP_END, __GIKEND) + + START_LUMP(BLORB_LUMP_START, __BLORBSTART) + BLORB1SPR, // 399 + BLORB2SPR, // 400 + BLORB3SPR, // 401 + END_LUMP(BLORB_LUMP_END, __BLORBEND) + + START_LUMP(BOBBA_LUMP_START, __BOBBASTART) + BOBBAL1SPR, // 402 + BOBBAL2SPR, // 403 + BOBBAL3SPR, // 404 + BOBBAR1SPR, // 405 + BOBBAR2SPR, // 406 + BOBBAR3SPR, // 407 + BOBBASHOT1SPR, // 408 + BOBBASHOT2SPR, // 409 + BOBBASHOT3SPR, // 410 + BOBBASHOT4SPR, // 411 + BOBBASHOT5SPR, // 412 + BOBBASHOT6SPR, // 413 + END_LUMP(BOBBA_LUMP_END, __BOBBAEND) + + START_LUMP(BIP_LUMP_START, __BIPSTART) + BIPSTANDSPR, // 414 + BIPWALKR1SPR, // 415 + BIPWALKR2SPR, // 416 + BIPWALKR3SPR, // 417 + BIPWALKR4SPR, // 418 + BIPWALKL1SPR, // 419 + BIPWALKL2SPR, // 420 + BIPWALKL3SPR, // 421 + BIPWALKL4SPR, // 422 + END_LUMP(BIP_LUMP_END, __BIPEND) + + START_LUMP(BIPSQUISHED_LUMP_START, __BIPSQUISHEDSTART) + BIPSQUISHEDSPR, // 423 + END_LUMP(BIPSQUISHED_LUMP_END, __BIPSQUISHEDEND) + + START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART) + PLATFORMSPR, // 424 + PLATBIP1SPR, // 425 + PLATBIP2SPR, // 426 + PLATBIP3SPR, // 427 + PLATBIP4SPR, // 428 + PLATBIP5SPR, // 429 + PLATBIP6SPR, // 430 + PLATBIP7SPR, // 431 + PLATBIP8SPR, // 432 + END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND) + + START_LUMP(MOLLY_LUMP_START, __MOLLYSTART) + MOLLY1SPR, // 433 + MOLLY2SPR, // 434 + END_LUMP(MOLLY_LUMP_END, __MOLLYEND) + + START_LUMP(PASSCARD_LUMP_START, __PASSCARDSTART) + PASSCARDSPR, // 435 + END_LUMP(PASSCARD_LUMP_END, __PASSCARDEND) + + // + // TILES (these don't need names) + // + + LASTTILE=STARTEXTERNS-1, + + // + // EXTERNS + // + + T_ENDART, // 5550 + + ORDERSCREEN, // 5551 + OUTOFMEM, // 5554 + + //demos + DEMO0, // 5555 + DEMO1, // 5556 + DEMO2, // 5557 + DEMO3, // 5558 + DEMO4, // 5559 + + NUMGRCHUNKS +} graphicnums; + +#undef START_LUMP +#undef END_LUMP + +#endif //__GFX_H__ \ No newline at end of file diff --git a/16/keen456/KEEN4-6/KEEN6C/ID_ASM.EQU b/16/keen456/KEEN4-6/KEEN6C/ID_ASM.EQU new file mode 100755 index 00000000..d27d272c --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6C/ID_ASM.EQU @@ -0,0 +1,115 @@ +; +; Equates for all .ASM files +; + +;---------------------------------------------------------------------------- + +INCLUDE "GFXC_CK6.EQU" + +;---------------------------------------------------------------------------- + +CGAGR = 1 +EGAGR = 2 +VGAGR = 3 + +GRMODE = CGAGR +PROFILE = 0 ; 1=keep stats on tile drawing + +SC_INDEX = 03C4h +SC_RESET = 0 +SC_CLOCK = 1 +SC_MAPMASK = 2 +SC_CHARMAP = 3 +SC_MEMMODE = 4 + +CRTC_INDEX = 03D4h +CRTC_H_TOTAL = 0 +CRTC_H_DISPEND = 1 +CRTC_H_BLANK = 2 +CRTC_H_ENDBLANK = 3 +CRTC_H_RETRACE = 4 +CRTC_H_ENDRETRACE = 5 +CRTC_V_TOTAL = 6 +CRTC_OVERFLOW = 7 +CRTC_ROWSCAN = 8 +CRTC_MAXSCANLINE = 9 +CRTC_CURSORSTART = 10 +CRTC_CURSOREND = 11 +CRTC_STARTHIGH = 12 +CRTC_STARTLOW = 13 +CRTC_CURSORHIGH = 14 +CRTC_CURSORLOW = 15 +CRTC_V_RETRACE = 16 +CRTC_V_ENDRETRACE = 17 +CRTC_V_DISPEND = 18 +CRTC_OFFSET = 19 +CRTC_UNDERLINE = 20 +CRTC_V_BLANK = 21 +CRTC_V_ENDBLANK = 22 +CRTC_MODE = 23 +CRTC_LINECOMPARE = 24 + + +GC_INDEX = 03CEh +GC_SETRESET = 0 +GC_ENABLESETRESET = 1 +GC_COLORCOMPARE = 2 +GC_DATAROTATE = 3 +GC_READMAP = 4 +GC_MODE = 5 +GC_MISCELLANEOUS = 6 +GC_COLORDONTCARE = 7 +GC_BITMASK = 8 + +ATR_INDEX = 03c0h +ATR_MODE = 16 +ATR_OVERSCAN = 17 +ATR_COLORPLANEENABLE = 18 +ATR_PELPAN = 19 +ATR_COLORSELECT = 20 + +STATUS_REGISTER_1 = 03dah + + +MACRO WORDOUT + out dx,ax +ENDM + +if 0 + +MACRO WORDOUT + out dx,al + inc dx + xchg al,ah + out dx,al + dec dx + xchg al,ah +ENDM + +endif + +UPDATEWIDE = 22 +UPDATEHIGH = 14 + +; +; tile info offsets from segment tinf +; + +ANIM = 402 +SPEED = (ANIM+NUMTILE16) + +NORTHWALL = (SPEED+NUMTILE16) +EASTWALL = (NORTHWALL+NUMTILE16M) +SOUTHWALL = (EASTWALL+NUMTILE16M) +WESTWALL = (SOUTHWALL+NUMTILE16M) +MANIM = (WESTWALL+NUMTILE16M) +INTILE = (MANIM+NUMTILE16M) +MSPEED = (INTILE+NUMTILE16M) + + +IFE GRMODE-EGAGR +SCREENWIDTH = 64 +ENDIF +IFE GRMODE-CGAGR +SCREENWIDTH = 128 +ENDIF diff --git a/16/keen456/KEEN4-6/KEEN6C/ID_HEADS.H b/16/keen456/KEEN4-6/KEEN6C/ID_HEADS.H new file mode 100755 index 00000000..d019e5ba --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6C/ID_HEADS.H @@ -0,0 +1,109 @@ +/* Reconstructed Commander Keen 4-6 Source Code + * Copyright (C) 2021 K1n9_Duk3 + * + * This file is primarily based on: + * Catacomb 3-D Source Code + * Copyright (C) 1993-2014 Flat Rock Software + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License along + * with this program; if not, write to the Free Software Foundation, Inc., + * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + */ + +// ID_GLOB.H + + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include + +#define __ID_GLOB__ + +//-------------------------------------------------------------------------- + +#define KEEN +#define KEEN6 + +#define EXTENSION "CK6" + +extern char far introscn; + +#include "GFXC_CK6.H" +#include "AUDIOCK6.H" + +//-------------------------------------------------------------------------- + +#define TEXTGR 0 +#define CGAGR 1 +#define EGAGR 2 +#define VGAGR 3 + +#define GRMODE CGAGR + +#if GRMODE == EGAGR +#define GREXT "EGA" +#endif +#if GRMODE == CGAGR +#define GREXT "CGA" +#endif + +//#define PROFILE + +// +// ID Engine +// Types.h - Generic types, #defines, etc. +// v1.0d1 +// + +#ifndef __TYPES__ +#define __TYPES__ + +typedef enum {false,true} boolean; +typedef unsigned char byte; +typedef unsigned int word; +typedef unsigned long longword; +typedef byte * Ptr; + +typedef struct + { + int x,y; + } Point; +typedef struct + { + Point ul,lr; + } Rect; + +#define nil ((void *)0) + +#endif + +#include "ID_MM.H" +#include "ID_CA.H" +#include "ID_VW.H" +#include "ID_RF.H" +#include "ID_IN.H" +#include "ID_SD.H" +#include "ID_US.H" + + +void Quit (char *error); // defined in user program + diff --git a/16/keen456/KEEN4-6/KEEN6C/OBJ/fix_RCK6C_v15.pat b/16/keen456/KEEN4-6/KEEN6C/OBJ/fix_RCK6C_v15.pat new file mode 100755 index 00000000..272ca2df --- /dev/null +++ b/16/keen456/KEEN4-6/KEEN6C/OBJ/fix_RCK6C_v15.pat @@ -0,0 +1,3 @@ +%file RCK6C15.exe 102166 +%patch $1C 0 0 0 0 +%end \ No newline at end of file diff --git a/16/keen456/KEEN4-6/RCK4.DSK b/16/keen456/KEEN4-6/RCK4.DSK new file mode 100755 index 0000000000000000000000000000000000000000..385701f52693da7ea0e7e2c4f0f94a4fc417dea7 GIT binary patch literal 236 zcmWG3ElSE)a8_{6&nro-C{b|B%t=*{VqoMI5@(cRVBkt&NMc}NU|=v~-~vKt?|2ti zUw=Jkh6slHEOHFzSQr_wLk5sqUq??rpjsw|&y0)=kAN6EWMKHh=)eH9%?M}_!v@*O zYCBY5G!p{@lNv~d5hMqa31(Mdc937d&jK_zmIEXT0zM31f$jyH0apn#gM*=;?f-uU F1_0D^BuW4P literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK4.PRJ b/16/keen456/KEEN4-6/RCK4.PRJ new file mode 100755 index 0000000000000000000000000000000000000000..0bad23e0f5a816279dc00ea808ee32b293ea7566 GIT binary patch literal 13193 zcmeHOX>=3U6~50K0)wrE#ee~Ym_5h~28>zd(bx#A1xW@2#saT6U~J41$YLCl09|NO z($nqq2W_CxByCBcO@A~k&EcdAf#wjx-ZZRfXmYwY387K%z0ydsELn`>L!zFJk3QXd z=ic|d``(*3Gw;csO>H$TM#<=GYq`I^cB8ShX>Gl67>EJ-Ap*bp6hNuww~zz^euoHf zoaNUTPq5`A%Rf)2voACLg7KG#0#5PSHyBSNCc_!Td2p63=NSKne#w7FfPWDD6G8lo zq<=#SKnK7Fq~2z&_mhmt@L$t0x^q!Of&tq;Ob4MJUC1YvfM$Yq1TAD+Ptpd0O$3|C_5ev+NZLy9 zAi+Zf4KX_9E?PV_6c?b1sY^!g*1GhVNnY?b2F~=s`#^)ClO)%!z9quJ&r!mLra@d?6 zV~&K1&0RL0YFB{5gv~8Yb;gONTH_rv+#Sc`KGE*shd1+v4fV}6YwO!$5qr#TTdZ?E zvFF+4qQ~XPm9pJzlcS$a z9P5c-6XFX*1HL=N9E7m36+L<}v;UPQJn0jz_WBJio7!sYjZ#Z51eD*wk|^hh?yo!%CRTIt-u{ z+wf2y&dcpFd#DkEiwW4SicK|H24v!@7ail6>!J~$I33`mzYS@%A~LUlje}IdKo|sr zIbs5HHQ?A7hGTI~8s|mj7DVKw*i`Y5^AN~_p&T`dxpwOSzJu4;VEj;_g;fg+y>6#0 zAt7rKHZ_Emuml!!z+~pyfdl0VUR$qXZb2@yfI?^qn`<5`)?TxW0`*5Y-13HuAn<(W5vi)~80n(qm?A~cBu zrZd+%Bs}1Lk49x56I6g2hS7}!+wkh#yzH=cD z@-aXQGnfmX2l${en9FN6(R-w_;2CaH!$ZCWxEN5#L9@Y#_sZ8X9|yMI3>=48uG`Wz zFSe=WA^)i`4QPP`U@mjD48pZ|Y(s~itHSN2tGLrR4A?kG6%=9H6?25dT+7D+=x~ld z>L2r1E?vcuTx3&!%!FAmo5N)0is&!o>e639n_9Lx*mm;y4YhFQ{T0RTNP#P8#-iH2pURqdawR>C+6Rq|Kmijx{ z!lJtu$3PC;8|D&~%RFB;TOznZwy@~#MJvpQvM`tETo$Y3iR22}!lJtuN5ef}40DOf zB}d6CWDAS#UK|A@VMLfqbgp0yq5hJCwy@~##cUW3INb)1s9d%vd4+7j*my!cG(aOc zb)1+R?=K%cme0*9UcsKa{7>>_+pycvVc1}3Ft`k$l`y6dKVuAa{RSKM_DwTf(tM!L(!8Vh^f{$}D(z+c zwbX<9qSUALUryPfKbE{z|90|PeO9tpzc$IPFVc@sKPo2a_la!%hcH0@Uixj_G5CwF zDB~^N?Tn2B_Um@(*68fIeBEH(N7_r;SF{JTyR>VxHf^ppQ+ufYG0Z>%c6c%4Rf`$+ zSKV+8f`0q1y9PoE-dB9SY$%6c_rL7Yz+OD(hMCo;T#GO!x_uU&^#EZ7<6_1ojFpT_ z8J96GXRKme!C1}cWgHBtSdT0?IpDHuC>+5$41=SH!{Hl<+3-B#2>2P|NH~Bv3Z6mq z`6B)CX%H50em);2`RuJH(@x)hG7V>6uu>lLVa@LA5&3;S^T@`z_SW`9sjCIfV}JNZ zz#{I^@G%rVNuKn13nEE!gFgAJ%<926F!GL zXkC@){a}JE%Wfq2^>7~y|JwBg&tW1=J$xm>a~KaTdlJ1L#=^~SCVCDzu;*Kep2KK3 zjCbh7zE9r+$MLN&adY7Jb6$Y+nk8PHWs865s;sn9^5R;RNnTU|(d_g6*3d>IJ4O5` zwaUHJT}7KwCdIw;k5=)V%W5x+eb$28?cJQUI%1u~Ut~$L+a2pP{)8*msn}(fN_J0q ztT5T-vd65A#Syb6l4q$?j#a4FUQr&C(Oh2ckYYtj4twlGycW4MW`#$S?*2`&nU8E8d1Or-^KMdfvPR{Wz3i^E-k&=^DART@~LRbqHgLQ!}#L{WGbMp1Z6 zh?Vd?HrjXUVhmO=+%s6spfRu=$l*B5$sUXh=t}8fTdsU|_Ik-~vK#S64ri z7-w%2XBSWB5IuhekO4`PhpVFtk(#O)L>QQWHgf^(W@FIOa}Edql3EPa3;_(x zKoJ+9xFCZTgT8Nsf_{{zg1*0kN{C~yFS3AsCfL0=C7hu$Uw}RZ`qc<%B*O;T$!a@P ZU^ElM5yP)ASw@gNvMdL~e;{CB001_vHp~D3 literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK4C.PRJ b/16/keen456/KEEN4-6/RCK4C.PRJ new file mode 100755 index 0000000000000000000000000000000000000000..eb76ec7cca373c0fbd8caf0a4f66a82eabf9f14f GIT binary patch literal 13165 zcmeHOd2kcw6@Sk+Hnw$e7(x;S%nkB^F;I z5?rHJ+UG2O!4M*#54Dg0)47$wkjaq6x@>}BIRq;Q5Lj{vAdg`nLq0N%c#h!^!(oPRGaO+!%5aR~IK#^fuP{8%@EwBm7r6Bz!%Ga`W%wS$_Zfb` zU}8!$k6;kD1~Uv{aVUm!Sj56G8 zdXQV&7#?DHnBfruc$(o+7P}a>Gwfh^jA19kE&_O*TTd|TW^oV0lPvCKc#2^k!#muA@vyxiOPHHhHsm0u+7V~J~ z-s;VE>zAh;bLiNaRymDw;h^^PvKe$F0o2gYtkIK5(C<@jda@Kcimi&*3$^l75em`q z3|aI`dwJJoUoQM62fAu~4(|<&YjtN!#|@a>u*u}MiI!rQ!!@p~eEN7xvD@QcWb;~z zy*`i28?Y2BB)I&w<9KxC)EK{|y>+E!g05bOW)9?i~^?LfF(n7X296|4Ir^htSv6vax-0XLE~1X^>p=XIu|ZBlOqbjPjKHM(q0w^adO^oB8}(@)7|6uPUY%_3am zNuZlsXvh&RyTj#)=ZfgWNf%_&Wm~p*j1;atg#cb6`!rp+YUxKTo-3l$MI**JFaUC; zRV-ZAVt}2*vt@vAdFyRU;<+L^{akr45c0)sjBusX%pE5AWH_#XV{ss!E27iSwG{4y zCE_+txSYcQIw*(7D6zB-`~h2llc-%As!lgq0Tfczi?<2F^??PTDi7dvIEP%Vh>t6x z6DM6T2nNFt@t7oBt7vTur?psL0AUM#i3ld z#+j%9N%OTq8yEG^*aXc66^lvj^7R(m6`8~}Sadn%os7^229GDC9#A$(W%_{&XqBWmS z=Xsj1g^Rk+m+18Ju)Phcf%9R2`kvxixTt$vQJr4CdZ>d18Yk_V51;3ix(cT|;PY6y z*dHnNU#HV}_ud>0#V|@^(j%8`zQbmZL%#=o~_0|dZN*S_l3GgmZ*>$sv?)j7$x5AFr8JX{PL_Q>Um z#ubYyrc1&Q+uZ`IU^R<7PR&jBDI<%ebBn5$iKVgZi?ZY9zI-a-cV@1?hC-*!ubB^- z_n6n3{pL#ZF!MFjMbocLM@;)nohHAj(o|%+YP?|lrST=>0pl~q-NtRkb;d@c&p5|8 zq@cv;%eNSx9%wYam6vAB%KOYvo%@lYYrt8;q}Z;!;s7t z!`h6+h7;*^hJ)!~9h z!GVJLf(3$wf(AjOph?gyI7o1?;1I~9aSVmi`4@df@an*ezG3hh;c)l{;T`ZI;RyH< z;hk`V@Gf|cka8VoPuF_jl=wm+3i9aH{aI(O?a!ifE2$}tTG-kdAK&d6#|Uu1)t#Tj z&Bg6HRt4Ut`3SFoESXX58q%(kTfaW$c3b~as*&|E8_qSS%KDfIA5+e?c@Ae@o9)}< zm>faZaeqjeu}*_OrN~$-K_rLro5l)RK+ZOvk(k&0Ya$Gr_ihAQg92 zkn+C>+UF_!jG>z{I&`gNG=Qiw^5{q0>6seqqn;62?OpT8O*M}^+Ec~IQ$vqo_T z>Jzy+d_H%=(bzo+N1_ClcpZs4ZFD!(CuFqM*LxJzQ)WpC((%Fd!NhDHcjEXOX+b6Q ztafT*sAE%=n$~vYRfB2p6t1B<(q8-$K8bs9H$H)n<1XBZkKqp7j$QaDK7z7{Ll5Ia zxD6k~t+*wk3F~KI70$%DI1g>O88_iZ?8FV&f$i9a>v0`EfNLZ6t+)nP<0@>ymDr3; zxB~A-54zEX^;j3NnT4})4xWLt@G<@KMTq`aVggRYN%T&=6-#gmR^U`D#WF0%1?a^2 wSc^62Kszc}jni=&R+2Atd+Aa0HeyL@IP>ajiF#})Q%SdO{U!B?8F0-|~}~03pcOVAceXrEjCyk{n59NgNz(3^*({20~W01hO>E zv`w3KrkN%!X-TuR*}6`b%rvCal5G;QKtfv}OOv)UZQ5pUe$TyMmV_)JK6N4L^lN-{ z-~I2tbMM>!d+*DUO}*{inn!Ey?Y_LTW208zwWd=WNvhN_OyR4bhC+qEp&U~5TOiRs zk)INLS~Smy{Ig=d`*Xox2>ueN=y|#Og5Z8&F1-YtPcMt+6~O~Q%00+Pe}hf#y8!w- z!#@D(pDevcHll4r?{ne8cP`}LZiuiGW#e)zl=vAPNK4!be z$^oB1%J~;3KV>ig_&`zsmCKTiA&()Sbp?PCg@ENn0BsO}iWy26N*T%ks+^??mh237 zgDvNqO!+N_-3<3Ie4F7r40{;vWq63;VTMN-9%cA0!+n6<`&oK`;X#J)F?^rl2Mj-C za4@BlJs8Z=5Qd?g9Hz`V9L|XmitBqMi=!Au1JoFn#sYHB;H1XMvj90~vsB5taV(t! zV`J-hNRykb zlBKH{u4cG~;aULQ#&8`cw=isF*v7D(VF$zY0J?#toeaA;c_YJ3oV+=&#az>kwjDv*IcpLq%|D!oN`A!7{xA6 zb2Bx_qrxySo+%$s+P8Kd4Gp3f3u#M3NN+v?zgG5k_MAYr6V5Vu-6XBjulpxd*UX%# zRR)6LMeb&;vN;s=H%GKe4-)=x!vyxO2ExQEy1SNZ=ejzy6J|Iy8TT1#OGFlO?hP9{ z*S4?e>`g};afkis?wyRj%D-5vy4a^x1+~h7F8gHsIa!;h3^HqQi?_3V)5?|UYmhcB zKUtF0c9r^KJ>d51sqbcw_UTv^Vl%M<`-rrikT&)p#{fq5zfy(I7%H@-b3^y0-i}Vq z)4jGQeJu|3L|!@21rA{IS}E#T%!R(SJ>9(#t?NPHK|azyt+S_%oWv%ktN8(vJIi&I$OAQmlHK3rZ;nis{s$OWUi>r5{+ao zq#_z5(m3JTFpg*kc>G1e)!gJ>lFSv=S?4OI5-Jt5@xs-GmfMN+SIoE~`r=43S5#-6 z>k_({mWbIz;qr|n>Ombogo;H!2uIuzuEf}3LW0gRSs9h%)Qhi4!gWX^nq5rvgjt7t zT9F)AR3}E3U@#4#p<*#vxIRMP7>SN)%a^#g+?u4g`gE3fIP)+XP9wysO1QS$iSEoJ z8j3$IbXsfUw6<`w?g62sl5|!G7tg^+iEC;KF4kGO+Np!g zMe_{dx^)ze`OxQAfzRh{^SDu7uqA$g)~B<=(UF-y3PpdWT%9KVM4Lb)>Y zCUJ?b&)&-SM4Sjs5`#JPCg%Ara4kh#>rF1dzkgh!v%=Ar_dJ?RE=gP@jkNez%x;2g@^Oj;4omC7ktLW( zvuL(hGzi!AaWBrnAa67ky&B7&Qu) z9rMN*^!Z%O^JuSyi~6^h=&bT^emB(-*GC2UQ^mD#QUADNI;(tM^ojZeqr^UM&hwte zX}&-t6m;=vfApyT7+r$(@x^gei4|1*O3CG3pu4?ETyb68ID_P)1=Ns`CpDMX=ZPe9 z#dHbQ#~07S8dOWjl9EeL5m#K7V10b?3>r(A0%KQdu2>B5_R?dzm~AFuG>sxG(_&Xj zE`N%+;<}h^CZUs7&`QpQAd5cAm^G84%%FNu;?3uRMFm|359G*G z@5rw!IFxsDer4Wsd8=*1@`ARxwh6Wh+oIfD+nqTJau4Hm++OvV`k3~pd*~f{g$&~! zcvwgQdZg@0ubVc1`IcZEy&HKc6r}vp!y&^MUP1HE+&A1V=n!<$e1mVw#MI{2<*8+G z0a1-8@a~hE=+`BOLxuDcc@`uwi zz!CHq7)R3Mz)|#7;AnaPIEH=<97}tEXV7k-VZ`$r>}KCQ+ZRc~WNxDirGg9tK~}zZ zSAO7wyYewTlaHfZK+nQF3!-E<5oPo#$*$Mai`n5iyJ@=4iwSn!O9!AcdymK%;Bv(O7A{o*j;}n{Yh3;TVm@=-Z!R$K%tb!EVCw=&o!u&7{A4 zh8<6sn%PY_F56kcLTEZU*B%Yo=(@{~hVo?oH%EVg$m!;Q)Af|m$p51wc-F+9N(Q^1 zc*bGw`!(#>?q8GDfwB9EftlMb4VzIt3j>qxB;Cef_Y(s%A3+-S^F7P5y2aT2SYXkk zJsx8&dhg*Q**wPBeVp-fY<<1(JbD!~Mi$Q-?0z&RSpsP|C#!ultDA}4KjtW2!ztr= zSjJ~@GqL-KDfTKuqjTusrmXIH>^?$@y$RBA(o)u*eIdz|F1rDP-A72V7ik)uMVqs` za)3D&FCn zOI##)(~ksp7)bCr01`MdMS_n8kidcx30{{Wf%QBRQl`Asa<_PWLEfA}%ZCeQMaH&l z(DI>3($9-q!%M=g{Hl?yQr?e*e1V4acfI)G#BuKWg6VGJw{;#p%&nS|7eB^JcdIQ> z?`zW2-A&I}?+HYj(wXU@P#~?Z-e6ikJ&`5NX?5xJ?svjG?|TsR^_w9 z^kl(6`tUG{>eE`*`OFY_2ORNS;x>}h>o>!?W)n;{t+N3tBSLro6M8Bio(;w(C9igN27X6Xl#*4jPwO;k8 zZnaLWRcq90b-C(NtJHY>55f?&Qms&(YPsrA?P{62Otq<{%CDMKqqO9QM6V zZ_t}K@JoHYi2opY8UI)E0_~>-szKE&U3ry9)hV}{uMW}y92P#0c+y<`ekhsn3&yH0 XX^_5OGFr%*NY>9R@n!~@4@mwE&Dsx~ literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK5.DSK b/16/keen456/KEEN4-6/RCK5.DSK new file mode 100755 index 0000000000000000000000000000000000000000..359c3fe010d43b8fb7d2cba26ff11fd18cb16a73 GIT binary patch literal 441 zcmWG3ElSE)a8_{6&nro-C{b|B%t=*{VqoMI5@(cRVBkt&_|Cx2z`$^dVID&cgB61S z5PG`Ad-~})Gw?7hVPIsK48+(W1B17#tDk9%w`shibBHlehYiCjc1DJoK#UzC=?D&R zbq4CNX7FcXWUvEb?2v)M**hL&4Ond)BO`+^5Mzg6wZS2dA+A8hq72?ZXISBJN;QKC z0}}%agBH;Hf(-h;5eoWIo(lT@3MwIv!M?}>`k7#lLM6U1Ixwg)Fc>i~1hXqJJIF8K zhtVty3{1fsoIvx07`Peq7=Qr`RK>usL3Xm*4iy;91QhuS41BOGBS;=umV=?6?f-uU F1_19dJxu@r literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK5.PRJ b/16/keen456/KEEN4-6/RCK5.PRJ new file mode 100755 index 0000000000000000000000000000000000000000..e25c09bcf48921d4ce508de601f6c0793aeb7a36 GIT binary patch literal 13159 zcmeHOd303e6~AA0vdu;ayCa4jCL4i3*d{YCVMu0iX2KeXWFZ7034wqc0a=wEwc72E z_HZoPV%4^wcJojxJ*}RCphb4v5NoSF^;m0BtT?^*&b*n&WG0iB=0K;XFDJjb-+lLf zzwdtAym#LlZ)Zn+o6%x)b+oN+YS>_`Xj#)_910>!pDXYqwFoNG{s0Le;0PkXQI=m} zJjR;iEFa3Cv%hA1f$=wp0#5MR*BMVDCc3vSZqTEOD z7{TKNKOp!a!G3}#2o4Y&BzT74S%M!CJc*F_6iH7L{FvY;1V1JC8Nts9^h9Z(77QdQ zhhPvvuJHHaU^+KMP;U(-aTvjHvKT?qNQA_jsA#0(D1?MtNXjGKXp+XDvv12-lqPaD zwhuUnh8&;1Pmv5F}|4 zk_l1>QVG%sCJQT6Ns^%Fu+!m>pN>jLmUEAx!B({QOMs2yJxS-bNuvFJrr7{!O zRRUN$|M$AGJ{soBZ73?Jt+the{NKmw`s7xC)3dk;pim@3Q3+O2ghF9K0YI_X(x)2x z(P@ep2@`s(uOz0$)R-32Vp^2Ow3r^#Vn$4hvX~Y#V_M9LX)!yd#hjQHb8+I{=)-*D zr>9k<;o6xtbsF}CgmP)&bX-XQ71%UWa5t&-xGmScvn;rZO%|66D*3Cz=fm|3DfmrW zzWb6p9Zsb|SEXBW^`c$P9Zl`MFzdC+F@K58nC~>^^>^KUX-{8$Uh#py2fM6I^_|Vl(R&a!H1?GwvR|IGNOG9%QslGo zqdgYvLcD=kiT4gsCn0QTM~i-p?0=;TkNbqXt7&~(XGcSm(bBfIJ$f(p_eP%A-xc=b z@T#fmRon}0Yunp8HW;g0>N{3+w5({2;%~FN=rXt8j=cV^u-{syuAyk;*27QDe%=v0$sg9bBEI3Zvh zbG>{sz|;(Y-}&RB3_^HZ0i9|p7zjBq2$Iop0&`^y1jxlcOhS5$f$A*^i%Zt2Cd-Av zFoeA(G1qr-_V2{7%oQ^P~HjnDw~>{QNNuVFk+?7!)_ zzOY`8wR>EwQ_Dm4B{=^mK?1m<>3exo4!{FAE$x1;8c!Xq;%nw%K*vt1pcJOV4ECsC zuKULV)Zkiv-aqHDURtr?TxwUbze!~<6K1hEFVc7+SGVyB>Qn`V#uP}+s6^tP?UQ$q}@a|c(!91u`m_+2V2kQ-S zg>(wb{e4TB6<^l#}8>mS$e(YNVc`eJ>K{xjVf-C^BRy1lxGbvtyMbgOmCbS~XY-JtBr zI(ODc-GiAL-H{BRHYMX@ZF%}T+O7eA)IOhfNP9VTzqTm#5p8SAX6vF z7HD5cv}yMxmTE_7)3uiqu4?8de5Bbc-qvgr$2F(nux1}V58bOdpS=&;mxfmn&t$)3 zoeMj^xyNaSU)7v;J0KwMp!#D^&#}?$mCy0aLIc&oacoA_Zd@$gjti zVE#9x#j?91kc^Y-;_S0r;Iy|~;C#DW;N(9S!k;>HQwAHZvFe;VoxnS)Reuto%gzJj>_m~t@zqR z4`*%8XeaT_I*a59_DDD{zKR#kGkTpB7KgVwnw#WyJEFG6>WtbFi+8b0idJczqoz74 zqq(};X^}nsgM_Pta)Z&yoQ~+>)!}rC>RE16giuAMGBZx)z-tE6;C`_Rb4d4z-C~#6 zDRzkMVw<>EY!zEXm)I=s5qFEb1W#e#o#GC$No*9IVnaaV*DGes@Ni>QEQ7=}A+eDpMF6^ROREhb*CQjimKF+{f@HV^y7vWvF z1apO1lnaZn3Q1ImN-U|_Ik-~vK#S64sN z7-w%&XAf6L7d?L`F9t>ekO4`Pi>Gr4k(#O)L>QQWHgf^(W@FIOa}Edql3EPa47Ol# zW1zSsgT8Nsf_{{zg1*0kekRy)3MwIv!M<1|oS`ybfZhUn%m}ETVT0^swH+!jnu$Td V@GDG~5hRZ+%fWEg{{Mdl1^{mnF%|#- literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK5C.PRJ b/16/keen456/KEEN4-6/RCK5C.PRJ new file mode 100755 index 0000000000000000000000000000000000000000..2750b1ca61ae1512a742960e065f7c18217944dd GIT binary patch literal 13165 zcmeHOdvH|M8UMay^CHj9iU9CNPq z?|k=s=l6Z*bG%<2GHLGJ^}FG zMfwNXi1rZuQxg9Y_*CE|tVnyz2F&`a$aJg_>Nf@6QrvHgcpPFG{TgVae~aByrGU>M zW&KBzp9>fO{6Jy=XNzPL$PvgDT^?X`K447&KpO#|LV+TIVu2C>mx@#-l3n0_uw{Kq zC=UueAn>5TLjvCxI3)0}z+(cB3p^q4q`-Fsz6;3yo=A@fJSy;gfgcF`P~b-b(C6&$IY>L#el3!M5+|sr6OGhV`KLO zNK;fX8?zu@1>ltes{}d(ItA7UbP22#SSPR^K$``61bRicMWn4FZ5L^WNIONkMx<*6 zt`oRk;06HQEpVeGcM0qk*duV0z+Qoy0d$KsHn943%;&%J%^|nCcV$$7hlA5j(sM<5Ws(26Sv)dZ=X*F$Lzuw&H za?hz!W!393;fxC#WX9^44|O$d&E7_e{SLCYL7CN{drqq(s^uK2t49%a5Nc~`h^F!G zL6ta!M$>sbO+IaT^%-+CWXv%mV~&{_bIi(^V|K_81LAEo_GPP%lR_Sy5Cf3%?oTOFy1EHnP7Ok=+ z81S`(wMrccU#MxKcvlBu(vIHlHQMB=PVI~t&Q8X|2JZ^1#hY{M)~?MRo4Web5r>^2 zU%GpP(O3JHY1J#dT6I9H9O|+Mz;~T~Sopnk%M!~Kgm!`O~k-+Ab zTJsf`%k2v!az%B@$P(mW*_Nj)E>>LEl!60fA7v}9COpIvxuQBtG%9mG70?JJRVuFc zE+J|G&yE7c)za)-p2!u|S?4OGA}Us9mnp8=F+_cc>oEk2wh4uuVF}FKUNN0zvJxuA zNt9d@71whY5j7MN9f`yxCkTmgMRk^`=sX%p=PR?ximTT_RDnA5%e>%(^=t&<-Lq1U}VWPQ*j-`9Q7jl#yjX6C|AwA30z7S zv$yhh5>AAsD1+IGs|Q>w5!aRom(Q0Rm(p3`h~>SUrc#wk%vD@J#vFABaovkHLtH^m zGMCcD?5+H*rW&e+K^e_gTv!jNOUh7O?anIMN5&33%{nVQl6MVtQin2XR9vqio&f4^ z7RDFK4Y`uzQaYR$L29 z@JvCUFUCBD_PTOua(gMARUXOjq(+jNri_|X#dYP<w zt}|JmUc8D{&~j6jlw5i|uBiFQ$t~ zQ!f`I8B=ok;-wBmHK5DDFmQW14oB6=?VeW`WcsN^j;j`on!QrxwAX%K`?zB;KMnM* zL)HR!mmP6D?|9I0n`46`Wrs>PmK`nmMk$xPSTeQvqv91sYRO1uqs% z%>Q$KAkUG1Z*F7WyE%8{R_45xv(Z+O6R^#@9UzR8PJ-m^7fuG<{=^;Ky zzsGB0!#D{4^0A6|qU0slLVD+!6G10^a^H!dpS(RMf`$<+qq(bI584%$D|FCYLvE^R zsokloXO%a@>5#U&Q1~`rm0mst=K*LC6HpI=?EE|i& zG?m-Pt18Ga5ahv=2XbHe>_9FiXQ&Zn6YcCj7o${FgvN?hnjvl?%IGsvTzAvSy}vsL z8z`|s4RJH#x-2Ecb)DWuTSj_Mq*s~ynYo9Z-M*FNy0{6~)#}QSp`{*sdRvocncj{E zU6uQaRx)JdMQd$CDj+_(b3Lxu`edoinxhDqigB0 zG>1MwJ(-*E+?Xno92Ym?cyz-t7R%8;oRf}Y)SJeBaHJt_!tv;?Y%Esne>o=|PpWZo z6OOCxtQ^PH)6;#w4ccgW$A`fj(^Dl+O?BojWS#}i{&VI++VGq_LKB}$hPa=279fF5 zqvtma>%hc)b6}BemxfL6>Yia8n7D5aEbDR3pT+`Z2`)cwo_^J?V;5 zDf_^13M^@iiTgNXj-Q2UI8o|;dRT`f?js~=uGqkuM1R^ctYZ@QqcN#k<$DXV2HbqsMIAw}Oq8nXI`&+RU^r)m*4P8!a3UfwpG!i+8c7Li&>c@5daV?Ed! zLO_OW>yg0j3JKZiN0zuq$mSmj>@bj!^8h4pWQv3w5g>sDB@!}zk-&N$30Zqas?6Ey z@&;sg2CW=2D6MJJ2DNOg6TUBQ3oQ?|$vaFjOL;#W^!l69-*w^3iPPNm2GZTc$91|p zq^cwpFTTc0XPLfCkM0jQr!#X0gZ{MMxB_WC(ZkDI-02E!_qR4HMmZ}=tXpSub3hkM zIZleU2U*!coxs*Io!?bc^$9iE?&c(+`+5)Y7VfUeca4Tcp6XV`cq17WSw2? zW)C;7z%}*ND~Kk(!Tv VmS`m}YAWNER9;4lfedmC@?WkEvx)!! literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK5GT.DSK b/16/keen456/KEEN4-6/RCK5GT.DSK new file mode 100755 index 0000000000000000000000000000000000000000..15491b44519e1fe30b4a205945242eb6f92393ec GIT binary patch literal 66 zcmWG3ElSE)a8_{6&nro-C{b|B%t=*{VqoMI5@(cRVBq=+B!RRM10w?vOjg^W!oaXW P7DRI}oVEY|pMe1Y8$S>c literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK5GT.PRJ b/16/keen456/KEEN4-6/RCK5GT.PRJ new file mode 100755 index 0000000000000000000000000000000000000000..9090a1c3b71a69c7a2cc38c7afd9e72492223c0c GIT binary patch literal 13203 zcmeHO33OED6~2Em*~mH>Fo1wh4Vy?p0%28PGV>CKWM<;bL>2>)EI?#Q2q11OF2tqk zX=`iS)1GRJE!Jx5*2Ny%+EcNobv>?t+7_|4+T~Q+TCLUB@7_1dV=}`qn1a*O$Kjj% z-}m4DyZ8Oe`~N$W(ANHrUd^So^!HxW-MK|;=vm*bjV4uGUZL=jS4)BXUs4t+`W2Aq zagm=8d{Q(|iTrRO-~F-RPXvDoRP?OeeNOOsU^cx7Tu3j8X20M8AY~t9q_<&{{SJWs z#_)H5`Ugwzl8tB=(LcHH9>e<#|6(icUK=p$uhPPcg;2l5uwVQ*z~VuOW%M%8Mjx=< zgQb9fL(2M)iytu<0Q`fb04kd$8$%95F6;6Dqw)b=1psXrfC?Fk7>XH60IHOwGM4NN zw}UO~YfSldhCK{-FnojIn+$sy?qs-^;Xa1@86IHx7Q~FJlH^V&)-(mPJ!}l1z z&rr^k4)$O;OCuOgVW?2%GaSkHMk#*YqggzaVGP$8%hEVN_Gw(yxOfI2>r9p^SvQ`g z2{1NxPJ}c?npu|x@dAKa!LX8{gQ1h5i=mrgHNzT)wE)_{u#uscb(>h)%+gktE@o*P zOP8>8DZ^z9mor=epqm-Cb8!d5PKI3!S2A41a5aFgVQDwR02i-ixQ>fAFno&PCWcQl ze1_q(47V`Y$^bbGxeR#>`3zH)o0@dpSJ&pRUrYg)-o~XFQo^G>=BrBWBG=rude`)t zHjmHM-0IfnRY_ZQ6!|>n#*VXMwZ(^KPd)kEt~UNWk=HZ~&*`;9H7bW{>%d$Kp=R1N zqUmZUHTwPTkjJYBPozsRt{G|^ofRu4km^#_n3=N1tduoor>rq2WsSKhYs^box4V% z!Yr^O6?mLER$6RIV#wl8*SNBe; zshvGptMvJUOPnoQWlO;CZ3$_WE)=}M#!2j5EriJz_x5yYXH|7-$INhIDn4$g9Uv%~L+g0jIb)VC#C%&6G+9#ur5QmA?I7cKMgtVm(HHI*<|CLAhl%WDUx;OW3 z?eFZ?T)i9ml0U_vUdStly1^mr-gKIJ8f&3vLtk(I7OlCbqkmO@&#H|{>^HCu z4t0Y`{QhsNpE39y{r~G@J%Kv9vj{l}>cA%FgIvyJAa{XNr>m*m>-6}lT$Tf4OqV_- zr&MsN$91}JRgWd=MrlgEaJhA_Kb|YB6Qi^s2ivwhu{cw>t|ii{}dK z(xQ>d`BXr|L>ez#2o`-4 z3^_v_SoDBz(WOmRLZ!$=@ikev9y*<9W+Bm|W?Y;>h>t6*OPh*@(+E06%%%ue!EmAq zJVP7CBVyooYvbaI=+Y*uppi66tfmUrmoWNwqx^YuY=rcsq4>DMy0ociDJ`M%#jIMm z9>eonj%-#bCISag*Va_m9&FKFVB~~Mye=Ka2GYqb1~tO9y#nJs2lE;KqwP9fp_+KE zur3|0Rtk}s-k2_2WAO~%LSNm0XK3Z(PCFtlaIr3(D?sOwdFHAUuAgDuco@%dCDsiq z*YpHjtV`$elaI_($1LHx@l>K7%&)cJ^0?bwPPFH5jU~_`x^y@qbtlk7nk0oe!u1-~ zsC^h4uV8GTU0HeKxI`DRPv>(oGD1_tV4iUGfNKTf+GKKhy@TTtT{;|*x@Xf=s*=LF z!j*&m+KaeuMV}$AK*L}z(M9aj`K+dCR0D%DS|D8556H!B2v@taiqDaegr`-P4iDGu zqE6}%BbRVJgLwRSeseIt&~DH@I4;qp%ft2SXeM!j1St~XS~h~{Cd@6b$<-Qc=UIHj zI1KB=C@q*xb7-zuGz!<16Ny?emw#lAd9=$jHl8cpS!}vAkItcUMf4=7G~Y7#CxUS?x3=CctS`s@59gZoQ#>GE)WC)E?LG-X&l_`MuA4$ogQIIgHJ zUA|RxA+=kKtX$@L=xVC-_(B1H6=(ay@025S7VD#nYiPCX(IT}Hayi`|S167vri+-S z{9H*ZsLfI5k`$>MYhr7cZdYw9HZ^A(x&Yu9(hZeRQ#znrN}5N@A{P46**w zqdJTA(M1m}qDD)Vgk0WeyD_eq&SHIZaR!p3lDXaW_4~PW53;gi+#X;seQe@-F|b~Wo3Iy*OfhA^2JhBvae)n@!Q4Ai^dfX6fQ1$VA!_8 zg9Tq5rV92IOv?XLzCX{Ae`{`i-m5v+=T_!Cle5lNk>j_`w@tE@*_LEy+rE;uDEkn; zj@zdmR3Fe@bqBpg`^hlwfQR|mN!(xZnA=IaKX-$_o*rs_G2o}%;zL*)MwZdS(;pvc z7c3Wa&_aW6%EHv{)a9*Za06kDD6oK0GyS6IP#~YmN)81I#5PxOm|&q`kzlc4iD0Q< zLSA?>T<(q#JVmgA-h($I=^fxGdJv4G=@HKp84 zWSxyfVp+^>m=qkJVE`)My)D=G-fg*9p2@>eE~2Mlo&iy^n}{;}mSoo(=!ML1o!vBD z=gkDW?xq9KnWM)XRn{J`j?Rx!A2`NfGy3Ky z*zwqMX|S7cJbWq}L$m46pJ2x=OEbF($K^Onq~WmfgTBK78*RVna3Dw4e{=TdiJWW= zI9YEQjXspuXzZ0}301j*hJ%W%jI52kK8kl+P(y;MbwK4Moli?)8#$flYftjx$ z4d?m4pmQ_0$JqU7VBypr55+1vJF^30_mPW@=0Y_(o8GS0*}mW8pyzyy&MYf z5St7>&Lbe4t)Su)zPZIkfe-yC;Dmt!=K)Ya$`l1o4WNJxB?>&sQNVs41!+^h>2kKZ zJ$^o%LCeVn^FciCysL0<4<-IzpZoW zLGIOry!bI*vRm!G22Zn|>~3<#2A40?oXkuQ1bj(-b^DY0=?X1tN$N|xueCWTqqDi$ z?_zg2(`0rQdX;mB$;te_JQ`f2i zwOd`Iu2xs6E7dNwQ|(aO)fMV;b(u0#o|mdi)HZdo+N!pMHIY~pi~SDRFy>Qx)n z2DM(TQx~ZowN|}Muh6TsMy*!es!MgM4z)^MsM^&^&^nMgow5p^8C-fr){IfeUB|8-tdfb3g!))MEI;=)j=Hz+l9{5X`Q? z>>$5@A4ananMb`>_>ST#8s*ZQZKX+N!VLf8WgHF`3Em(i~)Z`f~E+ zzyG`Ue*b^>`_ClY-PzKixRhXL$GW!GF2&P+QJXS~L|)Nwfj>FbZ=@Gq1iWxoxW@d3+pFc<2V84gMA!z>H+{2W6 z817}*%dn5(dkpt6e4k-I!vThe7#?Q0pWz39%m-L{kl}|6KVtYX!%rA~%233V#caV) zmP#0gadNmY+HeFXMhb4NQ7oRpPzn&ESsDY#Jd=|OC(i<8oXt`h>&CJ)4u$n?=Rle$ ztGO@(;&Omk!LX8{g`t&U6+;`tYKAooYXP*LVFN=4>n>(#6HDDJUBc34mbS2TDZ^z9 zmor=epj#NOQnHbV}Bonf+Y(?V7C*ER*_FCfjOHgRf-OrdE{`Y9LN$u+ZSzN@CP$?JDDG`iJU z<+83?LhbVRq$}%Z#)_y7)s;;R-uV>$?PqoUDprZ%SyN3^C9#YNw$sRLIk-W?&`}d0<+3Y&B^LX|7Y=ST4-sa#t`&b#klFb1&v9)qy=14Yb($JH3A@&GwrxC#Y$u&%@`i~@nNRhNud1FtK`HYGLQ9-Mr7Wlg ze8I3%=0d_3svFPNRYRC?Nk{uC<=paC<)j%-O~$8nu{A6YZ_Z7d+Sa#R)Yh4dIP47h zlD+GXzQVUusW{)OR0Nc=fv&qh_Vl;RGddY9xYga((!FL)@)o47RsAJNT&_%As`{Ni zHSyc@(LNh%LR=tLAaw`{elfi%6ol5KIRVCQ#Q~Q4wz-uDtbZZJ^KI8 zf7Jq0X=ol|67&)dIdxgMZKAeMaqDy~Z1y?5{&JV;!q}s;PRU^u-0JZtl55y#qBf)^ z+9j7;^#$U&B05>f5@g}nmLp4?CAn@ZAkyH|TbYup4x3m!S43xtMrO9tAQ~*CGI>z^ z_E-c;z~dVvxq=POW$|1Qopr8U8batSJmVzS8>5JBfM5IJEczxCc81xp*ahFDvrLvx z1&BoPGhT9e6a=H-=&uaFID!!GS41ZZS%RTdLc?T0FQ$8!_38H1-70qB<)a(Y)j69Ly|!rc17aSfg4oE?&VRiF)PA z8^_wA z7U7rX>CGi|(ehUQR$#1Gp+F&>C%JGQkPp`(xtg8je2CBOsg^iELgbcQn@h0nq78ipS7WG|XYmQ+Frt%%EWvb| zK{I6ukK~$y;Nkrk?>{%jJnH2c8_#8R78@qbqS-V@iuH;53tYYWE2gvL6f&Pjb7`I| zv_Nvr!WuOiV?Gmm3i@mDlHUC#byj&ezmw(@uQY|!kjSsaOM3ei(^=)afWA)6rb6a1 zZ>)!|g|%LPSPPVMv_G<^oS-w6?ps_*E2znoB_WryUUj3mvd%95DN z?RACYxnep~>AuAVT1X2_SrT%o3H<8OnM(I9dPv1A?s*b(#eC@LFEys?DV#!@f`Fxr zrbhB5*}18Hs*q#( z+z~TZ$efO!n}(6Oa(UqO4}i}`mI=y^}(Pt1EiZ|RWI zydAmqLk$$9UTS=DBHrqDNmTzm! z6t?eVcrstdr+-h1hs0;JPwb(;;3H{W-vj&XII%pG|7-U=dhgC%0Vn;o@u23X?7U-| zu4{!fd*zFoLt>G{Vw$bRdrYBNh0R6;tFlLyl>7nv;J_8$`2EPqwUK zu*6)6LnP)&%$HaoF(EH%7%JbENE}8Pt;em>#p>6jLkPYW^6$URnX%Ygy}OBMeRMWI=2#?%$U|{5O~UyueH`mG z$Jl&Cu47SG1+lA74!n`hF0uJ=iMuO0u_n;bv>JcCx{1w?_#{tt3Idu_A5QCTV)IY< z%tWEFbR@mkKQ*M;<}@=`EV)n ziRX#O47chjugA4X!6&FY)5^{0;jfNLuBEeUG zByht(f};UQAUKNz2MCbBff5N`l90f89tl2s8rz|>(d`ZJ)EajnsU@!PvY?u*(q?~SgJk4DQGDAv8yW&GF3GVZqdU-V9EVI!7Vsx`5A(z$ zOC}7lcMl{h-XV2d&#O2~LajDoMHj7I{x9Ad^M5nk|yh(qew`im2 z5F5mLagn%CtP|~Gtym)#i$)O^A)$#sBbfI#9iqc@gx;aQ(%;A{7KnwSLHLAU1Vm6Q z5=ZG3dX?U#_vn54fIh@Oo_vIVImr@Z#F?T}yhg9nAL%%~LB~)}Ur(=ZUz)xaSU|_Ik-~vK#S64r? z7-w%YXBSWB5IuhekO4`PhpVFtk(#O)L>QQWHgf^(W@FIOa}Edql3EPa3;_(x zKoJ+9xFmxygT8Nsf_{{zg1*0kekRy?3MwIv!M<1|oH1n}O1}bq3iPWH&?i7JS#5_3 S1H%Sc5Y54$=lK6W0|Nkb%PvF! literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK6C.PRJ b/16/keen456/KEEN4-6/RCK6C.PRJ new file mode 100755 index 0000000000000000000000000000000000000000..984a492d48de7b0a0280fbcfcf8d544be52d2d3f GIT binary patch literal 13318 zcmeHOX>e256+Xus27|4I9YPdh!WO)NZLnD^KgmYeT6mJdfWgJafC<=OY?drQAR${5 zLg=(Vnjcx(EN$8bLTP?9UHHKaCD05dgru3yK#7@jn8oDuowSzP*-;4cJ!Nr-S(N`EJKjxZI@6IQ@`V!0srDfz)?41Z_%oB;p9 z(mx>$U=P3-to)1N-wanN3M{Xu5vF{?GMvvM^Lq>zg!_FKKOoTnzb8zC|8U&V9D*-N zO1Z}Bbp}5H{gH$On95QbLpnnS+XfMg$s|}an7}fG0J0c{G7MwLCcqq)3@jNLo+GxD z=b7>ah8G#W$MAiIml$4Vc!lA0hQka;7~WubmEi{jsXt`tHHIHC{Fvb<3_oQ!#$aMf zGq+$kOCuOYvN{R_eK?wxG043&mc?-l;|cIKmL?FS-p;Cp)rkZtce0erwn;4AMZx~v zlS!H`)!dUp;tB#>$*_u{iJ_Tc4MPjVT84ED>j_{JLmNXo+qST@m8CA0wz0IGr5!Bo zWVn~%K8E`V;3Z;GYc9VE~U24 zW-rf^x=IvH=yPTLbj;V!<|nUq7qsS6Bf}&zVI4g_sUS#Z*NR355j(05frS zziJ%7pjkKpruAB1aYB!hgdU{{J!U8Ln3K?>ETKnvLXWu#J?16!n4i#NK|+rTnz*<6 zu-^LVX~Rr9cS=i2sW0p#&n}!pXA(daH7zf65oz$M%1!Sqh0fwU#p8i$xmEc6bUs4{ z-DwZ*yP^((cQavEwQBeDpRY-AqtEX`5ib$Bct-W=PWm;adrOymE$MKXOclqSu&AN4K%ciD{EgkWQeO9kC zURi(a`ObPv{&I&U-)+eq=(_vUp8m$X?T0`Q?y|Ksb*)<$zXzdnO@B#Z$K~4V?Jld+ z9=kMotfxa=NG}j;>D?jjB!te*SxDT$5@3eV6o8fw|$c*ZZRL3fd${7u3U2SRxU33)iz*0PE@8+Cf~L zKuJSQNu$?eSBQ}pWTI_)$kxGHXpw+C;qs3M7(sl?D8Ep>R>fBs%@wri;i>~4cqO1f zxXNg}MiY;Pt{;(HJZLxMMO^l)gtcfn+sB1(yHou_M5GtG++=^{z>%9S^Y zOKe)ap5LjoA~anBW(!vvajl}fwgkAG&YpRRO%I3WdpFF0JWx*%8KcT$7O>>d* zQmcA$iA{^w^P3L^P)Gp=m@8cLJRk?xAzY2tJbsVV7Ca+udU)7(4KzcO1kD$&cPJk> z_1_$t^Hi_b)-x}$>E&VnVkiM#AOWZpuJ#eM7EgWX4sg|Z8~H50VIBr;5~K@e!yG7+ z2%B(yJQZLu&G&PGIZyTS85_-|_bd)Hshq}Xo`_Yk#*4Umj918}D=BiG4-23|f))x_ zMK)cdXwDC#dkT%$lBGSzOKf_1*xyRy#8(;vEQ*!alBGTK3fc7Xt%h$vV?q5KL7R42|MMU>5u7KsREW#x=m(8L0 zqPar0i0IzMTBxCs3Li1Klu%wX=sqoXYwE?YH5}fnG>M+o?xbg5?TF14%HamCkW~v# z@H-Li0E=uc1{`B@IYW7cvkKc1FocWOLn~|us}PgRt=jBr)Odw$5z)Pi4p<1)?6T+d zf<%9XU`7K)ETCcrfbHw zluwMu@uKl1JZroPzc!wLqsA`di^hY->)BeL$Nw$MK0!HT(o@Zm>=U*M_{*_w)e5g3 z?p9skXzNz}^q5!!$JchNncyX>8Om3kRq1vEvF&rI)C7!1LAvvjoFkYmI81P;V3yzz z!NG!q1TzFjLM1Vdf=SsI)zNTt=tXr5{EBcae1~uxyhb=4-Xy#YUM8FXFB1Cw(f+jg z4GziA@24bRxq2Yu?3V{J=vq%^%A*>#cSPs+^~_^D*x~BlkD|un>)KWY-ly>h%zzOx zqLFhba+cis`LUqK{FkL8nIH4uTywI_k8-$7eID7*fu4`-?XSlQ*>ji*f8LVpIZTG)H!dal`7jA=UCBNUcYl_VdB zJ7C)5$vzILaI!O*bMW(nQPel94c=wm2HqFTTL`hseX7G%9lz8@yYao0I^6LJ>4PoB z?)AnirZ2qW6~(W!N^$vW$V&y$eQT|)bt~~A z6}KyXB8@hCl{6?;wUv%QV|k@RR&N`viY)ER(nrt|WuOIKtu(ZX9AV%k>HVTC#nW!&gO9Q2t`^W z2JS{PHHTM0LoK3wBN|Iu@Y9D<_!izn>qv+289azj;{kjMpTuwC6ZkkjhL7SSxE~)z z$|$wH7-O4 zF2W1&KKzOPcSt(@&x*M?59gy5D{ukXp~t6~5#LDWw@SAv+Q*W5e5t?sa`dROFF`>c HUcC7))_5D` literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK6C15.DSK b/16/keen456/KEEN4-6/RCK6C15.DSK new file mode 100755 index 0000000000000000000000000000000000000000..dfa41f4daf94ea854f2ae7481130eaa4ee17fa56 GIT binary patch literal 275 zcmWG3ElSE)a8_{6&nro-C{b|B%t=*{VqoMI5@(cRVBkt&C}Ch>U|_Ik-~vK#S64r? z7-w%YXBSWB5IuhekO4`PhpVFtk(#O)L>QQWHgf^(W@FIOa}Edql3EPa47Ol# zW1zSsgT8Nsf_{{zg1*0kekRy)3MwIv!M<1|oS`ybf!+do%n0agAegMSLxq81gDi;V MU^r|4|33o*060r3ssI20 literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK6C15.PRJ b/16/keen456/KEEN4-6/RCK6C15.PRJ new file mode 100755 index 0000000000000000000000000000000000000000..a93509d6220d7b4ed7c3d4d2fcb55be5c1165f7c GIT binary patch literal 13326 zcmeHOdvKK16+egFya;(NNWiF{5Kur85=cluAe(PDVa-00-39O&!l)pV_?uXkftXTMh8eMy%#l{lwxGUFqog8Z2;&^TiHDUj%( zl3!H#lF}Sf^7pdk?XwEMukZ&zrkB;*Un+bBXrWhuwe*_O99DP)NS335^bYb^{tlpb z1^xlxe~R=TS&4QL{Yw(>3;bK)1IeX5Y6Xt_n=0YeY^YxoIIR3QBH~eq`Sfd`l|Gbw zPv!wWf;8@9Nq!;_0^ko41K1*xRUl0uU33|MDVcz^SpaQ3fU*T92;>Ol0ys~ke31$S z?iRLh0Qeq}?iJ}ifo}@jFK|HM0RTNJ@R%eY7kEOF4+?w>VEML44+%Uh@Ew6i1fCLj zTA)xUZQ{X1fk~1)MWo4W)M1e%rm)oaR1r@VC>*DeoeEQCpopzr4-m z)!i))=i*XTR+SzRMqStm8kU)SaJ%Zr>(JZe^Rs;Bp?l7+AS&lHs;C5W1%&c>^N8m2 zPNSxs+sfs|Nq83U=`?#p-pYg)RS7K?CbXzdXi<~UVo^ei#R)CWO=z(sp~cdK7RwS^ z)S}~_?8lDod6FLoXJYIutXc>^oRF)_YcP_C>fu^xbP{O``1Q}+Q5~bWRBvjc2DMa# zLKx4Kj+J(Q*IWMa^s7wT(cpJBjl!?>eO;SJVK!=$xtr!_B_5~e?DC50Sz3wL7g%X; z(n^~AK2K9nE76hg1RBm3?R-0Ygsg0W9voSmv;vGS?k+W~z+SSu>NmpMy z;-Ed?iTCbA^ktq_t?Yc4R_4=6#=7hi@#jSIyci;*26s5RItJFSk6(k-zxG5)hR;{x zY;}6=9_R3HQ%Cz!vU%FeulZw)w8*`uU~U_cl534>t3@dPJWlCX-v1cC1YJ+9KZkD>Ys;X zjsE}hscN8-Cg$Kyf^NYk=O~Wddr(>~PTYE9yT|VGmg?k>9vBC8$y3Ue3W~>brsBHa zg6j*US~3-v!|CzGa)os&Q&NzIZCi%QF&*Nm(>r zNi!7J%;`iD+qNvl)#SFXiscIHlIO~%353SNbC%+&m`Zdb;(8RpBCbHt9+be$?G@1_ zO_ob}xQUWymg2hk3|vMb&_hOCa)S^XS6G)c6-}f`bc)J0hi*kb902hHsKfen6_=D- z5ffKLmo(XADxxVW*IdQ*3)J0Lkv?ejji9qN7#mkumoyc%(n?yPvXvQeWfN_{*t!&4 z5g$*F@;E@WbL$uO>`b=0LYlq;_7#kf%e-zto+Xt{PhSRTt2)+NK$LO}|s z4D%ING1{vLJX+fET+(RA#RV?WCG+^HnVM9FO2u_2c#fjYK1My7qL z)Ui-;wHAQ`<7)#rU5<9$j`DmhgY#iTmkdY5b|%K~*(y<^xJofcb)sLqj!6>bs+l*2 zOX(u{llh#58=*NW!(zqN1+EJb*A|1z;~5&4(j~(Yu|0?8QmINTQCx>k#d?CczJ$Jr zxcv1)xs)!FKbg-mnn&fxkWb4L7xn|{kunrlyS-G-k&z2evo0APv0Y1@)S)uziYthC ze5k(~^m&vUa14!0>5}CU`%0=Jxgfz6iQ=lnWYYN(H#mb@WrF6;ih`pWaNM@RR%pOvQF>$R}IW(@QE?K@cbP=_i zGMTxI`A~1Ha(RP(U#VR7hu4(jbf(-Rix<*rYBQM(%Vl5gv^!$B26d*~Ba0W%`LxPp zGCY^Vr3YiVqB>LVkwrH((s?G6VY&2ZTywEbtJNB{IH)z{A4!}+B{Us--^epOS2Tv> zxT4xf<^-S9u(#IKmy3qsuw0&KT!T>!>Jl&vzTQCHv~e&=!*coj4yRwWmpQIMtttOV zqKlSOgBa|3X<4Gba#&ojtZ30{Wm!=EN%>>86Zxy6k8RDM{CfV|w%^)*Y&&4vYujpD zVXLtf+t~JI;q!$L7w#+UFKj8SE}UBUQNim4&lNmUa8JP(3-%OTQLw3CO~L;BEAt=B z>&bsL_s%>^?(?~2Iq&AQP0(`oWV(Z^?Q-Yj)<_navrKGQX1U$oNg# zP3be!UQX+=PDyLF)>>y-^Q|i_7VFo>Ew{XZul}CnC;3AyG&|DS!gARNi!j;}vEroS-mAVXneFg~Rf~lZoo>B!#CaoJ@5nzldh!zTuxj zPfmElKb3w6Je9r-ET)Hmr_nRO)9C>447wK>3Juza#LdW@9*M-Xa9A-F@(?mwhL1Bsi4>#}hX*Bx{Ot!VTfqgR>x znYo9ZA=K&b700HPooOzPr<-ccT(LZB<`C7 zGZrBYw+GWU9!uq}DDFoC3tuG47%L^qzLXA3+{cY}^yXEgbEx~fDIJoykC3FfA_HqS z{dr4D$0Y8DV^aG%4Og0#Py8;Ghm^Q)`YuIA(@b&_-A83?$?x00~^sA|aOpNMJ*WgzU?Zz+}Ui|hi-m7+Rz02*4_clIbz3vUV<7IRD{oc5~I(%{c)Pt*<;`-9= zZE?qCw7cCtUEGn&rf_SaUFEJaKAX=QKR%43`nWmkTt*CX22n#!^)eYtNQHm)u#mpM z7h{y&!MF2myr1{+t$YjL%s25~zLEFv4SYRc$HukiwR{cl=Bs%Z?+j}U{X8z`3ZBmk zxRQ79ReU91!I$%8d?|0|Z9KsJyftj!$6I(a_wpw0;Y;{p-pJkD$}4#Vw{S3QQ^gCp zn(J6+2RE{tJ?v#4H*qujIlwi%h!?Yy>$!oKvy0E;!*m4KgjP<&e^s2zOL!^Uxt5nf kPeXo&Y5IL+S+`ODksnGXV~hG4%`>FP(PRqS$Zg4g0PI=@o&W#< literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK6E15.DSK b/16/keen456/KEEN4-6/RCK6E15.DSK new file mode 100755 index 0000000000000000000000000000000000000000..29dc676b126c3e6405e2e10efb7170e29c139cc8 GIT binary patch literal 96 zcmWG3ElSE)a8_{6&nro-C{b|B%t=*{VqoMI5@(cRVBq=!B!RRM0}yPGovgM)1x7Og WMZUsh8A0;MvK$N#gZ}?#U;qFyeHK{& literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/RCK6E15.PRJ b/16/keen456/KEEN4-6/RCK6E15.PRJ new file mode 100755 index 0000000000000000000000000000000000000000..6c59aee482e64d1c7229040fc3b4c33d0cb884a4 GIT binary patch literal 13320 zcmeHOd3aRS6+f4mBojiG$$$wM;fYaMWI_T7n=F%=moQ|O@MglI!PJBRVGD!=6fNL} zio5o+{nS>gwp6RFTU-B7>(|zPwW#&0R0XvyF5q6V*1A+*f9Jl*%wsZ>$dw=J=d+vSro|%Mux>`FGx6;_vxw^frTdC_<+pdfvkzZUQ@F%B=G~1IjgarK_ zNVG@FPf2`QYMznuBYAxHQHhU9{3TG(ALZTWB<=-T=y~8gdO>Pll(-K_mi>%$7;P*c z0_g7y9|6QaSo)Z(L_3K7$%RiCK4tifTPgQhfkQr!Jv^TW^$QFyN;~$kxF2E>y#%z< z=iKh0LcqTu4f%qLUoz+b{6G=_VPVP2kj0SAx*Whr8(?`ZKp6_4JceNm`3waBQOHse zOLm6anC<%jaXU+QuyiNG4;X&Pu$$pW0J@Liel9-1@E{lOVz?V%`7ulPFx<=V6NaBM z{EXq}48=_8U<-ybjNsyNER_i38J2Qkq~Pa0ipAp@$^ha7mPP|CW4NeraV*104CM?b zGn|6P`u0;HO_bfN83OT4fLO+G7DFpT8^dyjc7_!UD;ZV+XdT0PhECRPWN8yiJuGcz zX$wo|uyiiNR)+H!&Ii!d4BzD9HiqpCI~XotxRBu@0A0+|B@8>ccqzkWT-?QQ1;bSg z*D_qka6Q8f4Avq*7DF~e4ug$hlJHQ2ss?JBgS87tbF0l0e5zk6)Q|O_`J0g@VJ}#?^k(EMtDxCBB~TwR8_s7YC4TFM&JQ`VS~vc}AmHD;x(aeB%cvs2cX zld{I#lr`odaF6xnLUu}QS?qK- zHd4KORp>hAGiBpV``s0Xw4wAT8*QuC)W!kWwX&;y!vLxcxXPsU6P0qm>K|8GHGRBN z9tegOyBd}9MlI-X3@hbs6#Sw3aco@`gz=j@JC-XGoNda08NQl|dvviaEH`qlO`F=+ zwXSXNN=6)Zh5X6x9gV)izeK4x!>d#TmGZ&v`)KSr+BQ$=WIVxbp7z$Bl`E4!LF!(9 zv?Ph!m8(nCfXlBYzMDDPr=yP$hlv$9MfV4FgXr1+$|HP67uvS=O`SbmZS9J? zbKQpIPjRpp^76s%a1e(#ov!|Xwa~k6LuXgF;_GPbI=idm?Da|7d;N`ry2ULY><*LI z{ohtUtMfbh|JQ%?1gdFxK5`Ot6E-;`vpAE1)BsN0?uHh>%NuaIO$Wx9E`3T)so+$P z>qN=5wTx&B_?m2z%cJ^(@mvvI`dnGqw&loXCrPepg+#45NguXIu6n%0;<+Na^to)5 zOG9O|lO@;2a-!z3NDAaiu1240X*^d%mp)e>4I>N|u2Usf)hJ|F;MaX{7Go0%yTa^P z^nh>DrA<~qg~&wlHJ)xpY}`18=rK6@jNun&5aRuc=+dU5;WUDdlg%bdt`a+PI0%-y zZ0Q>NUS5uP$w}5-O#UvehKX^)a5^K9u(uu@P36gya2+=+dU5CA63p$z~Ojt0#}> zVa%;_z{L*KG&j_=gc?;h7&##muS#1S45W% zR}+OPBpXbTTxAH9Qt&94&t@(jv?Kfi7wgiwG+Ic;nX6iI-2|Tf7_%?%9L-!)5^%9D zohwKIGEN=SB-gu`UoSa{R)N#&X>q&IU$7~bK&AK$HXgRe} zt8Chy$nn` zo4!FUrmE(cH`YUULyb2O)`CvX_D9|+N9atg`xnomWz=k{l90;A;6R_HP8Z6m4sYs0>5H9Q|tc4I?Q2@sY+t5s1LF6QlmOk z>;A>5NLb2jYNT31E`I{QV!HkbOm|mN2dy@h6LJMLkE+S>nuNWM-0>h1V_H-D{zNa$ zr+TiiP+FG=`a81$P zg6|ZHf+q?l*rEb?zXdkqUgyN$IvFe@>7ii< zv{Cdp@Ob(*u#D~jo#_Peo7uaj_j+P_aab|g**{$ejQ#l5Y~Lrh zW@Gz(2UPj)?YoX&dd>Z zjAM(@D@|=Zq-DwV-w2f)DVsycyapVrw~Ru04PWH`yN(b;^nW5z2;LGEDe z>Vugaifn$=u}B(`=a`c$*JQL~Y(8?=(Y&idr%}f*GTJ3JA1?85^-in_^v=eN_KD4p z_#}6A3KE*t55AhoQ;N+$;!_iaP9aZEMh_F451*o+Iw@36fn|p>ZkXhfE>8nGn-7Qv)bqLx}?K%TU069tGK_%rUu|Jl-H5 z&Yc3VDH8Wp=H}4SP&0po%B>RK4{P2)ee$~=d`Y99yWU{3oA@4|TMhB3 zCgjBz|B~Hm3DkLgYO=e@8SC7EurFCNRnr1VZS@3`+UX82ZA@xQOQ6Y@l+oq$1>I~8 zXPS(`!l-hdGC5f=kla1YqPnClYrTdGd;*aZPR1C|B$Ogwd6-7mi#3>I*NJPzHR5V< zmAFz|A$Ez&#bx4Bu~S?kE*2LFBjtIaxIpX>+r>8V&4{Kq6&m|{zBo^873Yd`#1^qx z^oVY;Npy*g;&pn14$=nEDb|a1Vy##sR*Md?N~{!%M3V@MkkG^-dXwHlvTq;lN7C;d zdY8OnfoKpu;THiB6pdn`c!^%7SLi)@pZ-Q4;D1v-#DArHgntJaEyjq+;?MLK`YXLg muhIeZ)8EzS+nJ`XO;&Wsk?H;VWExe?jD4D!Z>EqrQ}S;ZZTxNk literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/static/MAKEOBJ.EXE b/16/keen456/KEEN4-6/static/MAKEOBJ.EXE new file mode 100755 index 0000000000000000000000000000000000000000..94fedafb99eb137a9ea1e89fc3d793f36de69dd6 GIT binary patch literal 13978 zcmeHu4|G)3x$mCyZzhvu5+Hyg4FfbO7>P(~6cS>DZ~_*>2s$AmV30qenApjg#I_+! zoHk@;6Y8H^#kBVoFZSAUxn1@()&Z@A1Sf)G3APrn4=K?)<3UM-WI{5T^M3oBnGn2f zUGKfS)?MqZJNV6<{qNh~{=RR2|4v+XUn`kR?jyxyEYY+)-b0K}5q?Z$$nmf%-tjko zOz2&WuLwV#Qvs&|KL$JjZ~-;|1i%nCojV5jHQ+hGBY5l3xFp83SbFf3gBGQbZ!-3 zE?^E|1|S14Y{5D}2jJI$eSjYU>H%8;YXJ)Ya{;-4V|*tU1atuI97o8iDSwmo|K0iD z9QaS*z`;%~*Eit^*Eak3RGP~Xnt2o1b!P9=WT*5b@n!BLzTBUaP_yZUon%*gUOPQS z2M%c4qkX^Zsa%+SyXfxs9QQ;{`)q!4z(n5b@pf9gJp;bXU1aB(oKI=dzle<*;cCo> z2$@P)G3`nk@e;T1t*-684&RJxbZ0BvEF!;@aSQWZwH8p{*j(7_)xh% z+jEDe*s}f0O>;ggc&kRBhv|FXPD$-4_@iZ#EeSKK?rhx(o#Eoo&Us=sFK%l7mi?yDReu7y48S@Psk=1a1N6 zxtCt>7QN2d-D1E*)X6mSb?#T(dp%UPP^aYEQ6>4F+bU_&>s(&@nzu2zZQ-1Dj6mK= zbgjjgme;Ndj*w`I558=|AT6_CTrh?{C2QVh3!SvqlHBi}rlxDQ*SW+#+E2GiY=7bo zgQS$0mf6nZ;h7k|#>Bi05^;~mDvOqRgx50P;D{;Jx|0*4!hqW~w0viOK-93#j*+gx) zZGj);tc5JC)XBujsiGtFQS5pB2uzp|G$g~nae-k=J_!ZdEvg*ta5y2M2C1UL5!$5% zej@7acP3R-=q%BN=Dol<%V{lmAUGip?|cobIim8AkV&N2s8yrAEpkj>+dN!Rk=(BQ zfd-9p2*mm9(?4iexJXZr_*CRC{NZOKJ^cG?I};~}?68R(QKW!K9O~G%JFYzj)b(qz zHE$mjNx_5^u_lL}>F(*m3PR`^*w&uljuX5_JKj4dzQfZq@Ade0oZ%O+sjfflIl=E{ zS7$~H1i7Wg?00!>I6yc@M0%GeoTA?$+!Ur{fp>T|we>ph5zC%)#=73&_`0(r>&_bM zaQMW!Kk4h%vvvB3oRW8t@ki6tN&XJlgj4-H4sn8##2TWVr~-S?#R8H1t+|%?+;iHf zxovkE*EoJnt;1{H_6I{8@pt?_z3Chtn$8JNej}s!8~Yd)jTfFJ&hjq#b3(f03l4mJ zN{A|#AJDWp?R~$DbT3)gncpmy#>y_ZZ(e!#3aO>(VJ&BXeLKpvT8rkif@30)>#hS}5cgX{q)+P6YL8kq4KB6b+DUWLR3_VaY&i~VY6TL$dYvGaj?w(xjrRwCc zm-h^lx&d!l%%q-RkDuX@Q{QBd=RFOVa}>VWd0BnMyD9deDqzh1im1NCMwdn87%bIH z^jTgpsn3LO=b^#*RP@RM=NaZ|#wNFaN5X{#KA$}B3Lmc4Ji~(fk3P9S_GWlJYt$Tj zMbPB_@V(m8H_hISMRnJ|!tIa;lH2RMyU)=R-RHW`@f{|4Ae^VK{qYXDAIksA=&}Cr zL=AhShc{}CWies`r5D2$+N&1T`l=O>{_8MzCMaJf&Ca2`lg-XSgGx31RclZlG@;k% zc)qmMS1aLA=|mCp>3B37gqDWaAgQsq&^B*FKXIqz2Sq}=)N$BRSm7x5ckOogb90od(CNzbPf_2vX~X!r2T^Y%?J z-xvDfFhdQB2o5mRQg$%s%8uUwVL|tHj&_HCN`P#HR>tB9W)L^$qkNx;m?_+GbzI-X zotjVQvuT;;WKB)ZKf)Tq&i3Rkx0q=@^r9GY3>TF3*YdQiKm3EMi_wJ5u zudQ4GBQzbRhsv>E5R;M=un-`!s%Cs!0uphA1_hlG>}ny(b<{bKe6nFos4trBnLo>I zT9VV{qj&~eUv);K;}1cj^&)m_6vox6icC95ejqM=Is5Uh0!J7+HtJM zjQO`m&tJjg*qqbZ`x6(C59LJ9_a=YPkVN0c9^)}3d~X!ufgTyWPafgDYL0V0;2<~3 z7kK&eY@dip&@ppqX?7RvYa#rZ*5U#s>z|(NSv5gNM88UktK7}?iYsXXh zbHn0W$Vv0-X0xTse5+-F#beoF*=gxDzhZgD@|@+zmW-ssNgI;BpTsBMq5nH?4w+%H z;9(lznk+EFzsRVdy~T(MEahm0Q@lqc+Qq}27*NaOzJHLlU~8|#S}Oe9{xdz=XA<(t?iWW$;PVl(}U%k}XB`uH$>7@A!5GN?S7G8zGrh#$Mq~Uyu}=VJz&CGDputXhVWs14hb@$$t){1NPJ5;~N(X3d zjHY0M(;F692Dm}Hw3BvtJ1hm=b+^)PCS-S-&#amGPEfoAq^Oy6h#&B+ z;c`yQoCrzu`Rcg^zVY;J`eEqS7(EU0!B{;cvLdp?rniHGv!F9HZ3#W$?GU}^W8Oha z4S&!=3XZu_>O?G2EukH_d7)(*?Nrl1@%or*UTF*M9L{TBy#~D0vR6T>Ka>_rKa}nQ zER}M1W=3tk{4&W`4WX zH@AODa)0NOPlhk{Rq)4<4T0>;5@{j-0dCWU9M$y^{n(c)OFcGUE%Cm|<-;ul2^&0L!5uI z+;1|u2YyS4XDCOJJVUeG!Xor~hUV7gdeqsjnUO#9onzluRCO#J#InerpWD$LIsf!? zeCN3C_(TyCYyP~f-W)lD0OJgSEOhGvOJfT)B}`43wQV7@9eRSsKgI0DEte9Zp&r8~ z=^kwIC3VczxOWANB2Nr!)m8+mpsC^oVju5bjnc*7@0ea_f@6|U<8WC6y;7C2+Bq&l%cjv~`| z)!4MQ4{3{$slk-Lp=rsQvUTn@n|rf&8?1ueJD+SzW)}T^!s6wC2%87T+SPI!B#N z7fHNWOnYbE>M%MT3F?;HaODevN-A&>&MkSDap~$m=e5VhtY=JJatvrurg`HXUd@P< za6D10EZe$YtI*__H<(VlmV*%=BXrRnr;%;yxt7IPd{*|S`41Pm+?InTatNV?-E*bR zEgs}})#ABQ=}tY!C1IwA970CIQiE!LitM?PqojEdDopWQQ4oh*S??Z?J~!u2@t%)* zj|psr=@3sajI8JwDOSJ6Cb374n)X7zm_^!?PtcBE5Rbxpe^=Zk1$jt7I>LviLVfHEQbeSTdZze3*k905_lZ8hIL9I1Wx+$}cN#qbsj$A(6?*b* zfx3kz$14_PlUca}2WXM4j?mM_MRS&ie@ir3VvH%33S_BP#KlwNZMY6Z)}aNqJJNBw{B{A=$Ay&g)Im-`a5N6%R z(-JO=@bd}pHZvi7cd%l_ynVDzzgJ+K04d}C@}VHkCmHN_Bu=+Nf^PeuP7N0C2JS=L zzD#h>ZDW|X$5QPCrbM+cxp|jz={Wg_@F5XRaN0sXVt85PD*U^cyNthS@F%v^W zs+L0Uw`wI;zd5{v_0+EdIq4?&p%M;p=3THd9^$RXHArzHpu+t*uC}X36Eu(2nAih@ z(g?+SnE8TkW+jfWbD&~AFiDI+^#`K~57%m*qCqLuZ3a4+fqm?Vdj_R80*YDb$rf6o zRT%dKWyS`HNvF)(9gbf5S&ivM<4&^Sa$~g2;+L)dbJ0i__7i%N_ANm``foL+ed~TQT=?&;p5LXlIf8cMREm7j(q zB+}&p(GW1JA7Z(h0tA9G7a6ES{Zk~^OOzXcpBY`mwJ5cqU~!1Bz#%nKp&IHK3(YZx zl<QSdGup+Y?p|hz97Y+y`Z5um*MgEG>{q zJjgMC2XPx5C=;7C9Ji|h_@e-7kYGUzBpxzdNN9jXOL6*TNe`w(u*Q%-3yq*W(!WF{ z)N!{JY9d`@)fQQs%|=wjhb5DzC@NVMEBi@>Pq?h}{-u5vwDI9jSehOF3kjbkSn(u* zN-yGY5F-TYXJ`@FMSKqROFN|zTcjxbal&TkZoME5Q zI(3&?!{V+{Hgw`B8yb%nKM%nK>uB6lK@q&kB>lp!z=e%Z`8m6=xS{cp=+%*3@e##} zrHJSF@N5kfwjmwW*%{}sE%bVfl?8B*jGA}@i?7)YU=gKqqk2O*oG@Il-@Myl3;ht2 zbuW_F9)84xnefcu;RoT>CWAs&h-19Mem^5%4+4jpRU>S>^)lml=T{&7(kD1N6o9$0 z_)&i=;HW?c%%78RgBA`ED)O>a|23d@TOq=nMUqccZR`rX^9AEGk5I!v0_TU`Zw~>5 zz6dgtCDS5ncrW>CVmAFpVrIvQQ8t9Xh^gyz?I==bYvQ&HL-}Cs7}JDiGvbr<5gvkt zd3c#%IMai;3~>eqRc0SXo%S$ioEB$z2Gfja`f3PMj+J^6WYx2&cRvpQJ3%Z{Jf9=3 z)N3*#2I{aj?uHx{e_d1n~~&-`_6x%W}fer zRx%B2k%!~9Bb6arZAOJ}cwfPgn^S+JPSdAEPT$b(xZBt<`!5itPE_L$S(>&wXXv>R z)4|*}s(2}L6`LD{CM&mHYSgst2uW}!|0l{XPAHSDG4?0kZRwJn5;BHy-lBWZnbH`0 zhj&X|(mm*e_fy6(+Ke!SdF%k}ngz~D&&U)OoiF~Z0$%D;R|&E&8bqq()8i$!t0E_B zwF|nW4m~Ys=f_Obi(ZqMGM)PjHW%SIG;fOrPblC8_XCJ3S**n{)Jwo%atjzjTphn( zdcuYPL4Wt~O~*Pz8~2Q_)nZ*G={3$1P;D5T0z(`G?#X?k3v@8_Io z9P}V{&gpgPu5}GVM^7LF9y{_1>kgpH0lK`F-#o6t_Y?O^Y;jI64JNnOPIt0~zSusp z*v4{?PORfQa)PXaY`pu_1C>Ojf<;vNtHCL4#gPBV8_qPx)mxIjiaEv0e`dATJPi>k z<6q5n&}Zb_dPKVUB8x~%b-spB7(?hP=%MS_QIk3^RxHOXR1QAHlo2amYYFTl><+hn zBZKHc#wez@elQ*(=@CnL>%s{b^afte% zo3L4IPiNrYui30u4^<4K)M}lmZ{}>(mnHPZZelO{qJ*@_1B^~vXaUOCv==0Vlerf8 ziwTZQ=K-Fyw&TM3ZQuyJK7u_w-$aAZEyUh@8%B-})UcQW%&jnp|f$(YKsb}h< zpIjC31KTs8-5MAiS*G2ZkZqKTK6#M2ZBQY4>hUgUp|^`ui~bMDv6&LwV~fDa4sgNI1N3??xNI|8>~vqak<5sAr6|?ua5CQ5xuzE(fTyJTSYUToXKYHZ)UJKswI08?xkx5ra;LwTtQE!8dxYxx=kG<90G_4nW&O#QR z?iWWm-87w*a?biq=-FiOetK_$_fYnNVBK-{7f*p!w#oEf`aXYRMS_p&HyOKU5cMXQ zLqlBROr1v~ZMH2MY^kF)U)Qlw+;N>ZcmRMDRecDR$8kY|<{8 z)il5USZTeA!y}4+J|9P7BK~CWxENw0-2ZsX+bECX%wn|{t8qK$&(3% z5k?e7M`rRiq!9OQ@lj#88MqnI>(~XjRtVb21u%s0XZ3c}^Wr=<$9WuYGc*`%0j3ci zC+04uy}>86izN62fto#G!WFuz{M|$Um@ObnVdvQc=H~=a4VzDd1~DKAsHDmRFp!Ds zVDkMYdXZg9W*$)hf(i3RR(&3%qm z)o{&DLr{zxPQ5?Q2lgCzfvu0V%7|TH`?mNKz8IE{D{)#B4B-ZCp;xYWk66`}#?*P7x-ai2 zn=I8!bg2aeK1^MCx7w}GJ>RcBWlU`3)J6j*-bqh`$m_m+Lda(bA45{>(NR~byaV6RX%FR^hdW;RVrJmt5U6_ zw*Ci?F)0SKdG+I3PwLi_&wAVrGOJx1H{@DLS>>Y}jRh+=Zf2|POE*?+Rvtp%2K?ord;Qie58AIzDtB#B zwp4AlZ>Ur%?UkshZLrVC+Az~f65Bnrv2p`g@ppCu!CA9znNvfSRX(zD`GULbwYTKn zLP|Z;m}E~Uo4Y0K7)cBR_Be3_hUy|-p#<>rm^taf|u&5vU5>h%xX zS8sZJjlFP775G)Ciyl{8mG;LfU60nxvlklU zMfTN&HQ#x3ef8F&HQ>Pi#o~>dtHAyu`~M@FN47ksQvlttCq7fzC(*e2Ybw6>!;O66 z{Tcd4_!}Q%!gcz`@;5$g+|G}ERy)7TzyP*{eS+OK}-*D_$Tb)_I$-ri#1K3F^=N|QG#}4j2Fk*CWvFW z%$YaMU?2TQ6lYGHXdC@Wy9xg%Q`(J~Fz$xQ94Dr66KC8w?#B3(>9)x;CQi>9H-p@> z%t3O${`Ie8m-HD`u(~q|$;dEejA#1FkqlnQND>ntLy7h8w25gJJeV^kjC7`sJY}R? z)6&u`){G1(V{Ec5BV$ZPN=8OvoIK`&UANafSXs5nKF_{sYc;F^Y@crK?VFfEhncCW iR_t51R6VkB!{0IFC<)+mTS}q+k8p?aHwPp=X8YeJ=Bx1l literal 0 HcmV?d00001 diff --git a/16/keen456/KEEN4-6/static/make.bat b/16/keen456/KEEN4-6/static/make.bat new file mode 100755 index 00000000..2bc31c59 --- /dev/null +++ b/16/keen456/KEEN4-6/static/make.bat @@ -0,0 +1,30 @@ +@echo off +rem bcc makeobj.c + +makeobj c AUDIODCT.CK4 ..\keen4\ck4adict.obj _audiodict +makeobj f AUDIOHED.CK4 ..\keen4\ck4ahead.obj _AudioHeader _audiohead +makeobj c EGADICT.CK4 ..\keen4\ck4edict.obj _EGAdict +makeobj f EGAHEAD.CK4 ..\keen4\ck4ehead.obj EGA_grafixheader _EGAhead +makeobj c CGADICT.CK4 ..\keen4\ck4cdict.obj _CGAdict +makeobj f CGAHEAD.CK4 ..\keen4\ck4chead.obj CGA_grafixheader _CGAhead +makeobj f MAPHEAD.CK4 ..\keen4\ck4mhead.obj MapHeader _maphead +makeobj f introscn.CK4 ..\keen4\ck4intro.obj _introscn + +makeobj c AUDIODCT.CK5 ..\keen5\ck5adict.obj _audiodict +makeobj f AUDIOHED.CK5 ..\keen5\ck5ahead.obj _AudioHeader _audiohead +makeobj c EGADICT.CK5 ..\keen5\ck5edict.obj _EGAdict +makeobj f EGAHEAD.CK5 ..\keen5\ck5ehead.obj EGA_grafixheader _EGAhead +makeobj c CGADICT.CK5 ..\keen5\ck5cdict.obj _CGAdict +makeobj f CGAHEAD.CK5 ..\keen5\ck5chead.obj CGA_grafixheader _CGAhead +makeobj f MAPHEAD.CK5 ..\keen5\ck5mhead.obj MapHeader _maphead +makeobj f introscn.CK5 ..\keen5\ck5intro.obj _introscn + +makeobj c AUDIODCT.CK6 ..\keen6\ck6adict.obj _audiodict +makeobj f AUDIOHED.CK6 ..\keen6\ck6ahead.obj _AudioHeader _audiohead +makeobj c EGADICT.CK6 ..\keen6\ck6edict.obj _EGAdict +makeobj f EGAHEAD.CK6 ..\keen6\ck6ehead.obj EGA_grafixheader _EGAhead +makeobj c CGADICT.CK6 ..\keen6\ck6cdict.obj _CGAdict +makeobj f CGAHEAD.CK6 ..\keen6\ck6chead.obj CGA_grafixheader _CGAhead +makeobj f MAPHEAD.CK6 ..\keen6\ck6mhead.obj MapHeader _maphead +makeobj f introscn.CK6 ..\keen6\ck6intro.obj _introscn +makeobj f orderscn.CK6 ..\keen6\ck6order.obj _orderscn diff --git a/16/keen456/KEEN4-6/static/makeobj.c b/16/keen456/KEEN4-6/static/makeobj.c new file mode 100755 index 00000000..fe85a9d6 --- /dev/null +++ b/16/keen456/KEEN4-6/static/makeobj.c @@ -0,0 +1,470 @@ +/* +** makeobj.c +** +**--------------------------------------------------------------------------- +** Copyright 2014 Braden Obrzut +** All rights reserved. +** +** Redistribution and use in source and binary forms, with or without +** modification, are permitted provided that the following conditions +** are met: +** +** 1. Redistributions of source code must retain the above copyright +** notice, this list of conditions and the following disclaimer. +** 2. Redistributions in binary form must reproduce the above copyright +** notice, this list of conditions and the following disclaimer in the +** documentation and/or other materials provided with the distribution. +** 3. The name of the author may not be used to endorse or promote products +** derived from this software without specific prior written permission. +** +** THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR +** IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES +** OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. +** IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, +** INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT +** NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, +** DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY +** THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT +** (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF +** THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +**--------------------------------------------------------------------------- +** +** This is a throwaway program to create OMF object files for DOS. It also +** extracts the object files. It should be compatible with MakeOBJ by John +** Romero except where we calculate the checksum correctly. +** +*/ + +#include +#include +#include +#include +#include + +#pragma pack(1) +typedef struct +{ + unsigned char type; + unsigned short len; +} SegHeader; + +typedef struct +{ + unsigned short len; + unsigned char name; + unsigned char classname; + unsigned char overlayname; +} SegDef; +#pragma pack() + +const char* ReadFile(const char* fn, int *size) +{ + char* out; + + FILE* f = fopen(fn, "rb"); + fseek(f, 0, SEEK_END); + *size = ftell(f); + out = (char*)malloc(*size); + fseek(f, 0, SEEK_SET); + + fread(out, *size, 1, f); + + fclose(f); + + return out; +} + +void WriteFile(const char* fn, const char *data, int size) +{ + FILE* f = fopen(fn, "wb"); + fwrite(data, size, 1, f); + fclose(f); +} + +void Extract(const char* infn) +{ + const char* in; + const char* start; + const char* p; + char outfn[16]; + char str[256]; + char *outdata; + int outsize; + int insize; + SegHeader head; + + outdata = NULL; + + start = in = ReadFile(infn, &insize); + + while(in < start + insize) + { + head = *(SegHeader*)in; + + switch(head.type) + { + case 0x80: /* THEADR */ + memcpy(outfn, in+4, in[3]); + outfn[in[3]] = 0; + printf("Output: %s\n", outfn); + { + int i; + for(i = 0;i < 16;++i) + { + if(outfn[i] == ' ') + outfn[i] = 0; + } + } + break; + case 0x88: /* COMENT */ + switch(in[3]) + { + case 0: + memcpy(str, in+5, head.len-2); + str[head.len-3] = 0; + printf("Comment: %s\n", str); + break; + default: + printf("Unknown comment type %X @ %x ignored.\n", (unsigned char)in[3], (unsigned int)(in - start)); + break; + } + break; + case 0x96: /* LNAMES */ + p = in+3; + while(p < in+head.len+2) + { + memcpy(str, p+1, (unsigned char)*p); + str[(unsigned char)*p] = 0; + printf("Name: %s\n", str); + + p += (unsigned char)*p+1; + } + break; + case 0x98: /* SEGDEF */ + { + SegDef *sd; + + sd = *(in+3) ? (SegDef*)(in+4) : (SegDef*)(in+7); + printf("Segment Length: %d\n", sd->len); + + outdata = (char*)malloc(sd->len); + outsize = sd->len; + break; + } + case 0x90: /* PUBDEF */ + p = in+5; + if(in[5] == 0) + p += 2; + while(p < in+head.len+2) + { + memcpy(str, p+1, (unsigned char)*p); + str[(unsigned char)*p] = 0; + printf("Public Name: %s\n", str); + + p += (unsigned char)*p+4; + } + break; + case 0xA0: /* LEDATA */ + printf("Writing data at %d (%d)\n", *(unsigned short*)(in+4), head.len-4); + memcpy(outdata+*(unsigned short*)(in+4), in+6, head.len-4); + break; + case 0x8A: /* MODEND */ + /* Ignore */ + break; + default: + printf("Unknown header type %X @ %x ignored.\n", head.type, (unsigned int)(in - start)); + break; + } + + in += 3 + head.len; + } + + WriteFile(outfn, outdata, outsize); + + free((char*)start); + free(outdata); +} + +void CheckSum(char *s, unsigned short len) +{ + int sum; + + len += 3; + + sum = 0; + while(len > 1) + { + sum += *(unsigned char*)s; + ++s; + --len; + } + *s = (unsigned char)(0x100-(sum&0xFF)); +} + +void MakeDataObj(const char* infn, const char* outfn, const char* segname, const char* symname, int altmode) +{ +#define Flush() fwrite(d.buf, d.head.len+3, 1, f) + union + { + char buf[4096]; + SegHeader head; + } d; + int i; + FILE *f; + int insize; + const char *in; + const char *infn_stripped = strrchr(infn, '/'); + if(strrchr(infn, '\\') > infn_stripped) + infn_stripped = strrchr(infn, '\\'); + if(infn_stripped == NULL) + infn_stripped = infn; + else + ++infn_stripped; + + f = fopen(outfn, "wb"); + + in = ReadFile(infn, &insize); + + d.head.type = 0x80; + d.head.len = 14; + d.buf[3] = 12; + if(d.buf[3] > 12) + d.buf[3] = 12; + sprintf(&d.buf[4], "%-12s", infn_stripped); + for(i = 0;i < strlen(infn_stripped) && i < 12;++i) + d.buf[4+i] = toupper(d.buf[4+i]); + /* CheckSum(d.buf, d.head.len); */ + d.buf[17] = 0; /* For some reason this one isn't checksummed by MakeOBJ */ + Flush(); + + d.head.type = 0x88; + d.head.len = 15; + d.buf[3] = 0; + d.buf[4] = 0; + /* We're not really MakeOBJ v1.1, but to allow us to verify with md5sums */ + memcpy(&d.buf[5], "MakeOBJ v1.1", 12); + CheckSum(d.buf, d.head.len); + Flush(); + + d.head.type = 0x96; + d.head.len = strlen(infn_stripped)+40; + d.buf[3] = 6; + memcpy(&d.buf[4], "DGROUP", 6); + d.buf[10] = 5; + memcpy(&d.buf[11], "_DATA", 5); + d.buf[16] = 4; + memcpy(&d.buf[17], "DATA", 4); + d.buf[21] = 0; + d.buf[22] = 5; + memcpy(&d.buf[23], "_TEXT", 5); + d.buf[28] = 4; + memcpy(&d.buf[29], "CODE", 4); + d.buf[33] = 8; + memcpy(&d.buf[34], "FAR_DATA", 8); + if(!segname) + { + if(!altmode) + { + d.buf[42] = strlen(infn_stripped)-1; + for(i = 0;i < strlen(infn_stripped)-4;++i) + { + if(i == 0) + d.buf[43] = toupper(infn_stripped[0]); + else + d.buf[43+i] = tolower(infn_stripped[i]); + } + memcpy(&d.buf[43+i], "Seg", 3); + } + else + { + d.head.len = 40; + } + } + else + { + d.head.len = strlen(segname)+41; + d.buf[42] = strlen(segname); + strcpy(&d.buf[43], segname); + } + CheckSum(d.buf, d.head.len); + Flush(); + + d.head.type = 0x98; + d.head.len = 7; + *(unsigned short*)(d.buf+4) = insize; + if(altmode == 0) + { + d.buf[3] = (char)((unsigned char)0x60); + d.buf[6] = 8; + d.buf[7] = 7; + d.buf[8] = 4; + } + else + { + d.buf[3] = (char)((unsigned char)0x48); + d.buf[6] = 2; + d.buf[7] = 3; + d.buf[8] = 4; + } + CheckSum(d.buf, d.head.len); + Flush(); + + if(altmode) + { + d.head.type = 0x9A; + d.head.len = 4; + d.buf[3] = 1; + d.buf[4] = (char)((unsigned char)0xFF); + d.buf[5] = 1; + CheckSum(d.buf, d.head.len); + Flush(); + } + + d.head.type = 0x90; + d.head.len = strlen(infn_stripped)+4; + d.buf[3] = 1; + d.buf[4] = 1; + if(!symname) + { + d.buf[5] = strlen(infn_stripped)-3; + d.buf[6] = '_'; + for(i = 0;i < strlen(infn_stripped)-4;++i) + d.buf[7+i] = tolower(infn_stripped[i]); + } + else + { + d.head.len = strlen(symname)+7; + d.buf[5] = strlen(symname); + strcpy(&d.buf[6], symname); + i = strlen(symname)-1; + } + d.buf[7+i] = 0; + d.buf[8+i] = 0; + d.buf[9+i] = 0; + /* This checksum is calculated wrong in MakeOBJ, although I don't know in what way. */ + CheckSum(d.buf, d.head.len); + Flush(); + +#define LEDATA_LEN 1024 + for(i = 0;i < insize;i += LEDATA_LEN) + { + d.head.type = 0xA0; + d.head.len = insize - i > LEDATA_LEN ? LEDATA_LEN+4 : insize - i + 4; + d.buf[3] = 1; + *(unsigned short*)(d.buf+4) = i; + memcpy(&d.buf[6], &in[i], d.head.len-4); + CheckSum(d.buf, d.head.len); + Flush(); + } + + d.head.type = 0x8A; + d.head.len = 2; + d.buf[3] = 0; + d.buf[4] = 0; + CheckSum(d.buf, d.head.len); + Flush(); + + fclose(f); + free((char*)in); +} + +void DumpData(const char* infn, const char* outfn, int skip) +{ + FILE *f; + int i; + int insize; + char symname[9]; + const char *in; + const char *infn_stripped = strrchr(infn, '/'); + if(strrchr(infn, '\\') > infn_stripped) + infn_stripped = strrchr(infn, '\\'); + if(infn_stripped == NULL) + infn_stripped = infn; + else + ++infn_stripped; + + f = fopen(outfn, "wb"); + + memset(symname, 0, 9); + memcpy(symname, infn_stripped, strlen(infn_stripped)-4); + fprintf(f, "char far %s[] ={\r\n", symname); + + in = ReadFile(infn, &insize); + + for(i = skip;i < insize;++i) + { + fprintf(f, "%d", (unsigned char)in[i]); + if(i != insize-1) + fprintf(f, ",\r\n"); + } + fprintf(f, " };\r\n"); + + fclose(f); + free((char*)in); +} + +int main(int argc, char* argv[]) +{ + if(argc < 3) + { + printf("Converts file to OMF.\nUseage:\n ./makeobj [fx] ...\n"); + return 0; + } + + switch(argv[1][0]) + { + case 'c': + if(argc < 4) + { + printf("Need an output location. (Extra parms: [])\n"); + return 0; + } + else + { + const char *symname = NULL; + if(argc >= 5) + symname = argv[4]; + MakeDataObj(argv[2], argv[3], NULL, symname, 1); + } + break; + default: + case 'f': + if(argc < 4) + { + printf("Need an output location. (Extra parms: [ ])\n"); + return 0; + } + else + { + const char *segname = NULL, *symname = NULL; + if(argc >= 6) + { + segname = argv[4]; + symname = argv[5]; + } + MakeDataObj(argv[2], argv[3], segname, symname, 0); + } + break; + case 'x': + Extract(argv[2]); + break; + case 's': + if(argc < 4) + { + printf("Need an output location. (Extra parms: [])\n"); + return 0; + } + else + { + int skip = 0; + if(argc >= 5) + { + skip = atoi(argv[4]); + } + DumpData(argv[2], argv[3], skip); + } + break; + break; + } + return 0; +} diff --git a/16/keen456/KEEN4-6/static/ripck4.pat b/16/keen456/KEEN4-6/static/ripck4.pat new file mode 100755 index 00000000..9e2b6752 --- /dev/null +++ b/16/keen456/KEEN4-6/static/ripck4.pat @@ -0,0 +1,44 @@ +%ext ck4 +%version 1.4 + +%dump audiodct.ck4 $354F6 1024 +%dump audiohed.ck4 $20DF0 652 + +%dump egadict.ck4 $358F6 1024 +%dump egahead.ck4 $21080 14256 + +%dump introscn.ck4 $1FE40 4008 + +%dump maphead.ck4 $24830 23406 + + +%version cga-1.4 + +%dump audiodct.ck4 $3335C 1024 +%dump audiohed.ck4 $1E7A0 652 + +%dump cgadict.ck4 $3375C 1024 +%dump cgahead.ck4 $1EA30 14256 + +%dump introscn.ck4 $1D7F0 4008 + +%dump maphead.ck4 $221E0 23406 + + +%version 1.4gt # Note: not supported by CK4PATCH v0.11.3 + +%dump audiodct.ck4 $359D6 1024 +%dump audiohed.ck4 $212D0 652 + +%dump egadict.ck4 $35DD6 1024 +%dump egahead.ck4 $21560 14256 + +%dump introscn.ck4 $20320 4008 + +%dump maphead.ck4 $24D10 23406 + + +%version all + +%abort +%end \ No newline at end of file diff --git a/16/keen456/KEEN4-6/static/ripck5.pat b/16/keen456/KEEN4-6/static/ripck5.pat new file mode 100755 index 00000000..cac264c8 --- /dev/null +++ b/16/keen456/KEEN4-6/static/ripck5.pat @@ -0,0 +1,44 @@ +%ext ck5 +%version 1.4 + +%dump audiodct.ck5 $35EC4 1024 +%dump audiohed.ck5 $21C80 828 + +%dump egadict.ck5 $362C4 1024 +%dump egahead.ck5 $21FC0 14796 + +%dump introscn.ck5 $20CD0 4008 + +%dump maphead.ck5 $25990 24090 + + +%version cga-1.4 + +%dump audiodct.ck5 $33B88 1024 +%dump audiohed.ck5 $1F4C0 828 + +%dump cgadict.ck5 $33F88 1024 +%dump cgahead.ck5 $1F800 14790 + +%dump introscn.ck5 $1E510 4008 + +%dump maphead.ck5 $231D0 24090 + + +%version 1.4gt # Note: not supported by CK4PATCH v0.11.3 + +%dump audiodct.ck5 $36424 1024 +%dump audiohed.ck5 $221E0 828 + +%dump egadict.ck5 $36824 1024 +%dump egahead.ck5 $22520 14796 + +%dump introscn.ck5 $21230 4008 + +%dump maphead.ck5 $25EF0 24090 + + +%version all + +%abort +%end \ No newline at end of file diff --git a/16/keen456/KEEN4-6/static/ripck6.pat b/16/keen456/KEEN4-6/static/ripck6.pat new file mode 100755 index 00000000..9d5b51d2 --- /dev/null +++ b/16/keen456/KEEN4-6/static/ripck6.pat @@ -0,0 +1,65 @@ +%ext ck6 +%version 1.4 + +%dump audiodct.ck6 $36EEE 1024 +%dump audiohed.ck6 $20C50 760 + +%dump egadict.ck6 $372EE 1024 +%dump egahead.ck6 $20F50 16683 + +%dump introscn.ck6 $1FCA0 4008 + +%dump maphead.ck6 $25080 24306 + +%dump orderscn.ck6 $2AF80 4008 + + +%version 1.5 + +%dump audiodct.ck6 $36B4E 1024 +%dump audiohed.ck6 $256B0 760 + +%dump egadict.ck6 $36F4E 1024 +%dump egahead.ck6 $259B0 16683 + +%dump introscn.ck6 $24700 4008 + +%dump maphead.ck6 $29AE0 24306 + +%dump orderscn.ck6 $2F9E0 4008 + + +%version cga-1.4 + +%dump audiodct.ck6 $35030 1024 +%dump audiohed.ck6 $1E830 760 + +%dump cgadict.ck6 $35430 1024 +%dump cgahead.ck6 $1EB30 16665 + +%dump introscn.ck6 $1D880 4008 + +%dump maphead.ck6 $22C50 24306 + +%dump orderscn.ck6 $28B50 4008 + + +%version cga-1.5 + +%dump audiodct.ck6 $34DA0 1024 +%dump audiohed.ck6 $1E5A0 760 + +%dump cgadict.ck6 $351A0 1024 +%dump cgahead.ck6 $1E8A0 16665 + +%dump introscn.ck6 $1D5F0 4008 + +%dump maphead.ck6 $229C0 24306 + +%dump orderscn.ck6 $288C0 4008 + + +%version all + +%abort +%end \ No newline at end of file diff --git a/16/keen456/KEEN4-6/timeline.txt b/16/keen456/KEEN4-6/timeline.txt new file mode 100755 index 00000000..353fa4d4 --- /dev/null +++ b/16/keen456/KEEN4-6/timeline.txt @@ -0,0 +1,352 @@ +KEEN 4 RECREATION TIMELINE: +--------------------------- + +2019-02-16: + +- started implementation +- started & finished CK_MAIN.C (except for variables) +- started & finished CK_DEMO.C (except for variables and fancy intro stuff) +- started CK_GAME.C, CK_PLAY.C, CK_TEXT.C, CK_STATE.C + + +2019-02-17: + +- finished CK_GAME.C (except for variables) +- finished CK_PLAY.C (except for variables) +- finished CK_TEXT.C (except for variables) +- finished CK_STATE.C (except for variables) +- started CK_KEEN.C + + +2019-02-18: + +- finished CK_KEEN.C (except for variables) +- started & finished CK_KEEN2.C (except for variables) +- started & finished K4_LEVEL.C (except for variables) +- started K4_ACT1.C, K4_ACT2.C + + +2019-02-19: + +- finished K4_ACT1.C (except for variables) +- finished K4_ACT2.C (except for variables) +- started & finished K4_ACT3.C (except for variables) +- added crawl text in K4_LEVEL.C +- added states in K4_ACT1.C + + +2019-02-20: + +- added states in K4_LEVEL.C +- added states and initialized variables in CK_KEEN.C +- added states and initialized variables in CK_KEEN2.C +- added states in K4_ACT2.C +- added states in K4_ACT3.C + + +2019-02-22: + +- added ID Engine (taken from Catacomb 3D) +- started creating header files to put it all together +- fixed tons of typos... + + +2019-02-23: + +- finished header files +- fixed remaining typos & compiler errors +- code compiles, but linking fails because of missing data that needs to be + included in EXE (AUDIOHED, AUDIODICT, EGAHEAD, EGADICT, MAPHEAD) +- first builds - lots of memory(?) issues, quitting freezes DOSBox +- fixed menu colors in ID_US_2.C +- renamed "SKULL 'N' BONES" to "PADDLE WAR" (still need to fix speed issues in pong) +- fixed error in GFXINFO (wrong number of tile16's) now help texts and quitting work +- fixed memory issue by increasing number of memory block to 1200 (Cat3D used only 600) +- first level loads now, but RF_Refresh() locks up/takes forever + + +2019-02-27: + +- modified VW_ClearVideo to match Keen4 behavior (also adding in the bug) +- modified USL_TearDownCtlPanel to use VW_ClearVideo instead of VW_Bar +- fixed error in DrawCacheBox -> animation plays correctly now + (but RF_Refresh still locks up/takes forever) +- fixed error in ID_CA.H (Keen4 uses tile info order SPEED, ANIM, NORTHWALL, ...) + -> RF_Refresh doesn't lock up anymore +- fixed error in GameLoop -> can now enter sub-levels from world map +- fixed error in KeenAirReact -> can now land +- fixed bug in score box (used ammo number for lives) +- status freezes the game +- fixed signed/unsigned division bug in KeenStandThink +- fixed spawn position for slugstain +- fixed error in PlatformThink (platforms got stuck at the top/right end of the path) +- added Keen4 Highscore defaults +- fixed error in StatusWindow -> status window doesn't cause an endless loop anymore +- fixed error in DrawStatus (bad positions for a few things) +- fixed bug in CheckGrabPole -> can climb on poles now +- fixed error in KeenAirReact -> grab edge with correct y position +- fixed error in KeenClimbEdge1Think -> climbing left works correctly now +- fixed bugs in SpawnFlag (darn typecasts...) +- fixed error in ScrollScreenWorld +- fixed error in KeenPoleTihink -> won't fall off when pressing left/right + + +2019-02-28: + +- fixed lindsey floating bug (typecasts) +- fixed mimrock walking +- fixed arachnut contact +- fixed riding the foot +- fixed thundercloud not randomly turning towards player +- fixed missing VW_UpdateScreen in LindseyDialog +- fixed KeenAirReact +- fixed EggContact +- fixed controls for scuba keen + + +2019-03-01: + +- fixed Sprite, Dopefish and Schoolfish +- seems fully playable now... + + +2019-03-16: + +- renamed PlayDemo to RunDemo, since that's the name that is used in the Keen 4 Demo +- fixed Dopefish contact code (used to check 'ob' instead of 'hit' for a keenobj) + + +2019-04-10: + +- fixed bug in PatchWorldMap (info layer value wasn't set to 0 for completed levels) + + +2019-05-04: + +- replaced all sprite numbers with enum names +- fixed error in WormouthLookLeftThink -> changes state to s_wormouth now + + +2019-05-06: + +- replaced some more numbers with enum names + + +2019-05-11: + +- fixed error in MergeTile16M + + +2019-05-17: + +- fixed bug in WormouthThink (used PIXGLOBAL instead of TILEGLOBAL for xdist) + + +2019-05-19: + +- actually moved all far strings into far memory + + +2019-09-27: + +- fixed a minor error in PageLayout (skip anything <= space character, not just space char) + + +2019-09-28: + +- fixed a bug in control panel (had to adjust indices because options menu was added back in) + + +2019-11-26: + +- started implementation of Keen 5 stuff (K5_*.C) + + +2019-11-28: + +- started implementation of Keen 6 stuff (K6_*.C) + + +2019-11-30: + +- finished implementation of Keen 5 & 6 stuff + + +2019-12-09: + +- reorganized KEEN4 project to add support for Keen 5 & 6 without too much redunancy +- added code specific to Keen 5 and Keen 6 to the main codebase (CK_*.C) +- excluded code specific to Keen 4 from the other builds (lots of #if & #ifdef) +- Keen 4 still compiles fine, 5 & 6 still need some header files + + +2019-12-10: + +- created header files for Keen 5 and Keen 6 +- all 3 projects compile, but still some bugfixing to do and features to add: + - refresh manager constants must be adjusted + - copy protection for Keen 6 isn't implemented + - sounds for animated tiles (Keen 6) aren't implemented +- fixed a few bugs, first couple of levels in Keen 6 are playable now + + +2019-12-11: + +- adjusted refresh manager constants (now Keen 5 levels are playable, too) +- adjusted position of the "PRESS A KEY" graphic in the status window + (position in Keen 4 differs from 5 & 6 because of the wetsuit box) +- added RF_MaskBlockWhite and a few other things +- studied Terminator-related code in depth, trying to understand it all and + find names for all those variables + + +2019-12-12: + +- finally found and fixed a bug with the turret shots in Keen 5 +- fixed wrong pole shooting sprites (left and right sprites were swapped) +- fixed demo-breaking bugs in Spindred and RoboRed (Keen 5) +- fixed worldmap elevator door code (Keen 5) +- fixed worldmap rope and rocket bugs (Keen 6) +- still a demo-breaking bug somewhere (Nospike / Bloogdome, Keen 6 obviously) +- fixed pole check for shikadi pole sparks + + +2019-12-15: + +- FUCLING FINALLY found and fixed the demo-breaking bug in Keen 6 + (was in NospikeRunThink) +- fixed bug in Shikadi Master spawn (y offset used tile units instead of pixels) +- started implementation of the Terminator intro and the Star Wars text crawl + + +2019-12-16: + +- finished implementation of the Terminator and Star Wars stuff, but now the + compiler crashes... +- found and fixed the issue that crashed the compiler +- fixed all bugs in the Staw Wars text crawl +- fixed all bugs in the Terminator intro + +2019-12-17: + +- added tile animation sounds for Keen 6 + + +2019-12-19: + +- implemented Keen 4-6 version of VW_SetScreen (in _ID_VW_AE.ASM) and my + customized version of the routine (in ID_VW_AE.ASM). swap the files if you + want to use the original code +- added support for the NOPAN parameter +- added US_CheckArg in ID_US_1.C +- added Quiet AdLib mode +- added Gravis Gamepad support + + +2019-12-20: + +- fixed CheckHighScore bug (each episode uses a different map number) +- fixed shockshund bugs (blast direction, stun jump) + + +2019-12-21: + +- fixed EagleWalkThink (condition for starting to fly, Keen 4 obviously) +- fixed tile-based item stealing for TreasureEater (Keen 4) +- fixed force field toggling (Keen 6) + + +2019-12-22: + +- fixed bug in EagleFlyReact (Keen 4) +- changed ConfigVersion in ID_US_1.C for full compatibility with version 1.4 + (saved games are still incompatible, though) + + +2020-01-05: + +- modified PaddleWar code to match the code from Keen 4-6 + + +2020-01-06: + +- moved minimum memory requirement into the episode headers + (Keen 4 & 5 need 310,000 bytes, Keen 6 needs 300,000 bytes) +- added missing code in SD_Default() (also marked the bug in there) + + +2020-01-08: + +- fixed a minor issue in ID_RF.C related to the tile animation sounds in Keen 6 + + +2020-02-21: + +- fixed a bug in Bipship movement code (Keen 6) +- modified sound engine to avoid SDL_Delay entirely and read port 0x388 instead + (which is exactly how version 1.4 and above work) + + +2020-03-05: + +- fixed bug in Ampton walk code + + +2020-04-24: + +- added the title screen in DemoLoop() (after high scores) +- replaced some chunk numbers with their enum names in K4_LEVEL.C (smoke sprites) + + +2020-05-20: + +- SpawnEnemyShot now makes the object removable (KEEN5) + + +2021-05-05: + +- fixed bug in PageLayout (negative top row index) + + +2021-05-05: + +- fixed bug in JanitorDialog (bad picture position for KEENMADPIC) + + +2021-06-06 to 2021-06-23: + +- renamed things in Keen 4 & 5 to what is believed to be the original naming + scheme - Keen 6 stuff is still guesswork +- adapted code to make it compile with Borland C++ 2.0 and 3.0 +- adjusted compiler settings and code to recreate the original executables as + closely as possible (for automated comparison and verification) +- found and fixed a few bugs along the way + + +2021-06-24: + +- tracked down and fixed any remaining differences +- compiling (with source debugging enabled) and then compressing the EXE files + with LZEXE Version 0.91 creates EXACTLY the same files as the original v1.4 + releases shipped with +- Mission accomplished, I guess... + + +2021-07-01: + +- first public release of this source code + + +2021-07-03: + +- Keen 6 EGA v1.5 can now be recreated with this source code thanks to NY00123 +- added some more comments to the source code, mostly explaining what the temp + variables are used for in each actor's code +- changed the function names in the Keen 6 code from ...Think, ...Contact and + ...React to T_..., C_... and R_... for more consistency with the Keen 4 and + Keen 5 code, also changed some state and sprite names for more consistency + +2021-07-08: +- all CGA executables of versions 1.4 and 1.5 can now be recreated with this + source code +- added a few more comments diff --git a/16/keen456/LZEXE.EXE b/16/keen456/LZEXE.EXE new file mode 100755 index 0000000000000000000000000000000000000000..727c203780b89d7e2f39313b268df9d9705ba3d2 GIT binary patch literal 12304 zcmaKycU%)$+xI6u1X8FXAc+kN!h%?-($%#f7A&jCDk`o8Qvh9sKu{n-EW2w#S4CV` zL03>zzycw3ECehxg#dvGp(G(BLzv9Gxu55`-}m|4f4nm}bNxPNa?Y90%$zgVxz2a} zP6jX?001lyXcbtLi|3m(4fuj}GTC)IS9+qT-MXEj+e5usp=@?6kIiBtVKLm8BeCkO zS@Kc<69DIiV7sxY!}{uEJTVHTpMMLWc2T7$5Rto#h$3LcvRdb;+&fk}h*4pxIw~f@ zv$Erm^{4_e6T{Q#AY`d4$ZZ1xY@w{--BoxX4V#AarRYietT057i~w9qd!!UWO3?%) z*A9PyDZzkS(07srn@=8_g@z@Cd9aQhKYAeLblko}ak1=O?yB7^)-GsD6MHo7*zUkt z{gBx#RxIufhs$C}S^IgcxFm&<_4Wi$k#L;HNs~-{KgHVjEnY&8*~jg5cV9OzHtBYp z{un3j__5EgVh-C^wsX_oD;wdMq$Bg1W4Rrt+*hn?K0Wj|^2(U@ejhu{o~+*=Q<_|b z)5iC3kH@hmEG~5N*h5_R#SwKedRF|Ar~BuH9XO69bGut&NZG36`*?XY?%Q8ZTNvF# zHU`(JJuB_Xhr$Kk}7BFO5h_UbvJ?iEB^ zKPdSGQL{#%d+=_gdV_YL6*ABCA24$NxN5{HLeSpwnG+l{wz^df>Mr(-X~ytlUlQ=2 zQBW?^#P#1DDa8O0=&~R{p#vM`k{R2&`rL@h7`8Ero!Ks91+eCC{9(g_k}j-@^78z9 zWhnkVNU33+dj6U=#!p5!a*4MR3>$bAS{~^xNTCG>I2H8A z9E@e{H`=U=9TIDKrLrGnt7BtEH^|Ol+|7UOp*XUR&ExmJ`+{!f9aErf9qw2v#Wj?} z3B3?=k|rxT*c*FnKP}*yeQ!*{eOBOz{VYhZXgSS3s%hX3RS2%%gF}yE4 zwzmvhQ*tmS?nHYr3;0v|{$)o5F{Sh1vG)CwGrii(H{nB#{BdbeY9^!mxYLD`PXqMx ze>m8^z;bg8i+j=j?v8ZLR+l17>rdQ|iX+#*GYltq^J0DAgx}-rPJPeh`e}^hcB6Y} zFn@2)>-a5U>f`&#yDu`2W86*)y>+cEM-E8&nV9dn8kW6pZ}?H!6aAvqNB4H;JI9r` z#vM42#!?@t+;{b7h;m@UMaWomz?eIpH}}+E+j{$l(kWy0W^;1JQq)$M=?aZ@bSR>7 z-|p6Ag~Jw3{Bmh{Zlao<7SVSw)}8;EV-t~}FfMutWGj!R9i41+UkI8n1u2*1Yc%sS zrY5?_FGRmSc5vo`Jjc*|>^QSgOra4p8|(kUGt!}JXhgBmvFMIEF zfCHrCF$0u`VXz&$@Mw^w&iQtiIo+DwYg3k%g;ZY z`&~CatfLcj2$Eu@LqLpP;J*cM;^GwNffY1e5CG@|0E#}`ZW^t5zvk@({5)3jY%7wc z{6C&gZW$>ij67Gm`4xX%={XQQ09jgBtX4vdXvpEI1A& z5rE8*#nwFq@08t|i2Q=PfGcy(k%UgQ{Lv11o51rS@eit0rjdG7}ee&bnTVAi&w zl5sR)=%;f=Fjw$Otvc5x(Qd)sQ<)#or7E)>M=E)%k7&8OnoF(9Orsm-Rvl3R(Lnj+ z)!fE=%$)rDK$hJDzg58MeUH`y*!3~%^B0R5?%Tyq{v;kXb&VMCmG2n?l+--(iILXw zQA<@dk)f}AD%SDLROLL}E+0iXu)UQ2Lo!5Hz=sqN1ziS2oQ6wOh&d26bgB=s$b(;e z%kM+;od0itP<&Qcb4-%I%*T+J zFric8(B|Z+$Dp0UsJQ~t;c-!z=C>fdf^kYew03Aj>(;w=cpTQvEwxk%dE0hfsMKDs zRMG$Fyw|xhqx+|~ZRSx+lM4Cci{Pg{^jYu_M1A>Bwfku(yUJ(edH!7>|6Vgw$$#`k zUHSl94gmMc-%uWp#*V^2C<3q*w4h-E9T2ntR5(ME6=o36(&i09*1dUYID#tr;Xz|< z*f(H#d0!Vqsn6;#8xL*fI`yAV{&rhU?#^+9%x-9u^&Q&!4wX&rGu4ZZJN;SP2HLcz z+cdO*>^G44c1>LvymncQ9ix2N=eExsbMGa$ojxSIWA?>eBltqQ1os=Mmms=p2POdr z-kG4?1!t0tLk~x{l!4}j=Xw=Ev+`aHlT_4!eAkBVV8?Ak0s~Nz7v`r*4=h;tT#Gkm z58)wm)8o$`jai}Cje|jz;HQ)qfHF51a$K0_=Z6A`E6x^nLiPe^dH}54{4?bE2y!WK z41?$mkky<|BmG|*BuEzISXb#ipuPh+!6y~R`t<78=4Ic(ohlEl4Ot9Y@1c&Wy6cEP zoe=*7n#IA@Lz9LZ?e?vkM)UUoLj<%u7-KoqkLK_Fr}t;z<^K4#;q{jgTq?n=SAm0v z^TMnR`3HbfR91z$>V1f-^;zwQ;#q)NX_hzM$6q!6p;y1pvnl`Z>m&8z;$ydJC*lEG zUp`yAc@YXJp zi>+%7X?f}E^8X1u_nR<3^QQJ`j}_(7cqRSpm3Jz$qV}Bi7 zir#VA{Ki90XUexfaI=d^5B~B9N#h(plD6ottu?t*k2{XdyZ$il;nCb_&asbT50LVD zV{O*XyVNzI|De4^46nUDHO-qvS#+N@A3Jw}`C;*Ii}-~pdHCY%nerK38c~`i+vFpL zm^!H?r_!PJ%7m$7-s`*D2boRwL6niiCz4M-FV!jJ)7yP+O4*SwJ4`PF#_C9=&0^Ct zjV7>~MZ|H;=xiIB^!{&&|S6gAtjy=)2 zqeF0M>Sm|KQqPvruFL=Golau^h5-gD5|_LFS!59=T&) zacBTCziAE8&nNSLdZ>A>h{;!LLgsBMW!kZDHHS|Sd(6Ct|}pHQ8+4{Ltnepjy6KooDT z_wWfIVaYXkz$gS<&knp^PI@?T37&kcyN4nhP-VeO&EhJpD|A=L+V<0#MW;09fAw6s z;(N-`)I3xzyFR$z9}*W{`pGjx5j*U?kv5r&6E=H4Ca1NOC&5igB$yD4Hdf z_N-nlQi-7PzsyE>Z72%oRONJf>O9eM2JkqmMp}oCtmP4)rwk76o>J|3Ow}+3nXzYS zAu}neg(!i60Tz#5qQW+X^;=OJO25%E#{byE?Ej> zaM|m_n`ifiO>77bU2yry3&<0N=D&ETjy;xeyy54evzInqRiAvdMjaHm?l<*NDlKwL ze8;As&BkBiV%EfPVtM!U!ETT!(I!%Z}FwIEMGmJ(GOA99zEI*Is9%) z-%V+Ly@x5&jBS#yUp_Y-iP(Nj_Cq#`#XvHILKf9(gm?sZ$LLKQ#%_WV8T!lb z#_t}*DT6ZzwL}B;=~BMGwl#&tB~6;~h%~SYRSr`tmMI;XyCE~WmBXyhu}Zu^J4bx6LMG+FAQKur2X10OX?|%UN)Dr!*Y7y=SYR|exv^? z!~Qt#tTob!INO-kyE2IcGW%9|ByM}xn9X{pEn^(s!#rnzV>vU{F0^-esQi~>PFSB+kOv0dRLrB$H>_&^u=e-(cy`>*k-Key z7woNPw;}8PdIp)F)f?$M#SteQ-B8PV>SEcWso=FFt5L{I*)lR?Ta13`-s~Usx^ztp z=|fuc&X31c=6AI-Mj*>u5XHF{vYonf8JYfZ;u!B}+Ne(J`l(av5aI=UNiz@rYT0D! zf@WKfK>|-YdhgMpw&e>f?aJKB2A*h+t#BxawGWx}3p!%+MVqX-KB1kt<&AG{$k$CA zE}N(D{RWw_w)|76KAU#6;W~W($YSsG65w*fBZtjDsaqMVf(8$&hL-Do!ev@*o-q*) zQbN8hj8#N#Aze+CQ{+2M>czvEa&!3!le!_dSPIKi zO^Pq416+csuB$y)dmzibJq(9P`7_grP`RbNGx)GcEtFfyQIn;w?vd}8Lvo0r-5iYZ ziOSVQg7u4sSo9mCY3KgB#)iB)TA=yadLsl9=&%?epr6jq$1^?E?$wp zHmT+EYo?~Ynv|3Lx?C+NGAWGQE>MocZKRqS836ol$em1?O+mr(j+JtMlPr?|d6+DZ zHmN`4xAYI?wiTyL|5X0!cYEOc-?vQDj2OQ=0}o6#+%NCc&_I((x%u547&Tez&&CSk zmjz0Q>fX?Z{iUju4~PPe*m(e1bvaeCis9G76twE~g(EnC28KZCHE-=|>$1@p9Fzs+ z$3xeOEL3br#jTUr#@OU17%2Hk!(mmPj0J1Vv+Pc5iM1QF$y$DhI0=Kw(rtjvn3Uv+Qy;&jXN2 zey^4oLZDW_FnX<8LdjTB$tC3tnGH)__S!?O&z_3>0b2iCIFlej(L~YNblhB&F6|*; zSBX^8faF2Z&9pgLf5H{%=~=HW_|S7`e@4L9sMNYIqOU=s8L55FNONDRRXx(o#XKs?mo3;!nBDjH4!>yR=4 zlfo(;YZxyq!+2BxJmDoQFC)QxDoD)X-dL)G~?#*4-@TtxbwD zry8Cah*Dz^^GdFjQY~`crzWCm*hNUnB!u_MO4o|>QAuWX1&-;Z164>~piexRs7@y4 zP32EXwA-Q>QZ^-VMymf309T1&+y16JUo=L?fTt1REj1`alra~Xqg?PPBJdv|B+mN^ zbFLxG;T=y`ua2051v69|knMBctscv+1{tiV_wMgC-Wf#An$qg3)SiP-z$d|!St8}f zA1M;h3*Oj8xd^%;BFSoS-V9dRf^Uj5jIg-^BBW#dHU*qkVSsod{Q?Z!VLRY1fX0V? zQ|Ya`@hKHJs#fq5jqAIC=sg;Z5)U0K=rw|85yiw>qeAU0xu8%{(-)*7Fu=jnQQd4M z;o|4a>ag(C0TfrsOdW(Z93BaJ1=bqRD1c;~!t<|p$i-uS#GU&+=;S%B?)Ww5HluNx zF}@F6XxLQa97P*H3o>!~+-iE<5hWgrVNEVjf-nm-DTC3t^#s0n3WYr0AGTOH-S5q zfkI{IhX8Epa^RA_nTdF{=+*g)&e53VKVV7&5XZUiXEG(_@2gz+E*a_o0J%i;#j~+R zxQG&%d3g(AJEfoNR%&JW43Uk86G}ZSUjk2cegry(Z&=8)`#}59gT6MF0Yq>Cp~UJL ztIiReMUbp2d25g8z{}&=! zCP^vU4KBe?Lc9rZCawvzyA;<4Hwq0B`E-0!DTbsR!rbm9Mu3yp?Q&tgP)i@J^&aJ6 z7gvJX?BKeiyhQvNtS{{udzyDoqGbk&gI%^jW9GfgRRg8Cy~Q@-0k9Y=tXfF459&lJ zFZ`vg1?FhKXZFp!&i zwXZ}`c=HNU3)k8U&8cfth@2OBLG!N>fwes7{WHZ)WL@v1q%9g>`fW)$idq3atsDpa zxTvi^<^hgJMwu44ftaEf1HnScK#;JGL4=zI=fKJ~Qq2=_TB&r>BQi@$OywNJm6`jcg2ZH+c9c3CpnZhM16 z)_Ny{v)8?V%KE#~8SO5jt@yQTD?b|cx>TRB@aja3hiKqWXc-3ZC9jUL=6d+1pm=V` z8ed25JfE1^zC`YFUleuVhWS#t8+}>qk3JpTCKnXV!~}!a0H5y(m7;OwYx7PN$1N=) zgBd^(3rw4WV{~VLAA5(C_j~_QiEvt6gv3_*HwL5U%^v%_?jOYWk`DQif1cdkMl{oMw0AeOP z;o6T=Mby0SAa;uKi}<914Qyx0?9qj;ZXsU26z0o$U5~?JD0X98AYk0x^-usRy=n4D|XZ%lmu@orf`>z2=JZwo3k(q-ARKk=_uH7SH+wcPnZ_0q62JVzd zQaIH+tRxBtA9be`_QE7)^oV*})K=nq25I*MgCM>bPqh};Y@__`VR-d-@F6J&@718h zj+tTrUsq@pmkM_$w|BwhF42a2L3~U*`y1R#)T4p%RG?fe?Z_s20A3@aYJyQ^4SZOe z-GZyiFUzL@G#O60Cf~wnXLJD0pe}je*8q%s=a`1Nx8E>jRsk?@5q5u6vh+^YjO_%^z5};@`al2rUnOb)R;KM69xC*)oMWaf#ykYV;*r80!_FX%6?up*bBz-Jx z28?Guzm(PkJ9a5a>O8LouTBJ=GnKy(5Q)ttTxK2(p#%P6%bZFVA7=)@C88=18$dad zEpc_m3X}|#nMGR!WI4M7)y^(JcBOgnN9*_MiTwG-CH5b}tuTj(o0~i&q5I{u2z{5o zH%+Ue&ULP_b)L|u^DMfH%!x(Z1+T_1i^Qs#c}8$C@Cwm7S2DESr zRp787$zk+c$vUySko4n2B3cTr0D_g{lH&aX#S~P%Tc*S>?$@dD9uaT13nk6fk_Z^Y z=pw?U5)}yI^mFL_zTWHr7>g$fn@fnL5&-Ks8%>$BWa+ZyD^_~@`1<(=@FICeJuglW z7|UiKXR`nncmi;r(Ltp^?HNRerl6TXomhr8jxoDi%_fRoQwtZ8M-1|qQO z^!Rb&X|fs$#V6YLwv{%too{oc(^YJ0>gXjl$!D2ox)Xb_agaNRp!Jh7mB^r%MMR2f z^?jl?3?i!24(;5IYsE=Xv}vnIVXoxvHSfH6lA@RDQEjV0j1jZ~<}K=GeM`}=ggJs1 zA5YPgm*&k((-J_TXRGT6$8HWD_rbb*LfV`nleVnq4gGnNZkjHR6O=th>Qp5}+1<2z zNTC=s3eZ#;lS`BiN!xl2_P8KzPo?(anc@^FMEPYn^dxA5;W*~aLi+;La{w+2O(3Gq z?QG-x~aaqq3BTW5_mFhwR8nRf6OM;(TZ?}6X-#2SD8lxJV0 z1nLQSMY62WjaBQu5bU}6gQAfuvJ8b2fW|DTvcrmMMPIA^HLiB{h{BcloimTX0M?>0 z%9$>>twa~styt5o6vr2yycXgaG)Cay4QP*`j%<$dIzcyV6Zqb;1@jtWc)VWtlkDv4 z?LHlB$9D~*UoV4i)zyj0R_ATz(yoRA)P z1dO}-LDcQ)oLzf^cEc3qnE66#H$ybM`Vv4?i#MWuwbZO%AW14@`LJo>oxfgAyn`$x zY9r|vZGwVlmNevksr}8*YA?_)-5v7@vhZ=X(>XnrB>B*6ARC`Q5@~Ekk_J`}FW)#x z&N%CHo9&!fScmhWvZsv`6PJIhBtr3tKcpI!hQC{38JpEbU{61ncyBMG3zpfa4ZUT= z_0~&edhL_zJo=3g=H4s{E(?%=Rts09(BF@c)bIU>vWin#X9Qzp?sSn}IvU`Fz_?}3 zfX}jz34|<1_ddz<;$@St%U=i_R@<7Ts{11YXX)zCx?%05Q?2l8Y@N=KjB&7DXz7V3 zU#CmQOr?8${6jqOKi-Q~lQUI?9QEkS=DBn>3MgfW1ShQ$H40=ZbV|@mHy2A_QCD`y zJ_UJM4H}h*e^el>Upz8?FQ?<6VgSyh4^euF%S0P1&h&bV6R<*Y7i316KPn_F?w{%Y z0UfhwBny|fC!>u-^M({$VHr;CDrQ^bV^)=po(XF3c`*2l_%U@|LxHHicyT(p0_7A? zuVrLBasdcSU1|wv27RHf88;a&h=I(kiv#j#suZEc7pd)H9bM%rW!snjc8hBrgru!@UTl!t`bMK^bZ!##gac#`#qzQzA~3%uI^-+`jsGBQi>>d^)P1fx7#4R~6;7 zFJceXnr=Odsb#k}loIH8Ob-CkrN4a(C#OVk3b)WRD`oe0LmI`#gw3tBA z@of6Dz6z&=U5oqc&_(0~+b2Uxx~`VbGp*@2_e)!)El9nm#;cP9dHlm4NJ*8Kd41lC zPMl#Ein&-ZI0>Ku2}id^L~Yw78Ws+V#zlta3ooRC5rQy`XpACSgqR{r_QmApHV!cY zjx<8yIm6A;P@iF5bF(4+9Id&%`BQpK_-!nIaRR4|y!%B1^XI(#XATD}6i=Y@eyYQH3WOzJ)f^#KHm!za<+3hkpxdPH{a$iF><<7GL`V8QX$C<1De-=OA+?> z!)$ZY@Hip;vVGUi9lOg>4n_K%11kwgBh$i6Kn;icIO$Nn6Fdm`G*i3FJ3j4y(0Xhlfp=>h<10IFY zwD7Wzfa29e>3g8ea6w;R_GBUop4M`P${P|$pcKsYBDaFKT=QZxcb_d8(X_He3&@E> z64c@ch9LT~q92e-cULEOM>?jDGvSWYTkHGKzJlI<(Z^`lj}o8}P095EWD^Abm21GN zAUbg8+=}!d#ylVa2ZsUskK|F{QPjX(>ZR-3;llTG<&sdf!Hq`<3t!W>dSVV2MMGSK zGx$nxzJ$V=udf1BK2o0NX7}>Q2m`z;It3@$W!<{#Snel{Re10F4Lnc378UKOp>!&S zjpLG^v5HI&9GX_AfQX#t@t61#_9yxn@{y;bH1|rC<>~DLR5olAC73i%#+8{rpPW#k zXP^l*YXg#*028CmqpIX#I}#`bqDi9$k!ePXnCp@(a0!O6ljPd4VL-{Oa@T(sAQqS2 z*7E5Ar-ql-1`V?vHYCxJ9)(`DGJ!U#990F>eewj*FoTy47Hxx6QPQ<5x? z4J&0lY8eqI?SaS8@xsNG1$R0k7V%5g>xKyg6a|FU*F^Q(1(WSOOyH&{JzCKYuE0d^ z@J;35!B?0yo1Qq&QWU2ztamx7Yh9w$y|pl8G>!)4jqqzcTr%B?3j^qpn*%jLG6TE= zC*EP*uKi||s^RbrypN0qV24Fy3Ry5r_NvSZgNz0}YJ~fuu81?k5MLIT?CZ*9B6wdn z9yUA+Oa#0-O~EhfM}<3&qyi5C`p)g$Nj_rkg1&_h(n7z+@|X}hxEZ`;+{L!WwTU#> zQPfAnqnN0IGX%d%GzB-QjE6iI3!6k&MSBb)G-DggpX@qA*;L#G?l{Rb@Wpe$NWg(D z@8l;V;ht^~4`)}W$y$zB{<+8-PvN)+-+GIbU%L)APMzp4M!{PEn2pCwu2g5KooOYz zly#Du9jDjm(J7ad5S5zJaPuTq*Dh@5qi7#2oN88LyBDM9E95kHk;iF*aW@v;is#F4 zFO5;{TYyLE$vg0$DrpiXTQ^dD2;ao9NLsJFQ%3QLQ=I>}%@P&k2}5A9=c3$usg7?bsA^hg;E7%zO} zyD{O7+FobubRC@;&U1rRZN6taLau7}dh5<(Ff$Z!hzmOXmpq&}HQJyj zDaZLSUJY5)Qo!#COf8xXV^PAyS}wN4moG!lc%+z}-|F#xCVOKRLE>B*YS}7k{{k-% z&8R{fLk3H8Ek*U&O}eUQBtFlw4wvTwl#aL1KYQ(45xd?#Yqvubf6S@ea@oOW(#|rO z5*t+J#s>r)yRYAB5n0n3Ma_2==l}2n!LquUGfD!+%ktX9K6R=#E{i|xup(HgiP|Y@ zb#49{SZ*vXS#>S7;vc#e?^3hXV)=~o%u8S z4<#!du_tyAZtj3W;c^RE8|YWuJj@$@xwpt+QetxXpH@On_nvvcD}|`8aHio z{%rdjXV!K0bfRXr4MERUye11?K@{em9o=h#QRFMQ3FX;<@#yDG)L>sKPr}!N`?VBa zeraAqiE{2&^w3vI%B!dyXVD@G$VX*H;?#uT%zMxCmvDGgmu#OrJX(~j9DIfLAs!(1 zT)VyajhCIJ=Xphb*4ol%ru^=hs+qp+jr;I#>T*p7WZQ^TC93Zufgo6OOJySE1j8(5Ol2R2iM$of1bsw%WEUKKS&0XSfCah)3sfI0 zKv>-I%%Gky<%k#-eHc65XLUZg=eW2?&&Kvq0yKx+e!X92p^#r*@Sy*?Xd6X;rUPc^ zcfylK9&^uiS8+0RUwZP1`rYP7pVFV4Pw0V{?L~~e&~0PF^1AEM##Pa9vN0OYHAX|` z+1DI2(eSG1%4mpIS@+`X!pUfhXtZrNL|K*5k!B{^W3iLgpvH@7C&k_8T{n;glSpzI zf>y!@J(q_v`2L~fP>2!{Ul18u85$f4S#+dq7e+QS;-q$Q&31RZff7Hj7UdI{`I~&p zF}=Q@`~H+VK)i}2?LDo3NS8$X-ntIhx!q+dVRomL^Q?9v)2ksok{CN=c{y~`Y`82%T4BsnD`$&`{J4Rvw*V3XRFHS6OBd&c)u}# zr~X^!pQNCV+-X@ftNT=H zKgw?;T%#RB)^1&NZ{`|x0X(kJ1ZeL!Psplh+6)F*Ce6Y2b5Z@cY)E z-4xalru8$6T%=AeIAQK8c5G#v{Cm|9c5!=)fBF|K&($?1w3c@Tb0soDgE+M8+QHhY zDm(>yt}N8nG*X{TTez?x>Qa?QNua9+iP|;sqcXy|CV_Z9xybGZ*$a?%V#q(Fzhqk@ zVPeQ8nC^T&;S+O0EvWO@jeaP&{LsLROW!lcH-=60JrzYr#4ci8I*CGouVFxCLac#9 zcBTWXmGK3819K5er2Quw@ozE$i1-&8@xQ?cfbnlGB1iHsFycS4i2sBl{)I%C;D~=i z5e?G+o57y-|Fl&4zja{X|8Nq(V^Lc%?tgOhj5 zI6EqVPN&%tra4kfo4124!(==y7ff^duX5CB;ilpYDuenz)z}hd6V_YOEZwGAts>B- zO(W6WtVnj#9VpCc1j-DW({#d#X$NL{g*YuBFc`K@m#hP+mX;K%72zuFzpHUJ)kh^z zZ0)J$G_n "Directories" from the main menu. Make sure that the Include and +Library directory settings point to a version that you actually have installed. + +Note that RCK4, RCK4C, RCK5, RCK5C, RCK6 and RCK6C are set up to compile with +BC30, but using the Library directory from BC20. This is required for +recreating the original executables, but if you don't have both of these +versions and you don't care about creating 100% identical copies, you can just +change the directory settings to point to the compiler you have. + +To actually compile the code, press F9 or select "Compile" -> "Make" from the +menu. + +Compiling all of the files may take a while, depending on your CPU cycles +settings in DOSBox. By default, DOSBox should automatically switch to maximum +cycles mode when Borland C++ 3.0 or 3.1 are started, but not when Borland C++ +2.0 is started. You can simply enter the command "cycles max" at the DOSBox +prompt (or add it to the batch files) to switch DOSBox into maximum cycles mode +if the automatic switch doesn't work for you. + +With the current code base, it is completely normal to get 3 or 4 warnings as +the code is compiled. One may come from CK_KEEN2.C ("Condition is always true") +when compiling Keen 6 v1.5. The other three of them should come from ID_US_1.C +(2x "Condition is always true" and 1x "Unreachable code"). You can ignore these +warnings. + +Once the code has been compiled, simply press ALT+X or select "File" -> "Quit" +from the menu. Don't just close DOSBox while Borland C++ is still running, you +would just end up with lots of useless swap files in your project directory. + +Type "exit" at the DOS prompt to quit DOSBox. + +Please note that you should always quit DOSBox after compiling a project. +Trying to compile a second project after the first one may cause issues with +the provided batch files and the way they adjust the PATH environment variable. +For example, DOSBox may end up starting the wrong version of the compiler. + + +Recreating the original executables +=================================== + +Here's the TL;DR for advanced users: + +RCK4.PRJ, RCK5.PRJ, RCK6.PRJ, RCK4C.PRJ, RCK5C.PRJ, RCK6C.PRJ: +- Use same compiler settings as in the provided RCK?.PRJ files +- Use LIB directory from Borland C++ 2.0 +- Use INCLUDE directory from Borland C++ 3.0 +- Compile with Borland C++ 3.0 +- Compress compiled EXE file with LZEXE version 0.91 + +RCK4GT.PJR, RCK5GT.PRJ, RCK6E15.PRJ, RCK6C15.PRJ: +- Use same compiler settings as in the provided RCK?GT.PRJ/RCK6?15.PRJ files +- Use LIB and INCLUDE directories from Borland C++ 3.1 +- Compile with Borland C++ 3.1 +- Compress compiled EXE file with LZEXE version 0.91 + +To create 100% identical copies of the original v1.4 EGA executables, you will +need a copy of Borland C++ 3.0 as well as a copy of Borland C++ 2.0 (or at +least the LIB directory from Borland C++ 2.0). + +Make sure to start with the original project files included in this package. +Those have all of the compiler options set to the correct values. Different +settings may produce slightly different code and the whole point of this is +to get code that's 100% identical to the original executables. + +Unlike Borland C++ 3.1, version 3.0 will not recompile every file when you +select "Build all" from the "Compile" menu if neither that file nor the header +files used by that file have changed since the last time that file was +compiled. Therefore I recommend that you delete all *.OBJ files from the +"KEEN*\OBJ" directory to make sure everything gets recompiled. The CLEANUP.BAT +file will take care of that (can be run in Windows as well as in DOSBox). + +Open the project in BC30 and select "Options" -> "Directories" from the menu. +Change the "Include Directories" path to the INCLUDE directory from BC30 and +change the "Library Directories" path to the LIB directory from BC20. + +Compile the code (select either "Make" or "Build all" from the "Compile" menu) +and once the compiler is done, quit to DOS(Box) and compress the new executable +with LZEXE. To compress RCK4.EXE, you must type "LZEXE RCK4.EXE" and hit Enter. +The program will display a message in French about additional information at +the end of the executable that will be lost after compression and ask if you +want to abort. Type "N" and hit Enter to compress the file. + + +For reference, these are the results you should be getting after compression: + +Keen 4 EGA version 1.4 (Apogee) : size = 105108 bytes, CRC = 6646B983 +Keen 4 EGA version 1.4 (FormGen) : size = 105140 bytes, CRC = F91E558B +Keen 4 EGA version 1.4 (GT) : size = 106178 bytes, CRC = 0A05442E +Keen 4 CGA version 1.4 (Apogee) : size = 98007 bytes, CRC = F544DD41 +Keen 4 CGA version 1.4 (FormGen) : size = 98007 bytes, CRC = 018FA365 + +Keen 5 EGA version 1.4 (Apogee) : size = 106417 bytes, CRC = 2A45589A +(No FormGen release of Keen 5 EGA version 1.4 is known at this time.) +Keen 5 EGA version 1.4 (GT) : size = 107611 bytes, CRC = 5E450B12 +Keen 5 CGA version 1.4 (Apogee) : size = 98880 bytes, CRC = FB9EB429 +(No FormGen release of Keen 5 CGA version 1.4 is known at this time.) + +Keen 6 EGA version 1.4 (FormGen) : size = 107719 bytes, CRC = 9CDACDAE +Keen 6 EGA version 1.5 (FormGen) : size = 109058 bytes, CRC = 5B828EE2 +Keen 6 CGA version 1.4 (FormGen) : size = 100964 bytes, CRC = F36A4C51 +Keen 6 CGA version 1.5 (FormGen) : size = 102166 bytes, CRC = D2F379B8 + +The GT versions appear to have been compiled with Borland C++ 3.1 and its LIB +directory, but otherwise using the same compiler and optimization settings as +in the earlier Apogee/FormGen versions. + +The only difference between the Apogee/FormGen and the GT versions of the Keen +4 and 5 executables (obvious differences in the included OBJ files aside) is +that the GT version has only four entries in the help menu instead of five +(the Order Info section has been removed) and that the GT version has a +different set of default high scores. You must have GOODTIMES defined to +compile these versions (already set in the RCK?GT.PRJ files). + +Keen 6 EGA/CGA version 1.5 was also compiled with Borland C++ 3.1 and its LIB +directory, but it uses completely different compiler and optimization settings +and also has one new variable in CK_PLAY.C that is never used but still has to +be present to recreate the original code. It appears that somebody just pressed +the "Fastest code" button in the compiler optimizations window before version +1.5 was compiled, which was a bad idea for this code. None of the variables in +the ID Engine are marked as "volatile", not even the ones that may be changed +by an interrupt. That means the optimizations may end up generating code that +leads to endless loops, as is the case with the "while (!LastScan);" loop in +the PicturePause() routine. + +To recreate the exact same files as the original Keen 6 v1.5 executables, you +need to compress the generated executables with LZEXE and then hex-edit the +compressed files to replace the "LZ91" signature at offset 0x1C in the EXE file +with four 0 bytes. If you don't have a hex editor, you can use K1n9_Duk3's +Patching Utility for that step. Simply open the "fix_RCK6_v15.pat" or the +"fix_RCK6C_v15.pat" patch file (located in the KEEN4-6\KEEN6\OBJ and +KEEN4-6\KEEN6C\OBJ directories, respectively) with K1n9_Duk3's Patching Utility +and let it patch the compressed executable for you. + + +Borland C++ 2.0 issues? +======================= + +Any versions of Keen 4-6 prior to version 1.4 appear to have been compiled with +Borland C++ 2.0. Version 1.4 is where they switched from 2.0 to 3.0 (without +changing the Library directory to the one from 3.0 for some reason). + +The code in this package can be built with Borland C++ 2.0 and the compiled +executables appear to be working perfectly fine. But when that version of the +compiler was used to compile the "Return to the Shadowlands" source code (which +is based on an earlier incarnation of this source code recreation), it caused +problems. The code compiled without errors, but the compiled executable would +always quit with the error message "Abnormal program termination". + +The reason for this error was that the compiler appeared to have forced the +"grneeded" array (declared as "far" in ID_CA.C) into the main data segment +instead of giving it its own far data segment. With this additional data in the +main data segment, there was simply not enough space left for the stack and +that is why the program aborted with an error message. + +It is unclear what caused this problem. The same source code compiles perfectly +fine with Borland C++ 3.1 and produces an executable that actually works. If +similar issues arise when working on mods based on this source code, try using +Borland C++ 3.1 instead of whatever version you were using before. + + +Special Thanks +============== + +I would like to thank Jason Blochowiak, Adrian Carmack, John Carmack, Tom Hall, +John Romero and Robert Prince for creating Commander Keen 4-6 in the first +place. + +Special thanks to John Carmack (and the rest of id Software) for releasing the +Wolfenstein 3-D and Spear of Destiny source code to the public in July 1995. + +Extra special thanks to the late Richard Mandel of Flat Rock Software and +everybody else involved in the process of getting the source code of some of +the games id Software made for Softdisk (Catacomb series, Hovertank, Keen +Dreams) released to the public. I have learned a lot from the source code of +these games and this project certainly would not have been possible without it. + +Thanks to PCKF user Multimania for supplying additional information regarding +the names of functions and variables for Keen 4 and Keen 5. + +And last, but not least, I would like to thank NY00123 for figuring out how to +get the compiler to recreate Keen 6 v1.5 and also for sharing a lot of valuable +information about the "gamesrc-ver-recreation" project in various public posts +on the RGB Classic Games Forum (among other places). That's where I first heard +about the TDUMP utility, which is certainly a much better way to extract names +from the debugging information that some executables came with. And using IDA +to open executables and then make IDA generate ASM files that can be compared +more easily using tools like FC in Windows/DOS is pretty much the best way to +track down differences between those two executables without going insane. + +[END OF FILE] \ No newline at end of file diff --git a/16/keen456/ripnmake.bat b/16/keen456/ripnmake.bat new file mode 100755 index 00000000..ab8b8dbc --- /dev/null +++ b/16/keen456/ripnmake.bat @@ -0,0 +1,20 @@ +@echo off + +cd keen4-6\static + +echo Trying to extract data from KEEN 4 ... +ck4patch ripck4.pat +echo. + +echo Trying to extract data from KEEN 5 ... +ck5patch ripck5.pat +echo. + +echo Trying to extract data from KEEN 6 ... +ck6patch ripck6.pat +echo. + +echo Converting data files to .OBJ ... +call make.bat + +cd ..\.. \ No newline at end of file -- 2.39.5