[submodule "16/abrashbb"]
path = 16/abrashbb
url = https://github.com/jeffpar/abrash-black-book.git
+[submodule "16/keen4-6"]
+ path = 16/keen4-6
+ url = https://github.com/sparky4/keen4-6.git
--- /dev/null
+Subproject commit 287b78e38f9e8adff78100e0a95227ac926540ed
+++ /dev/null
-; Reconstructed Commander Keen 4-6 Source Code\r
-; Copyright (C) 2021 K1n9_Duk3\r
-;\r
-; This file is primarily based on:\r
-; Catacomb 3-D Source Code\r
-; Copyright (C) 1993-2014 Flat Rock Software\r
-;\r
-; This program is free software; you can redistribute it and/or modify\r
-; it under the terms of the GNU General Public License as published by\r
-; the Free Software Foundation; either version 2 of the License, or\r
-; (at your option) any later version.\r
-;\r
-; This program is distributed in the hope that it will be useful,\r
-; but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-; GNU General Public License for more details.\r
-;\r
-; You should have received a copy of the GNU General Public License along\r
-; with this program; if not, write to the Free Software Foundation, Inc.,\r
-; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
-\r
-;=================================\r
-;\r
-; EGA view manager routines\r
-;\r
-;=================================\r
-\r
-;============================================================================\r
-;\r
-; All EGA drawing routines that write out words need to have alternate forms\r
-; for starting on even and odd addresses, because writing a word at segment\r
-; offset 0xffff causes an exception! To work around this, write a single\r
-; byte out to make the address even, so it wraps cleanly at the end.\r
-;\r
-; All of these routines assume read/write mode 0, and will allways return\r
-; in that state.\r
-; The direction flag should be clear\r
-; readmap/writemask is left in an undefined state\r
-;\r
-;============================================================================\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_Plot (int x,y,color)\r
-;\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-plotpixels db 128,64,32,16,8,4,2,1\r
-\r
-CODESEG\r
-\r
-PROC VW_Plot x:WORD, y:WORD, color:WORD\r
-PUBLIC VW_Plot\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
-\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+2*256 ;write mode 2\r
- WORDOUT\r
-\r
- mov di,[bufferofs]\r
- mov bx,[y]\r
- shl bx,1\r
- add di,[ylookup+bx]\r
- mov bx,[x]\r
- mov ax,bx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add di,ax ; di = byte on screen\r
-\r
- and bx,7\r
- mov ah,[plotpixels+bx]\r
- mov al,GC_BITMASK ;mask off other pixels\r
- WORDOUT\r
-\r
- mov bl,[BYTE color]\r
- xchg bl,[es:di] ; load latches and write pixel\r
-\r
- mov dx,GC_INDEX\r
- mov ah,0ffh ;no bit mask\r
- WORDOUT\r
- mov ax,GC_MODE+0*256 ;write mode 0\r
- WORDOUT\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_Vlin (int yl,yh,x,color)\r
-;\r
-;============================================================================\r
-\r
-PROC VW_Vlin yl:WORD, yh:WORD, x:WORD, color:WORD\r
-PUBLIC VW_Vlin\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
-\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+2*256 ;write mode 2\r
- WORDOUT\r
-\r
- mov di,[bufferofs]\r
- mov bx,[yl]\r
- shl bx,1\r
- add di,[ylookup+bx]\r
- mov bx,[x]\r
- mov ax,bx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add di,ax ; di = byte on screen\r
-\r
- and bx,7\r
- mov ah,[plotpixels+bx]\r
- mov al,GC_BITMASK ;mask off other pixels\r
- WORDOUT\r
-\r
- mov cx,[yh]\r
- sub cx,[yl]\r
- inc cx ;number of pixels to plot\r
-\r
- mov bh,[BYTE color]\r
- mov dx,[linewidth]\r
-\r
-@@plot:\r
- mov bl,bh\r
- xchg bl,[es:di] ; load latches and write pixel\r
- add di,dx\r
-\r
- loop @@plot\r
-\r
- mov dx,GC_INDEX\r
- mov ah,0ffh ;no bit mask\r
- WORDOUT\r
- mov ax,GC_MODE+0*256 ;write mode 0\r
- WORDOUT\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-\r
-\r
-;===================\r
-;\r
-; VW_DrawTile8\r
-;\r
-; xcoord in bytes (8 pixels), ycoord in pixels\r
-; All Tile8s are in one grseg, so an offset is calculated inside it\r
-;\r
-;===================\r
-\r
-PROC VW_DrawTile8 xcoord:WORD, ycoord:WORD, tile:WORD\r
-PUBLIC VW_DrawTile8\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov di,[bufferofs]\r
- add di,[xcoord]\r
- mov bx,[ycoord]\r
- shl bx,1\r
- add di,[ylookup+bx]\r
- mov [ss:screendest],di ;screen destination\r
-\r
- mov bx,[linewidth]\r
- dec bx\r
-\r
- mov si,[tile]\r
- shl si,1\r
- shl si,1\r
- shl si,1\r
- shl si,1\r
- shl si,1\r
-\r
- mov ds,[grsegs+STARTTILE8*2] ; segment for all tile8s\r
-\r
- mov cx,4 ;planes to draw\r
- mov ah,0001b ;map mask\r
-\r
- mov dx,SC_INDEX\r
- mov al,SC_MAPMASK\r
-\r
-;\r
-; start drawing\r
-;\r
-\r
-@@planeloop:\r
- WORDOUT\r
- shl ah,1 ;shift plane mask over for next plane\r
-\r
- mov di,[ss:screendest] ;start at same place in all planes\r
-\r
-REPT 7\r
- movsb\r
- add di,bx\r
-ENDM\r
- movsb\r
-\r
- loop @@planeloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_MaskBlock\r
-;\r
-; Draws a masked block shape to the screen. bufferofs is NOT accounted for.\r
-; The mask comes first, then four planes of data.\r
-;\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-UNWOUNDMASKS = 10\r
-\r
-\r
-maskroutines dw mask0,mask0,mask1E,mask1E,mask2E,mask2O,mask3E,mask3O\r
- dw mask4E,mask4O,mask5E,mask5O,mask6E,mask6O\r
- dw mask7E,mask7O,mask8E,mask8O,mask9E,mask9O\r
- dw mask10E,mask10O\r
-\r
-\r
-routinetouse dw ?\r
-\r
-CODESEG\r
-\r
-PROC VW_MaskBlock segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD, planesize:WORD\r
-PUBLIC VW_MaskBlock\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov [BYTE planemask],1\r
- mov [BYTE planenum],0\r
-\r
- mov di,[wide]\r
- mov dx,[linewidth]\r
- sub dx,[wide]\r
- mov [linedelta],dx ;amount to add after drawing each line\r
-\r
- mov bx,[planesize] ; si+bx = data location\r
-\r
- cmp di,UNWOUNDMASKS\r
- jbe @@unwoundroutine\r
- mov [routinetouse],OFFSET generalmask\r
- jmp NEAR @@startloop\r
-\r
-;=================\r
-;\r
-; use the unwound routines\r
-;\r
-;=================\r
-\r
-@@unwoundroutine:\r
- mov cx,[dest]\r
- shr cx,1\r
- rcl di,1 ;shift a 1 in if destination is odd\r
- shl di,1 ;to index into a word width table\r
- mov ax,[maskroutines+di] ;call the right routine\r
- mov [routinetouse],ax\r
-\r
-@@startloop:\r
- mov ds,[segm]\r
-\r
-@@drawplane:\r
- mov dx,SC_INDEX\r
- mov al,SC_MAPMASK\r
- mov ah,[ss:planemask]\r
- WORDOUT\r
- mov dx,GC_INDEX\r
- mov al,GC_READMAP\r
- mov ah,[ss:planenum]\r
- WORDOUT\r
-\r
- mov si,[ofs] ;start back at the top of the mask\r
- mov di,[dest] ;start at same place in all planes\r
- mov cx,[height] ;scan lines to draw\r
- mov dx,[ss:linedelta]\r
-\r
- jmp [ss:routinetouse] ;draw one plane\r
-planereturn: ;routine jmps back here\r
-\r
- add bx,[ss:planesize] ;start of mask = start of next plane\r
-\r
- inc [ss:planenum]\r
- shl [ss:planemask],1 ;shift plane mask over for next plane\r
- cmp [ss:planemask],10000b ;done all four planes?\r
- jne @@drawplane\r
-\r
-mask0:\r
- mov ax,ss\r
- mov ds,ax\r
- ret ;width of 0 = no drawing\r
-\r
-;==============\r
-;\r
-; General purpose masked block drawing. This could be optimised into\r
-; four routines to use words, but few play loop sprites should be this big!\r
-;\r
-;==============\r
-\r
-generalmask:\r
- mov dx,cx\r
-\r
-@@lineloopgen:\r
- mov cx,[wide]\r
-@@byteloop:\r
- mov al,[es:di]\r
- and al,[si]\r
- or al,[bx+si]\r
- inc si\r
- stosb\r
- loop @@byteloop\r
-\r
- add di,[ss:linedelta]\r
- dec dx\r
- jnz @@lineloopgen\r
- jmp planereturn\r
-\r
-;=================\r
-;\r
-; Horizontally unwound routines to draw certain masked blocks faster\r
-;\r
-;=================\r
-\r
-MACRO MASKBYTE\r
- lodsb\r
- and al,[es:di]\r
- or al,[bx+si-1]\r
- stosb\r
-ENDM\r
-\r
-MACRO MASKWORD\r
- lodsw\r
- and ax,[es:di]\r
- or ax,[bx+si-2]\r
- stosw\r
-ENDM\r
-\r
-MACRO SPRITELOOP addr\r
- add di,dx\r
- loop addr\r
- jmp planereturn\r
-ENDM\r
-\r
-\r
-EVEN\r
-mask1E:\r
- MASKBYTE\r
- SPRITELOOP mask1E\r
-\r
-EVEN\r
-mask2E:\r
- MASKWORD\r
- SPRITELOOP mask2E\r
-\r
-EVEN\r
-mask2O:\r
- MASKBYTE\r
- MASKBYTE\r
- SPRITELOOP mask2O\r
-\r
-EVEN\r
-mask3E:\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask3E\r
-\r
-EVEN\r
-mask3O:\r
- MASKBYTE\r
- MASKWORD\r
- SPRITELOOP mask3O\r
-\r
-EVEN\r
-mask4E:\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask4E\r
-\r
-EVEN\r
-mask4O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask4O\r
-\r
-EVEN\r
-mask5E:\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask5E\r
-\r
-EVEN\r
-mask5O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask5O\r
-\r
-EVEN\r
-mask6E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask6E\r
-\r
-EVEN\r
-mask6O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask6O\r
-\r
-EVEN\r
-mask7E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask7E\r
-\r
-EVEN\r
-mask7O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask7O\r
-\r
-EVEN\r
-mask8E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask8E\r
-\r
-EVEN\r
-mask8O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask8O\r
-\r
-EVEN\r
-mask9E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask9E\r
-\r
-EVEN\r
-mask9O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask9O\r
-\r
-EVEN\r
-mask10E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask10E\r
-\r
-EVEN\r
-mask10O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask10O\r
-\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_InverseMask\r
-;\r
-; Draws a masked block shape to the screen. bufferofs is NOT accounted for.\r
-; The mask comes first, then four planes of data.\r
-;\r
-;============================================================================\r
-\r
-PROC VW_InverseMask segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_InverseMask\r
-USES SI,DI\r
-\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE+16*256 ;set function = OR\r
- WORDOUT\r
-\r
- mov es, [screenseg]\r
- mov ax, [wide]\r
- mov dx, [linewidth]\r
- sub dx, ax;\r
- mov ds, [segm]\r
- mov si, [ofs]\r
- mov di, [dest]\r
- mov bx, [height]\r
-@@yloop:\r
- mov cx, [wide]\r
-@@xloop:\r
- lodsb\r
- not al\r
- xchg al, [es:di]\r
- inc di\r
- loop @@xloop\r
- add di, dx\r
- dec bx\r
- jnz @@yloop\r
-\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE+0*256 ;set function = no change\r
- WORDOUT\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-;============================================================================\r
-;\r
-; VW_ScreenToScreen\r
-;\r
-; Basic block copy routine. Copies one block of screen memory to another,\r
-; using write mode 1 (sets it and returns with write mode 0). bufferofs is\r
-; NOT accounted for.\r
-;\r
-;============================================================================\r
-\r
-PROC VW_ScreenToScreen source:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_ScreenToScreen\r
-USES SI,DI\r
-\r
- pushf\r
- cli\r
-\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+1*256\r
- WORDOUT\r
-\r
- popf\r
-\r
- mov bx,[linewidth]\r
- sub bx,[wide]\r
-\r
- mov ax,[screenseg]\r
- mov es,ax\r
- mov ds,ax\r
-\r
- mov si,[source]\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
- mov ax,[wide]\r
-\r
-@@lineloop:\r
- mov cx,ax\r
- rep movsb\r
- add si,bx\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloop\r
-\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+0*256\r
- WORDOUT\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_MemToScreen\r
-;\r
-; Basic block drawing routine. Takes a block shape at segment pointer source\r
-; with four planes of width by height data, and draws it to dest in the\r
-; virtual screen, based on linewidth. bufferofs is NOT accounted for.\r
-; There are four drawing routines to provide the best optimized code while\r
-; accounting for odd segment wrappings due to the floating screens.\r
-;\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-memtoscreentable dw eventoeven,eventoodd,oddtoeven,oddtoodd\r
-\r
-CODESEG\r
-\r
-\r
-PROC VW_MemToScreen source:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_MemToScreen\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov bx,[linewidth]\r
- sub bx,[wide]\r
-\r
- mov ds,[source]\r
-\r
-\r
- xor si,si ;block is segment aligned\r
-\r
- xor di,di\r
- shr [wide],1 ;change wide to words, and see if carry is set\r
- rcl di,1 ;1 if wide is odd\r
- mov ax,[dest]\r
- shr ax,1\r
- rcl di,1 ;shift a 1 in if destination is odd\r
- shl di,1 ;to index into a word width table\r
- mov ax,SC_MAPMASK+0001b*256 ;map mask for plane 0\r
- jmp [ss:memtoscreentable+di] ;call the right routine\r
-\r
-;==============\r
-;\r
-; Copy an even width block to an even video address\r
-;\r
-;==============\r
-\r
-eventoeven:\r
- mov dx,SC_INDEX\r
- WORDOUT\r
-\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloopEE:\r
- mov cx,[wide]\r
- rep movsw\r
-\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloopEE\r
-\r
- shl ah,1 ;shift plane mask over for next plane\r
- cmp ah,10000b ;done all four planes?\r
- jne eventoeven\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-;==============\r
-;\r
-; Copy an odd width block to an even video address\r
-;\r
-;==============\r
-\r
-oddtoeven:\r
- mov dx,SC_INDEX\r
- WORDOUT\r
-\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloopOE:\r
- mov cx,[wide]\r
- rep movsw\r
- movsb ;copy the last byte\r
-\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloopOE\r
-\r
- shl ah,1 ;shift plane mask over for next plane\r
- cmp ah,10000b ;done all four planes?\r
- jne oddtoeven\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-;==============\r
-;\r
-; Copy an even width block to an odd video address\r
-;\r
-;==============\r
-\r
-eventoodd:\r
- dec [wide] ;one word has to be handled seperately\r
-EOplaneloop:\r
- mov dx,SC_INDEX\r
- WORDOUT\r
-\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloopEO:\r
- movsb\r
- mov cx,[wide]\r
- rep movsw\r
- movsb\r
-\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloopEO\r
-\r
- shl ah,1 ;shift plane mask over for next plane\r
- cmp ah,10000b ;done all four planes?\r
- jne EOplaneloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-;==============\r
-;\r
-; Copy an odd width block to an odd video address\r
-;\r
-;==============\r
-\r
-oddtoodd:\r
- mov dx,SC_INDEX\r
- WORDOUT\r
-\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloopOO:\r
- movsb\r
- mov cx,[wide]\r
- rep movsw\r
-\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloopOO\r
-\r
- shl ah,1 ;shift plane mask over for next plane\r
- cmp ah,10000b ;done all four planes?\r
- jne oddtoodd\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-\r
-ENDP\r
-\r
-;===========================================================================\r
-;\r
-; VW_ScreenToMem\r
-;\r
-; Copies a block of video memory to main memory, in order from planes 0-3.\r
-; This could be optimized along the lines of VW_MemToScreen to take advantage\r
-; of word copies, but this is an infrequently called routine.\r
-;\r
-;===========================================================================\r
-\r
-PROC VW_ScreenToMem source:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_ScreenToMem\r
-USES SI,DI\r
-\r
- mov es,[dest]\r
-\r
- mov bx,[linewidth]\r
- sub bx,[wide]\r
-\r
- mov ds,[screenseg]\r
-\r
- mov ax,GC_READMAP ;read map for plane 0\r
-\r
- xor di,di\r
-\r
-@@planeloop:\r
- mov dx,GC_INDEX\r
- WORDOUT\r
-\r
- mov si,[source] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloop:\r
- mov cx,[wide]\r
- rep movsb\r
-\r
- add si,bx\r
-\r
- dec dx\r
- jnz @@lineloop\r
-\r
- inc ah\r
- cmp ah,4 ;done all four planes?\r
- jne @@planeloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VWL_UpdateScreenBlocks\r
-;\r
-; Scans through the update matrix and copies any areas that have changed\r
-; to the visable screen, then zeros the update array\r
-;\r
-;============================================================================\r
-\r
-\r
-\r
-; AX 0/1 for scasb, temp for segment register transfers\r
-; BX width for block copies\r
-; CX REP counter\r
-; DX line width deltas\r
-; SI source for copies\r
-; DI scas dest / movsb dest\r
-; BP pointer to end of bufferblocks\r
-\r
-PROC VWL_UpdateScreenBlocks\r
-PUBLIC VWL_UpdateScreenBlocks\r
-USES SI,DI,BP\r
-\r
- jmp SHORT @@realstart\r
-@@done:\r
-;\r
-; all tiles have been scanned\r
-;\r
- mov dx,GC_INDEX ; restore write mode 0\r
- mov ax,GC_MODE+0*256\r
- WORDOUT\r
-\r
- xor ax,ax ; clear out the update matrix\r
- mov cx,UPDATEWIDE*UPDATEHIGH/2\r
-\r
- mov di,[updateptr]\r
- rep stosw\r
-\r
- ret\r
-\r
-@@realstart:\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+1*256\r
- WORDOUT\r
-\r
- mov di,[updateptr] ; start of floating update screen\r
- mov bp,di\r
- add bp,UPDATEWIDE*UPDATEHIGH+1 ; when di = bp, all tiles have been scanned\r
-\r
- push di\r
- mov cx,-1 ; definately scan the entire thing\r
-\r
-;\r
-; scan for a 1 in the update list, meaning a tile needs to be copied\r
-; from the master screen to the current screen\r
-;\r
-@@findtile:\r
- pop di ; place to continue scaning from\r
- mov ax,ss\r
- mov es,ax ; search in the data segment\r
- mov ds,ax\r
- mov al,1\r
- repne scasb\r
- cmp di,bp\r
- jae @@done\r
-\r
- cmp [BYTE di],al\r
- jne @@singletile\r
- jmp @@tileblock\r
-\r
-;============\r
-;\r
-; copy a single tile\r
-;\r
-;============\r
-@@singletile:\r
- inc di ; we know the next tile is nothing\r
- push di ; save off the spot being scanned\r
- sub di,[updateptr]\r
- shl di,1\r
- mov di,[blockstarts-4+di] ; start of tile location on screen\r
- mov si,di\r
- add si,[bufferofs]\r
- add di,[displayofs]\r
-\r
- mov dx,[linewidth]\r
- sub dx,2\r
- mov ax,[screenseg]\r
- mov ds,ax\r
- mov es,ax\r
-\r
-REPT 15\r
- movsb\r
- movsb\r
- add si,dx\r
- add di,dx\r
-ENDM\r
- movsb\r
- movsb\r
-\r
- jmp @@findtile\r
-\r
-;============\r
-;\r
-; more than one tile in a row needs to be updated, so do it as a group\r
-;\r
-;============\r
-EVEN\r
-@@tileblock:\r
- mov dx,di ; hold starting position + 1 in dx\r
- inc di ; we know the next tile also gets updated\r
- repe scasb ; see how many more in a row\r
- push di ; save off the spot being scanned\r
-\r
- mov bx,di\r
- sub bx,dx ; number of tiles in a row\r
- shl bx,1 ; number of bytes / row\r
-\r
- mov di,dx ; lookup position of start tile\r
- sub di,[updateptr]\r
- shl di,1\r
- mov di,[blockstarts-2+di] ; start of tile location\r
- mov si,di\r
- add si,[bufferofs]\r
- add di,[displayofs]\r
-\r
- mov dx,[linewidth]\r
- sub dx,bx ; offset to next line on screen\r
-\r
- mov ax,[screenseg]\r
- mov ds,ax\r
- mov es,ax\r
-\r
-REPT 15\r
- mov cx,bx\r
- rep movsb\r
- add si,dx\r
- add di,dx\r
-ENDM\r
- mov cx,bx\r
- rep movsb\r
-\r
- dec cx ; was 0 from last rep movsb, now $ffff for scasb\r
- jmp @@findtile\r
-\r
-ENDP\r
-\r
-\r
-;===========================================================================\r
-;\r
-; MISC EGA ROUTINES\r
-;\r
-;===========================================================================\r
-\r
-;=================\r
-;\r
-; VWL_WaitRetrace\r
-;\r
-;=================\r
-\r
-DATASEG\r
-\r
-EXTRN TimeCount :DWORD\r
-EXTRN jerk :WORD\r
-EXTRN nopan :WORD\r
-\r
-CODESEG\r
-\r
-PROC VWL_WaitRetrace NEAR\r
- mov dx,STATUS_REGISTER_1\r
- mov bx,[WORD TimeCount]\r
-@@waitloop:\r
- sti\r
- jmp $+2\r
- cli\r
-\r
- in al,dx\r
- test al,8\r
- jnz @@done\r
- mov ax,[WORD TimeCount]\r
- sub ax,bx\r
- cmp ax,1\r
- jbe @@waitloop\r
-\r
-@@done:\r
- ret\r
-ENDP\r
-\r
-\r
-;==============\r
-;\r
-; VW_SetScreen\r
-;\r
-;==============\r
-\r
-PROC VW_SetScreen crtc:WORD, pel:WORD\r
-PUBLIC VW_SetScreen\r
-\r
-if waitforvbl\r
-\r
- mov dx,STATUS_REGISTER_1\r
-\r
-;\r
-; wait util the CRTC just starts scaning a diplayed line to set the CRTC start\r
-;\r
- cli\r
-\r
-@@waitnodisplay:\r
- in al,dx\r
- test al,01b\r
- jz @@waitnodisplay\r
-\r
-@@waitdisplay:\r
- in al,dx\r
- test al,01b\r
- jnz @@waitdisplay\r
-\r
-endif\r
-\r
-;\r
-; set CRTC start\r
-;\r
-; for some reason, my XT's EGA card doesn't like word outs to the CRTC\r
-; index...\r
-;\r
- mov cx,[crtc]\r
- mov dx,CRTC_INDEX\r
- mov al,0ch ;start address high register\r
- out dx,al\r
- inc dx\r
- mov al,ch\r
- out dx,al\r
- dec dx\r
- mov al,0dh ;start address low register\r
- out dx,al\r
- mov al,cl\r
- inc dx\r
- out dx,al\r
-\r
- test [jerk],1\r
- jz @@l3\r
- call VWL_WaitRetrace\r
-\r
-@@l3:\r
- test [nopan],1\r
- jnz @@l4\r
-;\r
-; set horizontal panning\r
-;\r
-\r
- mov dx,ATR_INDEX\r
- mov al,ATR_PELPAN or 20h\r
- out dx,al\r
- jmp $+2\r
- mov al,[BYTE pel] ;pel pan value\r
- out dx,al\r
-\r
-@@l4:\r
- test [jerk],1\r
- jnz @@done\r
- call VWL_WaitRetrace\r
-\r
-@@done:\r
- sti\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-if NUMFONT+NUMFONTM\r
-\r
-;===========================================================================\r
-;\r
-; GENERAL FONT DRAWING ROUTINES\r
-;\r
-;===========================================================================\r
-\r
-DATASEG\r
-\r
-px dw ? ; proportional character drawing coordinates\r
-py dw ?\r
-pdrawmode db 11000b ; 8 = OR, 24 = XOR, put in GC_DATAROTATE\r
-fontcolor db 15 ;0-15 mapmask value\r
-\r
-PUBLIC px,py,pdrawmode,fontcolor\r
-\r
-;\r
-; offsets in font structure\r
-;\r
-pcharheight = 0 ;lines high\r
-charloc = 2 ;pointers to every character\r
-charwidth = 514 ;every character's width in pixels\r
-\r
-\r
-propchar dw ? ; the character number to shift\r
-stringptr dw ?,?\r
-\r
-\r
-BUFFWIDTH = 50\r
-BUFFHEIGHT = 32 ; must be twice as high as font for masked fonts\r
-\r
-databuffer db BUFFWIDTH*BUFFHEIGHT dup (?)\r
-\r
-bufferwidth dw ? ; bytes with valid info / line\r
-bufferheight dw ? ; number of lines currently used\r
-\r
-bufferbyte dw ?\r
-bufferbit dw ?\r
-\r
-screenspot dw ? ; where the buffer is going\r
-\r
-bufferextra dw ? ; add at end of a line copy\r
-screenextra dw ?\r
-\r
-PUBLIC bufferwidth,bufferheight,screenspot\r
-\r
-CODESEG\r
-\r
-;======================\r
-;\r
-; Macros to table shift a byte of font\r
-;\r
-;======================\r
-\r
-MACRO SHIFTNOXOR\r
- mov al,[es:bx] ; source\r
- xor ah,ah\r
- shl ax,1\r
- mov si,ax\r
- mov ax,[bp+si] ; table shift into two bytes\r
- or [di],al ; or with first byte\r
- inc di\r
- mov [di],ah ; replace next byte\r
- inc bx ; next source byte\r
-ENDM\r
-\r
-MACRO SHIFTWITHXOR\r
- mov al,[es:bx] ; source\r
- xor ah,ah\r
- shl ax,1\r
- mov si,ax\r
- mov ax,[bp+si] ; table shift into two bytes\r
- not ax\r
- and [di],al ; and with first byte\r
- inc di\r
- mov [di],ah ; replace next byte\r
- inc bx ; next source byte\r
-ENDM\r
-\r
-\r
-;=======================\r
-;\r
-; BufferToScreen\r
-;\r
-; Pass buffer start in SI (somewhere in databuffer)\r
-; Draws the buffer to the EGA screen in the current write mode\r
-;\r
-;========================\r
-\r
-PROC BufferToScreen NEAR\r
-\r
- mov es,[screenseg]\r
- mov di,[screenspot]\r
-\r
- mov bx,[bufferwidth] ;calculate offsets for end of each line\r
- or bx,bx\r
- jnz @@isthere\r
- ret ;nothing to draw\r
-\r
-@@isthere:\r
- mov ax,[linewidth]\r
- sub ax,bx\r
- mov [screenextra],ax\r
- mov ax,BUFFWIDTH\r
- sub ax,bx\r
- mov [bufferextra],ax\r
-\r
- mov bx,[bufferheight] ;lines to copy\r
-@@lineloop:\r
- mov cx,[bufferwidth] ;bytes to copy\r
-@@byteloop:\r
- lodsb ;get a byte from the buffer\r
- xchg [es:di],al ;load latches and store back to screen\r
- inc di\r
-\r
- loop @@byteloop\r
-\r
- add si,[bufferextra]\r
- add di,[screenextra]\r
-\r
- dec bx\r
- jnz @@lineloop\r
-\r
- ret\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; NON MASKED FONT DRAWING ROUTINES\r
-;\r
-;============================================================================\r
-\r
-if numfont\r
-\r
-DATASEG\r
-\r
-shiftdrawtable dw 0,shift1wide,shift2wide,shift3wide,shift4wide\r
- dw shift5wide\r
-\r
-CODESEG\r
-\r
-;==================\r
-;\r
-; ShiftPropChar\r
-;\r
-; Call with BX = character number (0-255)\r
-; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts\r
-; them to the new position\r
-;\r
-;==================\r
-\r
-PROC ShiftPropChar NEAR\r
-\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONT*2+si] ;segment of font to use\r
-\r
-;\r
-; find character location, width, and height\r
-;\r
- mov si,[es:charwidth+bx]\r
- and si,0ffh ;SI hold width in pixels\r
- shl bx,1\r
- mov bx,[es:charloc+bx] ;BX holds pointer to character data\r
-\r
-;\r
-; look up which shift table to use, based on bufferbit\r
-;\r
- mov di,[bufferbit]\r
- shl di,1\r
- mov bp,[shifttabletable+di] ;BP holds pointer to shift table\r
-\r
- mov di,OFFSET databuffer\r
- add di,[bufferbyte] ;DI holds pointer to buffer\r
-\r
-;\r
-; advance position by character width\r
-;\r
- mov cx,[bufferbit]\r
- add cx,si ;new bit position\r
- mov ax,cx\r
- and ax,7\r
- mov [bufferbit],ax ;new bit position\r
- mov ax,cx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add [bufferbyte],ax ;new byte position\r
-\r
- add si,7\r
- shr si,1\r
- shr si,1\r
- shr si,1 ;bytes the character is wide\r
- shl si,1 ;*2 to look up in shiftdrawtable\r
-\r
- mov cx,[es:pcharheight]\r
- mov dx,BUFFWIDTH\r
- jmp [ss:shiftdrawtable+si] ;procedure to draw this width\r
-\r
-;\r
-; one byte character\r
-;\r
-shift1wide:\r
- dec dx\r
-EVEN\r
-@@loop1:\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop1\r
- ret\r
-\r
-;\r
-; two byte character\r
-;\r
-shift2wide:\r
- dec dx\r
- dec dx\r
-EVEN\r
-@@loop2:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop2\r
- ret\r
-\r
-;\r
-; three byte character\r
-;\r
-shift3wide:\r
- sub dx,3\r
-EVEN\r
-@@loop3:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop3\r
- ret\r
-\r
-;\r
-; four byte character\r
-;\r
-shift4wide:\r
- sub dx,4\r
-EVEN\r
-@@loop4:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop4\r
- ret\r
-\r
-;\r
-; five byte character\r
-;\r
-shift5wide:\r
- sub dx,5\r
-EVEN\r
-@@loop5:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop5\r
- ret\r
-\r
-\r
-\r
-ENDP\r
-\r
-;============================================================================\r
-\r
-;==================\r
-;\r
-; VW_DrawPropString\r
-;\r
-; Draws a C string of characters at px/py and advances px\r
-;\r
-; Assumes write mode 0\r
-;\r
-;==================\r
-\r
-CODESEG\r
-\r
-PROC VW_DrawPropString string:DWORD\r
-PUBLIC VW_DrawPropString\r
-USES SI,DI\r
-\r
-;\r
-; proportional spaceing, which clears the buffer ahead of it, so only\r
-; clear the first collumn\r
-;\r
- mov al,0\r
-line = 0\r
-REPT BUFFHEIGHT\r
- mov [BYTE databuffer+BUFFWIDTH*line],al\r
-line = line+1\r
-ENDM\r
-\r
-;\r
-; shift the characters into the buffer\r
-;\r
-@@shiftchars:\r
- mov ax,[px]\r
- and ax,7\r
- mov [bufferbit],ax\r
- mov [bufferbyte],0\r
-\r
- mov ax,[WORD string]\r
- mov [stringptr],ax\r
- mov ax,[WORD string+2]\r
- mov [stringptr+2],ax\r
-\r
-@@shiftone:\r
- mov es,[stringptr+2]\r
- mov bx,[stringptr]\r
- inc [stringptr]\r
- mov bx,[es:bx]\r
- xor bh,bh\r
- or bl,bl\r
- jz @@allshifted\r
- call ShiftPropChar\r
- jmp @@shiftone\r
-\r
-@@allshifted:\r
-;\r
-; calculate position to draw buffer on screen\r
-;\r
- mov bx,[py]\r
- shl bx,1\r
- mov di,[ylookup+bx]\r
- add di,[bufferofs]\r
- add di,[panadjust]\r
-\r
- mov ax,[px]\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1 ;x location in bytes\r
- add di,ax\r
- mov [screenspot],di\r
-\r
-;\r
-; advance px\r
-;\r
- mov ax,[bufferbyte]\r
- shl ax,1\r
- shl ax,1\r
- shl ax,1\r
- or ax,[bufferbit]\r
- add [px],ax\r
-\r
-;\r
-; draw it\r
-;\r
-\r
-; set xor/or mode\r
- mov dx,GC_INDEX\r
- mov al,GC_DATAROTATE\r
- mov ah,[pdrawmode]\r
- WORDOUT\r
-\r
-; set mapmask to color\r
- mov dx,SC_INDEX\r
- mov al,SC_MAPMASK\r
- mov ah,[fontcolor]\r
- WORDOUT\r
-\r
- mov ax,[bufferbyte]\r
- test [bufferbit],7\r
- jz @@go\r
- inc ax ;so the partial byte also gets drawn\r
-@@go:\r
- mov [bufferwidth],ax\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONT*2+si]\r
- mov ax,[es:pcharheight]\r
- mov [bufferheight],ax\r
-\r
- mov si,OFFSET databuffer\r
- call BufferToScreen\r
-\r
-; set copy mode\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE\r
- WORDOUT\r
-\r
-; set mapmask to all\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK + 15*256\r
- WORDOUT\r
-\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-endif ;numfont\r
-\r
-;============================================================================\r
-;\r
-; MASKED FONT DRAWING ROUTINES\r
-;\r
-;============================================================================\r
-\r
-if numfontm\r
-\r
-DATASEG\r
-\r
-mshiftdrawtable dw 0,mshift1wide,mshift2wide,mshift3wide\r
-\r
-\r
-CODESEG\r
-\r
-;==================\r
-;\r
-; ShiftMPropChar\r
-;\r
-; Call with BX = character number (0-255)\r
-; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts\r
-; them to the new position\r
-;\r
-;==================\r
-\r
-PROC ShiftMPropChar NEAR\r
-\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONTM*2+si] ;segment of font to use\r
-\r
-;\r
-; find character location, width, and height\r
-;\r
- mov si,[es:charwidth+bx]\r
- and si,0ffh ;SI hold width in pixels\r
- shl bx,1\r
- mov bx,[es:charloc+bx] ;BX holds pointer to character data\r
-\r
-;\r
-; look up which shift table to use, based on bufferbit\r
-;\r
- mov di,[bufferbit]\r
- shl di,1\r
- mov bp,[shifttabletable+di] ;BP holds pointer to shift table\r
-\r
- mov di,OFFSET databuffer\r
- add di,[bufferbyte] ;DI holds pointer to buffer\r
-\r
- mov cx,[bufferbit]\r
- add cx,si ;new bit position\r
- mov ax,cx\r
- and ax,7\r
- mov [bufferbit],ax ;new bit position\r
- mov ax,cx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add [bufferbyte],ax ;new byte position\r
-\r
- add si,7\r
- shr si,1\r
- shr si,1\r
- shr si,1 ;bytes the character is wide\r
- shl si,1 ;*2 to look up in shiftdrawtable\r
-\r
- mov cx,[es:pcharheight]\r
- mov dx,BUFFWIDTH\r
- jmp [ss:mshiftdrawtable+si] ;procedure to draw this width\r
-\r
-;\r
-; one byte character\r
-;\r
-mshift1wide:\r
- dec dx\r
-\r
-EVEN\r
-@@loop1m:\r
- SHIFTWITHXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop1m\r
-\r
- mov cx,[es:pcharheight]\r
-\r
-EVEN\r
-@@loop1:\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop1\r
-\r
- ret\r
-\r
-;\r
-; two byte character\r
-;\r
-mshift2wide:\r
- dec dx\r
- dec dx\r
-EVEN\r
-@@loop2m:\r
- SHIFTWITHXOR\r
- SHIFTWITHXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop2m\r
-\r
- mov cx,[es:pcharheight]\r
-\r
-EVEN\r
-@@loop2:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop2\r
-\r
- ret\r
-\r
-;\r
-; three byte character\r
-;\r
-mshift3wide:\r
- sub dx,3\r
-EVEN\r
-@@loop3m:\r
- SHIFTWITHXOR\r
- SHIFTWITHXOR\r
- SHIFTWITHXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop3m\r
-\r
- mov cx,[es:pcharheight]\r
-\r
-EVEN\r
-@@loop3:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop3\r
-\r
- ret\r
-\r
-\r
-ENDP\r
-\r
-;============================================================================\r
-\r
-;==================\r
-;\r
-; VW_DrawMPropString\r
-;\r
-; Draws a C string of characters at px/py and advances px\r
-;\r
-; Assumes write mode 0\r
-;\r
-;==================\r
-\r
-\r
-\r
-PROC VW_DrawMPropString string:DWORD\r
-PUBLIC VW_DrawMPropString\r
-USES SI,DI\r
-\r
-;\r
-; clear out the first byte of the buffer, the rest will automatically be\r
-; cleared as characters are drawn into it\r
-;\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONTM*2+si]\r
- mov dx,[es:pcharheight]\r
- mov di,OFFSET databuffer\r
- mov ax,ds\r
- mov es,ax\r
- mov bx,BUFFWIDTH-1\r
-\r
- mov cx,dx\r
- mov al,0ffh\r
-@@maskfill:\r
- stosb ; fill the mask part with $ff\r
- add di,bx\r
- loop @@maskfill\r
-\r
- mov cx,dx\r
- xor al,al\r
-@@datafill:\r
- stosb ; fill the data part with $0\r
- add di,bx\r
- loop @@datafill\r
-\r
-;\r
-; shift the characters into the buffer\r
-;\r
- mov ax,[px]\r
- and ax,7\r
- mov [bufferbit],ax\r
- mov [bufferbyte],0\r
-\r
- mov ax,[WORD string]\r
- mov [stringptr],ax\r
- mov ax,[WORD string+2]\r
- mov [stringptr+2],ax\r
-\r
-@@shiftone:\r
- mov es,[stringptr+2]\r
- mov bx,[stringptr]\r
- inc [stringptr]\r
- mov bx,[es:bx]\r
- xor bh,bh\r
- or bl,bl\r
- jz @@allshifted\r
- call ShiftMPropChar\r
- jmp @@shiftone\r
-\r
-@@allshifted:\r
-;\r
-; calculate position to draw buffer on screen\r
-;\r
- mov bx,[py]\r
- shl bx,1\r
- mov di,[ylookup+bx]\r
- add di,[bufferofs]\r
- add di,[panadjust]\r
-\r
- mov ax,[px]\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1 ;x location in bytes\r
- add di,ax\r
- mov [screenspot],di\r
-\r
-;\r
-; advance px\r
-;\r
- mov ax,[bufferbyte]\r
- shl ax,1\r
- shl ax,1\r
- shl ax,1\r
- or ax,[bufferbit]\r
- add [px],ax\r
-\r
-;\r
-; draw it\r
-;\r
- mov ax,[bufferbyte]\r
- test [bufferbit],7\r
- jz @@go\r
- inc ax ;so the partial byte also gets drawn\r
-@@go:\r
- mov [bufferwidth],ax\r
- mov es,[grsegs+STARTFONTM*2]\r
- mov ax,[es:pcharheight]\r
- mov [bufferheight],ax\r
-\r
-; set AND mode to punch out the mask\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE + 8*256\r
- WORDOUT\r
-\r
-; set mapmask to all\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK + 15*256\r
- WORDOUT\r
-\r
- mov si,OFFSET databuffer\r
- call BufferToScreen\r
-\r
-; set OR mode to fill in the color\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE + 16*256\r
- WORDOUT\r
-\r
-; set mapmask to color\r
- mov dx,SC_INDEX\r
- mov al,SC_MAPMASK\r
- mov ah,[fontcolor]\r
- WORDOUT\r
-\r
- call BufferToScreen ; SI is still in the right position in buffer\r
-\r
-; set copy mode\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE\r
- WORDOUT\r
-\r
-; set mapmask to all\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK + 15*256\r
- WORDOUT\r
-\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-endif ; if numfontm\r
-\r
-endif ; if fonts\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __CK_DEF__\r
-#define __CK_DEF__\r
-\r
-#include <BIOS.H>\r
-#include <CONIO.H>\r
-\r
-#include "ID_HEADS.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL CONSTANTS & MACROS\r
-\r
-=============================================================================\r
-*/\r
-\r
-#define MAXACTORS 100\r
-\r
-#define GAMELEVELS 25\r
-\r
-#define CONVERT_GLOBAL_TO_TILE(x) ((x)>>(G_T_SHIFT))\r
-#define CONVERT_TILE_TO_GLOBAL(x) ((x)<<(G_T_SHIFT))\r
-#define CONVERT_GLOBAL_TO_PIXEL(x) ((x)>>(G_P_SHIFT))\r
-#define CONVERT_PIXEL_TO_GLOBAL(x) ((x)<<(G_P_SHIFT))\r
-#define CONVERT_PIXEL_TO_TILE(x) ((x)>>(P_T_SHIFT))\r
-#define CONVERT_TILE_TO_PIXEL(x) ((x)<<(P_T_SHIFT))\r
-\r
-#define SPAWN_ADJUST_Y(y, h) (CONVERT_TILE_TO_GLOBAL(y) + (CONVERT_PIXEL_TO_GLOBAL(16-(h))))\r
-\r
-#define ARRAYLENGTH(x) (sizeof(x)/sizeof(*(x)))\r
-\r
-#define CA_UnmarkGrChunk(num) (grneeded[num] &= ~ca_levelbit)\r
-\r
-#define SetPalette(pal) {_ES=FP_SEG(pal); _DX=FP_OFF(pal); _AX=0x1002; geninterrupt(0x10);}\r
-#define SetPaletteEx(pal) {(pal)[16] = bordercolor; SetPalette(pal);}\r
-\r
-//HACK IMPORTS:\r
-void RFL_InitAnimList(void);\r
-void CA_FreeGraphics(void);\r
-void CA_SetGrPurge(void);\r
-\r
-/*\r
-Note:\r
-\r
-The ID software memory manager doesn't care about the different purge levels.\r
-Using PURGE_FIST is identical to using PURGE_LAST.\r
-*/\r
-#define PURGE_FIRST 3\r
-#define PURGE_LAST 1\r
-\r
-#define PLATFORMBLOCK 31\r
-#define DIRARROWSTART 91\r
-#define DIRARROWEND (DIRARROWSTART+arrow_None)\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL TYPES\r
-\r
-=============================================================================\r
-*/\r
-\r
-//SDL-style integer types - just to make future SDL ports easier\r
-typedef unsigned int Uint16;\r
-typedef signed int Sint16;\r
-typedef unsigned char Uint8;\r
-typedef signed char Sint8;\r
-typedef unsigned long Uint32;\r
-typedef signed long Sint32;\r
-//Note: only the game code (CK_*.C, K?_*.C) uses these!\r
-\r
-//some compile-time checks to make sure the ints have the correct size\r
-#if (sizeof(Uint16) != 2)\r
-#error 'Uint16' has wrong size\r
-#elif (sizeof(Sint16) != 2)\r
-#error 'Sint16' has wrong size\r
-#elif (sizeof(Uint8) != 1)\r
-#error 'Uint8' has wrong size\r
-#elif (sizeof(Sint8) != 1)\r
-#error 'Sint8' has wrong size\r
-#elif (sizeof(Uint32) != 4)\r
-#error 'Uint32' has wrong size\r
-#elif (sizeof(Sint32) != 4)\r
-#error 'Sint32' has wrong size\r
-#endif\r
-\r
-typedef enum {\r
- arrow_North, // 0\r
- arrow_East, // 1\r
- arrow_South, // 2\r
- arrow_West, // 3\r
- arrow_NorthEast, // 4\r
- arrow_SouthEast, // 5\r
- arrow_SouthWest, // 6\r
- arrow_NorthWest, // 7\r
- arrow_None // 8\r
-} arrowdirtype;\r
-\r
-typedef enum {\r
- ex_stillplaying, // 0\r
- ex_died, // 1\r
- ex_completed, // 2\r
- ex_rescued, // 3, only in Keen 4\r
- ex_warped, // 4\r
- ex_resetgame, // 5\r
- ex_loadedgame, // 6\r
- ex_foot, // 7, only in Keen 4\r
- ex_abortgame, // 8\r
- ex_sandwich, // 9, only in Keen 6\r
- ex_hook, // 10, only in Keen 6\r
- ex_card, // 11, only in Keen 6\r
- ex_molly, // 12, only in Keen 6\r
- ex_portout, // 13, only in Keen 5\r
- ex_fusebroke, // 14, only in Keen 5\r
- ex_qedbroke, // 15, only in Keen 5\r
- NUMEXITTYPES\r
-} exittype;\r
-\r
-typedef enum\r
-{\r
- INTILE_NOTHING, // 0\r
- INTILE_POLE, // 1\r
- INTILE_DOOR, // 2\r
- INTILE_DEADLY, // 3\r
- INTILE_DROP, // 4\r
- INTILE_SWITCH0, // 5\r
- INTILE_SWITCH1, // 6\r
- INTILE_GEMSOCKET0, // 7\r
- INTILE_GEMSOCKET1, // 8\r
- INTILE_GEMSOCKET2, // 9\r
- INTILE_GEMSOCKET3, // 10\r
- INTILE_SHORESOUTH, // 11\r
- INTILE_SHOREWEST, // 12\r
- INTILE_SHORENORTH, // 13\r
- INTILE_SHOREEAST, // 14\r
- INTILE_BRIDGESWITCH, // 15\r
- INTILE_MOON, // 16\r
- INTILE_DIRARROW, // 17 (not used in the code, but assigned to tiles in Keen 5 & 6)\r
- INTILE_BRIDGE, // 18\r
- INTILE_FORCEFIELD, // 19\r
- INTILE_TELEPORT, // 20\r
- INTILE_BONUS100, // 21\r
- INTILE_BONUS200, // 22\r
- INTILE_BONUS500, // 23\r
- INTILE_BONUS1000, // 24\r
- INTILE_BONUS2000, // 25\r
- INTILE_BONUS5000, // 26\r
- INTILE_EXTRALIFE, // 27\r
- INTILE_AMMO, // 28\r
- INTILE_29, // 29 (never used)\r
- INTILE_FORCEFIELDEND, // 30\r
- INTILE_AMPTONCOMPUTER, // 31\r
- INTILE_KEYCARDDOOR, // 32\r
- INTILE_ELEVATORLEFT, // 33\r
- INTILE_ELEVATORRIGHT, // 34\r
-\r
- INTILE_FOREGROUND = 0x80\r
-} intiletype;\r
-\r
-#define INTILE_TYPEMASK (INTILE_FOREGROUND-1)\r
-\r
-typedef enum\r
-{\r
- nothing, // 0\r
- inertobj, // 1\r
- keenobj, // 2\r
- stunshotobj, // 3\r
-#if defined KEEN4\r
- bonusobj, // 4\r
- slugobj, // 5\r
- oracleobj, // 6\r
- classtype_7, // 7, never used\r
- eggobj, // 8\r
- madmushroomobj, // 9\r
- arachnutobj, // 10\r
- skypestobj, // 11\r
- wormouthobj, // 12\r
- thundercloudobj, // 13\r
- berkeloidobj, // 14\r
- bounderobj, // 15\r
- inchwormobj, // 16\r
- footobj, // 17\r
- lickobj, // 18\r
- mimrockobj, // 19\r
- platformobj, // 20\r
- dopefishobj, // 21\r
- schoolfishobj, // 22\r
- pixieobj, // 23\r
- lindseyobj, // 24\r
- lightningobj, // 25\r
- treasureeaterobj,// 26\r
- eggbirdobj, // 27\r
- classtype_28, // 28, never used\r
- classtype_29, // 29, never used\r
- scubaobj, // 30\r
- mshotobj, // 31\r
- mineobj, // 32\r
- stunnedobj, // 33\r
- flagobj, // 34\r
-#elif defined KEEN5\r
- mshotobj, // 4\r
- bonusobj, // 5\r
- platformobj, // 6\r
- stunnedobj, // 7\r
- flagobj, // 8\r
- sparkyobj, // 9\r
- mineobj, // 10\r
- slicestarobj, // 11\r
- roboredobj, // 12\r
- spirogripobj, // 13\r
- amptonobj, // 14\r
- cannonobj, // 15\r
- volteobj, // 16\r
- shelleyobj, // 17, never used\r
- spindredobj, // 18\r
- shikadimasterobj,// 19\r
- shikadiobj, // 20\r
- petobj, // 21\r
- spherefulobj, // 22\r
- scottieobj, // 23\r
- teleporterobj, // 24\r
- qedobj, // 25\r
-#elif defined KEEN6\r
- mshotobj, // 4\r
- bonusobj, // 5\r
- platformobj, // 6\r
- bloogobj, // 7\r
- bloogletobj, // 8\r
- classtype_9, // 9, never used\r
- fleexobj, // 10\r
- classtype_11, // 11, never used\r
- mollyobj, // 12\r
- babobbaobj, // 13\r
- bobbaobj, // 14\r
- classtype_15, // 15\r
- nospikeobj, // 16\r
- gikobj, // 17\r
- cannonobj, // 18\r
- orbatrixobj, // 19\r
- bipobj, // 20\r
- flectobj, // 21\r
- blorbobj, // 22\r
- ceilickobj, // 23\r
- blooguardobj, // 24\r
- stunnedobj, // 25\r
- bipshipobj, // 26\r
- sandwichobj, // 27\r
- hookobj, // 28\r
- passcardobj, // 29\r
- grabbiterobj, // 30\r
- rocketobj, // 31\r
- grapplespotobj, // 32\r
- satelliteobj, // 33\r
- satellitestopobj,// 34\r
- flagobj, // 35\r
-#endif\r
- NUMCLASSTYPES\r
-} classtype;\r
-\r
-typedef struct statestruct\r
-{\r
- Sint16 leftshapenum, rightshapenum;\r
- enum {step,slide,think,stepthink,slidethink} progress;\r
- boolean skippable;\r
- boolean pushtofloor;\r
- Sint16 tictime;\r
- Sint16 xmove;\r
- Sint16 ymove;\r
- void (*think) (struct objstruct*);\r
- void (*contact) (struct objstruct*, struct objstruct*);\r
- void (*react) (struct objstruct*);\r
- struct statestruct *nextstate;\r
-} statetype;\r
-\r
-typedef struct objstruct\r
-{\r
- classtype obclass;\r
- enum {ac_no, ac_yes, ac_allways, ac_removable} active;\r
- boolean needtoreact;\r
- enum {cl_noclip, cl_midclip, cl_fullclip} needtoclip;\r
- Uint16 nothink;\r
- Uint16 x, y;\r
- Sint16 xdir, ydir;\r
- Sint16 xmove, ymove;\r
- Sint16 xspeed, yspeed;\r
- Sint16 ticcount;\r
- statetype *state;\r
- Uint16 shapenum;\r
- Uint16 priority;\r
- Uint16 left, top, right, bottom, midx;\r
- Uint16 tileleft, tiletop, tileright, tilebottom, tilemidx;\r
- Sint16 hitnorth, hiteast, hitsouth, hitwest;\r
- Sint16 temp1, temp2, temp3, temp4;\r
- void *sprite;\r
- struct objstruct *next, *prev;\r
-} objtype;\r
-\r
-typedef struct\r
-{\r
- Uint16 worldx, worldy;\r
- boolean leveldone[GAMELEVELS];\r
- Sint32 score, nextextra;\r
- Sint16 ammo, drops;\r
-#if defined KEEN4\r
- Sint16 wetsuit;\r
- Sint16 rescued;\r
-#elif defined KEEN5\r
- boolean keycard;\r
- Sint16 destroyed; // never used\r
- Sint16 numfuses;\r
-#elif defined KEEN6\r
- Sint16 sandwichstate, hookstate, passcardstate, rocketstate;\r
-#endif\r
- Sint16 keys[4];\r
- Sint16 mapon;\r
- Sint16 lives;\r
- Sint16 difficulty;\r
- objtype *riding;\r
-} gametype;\r
-\r
-/*\r
-=============================================================================\r
-\r
- CK_MAIN DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern char str[80], str2[20];\r
-extern boolean storedemo;\r
-\r
-void SizeText(char *text, Uint16 *width, Uint16 *height);\r
-\r
-/*\r
-=============================================================================\r
-\r
- CK_DEMO DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern boolean scorescreenkludge;\r
-\r
-void CheckLastScan(void);\r
-#if GRMODE == EGAGR\r
-void Terminator(void);\r
-void StarWars(void);\r
-#endif\r
-void ShowTitle(void);\r
-#if GRMODE == CGAGR\r
-void ShowCredits(void);\r
-#endif\r
-void RunDemo(Sint16 num);\r
-void DrawHighScores(void);\r
-void CheckHighScore(Sint32 score, Sint16 completed);\r
-void ShowHighScores(void);\r
-\r
-/*\r
-=============================================================================\r
-\r
- CK_GAME DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-void FreeGraphics(void);\r
-void NewGame(void);\r
-boolean SaveTheGame(Sint16 handle);\r
-boolean LoadTheGame(Sint16 handle);\r
-void ResetGame(void);\r
-void SetupGameLevel(boolean loadnow);\r
-void DialogDraw(char *title, Uint16 numcache);\r
-void DialogUpdate(void);\r
-void DialogFinish(void);\r
-void StartDemoRecord(void);\r
-void EndDemoRecord(void);\r
-void GameLoop(void);\r
-void HandleDeath(void);\r
-\r
-/*\r
-=============================================================================\r
-\r
- CK_PLAY DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern boolean singlestep, jumpcheat, godmode, keenkilled;\r
-extern exittype playstate;\r
-extern gametype gamestate;\r
-extern objtype *new, *check, *player, *scoreobj;\r
-extern Uint16 originxtilemax, originytilemax;\r
-extern ControlInfo c;\r
-extern boolean button2, button3; // never used\r
-extern objtype dummyobj;\r
-extern Sint16 invincible;\r
-extern boolean oldshooting, showscorebox, joypad;\r
-extern Sint16 groundslam;\r
-extern boolean debugok;\r
-extern boolean jumpbutton, jumpheld, pogobutton, pogoheld, firebutton, fireheld, upheld;\r
-\r
-\r
-void CheckKeys(void);\r
-void StatusWindow(void);\r
-void CenterActor(objtype *ob);\r
-void WorldScrollScreen(objtype *ob);\r
-void ScrollScreen(objtype *ob);\r
-void InitObjArray(void);\r
-Sint16 GetNewObj(boolean usedummy);\r
-void RemoveObj(objtype *ob);\r
-void GivePoints(Uint16 points);\r
-void StopMusic(void);\r
-void StartMusic(Uint16 num);\r
-void PlayLoop(void);\r
-\r
-/*\r
-=============================================================================\r
-\r
- CK_TEXT DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-void HelpScreens(void);\r
-void FinaleLayout(void);\r
-\r
-/*\r
-=============================================================================\r
-\r
- CK_STATE DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern Sint16 wallclip[8][16];\r
-\r
-extern Sint16 xtry;\r
-extern Sint16 ytry;\r
-extern boolean playerkludgeclipcancel;\r
-\r
-void MoveObjVert(objtype *ob, Sint16 ymove);\r
-void MoveObjHoriz(objtype *ob, Sint16 xmove);\r
-void PlayerBottomKludge(objtype *ob);\r
-void PlayerTopKludge(objtype *ob);\r
-void ClipToEnds(objtype *ob);\r
-void ClipToSides(objtype *ob);\r
-boolean CheckPosition(objtype *ob);\r
-boolean StatePositionOk(objtype *ob, statetype *state);\r
-\r
-#ifdef KEEN5\r
-void CalcBounds(objtype *ob);\r
-#endif\r
-\r
-void ClipToWalls(objtype *ob);\r
-void FullClipToWalls(objtype *ob);\r
-void PushObj(objtype *ob);\r
-void ClipToSpriteSide(objtype *push, objtype *solid);\r
-void ClipToSpriteTop(objtype *push, objtype *solid);\r
-void ClipToSprite(objtype *push, objtype *solid, boolean squish);\r
-Sint16 DoActor(objtype *ob, Sint16 numtics);\r
-void StateMachine(objtype *ob);\r
-void NewState(objtype *ob, statetype *state);\r
-void ChangeState(objtype *ob, statetype *state);\r
-boolean OnScreen(objtype *ob);\r
-void DoGravity(objtype *ob);\r
-void DoWeakGravity(objtype *ob);\r
-void DoTinyGravity(objtype *ob);\r
-void AccelerateX(objtype *ob, Sint16 dir, Sint16 maxspeed);\r
-void AccelerateXv(objtype *ob, Sint16 dir, Sint16 maxspeed);\r
-void AccelerateY(objtype *ob, Sint16 dir, Sint16 maxspeed);\r
-void FrictionX(objtype *ob);\r
-void FrictionY(objtype *ob);\r
-void StunObj(objtype *ob, objtype *shot, statetype *stunstate);\r
-void T_Projectile(objtype *ob);\r
-void T_WeakProjectile(objtype *ob);\r
-void ProjectileThink1(objtype *ob);\r
-void T_Velocity(objtype *ob);\r
-void SetReactThink(objtype *ob);\r
-void T_Stunned(objtype *ob);\r
-void C_Lethal(objtype *ob, objtype *hit);\r
-void R_Draw(objtype *ob);\r
-void R_Walk(objtype *ob);\r
-void R_WalkNormal(objtype *ob);\r
-void BadState(void);\r
-void R_Stunned(objtype *ob);\r
-\r
-extern statetype sc_deadstate;\r
-extern statetype sc_badstate;\r
-\r
-/*\r
-=============================================================================\r
-\r
- CK_KEEN DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern Uint16 bounceangle[8][8];\r
-#ifndef KEEN4\r
-extern arrowdirtype arrowflip[];\r
-#endif\r
-\r
-extern statetype s_keenstand;\r
-extern statetype s_keenpauselook;\r
-extern statetype s_keenwait1;\r
-extern statetype s_keenwait2;\r
-extern statetype s_keenwait3;\r
-extern statetype s_keenwait4;\r
-extern statetype s_keenwait5;\r
-extern statetype s_keenwait6;\r
-extern statetype s_keenmoon1;\r
-extern statetype s_keenmoon2;\r
-extern statetype s_keenmoon3;\r
-extern statetype s_keenread;\r
-extern statetype s_keenread2;\r
-extern statetype s_keenread3;\r
-extern statetype s_keenread4;\r
-extern statetype s_keenread5;\r
-extern statetype s_keenread6;\r
-extern statetype s_keenread7;\r
-extern statetype s_keenstopread;\r
-extern statetype s_keenstopread2;\r
-extern statetype s_keenstopread3;\r
-extern statetype s_keenlookup;\r
-extern statetype s_keenlookup2;\r
-extern statetype s_keenlookdown;\r
-extern statetype s_keenlookdown2;\r
-extern statetype s_keenlookdown3;\r
-extern statetype s_keenlookdown4;\r
-extern statetype s_keendrop;\r
-extern statetype s_keendead;\r
-extern statetype s_keendie1;\r
-extern statetype s_keendie2;\r
-#ifdef KEEN4\r
-extern statetype s_keensuitdie1;\r
-extern statetype s_keensuitdie2;\r
-#endif\r
-extern statetype s_keenshoot1;\r
-extern statetype s_keenshoot2;\r
-extern statetype s_keenshootup1;\r
-extern statetype s_keenshootup2;\r
-extern statetype s_keenswitch;\r
-extern statetype s_keenswitch2;\r
-extern statetype s_keenkey;\r
-extern statetype s_keenlineup;\r
-extern statetype s_keenenter1;\r
-extern statetype s_keenenter2;\r
-extern statetype s_keenenter3;\r
-extern statetype s_keenenter4;\r
-extern statetype s_keenenter5;\r
-extern statetype s_keenpole;\r
-extern statetype s_keenclimb1;\r
-extern statetype s_keenclimb2;\r
-extern statetype s_keenclimb3;\r
-extern statetype s_keenslide1;\r
-extern statetype s_keenslide2;\r
-extern statetype s_keenslide3;\r
-extern statetype s_keenslide4;\r
-extern statetype s_keenpoleshoot1;\r
-extern statetype s_keenpoleshoot2;\r
-extern statetype s_keenpoleshootup1;\r
-extern statetype s_keenpoleshootup2;\r
-extern statetype s_keenpoleshootdown1;\r
-extern statetype s_keenpoleshootdown2;\r
-extern statetype s_keenwalk1;\r
-extern statetype s_keenwalk2;\r
-extern statetype s_keenwalk3;\r
-extern statetype s_keenwalk4;\r
-extern statetype s_keenpogodown;\r
-extern statetype s_keenpogo;\r
-extern statetype s_keenpogo2;\r
-extern statetype s_keenjump1;\r
-extern statetype s_keenjump2;\r
-extern statetype s_keenjump3;\r
-extern statetype s_keenjump4;\r
-extern statetype s_keenairshoot1;\r
-extern statetype s_keenairshoot2;\r
-extern statetype s_keenairshoot3;\r
-extern statetype s_keenairshootup1;\r
-extern statetype s_keenairshootup2;\r
-extern statetype s_keenairshootup3;\r
-extern statetype s_keenairshootdown1;\r
-extern statetype s_keenairshootdown2;\r
-extern statetype s_keenairshootdown3;\r
-extern statetype s_keenholdon;\r
-extern statetype s_keenholdon2;\r
-extern statetype s_keenclimbup;\r
-extern statetype s_keenclimbup2;\r
-extern statetype s_keenclimbup3;\r
-extern statetype s_keenclimbup4;\r
-extern statetype s_keenclimbup5;\r
-\r
-extern Sint16 slopespeed[8];\r
-extern Sint16 polexspeed[3];\r
-\r
-extern Sint16 shotsinclip[4];\r
-extern Sint16 bonussound[];\r
-extern Sint16 bonuspoints[];\r
-extern Sint16 bonussprite[];\r
-\r
-extern Uint16 zeromap;\r
-\r
-extern Sint16 singlegravity;\r
-extern Sint16 jumptime;\r
-extern Sint32 leavepoletime;\r
-extern Sint16 moonok;\r
-\r
-void SpawnKeen(Sint16 x, Sint16 y, Sint16 dir);\r
-boolean CheckGrabPole(objtype *ob);\r
-boolean CheckEnterHouse(objtype *ob);\r
-void WalkSound1(objtype *ob);\r
-void WalkSound2(objtype *ob);\r
-void KeenStandThink(objtype *ob);\r
-void KeenPauseThink(objtype *ob);\r
-void KeenReadThink(objtype *ob);\r
-void KeenLookUpThink(objtype *ob);\r
-void KeenLookDownThink(objtype *ob);\r
-void KeenWalkThink(objtype *ob);\r
-void T_LineUp(objtype *ob);\r
-void KeenEnterThink(objtype *ob);\r
-void KeenSwitchThink(objtype *ob);\r
-void KeenKeyThink(objtype *ob);\r
-void KeenAirThink(objtype *ob);\r
-void KeenBounceThink(objtype *ob);\r
-void KeenPogoThink(objtype *ob);\r
-void PoleActions(objtype *ob);\r
-void KeenPoleThink(objtype *ob);\r
-void KeenClimbThink(objtype *ob);\r
-void KeenDropThink(objtype *ob);\r
-void KeenDropDownThink(objtype *ob);\r
-void KeenHoldThink(objtype *ob);\r
-void KeenShootThink(objtype *ob);\r
-void T_PullUp1(objtype *ob);\r
-void T_PullUp2(objtype *ob);\r
-void T_PullUp3(objtype *ob);\r
-void T_PulledUp(objtype *ob);\r
-void KeenDieThink(objtype *ob);\r
-void KillKeen(void);\r
-void KeenContact(objtype *ob, objtype *hit);\r
-void KeenPosContact(objtype *ob, objtype *hit);\r
-void HandleRiding(objtype *ob);\r
-void TileBonus(Uint16 x, Uint16 y, Uint16 bonus);\r
-void GiveDrop(Uint16 x, Uint16 y);\r
-void CheckInTiles(objtype *ob);\r
-void KeenSimpleReact(objtype *ob);\r
-void KeenStandReact(objtype *ob);\r
-void KeenWalkReact(objtype *ob);\r
-void KeenAirReact(objtype *ob);\r
-void KeenPogoReact(objtype *ob);\r
-void KeenPoleReact(objtype *ob);\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
- CK_KEEN2 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern statetype s_score;\r
-extern statetype s_demo;\r
-void SpawnScore(void);\r
-void UpdateScore(objtype *ob);\r
-void DrawDemoPlaque(objtype *ob);\r
-\r
-extern statetype s_worldkeen;\r
-extern statetype s_worldkeenwave1;\r
-extern statetype s_worldkeenwave2;\r
-extern statetype s_worldkeenwave3;\r
-extern statetype s_worldkeenwave4;\r
-extern statetype s_worldkeenwave5;\r
-extern statetype s_worldkeenwalk;\r
-void SpawnWorldKeen(Sint16 x, Sint16 y);\r
-#ifdef KEEN5\r
-void SpawnWorldKeenPort(Uint16 tileX, Uint16 tileY);\r
-#endif\r
-void CheckEnterLevel(objtype *ob);\r
-void T_KeenWorld(objtype *ob);\r
-void T_KeenWorldWalk(objtype *ob);\r
-void CheckWorldInTiles(objtype *ob);\r
-\r
-#ifdef KEEN4\r
-extern statetype s_keenonfoot1;\r
-extern statetype s_keenonfoot2;\r
-extern statetype s_worldswim;\r
-void T_FootFly(objtype *ob);\r
-void T_KeenWorldSwim(objtype *ob);\r
-#endif\r
-\r
-#ifdef KEEN5\r
-extern statetype s_worldelevate;\r
-void T_Elevate(objtype *ob);\r
-#endif\r
-\r
-extern statetype s_flagwave1;\r
-extern statetype s_flagwave2;\r
-extern statetype s_flagwave3;\r
-extern statetype s_flagwave4;\r
-void SpawnFlag(Sint16 x, Sint16 y);\r
-\r
-#ifndef KEEN5\r
-extern statetype s_throwflag0;\r
-extern statetype s_throwflag1;\r
-extern statetype s_throwflag2;\r
-extern statetype s_throwflag3;\r
-extern statetype s_throwflag4;\r
-extern statetype s_throwflag5;\r
-extern statetype s_throwflag6;\r
-void SpawnThrowFlag(Sint16 x, Sint16 y);\r
-void TossThink(objtype *ob);\r
-void PathThink(objtype *ob);\r
-void FlagAlign(objtype *ob);\r
-#endif\r
-\r
-extern statetype s_stunray1;\r
-extern statetype s_stunray2;\r
-extern statetype s_stunray3;\r
-extern statetype s_stunray4;\r
-extern statetype s_stunhit;\r
-extern statetype s_stunhit2;\r
-void SpawnShot(Uint16 x, Uint16 y, Direction dir);\r
-void ExplodeShot(objtype *ob);\r
-void T_Shot(objtype *ob);\r
-void R_Shot(objtype *ob);\r
-\r
-extern statetype s_door1;\r
-extern statetype s_door2;\r
-extern statetype s_door3;\r
-void DoorOpen(objtype *ob);\r
-\r
-#ifdef KEEN5\r
-extern statetype s_carddoor;\r
-void CardDoorOpen(objtype *ob);\r
-#endif\r
-\r
-/*\r
-=============================================================================\r
-\r
- OTHER DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-#if defined KEEN4\r
-#include "K4_DEF.H"\r
-#elif defined KEEN5\r
-#include "K5_DEF.H"\r
-#elif defined KEEN6\r
-#include "K6_DEF.H"\r
-#endif\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-boolean scorescreenkludge;\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-#if GRMODE == EGAGR\r
-\r
-Uint8 starcolors[17] = STARPALETTE;\r
-Uint16 plaquenum[4] = {IDSOFTPIC, PROGTEAMPIC, ARTISTPIC, DIRECTORPIC};\r
-Uint8 termcolors[17] = INTROPALETTE;\r
-Uint8 termcolors2[17] = SHRINKPALETTE;\r
-\r
-Uint8 ortoend[8] = {0xFF, 0x7F, 0x3F, 0x1F, 0x0F, 0x07, 0x03, 0x01};\r
-Uint8 andtoend[8] = {0x00, 0x80, 0xC0, 0xE0, 0xF0, 0xF8, 0xFC, 0xFE};\r
-\r
-/////////////////////////////////////////////////////////////////////////////\r
-// uninitialized variables:\r
-/////////////////////////////////////////////////////////////////////////////\r
-\r
-typedef struct {\r
- Uint16 height;\r
- Uint16 width;\r
- Uint16 rowofs[200];\r
-} shapehead;\r
-\r
-typedef shapehead _seg * shapeseg;\r
-\r
-// text crawl variables:\r
-memptr linecode;\r
-void far *linestarts[200];\r
-Uint16 sourceline[200];\r
-Uint16 masterlines;\r
-void far *routine;\r
-memptr sourcepic;\r
-memptr bittables;\r
-\r
-// terminator intro variables:\r
-shapeseg commander;\r
-shapeseg keen;\r
-shapeseg both;\r
-memptr scaletable;\r
-memptr cmdrshifts[8];\r
-Sint16 commanderbwide;\r
-Uint16 lastsource;\r
-Uint16 keenstart;\r
-memptr basepl[5];\r
-Uint16 baseplwidth[5];\r
-Uint16 baseplheight[5];\r
-memptr plaqueseg;\r
-Uint16 plaquewidth;\r
-Uint16 plaquewidthwords;\r
-Uint16 plaqueheight;\r
-Uint16 plaqueplane;\r
-Uint16 plaquedelta;\r
-Uint16 *shiftptr;\r
-Uint16 planeon;\r
-Sint16 drawheight;\r
-Uint16 source2;\r
-static Uint16 t_dest;\r
-static Sint16 plaque;\r
-static Sint16 plaquephase;\r
-static Sint16 plaquey;\r
-static Sint16 lastframe;\r
-static Sint16 pageon;\r
-static Sint16 prevbottom[2];\r
-Uint16 pageofs;\r
-Uint16 byteadjust;\r
-\r
-#endif // if GRMODE == EGAGR\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= CheckLastScan\r
-=\r
-============================\r
-*/\r
-\r
-void CheckLastScan(void)\r
-{\r
- if (LastScan)\r
- {\r
- if (storedemo)\r
- {\r
- playstate = ex_resetgame;\r
- restartgame = gd_Normal;\r
- IN_ClearKeysDown();\r
- NewGame();\r
- }\r
-#ifndef KEEN6\r
- else if (LastScan == sc_F1)\r
- {\r
- HelpScreens();\r
- }\r
-#endif\r
- else\r
- {\r
- US_ControlPanel();\r
- if (restartgame)\r
- {\r
- playstate = ex_resetgame;\r
- }\r
- else if (loadedgame)\r
- {\r
- playstate = ex_loadedgame;\r
- }\r
- }\r
- }\r
-}\r
-\r
-#if GRMODE == EGAGR\r
-/*\r
-=============================================================================\r
-\r
- TERMINATOR INTRO\r
-\r
-=============================================================================\r
-*/\r
-\r
-/*\r
-============================\r
-=\r
-= LoadPlaque\r
-=\r
-============================\r
-*/\r
-\r
-void LoadPlaque(Sint16 index)\r
-{\r
- Sint16 LocatePlaque(Sint16 elapsed);\r
-\r
- Uint16 chunk, picnum, width, height, planesize, i;\r
- Uint8 far *source;\r
- Uint16 far *dest;\r
-\r
- //\r
- // cache the pic and get pic size\r
- //\r
- chunk = plaquenum[index];\r
- CA_CacheGrChunk(chunk);\r
- picnum = chunk - STARTPICS;\r
- baseplwidth[index] = width = pictable[picnum].width;\r
- baseplheight[index] = height = pictable[picnum].height;\r
- planesize = width * height * 2;\r
-\r
- //\r
- // allocate buffer and convert pic into to our format\r
- // (convert bytes to word indices for faster shift-drawing)\r
- //\r
- MM_GetPtr(&basepl[index], planesize*2); // 2 planes\r
- source = grsegs[chunk];\r
- dest = basepl[index];\r
- for (i=0; i<planesize; i++)\r
- {\r
- *dest++ = *source++ << 1;\r
- }\r
-\r
- //\r
- // pic in original format is no longer needed\r
- //\r
- MM_FreePtr(&grsegs[chunk]);\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= DrawPlaque\r
-=\r
-============================\r
-*/\r
-\r
-void DrawPlaque(Sint16 elapsed, Uint16 x)\r
-{\r
- Uint16 shift, xb;\r
- Sint16 y, bottom, oldbottom;\r
- Uint16 eraseheight, skip, screenoff;\r
-\r
- shift = x & 7;\r
- xb = (pageofs + (x / 8)) + (20 - (plaquewidth >> 1));\r
-\r
- EGAMAPMASK(12); // write to "red" and "intensity" plane (for erasing old pic)\r
-\r
- //\r
- // update position (and pic number)\r
- //\r
- y = LocatePlaque(elapsed);\r
-\r
- //\r
- // erase leftovers of the previous frame\r
- //\r
- bottom = y + plaqueheight;\r
- if (bottom < 0)\r
- bottom = 0;\r
- oldbottom = prevbottom[pageon];\r
- if (bottom < 200 && oldbottom > bottom)\r
- {\r
- eraseheight = oldbottom - bottom;\r
- screenoff = xb + ylookup[bottom];\r
- asm {\r
- mov es, screenseg;\r
- mov bx, linewidth;\r
- sub bx, plaquewidthwords;\r
- sub bx, plaquewidthwords;\r
- mov di, screenoff;\r
- mov dx, eraseheight;\r
- mov si, plaquewidthwords;\r
- xor ax, ax;\r
- }\r
-eraseloop:\r
- asm {\r
- mov cx, si;\r
- rep stosw;\r
- add di, bx;\r
- dec dx;\r
- jnz eraseloop;\r
- }\r
- }\r
- if (bottom > 200)\r
- bottom = 200;\r
- prevbottom[pageon] = bottom;\r
-\r
- //\r
- // draw the (new) pic at the new position\r
- //\r
- drawheight = plaqueheight;\r
- skip = 0;\r
- if (y < 0)\r
- {\r
- skip = -y * (plaquewidth << 1);\r
- drawheight += y;\r
- y = 0;\r
- }\r
- else if (y + plaqueheight > 200)\r
- {\r
- drawheight = 200 - y;\r
- }\r
- source2 = skip + plaqueplane;\r
- if (drawheight > 0)\r
- {\r
- shiftptr = shifttabletable[shift];\r
- t_dest = xb + ylookup[y];\r
- asm {\r
- mov bx, skip;\r
- push bp;\r
- mov bp, shiftptr;\r
- mov es, screenseg;\r
- mov ds, plaqueseg;\r
- mov ah, 4;\r
- mov BYTE PTR ss:planeon, ah;\r
- }\r
-planeloop:\r
- asm {\r
- mov dx, SC_INDEX;\r
- mov al, SC_MAPMASK;\r
- out dx, ax;\r
- mov dx, ss:drawheight;\r
- mov di, ss:t_dest;\r
- }\r
-yloop:\r
- asm {\r
- mov cx, ss:plaquewidth;\r
- xor al, al;\r
- }\r
-xloop:\r
- asm {\r
- mov si, [bx];\r
- add bx, 2;\r
- xor ah, ah;\r
- or ax, [bp+si];\r
- stosb;\r
- mov al, ah;\r
- loop xloop;\r
- stosb;\r
- mov WORD PTR es:[di], 0;\r
- add di, ss:plaquedelta;\r
- dec dx;\r
- jnz yloop;\r
- mov bx, ss:source2;\r
- mov ah, BYTE PTR ss:planeon;\r
- shl ah, 1;\r
- mov BYTE PTR ss:planeon, ah;\r
- cmp ah, 16;\r
- jnz planeloop;\r
- pop bp;\r
- mov ax, ss;\r
- mov ds, ax;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= LocatePlaque\r
-=\r
-============================\r
-*/\r
-\r
-Sint16 LocatePlaque(Sint16 elapsed)\r
-{\r
- switch (plaquephase)\r
- {\r
- case -1:\r
- //\r
- // pic starts to appear\r
- //\r
- plaqueseg = basepl[plaque];\r
- plaquewidth = baseplwidth[plaque];\r
- plaquewidthwords = (plaquewidth + 3) >> 1;\r
- plaqueheight = baseplheight[plaque];\r
- plaquedelta = linewidth - (plaquewidth + 1);\r
- plaqueplane = (plaquewidth * plaqueheight) << 1;\r
- plaquephase++;\r
- lastframe = elapsed;\r
- plaquey = 240;\r
- // no break or return here!\r
- case 0:\r
- //\r
- // pic is moving from the bottom to the center of the screen\r
- //\r
- plaquey -= (elapsed - lastframe) << 1;\r
- if (plaquey < 100)\r
- {\r
- plaquey = 100;\r
- plaquephase++;\r
- }\r
- lastframe = elapsed;\r
- return plaquey - (plaqueheight >> 1);\r
-\r
- case 1:\r
- //\r
- // pic is staying at the center position\r
- //\r
- if (elapsed - lastframe > 200)\r
- {\r
- plaquephase++;\r
- lastframe = elapsed;\r
- }\r
- return 100 - (plaqueheight >> 1);\r
-\r
- case 2:\r
- //\r
- // pic is moving up from the center to the top of the screen\r
- //\r
- plaquey -= (elapsed - lastframe) << 1;\r
- if (plaquey < -40)\r
- {\r
- plaquey = -40;\r
- if (++plaque < 4)\r
- {\r
- plaquephase = -1;\r
- }\r
- else\r
- {\r
- plaquephase = 3;\r
- }\r
- }\r
- lastframe = elapsed;\r
- return plaquey - (plaqueheight >> 1);\r
- }\r
-\r
- return -40;\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= SlideLetters\r
-=\r
-============================\r
-*/\r
-\r
-void SlideLetters(void)\r
-{\r
- Sint16 x, cPosX, screenxb;\r
- Uint16 elapsed, totaltics, dstofs;\r
- Sint16 cStart, cEnd, cTotalMove;\r
- Uint16 shift, srcseg, srcofs;\r
- Sint16 clearleft, copywidth, clearright;\r
- Uint16 srcdif, dstdif;\r
- Sint32 now;\r
-\r
- //\r
- // set up characteristics of the animation\r
- //\r
- EGAWRITEMODE(0);\r
- EGAREADMAP(0); // useless...\r
-\r
- keenstart = keen->width + 200;\r
- EGAREADMAP(1); // also useless ... I think...\r
-\r
- cEnd = 120 - commander->width;\r
- cStart = 320;\r
- cTotalMove = cEnd - cStart;\r
- totaltics = abs(cTotalMove);\r
-\r
- pageofs = pageon = 0;\r
- lasttimecount = TimeCount;\r
- while (TimeCount == lasttimecount);\r
- lasttimecount = TimeCount;\r
-\r
- for (elapsed=0; elapsed <= totaltics; elapsed += tics)\r
- {\r
- //\r
- // draw the credits pic\r
- //\r
- x = ((Sint32)keenstart * (Sint32)(totaltics-elapsed)) / (Sint32)totaltics;\r
- DrawPlaque(elapsed, x);\r
-\r
- //\r
- // get ready to draw draw the "COMMANDER" pic\r
- //\r
- cPosX = cStart + ((Sint32)cTotalMove * (Sint32)elapsed) / (Sint32)totaltics;\r
- cPosX += x & 7;\r
- screenxb = (cPosX + 0x800) / 8 + -0x100;\r
- shift = (cPosX + 0x800) & 7;\r
- srcseg = FP_SEG(cmdrshifts[shift]);\r
- srcofs = 0;\r
- dstofs = pageofs + x / 8;\r
- if (screenxb > 0)\r
- {\r
- clearleft = (screenxb + 1) / 2;\r
- if (screenxb & 1)\r
- dstofs--;\r
- copywidth = 21 - clearleft;\r
- clearright = 0;\r
- }\r
- else if (-commanderbwide + 40 < screenxb)\r
- {\r
- clearleft = 0;\r
- copywidth = 21;\r
- clearright = 0;\r
- srcofs -= screenxb;\r
- }\r
- else\r
- {\r
- clearleft = 0;\r
- copywidth = (commanderbwide + screenxb) / 2;\r
- clearright = 21 - copywidth;\r
- srcofs -= screenxb;\r
- }\r
- srcdif = commanderbwide - copywidth*2;\r
- dstdif = 248 - (clearleft + copywidth + clearright)*2;\r
-\r
- //\r
- // draw "COMMANDER" pic\r
- //\r
- EGAMAPMASK(2);\r
-\r
- asm {\r
- mov di, dstofs;\r
- mov es, screenseg;\r
- mov si, srcofs;\r
- mov lastsource, si;\r
- mov ds, srcseg;\r
- mov dx, 200;\r
- }\r
-yloop:\r
- asm {\r
- xor ax, ax;\r
- mov cx, clearleft;\r
- rep stosw;\r
- mov cx, copywidth;\r
- rep movsw;\r
- xor ax, ax;\r
- mov cx, clearright;\r
- rep stosw;\r
- test dx, 1;\r
- jnz oddline;\r
- mov si, ss:lastsource;\r
- jmp nextline;\r
- }\r
-oddline:\r
- asm {\r
- add si, srcdif;\r
- mov ss:lastsource, si;\r
- }\r
-nextline:\r
- asm {\r
- add di, dstdif;\r
- dec dx;\r
- jnz yloop;\r
- mov ax, ss;\r
- mov ds, ax;\r
- }\r
-\r
- //\r
- // page flip\r
- //\r
- VW_SetScreen(pageofs + x / 8, x & 7);\r
- pageon ^= 1;\r
- if (pageon)\r
- {\r
- pageofs = 124;\r
- }\r
- else\r
- {\r
- pageofs = 0;\r
- }\r
-\r
- //\r
- // handle timing\r
- //\r
- do\r
- {\r
- now = TimeCount;\r
- tics = now - lasttimecount;\r
- } while (tics < 2);\r
- lasttimecount = now;\r
-\r
- //\r
- // handle input\r
- //\r
- if (IN_IsUserInput() && LastScan != sc_F1)\r
- {\r
- LastScan = sc_Space;\r
- }\r
- if (LastScan)\r
- return;\r
- }\r
-\r
- byteadjust = x / 8;\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= DrawScan\r
-=\r
-============================\r
-*/\r
-\r
-void DrawScan(Sint16 far *source, Uint8 far *dest)\r
-{\r
- register Uint16 x;\r
- register Sint16 w;\r
- register Uint16 val;\r
- register Uint16 i;\r
-\r
- val = x = 0;\r
- for (;;)\r
- {\r
- //\r
- // first part: puts black pixels (<width> pixels wide)\r
- //\r
- w = *source++;\r
- if (w == -1)\r
- {\r
- *dest++ = val;\r
- *dest = 0;\r
- return;\r
- }\r
-\r
- x += w;\r
- if (x > 7)\r
- {\r
- *dest++ = val;\r
- val = 0;\r
- i = (x / 8) - 1;\r
- while (i--)\r
- {\r
- *dest++ = 0;\r
- }\r
- x &= 7;\r
- }\r
-\r
- //\r
- // second part: puts white pixels (<width> pixels wide)\r
- //\r
- w = *source++;\r
- if (w == -1)\r
- {\r
- *dest++ = val;\r
- *dest = 0;\r
- return;\r
- }\r
-\r
- val |= ortoend[x];\r
- x += w;\r
- if (x > 7)\r
- {\r
- *dest++ = val;\r
- val = 0xFF;\r
- i = (x / 8) - 1;\r
- while (i--)\r
- {\r
- *dest++ = 0xFF;\r
- }\r
- x &= 7;\r
- }\r
- val &= andtoend[x];\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= BuildScaleShape\r
-=\r
-============================\r
-*/\r
-\r
-void BuildScaleShape(void)\r
-{\r
- Sint16 px, w;\r
- Sint16 far *source;\r
- Sint16 far *dest;\r
- Sint16 y;\r
-\r
- MM_GetPtr((memptr*)&both, 30000);\r
- dest = MK_FP(FP_SEG(both), sizeof(shapehead));\r
-\r
- for (y=0; y<200; y++)\r
- {\r
- both->rowofs[y] = FP_OFF(dest);\r
- px = 0;\r
-\r
- EGAREADMAP(1); // this is pretty useless, we're not reading from EGA memory here\r
-\r
- source = (Sint16 far *)((byte _seg *)commander + commander->rowofs[y]);\r
- w = *source++;\r
- do\r
- {\r
- *dest++ = px;\r
- px = px + w;\r
- w = *source++;\r
- } while (w != -1);\r
-\r
- //\r
- // insert an 80 pixel gap between "COMMANDER" and "KEEN"\r
- //\r
- // This assumes that the rightmost column(s) of the "COMMANDER"\r
- // shape are black. Otherwise the gap would be filled with\r
- // white pixels and the "KEEN" image would use inverted colors\r
- // as a result.\r
- //\r
- px += 80;\r
-\r
- EGAREADMAP(0); // this is pretty useless, we're not reading from EGA memory here\r
-\r
- source = (Sint16 far *)((byte _seg *)keen + keen->rowofs[y]);\r
- source++; // kludgy bit, causes errors when left egde of "KEEN" is no rectangle\r
- w = *source++;\r
- do\r
- {\r
- *dest++ = px;\r
- px = px + w;\r
- w = *source++;\r
- } while (w != -1);\r
-\r
- *dest++ = px; // put last value\r
- *dest++ = -1; // put end-of-line\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= ScalePointScan\r
-=\r
-============================\r
-*/\r
-\r
-void ScalePointScan(Sint16 far *rowptr, Sint16 y, Sint16 toleft, Sint16 far *scaletable)\r
-{\r
- Uint8 far *dest;\r
- Sint16 left, endx;\r
- Uint16 w, val, x, right;\r
- register Sint16 px, sx;\r
-\r
- val = x = 0;\r
- endx = 320 - toleft;\r
- dest = MK_FP(0xA000, pageofs + byteadjust + ylookup[y]);\r
-\r
- if (toleft < 0)\r
- {\r
- left = -toleft;\r
- val = 0;\r
- x = 0;\r
-\r
- for (;;)\r
- {\r
- px = *rowptr++;\r
- sx = scaletable[px];\r
- if (sx > left)\r
- goto drawwhite;\r
-\r
- px = *rowptr++;\r
- sx = scaletable[px];\r
- if (sx > left)\r
- goto drawblack;\r
- }\r
- }\r
-\r
- //\r
- // regular\r
- //\r
- val = 0;\r
- x = toleft & 7;\r
- dest += (toleft >> 3);\r
- left = 0;\r
- rowptr++; // the first value is always 0, we need the next value\r
-drawloop:\r
- px = *rowptr++;\r
- sx = scaletable[px];\r
-\r
- //\r
- // draw/add black pixels\r
- //\r
-drawblack:\r
- w = sx - left;\r
- left = sx;\r
- x += w;\r
- if (x > 7)\r
- {\r
- asm {\r
- les di, dest;\r
- mov al, BYTE PTR val;\r
- stosb;\r
- mov cx, x;\r
- shr cx, 1;\r
- shr cx, 1;\r
- shr cx, 1;\r
- dec cx;\r
- xor al, al;\r
- mov BYTE PTR val, al;\r
- rep stosb;\r
- and x, 7;\r
- mov WORD PTR dest, di;\r
- }\r
- }\r
-\r
- //\r
- // stop if the right side of the screen is reached\r
- //\r
- if (sx > endx)\r
- return;\r
-\r
- //\r
- // stop if the end of the image row is reached\r
- // \r
- // This is only checked after drawing the black part, so the\r
- // combined shape must not end with white pixels on the right.\r
- // That means the rightmost column(s) of the "KEEN" shape must\r
- // always be black.\r
- //\r
- px = *rowptr++;\r
- if (px == -1)\r
- goto clearright;\r
-\r
- sx = scaletable[px];\r
-\r
- //\r
- // draw/add white pixels\r
- //\r
-drawwhite:\r
- w = sx - left;\r
- left = sx;\r
- val |= ortoend[x];\r
- x += w;\r
- if (x > 7)\r
- {\r
- asm {\r
- les di, dest;\r
- mov al, BYTE PTR val;\r
- stosb;\r
- mov cx, x;\r
- shr cx, 1;\r
- shr cx, 1;\r
- shr cx, 1;\r
- dec cx;\r
- mov al, 255;\r
- mov BYTE PTR val, al;\r
- rep stosb;\r
- and x, 7;\r
- mov WORD PTR dest, di;\r
- }\r
- }\r
-\r
- //\r
- // stop if the right side of the screen is reached\r
- //\r
- if (sx > endx)\r
- return;\r
-\r
- val &= andtoend[x];\r
- goto drawloop;\r
-\r
- //\r
- // clear the right side of the screen\r
- //\r
-clearright:\r
- w = 320 - left;\r
- x += w;\r
- if (x > 7)\r
- {\r
- *dest++ = val;\r
- val = 0;\r
- right = x / 8 - 1;\r
- while (right--)\r
- {\r
- *dest++ = 0;\r
- }\r
- x &= 7;\r
- return;\r
- }\r
- return;\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= ScaleDown\r
-=\r
-============================\r
-*/\r
-\r
-void ScaleDown(void)\r
-{\r
- Uint16 i;\r
- Uint16 toleft, ticselapsed, ticstotal, scale, endscale, rownum, rowinc;\r
- Sint32 now;\r
- Sint16 far *rowptr;\r
- Uint16 scaleheight, top, bottom, lastbottom[2];\r
- Sint32 leftorigin;\r
-\r
- //\r
- // set our new palette\r
- //\r
- SetPalette(termcolors2);\r
-\r
- EGAREADMAP(1); // this is pretty useless, we're not reading from EGA memory here\r
-\r
- leftorigin = 120l - commander->width;\r
- BuildScaleShape();\r
- MM_GetPtr(&scaletable, 2500*sizeof(Uint16));\r
-\r
- scale = 0x100; // 100%\r
- endscale = 0x21; // 13% (scale from 200px to 26px)\r
- endscale = 0x21; // redundant\r
- lastbottom[0] = lastbottom[1] = 200;\r
- ticselapsed = 1;\r
- ticstotal = 30; // time for the whole shrinking animation\r
-\r
- while (ticselapsed <= ticstotal)\r
- {\r
- //\r
- // get current scaling\r
- //\r
- if (ticselapsed == ticstotal)\r
- {\r
- scale = endscale;\r
- toleft = 0;\r
- top = 4;\r
- }\r
- else\r
- {\r
- scale = 0x100 - ((0x100-endscale) * ticselapsed) / ticstotal;\r
- toleft = (leftorigin * (ticstotal - ticselapsed)) / ticstotal;\r
- top = (ticselapsed * 4) / ticstotal;\r
- }\r
-\r
- //\r
- // build scale table: scaletable[i] = (i*scale) / 0x100;\r
- //\r
- asm {\r
- xor ax, ax;\r
- xor dx, dx;\r
- mov cx, 2500;\r
- mov bx, scale;\r
- mov es, scaletable;\r
- xor di, di;\r
- }\r
-l1:\r
- asm {\r
- mov es:[di], ah;\r
- inc di;\r
- mov es:[di], dl;\r
- inc di;\r
- add ax, bx;\r
- adc dx, 0;\r
- loop l1;\r
- }\r
-\r
- //\r
- // wait... didn't we already do this?\r
- //\r
- if (ticselapsed == ticstotal)\r
- {\r
- toleft = 0;\r
- }\r
- else\r
- {\r
- toleft = (leftorigin * (ticstotal - ticselapsed)) / ticstotal;\r
- }\r
-\r
- //\r
- // prepare scaled drawing process\r
- //\r
- scaleheight = ((Sint16 _seg *)scaletable)[200];\r
- rownum = 0;\r
- rowinc = 0x10000l / scale;\r
- bufferofs = pageofs + byteadjust;\r
-\r
- //\r
- // erase stuff at the top\r
- //\r
- if (top > 0)\r
- {\r
- VW_Bar(0, 0, 320, top, BLACK);\r
- }\r
-\r
- //\r
- // draw the scaled shape\r
- //\r
- EGAWRITEMODE(0);\r
- EGAMAPMASK(15);\r
-\r
- for (i=0; i<scaleheight; i++)\r
- {\r
- rowptr = (Sint16 far *)((byte _seg *)both + both->rowofs[rownum >> 8]);\r
- ScalePointScan(rowptr, i+top, toleft, scaletable);\r
-\r
- rownum += rowinc;\r
- }\r
-\r
- //\r
- // erase leftovers at the bottom of the screen\r
- //\r
- bufferofs = pageofs + byteadjust;\r
- bottom = scaleheight + top;\r
- if (lastbottom[pageon] > bottom)\r
- {\r
- VW_Bar(0, bottom, 320, lastbottom[pageon] - bottom, BLACK);\r
- lastbottom[pageon] = bottom;\r
- }\r
-\r
- //\r
- // page flip\r
- //\r
- VW_SetScreen(pageofs+byteadjust, 0);\r
- pageon ^= 1;\r
- if (pageon)\r
- {\r
- pageofs = 124;\r
- }\r
- else\r
- {\r
- pageofs = 0;\r
- }\r
-\r
- //\r
- // handle timing\r
- //\r
- now = TimeCount;\r
- tics = now - lasttimecount;\r
- lasttimecount = now;\r
- if (tics > 8)\r
- tics = 8; // don't skip too many frames on slow systems\r
-\r
- if (ticselapsed == ticstotal)\r
- break;\r
-\r
- ticselapsed += tics;\r
- if (ticselapsed > ticstotal)\r
- ticselapsed = ticstotal;\r
-\r
- //\r
- // handle input\r
- //\r
- if (IN_IsUserInput() && LastScan != sc_F1)\r
- {\r
- LastScan = sc_Space;\r
- }\r
- if (LastScan)\r
- return; // BUG: buffers aren't freed!\r
- }\r
-\r
- //\r
- // free the buffers\r
- //\r
- MM_FreePtr(&scaletable);\r
- MM_FreePtr((memptr*)&both);\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= FinishPage\r
-=\r
-============================\r
-*/\r
-\r
-void FinishPage(void)\r
-{\r
- Sint16 swap, temp, i, n, x, y;\r
- Uint16 ofs;\r
- Sint16 top, bottom, delta;\r
- Uint8 bitmask[] = {0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80};\r
- Sint16 xtable[320], ytable[200];\r
-\r
- //\r
- // build lookup tables\r
- //\r
- for (i=0; i<320; i++)\r
- {\r
- xtable[i] = i;\r
- }\r
- for (i=0; i<320; i++)\r
- {\r
- swap = random(320);\r
- temp = xtable[swap];\r
- xtable[swap] = xtable[i];\r
- xtable[i] = temp;\r
- }\r
- for (i=0; i<200; i++)\r
- {\r
- ytable[i] = xtable[i];\r
- }\r
-\r
- //\r
- // set up display\r
- //\r
- VW_SetDefaultColors();\r
- if (pageon)\r
- {\r
- bufferofs = byteadjust + 124;\r
- displayofs = byteadjust;\r
- }\r
- else\r
- {\r
- bufferofs = byteadjust;\r
- displayofs = byteadjust + 124;\r
- }\r
- VW_SetScreen(displayofs, 0);\r
-\r
- //\r
- // draw title pic to the non-displayed buffer\r
- //\r
- VW_DrawPic(0, 0, TITLEPICPIC);\r
-\r
- //\r
- // copy "random" pixels from the non-displayed area\r
- // into the displayed area to create the "fizzle" effect\r
- //\r
- delta = displayofs - bufferofs;\r
-\r
- //\r
- // set ES register for the pixel copying code in the loops\r
- //\r
- // This is faster than setting the ES register in the loops,\r
- // but you need to make sure nothing in the loops overwrites\r
- // the ES register, otherwise the code won't work correctly.\r
- //\r
- asm mov es, screenseg;\r
-\r
- for (i = 0; i< 360; i++)\r
- {\r
- top = i - 160;\r
- if (top < 0)\r
- top = 0;\r
-\r
- bottom = i;\r
- if (bottom >= 200)\r
- bottom = 199;\r
-\r
- for (y = top; y <= bottom; y++)\r
- {\r
- ofs = bufferofs + ylookup[y];\r
- for (n=0; n<2; n++)\r
- {\r
- x = xtable[ytable[y]];\r
- if (++ytable[y] == 320)\r
- {\r
- ytable[y] = 0;\r
- }\r
-\r
- //\r
- // set bitmask for our x value\r
- //\r
- asm mov cx, x;\r
- asm mov si, cx;\r
- asm and si, 7;\r
- asm cli;\r
- asm mov dx, GC_INDEX;\r
- asm mov al, GC_BITMASK;\r
- asm mov ah, BYTE PTR bitmask[si];\r
- asm out dx, ax;\r
- asm sti;\r
-\r
- //\r
- // set up source and dest index registers\r
- //\r
- asm mov si, ofs;\r
- asm shr cx, 1;\r
- asm shr cx, 1;\r
- asm shr cx, 1;\r
- asm add si, cx;\r
- asm mov di, si;\r
- asm add di, delta;\r
-\r
- //\r
- // copy the pixel data (all 4 planes)\r
- //\r
- // "blue" plane:\r
- asm mov dx, SC_INDEX;\r
- asm mov ax, SC_MAPMASK + 1*256;\r
- asm out dx, ax;\r
- asm mov dx, GC_INDEX;\r
- asm mov ax, GC_READMAP + 0*256;\r
- asm out dx, ax;\r
- asm mov bl, es:[si];\r
- asm xchg bl, es:[di];\r
- // "green" plane:\r
- asm mov dx, SC_INDEX;\r
- asm mov ax, SC_MAPMASK + 2*256;\r
- asm out dx, ax;\r
- asm mov dx, GC_INDEX;\r
- asm mov ax, GC_READMAP + 1*256;\r
- asm out dx, ax;\r
- asm mov bl, es:[si];\r
- asm xchg bl, es:[di];\r
- // "red" plane:\r
- asm mov dx, SC_INDEX;\r
- asm mov ax, SC_MAPMASK + 4*256;\r
- asm out dx, ax;\r
- asm mov dx, GC_INDEX;\r
- asm mov ax, GC_READMAP + 2*256;\r
- asm out dx, ax;\r
- asm mov bl, es:[si];\r
- asm xchg bl, es:[di];\r
- // "intensity" plane:\r
- asm mov dx, SC_INDEX;\r
- asm mov ax, SC_MAPMASK + 8*256;\r
- asm out dx, ax;\r
- asm mov dx, GC_INDEX;\r
- asm mov ax, GC_READMAP + 3*256;\r
- asm out dx, ax;\r
- asm mov bl, es:[si];\r
- asm xchg bl, es:[di];\r
- }\r
- }\r
-\r
- VW_WaitVBL(1); // so the fizzle animation won't go super fast\r
-\r
- if (IN_IsUserInput() && LastScan != sc_F1)\r
- {\r
- LastScan = sc_Space;\r
- }\r
- if (LastScan)\r
- {\r
- EGABITMASK(0xFF);\r
- EGAMAPMASK(15);\r
- return;\r
- }\r
- }\r
-\r
- //\r
- // clean up EGA registers\r
- //\r
- EGABITMASK(0xFF);\r
- EGAMAPMASK(15);\r
-\r
- //\r
- // pause for 6 seconds\r
- //\r
- IN_UserInput(6 * TickBase, false);\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= Terminator\r
-=\r
-============================\r
-*/\r
-\r
-void Terminator(void)\r
-{\r
- Uint16 i, shift, bufsize;\r
- Sint16 far *source;\r
- Uint8 far *dest;\r
- Uint16 srcseg, destseg;\r
- boolean pagefinished;\r
- Uint16 rowofs[200];\r
-\r
- pagefinished = false;\r
- CA_SetAllPurge();\r
- SetPaletteEx(colors[0]); // all black\r
- VW_ClearVideo(BLACK);\r
- VW_SetLineWidth(248); // 1984 pixels total, we're using 992 per "page"\r
-\r
- CA_CacheGrChunk(TITLEPICPIC);\r
- CA_CacheGrChunk(BIGCOMMANDER);\r
- CA_CacheGrChunk(BIGKEEN);\r
- keen = grsegs[BIGKEEN];\r
- commander = grsegs[BIGCOMMANDER];\r
-\r
- EGAMAPMASK(1);\r
-\r
- keenstart = keen->width + 200;\r
- VW_SetScreen((keenstart/8)+1, 0);\r
-\r
- //\r
- // draw the "KEEN" pic (to first "page")\r
- //\r
- for (i=0; i<200; i++)\r
- {\r
- source = (Sint16 far *)((byte _seg *)keen + keen->rowofs[i]);\r
- dest = MK_FP(0xA000, ylookup[i]);\r
- dest += 25; // 25 bytes -> 200 pixels\r
- DrawScan(source, dest);\r
- }\r
- //\r
- // copy pic from first "page" to second "page"\r
- //\r
- VW_ScreenToScreen(0, 124, 109, 200);\r
-\r
- //\r
- // create pre-shifted image buffers for the "COMMANDER" pic\r
- // (only 100 pixels high instead of 200 pixels to save memory)\r
- //\r
- commanderbwide = (commander->width + 7) / 8;\r
- commanderbwide = (commanderbwide + 3) & ~1;\r
- bufsize = commanderbwide * 100; // half height\r
- for (shift = 0; shift < 8; shift++)\r
- {\r
- MM_GetPtr(&cmdrshifts[shift], bufsize);\r
- }\r
-\r
- //\r
- // re-assign shape pointers (memory manager might have moved the buffers)\r
- //\r
- keen = grsegs[BIGKEEN];\r
- commander = grsegs[BIGCOMMANDER];\r
-\r
- //\r
- // draw the first (unshifted) version of the "COMMANDER" pic to the buffer\r
- //\r
- for (i=0; i<100; i++)\r
- {\r
- rowofs[i*2] = rowofs[i*2+1] = i * commanderbwide;\r
- source = (Sint16 far *)((byte _seg *)commander + commander->rowofs[i*2]);\r
- dest = (Uint8 _seg *)cmdrshifts[0] + rowofs[i*2];\r
- DrawScan(source, dest);\r
- }\r
-\r
- //\r
- // create the shifted versions of the "COMMANDER" pic\r
- //\r
- for (shift = 1; shift < 8; shift++)\r
- {\r
- srcseg = FP_SEG(cmdrshifts[shift-1]);\r
- destseg = FP_SEG(cmdrshifts[shift]);\r
- asm {\r
- mov ds, srcseg;\r
- mov es, destseg;\r
- mov cx, bufsize;\r
- clc;\r
- xor si, si;\r
- xor di, di;\r
- }\r
-l1:\r
- asm {\r
- lodsb;\r
- rcr al, 1;\r
- stosb;\r
- loop l1;\r
- mov ax, ss;\r
- mov ds, ax;\r
- }\r
- }\r
-\r
- //\r
- // prepare (and set) the palettes\r
- //\r
- termcolors[16] = termcolors2[16] = termcolors[16] = bordercolor;\r
- SetPalette(termcolors);\r
-\r
- //\r
- // cache the credits pics (they are converted into a special\r
- // format to make shifted drawing easier during the animation)\r
- //\r
- for (i=0; i<4; i++)\r
- {\r
- LoadPlaque(i);\r
- }\r
-\r
- //\r
- // play the animation\r
- //\r
- plaque = lastframe = 0;\r
- plaquephase = -1;\r
- SlideLetters();\r
-\r
- //\r
- // free some of the buffers\r
- // (shrink animation needs additional memory)\r
- //\r
- for (i=0; i<4; i++)\r
- {\r
- MM_FreePtr(&basepl[i]);\r
- }\r
- for (shift=0; shift<8; shift++)\r
- {\r
- MM_FreePtr(&cmdrshifts[shift]);\r
- }\r
-\r
- //\r
- // do the shrinking and fizzle fade animations\r
- // (if intro wasn't aborted)\r
- //\r
- if (!LastScan)\r
- {\r
- ScaleDown();\r
- }\r
-\r
- if (!LastScan)\r
- {\r
- FinishPage();\r
- pagefinished = true;\r
- }\r
-\r
- //\r
- // free the remaining buffers\r
- //\r
- MM_SetPurge(&grsegs[BIGCOMMANDER], 3);\r
- MM_SetPurge(&grsegs[BIGKEEN], 3);\r
-\r
- //\r
- // switch back to default graphics settings\r
- //\r
- VW_ClearVideo(BLACK);\r
- VW_SetLineWidth(SCREENWIDTH);\r
- VW_SetDefaultColors();\r
- RF_FixOfs();\r
- CA_ClearMarks();\r
-\r
- //\r
- // handle input and main menu stuff\r
- //\r
- if (LastScan == sc_None)\r
- {\r
- return;\r
- }\r
-#ifndef KEEN6\r
- if (LastScan == sc_F1)\r
- {\r
- HelpScreens();\r
- return;\r
- }\r
-#endif\r
- if (!pagefinished)\r
- {\r
- RF_FixOfs(); //redundant\r
- CA_CacheGrChunk(TITLEPICPIC);\r
- VW_DrawPic(0, 0, TITLEPICPIC);\r
- VW_SetScreen(bufferofs, 0);\r
- IN_Ack();\r
- CA_ClearMarks();\r
- if (storedemo)\r
- {\r
- playstate = ex_resetgame;\r
- restartgame = gd_Normal;\r
- IN_ClearKeysDown();\r
- NewGame();\r
- return;\r
- }\r
- }\r
-\r
- US_ControlPanel();\r
- if (restartgame)\r
- {\r
- playstate = ex_resetgame;\r
- }\r
- else if (loadedgame)\r
- {\r
- playstate = ex_loadedgame;\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- STAR WARS TEXT CRAWL\r
-\r
-=============================================================================\r
-*/\r
-\r
-/*\r
-============================\r
-=\r
-= BuildBitTables\r
-=\r
-============================\r
-*/\r
-\r
-void BuildBitTables(void)\r
-{\r
- Uint16 bit1, bit2, i;\r
- Uint8 far *buffer;\r
-\r
- MM_GetPtr(&bittables, 0x4000);\r
- buffer = bittables;\r
-\r
- //\r
- // generate a lookup table that maps the bits of the "texture" (bit1)\r
- // to the appropriate bit for the screen position (bit2) to make the\r
- // scaler code faster and smaller\r
- //\r
- // table[((7-b1)*8+(7-b2))*256+i] = (i & (1 << (7-b1))) ? (1 << (7-b2)) : 0;\r
- //\r
- for (bit1 = 1; bit1 < 0x100; bit1 <<= 1)\r
- {\r
- for (bit2 = 1; bit2 < 0x100; bit2 <<= 1)\r
- {\r
- for (i = 0; i < 0x100; i++, buffer++)\r
- {\r
- if (i & bit1)\r
- {\r
- *buffer = bit2;\r
- }\r
- else\r
- {\r
- *buffer = 0;\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= CompileSWUpdate\r
-=\r
-============================\r
-*/\r
-\r
-void CompileSWUpdate(void)\r
-{\r
- Sint16 y;\r
- Uint16 i, width, scalestep, step;\r
- Sint32 scale, rowof, xpos, size;\r
- void far *buffer;\r
- Uint8 srcoff, srcbit, bitpos;\r
- Uint16 destoff, srcx, left, orindex, lastoff;\r
-\r
- BuildBitTables();\r
- size = 190000;\r
- MM_GetPtr(&linecode, size);\r
- buffer = linecode;\r
- //\r
- // Note: You should really lock the pointer to prevent the memmory manager\r
- // from moving the buffer around. This code stores a bunch of pointers to\r
- // this memory block in the linestarts array. Those pointers will not be\r
- // updated when the memory manager moves the buffer around and the game\r
- // might end up crashing (or worse) when trying to run the "code" at the\r
- // memory location after the data was moved. The game starts playing music\r
- // after this function is done, which may or may not cause the memory\r
- // manager to move memory blocks around.\r
- //\r
-\r
- //\r
- // move the buffer address into ES:DI (and keep it there)\r
- //\r
- asm mov es, WORD PTR buffer+2;\r
- asm mov di, WORD PTR buffer;\r
- //\r
- // Since the address is kept in ES:DI, we must save and restore\r
- // the ES register when calling other functions (push es / pop es).\r
- // The Borland C compiler always saves and restores the DI register\r
- // when a function modifies it, so we don't need to worry about\r
- // that register. This is a bit of an ugly hack, but it makes this\r
- // code a little faster and smaller.\r
- //\r
-\r
- scale = 320l << 11;\r
- scalestep = (((Uint32)(320-40) << 11) / 200); // roughly 1.4 pixels per step, going from 320 pixels to 40 pixels in 200 steps\r
- rowof = 0;\r
-\r
- for (y=199; y >= 0; y--)\r
- {\r
- //\r
- // draw a blue line for the current row\r
- //\r
- asm push es;\r
- VW_Hlin(0, 320, y, BLUE);\r
- asm pop es;\r
-\r
- //\r
- // update the buffer variable with the current (normalized) ES:DI address\r
- //\r
- asm mov WORD PTR buffer, di;\r
- asm mov WORD PTR buffer+2, es;\r
-\r
- //\r
- // store the address in the scaler lookup table\r
- //\r
- linestarts[y] = buffer;\r
-\r
- //\r
- // get current scaling factors\r
- //\r
- width = ((Uint16)((scale/2) >> 11)) << 1; // some trickery to make sure width is even\r
- sourceline[y] = (rowof >> 11);\r
- step = (336l << 11) / width;\r
- xpos = 0;\r
- rowof += step;\r
- left = 160 - (width >> 1);\r
- destoff = ylookup[y] + left / 8;\r
- bitpos = left & 7;\r
-\r
- //\r
- // generate the machine code\r
- //\r
- // MOV CX, SS\r
- // MOV SS, AX\r
- // ADD DI, <destoff>\r
- // XOR AL, AL\r
- //\r
- asm mov ax, 0D18Ch;\r
- asm stosw;\r
- asm mov ax, 0D08Eh;\r
- asm stosw;\r
- asm mov ax, 0C781h;\r
- asm stosw;\r
- asm mov ax, destoff;\r
- asm stosw;\r
- asm mov ax, 0C030h;\r
- asm stosw;\r
-\r
- lastoff = -1;\r
- for (i=0; i<width; i++)\r
- {\r
- srcx = (xpos >> 11);\r
- srcoff = (srcx / 8);\r
- srcbit = srcx & 7;\r
-\r
- orindex = ((7-srcbit)*8 + 7-bitpos) << 8;\r
- if (srcoff != lastoff)\r
- {\r
- //\r
- // MOV BL, [BP + <srcoff>]\r
- //\r
- asm mov ax, 5E8Ah;\r
- asm stosw;\r
- asm mov al, srcoff;\r
- asm stosb;\r
-\r
- lastoff = srcoff;\r
- }\r
-\r
- //\r
- // OR AL, [BX + <orindex>]\r
- //\r
- asm mov ax, 870Ah;\r
- asm stosw;\r
- asm mov ax, orindex;\r
- asm stosw;\r
-\r
- bitpos++;\r
- if (bitpos == 8)\r
- {\r
- bitpos = 0;\r
-\r
- //\r
- // STOSB\r
- // XOR AL, AL\r
- //\r
- asm mov ax, 30AAh;\r
- asm stosw;\r
- asm mov al, 0C0h;\r
- asm stosb;\r
- }\r
-\r
- xpos += step;\r
- }\r
-\r
- if (bitpos)\r
- {\r
- //\r
- // STOSB\r
- //\r
- asm mov al, 0AAh;\r
- asm stosb;\r
- }\r
- //\r
- // generate end of subroutine\r
- //\r
- // MOV SS, CX\r
- // RETF\r
- //\r
- asm mov ax, 0D18Eh;\r
- asm stosw;\r
- asm mov al, 0CBh;\r
- asm stosb;\r
-\r
- //\r
- // normalize ES:DI\r
- //\r
- asm mov ax, di;\r
- asm shr ax, 1;\r
- asm shr ax, 1;\r
- asm shr ax, 1;\r
- asm shr ax, 1;\r
- asm mov bx, es;\r
- asm add ax, bx;\r
- asm mov es, ax;\r
- asm and di, 0Fh;\r
-\r
- //\r
- // update scale value for next row\r
- //\r
- scale -= scalestep;\r
-\r
- //\r
- // replace the blue line with the row from the background image\r
- //\r
- asm push es;\r
- VW_ScreenToScreen(ylookup[y] + 0x8000, ylookup[y], 40, 1);\r
- asm pop es;\r
-\r
- if (LastScan)\r
- return;\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= TranslateString\r
-=\r
-============================\r
-*/\r
-\r
-void TranslateString(char *text)\r
-{\r
- char c;\r
-\r
- while (*text)\r
- {\r
- c = *text;\r
-\r
- if (c >= 'A' && c <= 'Z')\r
- {\r
- c = c + -33;\r
- }\r
- else if (c >= 'a' && c <= 'z')\r
- {\r
- c = c + -39;\r
- }\r
- else if (c == '.')\r
- {\r
- c = 84;\r
- }\r
- else if (c == ',')\r
- {\r
- c = 85;\r
- }\r
- else if (c == '-')\r
- {\r
- c = 86;\r
- }\r
- else if (c == '"')\r
- {\r
- c = 87;\r
- }\r
- else if (c == ' ')\r
- {\r
- c = 88;\r
- }\r
- else if (c == '!')\r
- {\r
- c = 89;\r
- }\r
- else if (c == '\'')\r
- {\r
- c = 90;\r
- }\r
- else if (c != '\n')\r
- {\r
- c = 84; // any unhandled character is drawn as '.'\r
- }\r
-\r
- *text++ = c;\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= DrawSWText\r
-=\r
-============================\r
-*/\r
-\r
-void DrawSWText(void)\r
-{\r
- char far *text;\r
- char *ptr;\r
- char c;\r
- char strbuf[80];\r
-\r
- WindowX = 0;\r
- WindowW = 336;\r
- PrintY = 1; // always leave the first line blank\r
- bufferofs = 0;\r
- panadjust = 0;\r
- text = swtext;\r
- masterlines = 0;\r
-\r
- //\r
- // draw the entire text to video memory\r
- //\r
- while (*text)\r
- {\r
- ptr = strbuf;\r
- do\r
- {\r
- c = *text++;\r
- *ptr++ = c;\r
- } while (c != '\n' && c != '\0');\r
- *ptr = '\0';\r
-\r
- TranslateString(strbuf);\r
-\r
- US_CPrint(strbuf);\r
-\r
- bufferofs += ylookup[PrintY];\r
- masterlines += PrintY;\r
- PrintY = 0;\r
- }\r
-\r
- //\r
- // allocate a buffer large enough to hold the entire text image\r
- // and move the image data from video memory into that buffer\r
- //\r
- MM_GetPtr(&sourcepic, bufferofs);\r
- EGAREADMAP(1); // read from "green" plane (doesn't really matter from which plane we read)\r
- movedata(screenseg, 0, FP_SEG(sourcepic), 0, bufferofs);\r
-\r
- //\r
- // erase the (first screen of the) text from video memory.\r
- // we're going to display this area and copy the backgound pic\r
- // here line-by-line as the scalers are generated and we don't\r
- // want to have parts of the text still visible at that point.\r
- //\r
- bufferofs = 0;\r
- VW_Bar(0, 0, 320, 200, BLACK);\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= ScrollSWText\r
-=\r
-============================\r
-*/\r
-\r
-void ScrollSWText(void)\r
-{\r
- Sint32 now;\r
- Uint16 pos;\r
- Sint16 i, rowof;\r
-\r
- tics = TimeCount = lasttimecount = 0;\r
-\r
- EGAWRITEMODE(0);\r
- EGAMAPMASK(8); // only draw to the "intensity" plane (so we don't erase the backgound pic)\r
-\r
- pos = 0;\r
- while (masterlines + 400 >= pos)\r
- {\r
- for (i = 199; i >= 0; i--)\r
- {\r
- rowof = pos - sourceline[i];\r
- if (rowof < 0 || rowof >= masterlines)\r
- {\r
- masterofs = 0; // draw the first (blank) line of the buffer\r
- }\r
- else\r
- {\r
- masterofs = rowof * 42;\r
- }\r
- routine = linestarts[i];\r
- asm {\r
- mov es, screenseg;\r
- mov di, pageofs;\r
- mov ds, bittables;\r
- push bp;\r
- mov bp, ss:masterofs;\r
- mov ax, ss:sourcepic;\r
- xor bh, bh;\r
- cli; // disable interrupts (scaler changes register SS, so interrupts would be fatal!)\r
- call ss:routine;\r
- sti; // enable interrupts again\r
- pop bp;\r
- mov ax, ss;\r
- mov ds, ax;\r
- }\r
- }\r
-\r
- VW_SetScreen(pageofs, 0);\r
- pageon ^= 1;\r
- pageofs = pageon << 15;\r
-\r
- now = TimeCount;\r
- tics = tics + (now - lasttimecount);\r
- lasttimecount = now;\r
- if (tics > 20)\r
- tics = 20;\r
-\r
- pos = pos + tics / 4;\r
- tics &= 3;\r
-\r
- if (IN_IsUserInput() && LastScan != sc_F1)\r
- LastScan = sc_Space;\r
-\r
- if (LastScan)\r
- break;\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= StarWars\r
-=\r
-============================\r
-*/\r
-\r
-void StarWars(void)\r
-{\r
- SetPaletteEx(colors[0]); // all black\r
- VW_ClearVideo(BLACK);\r
- VW_SetLineWidth(42); // 336 pixels\r
- VW_SetScreen(0, 0);\r
- pageon = pageofs = 0;\r
- CA_SetAllPurge();\r
- CA_CacheGrChunk(STARTFONT+2);\r
- fontnumber = 2;\r
- DrawSWText();\r
- fontnumber = 0;\r
-\r
- CA_CacheGrChunk(SW_BACKGROUNDPIC);\r
- bufferofs = 0x8000;\r
- VW_DrawPic(0, 0, SW_BACKGROUNDPIC);\r
- CA_SetAllPurge();\r
- SetPaletteEx(starcolors);\r
- bufferofs = 0;\r
- CompileSWUpdate();\r
-\r
- if (!LastScan)\r
- {\r
- StartMusic(STARWARSMUSIC);\r
- ScrollSWText();\r
- StopMusic();\r
- }\r
-\r
- MM_FreePtr(&linecode);\r
- MM_FreePtr(&bittables);\r
- MM_FreePtr(&sourcepic);\r
-\r
- VW_ClearVideo(BLACK);\r
- VW_SetLineWidth(SCREENWIDTH);\r
- VW_SetDefaultColors();\r
- RF_FixOfs();\r
- CA_ClearMarks();\r
-\r
- CheckLastScan();\r
-}\r
-\r
-#endif // if GRMODE == EGAGR\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= ShowTitle\r
-=\r
-============================\r
-*/\r
-\r
-void ShowTitle(void)\r
-{\r
- panadjust = 0;\r
- CA_CacheGrChunk(TITLEPICPIC);\r
- VW_DrawPic(0, 0, TITLEPICPIC);\r
-#if GRMODE == CGAGR\r
- VW_UpdateScreen();\r
-#else\r
- VW_SetScreen(displayofs, 0);\r
- VW_ScreenToScreen(bufferofs, displayofs, 42, 224);\r
-#endif\r
- IN_UserInput(6*TickBase, false);\r
- CA_ClearMarks();\r
- CheckLastScan();\r
-}\r
-\r
-//===========================================================================\r
-\r
-#if GRMODE == CGAGR\r
-/*\r
-============================\r
-=\r
-= ShowCredits\r
-=\r
-============================\r
-*/\r
-\r
-void ShowCredits(void)\r
-{\r
- panadjust = 0;\r
- CA_CacheGrChunk(SW_BACKGROUNDPIC);\r
- VW_DrawPic(0, 0, SW_BACKGROUNDPIC);\r
- VW_UpdateScreen();\r
- IN_UserInput(6*TickBase, false);\r
- CA_ClearMarks();\r
- CheckLastScan();\r
-}\r
-#endif\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= RunDemo\r
-=\r
-============================\r
-*/\r
-\r
-void RunDemo(Sint16 num)\r
-{\r
- Uint16 far *demodata;\r
- \r
- NewGame();\r
- num += DEMO0;\r
- CA_CacheGrChunk(num);\r
- demodata = grsegs[num];\r
- gamestate.mapon = demodata[0];\r
- DemoSize = demodata[1];\r
- MM_GetPtr(&(memptr)DemoBuffer, DemoSize);\r
- MM_SetLock(&(memptr)DemoBuffer, true);\r
- _fmemcpy(DemoBuffer, ((char _seg *)grsegs[num])+4, DemoSize);\r
- MM_FreePtr(&grsegs[num]);\r
- IN_StartDemoPlayback(DemoBuffer, DemoSize);\r
- SetupGameLevel(true);\r
- if (scorescreenkludge)\r
- {\r
- DrawHighScores();\r
- }\r
- PlayLoop();\r
- IN_StopDemo();\r
- MM_FreePtr(&(memptr)DemoBuffer);\r
- VW_FixRefreshBuffer();\r
- CA_ClearMarks();\r
- CheckLastScan();\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= DrawHighScores\r
-=\r
-============================\r
-*/\r
-\r
-void DrawHighScores(void)\r
-{\r
- Uint16 i, n;\r
- Uint16 width, height;\r
- HighScore *entry;\r
- Uint16 oldbufferofs;\r
- char buf[16], *bufptr;\r
- \r
- RF_NewPosition(0, 0);\r
- oldbufferofs = bufferofs;\r
- bufferofs = masterofs;\r
-#ifdef KEEN5\r
-#if GRMODE == CGAGR\r
- fontcolor = 2;\r
-#else\r
- fontcolor = BLUE ^ LIGHTMAGENTA; // blue text on light magenta background (XOR draw mode!)\r
-#endif\r
-#endif\r
- for (i=0, entry=&Scores[0]; i<MaxScores; i++, entry++)\r
- {\r
- PrintY = i*16 + HIGHSCORE_TOP;\r
- PrintX = HIGHSCORE_LEFT;\r
- US_Print(entry->name);\r
-#ifdef KEEN4\r
- PrintX = 152;\r
- for (n=0; n<entry->completed; n++)\r
- {\r
- VWB_DrawTile8(PrintX, PrintY+1, 71);\r
- PrintX += 8;\r
- }\r
-#endif\r
- ultoa(entry->score, buf, 10);\r
- for (bufptr=buf; *bufptr; bufptr++)\r
- {\r
- *bufptr = *bufptr + 81;\r
- }\r
- USL_MeasureString(buf, &width, &height);\r
- PrintX = HIGHSCORE_RIGHT - width;\r
- US_Print(buf);\r
- }\r
- fontcolor = WHITE; // back to default color\r
- bufferofs = oldbufferofs;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= CheckHighScore\r
-=\r
-============================\r
-*/\r
-\r
-void CheckHighScore(Sint32 score, Sint16 completed)\r
-{\r
- Uint16 i, n;\r
- Sint16 index;\r
- HighScore entry;\r
- \r
- strcpy(entry.name, ""); //Note: 'entry.name[0] = 0;' would be more efficient\r
- entry.score = score;\r
- entry.completed = completed;\r
- for (i=0, index=-1; i<MaxScores; i++)\r
- {\r
- if (Scores[i].score < entry.score ||\r
- (Scores[i].score == entry.score && Scores[i].completed < entry.completed))\r
- {\r
- n=MaxScores;\r
- while (--n > i)\r
- {\r
- Scores[n] = Scores[n-1];\r
- }\r
- Scores[i] = entry;\r
- index = i;\r
- HighScoresDirty = true;\r
- break;\r
- }\r
- }\r
- if (index != -1)\r
- {\r
- scorescreenkludge = true;\r
- gamestate.mapon = HIGHSCORE_MAP;\r
- SetupGameLevel(true);\r
- DrawHighScores();\r
-#ifdef KEEN5\r
-#if GRMODE == CGAGR\r
- fontcolor = 2;\r
-#else\r
- fontcolor = BLUE ^ LIGHTMAGENTA; // blue text on light magenta background (XOR draw mode!)\r
-#endif\r
-#endif\r
- RF_Refresh();\r
- RF_Refresh();\r
- PrintY = i*16 + HIGHSCORE_TOP;\r
- PrintX = HIGHSCORE_LEFT;\r
- US_LineInput(PrintX, PrintY, Scores[index].name, NULL, true, MaxHighName, 112);\r
- scorescreenkludge = false;\r
- }\r
-#ifdef KEEN5\r
- fontcolor = 15; // back to default color (white)\r
-#endif\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= ShowHighScores\r
-=\r
-============================\r
-*/\r
-\r
-void ShowHighScores(void)\r
-{\r
- scorescreenkludge = true;\r
- IN_ClearKeysDown();\r
- RunDemo(4);\r
- scorescreenkludge = false;\r
-}\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-Uint16 fadecount;\r
-Sint16 levelcompleted;\r
-Sint32 chunkcount, chunkmax, handpic;\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-void FadeAndUnhook(void);\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= FreeGraphics\r
-=\r
-============================\r
-*/\r
-\r
-void FreeGraphics(void)\r
-{\r
- Sint16 i;\r
- for (i=STARTSPRITES; i<STARTSPRITES+NUMSPRITES; i++)\r
- {\r
- if (grsegs[i])\r
- {\r
- MM_SetPurge(&grsegs[i], PURGE_LAST);\r
- }\r
- }\r
- for (i=STARTTILE16; i<STARTEXTERNS; i++)\r
- {\r
- if (grsegs[i])\r
- {\r
- MM_SetPurge(&grsegs[i], PURGE_LAST);\r
- }\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= NewGame\r
-=\r
-= Set up new game to start from the beginning\r
-=\r
-=====================\r
-*/\r
-\r
-void NewGame(void)\r
-{\r
- memset(&gamestate, 0, sizeof(gamestate));\r
- gamestate.nextextra = 20000;\r
- gamestate.lives = 3;\r
- gamestate.ammo = 5;\r
-}\r
-\r
-//===========================================================================\r
-\r
-#ifndef KEEN5\r
-/*\r
-============================\r
-=\r
-= GameOver\r
-=\r
-============================\r
-*/\r
-\r
-void GameOver(void)\r
-{\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(16, 3);\r
- US_PrintCentered("Game Over!");\r
- VW_UpdateScreen();\r
- IN_ClearKeysDown();\r
- IN_UserInput(4*TickBase, false);\r
-}\r
-#endif\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= SaveTheGame\r
-=\r
-============================\r
-*/\r
-\r
-#define RLETAG 0xABCD\r
-\r
-boolean SaveTheGame(Sint16 handle)\r
-{\r
- Uint16 i,compressed,expanded;\r
- objtype *ob;\r
- memptr bigbuffer;\r
-\r
- gamestate.riding = NULL;\r
-\r
- if (!CA_FarWrite(handle, (byte far *)&gamestate, sizeof(gamestate)))\r
- return false;\r
-\r
- expanded = mapwidth * mapheight * 2;\r
- MM_GetPtr(&bigbuffer, expanded);\r
-\r
- for (i = 0; i < 3; i++)\r
- {\r
- compressed = CA_RLEWCompress(mapsegs[i], expanded, (Uint16 huge *)bigbuffer+1, RLETAG);\r
- *(Uint16 huge *)bigbuffer = compressed;\r
- if (!CA_FarWrite(handle, bigbuffer, compressed+2))\r
- {\r
- MM_FreePtr(&bigbuffer);\r
- return false;\r
- }\r
- }\r
- for (ob = player; ob; ob=ob->next)\r
- {\r
- if (!CA_FarWrite(handle, (byte far *)ob, sizeof(objtype)))\r
- {\r
- MM_FreePtr(&bigbuffer);\r
- return false;\r
- }\r
- }\r
- MM_FreePtr(&bigbuffer);\r
- return true;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= LoadTheGame\r
-=\r
-============================\r
-*/\r
-\r
-boolean LoadTheGame(Sint16 handle)\r
-{\r
- Uint16 i;\r
- objtype *prev,*next,*followed;\r
- Uint16 compressed,expanded;\r
- memptr bigbuffer;\r
-#ifdef KEEN5\r
- Sint16 numfuses;\r
-#endif\r
-\r
- if (!CA_FarRead(handle, (byte far *)&gamestate, sizeof(gamestate)))\r
- return false;\r
-\r
-#ifdef KEEN5\r
- //\r
- // remember the fuses value for later - SetupGameLevel calls\r
- // ScanInfoPlane, which resets this part of the gamestate\r
- //\r
- numfuses = gamestate.numfuses;\r
-#endif\r
-\r
- ca_levelbit >>= 1;\r
- ca_levelnum--;\r
- SetupGameLevel(false);\r
- if (mmerror)\r
- {\r
- mmerror = false;\r
- US_CenterWindow(20, 8);\r
- PrintY += 20;\r
- US_CPrint("Not enough memory\nto load game!");\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- return false;\r
- }\r
- ca_levelbit <<= 1;\r
- ca_levelnum++;\r
-\r
- expanded = mapwidth * mapheight * 2;\r
- MM_BombOnError(true); //BUG: this should use false to avoid an instant crash\r
- MM_GetPtr(&bigbuffer, expanded);\r
- MM_BombOnError(false); //BUG: this should use true to force an instant crash\r
- if (mmerror)\r
- {\r
- mmerror = false;\r
- US_CenterWindow(20, 8);\r
- PrintY += 20;\r
- US_CPrint("Not enough memory\nto load game!");\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- return false;\r
- }\r
- for (i = 0; i < 3; i++)\r
- {\r
- if (!CA_FarRead(handle, (byte far *)&compressed, sizeof(compressed)))\r
- {\r
- MM_FreePtr(&bigbuffer);\r
- return false;\r
- }\r
- if (!CA_FarRead(handle, (byte far *)bigbuffer, compressed))\r
- {\r
- MM_FreePtr(&bigbuffer);\r
- return false;\r
- }\r
- CA_RLEWexpand(bigbuffer, mapsegs[i], expanded, RLETAG);\r
- }\r
- MM_FreePtr(&bigbuffer);\r
-\r
- InitObjArray();\r
- new = player;\r
- prev = new->prev;\r
- next = new->next;\r
- if (!CA_FarRead(handle, (byte far *)new, sizeof(objtype)))\r
- {\r
- return false;\r
- }\r
- new->prev = prev;\r
- new->next = next;\r
- new->needtoreact = true;\r
- new->sprite = NULL;\r
- new = scoreobj;\r
- while (true)\r
- {\r
- prev = new->prev;\r
- next = new->next;\r
- if (!CA_FarRead(handle, (byte far *)new, sizeof(objtype)))\r
- {\r
- return false;\r
- }\r
- followed = new->next;\r
- new->prev = prev;\r
- new->next = next;\r
- new->needtoreact = true;\r
- new->sprite = NULL;\r
- if (new->obclass == stunnedobj)\r
- {\r
- new->temp3 = 0; //clear sprite ptr for the stars\r
- }\r
-#if defined KEEN4\r
- else if (new->obclass == platformobj)\r
- {\r
- new->temp2 = new->temp3 = 0; //clear sprite ptrs\r
- }\r
-#elif defined KEEN5\r
- else if (new->obclass == mineobj)\r
- {\r
- new->temp4 = 0; //clear sprite ptr\r
- }\r
- else if (new->obclass == spherefulobj)\r
- {\r
- new->temp1 = new->temp2 = new->temp3 = new->temp4 = 0; //clear sprite ptrs\r
- }\r
-#elif defined KEEN6\r
- else if (new->obclass == platformobj)\r
- {\r
- new->temp3 = 0; //clear sprite ptr\r
- }\r
-#endif\r
- if (followed)\r
- {\r
- GetNewObj(false);\r
- }\r
- else\r
- {\r
- break;\r
- }\r
- }\r
- scoreobj->temp2 = -1;\r
- scoreobj->temp1 = -1;\r
- scoreobj->temp3 = -1;\r
- scoreobj->temp4 = -1;\r
-#ifdef KEEN5\r
- gamestate.numfuses = numfuses; // put value from saved game back in place \r
-#endif\r
- return true;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= ResetGame\r
-=\r
-============================\r
-*/\r
-\r
-void ResetGame(void)\r
-{\r
- NewGame();\r
- ca_levelnum--;\r
- ca_levelbit >>= 1;\r
- CA_ClearMarks();\r
- ca_levelbit <<= 1;\r
- ca_levelnum++;\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-==========================\r
-=\r
-= PatchWorldMap\r
-=\r
-= Takes out blocking squares and spawns flags\r
-=\r
-==========================\r
-*/\r
-\r
-void PatchWorldMap(void)\r
-{\r
- Uint16 x, y, planeoff, info, level, tag;\r
- Uint16 far *infoptr;\r
-\r
- planeoff = 0;\r
- infoptr = mapsegs[2];\r
- for (y = 0; y < mapheight; y++)\r
- {\r
- for (x = 0; x < mapwidth; x++, infoptr++, planeoff++)\r
- {\r
- info = *infoptr;\r
- level = info & 0xFF;\r
- if (level >= MINDONELEVEL && level <= MAXDONELEVEL && gamestate.leveldone[level])\r
- {\r
- tag = info >> 8;\r
- *infoptr = 0; // BUG: infoplane value should only be set to 0 if tag == 0xC0\r
- if (tag == 0xD0)\r
- {\r
- mapsegs[1][planeoff] = 0;\r
- }\r
- else if (tag == 0xF0)\r
- {\r
-#ifdef KEEN5\r
- SpawnFlag(x, y);\r
-#else\r
- if (levelcompleted == level)\r
- {\r
- SpawnThrowFlag(x, y);\r
- }\r
- else\r
- {\r
- SpawnFlag(x, y);\r
- }\r
-#endif\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==========================\r
-=\r
-= DelayedFade\r
-=\r
-= Fades out and latches FadeAndUnhook onto the refresh\r
-=\r
-==========================\r
-*/\r
-\r
-void DelayedFade(void)\r
-{\r
- VW_FadeOut();\r
- fadecount = 0;\r
- RF_SetRefreshHook(&FadeAndUnhook);\r
-}\r
-\r
-/*\r
-==========================\r
-=\r
-= FadeAndUnhook\r
-=\r
-= Latch this onto the refresh so the screen only gets faded in after two\r
-= refreshes. This lets all actors draw themselves to both pages before\r
-= fading the screen in.\r
-=\r
-==========================\r
-*/\r
-\r
-void FadeAndUnhook(void)\r
-{\r
- if (++fadecount == 2)\r
- {\r
- VW_FadeIn();\r
- RF_SetRefreshHook(NULL);\r
- TimeCount = lasttimecount; // don't adaptively time the fade\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-==========================\r
-=\r
-= SetupGameLevel\r
-=\r
-= Load in map mapon and cache everything needed for it\r
-=\r
-==========================\r
-*/\r
-\r
-void SetupGameLevel(boolean loadnow)\r
-{\r
-//\r
-// randomize if not a demo\r
-//\r
- if (DemoMode)\r
- {\r
- US_InitRndT(false);\r
- gamestate.difficulty = gd_Normal;\r
- }\r
- else\r
- {\r
- US_InitRndT(true);\r
- }\r
-\r
-//\r
-// load the level header and three map planes\r
-//\r
- CA_CacheMap(gamestate.mapon);\r
-\r
-//\r
-// let the refresh manager set up some variables\r
-//\r
- RF_NewMap();\r
-\r
-//\r
-// decide which graphics are needed and spawn actors\r
-//\r
- CA_ClearMarks();\r
- ScanInfoPlane();\r
- if (mapon == 0)\r
- {\r
- PatchWorldMap();\r
- }\r
- RF_MarkTileGraphics();\r
-\r
-//\r
-// have the caching manager load and purge stuff to make sure all marks\r
-// are in memory\r
-//\r
- MM_BombOnError(false);\r
- CA_LoadAllSounds();\r
- if (loadnow)\r
- {\r
- if (scorescreenkludge)\r
- {\r
- CA_CacheMarks(NULL);\r
- }\r
- else if (DemoMode)\r
- {\r
- CA_CacheMarks("DEMO");\r
- }\r
-#ifdef KEEN5\r
- else if (mapon == 0 && player->tiletop > 100)\r
- {\r
- CA_CacheMarks("Keen steps out\nonto Korath III");\r
- }\r
-#endif\r
- else\r
- {\r
- _fstrcpy(str, levelenter[mapon]);\r
- CA_CacheMarks(str);\r
- }\r
- }\r
- MM_BombOnError(true);\r
-\r
- if (!mmerror && loadnow)\r
- {\r
- DelayedFade();\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-==========================\r
-=\r
-= DialogDraw\r
-=\r
-==========================\r
-*/\r
-\r
-void DialogDraw(char *title, Uint16 numcache)\r
-{\r
- Sint16 i;\r
- Uint16 width, height;\r
- Sint32 totalfree;\r
-\r
- totalfree = MM_TotalFree();\r
- if (totalfree < 2048)\r
- {\r
- handpic = 5;\r
- }\r
- else\r
- {\r
- handpic = 0;\r
- for (i = 0; i < 6; i++)\r
- {\r
- CA_CacheGrChunk(i+KEENCOUNT1PIC);\r
- CA_UnmarkGrChunk(i+KEENCOUNT1PIC);\r
- if (grsegs[i+KEENCOUNT1PIC])\r
- {\r
- MM_SetPurge(&grsegs[i+KEENCOUNT1PIC], PURGE_FIRST);\r
- }\r
- else\r
- {\r
- mmerror = false;\r
- handpic = 5;\r
- break;\r
- }\r
- }\r
- }\r
- US_CenterWindow(26, 8);\r
- if (grsegs[KEENCOUNT1PIC])\r
- {\r
- VWB_DrawPic(WindowX, WindowY, KEENCOUNT1PIC);\r
- }\r
- else\r
- {\r
- handpic = 5;\r
- }\r
- CA_UnmarkGrChunk(KEENCOUNT1PIC); //redundant\r
- WindowW -= 48;\r
- WindowX += 48;\r
- SizeText(title, &width, &height);\r
- PrintY += (WindowH-height)/2 - 4;\r
- US_CPrint(title);\r
- VW_UpdateScreen();\r
- chunkmax = chunkcount = numcache / 6;\r
- if (!chunkmax && !handpic)\r
- {\r
- handpic = 5;\r
- if (grsegs[KEENCOUNT6PIC])\r
- VWB_DrawPic(WindowX-24, WindowY+40, KEENCOUNT6PIC);\r
- VW_UpdateScreen();\r
- }\r
-}\r
-\r
-/*\r
-==========================\r
-=\r
-= DialogUpdate\r
-=\r
-==========================\r
-*/\r
-\r
-void DialogUpdate(void)\r
-{\r
- if (--chunkcount || handpic > 4)\r
- return;\r
-\r
- chunkcount = chunkmax;\r
- if (grsegs[handpic+KEENCOUNT2PIC])\r
- {\r
- VWB_DrawPic(WindowX-24, WindowY+40, handpic+KEENCOUNT2PIC);\r
- }\r
- VW_UpdateScreen();\r
- handpic++;\r
-}\r
-\r
-/*\r
-==========================\r
-=\r
-= DialogFinish\r
-=\r
-==========================\r
-*/\r
-\r
-void DialogFinish(void)\r
-{\r
- //this is empty\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-==================\r
-=\r
-= StartDemoRecord\r
-=\r
-==================\r
-*/\r
-\r
-void StartDemoRecord(void)\r
-{\r
- Sint16 level;\r
- boolean esc;\r
-\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(30, 3);\r
- PrintY += 6;\r
- US_Print(" Record a demo from level(0-21):");\r
- VW_UpdateScreen();\r
- esc = !US_LineInput(px, py, str, NULL, true, 2, 0);\r
- if (!esc)\r
- {\r
- level = atoi(str);\r
- if (level >= 0 && level <= 21)\r
- {\r
- gamestate.mapon = level;\r
- playstate = ex_warped;\r
- IN_StartDemoRecord(0x1000);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-==================\r
-=\r
-= EndDemoRecord\r
-=\r
-==================\r
-*/\r
-\r
-void EndDemoRecord(void)\r
-{\r
- Sint16 handle;\r
- boolean esc;\r
- char filename[] = "DEMO?."EXTENSION;\r
-\r
- IN_StopDemo();\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(22, 3);\r
- PrintY += 6;\r
- US_Print(" Save as demo #(0-9):");\r
- VW_UpdateScreen();\r
- esc = !US_LineInput(px, py, str, NULL, true, 2, 0);\r
- if (!esc && str[0] >= '0' && str[0] <= '9')\r
- {\r
- filename[4] = str[0];\r
- handle = open(filename, O_BINARY|O_WRONLY|O_CREAT, S_IFREG|S_IREAD|S_IWRITE);\r
- if (handle == -1)\r
- {\r
- Quit("EndDemoRecord: Cannot write demo file!");\r
- }\r
- write(handle, &mapon, sizeof(mapon));\r
- write(handle, &DemoOffset, sizeof(DemoOffset));\r
- CA_FarWrite(handle, DemoBuffer, DemoOffset);\r
- close(handle);\r
- }\r
- IN_FreeDemoBuffer();\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-==========================\r
-=\r
-= HandleDeath\r
-=\r
-==========================\r
-*/\r
-\r
-void HandleDeath(void)\r
-{\r
- Uint16 y, color, top, bottom, selection, w, h;\r
-\r
- _fstrcpy(str, levelnames[mapon]);\r
- SizeText(str, &w, &h);\r
-\r
- memset(gamestate.keys, 0, sizeof(gamestate.keys));\r
- gamestate.lives--;\r
- if (gamestate.lives >= 0)\r
- {\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(20, 8);\r
- PrintY += 3;\r
- US_CPrint("You didn't make it past");\r
- top = PrintY+22;\r
- if (h < 15)\r
- PrintY += 4;\r
- US_CPrint(str);\r
- PrintY = top+2;\r
- US_CPrint("Try Again");\r
- PrintY += 4;\r
- bottom = PrintY-2;\r
- US_CPrint("Exit to "WORLDMAPNAME);\r
-\r
- IN_ClearKeysDown();\r
- selection = 0;\r
- while (true)\r
- {\r
- if (selection)\r
- {\r
- y = bottom;\r
- }\r
- else\r
- {\r
- y = top;\r
- }\r
-\r
-// draw select bar\r
- if ((TimeCount / 16) & 1)\r
- {\r
- color = SECONDCOLOR;\r
- }\r
- else\r
- {\r
- color = FIRSTCOLOR;\r
- }\r
- VWB_Hlin(WindowX+4, WindowX+WindowW-4, y, color);\r
- VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+1, color);\r
- VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+12, color);\r
- VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+13, color);\r
- VWB_Vlin(y+1, y+11, WindowX+4, color);\r
- VWB_Vlin(y+1, y+11, WindowX+5, color);\r
- VWB_Vlin(y+1, y+11, WindowX+WindowW-4, color);\r
- VWB_Vlin(y+1, y+11, WindowX+WindowW-5, color);\r
-\r
- VW_UpdateScreen();\r
-\r
-// erase select bar\r
- VWB_Hlin(WindowX+4, WindowX+WindowW-4, y, WHITE);\r
- VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+1, WHITE);\r
- VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+12, WHITE);\r
- VWB_Hlin(WindowX+4, WindowX+WindowW-4, y+13, WHITE);\r
- VWB_Vlin(y+1, y+11, WindowX+4, WHITE);\r
- VWB_Vlin(y+1, y+11, WindowX+5, WHITE);\r
- VWB_Vlin(y+1, y+11, WindowX+WindowW-4, WHITE);\r
- VWB_Vlin(y+1, y+11, WindowX+WindowW-5, WHITE);\r
-\r
- if (LastScan == sc_Escape)\r
- {\r
- gamestate.mapon = 0; // exit to world map\r
- IN_ClearKeysDown();\r
- return;\r
- }\r
-\r
- IN_ReadControl(0, &c);\r
- if (c.button0 || c.button1 || LastScan == sc_Return || LastScan == sc_Space)\r
- {\r
- if (selection)\r
- gamestate.mapon = 0; // exit to world map\r
- return;\r
- }\r
- if (c.yaxis == -1 || LastScan == sc_UpArrow)\r
- {\r
- selection = 0;\r
- }\r
- else if (c.yaxis == 1 || LastScan == sc_DownArrow)\r
- {\r
- selection = 1;\r
- }\r
- }\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= GameLoop\r
-=\r
-= A game has just started (after the cinematic or load game)\r
-=\r
-============================\r
-*/\r
-\r
-void GameLoop(void)\r
-{\r
- Uint16 temp;\r
-#ifdef KEEN6\r
- Uint16 i;\r
-#endif\r
-\r
-#ifdef KEEN6\r
- if (!storedemo)\r
- {\r
- if (!US_ManualCheck())\r
- {\r
- loadedgame = false;\r
- restartgame = gd_Continue;\r
- return;\r
- }\r
- }\r
-#endif\r
-\r
- if (playstate == ex_loadedgame)\r
- {\r
- goto loaded;\r
- }\r
-reset:\r
- gamestate.difficulty = restartgame;\r
- restartgame = gd_Continue;\r
- do\r
- {\r
-startlevel:\r
- SetupGameLevel(true);\r
- if (mmerror)\r
- {\r
- if (gamestate.mapon != 0)\r
- {\r
- mmerror = false;\r
- US_CenterWindow(20, 8);\r
- PrintY += 20;\r
- US_CPrint("Insufficient memory\nto load level!");\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- gamestate.mapon = 0; // exit to world map\r
- SetupGameLevel(true);\r
- }\r
- if (mmerror)\r
- {\r
- Quit("GameLoop: Insufficient memory to load world map!");\r
- }\r
- }\r
-loaded:\r
- keenkilled = false;\r
- SD_WaitSoundDone();\r
-\r
- PlayLoop();\r
-\r
- if (playstate != ex_loadedgame)\r
- {\r
- memset(gamestate.keys, 0, sizeof(gamestate.keys));\r
-#ifdef KEEN5\r
- gamestate.keycard = false;\r
-#endif\r
- }\r
- VW_FixRefreshBuffer();\r
-\r
- if (tedlevel)\r
- {\r
- if (playstate == ex_loadedgame)\r
- {\r
- goto loaded;\r
- }\r
- else if (playstate == ex_died)\r
- {\r
- goto startlevel;\r
- }\r
- else\r
- {\r
- TEDDeath();\r
- }\r
- }\r
-\r
- levelcompleted = -1;\r
- switch (playstate)\r
- {\r
- case ex_resetgame:\r
- goto reset;\r
-\r
- case ex_loadedgame:\r
- goto loaded;\r
-\r
- case ex_died:\r
- HandleDeath();\r
- break;\r
-\r
-#if defined KEEN4\r
- case ex_rescued:\r
- if (mapon != 0)\r
- {\r
- SD_PlaySound(SND_LEVELDONE);\r
- }\r
- levelcompleted = mapon;\r
- gamestate.leveldone[mapon] = true;\r
- RescuedMember();\r
- if (gamestate.rescued != 8)\r
- {\r
- gamestate.mapon = 0;\r
- }\r
- else\r
- {\r
- FreeGraphics();\r
- RF_FixOfs();\r
- VW_FixRefreshBuffer();\r
- FinaleLayout();\r
- CheckHighScore(gamestate.score, gamestate.rescued);\r
- return;\r
- }\r
- break;\r
-\r
-#elif defined KEEN5\r
- case ex_fusebroke:\r
- SD_PlaySound(SND_LEVELDONE);\r
- levelcompleted = mapon;\r
- gamestate.leveldone[mapon] = ex_fusebroke;\r
- FinishedFuse();\r
- gamestate.mapon = 0;\r
- break;\r
-\r
- case ex_qedbroke:\r
- FreeGraphics();\r
- RF_FixOfs();\r
- VW_FixRefreshBuffer();\r
- FinaleLayout();\r
- CheckHighScore(gamestate.score, 0);\r
- return;\r
-\r
-#elif defined KEEN6\r
- case ex_hook:\r
- GotHook();\r
- goto completed;\r
-\r
- case ex_sandwich:\r
- GotSandwich();\r
- goto completed;\r
-\r
- case ex_card:\r
- GotPasscard();\r
- goto completed;\r
-\r
- case ex_molly:\r
- FreeGraphics();\r
- RF_FixOfs();\r
- VW_FixRefreshBuffer();\r
- FinaleLayout();\r
- goto check_score;\r
-\r
-#endif\r
- case ex_completed:\r
- case ex_foot:\r
- case ex_portout:\r
-completed:\r
- if (mapon != 0)\r
- {\r
- SD_PlaySound(SND_LEVELDONE);\r
- gamestate.mapon = 0;\r
- levelcompleted = mapon;\r
- gamestate.leveldone[mapon] = true;\r
- if (storedemo && mapon == 2)\r
- {\r
- IN_ClearKeysDown();\r
- return;\r
- }\r
- }\r
- else\r
- {\r
-#if GRMODE != CGAGR\r
- temp = bufferofs;\r
- bufferofs = displayofs;\r
-#endif\r
- US_CenterWindow(26, 8);\r
- PrintY += 25;\r
- US_CPrint("One moment");\r
-#if GRMODE == CGAGR\r
- VW_UpdateScreen();\r
-#else\r
- bufferofs = temp;\r
-#endif\r
- }\r
- break;\r
-\r
- case ex_abortgame:\r
- IN_ClearKeysDown();\r
- return;\r
- }\r
- } while (gamestate.lives >= 0);\r
-\r
- GameOver();\r
-\r
-check_score:\r
-#if defined KEEN4\r
- CheckHighScore(gamestate.score, gamestate.rescued);\r
-#else\r
- temp = 0;\r
-#if defined KEEN6\r
- for (i = 0; i < GAMELEVELS; i++)\r
- {\r
- if (gamestate.leveldone[i])\r
- temp++;\r
- }\r
-#endif\r
- CheckHighScore(gamestate.score, temp);\r
-#endif\r
-}
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-CK_KEEN.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- Keen (regular levels)\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-Sint16 singlegravity; // left over from Keen Dreams, not used in Keen 4-6\r
-\r
-Uint16 bounceangle [8][8] =\r
-{\r
- { 0, 0, 0, 0, 0, 0, 0, 0},\r
- { 7, 6, 5, 4, 3, 2, 1, 0},\r
- { 5, 4, 3, 2, 1, 0, 15, 14},\r
- { 5, 4, 3, 2, 1, 0, 15, 14},\r
- { 3, 2, 1, 0, 15, 14, 13, 12},\r
- { 9, 8, 7, 6, 5, 4, 3, 2},\r
- { 9, 8, 7, 6, 5, 4, 3, 2},\r
- {11, 10, 9, 8, 7, 6, 5, 4}\r
-};\r
-\r
-#ifndef KEEN4\r
-arrowdirtype arrowflip[] = {arrow_South, arrow_West, arrow_North, arrow_East, arrow_SouthWest, arrow_NorthWest, arrow_NorthEast, arrow_SouthEast};\r
-#endif\r
-\r
-statetype s_keenstand = {KEENSTANDLSPR, KEENSTANDRSPR, stepthink, false, true, 4, 0, 32, KeenPauseThink, KeenContact, KeenStandReact, &s_keenstand};\r
-\r
-#ifdef KEEN5\r
-statetype s_keenride = {KEENONPLATSPR, KEENONPLATSPR, stepthink, false, true, 4, 0, 32, KeenStandThink, KeenContact, KeenStandReact, &s_keenride};\r
-#endif\r
-\r
-statetype s_keenpauselook = {KEENLOOKUSPR, KEENLOOKUSPR, stepthink, false, true, 60, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenstand};\r
-\r
-statetype s_keenwait1 = {KEENWAITR2SPR, KEENWAITR2SPR, stepthink, false, true, 90, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait2};\r
-statetype s_keenwait2 = {KEENWAITR1SPR, KEENWAITR1SPR, stepthink, false, true, 10, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait3};\r
-statetype s_keenwait3 = {KEENWAITR2SPR, KEENWAITR2SPR, stepthink, false, true, 90, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait4};\r
-statetype s_keenwait4 = {KEENWAITR1SPR, KEENWAITR1SPR, stepthink, false, true, 10, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait5};\r
-statetype s_keenwait5 = {KEENWAITR2SPR, KEENWAITR2SPR, stepthink, false, true, 90, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenwait6};\r
-statetype s_keenwait6 = {KEENWAITR3SPR, KEENWAITR3SPR, stepthink, false, true, 70, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenstand};\r
-\r
-#ifdef KEEN4\r
-statetype s_keenmoon1 = {KEENMOON1SPR, KEENMOON1SPR, stepthink, false, true, 20, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenmoon2};\r
-statetype s_keenmoon2 = {KEENMOON2SPR, KEENMOON2SPR, stepthink, false, true, 90, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenmoon3};\r
-statetype s_keenmoon3 = {KEENMOON1SPR, KEENMOON1SPR, stepthink, false, true, 20, 0, 0, KeenPauseThink, KeenContact, KeenStandReact, &s_keenstand};\r
-#endif\r
-\r
-statetype s_keenread = {KEENSITREAD1SPR, KEENSITREAD1SPR, step, false, true, 16, 0, 0, 0, KeenContact, KeenStandReact, &s_keenread2};\r
-statetype s_keenread2 = {KEENSITREAD2SPR, KEENSITREAD2SPR, step, false, true, 16, 0, 0, 0, KeenContact, KeenStandReact, &s_keenread3};\r
-statetype s_keenread3 = {KEENSITREAD3SPR, KEENSITREAD3SPR, step, false, true, 16, 0, 0, 0, KeenContact, KeenStandReact, &s_keenread4};\r
-statetype s_keenread4 = {KEENSITREAD4SPR, KEENSITREAD4SPR, step, false, true, 16, 0, 0, 0, KeenContact, KeenStandReact, &s_keenread5};\r
-statetype s_keenread5 = {KEENREAD1SPR, KEENREAD1SPR, stepthink, false, true, 300, 0, 0, KeenReadThink, KeenContact, KeenStandReact, &s_keenread6};\r
-statetype s_keenread6 = {KEENREAD2SPR, KEENREAD2SPR, stepthink, false, true, 16, 0, 0, KeenReadThink, KeenContact, KeenStandReact, &s_keenread7};\r
-statetype s_keenread7 = {KEENREAD3SPR, KEENREAD3SPR, stepthink, false, true, 16, 0, 0, KeenReadThink, KeenContact, KeenStandReact, &s_keenread5};\r
-statetype s_keenstopread = {KEENSTOPREAD1SPR, KEENSTOPREAD1SPR, step, false, true, 12, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstopread2};\r
-statetype s_keenstopread2 = {KEENSTOPREAD2SPR, KEENSTOPREAD2SPR, step, false, true, 12, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstopread3};\r
-statetype s_keenstopread3 = {KEENSITREAD2SPR, KEENSITREAD2SPR, step, false, true, 12, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstand};\r
-\r
-statetype s_keenlookup = {KEENLOOKUSPR, KEENLOOKUSPR, stepthink, false, true, 30, 0, 0, KeenLookUpThink, KeenContact, KeenStandReact, &s_keenlookup2};\r
-statetype s_keenlookup2 = {KEENLOOKUSPR, KEENLOOKUSPR, think, false, true, 0, 0, 0, KeenLookUpThink, KeenPosContact, KeenStandReact, NULL};\r
-\r
-statetype s_keenlookdown = {KEENLOOKD1SPR, KEENLOOKD1SPR, stepthink, false, true, 6, 0, 0, KeenLookDownThink, KeenContact, KeenStandReact, &s_keenlookdown2};\r
-statetype s_keenlookdown2 = {KEENLOOKD2SPR, KEENLOOKD2SPR, stepthink, false, true, 24, 0, 0, KeenLookDownThink, KeenPosContact, KeenStandReact, &s_keenlookdown3};\r
-statetype s_keenlookdown3 = {KEENLOOKD2SPR, KEENLOOKD2SPR, think, false, true, 0, 0, 0, KeenLookDownThink, KeenPosContact, KeenStandReact, NULL};\r
-statetype s_keenlookdown4 = {KEENLOOKD1SPR, KEENLOOKD1SPR, step, false, true, 6, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstand};\r
-\r
-statetype s_keendrop = {KEENLOOKD1SPR, KEENLOOKD1SPR, step, false, false, 0, 0, 0, KeenDropDownThink, KeenContact, KeenSimpleReact, &s_keenjump3};\r
-statetype s_keendead = {-1, -1, think, false, false, 10, 0, 0, 0, 0, R_Draw, NULL};\r
-\r
-statetype s_keendie1 = {KEENDIE1SPR, KEENDIE1SPR, think, false, false, 100, 0, 0, KeenDieThink, 0, R_Draw, &s_keendie1};\r
-statetype s_keendie2 = {KEENDIE2SPR, KEENDIE2SPR, think, false, false, 100, 0, 0, KeenDieThink, 0, R_Draw, &s_keendie2};\r
-\r
-#ifdef KEEN4\r
-statetype s_keensuitdie1 = {SCUBAKEENDEAD1SPR, SCUBAKEENDEAD1SPR, think, false, false, 100, 0, 0, KeenDieThink, NULL, R_Draw, &s_keensuitdie1};\r
-statetype s_keensuitdie2 = {SCUBAKEENDEAD2SPR, SCUBAKEENDEAD2SPR, think, false, false, 100, 0, 0, KeenDieThink, NULL, R_Draw, &s_keensuitdie2};\r
-#endif\r
-\r
-statetype s_keenshoot1 = {KEENSHOOTLSPR, KEENSHOOTRSPR, step, false, true, 9, 0, 0, KeenShootThink, KeenContact, KeenStandReact, &s_keenshoot2};\r
-statetype s_keenshoot2 = {KEENSHOOTLSPR, KEENSHOOTRSPR, step, false, true, 6, 0, 0, 0, KeenContact, KeenStandReact, &s_keenstand};\r
-\r
-statetype s_keenshootup1 = {KEENSHOOTUSPR, KEENSHOOTUSPR, step, false, true, 9, 0, 0, KeenShootThink, KeenContact, KeenStandReact, &s_keenshootup2};\r
-statetype s_keenshootup2 = {KEENSHOOTUSPR, KEENSHOOTUSPR, step, false, true, 6, 0, 0, 0, KeenContact, KeenStandReact, &s_keenlookup};\r
-\r
-statetype s_keenswitch = {KEENENTER1SPR, KEENENTER1SPR, step, false, true, 8, 0, 0, KeenSwitchThink, NULL, KeenStandReact, &s_keenswitch2};\r
-statetype s_keenswitch2 = {KEENENTER1SPR, KEENENTER1SPR, step, false, true, 8, 0, 0, 0, 0, KeenStandReact, &s_keenstand};\r
-statetype s_keenkey = {KEENENTER1SPR, KEENENTER1SPR, step, false, true, 6, 0, 0, KeenKeyThink, NULL, KeenStandReact, &s_keenswitch2};\r
-\r
-statetype s_keenlineup = {KEENENTER1SPR, KEENENTER1SPR, think, false, false, 0, 0, 0, T_LineUp, 0, R_Draw, NULL};\r
-#ifdef KEEN5\r
-statetype s_keenenter0 = {KEENENTER1SPR, KEENENTER1SPR, step, false, false, 45, 0, -64, NULL, NULL, R_Draw, &s_keenenter1};\r
-statetype s_keenteleport = {KEENWAITR2SPR, KEENWAITR2SPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, NULL};\r
-#endif\r
-\r
-statetype s_keenenter1 = {KEENENTER1SPR, KEENENTER1SPR, step, false, false, 9, 0, -64, WalkSound1, NULL, R_Draw, &s_keenenter2};\r
-statetype s_keenenter2 = {KEENENTER2SPR, KEENENTER2SPR, step, false, false, 9, 0, -64, WalkSound2, NULL, R_Draw, &s_keenenter3};\r
-statetype s_keenenter3 = {KEENENTER3SPR, KEENENTER3SPR, step, false, false, 9, 0, -64, WalkSound1, NULL, R_Draw, &s_keenenter4};\r
-statetype s_keenenter4 = {KEENENTER4SPR, KEENENTER4SPR, step, false, false, 9, 0, -64, WalkSound2, NULL, R_Draw, &s_keenenter5};\r
-statetype s_keenenter5 = {KEENENTER5SPR, KEENENTER5SPR, step, false, false, 9, 0, -64, KeenEnterThink, NULL, R_Draw, &s_keenstand};\r
-#ifdef KEEN5\r
-statetype s_keenenter6 = {-1, -1, step, false, false, 9, 0, -64, KeenEnterThink, 0, R_Draw, &s_keenstand};\r
-#endif\r
-\r
-statetype s_keenpole = {KEENSHINNYL1SPR, KEENSHINNYR1SPR, think, false, false, 0, 0, 0, KeenPoleThink, KeenPosContact, KeenSimpleReact, &s_keenpole};\r
-\r
-statetype s_keenclimb1 = {KEENSHINNYL1SPR, KEENSHINNYR1SPR, slidethink, false, false, 8, 0, 8, KeenClimbThink, KeenPosContact, KeenSimpleReact, &s_keenclimb2};\r
-statetype s_keenclimb2 = {KEENSHINNYL2SPR, KEENSHINNYR2SPR, slidethink, false, false, 8, 0, 8, KeenClimbThink, KeenPosContact, KeenSimpleReact, &s_keenclimb3};\r
-statetype s_keenclimb3 = {KEENSHINNYL3SPR, KEENSHINNYR3SPR, slidethink, false, false, 8, 0, 8, KeenClimbThink, KeenPosContact, KeenSimpleReact, &s_keenclimb1};\r
-\r
-statetype s_keenslide1 = {KEENSLIDED1SPR, KEENSLIDED1SPR, slide, false, false, 8, 0, 24, KeenDropThink, KeenPosContact, KeenPoleReact, &s_keenslide2};\r
-statetype s_keenslide2 = {KEENSLIDED2SPR, KEENSLIDED2SPR, slide, false, false, 8, 0, 24, KeenDropThink, KeenPosContact, KeenPoleReact, &s_keenslide3};\r
-statetype s_keenslide3 = {KEENSLIDED3SPR, KEENSLIDED3SPR, slide, false, false, 8, 0, 24, KeenDropThink, KeenPosContact, KeenPoleReact, &s_keenslide4};\r
-statetype s_keenslide4 = {KEENSLIDED4SPR, KEENSLIDED4SPR, slide, false, false, 8, 0, 24, KeenDropThink, KeenPosContact, KeenPoleReact, &s_keenslide1};\r
-\r
-statetype s_keenpoleshoot1 = {KEENPSHOOTLSPR, KEENPSHOOTRSPR, step, false, false, 9, 0, 0, KeenShootThink, KeenPosContact, KeenSimpleReact, &s_keenpoleshoot2};\r
-statetype s_keenpoleshoot2 = {KEENPSHOOTLSPR, KEENPSHOOTRSPR, step, false, false, 6, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenpole};\r
-\r
-statetype s_keenpoleshootup1 = {KEENPLSHOOTUSPR, KEENPRSHOOTUSPR, step, false, false, 9, 0, 0, KeenShootThink, KeenPosContact, KeenSimpleReact, &s_keenpoleshootup2};\r
-statetype s_keenpoleshootup2 = {KEENPLSHOOTUSPR, KEENPRSHOOTUSPR, step, false, false, 6, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenpole};\r
-\r
-statetype s_keenpoleshootdown1 = {KEENPLSHOOTDSPR, KEENPRSHOOTDSPR, step, false, false, 9, 0, 0, KeenShootThink, KeenPosContact, KeenSimpleReact, &s_keenpoleshootdown2};\r
-statetype s_keenpoleshootdown2 = {KEENPLSHOOTDSPR, KEENPRSHOOTDSPR, step, false, false, 6, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenpole};\r
-\r
-statetype s_keenwalk1 = {KEENRUNL1SPR, KEENRUNR1SPR, slidethink, true, true, 6, 24, 0, KeenWalkThink, KeenContact, KeenWalkReact, &s_keenwalk2};\r
-statetype s_keenwalk2 = {KEENRUNL2SPR, KEENRUNR2SPR, slidethink, true, true, 6, 24, 0, KeenWalkThink, KeenContact, KeenWalkReact, &s_keenwalk3};\r
-statetype s_keenwalk3 = {KEENRUNL3SPR, KEENRUNR3SPR, slidethink, true, true, 6, 24, 0, KeenWalkThink, KeenContact, KeenWalkReact, &s_keenwalk4};\r
-statetype s_keenwalk4 = {KEENRUNL4SPR, KEENRUNR4SPR, slidethink, true, true, 6, 24, 0, KeenWalkThink, KeenContact, KeenWalkReact, &s_keenwalk1};\r
-\r
-statetype s_keenpogodown = {KEENPOGOL2SPR, KEENPOGOR2SPR, step, true, false, 1, 0, 0, KeenBounceThink, KeenContact, KeenPogoReact, &s_keenpogo};\r
-statetype s_keenpogo = {KEENPOGOL2SPR, KEENPOGOR2SPR, think, true, false, 0, 0, 0, KeenPogoThink, KeenContact, KeenPogoReact, &s_keenpogo2};\r
-statetype s_keenpogo2 = {KEENPOGOL1SPR, KEENPOGOR1SPR, think, true, false, 0, 0, 0, KeenPogoThink, KeenContact, KeenPogoReact, NULL};\r
-\r
-statetype s_keenjump1 = {KEENJUMPL1SPR, KEENJUMPR1SPR, think, false, false, 0, 0, 0, KeenAirThink, KeenContact, KeenAirReact, &s_keenjump2};\r
-statetype s_keenjump2 = {KEENJUMPL2SPR, KEENJUMPR2SPR, think, false, false, 0, 0, 0, KeenAirThink, KeenContact, KeenAirReact, &s_keenjump3};\r
-statetype s_keenjump3 = {KEENJUMPL3SPR, KEENJUMPR3SPR, stepthink, false, false, 50, 0, 0, KeenAirThink, KeenContact, KeenAirReact, &s_keenjump4};\r
-statetype s_keenjump4 = {KEENJUMPL2SPR, KEENJUMPR2SPR, stepthink, false, false, 40, 0, 0, KeenAirThink, KeenContact, KeenAirReact, &s_keenjump3};\r
-\r
-statetype s_keenairshoot1 = {KEENJLSHOOTLSPR, KEENJRSHOOTRSPR, stepthink, false, false, 9, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenairshoot2};\r
-statetype s_keenairshoot2 = {KEENJLSHOOTLSPR, KEENJRSHOOTRSPR, stepthink, true, false, 1, 0, 0, KeenShootThink, KeenContact, KeenAirReact, &s_keenairshoot3};\r
-statetype s_keenairshoot3 = {KEENJLSHOOTLSPR, KEENJRSHOOTRSPR, stepthink, false, false, 6, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenjump3};\r
-\r
-statetype s_keenairshootup1 = {KEENJSHOOTUSPR, KEENJSHOOTUSPR, stepthink, false, false, 9, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenairshootup2};\r
-statetype s_keenairshootup2 = {KEENJSHOOTUSPR, KEENJSHOOTUSPR, stepthink, true, false, 1, 0, 0, KeenShootThink, KeenContact, KeenAirReact, &s_keenairshootup3};\r
-statetype s_keenairshootup3 = {KEENJSHOOTUSPR, KEENJSHOOTUSPR, stepthink, false, false, 6, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenjump3};\r
-\r
-statetype s_keenairshootdown1 = {KEENJSHOOTDSPR, KEENJSHOOTDSPR, stepthink, false, false, 9, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenairshootdown2};\r
-statetype s_keenairshootdown2 = {KEENJSHOOTDSPR, KEENJSHOOTDSPR, stepthink, true, false, 1, 0, 0, KeenShootThink, KeenContact, KeenAirReact, &s_keenairshootdown3};\r
-statetype s_keenairshootdown3 = {KEENJSHOOTDSPR, KEENJSHOOTDSPR, stepthink, false, false, 6, 0, 0, T_Projectile, KeenContact, KeenAirReact, &s_keenjump3};\r
-\r
-statetype s_keenholdon = {KEENHANGLSPR, KEENHANGRSPR, step, false, false, 12, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenholdon2};\r
-statetype s_keenholdon2 = {KEENHANGLSPR, KEENHANGRSPR, think, false, false, 0, 0, 0, KeenHoldThink, KeenPosContact, KeenSimpleReact, NULL};\r
-\r
-statetype s_keenclimbup = {KEENCLIMBEDGEL1SPR, KEENCLIMBEDGER1SPR, step, false, false, 10, 0, 0, T_PullUp1, KeenPosContact, KeenSimpleReact, &s_keenclimbup2};\r
-statetype s_keenclimbup2 = {KEENCLIMBEDGEL2SPR, KEENCLIMBEDGER2SPR, step, false, false, 10, 0, 0, T_PullUp2, KeenPosContact, KeenSimpleReact, &s_keenclimbup3};\r
-statetype s_keenclimbup3 = {KEENCLIMBEDGEL3SPR, KEENCLIMBEDGER3SPR, step, false, false, 10, 0, 0, T_PullUp3, KeenPosContact, KeenSimpleReact, &s_keenclimbup4};\r
-statetype s_keenclimbup4 = {KEENCLIMBEDGEL4SPR, KEENCLIMBEDGER4SPR, step, false, false, 10, 0, 0, T_PulledUp, KeenPosContact, KeenSimpleReact, &s_keenclimbup5};\r
-statetype s_keenclimbup5 = {KEENSTANDLSPR, KEENSTANDRSPR, step, false, false, 6, 0, 0, 0, KeenPosContact, KeenSimpleReact, &s_keenstand};\r
-\r
-Sint16 slopespeed[8] = {0, 0, 4, 4, 8, -4, -4, -8};\r
-Sint16 polexspeed[3] = {-8, 0, 8};\r
-\r
-Sint16 shotsinclip[4] = {0, 8, 5, 5};\r
-Sint16 bonussound[] = {\r
- SND_GETKEY,SND_GETKEY,SND_GETKEY,SND_GETKEY,\r
- SND_GETPOINTS,SND_GETPOINTS,SND_GETPOINTS,\r
- SND_GETPOINTS,SND_GETPOINTS,SND_GETPOINTS,\r
- SND_EXTRAKEEN,\r
- SND_GETAMMO\r
-#ifdef KEEN5\r
- ,SND_GETKEYCARD\r
-#endif\r
-};\r
-Sint16 bonuspoints[] = {\r
- 0, 0, 0, 0,\r
- 100, 200, 500,\r
- 1000, 2000, 5000,\r
- 0,\r
- 0\r
-#ifdef KEEN5\r
- ,0\r
-#endif\r
-};\r
-Sint16 bonussprite[] = {\r
- BONUSGEMSPR, BONUSGEMSPR, BONUSGEMSPR, BONUSGEMSPR,\r
- BONUS100SPR, BONUS200SPR, BONUS500SPR,\r
- BONUS1000SPR, BONUS2000SPR, BONUS5000SPR,\r
- BONUS1UPSPR,\r
- BONUSCLIPSPR\r
-#ifdef KEEN5\r
- ,BONUSCARDSPR\r
-#endif\r
-};\r
-\r
-Uint16 zeromap = 0;\r
-\r
-// uninitialized variables:\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-Sint16 jumptime;\r
-Sint32 leavepoletime;\r
-Sint16 moonok;\r
-\r
-/*\r
-=============================================================================\r
-\r
- KEEN\r
-\r
-player->temp1 = pausetime / pointer to zees when sleeping\r
-player->temp2 = pausecount / stagecount\r
-player->temp3 =\r
-player->temp4 =\r
-\r
-=============================================================================\r
-*/\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= SpawnKeen\r
-=\r
-===============\r
-*/\r
-\r
-void SpawnKeen(Sint16 x, Sint16 y, Sint16 dir)\r
-{\r
- player->obclass = keenobj;\r
- player->active = ac_allways;\r
- player->priority = 1;\r
- player->x = CONVERT_TILE_TO_GLOBAL(x);\r
- player->y = CONVERT_TILE_TO_GLOBAL(y) - 0xF1; //TODO: weird\r
-\r
- player->xdir = dir;\r
- player->ydir = 1;\r
- NewState(player, &s_keenstand);\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CheckGrabPole\r
-=\r
-======================\r
-*/\r
-\r
-boolean CheckGrabPole(objtype *ob)\r
-{\r
- Uint16 far *map;\r
-\r
-//\r
-// kludgy bit to not let you grab a pole the instant you jump off it\r
-//\r
- if (lasttimecount < leavepoletime)\r
- {\r
- leavepoletime = 0;\r
- }\r
- else if (lasttimecount-leavepoletime < 19)\r
- {\r
- return false;\r
- }\r
-\r
- if (c.yaxis == -1)\r
- {\r
- map = mapsegs[1] + mapbwidthtable[(ob->top+6*PIXGLOBAL)/TILEGLOBAL]/2;\r
- }\r
- else\r
- {\r
- map = mapsegs[1] + mapbwidthtable[ob->tilebottom+1]/2;\r
- }\r
-\r
- map += ob->tilemidx;\r
-\r
- if ((tinf[INTILE + *map] & 0x7F) == INTILE_POLE)\r
- {\r
- ob->x = CONVERT_TILE_TO_GLOBAL(ob->tilemidx-1) + 8*PIXGLOBAL;\r
- xtry = 0;\r
- ytry = c.yaxis * 32;\r
- ob->needtoclip = cl_noclip; // can climb through pole holes\r
- ob->state = &s_keenpole;\r
- return true;\r
- }\r
- return false;\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CheckEnterHouse\r
-=\r
-= Checks for tiles that Keen can interact with by pressing up\r
-=\r
-======================\r
-*/\r
-\r
-boolean CheckEnterHouse(objtype *ob)\r
-{\r
- Uint16 temp;\r
-#ifdef KEEN5\r
- Uint16 infoval;\r
-#endif\r
- Uint16 intile, intile2;\r
-\r
- intile = tinf[INTILE + *(mapsegs[1]+mapbwidthtable[ob->tiletop]/2+ob->tilemidx)];\r
- if (intile == INTILE_SWITCH0 || intile == INTILE_SWITCH1 || intile == INTILE_BRIDGESWITCH)\r
- {\r
- temp = CONVERT_TILE_TO_GLOBAL(ob->tilemidx) - 4*PIXGLOBAL;\r
- if (ob->x != temp)\r
- {\r
- ob->temp1 = temp;\r
- ob->state = &s_keenlineup;\r
- }\r
- else\r
- {\r
- ob->state = &s_keenswitch;\r
- }\r
- upheld = true;\r
- return true;\r
- }\r
- else if (intile == INTILE_DOOR || intile == INTILE_KEYCARDDOOR)\r
- {\r
- temp = CONVERT_TILE_TO_GLOBAL(ob->tilemidx) + 6*PIXGLOBAL;\r
- intile2 = tinf[INTILE + *(mapsegs[1]+mapbwidthtable[ob->tiletop]/2+ob->tilemidx-1)];\r
- if (intile2 == 2 || intile2 == 32)\r
- temp -= TILEGLOBAL;\r
-\r
- // BUG:\r
- //\r
- // The s_keenenter? states rely on Keen's ydir being set to 1,\r
- // which may not always be the case (e.g. if Keen was pushed off\r
- // a pole by another actor in the level).\r
- // If ydir is not 1, Keen will not move up during that animation\r
- // which means the teleport coordinates won't be read from the\r
- // intended tile position and Keen might end up teleporting to\r
- // position 0, 0 in the map and thus win the current level.\r
- // \r
- // That can easily be avoided by setting ob->ydir to 1 when\r
- // changing ob->state to s_keenenter0 or s_keenenter1.\r
-\r
- if (ob->x != temp)\r
- {\r
- ob->temp1 = temp;\r
- ob->state = &s_keenlineup;\r
- }\r
-#ifdef KEEN5\r
- else if (intile == INTILE_KEYCARDDOOR)\r
- {\r
- if (gamestate.keycard)\r
- {\r
- gamestate.keycard = false;\r
- SD_PlaySound(SND_OPENCARDDOOR);\r
- GetNewObj(false);\r
- new->x = ob->tilemidx - 2;\r
- new->y = ob->tilebottom - 4;\r
- new->active = ac_allways;\r
- new->needtoclip = cl_noclip;\r
- new->obclass = inertobj;\r
- NewState(new, &s_carddoor);\r
- // Note: no invincibility here - card doors were always used as level exits in Keen 5\r
- ob->state = &s_keenenter0;\r
- ob->priority = 0;\r
- upheld = true;\r
- return true;\r
- }\r
- else\r
- {\r
- SD_PlaySound(SND_NOWAY);\r
- ob->state = &s_keenstand;\r
- upheld = true;\r
- return false;\r
- }\r
- }\r
-#endif\r
- else\r
- {\r
- invincible = 110; //about 1.57 seconds\r
- ob->state = &s_keenenter1;\r
- ob->priority = 0;\r
-#ifdef KEEN5\r
- {\r
- infoval = *(mapsegs[2]+mapbwidthtable[ob->tiletop]/2+ob->tilemidx);\r
- if (!infoval)\r
- SpawnTeleport();\r
- }\r
-#endif\r
- }\r
- upheld = true;\r
- return true;\r
- }\r
- return false;\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= WalkSound1\r
-=\r
-============================\r
-*/\r
-\r
-void WalkSound1(objtype *ob)\r
-{\r
- SD_PlaySound(SND_WORLDWALK1);\r
- ob++; // shut up compiler\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= WalkSound2\r
-=\r
-============================\r
-*/\r
-\r
-void WalkSound2(objtype *ob)\r
-{\r
- SD_PlaySound(SND_WORLDWALK2);\r
- ob++; // shut up compiler\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-============================\r
-=\r
-= KeenStandThink\r
-=\r
-============================\r
-*/\r
-\r
-void KeenStandThink(objtype *ob)\r
-{\r
-#ifdef KEEN5\r
- if (ob->hitnorth == 25 && ob->state != &s_keenride)\r
- {\r
- ob->state = &s_keenride;\r
- }\r
-#endif\r
-\r
- if (c.xaxis)\r
- {\r
- // started walking\r
- ob->state = &s_keenwalk1;\r
- KeenWalkThink(ob);\r
- xtry = (Sint16)(ob->xdir * ob->state->xmove * tics) / 4;\r
- }\r
- else if (firebutton && !fireheld)\r
- {\r
- // shoot current xdir\r
- fireheld = true;\r
- if (c.yaxis == -1)\r
- {\r
- ob->state = &s_keenshootup1;\r
- }\r
- else\r
- {\r
- ob->state = &s_keenshoot1;\r
- }\r
- }\r
- else if (jumpbutton && ! jumpheld)\r
- {\r
- // jump straight up\r
- jumpheld = true;\r
- SD_PlaySound(SND_JUMP);\r
- ob->xspeed = 0;\r
- ob->yspeed = -40;\r
- ytry = 0;\r
- jumptime = 18;\r
- ob->state = &s_keenjump1;\r
- }\r
- else if (pogobutton && !pogoheld)\r
- {\r
- // get on pogo\r
- pogoheld = true;\r
- SD_PlaySound(SND_JUMP);\r
- ob->state = &s_keenpogodown;\r
- ob->xspeed = 0;\r
- ob->yspeed = -48;\r
- ytry = 0;\r
- jumptime = 24;\r
- }\r
- else\r
- {\r
- switch (c.yaxis)\r
- {\r
- case -1:\r
- if (CheckGrabPole(ob))\r
- break;\r
- if (upheld || !CheckEnterHouse(ob))\r
- {\r
- ob->state = &s_keenlookup;\r
- }\r
- break;\r
- case 1:\r
- if (CheckGrabPole(ob))\r
- break;\r
- ob->state = &s_keenlookdown;\r
- }\r
- return;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenPauseThink\r
-=\r
-= Do special animations in time\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenPauseThink(objtype *ob)\r
-{\r
-#ifdef KEEN5\r
- if (ob->hitnorth == 25 && ob->state != &s_keenride)\r
- {\r
- ob->state = &s_keenride;\r
- }\r
-#endif\r
-\r
- if (c.dir != dir_None || jumpbutton || pogobutton || firebutton)\r
- {\r
- ob->temp1 = ob->temp2 = 0; // not paused any more\r
- ob->state = &s_keenstand;\r
- KeenStandThink(ob);\r
- }\r
- else\r
- {\r
- //only increase idle counter when NOT standing on a sprite:\r
- if ((ob->hitnorth & ~7) != 0x18)\r
- ob->temp1 = ob->temp1 + tics;\r
-\r
- switch (ob->temp2)\r
- {\r
- case 0:\r
- if (ob->temp1 > 200)\r
- {\r
- ob->temp2++;\r
- ob->state = &s_keenpauselook;\r
- ob->temp1 = 0;\r
- }\r
- break;\r
- case 1:\r
- if (ob->temp1 > 300)\r
- {\r
- ob->temp2++;\r
- ob->temp1 = 0;\r
-#ifdef KEEN4\r
- if (moonok == 1)\r
- {\r
- moonok = 2; //don't moon again unless the level is restarted\r
- ob->state = &s_keenmoon1;\r
- }\r
- else\r
-#endif\r
- {\r
- ob->state = &s_keenwait1;\r
- }\r
- }\r
- break;\r
- case 2:\r
- if (ob->temp1 > 700)\r
- {\r
- ob->temp2++;\r
- ob->state = &s_keenread;\r
- ob->temp1 = 0;\r
- }\r
- break;\r
- }\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenReadThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenReadThink(objtype *ob)\r
-{\r
- if (storedemo)\r
- {\r
- playstate = ex_abortgame;\r
- IN_ClearKeysDown();\r
- }\r
- if (c.dir != dir_None || jumpbutton || pogobutton)\r
- {\r
- ob->temp1 = ob->temp2 = 0;\r
- ob->state = &s_keenstopread;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenLookUpThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenLookUpThink(objtype *ob)\r
-{\r
- if (c.yaxis != -1 || c.xaxis\r
- || (jumpbutton && !jumpheld)\r
- || (pogobutton && !pogoheld)\r
- || firebutton)\r
- {\r
- ob->state = &s_keenstand;\r
- KeenStandThink(ob);\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenLookDownThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenLookDownThink(objtype *ob)\r
-{\r
- Uint16 far *map;\r
- Sint16 y, ymove;\r
- Uint16 tile;\r
-\r
- if (jumpbutton && ! jumpheld && (ob->hitnorth & 7) == 1)\r
- {\r
- //\r
- // drop down a level\r
- //\r
- jumpheld = true;\r
-\r
- y = ob->tilebottom;\r
- map = (Uint16 far *)mapsegs[1] + mapbwidthtable[y]/2 + ob->tilemidx;\r
- tile = *map;\r
- if (tinf[WESTWALL+tile] || tinf[EASTWALL+tile] || tinf[SOUTHWALL+tile])\r
- return; // wall prevents drop down\r
-\r
- map += mapwidth;\r
- tile = *map;\r
- if (tinf[WESTWALL+tile] || tinf[EASTWALL+tile] || tinf[SOUTHWALL+tile])\r
- return; // wall prevents drop down\r
-\r
- ymove = max(4, tics) * PIXGLOBAL;\r
- if (gamestate.riding)\r
- ymove += gamestate.riding->ymove;\r
- ob->bottom += ymove;\r
- gamestate.riding = NULL;\r
- ob->y += ymove;\r
- xtry = ytry = 0;\r
- ob->state = &s_keenjump3;\r
- ob->xspeed = ob->yspeed = 0;\r
- SD_PlaySound(SND_PLUMMET);\r
- }\r
- else if (c.yaxis != 1 || c.xaxis\r
- || (jumpbutton && !jumpheld)\r
- || (pogobutton && !pogoheld))\r
- {\r
- ob->state = &s_keenlookdown4;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenWalkThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenWalkThink(objtype *ob)\r
-{\r
- Sint16 xmove;\r
-\r
- if (c.xaxis == 0)\r
- {\r
- //\r
- // stopped running\r
- //\r
- ob->state = &s_keenstand;\r
- KeenStandThink(ob);\r
- return;\r
- }\r
-\r
- ob->xdir = c.xaxis;\r
-\r
- switch (c.yaxis)\r
- {\r
- case -1:\r
- if (CheckGrabPole(ob))\r
- return;\r
- if (upheld)\r
- return;\r
- if (!CheckEnterHouse(ob))\r
- break;;\r
- return;\r
-\r
- case 1:\r
- if (!CheckGrabPole(ob))\r
- break;\r
- return;\r
- }\r
-\r
- if (firebutton && !fireheld)\r
- {\r
- //\r
- // shoot\r
- //\r
- fireheld = true;\r
- if (c.yaxis == -1)\r
- {\r
- ob->state = &s_keenshootup1;\r
- }\r
- else\r
- {\r
- ob->state = &s_keenshoot1;\r
- }\r
- return;\r
- }\r
-\r
- if (jumpbutton && !jumpheld)\r
- {\r
- //\r
- // running jump\r
- //\r
- jumpheld = true;\r
- SD_PlaySound(SND_JUMP);\r
- ob->xspeed = ob->xdir * 16;\r
- ob->yspeed = -40;\r
- xtry = ytry = 0;\r
- jumptime = 18;\r
- ob->state = &s_keenjump1;\r
- }\r
-\r
- if (pogobutton && !pogoheld)\r
- {\r
- //\r
- // get on pogo\r
- //\r
- pogoheld = true;\r
- ob->state = &s_keenpogodown;\r
- SD_PlaySound(SND_JUMP);\r
- ob->xspeed = ob->xdir * 16;\r
- ob->yspeed = -48;\r
- xtry = 0;\r
- jumptime = 24;\r
- return;\r
- }\r
-\r
- //\r
- // give speed for slopes\r
- //\r
- xmove = slopespeed[ob->hitnorth & 7] * tics;\r
- xtry += xmove;\r
-\r
- //\r
- // handle walking sounds\r
- //\r
- if (ob->state == &s_keenwalk1 && ob->temp3 == 0)\r
- {\r
- SD_PlaySound(SND_WORLDWALK1);\r
- ob->temp3 = 1;\r
- }\r
- else if (ob->state == &s_keenwalk3 && ob->temp3 == 0)\r
- {\r
- SD_PlaySound(SND_WORLDWALK2);\r
- ob->temp3 = 1;\r
- }\r
- else if (ob->state == &s_keenwalk2 ||ob->state == &s_keenwalk4)\r
- {\r
- ob->temp3 = 0;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= T_LineUp\r
-=\r
-= Lines up Keen's position for interacting with tiles (temp1 is desired x)\r
-=\r
-=======================\r
-*/\r
-\r
-void T_LineUp(objtype *ob)\r
-{\r
- Sint16 xmove;\r
-\r
- xmove = ob->temp1 - ob->x;\r
- if (xmove < 0)\r
- {\r
- xtry = xtry - tics * 16;\r
- if (xtry > xmove)\r
- return;\r
- }\r
- else if (xmove > 0)\r
- {\r
- xtry = xtry + tics * 16;\r
- if (xtry < xmove)\r
- return;\r
- }\r
- xtry = xmove;\r
- ob->temp1 = 0;\r
- if (!CheckEnterHouse(ob))\r
- ob->state = &s_keenstand;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenEnterThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenEnterThink(objtype *ob)\r
-{\r
- Uint16 info;\r
- Uint16 far *map;\r
-\r
- map = mapsegs[2] + mapbwidthtable[ob->tilebottom]/2 + ob->tileleft;\r
- info = *map;\r
-#ifdef KEEN5\r
- if (!info)\r
- {\r
- playstate = ex_portout;\r
- ob->state = &s_keenenter6;\r
- return;\r
- }\r
- else if (info == 0xB1B1)\r
- {\r
- playstate = ex_completed;\r
- ob->state = &s_keenenter6;\r
- return;\r
- }\r
-#endif\r
- ob->y = (CONVERT_TILE_TO_GLOBAL(info & 0xFF) - TILEGLOBAL) + 15;\r
- ob->x = CONVERT_TILE_TO_GLOBAL(info >> 8);\r
- ob->priority = 1;\r
- ob->needtoclip = cl_noclip;\r
- ChangeState(ob, ob->state->nextstate);\r
- ob->needtoclip = cl_midclip;\r
- CenterActor(ob);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenSwitchThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenSwitchThink(objtype *ob)\r
-{\r
- Uint16 intile, maptile, newtile, info, sx, sy, tileoff;\r
- Uint16 far *map;\r
- Uint16 tile, x, y;\r
- Sint8 manim;\r
-\r
- tileoff = mapbwidthtable[ob->tiletop]/2 + ob->tilemidx;\r
- maptile = mapsegs[1][tileoff];\r
- newtile = maptile + (Sint8)tinf[MANIM + maptile];\r
- info = mapsegs[2][tileoff];\r
- sx = info >> 8;\r
- sy = info & 0xFF;\r
- intile = tinf[INTILE + maptile];\r
-\r
- RF_MemToMap(&newtile, 1, ob->tilemidx, ob->tiletop, 1, 1);\r
- SD_PlaySound(SND_USESWITCH);\r
- if (intile == INTILE_BRIDGESWITCH)\r
- {\r
- //toggle bridge:\r
- for (y = sy; sy+2 > y; y++)\r
- {\r
- map = mapsegs[1] + mapbwidthtable[y]/2 + sx - (y != sy);\r
- for (x = sx - (y != sy); x < mapwidth; x++)\r
- {\r
- tile = *(map++);\r
- manim = tinf[MANIM + tile];\r
- if (!manim)\r
- break;\r
-\r
- tile += manim;\r
- RF_MemToMap(&tile, 1, x, y, 1, 1);\r
- }\r
- }\r
- }\r
- else\r
- {\r
- //toggle platform blocker:\r
- map = mapsegs[2] + mapbwidthtable[sy]/2 + sx;\r
- tile = *map;\r
-#ifdef KEEN5\r
- if (tile >= DIRARROWSTART && tile < DIRARROWEND)\r
- {\r
- *map = arrowflip[tile-DIRARROWSTART]+DIRARROWSTART;\r
- return;\r
- }\r
-#endif\r
- *map = tile ^ PLATFORMBLOCK;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenKeyThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenKeyThink(objtype *ob)\r
-{\r
- Uint16 newtile, info, x, y, tileoff;\r
- Uint16 far *map;\r
- Uint16 tile, h;\r
-\r
- tileoff = mapbwidthtable[ob->tilebottom]/2 + ob->tilemidx;\r
- newtile = mapsegs[1][tileoff] + 18;\r
- info = mapsegs[2][tileoff];\r
- x = info >> 8;\r
- y = info & 0xFF;\r
- RF_MemToMap(&newtile, 1, ob->tilemidx, ob->tilebottom, 1, 1);\r
- SD_PlaySound(SND_OPENDOOR);\r
- GetNewObj(false);\r
- new->x = x;\r
- new->y = y;\r
-\r
- if (x > mapwidth || x < 2 || y > mapheight || y < 2)\r
- Quit("Keyholder points to a bad spot!");\r
-\r
- map = mapsegs[1] + mapbwidthtable[y]/2 + x;\r
- tile = *map;\r
- h = 1;\r
- map += mapwidth;\r
- while (*map == tile)\r
- {\r
- h++;\r
- map += mapwidth;\r
- }\r
- new->temp1 = h;\r
- new->active = ac_allways;\r
- new->needtoclip = cl_noclip;\r
- new->obclass = inertobj;\r
- NewState(new, &s_door1);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenAirThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenAirThink(objtype *ob)\r
-{\r
- if (jumpcheat && jumpbutton)\r
- {\r
- ob->yspeed = -40;\r
- jumptime = 18;\r
- jumpheld = true;\r
- }\r
- if (jumptime)\r
- {\r
- if (jumptime <= tics)\r
- {\r
- ytry = ob->yspeed * jumptime;\r
- jumptime = 0;\r
- }\r
- else\r
- {\r
- ytry = ob->yspeed * tics;\r
- if (!jumpcheat)\r
- jumptime = jumptime - tics;\r
- }\r
- if (!jumpbutton)\r
- jumptime = 0;\r
-\r
- if (jumptime == 0 && ob->state->nextstate)\r
- ob->state = ob->state->nextstate; // switch to second jump stage\r
- }\r
- else\r
- {\r
- if (gamestate.difficulty == gd_Easy)\r
- {\r
- DoWeakGravity(ob);\r
- }\r
- else\r
- {\r
- DoGravity(ob);\r
- }\r
- if (ob->yspeed > 0 && ob->state != &s_keenjump3 && ob->state != &s_keenjump4)\r
- {\r
- ob->state = ob->state->nextstate; // switch to third jump stage\r
- }\r
- }\r
-\r
-//-------------\r
-\r
- if (c.xaxis)\r
- {\r
- ob->xdir = c.xaxis;\r
- AccelerateX(ob, c.xaxis*2, 24);\r
- }\r
- else\r
- {\r
- FrictionX(ob);\r
- }\r
-\r
- if (ob->hitsouth == 17) // going through a pole hole\r
- {\r
- ob->xspeed = xtry = 0;\r
- }\r
-\r
- if (firebutton && !fireheld)\r
- {\r
- fireheld = true;\r
- //\r
- // shoot\r
- //\r
- switch (c.yaxis)\r
- {\r
- case -1:\r
- ob->state = &s_keenairshootup1;\r
- return;\r
- case 0:\r
- ob->state = &s_keenairshoot1;\r
- return;\r
- case 1:\r
- ob->state = &s_keenairshootdown1;\r
- return;\r
- }\r
- }\r
-\r
- if (pogobutton && !pogoheld)\r
- {\r
- pogoheld = true;\r
- ob->state = &s_keenpogo;\r
- jumptime = 0;\r
- return;\r
- }\r
-\r
- if (c.yaxis == -1)\r
- CheckGrabPole(ob);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenBounceThink\r
-=\r
-= Gives an extra bit of height on the first pogo bounce and creates\r
-= the "impossible pogo trick" when the jump key is held down\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenBounceThink(objtype *ob)\r
-{\r
- ob->yspeed = -48;\r
- ytry = ob->yspeed * 6;\r
- jumptime = 24;\r
- SD_PlaySound(SND_POGOBOUNCE);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenPogoThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenPogoThink(objtype *ob)\r
-{\r
- if (jumptime)\r
- {\r
- if (jumpbutton || jumptime <= 9)\r
- {\r
- DoTinyGravity(ob);\r
- }\r
- else\r
- {\r
- DoGravity(ob);\r
- }\r
- if (jumptime <= tics)\r
- {\r
- jumptime = 0;\r
- }\r
- else\r
- {\r
- jumptime = jumptime - tics;\r
- }\r
- if (jumptime == 0 && ob->state->nextstate)\r
- ob->state = ob->state->nextstate;\r
- }\r
- else\r
- {\r
- if (gamestate.difficulty == gd_Easy)\r
- {\r
- DoWeakGravity(ob);\r
- }\r
- else\r
- {\r
- DoGravity(ob);\r
- }\r
- }\r
-\r
- if (c.xaxis)\r
- {\r
- if (ob->xspeed == 0)\r
- ob->xdir = c.xaxis;\r
- AccelerateX(ob, c.xaxis, 24);\r
- }\r
- else\r
- {\r
- xtry = xtry + ob->xspeed * tics;\r
- if (ob->xspeed > 0)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else if (ob->xspeed < 0)\r
- {\r
- ob->xdir = -1;\r
- }\r
- }\r
-\r
- if (ob->hitsouth == 17) // going through a pole hole\r
- {\r
- ob->xspeed = xtry = 0;\r
- }\r
-\r
- if (firebutton && !fireheld)\r
- {\r
- fireheld = true;\r
- switch (c.yaxis)\r
- {\r
- case -1:\r
- ob->state = &s_keenairshootup1;\r
- return;\r
- case 0:\r
- ob->state = &s_keenairshoot1;\r
- return;\r
- case 1:\r
- ob->state = &s_keenairshootdown1;\r
- return;\r
- }\r
- }\r
-\r
- if (pogobutton && !pogoheld)\r
- {\r
- pogoheld = true;\r
- ob->state = &s_keenjump3;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= PoleActions\r
-=\r
-=======================\r
-*/\r
-\r
-void PoleActions(objtype *ob)\r
-{\r
- if (c.xaxis)\r
- ob->xdir = c.xaxis;\r
-\r
- if (firebutton && !fireheld)\r
- {\r
- fireheld = true;\r
- switch (c.yaxis)\r
- {\r
- case -1:\r
- ob->state = &s_keenpoleshootup1;\r
- break;\r
- case 0:\r
- ob->state = &s_keenpoleshoot1;\r
- break;\r
- case 1:\r
- ob->state = &s_keenpoleshootdown1;\r
- break;\r
- }\r
- }\r
-\r
- if (jumpbutton && !jumpheld) // jump off the pole\r
- {\r
- jumpheld = true;\r
- SD_PlaySound(SND_JUMP);\r
- ob->xspeed = polexspeed[c.xaxis+1];\r
- ob->yspeed = -20;\r
- ob->needtoclip = cl_midclip;\r
- jumptime = 10;\r
- ob->state = &s_keenjump1;\r
- ob->ydir = 1;\r
- leavepoletime = lasttimecount;\r
- }\r
-}\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenPoleThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenPoleThink(objtype *ob)\r
-{\r
- Uint16 tile;\r
- Uint16 far *map;\r
-\r
- switch (c.yaxis)\r
- {\r
- case -1:\r
- ob->state = &s_keenclimb1;\r
- ob->ydir = -1;\r
- return;\r
- case 1:\r
- ob->state = &s_keenslide1;\r
- ob->ydir = 1;\r
- KeenDropThink(ob);\r
- return;\r
- }\r
-\r
- if (c.xaxis)\r
- {\r
- //\r
- // walk off pole if right next to ground\r
- //\r
- map = mapsegs[1] + (mapbwidthtable[ob->tilebottom+1]/2 + ob->tilemidx);\r
- tile = *map;\r
- if (tinf[NORTHWALL+tile])\r
- {\r
- ob->xspeed = 0;\r
- ob->yspeed = 0;\r
- ob->needtoclip = cl_midclip;\r
- jumptime = 0;\r
- ob->state = &s_keenjump3;\r
- ob->ydir = 1;\r
- SD_PlaySound(SND_PLUMMET);\r
- return;\r
- }\r
- }\r
- PoleActions(ob);\r
-}\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenClimbThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenClimbThink(objtype *ob)\r
-{\r
- Uint16 far *map;\r
-\r
- map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tilemidx;\r
- \r
- if ((tinf[INTILE+*map] & 0x7F) != INTILE_POLE)\r
- {\r
- ytry = 0;\r
- ob->state = &s_keenpole; // ran out of pole\r
- PoleActions(ob);\r
- return;\r
- }\r
-\r
- switch (c.yaxis)\r
- {\r
- case 0:\r
- ob->state = &s_keenpole;\r
- ob->ydir = 0;\r
- break;\r
-\r
- case 1:\r
- ob->state = &s_keenslide1;\r
- ob->ydir = 1;\r
- KeenDropThink(ob);\r
- break;\r
- }\r
-\r
- PoleActions(ob);\r
-}\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenDropThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenDropThink(objtype *ob)\r
-{\r
- Uint16 far *map;\r
- Uint16 y;\r
-\r
- y = CONVERT_GLOBAL_TO_TILE(ob->bottom - 4*PIXGLOBAL);\r
- map = mapsegs[1] + mapbwidthtable[y]/2 + ob->tilemidx;\r
-\r
- if ((tinf[INTILE+*map] & 0x7F) != INTILE_POLE)\r
- {\r
- SD_PlaySound(SND_PLUMMET);\r
- ob->state = &s_keenjump3; // ran out of pole\r
- jumptime = 0;\r
- ob->xspeed = polexspeed[c.xaxis+1];\r
- ob->yspeed = 0;\r
- ob->needtoclip = cl_midclip;\r
- ob->tilebottom--;\r
- return;\r
- }\r
-\r
- switch (c.yaxis)\r
- {\r
- case -1:\r
- ob->state = &s_keenclimb1;\r
- ob->ydir = -1;\r
- break;\r
-\r
- case 0:\r
- ob->state = &s_keenpole;\r
- ob->ydir = 0;\r
- break;\r
- }\r
-\r
- PoleActions(ob);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenDropDownThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenDropDownThink(objtype *ob)\r
-{\r
- ob->needtoclip = cl_midclip;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenHoldThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenHoldThink(objtype *ob)\r
-{\r
- Uint16 tile;\r
-\r
- if (c.yaxis == -1 || ob->xdir == c.xaxis)\r
- {\r
- ob->state = &s_keenclimbup;\r
- if (ob->xdir == 1)\r
- {\r
- tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop-1]/2+ob->tileright);\r
- }\r
- else\r
- {\r
- tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop-1]/2+ob->tileleft);\r
- }\r
- if (ob->xdir == 1)\r
- {\r
- ytry = -16*PIXGLOBAL;\r
- }\r
- else\r
- {\r
- ytry = -8*PIXGLOBAL;\r
- }\r
- if (!(tinf[INTILE+tile] & INTILE_FOREGROUND))\r
- ob->priority = 3;\r
- }\r
- else if (c.yaxis == 1 || c.xaxis && ob->xdir != c.xaxis)\r
- {\r
- ob->state = &s_keenjump3;\r
- ob->needtoclip = cl_midclip;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenShootThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenShootThink(objtype *ob)\r
-{\r
-// can't use &<var> in a switch statement...\r
-\r
- if (ob->state == &s_keenshoot1)\r
- {\r
- if (ob->xdir == 1)\r
- {\r
- SpawnShot(ob->x + 16*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_East);\r
- }\r
- else\r
- {\r
- SpawnShot(ob->x - 8*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_West);\r
- }\r
- }\r
- if (ob->state == &s_keenairshoot2)\r
- {\r
- if (ob->xdir == 1)\r
- {\r
- SpawnShot(ob->x + 16*PIXGLOBAL, ob->y + 2*PIXGLOBAL, dir_East);\r
- }\r
- else\r
- {\r
- SpawnShot(ob->x, ob->y + 2*PIXGLOBAL, dir_West);\r
- }\r
- }\r
- if (ob->state == &s_keenairshootdown2)\r
- {\r
- SpawnShot(ob->x + 8*PIXGLOBAL, ob->y + 18*PIXGLOBAL, dir_South);\r
- }\r
- if (ob->state == &s_keenairshootup2)\r
- {\r
- SpawnShot(ob->x + 5*PIXGLOBAL, ob->y - 10*PIXGLOBAL, dir_North);\r
- }\r
- if (ob->state == &s_keenshootup1)\r
- {\r
- SpawnShot(ob->x + 5*PIXGLOBAL, ob->y - 10*PIXGLOBAL, dir_North);\r
- }\r
- if (ob->state == &s_keenpoleshoot1)\r
- {\r
- if (ob->xdir == 1)\r
- {\r
- SpawnShot(ob->x + 16*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_East);\r
- }\r
- else\r
- {\r
- SpawnShot(ob->x - 8*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_West);\r
- }\r
- }\r
- if (ob->state == &s_keenpoleshootup1)\r
- {\r
- if (ob->xdir == 1)\r
- {\r
- SpawnShot(ob->x + 6*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_North);\r
- }\r
- else\r
- {\r
- SpawnShot(ob->x + 12*PIXGLOBAL, ob->y + 4*PIXGLOBAL, dir_North);\r
- }\r
- }\r
- if (ob->state == &s_keenpoleshootdown1)\r
- {\r
- if (ob->xdir == 1)\r
- {\r
- SpawnShot(ob->x + 6*PIXGLOBAL, ob->y + 24*PIXGLOBAL, dir_South);\r
- }\r
- else\r
- {\r
- SpawnShot(ob->x + 12*PIXGLOBAL, ob->y + 24*PIXGLOBAL, dir_South);\r
- }\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= T_PullUp1\r
-=\r
-=======================\r
-*/\r
-\r
-void T_PullUp1(objtype *ob)\r
-{\r
- if (ob->xdir == 1)\r
- {\r
- xtry = 8*PIXGLOBAL;\r
- }\r
- else\r
- {\r
- ytry = -8*PIXGLOBAL;\r
- }\r
-}\r
-\r
-/*\r
-=======================\r
-=\r
-= T_PullUp2\r
-=\r
-=======================\r
-*/\r
-\r
-void T_PullUp2(objtype *ob)\r
-{\r
- if (ob->xdir == 1)\r
- {\r
- xtry = 8*PIXGLOBAL;\r
- ytry = -8*PIXGLOBAL;\r
- }\r
- else\r
- {\r
- xtry = -8*PIXGLOBAL;\r
- ytry = -8*PIXGLOBAL;\r
- }\r
-}\r
-\r
-/*\r
-=======================\r
-=\r
-= T_PullUp3\r
-=\r
-=======================\r
-*/\r
-\r
-#pragma argsused\r
-void T_PullUp3(objtype *ob)\r
-{\r
- ytry = -8*PIXGLOBAL;\r
-}\r
-\r
-/*\r
-=======================\r
-=\r
-= T_PulledUp\r
-=\r
-=======================\r
-*/\r
-\r
-void T_PulledUp(objtype *ob)\r
-{\r
- ob->needtoclip = cl_midclip;\r
- ob->priority = 1;\r
- ytry = 8*PIXGLOBAL;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= KeenDieThink\r
-=\r
-=======================\r
-*/\r
-\r
-void KeenDieThink(objtype *ob)\r
-{\r
- DoWeakGravity(ob);\r
- xtry = ob->xspeed * tics;\r
- if (!OnScreen(ob))\r
- playstate = ex_died;\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- CONTACT ROUTINES\r
-\r
-=============================================================================\r
-*/\r
-\r
-/*\r
-============================\r
-=\r
-= KillKeen\r
-=\r
-============================\r
-*/\r
-\r
-void KillKeen(void)\r
-{\r
- if (invincible || godmode)\r
- return;\r
-\r
- if (player->state != &s_keendead)\r
- {\r
-\r
- moonok = 0;\r
- invincible = 30; //0.43 seconds\r
- keenkilled = true;\r
- player->needtoclip = cl_noclip;\r
- player->priority = 3;\r
-#ifdef KEEN4\r
- if (mapon == 17)\r
- {\r
- if (US_RndT() < 0x80)\r
- {\r
- ChangeState(player, &s_keensuitdie1);\r
- }\r
- else\r
- {\r
- ChangeState(player, &s_keensuitdie2);\r
- }\r
- }\r
- else\r
-#endif\r
- {\r
- if (US_RndT() < 0x80)\r
- {\r
- ChangeState(player, &s_keendie1);\r
- }\r
- else\r
- {\r
- ChangeState(player, &s_keendie2);\r
- }\r
- }\r
- SD_PlaySound(SND_KEENDEAD);\r
- player->yspeed = -40;\r
- player->xspeed = 16;\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= KeenContact\r
-=\r
-============================\r
-*/\r
-\r
-void KeenContact(objtype *ob, objtype *hit)\r
-{\r
- switch (hit->obclass)\r
- {\r
- case bonusobj:\r
- switch (hit->temp1)\r
- {\r
- case 0:\r
- case 1:\r
- case 2:\r
- case 3:\r
- case 4:\r
- case 5:\r
- case 6:\r
- case 7:\r
- case 8:\r
- case 9:\r
- case 10:\r
- case 11:\r
-#ifdef KEEN5\r
- case 12:\r
-#endif\r
- SD_PlaySound(bonussound[hit->temp1]);\r
- hit->obclass = inertobj;\r
- hit->priority = 3;\r
- hit->shapenum = bonussprite[hit->temp1];\r
- GivePoints(bonuspoints[hit->temp1]);\r
- if (hit->temp1 < 4)\r
- {\r
- gamestate.keys[hit->temp1]++;\r
- }\r
- else if (hit->temp1 == 10)\r
- {\r
- gamestate.lives++;\r
- }\r
- else if (hit->temp1 == 11)\r
- {\r
- gamestate.ammo += shotsinclip[gamestate.difficulty];\r
- }\r
-#ifdef KEEN5\r
- else if (hit->temp1 == 12)\r
- {\r
- gamestate.keycard = true;\r
- }\r
-#endif\r
- ChangeState(hit, &s_bonusrise);\r
- }\r
- break;\r
-\r
-#if defined KEEN4\r
- case oracleobj:\r
- if (!ob->hitnorth)\r
- break;\r
-\r
- if (mapon == 14)\r
- {\r
- RescueJanitor();\r
- RF_ForceRefresh();\r
- RemoveObj(hit);\r
- }\r
- else\r
- {\r
- SD_PlaySound(SND_LINDSEY);\r
- playstate = ex_rescued;\r
- }\r
- break;\r
- case stunnedobj:\r
- if (hit->temp4 != bounderobj)\r
- break;\r
- //no break here -- drop through to platformobj is intended!\r
- case platformobj:\r
- if (!gamestate.riding)\r
- {\r
- ClipToSpriteTop(ob, hit);\r
- }\r
- else\r
- return;\r
- break;\r
- case bounderobj:\r
- ClipToSprite(ob, hit, false);\r
- break;\r
- case lindseyobj:\r
- PrincessLindsey();\r
- RemoveObj(hit);\r
- RF_ForceRefresh();\r
- break;\r
- case footobj:\r
- playstate = ex_foot;\r
- break;\r
-#elif defined KEEN5\r
- case platformobj:\r
- if (!gamestate.riding)\r
- ClipToSpriteTop(ob, hit);\r
- break;\r
-#elif defined KEEN6\r
- case stunshotobj:\r
- if (hit->temp4)\r
- {\r
- ExplodeShot(hit);\r
- ChangeState(ob, &s_keenstun);\r
- }\r
- // BUG: there is no break here - this causes the impossible bullet bug\r
- case platformobj:\r
- if (!gamestate.riding)\r
- ClipToSpriteTop(ob, hit);\r
- break;\r
-#endif\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= KeenPosContact\r
-=\r
-============================\r
-*/\r
-\r
-void KeenPosContact(objtype *ob, objtype *hit)\r
-{\r
- switch (hit->obclass)\r
- {\r
-#if defined KEEN4\r
- case platformobj:\r
- // BUG: priority is not reset here\r
- ob->needtoclip = cl_midclip;\r
- ChangeState(ob, &s_keenjump3);\r
- jumptime = ob->xspeed = ob->yspeed = 0;\r
- ClipToSpriteTop(ob, hit);\r
- break;\r
- case madmushroomobj:\r
- case arachnutobj:\r
- case berkeloidobj:\r
- KillKeen();\r
- break;\r
- case bounderobj:\r
- ob->priority = 1;\r
- ob->needtoclip = cl_midclip;\r
- ChangeState(ob, &s_keenjump3);\r
- jumptime = ob->xspeed = ob->yspeed = 0;\r
- ClipToSprite(ob, hit, false);\r
- break;\r
-#elif defined KEEN5\r
- case platformobj:\r
- // BUG: priority is not reset here\r
- ob->needtoclip = cl_midclip;\r
- ChangeState(ob, &s_keenjump3);\r
- jumptime = ob->xspeed = ob->yspeed = 0;\r
- ClipToSpriteTop(ob, hit);\r
- break;\r
- case amptonobj:\r
- case scottieobj:\r
- ob->priority = 1;\r
- ob->needtoclip = cl_midclip;\r
- ChangeState(ob, &s_keenjump3);\r
- jumptime = ob->xspeed = ob->yspeed = 0;\r
- break;\r
-#elif defined KEEN6\r
- case platformobj:\r
- case gikobj:\r
- case flectobj:\r
- case bloogletobj:\r
- ob->priority = 1;\r
- ob->needtoclip = cl_midclip;\r
- ChangeState(ob, &s_keenjump3);\r
- jumptime = ob->xspeed = ob->yspeed = 0;\r
- ClipToSpriteTop(ob, hit); // BUG: allows Keen to stand on Blooglets and Flects\r
- break;\r
-#endif\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= HandleRiding\r
-=\r
-============================\r
-*/\r
-\r
-void HandleRiding(objtype *ob)\r
-{\r
- objtype *plat;\r
-\r
- plat = gamestate.riding;\r
- if (ob->right < plat->left || ob->left > plat->right)\r
- {\r
- gamestate.riding = NULL;\r
- }\r
- else if (ob->ymove < 0)\r
- {\r
- gamestate.riding = NULL;\r
- if (plat->ymove < 0)\r
- {\r
- xtry = 0;\r
- ytry = plat->ymove;\r
- PushObj(ob);\r
- }\r
- }\r
- else\r
- {\r
- xtry = plat->xmove;\r
- ytry = plat->top - ob->bottom - 16;\r
- PushObj(ob);\r
-\r
-#if GRMODE == CGAGR\r
- if (ob->xmove == plat->xmove)\r
- {\r
- ob->x &= ~0x3F;\r
- ob->x |= plat->x & 0x3F;\r
- }\r
-#else\r
- if (nopan)\r
- {\r
- ob->x &= ~0x7F;\r
- ob->x |= plat->x & 0x7F;\r
- }\r
- else\r
- {\r
- ob->x |= plat->x & 0x1F;\r
- }\r
-#endif\r
-\r
- if (ob->hitsouth)\r
- {\r
- gamestate.riding = NULL;\r
- }\r
- else\r
- {\r
- ob->hitnorth = 25;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= TileBonus\r
-=\r
-============================\r
-*/\r
-\r
-void TileBonus(Uint16 x, Uint16 y, Uint16 bonus)\r
-{\r
- RF_MemToMap(&zeromap, 1, x, y, 1, 1);\r
- SD_PlaySound(bonussound[bonus]);\r
- GivePoints(bonuspoints[bonus]);\r
- if (bonus < 4)\r
- {\r
- gamestate.keys[bonus]++;\r
- }\r
- else if (bonus == 10)\r
- {\r
- gamestate.lives++;\r
- }\r
- else if (bonus == 11)\r
- {\r
- gamestate.ammo += shotsinclip[gamestate.difficulty];\r
- }\r
- GetNewObj(true);\r
- new->obclass = inertobj;\r
- new->priority = 3;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- new->ydir = -1;\r
- new->temp2 = new->shapenum = bonussprite[bonus];\r
- NewState(new, &s_bonusrise);\r
- new->needtoclip = cl_noclip;\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= GiveDrop\r
-=\r
-============================\r
-*/\r
-\r
-void GiveDrop(Uint16 x, Uint16 y)\r
-{\r
- RF_MemToMap(&zeromap, 1, x, y, 1, 1);\r
- SD_PlaySound(SND_GETWATER);\r
- SpawnSplash(x, y);\r
- if (++gamestate.drops == 100)\r
- {\r
- gamestate.drops = 0;\r
- SD_PlaySound(SND_EXTRAKEEN);\r
- gamestate.lives++;\r
- GetNewObj(true);\r
- new->obclass = inertobj;\r
- new->priority = 3;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y-1);\r
- new->ydir = -1;\r
- new->temp2 = new->shapenum = BONUS100UPSPR;\r
- NewState(new, &s_bonusrise);\r
- new->needtoclip = cl_noclip;\r
- }\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= CheckInTiles\r
-=\r
-============================\r
-*/\r
-\r
-void CheckInTiles(objtype *ob)\r
-{\r
- Uint16 x, y;\r
- Uint16 far *map;\r
- Uint16 rowdelta, intile, midx;\r
-\r
- if (moonok == 1)\r
- moonok = 0;\r
-\r
- map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft;\r
- rowdelta = mapwidth - (ob->tileright - ob->tileleft + 1);\r
- for (y = ob->tiletop; y <= ob->tilebottom; y++, map += rowdelta)\r
- {\r
- for (x = ob->tileleft; x <= ob->tileright; x++, map++)\r
- {\r
- if ((intile = tinf[INTILE + *map] & INTILE_TYPEMASK) != 0)\r
- {\r
- switch (intile)\r
- {\r
- case INTILE_DEADLY:\r
- KillKeen();\r
- break;\r
-\r
- case INTILE_DROP:\r
- GiveDrop(x, y);\r
- break;\r
-\r
- case INTILE_GEMSOCKET0:\r
- case INTILE_GEMSOCKET1:\r
- case INTILE_GEMSOCKET2:\r
- case INTILE_GEMSOCKET3:\r
- if (ob->tilebottom != y || !ob->hitnorth\r
- || ob->state == &s_keenkey\r
- || !gamestate.keys[intile-INTILE_GEMSOCKET0])\r
- {\r
- return;\r
- }\r
-\r
- midx = CONVERT_TILE_TO_GLOBAL(x) + -4*PIXGLOBAL;\r
- if (ob->x != midx)\r
- {\r
- ob->temp1 = midx;\r
- ob->state = &s_keenlineup;\r
- return;\r
- }\r
- else\r
- {\r
- gamestate.keys[intile-INTILE_GEMSOCKET0]--;\r
- ChangeState(ob, &s_keenkey);\r
- }\r
- break;\r
-\r
- case INTILE_MOON:\r
- if (moonok == 0)\r
- moonok = 1;\r
- break;\r
-\r
- case INTILE_BONUS100:\r
- case INTILE_BONUS200:\r
- case INTILE_BONUS500:\r
- case INTILE_BONUS1000:\r
- case INTILE_BONUS2000:\r
- case INTILE_BONUS5000:\r
- case INTILE_EXTRALIFE:\r
- case INTILE_AMMO:\r
- TileBonus(x, y, (intile-INTILE_BONUS100)+4);\r
- break;\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- REACTION ROUTINES\r
-\r
-=============================================================================\r
-*/\r
-\r
-\r
-/*\r
-============================\r
-=\r
-= KeenSimpleReact\r
-=\r
-============================\r
-*/\r
-\r
-void KeenSimpleReact(objtype *ob)\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-\r
-/*\r
-============================\r
-=\r
-= KeenStandReact\r
-=\r
-============================\r
-*/\r
-\r
-void KeenStandReact(objtype *ob)\r
-{\r
- if (!ob->hitnorth)\r
- {\r
- //\r
- // walked off an edge\r
- //\r
- SD_PlaySound(SND_PLUMMET);\r
- ob->xspeed = ob->xdir * 8;\r
- ob->yspeed = 0;\r
- ChangeState(ob, &s_keenjump3);\r
- jumptime = 0;\r
- }\r
- else if ((ob->hitnorth & ~7) == 8) // deadly floor!\r
- {\r
- KillKeen();\r
- }\r
- else if (ob->hitnorth == 41)\r
- {\r
- xtry = tics * 8;\r
- ytry = 0;\r
- ob->temp1 = 0;\r
- ClipToWalls(ob);\r
- }\r
- else if (ob->hitnorth == 49)\r
- {\r
- xtry = tics * -8;\r
- ytry = 0;\r
- ob->temp1 = 0;\r
- ClipToWalls(ob);\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= KeenWalkReact\r
-=\r
-============================\r
-*/\r
-\r
-void KeenWalkReact(objtype *ob)\r
-{\r
- if (!ob->hitnorth)\r
- {\r
- //\r
- // walked off an edge\r
- //\r
- SD_PlaySound(SND_PLUMMET);\r
- ob->xspeed = ob->xdir * 8;\r
- ob->yspeed = 0;\r
- ChangeState(ob, &s_keenjump3);\r
- jumptime = 0;\r
- }\r
- else if ((ob->hitnorth & ~7) == 8) // deadly floor!\r
- {\r
- KillKeen();\r
- }\r
- else if (ob->hitnorth == 41)\r
- {\r
- xtry = tics * 8;\r
- ytry = 0;\r
- ClipToWalls(ob);\r
- }\r
- else if (ob->hitnorth == 49)\r
- {\r
- xtry = tics * -8;\r
- ytry = 0;\r
- ClipToWalls(ob);\r
- }\r
- else if (ob->hiteast && ob->xdir == -1 || ob->hitwest && ob->xdir == 1)\r
- {\r
- //\r
- // ran into a wall\r
- //\r
- ob->ticcount = 0;\r
- ob->state = &s_keenstand;\r
- ob->shapenum = ob->xdir == 1? s_keenstand.rightshapenum : s_keenstand.leftshapenum;\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= KeenAirReact\r
-=\r
-============================\r
-*/\r
-\r
-void KeenAirReact(objtype *ob)\r
-{\r
- Uint16 far *map;\r
- Uint16 oldtop, graby, ty, tile;\r
-\r
- if (ob->hiteast && ob->xdir == -1 || ob->hitwest && ob->xdir == 1)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitsouth)\r
- {\r
- if (ob->hitsouth == 17) // jumping up through a pole hole\r
- {\r
- ob->y -= 2*PIXGLOBAL;\r
- ob->top -= 2*PIXGLOBAL;\r
- ob->xspeed = 0;\r
- ob->x = CONVERT_TILE_TO_GLOBAL(ob->tilemidx) - 2*PIXGLOBAL;\r
- }\r
- else\r
- {\r
-#ifdef KEEN6\r
- if (ob->hitsouth == 33)\r
- {\r
- FlipBigSwitch(ob, false);\r
- }\r
-#endif\r
- if (!jumpcheat)\r
- {\r
- SD_PlaySound(SND_HELMETHIT);\r
- if (ob->hitsouth > 1)\r
- {\r
- ob->yspeed += 16;\r
- if (ob->yspeed < 0) // push away from slopes\r
- ob->yspeed = 0;\r
- }\r
- else\r
- {\r
- ob->yspeed = 0;\r
- }\r
- jumptime = 0;\r
- }\r
- }\r
- }\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->ymove = 0;\r
- if ((ob->hitnorth & ~7) == 8) // deadly floor!\r
- {\r
- KillKeen();\r
- }\r
- else\r
- {\r
-#if defined KEEN5\r
- if (ob->hitnorth == 57)\r
- {\r
- SD_PlaySound(SND_LANDONFUSE);\r
- }\r
-#elif defined KEEN6\r
- if (ob->hitnorth == 33)\r
- {\r
- FlipBigSwitch(ob, true);\r
- }\r
-#endif\r
- if (ob->hitnorth != 25 || !jumptime) // KLUDGE to allow jumping off\r
- {\r
- ob->temp1 = ob->temp2 = 0;\r
- if (ob->state == &s_keenairshoot1)\r
- {\r
- ChangeState(ob, &s_keenshoot1);\r
- }\r
- else if (ob->state == &s_keenairshootup1)\r
- {\r
- ChangeState(ob, &s_keenshootup1);\r
- }\r
- else if (c.xaxis)\r
- {\r
- ChangeState(ob, &s_keenwalk1);\r
- }\r
- else\r
- {\r
- ChangeState(ob, &s_keenstand);\r
- }\r
- SD_PlaySound(SND_LAND);\r
- }\r
- }\r
- }\r
- else if (ob->ymove > 0)\r
- {\r
-//\r
-// check if there is an edge to grab\r
-//\r
- oldtop = ob->top - ob->ymove;\r
- graby = ((ob->top - 4*PIXGLOBAL) & 0xFF00) + 4*PIXGLOBAL;\r
- ty = CONVERT_GLOBAL_TO_TILE(graby) - 1;\r
- if (oldtop < graby && ob->top >= graby)\r
- {\r
- if (c.xaxis == -1)\r
- {\r
- map = mapsegs[1] + mapbwidthtable[ty]/2 + ob->tileleft;\r
- if (ob->hiteast)\r
- map--;\r
- tile = *map;\r
- if (!tinf[EASTWALL + tile] && !tinf[WESTWALL + tile]\r
- && !tinf[NORTHWALL + tile] && !tinf[SOUTHWALL + tile]\r
- && tinf[EASTWALL + map[mapwidth]] && tinf[NORTHWALL + map[mapwidth]]\r
- )\r
- {\r
- ob->xdir = -1;\r
- ob->needtoclip = cl_noclip;\r
- ob->x = (ob->x & 0xFF00) + 8*PIXGLOBAL;\r
- ob->y = graby - 4*PIXGLOBAL;\r
- ob->yspeed = ob->ymove = 0;\r
- ChangeState(ob, &s_keenholdon);\r
- }\r
- }\r
- else if (c.xaxis == 1)\r
- {\r
- map = mapsegs[1] + mapbwidthtable[ty]/2 + ob->tileright;\r
- if (ob->hitwest)\r
- map++;\r
- tile = *map;\r
- if (!tinf[EASTWALL + tile] && !tinf[WESTWALL + tile]\r
- && !tinf[NORTHWALL + tile] && !tinf[SOUTHWALL + tile]\r
- && tinf[WESTWALL + map[mapwidth]] && tinf[NORTHWALL + map[mapwidth]]\r
- )\r
- {\r
- ob->xdir = 1;\r
- ob->needtoclip = cl_noclip;\r
- ob->x = (ob->x & 0xFF00) + 16*PIXGLOBAL;\r
- ob->y = graby - 4*PIXGLOBAL;\r
- ob->yspeed = ob->ymove = 0;\r
- ChangeState(ob, &s_keenholdon);\r
- }\r
- }\r
- }\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-#ifdef KEEN5\r
-/*\r
-============================\r
-=\r
-= BreakFuse\r
-=\r
-============================\r
-*/\r
-\r
-void BreakFuse(Uint16 tileX, Uint16 tileY)\r
-{\r
- Uint16 tiles[] = {1932, 1950}; // should be 'static' for less overhead\r
-\r
- // The original disassembly had some code here equivalent to this:\r
- //\r
- // _AX = tiles[0];\r
- // _DX = 4;\r
- //\r
- // As it turned out, that was just a compiler quirk.\r
-\r
- SpawnFuseFlash(tileX, tileY);\r
- if (--gamestate.numfuses == 0)\r
- {\r
- SpawnDeadMachine();\r
- }\r
- RF_MemToMap(tiles, 1, tileX, tileY, 1, 2);\r
-}\r
-#endif\r
-\r
-/*\r
-============================\r
-=\r
-= KeenPogoReact\r
-=\r
-============================\r
-*/\r
-\r
-void KeenPogoReact(objtype *ob)\r
-{\r
- if (ob->hiteast && ob->xdir == -1 || ob->hitwest && ob->xdir == 1)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitsouth)\r
- {\r
- if (ob->hitsouth == 17) // jumping up through a pole hole\r
- {\r
- ob->y -= 2*PIXGLOBAL;\r
- ob->top -= 2*PIXGLOBAL;\r
- ob->xspeed = 0;\r
- ob->x = CONVERT_TILE_TO_GLOBAL(ob->tilemidx) - 2*PIXGLOBAL;\r
- }\r
- else\r
- {\r
-#ifdef KEEN6\r
- if (ob->hitsouth == 33)\r
- {\r
- FlipBigSwitch(ob, false);\r
- }\r
-#endif\r
- if (!jumpcheat)\r
- {\r
- SD_PlaySound(SND_HELMETHIT);\r
- if (ob->hitsouth > 1)\r
- {\r
- ob->yspeed += 16;\r
- if (ob->yspeed < 0) // push away from slopes\r
- ob->yspeed = 0;\r
- }\r
- else\r
- {\r
- ob->yspeed = 0;\r
- }\r
- jumptime = 0;\r
- }\r
- }\r
- }\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->ymove = 0;\r
- if ((ob->hitnorth & ~7) == 8) // deadly floor!\r
- {\r
- KillKeen();\r
- }\r
- else\r
- {\r
-#if defined KEEN5\r
- if (ob->hitnorth == 57)\r
- {\r
- if (ob->yspeed < 48)\r
- {\r
- SD_PlaySound(SND_LANDONFUSE);\r
- }\r
- else\r
- {\r
- BreakFuse(ob->tilemidx, ob->tilebottom);\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- return;\r
- }\r
- }\r
-#elif defined KEEN6\r
- if (ob->hitnorth == 33)\r
- {\r
- FlipBigSwitch(ob, true);\r
- }\r
- else if (ob->hitnorth == 41)\r
- {\r
- ob->xspeed += 8;\r
- if (ob->xspeed > 8)\r
- ob->xspeed = 8;\r
- }\r
- else if (ob->hitnorth == 49)\r
- {\r
- ob->xspeed -= 8;\r
- if (ob->xspeed < -8)\r
- ob->xspeed = -8;\r
- }\r
-#endif\r
- if (ob->hitnorth != 25 || !jumptime) // KLUDGE to allow jumping off\r
- {\r
- ob->yspeed = -48;\r
- jumptime = 24;\r
- SD_PlaySound(SND_POGOBOUNCE);\r
- ChangeState(ob, &s_keenpogo);\r
- }\r
- }\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-============================\r
-=\r
-= KeenPoleReact\r
-=\r
-============================\r
-*/\r
-\r
-void KeenPoleReact(objtype *ob)\r
-{\r
- Uint16 far *map;\r
- Uint16 ymove;\r
-\r
- map = mapsegs[1] + mapbwidthtable[ob->tilebottom]/2 + ob->tilemidx;\r
- if (tinf[NORTHWALL + *map] == 1)\r
- {\r
- ymove = (ob->bottom & 0xFF) + 1;\r
- ob->y -= ymove;\r
- ob->bottom -= ymove;\r
- ob->tilebottom--;\r
- ob->needtoclip = cl_midclip;\r
- ChangeState(ob, &s_keenlookdown);\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-CK_KEEN2.C\r
-==========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- Score Box & Demo sprites\r
-- Keen (world map)\r
-- Flags (world map)\r
-- Neural Stunner Shots\r
-- Gem Door Opener\r
-- Card Door Opener (Keen 5 only)\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-Direction opposite[8] = {dir_South, dir_SouthWest, dir_West, dir_NorthWest, dir_North, dir_NorthEast, dir_East, dir_SouthEast};\r
-\r
-/*\r
-=============================================================================\r
-\r
- SCORE BOX ROUTINES\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_score = { 0, 0, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL};\r
-statetype s_demo = {DEMOPLAQUESPR, DEMOPLAQUESPR, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL};\r
-\r
-/*\r
-======================\r
-=\r
-= SpawnScore\r
-=\r
-======================\r
-*/\r
-\r
-void SpawnScore(void)\r
-{\r
- scoreobj->obclass = inertobj;\r
- scoreobj->priority = 3;\r
- scoreobj->active = ac_allways;\r
- scoreobj->needtoclip = cl_noclip;\r
- scoreobj->temp2 = -1;\r
- scoreobj->temp1 = -1;\r
- scoreobj->temp3 = -1;\r
- scoreobj->temp4 = -1;\r
- if (scorescreenkludge)\r
- {\r
- scoreobj->state = &sc_deadstate;\r
- }\r
- else if (!DemoMode)\r
- {\r
- NewState(scoreobj, &s_score);\r
- }\r
- else\r
- {\r
- NewState(scoreobj, &s_demo);\r
- CA_MarkGrChunk(DEMOPLAQUESPR);\r
- }\r
-}\r
-\r
-\r
-// Taken from Keen Dreams: MemDrawChar and ShiftScore\r
-\r
-/*\r
-======================\r
-=\r
-= MemDrawChar\r
-=\r
-======================\r
-*/\r
-\r
-#if GRMODE == EGAGR\r
-\r
-void MemDrawChar(Sint16 char8, Uint8 far *dest, Uint16 width, Uint16 planesize)\r
-{\r
- Uint16 source = (Uint16)grsegs[STARTTILE8]; // Note: this differs from Keen Dreams source\r
-\r
-asm mov si,[char8]\r
-asm shl si,1\r
-asm shl si,1\r
-asm shl si,1\r
-asm shl si,1\r
-asm shl si,1 // index into char 8 segment\r
-\r
-asm mov ds,[WORD PTR source] // Note: this differs from Keen Dreams source\r
-asm mov es,[WORD PTR dest+2]\r
-\r
-asm mov cx,4 // draw four planes\r
-asm mov bx,[width]\r
-asm dec bx\r
-\r
-planeloop:\r
-\r
-asm mov di,[WORD PTR dest]\r
-\r
-asm movsb\r
-asm add di,bx\r
-asm movsb\r
-asm add di,bx\r
-asm movsb\r
-asm add di,bx\r
-asm movsb\r
-asm add di,bx\r
-asm movsb\r
-asm add di,bx\r
-asm movsb\r
-asm add di,bx\r
-asm movsb\r
-asm add di,bx\r
-asm movsb\r
-\r
-asm mov ax,[planesize]\r
-asm add [WORD PTR dest],ax\r
-\r
-asm loop planeloop\r
-\r
-asm mov ax,ss\r
-asm mov ds,ax\r
-}\r
-\r
-#elif GRMODE == CGAGR\r
-\r
-void MemDrawChar (int char8,byte far *dest,unsigned width,unsigned planesize)\r
-{\r
-asm mov si,[char8]\r
-asm shl si,1\r
-asm shl si,1\r
-asm shl si,1\r
-asm shl si,1 // index into char 8 segment\r
-\r
-asm mov ds,[WORD PTR grsegs+STARTTILE8*2]\r
-asm mov es,[WORD PTR dest+2]\r
-\r
-asm mov bx,[width]\r
-asm sub bx,2\r
-\r
-asm mov di,[WORD PTR dest]\r
-\r
-asm movsw\r
-asm add di,bx\r
-asm movsw\r
-asm add di,bx\r
-asm movsw\r
-asm add di,bx\r
-asm movsw\r
-asm add di,bx\r
-asm movsw\r
-asm add di,bx\r
-asm movsw\r
-asm add di,bx\r
-asm movsw\r
-asm add di,bx\r
-asm movsw\r
-\r
-asm mov ax,ss\r
-asm mov ds,ax\r
-\r
- planesize++; // shut the compiler up\r
-}\r
-#endif\r
-\r
-/*\r
-====================\r
-=\r
-= ShiftScore\r
-=\r
-====================\r
-*/\r
-#if GRMODE == EGAGR\r
-void ShiftScore (void)\r
-{\r
- spritetabletype far *spr;\r
- spritetype _seg *dest;\r
-\r
- spr = &spritetable[SCOREBOXSPR-STARTSPRITES];\r
- dest = (spritetype _seg *)grsegs[SCOREBOXSPR];\r
-\r
- CAL_ShiftSprite (FP_SEG(dest),dest->sourceoffset[0],\r
- dest->sourceoffset[1],spr->width,spr->height,2);\r
-\r
- CAL_ShiftSprite (FP_SEG(dest),dest->sourceoffset[0],\r
- dest->sourceoffset[2],spr->width,spr->height,4);\r
-\r
- CAL_ShiftSprite (FP_SEG(dest),dest->sourceoffset[0],\r
- dest->sourceoffset[3],spr->width,spr->height,6);\r
-}\r
-#endif\r
-\r
-/*\r
-===============\r
-=\r
-= UpdateScore\r
-=\r
-===============\r
-*/\r
-\r
-void UpdateScore(objtype *ob)\r
-{\r
- char str[10],*ch;\r
- spritetype _seg *block;\r
- Uint8 far *dest;\r
- Uint16 i, length, width, planesize, number;\r
- boolean changed;\r
-\r
- if (scorescreenkludge)\r
- return;\r
-\r
- if (DemoMode)\r
- {\r
- DrawDemoPlaque(ob);\r
- return;\r
- }\r
-\r
- if (!showscorebox)\r
- return;\r
-\r
- changed = false;\r
-\r
-//code below is a combination of ScoreThink and ScoreReact from Keen Dreams with minor changes\r
-\r
-//\r
-// score changed\r
-//\r
- if ((gamestate.score>>16) != ob->temp1\r
- || (Uint16)gamestate.score != ob->temp2 )\r
- {\r
- block = (spritetype _seg *)grsegs[SCOREBOXSPR];\r
- width = block->width[0];\r
- planesize = block->planesize[0];\r
- dest = (Uint8 far *)grsegs[SCOREBOXSPR]+block->sourceoffset[0]\r
- + planesize + width*4;\r
-\r
- ltoa (gamestate.score,str,10);\r
-\r
- // erase leading spaces\r
- length = strlen(str);\r
- for (i=9;i>length;i--)\r
- MemDrawChar (41,dest+=CHARWIDTH,width,planesize);\r
-\r
- // draw digits\r
- ch = str;\r
- while (*ch)\r
- MemDrawChar (*ch++ - '0'+42,dest+=CHARWIDTH,width,planesize);\r
-\r
-#if GRMODE == EGAGR\r
- ShiftScore ();\r
-#endif\r
- ob->needtoreact = true;\r
- ob->temp1 = gamestate.score>>16;\r
- ob->temp2 = gamestate.score;\r
-\r
- changed = true;\r
- }\r
-\r
-//\r
-// ammo changed\r
-//\r
- number = gamestate.ammo;\r
- if (number != ob->temp3)\r
- {\r
- block = (spritetype _seg *)grsegs[SCOREBOXSPR];\r
- width = block->width[0];\r
- planesize = block->planesize[0];\r
- dest = (byte far *)grsegs[SCOREBOXSPR]+block->sourceoffset[0]\r
- + planesize + width*20 + 7*CHARWIDTH;\r
-\r
- if (number > 99)\r
- strcpy (str,"99");\r
- else\r
- ltoa (number,str,10);\r
-\r
- // erase leading spaces\r
- length = strlen(str);\r
- for (i=2;i>length;i--)\r
- MemDrawChar (41,dest+=CHARWIDTH,width,planesize);\r
-\r
- // draw digits\r
- ch = str;\r
- while (*ch)\r
- MemDrawChar (*ch++ - '0'+42,dest+=CHARWIDTH,width,planesize);\r
-\r
-#if GRMODE == EGAGR\r
- ShiftScore ();\r
-#endif\r
- ob->needtoreact = true;\r
- ob->temp3 = number;\r
-\r
- changed = true;\r
- }\r
-\r
-//\r
-// lives changed\r
-//\r
- if (gamestate.lives != ob->temp4)\r
- {\r
- block = (spritetype _seg *)grsegs[SCOREBOXSPR];\r
- width = block->width[0];\r
- planesize = block->planesize[0];\r
- dest = (byte far *)grsegs[SCOREBOXSPR]+block->sourceoffset[0]\r
- + planesize + width*20 + 2*CHARWIDTH;\r
-\r
- if (gamestate.lives > 99)\r
- strcpy (str,"99");\r
- else\r
- ltoa (gamestate.lives,str,10);\r
-\r
- // erase leading spaces\r
- length = strlen(str);\r
- for (i=2;i>length;i--)\r
- MemDrawChar (41,dest+=CHARWIDTH,width,planesize);\r
-\r
- // draw digits\r
- ch = str;\r
- while (*ch)\r
- MemDrawChar (*ch++ - '0'+42,dest+=CHARWIDTH,width,planesize);\r
-\r
-#if GRMODE == EGAGR\r
- ShiftScore ();\r
-#endif\r
- ob->needtoreact = true;\r
- ob->temp4 = gamestate.lives;\r
-\r
- changed = true;\r
- }\r
-\r
-/*\r
-Note:\r
------\r
-\r
-It would be more efficient to use\r
-\r
- if (changed)\r
- ShiftScore();\r
-\r
-here instead of the individual ShiftScore() calls above. Because if the player\r
-gains a life by collecting points items, both the score and lives numbers need\r
-to be updated, which means the sprite would be shifted twice. And if the player\r
-fires a shot during the same frame, the ammo number also needs to be updated,\r
-leading to up to three shifts in one frame.\r
-*/\r
-\r
- if (ob->x != originxglobal || ob->y != originyglobal)\r
- {\r
- ob->x = originxglobal;\r
- ob->y = originyglobal;\r
- changed = true;\r
- }\r
-\r
- if (changed)\r
-#if GRMODE == EGAGR\r
- RF_PlaceSprite(&ob->sprite, ob->x+4*PIXGLOBAL, ob->y+4*PIXGLOBAL, SCOREBOXSPR, spritedraw, 3);\r
-#elif GRMODE == CGAGR\r
- RF_PlaceSprite(&ob->sprite, ob->x+8*PIXGLOBAL, ob->y+8*PIXGLOBAL, SCOREBOXSPR, spritedraw, 3);\r
-#endif\r
-}\r
-\r
-/*\r
-===============\r
-=\r
-= DrawDemoPlaque\r
-=\r
-===============\r
-*/\r
-\r
-void DrawDemoPlaque(objtype *ob)\r
-{\r
- if (ob->x != originxglobal || ob->y != originyglobal)\r
- {\r
- ob->x = originxglobal;\r
- ob->y = originyglobal;\r
- RF_PlaceSprite(&ob->sprite, ob->x + 160*PIXGLOBAL - 32*PIXGLOBAL, ob->y + 8*PIXGLOBAL, DEMOPLAQUESPR, spritedraw, 3);\r
- }\r
-}\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
- MINI KEEN\r
-\r
-player->temp1 = dir\r
-player->temp2 = animation stage\r
-\r
-=============================================================================\r
-*/\r
-\r
-#ifdef KEEN4\r
-statetype s_keenonfoot1 = {WOLRDKEENRIDE1SPR, WOLRDKEENRIDE1SPR, stepthink, false, false, 30, 0, 0, T_FootFly, NULL, R_Draw, &s_keenonfoot2};\r
-statetype s_keenonfoot2 = {WOLRDKEENRIDE2SPR, WOLRDKEENRIDE2SPR, stepthink, false, false, 30, 0, 0, T_FootFly, NULL, R_Draw, &s_keenonfoot1};\r
-statetype s_worldswim = {0, 0, slide, true, false, 6, 16, 16, T_KeenWorldSwim, NULL, R_Draw, &s_worldswim};\r
-#endif\r
-\r
-#ifdef KEEN5\r
-statetype s_worldelevate = {-1, -1, think, true, false, 6, 16, 16, T_Elevate, NULL, R_Draw, NULL};\r
-#endif\r
-\r
-statetype s_worldkeen = {0, 0, stepthink, false, false, 360, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave1};\r
-\r
-statetype s_worldkeenwave1 = {WORLDKEENWAVE1SPR, WORLDKEENWAVE1SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave2};\r
-statetype s_worldkeenwave2 = {WORLDKEENWAVE2SPR, WORLDKEENWAVE2SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave3};\r
-statetype s_worldkeenwave3 = {WORLDKEENWAVE1SPR, WORLDKEENWAVE1SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave4};\r
-statetype s_worldkeenwave4 = {WORLDKEENWAVE2SPR, WORLDKEENWAVE2SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave5};\r
-statetype s_worldkeenwave5 = {WORLDKEENWAVE1SPR, WORLDKEENWAVE1SPR, stepthink, false, false, 20, 0, 0, T_KeenWorldWalk, NULL, R_Draw, &s_worldkeen};\r
-\r
-statetype s_worldkeenwalk = {0, 0, slide, true, false, 4, 24, 24, T_KeenWorldWalk, NULL, R_Draw, &s_worldkeenwalk};\r
-\r
-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\r
-Sint16 worldanims[4] = {2, 3, 1, 3};\r
-#ifdef KEEN4\r
-Sint16 swimshapes[8] = {WORLDKEENSWIMU1SPR, WORLDKEENSWIMUR1SPR, WORLDKEENSWIMR1SPR, WORLDKEENSWIMDR1SPR, WORLDKEENSWIMD1SPR, WORLDKEENSWIMDL1SPR, WORLDKEENSWIML1SPR, WORLDKEENSWIMUL1SPR};\r
-#endif\r
-#ifndef KEEN6\r
-Sint16 tiledir[4] = {dir_South, dir_West, dir_North, dir_East};\r
-#endif\r
-\r
-/*\r
-======================\r
-=\r
-= SpawnWorldKeen\r
-=\r
-======================\r
-*/\r
-\r
-void SpawnWorldKeen(Sint16 x, Sint16 y)\r
-{\r
-#ifdef KEEN4\r
- if (playstate == ex_foot)\r
- {\r
- player->needtoclip = cl_noclip;\r
- player->obclass = keenobj;\r
- player->x = gamestate.worldx;\r
- player->y = gamestate.worldy;\r
- player->active = ac_allways;\r
- player->priority = 3;\r
- player->xdir = 0;\r
- player->ydir = 0;\r
- if (gamestate.worldx < 20*TILEGLOBAL)\r
- {\r
- player->temp1 = 280;\r
- player->xspeed = (30*TILEGLOBAL - player->x)/280 + 1;\r
- player->yspeed = (55*TILEGLOBAL - player->y)/280 + 1;\r
- }\r
- else\r
- {\r
- player->temp1 = 140;\r
- player->xspeed = (Sint16)(16*TILEGLOBAL - player->x)/140 + 1;\r
- player->yspeed = (Sint16)(47*TILEGLOBAL - player->y)/140 + 1;\r
- }\r
- NewState(player, &s_keenonfoot1);\r
- return;\r
- }\r
-#endif\r
-\r
- player->obclass = keenobj;\r
- if (gamestate.worldx == 0)\r
- {\r
- player->x = CONVERT_TILE_TO_GLOBAL(x);\r
- player->y = CONVERT_TILE_TO_GLOBAL(y);\r
- }\r
- else\r
- {\r
- player->x = gamestate.worldx;\r
- player->y = gamestate.worldy;\r
- }\r
- player->active = ac_allways;\r
- player->priority = 1;\r
- player->xdir = 0;\r
- player->ydir = 0;\r
- player->temp1 = dir_West;\r
- player->temp2 = 3;\r
- player->temp3 = 0;\r
- player->shapenum = WORLDKEENL3SPR;\r
- NewState(player, &s_worldkeen);\r
-}\r
-\r
-#ifdef KEEN5\r
-/*\r
-======================\r
-=\r
-= SpawnWorldKeenPort\r
-=\r
-======================\r
-*/\r
-\r
-void SpawnWorldKeenPort(Uint16 tileX, Uint16 tileY)\r
-{\r
- player->obclass = keenobj;\r
- player->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- player->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- player->active = ac_allways;\r
- player->priority = 1;\r
- player->xdir = 0;\r
- player->ydir = 0;\r
- player->temp1 = dir_West;\r
- player->temp2 = 3;\r
- player->temp3 = 0;\r
- player->shapenum = WORLDKEENL3SPR;\r
- NewState(player, &s_worldkeen);\r
-}\r
-#endif\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CheckEnterLevel\r
-=\r
-======================\r
-*/\r
-\r
-void CheckEnterLevel(objtype *ob)\r
-{\r
- Uint16 x, y, info;\r
-\r
- for (y = ob->tiletop; y <= ob->tilebottom; y++)\r
- {\r
- for (x = ob->tileleft; x <= ob->tileright; x++)\r
- {\r
- info = *(mapsegs[2]+mapbwidthtable[y]/2 + x);\r
- if (info > 0xC000 && info <= (0xC000 + 18))\r
- {\r
- gamestate.worldx = ob->x;\r
- gamestate.worldy = ob->y;\r
- gamestate.mapon = info - 0xC000;\r
- playstate = ex_completed;\r
- SD_PlaySound(SND_ENTERLEVEL);\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= T_KeenWorld\r
-=\r
-======================\r
-*/\r
-\r
-void T_KeenWorld(objtype *ob)\r
-{\r
- if (c.dir != dir_None)\r
- {\r
- ob->state = &s_worldkeenwalk;\r
- ob->temp2 = 0;\r
- T_KeenWorldWalk(ob);\r
- }\r
- if (jumpbutton || pogobutton || firebutton)\r
- {\r
- CheckEnterLevel(ob);\r
- }\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= T_KeenWorldWalk\r
-=\r
-======================\r
-*/\r
-\r
-void T_KeenWorldWalk(objtype *ob)\r
-{\r
- if (ob->temp3)\r
- {\r
- ob->temp3 -= 4;\r
- if (ob->temp3 < 0)\r
- ob->temp3 = 0;\r
- }\r
- else\r
- {\r
- ob->xdir = c.xaxis;\r
- ob->ydir = c.yaxis;\r
- if (pogobutton || firebutton || jumpbutton)\r
- {\r
- CheckEnterLevel(ob);\r
- }\r
- if (c.dir == dir_None)\r
- {\r
- ob->state = &s_worldkeen;\r
- ob->shapenum = worldshapes[ob->temp1] + 3;\r
- return;\r
- }\r
- ob->temp1 = c.dir;\r
- }\r
- if (++ob->temp2 == 4)\r
- ob->temp2 = 0;\r
- ob->shapenum = worldshapes[ob->temp1] + worldanims[ob->temp2];\r
-\r
- if (ob->temp2 == 1)\r
- {\r
- SD_PlaySound(SND_WORLDWALK1);\r
- }\r
- else if (ob->temp2 == 3)\r
- {\r
- SD_PlaySound(SND_WORLDWALK2);\r
- }\r
-}\r
-\r
-#ifdef KEEN4\r
-/*\r
-======================\r
-=\r
-= T_FootFly\r
-=\r
-======================\r
-*/\r
-\r
-void T_FootFly(objtype *ob)\r
-{\r
- ob->temp1 = ob->temp1 - tics;\r
- xtry = ob->xspeed * tics;\r
- ytry = ob->yspeed * tics;\r
- if (ob->temp1 <= 0)\r
- {\r
- xtry -= ob->xspeed * -ob->temp1;\r
- ytry -= ob->yspeed * -ob->temp1;\r
- ob->priority = 1;\r
- ob->temp1 = dir_West;\r
- ob->temp2 = 3;\r
- ob->temp3 = 0;\r
- player->xdir = 0;\r
- player->ydir = 0;\r
- ob->state = &s_worldkeen;\r
- ob->shapenum = WORLDKEENL3SPR;\r
- ob->needtoclip = cl_midclip;\r
- }\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= T_KeenWorldSwim\r
-=\r
-======================\r
-*/\r
-\r
-void T_KeenWorldSwim(objtype *ob)\r
-{\r
- if (ob->temp3)\r
- {\r
- ob->temp3 -= 6;\r
- if (ob->temp3 < 0)\r
- ob->temp3 = 0;\r
- }\r
- else\r
- {\r
- ob->xdir = c.xaxis;\r
- ob->ydir = c.yaxis;\r
- if (c.xaxis || c.yaxis)\r
- ob->temp1 = c.dir;\r
- }\r
- ob->shapenum = swimshapes[ob->temp1] + ob->temp2;\r
- if (++ob->temp2 == 2)\r
- ob->temp2 = 0;\r
-\r
- if (ob->temp2 == 0)\r
- {\r
- SD_PlaySound(SND_SWIM1);\r
- }\r
- else\r
- {\r
- SD_PlaySound(SND_SWIM2);\r
- }\r
-}\r
-\r
-#else // NOT Keen 4 (i.e. Keen 5 & 6):\r
-\r
-/*\r
-======================\r
-=\r
-= Teleport\r
-=\r
-======================\r
-*/\r
-\r
-void Teleport(Uint16 tileX, Uint16 tileY)\r
-{\r
- Uint16 tile, globalx, globaly, duration, move;\r
- objtype *o;\r
- objtype *ob = player;\r
-\r
- //\r
- // enter the teleporter\r
- //\r
- SD_PlaySound(SND_TELEPORT);\r
- globalx = CONVERT_TILE_TO_GLOBAL(tileX);\r
- globaly = CONVERT_TILE_TO_GLOBAL(tileY);\r
-\r
-#ifdef KEEN6Ev15\r
- // We need to make the compiler "forget" that duration starts at 0\r
- // to make sure the while-loop check is performed when entering the\r
- // loop. Can't change compiler settings since we do need that loop\r
- // optimization for the for-loop at the end of this routine.\r
- if (true)\r
- duration = 0;\r
-#else\r
- duration = 0;\r
-#endif\r
-\r
- while (duration < 130)\r
- {\r
- RF_Refresh();\r
- move = tics*2;\r
- duration += tics;\r
-\r
- if (ob->x == globalx && ob->y == globaly)\r
- break;\r
-\r
- if (ob->y < globaly)\r
- {\r
- ob->y += move;\r
- if (ob->y > globaly)\r
- ob->y = globaly;\r
- }\r
- else if (ob->y > globaly)\r
- {\r
- ob->y -= move;\r
- if (ob->y < globaly)\r
- ob->y = globaly;\r
- }\r
-\r
- if (ob->x < globalx)\r
- {\r
- ob->x += move;\r
- if (ob->x > globalx)\r
- ob->x = globalx;\r
- }\r
- else if (ob->x > globalx)\r
- {\r
- ob->x -= move;\r
- if (ob->x < globalx)\r
- ob->x = globalx;\r
- }\r
-\r
- ob->shapenum = ((TimeCount >> 3) % 3) + WORLDKEENU1SPR;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-\r
- tile = ((TimeCount >> 2) & TELEPORERTILEMASK) + TELEPORTERTILE1;\r
- RF_MemToMap(&tile, 1, tileX, tileY, 1, 1);\r
- }\r
-\r
- tile = TELEPORTERTILE2;\r
- RF_MemToMap(&tile, 1, tileX, tileY, 1, 1);\r
-\r
- //\r
- // teleport to new location\r
- //\r
- tile = *(mapsegs[2]+mapbwidthtable[tileY]/2 + tileX);\r
- tileX = tile >> 8;\r
- tileY = tile & 0x7F; // BUG? y coordinate is limited to 1..127\r
- ob->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- ob->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- ob->xdir = 0;\r
- ob->ydir = 1;\r
- ob->temp1 = dir_South;\r
- NewState(ob, ob->state);\r
- CenterActor(ob);\r
-\r
- //\r
- // draw flags/signs for new location\r
- //\r
- for (o=player->next; o; o=o->next)\r
- {\r
- if (!o->active && o->obclass == flagobj\r
- && o->tileright >= originxtile-1 && o->tileleft <= originxtilemax+1\r
- && o->tiletop <= originytilemax+1 && o->tilebottom >= originytile-1)\r
- {\r
- o->needtoreact = true;\r
- o->active = ac_yes;\r
- RF_PlaceSprite(&o->sprite, o->x, o->y, o->shapenum, spritedraw, o->priority);\r
- }\r
- }\r
- UpdateScore(scoreobj);\r
- RF_Refresh();\r
- RF_Refresh();\r
-\r
- //\r
- // leave teleporter\r
- //\r
- SD_PlaySound(SND_TELEPORT);\r
-\r
- for (duration = 0; duration < 90; )\r
- {\r
- RF_Refresh();\r
- duration += tics;\r
- ob->y += tics*2 + tics;\r
-\r
- ob->shapenum = ((TimeCount >> 3) % 3) + WORLDKEEND1SPR;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-\r
- tile = ((TimeCount >> 2) & TELEPORERTILEMASK) + TELEPORTERTILE3;\r
- RF_MemToMap(&tile, 1, tileX, tileY, 1, 1);\r
- }\r
-\r
- tile = TELEPORTERTILE4;\r
- RF_MemToMap(&tile, 1, tileX, tileY, 1, 1);\r
- xtry = ytry = 0;\r
- ClipToWalls(ob);\r
-}\r
-\r
-#ifdef KEEN5\r
-\r
-/*\r
-======================\r
-=\r
-= T_Elevate\r
-=\r
-======================\r
-*/\r
-\r
-void T_Elevate(objtype *ob)\r
-{\r
- Sint16 i, x, y, tx, ty;\r
- Uint16 tiles[2][2];\r
-\r
- ytry = ob->ydir * 64 * tics;\r
- if (ob->x != ob->temp2)\r
- {\r
- xtry = ob->xdir * 12 * tics;\r
- if ( (ob->xdir == 1 && ob->x + xtry > ob->temp2)\r
- || (ob->xdir == -1 && ob->x + xtry < ob->temp2) )\r
- {\r
- xtry = ob->temp2 - ob->x;\r
- }\r
- }\r
-\r
- //\r
- // Keen has no sprite in this state, so we need to update the hitbox manually\r
- // to avoid issues (the screen scrolling routines use left/right/top/bottom)\r
- //\r
- ob->left = ob->x + xtry;\r
- ob->right = ob->left + (TILEGLOBAL-1);\r
- ob->top = ob->y + ytry;\r
- ob->bottom = ob->top + (TILEGLOBAL-1);\r
-\r
- if (ob->ydir == 1)\r
- {\r
- if (ob->y + ytry < ob->temp1)\r
- return;\r
- }\r
- else\r
- {\r
- if (ob->y + ytry > ob->temp1)\r
- return;\r
- }\r
-\r
- //\r
- // the invisible Keen has arrived at its destination\r
- //\r
- ytry = 0;\r
- xtry = 0;\r
- ob->x = ob->temp2;\r
- ob->y = ob->temp1;\r
- ob->priority = 1;\r
- ob->temp1 = 4;\r
- ob->temp2 = 3;\r
- ob->temp3 = 0;\r
- player->xdir = 0;\r
- player->ydir = 0;\r
- ob->state = &s_worldkeen;\r
- ob->shapenum = WORLDKEEND3SPR;\r
- ob->needtoclip = cl_midclip;\r
- tx = CONVERT_GLOBAL_TO_TILE(ob->x);\r
- ty = CONVERT_GLOBAL_TO_TILE(ob->y);\r
- WorldScrollScreen(ob);\r
- UpdateScore(scoreobj);\r
- RF_Refresh();\r
- RF_Refresh();\r
-\r
- ob->y -= TILEGLOBAL;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-\r
- //\r
- // open the elevator door\r
- //\r
- SD_PlaySound(SND_ELEVATORDOOR);\r
- for (i=0; i<=5; i++)\r
- {\r
- for (y=0; y<2; y++)\r
- {\r
- for (x=0; x<2; x++)\r
- {\r
- tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + i*2 + x);\r
- }\r
- }\r
- RF_MemToMap(&tiles[0][0], 1, tx, ty-2, 2, 2);\r
- RF_Refresh();\r
- VW_WaitVBL(8);\r
- }\r
-\r
- //\r
- // make Keen walk out of the elevator\r
- //\r
- for (y=0; y<32; y++)\r
- {\r
- ob->y += 8; // move half a pixel every frame for 32 frames -> move down 16 pixels total\r
- ob->shapenum = (y / 4) % 3 + WORLDKEEND1SPR;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- RF_Refresh();\r
- }\r
- ob->needtoclip = cl_midclip; // redundant, but doesn't do any harm\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= Elevator\r
-=\r
-======================\r
-*/\r
-\r
-void Elevator(Uint16 tileX, Uint16 tileY, Sint16 dir)\r
-{\r
- Uint16 info, globalx, globaly, duration, move;\r
- Sint16 x, y, i;\r
- Uint16 tiles[2][2];\r
- objtype *ob = player;\r
-\r
- globalx = CONVERT_TILE_TO_GLOBAL(tileX);\r
- globaly = CONVERT_TILE_TO_GLOBAL(tileY);\r
-\r
- //\r
- // make Keen walk into the elevator\r
- //\r
- for (duration = 0; duration < 130; )\r
- {\r
- CalcBounds(ob);\r
- WorldScrollScreen(ob);\r
- UpdateScore(scoreobj);\r
- RF_Refresh();\r
-\r
- move = tics * 2;\r
- duration += tics;\r
-\r
- if (ob->x == globalx && ob->y == globaly)\r
- break;\r
-\r
- if (ob->y < globaly)\r
- {\r
- ob->y += move;\r
- if (ob->y > globaly)\r
- ob->y = globaly;\r
- }\r
- else if (ob->y > globaly)\r
- {\r
- ob->y -= move;\r
- if (ob->y < globaly)\r
- ob->y = globaly;\r
- }\r
-\r
- if (ob->x < globalx)\r
- {\r
- ob->x += move;\r
- if (ob->x > globalx)\r
- ob->x = globalx;\r
- }\r
- else if (ob->x > globalx)\r
- {\r
- ob->x -= move;\r
- if (ob->x < globalx)\r
- ob->x = globalx;\r
- }\r
-\r
- ob->shapenum = ((duration / 8) % 3) + WORLDKEENU1SPR;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- }\r
-\r
- //\r
- // close the elevator door\r
- //\r
- SD_PlaySound(SND_ELEVATORDOOR);\r
- for (i=5; i >= 0; i--)\r
- {\r
- for (y=0; y<2; y++)\r
- {\r
- for (x=0; x<2; x++)\r
- {\r
- tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + i*2 + x);\r
- }\r
- }\r
- RF_MemToMap(&tiles[0][0], 1, tileX+dir, tileY-1, 2, 2);\r
- RF_Refresh();\r
- VW_WaitVBL(8);\r
- }\r
-\r
- //\r
- // make Keen invisible (and not clipping) and send him to the destination\r
- //\r
- RF_RemoveSprite(&ob->sprite);\r
- info = *(mapsegs[2] + mapbwidthtable[tileY]/2 + tileX);\r
- ob->temp2 = CONVERT_TILE_TO_GLOBAL(info >> 8);\r
- ob->temp1 = CONVERT_TILE_TO_GLOBAL((info & 0x7F) + 1); // BUG? y coordinate is limited to 1..127\r
- if (ob->temp1 < ob->y)\r
- {\r
- ob->ydir = -1;\r
- }\r
- else\r
- {\r
- ob->ydir = 1;\r
- }\r
- if (ob->temp2 < ob->x)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
- ob->needtoclip = cl_noclip;\r
- ob->state = &s_worldelevate;\r
-}\r
-\r
-#endif //ifdef KEEN5\r
-\r
-#endif //ifdef KEEN4 ... else ...\r
-\r
-/*\r
-======================\r
-=\r
-= CheckWorldInTiles\r
-=\r
-======================\r
-*/\r
-\r
-void CheckWorldInTiles(objtype *ob)\r
-{\r
- Uint16 tx, ty, intile;\r
-\r
- if (ob->temp3)\r
- return;\r
-\r
- tx = ob->tilemidx;\r
- ty = CONVERT_GLOBAL_TO_TILE(ob->top + (ob->bottom-ob->top)/2);\r
- intile = tinf[INTILE + *(mapsegs[1]+mapbwidthtable[ty]/2+tx)];\r
-#if defined KEEN4\r
- if (intile == INTILE_SHORESOUTH || intile == INTILE_SHORENORTH\r
- || intile == INTILE_SHOREEAST || intile == INTILE_SHOREWEST)\r
- {\r
- if (!gamestate.wetsuit)\r
- {\r
- SD_PlaySound(SND_NOWAY);\r
- CantSwim();\r
- RF_ForceRefresh();\r
- xtry = -ob->xmove;\r
- ytry = -ob->ymove;\r
- ob->xdir = ob->ydir = 0;\r
- ClipToWalls(ob);\r
- }\r
- else\r
- {\r
- ob->temp1 = tiledir[intile-INTILE_SHORESOUTH];\r
- if (ob->state == &s_worldswim)\r
- {\r
- ob->temp1 = opposite[ob->temp1];\r
- }\r
- switch (ob->temp1)\r
- {\r
- case dir_North:\r
- ob->xdir = 0;\r
- ob->ydir = -1;\r
- break;\r
- case dir_East:\r
- ob->xdir = 1;\r
- ob->ydir = 0;\r
- break;\r
- case dir_South:\r
- ob->xdir = 0;\r
- ob->ydir = 1;\r
- break;\r
- case dir_West:\r
- ob->xdir = -1;\r
- ob->ydir = 0;\r
- break;\r
- }\r
- ob->temp2 = 0;\r
- ob->temp3 = 18;\r
- if (ob->state == &s_worldswim)\r
- {\r
- ChangeState(ob, &s_worldkeenwalk);\r
- }\r
- else\r
- {\r
- ChangeState(ob, &s_worldswim);\r
- }\r
- }\r
- }\r
-#elif defined KEEN5\r
- switch (intile)\r
- {\r
- case INTILE_TELEPORT:\r
- Teleport(tx, ty);\r
- break;\r
- case INTILE_ELEVATORLEFT:\r
- Elevator(tx, ty, 0);\r
- break;\r
- case INTILE_ELEVATORRIGHT:\r
- Elevator(tx, ty, -1);\r
- break;\r
- }\r
-#elif defined KEEN6\r
- switch (intile)\r
- {\r
- case INTILE_TELEPORT:\r
- Teleport(tx, ty);\r
- break;\r
- }\r
-#endif\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- FLAGS\r
-\r
-temp1 = x destination for the thrown flag\r
-temp2 = y destination for the thrown flag\r
-temp3 = amount of time passed since flag was thrown (in tics)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_flagwave1 = {FLAGFLAP1SPR, FLAGFLAP1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave2};\r
-statetype s_flagwave2 = {FLAGFLAP2SPR, FLAGFLAP2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave3};\r
-statetype s_flagwave3 = {FLAGFLAP3SPR, FLAGFLAP3SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave4};\r
-statetype s_flagwave4 = {FLAGFLAP4SPR, FLAGFLAP4SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave1};\r
-\r
-#ifndef KEEN5\r
-statetype s_throwflag0 = {FLAGFLIP1SPR, FLAGFLIP1SPR, think, false, false, 6, 0, 0, TossThink, NULL, R_Draw, &s_throwflag1};\r
-statetype s_throwflag1 = {FLAGFLIP1SPR, FLAGFLIP1SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag2};\r
-statetype s_throwflag2 = {FLAGFLIP2SPR, FLAGFLIP2SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag3};\r
-statetype s_throwflag3 = {FLAGFLIP3SPR, FLAGFLIP3SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag4};\r
-statetype s_throwflag4 = {FLAGFLIP4SPR, FLAGFLIP4SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag5};\r
-statetype s_throwflag5 = {FLAGFALL1SPR, FLAGFALL1SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag6};\r
-statetype s_throwflag6 = {FLAGFALL1SPR, FLAGFALL1SPR, stepthink, true, false, 1, 0, 0, FlagAlign, NULL, R_Draw, &s_flagwave1};\r
-#endif\r
-\r
-Sint16 flagx, flagy;\r
-Point flagpath[30];\r
-\r
-/*\r
-======================\r
-=\r
-= SpawnFlag\r
-=\r
-======================\r
-*/\r
-\r
-void SpawnFlag(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 3;\r
- new->obclass = flagobj;\r
- new->active = ac_yes;\r
-#if defined KEEN4\r
- new->x = CONVERT_TILE_TO_GLOBAL(x) + 6*PIXGLOBAL;\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) + -30*PIXGLOBAL;\r
-#elif defined KEEN5\r
- new->x = CONVERT_TILE_TO_GLOBAL(x) + -5*PIXGLOBAL;\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) + -30*PIXGLOBAL;\r
-#elif defined KEEN6\r
- new->x = CONVERT_TILE_TO_GLOBAL(x) + 6*PIXGLOBAL; // useless!\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) + -30*PIXGLOBAL; // useless!\r
-#if GRMODE == CGAGR\r
- new->x = CONVERT_TILE_TO_GLOBAL(x) + 10*PIXGLOBAL;\r
-#else\r
- new->x = CONVERT_TILE_TO_GLOBAL(x) + 14*PIXGLOBAL;\r
-#endif\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) + -26*PIXGLOBAL;\r
- {\r
- Uint16 tile = *(mapsegs[1]+mapbwidthtable[y]/2 + x) + 1;\r
- RF_MemToMap(&tile, 1, x, y, 1, 1);\r
- }\r
-#endif\r
- new->ticcount = US_RndT() / 16;\r
- NewState(new, &s_flagwave1);\r
-}\r
-\r
-#ifndef KEEN5\r
-/*\r
-======================\r
-=\r
-= SpawnThrowFlag\r
-=\r
-======================\r
-*/\r
-\r
-void SpawnThrowFlag(Sint16 x, Sint16 y)\r
-{\r
- Sint16 i;\r
- Sint32 xdist, ydist;\r
-\r
- GetNewObj(false);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 3;\r
- new->obclass = flagobj;\r
- new->active = ac_allways;\r
- new->x = gamestate.worldx - 16*PIXGLOBAL;\r
- new->y = gamestate.worldy - 16*PIXGLOBAL;\r
-#if defined KEEN4\r
- new->temp1 = CONVERT_TILE_TO_GLOBAL(x) + 6*PIXGLOBAL;\r
- new->temp2 = CONVERT_TILE_TO_GLOBAL(y) + -38*PIXGLOBAL;\r
-#elif defined KEEN6\r
- flagx = x;\r
- flagy = y;\r
-#if GRMODE == CGAGR\r
- new->temp1 = CONVERT_TILE_TO_GLOBAL(x) + 10*PIXGLOBAL;\r
-#else\r
- new->temp1 = CONVERT_TILE_TO_GLOBAL(x) + 14*PIXGLOBAL;\r
-#endif\r
- new->temp2 = CONVERT_TILE_TO_GLOBAL(y) + -34*PIXGLOBAL;\r
-#endif\r
- xdist = (Sint32)new->temp1 - (Sint32)new->x;\r
- ydist = (Sint32)new->temp2 - (Sint32)new->y;\r
- for (i = 0; i < 30; i++)\r
- {\r
- flagpath[i].x = new->x + (xdist * min(i, 24))/24;\r
- flagpath[i].y = new->y + (ydist * i)/30;\r
- if (i < 10)\r
- {\r
- flagpath[i].y -= i*3*PIXGLOBAL;\r
- }\r
- else if (i < 15)\r
- {\r
- flagpath[i].y -= i*PIXGLOBAL + 20*PIXGLOBAL;\r
- }\r
- else if (i < 20)\r
- {\r
- flagpath[i].y -= (20-i)*PIXGLOBAL + 30*PIXGLOBAL;\r
- }\r
- else\r
- {\r
- flagpath[i].y -= (29-i)*3*PIXGLOBAL;\r
- }\r
- }\r
- NewState(new, &s_throwflag0);\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= TossThink\r
-=\r
-======================\r
-*/\r
-\r
-void TossThink(objtype *ob)\r
-{\r
- if (screenfaded)\r
- return;\r
-\r
- SD_StopSound();\r
- SD_PlaySound(SND_FLAGSPIN);\r
- ob->state = ob->state->nextstate;\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= PathThink\r
-=\r
-======================\r
-*/\r
-\r
-void PathThink(objtype *ob)\r
-{\r
- ob->temp3 = ob->temp3 + tics;\r
- if (ob->temp3 > 58)\r
- ob->temp3 = 58;\r
-\r
- ob->x = flagpath[ob->temp3/2].x;\r
- ob->y = flagpath[ob->temp3/2].y;\r
- ob->needtoreact = true;\r
- if (ob->temp1 == 0)\r
- {\r
- SD_PlaySound(SND_FLAGSPIN);\r
- }\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= FlagAlign\r
-=\r
-======================\r
-*/\r
-\r
-void FlagAlign(objtype *ob)\r
-{\r
- ob->x = ob->temp1;\r
- ob->y = ob->temp2 + 8*PIXGLOBAL;\r
- SD_PlaySound(SND_FLAGLAND);\r
-#ifdef KEEN6\r
- {\r
- Uint16 tile = *(mapsegs[1]+mapbwidthtable[flagy]/2 + flagx) + 1;\r
- RF_MemToMap(&tile, 1, flagx, flagy, 1, 1);\r
- }\r
-#endif\r
-}\r
-#endif\r
-\r
-/*\r
-=============================================================================\r
-\r
- NEURAL STUNNER\r
-\r
-=============================================================================\r
-*/\r
-statetype s_stunray1 = {STUN1SPR, STUN1SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray2};\r
-statetype s_stunray2 = {STUN2SPR, STUN2SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray3};\r
-statetype s_stunray3 = {STUN3SPR, STUN3SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray4};\r
-statetype s_stunray4 = {STUN4SPR, STUN4SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray1};\r
-\r
-statetype s_stunhit = {STUNHIT1SPR, STUNHIT1SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_stunhit2};\r
-statetype s_stunhit2 = {STUNHIT2SPR, STUNHIT2SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-======================\r
-=\r
-= SpawnShot\r
-=\r
-======================\r
-*/\r
-\r
-void SpawnShot(Uint16 x, Uint16 y, Direction dir)\r
-{\r
- if (!gamestate.ammo)\r
- {\r
- SD_PlaySound(SND_USESWITCH);\r
- return;\r
- }\r
-\r
- gamestate.ammo--;\r
- GetNewObj(true);\r
- new->x = x;\r
- new->y = y;\r
- new->priority = 0;\r
- new->obclass = stunshotobj;\r
- new->active = ac_allways;\r
- SD_PlaySound(SND_KEENFIRE);\r
- switch (dir)\r
- {\r
- case dir_North:\r
- new->xdir = 0;\r
- new->ydir = -1;\r
- break;\r
- case dir_East:\r
- new->xdir = 1;\r
- new->ydir = 0;\r
- break;\r
- case dir_South:\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- break;\r
- case dir_West:\r
- new->xdir = -1;\r
- new->ydir = 0;\r
- break;\r
- default:\r
- Quit("SpawnShot: Bad dir!");\r
- break;\r
- }\r
- NewState(new, &s_stunray1);\r
-\r
-#ifdef KEEN6\r
- {\r
- objtype *ob;\r
-\r
- for (ob=player->next; ob; ob=ob->next)\r
- {\r
- if (ob->active\r
- && new->right > ob->left && new->left < ob->right\r
- && new->top < ob->bottom && new->bottom > ob->top\r
- && ob->state->contact)\r
- {\r
- ob->state->contact(ob, new);\r
- return;\r
- }\r
- }\r
- }\r
-#endif\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= ExplodeShot\r
-=\r
-======================\r
-*/\r
-\r
-void ExplodeShot(objtype *ob)\r
-{\r
- ob->obclass = inertobj;\r
- ChangeState(ob, &s_stunhit);\r
- SD_PlaySound(SND_SHOTEXPLODE);\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= T_Shot\r
-=\r
-======================\r
-*/\r
-\r
-void T_Shot(objtype *ob)\r
-{\r
- objtype *ob2;\r
-\r
- if (ob->tileright >= originxtile && ob->tilebottom >= originytile\r
- && ob->tileleft <= originxtilemax && ob->tiletop <= originytilemax)\r
- {\r
- //object is visible, so do nothing\r
- return;\r
- }\r
-\r
- if (ob->tileright+10 < originxtile\r
- || ob->tileleft-10 > originxtilemax\r
- || ob->tilebottom+6 < originytile\r
- || ob->tiletop-6 > originytilemax)\r
- {\r
- //shot is off-screen by more than half a screen, so remove it\r
- RemoveObj(ob);\r
- return;\r
- }\r
-\r
- //check for collisions with INACTIVE objects\r
- for (ob2 = player->next; ob2; ob2 = ob2->next)\r
- {\r
- if (!ob2->active && ob->right > ob2->left && ob->left < ob2->right\r
- && ob->top < ob2->bottom && ob->bottom > ob2->top)\r
- {\r
- if (ob2->state->contact)\r
- {\r
- ob2->state->contact(ob2, ob);\r
- ob2->needtoreact = true;\r
- ob2->active = ac_yes;\r
- }\r
-\r
- if (ob->obclass == nothing) //BUG: obclass is 'inertobj' for the exploded shot\r
- break;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= R_Shot\r
-=\r
-======================\r
-*/\r
-\r
-void R_Shot(objtype *ob)\r
-{\r
- Uint16 tile;\r
-\r
- if (ob->hitnorth == 1 && ob->tileleft != ob->tileright)\r
- {\r
- tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop-1]/2+ob->tileright);\r
- if (tinf[NORTHWALL+tile] == 17)\r
- {\r
- ob->hitnorth = 17;\r
- ob->x += 0x100 - (ob->x & 0xFF);\r
- }\r
- }\r
- else if (ob->hitnorth == 17 && ob->tileleft != ob->tileright)\r
- {\r
- ob->x &= 0xFF00;\r
- }\r
- if (ob->hitsouth == 1 && ob->tileleft != ob->tileright)\r
- {\r
- tile = *(mapsegs[1]+mapbwidthtable[ob->tilebottom+1]/2+ob->tileright);\r
- if (tinf[SOUTHWALL+tile] == 17)\r
- {\r
- ob->hitsouth = 17;\r
- ob->x += 0x100 - (ob->x & 0xFF);\r
- }\r
- }\r
- else if (ob->hitsouth == 17 && ob->tileleft != ob->tileright)\r
- {\r
- ob->x &= 0xFF00;\r
- }\r
- if (ob->hitnorth == 17 || ob->hitsouth == 17)\r
- {\r
- ytry = ob->state->ymove * tics * ob->ydir;\r
- ob->y += ytry;\r
- ob->top += ytry;\r
- ob->bottom += ytry;\r
- ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top);\r
- ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom);\r
- }\r
- else if (ob->hitnorth || ob->hitsouth || ob->hiteast || ob->hitwest)\r
- {\r
- ExplodeShot(ob);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- DOOR\r
-\r
-temp1 = height of the door's main section (identical tiles!), in tiles\r
- DoorOpen changes two more tiles at the bottom end of the door\r
- (total door height in tiles is temp1 + 2)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_door1 = {0, 0, step, false, false, 10, 0, 0, DoorOpen, NULL, NULL, &s_door2};\r
-statetype s_door2 = {0, 0, step, false, false, 10, 0, 0, DoorOpen, NULL, NULL, &s_door3};\r
-statetype s_door3 = {0, 0, step, false, false, 10, 0, 0, DoorOpen, NULL, NULL, NULL};\r
-\r
-/*\r
-======================\r
-=\r
-= DoorOpen\r
-=\r
-======================\r
-*/\r
-\r
-void DoorOpen(objtype *ob)\r
-{\r
- Sint16 i;\r
- Uint16 far *map;\r
- Uint16 tiles[50];\r
-\r
- map = mapsegs[1] + mapbwidthtable[ob->y]/2 + ob->x;\r
- for (i=0; i < ob->temp1+2; i++, map+=mapwidth)\r
- {\r
- tiles[i] = *map + 1;\r
- }\r
- RF_MemToMap(tiles, 1, ob->x, ob->y, 1, ob->temp1+2);\r
-}\r
-\r
-#ifdef KEEN5\r
-/*\r
-=============================================================================\r
-\r
- CARD DOOR\r
-\r
-temp1 = frame counter\r
-\r
-=============================================================================\r
-*/\r
-statetype s_carddoor = {0, 0, step, false, false, 15, 0, 0, CardDoorOpen, NULL, NULL, &s_carddoor};\r
-\r
-/*\r
-======================\r
-=\r
-= CardDoorOpen\r
-=\r
-======================\r
-*/\r
-\r
-void CardDoorOpen(objtype *ob)\r
-{\r
- Sint16 x, y;\r
- Uint16 far *map;\r
- Uint16 tiles[16], *tileptr;\r
-\r
- tileptr = tiles;\r
- map = mapsegs[1] + mapbwidthtable[ob->y]/2 + ob->x;\r
- for (y=0; y<4; y++, map+=mapwidth)\r
- {\r
- for (x=0; x<4; x++)\r
- {\r
- *tileptr++ = map[x]-4;\r
- }\r
- }\r
- RF_MemToMap(tiles, 1, ob->x, ob->y, 4, 4);\r
-\r
- if (++ob->temp1 == 3)\r
- ob->state = NULL;\r
-}\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// CK_MAIN.C\r
-/*\r
-=============================================================================\r
-\r
- COMMANDER KEEN\r
-\r
- An Id Software production\r
-\r
-=============================================================================\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-boolean tedlevel;\r
-Uint16 tedlevelnum;\r
-\r
-char str[80], str2[20];\r
-boolean storedemo, jerk;\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= SizeText\r
-=\r
-= Calculates width and height of a string that contains line breaks\r
-= (Note: only the height is ever used, width is NOT calculated correctly)\r
-=\r
-=====================\r
-*/\r
-\r
-void SizeText(char *text, Uint16 *width, Uint16 *height)\r
-{\r
- register char *ptr;\r
- char c;\r
- Uint16 w, h;\r
- char strbuf[80];\r
-\r
- *width = *height = 0;\r
- ptr = &strbuf[0];\r
- while ((c=*(text++)) != '\0')\r
- {\r
- *(ptr++) = c;\r
- if (c == '\n' || !*text)\r
- {\r
- USL_MeasureString(strbuf, &w, &h); // BUG: strbuf may not have a terminating '\0' at the end!\r
- *height += h;\r
- if (*width < w)\r
- {\r
- *width = w;\r
- }\r
- ptr = &strbuf[0];\r
- }\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==========================\r
-=\r
-= ShutdownId\r
-=\r
-= Shuts down all ID_?? managers\r
-=\r
-==========================\r
-*/\r
-\r
-void ShutdownId(void)\r
-{\r
- US_Shutdown();\r
- SD_Shutdown();\r
- IN_Shutdown();\r
- RF_Shutdown();\r
- VW_Shutdown();\r
- CA_Shutdown();\r
- MM_Shutdown();\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==========================\r
-=\r
-= InitGame\r
-=\r
-= Load a few things right away\r
-=\r
-==========================\r
-*/\r
-\r
-void InitGame(void)\r
-{\r
- static char *ParmStrings[] = {"JERK", ""};\r
- void MML_UseSpace (Uint16 segstart, Uint16 seglength);\r
-\r
- Uint16 segstart,seglength;\r
- Sint16 i;\r
-\r
- // Note: The value of the jerk variable is replaced with the value\r
- // read from the config file during US_Startup, which means the\r
- // JERK parameter has absolutely no effect if a valid config file\r
- // exists. The parameter check should be moved to some place after\r
- // US_Startup to make it work reliably.\r
- \r
- for (i=1; i < _argc; i++)\r
- {\r
- if (US_CheckParm(_argv[i], ParmStrings) == 0)\r
- {\r
- jerk = true;\r
- }\r
- }\r
-\r
- US_TextScreen();\r
-\r
- MM_Startup();\r
- VW_Startup();\r
- RF_Startup();\r
- IN_Startup();\r
- SD_Startup();\r
- US_Startup();\r
-\r
- US_UpdateTextScreen();\r
-\r
- CA_Startup();\r
- US_Setup();\r
-\r
- US_SetLoadSaveHooks(&LoadTheGame, &SaveTheGame, &ResetGame);\r
- drawcachebox = DialogDraw;\r
- updatecachebox = DialogUpdate;\r
- finishcachebox = DialogFinish;\r
-\r
-//\r
-// load in and lock down some basic chunks\r
-//\r
-\r
- CA_ClearMarks();\r
-\r
- CA_MarkGrChunk(STARTFONT);\r
- CA_MarkGrChunk(STARTTILE8);\r
- CA_MarkGrChunk(STARTTILE8M);\r
-#if GRMODE == EGAGR\r
- CA_MarkGrChunk(CORDPICM);\r
- CA_MarkGrChunk(METALPOLEPICM);\r
-#endif\r
-\r
- CA_CacheMarks(NULL);\r
-\r
- MM_SetLock(&grsegs[STARTFONT], true);\r
- MM_SetLock(&grsegs[STARTTILE8], true);\r
- MM_SetLock(&grsegs[STARTTILE8M], true);\r
-#if GRMODE == EGAGR\r
- MM_SetLock(&grsegs[CORDPICM], true);\r
- MM_SetLock(&grsegs[METALPOLEPICM], true);\r
-#endif\r
-\r
- fontcolor = WHITE;\r
-\r
- US_FinishTextScreen();\r
-\r
-//\r
-// reclaim the memory from the linked in text screen\r
-//\r
- segstart = FP_SEG(&introscn);\r
- seglength = 4000/16;\r
- if (FP_OFF(&introscn))\r
- {\r
- segstart++;\r
- seglength--;\r
- }\r
- MML_UseSpace (segstart,seglength);\r
-\r
- VW_SetScreenMode(GRMODE);\r
-#if GRMODE == CGAGR\r
- VW_ColorBorder(BROWN);\r
-#else\r
- VW_ColorBorder(CYAN);\r
-#endif\r
- VW_ClearVideo(BLACK);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==========================\r
-=\r
-= Quit\r
-=\r
-==========================\r
-*/\r
-\r
-void Quit(char *error)\r
-{\r
- Uint16 finscreen;\r
-\r
- if (!error)\r
- {\r
- CA_SetAllPurge();\r
- CA_CacheGrChunk(ORDERSCREEN);\r
- finscreen = (Uint16)grsegs[ORDERSCREEN];\r
- }\r
-\r
- // BUG: VW_ClearVideo may brick the system if screenseg is 0\r
- // (i.e. VW_SetScreenMode has not been executed) - this may\r
- // happen if the code runs into an error during InitGame\r
- // (EMS/XMS errors, files not found etc.)\r
- VW_ClearVideo(BLACK);\r
- VW_SetLineWidth(40);\r
-\r
- ShutdownId();\r
- if (error && *error)\r
- {\r
- puts(error);\r
- if (tedlevel)\r
- {\r
- getch();\r
- execlp("TED5.EXE", "TED5.EXE", "/LAUNCH", NULL);\r
- }\r
- else if (US_ParmPresent("windows"))\r
- {\r
- bioskey(0);\r
- }\r
- exit(1);\r
- }\r
-\r
- if (!NoWait)\r
- {\r
- movedata(finscreen, 7, 0xB800, 0, 4000);\r
- gotoxy(1, 24);\r
- if (US_ParmPresent("windows"))\r
- {\r
- bioskey(0);\r
- }\r
- }\r
-\r
- exit(0);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==================\r
-=\r
-= TEDDeath\r
-=\r
-==================\r
-*/\r
-\r
-void TEDDeath(void)\r
-{\r
- ShutdownId();\r
- execlp("TED5.EXE", "TED5.EXE", "/LAUNCH", NULL);\r
- // BUG: should call exit(1); here in case starting TED5 fails\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==================\r
-=\r
-= CheckMemory\r
-=\r
-==================\r
-*/\r
-\r
-void CheckMemory(void)\r
-{\r
- Uint16 finscreen;\r
-\r
- if (mminfo.nearheap+mminfo.farheap+mminfo.EMSmem+mminfo.XMSmem >= MINMEMORY)\r
- return;\r
-\r
- CA_CacheGrChunk (OUTOFMEM);\r
- finscreen = (Uint16)grsegs[OUTOFMEM];\r
- ShutdownId();\r
- movedata (finscreen,7,0xb800,0,4000);\r
- gotoxy (1,24);\r
- exit(1);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= DemoLoop\r
-=\r
-=====================\r
-*/\r
-\r
-void DemoLoop(void)\r
-{\r
- static char *ParmStrings[] = {"easy", "normal", "hard", ""};\r
-\r
- register Sint16 i, state;\r
- Sint16 level;\r
-\r
-//\r
-// check for launch from ted\r
-//\r
- if (tedlevel)\r
- {\r
- NewGame();\r
- CA_LoadAllSounds();\r
- gamestate.mapon = tedlevelnum;\r
- restartgame = gd_Normal;\r
- for (i = 1;i < _argc;i++)\r
- {\r
- if ( (level = US_CheckParm(_argv[i],ParmStrings)) == -1)\r
- continue;\r
-\r
- restartgame = level+gd_Easy;\r
- break;\r
- }\r
- GameLoop();\r
- TEDDeath();\r
- }\r
-\r
-//\r
-// demo loop\r
-//\r
- state = 0;\r
- playstate = ex_stillplaying;\r
- while (1)\r
- {\r
- switch (state++)\r
- {\r
- case 0:\r
-#if GRMODE == CGAGR\r
- ShowTitle();\r
-#else\r
- if (nopan)\r
- {\r
- ShowTitle();\r
- }\r
- else\r
- {\r
- Terminator();\r
- }\r
-#endif\r
- break;\r
-\r
- case 1:\r
- RunDemo(0);\r
- break;\r
-\r
- case 2:\r
-#if GRMODE == CGAGR\r
- ShowCredits();\r
-#else\r
- StarWars();\r
-#endif\r
- break;\r
-\r
- case 3:\r
- RunDemo(1);\r
- break;\r
-\r
- case 4:\r
- ShowHighScores();\r
- break;\r
-\r
- case 5:\r
- RunDemo(2);\r
- break;\r
-\r
- case 6:\r
- state = 0;\r
- RunDemo(3);\r
- break;\r
- }\r
-\r
- while (playstate == ex_resetgame || playstate == ex_loadedgame)\r
- {\r
- GameLoop();\r
- ShowHighScores();\r
- if (playstate == ex_resetgame || playstate == ex_loadedgame)\r
- {\r
- continue; // don't show title screen, go directly to GameLoop();\r
- }\r
- ShowTitle();\r
- ///////////////\r
- // this is completely useless:\r
- if (playstate == ex_resetgame || playstate == ex_loadedgame)\r
- {\r
- continue;\r
- }\r
- ///////////////\r
- }\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-#if (GRMODE == EGAGR) && !(defined KEEN6)\r
-/*\r
-=====================\r
-=\r
-= CheckCutFile\r
-=\r
-=====================\r
-*/\r
-\r
-#define FILE_GR1 GREXT"1."EXTENSION\r
-#define FILE_GR2 GREXT"2."EXTENSION\r
-#define FILE_GRAPH GREXT"GRAPH."EXTENSION\r
-\r
-static void CheckCutFile(void)\r
-{\r
- register Sint16 ohandle, ihandle;\r
- Sint16 handle;\r
- Sint32 size;\r
- void far *buffer;\r
-\r
- if ( (handle = open(FILE_GRAPH, O_BINARY|O_RDONLY)) != -1)\r
- {\r
- close(handle);\r
- return;\r
- }\r
- puts("Combining "FILE_GR1" and "FILE_GR2" into "FILE_GRAPH"...");\r
- if (rename(FILE_GR1, FILE_GRAPH) == -1)\r
- {\r
- puts("Can't rename "FILE_GR1"!");\r
- exit(1);\r
- }\r
- if ( (ohandle = open(FILE_GRAPH, O_BINARY|O_APPEND|O_WRONLY)) == -1)\r
- {\r
- puts("Can't open "FILE_GRAPH"!");\r
- exit(1);\r
- }\r
- lseek(ohandle, 0, SEEK_END);\r
- if ( (ihandle = open(FILE_GR2, O_BINARY|O_RDONLY)) == -1)\r
- {\r
- puts("Can't find "FILE_GR2"!");\r
- exit(1);\r
- }\r
- size = filelength(ihandle);\r
- buffer = farmalloc(32000);\r
- while (size)\r
- {\r
- if (size > 32000)\r
- {\r
- CA_FarRead(ihandle, buffer, 32000);\r
- CA_FarWrite(ohandle, buffer, 32000);\r
- size -= 32000;\r
- }\r
- else\r
- {\r
- CA_FarRead(ihandle, buffer, size);\r
- CA_FarWrite(ohandle, buffer, size);\r
- size = 0;\r
- }\r
- }\r
- farfree(buffer);\r
- close(ohandle);\r
- close(ihandle);\r
- unlink(FILE_GR2);\r
-}\r
-#endif\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-==========================\r
-=\r
-= main\r
-=\r
-==========================\r
-*/\r
-\r
-void main(void)\r
-{\r
-#if (GRMODE == EGAGR) && !(defined KEEN6)\r
- CheckCutFile();\r
-#endif\r
-\r
- if (US_ParmPresent("DEMO"))\r
- storedemo = true;\r
-\r
- if (US_ParmPresent("JOYPAD"))\r
- joypad = true; // Note: the joypad variable is never used\r
- \r
- InitGame();\r
- CheckMemory();\r
- if (NoWait || tedlevel)\r
- debugok = true;\r
-\r
- DemoLoop();\r
- Quit("Demo loop exited???");\r
-}
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-ScanCode firescan = sc_Space;\r
-\r
-boolean singlestep, jumpcheat, godmode, keenkilled;\r
-\r
-exittype playstate;\r
-gametype gamestate;\r
-\r
-objtype *new, *check, *player, *scoreobj;\r
-\r
-Uint16 originxtilemax;\r
-Uint16 originytilemax;\r
-\r
-ControlInfo c;\r
-boolean button2, button3; // never used\r
-\r
-objtype dummyobj;\r
-\r
-Sint16 invincible;\r
-\r
-boolean oldshooting, showscorebox, joypad;\r
-\r
-Sint16 groundslam;\r
-\r
-boolean debugok;\r
-boolean jumpbutton, jumpheld, pogobutton, pogoheld, firebutton, fireheld, upheld;\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-objtype *obj;\r
-\r
-Uint16 centerlevel;\r
-\r
-Uint16 objectcount;\r
-objtype objarray[MAXACTORS];\r
-objtype *lastobj;\r
-objtype *objfreelist;\r
-\r
-Sint16 inactivateleft;\r
-Sint16 inactivateright;\r
-Sint16 inactivatetop;\r
-Sint16 inactivatebottom;\r
-\r
-#ifdef KEEN6Ev15\r
-Uint16 __dummy__; // never used, but must be present to recreate the original EXE\r
-#endif\r
-\r
-Uint16 extravbls;\r
-\r
-Uint16 windowofs;\r
-Sint16 vislines;\r
-boolean scrollup;\r
-\r
-Sint16 oldfirecount;\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==================\r
-=\r
-= CountObjects\r
-=\r
-==================\r
-*/\r
-\r
-void CountObjects(void)\r
-{\r
- Uint16 activeobjects, inactiveobjects;\r
- objtype *ob;\r
-\r
- activeobjects = inactiveobjects = 0;\r
- for (ob=player; ob; ob=ob->next)\r
- {\r
- if (ob->active)\r
- {\r
- activeobjects++;\r
- }\r
- else\r
- {\r
- inactiveobjects++;\r
- }\r
- }\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(18, 4);\r
- PrintY += 7;\r
- US_Print("Active Objects :");\r
- US_PrintUnsigned(activeobjects);\r
- US_Print("\nInactive Objects:");\r
- US_PrintUnsigned(inactiveobjects);\r
- VW_UpdateScreen();\r
- IN_Ack();\r
-}\r
-\r
-/*\r
-==================\r
-=\r
-= DebugMemory\r
-=\r
-==================\r
-*/\r
-\r
-void DebugMemory(void)\r
-{\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(16, 7);\r
- US_CPrint("Memory Usage");\r
- US_CPrint("------------");\r
- US_Print("Total :");\r
- US_PrintUnsigned((mminfo.mainmem+mminfo.EMSmem+mminfo.XMSmem)/1024);\r
- US_Print("k\nFree :");\r
- US_PrintUnsigned(MM_UnusedMemory()/1024);\r
- US_Print("k\nWith purge:");\r
- US_PrintUnsigned(MM_TotalFree()/1024);\r
- US_Print("k\n");\r
- VW_UpdateScreen();\r
- IN_Ack();\r
-#if GRMODE != CGAGR\r
- MM_ShowMemory();\r
-#endif\r
-}\r
-\r
-/*\r
-===================\r
-=\r
-= TestSprites\r
-=\r
-===================\r
-*/\r
-\r
-void TestSprites(void)\r
-{\r
- Uint16 infox, infoy;\r
- Sint16 chunk, oldchunk;\r
- Sint16 shift;\r
- Uint16 infobottom, drawx;\r
- spritetabletype far *info;\r
- Uint8 _seg *block;\r
- Uint16 size;\r
- Uint16 scan;\r
- Uint32 totalsize;\r
-\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(30, 17);\r
- totalsize = 0;\r
- US_CPrint("Sprite Test");\r
- US_CPrint("-----------");\r
- infoy = PrintY;\r
- infox = (PrintX + 56) & ~7;\r
- drawx = infox + 40;\r
- US_Print("Chunk:\nWidth:\nHeight:\nOrgx:\nOrgy:\nXl:\nYl:\nXh:\nYh:\nShifts:\nMem:\n");\r
- infobottom = PrintY;\r
- chunk = STARTSPRITES;\r
- shift = 0;\r
- while (1)\r
- {\r
- if (chunk >= STARTSPRITES+NUMSPRITES)\r
- {\r
- chunk = STARTSPRITES+NUMSPRITES-1;\r
- }\r
- else if (chunk < STARTSPRITES)\r
- {\r
- chunk = STARTSPRITES;\r
- }\r
- info = &spritetable[chunk-STARTSPRITES];\r
- block = grsegs[chunk];\r
- VWB_Bar(infox, infoy, 40, infobottom-infoy, WHITE);\r
- PrintX = infox;\r
- PrintY = infoy;\r
- US_PrintUnsigned(chunk);\r
- US_Print("\n");\r
- PrintX = infox;\r
- US_PrintUnsigned(info->width);\r
- US_Print("\n");\r
- PrintX = infox;\r
- US_PrintUnsigned(info->height);\r
- US_Print("\n");\r
- PrintX = infox;\r
- US_PrintSigned(info->orgx);\r
- US_Print("\n");\r
- PrintX = infox;\r
- US_PrintSigned(info->orgy);\r
- US_Print("\n");\r
- PrintX = infox;\r
- US_PrintSigned(info->xl);\r
- US_Print("\n");\r
- PrintX = infox;\r
- US_PrintSigned(info->yl);\r
- US_Print("\n");\r
- PrintX = infox;\r
- US_PrintSigned(info->xh);\r
- US_Print("\n");\r
- PrintX = infox;\r
- US_PrintSigned(info->yh);\r
- US_Print("\n");\r
- PrintX = infox;\r
- US_PrintSigned(info->shifts);\r
- US_Print("\n");\r
- PrintX = infox;\r
- if (!block)\r
- {\r
- US_Print("-----");\r
- }\r
- else\r
- {\r
- size = ((spritetype far *)block)->sourceoffset[3] + ((spritetype far *)block)->planesize[3]*5;\r
- size = (size + 15) & ~15; //round up to multiples of 16\r
- totalsize += size; //useless: the value stored in 'totalsize' is never used\r
- US_PrintUnsigned(size);\r
- US_Print("=");\r
- }\r
- oldchunk = chunk;\r
- do\r
- {\r
- VWB_Bar(drawx, infoy, 110, infobottom-infoy, WHITE);\r
- if (block)\r
- {\r
- PrintX = drawx;\r
- PrintY = infoy;\r
- US_Print("Shift:");\r
- US_PrintUnsigned(shift);\r
- US_Print("\n");\r
- VWB_DrawSprite(drawx + 2*shift + 16, PrintY, chunk);\r
- }\r
- VW_UpdateScreen();\r
- scan = IN_WaitForKey();\r
- switch (scan)\r
- {\r
- case sc_UpArrow:\r
- chunk++;\r
- break;\r
- case sc_DownArrow:\r
- chunk--;\r
- break;\r
- case sc_PgUp:\r
- chunk += 10;\r
- if (chunk >= STARTSPRITES+NUMSPRITES)\r
- {\r
- chunk = STARTSPRITES+NUMSPRITES-1;\r
- }\r
- break;\r
- case sc_PgDn:\r
- chunk -= 10;\r
- if (chunk < STARTSPRITES)\r
- {\r
- chunk = STARTSPRITES;\r
- }\r
- break;\r
- case sc_LeftArrow:\r
- if (--shift == -1)\r
- {\r
- shift = 3;\r
- }\r
- break;\r
- case sc_RightArrow:\r
- if (++shift == 4)\r
- {\r
- shift = 0;\r
- }\r
- break;\r
- case sc_Escape:\r
- return;\r
- }\r
-\r
- } while (chunk == oldchunk);\r
-\r
- }\r
-}\r
-\r
-/*\r
-===================\r
-=\r
-= PicturePause\r
-=\r
-===================\r
-*/\r
-\r
-void PicturePause(void)\r
-{\r
- Uint16 source;\r
- Sint16 y;\r
-\r
-//\r
-// wait for a key press, abort if it's not Enter\r
-//\r
- IN_ClearKeysDown();\r
- while (!LastScan);\r
- if (LastScan != sc_Enter)\r
- {\r
- IN_ClearKeysDown();\r
- return;\r
- }\r
-\r
- SD_PlaySound(SND_JUMP);\r
- SD_WaitSoundDone();\r
-\r
-//\r
-// rearrange onscreen image into base EGA layout, so that it\r
-// can be grabbed correctly by an external screenshot tool\r
-//\r
- source = displayofs + panadjust;\r
-\r
- VW_ColorBorder(15); // white (can't use WHITE as parameter, since that's defined as 3 for CGA and this must use 15)\r
- VW_SetLineWidth(40);\r
- VW_SetScreen(0, 0);\r
-\r
- if (source < 0x10000l-200*64)\r
- {\r
- //\r
- // copy top line first\r
- //\r
- for (y=0; y<200; y++)\r
- {\r
- VW_ScreenToScreen(source+y*64, y*40, 40, 1);\r
- }\r
- }\r
- else\r
- {\r
- //\r
- // copy bottom line first\r
- //\r
- for (y=199; y>=0; y--)\r
- {\r
- VW_ScreenToScreen(source+y*64, y*40, 40, 1);\r
- }\r
- }\r
-\r
-//\r
-// shut down input manager so that screenshot tool can see input again\r
-//\r
- IN_Shutdown();\r
-\r
- SD_PlaySound(SND_EXTRAKEEN);\r
- SD_WaitSoundDone();\r
-\r
-//\r
-// shut down the remaining ID managers, except VW (stay in graphics mode!)\r
-//\r
- US_Shutdown();\r
- SD_Shutdown();\r
- IN_Shutdown();\r
- RF_Shutdown();\r
- CA_Shutdown();\r
- MM_Shutdown();\r
-\r
-//\r
-// wait until user hits Escape\r
-//\r
- while (((bioskey(0) >> 8) & 0xFF) != sc_Escape);\r
-\r
-//\r
-// back to text mode and exit to DOS\r
-//\r
- VW_Shutdown();\r
- exit(0);\r
-}\r
-\r
-/*\r
-===================\r
-=\r
-= MaskOnTile\r
-=\r
-===================\r
-*/\r
-\r
-void MaskOnTile(Uint16 dest, Uint16 source)\r
-{\r
- Sint16 i;\r
- Uint16 _seg *sourceseg;\r
- Uint16 _seg *destseg;\r
- Uint16 sourceval, maskindex, sourcemask;\r
-\r
- sourceseg = (grsegs+STARTTILE16M)[source];\r
- destseg = (grsegs+STARTTILE16M)[dest];\r
- for (i=0; i<64; i++)\r
- {\r
- maskindex = i & 15;\r
-#ifdef KEEN6Ev15\r
- sourceval = sourceseg[16+i];\r
-#else\r
- sourceval = (sourceseg+16)[i];\r
-#endif\r
- sourcemask = sourceseg[maskindex];\r
- destseg[maskindex] &= sourcemask;\r
- destseg[16+i] &= sourcemask;\r
- destseg[16+i] |= sourceval;\r
- }\r
-}\r
-\r
-/*\r
-===================\r
-=\r
-= WallDebug\r
-=\r
-===================\r
-*/\r
-\r
-void WallDebug(void)\r
-{\r
- Sint16 i, val;\r
-\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(24, 3);\r
- US_PrintCentered("WORKING");\r
- VW_UpdateScreen();\r
- for (i=STARTTILE16M+108; i<STARTTILE16M+124; i++)\r
- {\r
- CA_CacheGrChunk(i);\r
- }\r
- for (i=0; i<NUMTILE16M; i++)\r
- {\r
- if (!grsegs[STARTTILE16M+i])\r
- {\r
- continue;\r
- }\r
- val = tinf[i+NORTHWALL] & 7;\r
- if (val)\r
- {\r
- MaskOnTile(i, val+107);\r
- }\r
- val = tinf[i+SOUTHWALL] & 7;\r
- if (val)\r
- {\r
- MaskOnTile(i, val+115);\r
- }\r
- val = tinf[i+EASTWALL] & 7;\r
- if (val > 1)\r
- {\r
- strcpy(str, "WallDebug: East wall other than 1:");\r
- itoa(i, str2, 10);\r
- strcat(str, str2);\r
- Quit(str);\r
- }\r
- if (val)\r
- {\r
- MaskOnTile(i, val+114); //Note: val is always 1 here, so you could use 115 as 2nd arg\r
- }\r
- val = tinf[i+WESTWALL] & 7;\r
- if (val > 1)\r
- {\r
- strcpy(str, "WallDebug: West wall other than 1:");\r
- itoa(i, str2, 10);\r
- strcat(str, str2);\r
- Quit(str);\r
- }\r
- if (val)\r
- {\r
- MaskOnTile(i, val+122); //Note: val is always 1 here, so you could use 123 as 2nd arg\r
- }\r
- }\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-================\r
-=\r
-= DebugKeys\r
-=\r
-================\r
-*/\r
-\r
-boolean DebugKeys(void)\r
-{\r
- Sint16 level, i, esc;\r
-\r
- if (Keyboard[sc_B] && ingame) // B = border color\r
- {\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(24, 3);\r
- PrintY += 6;\r
- US_Print(" Border color (0-15):");\r
- VW_UpdateScreen();\r
- esc = !US_LineInput(px, py, str, NULL, true, 2, 0);\r
- if (!esc)\r
- {\r
- level = atoi(str);\r
- if (level >= 0 && level <= 15)\r
- {\r
- VW_ColorBorder(level);\r
- }\r
- }\r
- return true;\r
- }\r
-\r
- if (Keyboard[sc_C] && ingame) // C = count objects\r
- {\r
- CountObjects();\r
- return true;\r
- }\r
-\r
- if (Keyboard[sc_D] && ingame) // D = start / end demo record\r
- {\r
- if (DemoMode == demo_Off)\r
- {\r
- StartDemoRecord();\r
- }\r
- else if (DemoMode == demo_Record)\r
- {\r
- EndDemoRecord();\r
- playstate = ex_completed;\r
- }\r
- return true;\r
- }\r
-\r
- if (Keyboard[sc_E] && ingame) // E = quit level\r
- {\r
- if (tedlevel)\r
- {\r
- TEDDeath();\r
- }\r
- playstate = ex_completed;\r
- //BUG? there is no return in this branch (should return false)\r
- }\r
-\r
- if (Keyboard[sc_G] && ingame) // G = god mode\r
- {\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(12, 2);\r
- if (godmode)\r
- {\r
- US_PrintCentered("God mode OFF");\r
- }\r
- else\r
- {\r
- US_PrintCentered("God mode ON");\r
- }\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- godmode ^= true;\r
- return true;\r
- }\r
- else if (Keyboard[sc_I]) // I = item cheat\r
- {\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(12, 3);\r
- US_PrintCentered("Free items!");\r
- for (i=0; i<4; i++)\r
- {\r
- gamestate.keys[i] = 99;\r
- }\r
- gamestate.ammo = 99;\r
-#if defined KEEN4\r
- gamestate.wetsuit = true;\r
-#elif defined KEEN5\r
- gamestate.keycard = true;\r
-#elif defined KEEN6\r
- gamestate.passcardstate=gamestate.hookstate=gamestate.sandwichstate = 1;\r
-#endif\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- GivePoints(3000);\r
- return true;\r
- }\r
- else if (Keyboard[sc_J]) // J = jump cheat\r
- {\r
- jumpcheat ^= true;\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(18, 3);\r
- if (jumpcheat)\r
- {\r
- US_PrintCentered("Jump cheat ON");\r
- }\r
- else\r
- {\r
- US_PrintCentered("Jump cheat OFF");\r
- }\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- return true;\r
- }\r
- else if (Keyboard[sc_M]) // M = memory info\r
- {\r
- DebugMemory();\r
- return true;\r
- }\r
- else if (Keyboard[sc_N]) // N = no clip\r
- {\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(18, 3);\r
- if (player->needtoclip)\r
- {\r
- US_PrintCentered("No clipping ON");\r
- player->needtoclip = cl_noclip;\r
- }\r
- else\r
- {\r
- US_PrintCentered("No clipping OFF");\r
- player->needtoclip = cl_midclip;\r
- }\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- return true;\r
- }\r
- else if (Keyboard[sc_P]) // P = pause with no screen disruptioon\r
- {\r
- IN_ClearKeysDown();\r
- PicturePause();\r
- return true;\r
- }\r
- else if (Keyboard[sc_S] && ingame) // S = slow motion\r
- {\r
- singlestep ^= true;\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(18, 3);\r
- if (singlestep)\r
- {\r
- US_PrintCentered("Slow motion ON");\r
- }\r
- else\r
- {\r
- US_PrintCentered("Slow motion OFF");\r
- }\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- return true;\r
- }\r
- else if (Keyboard[sc_T]) // T = sprite test\r
- {\r
- TestSprites();\r
- return true;\r
- }\r
- else if (Keyboard[sc_V]) // V = extra VBLs\r
- {\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(30, 3);\r
- PrintY += 6;\r
- US_Print(" Add how many extra VBLs(0-8):");\r
- VW_UpdateScreen();\r
- esc = !US_LineInput(px, py, str, NULL, true, 2, 0);\r
- if (!esc)\r
- {\r
- level = atoi(str);\r
- if (level >= 0 && level <= 8)\r
- {\r
- extravbls = level;\r
- }\r
- }\r
- return true;\r
- }\r
- else if (Keyboard[sc_W] && ingame) // W = warp to level\r
- {\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(26, 3);\r
- PrintY += 6;\r
- US_Print(" Warp to which level(1-18):");\r
- VW_UpdateScreen();\r
- esc = !US_LineInput(px, py, str, NULL, true, 2, 0);\r
- if (!esc)\r
- {\r
- level = atoi(str);\r
- if (level > 0 && level <= 18)\r
- {\r
- gamestate.mapon = level;\r
- playstate = ex_warped;\r
- }\r
- }\r
- return true;\r
- }\r
- else if (Keyboard[sc_Y]) // Y = wall debug\r
- {\r
- WallDebug();\r
- return true;\r
- }\r
- else if (Keyboard[sc_Z]) // Z = game over\r
- {\r
- gamestate.lives = 0;\r
- KillKeen();\r
- return false;\r
- }\r
- return false;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-================\r
-=\r
-= UserCheat\r
-=\r
-================\r
-*/\r
-\r
-void UserCheat(void)\r
-{\r
- Sint16 i;\r
-\r
- for (i=sc_A; i<=sc_Z; i++) //Note: this does NOT check the keys in alphabetical order!\r
- {\r
- if (i != sc_B && i != sc_A && i != sc_T && Keyboard[i])\r
- {\r
- return;\r
- }\r
- }\r
- US_CenterWindow(20, 7);\r
- PrintY += 2;\r
- US_CPrint(\r
- "Cheat Option!\n"\r
- "\n"\r
- "You just got all\n"\r
- "the keys, 99 shots,\n"\r
- "and an extra keen!");\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- RF_ForceRefresh();\r
- gamestate.ammo = 99;\r
- gamestate.lives++;\r
-#ifdef KEEN5\r
- gamestate.keycard = true;\r
-#endif\r
- gamestate.keys[0] = gamestate.keys[1] = gamestate.keys[2] = gamestate.keys[3] = 1;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= CheckKeys\r
-=\r
-=====================\r
-*/\r
-\r
-void CheckKeys(void)\r
-{\r
- if (screenfaded) // don't do anything with a faded screen\r
- {\r
- return;\r
- }\r
-\r
-//\r
-// Enter for status screen\r
-//\r
- if (Keyboard[sc_Enter] || (GravisGamepad && GravisAction[ga_Status]))\r
- {\r
- StatusWindow();\r
- IN_ClearKeysDown();\r
- RF_ForceRefresh();\r
- lasttimecount = TimeCount; // BUG: should be the other way around\r
- }\r
-\r
-//\r
-// pause key wierdness can't be checked as a scan code\r
-//\r
- if (Paused)\r
- {\r
- SD_MusicOff();\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(8, 3);\r
- US_PrintCentered("PAUSED");\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- RF_ForceRefresh();\r
- Paused = false;\r
- SD_MusicOn();\r
- }\r
-\r
-#ifndef KEEN6\r
-//\r
-// F1 to enter help screens\r
-//\r
- if (LastScan == sc_F1)\r
- {\r
- StopMusic();\r
- HelpScreens();\r
- StartMusic(gamestate.mapon);\r
- if (showscorebox)\r
- {\r
- scoreobj->temp2 = -1;\r
- scoreobj->temp1 = -1;\r
- scoreobj->temp3 = -1;\r
- scoreobj->temp4 = -1;\r
- }\r
- RF_ForceRefresh();\r
- }\r
-#endif\r
-\r
- if (!storedemo)\r
- {\r
-//\r
-// F2-F7/ESC to enter control panel\r
-//\r
- if (LastScan >= sc_F2 && LastScan <= sc_F7 || LastScan == sc_Escape)\r
- {\r
- VW_FixRefreshBuffer();\r
- StopMusic();\r
- US_ControlPanel();\r
- RF_FixOfs();\r
- StartMusic(gamestate.mapon);\r
- if (!showscorebox && scoreobj->sprite)\r
- {\r
- RF_RemoveSprite(&scoreobj->sprite);\r
- }\r
- if (showscorebox)\r
- {\r
- scoreobj->temp2 = -1;\r
- scoreobj->temp1 = -1;\r
- scoreobj->temp3 = -1;\r
- scoreobj->temp4 = -1;\r
- }\r
- IN_ClearKeysDown();\r
- if (restartgame)\r
- {\r
- playstate = ex_resetgame;\r
- }\r
- else if (!loadedgame)\r
- {\r
- RF_ForceRefresh();\r
- }\r
- if (abortgame)\r
- {\r
- abortgame = false;\r
- playstate = ex_abortgame;\r
- }\r
- if (loadedgame)\r
- {\r
- playstate = ex_loadedgame;\r
- }\r
- lasttimecount = TimeCount; // BUG: should be the other way around\r
- }\r
-\r
-//\r
-// F9 boss key\r
-//\r
- if (LastScan == sc_F9)\r
- {\r
- VW_Shutdown();\r
- SD_MusicOff();\r
- cputs("C:>");\r
- IN_ClearKeysDown();\r
- while (LastScan != sc_Escape);\r
- VW_SetScreenMode(GRMODE);\r
- VW_ColorBorder(bordercolor);\r
- RF_ForceRefresh();\r
- IN_ClearKeysDown();\r
- lasttimecount = TimeCount; // BUG: should be the other way around\r
- SD_MusicOn();\r
- }\r
- }\r
-\r
-//\r
-// B-A-T cheat code\r
-//\r
- if (Keyboard[sc_B] && Keyboard[sc_A] && Keyboard[sc_T])\r
- {\r
- UserCheat();\r
- }\r
-\r
-//\r
-// F10-? debug keys\r
-//\r
- if (debugok && Keyboard[sc_F10])\r
- {\r
- if (DebugKeys())\r
- {\r
- RF_ForceRefresh();\r
- lasttimecount = TimeCount; // BUG: should be the other way around\r
- }\r
- }\r
-\r
-//\r
-// Ctrl-S toggles sound (only in storedemo mode)\r
-//\r
- if (storedemo && Keyboard[sc_Control] && LastScan == sc_S)\r
- {\r
- if (SoundMode != sdm_Off)\r
- {\r
- SD_SetSoundMode(sdm_Off);\r
- SD_SetMusicMode(smm_Off);\r
- }\r
- else\r
- {\r
- if (AdLibPresent)\r
- {\r
- SD_SetSoundMode(sdm_AdLib);\r
- QuietFX = false;\r
- SD_SetMusicMode(smm_AdLib);\r
- }\r
- else\r
- {\r
- SD_SetSoundMode(sdm_PC);\r
- SD_SetMusicMode(smm_Off);\r
- }\r
- CA_LoadAllSounds();\r
- }\r
- }\r
-\r
-//\r
-// Ctrl-Q quick quit\r
-//\r
- if (Keyboard[sc_Control] && LastScan == sc_Q)\r
- {\r
- IN_ClearKeysDown();\r
- Quit(NULL);\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==================\r
-=\r
-= PrintNumbers\r
-=\r
-==================\r
-*/\r
-\r
-void PrintNumbers(Sint16 x, Sint16 y, Sint16 maxlen, Sint16 basetile, Sint32 number)\r
-{\r
- register Sint16 i;\r
- Sint16 len;\r
- char buffer[20];\r
-\r
- ltoa(number, buffer, 10);\r
- len = strlen(buffer);\r
- i = maxlen;\r
- while (i>len)\r
- {\r
- VWB_DrawTile8(x, y, basetile);\r
- i--;\r
- x += 8;\r
- }\r
- while (i>0)\r
- {\r
- VWB_DrawTile8(x, y, basetile+buffer[len-i]+(1-'0'));\r
- i--;\r
- x += 8;\r
- }\r
-}\r
-\r
-/*\r
-==================\r
-=\r
-= DrawStatusWindow\r
-=\r
-==================\r
-*/\r
-\r
-#if GRMODE == CGAGR\r
-\r
-#define BACKCOLOR WHITE\r
-#define TEXTBACK BLACK\r
-#define NUMBERBACK BLACK\r
-\r
-#else\r
-\r
-#define BACKCOLOR LIGHTGRAY\r
-#define TEXTBACK WHITE\r
-#define NUMBERBACK BLACK\r
-\r
-#endif\r
-\r
-void DrawStatusWindow(void)\r
-{\r
- Sint16 off, x, y, w, h, i;\r
- Uint16 width, height;\r
-\r
- x = 64;\r
- y = 16;\r
- w = 184;\r
- h = 144;\r
- VWB_DrawTile8(x, y, 54);\r
- VWB_DrawTile8(x, y+h, 60);\r
- for (i=x+8; i<=x+w-8; i+=8)\r
- {\r
- VWB_DrawTile8(i, y, 55);\r
- VWB_DrawTile8(i, y+h, 61);\r
- }\r
- VWB_DrawTile8(i, y, 56);\r
- VWB_DrawTile8(i, y+h, 62);\r
- for (i=y+8; i<=y+h-8; i+=8)\r
- {\r
- VWB_DrawTile8(x, i, 57);\r
- VWB_DrawTile8(x+w, i, 59);\r
- }\r
- VWB_Bar(72, 24, 176, 136, BACKCOLOR);\r
-\r
- PrintY = 28;\r
- WindowX = 80;\r
- WindowW = 160;\r
- US_CPrint("LOCATION");\r
- VWB_Bar(79, 38, 162, 20, TEXTBACK);\r
-#ifdef KEEN5\r
- if (mapon == 0 && player->y > 100*TILEGLOBAL)\r
- _fstrcpy(str, levelnames[13]);\r
- else\r
- _fstrcpy(str, levelnames[gamestate.mapon]);\r
-#else\r
- _fstrcpy(str, levelnames[gamestate.mapon]);\r
-#endif\r
- SizeText(str, &width, &height);\r
- PrintY = (20-height)/2+40-2;\r
- US_CPrint(str);\r
-\r
- PrintY = 61;\r
- WindowX = 80;\r
- WindowW = 64;\r
- US_CPrint("SCORE");\r
- VWB_Bar(79, 71, 66, 10, NUMBERBACK);\r
- PrintNumbers(80, 72, 8, 41, gamestate.score);\r
-\r
- PrintY = 61;\r
- WindowX = 176;\r
- WindowW = 64;\r
- US_CPrint("EXTRA");\r
- VWB_Bar(175, 71, 66, 10, NUMBERBACK);\r
- PrintNumbers(176, 72, 8, 41, gamestate.nextextra);\r
-\r
-#if defined KEEN4\r
- PrintY = 85;\r
- WindowX = 80;\r
- WindowW = 64;\r
- US_CPrint("RESCUED");\r
- VWB_Bar(79, 95, 66, 10, NUMBERBACK);\r
- for (i = 0; i < gamestate.rescued; i++, off+=8)\r
- {\r
- VWB_DrawTile8(i*8 + 80, 96, 40);\r
- }\r
-#elif defined KEEN5\r
- PrintY = 92;\r
- PrintX = 80;\r
- US_Print("KEYCARD");\r
- VWB_Bar(135, 91, 10, 10, NUMBERBACK);\r
- if (gamestate.keycard)\r
- {\r
- VWB_DrawTile8(136, 92, 40);\r
- }\r
-#endif\r
-\r
- PrintY = 85;\r
- WindowX = 176;\r
- WindowW = 64;\r
- US_CPrint("LEVEL");\r
- VWB_Bar(175, 95, 66, 10, TEXTBACK);\r
- PrintY = 96;\r
- WindowX = 176;\r
- WindowW = 64;\r
- switch (gamestate.difficulty)\r
- {\r
- case gd_Easy:\r
- US_CPrint("Easy");\r
- break;\r
- case gd_Normal:\r
- US_CPrint("Normal");\r
- break;\r
- case gd_Hard:\r
- US_CPrint("Hard");\r
- break;\r
- }\r
-\r
-#ifdef KEEN6\r
- PrintX = 80;\r
- PrintY = 96;\r
- US_Print("ITEMS");\r
- VWB_Bar(127, 95, 26, 10, NUMBERBACK);\r
- if (gamestate.sandwichstate == 1)\r
- {\r
- VWB_DrawTile8(128, 96, 2);\r
- }\r
- else\r
- {\r
- VWB_DrawTile8(128, 96, 1);\r
- }\r
- if (gamestate.hookstate == 1)\r
- {\r
- VWB_DrawTile8(136, 96, 4);\r
- }\r
- else\r
- {\r
- VWB_DrawTile8(136, 96, 3);\r
- }\r
- if (gamestate.passcardstate == 1)\r
- {\r
- VWB_DrawTile8(144, 96, 6);\r
- }\r
- else\r
- {\r
- VWB_DrawTile8(144, 96, 5);\r
- }\r
-#endif\r
-\r
- PrintX = 80;\r
- PrintY = 112;\r
- US_Print("KEYS");\r
- VWB_Bar(119, 111, 34, 10, NUMBERBACK);\r
- for (i = 0; i < 4; i++)\r
- {\r
- if (gamestate.keys[i])\r
- {\r
- VWB_DrawTile8(i*8+120, 112, 36+i);\r
- }\r
- }\r
-\r
- PrintX = 176;\r
- PrintY = 112;\r
- US_Print("AMMO");\r
- VWB_Bar(215, 111, 26, 10, NUMBERBACK);\r
- PrintNumbers(216, 112, 3, 41, gamestate.ammo);\r
-\r
- PrintX = 80;\r
- PrintY = 128;\r
- US_Print("KEENS");\r
- VWB_Bar(127, 127, 18, 10, NUMBERBACK);\r
- PrintNumbers(128, 128, 2, 41, gamestate.lives);\r
-\r
- PrintX = 176;\r
- PrintY = 128;\r
- US_Print(DROPSNAME);\r
- VWB_Bar(224, 127, 16, 10, NUMBERBACK);\r
- PrintNumbers(224, 128, 2, 41, gamestate.drops);\r
-\r
-#ifdef KEEN4\r
- VWB_Bar(79, 143, 66, 10, TEXTBACK);\r
- PrintY = 144;\r
- WindowX = 80;\r
- WindowW = 64;\r
- if (gamestate.wetsuit)\r
- {\r
- US_CPrint("Wetsuit");\r
- }\r
- else\r
- {\r
- US_CPrint("???");\r
- }\r
-#endif\r
-\r
- // draw the tiles for "PRESS A KEY":\r
- for (i = 0; i < 10; i++)\r
- {\r
- VWB_DrawTile8(i*8+STATUS_PRESSKEY_X, 140, i+72);\r
- VWB_DrawTile8(i*8+STATUS_PRESSKEY_X, 148, i+82);\r
- }\r
-}\r
-\r
-/*\r
-==================\r
-=\r
-= ScrollStatusWindow\r
-=\r
-==================\r
-*/\r
-\r
-void ScrollStatusWindow(void)\r
-{\r
- Uint16 source, dest;\r
- Sint16 height;\r
-\r
- if (vislines > 152)\r
- {\r
- height = vislines - 152;\r
- source = windowofs + panadjust + 8;\r
- dest = bufferofs + panadjust + 8;\r
- VW_ScreenToScreen(source, dest, 192/BYTEPIXELS, height);\r
- VW_ClipDrawMPic((pansx+136)/BYTEPIXELS, -(16-height)+pansy, METALPOLEPICM);\r
- source = windowofs + panadjust + 16*SCREENWIDTH + 8*CHARWIDTH;\r
- dest = bufferofs + panadjust + height*SCREENWIDTH + 8;\r
- height = 152;\r
- }\r
- else\r
- {\r
- source = windowofs + panadjust + (152-vislines)*SCREENWIDTH + 16*SCREENWIDTH + 8*CHARWIDTH;\r
- dest = bufferofs + panadjust + 8;\r
- height = vislines;\r
- }\r
- if (height > 0)\r
- {\r
- VW_ScreenToScreen(source, dest, 192/BYTEPIXELS, height);\r
- }\r
- if (scrollup)\r
- {\r
- height = 168-vislines;\r
- source = masterofs + panadjust + vislines*SCREENWIDTH + 8;\r
- dest = bufferofs + panadjust + vislines*SCREENWIDTH + 8;\r
- VW_ScreenToScreen(source, dest, 192/BYTEPIXELS, height);\r
- height = vislines;\r
- source = windowofs + panadjust + 8 - 24/BYTEPIXELS;\r
- dest = bufferofs + panadjust + 8 - 24/BYTEPIXELS;\r
- if (height > 0)\r
- VW_ScreenToScreen(source, dest, 24/BYTEPIXELS, height);\r
- }\r
- else\r
- {\r
- height = vislines + -72;\r
- if (height > 0)\r
- {\r
- source = windowofs + panadjust + 8 - 24/BYTEPIXELS;\r
- dest = bufferofs + panadjust + 8 - 24/BYTEPIXELS;\r
- if (height > 0)\r
- VW_ScreenToScreen(source, dest, 24/BYTEPIXELS, height);\r
- }\r
- }\r
- if (vislines >= 72)\r
- {\r
- VW_ClipDrawMPic((pansx+40)/BYTEPIXELS, vislines-168+pansy, CORDPICM);\r
- }\r
- VW_UpdateScreen();\r
-}\r
-\r
-/*\r
-==================\r
-=\r
-= StatusWindow\r
-=\r
-==================\r
-*/\r
-\r
-void StatusWindow(void)\r
-{\r
-#if GRMODE == CGAGR\r
-\r
- if (Keyboard[sc_A] && Keyboard[sc_2])\r
- {\r
- US_CenterWindow(20, 2);\r
- PrintY += 2;\r
- US_Print("Debug keys active");\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- debugok = true;\r
- }\r
-\r
- WindowX = 0;\r
- WindowW = 320;\r
- WindowY = 0;\r
- WindowH = 200;\r
- DrawStatusWindow();\r
- VW_UpdateScreen();\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
-#else\r
-\r
- Uint16 oldbufferofs;\r
-\r
- WindowX = 0;\r
- WindowW = 320;\r
- WindowY = 0;\r
- WindowH = 200;\r
-\r
- if (Keyboard[sc_A] && Keyboard[sc_2])\r
- {\r
- US_CenterWindow(20, 2);\r
- PrintY += 2;\r
- US_Print("Debug keys active");\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- debugok = true;\r
- }\r
-\r
- RF_Refresh();\r
- RFL_InitAnimList();\r
- oldbufferofs = bufferofs;\r
- bufferofs = windowofs = RF_FindFreeBuffer();\r
- VW_ScreenToScreen(displayofs, displayofs, 44, 224); // useless (source and dest offsets are identical)\r
- VW_ScreenToScreen(displayofs, masterofs, 44, 224);\r
- VW_ScreenToScreen(displayofs, bufferofs, 44, 168);\r
- DrawStatusWindow();\r
- bufferofs = oldbufferofs;\r
- RF_Refresh();\r
-\r
- SD_PlaySound(SND_SHOWSTATUS);\r
- vislines = 16;\r
- scrollup = false;\r
- RF_SetRefreshHook(ScrollStatusWindow);\r
-\r
- while (true)\r
- {\r
- RF_Refresh();\r
- if (vislines == 168)\r
- break;\r
- vislines = vislines + tics*8;\r
- if (vislines > 168)\r
- vislines = 168;\r
- }\r
-\r
- RF_Refresh();\r
- RF_SetRefreshHook(NULL);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- SD_PlaySound(SND_HIDESTATUS);\r
- vislines -= 16;\r
- scrollup = true;\r
- RF_SetRefreshHook(ScrollStatusWindow);\r
-\r
- while (true)\r
- {\r
- RF_Refresh();\r
- if (vislines == 0)\r
- break;\r
- vislines = vislines - tics*8;\r
- if (vislines < 0)\r
- vislines = 0;\r
- }\r
-\r
- RF_SetRefreshHook(NULL);\r
-\r
- scoreobj->x = 0; //force scorebox to redraw?\r
-\r
-#endif\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==================\r
-=\r
-= CenterActor\r
-=\r
-==================\r
-*/\r
-\r
-void CenterActor(objtype *ob)\r
-{\r
- Uint16 orgx, orgy;\r
-\r
- centerlevel = 140;\r
- if (ob->x < 152*PIXGLOBAL)\r
- {\r
- orgx = 0;\r
- }\r
- else\r
- {\r
- orgx = ob->x - 152*PIXGLOBAL;\r
- }\r
- if (mapon == 0)\r
- {\r
- if (ob->y < 80*PIXGLOBAL)\r
- {\r
- orgy = 0;\r
- }\r
- else\r
- {\r
- orgy = ob->y - 80*PIXGLOBAL;\r
- }\r
- }\r
- else\r
- {\r
- if (ob->bottom < 140*PIXGLOBAL)\r
- {\r
- orgy = 0;\r
- }\r
- else\r
- {\r
- orgy = ob->bottom - 140*PIXGLOBAL;\r
- }\r
- }\r
- if (!scorescreenkludge)\r
- {\r
- RF_NewPosition(orgx, orgy);\r
- }\r
-\r
-//\r
-// update limits for onscreen and inactivate checks\r
-//\r
- originxtilemax = (originxtile + PORTTILESWIDE) - 1;\r
- originytilemax = (originytile + PORTTILESHIGH) - 1;\r
- inactivateleft = originxtile - INACTIVATEDIST;\r
- if (inactivateleft < 0)\r
- {\r
- inactivateleft = 0;\r
- }\r
- inactivateright = originxtilemax + INACTIVATEDIST;\r
- if (inactivateright < 0)\r
- {\r
- inactivateright = 0;\r
- }\r
- inactivatetop = originytile - INACTIVATEDIST;\r
- if (inactivatetop < 0)\r
- {\r
- inactivatetop = 0;\r
- }\r
- inactivatebottom = originytilemax + INACTIVATEDIST;\r
- if (inactivatebottom < 0)\r
- {\r
- inactivatebottom = 0;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==================\r
-=\r
-= WorldScrollScreen\r
-=\r
-= Scroll if Keen is nearing an edge\r
-=\r
-==================\r
-*/\r
-\r
-void WorldScrollScreen(objtype *ob)\r
-{\r
- Sint16 xscroll, yscroll;\r
-\r
- if (keenkilled)\r
- return;\r
-\r
- if (ob->left < originxglobal + 9*TILEGLOBAL)\r
- {\r
- xscroll = ob->left - (originxglobal + 9*TILEGLOBAL);\r
- }\r
- else if (ob->right > originxglobal + 12*TILEGLOBAL)\r
- {\r
- xscroll = ob->right + 16 - (originxglobal + 12*TILEGLOBAL);\r
- }\r
- else\r
- {\r
- xscroll = 0;\r
- }\r
-\r
- if (ob->top < originyglobal + 5*TILEGLOBAL)\r
- {\r
- yscroll = ob->top - (originyglobal + 5*TILEGLOBAL);\r
- }\r
- else if (ob->bottom > originyglobal + 7*TILEGLOBAL)\r
- {\r
- yscroll = ob->bottom - (originyglobal + 7*TILEGLOBAL);\r
- }\r
- else\r
- {\r
- yscroll = 0;\r
- }\r
-\r
- if (!xscroll && !yscroll)\r
- return;\r
-\r
-//\r
-// don't scroll more than one tile per frame\r
-//\r
- if (xscroll >= 0x100)\r
- {\r
- xscroll = 0xFF;\r
- }\r
- else if (xscroll <= -0x100)\r
- {\r
- xscroll = -0xFF;\r
- }\r
- if (yscroll >= 0x100)\r
- {\r
- yscroll = 0xFF;\r
- }\r
- else if (yscroll <= -0x100)\r
- {\r
- yscroll = -0xFF;\r
- }\r
-\r
- RF_Scroll(xscroll, yscroll);\r
-\r
-//\r
-// update limits for onscreen and inactivate checks\r
-//\r
- originxtilemax = (originxtile + PORTTILESWIDE) - 1;\r
- originytilemax = (originytile + PORTTILESHIGH) - 1;\r
- inactivateleft = originxtile - INACTIVATEDIST;\r
- if (inactivateleft < 0)\r
- {\r
- inactivateleft = 0;\r
- }\r
- inactivateright = originxtilemax + INACTIVATEDIST;\r
- if (inactivateright < 0)\r
- {\r
- inactivateright = 0;\r
- }\r
- inactivatetop = originytile - INACTIVATEDIST;\r
- if (inactivatetop < 0)\r
- {\r
- inactivatetop = 0;\r
- }\r
- inactivatebottom = originytilemax + INACTIVATEDIST;\r
- if (inactivatebottom < 0)\r
- {\r
- inactivatebottom = 0;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==================\r
-=\r
-= ScrollScreen\r
-=\r
-= Scroll if Keen is nearing an edge\r
-= Set playstate to ex_completes\r
-=\r
-==================\r
-*/\r
-\r
-void ScrollScreen(objtype *ob)\r
-{\r
- Sint16 xscroll, yscroll, pix, speed;\r
- Uint16 bottom;\r
-\r
- if (keenkilled)\r
- return;\r
-\r
-//\r
-// walked off edge of map?\r
-//\r
- if (ob->left < originxmin || ob->right > originxmax + 320*PIXGLOBAL)\r
- {\r
- playstate = ex_completed;\r
- return;\r
- }\r
-\r
-//\r
-// fallen off bottom of world?\r
-//\r
- if (ob->bottom > originymax + 13*TILEGLOBAL)\r
- {\r
- ob->y -= ob->bottom - (originymax + 13*TILEGLOBAL);\r
- SD_PlaySound(SND_PLUMMET);\r
- godmode = false;\r
- KillKeen();\r
- return;\r
- }\r
-\r
- xscroll=yscroll=0;\r
-\r
- if (ob->x < originxglobal + 9*TILEGLOBAL)\r
- {\r
- xscroll = ob->x - (originxglobal + 9*TILEGLOBAL);\r
- }\r
- else if (ob->x > originxglobal + 12*TILEGLOBAL)\r
- {\r
- xscroll = ob->x - (originxglobal + 12*TILEGLOBAL);\r
- }\r
-\r
- if (ob->state == &s_keenlookup2)\r
- {\r
- if (centerlevel+tics > 167)\r
- {\r
- pix = 167-centerlevel;\r
- }\r
- else\r
- {\r
- pix = tics;\r
- }\r
- centerlevel += pix;\r
- yscroll = CONVERT_PIXEL_TO_GLOBAL(-pix);\r
- }\r
- else if (ob->state == &s_keenlookdown3)\r
- {\r
- if (centerlevel-tics < 33)\r
- {\r
- pix = centerlevel + -33;\r
- }\r
- else\r
- {\r
- pix = tics;\r
- }\r
- centerlevel -= pix;\r
- yscroll = CONVERT_PIXEL_TO_GLOBAL(pix);\r
- }\r
-\r
-#ifdef KEEN6\r
- if (groundslam)\r
- {\r
- static Sint16 shaketable[] = {0,\r
- -64, -64, -64, 64, 64, 64,\r
- -200, -200, -200, 200, 200, 200,\r
- -250, -250, -250, 250, 250, 250,\r
- -250, -250, -250, 250, 250, 250\r
- };\r
- yscroll = yscroll + (bottom - (ob->bottom + shaketable[groundslam])); // BUG: 'bottom' has not been initialized yet!\r
- }\r
- else\r
-#endif\r
- if ( (ob->hitnorth || !ob->needtoclip || ob->state == &s_keenholdon))\r
- {\r
- if ( ob->state != &s_keenclimbup\r
- && ob->state != &s_keenclimbup2\r
- && ob->state != &s_keenclimbup3\r
- && ob->state != &s_keenclimbup4)\r
- {\r
- yscroll += ob->ymove;\r
- bottom = originyglobal + yscroll + CONVERT_PIXEL_TO_GLOBAL(centerlevel);\r
- if (ob->bottom == bottom)\r
- {\r
- // player didn't move, no additional scrolling\r
- }\r
- else\r
- {\r
- if (ob->bottom < bottom)\r
- {\r
- pix = bottom - ob->bottom;\r
- }\r
- else\r
- {\r
- pix = ob->bottom - bottom;\r
- }\r
- speed = CONVERT_PIXEL_TO_GLOBAL(pix) >> 7;\r
- if (speed > 0x30)\r
- {\r
- speed = 0x30;\r
- }\r
- speed *= tics;\r
- if (speed < 0x10)\r
- {\r
- if (pix < 0x10)\r
- {\r
- speed = pix;\r
- }\r
- else\r
- {\r
- speed = 0x10;\r
- }\r
- }\r
- if (ob->bottom < bottom)\r
- {\r
- yscroll -= speed;\r
- }\r
- else\r
- {\r
- yscroll += speed;\r
- }\r
- }\r
- }\r
- }\r
- else\r
- {\r
- centerlevel = 140;\r
- }\r
-\r
- pix = (ob->bottom-32*PIXGLOBAL)-(originyglobal+yscroll);\r
- if (pix < 0)\r
- {\r
- yscroll += pix;\r
- }\r
- pix = (ob->bottom+32*PIXGLOBAL)-(originyglobal+yscroll+200*PIXGLOBAL);\r
- if (pix > 0)\r
- {\r
- yscroll += pix;\r
- }\r
-\r
- if (xscroll == 0 && yscroll == 0)\r
- return;\r
-\r
-//\r
-// don't scroll more than one tile per frame\r
-//\r
- if (xscroll >= 0x100)\r
- {\r
- xscroll = 0xFF;\r
- }\r
- else if (xscroll <= -0x100)\r
- {\r
- xscroll = -0xFF;\r
- }\r
- if (yscroll >= 0x100)\r
- {\r
- yscroll = 0xFF;\r
- }\r
- else if (yscroll <= -0x100)\r
- {\r
- yscroll = -0xFF;\r
- }\r
- RF_Scroll(xscroll, yscroll);\r
-\r
-//\r
-// update limits for onscreen and inactivate checks\r
-//\r
- originxtilemax = (originxtile + PORTTILESWIDE) - 1;\r
- originytilemax = (originytile + PORTTILESHIGH) - 1;\r
- inactivateleft = originxtile - INACTIVATEDIST;\r
- if (inactivateleft < 0)\r
- {\r
- inactivateleft = 0;\r
- }\r
- inactivateright = originxtilemax + INACTIVATEDIST;\r
- if (inactivateright < 0)\r
- {\r
- inactivateright = 0;\r
- }\r
- inactivatetop = originytile - INACTIVATEDIST;\r
- if (inactivatetop < 0)\r
- {\r
- inactivatetop = 0;\r
- }\r
- inactivatebottom = originytilemax + INACTIVATEDIST;\r
- if (inactivatebottom < 0)\r
- {\r
- inactivatebottom = 0;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-#############################################################################\r
-\r
- The objarray data structure\r
-\r
-#############################################################################\r
-\r
-Objarray contains structures for every actor currently playing. The structure\r
-is accessed as a linked list starting at *player, ending when ob->next ==\r
-NULL. GetNewObj inserts a new object at the end of the list, meaning that\r
-if an actor spawns another actor, the new one WILL get to think and react the\r
-same frame. RemoveObj unlinks the given object and returns it to the free\r
-list, but does not damage the objects ->next pointer, so if the current object\r
-removes itself, a linked list following loop can still safely get to the\r
-next element.\r
-\r
-<backwardly linked free list>\r
-\r
-#############################################################################\r
-*/\r
-\r
-\r
-/*\r
-=========================\r
-=\r
-= InitObjArray\r
-=\r
-= Call to clear out the entire object list, returning them all to the free\r
-= list. Allocates a special spot for the player.\r
-=\r
-=========================\r
-*/\r
-\r
-void InitObjArray(void)\r
-{\r
- Sint16 i;\r
-\r
- for (i=0; i<MAXACTORS; i++)\r
- {\r
- objarray[i].prev = &objarray[i+1];\r
- objarray[i].next = NULL;\r
- }\r
-\r
- objarray[MAXACTORS-1].prev = NULL;\r
-\r
- objfreelist = &objarray[0];\r
- lastobj = NULL;\r
-\r
- objectcount = 0;\r
-\r
-//\r
-// give the player and score the first free spots\r
-//\r
- GetNewObj(false);\r
- player = new;\r
- GetNewObj(false);\r
- scoreobj = new;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=========================\r
-=\r
-= GetNewObj\r
-=\r
-= Sets the global variable new to point to a free spot in objarray.\r
-= The free spot is inserted at the end of the liked list\r
-=\r
-= When the object list is full, the caller can either have it bomb out or\r
-= return a dummy object pointer that will never get used\r
-=\r
-= Returns -1 when list was full, otherwise returns 0.\r
-=\r
-=========================\r
-*/\r
-\r
-Sint16 GetNewObj(boolean usedummy)\r
-{\r
- if (!objfreelist)\r
- {\r
- if (usedummy)\r
- {\r
- new = &dummyobj;\r
- return -1;\r
- }\r
- Quit("GetNewObj: No free spots in objarray!");\r
- }\r
- new = objfreelist;\r
- objfreelist = new->prev;\r
- memset(new, 0, sizeof(*new));\r
- if (lastobj)\r
- {\r
- lastobj->next = new;\r
- }\r
- new->prev = lastobj; // new->next is allready NULL from memset\r
-\r
- new->active = ac_yes;\r
- new->needtoclip = cl_midclip;\r
- lastobj = new;\r
-\r
- objectcount++;\r
- return 0;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=========================\r
-=\r
-= RemoveObj\r
-=\r
-= Add the given object back into the free list, and unlink it from it's\r
-= neighbors\r
-=\r
-=========================\r
-*/\r
-\r
-void RemoveObj(objtype *ob)\r
-{\r
- if (ob == player)\r
- Quit("RemoveObj: Tried to remove the player!");\r
-\r
-//\r
-// erase it from the refresh manager\r
-//\r
- RF_RemoveSprite(&ob->sprite);\r
- if (ob->obclass == stunnedobj)\r
- {\r
- RF_RemoveSprite((void **)&ob->temp3);\r
- }\r
-\r
-//\r
-// fix the next object's back link\r
-//\r
- if (ob == lastobj)\r
- {\r
- lastobj = ob->prev;\r
- }\r
- else\r
- {\r
- ob->next->prev = ob->prev;\r
- }\r
-\r
-//\r
-// fix the previous object's forward link\r
-//\r
- ob->prev->next = ob->next;\r
-\r
-//\r
-// add it back in to the free list\r
-//\r
- ob->prev = objfreelist;\r
- objfreelist = ob;\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= GivePoints\r
-=\r
-= Grants extra men at 20k,40k,80k,160k,320k\r
-=\r
-====================\r
-*/\r
-\r
-void GivePoints(Uint16 points)\r
-{\r
- gamestate.score += points;\r
- if (!DemoMode && gamestate.score >= gamestate.nextextra)\r
- {\r
- SD_PlaySound(SND_EXTRAKEEN);\r
- gamestate.lives++;\r
- gamestate.nextextra *= 2;\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-===================\r
-=\r
-= PollControls\r
-=\r
-===================\r
-*/\r
-\r
-void PollControls(void)\r
-{\r
- IN_ReadControl(0, &c);\r
- if (c.yaxis != -1)\r
- upheld = false;\r
-\r
- if (GravisGamepad && !DemoMode)\r
- {\r
- jumpbutton = GravisAction[ga_Jump];\r
- pogobutton = GravisAction[ga_Pogo];\r
- firebutton = GravisAction[ga_Fire];\r
- if (!jumpbutton)\r
- jumpheld = false;\r
- if (!pogobutton)\r
- pogoheld = false;\r
- if (!firebutton)\r
- fireheld = false;\r
- }\r
- else if (oldshooting || DemoMode)\r
- {\r
- if (c.button0 && c.button1)\r
- {\r
- firebutton = true;\r
- jumpbutton = pogobutton = jumpheld = pogoheld = false;\r
- }\r
- else\r
- {\r
- firebutton = fireheld = false;\r
- if (c.button0)\r
- {\r
- jumpbutton = true;\r
- }\r
- else\r
- {\r
- jumpbutton = jumpheld = false;\r
- }\r
- if (c.button1)\r
- {\r
- if (oldfirecount <= 8)\r
- {\r
- oldfirecount = oldfirecount + tics;\r
- }\r
- else\r
- {\r
- pogobutton = true;\r
- }\r
- }\r
- else\r
- {\r
- if (oldfirecount != 0)\r
- {\r
- pogobutton = true;\r
- }\r
- else\r
- {\r
- pogobutton = pogoheld = false;\r
- }\r
- oldfirecount = 0;\r
- }\r
- }\r
- }\r
- else\r
- {\r
- jumpbutton = c.button0;\r
- pogobutton = c.button1;\r
- firebutton = Keyboard[firescan];\r
- if (!jumpbutton)\r
- jumpheld = false;\r
- if (!pogobutton)\r
- pogoheld = false;\r
- if (!firebutton)\r
- fireheld = false;\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-=================\r
-=\r
-= StopMusic\r
-=\r
-=================\r
-*/\r
-\r
-void StopMusic(void)\r
-{\r
- Sint16 i;\r
-\r
- SD_MusicOff();\r
- for (i=0; i<LASTMUSIC; i++)\r
- {\r
- if (audiosegs[STARTMUSIC+i])\r
- {\r
-#ifdef FIX_MUSIC_MEMORY_ISSUES\r
- //unlock any music blocks so that they can be purged\r
- MM_SetLock(&(memptr)audiosegs[STARTMUSIC+i], false);\r
-#endif\r
- MM_SetPurge(&(memptr)audiosegs[STARTMUSIC+i], PURGE_FIRST);\r
- }\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-=================\r
-=\r
-= StartMusic\r
-=\r
-=================\r
-*/\r
-\r
-void StartMusic(Uint16 num)\r
-{\r
- static Sint16 songs[] =\r
- {\r
-#if defined KEEN4\r
- SHADOWS_MUS,\r
- KICKPANT_MUS,\r
- OASIS_MUS,\r
- OASIS_MUS,\r
- TOOHOT_MUS,\r
- TOOHOT_MUS,\r
- KICKPANT_MUS,\r
- OASIS_MUS,\r
- VEGGIES_MUS,\r
- VEGGIES_MUS,\r
- VEGGIES_MUS,\r
- TOOHOT_MUS,\r
- TOOHOT_MUS,\r
- TOOHOT_MUS,\r
- TOOHOT_MUS,\r
- TOOHOT_MUS,\r
- TOOHOT_MUS,\r
- VEGGIES_MUS,\r
- OASIS_MUS,\r
- -1\r
-#elif defined KEEN5\r
- ROBOROCK_MUS,\r
- WEDNESDY_MUS,\r
- BREATHE_MUS,\r
- SPHEREFUL_MUS,\r
- TIGHTER_MUS,\r
- SPHEREFUL_MUS,\r
- TIGHTER_MUS,\r
- SPHEREFUL_MUS,\r
- TIGHTER_MUS,\r
- SPHEREFUL_MUS,\r
- TIGHTER_MUS,\r
- SNOOPING_MUS,\r
- FEARSOME_MUS,\r
- BAGPIPES_MUS,\r
- FANFARE_MUS,\r
- SKATING_MUS,\r
- ROCK_ME_MUS,\r
- HAVING_T_MUS,\r
- CAMEIN_MUS,\r
- SHIKAIRE_MUS,\r
-#elif defined KEEN6\r
- ALIENATE_MUS,\r
- FASTER_MUS,\r
- BRERTAR_MUS,\r
- MAMSNAKE_MUS,\r
- MAMSNAKE_MUS,\r
- MAMSNAKE_MUS,\r
- METAL_MUS,\r
- TOFUTURE_MUS,\r
- METAL_MUS,\r
- BRERTAR_MUS,\r
- FASTER_MUS,\r
- TOFUTURE_MUS,\r
- BRERTAR_MUS,\r
- SPACFUNK_MUS,\r
- SPACFUNK_MUS,\r
- OMINOUS_MUS,\r
- TOFUTURE_MUS,\r
- WONDER_MUS,\r
- WONDER_MUS,\r
- WONDER_MUS\r
-#endif\r
- };\r
-\r
- Sint16 song;\r
- boolean wasfaded;\r
-\r
- if (num >= ARRAYLENGTH(songs) && num != 0xFFFF)\r
- {\r
- Quit("StartMusic() - bad level number");\r
- }\r
-\r
-#ifdef FIX_MUSIC_MEMORY_ISSUES\r
- StopMusic();\r
-#else\r
- SD_MusicOff();\r
-#endif\r
-\r
-#ifdef KEEN4\r
- if (num == 0xFFFF)\r
- {\r
- song = WONDER_MUS;\r
- }\r
- else\r
- {\r
- song = songs[num];\r
- }\r
-#else\r
- song = songs[num];\r
-#endif\r
-\r
- if (song == -1 || MusicMode != smm_AdLib)\r
- {\r
- return;\r
- }\r
-\r
- MM_BombOnError(false);\r
- CA_CacheAudioChunk(STARTMUSIC+song);\r
- MM_BombOnError(true);\r
- if (mmerror)\r
- {\r
- mmerror = false;\r
- if (!DemoMode)\r
- {\r
- US_CenterWindow(20, 8);\r
- PrintY += 20;\r
- US_CPrint("Insufficient memory\nfor background music!");\r
- VW_UpdateScreen();\r
- wasfaded = screenfaded;\r
- if (wasfaded)\r
- {\r
- VW_SetDefaultColors();\r
- }\r
- IN_ClearKeysDown();\r
- IN_UserInput(3*TickBase, false);\r
- if (wasfaded)\r
- {\r
- VW_FadeOut();\r
- }\r
- }\r
- }\r
- else\r
- {\r
-#ifdef FIX_MUSIC_MEMORY_ISSUES\r
- //The current music should be locked, so the memory manager will not\r
- //mess with it when compressing memory blocks in MM_SortMem().\r
- MM_SetLock(&(memptr)audiosegs[STARTMUSIC+song], true);\r
-#endif\r
- SD_StartMusic((MusicGroup far *)audiosegs[STARTMUSIC+song]);\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-===================\r
-=\r
-= PlayLoop\r
-=\r
-===================\r
-*/\r
-\r
-void PlayLoop(void)\r
-{\r
- objtype *check;\r
-\r
- StartMusic(gamestate.mapon);\r
- fireheld = pogoheld = upheld = jumpheld = false;\r
- ingame = true;\r
- playstate = ex_stillplaying;\r
- invincible = keenkilled = oldfirecount = 0;\r
-\r
- CenterActor(player);\r
-\r
- if (DemoMode)\r
- {\r
- US_InitRndT(false);\r
- }\r
- else\r
- {\r
- US_InitRndT(true);\r
- }\r
- TimeCount = lasttimecount = tics = 3;\r
-\r
- do\r
- {\r
- PollControls();\r
-\r
-//\r
-// go through state changes and propose movements\r
-//\r
- for (obj=player; obj; obj=obj->next)\r
- {\r
- if (!obj->active && obj->tileright >= originxtile-1\r
- && obj->tileleft <= originxtilemax+1 && obj->tiletop <= originytilemax+1\r
- && obj->tilebottom >= originytile-1)\r
- {\r
- obj->needtoreact = true;\r
- obj->active = ac_yes;\r
- }\r
- if (obj->active)\r
- {\r
- if (obj->tileright < inactivateleft\r
- || obj->tileleft > inactivateright\r
- || obj->tiletop > inactivatebottom\r
- || obj->tilebottom < inactivatetop)\r
- {\r
- if (obj->active == ac_removable)\r
- {\r
- RemoveObj(obj);\r
- continue;\r
- }\r
- else if (obj->active != ac_allways)\r
- {\r
- if (US_RndT() < tics*2 || screenfaded || loadedgame)\r
- {\r
- RF_RemoveSprite(&obj->sprite);\r
- if (obj->obclass == stunnedobj)\r
- RF_RemoveSprite((void **)&obj->temp3);\r
- obj->active = ac_no;\r
- continue;\r
- }\r
- }\r
- }\r
- StateMachine(obj);\r
- }\r
- }\r
-\r
- if (gamestate.riding)\r
- {\r
- HandleRiding(player);\r
- }\r
-\r
-//\r
-// check for and handle collisions between objects\r
-//\r
- for (obj=player; obj; obj=obj->next)\r
- {\r
- if (obj->active)\r
- {\r
- for (check=obj->next; check; check=check->next)\r
- {\r
- if (!check->active)\r
- {\r
- continue;\r
- }\r
- if (obj->right > check->left && obj->left < check->right\r
- && obj->top < check->bottom && obj->bottom > check->top)\r
- {\r
- if (obj->state->contact)\r
- {\r
- obj->state->contact(obj, check);\r
- }\r
- if (check->state->contact)\r
- {\r
- check->state->contact(check, obj);\r
- }\r
- if (obj->obclass == nothing) //useless -- obclass is NOT set to nothing by RemoveObj\r
- {\r
- break;\r
- }\r
- }\r
- }\r
- }\r
- }\r
-\r
-//\r
-// check intiles\r
-//\r
- if (mapon != 0)\r
- {\r
- CheckInTiles(player);\r
- }\r
- else\r
- {\r
- CheckWorldInTiles(player);\r
- }\r
-\r
-//\r
-// react to whatever happened, and post sprites to the refresh manager\r
-//\r
- for (obj=player; obj; obj=obj->next)\r
- {\r
- if (!obj->active)\r
- {\r
- continue;\r
- }\r
- if (obj->tilebottom >= mapheight-1)\r
- {\r
- if (obj->obclass == keenobj)\r
- {\r
- playstate = ex_died;\r
- }\r
- else\r
- {\r
- RemoveObj(obj);\r
- }\r
- continue;\r
- }\r
- if (obj->needtoreact && obj->state->react)\r
- {\r
- obj->needtoreact = false;\r
- obj->state->react(obj);\r
- }\r
- }\r
-\r
-//\r
-// scroll the screen and update the score box\r
-//\r
-#ifdef KEEN4\r
- if (mapon != 0 && mapon != 17)\r
-#else\r
- if (mapon != 0)\r
-#endif\r
- {\r
- ScrollScreen(player);\r
- }\r
- else\r
- {\r
- WorldScrollScreen(player);\r
- }\r
- UpdateScore(scoreobj);\r
- if (loadedgame)\r
- {\r
- loadedgame = false;\r
- }\r
-\r
-//\r
-// update the screen and calculate the number of tics it took to execute\r
-// this cycle of events (for adaptive timing of next cycle)\r
-//\r
- RF_Refresh();\r
-\r
- if (invincible)\r
- {\r
- if ((invincible = invincible - tics) < 0)\r
- invincible = 0;\r
- }\r
-\r
-#ifdef KEEN6\r
- if (groundslam)\r
- {\r
- if ((groundslam = groundslam - tics) < 0)\r
- groundslam = 0;\r
- }\r
-#endif\r
-//\r
-// single step debug mode\r
-//\r
- if (singlestep)\r
- {\r
- VW_WaitVBL(14); //reduces framerate to 5 fps on VGA or 4.3 fps on EGA cards\r
- lasttimecount = TimeCount;\r
- }\r
-//\r
-// extra VBLs debug mode\r
-//\r
- if (extravbls)\r
- {\r
- VW_WaitVBL(extravbls);\r
- }\r
-\r
-//\r
-// handle user inputs\r
-//\r
- if (DemoMode == demo_Playback)\r
- {\r
- if (!screenfaded && IN_IsUserInput())\r
- {\r
- playstate = ex_completed;\r
- if (LastScan != sc_F1)\r
- {\r
- LastScan = sc_Space;\r
- }\r
- }\r
- }\r
- else if (DemoMode == demo_PlayDone)\r
- {\r
- playstate = ex_completed;\r
- }\r
- else\r
- {\r
- CheckKeys();\r
- }\r
-\r
-//\r
-// E-N-D cheat\r
-//\r
- if (Keyboard[sc_E] && Keyboard[sc_N] && Keyboard[sc_D])\r
- {\r
-#if defined KEEN4\r
- gamestate.rescued = 7;\r
- playstate = ex_rescued;\r
-#elif defined KEEN5\r
- playstate = ex_qedbroke;\r
-#elif defined KEEN6\r
- playstate = ex_molly;\r
-#endif\r
- }\r
-\r
- } while (playstate == ex_stillplaying);\r
-\r
- ingame = false;\r
- StopMusic();\r
-}
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-Sint16 wallclip[8][16] = { // the height of a given point in a tile\r
-{ 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256, 256},\r
-{ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},\r
-{ 0,0x08,0x10,0x18,0x20,0x28,0x30,0x38,0x40,0x48,0x50,0x58,0x60,0x68,0x70,0x78},\r
-{0x80,0x88,0x90,0x98,0xa0,0xa8,0xb0,0xb8,0xc0,0xc8,0xd0,0xd8,0xe0,0xe8,0xf0,0xf8},\r
-{ 0,0x10,0x20,0x30,0x40,0x50,0x60,0x70,0x80,0x90,0xa0,0xb0,0xc0,0xd0,0xe0,0xf0},\r
-{0x78,0x70,0x68,0x60,0x58,0x50,0x48,0x40,0x38,0x30,0x28,0x20,0x18,0x10,0x08, 0},\r
-{0xf8,0xf0,0xe8,0xe0,0xd8,0xd0,0xc8,0xc0,0xb8,0xb0,0xa8,0xa0,0x98,0x90,0x88,0x80},\r
-{0xf0,0xe0,0xd0,0xc0,0xb0,0xa0,0x90,0x80,0x70,0x60,0x50,0x40,0x30,0x20,0x10, 0}\r
-};\r
-\r
-Sint16 xtry, ytry;\r
-boolean playerkludgeclipcancel;\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-Uint16 oldtileleft, oldtiletop, oldtileright, oldtilebottom, oldtilemidx;\r
-Uint16 oldleft, oldtop, oldright, oldbottom, oldmidx;\r
-Sint16 leftmoved, topmoved, rightmoved, bottommoved, midxmoved;\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= MoveObjVert\r
-=\r
-====================\r
-*/\r
-\r
-void MoveObjVert(objtype *ob, Sint16 ymove)\r
-{\r
- ob->y += ymove;\r
- ob->top += ymove;\r
- ob->bottom += ymove;\r
- ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top);\r
- ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom);\r
-}\r
-\r
-/*\r
-====================\r
-=\r
-= MoveObjHoriz\r
-=\r
-====================\r
-*/\r
-\r
-void MoveObjHoriz(objtype *ob, Sint16 xmove)\r
-{\r
- //BUG? ob->midx is not adjusted in Keen 4 & 5\r
- ob->x += xmove;\r
- ob->left += xmove;\r
- ob->right += xmove;\r
-#ifdef KEEN6\r
- ob->midx += xmove; //BUG? ob->tilemidx is not updated\r
-#endif\r
- ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left);\r
- ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right);\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= PlayerBottomKludge\r
-=\r
-====================\r
-*/\r
-\r
-void PlayerBottomKludge(objtype *ob)\r
-{\r
- Uint16 far *map;\r
- Uint16 wall, clip, xpix;\r
- Sint16 xmove, ymove;\r
-\r
- map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tilebottom-1]/2;\r
- if (ob->xdir == 1)\r
- {\r
- xpix = 0;\r
- map += ob->tileright;\r
- xmove = ob->right - ob->midx;\r
- if (tinf[*(map-mapwidth)+WESTWALL] || tinf[*map+WESTWALL])\r
- {\r
- return;\r
- }\r
- }\r
- else\r
- {\r
- xpix = 15;\r
- map += ob->tileleft;\r
- xmove = ob->left - ob->midx;\r
- if (tinf[*(map-mapwidth)+EASTWALL] || tinf[*map+EASTWALL])\r
- {\r
- return;\r
- }\r
- }\r
- if ((_AX = tinf[*map+NORTHWALL]) != 0) // the _AX = ... part is just to recreate the original code's quirks, feel free to delete this\r
- {\r
- return;\r
- }\r
- map += mapwidth;\r
- if ((wall = tinf[*map+NORTHWALL]) != 1)\r
- {\r
- return;\r
- }\r
- clip = wallclip[wall&7][xpix];\r
- ymove = CONVERT_TILE_TO_GLOBAL(ob->tilebottom) + clip - 1 -ob->bottom;\r
- if (ymove <= 0 && ymove >= -bottommoved)\r
- {\r
- ob->hitnorth = wall;\r
- MoveObjVert(ob, ymove);\r
- MoveObjHoriz(ob, xmove);\r
- }\r
-}\r
-\r
-/*\r
-====================\r
-=\r
-= PlayerTopKludge\r
-=\r
-====================\r
-*/\r
-\r
-void PlayerTopKludge(objtype *ob)\r
-{\r
- Uint16 far *map;\r
- Uint16 xpix, wall, clip;\r
- Sint16 move;\r
-\r
- map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tiletop+1]/2;\r
- if (ob->xdir == 1)\r
- {\r
- xpix = 0;\r
- map += ob->tileright;\r
- if (tinf[*(map+mapwidth)+WESTWALL] || tinf[*(map+2*mapwidth)+WESTWALL])\r
- {\r
- return;\r
- }\r
- }\r
- else\r
- {\r
- xpix = 15;\r
- map += ob->tileleft;\r
- if (tinf[*(map+mapwidth)+EASTWALL] || tinf[*(map+2*mapwidth)+EASTWALL])\r
- {\r
- return;\r
- }\r
- }\r
- if ((_AX = tinf[*map+SOUTHWALL]) != 0) // the _AX = ... part is just to recreate the original code's quirks, feel free to delete this\r
- {\r
- return;\r
- }\r
- map -= mapwidth;\r
- if ((wall = tinf[*map+SOUTHWALL]) != 0)\r
- {\r
- clip = wallclip[wall&7][xpix];\r
- move = CONVERT_TILE_TO_GLOBAL(ob->tiletop+1) - clip - ob->top;\r
- if (move >= 0 && move <= -topmoved)\r
- {\r
- ob->hitsouth = wall;\r
- MoveObjVert(ob, move);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= ClipToEnds\r
-=\r
-===========================\r
-*/\r
-\r
-void ClipToEnds(objtype *ob)\r
-{\r
- Uint16 far *map;\r
- Uint16 wall, y, clip;\r
- Sint16 totalmove, maxmove, move;\r
- Uint16 midxpix;\r
- \r
- midxpix = CONVERT_GLOBAL_TO_PIXEL(ob->midx & 0xF0);\r
- maxmove = -abs(midxmoved)-bottommoved-16;\r
- map = (Uint16 far *)mapsegs[1] + (mapbwidthtable-1)[oldtilebottom]/2 + ob->tilemidx;\r
- for (y=oldtilebottom-1; y <= ob->tilebottom; y++,map+=mapwidth)\r
- {\r
- if ((wall = tinf[*map + NORTHWALL]) != 0)\r
- {\r
- clip = wallclip[wall&7][midxpix];\r
- move = (CONVERT_TILE_TO_GLOBAL(y) + clip)-1-ob->bottom;\r
- if (move < 0 && move >= maxmove)\r
- {\r
- ob->hitnorth = wall;\r
- MoveObjVert(ob, move);\r
- return;\r
- }\r
- }\r
- }\r
- maxmove = abs(midxmoved)-topmoved+16;\r
- map = (Uint16 far *)mapsegs[1] + (mapbwidthtable+1)[oldtiletop]/2 + ob->tilemidx;\r
- for (y=oldtiletop+1; y >= ob->tiletop; y--,map-=mapwidth) // BUG: unsigned comparison - loop never ends if ob->tiletop is 0\r
- {\r
- if ((wall = tinf[*map + SOUTHWALL]) != 0)\r
- {\r
- clip = wallclip[wall&7][midxpix];\r
- move = CONVERT_TILE_TO_GLOBAL(y+1) - clip - ob->top;\r
- if (move > 0 && move <= maxmove)\r
- {\r
- totalmove = ytry+move;\r
- if (totalmove < 0x100 && totalmove > -0x100)\r
- {\r
- ob->hitsouth = wall;\r
- MoveObjVert(ob, move);\r
- //BUG? no return here\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= ClipToSides\r
-=\r
-===========================\r
-*/\r
-\r
-void ClipToSides(objtype *ob)\r
-{\r
- Sint16 move, y, top, bottom;\r
- Uint16 far *map;\r
- \r
- top = ob->tiletop;\r
- if (ob->hitsouth > 1)\r
- {\r
- top++;\r
- }\r
- bottom = ob->tilebottom;\r
- if (ob->hitnorth > 1)\r
- {\r
- bottom--;\r
- }\r
- for (y=top; y<=bottom; y++)\r
- {\r
- map = (Uint16 far *)mapsegs[1] + mapbwidthtable[y]/2 + ob->tileleft;\r
- if ((ob->hiteast = tinf[*map+EASTWALL]) != 0)\r
- {\r
- move = CONVERT_TILE_TO_GLOBAL(ob->tileleft+1) - ob->left;\r
- MoveObjHoriz(ob, move);\r
- return;\r
- }\r
- }\r
- for (y=top; y<=bottom; y++)\r
- {\r
- map = (Uint16 far *)mapsegs[1] + mapbwidthtable[y]/2 + ob->tileright;\r
- if ((ob->hitwest = tinf[*map+WESTWALL]) != 0)\r
- {\r
- move = (CONVERT_TILE_TO_GLOBAL(ob->tileright)-1)-ob->right;\r
- MoveObjHoriz(ob, move);\r
- return;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= CheckPosition\r
-=\r
-===========================\r
-*/\r
-\r
-boolean CheckPosition(objtype *ob)\r
-{\r
-#ifdef KEEN6Ev15\r
- // This version is pretty much a compiler-optimized version of the other\r
- // version below, but I simply could not get the compiler to optimize it\r
- // in exactly the same way.\r
-\r
- Uint16 tile, x, tileright;\r
- Uint16 far *map;\r
- Uint16 rowdiff;\r
- Uint16 tileleft, y, tilebottom;\r
- \r
- map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft;\r
- rowdiff = mapwidth-(ob->tileright-ob->tileleft+1);\r
-\r
- y = ob->tiletop;\r
- tileleft = ob->tileleft;\r
- tileright = _AX = ob->tileright;\r
- tilebottom = ob->tilebottom;\r
-\r
- for (; tilebottom>=y; y++,map+=rowdiff)\r
- {\r
- for (x=tileleft; tileright>=x; x++)\r
- {\r
- tile = *(map++);\r
- if (tinf[tile+NORTHWALL] || tinf[tile+EASTWALL] || tinf[tile+SOUTHWALL] || tinf[tile+WESTWALL])\r
- {\r
- return false;\r
- }\r
- }\r
- }\r
- return true;\r
-#else\r
- Uint16 tile, x, y;\r
- Uint16 far *map;\r
- Uint16 rowdiff;\r
- \r
- map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft;\r
- rowdiff = mapwidth-(ob->tileright-ob->tileleft+1);\r
- for (y=ob->tiletop; y<=ob->tilebottom; y++,map+=rowdiff)\r
- {\r
- for (x=ob->tileleft; x<=ob->tileright; x++)\r
- {\r
- tile = *(map++);\r
- if (tinf[tile+NORTHWALL] || tinf[tile+EASTWALL] || tinf[tile+SOUTHWALL] || tinf[tile+WESTWALL])\r
- {\r
- return false;\r
- }\r
- }\r
- }\r
- return true;\r
-#endif\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= StatePositionOk\r
-=\r
-===========================\r
-*/\r
-\r
-boolean StatePositionOk(objtype *ob, statetype *state)\r
-{\r
- spritetabletype far *shape;\r
-\r
- if (ob->xdir > 0)\r
- {\r
- ob->shapenum = state->rightshapenum;\r
- }\r
- else\r
- {\r
- ob->shapenum = state->leftshapenum;\r
- }\r
- shape = &spritetable[ob->shapenum-STARTSPRITES];\r
- ob->left = ob->x + shape->xl;\r
- ob->right = ob->x + shape->xh;\r
- ob->top = ob->y + shape->yl;\r
- ob->bottom = ob->y + shape->yh;\r
- ob->midx = ob->left + (ob->right-ob->left)/2;\r
- ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left);\r
- ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right);\r
- ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top);\r
- ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom);\r
- ob->tilemidx = CONVERT_GLOBAL_TO_TILE(ob->midx);\r
- return CheckPosition(ob);\r
-}\r
-\r
-#ifdef KEEN5\r
-/*\r
-===========================\r
-=\r
-= CalcBounds\r
-=\r
-===========================\r
-*/\r
-\r
-void CalcBounds(objtype *ob) //not present in Keen 4 & 6\r
-{\r
- spritetabletype far *shape;\r
-\r
- shape = &spritetable[ob->shapenum-STARTSPRITES];\r
- ob->left = ob->x + shape->xl;\r
- ob->right = ob->x + shape->xh;\r
- ob->top = ob->y + shape->yl;\r
- ob->bottom = ob->y + shape->yh;\r
- ob->midx = ob->left + (ob->right-ob->left)/2;\r
-}\r
-#endif\r
-\r
-//==========================================================================\r
-\r
-/*\r
-================\r
-=\r
-= ClipToWalls\r
-=\r
-= Moves the current object xtry/ytry units, clipping to walls\r
-=\r
-================\r
-*/\r
-\r
-void ClipToWalls(objtype *ob)\r
-{\r
- Uint16 oldx, oldy;\r
-#ifdef KEEN6\r
- Uint16 y;\r
-#endif\r
- spritetabletype far *shape;\r
- boolean pushed;\r
-\r
- oldx = ob->x;\r
- oldy = ob->y;\r
- pushed = false;\r
-\r
-//\r
-// make sure it stays in contact with a 45 degree slope\r
-//\r
- if (ob->state->pushtofloor)\r
- {\r
- if (ob->hitnorth == 25)\r
- {\r
- ytry = 145;\r
- }\r
- else\r
- {\r
- if (xtry > 0)\r
- {\r
- ytry = xtry+16;\r
- }\r
- else\r
- {\r
- ytry = -xtry+16;\r
- }\r
- pushed = true;\r
- }\r
- }\r
-\r
-//\r
-// move the shape\r
-//\r
- if (xtry > 239)\r
- {\r
- xtry = 239;\r
- }\r
- else if (xtry < -239)\r
- {\r
- xtry = -239;\r
- }\r
- if (ytry > 255) // +16 for push to floor\r
- {\r
- ytry = 255;\r
- }\r
- else if (ytry < -239)\r
- {\r
- ytry = -239;\r
- }\r
-\r
- ob->x += xtry;\r
- ob->y += ytry;\r
-\r
- ob->needtoreact = true;\r
-\r
- if (!ob->shapenum) // can't get a hit rect with no shape!\r
- {\r
- return;\r
- }\r
-\r
- shape = &spritetable[ob->shapenum-STARTSPRITES];\r
-\r
- oldtileright = ob->tileright;\r
- oldtiletop = ob->tiletop;\r
- oldtileleft = ob->tileleft;\r
- oldtilebottom = ob->tilebottom;\r
- oldtilemidx = ob->tilemidx;\r
-\r
- oldright = ob->right;\r
- oldtop = ob->top;\r
- oldleft = ob->left;\r
- oldbottom = ob->bottom;\r
- oldmidx = ob->midx;\r
-\r
- ob->left = ob->x + shape->xl;\r
- ob->right = ob->x + shape->xh;\r
- ob->top = ob->y + shape->yl;\r
- ob->bottom = ob->y + shape->yh;\r
- ob->midx = ob->left + (ob->right-ob->left)/2;\r
-\r
- ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left);\r
- ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right);\r
- ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top);\r
- ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom);\r
- ob->tilemidx = CONVERT_GLOBAL_TO_TILE(ob->midx);\r
-\r
- ob->hitnorth=ob->hiteast=ob->hitsouth=ob->hitwest=0;\r
-\r
- if (ob->needtoclip)\r
- {\r
- leftmoved = ob->left - oldleft;\r
- rightmoved = ob->right - oldright;\r
- topmoved = ob->top - oldtop;\r
- bottommoved = ob->bottom - oldbottom;\r
- midxmoved = ob->midx - oldmidx;\r
-\r
- //\r
- // clip it\r
- //\r
- ClipToEnds(ob);\r
-\r
- if (ob == player && !playerkludgeclipcancel) // zero tolerance near the edge when player gets pushed!\r
- {\r
- if (!ob->hitnorth && bottommoved > 0)\r
- {\r
- PlayerBottomKludge(ob);\r
- }\r
- if (!ob->hitsouth && topmoved < 0)\r
- {\r
- PlayerTopKludge(ob);\r
- }\r
- }\r
- ClipToSides(ob);\r
-\r
-#ifdef KEEN6\r
- //\r
- // special hack to prevent player from getting stuck on slopes?\r
- //\r
- if (ob == player && (ob->hitnorth & 7) > 1 && (ob->hiteast || ob->hitwest))\r
- {\r
- Uint16 far *map;\r
- Uint16 pixx, clip, move;\r
- Uint16 wall;\r
-\r
- pixx = CONVERT_GLOBAL_TO_PIXEL(ob->midx & (15*PIXGLOBAL));\r
- map = (Uint16 far *)mapsegs[1] + mapbwidthtable[oldtilebottom]/2 + ob->tilemidx;\r
-\r
- for (y=oldtilebottom; ob->tilebottom+1 >= y; y++, map+=mapwidth)\r
- {\r
- if ((wall = tinf[*map + NORTHWALL]) != 0)\r
- {\r
- clip = wallclip[wall & 7][pixx];\r
- move = CONVERT_TILE_TO_GLOBAL(y) + clip - 1 - ob->bottom;\r
- ob->hitnorth = wall;\r
- MoveObjVert(ob, move);\r
- return;\r
- }\r
- }\r
- }\r
-#endif\r
- }\r
- if (pushed && !ob->hitnorth)\r
- {\r
- ob->y = oldy;\r
- ob->x = oldx + xtry;\r
-\r
- ob->left = ob->x + shape->xl;\r
- ob->right = ob->x + shape->xh;\r
- ob->top = ob->y + shape->yl;\r
- ob->bottom = ob->y + shape->yh;\r
- ob->midx = ob->left + (ob->right-ob->left)/2;\r
-\r
- ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left);\r
- ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right);\r
- ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top);\r
- ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom);\r
- ob->tilemidx = CONVERT_GLOBAL_TO_TILE(ob->midx);\r
- }\r
-\r
- ob->xmove = ob->xmove + (ob->x - oldx);\r
- ob->ymove = ob->ymove + (ob->y - oldy);\r
-}\r
-\r
-/*\r
-================\r
-=\r
-= FullClipToWalls\r
-=\r
-= Moves the current object xtry/ytry units, clipping to walls\r
-=\r
-================\r
-*/\r
-\r
-void FullClipToWalls(objtype *ob)\r
-{\r
- Uint16 oldx, oldy, w, h;\r
- spritetabletype far *shape;\r
-\r
- oldx = ob->x;\r
- oldy = ob->y;\r
-\r
-//\r
-// move the shape\r
-//\r
- if (xtry > 239)\r
- {\r
- xtry = 239;\r
- }\r
- else if (xtry < -239)\r
- {\r
- xtry = -239;\r
- }\r
- if (ytry > 239)\r
- {\r
- ytry = 239;\r
- }\r
- else if (ytry < -239)\r
- {\r
- ytry = -239;\r
- }\r
-\r
- ob->x += xtry;\r
- ob->y += ytry;\r
-\r
- ob->needtoreact = true;\r
-\r
- shape = &spritetable[ob->shapenum-STARTSPRITES];\r
-\r
- switch (ob->obclass)\r
- {\r
-#if defined KEEN4\r
- case keenobj:\r
- w = 40*PIXGLOBAL;\r
- h = 24*PIXGLOBAL;\r
- break;\r
- case eggbirdobj:\r
- w = 64*PIXGLOBAL;\r
- h = 32*PIXGLOBAL;\r
- break;\r
- case dopefishobj:\r
- w = 88*PIXGLOBAL;\r
- h = 64*PIXGLOBAL;\r
- break;\r
- case schoolfishobj:\r
- w = 16*PIXGLOBAL;\r
- h = 8*PIXGLOBAL;\r
- break;\r
-#elif defined KEEN5\r
- case slicestarobj:\r
- case spherefulobj:\r
- w = h = 32*PIXGLOBAL;\r
- break;\r
-#elif defined KEEN6\r
- case blorbobj:\r
- w = h = 32*PIXGLOBAL;\r
- break;\r
-#endif\r
-\r
- default:\r
- Quit("FullClipToWalls: Bad obclass");\r
- break;\r
- }\r
-\r
- ob->right = ob->x + w;\r
- ob->left = ob->x;\r
- ob->top = ob->y;\r
- ob->bottom = ob->y + h;\r
-\r
- ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left);\r
- ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right);\r
- ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top);\r
- ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom);\r
-\r
- ob->hitnorth=ob->hiteast=ob->hitsouth=ob->hitwest=0;\r
-\r
-//\r
-// clip it\r
-//\r
- if (!CheckPosition(ob))\r
- {\r
- MoveObjHoriz(ob, -xtry); //undo x movement\r
- if (CheckPosition(ob))\r
- {\r
- if (xtry > 0)\r
- {\r
- ob->hitwest = 1;\r
- }\r
- else\r
- {\r
- ob->hiteast = 1;\r
- }\r
- }\r
- else\r
- {\r
- if (ytry > 0)\r
- {\r
- ob->hitnorth = 1;\r
- }\r
- else\r
- {\r
- ob->hitsouth = 1;\r
- }\r
- MoveObjHoriz(ob, xtry); //redo x movement\r
- MoveObjVert(ob, -ytry); //undo y movement\r
- if (!CheckPosition(ob))\r
- {\r
- MoveObjHoriz(ob, -xtry); //undo x movement\r
- if (xtry > 0)\r
- {\r
- ob->hitwest = 1;\r
- }\r
- else\r
- {\r
- ob->hiteast = 1;\r
- }\r
- }\r
- }\r
- }\r
-\r
- ob->xmove = ob->xmove + (ob->x - oldx);\r
- ob->ymove = ob->ymove + (ob->y - oldy);\r
-\r
- ob->left = ob->x + shape->xl;\r
- ob->right = ob->x + shape->xh;\r
- ob->top = ob->y + shape->yl;\r
- ob->bottom = ob->y + shape->yh;\r
- ob->midx = ob->left + (ob->right-ob->left)/2;\r
-}\r
-\r
-/*\r
-================\r
-=\r
-= PushObj\r
-=\r
-= Moves the current object xtry/ytry units, clipping to walls\r
-=\r
-================\r
-*/\r
-\r
-void PushObj(objtype *ob)\r
-{\r
- Uint16 oldx, oldy;\r
- spritetabletype far *shape;\r
- \r
- oldx = ob->x;\r
- oldy = ob->y;\r
-\r
-//\r
-// move the shape\r
-//\r
- ob->x += xtry;\r
- ob->y += ytry;\r
-\r
- ob->needtoreact = true;\r
-\r
- if (!ob->shapenum) // can't get a hit rect with no shape!\r
- {\r
- return;\r
- }\r
-\r
- shape = &spritetable[ob->shapenum-STARTSPRITES];\r
-\r
- oldtileright = ob->tileright;\r
- oldtiletop = ob->tiletop;\r
- oldtileleft = ob->tileleft;\r
- oldtilebottom = ob->tilebottom;\r
- oldtilemidx = ob->tilemidx;\r
-\r
- oldright = ob->right;\r
- oldtop = ob->top;\r
- oldleft = ob->left;\r
- oldbottom = ob->bottom;\r
- oldmidx = ob->midx;\r
-\r
- ob->left = ob->x + shape->xl;\r
- ob->right = ob->x + shape->xh;\r
- ob->top = ob->y + shape->yl;\r
- ob->bottom = ob->y + shape->yh;\r
- ob->midx = ob->left + (ob->right-ob->left)/2;\r
-\r
- ob->tileleft = CONVERT_GLOBAL_TO_TILE(ob->left);\r
- ob->tileright = CONVERT_GLOBAL_TO_TILE(ob->right);\r
- ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top);\r
- ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom);\r
- ob->tilemidx = CONVERT_GLOBAL_TO_TILE(ob->midx);\r
-\r
- if (ob->needtoclip)\r
- {\r
- leftmoved = ob->left - oldleft;\r
- rightmoved = ob->right - oldright;\r
- topmoved = ob->top - oldtop;\r
- bottommoved = ob->bottom - oldbottom;\r
- midxmoved = ob->midx - oldmidx;\r
-\r
- ClipToEnds(ob);\r
- ClipToSides(ob);\r
- }\r
-\r
- ob->xmove = ob->xmove + (ob->x - oldx);\r
- ob->ymove = ob->ymove + (ob->y - oldy);\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-==================\r
-=\r
-= ClipToSpriteSide\r
-=\r
-= Clips push to solid\r
-=\r
-==================\r
-*/\r
-\r
-void ClipToSpriteSide(objtype *push, objtype *solid)\r
-{\r
- Sint16 xmove, leftinto, rightinto;\r
-\r
- //\r
- // amount the push shape can be pushed\r
- //\r
- xmove = solid->xmove - push->xmove;\r
-\r
- //\r
- // amount it is inside\r
- //\r
- leftinto = solid->right - push->left;\r
- rightinto = push->right - solid->left;\r
-\r
- if (leftinto > 0 && leftinto <= xmove)\r
- {\r
- xtry = leftinto;\r
- if (push->state->pushtofloor)\r
- {\r
- ytry = leftinto+16;\r
- }\r
- ClipToWalls(push);\r
- push->hiteast = 1;\r
- }\r
- else if (rightinto > 0 && rightinto <= -xmove)\r
- {\r
- xtry = -rightinto;\r
- if (push->state->pushtofloor)\r
- {\r
- ytry = rightinto+16;\r
- }\r
- ClipToWalls(push);\r
- push->hitwest = 1;\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-==================\r
-=\r
-= ClipToSpriteTop\r
-=\r
-= Clips push to solid\r
-=\r
-==================\r
-*/\r
-\r
-void ClipToSpriteTop(objtype *push, objtype *solid)\r
-{\r
- Sint16 temp, ymove, bottominto;\r
-\r
- //\r
- // amount the push shape can be pushed\r
- //\r
- ymove = push->ymove - solid->ymove;\r
-\r
- //\r
- // amount it is inside\r
- //\r
- bottominto = push->bottom - solid->top;\r
-\r
- if (bottominto >= 0 && bottominto <= ymove)\r
- {\r
- if (push == player)\r
- {\r
- gamestate.riding = solid;\r
- }\r
- ytry = -bottominto;\r
- temp = push->state->pushtofloor;\r
- push->state->pushtofloor = false;\r
- ClipToWalls(push);\r
- push->state->pushtofloor = temp;\r
- if (!push->hitsouth)\r
- {\r
- push->hitnorth = 25;\r
- }\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-==================\r
-=\r
-= ClipToSprite\r
-=\r
-= Clips push to solid\r
-=\r
-==================\r
-*/\r
-\r
-void ClipToSprite(objtype *push, objtype *solid, boolean squish)\r
-{\r
- Sint16 xmove, ymove, leftinto, rightinto, topinto, bottominto;\r
- \r
- xmove = solid->xmove - push->xmove;\r
- xtry = ytry = 0;\r
-\r
- //\r
- // left / right\r
- //\r
- leftinto = solid->right - push->left;\r
- rightinto = push->right - solid->left;\r
-\r
- if (leftinto > 0 && xmove+1 >= leftinto)\r
- {\r
- xtry = leftinto;\r
- push->xspeed = 0;\r
- PushObj(push);\r
- if (squish && push->hitwest)\r
- {\r
- KillKeen();\r
- }\r
- push->hiteast = 1;\r
- return;\r
- }\r
- else if (rightinto > 0 && -xmove+1 >= rightinto)\r
- {\r
- xtry = -rightinto;\r
- push->xspeed = 0;\r
- PushObj(push);\r
- if (squish && push->hiteast)\r
- {\r
- KillKeen();\r
- }\r
- push->hitwest = 1;\r
- return;\r
- }\r
-\r
- //\r
- // top / bottom\r
- //\r
- ymove = push->ymove - solid->ymove;\r
- topinto = solid->bottom - push->top;\r
- bottominto = push->bottom - solid->top;\r
- if (bottominto >= 0 && bottominto <= ymove)\r
- {\r
- if (push == player)\r
- {\r
- gamestate.riding = solid;\r
- }\r
- ytry = -bottominto;\r
- PushObj(push);\r
- if (squish && push->hitsouth)\r
- {\r
- KillKeen();\r
- }\r
- if (!push->hitsouth)\r
- {\r
- push->hitnorth = 25;\r
- }\r
- return;\r
- }\r
- else if (topinto >= 0 && topinto <= ymove) // BUG: should be 'topinto <= -ymove'\r
- {\r
- ytry = topinto;\r
- ClipToWalls(push);\r
- if (squish && push->hitnorth)\r
- {\r
- KillKeen();\r
- }\r
- push->hitsouth = 25;\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-==================\r
-=\r
-= DoActor\r
-=\r
-= Moves an actor in its current state by a given number of tics.\r
-= If that time takes it into the next state, it changes the state\r
-= and returns the number of excess tics after the state change\r
-=\r
-==================\r
-*/\r
-\r
-Sint16 DoActor(objtype *ob, Sint16 numtics)\r
-{\r
- Sint16 ticcount, usedtics, excesstics;\r
- statetype *state;\r
- \r
- state = ob->state;\r
-\r
- if (state->progress == think)\r
- {\r
- if (state->think)\r
- {\r
- if (ob->nothink)\r
- {\r
- ob->nothink--;\r
- }\r
- else\r
- {\r
- state->think(ob);\r
- }\r
- }\r
- return 0;\r
- }\r
-\r
- ticcount = ob->ticcount + numtics;\r
-\r
- if (state->tictime > ticcount || state->tictime == 0)\r
- {\r
- ob->ticcount = ticcount;\r
- if (state->progress == slide || state->progress == slidethink)\r
- {\r
- if (ob->xdir)\r
- {\r
- xtry += ob->xdir == 1? numtics*state->xmove : -numtics*state->xmove;\r
- }\r
- if (ob->ydir)\r
- {\r
- ytry += ob->ydir == 1? numtics*state->ymove : -numtics*state->ymove;\r
- }\r
- }\r
- if ((state->progress == slidethink || state->progress == stepthink) && state->think)\r
- {\r
- if (ob->nothink)\r
- {\r
- ob->nothink--;\r
- }\r
- else\r
- {\r
- state->think(ob);\r
- }\r
- }\r
- return 0;\r
- }\r
- else\r
- {\r
- usedtics = state->tictime - ob->ticcount;\r
- excesstics = ticcount - state->tictime;\r
- ob->ticcount = 0;\r
- if (state->progress == slide || state->progress == slidethink)\r
- {\r
- if (ob->xdir)\r
- {\r
- xtry += ob->xdir == 1? usedtics*state->xmove : -usedtics*state->xmove;\r
- }\r
- if (ob->ydir)\r
- {\r
- ytry += ob->ydir == 1? usedtics*state->ymove : -usedtics*state->ymove;\r
- }\r
- }\r
- else\r
- {\r
- if (ob->xdir)\r
- {\r
- xtry += ob->xdir == 1? state->xmove : -state->xmove;\r
- }\r
- if (ob->ydir)\r
- {\r
- ytry += ob->ydir == 1? state->ymove : -state->ymove;\r
- }\r
- }\r
-\r
- if (state->think)\r
- {\r
- if (ob->nothink)\r
- {\r
- ob->nothink--;\r
- }\r
- else\r
- {\r
- state->think(ob);\r
- }\r
- }\r
-\r
- if (state == ob->state)\r
- {\r
- ob->state = state->nextstate; // go to next state\r
- }\r
- else if (!ob->state)\r
- {\r
- return 0; // object removed itself\r
- }\r
- return excesstics;\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= StateMachine\r
-=\r
-= Change state and give directions\r
-=\r
-====================\r
-*/\r
-\r
-void StateMachine(objtype *ob)\r
-{\r
- Sint16 excesstics, oldshapenum;\r
- statetype *state;\r
- \r
- ob->xmove=ob->ymove=xtry=ytry=0;\r
- oldshapenum = ob->shapenum;\r
-\r
- state = ob->state;\r
-\r
- excesstics = DoActor(ob, tics);\r
- if (ob->state != state)\r
- {\r
- ob->ticcount = 0; // start the new state at 0, then use excess\r
- state = ob->state;\r
- }\r
-\r
- while (excesstics)\r
- {\r
- //\r
- // passed through to next state\r
- //\r
- if (!state->skippable && state->tictime <= excesstics)\r
- {\r
- excesstics = DoActor(ob, state->tictime-1);\r
- }\r
- else\r
- {\r
- excesstics = DoActor(ob, excesstics);\r
- }\r
- if (ob->state != state)\r
- {\r
- ob->ticcount = 0; // start the new state at 0, then use excess\r
- state = ob->state;\r
- }\r
- }\r
-\r
- if (!state) // object removed itself\r
- {\r
- RemoveObj(ob);\r
- return;\r
- }\r
-\r
- //\r
- // if state->rightshapenum == NULL, the state does not have a standard\r
- // shape (the think routine should have set it)\r
- //\r
- if (state->rightshapenum)\r
- {\r
- if (ob->xdir > 0)\r
- {\r
- ob->shapenum = state->rightshapenum;\r
- }\r
- else\r
- {\r
- ob->shapenum = state->leftshapenum;\r
- }\r
- }\r
- if ((Sint16)ob->shapenum == -1)\r
- {\r
- ob->shapenum = 0; // make it invisable this time\r
- }\r
-\r
- if (xtry || ytry || ob->shapenum != oldshapenum || ob->hitnorth == 25)\r
- {\r
- //\r
- // actor moved or changed shape\r
- // make sure the movement is within limits (one tile)\r
- //\r
- if (ob->needtoclip == cl_fullclip)\r
- {\r
- FullClipToWalls(ob);\r
- }\r
- else\r
- {\r
- ClipToWalls(ob);\r
- }\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= NewState\r
-=\r
-====================\r
-*/\r
-\r
-void NewState(objtype *ob, statetype *state)\r
-{\r
- Sint16 temp;\r
- \r
- ob->state = state;\r
-\r
- if (state->rightshapenum)\r
- {\r
- if (ob->xdir > 0)\r
- {\r
- ob->shapenum = state->rightshapenum;\r
- }\r
- else\r
- {\r
- ob->shapenum = state->leftshapenum;\r
- }\r
- }\r
-\r
- if ((Sint16)ob->shapenum == -1)\r
- {\r
- ob->shapenum = 0;\r
- }\r
-\r
- temp = ob->needtoclip;\r
- ob->needtoclip = cl_noclip;\r
-\r
- xtry = ytry = 0; // no movement\r
- ClipToWalls(ob); // just calculate values\r
-\r
- ob->needtoclip = temp;\r
-\r
- if (ob->needtoclip == cl_fullclip)\r
- {\r
- FullClipToWalls(ob);\r
- }\r
- else if (ob->needtoclip == cl_midclip)\r
- {\r
- ClipToWalls(ob);\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= ChangeState\r
-=\r
-====================\r
-*/\r
-\r
-void ChangeState(objtype *ob, statetype *state)\r
-{\r
- ob->state = state;\r
- ob->ticcount = 0;\r
- if (state->rightshapenum)\r
- {\r
- if (ob->xdir > 0)\r
- {\r
- ob->shapenum = state->rightshapenum;\r
- }\r
- else\r
- {\r
- ob->shapenum = state->leftshapenum;\r
- }\r
- }\r
-\r
- if ((Sint16)ob->shapenum == -1)\r
- {\r
- ob->shapenum = 0;\r
- }\r
-\r
- ob->needtoreact = true; // it will need to be redrawn this frame\r
-\r
- xtry = ytry = 0; // no movement\r
-\r
- if (ob->hitnorth != 25)\r
- {\r
- ClipToWalls(ob);\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= OnScreen\r
-=\r
-====================\r
-*/\r
-\r
-boolean OnScreen(objtype *ob)\r
-{\r
- if (ob->tileright < originxtile || ob->tilebottom < originytile\r
- || ob->tileleft > originxtilemax || ob->tiletop > originytilemax)\r
- {\r
- return false;\r
- }\r
- return true;\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= DoGravity\r
-=\r
-====================\r
-*/\r
-\r
-void DoGravity(objtype *ob)\r
-{\r
- Sint32 i;\r
-//\r
-// only accelerate on odd tics, because of limited precision\r
-//\r
- for (i = lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (i&1)\r
- {\r
- if (ob->yspeed < 0 && ob->yspeed >= -4)\r
- {\r
- ytry += ob->yspeed;\r
- ob->yspeed = 0;\r
- return;\r
- }\r
- ob->yspeed += 4;\r
- if (ob->yspeed > 70)\r
- {\r
- ob->yspeed = 70;\r
- }\r
- }\r
- ytry += ob->yspeed;\r
- }\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= DoWeakGravity\r
-=\r
-====================\r
-*/\r
-\r
-void DoWeakGravity(objtype *ob)\r
-{\r
- Sint32 i;\r
-//\r
-// only accelerate on odd tics, because of limited precision\r
-//\r
- for (i = lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (i&1)\r
- {\r
- if (ob->yspeed < 0 && ob->yspeed >= -3)\r
- {\r
- ytry += ob->yspeed;\r
- ob->yspeed = 0;\r
- return;\r
- }\r
- ob->yspeed += 3;\r
- if (ob->yspeed > 70)\r
- {\r
- ob->yspeed = 70;\r
- }\r
- }\r
- ytry += ob->yspeed;\r
- }\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= DoTinyGravity\r
-=\r
-====================\r
-*/\r
-\r
-void DoTinyGravity(objtype *ob)\r
-{\r
- Sint32 i;\r
-//\r
-// only accelerate every 4 tics, because of limited precision\r
-//\r
- for (i = lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (!i & 3) //BUG: this is equal to ((!i) & 3), not (!(i & 3))\r
- {\r
- ob->yspeed++;\r
- if (ob->yspeed > 70)\r
- {\r
- ob->yspeed = 70;\r
- }\r
- }\r
- ytry += ob->yspeed;\r
- }\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= AccelerateX\r
-=\r
-===============\r
-*/\r
-\r
-void AccelerateX(objtype *ob, Sint16 dir, Sint16 maxspeed)\r
-{\r
- Sint32 i;\r
- Uint16 oldsign;\r
- \r
- oldsign = ob->xspeed & 0x8000;\r
-//\r
-// only accelerate on odd tics, because of limited precision\r
-//\r
- for (i=lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (i & 1)\r
- {\r
- ob->xspeed += dir;\r
- if ((ob->xspeed & 0x8000) != oldsign)\r
- {\r
- oldsign = ob->xspeed & 0x8000;\r
- ob->xdir = oldsign? -1 : 1;\r
- }\r
- if (ob->xspeed > maxspeed)\r
- {\r
- ob->xspeed = maxspeed;\r
- }\r
- else if (ob->xspeed < -maxspeed)\r
- {\r
- ob->xspeed = -maxspeed;\r
- }\r
- }\r
- xtry += ob->xspeed;\r
- }\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= AccelerateXv\r
-=\r
-= Doesn't change object's xdir\r
-=\r
-===============\r
-*/\r
-\r
-void AccelerateXv(objtype *ob, Sint16 dir, Sint16 maxspeed)\r
-{\r
- Sint32 i;\r
-\r
-//\r
-// only accelerate on odd tics, because of limited precision\r
-//\r
- for (i=lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (i & 1)\r
- {\r
- ob->xspeed += dir;\r
- if (ob->xspeed > maxspeed)\r
- {\r
- ob->xspeed = maxspeed;\r
- }\r
- else if (ob->xspeed < -maxspeed)\r
- {\r
- ob->xspeed = -maxspeed;\r
- }\r
- }\r
- xtry += ob->xspeed;\r
- }\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= AccelerateY\r
-=\r
-===============\r
-*/\r
-\r
-void AccelerateY(objtype *ob, Sint16 dir, Sint16 maxspeed)\r
-{\r
- Sint32 i;\r
-\r
-//\r
-// only accelerate on odd tics, because of limited precision\r
-//\r
- for (i=lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (i & 1)\r
- {\r
- ob->yspeed += dir;\r
- if (ob->yspeed > maxspeed)\r
- {\r
- ob->yspeed = maxspeed;\r
- }\r
- else if (ob->yspeed < -maxspeed)\r
- {\r
- ob->yspeed = -maxspeed;\r
- }\r
- }\r
- ytry += ob->yspeed;\r
- }\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= FrictionX\r
-=\r
-===============\r
-*/\r
-\r
-void FrictionX(objtype *ob)\r
-{\r
- Sint16 friction, oldsign;\r
- Sint32 i;\r
-\r
- oldsign = ob->xspeed & 0x8000;\r
- if (ob->xspeed > 0)\r
- {\r
- friction = -1;\r
- }\r
- else if (ob->xspeed < 0)\r
- {\r
- friction = 1;\r
- }\r
- else\r
- {\r
- friction = 0;\r
- }\r
-//\r
-// only accelerate on odd tics, because of limited precision\r
-//\r
-\r
- for (i=lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (i & 1)\r
- {\r
- ob->xspeed += friction;\r
- if ((ob->xspeed & 0x8000) != oldsign)\r
- {\r
- ob->xspeed = 0;\r
- }\r
- }\r
- xtry += ob->xspeed;\r
- }\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= FrictionY\r
-=\r
-===============\r
-*/\r
-\r
-void FrictionY(objtype *ob)\r
-{\r
- Sint16 friction, oldsign;\r
- Sint32 i;\r
-\r
- if (ob->yspeed > 0)\r
- {\r
- friction = -1;\r
- }\r
- else if (ob->yspeed < 0)\r
- {\r
- friction = 1;\r
- }\r
- else\r
- {\r
- friction = 0;\r
- }\r
-//\r
-// only accelerate on odd tics, because of limited precision\r
-//\r
- for (i=lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (i & 1)\r
- {\r
- ob->yspeed += friction;\r
- if ((ob->yspeed & 0x8000) != oldsign) //BUG: oldsign is not initialized!\r
- {\r
- ob->yspeed = 0;\r
- }\r
- }\r
- ytry += ob->yspeed;\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-===============\r
-=\r
-= StunObj\r
-=\r
-===============\r
-*/\r
-\r
-void StunObj(objtype *ob, objtype *shot, statetype *stunstate)\r
-{\r
- ExplodeShot(shot);\r
- ob->temp1 = ob->temp2 = ob->temp3 = 0; // Note: ob->nothink should also be set to 0\r
- ob->temp4 = ob->obclass;\r
- ChangeState(ob, stunstate);\r
- ob->obclass = stunnedobj;\r
-#ifndef KEEN4\r
- ob->yspeed -= 24;\r
- if (ob->yspeed < -48)\r
- ob->yspeed = -48;\r
-#endif\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-===============\r
-=\r
-= T_Projectile\r
-=\r
-===============\r
-*/\r
-\r
-void T_Projectile(objtype *ob)\r
-{\r
- DoGravity(ob);\r
- xtry = ob->xspeed*tics;\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= T_WeakProjectile\r
-=\r
-===============\r
-*/\r
-\r
-void T_WeakProjectile(objtype *ob)\r
-{\r
- DoWeakGravity(ob);\r
- xtry = ob->xspeed*tics;\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= T_Velocity\r
-=\r
-===============\r
-*/\r
-\r
-void T_Velocity(objtype *ob)\r
-{\r
- xtry = ob->xspeed*tics;\r
- ytry = ob->yspeed*tics;\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= SetReactThink\r
-=\r
-===============\r
-*/\r
-\r
-void SetReactThink(objtype *ob)\r
-{\r
- ob->needtoreact = true;\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= T_Stunned\r
-=\r
-===============\r
-*/\r
-\r
-void T_Stunned(objtype *ob)\r
-{\r
- ob->temp1 = 0;\r
- ob->needtoreact = true;\r
- if (++ob->temp2 == 3)\r
- ob->temp2 = 0;\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= C_Lethal\r
-=\r
-===============\r
-*/\r
-\r
-void C_Lethal(objtype *ob, objtype *hit)\r
-{\r
- ob++; // shut up compiler\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= R_Draw\r
-=\r
-===============\r
-*/\r
-\r
-void R_Draw(objtype *ob)\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= R_Walk\r
-=\r
-===============\r
-*/\r
-\r
-void R_Walk(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (!ob->hitnorth)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -ob->xdir;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= R_WalkNormal\r
-=\r
-= Actor will not walk onto tiles with special (e.g. deadly) north walls\r
-=\r
-===============\r
-*/\r
-\r
-void R_WalkNormal(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (!ob->hitnorth || (ob->hitnorth & ~7))\r
- {\r
- ob->x -= ob->xmove*2;\r
- ob->xdir = -ob->xdir;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= BadState\r
-=\r
-===============\r
-*/\r
-\r
-void BadState(void)\r
-{\r
- Quit("Object with bad state!");\r
-}\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= R_Stunned\r
-=\r
-===============\r
-*/\r
-\r
-void R_Stunned(objtype *ob)\r
-{\r
- Sint16 starx, stary;\r
-\r
- if (ob->hitwest || ob->hiteast)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitsouth)\r
- ob->yspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->xspeed = ob->yspeed = 0;\r
- if (ob->state->nextstate)\r
- ChangeState(ob, ob->state->nextstate);\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-\r
- starx = stary = 0;\r
- switch (ob->temp4)\r
- {\r
-#if defined KEEN4\r
- case mimrockobj:\r
- stary = -4*PIXGLOBAL;\r
- break;\r
- case eggobj:\r
- starx = 8*PIXGLOBAL;\r
- stary = -8*PIXGLOBAL;\r
- break;\r
- case treasureeaterobj:\r
- starx = 8*PIXGLOBAL;\r
- break;\r
- case bounderobj:\r
- starx = 4*PIXGLOBAL;\r
- stary = -8*PIXGLOBAL;\r
- break;\r
- case wormouthobj:\r
- starx = 4*PIXGLOBAL;\r
- stary = -350; // -21.875 pixels (this one is a bit strange)\r
- break;\r
- case lickobj:\r
- stary = -8*PIXGLOBAL;\r
- break;\r
- case inchwormobj:\r
- starx = -4*PIXGLOBAL;\r
- stary = -8*PIXGLOBAL;\r
- break;\r
- case slugobj:\r
- stary = -8*PIXGLOBAL;\r
- break;\r
-#elif defined KEEN5\r
- case sparkyobj:\r
- starx += 4*PIXGLOBAL;\r
- break;\r
- case amptonobj:\r
- stary -= 8*PIXGLOBAL;\r
- asm jmp done; // just to recreate the original code's quirks, feel free to delete this\r
- break;\r
- case scottieobj:\r
- stary -= 8*PIXGLOBAL;\r
- break;\r
-#elif defined KEEN6\r
- case blooguardobj:\r
- starx = 16*PIXGLOBAL;\r
- stary = -4*PIXGLOBAL;\r
- break;\r
- case flectobj:\r
- starx = 4*PIXGLOBAL;\r
- stary = -4*PIXGLOBAL;\r
- break;\r
- case bloogobj:\r
- case nospikeobj:\r
- starx = 8*PIXGLOBAL;\r
- stary = -4*PIXGLOBAL;\r
- break;\r
- case bloogletobj:\r
- case babobbaobj:\r
- stary = -8*PIXGLOBAL;\r
- break;\r
- case fleexobj:\r
- starx = 16*PIXGLOBAL;\r
- stary = 8*PIXGLOBAL;\r
- break;\r
- case ceilickobj:\r
- stary = 12*PIXGLOBAL;\r
- break;\r
- default:\r
- Quit("No star spec for object!");\r
-#endif\r
- }\r
-done:\r
-\r
- ob->temp1 = ob->temp1 + tics;\r
- if (ob->temp1 > 10)\r
- {\r
- ob->temp1 -= 10;\r
- if (++ob->temp2 == 3)\r
- ob->temp2 = 0;\r
- }\r
-\r
- RF_PlaceSprite((void **)&ob->temp3, ob->x+starx, ob->y+stary, ob->temp2+STUNSTARS1SPR, spritedraw, 3);\r
-}\r
-\r
-//==========================================================================\r
-\r
-statetype sc_deadstate = {0, 0, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL};\r
-#pragma warn -sus //BadState is not a valid think/contact/react function. Nobody cares.\r
-statetype sc_badstate = {0, 0, think, false, false, 0, 0, 0, &BadState, &BadState, &BadState, NULL};\r
-#pragma warn +sus
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Wolfenstein 3-D Source Code\r
- * Copyright (C) 1992 id Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
-TEXT FORMATTING COMMANDS\r
-------------------------\r
-^C<hex digit> Change text color\r
-^E[enter] End of layout (all pages)\r
-^G<y>,<x>,<pic>[enter] Draw a graphic and push margins\r
-^P[enter] start new page, must be the first chars in a layout\r
-^L<x>,<y>[ENTER] Locate to a specific spot, x in pixels, y in lines\r
-\r
-=============================================================================\r
-*/\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL CONSTANTS\r
-\r
-=============================================================================\r
-*/\r
-\r
-#if GRMODE == CGAGR\r
-#ifdef KEEN5\r
-#define BACKCOLOR 2 // CGA magenta\r
-#else\r
-#define BACKCOLOR WHITE\r
-#endif\r
-#else\r
-#define BACKCOLOR RED\r
-#endif\r
-\r
-#define WORDLIMIT 80\r
-#define FONTHEIGHT 10\r
-#define TOPMARGIN 10\r
-#define BOTTOMMARGIN 10\r
-#define LEFTMARGIN 10\r
-#define RIGHTMARGIN 10\r
-#define PICMARGIN 8\r
-#define SPACEWIDTH 7\r
-#define TEXTROWS ((200-TOPMARGIN-BOTTOMMARGIN)/FONTHEIGHT)\r
-#define SCREENPIXWIDTH 320\r
-#define SCREENMID (SCREENPIXWIDTH/2)\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-Sint16 pagenum,numpages;\r
-Uint16 leftmargin[TEXTROWS],rightmargin[TEXTROWS];\r
-char far *text;\r
-Uint16 rowon;\r
-Sint16 picx,picy,picnum,picdelay;\r
-boolean layoutdone;\r
-\r
-Sint16 helpmenupos;\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RipToEOL\r
-=\r
-=====================\r
-*/\r
-\r
-void RipToEOL(void)\r
-{\r
- while (*text++ != '\n');\r
-}\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= ParseNumber\r
-=\r
-=====================\r
-*/\r
-\r
-Sint16 ParseNumber(void)\r
-{\r
- char c, buffer[80];\r
- char *bufptr;\r
-\r
-//\r
-// scan until a number is found\r
-//\r
- c = *text;\r
- while (c < '0' || c > '9')\r
- c = *++text;\r
-\r
-//\r
-// copy the number out\r
-//\r
- bufptr = buffer;\r
- do\r
- {\r
- *bufptr = c;\r
- bufptr++;\r
- text++;\r
- c = *text;\r
- } while (c >= '0' && c <= '9');\r
- *bufptr = 0;\r
-\r
- return atoi(buffer);\r
-}\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= ParsePicCommand\r
-=\r
-= Call with text pointing just after a ^P\r
-= Upon exit text points to the start of next line\r
-=\r
-=====================\r
-*/\r
-\r
-void ParsePicCommand(void)\r
-{\r
- picy = ParseNumber();\r
- picx = ParseNumber();\r
- picnum = ParseNumber();\r
- RipToEOL();\r
-}\r
-\r
-void ParseTimedCommand(void)\r
-{\r
- picy = ParseNumber();\r
- picx = ParseNumber();\r
- picnum = ParseNumber();\r
- picdelay = ParseNumber();\r
- RipToEOL();\r
-}\r
-\r
-/*\r
-=====================\r
-=\r
-= TimedPicCommand\r
-=\r
-= Call with text pointing just after a ^P\r
-= Upon exit text points to the start of next line\r
-=\r
-=====================\r
-*/\r
-\r
-void TimedPicCommand(void)\r
-{\r
- ParseTimedCommand();\r
-\r
-//\r
-// update the screen, and wait for time delay\r
-//\r
-#if GRMODE == CGAGR\r
- VW_UpdateScreen();\r
-#else\r
- VW_WaitVBL(1);\r
- VW_ScreenToScreen(bufferofs, displayofs, 40, 200);\r
-#endif\r
-\r
-//\r
-// wait for time\r
-//\r
- TimeCount = 0;\r
- while (picdelay > TimeCount)\r
- ;\r
-\r
-//\r
-// draw pic\r
-//\r
- VWB_DrawPic(picx & ~7, picy, picnum);\r
-}\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= HandleCommand\r
-=\r
-=====================\r
-*/\r
-\r
-void HandleCommand(void)\r
-{\r
- Sint16 i,margin,top,bottom;\r
- Sint16 picwidth,picheight,picmid;\r
-\r
- switch (toupper(*(++text)))\r
- {\r
- case 'B':\r
- picy = ParseNumber();\r
- picx = ParseNumber();\r
- picwidth = ParseNumber();\r
- picheight = ParseNumber();\r
- VWB_Bar(picx, picy, picwidth, picheight, BACKCOLOR);\r
- RipToEOL();\r
- break;\r
-\r
- case 'P': // ^P is start of next page, ^E is end of file\r
- case 'E':\r
- layoutdone = true;\r
- text--;\r
- break;\r
-\r
- case 'C': // ^c<hex digit> changes text color\r
- i = toupper(*(++text));\r
- if (i >= '0' && i <= '9')\r
- {\r
- fontcolor = i + 0 - '0';\r
- }\r
- else if (i >= 'A' && i <= 'F')\r
- {\r
- fontcolor = i + 10 - 'A';\r
- }\r
-#if GRMODE == CGAGR\r
- {\r
- static Sint16 colormap[16] = {2, 0, 0, 0, 2, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0};\r
- // Note: This mapping is a bit problematic for Keen 5 CGA,\r
- // since some colors get mapped to CGA magenta, which is\r
- // used as the background color in that version. Luckily\r
- // those colors aren't used in the Keen 5 texts anyway.\r
-\r
- fontcolor = colormap[fontcolor];\r
- }\r
-#endif\r
- fontcolor ^= BACKCOLOR;\r
- text++;\r
- break;\r
-\r
- case 'L':\r
- py = ParseNumber();\r
- rowon = (py - 10)/10;\r
- py = rowon * 10 + 10;\r
- px = ParseNumber();\r
- while (*(text++) != '\n') // scan to end of line\r
- ;\r
- break;\r
-\r
- case 'T': // ^Tyyy,xxx,ppp,ttt waits ttt tics, then draws pic\r
- TimedPicCommand();\r
- break;\r
-\r
- case 'G': // ^Gyyy,xxx,ppp draws graphic\r
- ParsePicCommand();\r
- VWB_DrawPic(picx & ~7, picy, picnum);\r
- picwidth = pictable[picnum-STARTPICS].width * BYTEPIXELS;\r
- picheight = pictable[picnum-STARTPICS].height;\r
- picmid = picx + picwidth/2;\r
- //\r
- // adjust margins\r
- //\r
- if (picmid > SCREENMID)\r
- {\r
- margin = picx-PICMARGIN; // new right margin\r
- }\r
- else\r
- {\r
- margin = picx+picwidth+PICMARGIN; // new left margin\r
- }\r
- top = (picy-TOPMARGIN)/FONTHEIGHT;\r
- if (top < 0)\r
- {\r
- top = 0;\r
- }\r
- bottom = (picy+picheight-TOPMARGIN)/FONTHEIGHT;\r
- if (bottom >= TEXTROWS)\r
- {\r
- bottom = TEXTROWS-1;\r
- }\r
-\r
- for (i=top; i<=bottom; i++)\r
- {\r
- if (picmid > SCREENMID)\r
- {\r
- rightmargin[i] = margin;\r
- }\r
- else\r
- {\r
- leftmargin[i] = margin;\r
- }\r
- }\r
-\r
- //\r
- // adjust this line if needed\r
- //\r
- if (leftmargin[rowon] > px)\r
- {\r
- px = leftmargin[rowon];\r
- }\r
- break;\r
- }\r
-}\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= NewLine\r
-=\r
-=====================\r
-*/\r
-\r
-void NewLine(void)\r
-{\r
- char c;\r
-\r
- if (++rowon == TEXTROWS)\r
- {\r
- //\r
- // overflowed the page, so skip until next page break\r
- //\r
- layoutdone = true;\r
- do\r
- {\r
- if (*text == '^')\r
- {\r
- c = toupper(text[1]);\r
- if (c == 'E' || c == 'P')\r
- {\r
- layoutdone = true;\r
- return;\r
- }\r
- }\r
- text++;\r
- } while (1);\r
- }\r
- px = leftmargin[rowon];\r
- py += FONTHEIGHT;\r
-}\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= HandleCtrls\r
-=\r
-=====================\r
-*/\r
-\r
-void HandleCtrls(void)\r
-{\r
- char c;\r
-\r
- c = *(text++); // get the character and advance\r
-\r
- if (c == '\n')\r
- {\r
- NewLine();\r
- return;\r
- }\r
-}\r
-\r
-/*\r
-=====================\r
-=\r
-= HandleWord\r
-=\r
-=====================\r
-*/\r
-\r
-void HandleWord(void)\r
-{\r
- Uint16 wwidth, wheight, newpos, wordindex;\r
- char word[WORDLIMIT];\r
-\r
- //\r
- // copy the next word into [word]\r
- //\r
- word[0] = *(text++);\r
- wordindex = 1;\r
- while (*text > ' ')\r
- {\r
- word[wordindex] = *(text++);\r
- if (++wordindex == WORDLIMIT)\r
- {\r
- Quit("PageLayout: Word limit exceeded");\r
- }\r
- }\r
- word[wordindex] = 0; // stick a null at end for C\r
-\r
- //\r
- // see if it fits on this line\r
- //\r
- VW_MeasurePropString(word, &wwidth, &wheight);\r
- \r
- while (rightmargin[rowon] < px+wwidth)\r
- {\r
- NewLine();\r
- if (layoutdone)\r
- {\r
- return; // overflowed page\r
- }\r
- }\r
-\r
- //\r
- // print it\r
- //\r
- newpos = px+wwidth;\r
- VWB_DrawPropString(word);\r
- px = newpos;\r
-\r
- //\r
- // suck up any extra spaces\r
- //\r
- while (*text == ' ')\r
- {\r
- px += SPACEWIDTH;\r
- text++;\r
- }\r
-}\r
-\r
-/*\r
-=====================\r
-=\r
-= PageLayout\r
-=\r
-= Clears the screen, draws the pics on the page, and word wraps the text.\r
-= Returns a pointer to the terminating command\r
-=\r
-=====================\r
-*/\r
-\r
-void PageLayout(boolean shownumber)\r
-{\r
- Sint16 oldcolor, i;\r
- char c;\r
-\r
- oldcolor = fontcolor;\r
-\r
-#if GRMODE == CGAGR\r
- fontcolor = BLACK^BACKCOLOR;\r
-#else\r
- fontcolor = YELLOW^BACKCOLOR;\r
-#endif\r
-\r
-//\r
-// clear the screen\r
-//\r
- VWB_Bar(0, 0, 320, 200, BACKCOLOR);\r
-#ifndef KEEN6\r
- VWB_DrawPic( 0, 0, H_TOPWINDOWPIC);\r
- VWB_DrawPic( 0, 8, H_LEFTWINDOWPIC);\r
- VWB_DrawPic(312, 8, H_RIGHTWINDOWPIC);\r
- if (shownumber)\r
- {\r
- VWB_DrawPic(8, 176, H_BOTTOMINFOPIC);\r
- }\r
- else\r
- {\r
- VWB_DrawPic(8, 192, H_BOTTOMWINDOWPIC);\r
- }\r
-#endif\r
-\r
- for (i=0; i<TEXTROWS; i++)\r
- {\r
- leftmargin[i] = LEFTMARGIN;\r
- rightmargin[i] = SCREENPIXWIDTH-RIGHTMARGIN;\r
- }\r
-\r
- px = LEFTMARGIN;\r
- py = TOPMARGIN;\r
- rowon = 0;\r
- layoutdone = false;\r
-\r
-//\r
-// make sure we are starting layout text (^P first command)\r
-//\r
- while (*text <= ' ')\r
- {\r
- text++;\r
- }\r
- if (*text != '^' || toupper(*(++text)) != 'P')\r
- {\r
- Quit("PageLayout: Text not headed with ^P");\r
- }\r
- while (*(text++) != '\n')\r
- ;\r
-\r
-//\r
-// process text stream\r
-//\r
- do\r
- {\r
- c = *text;\r
- if (c == '^')\r
- {\r
- HandleCommand();\r
- }\r
- else if (c <= ' ')\r
- {\r
- HandleCtrls();\r
- }\r
- else\r
- {\r
- HandleWord();\r
- }\r
- } while (!layoutdone);\r
-\r
- pagenum++;\r
-\r
- if (shownumber)\r
- {\r
- strcpy(str, "pg ");\r
- itoa(pagenum, str2, 10);\r
- strcat(str, str2);\r
- strcat(str, " of ");\r
- itoa(numpages, str2, 10);\r
- strcat(str, str2);\r
-#if GRMODE == CGAGR\r
- fontcolor = BLACK^BACKCOLOR;\r
-#else\r
- fontcolor = LIGHTRED^BACKCOLOR;\r
-#endif\r
- py = 186;\r
- px = 218;\r
- VWB_DrawPropString(str);\r
- }\r
-\r
- fontcolor = oldcolor;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= BackPage\r
-=\r
-= Scans for a previous ^P\r
-=\r
-=====================\r
-*/\r
-\r
-void BackPage(void)\r
-{\r
- pagenum--;\r
- do\r
- {\r
- text--;\r
- if (text[0] == '^' && toupper(text[1]) == 'P')\r
- {\r
- return;\r
- }\r
- } while (1);\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= CacheLayoutGraphics\r
-=\r
-= Scans an entire layout file (until a ^E) marking all graphics used, and\r
-= counting pages, then caches the graphics in\r
-=\r
-=====================\r
-*/\r
-void CacheLayoutGraphics(void)\r
-{\r
- char far *bombpoint, far *textstart;\r
- char ch;\r
-\r
- textstart = text;\r
- bombpoint = text+30000;\r
- numpages = pagenum = 0;\r
-\r
-#ifndef KEEN6\r
- CA_MarkGrChunk(H_TOPWINDOWPIC);\r
- CA_MarkGrChunk(H_LEFTWINDOWPIC);\r
- CA_MarkGrChunk(H_RIGHTWINDOWPIC);\r
- CA_MarkGrChunk(H_BOTTOMINFOPIC);\r
- CA_MarkGrChunk(H_BOTTOMWINDOWPIC);\r
-#endif\r
-\r
- do\r
- {\r
- if (*text == '^')\r
- {\r
- ch = toupper(*(++text));\r
- if (ch == 'P') // start of a page\r
- {\r
- numpages++;\r
- }\r
- if (ch == 'E') // end of file, so load graphics and return\r
- {\r
- CA_CacheMarks(NULL);\r
- text = textstart;\r
- return;\r
- }\r
- if (ch == 'G') // draw graphic command, so mark graphics\r
- {\r
- ParsePicCommand();\r
- CA_MarkGrChunk(picnum);\r
- }\r
- if (ch == 'T') // timed draw graphic command, so mark graphics\r
- {\r
- ParseTimedCommand();\r
- CA_MarkGrChunk(picnum);\r
- }\r
- }\r
- else\r
- {\r
- text++;\r
- }\r
-\r
- } while (text < bombpoint);\r
-\r
- Quit("CacheLayoutGraphics: No ^E to terminate file!");\r
-}\r
-\r
-//===========================================================================\r
-\r
-#ifndef KEEN6\r
-/*\r
-=================\r
-=\r
-= HelpMenu\r
-=\r
-=================\r
-*/\r
-Sint16 HelpMenu(void)\r
-{\r
- CursorInfo cursor;\r
- ControlInfo control;\r
- Sint16 ydelta;\r
- Uint16 key;\r
-\r
- VWB_Bar(0, 0, 320, 200, BACKCOLOR);\r
-\r
- CA_CacheGrChunk(H_HELPPIC);\r
- CA_CacheGrChunk(H_HANDPIC);\r
- CA_CacheGrChunk(H_TOPWINDOWPIC);\r
- CA_CacheGrChunk(H_LEFTWINDOWPIC);\r
- CA_CacheGrChunk(H_RIGHTWINDOWPIC);\r
- CA_CacheGrChunk(H_BOTTOMWINDOWPIC);\r
-\r
- VWB_DrawPic( 0, 0, H_TOPWINDOWPIC);\r
- VWB_DrawPic( 0, 8, H_LEFTWINDOWPIC);\r
- VWB_DrawPic(312, 8, H_RIGHTWINDOWPIC);\r
- VWB_DrawPic( 8, 192, H_BOTTOMWINDOWPIC);\r
- VWB_DrawPic( 96, 8, H_HELPPIC);\r
-\r
- ydelta = 0;\r
- IN_ClearKeysDown();\r
- do\r
- {\r
- if (helpmenupos < 0)\r
- {\r
- helpmenupos = 0;\r
- }\r
-#ifdef GOODTIMES\r
- else if (helpmenupos > 3)\r
- {\r
- helpmenupos = 3;\r
- }\r
-#else\r
- else if (helpmenupos > 4)\r
- {\r
- helpmenupos = 4;\r
- }\r
-#endif\r
- VWB_DrawPic(48, 24*helpmenupos+48, H_HANDPIC);\r
- VW_UpdateScreen();\r
- VWB_Bar(48, 24*helpmenupos+48, 39, 24, BACKCOLOR);\r
- IN_ReadControl(0, &control);\r
- IN_ReadCursor(&cursor);\r
- if (LastScan)\r
- {\r
- key = LastScan;\r
- IN_ClearKeysDown();\r
- switch (key)\r
- {\r
- case sc_UpArrow:\r
- helpmenupos--;\r
- break;\r
- case sc_DownArrow:\r
- helpmenupos++;\r
- break;\r
- case sc_Enter:\r
- VW_ClearVideo(BACKCOLOR);\r
- return helpmenupos;\r
- case sc_Escape:\r
- VW_ClearVideo(BACKCOLOR);\r
- return -1;\r
- }\r
- }\r
- ydelta += cursor.y;\r
- if (cursor.button0 || cursor.button1 || control.button0 || control.button1)\r
- {\r
- VW_ClearVideo(BACKCOLOR);\r
- return helpmenupos;\r
- }\r
- if (ydelta < -40)\r
- {\r
- ydelta += 40;\r
- helpmenupos--;\r
- }\r
- else if (ydelta > 40)\r
- {\r
- ydelta -= 40;\r
- helpmenupos++;\r
- }\r
- } while (1);\r
-}\r
-\r
-/*\r
-=================\r
-=\r
-= HelpScreens\r
-=\r
-=================\r
-*/\r
-void HelpScreens(void)\r
-{\r
- static Uint16 layouttable[5] =\r
- {\r
- T_HELPART,\r
- T_CONTRART,\r
- T_STORYART,\r
-#ifndef GOODTIMES\r
- T_ORDERART,\r
-#endif\r
- T_IDART\r
- };\r
-\r
- Uint16 olddisplayofs, oldbufferofs, oldfontnumber, temp;\r
- Sint16 pos;\r
- boolean newpage;\r
-\r
- oldfontnumber = fontnumber;\r
- olddisplayofs = displayofs;\r
- oldbufferofs = bufferofs;\r
- fontnumber = 0;\r
-\r
-#if GRMODE == EGAGR\r
- EGAMAPMASK(15);\r
-#endif\r
-\r
- CA_UpLevel();\r
- CA_SetGrPurge();\r
- VW_ClearVideo(BACKCOLOR);\r
-\r
-#if GRMODE == EGAGR\r
- RF_FixOfs();\r
- bufferofs = 0;\r
- displayofs = 0x8000;\r
- VW_SetScreen(displayofs, 0);\r
-#endif\r
-\r
-#ifdef KEEN5\r
- StartMusic(19);\r
-#endif\r
-\r
- do\r
- {\r
- pos = HelpMenu();\r
-\r
- VW_ClearVideo(BACKCOLOR);\r
-\r
- if (pos == -1)\r
- {\r
- CA_DownLevel();\r
- IN_ClearKeysDown();\r
- bufferofs = oldbufferofs;\r
- displayofs = olddisplayofs;\r
- fontnumber = oldfontnumber;\r
- VW_ClearVideo(BACKCOLOR);\r
- RF_FixOfs();\r
-#ifdef KEEN5\r
- StopMusic(); // Note: it's safer to call StopMusic BEFORE CA_DownLevel\r
-#endif\r
- return;\r
- }\r
-\r
- pos = layouttable[pos];\r
- CA_CacheGrChunk(pos);\r
- text = grsegs[pos];\r
- CacheLayoutGraphics();\r
-\r
- newpage = true;\r
- do\r
- {\r
- if (newpage)\r
- {\r
- newpage = false;\r
- PageLayout(true);\r
-#if GRMODE == CGAGR\r
- VW_UpdateScreen();\r
-#else\r
- VW_SetScreen(bufferofs, 0);\r
- temp = displayofs;\r
- displayofs = bufferofs;\r
- bufferofs = temp;\r
-#endif\r
- }\r
-\r
- LastScan = 0;\r
- while (!LastScan);\r
-\r
- switch (LastScan)\r
- {\r
- case sc_UpArrow:\r
- case sc_LeftArrow:\r
- case sc_PgUp:\r
- if (pagenum > 1)\r
- {\r
- BackPage();\r
- BackPage();\r
- newpage = true;\r
- }\r
- break;\r
- case sc_DownArrow:\r
- case sc_RightArrow:\r
- case sc_PgDn:\r
- if (pagenum < numpages)\r
- {\r
- newpage = true;\r
- }\r
- break;\r
- }\r
- } while (LastScan != sc_Escape);\r
-\r
- MM_FreePtr(&grsegs[pos]);\r
- IN_ClearKeysDown();\r
- } while (true);\r
-}\r
-\r
-#endif\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=================\r
-=\r
-= FinaleLayout\r
-=\r
-=================\r
-*/\r
-void FinaleLayout(void)\r
-{\r
- char _seg *textseg;\r
- Sint16 i;\r
-\r
- VW_ClearVideo(BACKCOLOR);\r
- RF_FixOfs();\r
- CA_UpLevel();\r
- CA_SetGrPurge();\r
- CA_CacheGrChunk(H_FLASHARROW2PIC);\r
- CA_CacheGrChunk(H_FLASHARROW1PIC);\r
-\r
-#ifdef KEEN5\r
- if (gamestate.leveldone[13] == ex_fusebroke)\r
- {\r
- CA_CacheGrChunk(T_ENDART2);\r
- textseg = grsegs[T_ENDART2];\r
- }\r
- else\r
- {\r
- CA_CacheGrChunk(T_ENDART);\r
- textseg = grsegs[T_ENDART];\r
- }\r
-#else\r
- CA_CacheGrChunk(T_ENDART);\r
- textseg = grsegs[T_ENDART];\r
-#endif\r
-\r
- text = textseg;\r
- CacheLayoutGraphics();\r
-\r
- StartMusic(ENDINGMUSIC);\r
-\r
- while (pagenum < numpages)\r
- {\r
- PageLayout(false);\r
- IN_ClearKeysDown();\r
-#if GRMODE == CGAGR\r
- VW_UpdateScreen();\r
-#else\r
- VW_SetScreen(bufferofs, 0);\r
-#endif\r
-\r
- do\r
- {\r
- VWB_DrawPic(298, 184, H_FLASHARROW1PIC);\r
-#if GRMODE == CGAGR\r
- VW_UpdateScreen();\r
-#endif\r
- for (i=0; i<TickBase; i++)\r
- {\r
- if (IN_IsUserInput())\r
- {\r
- goto nextpage;\r
- }\r
- VW_WaitVBL(1);\r
- }\r
-\r
- VWB_DrawPic(298, 184, H_FLASHARROW2PIC);\r
-#if GRMODE == CGAGR\r
- VW_UpdateScreen();\r
-#endif\r
- for (i=0; i<TickBase; i++)\r
- {\r
- if (IN_IsUserInput())\r
- {\r
- goto nextpage;\r
- }\r
- VW_WaitVBL(1);\r
- }\r
- } while (1);\r
-\r
-nextpage:\r
- ; // Borland C++ 2.0 needs a semicolon here...\r
- }\r
-\r
- StopMusic();\r
-\r
-#ifdef KEEN5\r
- if (gamestate.leveldone[13] == ex_fusebroke)\r
- {\r
- MM_FreePtr(&grsegs[T_ENDART2]);\r
- }\r
- else\r
- {\r
- MM_FreePtr(&grsegs[H_FLASHARROW1PIC]); // BUG! this should free T_ENDART, the arrow should be freed after the else branch!\r
- }\r
-#else\r
- MM_FreePtr(&grsegs[T_ENDART]);\r
- MM_FreePtr(&grsegs[H_FLASHARROW1PIC]);\r
-#endif\r
- MM_FreePtr(&grsegs[H_FLASHARROW2PIC]);\r
- CA_DownLevel();\r
- IN_ClearKeysDown();\r
-#if GRMODE != CGAGR\r
- VW_ClearVideo(BACKCOLOR);\r
- RF_FixOfs();\r
-#endif\r
- CA_FreeGraphics();\r
-}
\ No newline at end of file
+++ /dev/null
- GNU GENERAL PUBLIC LICENSE
- Version 2, June 1991
-
- Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
- Everyone is permitted to copy and distribute verbatim copies
- of this license document, but changing it is not allowed.
-
- Preamble
-
- The licenses for most software are designed to take away your
-freedom to share and change it. By contrast, the GNU General Public
-License is intended to guarantee your freedom to share and change free
-software--to make sure the software is free for all its users. This
-General Public License applies to most of the Free Software
-Foundation's software and to any other program whose authors commit to
-using it. (Some other Free Software Foundation software is covered by
-the GNU Lesser General Public License instead.) You can apply it to
-your programs, too.
-
- When we speak of free software, we are referring to freedom, not
-price. Our General Public Licenses are designed to make sure that you
-have the freedom to distribute copies of free software (and charge for
-this service if you wish), that you receive source code or can get it
-if you want it, that you can change the software or use pieces of it
-in new free programs; and that you know you can do these things.
-
- To protect your rights, we need to make restrictions that forbid
-anyone to deny you these rights or to ask you to surrender the rights.
-These restrictions translate to certain responsibilities for you if you
-distribute copies of the software, or if you modify it.
-
- For example, if you distribute copies of such a program, whether
-gratis or for a fee, you must give the recipients all the rights that
-you have. You must make sure that they, too, receive or can get the
-source code. And you must show them these terms so they know their
-rights.
-
- We protect your rights with two steps: (1) copyright the software, and
-(2) offer you this license which gives you legal permission to copy,
-distribute and/or modify the software.
-
- Also, for each author's protection and ours, we want to make certain
-that everyone understands that there is no warranty for this free
-software. If the software is modified by someone else and passed on, we
-want its recipients to know that what they have is not the original, so
-that any problems introduced by others will not reflect on the original
-authors' reputations.
-
- Finally, any free program is threatened constantly by software
-patents. We wish to avoid the danger that redistributors of a free
-program will individually obtain patent licenses, in effect making the
-program proprietary. To prevent this, we have made it clear that any
-patent must be licensed for everyone's free use or not licensed at all.
-
- The precise terms and conditions for copying, distribution and
-modification follow.
-
- GNU GENERAL PUBLIC LICENSE
- TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
-
- 0. This License applies to any program or other work which contains
-a notice placed by the copyright holder saying it may be distributed
-under the terms of this General Public License. The "Program", below,
-refers to any such program or work, and a "work based on the Program"
-means either the Program or any derivative work under copyright law:
-that is to say, a work containing the Program or a portion of it,
-either verbatim or with modifications and/or translated into another
-language. (Hereinafter, translation is included without limitation in
-the term "modification".) Each licensee is addressed as "you".
-
-Activities other than copying, distribution and modification are not
-covered by this License; they are outside its scope. The act of
-running the Program is not restricted, and the output from the Program
-is covered only if its contents constitute a work based on the
-Program (independent of having been made by running the Program).
-Whether that is true depends on what the Program does.
-
- 1. You may copy and distribute verbatim copies of the Program's
-source code as you receive it, in any medium, provided that you
-conspicuously and appropriately publish on each copy an appropriate
-copyright notice and disclaimer of warranty; keep intact all the
-notices that refer to this License and to the absence of any warranty;
-and give any other recipients of the Program a copy of this License
-along with the Program.
-
-You may charge a fee for the physical act of transferring a copy, and
-you may at your option offer warranty protection in exchange for a fee.
-
- 2. You may modify your copy or copies of the Program or any portion
-of it, thus forming a work based on the Program, and copy and
-distribute such modifications or work under the terms of Section 1
-above, provided that you also meet all of these conditions:
-
- a) You must cause the modified files to carry prominent notices
- stating that you changed the files and the date of any change.
-
- b) You must cause any work that you distribute or publish, that in
- whole or in part contains or is derived from the Program or any
- part thereof, to be licensed as a whole at no charge to all third
- parties under the terms of this License.
-
- c) If the modified program normally reads commands interactively
- when run, you must cause it, when started running for such
- interactive use in the most ordinary way, to print or display an
- announcement including an appropriate copyright notice and a
- notice that there is no warranty (or else, saying that you provide
- a warranty) and that users may redistribute the program under
- these conditions, and telling the user how to view a copy of this
- License. (Exception: if the Program itself is interactive but
- does not normally print such an announcement, your work based on
- the Program is not required to print an announcement.)
-
-These requirements apply to the modified work as a whole. If
-identifiable sections of that work are not derived from the Program,
-and can be reasonably considered independent and separate works in
-themselves, then this License, and its terms, do not apply to those
-sections when you distribute them as separate works. But when you
-distribute the same sections as part of a whole which is a work based
-on the Program, the distribution of the whole must be on the terms of
-this License, whose permissions for other licensees extend to the
-entire whole, and thus to each and every part regardless of who wrote it.
-
-Thus, it is not the intent of this section to claim rights or contest
-your rights to work written entirely by you; rather, the intent is to
-exercise the right to control the distribution of derivative or
-collective works based on the Program.
-
-In addition, mere aggregation of another work not based on the Program
-with the Program (or with a work based on the Program) on a volume of
-a storage or distribution medium does not bring the other work under
-the scope of this License.
-
- 3. You may copy and distribute the Program (or a work based on it,
-under Section 2) in object code or executable form under the terms of
-Sections 1 and 2 above provided that you also do one of the following:
-
- a) Accompany it with the complete corresponding machine-readable
- source code, which must be distributed under the terms of Sections
- 1 and 2 above on a medium customarily used for software interchange; or,
-
- b) Accompany it with a written offer, valid for at least three
- years, to give any third party, for a charge no more than your
- cost of physically performing source distribution, a complete
- machine-readable copy of the corresponding source code, to be
- distributed under the terms of Sections 1 and 2 above on a medium
- customarily used for software interchange; or,
-
- c) Accompany it with the information you received as to the offer
- to distribute corresponding source code. (This alternative is
- allowed only for noncommercial distribution and only if you
- received the program in object code or executable form with such
- an offer, in accord with Subsection b above.)
-
-The source code for a work means the preferred form of the work for
-making modifications to it. For an executable work, complete source
-code means all the source code for all modules it contains, plus any
-associated interface definition files, plus the scripts used to
-control compilation and installation of the executable. However, as a
-special exception, the source code distributed need not include
-anything that is normally distributed (in either source or binary
-form) with the major components (compiler, kernel, and so on) of the
-operating system on which the executable runs, unless that component
-itself accompanies the executable.
-
-If distribution of executable or object code is made by offering
-access to copy from a designated place, then offering equivalent
-access to copy the source code from the same place counts as
-distribution of the source code, even though third parties are not
-compelled to copy the source along with the object code.
-
- 4. You may not copy, modify, sublicense, or distribute the Program
-except as expressly provided under this License. Any attempt
-otherwise to copy, modify, sublicense or distribute the Program is
-void, and will automatically terminate your rights under this License.
-However, parties who have received copies, or rights, from you under
-this License will not have their licenses terminated so long as such
-parties remain in full compliance.
-
- 5. You are not required to accept this License, since you have not
-signed it. However, nothing else grants you permission to modify or
-distribute the Program or its derivative works. These actions are
-prohibited by law if you do not accept this License. Therefore, by
-modifying or distributing the Program (or any work based on the
-Program), you indicate your acceptance of this License to do so, and
-all its terms and conditions for copying, distributing or modifying
-the Program or works based on it.
-
- 6. Each time you redistribute the Program (or any work based on the
-Program), the recipient automatically receives a license from the
-original licensor to copy, distribute or modify the Program subject to
-these terms and conditions. You may not impose any further
-restrictions on the recipients' exercise of the rights granted herein.
-You are not responsible for enforcing compliance by third parties to
-this License.
-
- 7. If, as a consequence of a court judgment or allegation of patent
-infringement or for any other reason (not limited to patent issues),
-conditions are imposed on you (whether by court order, agreement or
-otherwise) that contradict the conditions of this License, they do not
-excuse you from the conditions of this License. If you cannot
-distribute so as to satisfy simultaneously your obligations under this
-License and any other pertinent obligations, then as a consequence you
-may not distribute the Program at all. For example, if a patent
-license would not permit royalty-free redistribution of the Program by
-all those who receive copies directly or indirectly through you, then
-the only way you could satisfy both it and this License would be to
-refrain entirely from distribution of the Program.
-
-If any portion of this section is held invalid or unenforceable under
-any particular circumstance, the balance of the section is intended to
-apply and the section as a whole is intended to apply in other
-circumstances.
-
-It is not the purpose of this section to induce you to infringe any
-patents or other property right claims or to contest validity of any
-such claims; this section has the sole purpose of protecting the
-integrity of the free software distribution system, which is
-implemented by public license practices. Many people have made
-generous contributions to the wide range of software distributed
-through that system in reliance on consistent application of that
-system; it is up to the author/donor to decide if he or she is willing
-to distribute software through any other system and a licensee cannot
-impose that choice.
-
-This section is intended to make thoroughly clear what is believed to
-be a consequence of the rest of this License.
-
- 8. If the distribution and/or use of the Program is restricted in
-certain countries either by patents or by copyrighted interfaces, the
-original copyright holder who places the Program under this License
-may add an explicit geographical distribution limitation excluding
-those countries, so that distribution is permitted only in or among
-countries not thus excluded. In such case, this License incorporates
-the limitation as if written in the body of this License.
-
- 9. The Free Software Foundation may publish revised and/or new versions
-of the General Public License from time to time. Such new versions will
-be similar in spirit to the present version, but may differ in detail to
-address new problems or concerns.
-
-Each version is given a distinguishing version number. If the Program
-specifies a version number of this License which applies to it and "any
-later version", you have the option of following the terms and conditions
-either of that version or of any later version published by the Free
-Software Foundation. If the Program does not specify a version number of
-this License, you may choose any version ever published by the Free Software
-Foundation.
-
- 10. If you wish to incorporate parts of the Program into other free
-programs whose distribution conditions are different, write to the author
-to ask for permission. For software which is copyrighted by the Free
-Software Foundation, write to the Free Software Foundation; we sometimes
-make exceptions for this. Our decision will be guided by the two goals
-of preserving the free status of all derivatives of our free software and
-of promoting the sharing and reuse of software generally.
-
- NO WARRANTY
-
- 11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
-FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
-OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
-PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
-OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
-TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
-PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
-REPAIR OR CORRECTION.
-
- 12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
-WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
-REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
-INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
-OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
-TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
-YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
-PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
-POSSIBILITY OF SUCH DAMAGES.
-
- END OF TERMS AND CONDITIONS
-
- How to Apply These Terms to Your New Programs
-
- If you develop a new program, and you want it to be of the greatest
-possible use to the public, the best way to achieve this is to make it
-free software which everyone can redistribute and change under these terms.
-
- To do so, attach the following notices to the program. It is safest
-to attach them to the start of each source file to most effectively
-convey the exclusion of warranty; and each file should have at least
-the "copyright" line and a pointer to where the full notice is found.
-
- <one line to give the program's name and a brief idea of what it does.>
- Copyright (C) <year> <name of author>
-
- 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.
-
- <signature of Ty Coon>, 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.
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_CA.C\r
-\r
-/*\r
-=============================================================================\r
-\r
-Id Software Caching Manager\r
----------------------------\r
-\r
-Must be started BEFORE the memory manager, because it needs to get the headers\r
-loaded into the data segment\r
-\r
-=============================================================================\r
-*/\r
-\r
-#include "ID_HEADS.H"\r
-#pragma hdrstop\r
-\r
-#pragma warn -pro\r
-#pragma warn -use\r
-\r
-#define THREEBYTEGRSTARTS\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL CONSTANTS\r
-\r
-=============================================================================\r
-*/\r
-\r
-typedef struct\r
-{\r
- unsigned bit0,bit1; // 0-255 is a character, > is a pointer to a node\r
-} huffnode;\r
-\r
-\r
-typedef struct\r
-{\r
- unsigned RLEWtag;\r
- long headeroffsets[100];\r
- byte tileinfo[];\r
-} mapfiletype;\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-byte _seg *tinf;\r
-int mapon;\r
-\r
-unsigned _seg *mapsegs[3];\r
-maptype _seg *mapheaderseg[NUMMAPS];\r
-byte _seg *audiosegs[NUMSNDCHUNKS];\r
-void _seg *grsegs[NUMCHUNKS];\r
-\r
-byte far grneeded[NUMCHUNKS];\r
-byte ca_levelbit,ca_levelnum;\r
-\r
-int profilehandle,debughandle;\r
-\r
-void (*drawcachebox) (char *title, unsigned numcache);\r
-void (*updatecachebox) (void);\r
-void (*finishcachebox) (void);\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern long far CGAhead;\r
-extern long far EGAhead;\r
-extern byte CGAdict;\r
-extern byte EGAdict;\r
-extern byte far maphead;\r
-extern byte mapdict;\r
-extern byte far audiohead;\r
-extern byte audiodict;\r
-\r
-\r
-long _seg *grstarts; // array of offsets in egagraph, -1 for sparse\r
-long _seg *audiostarts; // array of offsets in audio / audiot\r
-\r
-#ifdef GRHEADERLINKED\r
-huffnode *grhuffman;\r
-#else\r
-huffnode grhuffman[255];\r
-#endif\r
-\r
-#ifdef AUDIOHEADERLINKED\r
-huffnode *audiohuffman;\r
-#else\r
-huffnode audiohuffman[255];\r
-#endif\r
-\r
-\r
-int grhandle; // handle to EGAGRAPH\r
-int maphandle; // handle to MAPTEMP / GAMEMAPS\r
-int audiohandle; // handle to AUDIOT / AUDIO\r
-\r
-long chunkcomplen,chunkexplen;\r
-\r
-SDMode oldsoundmode;\r
-\r
-\r
-\r
-void CAL_DialogDraw (char *title,unsigned numcache);\r
-void CAL_DialogUpdate (void);\r
-void CAL_DialogFinish (void);\r
-void CAL_CarmackExpand (unsigned far *source, unsigned far *dest,\r
- unsigned length);\r
-\r
-\r
-#ifdef THREEBYTEGRSTARTS\r
-#define FILEPOSSIZE 3\r
-//#define GRFILEPOS(c) (*(long far *)(((byte far *)grstarts)+(c)*3)&0xffffff)\r
-long GRFILEPOS(int c)\r
-{\r
- long value;\r
- int offset;\r
-\r
- offset = c*3;\r
-\r
- value = *(long far *)(((byte far *)grstarts)+offset);\r
-\r
- value &= 0x00ffffffl;\r
-\r
- if (value == 0xffffffl)\r
- value = -1;\r
-\r
- return value;\r
-};\r
-#else\r
-#define FILEPOSSIZE 4\r
-#define GRFILEPOS(c) (grstarts[c])\r
-#endif\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOW LEVEL ROUTINES\r
-\r
-=============================================================================\r
-*/\r
-\r
-/*\r
-============================\r
-=\r
-= CA_OpenDebug / CA_CloseDebug\r
-=\r
-= Opens a binary file with the handle "debughandle"\r
-=\r
-============================\r
-*/\r
-\r
-void CA_OpenDebug (void)\r
-{\r
- unlink ("DEBUG.TXT");\r
- debughandle = open("DEBUG.TXT", O_CREAT | O_WRONLY | O_TEXT);\r
-}\r
-\r
-void CA_CloseDebug (void)\r
-{\r
- close (debughandle);\r
-}\r
-\r
-\r
-\r
-/*\r
-============================\r
-=\r
-= CAL_GetGrChunkLength\r
-=\r
-= Gets the length of an explicit length chunk (not tiles)\r
-= The file pointer is positioned so the compressed data can be read in next.\r
-=\r
-============================\r
-*/\r
-\r
-void CAL_GetGrChunkLength (int chunk)\r
-{\r
- lseek(grhandle,GRFILEPOS(chunk),SEEK_SET);\r
- read(grhandle,&chunkexplen,sizeof(chunkexplen));\r
- chunkcomplen = GRFILEPOS(chunk+1)-GRFILEPOS(chunk)-4;\r
-}\r
-\r
-\r
-/*\r
-==========================\r
-=\r
-= CA_FarRead\r
-=\r
-= Read from a file to a far pointer\r
-=\r
-==========================\r
-*/\r
-\r
-boolean CA_FarRead (int handle, byte far *dest, long length)\r
-{\r
- if (length>0xffffl)\r
- Quit ("CA_FarRead doesn't support 64K reads yet!");\r
-\r
-asm push ds\r
-asm mov bx,[handle]\r
-asm mov cx,[WORD PTR length]\r
-asm mov dx,[WORD PTR dest]\r
-asm mov ds,[WORD PTR dest+2]\r
-asm mov ah,0x3f // READ w/handle\r
-asm int 21h\r
-asm pop ds\r
-asm jnc good\r
- errno = _AX;\r
- return false;\r
-good:\r
-asm cmp ax,[WORD PTR length]\r
-asm je done\r
- errno = EINVFMT; // user manager knows this is bad read\r
- return false;\r
-done:\r
- return true;\r
-}\r
-\r
-\r
-/*\r
-==========================\r
-=\r
-= CA_SegWrite\r
-=\r
-= Write from a file to a far pointer\r
-=\r
-==========================\r
-*/\r
-\r
-boolean CA_FarWrite (int handle, byte far *source, long length)\r
-{\r
- if (length>0xffffl)\r
- Quit ("CA_FarWrite doesn't support 64K reads yet!");\r
-\r
-asm push ds\r
-asm mov bx,[handle]\r
-asm mov cx,[WORD PTR length]\r
-asm mov dx,[WORD PTR source]\r
-asm mov ds,[WORD PTR source+2]\r
-asm mov ah,0x40 // WRITE w/handle\r
-asm int 21h\r
-asm pop ds\r
-asm jnc good\r
- errno = _AX;\r
- return false;\r
-good:\r
-asm cmp ax,[WORD PTR length]\r
-asm je done\r
- errno = ENOMEM; // user manager knows this is bad write\r
- return false;\r
-\r
-done:\r
- return true;\r
-}\r
-\r
-\r
-/*\r
-==========================\r
-=\r
-= CA_ReadFile\r
-=\r
-= Reads a file into an allready allocated buffer\r
-=\r
-==========================\r
-*/\r
-\r
-boolean CA_ReadFile (char *filename, memptr *ptr)\r
-{\r
- int handle;\r
- long size;\r
-\r
- if ((handle = open(filename,O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- return false;\r
-\r
- size = filelength (handle);\r
- if (!CA_FarRead (handle,*ptr,size))\r
- {\r
- close (handle);\r
- return false;\r
- }\r
- close (handle);\r
- return true;\r
-}\r
-\r
-\r
-\r
-/*\r
-==========================\r
-=\r
-= CA_LoadFile\r
-=\r
-= Allocate space for and load a file\r
-=\r
-==========================\r
-*/\r
-\r
-boolean CA_LoadFile (char *filename, memptr *ptr)\r
-{\r
- int handle;\r
- long size;\r
-\r
- if ((handle = open(filename,O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- return false;\r
-\r
- size = filelength (handle);\r
- MM_GetPtr (ptr,size);\r
- if (!CA_FarRead (handle,*ptr,size))\r
- {\r
- close (handle);\r
- return false;\r
- }\r
- close (handle);\r
- return true;\r
-}\r
-\r
-/*\r
-============================================================================\r
-\r
- COMPRESSION routines, see JHUFF.C for more\r
-\r
-============================================================================\r
-*/\r
-\r
-\r
-\r
-/*\r
-===============\r
-=\r
-= CAL_OptimizeNodes\r
-=\r
-= Goes through a huffman table and changes the 256-511 node numbers to the\r
-= actular address of the node. Must be called before CAL_HuffExpand\r
-=\r
-===============\r
-*/\r
-\r
-void CAL_OptimizeNodes (huffnode *table)\r
-{\r
- huffnode *node;\r
- int i;\r
-\r
- node = table;\r
-\r
- for (i=0;i<255;i++)\r
- {\r
- if (node->bit0 >= 256)\r
- node->bit0 = (unsigned)(table+(node->bit0-256));\r
- if (node->bit1 >= 256)\r
- node->bit1 = (unsigned)(table+(node->bit1-256));\r
- node++;\r
- }\r
-}\r
-\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_HuffExpand\r
-=\r
-= Length is the length of the EXPANDED data\r
-=\r
-======================\r
-*/\r
-\r
-void CAL_HuffExpand (byte huge *source, byte huge *dest,\r
- long length,huffnode *hufftable)\r
-{\r
-// unsigned bit,byte,node,code;\r
- unsigned sourceseg,sourceoff,destseg,destoff,endoff;\r
- huffnode *headptr;\r
-// huffnode *nodeon;\r
-\r
- headptr = hufftable+254; // head node is allways node 254\r
-\r
- source++; // normalize\r
- source--;\r
- dest++;\r
- dest--;\r
-\r
- sourceseg = FP_SEG(source);\r
- sourceoff = FP_OFF(source);\r
- destseg = FP_SEG(dest);\r
- destoff = FP_OFF(dest);\r
- endoff = destoff+length;\r
-\r
-//\r
-// ds:si source\r
-// es:di dest\r
-// ss:bx node pointer\r
-//\r
-\r
- if (length <0xfff0)\r
- {\r
-\r
-//--------------------------\r
-// expand less than 64k of data\r
-//--------------------------\r
-\r
-asm mov bx,[headptr]\r
-\r
-asm mov si,[sourceoff]\r
-asm mov di,[destoff]\r
-asm mov es,[destseg]\r
-asm mov ds,[sourceseg]\r
-asm mov ax,[endoff]\r
-\r
-asm mov ch,[si] // load first byte\r
-asm inc si\r
-asm mov cl,1\r
-\r
-expandshort:\r
-asm test ch,cl // bit set?\r
-asm jnz bit1short\r
-asm mov dx,[ss:bx] // take bit0 path from node\r
-asm shl cl,1 // advance to next bit position\r
-asm jc newbyteshort\r
-asm jnc sourceupshort\r
-\r
-bit1short:\r
-asm mov dx,[ss:bx+2] // take bit1 path\r
-asm shl cl,1 // advance to next bit position\r
-asm jnc sourceupshort\r
-\r
-newbyteshort:\r
-asm mov ch,[si] // load next byte\r
-asm inc si\r
-asm mov cl,1 // back to first bit\r
-\r
-sourceupshort:\r
-asm or dh,dh // if dx<256 its a byte, else move node\r
-asm jz storebyteshort\r
-asm mov bx,dx // next node = (huffnode *)code\r
-asm jmp expandshort\r
-\r
-storebyteshort:\r
-asm mov [es:di],dl\r
-asm inc di // write a decopmpressed byte out\r
-asm mov bx,[headptr] // back to the head node for next bit\r
-\r
-asm cmp di,ax // done?\r
-asm jne expandshort\r
- }\r
- else\r
- {\r
-\r
-//--------------------------\r
-// expand more than 64k of data\r
-//--------------------------\r
-\r
- length--;\r
-\r
-asm mov bx,[headptr]\r
-asm mov cl,1\r
-\r
-asm mov si,[sourceoff]\r
-asm mov di,[destoff]\r
-asm mov es,[destseg]\r
-asm mov ds,[sourceseg]\r
-\r
-asm lodsb // load first byte\r
-\r
-expand:\r
-asm test al,cl // bit set?\r
-asm jnz bit1\r
-asm mov dx,[ss:bx] // take bit0 path from node\r
-asm jmp gotcode\r
-bit1:\r
-asm mov dx,[ss:bx+2] // take bit1 path\r
-\r
-gotcode:\r
-asm shl cl,1 // advance to next bit position\r
-asm jnc sourceup\r
-asm lodsb\r
-asm cmp si,0x10 // normalize ds:si\r
-asm jb sinorm\r
-asm mov cx,ds\r
-asm inc cx\r
-asm mov ds,cx\r
-asm xor si,si\r
-sinorm:\r
-asm mov cl,1 // back to first bit\r
-\r
-sourceup:\r
-asm or dh,dh // if dx<256 its a byte, else move node\r
-asm jz storebyte\r
-asm mov bx,dx // next node = (huffnode *)code\r
-asm jmp expand\r
-\r
-storebyte:\r
-asm mov [es:di],dl\r
-asm inc di // write a decopmpressed byte out\r
-asm mov bx,[headptr] // back to the head node for next bit\r
-\r
-asm cmp di,0x10 // normalize es:di\r
-asm jb dinorm\r
-asm mov dx,es\r
-asm inc dx\r
-asm mov es,dx\r
-asm xor di,di\r
-dinorm:\r
-\r
-asm sub [WORD PTR ss:length],1\r
-asm jnc expand\r
-asm dec [WORD PTR ss:length+2]\r
-asm jns expand // when length = ffff ffff, done\r
-\r
- }\r
-\r
-asm mov ax,ss\r
-asm mov ds,ax\r
-\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_CarmackExpand\r
-=\r
-= Length is the length of the EXPANDED data\r
-=\r
-======================\r
-*/\r
-\r
-#define NEARTAG 0xa7\r
-#define FARTAG 0xa8\r
-\r
-void CAL_CarmackExpand (unsigned far *source, unsigned far *dest, unsigned length)\r
-{\r
- unsigned ch,chhigh,count,offset;\r
- unsigned far *copyptr, far *inptr, far *outptr;\r
-\r
- length/=2;\r
-\r
- inptr = source;\r
- outptr = dest;\r
-\r
- while (length)\r
- {\r
- ch = *inptr++;\r
- chhigh = ch>>8;\r
- if (chhigh == NEARTAG)\r
- {\r
- count = ch&0xff;\r
- if (!count)\r
- { // have to insert a word containing the tag byte\r
- ch |= *((unsigned char far *)inptr)++;\r
- *outptr++ = ch;\r
- length--;\r
- }\r
- else\r
- {\r
- offset = *((unsigned char far *)inptr)++;\r
- copyptr = outptr - offset;\r
- length -= count;\r
- while (count--)\r
- *outptr++ = *copyptr++;\r
- }\r
- }\r
- else if (chhigh == FARTAG)\r
- {\r
- count = ch&0xff;\r
- if (!count)\r
- { // have to insert a word containing the tag byte\r
- ch |= *((unsigned char far *)inptr)++;\r
- *outptr++ = ch;\r
- length --;\r
- }\r
- else\r
- {\r
- offset = *inptr++;\r
- copyptr = dest + offset;\r
- length -= count;\r
- while (count--)\r
- *outptr++ = *copyptr++;\r
- }\r
- }\r
- else\r
- {\r
- *outptr++ = ch;\r
- length --;\r
- }\r
- }\r
-}\r
-\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CA_RLEWcompress\r
-=\r
-======================\r
-*/\r
-\r
-long CA_RLEWCompress (unsigned huge *source, long length, unsigned huge *dest,\r
- unsigned rlewtag)\r
-{\r
- long complength;\r
- unsigned value,count,i;\r
- unsigned huge *start,huge *end;\r
-\r
- start = dest;\r
-\r
- end = source + (length+1)/2;\r
-\r
-//\r
-// compress it\r
-//\r
- do\r
- {\r
- count = 1;\r
- value = *source++;\r
- while (*source == value && source<end)\r
- {\r
- count++;\r
- source++;\r
- }\r
- if (count>3 || value == rlewtag)\r
- {\r
- //\r
- // send a tag / count / value string\r
- //\r
- *dest++ = rlewtag;\r
- *dest++ = count;\r
- *dest++ = value;\r
- }\r
- else\r
- {\r
- //\r
- // send word without compressing\r
- //\r
- for (i=1;i<=count;i++)\r
- *dest++ = value;\r
- }\r
-\r
- } while (source<end);\r
-\r
- complength = 2*(dest-start);\r
- return complength;\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CA_RLEWexpand\r
-= length is EXPANDED length\r
-=\r
-======================\r
-*/\r
-\r
-void CA_RLEWexpand (unsigned huge *source, unsigned huge *dest,long length,\r
- unsigned rlewtag)\r
-{\r
-// unsigned value,count,i;\r
- unsigned huge *end;\r
- unsigned sourceseg,sourceoff,destseg,destoff,endseg,endoff;\r
-\r
-\r
-//\r
-// expand it\r
-//\r
-#if 0\r
- do\r
- {\r
- value = *source++;\r
- if (value != rlewtag)\r
- //\r
- // uncompressed\r
- //\r
- *dest++=value;\r
- else\r
- {\r
- //\r
- // compressed string\r
- //\r
- count = *source++;\r
- value = *source++;\r
- for (i=1;i<=count;i++)\r
- *dest++ = value;\r
- }\r
- } while (dest<end);\r
-#endif\r
-\r
- end = dest + (length)/2;\r
- sourceseg = FP_SEG(source);\r
- sourceoff = FP_OFF(source);\r
- destseg = FP_SEG(dest);\r
- destoff = FP_OFF(dest);\r
- endseg = FP_SEG(end);\r
- endoff = FP_OFF(end);\r
-\r
-\r
-//\r
-// ax = source value\r
-// bx = tag value\r
-// cx = repeat counts\r
-// dx = scratch\r
-//\r
-// NOTE: A repeat count that produces 0xfff0 bytes can blow this!\r
-//\r
-\r
-asm mov bx,rlewtag\r
-asm mov si,sourceoff\r
-asm mov di,destoff\r
-asm mov es,destseg\r
-asm mov ds,sourceseg\r
-\r
-expand:\r
-asm lodsw\r
-asm cmp ax,bx\r
-asm je repeat\r
-asm stosw\r
-asm jmp next\r
-\r
-repeat:\r
-asm lodsw\r
-asm mov cx,ax // repeat count\r
-asm lodsw // repeat value\r
-asm rep stosw\r
-\r
-next:\r
-\r
-asm cmp si,0x10 // normalize ds:si\r
-asm jb sinorm\r
-asm mov ax,si\r
-asm shr ax,1\r
-asm shr ax,1\r
-asm shr ax,1\r
-asm shr ax,1\r
-asm mov dx,ds\r
-asm add dx,ax\r
-asm mov ds,dx\r
-asm and si,0xf\r
-sinorm:\r
-asm cmp di,0x10 // normalize es:di\r
-asm jb dinorm\r
-asm mov ax,di\r
-asm shr ax,1\r
-asm shr ax,1\r
-asm shr ax,1\r
-asm shr ax,1\r
-asm mov dx,es\r
-asm add dx,ax\r
-asm mov es,dx\r
-asm and di,0xf\r
-dinorm:\r
-\r
-asm cmp di,ss:endoff\r
-asm jne expand\r
-asm mov ax,es\r
-asm cmp ax,ss:endseg\r
-asm jb expand\r
-\r
-asm mov ax,ss\r
-asm mov ds,ax\r
-\r
-}\r
-\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
- CACHE MANAGER ROUTINES\r
-\r
-=============================================================================\r
-*/\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_SetupGrFile\r
-=\r
-======================\r
-*/\r
-\r
-void CAL_SetupGrFile (void)\r
-{\r
- int handle;\r
- memptr compseg;\r
-\r
-#ifdef GRHEADERLINKED\r
-\r
-#if GRMODE == EGAGR\r
- grhuffman = (huffnode *)&EGAdict;\r
- grstarts = (long _seg *)FP_SEG(&EGAhead);\r
-#endif\r
-#if GRMODE == CGAGR\r
- grhuffman = (huffnode *)&CGAdict;\r
- grstarts = (long _seg *)FP_SEG(&CGAhead);\r
-#endif\r
-\r
- CAL_OptimizeNodes (grhuffman);\r
-\r
-#else\r
-\r
-//\r
-// load ???dict.ext (huffman dictionary for graphics files)\r
-//\r
-\r
- if ((handle = open(GREXT"DICT."EXTENSION,\r
- O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- Quit ("Can't open "GREXT"DICT."EXTENSION"!");\r
-\r
- read(handle, &grhuffman, sizeof(grhuffman));\r
- close(handle);\r
- CAL_OptimizeNodes (grhuffman);\r
-//\r
-// load the data offsets from ???head.ext\r
-//\r
- MM_GetPtr (&(memptr)grstarts,(NUMCHUNKS+1)*FILEPOSSIZE);\r
-\r
- if ((handle = open(GREXT"HEAD."EXTENSION,\r
- O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- Quit ("Can't open "GREXT"HEAD."EXTENSION"!");\r
-\r
- CA_FarRead(handle, (memptr)grstarts, (NUMCHUNKS+1)*FILEPOSSIZE);\r
-\r
- close(handle);\r
-\r
-\r
-#endif\r
-\r
-//\r
-// Open the graphics file, leaving it open until the game is finished\r
-//\r
- grhandle = open(GREXT"GRAPH."EXTENSION, O_RDONLY | O_BINARY);\r
- if (grhandle == -1)\r
- Quit ("Cannot open "GREXT"GRAPH."EXTENSION"!");\r
-\r
-\r
-//\r
-// load the pic and sprite headers into the arrays in the data segment\r
-//\r
-#if NUMPICS>0\r
- MM_GetPtr(&(memptr)pictable,NUMPICS*sizeof(pictabletype));\r
- CAL_GetGrChunkLength(STRUCTPIC); // position file pointer\r
- MM_GetPtr(&compseg,chunkcomplen);\r
- CA_FarRead (grhandle,compseg,chunkcomplen);\r
- CAL_HuffExpand (compseg, (byte huge *)pictable,NUMPICS*sizeof(pictabletype),grhuffman);\r
- MM_FreePtr(&compseg);\r
-#endif\r
-\r
-#if NUMPICM>0\r
- MM_GetPtr(&(memptr)picmtable,NUMPICM*sizeof(pictabletype));\r
- CAL_GetGrChunkLength(STRUCTPICM); // position file pointer\r
- MM_GetPtr(&compseg,chunkcomplen);\r
- CA_FarRead (grhandle,compseg,chunkcomplen);\r
- CAL_HuffExpand (compseg, (byte huge *)picmtable,NUMPICS*sizeof(pictabletype),grhuffman);\r
- MM_FreePtr(&compseg);\r
-#endif\r
-\r
-#if NUMSPRITES>0\r
- MM_GetPtr(&(memptr)spritetable,NUMSPRITES*sizeof(spritetabletype));\r
- CAL_GetGrChunkLength(STRUCTSPRITE); // position file pointer\r
- MM_GetPtr(&compseg,chunkcomplen);\r
- CA_FarRead (grhandle,compseg,chunkcomplen);\r
- CAL_HuffExpand (compseg, (byte huge *)spritetable,NUMSPRITES*sizeof(spritetabletype),grhuffman);\r
- MM_FreePtr(&compseg);\r
-#endif\r
-\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_SetupMapFile\r
-=\r
-======================\r
-*/\r
-\r
-void CAL_SetupMapFile (void)\r
-{\r
- int handle;\r
- long length;\r
-\r
-//\r
-// load maphead.ext (offsets and tileinfo for map file)\r
-//\r
-#ifndef MAPHEADERLINKED\r
- if ((handle = open("MAPHEAD."EXTENSION,\r
- O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- Quit ("Can't open MAPHEAD."EXTENSION"!");\r
- length = filelength(handle);\r
- MM_GetPtr (&(memptr)tinf,length);\r
- CA_FarRead(handle, tinf, length);\r
- close(handle);\r
-#else\r
-\r
- tinf = (byte _seg *)FP_SEG(&maphead);\r
-\r
-#endif\r
-\r
-//\r
-// open the data file\r
-//\r
-#ifdef MAPHEADERLINKED\r
- if ((maphandle = open("GAMEMAPS."EXTENSION,\r
- O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- Quit ("Can't open GAMEMAPS."EXTENSION"!");\r
-#else\r
- if ((maphandle = open("MAPTEMP."EXTENSION,\r
- O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- Quit ("Can't open MAPTEMP."EXTENSION"!");\r
-#endif\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_SetupAudioFile\r
-=\r
-======================\r
-*/\r
-\r
-void CAL_SetupAudioFile (void)\r
-{\r
- int handle;\r
- long length;\r
-\r
-//\r
-// load maphead.ext (offsets and tileinfo for map file)\r
-//\r
-#ifndef AUDIOHEADERLINKED\r
- if ((handle = open("AUDIOHED."EXTENSION,\r
- O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- Quit ("Can't open AUDIOHED."EXTENSION"!");\r
- length = filelength(handle);\r
- MM_GetPtr (&(memptr)audiostarts,length);\r
- CA_FarRead(handle, (byte far *)audiostarts, length);\r
- close(handle);\r
-#else\r
- audiohuffman = (huffnode *)&audiodict;\r
- CAL_OptimizeNodes (audiohuffman);\r
- audiostarts = (long _seg *)FP_SEG(&audiohead);\r
-#endif\r
-\r
-//\r
-// open the data file\r
-//\r
-#ifndef AUDIOHEADERLINKED\r
- if ((audiohandle = open("AUDIOT."EXTENSION,\r
- O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- Quit ("Can't open AUDIOT."EXTENSION"!");\r
-#else\r
- if ((audiohandle = open("AUDIO."EXTENSION,\r
- O_RDONLY | O_BINARY, S_IREAD)) == -1)\r
- Quit ("Can't open AUDIO."EXTENSION"!");\r
-#endif\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CA_Startup\r
-=\r
-= Open all files and load in headers\r
-=\r
-======================\r
-*/\r
-\r
-void CA_Startup (void)\r
-{\r
-#ifdef PROFILE\r
- unlink ("PROFILE.TXT");\r
- profilehandle = open("PROFILE.TXT", O_CREAT | O_WRONLY | O_TEXT);\r
-#endif\r
-\r
-#ifndef NOMAPS\r
- CAL_SetupMapFile ();\r
-#endif\r
-#ifndef NOGRAPHICS\r
- CAL_SetupGrFile ();\r
-#endif\r
-#ifndef NOAUDIO\r
- CAL_SetupAudioFile ();\r
-#endif\r
-\r
- mapon = -1;\r
- ca_levelbit = 1;\r
- ca_levelnum = 0;\r
-\r
- drawcachebox = CAL_DialogDraw;\r
- updatecachebox = CAL_DialogUpdate;\r
- finishcachebox = CAL_DialogFinish;\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CA_Shutdown\r
-=\r
-= Closes all files\r
-=\r
-======================\r
-*/\r
-\r
-void CA_Shutdown (void)\r
-{\r
-#ifdef PROFILE\r
- close (profilehandle);\r
-#endif\r
-\r
- close (maphandle);\r
- close (grhandle);\r
- close (audiohandle);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CA_CacheAudioChunk\r
-=\r
-======================\r
-*/\r
-\r
-void CA_CacheAudioChunk (int chunk)\r
-{\r
- long pos,compressed;\r
-#ifdef AUDIOHEADERLINKED\r
- long expanded;\r
- memptr bigbufferseg;\r
- byte far *source;\r
-#endif\r
-\r
- if (audiosegs[chunk])\r
- {\r
- MM_SetPurge (&(memptr)audiosegs[chunk],0);\r
- return; // allready in memory\r
- }\r
-\r
-//\r
-// load the chunk into a buffer, either the miscbuffer if it fits, or allocate\r
-// a larger buffer\r
-//\r
- pos = audiostarts[chunk];\r
- compressed = audiostarts[chunk+1]-pos;\r
-\r
- lseek(audiohandle,pos,SEEK_SET);\r
-\r
-#ifndef AUDIOHEADERLINKED\r
-\r
- MM_GetPtr (&(memptr)audiosegs[chunk],compressed);\r
- if (mmerror)\r
- return;\r
-\r
- CA_FarRead(audiohandle,audiosegs[chunk],compressed);\r
-\r
-#else\r
-\r
- if (compressed<=BUFFERSIZE)\r
- {\r
- CA_FarRead(audiohandle,bufferseg,compressed);\r
- source = bufferseg;\r
- }\r
- else\r
- {\r
- MM_GetPtr(&bigbufferseg,compressed);\r
- if (mmerror)\r
- return;\r
- MM_SetLock (&bigbufferseg,true);\r
- CA_FarRead(audiohandle,bigbufferseg,compressed);\r
- source = bigbufferseg;\r
- }\r
-\r
- expanded = *(long far *)source;\r
- source += 4; // skip over length\r
- MM_GetPtr (&(memptr)audiosegs[chunk],expanded);\r
- if (mmerror)\r
- goto done;\r
- CAL_HuffExpand (source,audiosegs[chunk],expanded,audiohuffman);\r
-\r
-done:\r
- if (compressed>BUFFERSIZE)\r
- MM_FreePtr(&bigbufferseg);\r
-#endif\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CA_LoadAllSounds\r
-=\r
-= Purges all sounds, then loads all new ones (mode switch)\r
-=\r
-======================\r
-*/\r
-\r
-void CA_LoadAllSounds (void)\r
-{\r
- unsigned start,i;\r
-\r
- switch (oldsoundmode)\r
- {\r
- case sdm_Off:\r
- goto cachein;\r
- case sdm_PC:\r
- start = STARTPCSOUNDS;\r
- break;\r
- case sdm_AdLib:\r
- start = STARTADLIBSOUNDS;\r
- break;\r
- }\r
-\r
- for (i=0;i<NUMSOUNDS;i++,start++)\r
- if (audiosegs[start])\r
- MM_SetPurge (&(memptr)audiosegs[start],3); // make purgable\r
-\r
-cachein:\r
-\r
- switch (SoundMode)\r
- {\r
- case sdm_Off:\r
- return;\r
- case sdm_PC:\r
- start = STARTPCSOUNDS;\r
- break;\r
- case sdm_AdLib:\r
- start = STARTADLIBSOUNDS;\r
- break;\r
- }\r
-\r
- for (i=0;i<NUMSOUNDS;i++,start++)\r
- CA_CacheAudioChunk (start);\r
-\r
- oldsoundmode = SoundMode;\r
-}\r
-\r
-//===========================================================================\r
-\r
-#if GRMODE == EGAGR\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_ShiftSprite\r
-=\r
-= Make a shifted (one byte wider) copy of a sprite into another area\r
-=\r
-======================\r
-*/\r
-\r
-unsigned static sheight,swidth;\r
-\r
-void CAL_ShiftSprite (unsigned segment,unsigned source,unsigned dest,\r
- unsigned width, unsigned height, unsigned pixshift)\r
-{\r
-\r
- sheight = height; // because we are going to reassign bp\r
- swidth = width;\r
-\r
-asm mov ax,[segment]\r
-asm mov ds,ax // source and dest are in same segment, and all local\r
-\r
-asm mov bx,[source]\r
-asm mov di,[dest]\r
-\r
-asm mov bp,[pixshift]\r
-asm shl bp,1\r
-asm mov bp,WORD PTR [shifttabletable+bp] // bp holds pointer to shift table\r
-\r
-//\r
-// table shift the mask\r
-//\r
-asm mov dx,[ss:sheight]\r
-\r
-domaskrow:\r
-\r
-asm mov BYTE PTR [di],255 // 0xff first byte\r
-asm mov cx,ss:[swidth]\r
-\r
-domaskbyte:\r
-\r
-asm mov al,[bx] // source\r
-asm not al\r
-asm inc bx // next source byte\r
-asm xor ah,ah\r
-asm shl ax,1\r
-asm mov si,ax\r
-asm mov ax,[bp+si] // table shift into two bytes\r
-asm not ax\r
-asm and [di],al // and with first byte\r
-asm inc di\r
-asm mov [di],ah // replace next byte\r
-\r
-asm loop domaskbyte\r
-\r
-asm inc di // the last shifted byte has 1s in it\r
-asm dec dx\r
-asm jnz domaskrow\r
-\r
-//\r
-// table shift the data\r
-//\r
-asm mov dx,ss:[sheight]\r
-asm shl dx,1\r
-asm shl dx,1 // four planes of data\r
-\r
-dodatarow:\r
-\r
-asm mov BYTE PTR [di],0 // 0 first byte\r
-asm mov cx,ss:[swidth]\r
-\r
-dodatabyte:\r
-\r
-asm mov al,[bx] // source\r
-asm inc bx // next source byte\r
-asm xor ah,ah\r
-asm shl ax,1\r
-asm mov si,ax\r
-asm mov ax,[bp+si] // table shift into two bytes\r
-asm or [di],al // or with first byte\r
-asm inc di\r
-asm mov [di],ah // replace next byte\r
-\r
-asm loop dodatabyte\r
-\r
-asm inc di // the last shifted byte has 0s in it\r
-asm dec dx\r
-asm jnz dodatarow\r
-\r
-//\r
-// done\r
-//\r
-\r
-asm mov ax,ss // restore data segment\r
-asm mov ds,ax\r
-\r
-}\r
-\r
-#endif\r
-\r
-//===========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_CacheSprite\r
-=\r
-= Generate shifts and set up sprite structure for a given sprite\r
-=\r
-======================\r
-*/\r
-\r
-void CAL_CacheSprite (int chunk, byte far *compressed)\r
-{\r
- int i;\r
- unsigned shiftstarts[5];\r
- unsigned smallplane,bigplane,expanded;\r
- spritetabletype far *spr;\r
- spritetype _seg *dest;\r
-\r
-#if GRMODE == CGAGR\r
-//\r
-// CGA has no pel panning, so shifts are never needed\r
-//\r
- spr = &spritetable[chunk-STARTSPRITES];\r
- smallplane = spr->width*spr->height;\r
- MM_GetPtr (&grsegs[chunk],smallplane*2+MAXSHIFTS*6);\r
- if (mmerror)\r
- return;\r
- dest = (spritetype _seg *)grsegs[chunk];\r
- dest->sourceoffset[0] = MAXSHIFTS*6; // start data after 3 unsigned tables\r
- dest->planesize[0] = smallplane;\r
- dest->width[0] = spr->width;\r
-\r
-//\r
-// expand the unshifted shape\r
-//\r
- CAL_HuffExpand (compressed, &dest->data[0],smallplane*2,grhuffman);\r
-\r
-#endif\r
-\r
-\r
-#if GRMODE == EGAGR\r
-\r
-//\r
-// calculate sizes\r
-//\r
- spr = &spritetable[chunk-STARTSPRITES];\r
- smallplane = spr->width*spr->height;\r
- bigplane = (spr->width+1)*spr->height;\r
-\r
- shiftstarts[0] = MAXSHIFTS*6; // start data after 3 unsigned tables\r
- shiftstarts[1] = shiftstarts[0] + smallplane*5; // 5 planes in a sprite\r
- shiftstarts[2] = shiftstarts[1] + bigplane*5;\r
- shiftstarts[3] = shiftstarts[2] + bigplane*5;\r
- shiftstarts[4] = shiftstarts[3] + bigplane*5; // nothing ever put here\r
-\r
- expanded = shiftstarts[spr->shifts];\r
- MM_GetPtr (&grsegs[chunk],expanded);\r
- if (mmerror)\r
- return;\r
- dest = (spritetype _seg *)grsegs[chunk];\r
-\r
-//\r
-// expand the unshifted shape\r
-//\r
- CAL_HuffExpand (compressed, &dest->data[0],smallplane*5,grhuffman);\r
-\r
-//\r
-// make the shifts!\r
-//\r
- switch (spr->shifts)\r
- {\r
- case 1:\r
- for (i=0;i<4;i++)\r
- {\r
- dest->sourceoffset[i] = shiftstarts[0];\r
- dest->planesize[i] = smallplane;\r
- dest->width[i] = spr->width;\r
- }\r
- break;\r
-\r
- case 2:\r
- for (i=0;i<2;i++)\r
- {\r
- dest->sourceoffset[i] = shiftstarts[0];\r
- dest->planesize[i] = smallplane;\r
- dest->width[i] = spr->width;\r
- }\r
- for (i=2;i<4;i++)\r
- {\r
- dest->sourceoffset[i] = shiftstarts[1];\r
- dest->planesize[i] = bigplane;\r
- dest->width[i] = spr->width+1;\r
- }\r
- CAL_ShiftSprite ((unsigned)grsegs[chunk],dest->sourceoffset[0],\r
- dest->sourceoffset[2],spr->width,spr->height,4);\r
- break;\r
-\r
- case 4:\r
- dest->sourceoffset[0] = shiftstarts[0];\r
- dest->planesize[0] = smallplane;\r
- dest->width[0] = spr->width;\r
-\r
- dest->sourceoffset[1] = shiftstarts[1];\r
- dest->planesize[1] = bigplane;\r
- dest->width[1] = spr->width+1;\r
- CAL_ShiftSprite ((unsigned)grsegs[chunk],dest->sourceoffset[0],\r
- dest->sourceoffset[1],spr->width,spr->height,2);\r
-\r
- dest->sourceoffset[2] = shiftstarts[2];\r
- dest->planesize[2] = bigplane;\r
- dest->width[2] = spr->width+1;\r
- CAL_ShiftSprite ((unsigned)grsegs[chunk],dest->sourceoffset[0],\r
- dest->sourceoffset[2],spr->width,spr->height,4);\r
-\r
- dest->sourceoffset[3] = shiftstarts[3];\r
- dest->planesize[3] = bigplane;\r
- dest->width[3] = spr->width+1;\r
- CAL_ShiftSprite ((unsigned)grsegs[chunk],dest->sourceoffset[0],\r
- dest->sourceoffset[3],spr->width,spr->height,6);\r
-\r
- break;\r
-\r
- default:\r
- Quit ("CAL_CacheSprite: Bad shifts number!");\r
- }\r
-\r
-#endif\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_ExpandGrChunk\r
-=\r
-= Does whatever is needed with a pointer to a compressed chunk\r
-=\r
-======================\r
-*/\r
-\r
-void CAL_ExpandGrChunk (int chunk, byte far *source)\r
-{\r
- long expanded;\r
-\r
-\r
- if (chunk >= STARTTILE8 && chunk < STARTEXTERNS)\r
- {\r
- //\r
- // expanded sizes of tile8/16/32 are implicit\r
- //\r
-\r
-#if GRMODE == EGAGR\r
-#define BLOCK 32\r
-#define MASKBLOCK 40\r
-#endif\r
-\r
-#if GRMODE == CGAGR\r
-#define BLOCK 16\r
-#define MASKBLOCK 32\r
-#endif\r
-\r
- if (chunk<STARTTILE8M) // tile 8s are all in one chunk!\r
- expanded = BLOCK*NUMTILE8;\r
- else if (chunk<STARTTILE16)\r
- expanded = MASKBLOCK*NUMTILE8M;\r
- else if (chunk<STARTTILE16M) // all other tiles are one/chunk\r
- expanded = BLOCK*4;\r
- else if (chunk<STARTTILE32)\r
- expanded = MASKBLOCK*4;\r
- else if (chunk<STARTTILE32M)\r
- expanded = BLOCK*16;\r
- else\r
- expanded = MASKBLOCK*16;\r
- }\r
- else\r
- {\r
- //\r
- // everything else has an explicit size longword\r
- //\r
- expanded = *(long far *)source;\r
- source += 4; // skip over length\r
- }\r
-\r
-//\r
-// allocate final space, decompress it, and free bigbuffer\r
-// Sprites need to have shifts made and various other junk\r
-//\r
- if (chunk>=STARTSPRITES && chunk< STARTTILE8)\r
- CAL_CacheSprite(chunk,source);\r
- else\r
- {\r
- MM_GetPtr (&grsegs[chunk],expanded);\r
- if (mmerror)\r
- return;\r
- CAL_HuffExpand (source,grsegs[chunk],expanded,grhuffman);\r
- }\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_ReadGrChunk\r
-=\r
-= Gets a chunk off disk, optimizing reads to general buffer\r
-=\r
-======================\r
-*/\r
-\r
-void CAL_ReadGrChunk (int chunk)\r
-{\r
- long pos,compressed;\r
- memptr bigbufferseg;\r
- byte far *source;\r
- int next;\r
-\r
-//\r
-// load the chunk into a buffer, either the miscbuffer if it fits, or allocate\r
-// a larger buffer\r
-//\r
- pos = GRFILEPOS(chunk);\r
- if (pos<0) // $FFFFFFFF start is a sparse tile\r
- return;\r
-\r
- next = chunk +1;\r
- while (GRFILEPOS(next) == -1) // skip past any sparse tiles\r
- next++;\r
-\r
- compressed = GRFILEPOS(next)-pos;\r
-\r
- lseek(grhandle,pos,SEEK_SET);\r
-\r
- if (compressed<=BUFFERSIZE)\r
- {\r
- CA_FarRead(grhandle,bufferseg,compressed);\r
- source = bufferseg;\r
- }\r
- else\r
- {\r
- MM_GetPtr(&bigbufferseg,compressed);\r
- if (mmerror)\r
- return;\r
- MM_SetLock (&bigbufferseg,true);\r
- CA_FarRead(grhandle,bigbufferseg,compressed);\r
- source = bigbufferseg;\r
- }\r
-\r
- CAL_ExpandGrChunk (chunk,source);\r
-\r
- if (compressed>BUFFERSIZE)\r
- MM_FreePtr(&bigbufferseg);\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CA_CacheGrChunk\r
-=\r
-= Makes sure a given chunk is in memory, loadiing it if needed\r
-=\r
-======================\r
-*/\r
-\r
-void CA_CacheGrChunk (int chunk)\r
-{\r
- long pos,compressed;\r
- memptr bigbufferseg;\r
- byte far *source;\r
- int next;\r
-\r
- grneeded[chunk] |= ca_levelbit; // make sure it doesn't get removed\r
- if (grsegs[chunk])\r
- {\r
- MM_SetPurge (&grsegs[chunk],0);\r
- return; // allready in memory\r
- }\r
-\r
-//\r
-// load the chunk into a buffer, either the miscbuffer if it fits, or allocate\r
-// a larger buffer\r
-//\r
- pos = GRFILEPOS(chunk);\r
- if (pos<0) // $FFFFFFFF start is a sparse tile\r
- return;\r
-\r
- next = chunk +1;\r
- while (GRFILEPOS(next) == -1) // skip past any sparse tiles\r
- next++;\r
-\r
- compressed = GRFILEPOS(next)-pos;\r
-\r
- lseek(grhandle,pos,SEEK_SET);\r
-\r
- if (compressed<=BUFFERSIZE)\r
- {\r
- CA_FarRead(grhandle,bufferseg,compressed);\r
- source = bufferseg;\r
- }\r
- else\r
- {\r
- MM_GetPtr(&bigbufferseg,compressed);\r
- MM_SetLock (&bigbufferseg,true);\r
- CA_FarRead(grhandle,bigbufferseg,compressed);\r
- source = bigbufferseg;\r
- }\r
-\r
- CAL_ExpandGrChunk (chunk,source);\r
-\r
- if (compressed>BUFFERSIZE)\r
- MM_FreePtr(&bigbufferseg);\r
-}\r
-\r
-\r
-\r
-//==========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CA_CacheMap\r
-=\r
-======================\r
-*/\r
-\r
-void CA_CacheMap (int mapnum)\r
-{\r
- long pos,compressed;\r
- int plane;\r
- memptr *dest,bigbufferseg;\r
- unsigned size;\r
- unsigned far *source;\r
-#ifdef MAPHEADERLINKED\r
- memptr buffer2seg;\r
- long expanded;\r
-#endif\r
-\r
-\r
-//\r
-// free up memory from last map\r
-//\r
- if (mapon>-1 && mapheaderseg[mapon])\r
- MM_SetPurge (&(memptr)mapheaderseg[mapon],3);\r
- for (plane=0;plane<MAPPLANES;plane++)\r
- if (mapsegs[plane])\r
- MM_FreePtr (&(memptr)mapsegs[plane]);\r
-\r
- mapon = mapnum;\r
-\r
-\r
-//\r
-// load map header\r
-// The header will be cached if it is still around\r
-//\r
- if (!mapheaderseg[mapnum])\r
- {\r
- pos = ((mapfiletype _seg *)tinf)->headeroffsets[mapnum];\r
- if (pos<0) // $FFFFFFFF start is a sparse map\r
- Quit ("CA_CacheMap: Tried to load a non existent map!");\r
-\r
- MM_GetPtr(&(memptr)mapheaderseg[mapnum],sizeof(maptype));\r
- lseek(maphandle,pos,SEEK_SET);\r
- CA_FarRead (maphandle,(memptr)mapheaderseg[mapnum],sizeof(maptype));\r
- }\r
- else\r
- MM_SetPurge (&(memptr)mapheaderseg[mapnum],0);\r
-\r
-//\r
-// load the planes in\r
-// If a plane's pointer still exists it will be overwritten (levels are\r
-// allways reloaded, never cached)\r
-//\r
-\r
- size = mapheaderseg[mapnum]->width * mapheaderseg[mapnum]->height * 2;\r
-\r
- for (plane = 0; plane<MAPPLANES; plane++)\r
- {\r
- pos = mapheaderseg[mapnum]->planestart[plane];\r
- compressed = mapheaderseg[mapnum]->planelength[plane];\r
-\r
- if (!compressed)\r
- continue; // the plane is not used in this game\r
-\r
- dest = &(memptr)mapsegs[plane];\r
- MM_GetPtr(dest,size);\r
-\r
- lseek(maphandle,pos,SEEK_SET);\r
- if (compressed<=BUFFERSIZE)\r
- source = bufferseg;\r
- else\r
- {\r
- MM_GetPtr(&bigbufferseg,compressed);\r
- MM_SetLock (&bigbufferseg,true);\r
- source = bigbufferseg;\r
- }\r
-\r
- CA_FarRead(maphandle,(byte far *)source,compressed);\r
-#ifdef MAPHEADERLINKED\r
- //\r
- // unhuffman, then unRLEW\r
- // The huffman'd chunk has a two byte expanded length first\r
- // The resulting RLEW chunk also does, even though it's not really\r
- // needed\r
- //\r
- expanded = *source;\r
- source++;\r
- MM_GetPtr (&buffer2seg,expanded);\r
- CAL_CarmackExpand (source, (unsigned far *)buffer2seg,expanded);\r
- CA_RLEWexpand (((unsigned far *)buffer2seg)+1,*dest,size,\r
- ((mapfiletype _seg *)tinf)->RLEWtag);\r
- MM_FreePtr (&buffer2seg);\r
-\r
-#else\r
- //\r
- // unRLEW, skipping expanded length\r
- //\r
- CA_RLEWexpand (source+1, *dest,size,\r
- ((mapfiletype _seg *)tinf)->RLEWtag);\r
-#endif\r
-\r
- if (compressed>BUFFERSIZE)\r
- MM_FreePtr(&bigbufferseg);\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CA_UpLevel\r
-=\r
-= Goes up a bit level in the needed lists and clears it out.\r
-= Everything is made purgable\r
-=\r
-======================\r
-*/\r
-\r
-void CA_UpLevel (void)\r
-{\r
- if (ca_levelnum==7)\r
- Quit ("CA_UpLevel: Up past level 7!");\r
-\r
- ca_levelbit<<=1;\r
- ca_levelnum++;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CA_DownLevel\r
-=\r
-= Goes down a bit level in the needed lists and recaches\r
-= everything from the lower level\r
-=\r
-======================\r
-*/\r
-\r
-void CA_DownLevel (void)\r
-{\r
- if (!ca_levelnum)\r
- Quit ("CA_DownLevel: Down past level 0!");\r
- ca_levelbit>>=1;\r
- ca_levelnum--;\r
- CA_CacheMarks(NULL);\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CA_ClearMarks\r
-=\r
-= Clears out all the marks at the current level\r
-=\r
-======================\r
-*/\r
-\r
-void CA_ClearMarks (void)\r
-{\r
- int i;\r
-\r
- for (i=0;i<NUMCHUNKS;i++)\r
- grneeded[i]&=~ca_levelbit;\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CA_ClearAllMarks\r
-=\r
-= Clears out all the marks on all the levels\r
-=\r
-======================\r
-*/\r
-\r
-void CA_ClearAllMarks (void)\r
-{\r
- _fmemset (grneeded,0,sizeof(grneeded));\r
- ca_levelbit = 1;\r
- ca_levelnum = 0;\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CA_FreeGraphics\r
-=\r
-======================\r
-*/\r
-\r
-void CA_FreeGraphics (void)\r
-{\r
- int i;\r
-\r
- for (i=0;i<NUMCHUNKS;i++)\r
- if (grsegs[i])\r
- MM_SetPurge (&(memptr)grsegs[i],3);\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CA_SetAllPurge\r
-=\r
-= Make everything possible purgable\r
-=\r
-======================\r
-*/\r
-\r
-void CA_SetAllPurge (void)\r
-{\r
- int i;\r
-\r
- CA_ClearMarks ();\r
-\r
-//\r
-// free cursor sprite and background save\r
-//\r
- VW_FreeCursor ();\r
-\r
-//\r
-// free map headers and map planes\r
-//\r
- for (i=0;i<NUMMAPS;i++)\r
- if (mapheaderseg[i])\r
- MM_SetPurge (&(memptr)mapheaderseg[i],3);\r
-\r
- for (i=0;i<3;i++)\r
- if (mapsegs[i])\r
- MM_FreePtr (&(memptr)mapsegs[i]);\r
-\r
-//\r
-// free sounds\r
-//\r
- for (i=0;i<NUMSNDCHUNKS;i++)\r
- if (audiosegs[i])\r
- MM_SetPurge (&(memptr)audiosegs[i],3);\r
-\r
-//\r
-// free graphics\r
-//\r
- CA_FreeGraphics ();\r
-}\r
-\r
-\r
-void CA_SetGrPurge (void)\r
-{\r
- int i;\r
-\r
-//\r
-// free graphics\r
-//\r
- for (i=0;i<NUMCHUNKS;i++)\r
- if (grsegs[i])\r
- MM_SetPurge (&(memptr)grsegs[i],3);\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_DialogDraw\r
-=\r
-======================\r
-*/\r
-\r
-#define NUMBARS (17l*8)\r
-#define BARSTEP 8\r
-\r
-unsigned thx,thy,lastx;\r
-long barx,barstep;\r
-\r
-void CAL_DialogDraw (char *title,unsigned numcache)\r
-{\r
- unsigned homex,homey,x;\r
-\r
- barstep = (NUMBARS<<16)/numcache;\r
-\r
-//\r
-// draw dialog window (masked tiles 12 - 20 are window borders)\r
-//\r
- US_CenterWindow (20,8);\r
- homex = PrintX;\r
- homey = PrintY;\r
-\r
- US_CPrint ("Loading");\r
- fontcolor = F_SECONDCOLOR;\r
- US_CPrint (title);\r
- fontcolor = F_BLACK;\r
-\r
-//\r
-// draw thermometer bar\r
-//\r
- thx = homex + 8;\r
- thy = homey + 32;\r
-#ifdef CAT3D\r
- VWB_DrawTile8(thx,thy,0); // CAT3D numbers\r
- VWB_DrawTile8(thx,thy+8,3);\r
- VWB_DrawTile8(thx,thy+16,6);\r
- VWB_DrawTile8(thx+17*8,thy,2);\r
- VWB_DrawTile8(thx+17*8,thy+8,5);\r
- VWB_DrawTile8(thx+17*8,thy+16,8);\r
- for (x=thx+8;x<thx+17*8;x+=8)\r
- {\r
- VWB_DrawTile8(x,thy,1);\r
- VWB_DrawTile8(x,thy+8,4);\r
- VWB_DrawTile8(x,thy+16,7);\r
- }\r
-#else\r
- VWB_DrawTile8(thx,thy,11); // KEEN numbers\r
- VWB_DrawTile8(thx,thy+8,14);\r
- VWB_DrawTile8(thx,thy+16,17);\r
- VWB_DrawTile8(thx+17*8,thy,13);\r
- VWB_DrawTile8(thx+17*8,thy+8,16);\r
- VWB_DrawTile8(thx+17*8,thy+16,19);\r
- for (x=thx+8;x<thx+17*8;x+=8)\r
- {\r
- VWB_DrawTile8(x,thy,12);\r
- VWB_DrawTile8(x,thy+8,15);\r
- VWB_DrawTile8(x,thy+16,18);\r
- }\r
-#endif\r
-\r
- thx += 4; // first line location\r
- thy += 5;\r
- barx = (long)thx<<16;\r
- lastx = thx;\r
-\r
- VW_UpdateScreen();\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_DialogUpdate\r
-=\r
-======================\r
-*/\r
-\r
-void CAL_DialogUpdate (void)\r
-{\r
- unsigned x,xh;\r
-\r
- barx+=barstep;\r
- xh = barx>>16;\r
- if (xh - lastx > BARSTEP)\r
- {\r
- for (x=lastx;x<=xh;x++)\r
-#if GRMODE == EGAGR\r
- VWB_Vlin (thy,thy+13,x,14);\r
-#endif\r
-#if GRMODE == CGAGR\r
- VWB_Vlin (thy,thy+13,x,SECONDCOLOR);\r
-#endif\r
- lastx = xh;\r
- VW_UpdateScreen();\r
- }\r
-}\r
-\r
-/*\r
-======================\r
-=\r
-= CAL_DialogFinish\r
-=\r
-======================\r
-*/\r
-\r
-void CAL_DialogFinish (void)\r
-{\r
- unsigned x,xh;\r
-\r
- xh = thx + NUMBARS;\r
- for (x=lastx;x<=xh;x++)\r
-#if GRMODE == EGAGR\r
- VWB_Vlin (thy,thy+13,x,14);\r
-#endif\r
-#if GRMODE == CGAGR\r
- VWB_Vlin (thy,thy+13,x,SECONDCOLOR);\r
-#endif\r
- VW_UpdateScreen();\r
-\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= CA_CacheMarks\r
-=\r
-======================\r
-*/\r
-#define MAXEMPTYREAD 1024\r
-\r
-void CA_CacheMarks (char *title)\r
-{\r
- boolean dialog;\r
- int i,next,numcache;\r
- long pos,endpos,nextpos,nextendpos,compressed;\r
- long bufferstart,bufferend; // file position of general buffer\r
- byte far *source;\r
- memptr bigbufferseg;\r
-\r
- dialog = (title!=NULL);\r
-\r
- numcache = 0;\r
-//\r
-// go through and make everything not needed purgable\r
-//\r
- for (i=0;i<NUMCHUNKS;i++)\r
- if (grneeded[i]&ca_levelbit)\r
- {\r
- if (grsegs[i]) // its allready in memory, make\r
- MM_SetPurge(&grsegs[i],0); // sure it stays there!\r
- else\r
- numcache++;\r
- }\r
- else\r
- {\r
- if (grsegs[i]) // not needed, so make it purgeable\r
- MM_SetPurge(&grsegs[i],3);\r
- }\r
-\r
- if (!numcache) // nothing to cache!\r
- return;\r
-\r
- if (dialog)\r
- {\r
-#ifdef PROFILE\r
- write(profilehandle,title,strlen(title));\r
- write(profilehandle,"\n",1);\r
-#endif\r
- if (drawcachebox)\r
- drawcachebox(title,numcache);\r
- }\r
-\r
-//\r
-// go through and load in anything still needed\r
-//\r
- bufferstart = bufferend = 0; // nothing good in buffer now\r
-\r
- for (i=0;i<NUMCHUNKS;i++)\r
- if ( (grneeded[i]&ca_levelbit) && !grsegs[i])\r
- {\r
-//\r
-// update thermometer\r
-//\r
- if (dialog && updatecachebox)\r
- updatecachebox ();\r
-\r
- pos = GRFILEPOS(i);\r
- if (pos<0)\r
- continue;\r
-\r
- next = i +1;\r
- while (GRFILEPOS(next) == -1) // skip past any sparse tiles\r
- next++;\r
-\r
- compressed = GRFILEPOS(next)-pos;\r
- endpos = pos+compressed;\r
-\r
- if (compressed<=BUFFERSIZE)\r
- {\r
- if (bufferstart<=pos\r
- && bufferend>= endpos)\r
- {\r
- // data is allready in buffer\r
- source = (byte _seg *)bufferseg+(pos-bufferstart);\r
- }\r
- else\r
- {\r
- // load buffer with a new block from disk\r
- // try to get as many of the needed blocks in as possible\r
- while ( next < NUMCHUNKS )\r
- {\r
- while (next < NUMCHUNKS &&\r
- !(grneeded[next]&ca_levelbit && !grsegs[next]))\r
- next++;\r
- if (next == NUMCHUNKS)\r
- continue;\r
-\r
- nextpos = GRFILEPOS(next);\r
- while (GRFILEPOS(++next) == -1) // skip past any sparse tiles\r
- ;\r
- nextendpos = GRFILEPOS(next);\r
- if (nextpos - endpos <= MAXEMPTYREAD\r
- && nextendpos-pos <= BUFFERSIZE)\r
- endpos = nextendpos;\r
- else\r
- next = NUMCHUNKS; // read pos to posend\r
- }\r
-\r
- lseek(grhandle,pos,SEEK_SET);\r
- CA_FarRead(grhandle,bufferseg,endpos-pos);\r
- bufferstart = pos;\r
- bufferend = endpos;\r
- source = bufferseg;\r
- }\r
- }\r
- else\r
- {\r
- // big chunk, allocate temporary buffer\r
- MM_GetPtr(&bigbufferseg,compressed);\r
- if (mmerror)\r
- return;\r
- MM_SetLock (&bigbufferseg,true);\r
- lseek(grhandle,pos,SEEK_SET);\r
- CA_FarRead(grhandle,bigbufferseg,compressed);\r
- source = bigbufferseg;\r
- }\r
-\r
- CAL_ExpandGrChunk (i,source);\r
- if (mmerror)\r
- return;\r
-\r
- if (compressed>BUFFERSIZE)\r
- MM_FreePtr(&bigbufferseg);\r
-\r
- }\r
-\r
-//\r
-// finish up any thermometer remnants\r
-//\r
- if (dialog && finishcachebox)\r
- finishcachebox();\r
-}\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_CA.H\r
-\r
-#ifndef __TYPES__\r
-#include "ID_TYPES.H"\r
-#endif\r
-\r
-#ifndef __ID_MM__\r
-#include "ID_MM.H"\r
-#endif\r
-\r
-#ifndef __ID_GLOB__\r
-#include "ID_GLOB.H"\r
-#endif\r
-\r
-#define __ID_CA__\r
-\r
-//===========================================================================\r
-\r
-//#define NOMAPS\r
-//#define NOGRAPHICS\r
-//#define NOAUDIO\r
-\r
-#define MAPHEADERLINKED\r
-#define GRHEADERLINKED\r
-#define AUDIOHEADERLINKED\r
-\r
-#define NUMMAPS 30\r
-#define MAPPLANES 3\r
-\r
-#ifndef CAT3D\r
-//\r
-// tile info defines, as bytes after tinf the table starts\r
-//\r
-\r
-\r
-//\r
-// TILEINFO offsets\r
-//\r
-#define SPEED 402\r
-#define ANIM (SPEED+NUMTILE16)\r
-\r
-//\r
-// TILEINFOM offsets\r
-//\r
-#define NORTHWALL (ANIM+NUMTILE16)\r
-#define EASTWALL (NORTHWALL+NUMTILE16M)\r
-#define SOUTHWALL (EASTWALL+NUMTILE16M)\r
-#define WESTWALL (SOUTHWALL+NUMTILE16M)\r
-#define MANIM (WESTWALL+NUMTILE16M)\r
-#define INTILE (MANIM+NUMTILE16M)\r
-#define MSPEED (INTILE+NUMTILE16M)\r
-#endif\r
-\r
-//===========================================================================\r
-\r
-typedef struct\r
-{\r
- long planestart[3];\r
- unsigned planelength[3];\r
- unsigned width,height;\r
- char name[16];\r
-} maptype;\r
-\r
-//===========================================================================\r
-\r
-extern byte _seg *tinf;\r
-extern int mapon;\r
-\r
-extern unsigned _seg *mapsegs[3];\r
-extern maptype _seg *mapheaderseg[NUMMAPS];\r
-extern byte _seg *audiosegs[NUMSNDCHUNKS];\r
-extern void _seg *grsegs[NUMCHUNKS];\r
-\r
-extern byte far grneeded[NUMCHUNKS];\r
-extern byte ca_levelbit,ca_levelnum;\r
-\r
-extern char *titleptr[8];\r
-\r
-extern int profilehandle,debughandle;\r
-\r
-//\r
-// hooks for custom cache dialogs\r
-//\r
-extern void (*drawcachebox) (char *title, unsigned numcache);\r
-extern void (*updatecachebox) (void);\r
-extern void (*finishcachebox) (void);\r
-\r
-//===========================================================================\r
-\r
-// just for the score box reshifting\r
-\r
-void CAL_ShiftSprite (unsigned segment,unsigned source,unsigned dest,\r
- unsigned width, unsigned height, unsigned pixshift);\r
-\r
-//===========================================================================\r
-\r
-void CA_OpenDebug (void);\r
-void CA_CloseDebug (void);\r
-boolean CA_FarRead (int handle, byte far *dest, long length);\r
-boolean CA_FarWrite (int handle, byte far *source, long length);\r
-boolean CA_ReadFile (char *filename, memptr *ptr);\r
-boolean CA_LoadFile (char *filename, memptr *ptr);\r
-\r
-long CA_RLEWCompress (unsigned huge *source, long length, unsigned huge *dest,\r
- unsigned rlewtag);\r
-\r
-void CA_RLEWexpand (unsigned huge *source, unsigned huge *dest,long length,\r
- unsigned rlewtag);\r
-\r
-void CA_Startup (void);\r
-void CA_Shutdown (void);\r
-\r
-void CA_CacheAudioChunk (int chunk);\r
-void CA_LoadAllSounds (void);\r
-\r
-void CA_UpLevel (void);\r
-void CA_DownLevel (void);\r
-\r
-void CA_SetAllPurge (void);\r
-\r
-void CA_ClearMarks (void);\r
-void CA_ClearAllMarks (void);\r
-\r
-#define CA_MarkGrChunk(chunk) grneeded[chunk]|=ca_levelbit\r
-\r
-void CA_CacheGrChunk (int chunk);\r
-void CA_CacheMap (int mapnum);\r
-\r
-void CA_CacheMarks (char *title);\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-//\r
-// ID Engine\r
-// ID_IN.c - Input Manager\r
-// v1.0d1\r
-// By Jason Blochowiak\r
-//\r
-\r
-//\r
-// This module handles dealing with the various input devices\r
-//\r
-// Depends on: Memory Mgr (for demo recording), Sound Mgr (for timing stuff),\r
-// User Mgr (for command line parms)\r
-//\r
-// Globals:\r
-// LastScan - The keyboard scan code of the last key pressed\r
-// LastASCII - The ASCII value of the last key pressed\r
-// DEBUG - there are more globals\r
-//\r
-\r
-#include "ID_HEADS.H"\r
-#pragma hdrstop\r
-\r
-#define KeyInt 9 // The keyboard ISR number\r
-\r
-// Stuff for the joystick\r
-#define JoyScaleMax 32768\r
-#define JoyScaleShift 8\r
-#define MaxJoyValue 5000\r
-\r
-// Global variables\r
- boolean Keyboard[NumCodes],\r
- JoysPresent[MaxJoys],\r
- MousePresent;\r
- boolean Paused;\r
- char LastASCII;\r
- ScanCode LastScan;\r
- KeyboardDef KbdDefs[MaxKbds] = {{0x1d,0x38,0x47,0x48,0x49,0x4b,0x4d,0x4f,0x50,0x51}};\r
- JoystickDef JoyDefs[MaxJoys];\r
- ControlType Controls[MaxPlayers];\r
- boolean GravisGamepad;\r
- word GravisAction[4];\r
- word GravisMap[4];\r
-\r
- boolean Latch;\r
- long MouseDownCount;\r
- boolean LatchedButton0[MaxPlayers];\r
- boolean LatchedButton1[MaxPlayers];\r
-\r
- Demo DemoMode = demo_Off;\r
- byte _seg *DemoBuffer;\r
- word DemoOffset,DemoSize;\r
-\r
-// Internal variables\r
-static boolean IN_Started;\r
-static boolean CapsLock;\r
-static ScanCode CurCode,LastCode;\r
-static byte far ASCIINames[] = // Unshifted ASCII for scan codes\r
- {\r
-// 0 1 2 3 4 5 6 7 8 9 A B C D E F\r
- 0 ,27 ,'1','2','3','4','5','6','7','8','9','0','-','=',8 ,9 , // 0\r
- 'q','w','e','r','t','y','u','i','o','p','[',']',13 ,0 ,'a','s', // 1\r
- 'd','f','g','h','j','k','l',';',39 ,'`',0 ,92 ,'z','x','c','v', // 2\r
- 'b','n','m',',','.','/',0 ,'*',0 ,' ',0 ,0 ,0 ,0 ,0 ,0 , // 3\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,'7','8','9','-','4','5','6','+','1', // 4\r
- '2','3','0',127,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 5\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 6\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 // 7\r
- },\r
- far ShiftNames[] = // Shifted ASCII for scan codes\r
- {\r
-// 0 1 2 3 4 5 6 7 8 9 A B C D E F\r
- 0 ,27 ,'!','@','#','$','%','^','&','*','(',')','_','+',8 ,9 , // 0\r
- 'Q','W','E','R','T','Y','U','I','O','P','{','}',13 ,0 ,'A','S', // 1\r
- 'D','F','G','H','J','K','L',':',34 ,'~',0 ,'|','Z','X','C','V', // 2\r
- 'B','N','M','<','>','?',0 ,'*',0 ,' ',0 ,0 ,0 ,0 ,0 ,0 , // 3\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,'7','8','9','-','4','5','6','+','1', // 4\r
- '2','3','0',127,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 5\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 6\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 // 7\r
- },\r
- far SpecialNames[] = // ASCII for 0xe0 prefixed codes\r
- {\r
-// 0 1 2 3 4 5 6 7 8 9 A B C D E F\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 0\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,13 ,0 ,0 ,0 , // 1\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 2\r
- 0 ,0 ,0 ,0 ,0 ,'/',0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 3\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 4\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 5\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 , // 6\r
- 0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 ,0 // 7\r
- },\r
-\r
- *ScanNames[] = // Scan code names with single chars\r
- {\r
- "?","?","1","2","3","4","5","6","7","8","9","0","-","+","?","?",\r
- "Q","W","E","R","T","Y","U","I","O","P","[","]","|","?","A","S",\r
- "D","F","G","H","J","K","L",";","\"","?","?","?","Z","X","C","V",\r
- "B","N","M",",",".","/","?","?","?","?","?","?","?","?","?","?",\r
- "?","?","?","?","?","?","?","?","\xf","?","-","\x15","5","\x11","+","?",\r
- "\x13","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?",\r
- "?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?",\r
- "?","?","?","?","?","?","?","?","?","?","?","?","?","?","?","?"\r
- }, // DEBUG - consolidate these\r
- far ExtScanCodes[] = // Scan codes with >1 char names\r
- {\r
- 1,0xe,0xf,0x1d,0x2a,0x39,0x3a,0x3b,0x3c,0x3d,0x3e,\r
- 0x3f,0x40,0x41,0x42,0x43,0x44,0x57,0x59,0x46,0x1c,0x36,\r
- 0x37,0x38,0x47,0x49,0x4f,0x51,0x52,0x53,0x45,0x48,\r
- 0x50,0x4b,0x4d,0x00\r
- },\r
- *ExtScanNames[] = // Names corresponding to ExtScanCodes\r
- {\r
- "Esc","BkSp","Tab","Ctrl","LShft","Space","CapsLk","F1","F2","F3","F4",\r
- "F5","F6","F7","F8","F9","F10","F11","F12","ScrlLk","Enter","RShft",\r
- "PrtSc","Alt","Home","PgUp","End","PgDn","Ins","Del","NumLk","Up",\r
- "Down","Left","Right",""\r
- };\r
-static Direction DirTable[] = // Quick lookup for total direction\r
- {\r
- dir_NorthWest, dir_North, dir_NorthEast,\r
- dir_West, dir_None, dir_East,\r
- dir_SouthWest, dir_South, dir_SouthEast\r
- };\r
-\r
-static void (*INL_KeyHook)(void);\r
-static void interrupt (*OldKeyVect)(void);\r
-\r
-static char *ParmStrings[] = {"nojoys","nomouse",nil};\r
-\r
-// Internal routines\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_KeyService() - Handles a keyboard interrupt (key up/down)\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void interrupt\r
-INL_KeyService(void)\r
-{\r
-static boolean special;\r
- byte k,c,\r
- temp;\r
- int player;\r
-\r
- k = inportb(0x60); // Get the scan code\r
-\r
- // Tell the XT keyboard controller to clear the key\r
- outportb(0x61,(temp = inportb(0x61)) | 0x80);\r
- outportb(0x61,temp);\r
-\r
- if (k == 0xe0) // Special key prefix\r
- special = true;\r
- else if (k == 0xe1) // Handle Pause key\r
- Paused = true;\r
- else\r
- {\r
- if (k & 0x80) // Break code\r
- {\r
- k &= 0x7f;\r
-\r
-// DEBUG - handle special keys: ctl-alt-delete, print scrn\r
-\r
- Keyboard[k] = false;\r
- }\r
- else // Make code\r
- {\r
- LastCode = CurCode;\r
- CurCode = LastScan = k;\r
- Keyboard[k] = true;\r
-\r
- if (Latch)\r
- {\r
- for (player = 0; player < MaxPlayers; player++)\r
- {\r
- if (Controls[player] == ctrl_Keyboard1)\r
- {\r
- if (CurCode == KbdDefs[0].button0)\r
- LatchedButton0[player] = true;\r
- else if (CurCode == KbdDefs[0].button1)\r
- LatchedButton1[player] = true;\r
- }\r
- else if (Controls[player] == ctrl_Keyboard1) // BUG? should probably check for ctrl_Keyboard2 here...\r
- {\r
- if (CurCode == KbdDefs[1].button0)\r
- LatchedButton0[player] = true;\r
- else if (CurCode == KbdDefs[1].button1)\r
- LatchedButton1[player] = true;\r
- }\r
- }\r
- }\r
-\r
- if (special)\r
- c = SpecialNames[k];\r
- else\r
- {\r
- if (k == sc_CapsLock)\r
- {\r
- CapsLock ^= true;\r
- // DEBUG - make caps lock light work\r
- }\r
-\r
- if (Keyboard[sc_LShift] || Keyboard[sc_RShift]) // If shifted\r
- {\r
- c = ShiftNames[k];\r
- if ((c >= 'A') && (c <= 'Z') && CapsLock)\r
- c += 'a' - 'A';\r
- }\r
- else\r
- {\r
- c = ASCIINames[k];\r
- if ((c >= 'a') && (c <= 'z') && CapsLock)\r
- c -= 'a' - 'A';\r
- }\r
- }\r
- if (c)\r
- LastASCII = c;\r
- }\r
-\r
- special = false;\r
- }\r
-\r
- if (INL_KeyHook && !special)\r
- INL_KeyHook();\r
- outportb(0x20,0x20);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_GetMouseDelta() - Gets the amount that the mouse has moved from the\r
-// mouse driver\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-INL_GetMouseDelta(int *x,int *y)\r
-{\r
- Mouse(MDelta);\r
- *x = _CX;\r
- *y = _DX;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_GetMouseButtons() - Gets the status of the mouse buttons from the\r
-// mouse driver\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static word\r
-INL_GetMouseButtons(void)\r
-{\r
- word buttons;\r
-\r
- Mouse(MButtons);\r
- buttons = _BX;\r
- return(buttons);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_GetJoyAbs() - Reads the absolute position of the specified joystick\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_GetJoyAbs(word joy,word *xp,word *yp)\r
-{\r
- byte xb,yb,\r
- xs,ys;\r
- word x,y;\r
-\r
- x = y = 0;\r
- xs = joy? 2 : 0; // Find shift value for x axis\r
- xb = 1 << xs; // Use shift value to get x bit mask\r
- ys = joy? 3 : 1; // Do the same for y axis\r
- yb = 1 << ys;\r
-\r
-// Read the absolute joystick values\r
-asm pushf // Save some registers\r
-asm push si\r
-asm push di\r
-asm cli // Make sure an interrupt doesn't screw the timings\r
-\r
-\r
-asm mov dx,0x201\r
-asm in al,dx\r
-asm out dx,al // Clear the resistors\r
-\r
-asm mov ah,[xb] // Get masks into registers\r
-asm mov ch,[yb]\r
-\r
-asm xor si,si // Clear count registers\r
-asm xor di,di\r
-asm xor bh,bh // Clear high byte of bx for later\r
-\r
-asm push bp // Don't mess up stack frame\r
-asm mov bp,MaxJoyValue\r
-\r
-loop:\r
-asm in al,dx // Get bits indicating whether all are finished\r
-\r
-asm dec bp // Check bounding register\r
-asm jz done // We have a silly value - abort\r
-\r
-asm mov bl,al // Duplicate the bits\r
-asm and bl,ah // Mask off useless bits (in [xb])\r
-asm add si,bx // Possibly increment count register\r
-asm mov cl,bl // Save for testing later\r
-\r
-asm mov bl,al\r
-asm and bl,ch // [yb]\r
-asm add di,bx\r
-\r
-asm add cl,bl\r
-asm jnz loop // If both bits were 0, drop out\r
-\r
-done:\r
-asm pop bp\r
-\r
-asm mov cl,[xs] // Get the number of bits to shift\r
-asm shr si,cl // and shift the count that many times\r
-\r
-asm mov cl,[ys]\r
-asm shr di,cl\r
-\r
-asm mov [x],si // Store the values into the variables\r
-asm mov [y],di\r
-\r
-asm pop di\r
-asm pop si\r
-asm popf // Restore the registers\r
-\r
- *xp = x;\r
- *yp = y;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_GetJoyDelta() - Returns the relative movement of the specified\r
-// joystick (from +/-127, scaled adaptively)\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-INL_GetJoyDelta(word joy,int *dx,int *dy,boolean adaptive)\r
-{\r
- word x,y;\r
- longword time;\r
- JoystickDef *def;\r
-static longword lasttime;\r
-\r
- IN_GetJoyAbs(joy,&x,&y);\r
- def = JoyDefs + joy;\r
-\r
- if (x < def->threshMinX)\r
- {\r
- if (x < def->joyMinX)\r
- x = def->joyMinX;\r
-\r
- x = -(x - def->threshMinX);\r
- x *= def->joyMultXL;\r
- x >>= JoyScaleShift;\r
- *dx = (x > 127)? -127 : -x;\r
- }\r
- else if (x > def->threshMaxX)\r
- {\r
- if (x > def->joyMaxX)\r
- x = def->joyMaxX;\r
-\r
- x = x - def->threshMaxX;\r
- x *= def->joyMultXH;\r
- x >>= JoyScaleShift;\r
- *dx = (x > 127)? 127 : x;\r
- }\r
- else\r
- *dx = 0;\r
-\r
- if (y < def->threshMinY)\r
- {\r
- if (y < def->joyMinY)\r
- y = def->joyMinY;\r
-\r
- y = -(y - def->threshMinY);\r
- y *= def->joyMultYL;\r
- y >>= JoyScaleShift;\r
- *dy = (y > 127)? -127 : -y;\r
- }\r
- else if (y > def->threshMaxY)\r
- {\r
- if (y > def->joyMaxY)\r
- y = def->joyMaxY;\r
-\r
- y = y - def->threshMaxY;\r
- y *= def->joyMultYH;\r
- y >>= JoyScaleShift;\r
- *dy = (y > 127)? 127 : y;\r
- }\r
- else\r
- *dy = 0;\r
-\r
- if (adaptive)\r
- {\r
- time = (TimeCount - lasttime) / 2;\r
- if (time)\r
- {\r
- if (time > 8)\r
- time = 8;\r
- *dx *= time;\r
- *dy *= time;\r
- }\r
- }\r
- lasttime = TimeCount;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_GetJoyButtons() - Returns the button status of the specified\r
-// joystick\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static word\r
-INL_GetJoyButtons(word joy)\r
-{\r
-register word result;\r
-\r
- result = inportb(0x201); // Get all the joystick buttons\r
- if (joy == 2)\r
- {\r
- // all 4 buttons (for Gravis Gamepad option)\r
- result >>= 4;\r
- result &= 15;\r
- result ^= 15;\r
- }\r
- else\r
- {\r
- result >>= joy? 6 : 4; // Shift into bits 0-1\r
- result &= 3; // Mask off the useless bits\r
- result ^= 3;\r
- }\r
- return(result);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_GetJoyButtonsDB() - Returns the de-bounced button status of the\r
-// specified joystick\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-word\r
-IN_GetJoyButtonsDB(word joy)\r
-{\r
- longword endtime;\r
- word result1,result2;\r
-\r
- do\r
- {\r
- result1 = INL_GetJoyButtons(joy);\r
- endtime = TimeCount + 2;\r
- while (TimeCount <= endtime)\r
- ;\r
- result2 = INL_GetJoyButtons(joy);\r
- } while (result1 != result2);\r
- return(result1);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_StartKbd() - Sets up my keyboard stuff for use\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-INL_StartKbd(void)\r
-{\r
- INL_KeyHook = 0; // Clear key hook\r
-\r
- IN_ClearKeysDown();\r
-\r
- OldKeyVect = getvect(KeyInt);\r
- setvect(KeyInt,INL_KeyService);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_ShutKbd() - Restores keyboard control to the BIOS\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-INL_ShutKbd(void)\r
-{\r
- poke(0x40,0x17,peek(0x40,0x17) & 0xfaf0); // Clear ctrl/alt/shift flags\r
-\r
- setvect(KeyInt,OldKeyVect);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_StartMouse() - Detects and sets up the mouse\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static boolean\r
-INL_StartMouse(void)\r
-{\r
- if (getvect(MouseInt))\r
- {\r
- Mouse(MReset);\r
- if (_AX == 0xffff)\r
- return(true);\r
- }\r
- return(false);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_ShutMouse() - Cleans up after the mouse\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-INL_ShutMouse(void)\r
-{\r
-}\r
-\r
-//\r
-// INL_SetJoyScale() - Sets up scaling values for the specified joystick\r
-//\r
-static void\r
-INL_SetJoyScale(word joy)\r
-{\r
- JoystickDef *def;\r
-\r
- def = &JoyDefs[joy];\r
- def->joyMultXL = JoyScaleMax / (def->threshMinX - def->joyMinX);\r
- def->joyMultXH = JoyScaleMax / (def->joyMaxX - def->threshMaxX);\r
- def->joyMultYL = JoyScaleMax / (def->threshMinY - def->joyMinY);\r
- def->joyMultYH = JoyScaleMax / (def->joyMaxY - def->threshMaxY);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_SetupJoy() - Sets up thresholding values and calls INL_SetJoyScale()\r
-// to set up scaling values\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_SetupJoy(word joy,word minx,word maxx,word miny,word maxy)\r
-{\r
- word d,r;\r
- JoystickDef *def;\r
-\r
- def = &JoyDefs[joy];\r
-\r
- def->joyMinX = minx;\r
- def->joyMaxX = maxx;\r
- r = maxx - minx;\r
- d = r / 5;\r
- def->threshMinX = ((r / 2) - d) + minx;\r
- def->threshMaxX = ((r / 2) + d) + minx;\r
-\r
- def->joyMinY = miny;\r
- def->joyMaxY = maxy;\r
- r = maxy - miny;\r
- d = r / 5;\r
- def->threshMinY = ((r / 2) - d) + miny;\r
- def->threshMaxY = ((r / 2) + d) + miny;\r
-\r
- INL_SetJoyScale(joy);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_StartJoy() - Detects & auto-configures the specified joystick\r
-// The auto-config assumes the joystick is centered\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static boolean\r
-INL_StartJoy(word joy)\r
-{\r
- word x,y;\r
-\r
- IN_GetJoyAbs(joy,&x,&y);\r
-\r
- if\r
- (\r
- ((x == 0) || (x > MaxJoyValue - 10))\r
- || ((y == 0) || (y > MaxJoyValue - 10))\r
- )\r
- return(false);\r
- else\r
- {\r
- IN_SetupJoy(joy,0,x * 2,0,y * 2);\r
- return(true);\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_ShutJoy() - Cleans up the joystick stuff\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-INL_ShutJoy(word joy)\r
-{\r
- JoysPresent[joy] = false;\r
-}\r
-\r
-// Public routines\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_ClearButtonLatch() - Clears the button latch stuff\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_ClearButtonLatch(void)\r
-{\r
- int player;\r
-\r
-asm pushf\r
-asm cli\r
-\r
- MouseDownCount = 0;\r
-\r
- for (player = 0; player < MaxPlayers; player++)\r
- {\r
- LatchedButton0[player] = LatchedButton1[player] = 0;\r
- }\r
-\r
-asm popf\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// LatchSndHook() - Hook routine for joystick button latch\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-LatchSndHook(void)\r
-{\r
- int player;\r
- ControlType ctrl;\r
- word buttons;\r
-\r
- for (player = 0; player < MaxPlayers; player++)\r
- {\r
- ctrl = Controls[player];\r
-\r
- if (ctrl == ctrl_Joystick1 || ctrl == ctrl_Joystick2)\r
- {\r
- buttons = INL_GetJoyButtons(ctrl - ctrl_Joystick1);\r
-\r
- if (buttons & 1)\r
- LatchedButton0[player] = true;\r
- if (buttons & 2)\r
- LatchedButton1[player] = true;\r
- }\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_LatchButtons() - Enables or disables button latch\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void IN_LatchButtons(boolean enabled)\r
-{\r
- if (enabled)\r
- {\r
- Latch = false;\r
- IN_ClearButtonLatch();\r
- }\r
-\r
- Latch = enabled;\r
- SD_SetUserHook(Latch ? LatchSndHook : NULL);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_Startup() - Starts up the Input Mgr\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_Startup(void)\r
-{\r
- boolean checkjoys,checkmouse;\r
- word i;\r
-\r
- if (IN_Started)\r
- return;\r
-\r
- checkjoys = true;\r
- checkmouse = true;\r
- for (i = 1;i < _argc;i++)\r
- {\r
- switch (US_CheckParm(_argv[i],ParmStrings))\r
- {\r
- case 0:\r
- checkjoys = false;\r
- break;\r
- case 1:\r
- checkmouse = false;\r
- break;\r
- }\r
- }\r
-\r
- INL_StartKbd();\r
- MousePresent = checkmouse? INL_StartMouse() : false;\r
-\r
- for (i = 0;i < MaxJoys;i++)\r
- JoysPresent[i] = checkjoys? INL_StartJoy(i) : false;\r
-\r
- IN_Started = true;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_Default() - Sets up default conditions for the Input Mgr\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_Default(boolean gotit,ControlType in)\r
-{\r
- if\r
- (\r
- (!gotit)\r
- || ((in == ctrl_Joystick1) && !JoysPresent[0])\r
- || ((in == ctrl_Joystick2) && !JoysPresent[1])\r
- || ((in == ctrl_Mouse) && !MousePresent)\r
- )\r
- in = ctrl_Keyboard1;\r
- IN_SetControlType(0,in);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_Shutdown() - Shuts down the Input Mgr\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_Shutdown(void)\r
-{\r
- word i;\r
-\r
- if (!IN_Started)\r
- return;\r
-\r
- INL_ShutMouse();\r
- for (i = 0;i < MaxJoys;i++)\r
- INL_ShutJoy(i);\r
- INL_ShutKbd();\r
-\r
- IN_Started = false;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_SetKeyHook() - Sets the routine that gets called by INL_KeyService()\r
-// everytime a real make/break code gets hit\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_SetKeyHook(void (*hook)())\r
-{\r
- // BUG: interrupts should be disabled while setting INL_KeyHook!\r
- INL_KeyHook = hook;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_ClearKeyDown() - Clears the keyboard array\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_ClearKeysDown(void)\r
-{\r
- int i;\r
-\r
- LastScan = sc_None;\r
- LastASCII = key_None;\r
- for (i = 0;i < NumCodes;i++)\r
- Keyboard[i] = false;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// INL_AdjustCursor() - Internal routine of common code from IN_ReadCursor()\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-INL_AdjustCursor(CursorInfo *info,word buttons,int dx,int dy)\r
-{\r
- if (buttons & (1 << 0))\r
- info->button0 = true;\r
- if (buttons & (1 << 1))\r
- info->button1 = true;\r
-\r
- info->x += dx;\r
- info->y += dy;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_ReadCursor() - Reads the input devices and fills in the cursor info\r
-// struct\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_ReadCursor(CursorInfo *info)\r
-{\r
- word i,\r
- player,\r
- buttons;\r
- int dx,dy;\r
-\r
- info->x = info->y = 0;\r
- info->button0 = info->button1 = false;\r
-\r
- if (MousePresent)\r
- {\r
- buttons = INL_GetMouseButtons();\r
- INL_GetMouseDelta(&dx,&dy);\r
- INL_AdjustCursor(info,buttons,dx,dy);\r
- }\r
-\r
- for (i = 0;i < MaxJoys;i++)\r
- {\r
- if (!JoysPresent[i])\r
- continue;\r
-\r
- for (player = 0;player < MaxPlayers; player++)\r
- {\r
- if (Controls[player] == ctrl_Joystick1+i)\r
- goto joyok;\r
- }\r
- continue;\r
-\r
-joyok:\r
- buttons = INL_GetJoyButtons(i);\r
- INL_GetJoyDelta(i,&dx,&dy,true);\r
- dx /= 64;\r
- dy /= 64;\r
- INL_AdjustCursor(info,buttons,dx,dy);\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_ReadControl() - Reads the device associated with the specified\r
-// player and fills in the control info struct\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_ReadControl(int player,ControlInfo *info)\r
-{\r
- boolean realdelta;\r
- byte dbyte;\r
- word buttons;\r
- int i;\r
- int dx,dy;\r
- Motion mx,my;\r
- ControlType type;\r
-register KeyboardDef *def;\r
-\r
- dx = dy = 0;\r
- mx = my = motion_None;\r
- buttons = 0;\r
-\r
- if (DemoMode == demo_Playback)\r
- {\r
- dbyte = DemoBuffer[DemoOffset + 1];\r
- my = (dbyte & 3) - 1;\r
- mx = ((dbyte >> 2) & 3) - 1;\r
- buttons = (dbyte >> 4) & 3;\r
-\r
- if (!(--DemoBuffer[DemoOffset]))\r
- {\r
- DemoOffset += 2;\r
- if (DemoOffset >= DemoSize)\r
- DemoMode = demo_PlayDone;\r
- }\r
-\r
- realdelta = false;\r
- }\r
- else if (DemoMode == demo_PlayDone)\r
- Quit("Demo playback exceeded");\r
- else\r
- {\r
- switch (type = Controls[player])\r
- {\r
- case ctrl_Keyboard1:\r
- case ctrl_Keyboard2:\r
- def = &KbdDefs[type - ctrl_Keyboard];\r
-\r
- if (Keyboard[def->upleft])\r
- mx = motion_Left,my = motion_Up;\r
- else if (Keyboard[def->upright])\r
- mx = motion_Right,my = motion_Up;\r
- else if (Keyboard[def->downleft])\r
- mx = motion_Left,my = motion_Down;\r
- else if (Keyboard[def->downright])\r
- mx = motion_Right,my = motion_Down;\r
-\r
- if (Keyboard[def->up])\r
- my = motion_Up;\r
- else if (Keyboard[def->down])\r
- my = motion_Down;\r
-\r
- if (Keyboard[def->left])\r
- mx = motion_Left;\r
- else if (Keyboard[def->right])\r
- mx = motion_Right;\r
-\r
- if (Keyboard[def->button0])\r
- buttons += 1 << 0;\r
- if (Keyboard[def->button1])\r
- buttons += 1 << 1;\r
- realdelta = false;\r
- break;\r
- case ctrl_Joystick1:\r
- case ctrl_Joystick2:\r
- INL_GetJoyDelta(type - ctrl_Joystick,&dx,&dy,false);\r
- if (GravisGamepad)\r
- {\r
- buttons = INL_GetJoyButtons(2);\r
- for (i=0; i<4; i++)\r
- {\r
- GravisAction[i] = buttons & (1 << GravisMap[i]);\r
- }\r
- }\r
- buttons = INL_GetJoyButtons(type - ctrl_Joystick);\r
- realdelta = true;\r
- break;\r
- case ctrl_Mouse:\r
- INL_GetMouseDelta(&dx,&dy);\r
- buttons = INL_GetMouseButtons();\r
- realdelta = true;\r
- break;\r
- }\r
- }\r
-\r
- if (realdelta)\r
- {\r
- mx = (dx < 0)? motion_Left : ((dx > 0)? motion_Right : motion_None);\r
- my = (dy < 0)? motion_Up : ((dy > 0)? motion_Down : motion_None);\r
- }\r
- else\r
- {\r
- dx = mx * 127;\r
- dy = my * 127;\r
- }\r
-\r
- info->x = dx;\r
- info->xaxis = mx;\r
- info->y = dy;\r
- info->yaxis = my;\r
- info->button0 = buttons & (1 << 0);\r
- info->button1 = buttons & (1 << 1);\r
- info->dir = DirTable[((my + 1) * 3) + (mx + 1)];\r
-\r
- if (DemoMode == demo_Record)\r
- {\r
- // Pack the control info into a byte\r
- dbyte = (buttons << 4) | ((mx + 1) << 2) | (my + 1);\r
-\r
- if\r
- (\r
- (DemoBuffer[DemoOffset + 1] == dbyte)\r
- && (DemoBuffer[DemoOffset] < 255)\r
- )\r
- (DemoBuffer[DemoOffset])++;\r
- else\r
- {\r
- if (DemoOffset || DemoBuffer[DemoOffset])\r
- DemoOffset += 2;\r
-\r
- if (DemoOffset >= DemoSize)\r
- Quit("Demo buffer overflow");\r
-\r
- DemoBuffer[DemoOffset] = 1;\r
- DemoBuffer[DemoOffset + 1] = dbyte;\r
- }\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_SetControlType() - Sets the control type to be used by the specified\r
-// player\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_SetControlType(int player,ControlType type)\r
-{\r
- // DEBUG - check that requested type is present?\r
- Controls[player] = type;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_StartDemoRecord() - Starts the demo recording, using a buffer the\r
-// size passed. Returns if the buffer allocation was successful\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-boolean\r
-IN_StartDemoRecord(word bufsize)\r
-{\r
- if (!bufsize)\r
- return(false);\r
-\r
- MM_GetPtr((memptr *)&DemoBuffer,bufsize);\r
- DemoMode = demo_Record;\r
- DemoSize = bufsize & ~1;\r
- DemoOffset = 0;\r
- DemoBuffer[0] = DemoBuffer[1] = 0;\r
-\r
- return(true);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_StartDemoPlayback() - Plays back the demo pointed to of the given size\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_StartDemoPlayback(byte _seg *buffer,word bufsize)\r
-{\r
- DemoBuffer = buffer;\r
- DemoMode = demo_Playback;\r
- DemoSize = bufsize & ~1;\r
- DemoOffset = 0;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_StopDemo() - Turns off demo mode\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_StopDemo(void)\r
-{\r
- if ((DemoMode == demo_Record) && DemoOffset)\r
- DemoOffset += 2;\r
-\r
- DemoMode = demo_Off;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_FreeDemoBuffer() - Frees the demo buffer, if it's been allocated\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_FreeDemoBuffer(void)\r
-{\r
- if (DemoBuffer)\r
- MM_FreePtr((memptr *)&DemoBuffer);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_GetScanName() - Returns a string containing the name of the\r
-// specified scan code\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-byte *\r
-IN_GetScanName(ScanCode scan)\r
-{\r
- byte **p;\r
- ScanCode far *s;\r
-\r
- for (s = ExtScanCodes,p = ExtScanNames;*s;p++,s++)\r
- if (*s == scan)\r
- return(*p);\r
-\r
- return(ScanNames[scan]);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_WaitForKey() - Waits for a scan code, then clears LastScan and\r
-// returns the scan code\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-ScanCode\r
-IN_WaitForKey(void)\r
-{\r
- ScanCode result;\r
-\r
- while (!(result = LastScan))\r
- ;\r
- LastScan = 0;\r
- return(result);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_WaitForASCII() - Waits for an ASCII char, then clears LastASCII and\r
-// returns the ASCII value\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-char\r
-IN_WaitForASCII(void)\r
-{\r
- char result;\r
-\r
- while (!(result = LastASCII))\r
- ;\r
- LastASCII = '\0';\r
- return(result);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_AckBack() - Waits for either an ASCII keypress or a button press\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_AckBack(void)\r
-{\r
- word i;\r
-\r
- while (!LastScan)\r
- {\r
- if (MousePresent)\r
- {\r
- if (INL_GetMouseButtons())\r
- {\r
- while (INL_GetMouseButtons())\r
- ;\r
- return;\r
- }\r
- }\r
-\r
- for (i = 0;i < MaxJoys;i++)\r
- {\r
- if (JoysPresent[i] || GravisGamepad)\r
- {\r
- if (IN_GetJoyButtonsDB(i))\r
- {\r
- while (IN_GetJoyButtonsDB(i))\r
- ;\r
- return;\r
- }\r
- }\r
- }\r
- }\r
-\r
- IN_ClearKey(LastScan);\r
- LastScan = sc_None;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_Ack() - Clears user input & then calls IN_AckBack()\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-IN_Ack(void)\r
-{\r
- word i;\r
-\r
- IN_ClearKey(LastScan);\r
- LastScan = sc_None;\r
-\r
- if (MousePresent)\r
- while (INL_GetMouseButtons())\r
- ;\r
- for (i = 0;i < MaxJoys;i++)\r
- if (JoysPresent[i] || GravisGamepad)\r
- while (IN_GetJoyButtonsDB(i))\r
- ;\r
-\r
- IN_AckBack();\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_IsUserInput() - Returns true if a key has been pressed or a button\r
-// is down\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-boolean\r
-IN_IsUserInput(void)\r
-{\r
- boolean result;\r
- word i;\r
-\r
- result = LastScan;\r
-\r
- if (MousePresent)\r
- if (INL_GetMouseButtons())\r
- result = true;\r
-\r
- for (i = 0;i < MaxJoys;i++)\r
- if (JoysPresent[i] || GravisGamepad)\r
- if (INL_GetJoyButtons(i))\r
- result = true;\r
-\r
- return(result);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// IN_UserInput() - Waits for the specified delay time (in ticks) or the\r
-// user pressing a key or a mouse button. If the clear flag is set, it\r
-// then either clears the key or waits for the user to let the mouse\r
-// button up.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-boolean\r
-IN_UserInput(longword delay,boolean clear)\r
-{\r
- longword lasttime;\r
-\r
- lasttime = TimeCount;\r
- do\r
- {\r
- if (IN_IsUserInput())\r
- {\r
- if (clear)\r
- IN_AckBack();\r
- return(true);\r
- }\r
- } while (TimeCount - lasttime < delay);\r
- return(false);\r
-}\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-//\r
-// ID Engine\r
-// ID_IN.h - Header file for Input Manager\r
-// v1.0d1\r
-// By Jason Blochowiak\r
-//\r
-\r
-#ifndef __TYPES__\r
-#include "ID_Types.h"\r
-#endif\r
-\r
-#ifndef __ID_IN__\r
-#define __ID_IN__\r
-\r
-#ifdef __DEBUG__\r
-#define __DEBUG_InputMgr__\r
-#endif\r
-\r
-#define MaxPlayers 4\r
-#define MaxKbds 2\r
-#define MaxJoys 2\r
-#define NumCodes 128\r
-\r
-typedef byte ScanCode;\r
-#define sc_None 0\r
-#define sc_Bad 0xff\r
-#define sc_Return 0x1c\r
-#define sc_Enter sc_Return\r
-#define sc_Escape 0x01\r
-#define sc_Space 0x39\r
-#define sc_BackSpace 0x0e\r
-#define sc_Tab 0x0f\r
-#define sc_Alt 0x38\r
-#define sc_Control 0x1d\r
-#define sc_CapsLock 0x3a\r
-#define sc_LShift 0x2a\r
-#define sc_RShift 0x36\r
-#define sc_UpArrow 0x48\r
-#define sc_DownArrow 0x50\r
-#define sc_LeftArrow 0x4b\r
-#define sc_RightArrow 0x4d\r
-#define sc_Insert 0x52\r
-#define sc_Delete 0x53\r
-#define sc_Home 0x47\r
-#define sc_End 0x4f\r
-#define sc_PgUp 0x49\r
-#define sc_PgDn 0x51\r
-#define sc_F1 0x3b\r
-#define sc_F2 0x3c\r
-#define sc_F3 0x3d\r
-#define sc_F4 0x3e\r
-#define sc_F5 0x3f\r
-#define sc_F6 0x40\r
-#define sc_F7 0x41\r
-#define sc_F8 0x42\r
-#define sc_F9 0x43\r
-#define sc_F10 0x44\r
-#define sc_F11 0x57\r
-#define sc_F12 0x59 // BUG: F12 uses scan code 0x58!\r
-\r
-#define sc_A 0x1e\r
-#define sc_B 0x30\r
-#define sc_C 0x2e\r
-#define sc_D 0x20\r
-#define sc_E 0x12\r
-#define sc_F 0x21\r
-#define sc_G 0x22\r
-#define sc_H 0x23\r
-#define sc_I 0x17\r
-#define sc_J 0x24\r
-#define sc_K 0x25\r
-#define sc_L 0x26\r
-#define sc_M 0x32\r
-#define sc_N 0x31\r
-#define sc_O 0x18\r
-#define sc_P 0x19\r
-#define sc_Q 0x10\r
-#define sc_R 0x13\r
-#define sc_S 0x1f\r
-#define sc_T 0x14\r
-#define sc_U 0x16\r
-#define sc_V 0x2f\r
-#define sc_W 0x11\r
-#define sc_X 0x2d\r
-#define sc_Y 0x15\r
-#define sc_Z 0x2c\r
-\r
-#define sc_1 0x02\r
-#define sc_2 0x03\r
-#define sc_3 0x04\r
-#define sc_4 0x05\r
-#define sc_5 0x06\r
-#define sc_6 0x07\r
-#define sc_7 0x08\r
-#define sc_8 0x09\r
-#define sc_9 0x0a\r
-#define sc_0 0x0b\r
-\r
-#define key_None 0\r
-#define key_Return 0x0d\r
-#define key_Enter key_Return\r
-#define key_Escape 0x1b\r
-#define key_Space 0x20\r
-#define key_BackSpace 0x08\r
-#define key_Tab 0x09\r
-#define key_Delete 0x7f\r
-\r
-// Stuff for the mouse\r
-#define MReset 0\r
-#define MButtons 3\r
-#define MDelta 11\r
-\r
-#define MouseInt 0x33\r
-#define Mouse(x) _AX = x,geninterrupt(MouseInt)\r
-\r
-typedef enum {\r
- demo_Off,demo_Record,demo_Playback,demo_PlayDone\r
- } Demo;\r
-typedef enum {\r
- ctrl_Keyboard,\r
- ctrl_Keyboard1 = ctrl_Keyboard,ctrl_Keyboard2,\r
- ctrl_Joystick,\r
- ctrl_Joystick1 = ctrl_Joystick,ctrl_Joystick2,\r
- ctrl_Mouse\r
- } ControlType;\r
-typedef enum {\r
- motion_Left = -1,motion_Up = -1,\r
- motion_None = 0,\r
- motion_Right = 1,motion_Down = 1\r
- } Motion;\r
-typedef enum {\r
- dir_North,dir_NorthEast,\r
- dir_East,dir_SouthEast,\r
- dir_South,dir_SouthWest,\r
- dir_West,dir_NorthWest,\r
- dir_None\r
- } Direction;\r
-typedef enum {\r
- ga_Jump,\r
- ga_Pogo,\r
- ga_Fire,\r
- ga_Status\r
- } GravisAType;\r
-typedef struct {\r
- boolean button0,button1;\r
- int x,y;\r
- Motion xaxis,yaxis;\r
- Direction dir;\r
- } CursorInfo;\r
-typedef CursorInfo ControlInfo;\r
-typedef struct {\r
- ScanCode button0,button1,\r
- upleft, up, upright,\r
- left, right,\r
- downleft, down, downright;\r
- } KeyboardDef;\r
-typedef struct {\r
- word joyMinX,joyMinY,\r
- threshMinX,threshMinY,\r
- threshMaxX,threshMaxY,\r
- joyMaxX,joyMaxY,\r
- joyMultXL,joyMultYL,\r
- joyMultXH,joyMultYH;\r
- } JoystickDef;\r
-// Global variables\r
-extern boolean Keyboard[],\r
- MousePresent,\r
- JoysPresent[];\r
-extern boolean Paused;\r
-extern char LastASCII;\r
-extern ScanCode LastScan;\r
-extern KeyboardDef KbdDefs[];\r
-extern JoystickDef JoyDefs[];\r
-extern ControlType Controls[MaxPlayers];\r
-extern boolean GravisGamepad;\r
-extern word GravisAction[4];\r
-extern word GravisMap[4];\r
-\r
-extern Demo DemoMode;\r
-extern byte _seg *DemoBuffer;\r
-extern word DemoOffset,DemoSize;\r
-\r
-// Function prototypes\r
-#define IN_KeyDown(code) (Keyboard[(code)])\r
-#define IN_ClearKey(code) {Keyboard[code] = false;\\r
- if (code == LastScan) LastScan = sc_None;}\r
-\r
-// DEBUG - put names in prototypes\r
-extern void IN_Startup(void),IN_Shutdown(void),\r
- IN_Default(boolean gotit,ControlType in),\r
- IN_SetKeyHook(void (*)()),\r
- IN_ClearKeysDown(void),\r
- IN_ReadCursor(CursorInfo *),\r
- IN_ReadControl(int,ControlInfo *),\r
- IN_SetControlType(int,ControlType),\r
- IN_GetJoyAbs(word joy,word *xp,word *yp),\r
- IN_SetupJoy(word joy,word minx,word maxx,\r
- word miny,word maxy),\r
- IN_StartDemoPlayback(byte _seg *buffer,word bufsize),\r
- IN_StopDemo(void),IN_FreeDemoBuffer(void),\r
- IN_Ack(void),IN_AckBack(void);\r
-extern boolean IN_UserInput(longword delay,boolean clear),\r
- IN_IsUserInput(void),\r
- IN_StartDemoRecord(word bufsize);\r
-extern byte *IN_GetScanName(ScanCode);\r
-extern char IN_WaitForASCII(void);\r
-extern ScanCode IN_WaitForKey(void);\r
-extern word IN_GetJoyButtonsDB(word joy);\r
-\r
-#endif\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// NEWMM.C\r
-\r
-/*\r
-=============================================================================\r
-\r
- ID software memory manager\r
- --------------------------\r
-\r
-Primary coder: John Carmack\r
-\r
-RELIES ON\r
----------\r
-Quit (char *error) function\r
-\r
-\r
-WORK TO DO\r
-----------\r
-MM_SizePtr to change the size of a given pointer\r
-\r
-Multiple purge levels utilized\r
-\r
-EMS / XMS unmanaged routines\r
-\r
-=============================================================================\r
-*/\r
-\r
-#include "ID_HEADS.H"\r
-#pragma hdrstop\r
-\r
-#pragma warn -pro\r
-#pragma warn -use\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL INFO\r
-\r
-=============================================================================\r
-*/\r
-\r
-#define LOCKBIT 0x80 // if set in attributes, block cannot be moved\r
-#define PURGEBITS 3 // 0-3 level, 0= unpurgable, 3= purge first\r
-#define PURGEMASK 0xfffc\r
-#define BASEATTRIBUTES 0 // unlocked, non purgable\r
-\r
-#define MAXUMBS 10\r
-\r
-typedef struct mmblockstruct\r
-{\r
- unsigned start,length;\r
- unsigned attributes;\r
- memptr *useptr; // pointer to the segment start\r
- struct mmblockstruct far *next;\r
-} mmblocktype;\r
-\r
-\r
-//#define GETNEWBLOCK {if(!(mmnew=mmfree))Quit("MM_GETNEWBLOCK: No free blocks!")\\r
-// ;mmfree=mmfree->next;}\r
-\r
-#define GETNEWBLOCK {if(!mmfree)MML_ClearBlock();mmnew=mmfree;mmfree=mmfree->next;}\r
-\r
-#define FREEBLOCK(x) {*x->useptr=NULL;x->next=mmfree;mmfree=x;}\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-mminfotype mminfo;\r
-memptr bufferseg;\r
-boolean mmerror;\r
-\r
-void (* beforesort) (void);\r
-void (* aftersort) (void);\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-boolean mmstarted;\r
-\r
-void far *farheap;\r
-void *nearheap;\r
-\r
-mmblocktype far mmblocks[MAXBLOCKS]\r
- ,far *mmhead,far *mmfree,far *mmrover,far *mmnew;\r
-\r
-boolean bombonerror;\r
-\r
-unsigned totalEMSpages,freeEMSpages,EMSpageframe,EMSpagesmapped,EMShandle;\r
-\r
-void (* XMSaddr) (void); // far pointer to XMS driver\r
-\r
-unsigned numUMBs,UMBbase[MAXUMBS];\r
-\r
-//==========================================================================\r
-\r
-//\r
-// local prototypes\r
-//\r
-\r
-boolean MML_CheckForEMS (void);\r
-void MML_ShutdownEMS (void);\r
-void MM_MapEMS (void);\r
-boolean MML_CheckForXMS (void);\r
-void MML_ShutdownXMS (void);\r
-void MML_UseSpace (unsigned segstart, unsigned seglength);\r
-void MML_ClearBlock (void);\r
-\r
-//==========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= MML_CheckForEMS\r
-=\r
-= Routine from p36 of Extending DOS\r
-=\r
-=======================\r
-*/\r
-\r
-char emmname[9] = "EMMXXXX0";\r
-\r
-boolean MML_CheckForEMS (void)\r
-{\r
-asm mov dx,OFFSET emmname[0]\r
-asm mov ax,0x3d00\r
-asm int 0x21 // try to open EMMXXXX0 device\r
-asm jc error\r
-\r
-asm mov bx,ax\r
-asm mov ax,0x4400\r
-\r
-asm int 0x21 // get device info\r
-asm jc error\r
-\r
-asm and dx,0x80\r
-asm jz error\r
-\r
-asm mov ax,0x4407\r
-\r
-asm int 0x21 // get status\r
-asm jc error\r
-asm or al,al\r
-asm jz error\r
-\r
-asm mov ah,0x3e\r
-asm int 0x21 // close handle\r
-asm jc error\r
-\r
-//\r
-// EMS is good\r
-//\r
- return true;\r
-\r
-error:\r
-//\r
-// EMS is bad\r
-//\r
- return false;\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= MML_SetupEMS\r
-=\r
-=======================\r
-*/\r
-\r
-void MML_SetupEMS (void)\r
-{\r
- char str[80],str2[10];\r
- unsigned error;\r
-\r
- totalEMSpages = freeEMSpages = EMSpageframe = EMSpagesmapped = 0;\r
-\r
-asm {\r
- mov ah,EMS_STATUS\r
- int EMS_INT // make sure EMS hardware is present\r
- or ah,ah\r
- jnz error\r
-\r
- mov ah,EMS_VERSION\r
- int EMS_INT\r
- or ah,ah\r
- jnz error\r
- cmp al,0x32 // only work on ems 3.2 or greater\r
- jb error\r
-\r
- mov ah,EMS_GETFRAME\r
- int EMS_INT // find the page frame address\r
- or ah,ah\r
- jnz error\r
- mov [EMSpageframe],bx\r
-\r
- mov ah,EMS_GETPAGES\r
- int EMS_INT // find out how much EMS is there\r
- or ah,ah\r
- jnz error\r
- mov [totalEMSpages],dx\r
- mov [freeEMSpages],bx\r
- or bx,bx\r
- jz noEMS // no EMS at all to allocate\r
-\r
- cmp bx,4\r
- jle getpages // there is only 1,2,3,or 4 pages\r
- mov bx,4 // we can't use more than 4 pages\r
- }\r
-\r
-getpages:\r
-asm {\r
- mov [EMSpagesmapped],bx\r
- mov ah,EMS_ALLOCPAGES // allocate up to 64k of EMS\r
- int EMS_INT\r
- or ah,ah\r
- jnz error\r
- mov [EMShandle],dx\r
- }\r
- return;\r
-\r
-error:\r
- error = _AH;\r
- strcpy (str,"MML_SetupEMS: EMS error 0x");\r
- itoa(error,str2,16);\r
- strcpy (str,str2);\r
- Quit (str);\r
-\r
-noEMS:\r
-;\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= MML_ShutdownEMS\r
-=\r
-=======================\r
-*/\r
-\r
-void MML_ShutdownEMS (void)\r
-{\r
- if (!EMShandle)\r
- return;\r
-\r
-asm {\r
- mov ah,EMS_FREEPAGES\r
- mov dx,[EMShandle]\r
- int EMS_INT\r
- or ah,ah\r
- jz ok\r
- }\r
-\r
- Quit ("MML_ShutdownEMS: Error freeing EMS!");\r
-\r
-ok:\r
-;\r
-}\r
-\r
-/*\r
-====================\r
-=\r
-= MM_MapEMS\r
-=\r
-= Maps the 64k of EMS used by memory manager into the page frame\r
-= for general use. This only needs to be called if you are keeping\r
-= other things in EMS.\r
-=\r
-====================\r
-*/\r
-\r
-void MM_MapEMS (void)\r
-{\r
- char str[80],str2[10];\r
- unsigned error;\r
- int i;\r
-\r
- for (i=0;i<EMSpagesmapped;i++)\r
- {\r
- asm {\r
- mov ah,EMS_MAPPAGE\r
- mov bx,[i] // logical page\r
- mov al,bl // physical page\r
- mov dx,[EMShandle] // handle\r
- int EMS_INT\r
- or ah,ah\r
- jnz error\r
- }\r
- }\r
-\r
- return;\r
-\r
-error:\r
- error = _AH;\r
- strcpy (str,"MM_MapEMS: EMS error 0x");\r
- itoa(error,str2,16);\r
- strcpy (str,str2);\r
- Quit (str);\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= MML_CheckForXMS\r
-=\r
-= Check for XMM driver\r
-=\r
-=======================\r
-*/\r
-\r
-boolean MML_CheckForXMS (void)\r
-{\r
- numUMBs = 0;\r
-\r
-asm {\r
- mov ax,0x4300\r
- int 0x2f // query status of installed diver\r
- cmp al,0x80\r
- je good\r
- }\r
- return false;\r
-good:\r
- return true;\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= MML_SetupXMS\r
-=\r
-= Try to allocate all upper memory block\r
-=\r
-=======================\r
-*/\r
-\r
-void MML_SetupXMS (void)\r
-{\r
- unsigned base,size;\r
-\r
-asm {\r
- mov ax,0x4310\r
- int 0x2f\r
- mov [WORD PTR XMSaddr],bx\r
- mov [WORD PTR XMSaddr+2],es // function pointer to XMS driver\r
- }\r
-\r
-getmemory:\r
-asm {\r
- mov ah,XMS_ALLOCUMB\r
- mov dx,0xffff // try for largest block possible\r
- call [DWORD PTR XMSaddr]\r
- or ax,ax\r
- jnz gotone\r
-\r
- cmp bl,0xb0 // error: smaller UMB is available\r
- jne done;\r
-\r
- mov ah,XMS_ALLOCUMB\r
- call [DWORD PTR XMSaddr] // DX holds largest available UMB\r
- or ax,ax\r
- jz done // another error...\r
- }\r
-\r
-gotone:\r
-asm {\r
- mov [base],bx\r
- mov [size],dx\r
- }\r
- MML_UseSpace (base,size);\r
- mminfo.XMSmem += size*16;\r
- UMBbase[numUMBs] = base;\r
- numUMBs++;\r
- if (numUMBs < MAXUMBS)\r
- goto getmemory;\r
-\r
-done:;\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= MML_ShutdownXMS\r
-=\r
-======================\r
-*/\r
-\r
-void MML_ShutdownXMS (void)\r
-{\r
- int i;\r
- unsigned base;\r
-\r
- for (i=0;i<numUMBs;i++)\r
- {\r
- base = UMBbase[i];\r
-\r
-asm mov ah,XMS_FREEUMB\r
-asm mov dx,[base]\r
-asm call [DWORD PTR XMSaddr]\r
- }\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-======================\r
-=\r
-= MML_UseSpace\r
-=\r
-= Marks a range of paragraphs as usable by the memory manager\r
-= This is used to mark space for the near heap, far heap, ems page frame,\r
-= and upper memory blocks\r
-=\r
-======================\r
-*/\r
-\r
-void MML_UseSpace (unsigned segstart, unsigned seglength)\r
-{\r
- mmblocktype far *scan,far *last;\r
- unsigned oldend;\r
- long extra;\r
-\r
- scan = last = mmhead;\r
- mmrover = mmhead; // reset rover to start of memory\r
-\r
-//\r
-// search for the block that contains the range of segments\r
-//\r
- while (scan->start+scan->length < segstart)\r
- {\r
- last = scan;\r
- scan = scan->next;\r
- }\r
-\r
-//\r
-// take the given range out of the block\r
-//\r
- oldend = scan->start + scan->length;\r
- extra = oldend - (segstart+seglength);\r
- if (extra < 0)\r
- Quit ("MML_UseSpace: Segment spans two blocks!");\r
-\r
- if (segstart == scan->start)\r
- {\r
- last->next = scan->next; // unlink block\r
- FREEBLOCK(scan);\r
- scan = last;\r
- }\r
- else\r
- scan->length = segstart-scan->start; // shorten block\r
-\r
- if (extra > 0)\r
- {\r
- GETNEWBLOCK;\r
- mmnew->useptr = NULL; // Keen addition\r
-\r
- mmnew->next = scan->next;\r
- scan->next = mmnew;\r
- mmnew->start = segstart+seglength;\r
- mmnew->length = extra;\r
- mmnew->attributes = LOCKBIT;\r
- }\r
-\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= MML_ClearBlock\r
-=\r
-= We are out of blocks, so free a purgable block\r
-=\r
-====================\r
-*/\r
-\r
-void MML_ClearBlock (void)\r
-{\r
- mmblocktype far *scan,far *last;\r
-\r
- scan = mmhead->next;\r
-\r
- while (scan)\r
- {\r
- if (!(scan->attributes&LOCKBIT) && (scan->attributes&PURGEBITS) )\r
- {\r
- MM_FreePtr(scan->useptr);\r
- return;\r
- }\r
- scan = scan->next;\r
- }\r
-\r
- Quit ("MM_ClearBlock: No purgable blocks!");\r
-}\r
-\r
-\r
-//==========================================================================\r
-\r
-/*\r
-===================\r
-=\r
-= MM_Startup\r
-=\r
-= Grabs all space from turbo with malloc/farmalloc\r
-= Allocates bufferseg misc buffer\r
-=\r
-===================\r
-*/\r
-\r
-static char *ParmStrings[] = {"noems","noxms",""};\r
-\r
-void MM_Startup (void)\r
-{\r
- int i;\r
- unsigned long length;\r
- void far *start;\r
- unsigned segstart,seglength,endfree;\r
-\r
- if (mmstarted)\r
- MM_Shutdown ();\r
-\r
-\r
- mmstarted = true;\r
- bombonerror = true;\r
-//\r
-// set up the linked list (everything in the free list;\r
-//\r
- mmhead = NULL;\r
- mmfree = &mmblocks[0];\r
- for (i=0;i<MAXBLOCKS-1;i++)\r
- mmblocks[i].next = &mmblocks[i+1];\r
- mmblocks[i].next = NULL;\r
-\r
-//\r
-// locked block of all memory until we punch out free space\r
-//\r
- GETNEWBLOCK;\r
- mmhead = mmnew; // this will allways be the first node\r
- mmnew->start = 0;\r
- mmnew->length = 0xffff;\r
- mmnew->attributes = LOCKBIT;\r
- mmnew->next = NULL;\r
- mmrover = mmhead;\r
-\r
-\r
-//\r
-// get all available near conventional memory segments\r
-//\r
- length=coreleft();\r
- start = (void far *)(nearheap = malloc(length));\r
-\r
- length -= 16-(FP_OFF(start)&15);\r
- length -= SAVENEARHEAP;\r
- seglength = length / 16; // now in paragraphs\r
- segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;\r
- MML_UseSpace (segstart,seglength);\r
- mminfo.nearheap = length;\r
-\r
-//\r
-// get all available far conventional memory segments\r
-//\r
- length=farcoreleft();\r
- start = farheap = farmalloc(length);\r
- length -= 16-(FP_OFF(start)&15);\r
- length -= SAVEFARHEAP;\r
- seglength = length / 16; // now in paragraphs\r
- segstart = FP_SEG(start)+(FP_OFF(start)+15)/16;\r
- MML_UseSpace (segstart,seglength);\r
- mminfo.farheap = length;\r
- mminfo.mainmem = mminfo.nearheap + mminfo.farheap;\r
-\r
-\r
-//\r
-// detect EMS and allocate up to 64K at page frame\r
-//\r
- mminfo.EMSmem = 0;\r
- for (i = 1;i < _argc;i++)\r
- {\r
- if ( US_CheckParm(_argv[i],ParmStrings) == 0)\r
- goto emsskip; // param NOEMS\r
- }\r
-\r
- if (MML_CheckForEMS())\r
- {\r
- MML_SetupEMS(); // allocate space\r
- MML_UseSpace (EMSpageframe,EMSpagesmapped*0x400);\r
- MM_MapEMS(); // map in used pages\r
- mminfo.EMSmem = EMSpagesmapped*0x4000l;\r
- }\r
-\r
-//\r
-// detect XMS and get upper memory blocks\r
-//\r
-emsskip:\r
- mminfo.XMSmem = 0;\r
- for (i = 1;i < _argc;i++)\r
- {\r
- if ( US_CheckParm(_argv[i],ParmStrings) == 0) // BUG: NOXMS is index 1, not 0\r
- goto xmsskip; // param NOXMS\r
- }\r
-\r
- if (MML_CheckForXMS())\r
- MML_SetupXMS(); // allocate as many UMBs as possible\r
-\r
-//\r
-// allocate the misc buffer\r
-//\r
-xmsskip:\r
- mmrover = mmhead; // start looking for space after low block\r
-\r
- MM_GetPtr (&bufferseg,BUFFERSIZE);\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= MM_Shutdown\r
-=\r
-= Frees all conventional, EMS, and XMS allocated\r
-=\r
-====================\r
-*/\r
-\r
-void MM_Shutdown (void)\r
-{\r
- if (!mmstarted)\r
- return;\r
-\r
- farfree (farheap);\r
- free (nearheap);\r
- MML_ShutdownEMS ();\r
- MML_ShutdownXMS ();\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= MM_GetPtr\r
-=\r
-= Allocates an unlocked, unpurgable block\r
-=\r
-====================\r
-*/\r
-\r
-void MM_GetPtr (memptr *baseptr,unsigned long size)\r
-{\r
- mmblocktype far *scan,far *lastscan,far *endscan\r
- ,far *purge,far *next;\r
- int search;\r
- unsigned needed,startseg;\r
-\r
- needed = (size+15)/16; // convert size from bytes to paragraphs\r
-\r
- GETNEWBLOCK; // fill in start and next after a spot is found\r
- mmnew->length = needed;\r
- mmnew->useptr = baseptr;\r
- mmnew->attributes = BASEATTRIBUTES;\r
-\r
- for (search = 0; search<3; search++)\r
- {\r
- //\r
- // first search: try to allocate right after the rover, then on up\r
- // second search: search from the head pointer up to the rover\r
- // third search: compress memory, then scan from start\r
- if (search == 1 && mmrover == mmhead)\r
- search++;\r
-\r
- switch (search)\r
- {\r
- case 0:\r
- lastscan = mmrover;\r
- scan = mmrover->next;\r
- endscan = NULL;\r
- break;\r
- case 1:\r
- lastscan = mmhead;\r
- scan = mmhead->next;\r
- endscan = mmrover;\r
- break;\r
- case 2:\r
- MM_SortMem ();\r
- lastscan = mmhead;\r
- scan = mmhead->next;\r
- endscan = NULL;\r
- break;\r
- }\r
-\r
- startseg = lastscan->start + lastscan->length;\r
-\r
- while (scan != endscan)\r
- {\r
- if (scan->start - startseg >= needed)\r
- {\r
- //\r
- // got enough space between the end of lastscan and\r
- // the start of scan, so throw out anything in the middle\r
- // and allocate the new block\r
- //\r
- purge = lastscan->next;\r
- lastscan->next = mmnew;\r
- mmnew->start = *(unsigned *)baseptr = startseg;\r
- mmnew->next = scan;\r
- while ( purge != scan)\r
- { // free the purgable block\r
- next = purge->next;\r
- FREEBLOCK(purge);\r
- purge = next; // purge another if not at scan\r
- }\r
- mmrover = mmnew;\r
- return; // good allocation!\r
- }\r
-\r
- //\r
- // if this block is purge level zero or locked, skip past it\r
- //\r
- if ( (scan->attributes & LOCKBIT)\r
- || !(scan->attributes & PURGEBITS) )\r
- {\r
- lastscan = scan;\r
- startseg = lastscan->start + lastscan->length;\r
- }\r
-\r
-\r
- scan=scan->next; // look at next line\r
- }\r
- }\r
-\r
- if (bombonerror)\r
- Quit ("MM_GetPtr: Out of memory!");\r
- else\r
- mmerror = true;\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= MM_FreePtr\r
-=\r
-= Allocates an unlocked, unpurgable block\r
-=\r
-====================\r
-*/\r
-\r
-void MM_FreePtr (memptr *baseptr)\r
-{\r
- mmblocktype far *scan,far *last;\r
-\r
- last = mmhead;\r
- scan = last->next;\r
-\r
- if (baseptr == mmrover->useptr) // removed the last allocated block\r
- mmrover = mmhead;\r
-\r
- while (scan->useptr != baseptr && scan)\r
- {\r
- last = scan;\r
- scan = scan->next;\r
- }\r
-\r
- if (!scan)\r
- Quit ("MM_FreePtr: Block not found!");\r
-\r
- last->next = scan->next;\r
-\r
- FREEBLOCK(scan);\r
-}\r
-//==========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= MM_SetPurge\r
-=\r
-= Sets the purge level for a block (locked blocks cannot be made purgable)\r
-=\r
-=====================\r
-*/\r
-\r
-void MM_SetPurge (memptr *baseptr, int purge)\r
-{\r
- mmblocktype far *start;\r
-\r
- start = mmrover;\r
-\r
- do\r
- {\r
- if (mmrover->useptr == baseptr)\r
- break;\r
-\r
- mmrover = mmrover->next;\r
-\r
- if (!mmrover)\r
- mmrover = mmhead;\r
- else if (mmrover == start)\r
- Quit ("MM_SetPurge: Block not found!");\r
-\r
- } while (1);\r
-\r
- mmrover->attributes &= ~PURGEBITS;\r
- mmrover->attributes |= purge;\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= MM_SetLock\r
-=\r
-= Locks / unlocks the block\r
-=\r
-=====================\r
-*/\r
-\r
-void MM_SetLock (memptr *baseptr, boolean locked)\r
-{\r
- mmblocktype far *start;\r
-\r
- start = mmrover;\r
-\r
- do\r
- {\r
- if (mmrover->useptr == baseptr)\r
- break;\r
-\r
- mmrover = mmrover->next;\r
-\r
- if (!mmrover)\r
- mmrover = mmhead;\r
- else if (mmrover == start)\r
- Quit ("MM_SetLock: Block not found!");\r
-\r
- } while (1);\r
-\r
- mmrover->attributes &= ~LOCKBIT;\r
- mmrover->attributes |= locked*LOCKBIT;\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= MM_SortMem\r
-=\r
-= Throws out all purgable stuff and compresses movable blocks\r
-=\r
-=====================\r
-*/\r
-\r
-void MM_SortMem (void)\r
-{\r
- mmblocktype far *scan,far *last,far *next;\r
- unsigned start,length,source,dest,oldborder;\r
- int playing;\r
-\r
- //\r
- // lock down a currently playing sound\r
- //\r
- playing = SD_SoundPlaying ();\r
- if (playing)\r
- {\r
- switch (SoundMode)\r
- {\r
- case sdm_PC:\r
- playing += STARTPCSOUNDS;\r
- break;\r
- case sdm_AdLib:\r
- playing += STARTADLIBSOUNDS;\r
- break;\r
- }\r
- MM_SetLock(&(memptr)audiosegs[playing],true);\r
- }\r
-\r
-\r
- SD_StopSound();\r
- oldborder = bordercolor;\r
- VW_ColorBorder (15);\r
-\r
- if (beforesort)\r
- beforesort();\r
-\r
- scan = mmhead;\r
-\r
- last = NULL; // shut up compiler warning\r
-\r
- while (scan)\r
- {\r
- if (scan->attributes & LOCKBIT)\r
- {\r
- //\r
- // block is locked, so try to pile later blocks right after it\r
- //\r
- start = scan->start + scan->length;\r
- }\r
- else\r
- {\r
- if (scan->attributes & PURGEBITS)\r
- {\r
- //\r
- // throw out the purgable block\r
- //\r
- next = scan->next;\r
- FREEBLOCK(scan);\r
- last->next = next;\r
- scan = next;\r
- continue;\r
- }\r
- else\r
- {\r
- //\r
- // push the non purgable block on top of the last moved block\r
- //\r
- if (scan->start != start)\r
- {\r
- length = scan->length;\r
- source = scan->start;\r
- dest = start;\r
- while (length > 0xf00)\r
- {\r
- movedata(source,0,dest,0,0xf00*16);\r
- length -= 0xf00;\r
- source += 0xf00;\r
- dest += 0xf00;\r
- }\r
- movedata(source,0,dest,0,length*16);\r
-\r
- scan->start = start;\r
- *(unsigned *)scan->useptr = start;\r
- }\r
- start = scan->start + scan->length;\r
- }\r
- }\r
-\r
- last = scan;\r
- scan = scan->next; // go to next block\r
- }\r
-\r
- mmrover = mmhead;\r
-\r
- if (aftersort)\r
- aftersort();\r
-\r
- VW_ColorBorder (oldborder);\r
-\r
- if (playing)\r
- MM_SetLock(&(memptr)audiosegs[playing],false);\r
-}\r
-\r
-\r
-//==========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= MM_ShowMemory\r
-=\r
-=====================\r
-*/\r
-\r
-void MM_ShowMemory (void)\r
-{\r
- mmblocktype far *scan;\r
- unsigned color,temp;\r
- long end,owner;\r
- char scratch[80],str[10];\r
-\r
- VW_SetDefaultColors();\r
- VW_SetLineWidth(40);\r
- temp = bufferofs;\r
- bufferofs = 0;\r
- VW_SetScreen (0,0);\r
-\r
- scan = mmhead;\r
-\r
- end = -1;\r
-\r
-//CA_OpenDebug ();\r
-\r
- while (scan)\r
- {\r
- if (scan->attributes & PURGEBITS)\r
- color = 5; // dark purple = purgable\r
- else\r
- color = 9; // medium blue = non purgable\r
- if (scan->attributes & LOCKBIT)\r
- color = 12; // red = locked\r
- if (scan->start<=end)\r
- Quit ("MM_ShowMemory: Memory block order corrupted!");\r
- end = scan->start+scan->length-1;\r
- VW_Hlin(scan->start,(unsigned)end,0,color);\r
- VW_Plot(scan->start,0,15);\r
- if (scan->next->start > end+1)\r
- VW_Hlin(end+1,scan->next->start,0,0); // black = free\r
-\r
-#if 0\r
-strcpy (scratch,"Size:");\r
-ltoa ((long)scan->length*16,str,10);\r
-strcat (scratch,str);\r
-strcat (scratch,"\tOwner:0x");\r
-owner = (unsigned)scan->useptr;\r
-ultoa (owner,str,16);\r
-strcat (scratch,str);\r
-strcat (scratch,"\n");\r
-write (debughandle,scratch,strlen(scratch));\r
-#endif\r
-\r
- scan = scan->next;\r
- }\r
-\r
-//CA_CloseDebug ();\r
-\r
- IN_Ack();\r
- VW_SetLineWidth(64);\r
- bufferofs = temp;\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= MM_UnusedMemory\r
-=\r
-= Returns the total free space without purging\r
-=\r
-======================\r
-*/\r
-\r
-long MM_UnusedMemory (void)\r
-{\r
- unsigned free;\r
- mmblocktype far *scan;\r
-\r
- free = 0;\r
- scan = mmhead;\r
-\r
- while (scan->next)\r
- {\r
- free += scan->next->start - (scan->start + scan->length);\r
- scan = scan->next;\r
- }\r
-\r
- return free*16l;\r
-}\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= MM_TotalFree\r
-=\r
-= Returns the total free space with purging\r
-=\r
-======================\r
-*/\r
-\r
-long MM_TotalFree (void)\r
-{\r
- unsigned free;\r
- mmblocktype far *scan;\r
-\r
- free = 0;\r
- scan = mmhead;\r
-\r
- while (scan->next)\r
- {\r
- if ((scan->attributes&PURGEBITS) && !(scan->attributes&LOCKBIT))\r
- free += scan->length;\r
- free += scan->next->start - (scan->start + scan->length);\r
- scan = scan->next;\r
- }\r
-\r
- return free*16l;\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= MM_BombOnError\r
-=\r
-=====================\r
-*/\r
-\r
-void MM_BombOnError (boolean bomb)\r
-{\r
- bombonerror = bomb;\r
-}\r
-\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_MM.H\r
-\r
-#ifndef __ID_CA__\r
-\r
-#define __ID_CA__\r
-\r
-#define SAVENEARHEAP 0x400 // space to leave in data segment\r
-#define SAVEFARHEAP 0 // space to leave in far heap\r
-\r
-#define BUFFERSIZE 0x1000 // miscelanious, allways available buffer\r
-\r
-#ifdef CAT3D\r
-#define MAXBLOCKS 600\r
-#else\r
-#define MAXBLOCKS 1200\r
-#endif\r
-\r
-\r
-//--------\r
-\r
-#define EMS_INT 0x67\r
-\r
-#define EMS_STATUS 0x40\r
-#define EMS_GETFRAME 0x41\r
-#define EMS_GETPAGES 0x42\r
-#define EMS_ALLOCPAGES 0x43\r
-#define EMS_MAPPAGE 0x44\r
-#define EMS_FREEPAGES 0x45\r
-#define EMS_VERSION 0x46\r
-\r
-//--------\r
-\r
-#define XMS_VERSION 0x00\r
-\r
-#define XMS_ALLOCHMA 0x01\r
-#define XMS_FREEHMA 0x02\r
-\r
-#define XMS_GENABLEA20 0x03\r
-#define XMS_GDISABLEA20 0x04\r
-#define XMS_LENABLEA20 0x05\r
-#define XMS_LDISABLEA20 0x06\r
-#define XMS_QUERYA20 0x07\r
-\r
-#define XMS_QUERYREE 0x08\r
-#define XMS_ALLOC 0x09\r
-#define XMS_FREE 0x0A\r
-#define XMS_MOVE 0x0B\r
-#define XMS_LOCK 0x0C\r
-#define XMS_UNLOCK 0x0D\r
-#define XMS_GETINFO 0x0E\r
-#define XMS_RESIZE 0x0F\r
-\r
-#define XMS_ALLOCUMB 0x10\r
-#define XMS_FREEUMB 0x11\r
-\r
-//==========================================================================\r
-\r
-typedef void _seg * memptr;\r
-\r
-typedef struct\r
-{\r
- long nearheap,farheap,EMSmem,XMSmem,mainmem;\r
-} mminfotype;\r
-\r
-//==========================================================================\r
-\r
-extern mminfotype mminfo;\r
-extern memptr bufferseg;\r
-extern boolean mmerror;\r
-\r
-extern void (* beforesort) (void);\r
-extern void (* aftersort) (void);\r
-\r
-//==========================================================================\r
-\r
-void MM_Startup (void);\r
-void MM_Shutdown (void);\r
-void MM_MapEMS (void);\r
-\r
-void MM_GetPtr (memptr *baseptr,unsigned long size);\r
-void MM_FreePtr (memptr *baseptr);\r
-\r
-void MM_SetPurge (memptr *baseptr, int purge);\r
-void MM_SetLock (memptr *baseptr, boolean locked);\r
-void MM_SortMem (void);\r
-\r
-void MM_ShowMemory (void);\r
-\r
-long MM_UnusedMemory (void);\r
-long MM_TotalFree (void);\r
-\r
-void MM_BombOnError (boolean bomb);\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_RF.C\r
-\r
-/*\r
-=============================================================================\r
-\r
-notes\r
------\r
-\r
-scrolling more than one tile / refresh forces a total redraw\r
-\r
-two overlapping sprites of equal priority can change drawing order when\r
-updated\r
-\r
-=============================================================================\r
-*/\r
-\r
-#include "ID_HEADS.H"\r
-#pragma hdrstop\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL CONSTANTS\r
-\r
-=============================================================================\r
-*/\r
-\r
-#define SCREENTILESWIDE 20\r
-#define SCREENTILESHIGH 13\r
-\r
-#define SCREENSPACE (SCREENWIDTH*240)\r
-#define FREEEGAMEM (0x10000l-3l*SCREENSPACE)\r
-\r
-//\r
-// the update array must have enough space for two screens that can float\r
-// up two two tiles each way\r
-//\r
-// (PORTTILESWIDE+1)*PORTTILESHIGH must be even so the arrays can be cleared\r
-// by word width instructions\r
-\r
-#define UPDATESCREENSIZE (UPDATEWIDE*PORTTILESHIGH+2)\r
-#define UPDATESPARESIZE (UPDATEWIDE*2+4)\r
-#define UPDATESIZE (UPDATESCREENSIZE+2*UPDATESPARESIZE)\r
-\r
-#define G_EGASX_SHIFT 7 // global >> ?? = screen x\r
-#define G_CGASX_SHIFT 6 // global >> ?? = screen x\r
-#define G_SY_SHIFT 4 // global >> ?? = screen y\r
-\r
-unsigned SX_T_SHIFT; // screen x >> ?? = tile EGA = 1, CGA = 2;\r
-#define SY_T_SHIFT 4 // screen y >> ?? = tile\r
-\r
-\r
-#define EGAPORTSCREENWIDE 42\r
-#define CGAPORTSCREENWIDE 84\r
-#define PORTSCREENHIGH 224\r
-\r
-#define UPDATESCREENSIZE (UPDATEWIDE*PORTTILESHIGH+2)\r
-#define UPDATESPARESIZE (UPDATEWIDE*2+4)\r
-#define UPDATESIZE (UPDATESCREENSIZE+2*UPDATESPARESIZE)\r
-\r
-#define MAXSCROLLEDGES 6\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL TYPES\r
-\r
-=============================================================================\r
-*/\r
-\r
-typedef struct spriteliststruct\r
-{\r
- int screenx,screeny;\r
- int width,height;\r
-\r
- unsigned grseg,sourceofs,planesize;\r
- drawtype draw;\r
- unsigned tilex,tiley,tilewide,tilehigh;\r
- int priority,updatecount;\r
- struct spriteliststruct **prevptr,*nextsprite;\r
-} spritelisttype;\r
-\r
-\r
-typedef struct\r
-{\r
- int screenx,screeny;\r
- int width,height;\r
-} eraseblocktype;\r
-\r
-\r
-typedef struct\r
-{\r
- unsigned current; // foreground tiles have high bit set\r
- int count;\r
-#ifdef KEEN6\r
- unsigned soundtile;\r
- unsigned visible;\r
- int sound;\r
-#endif\r
-} tiletype;\r
-\r
-\r
-typedef struct animtilestruct\r
-{\r
- unsigned x,y,tile;\r
- tiletype *chain;\r
- unsigned far *mapplane;\r
- struct animtilestruct **prevptr,*nexttile;\r
-} animtiletype;\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-unsigned tics;\r
-long lasttimecount;\r
-\r
-boolean compatability; // crippled refresh for wierdo SVGAs\r
-\r
-unsigned mapwidth,mapheight,mapbyteswide,mapwordswide\r
- ,mapbytesextra,mapwordsextra;\r
-unsigned mapbwidthtable[MAXMAPHEIGHT];\r
-\r
-//\r
-// Global : Actor coordinates are in this, at 1/16 th of a pixel, to allow\r
-// for fractional movement and acceleration.\r
-//\r
-// Tiles : Tile offsets from the upper left corner of the current map.\r
-//\r
-// Screen : Graphics level offsets from map origin, x in bytes, y in pixels.\r
-// originxscreen is the same spot as originxtile, just with extra precision\r
-// so graphics don't need to be done in tile boundaries.\r
-//\r
-\r
-unsigned originxglobal,originyglobal;\r
-unsigned originxtile,originytile;\r
-unsigned originxscreen,originyscreen;\r
-unsigned originmap;\r
-unsigned originxmin,originxmax,originymin,originymax;\r
-\r
-unsigned masterofs;\r
-\r
-//\r
-// Table of the offsets from bufferofs of each tile spot in the\r
-// view port. The extra wide tile should never be drawn, but the space\r
-// is needed to account for the extra 0 in the update arrays. Built by\r
-// RF_Startup\r
-//\r
-\r
-unsigned blockstarts[UPDATEWIDE*UPDATEHIGH];\r
-unsigned updatemapofs[UPDATEWIDE*UPDATEHIGH];\r
-\r
-unsigned uwidthtable[PORTTILESHIGH]; // lookup instead of multiply\r
-\r
-byte update[2][UPDATESIZE];\r
-byte *updateptr,*baseupdateptr, // current start of update window\r
- *updatestart[2],\r
- *baseupdatestart[2];\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-static char scratch[20],str[80];\r
-\r
-tiletype allanims[MAXANIMTYPES];\r
-unsigned numanimchains;\r
-\r
-void (*refreshvector) (void);\r
-\r
-unsigned screenstart[3] =\r
- {0,SCREENSPACE,SCREENSPACE*2};\r
-\r
-unsigned xpanmask; // prevent panning to odd pixels\r
-\r
-unsigned screenpage; // screen currently being displayed\r
-unsigned otherpage;\r
-\r
-\r
-spritelisttype spritearray[MAXSPRITES],*prioritystart[PRIORITIES],\r
- *spritefreeptr;\r
-\r
-animtiletype animarray[MAXANIMTILES],*animhead,*animfreeptr;\r
-\r
-int animfreespot;\r
-\r
-eraseblocktype eraselist[2][MAXSPRITES],*eraselistptr[2];\r
-\r
-int hscrollblocks,vscrollblocks;\r
-int hscrolledge[MAXSCROLLEDGES],vscrolledge[MAXSCROLLEDGES];\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL PROTOTYPES\r
-\r
-=============================================================================\r
-*/\r
-\r
-void RFL_NewTile (unsigned updateoffset);\r
-void RFL_MaskForegroundTiles (void);\r
-void RFL_UpdateTiles (void);\r
-\r
-void RFL_BoundScroll (int x, int y);\r
-void RFL_CalcOriginStuff (long x, long y);\r
-void RFL_ClearScrollBlocks (void);\r
-void RFL_InitSpriteList (void);\r
-void RFL_InitAnimList (void);\r
-void RFL_CheckForAnimTile (unsigned x, unsigned y);\r
-void RFL_AnimateTiles (void);\r
-void RFL_RemoveAnimsOnX (unsigned x);\r
-void RFL_RemoveAnimsOnY (unsigned y);\r
-void RFL_EraseBlocks (void);\r
-void RFL_UpdateSprites (void);\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
- GRMODE INDEPENDANT ROUTINES\r
-\r
-=============================================================================\r
-*/\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_Startup\r
-=\r
-=====================\r
-*/\r
-\r
-static char *ParmStrings[] = {"comp",""};\r
-\r
-void RF_Startup (void)\r
-{\r
- int i,x,y;\r
- unsigned *blockstart;\r
-\r
-#ifndef KEEN\r
- //\r
- // Keen 4-6 store the compatability setting in the game's config file.\r
- // The setting is loaded from that file AFTER RF_Startup is executed,\r
- // making this check useless (unless the config file doesn't exist).\r
- // Instead, US_Startup now checks for that parameter after the config\r
- // file has been read.\r
- //\r
- if (grmode == EGAGR)\r
- for (i = 1;i < _argc;i++)\r
- if (US_CheckParm(_argv[i],ParmStrings) == 0)\r
- {\r
- compatability = true;\r
- break;\r
- }\r
-#endif\r
-\r
- for (i=0;i<PORTTILESHIGH;i++)\r
- uwidthtable[i] = UPDATEWIDE*i;\r
-\r
- originxmin = originymin = MAPBORDER*TILEGLOBAL;\r
-\r
- eraselistptr[0] = &eraselist[0][0];\r
- eraselistptr[1] = &eraselist[1][0];\r
-\r
-\r
-\r
- if (grmode == EGAGR)\r
- {\r
- SX_T_SHIFT = 1;\r
-\r
- baseupdatestart[0] = &update[0][UPDATESPARESIZE];\r
- baseupdatestart[1] = &update[1][UPDATESPARESIZE];\r
-\r
- screenpage = 0;\r
- otherpage = 1;\r
- displayofs = screenstart[screenpage];\r
- bufferofs = screenstart[otherpage];\r
- masterofs = screenstart[2];\r
-\r
- updateptr = baseupdatestart[otherpage];\r
-\r
- blockstart = &blockstarts[0];\r
- for (y=0;y<UPDATEHIGH;y++)\r
- for (x=0;x<UPDATEWIDE;x++)\r
- *blockstart++ = SCREENWIDTH*16*y+x*TILEWIDTH;\r
-\r
- xpanmask = 6; // dont pan to odd pixels\r
- }\r
-\r
- else if (grmode == CGAGR)\r
- {\r
- SX_T_SHIFT = 2;\r
-\r
- updateptr = baseupdateptr = &update[0][UPDATESPARESIZE];\r
-\r
- bufferofs = 0;\r
- masterofs = 0x8000;\r
-\r
- blockstart = &blockstarts[0];\r
- for (y=0;y<UPDATEHIGH;y++)\r
- for (x=0;x<UPDATEWIDE;x++)\r
- *blockstart++ = SCREENWIDTH*16*y+x*TILEWIDTH;\r
- }\r
-}\r
-\r
-\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_Shutdown\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_Shutdown (void)\r
-{\r
-\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_FixOfs\r
-=\r
-= Sets bufferofs,displayofs, and masterofs to regular values, for the\r
-= occasions when you have moved them around manually\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_FixOfs (void)\r
-{\r
- screenstart[0] = 0;\r
- screenstart[1] = SCREENSPACE;\r
- screenstart[2] = SCREENSPACE*2;\r
-\r
- if (grmode == EGAGR)\r
- {\r
- screenpage = 0;\r
- otherpage = 1;\r
- panx = pany = pansx = pansy = panadjust = 0;\r
- displayofs = screenstart[screenpage];\r
- bufferofs = screenstart[otherpage];\r
- masterofs = screenstart[2];\r
- VW_SetScreen (displayofs,0);\r
- }\r
- else\r
- {\r
- panx = pany = pansx = pansy = panadjust = 0;\r
- bufferofs = 0;\r
- masterofs = 0x8000;\r
- }\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_NewMap\r
-=\r
-= Makes some convienient calculations based on maphead->\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_NewMap (void)\r
-{\r
- int i,x,y;\r
- unsigned spot,*table;\r
-\r
- mapwidth = mapheaderseg[mapon]->width;\r
- mapbyteswide = 2*mapwidth;\r
- mapheight = mapheaderseg[mapon]->height;\r
- mapwordsextra = mapwidth-PORTTILESWIDE;\r
- mapbytesextra = 2*mapwordsextra;\r
-\r
-//\r
-// make a lookup table for the maps left edge\r
-//\r
- if (mapheight > MAXMAPHEIGHT)\r
- Quit ("RF_NewMap: Map too tall!");\r
- spot = 0;\r
- for (i=0;i<mapheight;i++)\r
- {\r
- mapbwidthtable[i] = spot;\r
- spot += mapbyteswide;\r
- }\r
-\r
-//\r
-// fill in updatemapofs with the new width info\r
-//\r
- table = &updatemapofs[0];\r
- for (y=0;y<PORTTILESHIGH;y++)\r
- for (x=0;x<UPDATEWIDE;x++)\r
- *table++ = mapbwidthtable[y]+x*2;\r
-\r
-//\r
-// the y max value clips off the bottom half of a tile so a map that is\r
-// 13 + MAPBORDER*2 tile high will not scroll at all vertically\r
-//\r
- originxmax = (mapwidth-MAPBORDER-SCREENTILESWIDE)*TILEGLOBAL;\r
- originymax = (mapheight-MAPBORDER-SCREENTILESHIGH)*TILEGLOBAL;\r
- if (originxmax<originxmin) // for very small maps\r
- originxmax=originxmin;\r
- if (originymax<originymin)\r
- originymax=originymin;\r
-\r
-//\r
-// clear out the lists\r
-//\r
- RFL_InitSpriteList ();\r
- RFL_InitAnimList ();\r
- RFL_ClearScrollBlocks ();\r
- RF_SetScrollBlock (0,MAPBORDER-1,true);\r
- RF_SetScrollBlock (0,mapheight-MAPBORDER,true);\r
- RF_SetScrollBlock (MAPBORDER-1,0,false);\r
- RF_SetScrollBlock (mapwidth-MAPBORDER,0,false);\r
-\r
-\r
- lasttimecount = TimeCount; // setup for adaptive timing\r
- tics = 1;\r
-}\r
-\r
-//===========================================================================\r
-\r
-#ifdef KEEN6\r
-/*\r
-==========================\r
-=\r
-= RFL_CheckTileSound\r
-=\r
-= Checks if the tile plays a sound and if so adds that info to the animation\r
-=\r
-==========================\r
-*/\r
-\r
-#define NUMSOUNDTILES 2\r
-typedef struct {\r
- unsigned tilenums[NUMSOUNDTILES];\r
- int sounds[NUMSOUNDTILES];\r
-} tilesoundtype;\r
-\r
-tilesoundtype far soundtiles = {\r
- {2152|0x8000, 2208|0x8000},\r
- {SND_STOMP, SND_FLAME}\r
-};\r
-\r
-void RFL_CheckTileSound(tiletype *anim, unsigned tile)\r
-{\r
- int i;\r
-\r
- for (i=0; i<NUMSOUNDTILES; i++)\r
- {\r
- if (soundtiles.tilenums[i] == tile)\r
- {\r
- anim->soundtile = tile;\r
- anim->sound = soundtiles.sounds[i];\r
- break;\r
- }\r
- }\r
-}\r
-\r
-#endif\r
-\r
-//===========================================================================\r
-\r
-/*\r
-==========================\r
-=\r
-= RF_MarkTileGraphics\r
-=\r
-= Goes through mapplane[0/1] and marks all background/foreground tiles\r
-= needed, then follows all animation sequences to make sure animated\r
-= tiles get all the stages. Every unique animating tile is given an\r
-= entry in allanims[], so every instance of that tile will animate at the\r
-= same rate. The info plane for each animating tile will hold a pointer\r
-= into allanims[], therefore you can't have both an animating foreground\r
-= and background tile in the same spot!\r
-=\r
-==========================\r
-*/\r
-\r
-void RF_MarkTileGraphics (void)\r
-{\r
- unsigned size;\r
- int tile,next,anims,change;\r
- unsigned far *start,far *end,far *info;\r
- unsigned i,tilehigh;\r
- char str[80],str2[10];\r
-\r
- memset (allanims,0,sizeof(allanims));\r
- numanimchains = 0;\r
-\r
- size = mapwidth*mapheight;\r
-\r
-//\r
-// background plane\r
-//\r
- start = mapsegs[0];\r
- info = mapsegs[2];\r
- end = start+size;\r
- do\r
- {\r
- tile = *start++;\r
- if (tile>=0) // <0 is a tile that is never drawn\r
- {\r
- CA_MarkGrChunk(STARTTILE16+tile);\r
- if (tinf[ANIM+tile])\r
- {\r
- // this tile will animated\r
-\r
- if (tinf[SPEED+tile])\r
- {\r
- if (!tinf[ANIM+tile])\r
- {\r
- strcpy (str,"RF_MarkTileGraphics: Background anim of 0:");\r
- itoa (tile,str2,10);\r
- strcat (str,str2);\r
- Quit (str);\r
- }\r
- for (i=0;i<numanimchains;i++)\r
- if (allanims[i].current == tile)\r
- {\r
- *info = (unsigned)&allanims[i];\r
- goto nextback;\r
- }\r
-\r
- // new chain of animating tiles\r
-\r
- if (i>=MAXANIMTYPES)\r
- Quit ("RF_MarkTileGraphics: Too many unique animated tiles!");\r
- allanims[i].current = tile;\r
- allanims[i].count = tinf[SPEED+tile];\r
-#ifdef KEEN6\r
- allanims[i].visible = 0;\r
- allanims[i].sound = -1;\r
-#endif\r
- *info = (unsigned)&allanims[i];\r
- numanimchains++;\r
- }\r
-#ifdef KEEN6\r
- RFL_CheckTileSound(&allanims[i], tile);\r
-#endif\r
-\r
- anims = 0;\r
- change = (signed char)(tinf[ANIM+tile]);\r
- next = tile+change;\r
- while (change && next != tile)\r
- {\r
-#ifdef KEEN6\r
- RFL_CheckTileSound(&allanims[i], next);\r
-#endif\r
- CA_MarkGrChunk(STARTTILE16+next);\r
- change = (signed char)(tinf[ANIM+next]);\r
- next += change;\r
- if (++anims > 20)\r
- {\r
- strcpy (str,"RF_MarkTileGraphics: Unending background animation:");\r
- itoa (next,str2,10);\r
- strcat (str,str2);\r
- Quit (str);\r
- }\r
- }\r
-\r
- }\r
- }\r
-nextback:\r
- info++;\r
- } while (start<end);\r
-\r
-//\r
-// foreground plane\r
-//\r
- start = mapsegs[1];\r
- info = mapsegs[2];\r
- end = start+size;\r
- do\r
- {\r
- tile = *start++;\r
- if (tile>=0) // <0 is a tile that is never drawn\r
- {\r
- CA_MarkGrChunk(STARTTILE16M+tile);\r
- if (tinf[MANIM+tile])\r
- {\r
- // this tile will animated\r
-\r
- if (tinf[MSPEED+tile])\r
- {\r
- if (!tinf[MANIM+tile])\r
- {\r
- strcpy (str,"RF_MarkTileGraphics: Foreground anim of 0:");\r
- itoa (tile,str2,10);\r
- strcat (str,str2);\r
- Quit (str);\r
- }\r
- tilehigh = tile | 0x8000; // foreground tiles have high bit\r
- for (i=0;i<numanimchains;i++)\r
- if (allanims[i].current == tilehigh)\r
- {\r
- *info = (unsigned)&allanims[i];\r
- goto nextfront;\r
- }\r
-\r
- // new chain of animating tiles\r
-\r
- if (i>=MAXANIMTYPES)\r
- Quit ("RF_MarkTileGraphics: Too many unique animated tiles!");\r
- allanims[i].current = tilehigh;\r
- allanims[i].count = tinf[MSPEED+tile];\r
-#ifdef KEEN6\r
- allanims[i].visible = 0;\r
- allanims[i].sound = -1;\r
-#endif\r
- *info = (unsigned)&allanims[i];\r
- numanimchains++;\r
- }\r
-\r
-#ifdef KEEN6\r
- RFL_CheckTileSound(&allanims[i], tilehigh);\r
-#endif\r
- anims = 0;\r
- change = (signed char)(tinf[MANIM+tile]);\r
- next = tile+change;\r
- while (change && next != tile)\r
- {\r
-#ifdef KEEN6\r
- RFL_CheckTileSound(&allanims[i], next | 0x8000); // foreground tiles have high bit\r
-#endif\r
- CA_MarkGrChunk(STARTTILE16M+next);\r
- change = (signed char)(tinf[MANIM+next]);\r
- next += change;\r
- if (++anims > 20)\r
- {\r
- strcpy (str,"RF_MarkTileGraphics: Unending foreground animation:");\r
- itoa (next,str2,10);\r
- strcat (str,str2);\r
- Quit (str);\r
- }\r
- }\r
-\r
- }\r
- }\r
-nextfront:\r
- info++;\r
- } while (start<end);\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-=========================\r
-=\r
-= RFL_InitAnimList\r
-=\r
-= Call to clear out the entire animating tile list and return all of them to\r
-= the free list.\r
-=\r
-=========================\r
-*/\r
-\r
-void RFL_InitAnimList (void)\r
-{\r
- int i;\r
-\r
- animfreeptr = &animarray[0];\r
-\r
- for (i=0;i<MAXANIMTILES-1;i++)\r
- animarray[i].nexttile = &animarray[i+1];\r
-\r
- animarray[i].nexttile = NULL;\r
-\r
- animhead = NULL; // nothing in list\r
-\r
-#ifdef KEEN6\r
- {\r
- tiletype *anim;\r
-\r
- for (anim = allanims; anim->current != 0; anim++)\r
- anim->visible = 0;\r
- }\r
-#endif\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= RFL_CheckForAnimTile\r
-=\r
-====================\r
-*/\r
-\r
-void RFL_CheckForAnimTile (unsigned x, unsigned y)\r
-{\r
- unsigned tile,offset,speed,lasttime,thistime,timemissed;\r
- unsigned far *map;\r
- animtiletype *anim,*next;\r
-\r
-// the info plane of each animating tile has a near pointer into allanims[]\r
-// which gives the current state of all concurrently animating tiles\r
-\r
- offset = mapbwidthtable[y]/2+x;\r
-\r
-//\r
-// background\r
-//\r
- map = mapsegs[0]+offset;\r
- tile = *map;\r
- if (tinf[ANIM+tile] && tinf[SPEED+tile])\r
- {\r
- if (!animfreeptr)\r
- Quit ("RF_CheckForAnimTile: No free spots in tilearray!");\r
- anim = animfreeptr;\r
- animfreeptr = animfreeptr->nexttile;\r
- next = animhead; // stick it at the start of the list\r
- animhead = anim;\r
- if (next)\r
- next->prevptr = &anim->nexttile;\r
- anim->nexttile = next;\r
- anim->prevptr = &animhead;\r
-\r
- anim->x = x;\r
- anim->y = y;\r
- anim->tile = tile;\r
- anim->mapplane = map;\r
- anim->chain = (tiletype *)*(mapsegs[2]+offset);\r
-#ifdef KEEN6\r
- anim->chain->visible++;\r
-#endif\r
- }\r
-\r
-//\r
-// foreground\r
-//\r
- map = mapsegs[1]+offset;\r
- tile = *map;\r
- if (tinf[MANIM+tile] && tinf[MSPEED+tile])\r
- {\r
- if (!animfreeptr)\r
- Quit ("RF_CheckForAnimTile: No free spots in tilearray!");\r
- anim = animfreeptr;\r
- animfreeptr = animfreeptr->nexttile;\r
- next = animhead; // stick it at the start of the list\r
- animhead = anim;\r
- if (next)\r
- next->prevptr = &anim->nexttile;\r
- anim->nexttile = next;\r
- anim->prevptr = &animhead;\r
-\r
- anim->x = x;\r
- anim->y = y;\r
- anim->tile = tile;\r
- anim->mapplane = map;\r
- anim->chain = (tiletype *)*(mapsegs[2]+offset);\r
-#ifdef KEEN6\r
- anim->chain->visible++;\r
-#endif\r
- }\r
-\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= RFL_RemoveAnimsOnX\r
-=\r
-====================\r
-*/\r
-\r
-void RFL_RemoveAnimsOnX (unsigned x)\r
-{\r
- animtiletype *current,*next;\r
-\r
- current = animhead;\r
- while (current)\r
- {\r
- if (current->x == x)\r
- {\r
-#ifdef KEEN6\r
- current->chain->visible--;\r
-#endif\r
- *(void **)current->prevptr = current->nexttile;\r
- if (current->nexttile)\r
- current->nexttile->prevptr = current->prevptr;\r
- next = current->nexttile;\r
- current->nexttile = animfreeptr;\r
- animfreeptr = current;\r
- current = next;\r
- }\r
- else\r
- current = current->nexttile;\r
- }\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= RFL_RemoveAnimsOnY\r
-=\r
-====================\r
-*/\r
-\r
-void RFL_RemoveAnimsOnY (unsigned y)\r
-{\r
- animtiletype *current,*next;\r
-\r
- current = animhead;\r
- while (current)\r
- {\r
- if (current->y == y)\r
- {\r
-#ifdef KEEN6\r
- current->chain->visible--;\r
-#endif\r
- *(void **)current->prevptr = current->nexttile;\r
- if (current->nexttile)\r
- current->nexttile->prevptr = current->prevptr;\r
- next = current->nexttile;\r
- current->nexttile = animfreeptr;\r
- animfreeptr = current;\r
- current = next;\r
- }\r
- else\r
- current = current->nexttile;\r
- }\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= RFL_RemoveAnimsInBlock\r
-=\r
-====================\r
-*/\r
-\r
-void RFL_RemoveAnimsInBlock (unsigned x, unsigned y, unsigned width, unsigned height)\r
-{\r
- animtiletype *current,*next;\r
-\r
- current = animhead;\r
- while (current)\r
- {\r
- if (current->x - x < width && current->y - y < height)\r
- {\r
-#ifdef KEEN6\r
- current->chain->visible--;\r
-#endif\r
- *(void **)current->prevptr = current->nexttile;\r
- if (current->nexttile)\r
- current->nexttile->prevptr = current->prevptr;\r
- next = current->nexttile;\r
- current->nexttile = animfreeptr;\r
- animfreeptr = current;\r
- current = next;\r
- }\r
- else\r
- current = current->nexttile;\r
- }\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= RFL_AnimateTiles\r
-=\r
-====================\r
-*/\r
-\r
-void RFL_AnimateTiles (void)\r
-{\r
- animtiletype *current;\r
- unsigned updateofs,tile,x,y;\r
- tiletype *anim;\r
-\r
-//\r
-// animate the lists of tiles\r
-//\r
- anim = &allanims[0];\r
- while (anim->current)\r
- {\r
- anim->count-=tics;\r
- while ( anim->count < 1)\r
- {\r
- if (anim->current & 0x8000)\r
- {\r
- tile = anim->current & 0x7fff;\r
- tile += (signed char)tinf[MANIM+tile];\r
- anim->count += tinf[MSPEED+tile];\r
- tile |= 0x8000;\r
- }\r
- else\r
- {\r
- tile = anim->current;\r
- tile += (signed char)tinf[ANIM+tile];\r
- anim->count += tinf[SPEED+tile];\r
- }\r
- anim->current = tile;\r
-#ifdef KEEN6\r
- if (anim->visible && anim->current == anim->soundtile && anim->sound != -1)\r
- {\r
- SD_PlaySound(anim->sound);\r
- }\r
-#endif\r
- }\r
- anim++;\r
- }\r
-\r
-\r
-//\r
-// traverse the list of animating tiles\r
-//\r
- current = animhead;\r
- while (current)\r
- {\r
- tile =current->chain->current;\r
- if ( tile != current->tile)\r
- {\r
- // tile has animated\r
- //\r
- // remove tile from master screen cache,\r
- // change a tile to its next state, set the structure up for\r
- // next animation, and post an update region to both update pages\r
- //\r
- current->tile = tile;\r
-\r
- *(current->mapplane) = tile & 0x7fff; // change in map\r
-\r
- x = current->x-originxtile;\r
- y = current->y-originytile;\r
-\r
- if (x>=PORTTILESWIDE || y>=PORTTILESHIGH)\r
- Quit ("RFL_AnimateTiles: Out of bounds!");\r
-\r
- updateofs = uwidthtable[y] + x;\r
- RFL_NewTile(updateofs); // puts "1"s in both pages\r
- }\r
- current = current->nexttile;\r
- }\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=========================\r
-=\r
-= RFL_InitSpriteList\r
-=\r
-= Call to clear out the entire sprite list and return all of them to\r
-= the free list.\r
-=\r
-=========================\r
-*/\r
-\r
-void RFL_InitSpriteList (void)\r
-{\r
- int i;\r
-\r
- spritefreeptr = &spritearray[0];\r
- for (i=0;i<MAXSPRITES-1;i++)\r
- spritearray[i].nextsprite = &spritearray[i+1];\r
-\r
- spritearray[i].nextsprite = NULL;\r
-\r
-// NULL in all priority levels\r
-\r
- memset (prioritystart,0,sizeof(prioritystart));\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=================\r
-=\r
-= RFL_CalcOriginStuff\r
-=\r
-= Calculate all the global variables for a new position\r
-= Long parms so position can be clipped to a maximum near 64k\r
-=\r
-=================\r
-*/\r
-\r
-void RFL_CalcOriginStuff (long x, long y)\r
-{\r
- originxglobal = x;\r
- originyglobal = y;\r
- originxtile = originxglobal>>G_T_SHIFT;\r
- originytile = originyglobal>>G_T_SHIFT;\r
- originxscreen = originxtile<<SX_T_SHIFT;\r
- originyscreen = originytile<<SY_T_SHIFT;\r
- originmap = mapbwidthtable[originytile] + originxtile*2;\r
-\r
-#if GRMODE == EGAGR\r
- panx = (originxglobal>>G_P_SHIFT) & 15;\r
- pansx = panx & 8;\r
- pany = pansy = (originyglobal>>G_P_SHIFT) & 15;\r
- panadjust = panx/8 + ylookup[pany];\r
-#endif\r
-\r
-#if GRMODE == CGAGR\r
- panx = (originxglobal>>G_P_SHIFT) & 15;\r
- pansx = panx & 12;\r
- pany = pansy = (originyglobal>>G_P_SHIFT) & 15;\r
- panadjust = pansx/4 + ylookup[pansy];\r
-#endif\r
-\r
-}\r
-\r
-\r
-/*\r
-=================\r
-=\r
-= RFL_ClearScrollBlocks\r
-=\r
-=================\r
-*/\r
-\r
-void RFL_ClearScrollBlocks (void)\r
-{\r
- hscrollblocks = vscrollblocks = 0;\r
-}\r
-\r
-\r
-/*\r
-=================\r
-=\r
-= RF_SetScrollBlock\r
-=\r
-= Sets a horizontal or vertical scroll block\r
-= a horizontal block is ----, meaning it blocks up/down movement\r
-=\r
-=================\r
-*/\r
-\r
-void RF_SetScrollBlock (int x, int y, boolean horizontal)\r
-{\r
- if (horizontal)\r
- {\r
- hscrolledge[hscrollblocks] = y;\r
- if (hscrollblocks++ == MAXSCROLLEDGES)\r
- Quit ("RF_SetScrollBlock: Too many horizontal scroll blocks");\r
- }\r
- else\r
- {\r
- vscrolledge[vscrollblocks] = x;\r
- if (vscrollblocks++ == MAXSCROLLEDGES)\r
- Quit ("RF_SetScrollBlock: Too many vertical scroll blocks");\r
- }\r
-}\r
-\r
-\r
-/*\r
-=================\r
-=\r
-= RFL_BoundScroll\r
-=\r
-= Bound a given x/y movement to scroll blocks\r
-=\r
-=================\r
-*/\r
-\r
-void RFL_BoundScroll (int x, int y)\r
-{\r
- int check,newxtile,newytile;\r
-\r
- originxglobal += x;\r
- originyglobal += y;\r
-\r
- newxtile= originxglobal >> G_T_SHIFT;\r
- newytile = originyglobal >> G_T_SHIFT;\r
-\r
- if (x>0)\r
- {\r
- newxtile+=SCREENTILESWIDE;\r
- for (check=0;check<vscrollblocks;check++)\r
- if (vscrolledge[check] == newxtile)\r
- {\r
- originxglobal = originxglobal&0xff00;\r
- break;\r
- }\r
- }\r
- else if (x<0)\r
- {\r
- for (check=0;check<vscrollblocks;check++)\r
- if (vscrolledge[check] == newxtile)\r
- {\r
- originxglobal = (originxglobal&0xff00)+0x100;\r
- break;\r
- }\r
- }\r
-\r
-\r
- if (y>0)\r
- {\r
- newytile+=SCREENTILESHIGH;\r
- for (check=0;check<hscrollblocks;check++)\r
- if (hscrolledge[check] == newytile)\r
- {\r
- originyglobal = originyglobal&0xff00;\r
- break;\r
- }\r
- }\r
- else if (y<0)\r
- {\r
- for (check=0;check<hscrollblocks;check++)\r
- if (hscrolledge[check] == newytile)\r
- {\r
- originyglobal = (originyglobal&0xff00)+0x100;\r
- break;\r
- }\r
- }\r
-\r
-\r
- RFL_CalcOriginStuff (originxglobal, originyglobal);\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_SetRefreshHook\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_SetRefreshHook (void (*func) (void) )\r
-{\r
- refreshvector = func;\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=================\r
-=\r
-= RFL_NewRow\r
-=\r
-= Bring a new row of tiles onto the port, spawning animating tiles\r
-=\r
-=================\r
-*/\r
-\r
-void RFL_NewRow (int dir)\r
-{\r
- unsigned count,updatespot,updatestep;\r
- int x,y,xstep,ystep;\r
-\r
- switch (dir)\r
- {\r
- case 0: // top row\r
- updatespot = 0;\r
- updatestep = 1;\r
- x = originxtile;\r
- y = originytile;\r
- xstep = 1;\r
- ystep = 0;\r
- count = PORTTILESWIDE;\r
- break;\r
-\r
- case 1: // right row\r
- updatespot = PORTTILESWIDE-1;\r
- updatestep = UPDATEWIDE;\r
- x = originxtile + PORTTILESWIDE-1;\r
- y = originytile;\r
- xstep = 0;\r
- ystep = 1;\r
- count = PORTTILESHIGH;\r
- break;\r
-\r
- case 2: // bottom row\r
- updatespot = UPDATEWIDE*(PORTTILESHIGH-1);\r
- updatestep = 1;\r
- x = originxtile;\r
- y = originytile + PORTTILESHIGH-1;\r
- xstep = 1;\r
- ystep = 0;\r
- count = PORTTILESWIDE;\r
- break;\r
-\r
- case 3: // left row\r
- updatespot = 0;\r
- updatestep = UPDATEWIDE;\r
- x = originxtile;\r
- y = originytile;\r
- xstep = 0;\r
- ystep = 1;\r
- count = PORTTILESHIGH;\r
- break;\r
- default:\r
- Quit ("RFL_NewRow: Bad dir!");\r
- }\r
-\r
- while (count--)\r
- {\r
- RFL_NewTile(updatespot);\r
- RFL_CheckForAnimTile (x,y);\r
- updatespot+=updatestep;\r
- x+=xstep;\r
- y+=ystep;\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_ForceRefresh\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_ForceRefresh (void)\r
-{\r
- RF_NewPosition (originxglobal,originyglobal);\r
- RF_Refresh ();\r
- RF_Refresh ();\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_MapToMap\r
-=\r
-= Copies a block of tiles (all three planes) from one point\r
-= in the map to another, accounting for animating tiles\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_MapToMap (unsigned srcx, unsigned srcy,\r
- unsigned destx, unsigned desty,\r
- unsigned width, unsigned height)\r
-{\r
- int x,y;\r
- unsigned source,destofs,xspot,yspot;\r
- unsigned linedelta,p0,p1,p2,updatespot;\r
- unsigned far *source0, far *source1, far *source2;\r
- unsigned far *dest0, far *dest1, far *dest2;\r
- boolean changed;\r
-\r
- RFL_RemoveAnimsInBlock (destx,desty,width,height);\r
-\r
- source = mapbwidthtable[srcy]/2 + srcx;\r
-\r
- source0 = mapsegs[0]+source;\r
- source1 = mapsegs[1]+source;\r
- source2 = mapsegs[2]+source;\r
-\r
- destofs = mapbwidthtable[desty]/2 + destx;\r
- destofs -= source;\r
-\r
- linedelta = mapwidth - width;\r
-\r
- for (y=0;y<height;y++,source0+=linedelta,source1+=linedelta,source2+=linedelta)\r
- for (x=0;x<width;x++,source0++,source1++,source2++)\r
- {\r
- p0 = *source0;\r
- p1 = *source1;\r
- p2 = *source2;\r
-\r
- dest0 = source0 + destofs;\r
- dest1 = source1 + destofs;\r
- dest2 = source2 + destofs;\r
-\r
-//\r
-// only make a new tile if it is different\r
-//\r
- if (p0 != *dest0 || p1 != *dest1 || p2 != *dest2)\r
- {\r
- *dest0 = p0;\r
- *dest1 = p1;\r
- *dest2 = p2;\r
- changed = true;\r
- }\r
- else\r
- changed = false;\r
-\r
-//\r
-// if tile is on the view port\r
-//\r
- xspot = destx+x-originxtile;\r
- yspot = desty+y-originytile;\r
- if (yspot < PORTTILESHIGH && xspot < PORTTILESWIDE)\r
- {\r
- if (changed)\r
- {\r
- updatespot = uwidthtable[yspot]+xspot;\r
- RFL_NewTile(updatespot);\r
- }\r
- RFL_CheckForAnimTile (destx+x,desty+y);\r
- }\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_MemToMap\r
-=\r
-= Copies a string of tiles from main memory to the map,\r
-= accounting for animating tiles\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_MemToMap (unsigned far *source, unsigned plane,\r
- unsigned destx, unsigned desty,\r
- unsigned width, unsigned height)\r
-{\r
- int x,y;\r
- unsigned xspot,yspot;\r
- unsigned linedelta,updatespot;\r
- unsigned far *dest,old,new;\r
- boolean changed;\r
-\r
- RFL_RemoveAnimsInBlock (destx,desty,width,height);\r
-\r
- dest = mapsegs[plane] + mapbwidthtable[desty]/2 + destx;\r
-\r
- linedelta = mapwidth - width;\r
-\r
- for (y=0;y<height;y++,dest+=linedelta)\r
- for (x=0;x<width;x++)\r
- {\r
- old = *dest;\r
- new = *source++;\r
- if (old != new)\r
- {\r
- *dest = new;\r
- changed = true;\r
- }\r
- else\r
- changed = false;\r
-\r
- dest++;\r
- xspot = destx+x-originxtile;\r
- yspot = desty+y-originytile;\r
- if (yspot < PORTTILESHIGH && xspot < PORTTILESWIDE)\r
- {\r
- if (changed)\r
- {\r
- updatespot = uwidthtable[yspot]+xspot;\r
- RFL_NewTile(updatespot);\r
- }\r
- RFL_CheckForAnimTile (destx+x,desty+y);\r
- }\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RFL_BoundNewOrigin\r
-=\r
-= Copies a string of tiles from main memory to the map,\r
-= accounting for animating tiles\r
-=\r
-=====================\r
-*/\r
-\r
-void RFL_BoundNewOrigin (unsigned orgx,unsigned orgy)\r
-{\r
- int check,edge;\r
-\r
-//\r
-// calculate new origin related globals\r
-//\r
- if (orgx<originxmin)\r
- orgx=originxmin;\r
- else if (orgx>originxmax)\r
- orgx=originxmax;\r
-\r
- if (orgy<originymin)\r
- orgy=originymin;\r
- else if (orgy>originymax)\r
- orgy=originymax;\r
-\r
- originxtile = orgx>>G_T_SHIFT;\r
- originytile = orgy>>G_T_SHIFT;\r
-\r
- for (check=0;check<vscrollblocks;check++)\r
- {\r
- edge = vscrolledge[check];\r
- if (edge>=originxtile && edge <=originxtile+10)\r
- {\r
- orgx = (edge+1)*TILEGLOBAL;\r
- break;\r
- }\r
- if (edge>=originxtile+11 && edge <=originxtile+20)\r
- {\r
- orgx = (edge-20)*TILEGLOBAL;\r
- break;\r
- }\r
- }\r
-\r
- for (check=0;check<hscrollblocks;check++)\r
- {\r
- edge = hscrolledge[check];\r
- if (edge>=originytile && edge <=originytile+6)\r
- {\r
- orgy = (edge+1)*TILEGLOBAL;\r
- break;\r
- }\r
- if (edge>=originytile+7 && edge <=originytile+13)\r
- {\r
- orgy = (edge-13)*TILEGLOBAL;\r
- break;\r
- }\r
- }\r
-\r
-\r
- RFL_CalcOriginStuff (orgx,orgy);\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_ClearBlock\r
-=\r
-= Posts erase blocks to clear a certain area of the screen to the master\r
-= screen, to erase text or something draw directly to the screen\r
-=\r
-= Parameters in pixels, but erasure is byte bounded\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_ClearBlock (int x, int y, int width, int height)\r
-{\r
- eraseblocktype block;\r
-\r
-#if GRMODE == EGAGR\r
- block.screenx = x/8+originxscreen;\r
- block.screeny = y+originyscreen;\r
- block.width = (width+(x&7)+7)/8;\r
- block.height = height;\r
- memcpy (eraselistptr[0]++,&block,sizeof(block));\r
- memcpy (eraselistptr[1]++,&block,sizeof(block));\r
-#endif\r
-\r
-#if GRMODE == CGAGR\r
- block.screenx = x/4+originxscreen;\r
- block.screeny = y+originyscreen;\r
- block.width = (width+(x&3)+3)/4;\r
- block.height = height;\r
- memcpy (eraselistptr[0]++,&block,sizeof(block));\r
-#endif\r
-\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_RedrawBlock\r
-=\r
-= Causes a number of tiles to be redrawn to the master screen and updated\r
-=\r
-= Parameters in pixels, but erasure is tile bounded\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_RedrawBlock (int x, int y, int width, int height)\r
-{\r
- int xx,yy,xl,xh,yl,yh;\r
-\r
- xl=(x+panx)/16;\r
- xh=(x+panx+width+15)/16;\r
- yl=(y+pany)/16;\r
- yh=(y+pany+height+15)/16;\r
- for (yy=yl;yy<=yh;yy++)\r
- for (xx=xl;xx<=xh;xx++)\r
- RFL_NewTile (yy*UPDATEWIDE+xx);\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_CalcTics\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_CalcTics (void)\r
-{\r
- long newtime,oldtimecount;\r
-\r
-//\r
-// calculate tics since last refresh for adaptive timing\r
-//\r
- if (lasttimecount > TimeCount)\r
- TimeCount = lasttimecount; // if the game was paused a LONG time\r
-\r
- if (DemoMode) // demo recording and playback needs\r
- { // to be constant\r
-//\r
-// take DEMOTICS or more tics, and modify Timecount to reflect time taken\r
-//\r
- oldtimecount = lasttimecount;\r
- while (TimeCount<oldtimecount+DEMOTICS*2)\r
- ;\r
- lasttimecount = oldtimecount + DEMOTICS;\r
- TimeCount = lasttimecount + DEMOTICS;\r
- tics = DEMOTICS;\r
- }\r
- else\r
- {\r
-//\r
-// non demo, so report actual time\r
-//\r
- do\r
- {\r
- newtime = TimeCount;\r
- tics = newtime-lasttimecount;\r
- } while (tics<MINTICS);\r
- lasttimecount = newtime;\r
-\r
-#ifdef PROFILE\r
- strcpy (scratch,"\tTics:");\r
- itoa (tics,str,10);\r
- strcat (scratch,str);\r
- strcat (scratch,"\n");\r
- write (profilehandle,scratch,strlen(scratch));\r
-#endif\r
-\r
- if (tics>MAXTICS)\r
- {\r
- TimeCount -= (tics-MAXTICS);\r
- tics = MAXTICS;\r
- }\r
- }\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_FindFreeBuffer\r
-=\r
-= Finds the start of unused, non visable buffer space\r
-=\r
-=====================\r
-*/\r
-\r
-unsigned RF_FindFreeBuffer (void)\r
-{\r
- unsigned spot,i,j;\r
- boolean ok;\r
-\r
- for (i=0;i<3;i++)\r
- {\r
- spot = screenstart[i]+SCREENSPACE;\r
- ok = true;\r
- for (j=0;j<3;j++)\r
- if (spot == screenstart[j])\r
- {\r
- ok = false;\r
- break;\r
- }\r
- if (ok)\r
- return spot;\r
- }\r
-\r
- return 0; // never get here...\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- EGA specific routines\r
-\r
-=============================================================================\r
-*/\r
-\r
-#if GRMODE == EGAGR\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_NewPosition EGA\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_NewPosition (unsigned x, unsigned y)\r
-{\r
- int mx,my;\r
- byte *page0ptr,*page1ptr;\r
- unsigned updatenum;\r
-\r
- RFL_BoundNewOrigin (x,y);\r
-//\r
-// clear out all animating tiles\r
-//\r
- RFL_InitAnimList ();\r
-\r
-//\r
-// set up the new update arrays at base position\r
-//\r
- updatestart[0] = baseupdatestart[0];\r
- updatestart[1] = baseupdatestart[1];\r
- updateptr = updatestart[otherpage];\r
-\r
- page0ptr = updatestart[0]+PORTTILESWIDE; // used to stick "0"s after rows\r
- page1ptr = updatestart[1]+PORTTILESWIDE;\r
-\r
- updatenum = 0; // start at first visable tile\r
-\r
- for (my=0;my<PORTTILESHIGH;my++)\r
- {\r
- for (mx=0;mx<PORTTILESWIDE;mx++)\r
- {\r
- RFL_NewTile(updatenum); // puts "1"s in both pages\r
- RFL_CheckForAnimTile(mx+originxtile,my+originytile);\r
- updatenum++;\r
- }\r
- updatenum++;\r
- *page0ptr = *page1ptr = 0; // set a 0 at end of a line of tiles\r
- page0ptr+=(PORTTILESWIDE+1);\r
- page1ptr+=(PORTTILESWIDE+1);\r
- }\r
- *(word *)(page0ptr-PORTTILESWIDE)\r
- = *(word *)(page1ptr-PORTTILESWIDE) = UPDATETERMINATE;\r
-}\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_Scroll EGA\r
-=\r
-= Move the origin x/y global coordinates, readjust the screen panning, and\r
-= scroll if needed. If the scroll distance is greater than one tile, the\r
-= entire screen will be redrawn (this could be generalized, but scrolling\r
-= more than one tile per refresh is a bad idea!).\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_Scroll (int x, int y)\r
-{\r
- long neworgx,neworgy;\r
- int i,deltax,deltay,absdx,absdy;\r
- int oldxt,oldyt,move,yy;\r
- unsigned updatespot;\r
- byte *update0,*update1;\r
- unsigned oldpanx,oldpanadjust,oldscreen,newscreen,screencopy;\r
- int screenmove;\r
-\r
- oldxt = originxtile;\r
- oldyt = originytile;\r
- oldpanadjust = panadjust;\r
- oldpanx = panx;\r
-\r
- RFL_BoundScroll (x,y);\r
-\r
- deltax = originxtile - oldxt;\r
- absdx = abs(deltax);\r
- deltay = originytile - oldyt;\r
- absdy = abs(deltay);\r
-\r
- if (absdx>1 || absdy>1)\r
- {\r
- //\r
- // scrolled more than one tile, so start from scratch\r
- //\r
- RF_NewPosition(originxglobal,originyglobal);\r
- return;\r
- }\r
-\r
- if (!absdx && !absdy)\r
- return; // the screen has not scrolled an entire tile\r
-\r
-\r
-//\r
-// adjust screens and handle SVGA crippled compatability mode\r
-//\r
- screenmove = deltay*16*SCREENWIDTH + deltax*TILEWIDTH;\r
- for (i=0;i<3;i++)\r
- {\r
- screenstart[i]+= screenmove;\r
- if (compatability && screenstart[i] > (0x10000l-SCREENSPACE) )\r
- {\r
- //\r
- // move the screen to the opposite end of the buffer\r
- //\r
- screencopy = screenmove>0 ? FREEEGAMEM : -FREEEGAMEM;\r
- oldscreen = screenstart[i] - screenmove;\r
- newscreen = oldscreen + screencopy;\r
- screenstart[i] = newscreen + screenmove;\r
- VW_ScreenToScreen (oldscreen,newscreen,\r
- PORTTILESWIDE*2,PORTTILESHIGH*16);\r
-\r
- if (i==screenpage)\r
- VW_SetScreen(newscreen+oldpanadjust,oldpanx & xpanmask);\r
- }\r
- }\r
- bufferofs = screenstart[otherpage];\r
- displayofs = screenstart[screenpage];\r
- masterofs = screenstart[2];\r
-\r
-\r
-//\r
-// float the update regions\r
-//\r
- move = deltax;\r
- if (deltay==1)\r
- move += UPDATEWIDE;\r
- else if (deltay==-1)\r
- move -= UPDATEWIDE;\r
-\r
- updatestart[0]+=move;\r
- updatestart[1]+=move;\r
-\r
-//\r
-// draw the new tiles just scrolled on to the master screen, and\r
-// mark them as needing to be copied to each screen next refreshes\r
-// Make sure a zero is at the end of each row in update\r
-//\r
-\r
- if (deltax)\r
- {\r
- if (deltax==1)\r
- {\r
- RFL_NewRow (1); // new right row\r
- RFL_RemoveAnimsOnX (originxtile-1);\r
- }\r
- else\r
- {\r
- RFL_NewRow (3); // new left row\r
- RFL_RemoveAnimsOnX (originxtile+PORTTILESWIDE);\r
- }\r
-\r
- update0 = updatestart[0]+PORTTILESWIDE;\r
- update1 = updatestart[1]+PORTTILESWIDE;\r
- for (yy=0;yy<PORTTILESHIGH;yy++)\r
- {\r
- *update0 = *update1 = 0; // drop a 0 at end of each row\r
- update0+=UPDATEWIDE;\r
- update1+=UPDATEWIDE;\r
- }\r
- }\r
-\r
-//----------------\r
-\r
- if (deltay)\r
- {\r
- if (deltay==1)\r
- {\r
- updatespot = UPDATEWIDE*(PORTTILESHIGH-1);\r
- RFL_NewRow (2); // new bottom row\r
- RFL_RemoveAnimsOnY (originytile-1);\r
- }\r
- else\r
- {\r
- updatespot = 0;\r
- RFL_NewRow (0); // new top row\r
- RFL_RemoveAnimsOnY (originytile+PORTTILESHIGH);\r
- }\r
-\r
- *(updatestart[0]+updatespot+PORTTILESWIDE) =\r
- *(updatestart[1]+updatespot+PORTTILESWIDE) = 0;\r
- }\r
-\r
-//----------------\r
-\r
- //\r
- // place a new terminator\r
- //\r
- update0 = updatestart[0]+UPDATEWIDE*PORTTILESHIGH-1;\r
- update1 = updatestart[1]+UPDATEWIDE*PORTTILESHIGH-1;\r
- *update0++ = *update1++ = 0;\r
- *(unsigned *)update0 = *(unsigned *)update1 = UPDATETERMINATE;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_PlaceSprite EGA\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_PlaceSprite (void **user,unsigned globalx,unsigned globaly,\r
- unsigned spritenumber, drawtype draw, int priority)\r
-{\r
- spritelisttype register *sprite,*next;\r
- spritetabletype far *spr;\r
- spritetype _seg *block;\r
- unsigned shift,pixx;\r
- char str[80],str2[10];\r
-\r
- if (!spritenumber || spritenumber == (unsigned)-1)\r
- {\r
- RF_RemoveSprite (user);\r
- return;\r
- }\r
-\r
- sprite = (spritelisttype *)*user;\r
-\r
- if (sprite)\r
- {\r
- // sprite allready exists in the list, so we can use it's block\r
-\r
- //\r
- // post an erase block to both pages by copying screenx,screeny,width,height\r
- // both pages may not need to be erased if the sprite just changed last frame\r
- //\r
- if (sprite->updatecount<2)\r
- {\r
- if (!sprite->updatecount)\r
- memcpy (eraselistptr[otherpage]++,sprite,sizeof(eraseblocktype));\r
- memcpy (eraselistptr[screenpage]++,sprite,sizeof(eraseblocktype));\r
- }\r
-\r
- if (priority != sprite->priority)\r
- {\r
- // sprite mvoed to another priority, so unlink the old one and\r
- // relink it in the new priority\r
-\r
- next = sprite->nextsprite; // cut old links\r
- if (next)\r
- next->prevptr = sprite->prevptr;\r
- *sprite->prevptr = next;\r
- goto linknewspot;\r
- }\r
- }\r
- else\r
- {\r
- // this is a brand new sprite, so allocate a block from the array\r
-\r
- if (!spritefreeptr)\r
- Quit ("RF_PlaceSprite: No free spots in spritearray!");\r
-\r
- sprite = spritefreeptr;\r
- spritefreeptr = spritefreeptr->nextsprite;\r
-\r
-linknewspot:\r
- next = prioritystart[priority]; // stick it in new spot\r
- if (next)\r
- next->prevptr = &sprite->nextsprite;\r
- sprite->nextsprite = next;\r
- prioritystart[priority] = sprite;\r
- sprite->prevptr = &prioritystart[priority];\r
- }\r
-\r
-//\r
-// write the new info to the sprite\r
-//\r
- spr = &spritetable[spritenumber-STARTSPRITES];\r
- block = (spritetype _seg *)grsegs[spritenumber];\r
-\r
- if (!block)\r
- {\r
- strcpy (str,"RF_PlaceSprite: Placed an uncached sprite:");\r
- itoa (spritenumber,str2,10);\r
- strcat (str,str2);\r
- Quit (str);\r
- }\r
-\r
- globaly+=spr->orgy;\r
- globalx+=spr->orgx;\r
-\r
- pixx = globalx >> G_SY_SHIFT;\r
- if (nopan)\r
- shift = 0;\r
- else\r
- shift = (pixx&7)/2;\r
-\r
- sprite->screenx = pixx >> (G_EGASX_SHIFT-G_SY_SHIFT);\r
- sprite->screeny = globaly >> G_SY_SHIFT;\r
- sprite->width = block->width[shift];\r
- sprite->height = spr->height;\r
- sprite->grseg = spritenumber;\r
- sprite->sourceofs = block->sourceoffset[shift];\r
- sprite->planesize = block->planesize[shift];\r
- sprite->draw = draw;\r
- sprite->priority = priority;\r
- sprite->tilex = sprite->screenx >> SX_T_SHIFT;\r
- sprite->tiley = sprite->screeny >> SY_T_SHIFT;\r
- sprite->tilewide = ( (sprite->screenx + sprite->width -1) >> SX_T_SHIFT )\r
- - sprite->tilex + 1;\r
- sprite->tilehigh = ( (sprite->screeny + sprite->height -1) >> SY_T_SHIFT )\r
- - sprite->tiley + 1;\r
-\r
- sprite->updatecount = 2; // draw on next two refreshes\r
-\r
-// save the sprite pointer off in the user's pointer so it can be moved\r
-// again later\r
-\r
- *user = sprite;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_RemoveSprite EGA\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_RemoveSprite (void **user)\r
-{\r
- spritelisttype *sprite,*next;\r
-\r
- sprite = (spritelisttype *)*user;\r
- if (!sprite)\r
- return;\r
-\r
-//\r
-// post an erase block to both pages by copying screenx,screeny,width,height\r
-// both pages may not need to be erased if the sprite just changed last frame\r
-//\r
- if (sprite->updatecount<2)\r
- {\r
- if (!sprite->updatecount)\r
- memcpy (eraselistptr[otherpage]++,sprite,sizeof(eraseblocktype));\r
- memcpy (eraselistptr[screenpage]++,sprite,sizeof(eraseblocktype));\r
- }\r
-\r
-//\r
-// unlink the sprite node\r
-//\r
- next = sprite->nextsprite;\r
- if (next) // if (!next), sprite is last in chain\r
- next->prevptr = sprite->prevptr;\r
- *sprite->prevptr = next;\r
-\r
-//\r
-// add it back to the free list\r
-//\r
- sprite->nextsprite = spritefreeptr;\r
- spritefreeptr = sprite;\r
-\r
-//\r
-// null the users pointer, so next time that actor gets placed, it will\r
-// allocate a new block\r
-//\r
-\r
- *user = 0;\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= RFL_EraseBlocks EGA\r
-=\r
-= Write mode 1 should be set\r
-=\r
-====================\r
-*/\r
-\r
-void RFL_EraseBlocks (void)\r
-{\r
- eraseblocktype *block,*done;\r
- int screenxh,screenyh;\r
- unsigned pos,xtl,ytl,xth,yth,x,y;\r
- byte *updatespot;\r
- unsigned updatedelta;\r
- unsigned erasecount;\r
-\r
-#ifdef PROFILE\r
- erasecount = 0;\r
-#endif\r
-\r
- block = otherpage ? &eraselist[1][0] : &eraselist[0][0];\r
-\r
- done = eraselistptr[otherpage];\r
-\r
- while (block != done)\r
- {\r
-\r
- //\r
- // clip the block to the current screen view\r
- //\r
- block->screenx -= originxscreen;\r
- block->screeny -= originyscreen;\r
-\r
- if (block->screenx < 0)\r
- {\r
- block->width += block->screenx;\r
- if (block->width<1)\r
- goto next;\r
- block->screenx = 0;\r
- }\r
-\r
- if (block->screeny < 0)\r
- {\r
- block->height += block->screeny;\r
- if (block->height<1)\r
- goto next;\r
- block->screeny = 0;\r
- }\r
-\r
- screenxh = block->screenx + block->width;\r
- screenyh = block->screeny + block->height;\r
-\r
- if (screenxh > EGAPORTSCREENWIDE)\r
- {\r
- block->width = EGAPORTSCREENWIDE-block->screenx;\r
- screenxh = block->screenx + block->width;\r
- }\r
-\r
- if (screenyh > PORTSCREENHIGH)\r
- {\r
- block->height = PORTSCREENHIGH-block->screeny;\r
- screenyh = block->screeny + block->height;\r
- }\r
-\r
- if (block->width<1 || block->height<1)\r
- goto next;\r
-\r
- //\r
- // erase the block by copying from the master screen\r
- //\r
- pos = ylookup[block->screeny]+block->screenx;\r
- VW_ScreenToScreen (masterofs+pos,bufferofs+pos,\r
- block->width,block->height);\r
-\r
- //\r
- // put 2s in update where the block was, to force sprites to update\r
- //\r
- xtl = block->screenx >> SX_T_SHIFT;\r
- xth = (block->screenx+block->width-1) >> SX_T_SHIFT;\r
- ytl = block->screeny >> SY_T_SHIFT;\r
- yth = (block->screeny+block->height-1) >> SY_T_SHIFT;\r
-\r
- updatespot = updateptr + uwidthtable[ytl] + xtl;\r
- updatedelta = UPDATEWIDE - (xth-xtl+1);\r
-\r
- for (y=ytl;y<=yth;y++)\r
- {\r
- for (x=xtl;x<=xth;x++)\r
- *updatespot++ = 2;\r
- updatespot += updatedelta; // down to next line\r
- }\r
-#ifdef PROFILE\r
- erasecount++;\r
-#endif\r
-\r
-next:\r
- block++;\r
- }\r
- eraselistptr[otherpage] = otherpage ? &eraselist[1][0] : &eraselist[0][0];\r
-#ifdef PROFILE\r
- strcpy (scratch,"\tErase:");\r
- itoa (erasecount,str,10);\r
- strcat (scratch,str);\r
- write (profilehandle,scratch,strlen(scratch));\r
-#endif\r
-\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= RFL_UpdateSprites EGA\r
-=\r
-= NOTE: Implement vertical clipping!\r
-=\r
-====================\r
-*/\r
-\r
-void RFL_UpdateSprites (void)\r
-{\r
- spritelisttype *sprite;\r
- int portx,porty,x,y,xtl,xth,ytl,yth;\r
- int priority;\r
- unsigned dest;\r
- byte *updatespot,*baseupdatespot;\r
- unsigned updatedelta;\r
- unsigned updatecount;\r
- unsigned height,sourceofs;\r
-\r
-#ifdef PROFILE\r
- updatecount = 0;\r
-#endif\r
-\r
- for (priority=0;priority<PRIORITIES;priority++)\r
- {\r
- if (priority==MASKEDTILEPRIORITY)\r
- RFL_MaskForegroundTiles ();\r
-\r
- for (sprite = prioritystart[priority]; sprite ;\r
- sprite = (spritelisttype *)sprite->nextsprite)\r
- {\r
- //\r
- // see if the sprite has any visable area in the port\r
- //\r
-\r
- portx = sprite->screenx - originxscreen;\r
- porty = sprite->screeny - originyscreen;\r
- xtl = portx >> SX_T_SHIFT;\r
- xth = (portx + sprite->width-1) >> SX_T_SHIFT;\r
- ytl = porty >> SY_T_SHIFT;\r
- yth = (porty + sprite->height-1) >> SY_T_SHIFT;\r
-\r
- if (xtl<0)\r
- xtl = 0;\r
- if (xth>=PORTTILESWIDE)\r
- xth = PORTTILESWIDE-1;\r
- if (ytl<0)\r
- ytl = 0;\r
- if (yth>=PORTTILESHIGH)\r
- yth = PORTTILESHIGH-1;\r
-\r
- if (xtl>xth || ytl>yth)\r
- continue;\r
-\r
- //\r
- // see if it's visable area covers any non 0 update tiles\r
- //\r
- updatespot = baseupdatespot = updateptr + uwidthtable[ytl] + xtl;\r
- updatedelta = UPDATEWIDE - (xth-xtl+1);\r
-\r
- if (sprite->updatecount)\r
- {\r
- sprite->updatecount--; // the sprite was just placed,\r
- goto redraw; // so draw it for sure\r
- }\r
-\r
- for (y=ytl;y<=yth;y++)\r
- {\r
- for (x=xtl;x<=xth;x++)\r
- if (*updatespot++)\r
- goto redraw;\r
- updatespot += updatedelta; // down to next line\r
- }\r
- continue; // no need to update\r
-\r
-redraw:\r
- //\r
- // set the tiles it covers to 3, because those tiles are being\r
- // updated\r
- //\r
- updatespot = baseupdatespot;\r
- for (y=ytl;y<=yth;y++)\r
- {\r
- for (x=xtl;x<=xth;x++)\r
- *updatespot++ = 3;\r
- updatespot += updatedelta; // down to next line\r
- }\r
- //\r
- // draw it!\r
- //\r
- height = sprite->height;\r
- sourceofs = sprite->sourceofs;\r
- if (porty<0)\r
- {\r
- height += porty; // clip top off\r
- sourceofs -= porty*sprite->width;\r
- porty = 0;\r
- }\r
- else if (porty+height>PORTSCREENHIGH)\r
- {\r
- height = PORTSCREENHIGH - porty; // clip bottom off\r
- }\r
-\r
- dest = bufferofs + ylookup[porty] + portx;\r
-\r
- switch (sprite->draw)\r
- {\r
- case spritedraw:\r
- VW_MaskBlock(grsegs[sprite->grseg], sourceofs,\r
- dest,sprite->width,height,sprite->planesize);\r
- break;\r
-\r
- case maskdraw:\r
- VW_InverseMask(grsegs[sprite->grseg], sourceofs,\r
- dest,sprite->width,height);\r
- break;\r
-\r
- }\r
-#ifdef PROFILE\r
- updatecount++;\r
-#endif\r
-\r
-\r
- }\r
- }\r
-#ifdef PROFILE\r
- strcpy (scratch,"\tSprites:");\r
- itoa (updatecount,str,10);\r
- strcat (scratch,str);\r
- write (profilehandle,scratch,strlen(scratch));\r
-#endif\r
-\r
-}\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_Refresh EGA\r
-=\r
-= All routines will draw at the port at bufferofs, possibly copying from\r
-= the port at masterofs. The EGA version then page flips, while the\r
-= CGA version updates the screen from the buffer port.\r
-=\r
-= Screenpage is the currently displayed page, not the one being drawn\r
-= Otherpage is the page to be worked with now\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_Refresh (void)\r
-{\r
- byte *newupdate;\r
-\r
- updateptr = updatestart[otherpage];\r
-\r
- RFL_AnimateTiles (); // DEBUG\r
-\r
-//\r
-// update newly scrolled on tiles and animated tiles from the master screen\r
-//\r
- EGAWRITEMODE(1);\r
- EGAMAPMASK(15);\r
- RFL_UpdateTiles ();\r
- RFL_EraseBlocks ();\r
-\r
-//\r
-// Update is all 0 except where sprites have changed or new area has\r
-// been scrolled on. Go through all sprites and update the ones that cover\r
-// a non 0 update tile\r
-//\r
- EGAWRITEMODE(0);\r
- RFL_UpdateSprites ();\r
-\r
-//\r
-// if the main program has a refresh hook set, call their function before\r
-// displaying the new page\r
-//\r
- if (refreshvector)\r
- refreshvector();\r
-\r
-//\r
-// display the changed screen\r
-//\r
- VW_SetScreen(bufferofs+panadjust,panx & xpanmask);\r
-\r
-//\r
-// prepare for next refresh\r
-//\r
-// Set the update array to the middle position and clear it out to all "0"s\r
-// with an UPDATETERMINATE at the end\r
-//\r
- updatestart[otherpage] = newupdate = baseupdatestart[otherpage];\r
-asm mov ax,ds\r
-asm mov es,ax\r
-asm xor ax,ax\r
-asm mov cx,(UPDATESCREENSIZE-2)/2\r
-asm mov di,[newupdate]\r
-asm rep stosw\r
-asm mov [WORD PTR es:di],UPDATETERMINATE\r
-\r
- screenpage ^= 1;\r
- otherpage ^= 1;\r
- bufferofs = screenstart[otherpage];\r
- displayofs = screenstart[screenpage];\r
-\r
-//\r
-// calculate tics since last refresh for adaptive timing\r
-//\r
- RF_CalcTics ();\r
-}\r
-\r
-#endif // GRMODE == EGAGR\r
-\r
-/*\r
-=============================================================================\r
-\r
- CGA specific routines\r
-\r
-=============================================================================\r
-*/\r
-\r
-#if GRMODE == CGAGR\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_NewPosition CGA\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_NewPosition (unsigned x, unsigned y)\r
-{\r
- int mx,my;\r
- byte *spotptr;\r
- unsigned updatenum;\r
-\r
- RFL_BoundNewOrigin (x,y);\r
-\r
-//\r
-// clear out all animating tiles\r
-//\r
- RFL_InitAnimList ();\r
-\r
-//\r
-// set up the new update arrays at base position\r
-//\r
- updateptr = baseupdateptr;\r
-\r
- spotptr = updateptr + PORTTILESWIDE; // used to stick "0"s after rows\r
-\r
- updatenum = 0; // start at first visable tile\r
-\r
- for (my=0;my<PORTTILESHIGH;my++)\r
- {\r
- for (mx=0;mx<PORTTILESWIDE;mx++)\r
- {\r
- RFL_NewTile(updatenum); // puts "1"s in both pages\r
- RFL_CheckForAnimTile(mx+originxtile,my+originytile);\r
- updatenum++;\r
- }\r
- updatenum++;\r
- *spotptr = 0; // set a 0 at end of a line of tiles\r
- spotptr +=(PORTTILESWIDE+1);\r
- }\r
- *(word *)(spotptr-PORTTILESWIDE) = UPDATETERMINATE;\r
-}\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_Scroll CGA\r
-=\r
-= Move the origin x/y global coordinates, readjust the screen panning, and\r
-= scroll if needed. If the scroll distance is greater than one tile, the\r
-= entire screen will be redrawn (this could be generalized, but scrolling\r
-= more than one tile per refresh is a bad idea!).\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_Scroll (int x, int y)\r
-{\r
- long neworgx,neworgy;\r
- int i,deltax,deltay,absdx,absdy;\r
- int oldxt,oldyt,move,yy;\r
- unsigned updatespot;\r
- byte *spotptr;\r
- unsigned oldoriginmap,oldscreen,newscreen,screencopy;\r
- int screenmove;\r
-\r
- oldxt = originxtile;\r
- oldyt = originytile;\r
-\r
- RFL_BoundScroll (x,y);\r
-\r
- deltax = originxtile - oldxt;\r
- absdx = abs(deltax);\r
- deltay = originytile - oldyt;\r
- absdy = abs(deltay);\r
-\r
- if (absdx>1 || absdy>1)\r
- {\r
- //\r
- // scrolled more than one tile, so start from scratch\r
- //\r
- RF_NewPosition(originxglobal,originyglobal);\r
- return;\r
- }\r
-\r
- if (!absdx && !absdy)\r
- return; // the screen has not scrolled an entire tile\r
-\r
-\r
-//\r
-// float screens\r
-//\r
- screenmove = deltay*16*SCREENWIDTH + deltax*TILEWIDTH;\r
- bufferofs += screenmove;\r
- masterofs += screenmove;\r
-\r
-\r
-//\r
-// float the update regions\r
-//\r
- move = deltax;\r
- if (deltay==1)\r
- move += UPDATEWIDE;\r
- else if (deltay==-1)\r
- move -= UPDATEWIDE;\r
-\r
- updateptr+=move;\r
-\r
-//\r
-// draw the new tiles just scrolled on to the master screen, and\r
-// mark them as needing to be copied to each screen next refreshes\r
-// Make sure a zero is at the end of each row in update\r
-//\r
-\r
- if (deltax)\r
- {\r
- if (deltax==1)\r
- {\r
- RFL_NewRow (1); // new right row\r
- RFL_RemoveAnimsOnX (originxtile-1);\r
- }\r
- else\r
- {\r
- RFL_NewRow (3); // new left row\r
- RFL_RemoveAnimsOnX (originxtile+PORTTILESWIDE);\r
- }\r
-\r
- spotptr = updateptr+PORTTILESWIDE;\r
- for (yy=0;yy<PORTTILESHIGH;yy++)\r
- {\r
- *spotptr = 0; // drop a 0 at end of each row\r
- spotptr+=UPDATEWIDE;\r
- }\r
- }\r
-\r
-//----------------\r
-\r
- if (deltay)\r
- {\r
- if (deltay==1)\r
- {\r
- RFL_NewRow (2); // new bottom row\r
- *(updateptr+UPDATEWIDE*(PORTTILESHIGH-1)+PORTTILESWIDE) = 0;\r
- RFL_RemoveAnimsOnY (originytile-1);\r
- }\r
- else\r
- {\r
- RFL_NewRow (0); // new top row\r
- *(updateptr+PORTTILESWIDE) = 0;\r
- RFL_RemoveAnimsOnY (originytile+PORTTILESHIGH);\r
- }\r
- }\r
-\r
-//----------------\r
-\r
- //\r
- // place a new terminator\r
- //\r
- spotptr = updateptr+UPDATEWIDE*PORTTILESHIGH-1;\r
- *spotptr++ = 0;\r
- *(unsigned *)spotptr = UPDATETERMINATE;\r
-}\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_PlaceSprite CGA\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_PlaceSprite (void **user,unsigned globalx,unsigned globaly,\r
- unsigned spritenumber, drawtype draw, int priority)\r
-{\r
- spritelisttype register *sprite,*next;\r
- spritetabletype far *spr;\r
- spritetype _seg *block;\r
- unsigned shift,pixx;\r
- char str[80],str2[10];\r
-\r
- if (!spritenumber || spritenumber == (unsigned)-1)\r
- {\r
- RF_RemoveSprite (user);\r
- return;\r
- }\r
-\r
- sprite = (spritelisttype *)*user;\r
-\r
- if (sprite)\r
- {\r
- // sprite allready exists in the list, so we can use it's block\r
-\r
- //\r
- // post an erase block to erase the old position by copying\r
- // screenx,screeny,width,height\r
- //\r
- if (!sprite->updatecount) // may not have been drawn at all yet\r
- memcpy (eraselistptr[0]++,sprite,sizeof(eraseblocktype));\r
-\r
- if (priority != sprite->priority)\r
- {\r
- // sprite moved to another priority, so unlink the old one and\r
- // relink it in the new priority\r
-\r
- next = sprite->nextsprite; // cut old links\r
- if (next)\r
- next->prevptr = sprite->prevptr;\r
- *sprite->prevptr = next;\r
- goto linknewspot;\r
- }\r
- }\r
- else\r
- {\r
- // this is a brand new sprite, so allocate a block from the array\r
-\r
- if (!spritefreeptr)\r
- Quit ("RF_PlaceSprite: No free spots in spritearray!");\r
-\r
- sprite = spritefreeptr;\r
- spritefreeptr = spritefreeptr->nextsprite;\r
-\r
-linknewspot:\r
- next = prioritystart[priority]; // stick it in new spot\r
- if (next)\r
- next->prevptr = &sprite->nextsprite;\r
- sprite->nextsprite = next;\r
- prioritystart[priority] = sprite;\r
- sprite->prevptr = &prioritystart[priority];\r
- }\r
-\r
-//\r
-// write the new info to the sprite\r
-//\r
- spr = &spritetable[spritenumber-STARTSPRITES];\r
- block = (spritetype _seg *)grsegs[spritenumber];\r
-\r
- if (!block)\r
- {\r
- strcpy (str,"RF_PlaceSprite: Placed an uncached sprite!");\r
- itoa (spritenumber,str2,10);\r
- strcat (str,str2);\r
- Quit (str);\r
- }\r
-\r
-\r
- globaly+=spr->orgy;\r
- globalx+=spr->orgx;\r
-\r
- sprite->screenx = globalx >> G_CGASX_SHIFT;\r
- sprite->screeny = globaly >> G_SY_SHIFT;\r
- sprite->width = block->width[0];\r
- sprite->height = spr->height;\r
- sprite->grseg = spritenumber;\r
- sprite->sourceofs = block->sourceoffset[0];\r
- sprite->planesize = block->planesize[0];\r
- sprite->draw = draw;\r
- sprite->priority = priority;\r
- sprite->tilex = sprite->screenx >> SX_T_SHIFT;\r
- sprite->tiley = sprite->screeny >> SY_T_SHIFT;\r
- sprite->tilewide = ( (sprite->screenx + sprite->width -1) >> SX_T_SHIFT )\r
- - sprite->tilex + 1;\r
- sprite->tilehigh = ( (sprite->screeny + sprite->height -1) >> SY_T_SHIFT )\r
- - sprite->tiley + 1;\r
-\r
- sprite->updatecount = 1; // draw on next refresh\r
-\r
-// save the sprite pointer off in the user's pointer so it can be moved\r
-// again later\r
-\r
- *user = sprite;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_RemoveSprite CGA\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_RemoveSprite (void **user)\r
-{\r
- spritelisttype *sprite,*next;\r
-\r
- sprite = (spritelisttype *)*user;\r
- if (!sprite)\r
- return;\r
-\r
-//\r
-// post an erase block to erase the old position by copying\r
-// screenx,screeny,width,height\r
-//\r
- if (!sprite->updatecount)\r
- {\r
- memcpy (eraselistptr[0]++,sprite,sizeof(eraseblocktype));\r
- }\r
-\r
-//\r
-// unlink the sprite node\r
-//\r
- next = sprite->nextsprite;\r
- if (next) // if (!next), sprite is last in chain\r
- next->prevptr = sprite->prevptr;\r
- *sprite->prevptr = next;\r
-\r
-//\r
-// add it back to the free list\r
-//\r
- sprite->nextsprite = spritefreeptr;\r
- spritefreeptr = sprite;\r
-\r
-//\r
-// null the users pointer, so next time that actor gets placed, it will\r
-// allocate a new block\r
-//\r
-\r
- *user = 0;\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= RFL_EraseBlocks CGA\r
-=\r
-= Write mode 1 should be set\r
-=\r
-====================\r
-*/\r
-\r
-void RFL_EraseBlocks (void)\r
-{\r
- eraseblocktype *block,*done;\r
- int screenxh,screenyh;\r
- unsigned pos,xtl,ytl,xth,yth,x,y;\r
- byte *updatespot;\r
- unsigned updatedelta;\r
-\r
- block = &eraselist[0][0];\r
-\r
- done = eraselistptr[0];\r
-\r
- while (block != done)\r
- {\r
-\r
- //\r
- // clip the block to the current screen view\r
- //\r
- block->screenx -= originxscreen;\r
- block->screeny -= originyscreen;\r
-\r
- if (block->screenx < 0)\r
- {\r
- block->width += block->screenx;\r
- if (block->width<1)\r
- goto next;\r
- block->screenx = 0;\r
- }\r
-\r
- if (block->screeny < 0)\r
- {\r
- block->height += block->screeny;\r
- if (block->height<1)\r
- goto next;\r
- block->screeny = 0;\r
- }\r
-\r
- screenxh = block->screenx + block->width;\r
- screenyh = block->screeny + block->height;\r
-\r
- if (screenxh > CGAPORTSCREENWIDE)\r
- {\r
- block->width = CGAPORTSCREENWIDE-block->screenx;\r
- screenxh = block->screenx + block->width;\r
- }\r
-\r
- if (screenyh > PORTSCREENHIGH)\r
- {\r
- block->height = PORTSCREENHIGH-block->screeny;\r
- screenyh = block->screeny + block->height;\r
- }\r
-\r
- if (block->width<1 || block->height<1)\r
- goto next;\r
-\r
- //\r
- // erase the block by copying from the master screen\r
- //\r
- pos = ylookup[block->screeny]+block->screenx;\r
- block->width = (block->width + (pos&1) + 1)& ~1;\r
- pos &= ~1; // make sure a word copy gets used\r
- VW_ScreenToScreen (masterofs+pos,bufferofs+pos,\r
- block->width,block->height);\r
-\r
- //\r
- // put 2s in update where the block was, to force sprites to update\r
- //\r
- xtl = block->screenx >> SX_T_SHIFT;\r
- xth = (block->screenx+block->width-1) >> SX_T_SHIFT;\r
- ytl = block->screeny >> SY_T_SHIFT;\r
- yth = (block->screeny+block->height-1) >> SY_T_SHIFT;\r
-\r
- updatespot = updateptr + uwidthtable[ytl] + xtl;\r
- updatedelta = UPDATEWIDE - (xth-xtl+1);\r
-\r
- for (y=ytl;y<=yth;y++)\r
- {\r
- for (x=xtl;x<=xth;x++)\r
- *updatespot++ = 2;\r
- updatespot += updatedelta; // down to next line\r
- }\r
-\r
-next:\r
- block++;\r
- }\r
- eraselistptr[0] = &eraselist[0][0];\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= RFL_UpdateSprites CGA\r
-=\r
-= NOTE: Implement vertical clipping!\r
-=\r
-====================\r
-*/\r
-\r
-void RFL_UpdateSprites (void)\r
-{\r
- spritelisttype *sprite;\r
- int portx,porty,x,y,xtl,xth,ytl,yth;\r
- int priority;\r
- unsigned dest;\r
- byte *updatespot,*baseupdatespot;\r
- unsigned updatedelta;\r
-\r
- unsigned updatecount;\r
- unsigned height,sourceofs;\r
-\r
-#ifdef PROFILE\r
- updatecount = 0;\r
-#endif\r
-\r
-\r
- for (priority=0;priority<PRIORITIES;priority++)\r
- {\r
- if (priority==MASKEDTILEPRIORITY)\r
- RFL_MaskForegroundTiles ();\r
-\r
- for (sprite = prioritystart[priority]; sprite ;\r
- sprite = (spritelisttype *)sprite->nextsprite)\r
- {\r
- //\r
- // see if the sprite has any visable area in the port\r
- //\r
-\r
- portx = sprite->screenx - originxscreen;\r
- porty = sprite->screeny - originyscreen;\r
- xtl = portx >> SX_T_SHIFT;\r
- xth = (portx + sprite->width-1) >> SX_T_SHIFT;\r
- ytl = porty >> SY_T_SHIFT;\r
- yth = (porty + sprite->height-1) >> SY_T_SHIFT;\r
-\r
- if (xtl<0)\r
- xtl = 0;\r
- if (xth>=PORTTILESWIDE)\r
- xth = PORTTILESWIDE-1;\r
- if (ytl<0)\r
- ytl = 0;\r
- if (yth>=PORTTILESHIGH)\r
- yth = PORTTILESHIGH-1;\r
-\r
- if (xtl>xth || ytl>yth)\r
- continue;\r
-\r
- //\r
- // see if it's visable area covers any non 0 update tiles\r
- //\r
- updatespot = baseupdatespot = updateptr + uwidthtable[ytl] + xtl;\r
- updatedelta = UPDATEWIDE - (xth-xtl+1);\r
-\r
- if (sprite->updatecount)\r
- {\r
- sprite->updatecount--; // the sprite was just placed,\r
- goto redraw; // so draw it for sure\r
- }\r
-\r
- for (y=ytl;y<=yth;y++)\r
- {\r
- for (x=xtl;x<=xth;x++)\r
- if (*updatespot++)\r
- goto redraw;\r
- updatespot += updatedelta; // down to next line\r
- }\r
- continue; // no need to update\r
-\r
-redraw:\r
- //\r
- // set the tiles it covers to 3, because those tiles are being\r
- // updated\r
- //\r
- updatespot = baseupdatespot;\r
- for (y=ytl;y<=yth;y++)\r
- {\r
- for (x=xtl;x<=xth;x++)\r
- *updatespot++ = 3;\r
- updatespot += updatedelta; // down to next line\r
- }\r
- //\r
- // draw it!\r
- //\r
- height = sprite->height;\r
- sourceofs = sprite->sourceofs;\r
- if (porty<0)\r
- {\r
- height += porty; // clip top off\r
- sourceofs -= porty*sprite->width;\r
- porty = 0;\r
- }\r
- else if (porty+height>PORTSCREENHIGH)\r
- {\r
- height = PORTSCREENHIGH - porty; // clip bottom off\r
- }\r
-\r
- dest = bufferofs + ylookup[porty] + portx;\r
-\r
- switch (sprite->draw)\r
- {\r
- case spritedraw:\r
- VW_MaskBlock(grsegs[sprite->grseg], sourceofs,\r
- dest,sprite->width,height,sprite->planesize);\r
- break;\r
-\r
- case maskdraw:\r
- VW_InverseMask(grsegs[sprite->grseg], sourceofs,\r
- dest,sprite->width,height);\r
- break;\r
-\r
- }\r
-#ifdef PROFILE\r
- updatecount++;\r
-#endif\r
-\r
-\r
- }\r
- }\r
-}\r
-\r
-\r
-/*\r
-=====================\r
-=\r
-= RF_Refresh CGA\r
-=\r
-= All routines will draw at the port at bufferofs, possibly copying from\r
-= the port at masterofs. The EGA version then page flips, while the\r
-= CGA version updates the screen from the buffer port.\r
-=\r
-= Screenpage is the currently displayed page, not the one being drawn\r
-= Otherpage is the page to be worked with now\r
-=\r
-=====================\r
-*/\r
-\r
-void RF_Refresh (void)\r
-{\r
- long newtime,oldtimecount;\r
-\r
- RFL_AnimateTiles ();\r
-\r
-//\r
-// update newly scrolled on tiles and animated tiles from the master screen\r
-//\r
- RFL_UpdateTiles ();\r
- RFL_EraseBlocks ();\r
-\r
-//\r
-// Update is all 0 except where sprites have changed or new area has\r
-// been scrolled on. Go through all sprites and update the ones that cover\r
-// a non 0 update tile\r
-//\r
- RFL_UpdateSprites ();\r
-\r
-//\r
-// if the main program has a refresh hook set, call their function before\r
-// displaying the new page\r
-//\r
- if (refreshvector)\r
- refreshvector();\r
-\r
-//\r
-// update everything to the screen\r
-//\r
- VW_CGAFullUpdate ();\r
-\r
-//\r
-// calculate tics since last refresh for adaptive timing\r
-//\r
- RF_CalcTics ();\r
-}\r
-\r
-#endif // GRMODE == CGAGR\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_RF.H\r
-\r
-#define __ID_RF__\r
-\r
-#ifndef __ID_MM__\r
-#include "ID_MM.H"\r
-#endif\r
-\r
-/*\r
-=============================================================================\r
-\r
- CONSTANTS\r
-\r
-=============================================================================\r
-*/\r
-\r
-#define MINTICS 2\r
-#define MAXTICS 5\r
-#define DEMOTICS 3\r
-\r
-#define MAPBORDER 2 // map border must be at least 1\r
-\r
-#ifdef KEEN5\r
-\r
-#define MAXSPRITES 60 // max tracked sprites\r
-#define MAXANIMTILES 90 // max animating tiles on screen\r
-#define MAXANIMTYPES 80 // max different unique anim tiles on map\r
-\r
-#define MAXMAPHEIGHT 250\r
-\r
-#else\r
-\r
-#define MAXSPRITES 60 // max tracked sprites\r
-#define MAXANIMTILES 90 // max animating tiles on screen\r
-#define MAXANIMTYPES 65 // max different unique anim tiles on map\r
-\r
-#define MAXMAPHEIGHT 200\r
-\r
-#endif\r
-\r
-#define PRIORITIES 4\r
-#define MASKEDTILEPRIORITY 3 // planes go: 0,1,2,MTILES,3\r
-\r
-#define TILEGLOBAL 256\r
-#define PIXGLOBAL 16\r
-\r
-#define G_T_SHIFT 8 // global >> ?? = tile\r
-#define G_P_SHIFT 4 // global >> ?? = pixels\r
-#define P_T_SHIFT 4 // pixels >> ?? = tile\r
-\r
-#define PORTTILESWIDE 21 // all drawing takes place inside a\r
-#define PORTTILESHIGH 14 // non displayed port of this size\r
-\r
-//#define PORTGLOBALWIDE (21*TILEGLOBAL)\r
-//#define PORTGLOBALHIGH (14*TILEGLOBAL)\r
-\r
-#define UPDATEWIDE (PORTTILESWIDE+1)\r
-#define UPDATEHIGH PORTTILESHIGH\r
-\r
-\r
-//===========================================================================\r
-\r
-typedef enum {spritedraw,maskdraw} drawtype;\r
-\r
-/*\r
-=============================================================================\r
-\r
- PUBLIC VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-\r
-extern boolean compatability; // crippled refresh for wierdo SVGAs\r
-\r
-extern unsigned tics;\r
-extern long lasttimecount;\r
-\r
-extern unsigned originxglobal,originyglobal;\r
-extern unsigned originxtile,originytile;\r
-extern unsigned originxscreen,originyscreen;\r
-\r
-extern unsigned mapwidth,mapheight,mapbyteswide,mapwordswide\r
- ,mapbytesextra,mapwordsextra;\r
-extern unsigned mapbwidthtable[MAXMAPHEIGHT];\r
-\r
-extern unsigned originxmin,originxmax,originymin,originymax;\r
-\r
-extern unsigned masterofs;\r
-\r
-//\r
-// the floating update window is also used by the view manager for\r
-// double buffer tracking\r
-//\r
-\r
-extern byte *updateptr; // current start of update window\r
-\r
-#if GRMODE == CGAGR\r
-extern byte *baseupdateptr;\r
-#endif\r
-\r
-extern unsigned blockstarts[UPDATEWIDE*UPDATEHIGH];\r
-extern unsigned updatemapofs[UPDATEWIDE*UPDATEHIGH];\r
-extern unsigned uwidthtable[UPDATEHIGH]; // lookup instead of multiple\r
-\r
-#define UPDATETERMINATE 0x0301\r
-\r
-/*\r
-=============================================================================\r
-\r
- PUBLIC FUNCTIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-void RF_Startup (void);\r
-void RF_Shutdown (void);\r
-\r
-void RF_FixOfs (void);\r
-void RF_NewMap (void);\r
-void RF_MarkTileGraphics (void);\r
-void RF_SetScrollBlock (int x, int y, boolean horizontal);\r
-void RF_NewPosition (unsigned x, unsigned y);\r
-void RF_Scroll (int x, int y);\r
-\r
-void RF_MapToMap (unsigned srcx, unsigned srcy,\r
- unsigned destx, unsigned desty,\r
- unsigned width, unsigned height);\r
-void RF_MemToMap (unsigned far *source, unsigned plane,\r
- unsigned destx, unsigned desty,\r
- unsigned width, unsigned height);\r
-\r
-void RF_ClearBlock (int x, int y, int width, int height);\r
-void RF_RedrawBlock (int x, int y, int width, int height);\r
-\r
-void RF_PlaceSprite (void **user,unsigned globalx,unsigned globaly,\r
- unsigned spritenumber, drawtype draw, int priority);\r
-void RF_RemoveSprite (void **user);\r
-\r
-void RF_CalcTics (void);\r
-\r
-void RF_Refresh (void);\r
-void RF_ForceRefresh (void);\r
-void RF_SetRefreshHook (void (*func) (void) );\r
-\r
-unsigned RF_FindFreeBuffer (void);\r
-\r
+++ /dev/null
-; Catacomb 3-D Source Code\r
-; Copyright (C) 1993-2014 Flat Rock Software\r
-;\r
-; This program is free software; you can redistribute it and/or modify\r
-; it under the terms of the GNU General Public License as published by\r
-; the Free Software Foundation; either version 2 of the License, or\r
-; (at your option) any later version.\r
-;\r
-; This program is distributed in the hope that it will be useful,\r
-; but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-; GNU General Public License for more details.\r
-;\r
-; You should have received a copy of the GNU General Public License along\r
-; with this program; if not, write to the Free Software Foundation, Inc.,\r
-; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
-\r
-; ID_RF_A.ASM\r
-\r
-IDEAL\r
-MODEL MEDIUM,C\r
-\r
-INCLUDE "ID_ASM.EQU"\r
-\r
-;============================================================================\r
-\r
-TILESWIDE = 21\r
-TILESHIGH = 14\r
-\r
-UPDATESIZE = (TILESWIDE+1)*TILESHIGH+1\r
-\r
-DATASEG\r
-\r
-EXTRN screenseg:WORD\r
-EXTRN updateptr:WORD\r
-EXTRN updatestart:WORD\r
-EXTRN masterofs:WORD ;start of master tile port\r
-EXTRN bufferofs:WORD ;start of current buffer port\r
-EXTRN screenstart:WORD ;starts of three screens (0/1/master) in EGA mem\r
-EXTRN grsegs:WORD\r
-EXTRN mapsegs:WORD\r
-EXTRN originmap:WORD\r
-EXTRN updatemapofs:WORD\r
-EXTRN tinf:WORD ;seg pointer to map header and tile info\r
-EXTRN blockstarts:WORD ;offsets from bufferofs for each update block\r
-\r
-planemask db ?\r
-planenum db ?\r
-\r
-CODESEG\r
-\r
-screenstartcs dw ? ;in code segment for accesability\r
-\r
-\r
-\r
-\r
-IFE GRMODE-CGAGR\r
-;============================================================================\r
-;\r
-; CGA refresh routines\r
-;\r
-;============================================================================\r
-\r
-TILEWIDTH = 4\r
-\r
-;=================\r
-;\r
-; RFL_NewTile\r
-;\r
-; Draws a composit two plane tile to the master screen and sets the update\r
-; spot to 1 in both update pages, forcing the tile to be copied to the\r
-; view pages the next two refreshes\r
-;\r
-; Called to draw newlly scrolled on strips and animating tiles\r
-;\r
-;=================\r
-\r
-PROC RFL_NewTile updateoffset:WORD\r
-PUBLIC RFL_NewTile\r
-USES SI,DI\r
-\r
-;\r
-; mark both update lists at this spot\r
-;\r
- mov di,[updateoffset]\r
-\r
- mov bx,[updateptr] ;start of update matrix\r
- mov [BYTE bx+di],1\r
-\r
- mov dx,SCREENWIDTH-TILEWIDTH ;add to get to start of next line\r
-\r
-;\r
-; set di to the location in screenseg to draw the tile\r
-;\r
- shl di,1\r
- mov si,[updatemapofs+di] ;offset in map from origin\r
- add si,[originmap]\r
- mov di,[blockstarts+di] ;screen location for tile\r
- add di,[masterofs]\r
-\r
-;\r
-; set BX to the foreground tile number and SI to the background number\r
-; If either BX or SI = 0xFFFF, the tile does not need to be masked together\r
-; as one of the planes totally eclipses the other\r
-;\r
- mov es,[mapsegs+2] ;foreground plane\r
- mov bx,[es:si]\r
- mov es,[mapsegs] ;background plane\r
- mov si,[es:si]\r
-\r
- mov es,[screenseg]\r
-\r
- or bx,bx\r
- jz @@singletile\r
- jmp @@maskeddraw ;draw both together\r
-\r
-;=============\r
-;\r
-; Draw single background tile from main memory\r
-;\r
-;=============\r
-\r
-@@singletile:\r
- shl si,1\r
- mov ds,[grsegs+STARTTILE16*2+si]\r
-\r
- xor si,si ;block is segment aligned\r
-\r
-REPT 15\r
- movsw\r
- movsw\r
- add di,dx\r
-ENDM\r
- movsw\r
- movsw\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
- ret\r
-\r
-\r
-;=========\r
-;\r
-; Draw a masked tile combo\r
-; Interupts are disabled and the stack segment is reassigned\r
-;\r
-;=========\r
-@@maskeddraw:\r
- cli ; don't allow ints when SS is set\r
- shl bx,1\r
- mov ss,[grsegs+STARTTILE16M*2+bx]\r
- shl si,1\r
- mov ds,[grsegs+STARTTILE16*2+si]\r
-\r
- xor si,si ;first word of tile data\r
-\r
-REPT 16\r
- mov ax,[si] ;background tile\r
- and ax,[ss:si] ;mask\r
- or ax,[ss:si+64] ;masked data\r
- stosw\r
- mov ax,[si+2] ;background tile\r
- and ax,[ss:si+2] ;mask\r
- or ax,[ss:si+66] ;masked data\r
- stosw\r
- add si,4\r
- add di,dx\r
-ENDM\r
-\r
- mov ax,@DATA\r
- mov ss,ax\r
- sti\r
- mov ds,ax\r
- ret\r
-ENDP\r
-\r
-ENDIF\r
-\r
-\r
-\r
-IFE GRMODE-EGAGR\r
-;===========================================================================\r
-;\r
-; EGA refresh routines\r
-;\r
-;===========================================================================\r
-\r
-TILEWIDTH = 2\r
-\r
-;=================\r
-;\r
-; RFL_NewTile\r
-;\r
-; Draws a composit two plane tile to the master screen and sets the update\r
-; spot to 1 in both update pages, forcing the tile to be copied to the\r
-; view pages the next two refreshes\r
-;\r
-; Called to draw newlly scrolled on strips and animating tiles\r
-;\r
-; Assumes write mode 0\r
-;\r
-;=================\r
-\r
-PROC RFL_NewTile updateoffset:WORD\r
-PUBLIC RFL_NewTile\r
-USES SI,DI\r
-\r
-;\r
-; mark both update lists at this spot\r
-;\r
- mov di,[updateoffset]\r
-\r
- mov bx,[updatestart] ;page 0 pointer\r
- mov [BYTE bx+di],1\r
- mov bx,[updatestart+2] ;page 1 pointer\r
- mov [BYTE bx+di],1\r
-\r
-;\r
-; set screenstartcs to the location in screenseg to draw the tile\r
-;\r
- shl di,1\r
- mov si,[updatemapofs+di] ;offset in map from origin\r
- add si,[originmap]\r
- mov di,[blockstarts+di] ;screen location for tile\r
- add di,[masterofs]\r
- mov [cs:screenstartcs],di\r
-\r
-;\r
-; set BX to the foreground tile number and SI to the background number\r
-; If either BX or SI = 0xFFFF, the tile does not need to be masked together\r
-; as one of the planes totally eclipses the other\r
-;\r
- mov es,[mapsegs+2] ;foreground plane\r
- mov bx,[es:si]\r
- mov es,[mapsegs] ;background plane\r
- mov si,[es:si]\r
-\r
- mov es,[screenseg]\r
- mov dx,SC_INDEX ;for stepping through map mask planes\r
-\r
- or bx,bx\r
- jz @@singletile\r
- jmp @@maskeddraw ;draw both together\r
-\r
-;=========\r
-;\r
-; No foreground tile, so draw a single background tile.\r
-;\r
-;=========\r
-@@singletile:\r
-\r
- mov bx,SCREENWIDTH-2 ;add to get to start of next line\r
- shl si,1\r
-\r
- mov ax,[cs:screenstartcs]\r
- mov ds,[grsegs+STARTTILE16*2+si]\r
-\r
- xor si,si ;block is segment aligned\r
-\r
- mov ax,SC_MAPMASK+0001b*256 ;map mask for plane 0\r
-\r
- mov cx,4 ;draw four planes\r
-@@planeloop:\r
- mov dx,SC_INDEX\r
- WORDOUT\r
-\r
- mov di,[cs:screenstartcs] ;start at same place in all planes\r
-\r
-REPT 15\r
- movsw\r
- add di,bx\r
-ENDM\r
- movsw\r
-\r
- shl ah,1 ;shift plane mask over for next plane\r
- loop @@planeloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
- ret\r
-\r
-\r
-;=========\r
-;\r
-; Draw a masked tile combo\r
-; Interupts are disabled and the stack segment is reassigned\r
-;\r
-;=========\r
-@@maskeddraw:\r
- cli ; don't allow ints when SS is set\r
- shl bx,1\r
- mov ss,[grsegs+STARTTILE16M*2+bx]\r
- shl si,1\r
- mov ds,[grsegs+STARTTILE16*2+si]\r
-\r
- xor si,si ;first word of tile data\r
-\r
- mov ax,SC_MAPMASK+0001b*256 ;map mask for plane 0\r
-\r
- mov di,[cs:screenstartcs]\r
-@@planeloopm:\r
- WORDOUT\r
-tileofs = 0\r
-lineoffset = 0\r
-REPT 16\r
- mov bx,[si+tileofs] ;background tile\r
- and bx,[ss:tileofs] ;mask\r
- or bx,[ss:si+tileofs+32] ;masked data\r
- mov [es:di+lineoffset],bx\r
-tileofs = tileofs + 2\r
-lineoffset = lineoffset + SCREENWIDTH\r
-ENDM\r
- add si,32\r
- shl ah,1 ;shift plane mask over for next plane\r
- cmp ah,10000b\r
- je @@done ;drawn all four planes\r
- jmp @@planeloopm\r
-\r
-@@done:\r
- mov ax,@DATA\r
- mov ss,ax\r
- sti\r
- mov ds,ax\r
- ret\r
-ENDP\r
-\r
-ENDIF\r
-\r
-IFE GRMODE-VGAGR\r
-;============================================================================\r
-;\r
-; VGA refresh routines\r
-;\r
-;============================================================================\r
-\r
-\r
-ENDIF\r
-\r
-\r
-;============================================================================\r
-;\r
-; reasonably common refresh routines\r
-;\r
-;============================================================================\r
-\r
-\r
-;=================\r
-;\r
-; RFL_UpdateTiles\r
-;\r
-; Scans through the update matrix pointed to by updateptr, looking for 1s.\r
-; A 1 represents a tile that needs to be copied from the master screen to the\r
-; current screen (a new row or an animated tiled). If more than one adjacent\r
-; tile in a horizontal row needs to be copied, they will be copied as a group.\r
-;\r
-; Assumes write mode 1\r
-;\r
-;=================\r
-\r
-\r
-; AX 0/1 for scasb, temp for segment register transfers\r
-; BX width for block copies\r
-; CX REP counter\r
-; DX line width deltas\r
-; SI source for copies\r
-; DI scas dest / movsb dest\r
-; BP pointer to UPDATETERMINATE\r
-;\r
-; DS\r
-; ES\r
-; SS\r
-\r
-PROC RFL_UpdateTiles\r
-PUBLIC RFL_UpdateTiles\r
-USES SI,DI,BP\r
-\r
- jmp SHORT @@realstart\r
-@@done:\r
-;\r
-; all tiles have been scanned\r
-;\r
- ret\r
-\r
-@@realstart:\r
- mov di,[updateptr]\r
- mov bp,(TILESWIDE+1)*TILESHIGH+1\r
- add bp,di ; when di = bx, all tiles have been scanned\r
- push di\r
- mov cx,-1 ; definately scan the entire thing\r
-\r
-;\r
-; scan for a 1 in the update list, meaning a tile needs to be copied\r
-; from the master screen to the current screen\r
-;\r
-@@findtile:\r
- pop di ; place to continue scaning from\r
- mov ax,ss\r
- mov es,ax ; search in the data segment\r
- mov ds,ax\r
- mov al,1\r
- repne scasb\r
- cmp di,bp\r
- je @@done\r
-\r
- cmp [BYTE di],al\r
- jne @@singletile\r
- jmp @@tileblock\r
-\r
-;============\r
-;\r
-; copy a single tile\r
-;\r
-;============\r
-EVEN\r
-@@singletile:\r
- inc di ; we know the next tile is nothing\r
- push di ; save off the spot being scanned\r
- sub di,[updateptr]\r
- shl di,1\r
- mov di,[blockstarts-4+di] ; start of tile location on screen\r
- mov si,di\r
- add di,[bufferofs] ; dest in current screen\r
- add si,[masterofs] ; source in master screen\r
-\r
- mov dx,SCREENWIDTH-TILEWIDTH\r
- mov ax,[screenseg]\r
- mov ds,ax\r
- mov es,ax\r
-\r
-;--------------------------\r
-\r
-IFE GRMODE-CGAGR\r
-\r
-REPT 15\r
- movsw\r
- movsw\r
- add si,dx\r
- add di,dx\r
-ENDM\r
- movsw\r
- movsw\r
-\r
-ENDIF\r
-\r
-;--------------------------\r
-\r
-IFE GRMODE-EGAGR\r
-\r
-REPT 15\r
- movsb\r
- movsb\r
- add si,dx\r
- add di,dx\r
-ENDM\r
- movsb\r
- movsb\r
-\r
-ENDIF\r
-\r
-;--------------------------\r
-\r
- jmp @@findtile\r
-\r
-;============\r
-;\r
-; more than one tile in a row needs to be updated, so do it as a group\r
-;\r
-;============\r
-EVEN\r
-@@tileblock:\r
- mov dx,di ; hold starting position + 1 in dx\r
- inc di ; we know the next tile also gets updated\r
- repe scasb ; see how many more in a row\r
- push di ; save off the spot being scanned\r
-\r
- mov bx,di\r
- sub bx,dx ; number of tiles in a row\r
- shl bx,1 ; number of bytes / row\r
-\r
- mov di,dx ; lookup position of start tile\r
- sub di,[updateptr]\r
- shl di,1\r
- mov di,[blockstarts-2+di] ; start of tile location\r
- mov si,di\r
- add di,[bufferofs] ; dest in current screen\r
- add si,[masterofs] ; source in master screen\r
-\r
- mov dx,SCREENWIDTH\r
- sub dx,bx ; offset to next line on screen\r
-IFE GRMODE-CGAGR\r
- sub dx,bx ; bx is words wide in CGA tiles\r
-ENDIF\r
-\r
- mov ax,[screenseg]\r
- mov ds,ax\r
- mov es,ax\r
-\r
-REPT 15\r
- mov cx,bx\r
-IFE GRMODE-CGAGR\r
- rep movsw\r
-ENDIF\r
-IFE GRMODE-EGAGR\r
- rep movsb\r
-ENDIF\r
- add si,dx\r
- add di,dx\r
-ENDM\r
- mov cx,bx\r
-IFE GRMODE-CGAGR\r
- rep movsw\r
-ENDIF\r
-IFE GRMODE-EGAGR\r
- rep movsb\r
-ENDIF\r
-\r
- dec cx ; was 0 from last rep movsb, now $ffff for scasb\r
- jmp @@findtile\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-\r
-\r
-;=================\r
-;\r
-; RFL_MaskForegroundTiles\r
-;\r
-; Scan through update looking for 3's. If the foreground tile there is a\r
-; masked foreground tile, draw it to the screen\r
-;\r
-;=================\r
-\r
-PROC RFL_MaskForegroundTiles\r
-PUBLIC RFL_MaskForegroundTiles\r
-USES SI,DI,BP\r
- jmp SHORT @@realstart\r
-@@done:\r
-;\r
-; all tiles have been scanned\r
-;\r
- ret\r
-\r
-@@realstart:\r
- mov di,[updateptr]\r
- mov bp,(TILESWIDE+1)*TILESHIGH+2\r
- add bp,di ; when di = bx, all tiles have been scanned\r
- push di\r
- mov cx,-1 ; definately scan the entire thing\r
-;\r
-; scan for a 3 in the update list\r
-;\r
-@@findtile:\r
- mov ax,ss\r
- mov es,ax ; scan in the data segment\r
- mov al,3\r
- pop di ; place to continue scaning from\r
- repne scasb\r
- cmp di,bp\r
- je @@done\r
-\r
-;============\r
-;\r
-; found a tile, see if it needs to be masked on\r
-;\r
-;============\r
-\r
- push di\r
-\r
- sub di,[updateptr]\r
- shl di,1\r
- mov si,[updatemapofs-2+di] ; offset from originmap\r
- add si,[originmap]\r
-\r
- mov es,[mapsegs+2] ; foreground map plane segment\r
- mov si,[es:si] ; foreground tile number\r
-\r
- or si,si\r
- jz @@findtile ; 0 = no foreground tile\r
-\r
- mov bx,si\r
- add bx,INTILE ;INTILE tile info table\r
- mov es,[tinf]\r
- test [BYTE PTR es:bx],80h ;high bit = masked tile\r
- jz @@findtile\r
-\r
-;-------------------\r
-\r
-IFE GRMODE-CGAGR\r
-;=================\r
-;\r
-; mask the tile CGA\r
-;\r
-;=================\r
-\r
- mov di,[blockstarts-2+di]\r
- add di,[bufferofs]\r
- mov es,[screenseg]\r
- shl si,1\r
- mov ds,[grsegs+STARTTILE16M*2+si]\r
-\r
- mov bx,64 ;data starts 64 bytes after mask\r
-\r
- xor si,si\r
-\r
-lineoffset = 0\r
-REPT 16\r
- mov ax,[es:di+lineoffset] ;background\r
- and ax,[si] ;mask\r
- or ax,[si+bx] ;masked data\r
- mov [es:di+lineoffset],ax ;background\r
- inc si\r
- inc si\r
- mov ax,[es:di+lineoffset+2] ;background\r
- and ax,[si] ;mask\r
- or ax,[si+bx] ;masked data\r
- mov [es:di+lineoffset+2],ax ;background\r
- inc si\r
- inc si\r
-lineoffset = lineoffset + SCREENWIDTH\r
-ENDM\r
-ENDIF\r
-\r
-;-------------------\r
-\r
-IFE GRMODE-EGAGR\r
-;=================\r
-;\r
-; mask the tile\r
-;\r
-;=================\r
-\r
- mov [BYTE planemask],1\r
- mov [BYTE planenum],0\r
-\r
- mov di,[blockstarts-2+di]\r
- add di,[bufferofs]\r
- mov [cs:screenstartcs],di\r
- mov es,[screenseg]\r
- shl si,1\r
- mov ds,[grsegs+STARTTILE16M*2+si]\r
-\r
- mov bx,32 ;data starts 32 bytes after mask\r
-\r
-@@planeloopm:\r
- mov dx,SC_INDEX\r
- mov al,SC_MAPMASK\r
- mov ah,[ss:planemask]\r
- WORDOUT\r
- mov dx,GC_INDEX\r
- mov al,GC_READMAP\r
- mov ah,[ss:planenum]\r
- WORDOUT\r
-\r
- xor si,si\r
- mov di,[cs:screenstartcs]\r
-lineoffset = 0\r
-REPT 16\r
- mov cx,[es:di+lineoffset] ;background\r
- and cx,[si] ;mask\r
- or cx,[si+bx] ;masked data\r
- inc si\r
- inc si\r
- mov [es:di+lineoffset],cx\r
-lineoffset = lineoffset + SCREENWIDTH\r
-ENDM\r
- add bx,32 ;the mask is now further away\r
- inc [ss:planenum]\r
- shl [ss:planemask],1 ;shift plane mask over for next plane\r
- cmp [ss:planemask],10000b ;done all four planes?\r
- je @@drawn ;drawn all four planes\r
- jmp @@planeloopm\r
-\r
-@@drawn:\r
-ENDIF\r
-\r
-;-------------------\r
-\r
- mov ax,ss\r
- mov ds,ax\r
- mov cx,-1 ;definately scan the entire thing\r
-\r
- jmp @@findtile\r
-\r
-ENDP\r
-\r
-\r
-END\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-//\r
-// ID Engine\r
-// ID_SD.c - Sound Manager\r
-// v1.1d1\r
-// By Jason Blochowiak\r
-//\r
-\r
-//\r
-// This module handles dealing with generating sound on the appropriate\r
-// hardware\r
-//\r
-// Depends on: User Mgr (for parm checking)\r
-//\r
-// Globals:\r
-// For User Mgr:\r
-// SoundSourcePresent - Sound Source thingie present?\r
-// SoundBlasterPresent - SoundBlaster card present?\r
-// AdLibPresent - AdLib card present?\r
-// SoundMode - What device is used for sound effects\r
-// (Use SM_SetSoundMode() to set)\r
-// MusicMode - What device is used for music\r
-// (Use SM_SetMusicMode() to set)\r
-// For Cache Mgr:\r
-// NeedsDigitized - load digitized sounds?\r
-// NeedsMusic - load music?\r
-//\r
-\r
-#pragma hdrstop // Wierdo thing with MUSE\r
-\r
-#include <dos.h>\r
-\r
-#ifdef _MUSE_ // Will be defined in ID_Types.h\r
-#include "ID_SD.h"\r
-#else\r
-#include "ID_HEADS.H"\r
-#endif\r
-#pragma hdrstop\r
-#pragma warn -pia\r
-\r
-#define SDL_SoundFinished() {SoundNumber = SoundPriority = 0;}\r
-\r
-// Macros for AdLib stuff\r
-#define selreg(n) outportb(0x388,n)\r
-#define writereg(n) outportb(0x389,n)\r
-#define readstat() inportb(0x388)\r
-\r
-// Global variables\r
- boolean SoundSourcePresent,SoundBlasterPresent,AdLibPresent,QuietFX,\r
- NeedsDigitized,NeedsMusic;\r
- SDMode SoundMode;\r
- SMMode MusicMode;\r
- longword TimeCount;\r
- word HackCount;\r
- word *SoundTable; // Really * _seg *SoundTable, but that don't work\r
- boolean ssIsTandy;\r
- word ssPort = 2;\r
-\r
-// Internal variables\r
-static boolean SD_Started;\r
-static boolean TimerDone;\r
-static word TimerVal,TimerDelay10,TimerDelay25,TimerDelay100;\r
-static longword TimerDivisor,TimerCount;\r
-static char *ParmStrings[] =\r
- {\r
- "noal",\r
- "adlib",\r
- nil\r
- };\r
-static void (*SoundUserHook)(void);\r
-static word SoundNumber,SoundPriority;\r
-static void interrupt (*t0OldService)(void);\r
-//static word t0CountTable[] = {8,8,8,8,40,40};\r
-static long LocalTime;\r
-\r
-// PC Sound variables\r
-static byte pcLastSample,far *pcSound;\r
-static longword pcLengthLeft;\r
-static word pcSoundLookup[255];\r
-\r
-// AdLib variables\r
-static boolean alNoCheck;\r
-static byte far *alSound;\r
-static word alBlock;\r
-static longword alLengthLeft;\r
-static longword alTimeCount;\r
-static Instrument alZeroInst;\r
-\r
-// This table maps channel numbers to carrier and modulator op cells\r
-static byte carriers[9] = { 3, 4, 5,11,12,13,19,20,21},\r
- modifiers[9] = { 0, 1, 2, 8, 9,10,16,17,18},\r
-// This table maps percussive voice numbers to op cells\r
- pcarriers[5] = {19,0xff,0xff,0xff,0xff},\r
- pmodifiers[5] = {16,17,18,20,21};\r
-\r
-// Sequencer variables\r
-static boolean sqActive;\r
-static word alFXReg;\r
-static ActiveTrack *tracks[sqMaxTracks],\r
- mytracks[sqMaxTracks];\r
-static word sqMode,sqFadeStep;\r
-static word far *sqHack,far *sqHackPtr,sqHackLen,sqHackSeqLen;\r
-static long sqHackTime;\r
-\r
-// Internal routines\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_SetTimer0() - Sets system timer 0 to the specified speed\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-#pragma argsused\r
-static void\r
-SDL_SetTimer0(word speed)\r
-{\r
-#ifndef TPROF // If using Borland's profiling, don't screw with the timer\r
- outportb(0x43,0x36); // Change timer 0\r
- outportb(0x40,speed);\r
- outportb(0x40,speed >> 8);\r
- TimerDivisor = speed;\r
-#else\r
- TimerDivisor = 0x10000;\r
-#endif\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_SetIntsPerSec() - Uses SDL_SetTimer0() to set the number of\r
-// interrupts generated by system timer 0 per second\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_SetIntsPerSec(word ints)\r
-{\r
- SDL_SetTimer0(1192030 / ints);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_TimingService() - Used by SDL_InitDelay() to determine a timing\r
-// value for the current system that we're running on\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void interrupt\r
-SDL_TimingService(void)\r
-{\r
- TimerVal = _CX;\r
- TimerDone++;\r
-\r
- outportb(0x20,0x20); // Ack interrupt\r
-}\r
-\r
-#if 0\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_InitDelay() - Sets up TimerDelay's for SDL_Delay()\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_InitDelay(void)\r
-{\r
- int i;\r
- word timer;\r
-\r
- setvect(8,SDL_TimingService); // Set to my timer 0 ISR\r
-\r
- SDL_SetIntsPerSec(1000); // Time 1ms\r
-\r
- for (i = 0,timer = 0;i < 10;i++) // Do timing test 10 times\r
- {\r
- asm xor dx,dx // Zero DX\r
- asm mov cx,0xffff // Put starting value in CX\r
- asm mov [TimerDone],cx // TimerDone = false - 1\r
-startloop:\r
- asm or [TimerDone],0\r
- asm jnz startloop // Make sure we're at the start\r
-loop:\r
- asm test [TimerDone],1 // See if TimerDone flag got hit\r
- asm jnz done // Yep - drop out of the loop\r
- asm loop loop\r
-done:\r
-\r
- if (0xffff - TimerVal > timer)\r
- timer = 0xffff - TimerVal;\r
- }\r
- timer += timer / 2; // Use some slop\r
- TimerDelay10 = timer / (1000 / 10);\r
- TimerDelay25 = timer / (1000 / 25);\r
- TimerDelay100 = timer / (1000 / 100);\r
-\r
- SDL_SetTimer0(0); // Reset timer 0\r
-\r
- setvect(8,t0OldService); // Set back to old ISR\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_Delay() - Delays the specified amount of time\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_Delay(word delay)\r
-{\r
- if (!delay)\r
- return;\r
-\r
-asm mov cx,[delay]\r
-loop:\r
-asm test [TimerDone],0 // Useless code - just for timing equivilency\r
-asm jnz done\r
-asm loop loop\r
-done:;\r
-}\r
-#endif\r
-\r
-//\r
-// PC Sound code\r
-//\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_PCPlaySound() - Plays the specified sound on the PC speaker\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-#ifdef _MUSE_\r
-void\r
-#else\r
-static void\r
-#endif\r
-SDL_PCPlaySound(PCSound far *sound)\r
-{\r
-asm pushf\r
-asm cli\r
-\r
- pcLastSample = -1;\r
- pcLengthLeft = sound->common.length;\r
- pcSound = sound->data;\r
-\r
-asm popf\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_PCStopSound() - Stops the current sound playing on the PC Speaker\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-#ifdef _MUSE_\r
-void\r
-#else\r
-static void\r
-#endif\r
-SDL_PCStopSound(void)\r
-{\r
-asm pushf\r
-asm cli\r
-\r
- (long)pcSound = 0;\r
-\r
-asm in al,0x61 // Turn the speaker off\r
-asm and al,0xfd // ~2\r
-asm out 0x61,al\r
-\r
-asm popf\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_PCService() - Handles playing the next sample in a PC sound\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_PCService(void)\r
-{\r
- byte s;\r
- word t;\r
-\r
- if (pcSound)\r
- {\r
- s = *pcSound++;\r
- if (s != pcLastSample)\r
- {\r
- asm pushf\r
- asm cli\r
-\r
- pcLastSample = s;\r
- if (s) // We have a frequency!\r
- {\r
- t = pcSoundLookup[s];\r
- asm mov bx,[t]\r
-\r
- asm mov al,0xb6 // Write to channel 2 (speaker) timer\r
- asm out 43h,al\r
- asm mov al,bl\r
- asm out 42h,al // Low byte\r
- asm mov al,bh\r
- asm out 42h,al // High byte\r
-\r
- asm in al,0x61 // Turn the speaker & gate on\r
- asm or al,3\r
- asm out 0x61,al\r
- }\r
- else // Time for some silence\r
- {\r
- asm in al,0x61 // Turn the speaker & gate off\r
- asm and al,0xfc // ~3\r
- asm out 0x61,al\r
- }\r
-\r
- asm popf\r
- }\r
-\r
- if (!(--pcLengthLeft))\r
- {\r
- SDL_PCStopSound();\r
- SDL_SoundFinished();\r
- }\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_ShutPC() - Turns off the pc speaker\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_ShutPC(void)\r
-{\r
-asm pushf\r
-asm cli\r
-\r
- pcSound = 0;\r
-\r
-asm in al,0x61 // Turn the speaker & gate off\r
-asm and al,0xfc // ~3\r
-asm out 0x61,al\r
-\r
-asm popf\r
-}\r
-\r
-// AdLib Code\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// alOut(n,b) - Puts b in AdLib card register n\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-alOut(byte n,byte b)\r
-{\r
-asm pushf\r
-asm cli\r
-\r
-asm mov dx,0x388\r
-asm mov al,[n]\r
-asm out dx,al\r
-#if 0\r
- SDL_Delay(TimerDelay10);\r
-#else\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-#endif\r
-\r
-asm mov dx,0x389\r
-asm mov al,[b]\r
-asm out dx,al\r
-\r
-asm popf\r
-\r
-#if 0\r
- SDL_Delay(TimerDelay25);\r
-#else\r
-asm mov dx,0x388\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-asm in al, dx\r
-#endif\r
-}\r
-\r
-#if 0\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_SetInstrument() - Puts an instrument into a generator\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_SetInstrument(int track,int which,Instrument far *inst,boolean percussive)\r
-{\r
- byte c,m;\r
-\r
- if (percussive)\r
- {\r
- c = pcarriers[which];\r
- m = pmodifiers[which];\r
- }\r
- else\r
- {\r
- c = carriers[which];\r
- m = modifiers[which];\r
- }\r
-\r
- tracks[track - 1]->inst = *inst;\r
- tracks[track - 1]->percussive = percussive;\r
-\r
- alOut(m + alChar,inst->mChar);\r
- alOut(m + alScale,inst->mScale);\r
- alOut(m + alAttack,inst->mAttack);\r
- alOut(m + alSus,inst->mSus);\r
- alOut(m + alWave,inst->mWave);\r
-\r
- // Most percussive instruments only use one cell\r
- if (c != 0xff)\r
- {\r
- alOut(c + alChar,inst->cChar);\r
- alOut(c + alScale,inst->cScale);\r
- alOut(c + alAttack,inst->cAttack);\r
- alOut(c + alSus,inst->cSus);\r
- alOut(c + alWave,inst->cWave);\r
- }\r
-\r
- alOut(which + alFeedCon,inst->nConn); // DEBUG - I think this is right\r
-}\r
-#endif\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_ALStopSound() - Turns off any sound effects playing through the\r
-// AdLib card\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-#ifdef _MUSE_\r
-void\r
-#else\r
-static void\r
-#endif\r
-SDL_ALStopSound(void)\r
-{\r
-asm pushf\r
-asm cli\r
-\r
- (long)alSound = 0;\r
- alOut(alFreqH + 0,0);\r
-\r
-asm popf\r
-}\r
-\r
-static void\r
-SDL_AlSetFXInst(Instrument far *inst)\r
-{\r
- byte c,m;\r
- byte scale; // added for "quiet AdLib" mode\r
-\r
- m = modifiers[0];\r
- c = carriers[0];\r
- alOut(m + alChar,inst->mChar);\r
- alOut(m + alScale,inst->mScale);\r
- alOut(m + alAttack,inst->mAttack);\r
- alOut(m + alSus,inst->mSus);\r
- alOut(m + alWave,inst->mWave);\r
- alOut(c + alChar,inst->cChar);\r
-#if 1\r
- // quiet AdLib code:\r
- scale = inst->cScale;\r
- if (QuietFX)\r
- {\r
- scale = 0x3F-scale;\r
- scale = (scale>>1) + (scale>>2); // basically 'scale *= 0.75;'\r
- scale = 0x3F-scale;\r
- }\r
- alOut(c + alScale,scale);\r
-#else\r
- // old code:\r
- alOut(c + alScale,inst->cScale);\r
-#endif\r
- alOut(c + alAttack,inst->cAttack);\r
- alOut(c + alSus,inst->cSus);\r
- alOut(c + alWave,inst->cWave);\r
- // DEBUG!!! - I just put this in\r
-// alOut(alFeedCon,inst->nConn);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_ALPlaySound() - Plays the specified sound on the AdLib card\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-#ifdef _MUSE_\r
-void\r
-#else\r
-static void\r
-#endif\r
-SDL_ALPlaySound(AdLibSound far *sound)\r
-{\r
- Instrument far *inst;\r
-\r
- SDL_ALStopSound();\r
-\r
-asm pushf\r
-asm cli\r
-\r
- alLengthLeft = sound->common.length;\r
- alSound = sound->data;\r
- alBlock = ((sound->block & 7) << 2) | 0x20;\r
- inst = &sound->inst;\r
-\r
- if (!(inst->mSus | inst->cSus))\r
- {\r
- asm popf\r
- Quit("SDL_ALPlaySound() - Bad instrument");\r
- }\r
-\r
- SDL_AlSetFXInst(inst);\r
-\r
-asm popf\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_ALSoundService() - Plays the next sample out through the AdLib card\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_ALSoundService(void)\r
-{\r
- byte s;\r
-\r
- if (alSound)\r
- {\r
- s = *alSound++;\r
- if (!s)\r
- alOut(alFreqH + 0,0);\r
- else\r
- {\r
- alOut(alFreqL + 0,s);\r
- alOut(alFreqH + 0,alBlock);\r
- }\r
-\r
- if (!(--alLengthLeft))\r
- {\r
- (long)alSound = 0;\r
- alOut(alFreqH + 0,0);\r
- SDL_SoundFinished();\r
- }\r
- }\r
-}\r
-\r
-#if 0\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_SelectMeasure() - sets up sequencing variables for a given track\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_SelectMeasure(ActiveTrack *track)\r
-{\r
- track->seq = track->moods[track->mood];\r
- track->nextevent = 0;\r
-}\r
-#endif\r
-\r
-static void\r
-SDL_ALService(void)\r
-{\r
- byte a,v;\r
- word w;\r
-\r
- if (!sqActive)\r
- return;\r
-\r
- while (sqHackLen && (sqHackTime <= alTimeCount))\r
- {\r
- w = *sqHackPtr++;\r
- sqHackTime = alTimeCount + *sqHackPtr++;\r
- asm mov dx,[w]\r
- asm mov [a],dl\r
- asm mov [v],dh\r
- alOut(a,v);\r
- sqHackLen -= 4;\r
- }\r
- alTimeCount++;\r
- if (!sqHackLen)\r
- {\r
- sqHackPtr = (word far *)sqHack;\r
- sqHackLen = sqHackSeqLen;\r
- alTimeCount = sqHackTime = 0;\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_ShutAL() - Shuts down the AdLib card for sound effects\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_ShutAL(void)\r
-{\r
-asm pushf\r
-asm cli\r
-\r
- alOut(alEffects,0);\r
- alOut(alFreqH + 0,0);\r
- SDL_AlSetFXInst(&alZeroInst);\r
- alSound = 0;\r
-\r
-asm popf\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_CleanAL() - Totally shuts down the AdLib card\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_CleanAL(void)\r
-{\r
- int i;\r
-\r
-asm pushf\r
-asm cli\r
-\r
- alOut(alEffects,0);\r
- for (i = 1;i < 0xf5;i++)\r
- alOut(i,0);\r
-\r
-asm popf\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_StartAL() - Starts up the AdLib card for sound effects\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_StartAL(void)\r
-{\r
- alFXReg = 0;\r
- alOut(alEffects,alFXReg);\r
- SDL_AlSetFXInst(&alZeroInst);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_DetectAdLib() - Determines if there's an AdLib (or SoundBlaster\r
-// emulating an AdLib) present\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static boolean\r
-SDL_DetectAdLib(boolean force)\r
-{\r
- byte status1,status2;\r
- int i;\r
-\r
- alOut(4,0x60); // Reset T1 & T2\r
- alOut(4,0x80); // Reset IRQ\r
- status1 = readstat();\r
- alOut(2,0xff); // Set timer 1\r
- alOut(4,0x21); // Start timer 1\r
-#if 0\r
- SDL_Delay(TimerDelay100);\r
-#else\r
- asm mov dx, 0x388;\r
- asm mov cx, 100;\r
-waitloop:\r
- asm in al, dx;\r
- asm jmp here;\r
-here:\r
- asm loop waitloop;\r
-#endif\r
-\r
- status2 = readstat();\r
- alOut(4,0x60);\r
- alOut(4,0x80);\r
-\r
- if (force || (((status1 & 0xe0) == 0x00) && ((status2 & 0xe0) == 0xc0)))\r
- {\r
- for (i = 1;i <= 0xf5;i++) // Zero all the registers\r
- alOut(i,0);\r
-\r
- alOut(1,0x20); // Set WSE=1\r
- alOut(8,0); // Set CSM=0 & SEL=0\r
-\r
- return(true);\r
- }\r
- else\r
- return(false);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_t0Service() - My timer 0 ISR which handles the different timings and\r
-// dispatches to whatever other routines are appropriate\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void interrupt\r
-SDL_t0Service(void)\r
-{\r
-static word count = 1;\r
-\r
-#if 0 // for debugging\r
-asm mov dx,STATUS_REGISTER_1\r
-asm in al,dx\r
-asm mov dx,ATR_INDEX\r
-asm mov al,ATR_OVERSCAN\r
-asm out dx,al\r
-asm mov al,4 // red\r
-asm out dx,al\r
-#endif\r
-\r
- HackCount++;\r
-\r
- if (MusicMode == smm_AdLib)\r
- {\r
- SDL_ALService();\r
- if (!(++count & 7))\r
- {\r
- LocalTime++;\r
- TimeCount++;\r
- if (SoundUserHook)\r
- SoundUserHook();\r
- }\r
- if (!(count & 3))\r
- {\r
- switch (SoundMode)\r
- {\r
- case sdm_PC:\r
- SDL_PCService();\r
- break;\r
- case sdm_AdLib:\r
- SDL_ALSoundService();\r
- break;\r
- }\r
- }\r
- }\r
- else\r
- {\r
- if (!(++count & 1))\r
- {\r
- LocalTime++;\r
- TimeCount++;\r
- if (SoundUserHook)\r
- SoundUserHook();\r
- }\r
- switch (SoundMode)\r
- {\r
- case sdm_PC:\r
- SDL_PCService();\r
- break;\r
- case sdm_AdLib:\r
- SDL_ALSoundService();\r
- break;\r
- }\r
- }\r
-\r
-asm mov ax,[WORD PTR TimerCount]\r
-asm add ax,[WORD PTR TimerDivisor]\r
-asm mov [WORD PTR TimerCount],ax\r
-asm jnc myack\r
- t0OldService(); // If we overflow a word, time to call old int handler\r
-asm jmp olddone\r
-myack:;\r
- outportb(0x20,0x20); // Ack the interrupt\r
-olddone:;\r
-\r
-#if 0 // for debugging\r
-asm mov dx,STATUS_REGISTER_1\r
-asm in al,dx\r
-asm mov dx,ATR_INDEX\r
-asm mov al,ATR_OVERSCAN\r
-asm out dx,al\r
-asm mov al,3 // blue\r
-asm out dx,al\r
-asm mov al,0x20 // normal\r
-asm out dx,al\r
-#endif\r
-}\r
-\r
-////////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_ShutDevice() - turns off whatever device was being used for sound fx\r
-//\r
-////////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_ShutDevice(void)\r
-{\r
- switch (SoundMode)\r
- {\r
- case sdm_PC:\r
- SDL_ShutPC();\r
- break;\r
- case sdm_AdLib:\r
- SDL_ShutAL();\r
- break;\r
- }\r
- SoundMode = sdm_Off;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_CleanDevice() - totally shuts down all sound devices\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_CleanDevice(void)\r
-{\r
- if ((SoundMode == sdm_AdLib) || (MusicMode == smm_AdLib))\r
- SDL_CleanAL();\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SDL_StartDevice() - turns on whatever device is to be used for sound fx\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-SDL_StartDevice(void)\r
-{\r
- switch (SoundMode)\r
- {\r
- case sdm_AdLib:\r
- SDL_StartAL();\r
- break;\r
- }\r
- SoundNumber = SoundPriority = 0;\r
-}\r
-\r
-static void\r
-SDL_SetTimerSpeed(void)\r
-{\r
- word rate;\r
-\r
- if (MusicMode == smm_AdLib)\r
- rate = TickBase * 8;\r
- else\r
- rate = TickBase * 2;\r
- SDL_SetIntsPerSec(rate);\r
-}\r
-\r
-// Public routines\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_SetSoundMode() - Sets which sound hardware to use for sound effects\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-boolean\r
-SD_SetSoundMode(SDMode mode)\r
-{\r
- boolean result;\r
- word tableoffset;\r
-\r
- SD_StopSound();\r
-\r
-#ifndef _MUSE_\r
- switch (mode)\r
- {\r
- case sdm_Off:\r
- NeedsDigitized = false;\r
- result = true;\r
- break;\r
- case sdm_PC:\r
- tableoffset = STARTPCSOUNDS;\r
- NeedsDigitized = false;\r
- result = true;\r
- break;\r
- case sdm_AdLib:\r
- if (AdLibPresent)\r
- {\r
- tableoffset = STARTADLIBSOUNDS;\r
- NeedsDigitized = false;\r
- result = true;\r
- }\r
- break;\r
- default:\r
- result = false;\r
- break;\r
- }\r
-#endif\r
-\r
- if (result && (mode != SoundMode))\r
- {\r
- SDL_ShutDevice();\r
- SoundMode = mode;\r
-#ifndef _MUSE_\r
- SoundTable = (word *)(&audiosegs[tableoffset]);\r
-#endif\r
- SDL_StartDevice();\r
- }\r
-\r
- SDL_SetTimerSpeed();\r
-\r
- return(result);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_SetMusicMode() - sets the device to use for background music\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-boolean\r
-SD_SetMusicMode(SMMode mode)\r
-{\r
- boolean result;\r
-\r
- SD_FadeOutMusic();\r
- while (SD_MusicPlaying())\r
- ;\r
-\r
- switch (mode)\r
- {\r
- case smm_Off:\r
- NeedsMusic = false;\r
- result = true;\r
- break;\r
- case smm_AdLib:\r
- if (AdLibPresent)\r
- {\r
- NeedsMusic = true;\r
- result = true;\r
- }\r
- break;\r
- default:\r
- result = false;\r
- break;\r
- }\r
-\r
- if (result)\r
- MusicMode = mode;\r
-\r
- SDL_SetTimerSpeed();\r
-\r
- return(result);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_Startup() - starts up the Sound Mgr\r
-// Detects all additional sound hardware and installs my ISR\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_Startup(void)\r
-{\r
- int i;\r
- boolean alForce;\r
-\r
- alForce = false;\r
-\r
- if (SD_Started)\r
- return;\r
-\r
- ssIsTandy = false;\r
- alNoCheck = false;\r
-#ifndef _MUSE_\r
- for (i = 1;i < _argc;i++)\r
- {\r
- switch (US_CheckParm(_argv[i],ParmStrings))\r
- {\r
- case 0: // No AdLib detection\r
- alNoCheck = true;\r
- break;\r
-\r
- case 1:\r
- alForce = true;\r
- break;\r
- }\r
- }\r
-#endif\r
-\r
- SoundUserHook = 0;\r
-\r
- t0OldService = getvect(8); // Get old timer 0 ISR\r
-\r
- //SDL_InitDelay(); // SDL_InitDelay() uses t0OldService\r
-\r
- setvect(8,SDL_t0Service); // Set to my timer 0 ISR\r
- LocalTime = TimeCount = alTimeCount = 0;\r
-\r
- SD_SetSoundMode(sdm_Off);\r
- SD_SetMusicMode(smm_Off);\r
-\r
- if (!alNoCheck)\r
- AdLibPresent = SDL_DetectAdLib(alForce);\r
-\r
- for (i = 0;i < 255;i++)\r
- pcSoundLookup[i] = i * 60;\r
-\r
- SD_Started = true;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_Default() - Sets up the default behaviour for the Sound Mgr whether\r
-// the config file was present or not.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_Default(boolean gotit,SDMode sd,SMMode sm)\r
-{\r
- boolean gotsd,gotsm;\r
-\r
- gotsd = gotsm = gotit;\r
-\r
- if (gotsd) // Make sure requested sound hardware is available\r
- {\r
- switch (sd)\r
- {\r
- case sdm_AdLib:\r
- gotsd = AdLibPresent;\r
- break;\r
- }\r
- }\r
- if (!gotsd)\r
- {\r
- if (AdLibPresent)\r
- sd = sdm_AdLib;\r
- else\r
- sd = sdm_PC;\r
- }\r
- if (sd != SoundMode)\r
- SD_SetSoundMode(sd);\r
-\r
-\r
- if (gotsm) // Make sure requested music hardware is available\r
- {\r
- switch (sm)\r
- {\r
- case sdm_AdLib: // BUG: this should use smm_AdLib!\r
- gotsm = AdLibPresent;\r
- break;\r
- }\r
- }\r
- if (!gotsm)\r
- {\r
- if (AdLibPresent)\r
- sm = smm_AdLib;\r
- else\r
- sm = smm_Off;\r
- }\r
- if (sm != MusicMode)\r
- SD_SetMusicMode(sm);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_Shutdown() - shuts down the Sound Mgr\r
-// Removes sound ISR and turns off whatever sound hardware was active\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_Shutdown(void)\r
-{\r
- if (!SD_Started)\r
- return;\r
-\r
- SD_MusicOff();\r
- SDL_ShutDevice();\r
- SDL_CleanDevice();\r
-\r
- asm pushf\r
- asm cli\r
-\r
- SDL_SetTimer0(0);\r
-\r
- setvect(8,t0OldService);\r
-\r
- asm popf\r
-\r
- SD_Started = false;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_SetUserHook() - sets the routine that the Sound Mgr calls every 1/70th\r
-// of a second from its timer 0 ISR\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_SetUserHook(void (* hook)(void))\r
-{\r
- // BUG: interrupts should be disabled while setting SoundUserHook!\r
- SoundUserHook = hook;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_PlaySound() - plays the specified sound on the appropriate hardware\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_PlaySound(soundnames sound)\r
-{\r
- SoundCommon far *s;\r
-\r
- if ((SoundMode == sdm_Off) /*|| (sound == -1)*/)\r
- return;\r
-\r
- s = MK_FP(SoundTable[sound],0);\r
- if (!s)\r
- Quit("SD_PlaySound() - Uncached sound");\r
- if (!s->length)\r
- Quit("SD_PlaySound() - Zero length sound");\r
- if (s->priority < SoundPriority)\r
- return;\r
-\r
- switch (SoundMode)\r
- {\r
- case sdm_PC:\r
- SDL_PCPlaySound((void far *)s);\r
- break;\r
- case sdm_AdLib:\r
- SDL_ALPlaySound((void far *)s);\r
- break;\r
- }\r
-\r
- SoundNumber = sound;\r
- SoundPriority = s->priority;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_SoundPlaying() - returns the sound number that's playing, or 0 if\r
-// no sound is playing\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-word\r
-SD_SoundPlaying(void)\r
-{\r
- boolean result = false;\r
-\r
- switch (SoundMode)\r
- {\r
- case sdm_PC:\r
- result = pcSound? true : false;\r
- break;\r
- case sdm_AdLib:\r
- result = alSound? true : false;\r
- break;\r
- }\r
-\r
- if (result)\r
- return(SoundNumber);\r
- else\r
- return(false);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_StopSound() - if a sound is playing, stops it\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_StopSound(void)\r
-{\r
- switch (SoundMode)\r
- {\r
- case sdm_PC:\r
- SDL_PCStopSound();\r
- break;\r
- case sdm_AdLib:\r
- SDL_ALStopSound();\r
- break;\r
- }\r
-\r
- SDL_SoundFinished();\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_WaitSoundDone() - waits until the current sound is done playing\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_WaitSoundDone(void)\r
-{\r
- while (SD_SoundPlaying())\r
- ;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_MusicOn() - turns on the sequencer\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_MusicOn(void)\r
-{\r
- sqActive = true;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_MusicOff() - turns off the sequencer and any playing notes\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_MusicOff(void)\r
-{\r
- word i;\r
-\r
-\r
- switch (MusicMode)\r
- {\r
- case smm_AdLib:\r
- alFXReg = 0;\r
- alOut(alEffects,0);\r
- for (i = 0;i < sqMaxTracks;i++)\r
- alOut(alFreqH + i + 1,0);\r
- break;\r
- }\r
- sqActive = false;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_StartMusic() - starts playing the music pointed to\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_StartMusic(MusicGroup far *music)\r
-{\r
- SD_MusicOff();\r
-asm pushf\r
-asm cli\r
-\r
- if (MusicMode == smm_AdLib)\r
- {\r
- sqHackPtr = sqHack = music->values;\r
- sqHackSeqLen = sqHackLen = music->length;\r
- sqHackTime = 0;\r
- alTimeCount = 0;\r
- SD_MusicOn();\r
- }\r
-\r
-asm popf\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_FadeOutMusic() - starts fading out the music. Call SD_MusicPlaying()\r
-// to see if the fadeout is complete\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-SD_FadeOutMusic(void)\r
-{\r
- switch (MusicMode)\r
- {\r
- case smm_AdLib:\r
- // DEBUG - quick hack to turn the music off\r
- SD_MusicOff();\r
- break;\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// SD_MusicPlaying() - returns true if music is currently playing, false if\r
-// not\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-boolean\r
-SD_MusicPlaying(void)\r
-{\r
- boolean result;\r
-\r
- switch (MusicMode)\r
- {\r
- case smm_AdLib:\r
- result = false;\r
- // DEBUG - not written\r
- break;\r
- default:\r
- result = false;\r
- }\r
-\r
- return(result);\r
-}\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-//\r
-// ID Engine\r
-// ID_SD.h - Sound Manager Header\r
-// v1.0d1\r
-// By Jason Blochowiak\r
-//\r
-\r
-#ifndef __TYPES__\r
-#include "ID_Types.h"\r
-#endif\r
-\r
-#ifndef __ID_SD__\r
-#define __ID_SD__\r
-\r
-#ifdef __DEBUG__\r
-#define __DEBUG_SoundMgr__\r
-#endif\r
-\r
-#define TickBase 70 // 70Hz per tick - used as a base for timer 0\r
-\r
-typedef enum {\r
- sdm_Off,\r
- sdm_PC,sdm_AdLib,\r
- } SDMode;\r
-typedef enum {\r
- smm_Off,smm_AdLib\r
- } SMMode;\r
-\r
-typedef struct\r
- {\r
- longword length;\r
- word priority;\r
- } SoundCommon;\r
-\r
-// PC Sound stuff\r
-#define pcTimer 0x42\r
-#define pcTAccess 0x43\r
-#define pcSpeaker 0x61\r
-\r
-#define pcSpkBits 3\r
-\r
-typedef struct\r
- {\r
- SoundCommon common;\r
- byte data[1];\r
- } PCSound;\r
-\r
-// Registers for the Sound Blaster card - needs to be offset by n0\r
-#define sbReset 0x206\r
-#define sbReadData 0x20a\r
-#define sbWriteCmd 0x20c\r
-#define sbWriteData 0x20c\r
-#define sbWriteStat 0x20c\r
-#define sbDataAvail 0x20e\r
-\r
-typedef struct\r
- {\r
- SoundCommon common;\r
- word hertz;\r
- byte bits,\r
- reference,\r
- data[1];\r
- } SampledSound;\r
-\r
-// Registers for the AdLib card\r
-// Operator stuff\r
-#define alChar 0x20\r
-#define alScale 0x40\r
-#define alAttack 0x60\r
-#define alSus 0x80\r
-#define alWave 0xe0\r
-// Channel stuff\r
-#define alFreqL 0xa0\r
-#define alFreqH 0xb0\r
-#define alFeedCon 0xc0\r
-// Global stuff\r
-#define alEffects 0xbd\r
-\r
-typedef struct\r
- {\r
- byte mChar,cChar,\r
- mScale,cScale,\r
- mAttack,cAttack,\r
- mSus,cSus,\r
- mWave,cWave,\r
- nConn,\r
-\r
- // These are only for Muse - these bytes are really unused\r
- voice,\r
- mode,\r
- unused[3];\r
- } Instrument;\r
-\r
-typedef struct\r
- {\r
- SoundCommon common;\r
- Instrument inst;\r
- byte block,\r
- data[1];\r
- } AdLibSound;\r
-\r
-//\r
-// Sequencing stuff\r
-//\r
-#define sqMaxTracks 10\r
-#define sqMaxMoods 1 // DEBUG\r
-\r
-#define sev_Null 0 // Does nothing\r
-#define sev_NoteOff 1 // Turns a note off\r
-#define sev_NoteOn 2 // Turns a note on\r
-#define sev_NotePitch 3 // Sets the pitch of a currently playing note\r
-#define sev_NewInst 4 // Installs a new instrument\r
-#define sev_NewPerc 5 // Installs a new percussive instrument\r
-#define sev_PercOn 6 // Turns a percussive note on\r
-#define sev_PercOff 7 // Turns a percussive note off\r
-#define sev_SeqEnd -1 // Terminates a sequence\r
-\r
-// Flags for MusicGroup.flags\r
-#define sf_Melodic 0\r
-#define sf_Percussive 1\r
-\r
-#if 1\r
-typedef struct\r
- {\r
- word length,\r
- values[1];\r
- } MusicGroup;\r
-#else\r
-typedef struct\r
- {\r
- word flags,\r
- count,\r
- offsets[1];\r
- } MusicGroup;\r
-#endif\r
-\r
-typedef struct\r
- {\r
- /* This part needs to be set up by the user */\r
- word mood,far *moods[sqMaxMoods];\r
-\r
- /* The rest is set up by the code */\r
- Instrument inst;\r
- boolean percussive;\r
- word far *seq;\r
- longword nextevent;\r
- } ActiveTrack;\r
-\r
-#define sqmode_Normal 0\r
-#define sqmode_FadeIn 1\r
-#define sqmode_FadeOut 2\r
-\r
-#define sqMaxFade 64 // DEBUG\r
-\r
-\r
-// Global variables\r
-extern boolean AdLibPresent,\r
- NeedsMusic, // For Caching Mgr\r
- QuietFX;\r
-extern SDMode SoundMode;\r
-extern SMMode MusicMode;\r
-extern longword TimeCount; // Global time in ticks\r
-\r
-// Function prototypes\r
-extern void SD_Startup(void),\r
- SD_Shutdown(void),\r
- SD_Default(boolean gotit,SDMode sd,SMMode sm),\r
- SD_PlaySound(soundnames sound),\r
- SD_StopSound(void),\r
- SD_WaitSoundDone(void),\r
- SD_StartMusic(MusicGroup far *music),\r
- SD_MusicOn(void),\r
- SD_MusicOff(void),\r
- SD_FadeOutMusic(void),\r
- SD_SetUserHook(void (*hook)(void));\r
-extern boolean SD_MusicPlaying(void),\r
- SD_SetSoundMode(SDMode mode),\r
- SD_SetMusicMode(SMMode mode);\r
-extern word SD_SoundPlaying(void);\r
-\r
-#ifdef _MUSE_ // MUSE Goes directly to the lower level routines\r
-extern void SDL_PCPlaySound(PCSound far *sound),\r
- SDL_PCStopSound(void),\r
- SDL_ALPlaySound(AdLibSound far *sound),\r
- SDL_ALStopSound(void);\r
-#endif\r
-\r
-#endif\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-//\r
-// ID Engine\r
-// ID_US.h - Header file for the User Manager\r
-// v1.0d1\r
-// By Jason Blochowiak\r
-//\r
-\r
-#ifndef __TYPES__\r
-#include "ID_Types.h"\r
-#endif\r
-\r
-#ifndef __ID_US__\r
-#define __ID_US__\r
-\r
-#ifdef __DEBUG__\r
-#define __DEBUG_UserMgr__\r
-#endif\r
-\r
-//#define HELPTEXTLINKED\r
-\r
-#define MaxX 320\r
-#define MaxY 200\r
-\r
-#define MaxHelpLines 500\r
-\r
-#define MaxHighName 57\r
-#ifdef CAT3D\r
-#define MaxScores 7\r
-#else\r
-#define MaxScores 8\r
-#endif\r
-typedef struct\r
- {\r
- char name[MaxHighName + 1];\r
- long score;\r
- word completed;\r
- } HighScore;\r
-\r
-#define MaxGameName 32\r
-#define MaxSaveGames 6\r
-typedef struct\r
- {\r
- char signature[4];\r
- word *oldtest;\r
- boolean present;\r
- char name[MaxGameName + 1];\r
- } SaveGame;\r
-\r
-#define MaxString 128 // Maximum input string size\r
-\r
-typedef struct\r
- {\r
- int x,y,\r
- w,h,\r
- px,py;\r
- } WindowRec; // Record used to save & restore screen windows\r
-\r
-typedef enum\r
- {\r
- gd_Continue,\r
- gd_Easy,\r
- gd_Normal,\r
- gd_Hard\r
- } GameDiff;\r
-\r
-// Hack import for TED launch support\r
-extern boolean tedlevel;\r
-extern word tedlevelnum;\r
-extern void TEDDeath(void);\r
-\r
-extern boolean ingame, // Set by game code if a game is in progress\r
- abortgame, // Set if a game load failed\r
- loadedgame, // Set if the current game was loaded\r
-#ifdef KEEN6\r
- checkpassed,\r
-#endif\r
- NoWait,\r
- HighScoresDirty;\r
-extern char *abortprogram; // Set to error msg if program is dying\r
-extern GameDiff restartgame; // Normally gd_Continue, else starts game\r
-extern word PrintX,PrintY; // Current printing location in the window\r
-extern word WindowX,WindowY,// Current location of window\r
- WindowW,WindowH;// Current size of window\r
-\r
-extern boolean Button0,Button1,\r
- CursorBad;\r
-extern int CursorX,CursorY;\r
-\r
-extern void (*USL_MeasureString)(char far *,word *,word *),\r
- (*USL_DrawString)(char far *);\r
-\r
-extern boolean (*USL_SaveGame)(int),(*USL_LoadGame)(int);\r
-extern void (*USL_ResetGame)(void);\r
-extern SaveGame Games[MaxSaveGames];\r
-extern HighScore Scores[];\r
-\r
-#define US_HomeWindow() {PrintX = WindowX; PrintY = WindowY;}\r
-\r
-extern void US_Startup(void),\r
- US_Setup(void),\r
- US_Shutdown(void),\r
- US_InitRndT(boolean randomize),\r
- US_SetLoadSaveHooks(boolean (*load)(int),\r
- boolean (*save)(int),\r
- void (*reset)(void)),\r
- US_TextScreen(void),\r
- US_UpdateTextScreen(void),\r
- US_FinishTextScreen(void),\r
- US_ControlPanel(void),\r
- US_DrawWindow(word x,word y,word w,word h),\r
- US_CenterWindow(word,word),\r
- US_SaveWindow(WindowRec *win),\r
- US_RestoreWindow(WindowRec *win),\r
- US_ClearWindow(void),\r
- US_SetPrintRoutines(void (*measure)(char far *,word *,word *),\r
- void (*print)(char far *)),\r
- US_PrintCentered(char *s),\r
- US_CPrint(char *s),\r
- US_CPrintLine(char *s),\r
- US_Print(char *s),\r
- US_PrintUnsigned(longword n),\r
- US_PrintSigned(long n),\r
- US_StartCursor(void),\r
- US_ShutCursor(void),\r
- US_ControlPanel(void),\r
- US_CheckHighScore(long score,word other),\r
- US_DisplayHighScores(int which);\r
-extern boolean US_UpdateCursor(void),\r
- US_LineInput(int x,int y,char *buf,char *def,boolean escok,\r
- int maxchars,int maxwidth);\r
-extern int US_CheckParm(char *parm,char **strings),\r
- US_RndT(void);\r
-\r
-extern boolean US_ParmPresent(char *arg);\r
-\r
- void USL_PrintInCenter(char *s,Rect r);\r
- char *USL_GiveSaveName(word game);\r
-#endif\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-//\r
-// ID Engine\r
-// ID_US_1.c - User Manager - General routines\r
-// v1.1d1\r
-// By Jason Blochowiak\r
-// Hacked up for Catacomb 3D\r
-//\r
-\r
-//\r
-// This module handles dealing with user input & feedback\r
-//\r
-// Depends on: Input Mgr, View Mgr, some variables from the Sound, Caching,\r
-// and Refresh Mgrs, Memory Mgr for background save/restore\r
-//\r
-// Globals:\r
-// ingame - Flag set by game indicating if a game is in progress\r
-// abortgame - Flag set if the current game should be aborted (if a load\r
-// game fails)\r
-// loadedgame - Flag set if a game was loaded\r
-// abortprogram - Normally nil, this points to a terminal error message\r
-// if the program needs to abort\r
-// restartgame - Normally set to gd_Continue, this is set to one of the\r
-// difficulty levels if a new game should be started\r
-// PrintX, PrintY - Where the User Mgr will print (global coords)\r
-// WindowX,WindowY,WindowW,WindowH - The dimensions of the current\r
-// window\r
-//\r
-\r
-#include "ID_HEADS.H"\r
-\r
-#pragma hdrstop\r
-\r
-#pragma warn -pia\r
-\r
-\r
-// Special imports\r
-extern boolean showscorebox;\r
-#ifdef KEEN\r
-extern boolean jerk;\r
-extern boolean oldshooting;\r
-extern ScanCode firescan;\r
-#else\r
- ScanCode firescan;\r
-#endif\r
-\r
-// Global variables\r
- char *abortprogram;\r
- boolean NoWait,\r
- HighScoresDirty;\r
- word PrintX,PrintY;\r
- word WindowX,WindowY,WindowW,WindowH;\r
-\r
-// Internal variables\r
-#define ConfigVersion 4\r
-\r
-static char *ParmStrings[] = {"TEDLEVEL","NOWAIT"},\r
- *ParmStrings2[] = {"COMP","NOCOMP"};\r
-static boolean US_Started;\r
-\r
- boolean Button0,Button1,\r
- CursorBad;\r
- int CursorX,CursorY;\r
-\r
- void (*USL_MeasureString)(char far *,word *,word *) = VW_MeasurePropString,\r
- (*USL_DrawString)(char far *) = VWB_DrawPropString;\r
-\r
- boolean (*USL_SaveGame)(int),(*USL_LoadGame)(int);\r
- void (*USL_ResetGame)(void);\r
- SaveGame Games[MaxSaveGames];\r
- HighScore Scores[MaxScores] =\r
- {\r
-#if defined CAT3D\r
- {"Sir Lancelot",500,3},\r
- {"",0},\r
- {"",0},\r
- {"",0},\r
- {"",0},\r
- {"",0},\r
- {"",0},\r
-#elif defined GOODTIMES\r
- {"Id Software",10000,0},\r
- {"Adrian Carmack",10000,0},\r
- {"John Carmack",10000,0},\r
- {"Kevin Cloud",10000,0},\r
- {"Shawn Green",10000,0},\r
- {"Tom Hall",10000,0},\r
- {"John Romero",10000,0},\r
- {"Jay Wilbur",10000,0},\r
-#else\r
- {"Id Software - '91",10000,0},\r
- {"",10000,0},\r
- {"Jason Blochowiak",10000,0},\r
- {"Adrian Carmack",10000,0},\r
- {"John Carmack",10000,0},\r
- {"Tom Hall",10000,0},\r
- {"John Romero",10000,0},\r
- {"",10000,0},\r
-#endif\r
- };\r
-\r
-// Internal routines\r
-\r
-// Public routines\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_HardError() - Handles the Abort/Retry/Fail sort of errors passed\r
-// from DOS.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-#pragma warn -par\r
-#pragma warn -rch\r
-int\r
-USL_HardError(word errval,int ax,int bp,int si)\r
-{\r
-#define IGNORE 0\r
-#define RETRY 1\r
-#define ABORT 2\r
-extern void ShutdownId(void);\r
-\r
-static char buf[32];\r
-static WindowRec wr;\r
- int di;\r
- char c,*s,*t;\r
-\r
-\r
- di = _DI;\r
-\r
- if (ax < 0)\r
- s = "Device Error";\r
- else\r
- {\r
- if ((di & 0x00ff) == 0)\r
- s = "Drive ~ is Write Protected";\r
- else\r
- s = "Error on Drive ~";\r
- for (t = buf;*s;s++,t++) // Can't use sprintf()\r
- if ((*t = *s) == '~')\r
- *t = (ax & 0x00ff) + 'A';\r
- *t = '\0';\r
- s = buf;\r
- }\r
-\r
- c = peekb(0x40,0x49); // Get the current screen mode\r
- if ((c < 4) || (c == 7))\r
- goto oh_kill_me;\r
-\r
- // DEBUG - handle screen cleanup\r
-\r
- US_SaveWindow(&wr);\r
- US_CenterWindow(30,3);\r
- US_CPrint(s);\r
- US_CPrint("(R)etry or (A)bort?");\r
- VW_UpdateScreen();\r
- IN_ClearKeysDown();\r
-\r
-asm sti // Let the keyboard interrupts come through\r
-\r
- while (true)\r
- {\r
- switch (IN_WaitForASCII())\r
- {\r
- case key_Escape:\r
- case 'a':\r
- case 'A':\r
- goto oh_kill_me;\r
- break;\r
- case key_Return:\r
- case key_Space:\r
- case 'r':\r
- case 'R':\r
- US_ClearWindow();\r
- VW_UpdateScreen();\r
- US_RestoreWindow(&wr);\r
- return(RETRY);\r
- break;\r
- }\r
- }\r
-\r
-oh_kill_me:\r
- abortprogram = s;\r
- ShutdownId();\r
- fprintf(stderr,"Terminal Error: %s\n",s);\r
- if (tedlevel)\r
- fprintf(stderr,"You launched from TED. I suggest that you reboot...\n");\r
-\r
- return(ABORT);\r
-#undef IGNORE\r
-#undef RETRY\r
-#undef ABORT\r
-}\r
-#pragma warn +par\r
-#pragma warn +rch\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_GiveSaveName() - Returns a pointer to a static buffer that contains\r
-// the filename to use for the specified save game\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-char *\r
-USL_GiveSaveName(word game)\r
-{\r
-static char name[] = "SAVEGAMx."EXTENSION;\r
-\r
- name[7] = '0' + game;\r
- return(name);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_SetLoadSaveHooks() - Sets the routines that the User Mgr calls after\r
-// reading or writing the save game headers\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_SetLoadSaveHooks(boolean (*load)(int),boolean (*save)(int),void (*reset)(void))\r
-{\r
- USL_LoadGame = load;\r
- USL_SaveGame = save;\r
- USL_ResetGame = reset;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_ReadConfig() - Reads the configuration file, if present, and sets\r
-// things up accordingly. If it's not present, uses defaults. This file\r
-// includes the high scores.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_ReadConfig(void)\r
-{\r
- boolean gotit, hadAdLib;\r
- char sig[sizeof(EXTENSION)];\r
- word version;\r
- int file;\r
- SDMode sd;\r
- SMMode sm;\r
- ControlType ctl;\r
-\r
- if ((file = open("CONFIG."EXTENSION,O_BINARY | O_RDONLY)) != -1)\r
- {\r
- read(file,sig,sizeof(EXTENSION));\r
- read(file,&version,sizeof(version));\r
- if (strcmp(sig,EXTENSION) || (version != ConfigVersion))\r
- {\r
- close(file);\r
- goto rcfailed;\r
- }\r
- read(file,Scores,sizeof(HighScore) * MaxScores);\r
- read(file,&sd,sizeof(sd));\r
- read(file,&sm,sizeof(sm));\r
- read(file,&ctl,sizeof(ctl));\r
- read(file,&(KbdDefs[0]),sizeof(KbdDefs[0]));\r
- read(file,&showscorebox,sizeof(showscorebox));\r
- read(file,&compatability,sizeof(compatability));\r
- read(file,&QuietFX,sizeof(QuietFX));\r
- read(file,&hadAdLib,sizeof(hadAdLib));\r
- read(file,&jerk,sizeof(jerk));\r
-#ifdef KEEN\r
- read(file,&oldshooting,sizeof(oldshooting));\r
- read(file,&firescan,sizeof(firescan));\r
-#endif\r
- read(file,&GravisGamepad,sizeof(GravisGamepad));\r
- read(file,&GravisMap,sizeof(GravisMap));\r
- close(file);\r
-\r
- HighScoresDirty = false;\r
- gotit = true;\r
- }\r
- else\r
- {\r
-rcfailed:\r
- sd = sdm_Off;\r
- sm = smm_Off;\r
- ctl = ctrl_Keyboard;\r
- showscorebox = true;\r
-#ifdef KEEN\r
- oldshooting = false;\r
-#endif\r
-\r
- gotit = false;\r
- HighScoresDirty = true;\r
- }\r
-\r
- SD_Default(gotit? (hadAdLib==AdLibPresent) : false, sd,sm);\r
- IN_Default(gotit,ctl);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_WriteConfig() - Writes out the current configuration, including the\r
-// high scores.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_WriteConfig(void)\r
-{\r
- word version;\r
- int file;\r
-\r
- version = ConfigVersion;\r
- file = open("CONFIG."EXTENSION,O_CREAT | O_BINARY | O_WRONLY,\r
- S_IREAD | S_IWRITE | S_IFREG);\r
- if (file != -1)\r
- {\r
- write(file,EXTENSION,sizeof(EXTENSION));\r
- write(file,&version,sizeof(version));\r
- write(file,Scores,sizeof(HighScore) * MaxScores);\r
- write(file,&SoundMode,sizeof(SoundMode));\r
- write(file,&MusicMode,sizeof(MusicMode));\r
-#ifdef CAT3D\r
- if // Hack\r
- (\r
- (Controls[0] == ctrl_Joystick1)\r
- || (Controls[0] == ctrl_Joystick2)\r
- )\r
- Controls[0] = ctrl_Keyboard;\r
-#endif\r
- write(file,&(Controls[0]),sizeof(Controls[0]));\r
- write(file,&(KbdDefs[0]),sizeof(KbdDefs[0]));\r
- write(file,&showscorebox,sizeof(showscorebox));\r
- write(file,&compatability,sizeof(compatability));\r
- write(file,&QuietFX,sizeof(QuietFX));\r
- write(file,&AdLibPresent,sizeof(AdLibPresent));\r
- write(file,&jerk,sizeof(jerk));\r
-#ifdef KEEN\r
- write(file,&oldshooting,sizeof(oldshooting));\r
- write(file,&firescan,sizeof(firescan));\r
-#endif\r
- write(file,&GravisGamepad,sizeof(GravisGamepad));\r
- write(file,&GravisMap,sizeof(GravisMap));\r
- close(file);\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_CheckSavedGames() - Checks to see which saved games are present\r
-// & valid\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-#ifdef KEEN\r
-void\r
-#else\r
-static void\r
-#endif\r
-USL_CheckSavedGames(void)\r
-{\r
- boolean ok;\r
- char *filename;\r
- word i;\r
- int file;\r
- SaveGame *game;\r
-\r
-#ifdef CAT3D\r
- USL_SaveGame = 0;\r
- USL_LoadGame = 0;\r
-#endif\r
-\r
- for (i = 0,game = Games;i < MaxSaveGames;i++,game++)\r
- {\r
- filename = USL_GiveSaveName(i);\r
- ok = false;\r
- if ((file = open(filename,O_BINARY | O_RDONLY)) != -1)\r
- {\r
- if\r
- (\r
- (read(file,game,sizeof(*game)) == sizeof(*game))\r
- && (!strcmp(game->signature,EXTENSION))\r
- && (game->oldtest == &PrintX)\r
- )\r
- ok = true;\r
-\r
- close(file);\r
- }\r
-\r
- if (ok)\r
- game->present = true;\r
- else\r
- {\r
- strcpy(game->signature,EXTENSION);\r
- game->present = false;\r
- strcpy(game->name,"Empty");\r
- }\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_Startup() - Starts the User Mgr\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_Startup(void)\r
-{\r
- int i;\r
-\r
- if (US_Started)\r
- return;\r
-\r
- harderr(USL_HardError); // Install the fatal error handler\r
-\r
- US_InitRndT(true); // Initialize the random number generator\r
-\r
- USL_ReadConfig(); // Read config file\r
-\r
- for (i = 1;i < _argc;i++)\r
- {\r
- switch (US_CheckParm(_argv[i],ParmStrings2))\r
- {\r
- case 0:\r
- if (grmode == EGAGR)\r
- compatability = true;\r
- break;\r
- case 1:\r
- compatability = false;\r
- break;\r
- }\r
- }\r
-\r
- US_Started = true;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_Setup() - Does the disk access part of the User Mgr's startup\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_Setup(void)\r
-{\r
-#ifndef CAT3D\r
- USL_SaveGame = 0;\r
- USL_LoadGame = 0;\r
-#endif\r
- USL_CheckSavedGames(); // Check which saved games are present\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_Shutdown() - Shuts down the User Mgr\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_Shutdown(void)\r
-{\r
- if (!US_Started)\r
- return;\r
-\r
- if (!abortprogram)\r
- USL_WriteConfig();\r
-\r
- US_Started = false;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_CheckParm() - checks to see if a string matches one of a set of\r
-// strings. The check is case insensitive. The routine returns the\r
-// index of the string that matched, or -1 if no matches were found\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-int\r
-US_CheckParm(char *parm,char **strings)\r
-{\r
- char cp,cs,\r
- *p,*s;\r
- int i;\r
-\r
- while (!isalpha(*parm)) // Skip non-alphas\r
- parm++;\r
-\r
- for (i = 0;*strings && **strings;i++)\r
- {\r
- for (s = *strings++,p = parm,cs = cp = 0;cs == cp;)\r
- {\r
- cs = *s++;\r
- if (!cs)\r
- return(i);\r
- cp = *p++;\r
-\r
- if (isupper(cs))\r
- cs = tolower(cs);\r
- if (isupper(cp))\r
- cp = tolower(cp);\r
- }\r
- }\r
- return(-1);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_ParmPresent() - checks if a given string was passed as a command\r
-// line parameter at startup\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-boolean\r
-US_ParmPresent(char *arg)\r
-{\r
- int i;\r
- char *strings[2];\r
-\r
- strings[0] = arg;\r
- strings[1] = NULL;\r
-\r
- for (i=1; i<_argc; i++)\r
- {\r
- if (US_CheckParm(_argv[i], strings) != -1)\r
- return true;\r
- }\r
- return false;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_ScreenDraw() - Draws a chunk of the text screen (called only by\r
-// US_TextScreen())\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_ScreenDraw(word x,word y,char *s,byte attr)\r
-{\r
- byte far *screen,far *oscreen;\r
-\r
- screen = MK_FP(0xb800,(x * 2) + (y * 80 * 2));\r
- oscreen = (&introscn + 7) + ((x - 1) * 2) + (y * 80 * 2) + 1;\r
- while (*s)\r
- {\r
- *screen++ = *s++;\r
- if (attr != 0xff)\r
- {\r
- *screen++ = (attr & 0x8f) | (*oscreen & 0x70);\r
- oscreen += 2;\r
- }\r
- else\r
- screen++;\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_ClearTextScreen() - Makes sure the screen is in text mode, clears it,\r
-// and moves the cursor to the leftmost column of the bottom line\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_ClearTextScreen(void)\r
-{\r
- // Set to 80x25 color text mode\r
- _AL = 3; // Mode 3\r
- _AH = 0x00;\r
- geninterrupt(0x10);\r
-\r
- // Use BIOS to move the cursor to the bottom of the screen\r
- _AH = 0x0f;\r
- geninterrupt(0x10); // Get current video mode into _BH\r
- _DL = 0; // Lefthand side of the screen\r
- _DH = 24; // Bottom row\r
- _AH = 0x02;\r
- geninterrupt(0x10);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_TextScreen() - Puts up the startup text screen\r
-// Note: These are the only User Manager functions that can be safely called\r
-// before the User Mgr has been started up\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_TextScreen(void)\r
-{\r
- word i,n;\r
-\r
- USL_ClearTextScreen();\r
-\r
- _fmemcpy(MK_FP(0xb800,0),7 + &introscn,80 * 25 * 2);\r
-\r
- // Check for TED launching here\r
- for (i = 1;i < _argc;i++)\r
- {\r
- n = US_CheckParm(_argv[i],ParmStrings);\r
- if (n == 0)\r
- {\r
- tedlevelnum = atoi(_argv[i + 1]);\r
- if (tedlevelnum >= 0)\r
- {\r
- tedlevel = true;\r
- return;\r
- }\r
- else\r
- break;\r
- }\r
- else if (n == 1)\r
- {\r
- NoWait = true;\r
- return;\r
- }\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_Show() - Changes the appearance of one of the fields on the text\r
-// screen. Possibly adds a checkmark in front of it and highlights it\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_Show(word x,word y,word w,boolean show,boolean hilight)\r
-{\r
- byte far *screen,far *oscreen;\r
-\r
- screen = MK_FP(0xb800,((x - 1) * 2) + (y * 80 * 2));\r
- oscreen = (&introscn + 7) + ((x - 1) * 2) + (y * 80 * 2) - 1;\r
- *screen++ = show? 251 : ' '; // Checkmark char or space\r
-// *screen = 0x48;\r
-// *screen = (*oscreen & 0xf0) | 8;\r
- oscreen += 2;\r
- if (show && hilight)\r
- {\r
- for (w++;w--;screen += 2,oscreen += 2)\r
- *screen = (*oscreen & 0xf0) | 0x0f;\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_ShowMem() - Right justifies a longword in one of the memory fields on\r
-// the text screen\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_ShowMem(word x,word y,long mem)\r
-{\r
- char buf[16];\r
- word i;\r
-\r
- for (i = strlen(ltoa(mem,buf,10));i < 5;i++)\r
- USL_ScreenDraw(x++,y," ",0xff);\r
- USL_ScreenDraw(x,y,buf,0xff);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_UpdateTextScreen() - Called after the ID libraries are started up.\r
-// Displays what hardware is present.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_UpdateTextScreen(void)\r
-{\r
- boolean b;\r
- longword totalmem;\r
-\r
- // Show video card info\r
- b = (grmode == CGAGR);\r
- USL_Show(21,7,4,(videocard >= CGAcard) && (videocard <= VGAcard),b);\r
- b = (grmode == EGAGR || grmode == VGAGR);\r
- USL_Show(21,8,7,(videocard >= EGAcard) && (videocard <= VGAcard),b);\r
-// b = (grmode == VGAGR);\r
-// USL_Show(21,9,4,videocard == VGAcard,b);\r
-#if GRMODE != CGAGR\r
- if (compatability)\r
- USL_ScreenDraw(5,10,"SVGA Compatibility Mode Enabled.",0x4f);\r
-#endif\r
-\r
- // Show input device info\r
- USL_Show(60,7,8,true,true);\r
- USL_Show(60,8,11,JoysPresent[0],true);\r
- USL_Show(60,9,11,JoysPresent[1],true);\r
- USL_Show(60,10,5,MousePresent,true);\r
-\r
- // Show sound hardware info\r
- USL_Show(21,14,11,true,SoundMode == sdm_PC);\r
- b = (SoundMode == sdm_AdLib) || (MusicMode == smm_AdLib);\r
- USL_Show(21,15,14,AdLibPresent,b);\r
- if (b && AdLibPresent) // Hack because of two lines\r
- {\r
- byte far *screen,far *oscreen;\r
- word x,y,w;\r
-\r
- x = 21;\r
- y = 16;\r
- w = 14;\r
- screen = MK_FP(0xb800,(x * 2) + (y * 80 * 2) - 1);\r
- oscreen = (&introscn + 7) + (x * 2) + (y * 80 * 2) - 1;\r
- oscreen += 2;\r
- for (w++;w--;screen += 2,oscreen += 2)\r
- *screen = (*oscreen & 0xf0) | 0x0f;\r
- }\r
-\r
- // Show memory available/used\r
- USL_ShowMem(63,15,mminfo.mainmem / 1024);\r
- USL_Show(53,15,23,true,true);\r
- USL_ShowMem(63,16,mminfo.EMSmem / 1024);\r
- USL_Show(53,16,23,mminfo.EMSmem? true : false,true);\r
- USL_ShowMem(63,17,mminfo.XMSmem / 1024);\r
- USL_Show(53,17,23,mminfo.XMSmem? true : false,true);\r
- totalmem = mminfo.mainmem + mminfo.EMSmem + mminfo.XMSmem;\r
- USL_ShowMem(63,18,totalmem / 1024);\r
- USL_Show(53,18,23,true,true); // DEBUG\r
- USL_ScreenDraw(52,18," ",0xff);\r
-\r
- // Change Initializing... to Loading...\r
- USL_ScreenDraw(27,22," Loading... ",0x9c);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_FinishTextScreen() - After the main program has finished its initial\r
-// loading, this routine waits for a keypress and then clears the screen\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_FinishTextScreen(void)\r
-{\r
-static byte colors[] = {4,6,13,15,15,15,15,15,15};\r
- boolean up;\r
- int i,c;\r
-\r
- // Change Loading... to Press a Key\r
-\r
- if (!(tedlevel || NoWait))\r
- {\r
- IN_ClearKeysDown();\r
- for (i = 0,up = true;!IN_UserInput(4,true);)\r
- {\r
- c = colors[i];\r
- if (up)\r
- {\r
- if (++i == 9)\r
- i = 8,up = false;\r
- }\r
- else\r
- {\r
- if (--i < 0)\r
- i = 1,up = true;\r
- }\r
-\r
- USL_ScreenDraw(29,22," Ready - Press a Key ",0x00 + c);\r
- }\r
- }\r
- else\r
- USL_ScreenDraw(29,22," Ready - Press a Key ",0x9a);\r
-\r
- IN_ClearKeysDown();\r
-\r
- USL_ClearTextScreen();\r
-}\r
-\r
-// Window/Printing routines\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_SetPrintRoutines() - Sets the routines used to measure and print\r
-// from within the User Mgr. Primarily provided to allow switching\r
-// between masked and non-masked fonts\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_SetPrintRoutines(void (*measure)(char far *,word *,word *),void (*print)(char far *))\r
-{\r
- USL_MeasureString = measure;\r
- USL_DrawString = print;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_Print() - Prints a string in the current window. Newlines are\r
-// supported.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_Print(char *s)\r
-{\r
- char c,*se;\r
- word w,h;\r
-\r
- while (*s)\r
- {\r
- se = s;\r
- while ((c = *se) && (c != '\n'))\r
- se++;\r
- *se = '\0';\r
-\r
- USL_MeasureString(s,&w,&h);\r
- px = PrintX;\r
- py = PrintY;\r
- USL_DrawString(s);\r
-\r
- s = se;\r
- if (c)\r
- {\r
- *se = c;\r
- s++;\r
-\r
- PrintX = WindowX;\r
- PrintY += h;\r
- }\r
- else\r
- PrintX += w;\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_PrintUnsigned() - Prints an unsigned long\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_PrintUnsigned(longword n)\r
-{\r
- char buffer[32];\r
-\r
- US_Print(ultoa(n,buffer,10));\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_PrintSigned() - Prints a signed long\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_PrintSigned(long n)\r
-{\r
- char buffer[32];\r
-\r
- US_Print(ltoa(n,buffer,10));\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_PrintInCenter() - Prints a string in the center of the given rect\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-USL_PrintInCenter(char *s,Rect r)\r
-{\r
- word w,h,\r
- rw,rh;\r
-\r
- USL_MeasureString(s,&w,&h);\r
- rw = r.lr.x - r.ul.x;\r
- rh = r.lr.y - r.ul.y;\r
-\r
- px = r.ul.x + ((rw - w) / 2);\r
- py = r.ul.y + ((rh - h) / 2);\r
- USL_DrawString(s);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_PrintCentered() - Prints a string centered in the current window.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_PrintCentered(char *s)\r
-{\r
- Rect r;\r
-\r
- r.ul.x = WindowX;\r
- r.ul.y = WindowY;\r
- r.lr.x = r.ul.x + WindowW;\r
- r.lr.y = r.ul.y + WindowH;\r
-\r
- USL_PrintInCenter(s,r);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_CPrintLine() - Prints a string centered on the current line and\r
-// advances to the next line. Newlines are not supported.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_CPrintLine(char *s)\r
-{\r
- word w,h;\r
-\r
- USL_MeasureString(s,&w,&h);\r
-\r
- if (w > WindowW)\r
- Quit("US_CPrintLine() - String exceeds width");\r
- px = WindowX + ((WindowW - w) / 2);\r
- py = PrintY;\r
- USL_DrawString(s);\r
- PrintY += h;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_CPrint() - Prints a string in the current window. Newlines are\r
-// supported.\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_CPrint(char *s)\r
-{\r
- char c,*se;\r
-\r
- while (*s)\r
- {\r
- se = s;\r
- while ((c = *se) && (c != '\n'))\r
- se++;\r
- *se = '\0';\r
-\r
- US_CPrintLine(s);\r
-\r
- s = se;\r
- if (c)\r
- {\r
- *se = c;\r
- s++;\r
- }\r
- }\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_ClearWindow() - Clears the current window to white and homes the\r
-// cursor\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_ClearWindow(void)\r
-{\r
- VWB_Bar(WindowX,WindowY,WindowW,WindowH,WHITE);\r
- PrintX = WindowX;\r
- PrintY = WindowY;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_DrawWindow() - Draws a frame and sets the current window parms\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_DrawWindow(word x,word y,word w,word h)\r
-{\r
- word i,\r
- sx,sy,sw,sh;\r
-\r
- WindowX = x * 8;\r
- WindowY = y * 8;\r
- WindowW = w * 8;\r
- WindowH = h * 8;\r
-\r
- PrintX = WindowX;\r
- PrintY = WindowY;\r
-\r
- sx = (x - 1) * 8;\r
- sy = (y - 1) * 8;\r
- sw = (w + 1) * 8;\r
- sh = (h + 1) * 8;\r
-\r
- US_ClearWindow();\r
-\r
- VWB_DrawTile8M(sx,sy,0),VWB_DrawTile8M(sx,sy + sh,6);\r
- for (i = sx + 8;i <= sx + sw - 8;i += 8)\r
- VWB_DrawTile8M(i,sy,1),VWB_DrawTile8M(i,sy + sh,7);\r
- VWB_DrawTile8M(i,sy,2),VWB_DrawTile8M(i,sy + sh,8);\r
-\r
- for (i = sy + 8;i <= sy + sh - 8;i += 8)\r
- VWB_DrawTile8M(sx,i,3),VWB_DrawTile8M(sx + sw,i,5);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_CenterWindow() - Generates a window of a given width & height in the\r
-// middle of the screen\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_CenterWindow(word w,word h)\r
-{\r
- US_DrawWindow(((MaxX / 8) - w) / 2,((MaxY / 8) - h) / 2,w,h);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_CenterSaveWindow() - Generates a window of a given width & height in\r
-// the middle of the screen, saving the background\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_CenterSaveWindow(word w,word h,memptr *save)\r
-{\r
- word x,y,\r
- screen;\r
-\r
- x = ((MaxX / 8) - w) / 2;\r
- y = ((MaxY / 8) - h) / 2;\r
- MM_GetPtr(save,(w * h) * CHARWIDTH);\r
- screen = bufferofs + panadjust + ylookup[y] + (x * CHARWIDTH);\r
- VW_ScreenToMem(screen,*save,w * CHARWIDTH,h);\r
- US_DrawWindow(((MaxX / 8) - w) / 2,((MaxY / 8) - h) / 2,w,h);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_RestoreSaveWindow() - Restores the background of the size of the\r
-// current window from the memory specified by save\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_RestoreSaveWindow(memptr *save)\r
-{\r
- word screen;\r
-\r
- screen = bufferofs + panadjust + ylookup[WindowY] + (WindowX * CHARWIDTH);\r
- VW_MemToScreen(*save,screen,WindowW * CHARWIDTH,WindowH);\r
- MM_FreePtr(save);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_SaveWindow() - Saves the current window parms into a record for\r
-// later restoration\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_SaveWindow(WindowRec *win)\r
-{\r
- win->x = WindowX;\r
- win->y = WindowY;\r
- win->w = WindowW;\r
- win->h = WindowH;\r
-\r
- win->px = PrintX;\r
- win->py = PrintY;\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_RestoreWindow() - Sets the current window parms to those held in the\r
-// record\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_RestoreWindow(WindowRec *win)\r
-{\r
- WindowX = win->x;\r
- WindowY = win->y;\r
- WindowW = win->w;\r
- WindowH = win->h;\r
-\r
- PrintX = win->px;\r
- PrintY = win->py;\r
-}\r
-\r
-// Cursor routines\r
-\r
-#if 0\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_StartCursor() - Sets up the cursor for User Mgr use\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_StartCursor(void)\r
-{\r
- CursorInfo info;\r
-\r
- VW_SetCursor(CURSORARROWSPR);\r
- CursorX = MaxX / 2;\r
- CursorY = MaxY / 2;\r
- VW_MoveCursor(CursorX,CursorY);\r
- VW_ShowCursor();\r
-\r
- IN_ReadCursor(&info); // Dispose of any accumulated movement\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_ShutCursor() - Cleans up after US_StartCursor()\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-void\r
-US_ShutCursor(void)\r
-{\r
- VW_HideCursor();\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_UpdateCursor() - Gets the new cursor position & button states from\r
-// the Input Mgr and tells the View Mgr where the cursor is\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-boolean\r
-US_UpdateCursor(void)\r
-{\r
- CursorInfo info;\r
-\r
- IN_ReadCursor(&info);\r
- if (info.x || info.y || CursorBad)\r
- {\r
- CursorX += info.x;\r
- if (CursorX >= MaxX)\r
- CursorX = MaxX - 1;\r
- else if (CursorX < 0)\r
- CursorX = 0;\r
-\r
- CursorY += info.y;\r
- if (CursorY >= MaxY)\r
- CursorY = MaxY - 1;\r
- else if (CursorY < 0)\r
- CursorY = 0;\r
-\r
- VW_MoveCursor(CursorX,CursorY);\r
- CursorBad = false;\r
- }\r
- Button0 = info.button0;\r
- Button1 = info.button1;\r
- return(Button0 || Button1);\r
-}\r
-#endif\r
-\r
-// Input routines\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_XORICursor() - XORs the I-bar text cursor. Used by US_LineInput()\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_XORICursor(int x,int y,char *s,word cursor)\r
-{\r
- char buf[MaxString];\r
- word w,h;\r
-\r
- strcpy(buf,s);\r
- buf[cursor] = '\0';\r
- USL_MeasureString(buf,&w,&h);\r
-\r
- px = x + w - 1;\r
- py = y;\r
- USL_DrawString("\x80");\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_LineInput() - Gets a line of user input at (x,y), the string defaults\r
-// to whatever is pointed at by def. Input is restricted to maxchars\r
-// chars or maxwidth pixels wide. If the user hits escape (and escok is\r
-// true), nothing is copied into buf, and false is returned. If the\r
-// user hits return, the current string is copied into buf, and true is\r
-// returned\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-boolean\r
-US_LineInput(int x,int y,char *buf,char *def,boolean escok,\r
- int maxchars,int maxwidth)\r
-{\r
- boolean redraw,\r
- cursorvis,cursormoved,\r
- done,result;\r
- ScanCode sc;\r
- char c,\r
- s[MaxString],olds[MaxString];\r
- word i,\r
- cursor,\r
- w,h,\r
- len;\r
- longword lasttime;\r
-\r
- VW_HideCursor();\r
-\r
- if (def)\r
- strcpy(s,def);\r
- else\r
- *s = '\0';\r
- *olds = '\0';\r
- cursor = strlen(s);\r
- cursormoved = redraw = true;\r
-\r
- cursorvis = done = false;\r
- lasttime = TimeCount;\r
- LastASCII = key_None;\r
- LastScan = sc_None;\r
-\r
- while (!done)\r
- {\r
- if (cursorvis)\r
- USL_XORICursor(x,y,s,cursor);\r
-\r
- asm pushf\r
- asm cli\r
-\r
- sc = LastScan;\r
- LastScan = sc_None;\r
- c = LastASCII;\r
- LastASCII = key_None;\r
-\r
- asm popf\r
-\r
- switch (sc)\r
- {\r
- case sc_LeftArrow:\r
- if (cursor)\r
- cursor--;\r
- c = key_None;\r
- cursormoved = true;\r
- break;\r
- case sc_RightArrow:\r
- if (s[cursor])\r
- cursor++;\r
- c = key_None;\r
- cursormoved = true;\r
- break;\r
- case sc_Home:\r
- cursor = 0;\r
- c = key_None;\r
- cursormoved = true;\r
- break;\r
- case sc_End:\r
- cursor = strlen(s);\r
- c = key_None;\r
- cursormoved = true;\r
- break;\r
-\r
- case sc_Return:\r
- strcpy(buf,s);\r
- done = true;\r
- result = true;\r
- c = key_None;\r
- break;\r
- case sc_Escape:\r
- if (escok)\r
- {\r
- done = true;\r
- result = false;\r
- }\r
- c = key_None;\r
- break;\r
-\r
- case sc_BackSpace:\r
- if (cursor)\r
- {\r
- strcpy(s + cursor - 1,s + cursor);\r
- cursor--;\r
- redraw = true;\r
- }\r
- c = key_None;\r
- cursormoved = true;\r
- break;\r
- case sc_Delete:\r
- if (s[cursor])\r
- {\r
- strcpy(s + cursor,s + cursor + 1);\r
- redraw = true;\r
- }\r
- c = key_None;\r
- cursormoved = true;\r
- break;\r
-\r
- case 0x4c: // Keypad 5\r
- case sc_UpArrow:\r
- case sc_DownArrow:\r
- case sc_PgUp:\r
- case sc_PgDn:\r
- case sc_Insert:\r
- c = key_None;\r
- break;\r
- }\r
-\r
- if (c)\r
- {\r
- len = strlen(s);\r
- USL_MeasureString(s,&w,&h);\r
-\r
- if\r
- (\r
- isprint(c)\r
- && (len < MaxString - 1)\r
- && ((!maxchars) || (len < maxchars))\r
- && ((!maxwidth) || (w < maxwidth))\r
- )\r
- {\r
- for (i = len + 1;i > cursor;i--)\r
- s[i] = s[i - 1];\r
- s[cursor++] = c;\r
- redraw = true;\r
- }\r
- }\r
-\r
- if (redraw)\r
- {\r
- px = x;\r
- py = y;\r
- USL_DrawString(olds);\r
- strcpy(olds,s);\r
-\r
- px = x;\r
- py = y;\r
- USL_DrawString(s);\r
-\r
- redraw = false;\r
- }\r
-\r
- if (cursormoved)\r
- {\r
- cursorvis = false;\r
- lasttime = TimeCount - TickBase;\r
-\r
- cursormoved = false;\r
- }\r
- if (TimeCount - lasttime > TickBase / 2)\r
- {\r
- lasttime = TimeCount;\r
-\r
- cursorvis ^= true;\r
- }\r
- if (cursorvis)\r
- USL_XORICursor(x,y,s,cursor);\r
-\r
- VW_UpdateScreen();\r
- }\r
-\r
- if (cursorvis)\r
- USL_XORICursor(x,y,s,cursor);\r
- if (!result)\r
- {\r
- px = x;\r
- py = y;\r
- USL_DrawString(olds);\r
- }\r
- VW_ShowCursor();\r
- VW_UpdateScreen();\r
-\r
- IN_ClearKeysDown();\r
- return(result);\r
-}\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-//\r
-// ID Engine\r
-// ID_US.c - User Manager - User interface\r
-// v1.1d1\r
-// By Jason Blochowiak\r
-// Hacked up for Catacomb 3D\r
-//\r
-\r
-#include "ID_HEADS.H"\r
-#pragma hdrstop\r
-\r
-#pragma warn -pia\r
-\r
-// Special imports\r
-extern boolean showscorebox;\r
-#ifdef KEEN\r
-extern boolean jerk;\r
-extern boolean oldshooting;\r
-extern ScanCode firescan;\r
-void USL_CheckSavedGames(void);\r
-#else\r
- ScanCode firescan;\r
-#endif\r
-\r
-// Global variables\r
- boolean ingame,abortgame,loadedgame;\r
- GameDiff restartgame = gd_Continue;\r
-\r
-// Internal variables\r
-static boolean GameIsDirty,\r
- QuitToDos,\r
- CtlPanelDone;\r
-\r
-#ifdef KEEN6\r
- int listindex = -1;\r
- boolean checkpassed;\r
-#endif\r
-\r
-// Forward reference prototypes\r
-static void USL_SetupCard(void);\r
-\r
-// Control panel data\r
-\r
-#define CtlPanelSX 74\r
-#define CtlPanelSY 48\r
-#define CtlPanelEX 234\r
-#define CtlPanelEY 150\r
-#define CtlPanelW (CtlPanelEX - CtlPanelSX)\r
-#define CtlPanelH (CtlPanelEY - CtlPanelSY)\r
-\r
-#ifdef KEEN\r
-\r
-#define TileBase 92\r
-\r
-#if GRMODE == CGAGR\r
-\r
-#define BackColor 0\r
-#define HiliteColor (BackColor ^ 3)\r
-#define NohiliteColor (BackColor ^ 2)\r
-\r
-#else\r
-\r
-#define BackColor 8\r
-#define HiliteColor (BackColor ^ 10)\r
-#define NohiliteColor (BackColor ^ 2)\r
-\r
-#endif // if GRMODE == CGAGR ... else ...\r
-\r
-#else // ifdef KEEN\r
-\r
-#define TileBase 92\r
-\r
-// DEBUG - CGA\r
-#define BackColor 0\r
-#define HiliteColor (BackColor ^ 12)\r
-#define NohiliteColor (BackColor ^ 4)\r
-\r
-#endif\r
-\r
-typedef enum\r
- {\r
- uc_None,\r
- uc_Return,\r
- uc_Abort,\r
- uc_Quit,\r
- uc_Loaded,\r
- uc_SEasy,\r
- uc_SNormal,\r
- uc_SHard,\r
- } UComm;\r
-typedef enum\r
- {\r
- uii_Bad,\r
- uii_Button,uii_RadioButton,uii_Folder\r
- } UIType;\r
-typedef enum\r
- {\r
- ui_Normal = 0,\r
- ui_Pushed = 1,\r
- ui_Selected = 2,\r
- ui_Disabled = 4,\r
- ui_Separated = 8\r
- } UIFlags;\r
-#define UISelectFlags (ui_Pushed | ui_Selected | ui_Disabled)\r
-\r
-typedef enum\r
- {\r
- uic_SetupCard,uic_DrawCard,uic_TouchupCard,\r
- uic_DrawIcon,uic_Draw,uic_Hit\r
- } UserCall;\r
-\r
-typedef struct UserItem\r
- {\r
- UIType type;\r
- UIFlags flags;\r
- ScanCode hotkey;\r
- char *text;\r
- UComm comm;\r
- void far *child; // Should be (UserItemGroup *)\r
-\r
- word x,y;\r
- } UserItem;\r
-typedef struct UserItemGroup\r
- {\r
- word x,y;\r
- graphicnums title;\r
- ScanCode hotkey;\r
- UserItem far *items;\r
- boolean (*custom)(UserCall,struct UserItem far *); // Custom routine\r
-\r
- word cursor;\r
- struct UserItemGroup far *parent;\r
- } UserItemGroup;\r
-\r
-static char *BottomS1,*BottomS2,*BottomS3;\r
-static UComm Communication;\r
-static ScanCode *KeyMaps[] =\r
- {\r
- &KbdDefs[0].button0,\r
- &KbdDefs[0].button1,\r
- &firescan,\r
- &KbdDefs[0].upleft,\r
- &KbdDefs[0].up,\r
- &KbdDefs[0].upright,\r
- &KbdDefs[0].right,\r
- &KbdDefs[0].downright,\r
- &KbdDefs[0].down,\r
- &KbdDefs[0].downleft,\r
- &KbdDefs[0].left\r
- };\r
-\r
-// Custom routine prototypes\r
-static boolean USL_ConfigCustom(UserCall call,struct UserItem far *item),\r
- USL_KeyCustom(UserCall call,struct UserItem far *item),\r
- USL_KeySCustom(UserCall call,struct UserItem far *item),\r
- USL_Joy1Custom(UserCall call,struct UserItem far *item),\r
- USL_Joy2Custom(UserCall call,struct UserItem far *item),\r
- USL_JoyGCustom(UserCall call,struct UserItem far *item),\r
- USL_LoadCustom(UserCall call,struct UserItem far *item),\r
- USL_SaveCustom(UserCall call,struct UserItem far *item),\r
- USL_ScoreCustom(UserCall call,struct UserItem far *item),\r
- USL_CompCustom(UserCall call,struct UserItem far *item),\r
- USL_SmoothCustom(UserCall call,struct UserItem far *item),\r
-#ifdef KEEN\r
- USL_TwoCustom(UserCall call,struct UserItem far *item),\r
-#endif\r
- USL_PongCustom(UserCall call,struct UserItem far *item);\r
-\r
-#define DefButton(key,text) uii_Button,ui_Normal,key,text\r
-#define DefRButton(key,text) uii_RadioButton,ui_Normal,key,text\r
-#define DefFolder(key,text,child) uii_Folder,ui_Normal,key,text,uc_None,child\r
-#define CustomGroup(title,key,custom) 0,0,title,key,0,custom\r
- UserItem far holder[] =\r
- {\r
- {DefButton(sc_None,"DEBUG")},\r
- {uii_Bad}\r
- };\r
- UserItemGroup far holdergroup = {0,0,CP_MAINMENUPIC,sc_None,holder};\r
-\r
- // Sound menu\r
- UserItem far soundi[] =\r
- {\r
- {DefRButton(sc_N,"NO SOUND EFFECTS")},\r
- {DefRButton(sc_P,"PC SPEAKER")},\r
- {DefRButton(sc_A,"ADLIB/SOUNDBLASTER")},\r
- {DefRButton(sc_Q,"QUIET ADLIB/SOUNDBLASTER")},\r
- {uii_Bad}\r
- };\r
- UserItemGroup far soundgroup = {8,0,CP_SOUNDMENUPIC,sc_None,soundi};\r
-\r
- // Music menu\r
- UserItem far musici[] =\r
- {\r
- {DefRButton(sc_N,"NO MUSIC")},\r
- {DefRButton(sc_A,"ADLIB/SOUNDBLASTER")},\r
- {uii_Bad}\r
- };\r
- UserItemGroup far musicgroup = {8,0,CP_MUSICMENUPIC,sc_None,musici};\r
-\r
- // New game menu\r
- UserItem far newgamei[] =\r
- {\r
- {DefButton(sc_E,"BEGIN EASY GAME"),uc_SEasy},\r
- {DefButton(sc_N,"BEGIN NORMAL GAME"),uc_SNormal},\r
- {DefButton(sc_H,"BEGIN HARD GAME"),uc_SHard},\r
- {uii_Bad}\r
- };\r
- UserItemGroup far newgamegroup = {8,0,CP_NEWGAMEMENUPIC,sc_None,newgamei,0,1};\r
-\r
- // Load/Save game menu\r
- UserItem far loadsavegamei[] =\r
- {\r
-#ifdef CAT3D\r
- {uii_Button,ui_Normal,sc_None},\r
- {uii_Button,ui_Normal,sc_None},\r
- {uii_Button,ui_Normal,sc_None},\r
- {uii_Button,ui_Normal,sc_None},\r
- {uii_Button,ui_Normal,sc_None},\r
- {uii_Button,ui_Normal,sc_None},\r
-#else\r
- {uii_Button,ui_Normal,sc_1},\r
- {uii_Button,ui_Normal,sc_2},\r
- {uii_Button,ui_Normal,sc_3},\r
- {uii_Button,ui_Normal,sc_4},\r
- {uii_Button,ui_Normal,sc_5},\r
- {uii_Button,ui_Normal,sc_6},\r
-#endif\r
- {uii_Bad}\r
- };\r
- UserItemGroup far loadgamegroup = {4,3,CP_LOADMENUPIC,sc_None,loadsavegamei,USL_LoadCustom};\r
- UserItemGroup far savegamegroup = {4,3,CP_SAVEMENUPIC,sc_None,loadsavegamei,USL_SaveCustom};\r
-\r
- // Options menu\r
- UserItemGroup far scoregroup = {0,0,0,sc_None,0,USL_ScoreCustom};\r
-#ifdef KEEN\r
- UserItemGroup far twogroup = {0,0,0,sc_None,0,USL_TwoCustom};\r
-#endif\r
-#if GRMODE != CGAGR\r
- UserItemGroup far smoothgroup = {0,0,0,sc_None,0,USL_SmoothCustom};\r
- UserItemGroup far compgroup = {0,0,0,sc_None,0,USL_CompCustom};\r
-#endif\r
-\r
- UserItem far optionsi[] =\r
- {\r
- {DefFolder(sc_S,"",&scoregroup)},\r
-#ifdef KEEN\r
- {DefFolder(sc_T,"",&twogroup)},\r
-#endif\r
-#if GRMODE != CGAGR\r
- {DefFolder(sc_M,"",&smoothgroup)},\r
- {DefFolder(sc_C,"",&compgroup)},\r
-#endif\r
- {uii_Bad}\r
- };\r
- UserItemGroup far optionsgroup = {8,0,CP_OPTIONSMENUPIC,sc_None,optionsi};\r
-\r
- // Keyboard menu\r
- UserItem far keyi[] =\r
- {\r
- {DefButton(sc_None,"UP & LEFT")},\r
- {DefButton(sc_None,"UP")},\r
- {DefButton(sc_None,"UP & RIGHT")},\r
- {DefButton(sc_None,"RIGHT")},\r
- {DefButton(sc_None,"DOWN & RIGHT")},\r
- {DefButton(sc_None,"DOWN")},\r
- {DefButton(sc_None,"DOWN & LEFT")},\r
- {DefButton(sc_None,"LEFT")},\r
- {uii_Bad}\r
- };\r
- UserItemGroup far keygroup = {0,0,CP_KEYMOVEMENTPIC,sc_None,keyi,USL_KeyCustom};\r
- UserItem far keybi[] =\r
- {\r
-#ifdef KEEN\r
- {DefButton(sc_J,"JUMP")},\r
- {DefButton(sc_P,"POGO")},\r
- {DefButton(sc_F,"FIRE")},\r
-#endif\r
-#ifdef CAT3D\r
- {DefButton(sc_J,"FIRE")},\r
- {DefButton(sc_P,"STRAFE")},\r
-#endif\r
-#ifdef CPD\r
- {DefButton(sc_J,"SHOOT")},\r
- {DefButton(sc_P,"BOMB")},\r
-#endif\r
- {uii_Bad}\r
- };\r
- UserItemGroup far keybgroup = {0,0,CP_KEYBUTTONPIC,sc_None,keybi,USL_KeyCustom};\r
- UserItem far keysi[] =\r
- {\r
- {DefFolder(sc_M,"MOVEMENT",&keygroup)},\r
- {DefFolder(sc_B,"BUTTONS",&keybgroup)},\r
- {uii_Bad}\r
- };\r
- UserItemGroup far keysgroup = {8,0,CP_KEYBOARDMENUPIC,sc_None,keysi,USL_KeySCustom};\r
-\r
- // Joystick #1 & #2\r
- UserItemGroup far joy1group = {CustomGroup(CP_JOYSTICKMENUPIC,sc_None,USL_Joy1Custom)};\r
- UserItemGroup far joy2group = {CustomGroup(CP_JOYSTICKMENUPIC,sc_None,USL_Joy2Custom)};\r
- UserItemGroup far gravisgroup = {CustomGroup(CP_JOYSTICKMENUPIC,sc_None,USL_JoyGCustom)};\r
-\r
- // Config menu\r
- UserItem far configi[] =\r
- {\r
- {DefFolder(sc_S,"SOUND",&soundgroup)},\r
- {DefFolder(sc_M,"MUSIC",&musicgroup)},\r
-#ifndef CAT3D\r
- {DefFolder(sc_O,"OPTIONS",&optionsgroup)},\r
-#endif\r
- {uii_Folder,ui_Separated,sc_K,"USE KEYBOARD",uc_None,&keysgroup},\r
- {DefFolder(sc_1,"USE JOYSTICK #1",&joy1group)},\r
- {DefFolder(sc_2,"USE JOYSTICK #2",&joy2group)},\r
- {DefFolder(sc_G,"",&gravisgroup)},\r
- {uii_Bad}\r
- };\r
-#ifdef CAT3D\r
- UserItemGroup far configgroup = {8,0,CP_CONFIGMENUPIC,sc_None,configi,USL_ConfigCustom};\r
-#else\r
- UserItemGroup far configgroup = {0,0,CP_CONFIGMENUPIC,sc_None,configi,USL_ConfigCustom};\r
-#endif\r
-\r
- // Main menu\r
- UserItemGroup far ponggroup = {0,0,0,sc_None,0,USL_PongCustom};\r
- UserItem far rooti[] =\r
- {\r
- {DefFolder(sc_N,"NEW GAME",&newgamegroup)},\r
- {DefFolder(sc_L,"LOAD GAME",&loadgamegroup)},\r
- {DefFolder(sc_S,"SAVE GAME",&savegamegroup)},\r
- {DefFolder(sc_C,"CONFIGURE",&configgroup)},\r
- {DefButton(sc_R,nil),uc_Return}, // Return to Game/Demo\r
- {DefButton(sc_E,"END GAME"),uc_Abort},\r
-#ifdef KEEN\r
- {DefFolder(sc_P,"PADDLE WAR",&ponggroup)},\r
-#elif defined CAT3D\r
- {DefFolder(sc_B,"SKULL 'N' BONES",&ponggroup)},\r
-#endif\r
- {DefButton(sc_Q,"QUIT"),uc_Quit},\r
- {uii_Bad}\r
- };\r
- UserItemGroup far rootgroup = {32,4,CP_MAINMENUPIC,sc_None,rooti};\r
-#undef DefButton\r
-#undef DefFolder\r
-\r
-#define MaxCards 7\r
- word cstackptr;\r
- UserItemGroup far *cardstack[MaxCards],\r
- far *topcard;\r
-\r
-// Card stack code\r
-static void\r
-USL_SetupStack(void)\r
-{\r
- cstackptr = 0;\r
- cardstack[0] = topcard = &rootgroup;\r
-}\r
-\r
-static void\r
-USL_PopCard(void)\r
-{\r
- if (!cstackptr)\r
- return;\r
-\r
- topcard = cardstack[--cstackptr];\r
-}\r
-\r
-static void\r
-USL_PushCard(UserItemGroup far *card)\r
-{\r
- if (cstackptr == MaxCards - 1)\r
- return;\r
-\r
- topcard = cardstack[++cstackptr] = card;\r
-}\r
-\r
-static void\r
-USL_DrawItemIcon(UserItem far *item)\r
-{\r
- word flags,tile;\r
-\r
- if (topcard->custom && topcard->custom(uic_DrawIcon,item))\r
- return;\r
-\r
- flags = item->flags;\r
- if (flags & ui_Disabled)\r
- tile = TileBase + ((flags & ui_Selected)? 5 : 4);\r
- else if ((item->type == uii_RadioButton) && (!(flags & ui_Pushed)))\r
- tile = TileBase + ((flags & ui_Selected)? 3 : 2);\r
- else\r
- tile = TileBase + ((flags & ui_Selected)? 1 : 0);\r
- VWB_DrawTile8(item->x,item->y,tile);\r
-}\r
-\r
-static void\r
-USL_DrawItem(UserItem far *item)\r
-{\r
- if (topcard->custom && topcard->custom(uic_Draw,item))\r
- return;\r
-\r
- VWB_Bar(CtlPanelSX + 1,item->y,\r
- CtlPanelEX - CtlPanelSX - 1,8,BackColor); // Clear out background\r
- USL_DrawItemIcon(item);\r
- if ((item->flags & ui_Selected) && !(item->flags & ui_Disabled))\r
- fontcolor = HiliteColor;\r
- else\r
- fontcolor = NohiliteColor;\r
- px = item->x + 8;\r
- py = item->y + 1;\r
- USL_DrawString(item->text);\r
- fontcolor = F_BLACK;\r
-}\r
-\r
-#ifdef KEEN\r
-#if GRMODE == CGAGR\r
-#define MyLine(y) VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,y,3);\r
-#else\r
-#define MyLine(y) VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,y,10);\r
-#endif\r
-#else\r
-#define MyLine(y) VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,y,12);\r
-#endif\r
-\r
-static void\r
-USL_DrawBottom(void)\r
-{\r
- word w,h;\r
-\r
- fontcolor = NohiliteColor;\r
-\r
- px = CtlPanelSX + 4;\r
- py = CtlPanelEY - 15;\r
- USL_DrawString(BottomS1);\r
-\r
- USL_MeasureString(BottomS2,&w,&h);\r
- px = CtlPanelEX - 4 - w;\r
- USL_DrawString(BottomS2);\r
-\r
- USL_MeasureString(BottomS3,&w,&h);\r
- px = CtlPanelSX + ((CtlPanelEX - CtlPanelSX - w) / 2);\r
- py += h + 1;\r
- USL_DrawString(BottomS3);\r
-\r
- fontcolor = F_WHITE;\r
- MyLine(CtlPanelEY - 17);\r
-}\r
-\r
-static void\r
-USL_DrawCtlPanelContents(void)\r
-{\r
- int x,y;\r
- UserItem far *item;\r
-\r
- if (topcard->custom && topcard->custom(uic_DrawCard,nil))\r
- return;\r
-\r
- if (topcard->title)\r
- {\r
- // Draw the title\r
- MyLine(CtlPanelSY + 7);\r
- VWB_DrawPic(CtlPanelSX + 6,CtlPanelSY,topcard->title);\r
- }\r
-\r
- USL_DrawBottom();\r
-\r
- if (!topcard->items)\r
- return;\r
-\r
- x = topcard->x + CtlPanelSX;\r
- if (x % 8)\r
- x += 8 - (x % 8);\r
- y = topcard->y + CtlPanelSY + 12;\r
- for (item = topcard->items;item->type != uii_Bad;item++)\r
- {\r
- if (item->flags & ui_Separated)\r
- y += 8;\r
-\r
- item->x = x;\r
- item->y = y;\r
- USL_DrawItem(item);\r
- y += 8;\r
- }\r
- if (topcard->custom)\r
- topcard->custom(uic_TouchupCard,nil);\r
-}\r
-\r
-static void\r
-USL_DrawCtlPanel(void)\r
-{\r
- if (topcard->items || topcard->title)\r
- {\r
- // Draw the backdrop\r
- VWB_DrawPic(0,0,CP_MENUSCREENPIC);\r
-\r
- // Draw the contents\r
- USL_DrawCtlPanelContents();\r
- }\r
-\r
- // Refresh the screen\r
- VW_UpdateScreen();\r
-}\r
-\r
-static void\r
-USL_DialogSetup(word w,word h,word *x,word *y)\r
-{\r
- VWB_DrawMPic(CtlPanelSX,CtlPanelSY,CP_MENUMASKPICM);\r
-\r
- *x = CtlPanelSX + ((CtlPanelW - w) / 2);\r
- *y = CtlPanelSY + ((CtlPanelH - h) / 2);\r
- VWB_Bar(*x,*y,w + 1,h + 1,BackColor);\r
- VWB_Hlin(*x - 1,*x + w + 1,*y - 1,NohiliteColor);\r
- VWB_Hlin(*x - 1,*x + w + 1,*y + h + 1,NohiliteColor);\r
- VWB_Vlin(*y - 1,*y + h + 1,*x - 1,NohiliteColor);\r
- VWB_Vlin(*y - 1,*y + h + 1,*x + w + 1,NohiliteColor);\r
-}\r
-\r
-static void\r
-USL_ShowLoadSave(char *s,char *name)\r
-{\r
- word x,y,\r
- w,h,\r
- tw,sw;\r
- char msg[MaxGameName + 4];\r
-\r
- strcpy(msg,"'");\r
- strcat(msg,name);\r
- strcat(msg,"'");\r
- USL_MeasureString(s,&sw,&h);\r
- USL_MeasureString(msg,&w,&h);\r
- tw = ((sw > w)? sw : w) + 6;\r
- USL_DialogSetup(tw,(h * 2) + 2,&x,&y);\r
- py = y + 2;\r
- px = x + ((tw - sw) / 2);\r
- USL_DrawString(s);\r
- py += h;\r
- px = x + ((tw - w) / 2);\r
- USL_DrawString(msg);\r
-\r
- VW_UpdateScreen();\r
-#ifdef CAT3D\r
- IN_UserInput(100, true);\r
-#endif\r
-}\r
-\r
-static boolean\r
-USL_CtlDialog(char *s1,char *s2,char *s3)\r
-{\r
- word w,h,sh,\r
- w1,w2,w3,\r
- x,y;\r
- ScanCode c;\r
- CursorInfo cursorinfo;\r
-\r
- USL_MeasureString(s1,&w1,&h);\r
- USL_MeasureString(s2,&w2,&h);\r
- if (s3)\r
- USL_MeasureString(s3,&w3,&h);\r
- else\r
- w3 = 0;\r
- w = (w1 > w2)? ((w1 > w3)? w1 : w3) : ((w2 > w3)? w2 : w3);\r
- w += 7;\r
- sh = h;\r
- h *= s3? 5 : 4;\r
-\r
- USL_DialogSetup(w,h,&x,&y);\r
-\r
- fontcolor = HiliteColor;\r
- px = x + ((w - w1) / 2);\r
- py = y + sh + 1;\r
- USL_DrawString(s1);\r
- py += (sh * 2) - 1;\r
-\r
- VWB_Hlin(x + 3,x + w - 3,py,NohiliteColor);\r
- py += 2;\r
-\r
- fontcolor = NohiliteColor;\r
- px = x + ((w - w2) / 2);\r
- USL_DrawString(s2);\r
- py += sh;\r
-\r
- if (s3)\r
- {\r
- px = x + ((w - w3) / 2);\r
- USL_DrawString(s3);\r
- }\r
-\r
- VW_UpdateScreen();\r
-\r
- IN_ClearKeysDown();\r
- do\r
- {\r
- IN_ReadCursor(&cursorinfo);\r
- if (cursorinfo.button0)\r
- c = sc_Y;\r
- else if (cursorinfo.button1)\r
- c = sc_Escape;\r
- else\r
- c = LastScan;\r
- } while (c == sc_None);\r
- do\r
- {\r
- IN_ReadCursor(&cursorinfo);\r
- } while (cursorinfo.button0 || cursorinfo.button1);\r
-\r
- IN_ClearKeysDown();\r
- USL_DrawCtlPanel();\r
- return(c == sc_Y);\r
-}\r
-\r
-static boolean\r
-USL_ConfirmComm(UComm comm)\r
-{\r
- boolean confirm,dialog;\r
- char *s1,*s2,*s3;\r
-\r
- if (!comm)\r
- Quit("USL_ConfirmComm() - empty comm");\r
-\r
- confirm = true;\r
- dialog = false;\r
- s3 = "ESC TO BACK OUT";\r
- switch (comm)\r
- {\r
- case uc_Abort:\r
- s1 = "REALLY END CURRENT GAME?";\r
- s2 = "PRESS Y TO END IT";\r
- if (ingame && GameIsDirty)\r
- dialog = true;\r
- break;\r
- case uc_Quit:\r
- s1 = "REALLY QUIT?";\r
- s2 = "PRESS Y TO QUIT";\r
- dialog = true;\r
- break;\r
- case uc_Loaded:\r
- s1 = "YOU'RE IN A GAME";\r
- s2 = "PRESS Y TO LOAD GAME";\r
- if (ingame && GameIsDirty)\r
- dialog = true;\r
- break;\r
- case uc_SEasy:\r
- case uc_SNormal:\r
- case uc_SHard:\r
- s1 = "YOU'RE IN A GAME";\r
- s2 = "PRESS Y FOR NEW GAME";\r
- if (ingame && GameIsDirty)\r
- dialog = true;\r
- break;\r
- }\r
-\r
- confirm = dialog? USL_CtlDialog(s1,s2,s3) : true;\r
- if (confirm)\r
- {\r
- Communication = comm;\r
- CtlPanelDone = true;\r
- }\r
- return(confirm);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_HandleError() - Handles telling the user that there's been an error\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_HandleError(int num)\r
-{\r
- char buf[64];\r
-\r
- strcpy(buf,"Error: ");\r
- if (num < 0)\r
- strcat(buf,"Unknown");\r
- else if (num == ENOMEM)\r
- strcat(buf,"Disk is Full");\r
- else if (num == EINVFMT)\r
- strcat(buf,"File is Incomplete");\r
- else\r
- strcat(buf,sys_errlist[num]);\r
-\r
- VW_HideCursor();\r
-\r
- USL_CtlDialog(buf,"PRESS ANY KEY",nil);\r
- VW_UpdateScreen();\r
-\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- VW_ShowCursor();\r
- VW_UpdateScreen();\r
-}\r
-\r
-// Custom routines\r
-#if 0\r
-static boolean\r
-USL_GenericCustom(UserCall call,UserItem far *item)\r
-{\r
- boolean result;\r
-\r
- result = false;\r
- switch (call)\r
- {\r
- }\r
- return(result);\r
-}\r
-#endif\r
-\r
-static void\r
-USL_SetOptionsText(void)\r
-{\r
- optionsi[0].text = showscorebox? "SCORE BOX (ON)" : "SCORE BOX (OFF)";\r
- optionsi[1].text = oldshooting? "TWO-BUTTON FIRING (ON)" : "TWO-BUTTON FIRING (OFF)";\r
-#if GRMODE != CGAGR\r
- optionsi[2].text = jerk? "FIX JERKY MOTION (ON)" : "FIX JERKY MOTION (OFF)";\r
- optionsi[3].text = compatability? "SVGA COMPATIBILITY (ON)" : "SVGA COMPATIBILITY (OFF)";\r
-#endif\r
-\r
- keybi[2].flags &= ~ui_Disabled;\r
- if (oldshooting)\r
- keybi[2].flags |= ui_Disabled;\r
-\r
- // gravis option is only enabled when a joystick is selected\r
- configi[6].flags |= ui_Disabled;\r
- if (Controls[0] == ctrl_Joystick1 || Controls[0] == ctrl_Joystick2)\r
- configi[6].flags &= ~ui_Disabled;\r
-\r
- configi[6].text = GravisGamepad? "USE GRAVIS GAMEPAD (ON)" : "USE GRAVIS GAMEPAD (OFF)";\r
-}\r
-\r
-#pragma argsused\r
-static boolean\r
-USL_ScoreCustom(UserCall call,UserItem far *item)\r
-{\r
- if (call != uic_SetupCard)\r
- return(false);\r
-\r
- showscorebox ^= true;\r
- USL_CtlDialog(showscorebox? "Score box now on" : "Score box now off",\r
- "Press any key",nil);\r
- USL_SetOptionsText();\r
- return(true);\r
-}\r
-\r
-#pragma argsused\r
-static boolean\r
-USL_SmoothCustom(UserCall call,UserItem far *item)\r
-{\r
- if (call != uic_SetupCard)\r
- return(false);\r
-\r
- jerk ^= true;\r
- USL_CtlDialog(jerk? "Jerky motion fix enabled" : "Jerky motion fix disabled",\r
- "Press any key",nil);\r
- USL_SetOptionsText();\r
- return(true);\r
-}\r
-\r
-#pragma argsused\r
-static boolean\r
-USL_CompCustom(UserCall call,UserItem far *item)\r
-{\r
- if (call != uic_SetupCard)\r
- return(false);\r
-\r
- compatability ^= true;\r
- USL_CtlDialog(compatability? "SVGA compatibility now on" : "SVGA compatibility now off",\r
- "Press any key",nil);\r
- USL_SetOptionsText();\r
- return(true);\r
-}\r
-\r
-#ifdef KEEN\r
-#pragma argsused\r
-static boolean\r
-USL_TwoCustom(UserCall call,UserItem far *item)\r
-{\r
- if (call != uic_SetupCard)\r
- return(false);\r
-\r
- oldshooting ^= true;\r
- USL_CtlDialog(oldshooting? "Two-button firing now on" : "Two-button firing now off",\r
- "Press any key",nil);\r
- USL_SetOptionsText();\r
- return(true);\r
-}\r
-#endif\r
-\r
-static boolean\r
-USL_ConfigCustom(UserCall call,UserItem far *item)\r
-{\r
-static char *CtlNames[] = {"KEYBOARD","KEYBOARD","JOYSTICK #1","JOYSTICK #2","MOUSE"};\r
- char *s;\r
- word w,h,\r
- tw;\r
-\r
- if (call == uic_TouchupCard)\r
- {\r
- s = "CONTROL: ";\r
- USL_MeasureString(s,&w,&h);\r
- tw = w;\r
- USL_MeasureString(CtlNames[Controls[0]],&w,&h);\r
- tw += w;\r
- py = CtlPanelEY - 18 - h;\r
- px = CtlPanelSX + ((CtlPanelW - tw) / 2);\r
- fontcolor = NohiliteColor;\r
- USL_DrawString(s);\r
- USL_DrawString(CtlNames[Controls[0]]);\r
- }\r
- item++; // Shut the compiler up\r
- return(false);\r
-}\r
-\r
-static void\r
-USL_CKSetKey(UserItem far *item,word i)\r
-{\r
- boolean on;\r
- word j;\r
- ScanCode scan;\r
- longword time;\r
- CursorInfo cursorinfo;\r
-\r
- on = false;\r
- time = 0;\r
- LastScan = sc_None;\r
- fontcolor = HiliteColor;\r
- do\r
- {\r
- if (TimeCount >= time)\r
- {\r
- on ^= true;\r
- VWB_Bar(item->x + 90,item->y,40,8,fontcolor ^ BackColor);\r
- VWB_Bar(item->x + 90 + 1,item->y + 1,40 - 2,8 - 2,BackColor);\r
- if (on)\r
- VWB_DrawTile8(item->x + 90 + 16,item->y,TileBase + 8);\r
- VW_UpdateScreen();\r
-\r
- time = TimeCount + (TickBase / 2);\r
- }\r
-\r
- IN_ReadCursor(&cursorinfo);\r
- while (cursorinfo.button0 || cursorinfo.button1)\r
- {\r
- IN_ReadCursor(&cursorinfo);\r
- LastScan = sc_Escape;\r
- }\r
-\r
- asm pushf\r
- asm cli\r
- if (LastScan == sc_LShift)\r
- LastScan = sc_None;\r
- asm popf\r
- } while (!(scan = LastScan));\r
-\r
- if (scan != sc_Escape)\r
- {\r
- for (j = 0,on = false;j < 11;j++)\r
- {\r
- if (j == i)\r
- continue;\r
- if (*(KeyMaps[j]) == scan)\r
- {\r
- on = true;\r
- break;\r
- }\r
- }\r
- if (on)\r
-#ifdef KEEN\r
- USL_CtlDialog("Key already used","Press any key",nil);\r
-#else\r
- USL_CtlDialog("Key already used","Press a key",nil);\r
-#endif\r
- else\r
- *(KeyMaps[i]) = scan;\r
- }\r
- IN_ClearKeysDown();\r
-}\r
-\r
-#pragma argsused\r
-static boolean\r
-USL_KeySCustom(UserCall call,UserItem far *item)\r
-{\r
- if (call == uic_SetupCard)\r
- {\r
- Controls[0] = ctrl_Keyboard;\r
- GravisGamepad = false;\r
- USL_SetOptionsText();\r
- }\r
- return(false);\r
-}\r
-\r
-#pragma argsused\r
-static boolean\r
-USL_KeyCustom(UserCall call,UserItem far *item)\r
-{\r
- boolean result;\r
- word i;\r
-\r
- result = false;\r
- i = (topcard == &keygroup)? (3 + (item - keyi)) : (item - keybi);\r
- switch (call)\r
- {\r
- case uic_SetupCard:\r
- Controls[0] = ctrl_Keyboard;\r
- break;\r
- case uic_Draw:\r
- VWB_Bar(CtlPanelSX + 1,item->y,\r
- CtlPanelEX - CtlPanelSX - 1,8,BackColor); // Clear out background\r
- USL_DrawItemIcon(item);\r
- fontcolor = (item->flags & ui_Selected)? HiliteColor : NohiliteColor;\r
- px = item->x + 8;\r
- py = item->y + 1;\r
- USL_DrawString(item->text);\r
- VWB_Bar(item->x + 90,item->y,40,8,fontcolor ^ BackColor);\r
- VWB_Bar(item->x + 90 + 1,item->y + 1,40 - 2,8 - 2,BackColor);\r
- px = item->x + 90 + 6;\r
- py = item->y + 1;\r
- USL_DrawString(IN_GetScanName(*KeyMaps[i]));\r
- result = true;\r
- break;\r
- case uic_Hit:\r
- USL_KeyCustom(uic_Draw,item);\r
- USL_CKSetKey(item,i);\r
- USL_DrawCtlPanel();\r
- result = true;\r
- break;\r
- }\r
- return(result);\r
-}\r
-\r
-static void\r
-USL_CJDraw(char *s1,char *s2)\r
-{\r
- word w,h;\r
-\r
- USL_MeasureString(s1,&w,&h);\r
- px = CtlPanelSX + ((CtlPanelW - w) / 2);\r
- py = CtlPanelEY - 34;\r
- VWB_Bar(CtlPanelSX + 1,py,CtlPanelW - 2,h * 2,BackColor);\r
- fontcolor = HiliteColor;\r
- USL_DrawString(s1);\r
- py += h;\r
- USL_MeasureString(s2,&w,&h);\r
- px = CtlPanelSX + ((CtlPanelW - w) / 2);\r
- USL_DrawString(s2);\r
-}\r
-\r
-static boolean\r
-USL_CJGet(word joy,word button,word x,word y,word *xaxis,word *yaxis)\r
-{\r
- boolean on;\r
- longword time;\r
-\r
- while (IN_GetJoyButtonsDB(joy))\r
- if (LastScan == sc_Escape)\r
- return(false);\r
-\r
- on = false;\r
- time = 0;\r
- while (!(IN_GetJoyButtonsDB(joy) & (1 << button)))\r
- {\r
- if (TimeCount >= time)\r
- {\r
- on ^= true;\r
- time = TimeCount + (TickBase / 2);\r
- VWB_DrawTile8(x,y,TileBase + on);\r
- VW_UpdateScreen();\r
- }\r
-\r
- if (LastScan == sc_Escape)\r
- return(false);\r
- }\r
- IN_GetJoyAbs(joy,xaxis,yaxis);\r
- return(true);\r
-}\r
-\r
-static boolean\r
-USL_ConfigJoystick(word joy)\r
-{\r
- word x,y,\r
- minx,miny,\r
- maxx,maxy;\r
-\r
- BottomS1 = BottomS2 = "";\r
-#ifdef KEEN\r
- BottomS3 = "ESC to back out";\r
-#else\r
- BottomS3 = "Esc to back out";\r
-#endif\r
- USL_DrawCtlPanel();\r
- x = CtlPanelSX + 60;\r
- y = CtlPanelSY + 19;\r
- VWB_DrawPic(x,y,CP_JOYSTICKPIC);\r
-\r
- USL_CJDraw("Move Joystick to upper left","and press button #1");\r
- VWB_DrawTile8(x + 24,y + 8,TileBase + 6);\r
- VWB_DrawTile8(x + 8,y + 8,TileBase + 1);\r
- VWB_DrawTile8(x + 8,y + 24,TileBase + 0);\r
- VW_UpdateScreen();\r
- if (!USL_CJGet(joy,0,x + 8,y + 8,&minx,&miny))\r
- return(false);\r
-\r
- USL_CJDraw("Move Joystick to lower right","and press button #2");\r
- VWB_DrawTile8(x + 24,y + 8,TileBase - 25);\r
- VWB_DrawTile8(x + 40,y + 24,TileBase + 7);\r
- VWB_DrawTile8(x + 8,y + 8,TileBase + 0);\r
- VWB_DrawTile8(x + 8,y + 24,TileBase + 1);\r
- VW_UpdateScreen();\r
- if (!USL_CJGet(joy,1,x + 8,y + 24,&maxx,&maxy))\r
- return(false);\r
-\r
- while (IN_GetJoyButtonsDB(joy))\r
- ;\r
-\r
-#ifdef KEEN\r
- if (minx != maxx && miny != maxy)\r
- {\r
- IN_SetupJoy(joy,minx,maxx,miny,maxy);\r
- return(true);\r
- }\r
- return(false);\r
-#else\r
- IN_SetupJoy(joy,minx,maxx,miny,maxy);\r
- return(true);\r
-#endif\r
-}\r
-\r
-#pragma argsused\r
-static boolean\r
-USL_Joy1Custom(UserCall call,UserItem far *item)\r
-{\r
- if (call == uic_SetupCard)\r
- {\r
- if (USL_ConfigJoystick(0))\r
- {\r
- Controls[0] = ctrl_Joystick1;\r
- USL_CtlDialog("USING JOYSTICK #1","PRESS ANY KEY",nil);\r
- USL_SetOptionsText();\r
- }\r
- return(true);\r
- }\r
- else\r
- return(false);\r
-}\r
-\r
-#pragma argsused\r
-static boolean\r
-USL_Joy2Custom(UserCall call,UserItem far *item)\r
-{\r
- if (call == uic_SetupCard)\r
- {\r
- if (USL_ConfigJoystick(1))\r
- {\r
- Controls[0] = ctrl_Joystick2;\r
- USL_CtlDialog("USING JOYSTICK #2","PRESS ANY KEY",nil);\r
- USL_SetOptionsText();\r
- }\r
- return(true);\r
- }\r
- else\r
- return(false);\r
-}\r
-\r
-static void\r
-USL_CGDraw(char *s1, char *s2, int buttonsDone)\r
-{\r
- static char *GButtonNames[4] = {"Red","Blue","Yellow","Green"};\r
- static char *GActionNames[4] = {"Jump","Pogo","Fire","Status"};\r
-\r
- int i, n;\r
- char *actionstr;\r
- word w, h;\r
-\r
- VWB_Bar(CtlPanelSX+1, CtlPanelSY+16, CtlPanelW-2, 68, BackColor);\r
- px = CtlPanelSX+8;\r
- py = CtlPanelSY+16;\r
- USL_DrawString("Make sure that the button");\r
- px = CtlPanelSX+8;\r
- py = CtlPanelSY+24;\r
- USL_DrawString("switch is set for 4 buttons");\r
-\r
- for (i=0; i<4; i++)\r
- {\r
- px = CtlPanelSX+8;\r
- py = i*8 + CtlPanelSY+40;\r
- USL_DrawString(GButtonNames[i]);\r
- USL_DrawString(":");\r
- actionstr = "?";\r
- for (n=0;n<buttonsDone;n++)\r
- {\r
- if (GravisMap[n] == i)\r
- actionstr = GActionNames[n];\r
- }\r
- px = CtlPanelSX+56;\r
- USL_DrawString(actionstr);\r
- }\r
-\r
- USL_MeasureString(s1, &w, &h);\r
- px = w;\r
- USL_MeasureString(s2, &w, &h);\r
- px = (CtlPanelW-px-w)/2 + CtlPanelSX;\r
- py = CtlPanelSY+76;\r
- USL_DrawString(s1);\r
- USL_DrawString(s2);\r
- VW_UpdateScreen();\r
-}\r
-\r
-static boolean\r
-USL_CGGet(int buttonsDone, char *action)\r
-{\r
- word buttons, i, n;\r
-\r
- USL_CGDraw("PRESS BUTTON FOR ", action, buttonsDone);\r
-\r
-redo:\r
- do\r
- {\r
- if (LastScan == sc_Escape)\r
- {\r
- Keyboard[sc_Escape] = false;\r
- if (LastScan == sc_Escape)\r
- LastScan = sc_None;\r
- return false;\r
- }\r
-\r
- buttons = IN_GetJoyButtonsDB(2);\r
- if (!buttons)\r
- continue;\r
-\r
- for(i=n=0; i<4; i++)\r
- {\r
- if (buttons & (1 << i))\r
- n += i+1;\r
- }\r
-\r
- if (!n || n >= 5)\r
- continue;\r
-\r
- n--;\r
- for (i=0; i<buttonsDone; i++)\r
- {\r
- if (GravisMap[i] == n)\r
- goto redo;\r
- }\r
-\r
- GravisMap[buttonsDone] = n;\r
- return true;\r
- } while (true);\r
-}\r
-\r
-#pragma argsused\r
-static boolean\r
-USL_JoyGCustom(UserCall call,UserItem far *item)\r
-{\r
- if (call == uic_SetupCard)\r
- {\r
- if (GravisGamepad)\r
- {\r
- GravisGamepad = false;\r
- }\r
- else\r
- {\r
- BottomS1 = BottomS2 = "";\r
- BottomS3 = "ESC to back out";\r
- USL_DrawCtlPanel();\r
- fontcolor = HiliteColor;\r
- px = CtlPanelSX + 8;\r
- py = CtlPanelSX + 8;\r
- fontcolor = HiliteColor; // redundant...\r
- IN_ClearKeysDown();\r
- if ( USL_CGGet(0, "JUMP")\r
- && USL_CGGet(1, "POGO")\r
- && USL_CGGet(2, "FIRE")\r
- && USL_CGGet(3, "STATUS") )\r
- {\r
- GravisGamepad = true;\r
- USL_CGDraw("PRESS ANY KEY", "", 4);\r
- IN_Ack();\r
- }\r
- else\r
- {\r
- GravisGamepad = false;\r
- }\r
- }\r
- USL_SetOptionsText();\r
- return true;\r
- }\r
- return false;\r
-}\r
-\r
-static void\r
-USL_DrawFileIcon(UserItem far *item)\r
-{\r
- word color;\r
-\r
- item->y = topcard->y + CtlPanelSY + 12;\r
- item->y += (item - loadsavegamei) * 11;\r
-\r
- fontcolor = (item->flags & ui_Selected)? HiliteColor : NohiliteColor;\r
- color = fontcolor ^ BackColor; // Blech!\r
- VWB_Hlin(item->x,item->x + (CtlPanelW - 12),item->y,color);\r
- VWB_Hlin(item->x,item->x + (CtlPanelW - 12),item->y + 9,color);\r
- VWB_Vlin(item->y,item->y + 9,item->x,color);\r
- VWB_Vlin(item->y,item->y + 9,item->x + (CtlPanelW - 12),color);\r
-}\r
-\r
-static void\r
-USL_DoLoadGame(UserItem far *item)\r
-{\r
- char *filename;\r
- word n,\r
- err;\r
- int file;\r
- SaveGame *game;\r
-\r
- if (!USL_ConfirmComm(uc_Loaded))\r
- return;\r
-\r
- n = item - loadsavegamei;\r
- game = &Games[n];\r
-\r
- USL_ShowLoadSave("Loading",game->name);\r
-\r
- err = 0;\r
- filename = USL_GiveSaveName(n);\r
- if ((file = open(filename,O_BINARY | O_RDONLY)) != -1)\r
- {\r
- if (read(file,game,sizeof(*game)) == sizeof(*game))\r
- {\r
- if (USL_LoadGame)\r
- if (!USL_LoadGame(file))\r
- USL_HandleError(err = errno);\r
- }\r
- else\r
- USL_HandleError(err = errno);\r
- close(file);\r
- }\r
- else\r
- USL_HandleError(err = errno);\r
- if (err)\r
- {\r
- abortgame = true;\r
- Communication = uc_None;\r
- CtlPanelDone = false;\r
- }\r
- else\r
- loadedgame = true;\r
- game->present = true;\r
-\r
- if (loadedgame)\r
- Paused = true;\r
-\r
- USL_DrawCtlPanel();\r
-}\r
-\r
-static boolean\r
-USL_LoadCustom(UserCall call,UserItem far *item)\r
-{\r
- boolean result;\r
- word i;\r
-\r
- result = false;\r
- switch (call)\r
- {\r
- case uic_SetupCard:\r
-#ifdef KEEN\r
- if (getenv("UID"))\r
- USL_CheckSavedGames();\r
-#endif\r
- for (i = 0;i < MaxSaveGames;i++)\r
- {\r
- if (Games[i].present)\r
- loadsavegamei[i].flags &= ~ui_Disabled;\r
- else\r
- loadsavegamei[i].flags |= ui_Disabled;\r
- }\r
- break;\r
- case uic_DrawIcon:\r
- USL_DrawFileIcon(item);\r
- result = true;\r
- break;\r
- case uic_Draw:\r
- USL_DrawFileIcon(item);\r
- VWB_Bar(item->x + 1,item->y + 2,CtlPanelW - 12 - 2,7,BackColor);\r
-\r
- i = item - loadsavegamei;\r
- if (Games[i].present)\r
- px = item->x + 2;\r
- else\r
- px = item->x + 60;\r
- py = item->y + 2;\r
- USL_DrawString(Games[i].present? Games[i].name : "Empty");\r
- result = true;\r
- break;\r
- case uic_Hit:\r
- USL_DoLoadGame(item);\r
- result = true;\r
- break;\r
- }\r
- return(result);\r
-}\r
-\r
-static void\r
-USL_DoSaveGame(UserItem far *item)\r
-{\r
- boolean ok;\r
- char *filename;\r
- word n,err;\r
- int file;\r
- SaveGame *game;\r
-\r
- BottomS1 = "Type name";\r
- BottomS2 = "Enter accepts";\r
- USL_DrawCtlPanel();\r
-\r
- n = item - loadsavegamei;\r
- game = &Games[n];\r
- fontcolor = HiliteColor;\r
- VWB_Bar(item->x + 1,item->y + 2,CtlPanelW - 12 - 2,7,BackColor);\r
- game->oldtest = &PrintX;\r
- ok = US_LineInput(item->x + 2,item->y + 2,\r
- game->name,game->present? game->name : nil,\r
- true,MaxGameName,\r
- CtlPanelW - 22);\r
- if (!strlen(game->name))\r
- strcpy(game->name,"Untitled");\r
- if (ok)\r
- {\r
- USL_ShowLoadSave("Saving",game->name);\r
-\r
- filename = USL_GiveSaveName(n);\r
- err = 0;\r
- file = open(filename,O_CREAT | O_BINARY | O_WRONLY,\r
- S_IREAD | S_IWRITE | S_IFREG);\r
- if (file != -1)\r
- {\r
- if (write(file,game,sizeof(*game)) == sizeof(*game))\r
- {\r
- if (USL_SaveGame)\r
- ok = USL_SaveGame(file);\r
- if (!ok)\r
- USL_HandleError(err = errno);\r
- }\r
- else\r
- USL_HandleError(err = ((errno == ENOENT)? ENOMEM : errno));\r
- close(file);\r
- }\r
- else\r
- USL_HandleError(err = ((errno == ENOENT)? ENOMEM : errno));\r
- if (err)\r
- {\r
- remove(filename);\r
- ok = false;\r
- }\r
-\r
- }\r
-\r
- if (!game->present)\r
- game->present = ok;\r
-\r
- if (ok)\r
- GameIsDirty = false;\r
- USL_SetupCard();\r
-}\r
-\r
-static boolean\r
-USL_SaveCustom(UserCall call,UserItem far *item)\r
-{\r
- word i;\r
-\r
- switch (call)\r
- {\r
- case uic_SetupCard:\r
-#ifdef KEEN\r
- if (getenv("UID"))\r
- USL_CheckSavedGames();\r
-#endif\r
- for (i = 0;i < MaxSaveGames;i++)\r
- loadsavegamei[i].flags &= ~ui_Disabled;\r
- return(false);\r
- case uic_Hit:\r
- USL_DoSaveGame(item);\r
- return(true);\r
-// break;\r
- }\r
- return(USL_LoadCustom(call,item));\r
-}\r
-\r
-#define PaddleMinX (CtlPanelSX + 4)\r
-#define PaddleMaxX (CtlPanelEX - 15)\r
-#define BallMinX (CtlPanelSX + 4)\r
-#define BallMinY (CtlPanelSY + 12 + 2)\r
-#define BallMaxX (CtlPanelEX - 6)\r
-#define BallMaxY (CtlPanelEY - 13)\r
-#define CPaddleY (BallMinY + 4)\r
-#define KPaddleY (BallMaxY - 2)\r
-void\r
-USL_DrawPongScore(word k,word c)\r
-{\r
- fontcolor = HiliteColor;\r
- PrintY = py = CtlPanelSY + 4;\r
- px = CtlPanelSX + 6;\r
- VWB_Bar(px,py,42,6,BackColor);\r
- USL_DrawString("KEEN:");\r
- PrintX = px;\r
- US_PrintUnsigned(k);\r
- px = CtlPanelSX + 108;\r
- VWB_Bar(px,py,50,6,BackColor);\r
- USL_DrawString("COMP:");\r
- PrintX = px;\r
- US_PrintUnsigned(c);\r
-}\r
-\r
-void\r
-USL_PlayPong(void)\r
-{\r
- boolean ball,killball,revdir,done,lastscore;\r
- word cycle,\r
- x,y,\r
- kx,cx,\r
- rx,\r
- bx,by,\r
- oldkx,oldcx,oldbx,oldby,\r
- kscore,cscore,\r
- speedup;\r
- int bdx,bdy;\r
- longword balltime,lasttime,waittime;\r
- CursorInfo cursorinfo;\r
-\r
- kx = cx = PaddleMinX + ((PaddleMaxX - PaddleMinX) / 2);\r
- bx = by = bdx = bdy = 0;\r
- oldbx = oldcx = oldkx = PaddleMinX;\r
- oldby = BallMinY;\r
- kscore = cscore = 0;\r
- USL_DrawPongScore(0,0);\r
- cycle = 0;\r
- revdir = false;\r
- killball = true;\r
- done = false;\r
- lastscore = false;\r
- lasttime = TimeCount;\r
- do\r
- {\r
- while ((waittime = TimeCount - lasttime) == 0)\r
- ;\r
-\r
- lasttime = TimeCount;\r
- if (waittime > 4)\r
- waittime = 4;\r
-\r
- while (waittime-- && !done && LastScan != sc_Escape)\r
- {\r
- IN_ReadCursor(&cursorinfo);\r
- if (((cursorinfo.x < 0) || IN_KeyDown(sc_LeftArrow)) && (kx > PaddleMinX))\r
- kx -= 2;\r
- else if (((cursorinfo.x > 0) || IN_KeyDown(sc_RightArrow)) && (kx < PaddleMaxX))\r
- kx += 2;\r
-\r
- if (killball)\r
- {\r
- ball = false;\r
- balltime = TickBase;\r
- speedup = 10;\r
- killball = false;\r
- VWB_Bar(oldbx,oldby,5,5,BackColor);\r
- }\r
-\r
- if (ball && (cycle++ % 3))\r
- {\r
- x = (bx >> 2);\r
- if (!(x & 1))\r
- x += (US_RndT() & 1);\r
-\r
- if ((cx + 6 < x) && (cx < PaddleMaxX))\r
- cx += 1;\r
- else if ((cx + 6 > x) && (cx > PaddleMinX))\r
- cx -= 1;\r
- }\r
-\r
- if (!ball && !--balltime)\r
- {\r
- ball = true;\r
- bdx = 1 - (US_RndT() % 3);\r
- bdy = 3;\r
- if (lastscore)\r
- bdy = -bdy;\r
- bx = (BallMinX + ((BallMaxX - BallMinX) / 2)) << 2;\r
- by = (BallMinY + ((BallMaxY - BallMinY) / 2)) << 2;\r
- }\r
-\r
- if (ball)\r
- {\r
- if\r
- (\r
- (((bx + bdx) >> 2) > BallMaxX)\r
- || (((bx + bdx) >> 2) < BallMinX)\r
- )\r
- {\r
- SD_PlaySound(BALLBOUNCESND);\r
- bdx = -bdx;\r
- }\r
- bx += bdx;\r
-\r
- if (((by + bdy) >> 2) > BallMaxY)\r
- {\r
- killball = true;\r
- lastscore = false;\r
- cscore++;\r
- SD_PlaySound(COMPSCOREDSND);\r
- USL_DrawPongScore(kscore,cscore);\r
- if (cscore == 21)\r
- {\r
- USL_CtlDialog("You lost!","Press any key",nil);\r
- done = true;\r
- continue;\r
- }\r
- }\r
- else if (((by + bdy) >> 2) < BallMinY)\r
- {\r
- killball = true;\r
- lastscore = true;\r
- kscore++;\r
- SD_PlaySound(KEENSCOREDSND);\r
- USL_DrawPongScore(kscore,cscore);\r
- if (kscore == 21)\r
- {\r
- USL_CtlDialog("You won!","Press any key",nil);\r
- done = true;\r
- continue;\r
- }\r
- }\r
- by += bdy;\r
-\r
- x = bx >> 2;\r
- y = by >> 2;\r
- if (!killball)\r
- {\r
- if\r
- (\r
- (bdy < 0)\r
- && ((y >= CPaddleY) && (y < CPaddleY + 3))\r
- && ((x >= (cx - 5)) && (x < (cx + 11)))\r
- )\r
- {\r
- rx = cx;\r
- revdir = true;\r
- SD_PlaySound(COMPPADDLESND);\r
- }\r
- else if\r
- (\r
- (bdy > 0)\r
- && ((y >= (KPaddleY - 3)) && (y < KPaddleY))\r
- && ((x >= (kx - 5)) && (x < (kx + 11)))\r
- )\r
- {\r
- if (((bdy >> 2) < 3) && !(--speedup))\r
- {\r
- bdy++;\r
- speedup = 10;\r
- }\r
- rx = kx;\r
- revdir = true;\r
- SD_PlaySound(KEENPADDLESND);\r
- }\r
- if (revdir)\r
- {\r
- bdy = -bdy;\r
- bdx = ((x + 5 - rx) >> 1) - (1 << 2);\r
- if (!bdx)\r
- bdx--;\r
- revdir = false;\r
- }\r
- }\r
- }\r
- }\r
-\r
- if (ball)\r
- {\r
- VWB_Bar(oldbx,oldby,5,5,BackColor);\r
- oldbx = x;\r
- oldby = y;\r
-#if GRMODE == CGAGR\r
- {\r
- static int ballsprites[4] = {BALLSPR, BALL1PIXELTOTHERIGHTSPR, BALL2PIXELSTOTHERIGHTSPR, BALL3PIXELSTOTHERIGHTSPR};\r
- VWB_DrawSprite(x,y,ballsprites[x & 3]);\r
- }\r
-#else\r
- VWB_DrawSprite(x,y,(x & 1)? BALL1PIXELTOTHERIGHTSPR : BALLSPR);\r
-#endif\r
- }\r
- VWB_Bar(oldcx-3,CPaddleY,16,3,BackColor);\r
- oldcx = cx;\r
- VWB_DrawSprite(cx,CPaddleY,PADDLESPR);\r
- VWB_Bar(oldkx-3,KPaddleY,16,3,BackColor);\r
- oldkx = kx;\r
- VWB_DrawSprite(kx,KPaddleY,PADDLESPR);\r
-\r
- VW_UpdateScreen();\r
- } while ((LastScan != sc_Escape) && !done);\r
- IN_ClearKeysDown();\r
-}\r
-\r
-#pragma argsused\r
-static boolean\r
-USL_PongCustom(UserCall call,struct UserItem far *item)\r
-{\r
- if (call != uic_SetupCard)\r
- return(false);\r
-\r
- VWB_DrawPic(0,0,CP_MENUSCREENPIC);\r
- VWB_DrawPic(CtlPanelSX + 56,CtlPanelSY,CP_PADDLEWARPIC);\r
- VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,CtlPanelSY + 12,HiliteColor ^ BackColor);\r
- VWB_Hlin(CtlPanelSX + 3,CtlPanelEX - 3,CtlPanelEY - 7,HiliteColor ^ BackColor);\r
- USL_PlayPong();\r
-\r
- return(true);\r
-}\r
-\r
-// Flag management stuff\r
-static void\r
-USL_ClearFlags(UserItemGroup far *node)\r
-{\r
- UserItem far *i;\r
-\r
- if (!node->items)\r
- return;\r
-\r
- for (i = node->items;i->type != uii_Bad;i++)\r
- {\r
- i->flags &= ~UISelectFlags;\r
- if (i->child)\r
- USL_ClearFlags((UserItemGroup far *)i->child);\r
- }\r
-}\r
-\r
-static int\r
-USL_FindPushedItem(UserItemGroup far *group)\r
-{\r
- word i;\r
- UserItem far *item;\r
-\r
- for (item = group->items,i = 0;item->type != uii_Bad;item++,i++)\r
- if (item->flags & ui_Pushed)\r
- return(i);\r
- return(-1);\r
-}\r
-\r
-static void\r
-USL_SelectItem(UserItemGroup far *group,word index,boolean draw)\r
-{\r
- UserItem far *item;\r
-\r
- if (index != group->cursor)\r
- {\r
- item = &group->items[group->cursor];\r
- item->flags &= ~ui_Selected;\r
- if (draw)\r
- USL_DrawItem(item);\r
- }\r
-\r
- group->cursor = index;\r
- item = &group->items[group->cursor];\r
- group->items[group->cursor].flags |= ui_Selected;\r
- if (draw)\r
- USL_DrawItem(item);\r
-}\r
-\r
-static void\r
-USL_PushItem(UserItemGroup far *group,word index,boolean draw)\r
-{\r
- word i;\r
- UserItem far *item;\r
-\r
- USL_SelectItem(group,index,draw);\r
- for (item = group->items,i = 0;item->type != uii_Bad;item++,i++)\r
- {\r
- if (item->type != uii_RadioButton)\r
- continue;\r
-\r
- if (i == index)\r
- {\r
- item->flags |= ui_Pushed;\r
- if (draw)\r
- USL_DrawItem(item);\r
- }\r
- else if (item->flags & ui_Pushed)\r
- {\r
- item->flags &= ~ui_Pushed;\r
- if (draw)\r
- USL_DrawItem(item);\r
- }\r
- }\r
-}\r
-\r
-static void\r
-USL_NextItem(void)\r
-{\r
- if (topcard->items[topcard->cursor + 1].type == uii_Bad)\r
- return;\r
- USL_SelectItem(topcard,topcard->cursor + 1,true);\r
-}\r
-\r
-static void\r
-USL_PrevItem(void)\r
-{\r
- if (!topcard->cursor)\r
- return;\r
- USL_SelectItem(topcard,topcard->cursor - 1,true);\r
-}\r
-\r
-static void\r
-USL_SetupCard(void)\r
-{\r
- BottomS1 = "Arrows move";\r
- BottomS2 = "Enter selects";\r
- BottomS3 = cstackptr? "ESC to back out" : "ESC to quit";\r
-\r
- USL_SelectItem(topcard,topcard->cursor,false);\r
- USL_DrawCtlPanel(); // Contents?\r
-}\r
-\r
-static void\r
-USL_DownLevel(UserItemGroup far *group)\r
-{\r
- if (!group)\r
- Quit("USL_DownLevel() - nil card");\r
- USL_PushCard(group);\r
- if (group->custom && group->custom(uic_SetupCard,nil))\r
- USL_PopCard();\r
- USL_SetupCard();\r
-}\r
-\r
-static void\r
-USL_UpLevel(void)\r
-{\r
- if (!cstackptr)\r
- {\r
- USL_ConfirmComm(uc_Quit);\r
- return;\r
- }\r
-\r
- if (topcard->items)\r
- topcard->items[topcard->cursor].flags &= ~ui_Selected;\r
- USL_PopCard();\r
- USL_SetupCard();\r
-}\r
-\r
-static void\r
-USL_DoItem(void)\r
-{\r
- // DEBUG - finish this routine\r
- UserItem far *item;\r
-\r
- item = &topcard->items[topcard->cursor];\r
- if (item->flags & ui_Disabled)\r
- SD_PlaySound(NOWAYSND);\r
- else\r
- {\r
- switch (item->type)\r
- {\r
- case uii_Button:\r
- if (!(topcard->custom && topcard->custom(uic_Hit,item)))\r
- USL_ConfirmComm(item->comm);\r
- break;\r
- case uii_RadioButton:\r
- USL_PushItem(topcard,topcard->cursor,true);\r
- break;\r
- case uii_Folder:\r
- USL_DownLevel(item->child);\r
- break;\r
- }\r
- }\r
-}\r
-\r
-static void\r
-USL_SetControlValues(void)\r
-{\r
- int sndindex;\r
-\r
- sndindex = SoundMode;\r
- if (sndindex == sdm_AdLib && QuietFX)\r
- sndindex++;\r
-\r
- USL_PushItem(&soundgroup,sndindex,false);\r
- USL_PushItem(&musicgroup,MusicMode,false);\r
- if (!AdLibPresent)\r
- {\r
- soundi[2].flags |= ui_Disabled; // AdLib sound effects\r
- soundi[3].flags |= ui_Disabled; // Quiet AdLib sound effects\r
- musici[1].flags |= ui_Disabled; // AdLib music\r
- }\r
-\r
-#ifdef CAT3D\r
- if (!JoysPresent[0])\r
- configi[3].flags |= ui_Disabled;\r
- if (!JoysPresent[1])\r
- configi[4].flags |= ui_Disabled;\r
-#else\r
- if (!JoysPresent[0])\r
- configi[4].flags |= ui_Disabled;\r
- if (!JoysPresent[1])\r
- configi[5].flags |= ui_Disabled;\r
- if (!JoysPresent[0] && !JoysPresent[1])\r
- configi[6].flags |= ui_Disabled;\r
-#endif\r
-\r
- rooti[4].text = ingame? "RETURN TO GAME" : "RETURN TO DEMO";\r
- if (!ingame)\r
- {\r
- rooti[2].flags |= ui_Disabled; // Save Game\r
- rooti[5].flags |= ui_Disabled; // End Game\r
- }\r
- rootgroup.cursor = ingame? 4 : 0;\r
- USL_SetOptionsText();\r
- // DEBUG - write the rest of this\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_SetUpCtlPanel() - Sets the states of the UserItems to reflect the\r
-// values of all the appropriate variables\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_SetUpCtlPanel(void)\r
-{\r
- int i;\r
-\r
- // Cache in all of the stuff for the control panel\r
- CA_UpLevel();\r
- for (i = CONTROLS_LUMP_START;i <= CONTROLS_LUMP_END;i++)\r
- CA_MarkGrChunk(i);\r
- for (i = PADDLE_LUMP_START;i <= PADDLE_LUMP_END;i++)\r
- CA_MarkGrChunk(i);\r
- CA_MarkGrChunk(STARTFONT+1); // Little font\r
- CA_MarkGrChunk(CP_MENUMASKPICM); // Mask for dialogs\r
- CA_CacheMarks("Control Panel");\r
- CA_LoadAllSounds();\r
-\r
- // Do some other setup\r
- fontnumber = 1;\r
- US_SetPrintRoutines(VW_MeasurePropString,VWB_DrawPropString);\r
- fontcolor = F_BLACK;\r
-#ifdef CAT3D\r
- VW_Bar (0,0,320,200,3); // CAT3D patch\r
-#else\r
- VW_ClearVideo(3);\r
-#endif\r
- RF_FixOfs();\r
- VW_InitDoubleBuffer();\r
-\r
- Communication = uc_None;\r
- USL_ClearFlags(&rootgroup);\r
- USL_SetControlValues();\r
- USL_SetupStack();\r
- USL_SetupCard();\r
-\r
- if (ingame)\r
- GameIsDirty = true;\r
-\r
- IN_ClearKeysDown();\r
-}\r
-\r
-static void\r
-USL_HandleComm(UComm comm)\r
-{\r
- switch (comm)\r
- {\r
- case uc_Loaded:\r
- case uc_Return:\r
- break;\r
- case uc_Abort:\r
- abortgame = true;\r
- break;\r
- case uc_Quit:\r
- QuitToDos = true;\r
- break;\r
- case uc_SEasy:\r
- restartgame = gd_Easy;\r
- break;\r
- case uc_SNormal:\r
- restartgame = gd_Normal;\r
- break;\r
- case uc_SHard:\r
- restartgame = gd_Hard;\r
- break;\r
-\r
- default:\r
- Quit("USL_HandleComm() - unknown");\r
- break;\r
- }\r
-}\r
-\r
-static void\r
-USL_GetControlValues(void)\r
-{\r
- int i;\r
-\r
- // DEBUG - write the rest of this\r
- i = USL_FindPushedItem(&soundgroup);\r
- if (i == 3)\r
- {\r
- QuietFX = true;\r
- i--;\r
- }\r
- else\r
- {\r
- QuietFX = false;\r
- }\r
- if (i != SoundMode)\r
- SD_SetSoundMode(i);\r
-\r
- i = USL_FindPushedItem(&musicgroup);\r
- if (i != MusicMode)\r
- SD_SetMusicMode(i);\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// USL_TearDownCtlPanel() - Given the state of the control panel, sets the\r
-// modes and values as appropriate\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-static void\r
-USL_TearDownCtlPanel(void)\r
-{\r
- USL_GetControlValues();\r
- if (Communication)\r
- USL_HandleComm(Communication);\r
-\r
- fontnumber = 0; // Normal font\r
- fontcolor = F_BLACK;\r
- if (restartgame && USL_ResetGame)\r
- USL_ResetGame();\r
- else if (QuitToDos)\r
- {\r
- if (tedlevel)\r
- TEDDeath();\r
- else\r
- {\r
- US_CenterWindow(20,3);\r
- fontcolor = F_SECONDCOLOR;\r
- US_PrintCentered("Quitting...");\r
- fontcolor = F_BLACK;\r
- VW_UpdateScreen();\r
- Quit(nil);\r
- }\r
- }\r
-\r
- IN_ClearKeysDown();\r
- SD_WaitSoundDone();\r
-#ifdef CAT3D\r
- VW_Bar (0,0,320,200,3); // CAT3D patch\r
-#else\r
- VW_ClearVideo(3);\r
-#endif\r
- CA_DownLevel();\r
- CA_LoadAllSounds();\r
-}\r
-\r
-///////////////////////////////////////////////////////////////////////////\r
-//\r
-// US_ControlPanel() - This is the main routine for the control panel\r
-//\r
-///////////////////////////////////////////////////////////////////////////\r
-#define MoveMin 40\r
-void\r
-US_ControlPanel(void)\r
-{\r
-extern void HelpScreens(void);\r
-\r
- boolean resetitem,on;\r
- word i;\r
- int ydelta;\r
- longword flashtime;\r
- UserItem far *item;\r
- CursorInfo cursorinfo;\r
-\r
-#if 0\r
- // DEBUG!!!\r
- {\r
- USL_SetUpCtlPanel();\r
- Communication = uc_Loaded;\r
- CtlPanelDone = true;\r
- loadedgame = true;\r
- USL_TearDownCtlPanel();\r
- return;\r
- }\r
-#endif\r
-\r
- if ((LastScan < sc_F1) || (LastScan > sc_F10))\r
- IN_ClearKeysDown();\r
-\r
- USL_SetUpCtlPanel();\r
- USL_DrawCtlPanel();\r
-\r
- ydelta = 0;\r
- for (CtlPanelDone = false,resetitem = on = true;!CtlPanelDone;)\r
- {\r
- item = &(topcard->items[topcard->cursor]);\r
-\r
- if (resetitem)\r
- {\r
- flashtime = TimeCount + (TickBase / 2);\r
- resetitem = false;\r
- }\r
-\r
- if (TimeCount >= flashtime)\r
- {\r
- on ^= true;\r
- resetitem = true;\r
- if (!on)\r
- item->flags &= ~ui_Selected;\r
- USL_DrawItemIcon(item);\r
- item->flags |= ui_Selected;\r
- }\r
-\r
- VW_UpdateScreen();\r
-\r
- if (LastScan)\r
- {\r
- switch (LastScan)\r
- {\r
- case sc_UpArrow:\r
- USL_PrevItem();\r
- resetitem = true;\r
- break;\r
- case sc_DownArrow:\r
- USL_NextItem();\r
- resetitem = true;\r
- break;\r
- case sc_Return:\r
- USL_DoItem();\r
- resetitem = true;\r
- break;\r
- case sc_Escape:\r
- USL_UpLevel();\r
- resetitem = true;\r
- break;\r
-#ifndef KEEN6\r
- case sc_F1:\r
- HelpScreens();\r
- USL_DrawCtlPanel();\r
- resetitem = true;\r
- break;\r
-#endif\r
- }\r
-\r
- if\r
- (\r
- (!resetitem)\r
- && (\r
- (LastScan == KbdDefs[0].button0)\r
- || (LastScan == KbdDefs[0].button1)\r
- )\r
- )\r
- {\r
- USL_DoItem();\r
- resetitem = true;\r
- }\r
-\r
- if (!resetitem)\r
- {\r
- for (item = topcard->items,i = 0;item->type != uii_Bad;item++,i++)\r
- {\r
- if (item->hotkey == LastScan)\r
- {\r
- USL_SelectItem(topcard,i,true);\r
- resetitem = true;\r
- break;\r
- }\r
- }\r
- }\r
-\r
- IN_ClearKeysDown();\r
- }\r
- else\r
- {\r
- IN_ReadCursor(&cursorinfo);\r
- ydelta += cursorinfo.y;\r
- if (cursorinfo.button0)\r
- {\r
- do\r
- {\r
- IN_ReadCursor(&cursorinfo);\r
- } while (cursorinfo.button0);\r
- USL_DoItem();\r
- resetitem = true;\r
- }\r
- else if (cursorinfo.button1)\r
- {\r
- do\r
- {\r
- IN_ReadCursor(&cursorinfo);\r
- } while (cursorinfo.button1);\r
- USL_UpLevel();\r
- resetitem = true;\r
- }\r
- else if (ydelta < -MoveMin)\r
- {\r
- ydelta += MoveMin;\r
- USL_PrevItem();\r
- resetitem = true;\r
- }\r
- else if (ydelta > MoveMin)\r
- {\r
- ydelta -= MoveMin;\r
- USL_NextItem();\r
- resetitem = true;\r
- }\r
- }\r
- }\r
-\r
- USL_TearDownCtlPanel();\r
-}\r
-\r
-#ifdef KEEN6\r
-\r
-boolean US_ManualCheck(void)\r
-{\r
- typedef struct {\r
- char far *name;\r
- int shapenum;\r
- int x, y;\r
- } creatureinfo;\r
-\r
- static creatureinfo list[] = {\r
- {"BIP", BIPSHIPRSPR, -2, 0},\r
- {"BABOBBA", BABOBBAR1SPR, 0, 0},\r
- {"BLORB", BLORB1SPR, -2, 0},\r
- {"GIK", GIKWALKR1SPR, -1, 0},\r
- {"CEILICK", CEILICK1SPR, 0, 0},\r
- {"BLOOGLET", RBLOOGLETWALKR1SPR, -2, 0},\r
- {"BLOOGUARD", BLOOGUARDWALKL1SPR, -3, -1},\r
- {"FLECT", FLECTSTANDSPR, -1, 0},\r
- {"BOBBA", BOBBAR1SPR, -2, 0},\r
- {"NOSPIKE", NOSPIKESTANDSPR, -2, 0},\r
- {"ORBATRIX", ORBATRIXR1SPR, -2, 1},\r
- {"FLEEX", FLEEXWALKR1SPR, -2, 0}\r
- };\r
-\r
- boolean correct;\r
- char far *name;\r
- char c;\r
- char *ptr;\r
- unsigned spriteheight, spritewidth;\r
- int x, y;\r
- int editwidth;\r
- creatureinfo info;\r
- char strbuf[16];\r
-\r
- if (checkpassed)\r
- return true;\r
-\r
- correct = false;\r
- if (listindex == -1)\r
- {\r
- _AH = 0x2C; // get time\r
- geninterrupt(0x21);\r
- x = _CH; // store hours\r
- _AH = 0x2A; // get date\r
- geninterrupt(0x21);\r
- y = _DL; // store day\r
-\r
- listindex = (x + y) % (int)(sizeof(list)/sizeof(creatureinfo));\r
- }\r
-\r
- CA_UpLevel();\r
- info = list[listindex];\r
- name = info.name;\r
- CA_ClearMarks();\r
- CA_MarkGrChunk(info.shapenum);\r
- CA_CacheMarks(NULL);\r
-\r
- VWB_Bar(0, 0, 320, 200, BackColor);\r
- spritewidth = spritetable[info.shapenum - STARTSPRITES].width;\r
- spriteheight = spritetable[info.shapenum - STARTSPRITES].height;\r
- US_CenterWindow(30, (spriteheight+41)/8 + 1);\r
- PrintY = WindowY + 2;\r
- US_CPrint("What is the name of this creature?");\r
-\r
- x = WindowX + (WindowW-spritewidth)/2 + info.x*8;\r
- y = WindowY + 15;\r
- if (info.shapenum == CEILICK1SPR)\r
- {\r
- y++;\r
- }\r
- else\r
- {\r
- y += info.y * 8;\r
- }\r
- VWB_DrawSprite(x, y, info.shapenum);\r
-\r
- y = WindowY + WindowH - 16;\r
- editwidth = 100;\r
- x = WindowX + (WindowW - 100) / 2;\r
- VWB_Bar(x, y, editwidth, 14, BLACK);\r
- VWB_Bar(x+1, y+1, editwidth-2, 12, WHITE);\r
- x += 2;\r
- y += 2;\r
- editwidth -= 8;\r
- VW_UpdateScreen();\r
-\r
- if (US_LineInput(x, y, strbuf, NULL, true, sizeof(strbuf), editwidth))\r
- {\r
- ptr = strbuf;\r
- correct = true;\r
- while (*name)\r
- {\r
- c = *ptr;\r
- if ((islower(c)? _toupper(c) : c) != *name)\r
- {\r
- correct = false;\r
- }\r
-\r
- ptr++;\r
- name++;\r
- }\r
- if (*ptr)\r
- {\r
- correct = false;\r
- }\r
-\r
- if (!correct)\r
- {\r
- VWB_Bar(0, 0, 320, 200, BackColor);\r
- US_CenterWindow(35, 5);\r
- PrintY += 11;\r
- US_CPrint("Sorry, that's not quite right.");\r
- US_CPrint("Please check your manual and try again.");\r
- VW_UpdateScreen();\r
- IN_Ack();\r
- }\r
- }\r
-\r
- VWB_Bar(0, 0, 320, 200, BackColor);\r
- CA_DownLevel();\r
- checkpassed = correct;\r
- return correct;\r
-}\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-; Catacomb 3-D Source Code\r
-; Copyright (C) 1993-2014 Flat Rock Software\r
-;\r
-; This program is free software; you can redistribute it and/or modify\r
-; it under the terms of the GNU General Public License as published by\r
-; the Free Software Foundation; either version 2 of the License, or\r
-; (at your option) any later version.\r
-;\r
-; This program is distributed in the hope that it will be useful,\r
-; but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-; GNU General Public License for more details.\r
-;\r
-; You should have received a copy of the GNU General Public License along\r
-; with this program; if not, write to the Free Software Foundation, Inc.,\r
-; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
-\r
-IDEAL\r
-MODEL MEDIUM,C\r
-\r
-; Assembly portion of the User Mgr. This is just John Carmack's table\r
-; driven pseudo-random number generator, and we put it in the User Mgr\r
-; because we couldn't figure out where it should go\r
-\r
-\r
-;============================================================================\r
-;\r
-; RANDOM ROUTINES\r
-;\r
-;============================================================================\r
-\r
- FARDATA\r
-\r
-rndindex dw ?\r
-\r
-rndtable db 0, 8, 109, 220, 222, 241, 149, 107, 75, 248, 254, 140, 16, 66\r
- db 74, 21, 211, 47, 80, 242, 154, 27, 205, 128, 161, 89, 77, 36\r
- db 95, 110, 85, 48, 212, 140, 211, 249, 22, 79, 200, 50, 28, 188\r
- db 52, 140, 202, 120, 68, 145, 62, 70, 184, 190, 91, 197, 152, 224\r
- db 149, 104, 25, 178, 252, 182, 202, 182, 141, 197, 4, 81, 181, 242\r
- db 145, 42, 39, 227, 156, 198, 225, 193, 219, 93, 122, 175, 249, 0\r
- db 175, 143, 70, 239, 46, 246, 163, 53, 163, 109, 168, 135, 2, 235\r
- db 25, 92, 20, 145, 138, 77, 69, 166, 78, 176, 173, 212, 166, 113\r
- db 94, 161, 41, 50, 239, 49, 111, 164, 70, 60, 2, 37, 171, 75\r
- db 136, 156, 11, 56, 42, 146, 138, 229, 73, 146, 77, 61, 98, 196\r
- db 135, 106, 63, 197, 195, 86, 96, 203, 113, 101, 170, 247, 181, 113\r
- db 80, 250, 108, 7, 255, 237, 129, 226, 79, 107, 112, 166, 103, 241\r
- db 24, 223, 239, 120, 198, 58, 60, 82, 128, 3, 184, 66, 143, 224\r
- db 145, 224, 81, 206, 163, 45, 63, 90, 168, 114, 59, 33, 159, 95\r
- db 28, 139, 123, 98, 125, 196, 15, 70, 194, 253, 54, 14, 109, 226\r
- db 71, 17, 161, 93, 186, 87, 244, 138, 20, 52, 123, 251, 26, 36\r
- db 17, 46, 52, 231, 232, 76, 31, 221, 84, 37, 216, 165, 212, 106\r
- db 197, 242, 98, 43, 39, 175, 254, 145, 190, 84, 118, 222, 187, 136\r
- db 120, 163, 236, 249\r
-\r
-\r
- CODESEG\r
-\r
-LastRnd dw ?\r
-\r
-;=================================================\r
-;\r
-; void US_InitRndT (boolean randomize)\r
-; Init table based RND generator\r
-; if randomize is false, the counter is set to 0\r
-;\r
-;=================================================\r
-\r
-PROC US_InitRndT randomize:word\r
- uses si,di\r
- public US_InitRndT\r
-\r
- mov ax,SEG rndtable\r
- mov es,ax\r
- mov ax,[randomize]\r
- or ax,ax\r
- jne @@timeit ;if randomize is true, really random\r
-\r
- mov dx,0 ;set to a definite value\r
- jmp @@setit\r
-\r
-@@timeit:\r
- mov ah,2ch\r
- int 21h ;GetSystemTime\r
- and dx,0ffh\r
-\r
-@@setit:\r
- mov [es:rndindex],dx\r
- ret\r
-\r
-ENDP\r
-\r
-;=================================================\r
-;\r
-; int US_RndT (void)\r
-; Return a random # between 0-255\r
-; Exit : AX = value\r
-;\r
-;=================================================\r
-PROC US_RndT\r
- public US_RndT\r
-\r
- mov ax,SEG rndtable\r
- mov es,ax\r
- mov bx,[es:rndindex]\r
- inc bx\r
- and bx,0ffh\r
- mov [es:rndindex],bx\r
- mov al,[es:rndtable+BX]\r
- xor ah,ah\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-END\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_VW.C\r
-\r
-#include "ID_HEADS.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL CONSTANTS\r
-\r
-=============================================================================\r
-*/\r
-\r
-#define VIEWWIDTH 40\r
-\r
-#define PIXTOBLOCK 4 // 16 pixels to an update block\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-cardtype videocard; // set by VW_Startup\r
-grtype grmode; // CGAgr, EGAgr, VGAgr\r
-\r
-unsigned bufferofs; // hidden area to draw to before displaying\r
-unsigned displayofs; // origin of the visable screen\r
-unsigned panx,pany; // panning adjustments inside port in pixels\r
-unsigned pansx,pansy; // panning adjustments inside port in screen\r
- // block limited pixel values (ie 0/8 for ega x)\r
-unsigned panadjust; // panx/pany adjusted by screen resolution\r
-\r
-unsigned screenseg; // normally 0xa000 / 0xb800\r
-unsigned linewidth;\r
-unsigned ylookup[VIRTUALHEIGHT];\r
-\r
-unsigned fontnumber; // 0 based font number for drawing\r
-\r
-boolean screenfaded;\r
-\r
-pictabletype _seg *pictable;\r
-pictabletype _seg *picmtable;\r
-spritetabletype _seg *spritetable;\r
-\r
-int bordercolor;\r
-boolean nopan;\r
-\r
-/*\r
-=============================================================================\r
-\r
- LOCAL VARIABLES\r
-\r
-=============================================================================\r
-*/\r
-\r
-void VWL_MeasureString (char far *string, word *width, word *height,\r
- fontstruct _seg *font);\r
-void VWL_DrawCursor (void);\r
-void VWL_EraseCursor (void);\r
-void VWL_DBSetup (void);\r
-void VWL_UpdateScreenBlocks (void);\r
-\r
-\r
-int bordercolor;\r
-int cursorvisible;\r
-int cursornumber,cursorwidth,cursorheight,cursorx,cursory;\r
-memptr cursorsave;\r
-unsigned cursorspot;\r
-\r
-//===========================================================================\r
-\r
-\r
-/*\r
-=======================\r
-=\r
-= VW_Startup\r
-=\r
-=======================\r
-*/\r
-\r
-static char *ParmStrings[] = {"HIDDENCARD","NOPAN",""};\r
-\r
-void VW_Startup (void)\r
-{\r
- int i,n;\r
-\r
- asm cld;\r
-\r
- videocard = 0;\r
-\r
- for (i = 1;i < _argc;i++)\r
- {\r
- n = US_CheckParm(_argv[i],ParmStrings);\r
- if (n == 0)\r
- {\r
- videocard = EGAcard;\r
- }\r
- else if (n == 1)\r
- {\r
- nopan = true;\r
- }\r
- }\r
-\r
- if (!videocard)\r
- videocard = VW_VideoID ();\r
-\r
-#if GRMODE == EGAGR\r
- grmode = EGAGR;\r
- if (videocard != EGAcard && videocard != VGAcard)\r
-#ifdef KEEN\r
-Quit ("Improper video card! If you really have an EGA/VGA card that I am not\n"\r
- "detecting, use the -HIDDENCARD command line parameter!");\r
-#else\r
-Quit ("Improper video card! If you really have an EGA/VGA card that I am not \n"\r
- "detecting, use the -HIDDENCARD command line parameter!");\r
-#endif\r
- EGAWRITEMODE(0);\r
-#endif\r
-\r
-#if GRMODE == CGAGR\r
- grmode = CGAGR;\r
- if (videocard < CGAcard || videocard > VGAcard)\r
-#ifdef KEEN\r
-Quit ("Improper video card! If you really have a CGA card that I am not\n"\r
- "detecting, use the -HIDDENCARD command line parameter!");\r
-#else\r
-Quit ("Improper video card! If you really have a CGA card that I am not \n"\r
- "detecting, use the -HIDDENCARD command line parameter!");\r
-#endif\r
- MM_GetPtr (&(memptr)screenseg,0x10000l); // grab 64k for floating screen\r
-#endif\r
-\r
- cursorvisible = 0;\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-=======================\r
-=\r
-= VW_Shutdown\r
-=\r
-=======================\r
-*/\r
-\r
-void VW_Shutdown (void)\r
-{\r
- VW_SetScreenMode (TEXTGR);\r
-#if GRMODE == EGAGR\r
- VW_SetLineWidth (80);\r
-#endif\r
-}\r
-\r
-//===========================================================================\r
-\r
-/*\r
-========================\r
-=\r
-= VW_SetScreenMode\r
-= Call BIOS to set TEXT / CGAgr / EGAgr / VGAgr\r
-=\r
-========================\r
-*/\r
-\r
-void VW_SetScreenMode (int grmode)\r
-{\r
- switch (grmode)\r
- {\r
- case TEXTGR: _AX = 3;\r
- geninterrupt (0x10);\r
-#ifdef CAT3D\r
- screenseg=0xb000;\r
-#endif\r
- break;\r
- case CGAGR: _AX = 4;\r
- geninterrupt (0x10); // screenseg is actually a main mem buffer\r
- break;\r
- case EGAGR: _AX = 0xd;\r
- geninterrupt (0x10);\r
- screenseg=0xa000;\r
- break;\r
-#ifdef VGAGAME\r
- case VGAGR:{\r
- char extern VGAPAL; // deluxepaint vga pallet .OBJ file\r
- void far *vgapal = &VGAPAL;\r
- SetCool256 (); // custom 256 color mode\r
- screenseg=0xa000;\r
- _ES = FP_SEG(vgapal);\r
- _DX = FP_OFF(vgapal);\r
- _BX = 0;\r
- _CX = 0x100;\r
- _AX = 0x1012;\r
- geninterrupt(0x10); // set the deluxepaint pallet\r
-\r
- break;\r
-#endif\r
- }\r
- VW_SetLineWidth(SCREENWIDTH);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SCREEN FADES\r
-\r
-=============================================================================\r
-*/\r
-\r
-char colors[7][17]=\r
-{{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},\r
- {0,0,0,0,0,0,0,0,0,1,2,3,4,5,6,7,0},\r
- {0,0,0,0,0,0,0,0,0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f,0},\r
- {0,1,2,3,4,5,6,7,0x18,0x19,0x1a,0x1b,0x1c,0x1d,0x1e,0x1f,0},\r
- {0,1,2,3,4,5,6,7,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0},\r
- {0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f,0x1f}};\r
-\r
-\r
-void VW_ColorBorder (int color)\r
-{\r
- _AH=0x10;\r
- _AL=1;\r
- _BH=color;\r
- geninterrupt (0x10);\r
- bordercolor = color;\r
-}\r
-\r
-void VW_SetPalette(byte *palette)\r
-{\r
- byte p;\r
- word i;\r
-\r
- for (i = 0;i < 15;i++)\r
- {\r
- p = palette[i];\r
- colors[0][i] = 0;\r
- colors[1][i] = (p > 0x10)? (p & 0x0f) : 0;\r
- colors[2][i] = (p > 0x10)? p : 0;\r
- colors[3][i] = p;\r
- colors[4][i] = (p > 0x10)? 0x1f : p;\r
- colors[5][i] = 0x1f;\r
- }\r
-}\r
-\r
-void VW_SetDefaultColors(void)\r
-{\r
-#if GRMODE == EGAGR\r
- colors[3][16] = bordercolor;\r
- _ES=FP_SEG(&colors[3]);\r
- _DX=FP_OFF(&colors[3]);\r
- _AX=0x1002;\r
- geninterrupt(0x10);\r
- screenfaded = false;\r
-#endif\r
-}\r
-\r
-\r
-void VW_FadeOut(void)\r
-{\r
-#if GRMODE == EGAGR\r
- int i;\r
-\r
- for (i=3;i>=0;i--)\r
- {\r
- colors[i][16] = bordercolor;\r
- _ES=FP_SEG(&colors[i]);\r
- _DX=FP_OFF(&colors[i]);\r
- _AX=0x1002;\r
- geninterrupt(0x10);\r
- VW_WaitVBL(6);\r
- }\r
- screenfaded = true;\r
-#endif\r
-}\r
-\r
-\r
-void VW_FadeIn(void)\r
-{\r
-#if GRMODE == EGAGR\r
- int i;\r
-\r
- for (i=0;i<4;i++)\r
- {\r
- colors[i][16] = bordercolor;\r
- _ES=FP_SEG(&colors[i]);\r
- _DX=FP_OFF(&colors[i]);\r
- _AX=0x1002;\r
- geninterrupt(0x10);\r
- VW_WaitVBL(6);\r
- }\r
- screenfaded = false;\r
-#endif\r
-}\r
-\r
-void VW_FadeUp(void)\r
-{\r
-#if GRMODE == EGAGR\r
- int i;\r
-\r
- for (i=3;i<6;i++)\r
- {\r
- colors[i][16] = bordercolor;\r
- _ES=FP_SEG(&colors[i]);\r
- _DX=FP_OFF(&colors[i]);\r
- _AX=0x1002;\r
- geninterrupt(0x10);\r
- VW_WaitVBL(6);\r
- }\r
- screenfaded = true;\r
-#endif\r
-}\r
-\r
-void VW_FadeDown(void)\r
-{\r
-#if GRMODE == EGAGR\r
- int i;\r
-\r
- for (i=5;i>2;i--)\r
- {\r
- colors[i][16] = bordercolor;\r
- _ES=FP_SEG(&colors[i]);\r
- _DX=FP_OFF(&colors[i]);\r
- _AX=0x1002;\r
- geninterrupt(0x10);\r
- VW_WaitVBL(6);\r
- }\r
- screenfaded = false;\r
-#endif\r
-}\r
-\r
-\r
-/*\r
-========================\r
-=\r
-= VW_SetAtrReg\r
-=\r
-= Sets an attribute (pallete / border) register\r
-= Does NOT vsync!\r
-=\r
-========================\r
-*/\r
-\r
-void VW_SetAtrReg (int reg, int value)\r
-{\r
- asm cli\r
- asm mov dx,STATUS_REGISTER_1\r
- asm in al,dx\r
- asm mov dx,ATR_INDEX\r
-\r
- asm mov al,BYTE PTR [reg]\r
- asm out dx,al\r
- asm mov al,BYTE PTR [value]\r
- asm out dx,al\r
- asm mov dx,0x3da\r
- asm in al,dx\r
- asm mov dx,ATR_INDEX\r
- asm mov al,0x20\r
- asm out dx,al\r
- asm sti\r
-}\r
-\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= VW_SetLineWidth\r
-=\r
-= Must be an even number of bytes\r
-=\r
-====================\r
-*/\r
-\r
-void VW_SetLineWidth (int width)\r
-{\r
- int i,offset;\r
-\r
-#if GRMODE == EGAGR\r
-//\r
-// set wide virtual screen\r
-//\r
-asm mov dx,CRTC_INDEX\r
-asm mov al,CRTC_OFFSET\r
-asm mov ah,[BYTE PTR width]\r
-asm shr ah,1\r
-asm out dx,ax\r
-#endif\r
-\r
-//\r
-// set up lookup tables\r
-//\r
- linewidth = width;\r
-\r
- offset = 0;\r
-\r
- for (i=0;i<VIRTUALHEIGHT;i++)\r
- {\r
- ylookup[i]=offset;\r
- offset += width;\r
- }\r
-}\r
-\r
-\r
-//===========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= VW_SetSplitScreen\r
-=\r
-====================\r
-*/\r
-#ifdef CAT3D\r
-void VW_SetSplitScreen (int linenum)\r
-{\r
- VW_WaitVBL (1);\r
- if (videocard==VGAcard)\r
- linenum=linenum*2-1;\r
- outportb (CRTC_INDEX,CRTC_LINECOMPARE);\r
- outportb (CRTC_INDEX+1,linenum % 256);\r
- outportb (CRTC_INDEX,CRTC_OVERFLOW);\r
- outportb (CRTC_INDEX+1, 1+16*(linenum/256));\r
- if (videocard==VGAcard)\r
- {\r
- outportb (CRTC_INDEX,CRTC_MAXSCANLINE);\r
- outportb (CRTC_INDEX+1,inportb(CRTC_INDEX+1) & (255-64));\r
- }\r
-}\r
-#endif\r
-//===========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= VW_ClearVideo\r
-=\r
-====================\r
-*/\r
-\r
-void VW_ClearVideo (int color)\r
-{\r
-#if GRMODE == EGAGR\r
- EGAWRITEMODE(2);\r
- EGAMAPMASK(15);\r
-\r
- color = (color << 8) & color; //BUG: color is always 0 after this\r
-#endif\r
-\r
-#if GRMODE == CGAGR\r
- color = (color << 12) & (color << 8) & (color << 4) & color; //BUG: color is always 0 after this\r
-#endif\r
-\r
- VW_WaitVBL(1);\r
-\r
-asm mov es, screenseg;\r
-asm mov di, displayofs;\r
-asm and di, not 1;\r
-asm mov cx, 8000h;\r
-asm mov ax, color;\r
-asm rep stosw;\r
-\r
-#if GRMODE == EGAGR\r
- EGAWRITEMODE(0);\r
-#endif\r
-}\r
-\r
-//===========================================================================\r
-\r
-#if NUMPICS>0\r
-\r
-/*\r
-====================\r
-=\r
-= VW_DrawPic\r
-=\r
-= X in bytes, y in pixels, chunknum is the #defined picnum\r
-=\r
-====================\r
-*/\r
-\r
-void VW_DrawPic(unsigned x, unsigned y, unsigned chunknum)\r
-{\r
- int picnum = chunknum - STARTPICS;\r
- memptr source;\r
- unsigned dest,width,height;\r
-\r
- source = grsegs[chunknum];\r
- dest = ylookup[y]+x+bufferofs;\r
- width = pictable[picnum].width;\r
- height = pictable[picnum].height;\r
-\r
- VW_MemToScreen(source,dest,width,height);\r
-}\r
-\r
-\r
-#endif\r
-\r
-#if NUMPICM>0\r
-\r
-/*\r
-====================\r
-=\r
-= VW_DrawMPic\r
-=\r
-= X in bytes, y in pixels, chunknum is the #defined picnum\r
-=\r
-====================\r
-*/\r
-\r
-void VW_DrawMPic(unsigned x, unsigned y, unsigned chunknum)\r
-{\r
- int picnum = chunknum - STARTPICM;\r
- memptr source;\r
- unsigned dest,width,height;\r
-\r
- source = grsegs[chunknum];\r
- dest = ylookup[y]+x+bufferofs;\r
- width = picmtable[picnum].width;\r
- height = picmtable[picnum].height;\r
-\r
- VW_MaskBlock(source,0,dest,width,height,width*height);\r
-}\r
-\r
-void VW_ClipDrawMPic(unsigned x, int y, unsigned chunknum)\r
-{\r
- int picnum = chunknum - STARTPICM;\r
- memptr source;\r
- unsigned dest,width,ofs,plane;\r
- int height;\r
-\r
- source = grsegs[chunknum];\r
- width = picmtable[picnum].width;\r
- height = picmtable[picnum].height;\r
- plane = width*height;\r
-\r
- ofs = 0;\r
- if (y<0)\r
- {\r
- ofs= -y*width;\r
- height+=y;\r
- y=0;\r
- }\r
- else if (y+height>216)\r
- {\r
- height-=(y-216);\r
- }\r
- dest = ylookup[y]+x+bufferofs;\r
- if (height<1)\r
- return;\r
-\r
- VW_MaskBlock(source,ofs,dest,width,height,plane);\r
-}\r
-\r
-\r
-#endif\r
-\r
-//===========================================================================\r
-\r
-#if NUMSPRITES>0\r
-\r
-/*\r
-====================\r
-=\r
-= VW_DrawSprite\r
-=\r
-= X and Y in pixels, it will match the closest shift possible\r
-=\r
-= To do:\r
-= Add vertical clipping!\r
-= Make the shifts act as center points, rather than break points\r
-=\r
-====================\r
-*/\r
-\r
-void VW_DrawSprite(int x, int y, unsigned chunknum)\r
-{\r
- spritetabletype far *spr;\r
- spritetype _seg *block;\r
- unsigned dest,shift;\r
-\r
- spr = &spritetable[chunknum-STARTSPRITES];\r
- block = (spritetype _seg *)grsegs[chunknum];\r
-\r
- y+=spr->orgy>>G_P_SHIFT;\r
- x+=spr->orgx>>G_P_SHIFT;\r
-\r
-#if GRMODE == EGAGR\r
- shift = (x&7)/2;\r
-#endif\r
-#if GRMODE == CGAGR\r
- shift = 0;\r
-#endif\r
-\r
- dest = bufferofs + ylookup[y];\r
- if (x>=0)\r
- dest += x/SCREENXDIV;\r
- else\r
- dest += (x+1)/SCREENXDIV;\r
-\r
- VW_MaskBlock (block,block->sourceoffset[shift],dest,\r
- block->width[shift],spr->height,block->planesize[shift]);\r
-}\r
-\r
-#endif\r
-\r
-\r
-/*\r
-==================\r
-=\r
-= VW_Hlin\r
-=\r
-==================\r
-*/\r
-\r
-\r
-#if GRMODE == EGAGR\r
-\r
-unsigned char leftmask[8] = {0xff,0x7f,0x3f,0x1f,0xf,7,3,1};\r
-unsigned char rightmask[8] = {0x80,0xc0,0xe0,0xf0,0xf8,0xfc,0xfe,0xff};\r
-\r
-void VW_Hlin(unsigned xl, unsigned xh, unsigned y, unsigned color)\r
-{\r
- unsigned dest,xlb,xhb,maskleft,maskright,mid;\r
-\r
- xlb=xl/8;\r
- xhb=xh/8;\r
-\r
- EGAWRITEMODE(2);\r
- EGAMAPMASK(15);\r
-\r
- maskleft = leftmask[xl&7];\r
- maskright = rightmask[xh&7];\r
-\r
- mid = xhb-xlb-1;\r
- dest = bufferofs+ylookup[y]+xlb;\r
-\r
- if (xlb==xhb)\r
- {\r
- //\r
- // entire line is in one byte\r
- //\r
-\r
- maskleft&=maskright;\r
-\r
- asm mov es,[screenseg]\r
- asm mov di,[dest]\r
-\r
- asm mov dx,GC_INDEX\r
- asm mov al,GC_BITMASK\r
- asm mov ah,[BYTE PTR maskleft]\r
- asm out dx,ax // mask off pixels\r
-\r
- asm mov al,[BYTE PTR color]\r
- asm xchg al,[es:di] // load latches and write pixels\r
-\r
- goto done;\r
- }\r
-\r
-asm mov es,[screenseg]\r
-asm mov di,[dest]\r
-asm mov dx,GC_INDEX\r
-asm mov bh,[BYTE PTR color]\r
-\r
-//\r
-// draw left side\r
-//\r
-asm mov al,GC_BITMASK\r
-asm mov ah,[BYTE PTR maskleft]\r
-asm out dx,ax // mask off pixels\r
-\r
-asm mov al,bh\r
-asm mov bl,[es:di] // load latches\r
-asm stosb\r
-\r
-//\r
-// draw middle\r
-//\r
-asm mov ax,GC_BITMASK + 255*256\r
-asm out dx,ax // no masking\r
-\r
-asm mov al,bh\r
-asm mov cx,[mid]\r
-asm rep stosb\r
-\r
-//\r
-// draw right side\r
-//\r
-asm mov al,GC_BITMASK\r
-asm mov ah,[BYTE PTR maskright]\r
-asm out dx,ax // mask off pixels\r
-\r
-asm xchg bh,[es:di] // load latches and write pixels\r
-\r
-done:\r
- EGABITMASK(255);\r
- EGAWRITEMODE(0);\r
-}\r
-#endif\r
-\r
-\r
-#if GRMODE == CGAGR\r
-\r
-unsigned char pixmask[4] = {0xc0,0x30,0x0c,0x03};\r
-unsigned char leftmask[4] = {0xff,0x3f,0x0f,0x03};\r
-unsigned char rightmask[4] = {0xc0,0xf0,0xfc,0xff};\r
-unsigned char colorbyte[4] = {0,0x55,0xaa,0xff};\r
-\r
-//\r
-// could be optimized for rep stosw\r
-//\r
-void VW_Hlin(unsigned xl, unsigned xh, unsigned y, unsigned color)\r
-{\r
- unsigned dest,xlb,xhb,mid;\r
- byte maskleft,maskright;\r
-\r
- color = colorbyte[color]; // expand 2 color bits to 8\r
-\r
- xlb=xl/4;\r
- xhb=xh/4;\r
-\r
- maskleft = leftmask[xl&3];\r
- maskright = rightmask[xh&3];\r
-\r
- mid = xhb-xlb-1;\r
- dest = bufferofs+ylookup[y]+xlb;\r
-asm mov es,[screenseg]\r
-\r
- if (xlb==xhb)\r
- {\r
- //\r
- // entire line is in one byte\r
- //\r
- maskleft&=maskright;\r
-\r
- asm mov ah,[maskleft]\r
- asm mov bl,[BYTE PTR color]\r
- asm and bl,[maskleft]\r
- asm not ah\r
-\r
- asm mov di,[dest]\r
-\r
- asm mov al,[es:di]\r
- asm and al,ah // mask out pixels\r
- asm or al,bl // or in color\r
- asm mov [es:di],al\r
- return;\r
- }\r
-\r
-asm mov di,[dest]\r
-asm mov bh,[BYTE PTR color]\r
-\r
-//\r
-// draw left side\r
-//\r
-asm mov ah,[maskleft]\r
-asm mov bl,bh\r
-asm and bl,[maskleft]\r
-asm not ah\r
-asm mov al,[es:di]\r
-asm and al,ah // mask out pixels\r
-asm or al,bl // or in color\r
-asm stosb\r
-\r
-//\r
-// draw middle\r
-//\r
-asm mov al,bh\r
-asm mov cx,[mid]\r
-asm rep stosb\r
-\r
-//\r
-// draw right side\r
-//\r
-asm mov ah,[maskright]\r
-asm mov bl,bh\r
-asm and bl,[maskright]\r
-asm not ah\r
-asm mov al,[es:di]\r
-asm and al,ah // mask out pixels\r
-asm or al,bl // or in color\r
-asm stosb\r
-}\r
-#endif\r
-\r
-\r
-/*\r
-==================\r
-=\r
-= VW_Bar\r
-=\r
-= Pixel addressable block fill routine\r
-=\r
-==================\r
-*/\r
-\r
-#if GRMODE == CGAGR\r
-\r
-void VW_Bar (unsigned x, unsigned y, unsigned width, unsigned height,\r
- unsigned color)\r
-{\r
- unsigned xh = x+width-1;\r
-\r
- while (height--)\r
- VW_Hlin (x,xh,y++,color);\r
-}\r
-\r
-#endif\r
-\r
-\r
-#if GRMODE == EGAGR\r
-\r
-void VW_Bar (unsigned x, unsigned y, unsigned width, unsigned height,\r
- unsigned color)\r
-{\r
- unsigned dest,xh,xlb,xhb,maskleft,maskright,mid;\r
-\r
- xh = x+width-1;\r
- xlb=x/8;\r
- xhb=xh/8;\r
-\r
- EGAWRITEMODE(2);\r
- EGAMAPMASK(15);\r
-\r
- maskleft = leftmask[x&7];\r
- maskright = rightmask[xh&7];\r
-\r
- mid = xhb-xlb-1;\r
- dest = bufferofs+ylookup[y]+xlb;\r
-\r
- if (xlb==xhb)\r
- {\r
- //\r
- // entire line is in one byte\r
- //\r
-\r
- maskleft&=maskright;\r
-\r
- asm mov es,[screenseg]\r
- asm mov di,[dest]\r
-\r
- asm mov dx,GC_INDEX\r
- asm mov al,GC_BITMASK\r
- asm mov ah,[BYTE PTR maskleft]\r
- asm out dx,ax // mask off pixels\r
-\r
- asm mov ah,[BYTE PTR color]\r
- asm mov dx,[linewidth]\r
-yloop1:\r
- asm mov al,ah\r
- asm xchg al,[es:di] // load latches and write pixels\r
- asm add di,dx // down to next line\r
- asm dec [height]\r
- asm jnz yloop1\r
-\r
- goto done;\r
- }\r
-\r
-asm mov es,[screenseg]\r
-asm mov di,[dest]\r
-asm mov bh,[BYTE PTR color]\r
-asm mov dx,GC_INDEX\r
-asm mov si,[linewidth]\r
-asm sub si,[mid] // add to di at end of line to get to next scan\r
-asm dec si\r
-\r
-//\r
-// draw left side\r
-//\r
-yloop2:\r
-asm mov al,GC_BITMASK\r
-asm mov ah,[BYTE PTR maskleft]\r
-asm out dx,ax // mask off pixels\r
-\r
-asm mov al,bh\r
-asm mov bl,[es:di] // load latches\r
-asm stosb\r
-\r
-//\r
-// draw middle\r
-//\r
-asm mov ax,GC_BITMASK + 255*256\r
-asm out dx,ax // no masking\r
-\r
-asm mov al,bh\r
-asm mov cx,[mid]\r
-asm rep stosb\r
-\r
-//\r
-// draw right side\r
-//\r
-asm mov al,GC_BITMASK\r
-asm mov ah,[BYTE PTR maskright]\r
-asm out dx,ax // mask off pixels\r
-\r
-asm mov al,bh\r
-asm xchg al,[es:di] // load latches and write pixels\r
-\r
-asm add di,si // move to start of next line\r
-asm dec [height]\r
-asm jnz yloop2\r
-\r
-done:\r
- EGABITMASK(255);\r
- EGAWRITEMODE(0);\r
-}\r
-\r
-#endif\r
-\r
-//==========================================================================\r
-\r
-/*\r
-==================\r
-=\r
-= VW_MeasureString\r
-=\r
-==================\r
-*/\r
-\r
-#if NUMFONT+NUMFONTM>0\r
-void\r
-VWL_MeasureString (char far *string, word *width, word *height, fontstruct _seg *font)\r
-{\r
- *height = font->height;\r
- for (*width = 0;*string;string++)\r
- *width += font->width[*((byte far *)string)]; // proportional width\r
-}\r
-\r
-void VW_MeasurePropString (char far *string, word *width, word *height)\r
-{\r
- VWL_MeasureString(string,width,height,(fontstruct _seg *)grsegs[STARTFONT+fontnumber]);\r
-}\r
-\r
-void VW_MeasureMPropString (char far *string, word *width, word *height)\r
-{\r
- VWL_MeasureString(string,width,height,(fontstruct _seg *)grsegs[STARTFONTM+fontnumber]);\r
-}\r
-\r
-\r
-#endif\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
- CGA stuff\r
-\r
-=============================================================================\r
-*/\r
-\r
-#if GRMODE == CGAGR\r
-\r
-#define CGACRTCWIDTH 40\r
-\r
-/*\r
-==========================\r
-=\r
-= VW_CGAFullUpdate\r
-=\r
-==========================\r
-*/\r
-\r
-void VW_CGAFullUpdate (void)\r
-{\r
- byte *update;\r
- boolean halftile;\r
- unsigned x,y,middlerows,middlecollumns;\r
-\r
- displayofs = bufferofs+panadjust;\r
-\r
-asm mov ax,0xb800\r
-asm mov es,ax\r
-\r
-asm mov si,[displayofs]\r
-asm xor di,di\r
-\r
-asm mov bx,100 // pairs of scan lines to copy\r
-asm mov dx,[linewidth]\r
-asm sub dx,80\r
-\r
-asm mov ds,[screenseg]\r
-asm test si,1\r
-asm jz evenblock\r
-\r
-//\r
-// odd source\r
-//\r
-asm mov ax,39 // words accross screen\r
-copytwolineso:\r
-asm movsb\r
-asm mov cx,ax\r
-asm rep movsw\r
-asm movsb\r
-asm add si,dx\r
-asm add di,0x2000-80 // go to the interlaced bank\r
-asm movsb\r
-asm mov cx,ax\r
-asm rep movsw\r
-asm movsb\r
-asm add si,dx\r
-asm sub di,0x2000 // go to the non interlaced bank\r
-\r
-asm dec bx\r
-asm jnz copytwolineso\r
-asm jmp blitdone\r
-\r
-//\r
-// even source\r
-//\r
-evenblock:\r
-asm mov ax,40 // words accross screen\r
-copytwolines:\r
-asm mov cx,ax\r
-asm rep movsw\r
-asm add si,dx\r
-asm add di,0x2000-80 // go to the interlaced bank\r
-asm mov cx,ax\r
-asm rep movsw\r
-asm add si,dx\r
-asm sub di,0x2000 // go to the non interlaced bank\r
-\r
-asm dec bx\r
-asm jnz copytwolines\r
-\r
-blitdone:\r
-asm mov ax,ss\r
-asm mov ds,ax\r
-asm mov es,ax\r
-\r
-asm xor ax,ax // clear out the update matrix\r
-asm mov cx,UPDATEWIDE*UPDATEHIGH/2\r
-\r
-asm mov di,[baseupdateptr]\r
-asm rep stosw\r
-\r
- updateptr = baseupdateptr;\r
- *(unsigned *)(updateptr + UPDATEWIDE*PORTTILESHIGH) = UPDATETERMINATE;\r
-}\r
-\r
-\r
-#endif\r
-\r
-/*\r
-=============================================================================\r
-\r
- CURSOR ROUTINES\r
-\r
-These only work in the context of the double buffered update routines\r
-\r
-=============================================================================\r
-*/\r
-\r
-/*\r
-====================\r
-=\r
-= VWL_DrawCursor\r
-=\r
-= Background saves, then draws the cursor at cursorspot\r
-=\r
-====================\r
-*/\r
-\r
-void VWL_DrawCursor (void)\r
-{\r
- cursorspot = bufferofs + ylookup[cursory+pansy]+(cursorx+pansx)/SCREENXDIV;\r
- VW_ScreenToMem(cursorspot,cursorsave,cursorwidth,cursorheight);\r
- VWB_DrawSprite(cursorx,cursory,cursornumber);\r
-}\r
-\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= VWL_EraseCursor\r
-=\r
-====================\r
-*/\r
-\r
-void VWL_EraseCursor (void)\r
-{\r
- VW_MemToScreen(cursorsave,cursorspot,cursorwidth,cursorheight);\r
- VW_MarkUpdateBlock ((cursorx+pansx)&SCREENXMASK,cursory+pansy,\r
- ( (cursorx+pansx)&SCREENXMASK)+cursorwidth*SCREENXDIV-1,\r
- cursory+pansy+cursorheight-1);\r
-}\r
-\r
-\r
-//==========================================================================\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= VW_ShowCursor\r
-=\r
-====================\r
-*/\r
-\r
-void VW_ShowCursor (void)\r
-{\r
- cursorvisible++;\r
-}\r
-\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= VW_HideCursor\r
-=\r
-====================\r
-*/\r
-\r
-void VW_HideCursor (void)\r
-{\r
- cursorvisible--;\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= VW_MoveCursor\r
-=\r
-====================\r
-*/\r
-#define MAXCURSORX (319-24)\r
-#define MAXCURSORY (199-24)\r
-\r
-void VW_MoveCursor (int x, int y)\r
-{\r
-#ifdef CAT3D\r
- if (x>MAXCURSORX)\r
- x=MAXCURSORX;\r
- if (y>MAXCURSORY)\r
- y=MAXCURSORY; // catacombs hack to keep cursor on screen\r
-#endif\r
-\r
- cursorx = x;\r
- cursory = y;\r
-}\r
-\r
-//==========================================================================\r
-\r
-/*\r
-====================\r
-=\r
-= VW_SetCursor\r
-=\r
-= Load in a sprite to be used as a cursor, and allocate background save space\r
-=\r
-====================\r
-*/\r
-\r
-void VW_SetCursor (int spritenum)\r
-{\r
- VW_FreeCursor ();\r
-\r
- cursornumber = spritenum;\r
-\r
- CA_CacheGrChunk (spritenum);\r
- MM_SetLock (&grsegs[spritenum],true);\r
-\r
- cursorwidth = spritetable[spritenum-STARTSPRITES].width+1;\r
- cursorheight = spritetable[spritenum-STARTSPRITES].height;\r
-\r
- MM_GetPtr (&cursorsave,cursorwidth*cursorheight*5);\r
- MM_SetLock (&cursorsave,true);\r
-}\r
-\r
-\r
-/*\r
-====================\r
-=\r
-= VW_FreeCursor\r
-=\r
-= Frees the memory used by the cursor and its background save\r
-=\r
-====================\r
-*/\r
-\r
-void VW_FreeCursor (void)\r
-{\r
- if (cursornumber)\r
- {\r
- MM_SetLock (&grsegs[cursornumber],false);\r
- MM_SetPurge (&grsegs[cursornumber],3);\r
- MM_SetLock (&cursorsave,false);\r
- MM_FreePtr (&cursorsave);\r
- cursornumber = 0;\r
- }\r
-}\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
- Double buffer management routines\r
-\r
-=============================================================================\r
-*/\r
-\r
-/*\r
-======================\r
-=\r
-= VW_InitDoubleBuffer\r
-=\r
-======================\r
-*/\r
-\r
-void VW_InitDoubleBuffer (void)\r
-{\r
-#if GRMODE == EGAGR\r
- VW_SetScreen (displayofs+panadjust,0); // no pel pan\r
-#endif\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= VW_FixRefreshBuffer\r
-=\r
-= Copies the view page to the buffer page on page flipped refreshes to\r
-= avoid a one frame shear around pop up windows\r
-=\r
-======================\r
-*/\r
-\r
-void VW_FixRefreshBuffer (void)\r
-{\r
-#if GRMODE == EGAGR\r
- VW_ScreenToScreen (displayofs,bufferofs,PORTTILESWIDE*4*CHARWIDTH,\r
- (PORTTILESHIGH-1)*16);\r
-#endif\r
-}\r
-\r
-\r
-/*\r
-======================\r
-=\r
-= VW_QuitDoubleBuffer\r
-=\r
-======================\r
-*/\r
-\r
-void VW_QuitDoubleBuffer (void)\r
-{\r
-}\r
-\r
-\r
-/*\r
-=======================\r
-=\r
-= VW_MarkUpdateBlock\r
-=\r
-= Takes a pixel bounded block and marks the tiles in bufferblocks\r
-= Returns 0 if the entire block is off the buffer screen\r
-=\r
-=======================\r
-*/\r
-\r
-int VW_MarkUpdateBlock (int x1, int y1, int x2, int y2)\r
-{\r
- int x,y,xt1,yt1,xt2,yt2,nextline;\r
- byte *mark;\r
-\r
- xt1 = x1>>PIXTOBLOCK;\r
- yt1 = y1>>PIXTOBLOCK;\r
-\r
- xt2 = x2>>PIXTOBLOCK;\r
- yt2 = y2>>PIXTOBLOCK;\r
-\r
- if (xt1<0)\r
- xt1=0;\r
- else if (xt1>=UPDATEWIDE-1)\r
- return 0;\r
-\r
- if (yt1<0)\r
- yt1=0;\r
- else if (yt1>UPDATEHIGH)\r
- return 0;\r
-\r
- if (xt2<0)\r
- return 0;\r
- else if (xt2>=UPDATEWIDE-1)\r
- xt2 = UPDATEWIDE-2;\r
-\r
- if (yt2<0)\r
- return 0;\r
- else if (yt2>=UPDATEHIGH)\r
- yt2 = UPDATEHIGH-1;\r
-\r
- mark = updateptr + uwidthtable[yt1] + xt1;\r
- nextline = UPDATEWIDE - (xt2-xt1) - 1;\r
-\r
- for (y=yt1;y<=yt2;y++)\r
- {\r
- for (x=xt1;x<=xt2;x++)\r
- *mark++ = 1; // this tile will need to be updated\r
-\r
- mark += nextline;\r
- }\r
-\r
- return 1;\r
-}\r
-\r
-\r
-/*\r
-===========================\r
-=\r
-= VW_UpdateScreen\r
-=\r
-= Updates any changed areas of the double buffer and displays the cursor\r
-=\r
-===========================\r
-*/\r
-\r
-void VW_UpdateScreen (void)\r
-{\r
- if (cursorvisible>0)\r
- VWL_DrawCursor();\r
-\r
-#if GRMODE == EGAGR\r
- VWL_UpdateScreenBlocks();\r
-#endif\r
-#if GRMODE == CGAGR\r
- VW_CGAFullUpdate();\r
-#endif\r
-\r
- if (cursorvisible>0)\r
- VWL_EraseCursor();\r
-}\r
-\r
-\r
-\r
-void VWB_DrawTile8 (int x, int y, int tile)\r
-{\r
- x+=pansx;\r
- y+=pansy;\r
- if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+7,y+7))\r
- VW_DrawTile8 (x/SCREENXDIV,y,tile);\r
-}\r
-\r
-void VWB_DrawTile8M (int x, int y, int tile)\r
-{\r
- int xb;\r
-\r
- x+=pansx;\r
- y+=pansy;\r
- xb = x/SCREENXDIV; // use intermediate because VW_DT8M is macro\r
- if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+7,y+7))\r
- VW_DrawTile8M (xb,y,tile);\r
-}\r
-\r
-void VWB_DrawTile16 (int x, int y, int tile)\r
-{\r
- x+=pansx;\r
- y+=pansy;\r
- if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+15,y+15))\r
- VW_DrawTile16 (x/SCREENXDIV,y,tile);\r
-}\r
-\r
-void VWB_DrawTile16M (int x, int y, int tile)\r
-{\r
- int xb;\r
-\r
- x+=pansx;\r
- y+=pansy;\r
- xb = x/SCREENXDIV; // use intermediate because VW_DT16M is macro\r
- if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+15,y+15))\r
- VW_DrawTile16M (xb,y,tile);\r
-}\r
-\r
-#if NUMPICS\r
-void VWB_DrawPic (int x, int y, int chunknum)\r
-{\r
-// mostly copied from drawpic\r
- int picnum = chunknum - STARTPICS;\r
- memptr source;\r
- unsigned dest,width,height;\r
-\r
- x+=pansx;\r
- y+=pansy;\r
- x/= SCREENXDIV;\r
-\r
- source = grsegs[chunknum];\r
- dest = ylookup[y]+x+bufferofs;\r
- width = pictable[picnum].width;\r
- height = pictable[picnum].height;\r
-\r
- if (VW_MarkUpdateBlock (x*SCREENXDIV,y,(x+width)*SCREENXDIV-1,y+height-1))\r
- VW_MemToScreen(source,dest,width,height);\r
-}\r
-#endif\r
-\r
-#if NUMPICM>0\r
-void VWB_DrawMPic(int x, int y, int chunknum)\r
-{\r
-// mostly copied from drawmpic\r
- int picnum = chunknum - STARTPICM;\r
- memptr source;\r
- unsigned dest,width,height;\r
-\r
- x+=pansx;\r
- y+=pansy;\r
- x/=SCREENXDIV;\r
-\r
- source = grsegs[chunknum];\r
- dest = ylookup[y]+x+bufferofs;\r
- width = picmtable[picnum].width;\r
- height = picmtable[picnum].height;\r
-\r
- if (VW_MarkUpdateBlock (x*SCREENXDIV,y,(x+width)*SCREENXDIV-1,y+height-1))\r
- VW_MaskBlock(source,0,dest,width,height,width*height);\r
-}\r
-#endif\r
-\r
-\r
-void VWB_Bar (int x, int y, int width, int height, int color)\r
-{\r
- x+=pansx;\r
- y+=pansy;\r
- if (VW_MarkUpdateBlock (x,y,x+width,y+height-1) )\r
- VW_Bar (x,y,width,height,color);\r
-}\r
-\r
-\r
-#if NUMFONT\r
-void VWB_DrawPropString (char far *string)\r
-{\r
- int x,y;\r
- x = px+pansx;\r
- y = py+pansy;\r
- VW_DrawPropString (string);\r
- VW_MarkUpdateBlock(x,y,x+bufferwidth*8-1,y+bufferheight-1);\r
-}\r
-#endif\r
-\r
-\r
-#if NUMFONTM\r
-void VWB_DrawMPropString (char far *string)\r
-{\r
- int x,y;\r
- x = px+pansx;\r
- y = py+pansy;\r
- VW_DrawMPropString (string);\r
- VW_MarkUpdateBlock(x,y,x+bufferwidth*8-1,y+bufferheight-1);\r
-}\r
-#endif\r
-\r
-#if NUMSPRITES\r
-void VWB_DrawSprite(int x, int y, int chunknum)\r
-{\r
- spritetabletype far *spr;\r
- spritetype _seg *block;\r
- unsigned dest,shift,width,height;\r
-\r
- x+=pansx;\r
- y+=pansy;\r
-\r
- spr = &spritetable[chunknum-STARTSPRITES];\r
- block = (spritetype _seg *)grsegs[chunknum];\r
-\r
- y+=spr->orgy>>G_P_SHIFT;\r
- x+=spr->orgx>>G_P_SHIFT;\r
-\r
-\r
-#if GRMODE == EGAGR\r
- shift = (x&7)/2;\r
-#endif\r
-#if GRMODE == CGAGR\r
- shift = 0;\r
-#endif\r
-\r
- dest = bufferofs + ylookup[y];\r
- if (x>=0)\r
- dest += x/SCREENXDIV;\r
- else\r
- dest += (x+1)/SCREENXDIV;\r
-\r
- width = block->width[shift];\r
- height = spr->height;\r
-\r
- if (VW_MarkUpdateBlock (x&SCREENXMASK,y,(x&SCREENXMASK)+width*SCREENXDIV-1\r
- ,y+height-1))\r
- VW_MaskBlock (block,block->sourceoffset[shift],dest,\r
- width,height,block->planesize[shift]);\r
-}\r
-#endif\r
-\r
-void VWB_Plot (int x, int y, int color)\r
-{\r
- x+=pansx;\r
- y+=pansy;\r
- if (VW_MarkUpdateBlock (x,y,x,y))\r
- VW_Plot(x,y,color);\r
-}\r
-\r
-void VWB_Hlin (int x1, int x2, int y, int color)\r
-{\r
- x1+=pansx;\r
- x2+=pansx;\r
- y+=pansy;\r
- if (VW_MarkUpdateBlock (x1,y,x2,y))\r
- VW_Hlin(x1,x2,y,color);\r
-}\r
-\r
-void VWB_Vlin (int y1, int y2, int x, int color)\r
-{\r
- x+=pansx;\r
- y1+=pansy;\r
- y2+=pansy;\r
- if (VW_MarkUpdateBlock (x,y1,x,y2))\r
- VW_Vlin(y1,y2,x,color);\r
-}\r
-\r
-\r
-//===========================================================================\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_VW.H\r
-\r
-#ifndef __TYPES__\r
-#include "ID_TYPES.H"\r
-#endif\r
-\r
-#ifndef __ID_MM__\r
-#include "ID_MM.H"\r
-#endif\r
-\r
-#ifndef __ID_GLOB__\r
-#include "ID_GLOB.H"\r
-#endif\r
-\r
-#define __ID_VW__\r
-\r
-//===========================================================================\r
-\r
-#define G_P_SHIFT 4 // global >> ?? = pixels\r
-\r
-#if GRMODE == EGAGR\r
-#ifdef CAT3D\r
-#define SCREENWIDTH 40\r
-#else\r
-#define SCREENWIDTH 64\r
-#endif\r
-#define CHARWIDTH 1\r
-#define TILEWIDTH 2\r
-#define GRPLANES 4\r
-#define BYTEPIXELS 8\r
-#endif\r
-\r
-#if GRMODE == CGAGR\r
-#define SCREENWIDTH 128\r
-#define CHARWIDTH 2\r
-#define TILEWIDTH 4\r
-#define GRPLANES 1\r
-#define BYTEPIXELS 4\r
-#endif\r
-\r
-#define VIRTUALHEIGHT 300\r
-#define VIRTUALWIDTH 512\r
-\r
-\r
-#if GRMODE == CGAGR\r
-\r
-#define MAXSHIFTS 1\r
-\r
-#define WHITE 3 // graphics mode independant colors\r
-#define BLACK 0\r
-#define FIRSTCOLOR 1\r
-#define SECONDCOLOR 2\r
-#define F_WHITE 0 // for XOR font drawing\r
-#define F_BLACK 3\r
-#define F_FIRSTCOLOR 2\r
-#define F_SECONDCOLOR 1\r
-\r
-#endif\r
-\r
-#if GRMODE == EGAGR\r
-\r
-#define MAXSHIFTS 4\r
-\r
-#define WHITE 15 // graphics mode independant colors\r
-#define BLACK 0\r
-#define FIRSTCOLOR 1\r
-#define SECONDCOLOR 12\r
-#define F_WHITE 0 // for XOR font drawing\r
-#define F_BLACK 15\r
-#define F_FIRSTCOLOR 14\r
-#define F_SECONDCOLOR 3\r
-\r
-#endif\r
-\r
-#if GRMODE == EGAGR\r
-#define SCREENXMASK (~7)\r
-#define SCREENXPLUS (7)\r
-#define SCREENXDIV (8)\r
-#endif\r
-\r
-#if GRMODE == CGAGR\r
-#define SCREENXMASK (~3)\r
-#define SCREENXDIV (4)\r
-#endif\r
-\r
-//===========================================================================\r
-\r
-\r
-#define SC_INDEX 0x3C4\r
-#define SC_RESET 0\r
-#define SC_CLOCK 1\r
-#define SC_MAPMASK 2\r
-#define SC_CHARMAP 3\r
-#define SC_MEMMODE 4\r
-\r
-#define CRTC_INDEX 0x3D4\r
-#define CRTC_H_TOTAL 0\r
-#define CRTC_H_DISPEND 1\r
-#define CRTC_H_BLANK 2\r
-#define CRTC_H_ENDBLANK 3\r
-#define CRTC_H_RETRACE 4\r
-#define CRTC_H_ENDRETRACE 5\r
-#define CRTC_V_TOTAL 6\r
-#define CRTC_OVERFLOW 7\r
-#define CRTC_ROWSCAN 8\r
-#define CRTC_MAXSCANLINE 9\r
-#define CRTC_CURSORSTART 10\r
-#define CRTC_CURSOREND 11\r
-#define CRTC_STARTHIGH 12\r
-#define CRTC_STARTLOW 13\r
-#define CRTC_CURSORHIGH 14\r
-#define CRTC_CURSORLOW 15\r
-#define CRTC_V_RETRACE 16\r
-#define CRTC_V_ENDRETRACE 17\r
-#define CRTC_V_DISPEND 18\r
-#define CRTC_OFFSET 19\r
-#define CRTC_UNDERLINE 20\r
-#define CRTC_V_BLANK 21\r
-#define CRTC_V_ENDBLANK 22\r
-#define CRTC_MODE 23\r
-#define CRTC_LINECOMPARE 24\r
-\r
-\r
-#define GC_INDEX 0x3CE\r
-#define GC_SETRESET 0\r
-#define GC_ENABLESETRESET 1\r
-#define GC_COLORCOMPARE 2\r
-#define GC_DATAROTATE 3\r
-#define GC_READMAP 4\r
-#define GC_MODE 5\r
-#define GC_MISCELLANEOUS 6\r
-#define GC_COLORDONTCARE 7\r
-#define GC_BITMASK 8\r
-\r
-#define ATR_INDEX 0x3c0\r
-#define ATR_MODE 16\r
-#define ATR_OVERSCAN 17\r
-#define ATR_COLORPLANEENABLE 18\r
-#define ATR_PELPAN 19\r
-#define ATR_COLORSELECT 20\r
-\r
-#define STATUS_REGISTER_1 0x3da\r
-\r
-//===========================================================================\r
-\r
-typedef enum {NOcard,MDAcard,CGAcard,EGAcard,MCGAcard,VGAcard,\r
- HGCcard=0x80,HGCPcard,HICcard} cardtype;\r
-\r
-typedef struct\r
-{\r
- int width,\r
- height,\r
- orgx,orgy,\r
- xl,yl,xh,yh,\r
- shifts;\r
-} spritetabletype;\r
-\r
-typedef struct\r
-{\r
- unsigned sourceoffset[MAXSHIFTS];\r
- unsigned planesize[MAXSHIFTS];\r
- unsigned width[MAXSHIFTS];\r
- byte data[];\r
-} spritetype; // the memptr for each sprite points to this\r
-\r
-typedef struct\r
-{\r
- int width,height;\r
-} pictabletype;\r
-\r
-\r
-typedef struct\r
-{\r
- int height;\r
- int location[256];\r
- char width[256];\r
-} fontstruct;\r
-\r
-\r
-typedef enum {CGAgr,EGAgr,VGAgr} grtype;\r
-\r
-//===========================================================================\r
-\r
-extern cardtype videocard; // set by VW_Startup\r
-extern grtype grmode; // CGAgr, EGAgr, VGAgr\r
-\r
-extern unsigned bufferofs; // hidden port to draw to before displaying\r
-extern unsigned displayofs; // origin of port on visable screen\r
-extern unsigned panx,pany; // panning adjustments inside port in pixels\r
-extern unsigned pansx,pansy;\r
-extern unsigned panadjust; // panx/pany adjusted by screen resolution\r
-\r
-extern unsigned screenseg; // normally 0xa000 or buffer segment\r
-\r
-extern unsigned linewidth;\r
-extern unsigned ylookup[VIRTUALHEIGHT];\r
-\r
-extern boolean screenfaded;\r
-extern char colors[7][17]; // pallets for fades\r
-\r
-extern pictabletype _seg *pictable;\r
-extern pictabletype _seg *picmtable;\r
-extern spritetabletype _seg *spritetable;\r
-\r
-extern unsigned fontnumber; // 0 based font number for drawing\r
-extern int px,py;\r
-extern byte pdrawmode,fontcolor;\r
-\r
-extern int bordercolor;\r
-extern boolean nopan;\r
-\r
-//\r
-// asm globals\r
-//\r
-\r
-extern unsigned *shifttabletable[8];\r
-extern unsigned bufferwidth,bufferheight,screenspot; // used by font drawing stuff\r
-\r
-\r
-\r
-//===========================================================================\r
-\r
-\r
-void VW_Startup (void);\r
-void VW_Shutdown (void);\r
-\r
-cardtype VW_VideoID (void);\r
-\r
-//\r
-// EGA hardware routines\r
-//\r
-\r
-#define EGAWRITEMODE(x) asm{cli;mov dx,GC_INDEX;mov ax,GC_MODE+256*x;out dx,ax;sti;}\r
-#define EGABITMASK(x) asm{cli;mov dx,GC_INDEX;mov ax,GC_BITMASK+256*x;out dx,ax;sti;}\r
-#define EGAMAPMASK(x) asm{cli;mov dx,SC_INDEX;mov ax,SC_MAPMASK+x*256;out dx,ax;sti;}\r
-#define EGAREADMAP(x) asm{cli;mov dx,GC_INDEX;mov ax,GC_READMAP+x*256;out dx,ax;sti;}\r
-\r
-void VW_SetLineWidth(int width);\r
-void VW_SetSplitScreen(int width);\r
-void VW_SetScreen (unsigned CRTC, unsigned pelpan);\r
-\r
-void VW_SetScreenMode (int grmode);\r
-void VW_ClearVideo (int color);\r
-void VW_WaitVBL (int number);\r
-\r
-void VW_ColorBorder (int color);\r
-void VW_SetPalette(byte *palette);\r
-void VW_SetDefaultColors(void);\r
-void VW_FadeOut(void);\r
-void VW_FadeIn(void);\r
-void VW_FadeUp(void);\r
-void VW_FadeDown(void);\r
-\r
-void VW_SetAtrReg (int reg, int value);\r
-\r
-//\r
-// block primitives\r
-//\r
-\r
-void VW_MaskBlock(memptr segm,unsigned ofs,unsigned dest,\r
- unsigned wide,unsigned height,unsigned planesize);\r
-void VW_InverseMask(memptr segm,unsigned ofs,unsigned dest,\r
- unsigned wide,unsigned height);\r
-void VW_MemToScreen(memptr source,unsigned dest,unsigned width,unsigned height);\r
-void VW_ScreenToMem(unsigned source,memptr dest,unsigned width,unsigned height);\r
-void VW_ScreenToScreen(unsigned source,unsigned dest,unsigned width,unsigned height);\r
-\r
-\r
-//\r
-// block addressable routines\r
-//\r
-\r
-void VW_DrawTile8(unsigned x, unsigned y, unsigned tile);\r
-\r
-#if GRMODE == EGAGR\r
-\r
-#define VW_DrawTile8M(x,y,t) \\r
- VW_MaskBlock(grsegs[STARTTILE8M],(t)*40,bufferofs+ylookup[y]+(x),1,8,8)\r
-#define VW_DrawTile16(x,y,t) \\r
- VW_MemToScreen(grsegs[STARTTILE16+t],bufferofs+ylookup[y]+(x),2,16)\r
-#define VW_DrawTile16M(x,y,t) \\r
- VW_MaskBlock(grsegs[STARTTILE16M],(t)*160,bufferofs+ylookup[y]+(x),2,16,32)\r
-\r
-#endif\r
-\r
-#if GRMODE == CGAGR\r
-\r
-#define VW_DrawTile8M(x,y,t) \\r
- VW_MaskBlock(grsegs[STARTTILE8M],(t)*32,bufferofs+ylookup[y]+(x),2,8,16)\r
-#define VW_DrawTile16(x,y,t) \\r
- VW_MemToScreen(grsegs[STARTTILE16+t],bufferofs+ylookup[y]+(x),4,16)\r
-#define VW_DrawTile16M(x,y,t) \\r
- VW_MaskBlock(grsegs[STARTTILE16M],(t)*128,bufferofs+ylookup[y]+(x),4,16,64)\r
-\r
-#endif\r
-\r
-void VW_DrawPic(unsigned x, unsigned y, unsigned chunknum);\r
-void VW_DrawMPic(unsigned x, unsigned y, unsigned chunknum);\r
-void VW_ClipDrawMPic(unsigned x, int y, unsigned chunknum);\r
-\r
-//\r
-// pixel addressable routines\r
-//\r
-void VW_MeasurePropString (char far *string, word *width, word *height);\r
-void VW_MeasureMPropString (char far *string, word *width, word *height);\r
-\r
-void VW_DrawPropString (char far *string);\r
-void VW_DrawMPropString (char far *string);\r
-void VW_DrawSprite(int x, int y, unsigned sprite);\r
-void VW_Plot(unsigned x, unsigned y, unsigned color);\r
-void VW_Hlin(unsigned xl, unsigned xh, unsigned y, unsigned color);\r
-void VW_Vlin(unsigned yl, unsigned yh, unsigned x, unsigned color);\r
-void VW_Bar (unsigned x, unsigned y, unsigned width, unsigned height,\r
- unsigned color);\r
-\r
-//===========================================================================\r
-\r
-//\r
-// Double buffer management routines\r
-//\r
-\r
-void VW_InitDoubleBuffer (void);\r
-void VW_FixRefreshBuffer (void);\r
-int VW_MarkUpdateBlock (int x1, int y1, int x2, int y2);\r
-void VW_UpdateScreen (void);\r
-void VW_CGAFullUpdate (void);\r
-\r
-//\r
-// cursor\r
-//\r
-\r
-void VW_ShowCursor (void);\r
-void VW_HideCursor (void);\r
-void VW_MoveCursor (int x, int y);\r
-void VW_SetCursor (int spritenum);\r
-void VW_FreeCursor (void);\r
-\r
-//\r
-// mode independant routines\r
-// coordinates in pixels, rounded to best screen res\r
-// regions marked in double buffer\r
-//\r
-\r
-void VWB_DrawTile8 (int x, int y, int tile);\r
-void VWB_DrawTile8M (int x, int y, int tile);\r
-void VWB_DrawTile16 (int x, int y, int tile);\r
-void VWB_DrawTile16M (int x, int y, int tile);\r
-void VWB_DrawPic (int x, int y, int chunknum);\r
-void VWB_DrawMPic(int x, int y, int chunknum);\r
-void VWB_Bar (int x, int y, int width, int height, int color);\r
-\r
-void VWB_DrawPropString (char far *string);\r
-void VWB_DrawMPropString (char far *string);\r
-void VWB_DrawSprite (int x, int y, int chunknum);\r
-void VWB_Plot (int x, int y, int color);\r
-void VWB_Hlin (int x1, int x2, int y, int color);\r
-void VWB_Vlin (int y1, int y2, int x, int color);\r
-\r
-//===========================================================================\r
+++ /dev/null
-; Catacomb 3-D Source Code\r
-; Copyright (C) 1993-2014 Flat Rock Software\r
-;\r
-; This program is free software; you can redistribute it and/or modify\r
-; it under the terms of the GNU General Public License as published by\r
-; the Free Software Foundation; either version 2 of the License, or\r
-; (at your option) any later version.\r
-;\r
-; This program is distributed in the hope that it will be useful,\r
-; but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-; GNU General Public License for more details.\r
-;\r
-; You should have received a copy of the GNU General Public License along\r
-; with this program; if not, write to the Free Software Foundation, Inc.,\r
-; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
-\r
-; ID_VW_A.ASM\r
-\r
-IDEAL\r
-MODEL MEDIUM,C\r
-\r
-INCLUDE "ID_ASM.EQU"\r
-\r
-WAITFORVBL = 1 ; setting to 0 causes setscreen and waitvbl\r
- ; to skip waiting for VBL (for timing things)\r
-\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-EXTRN screenseg :WORD\r
-EXTRN drawofs :WORD\r
-EXTRN bufferofs :WORD\r
-EXTRN displayofs :WORD\r
-EXTRN drawofs :WORD\r
-EXTRN panadjust :WORD\r
-EXTRN ylookup :WORD\r
-EXTRN linewidth :WORD\r
-EXTRN grsegs :WORD\r
-EXTRN updateptr :WORD\r
-EXTRN blockstarts :WORD ;offsets from drawofs for each update block\r
-EXTRN fontspace :WORD\r
-EXTRN fontnumber :WORD\r
-\r
-\r
-planemask db ?\r
-planenum db ?\r
-screendest dw ?\r
-linedelta dw ?\r
-\r
-LABEL shiftdata0 WORD\r
- dw 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13\r
- dw 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27\r
- dw 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41\r
- dw 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55\r
- dw 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69\r
- dw 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83\r
- dw 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97\r
- dw 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111\r
- dw 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125\r
- dw 126, 127, 128, 129, 130, 131, 132, 133, 134, 135, 136, 137, 138, 139\r
- dw 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 150, 151, 152, 153\r
- dw 154, 155, 156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167\r
- dw 168, 169, 170, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181\r
- dw 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 193, 194, 195\r
- dw 196, 197, 198, 199, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209\r
- dw 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223\r
- dw 224, 225, 226, 227, 228, 229, 230, 231, 232, 233, 234, 235, 236, 237\r
- dw 238, 239, 240, 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251\r
- dw 252, 253, 254, 255\r
-\r
-LABEL shiftdata1 WORD\r
- dw 0,32768, 1,32769, 2,32770, 3,32771, 4,32772, 5,32773, 6,32774\r
- dw 7,32775, 8,32776, 9,32777, 10,32778, 11,32779, 12,32780, 13,32781\r
- dw 14,32782, 15,32783, 16,32784, 17,32785, 18,32786, 19,32787, 20,32788\r
- dw 21,32789, 22,32790, 23,32791, 24,32792, 25,32793, 26,32794, 27,32795\r
- dw 28,32796, 29,32797, 30,32798, 31,32799, 32,32800, 33,32801, 34,32802\r
- dw 35,32803, 36,32804, 37,32805, 38,32806, 39,32807, 40,32808, 41,32809\r
- dw 42,32810, 43,32811, 44,32812, 45,32813, 46,32814, 47,32815, 48,32816\r
- dw 49,32817, 50,32818, 51,32819, 52,32820, 53,32821, 54,32822, 55,32823\r
- dw 56,32824, 57,32825, 58,32826, 59,32827, 60,32828, 61,32829, 62,32830\r
- dw 63,32831, 64,32832, 65,32833, 66,32834, 67,32835, 68,32836, 69,32837\r
- dw 70,32838, 71,32839, 72,32840, 73,32841, 74,32842, 75,32843, 76,32844\r
- dw 77,32845, 78,32846, 79,32847, 80,32848, 81,32849, 82,32850, 83,32851\r
- dw 84,32852, 85,32853, 86,32854, 87,32855, 88,32856, 89,32857, 90,32858\r
- dw 91,32859, 92,32860, 93,32861, 94,32862, 95,32863, 96,32864, 97,32865\r
- dw 98,32866, 99,32867, 100,32868, 101,32869, 102,32870, 103,32871, 104,32872\r
- dw 105,32873, 106,32874, 107,32875, 108,32876, 109,32877, 110,32878, 111,32879\r
- dw 112,32880, 113,32881, 114,32882, 115,32883, 116,32884, 117,32885, 118,32886\r
- dw 119,32887, 120,32888, 121,32889, 122,32890, 123,32891, 124,32892, 125,32893\r
- dw 126,32894, 127,32895\r
-\r
-LABEL shiftdata2 WORD\r
- dw 0,16384,32768,49152, 1,16385,32769,49153, 2,16386,32770,49154, 3,16387\r
- dw 32771,49155, 4,16388,32772,49156, 5,16389,32773,49157, 6,16390,32774,49158\r
- dw 7,16391,32775,49159, 8,16392,32776,49160, 9,16393,32777,49161, 10,16394\r
- dw 32778,49162, 11,16395,32779,49163, 12,16396,32780,49164, 13,16397,32781,49165\r
- dw 14,16398,32782,49166, 15,16399,32783,49167, 16,16400,32784,49168, 17,16401\r
- dw 32785,49169, 18,16402,32786,49170, 19,16403,32787,49171, 20,16404,32788,49172\r
- dw 21,16405,32789,49173, 22,16406,32790,49174, 23,16407,32791,49175, 24,16408\r
- dw 32792,49176, 25,16409,32793,49177, 26,16410,32794,49178, 27,16411,32795,49179\r
- dw 28,16412,32796,49180, 29,16413,32797,49181, 30,16414,32798,49182, 31,16415\r
- dw 32799,49183, 32,16416,32800,49184, 33,16417,32801,49185, 34,16418,32802,49186\r
- dw 35,16419,32803,49187, 36,16420,32804,49188, 37,16421,32805,49189, 38,16422\r
- dw 32806,49190, 39,16423,32807,49191, 40,16424,32808,49192, 41,16425,32809,49193\r
- dw 42,16426,32810,49194, 43,16427,32811,49195, 44,16428,32812,49196, 45,16429\r
- dw 32813,49197, 46,16430,32814,49198, 47,16431,32815,49199, 48,16432,32816,49200\r
- dw 49,16433,32817,49201, 50,16434,32818,49202, 51,16435,32819,49203, 52,16436\r
- dw 32820,49204, 53,16437,32821,49205, 54,16438,32822,49206, 55,16439,32823,49207\r
- dw 56,16440,32824,49208, 57,16441,32825,49209, 58,16442,32826,49210, 59,16443\r
- dw 32827,49211, 60,16444,32828,49212, 61,16445,32829,49213, 62,16446,32830,49214\r
- dw 63,16447,32831,49215\r
-\r
-LABEL shiftdata3 WORD\r
- dw 0, 8192,16384,24576,32768,40960,49152,57344, 1, 8193,16385,24577,32769,40961\r
- dw 49153,57345, 2, 8194,16386,24578,32770,40962,49154,57346, 3, 8195,16387,24579\r
- dw 32771,40963,49155,57347, 4, 8196,16388,24580,32772,40964,49156,57348, 5, 8197\r
- dw 16389,24581,32773,40965,49157,57349, 6, 8198,16390,24582,32774,40966,49158,57350\r
- dw 7, 8199,16391,24583,32775,40967,49159,57351, 8, 8200,16392,24584,32776,40968\r
- dw 49160,57352, 9, 8201,16393,24585,32777,40969,49161,57353, 10, 8202,16394,24586\r
- dw 32778,40970,49162,57354, 11, 8203,16395,24587,32779,40971,49163,57355, 12, 8204\r
- dw 16396,24588,32780,40972,49164,57356, 13, 8205,16397,24589,32781,40973,49165,57357\r
- dw 14, 8206,16398,24590,32782,40974,49166,57358, 15, 8207,16399,24591,32783,40975\r
- dw 49167,57359, 16, 8208,16400,24592,32784,40976,49168,57360, 17, 8209,16401,24593\r
- dw 32785,40977,49169,57361, 18, 8210,16402,24594,32786,40978,49170,57362, 19, 8211\r
- dw 16403,24595,32787,40979,49171,57363, 20, 8212,16404,24596,32788,40980,49172,57364\r
- dw 21, 8213,16405,24597,32789,40981,49173,57365, 22, 8214,16406,24598,32790,40982\r
- dw 49174,57366, 23, 8215,16407,24599,32791,40983,49175,57367, 24, 8216,16408,24600\r
- dw 32792,40984,49176,57368, 25, 8217,16409,24601,32793,40985,49177,57369, 26, 8218\r
- dw 16410,24602,32794,40986,49178,57370, 27, 8219,16411,24603,32795,40987,49179,57371\r
- dw 28, 8220,16412,24604,32796,40988,49180,57372, 29, 8221,16413,24605,32797,40989\r
- dw 49181,57373, 30, 8222,16414,24606,32798,40990,49182,57374, 31, 8223,16415,24607\r
- dw 32799,40991,49183,57375\r
-\r
-LABEL shiftdata4 WORD\r
- dw 0, 4096, 8192,12288,16384,20480,24576,28672,32768,36864,40960,45056,49152,53248\r
- dw 57344,61440, 1, 4097, 8193,12289,16385,20481,24577,28673,32769,36865,40961,45057\r
- dw 49153,53249,57345,61441, 2, 4098, 8194,12290,16386,20482,24578,28674,32770,36866\r
- dw 40962,45058,49154,53250,57346,61442, 3, 4099, 8195,12291,16387,20483,24579,28675\r
- dw 32771,36867,40963,45059,49155,53251,57347,61443, 4, 4100, 8196,12292,16388,20484\r
- dw 24580,28676,32772,36868,40964,45060,49156,53252,57348,61444, 5, 4101, 8197,12293\r
- dw 16389,20485,24581,28677,32773,36869,40965,45061,49157,53253,57349,61445, 6, 4102\r
- dw 8198,12294,16390,20486,24582,28678,32774,36870,40966,45062,49158,53254,57350,61446\r
- dw 7, 4103, 8199,12295,16391,20487,24583,28679,32775,36871,40967,45063,49159,53255\r
- dw 57351,61447, 8, 4104, 8200,12296,16392,20488,24584,28680,32776,36872,40968,45064\r
- dw 49160,53256,57352,61448, 9, 4105, 8201,12297,16393,20489,24585,28681,32777,36873\r
- dw 40969,45065,49161,53257,57353,61449, 10, 4106, 8202,12298,16394,20490,24586,28682\r
- dw 32778,36874,40970,45066,49162,53258,57354,61450, 11, 4107, 8203,12299,16395,20491\r
- dw 24587,28683,32779,36875,40971,45067,49163,53259,57355,61451, 12, 4108, 8204,12300\r
- dw 16396,20492,24588,28684,32780,36876,40972,45068,49164,53260,57356,61452, 13, 4109\r
- dw 8205,12301,16397,20493,24589,28685,32781,36877,40973,45069,49165,53261,57357,61453\r
- dw 14, 4110, 8206,12302,16398,20494,24590,28686,32782,36878,40974,45070,49166,53262\r
- dw 57358,61454, 15, 4111, 8207,12303,16399,20495,24591,28687,32783,36879,40975,45071\r
- dw 49167,53263,57359,61455\r
-\r
-LABEL shiftdata5 WORD\r
- dw 0, 2048, 4096, 6144, 8192,10240,12288,14336,16384,18432,20480,22528,24576,26624\r
- dw 28672,30720,32768,34816,36864,38912,40960,43008,45056,47104,49152,51200,53248,55296\r
- dw 57344,59392,61440,63488, 1, 2049, 4097, 6145, 8193,10241,12289,14337,16385,18433\r
- dw 20481,22529,24577,26625,28673,30721,32769,34817,36865,38913,40961,43009,45057,47105\r
- dw 49153,51201,53249,55297,57345,59393,61441,63489, 2, 2050, 4098, 6146, 8194,10242\r
- dw 12290,14338,16386,18434,20482,22530,24578,26626,28674,30722,32770,34818,36866,38914\r
- dw 40962,43010,45058,47106,49154,51202,53250,55298,57346,59394,61442,63490, 3, 2051\r
- dw 4099, 6147, 8195,10243,12291,14339,16387,18435,20483,22531,24579,26627,28675,30723\r
- dw 32771,34819,36867,38915,40963,43011,45059,47107,49155,51203,53251,55299,57347,59395\r
- dw 61443,63491, 4, 2052, 4100, 6148, 8196,10244,12292,14340,16388,18436,20484,22532\r
- dw 24580,26628,28676,30724,32772,34820,36868,38916,40964,43012,45060,47108,49156,51204\r
- dw 53252,55300,57348,59396,61444,63492, 5, 2053, 4101, 6149, 8197,10245,12293,14341\r
- dw 16389,18437,20485,22533,24581,26629,28677,30725,32773,34821,36869,38917,40965,43013\r
- dw 45061,47109,49157,51205,53253,55301,57349,59397,61445,63493, 6, 2054, 4102, 6150\r
- dw 8198,10246,12294,14342,16390,18438,20486,22534,24582,26630,28678,30726,32774,34822\r
- dw 36870,38918,40966,43014,45062,47110,49158,51206,53254,55302,57350,59398,61446,63494\r
- dw 7, 2055, 4103, 6151, 8199,10247,12295,14343,16391,18439,20487,22535,24583,26631\r
- dw 28679,30727,32775,34823,36871,38919,40967,43015,45063,47111,49159,51207,53255,55303\r
- dw 57351,59399,61447,63495\r
-\r
-LABEL shiftdata6 WORD\r
- dw 0, 1024, 2048, 3072, 4096, 5120, 6144, 7168, 8192, 9216,10240,11264,12288,13312\r
- dw 14336,15360,16384,17408,18432,19456,20480,21504,22528,23552,24576,25600,26624,27648\r
- dw 28672,29696,30720,31744,32768,33792,34816,35840,36864,37888,38912,39936,40960,41984\r
- dw 43008,44032,45056,46080,47104,48128,49152,50176,51200,52224,53248,54272,55296,56320\r
- dw 57344,58368,59392,60416,61440,62464,63488,64512, 1, 1025, 2049, 3073, 4097, 5121\r
- dw 6145, 7169, 8193, 9217,10241,11265,12289,13313,14337,15361,16385,17409,18433,19457\r
- dw 20481,21505,22529,23553,24577,25601,26625,27649,28673,29697,30721,31745,32769,33793\r
- dw 34817,35841,36865,37889,38913,39937,40961,41985,43009,44033,45057,46081,47105,48129\r
- dw 49153,50177,51201,52225,53249,54273,55297,56321,57345,58369,59393,60417,61441,62465\r
- dw 63489,64513, 2, 1026, 2050, 3074, 4098, 5122, 6146, 7170, 8194, 9218,10242,11266\r
- dw 12290,13314,14338,15362,16386,17410,18434,19458,20482,21506,22530,23554,24578,25602\r
- dw 26626,27650,28674,29698,30722,31746,32770,33794,34818,35842,36866,37890,38914,39938\r
- dw 40962,41986,43010,44034,45058,46082,47106,48130,49154,50178,51202,52226,53250,54274\r
- dw 55298,56322,57346,58370,59394,60418,61442,62466,63490,64514, 3, 1027, 2051, 3075\r
- dw 4099, 5123, 6147, 7171, 8195, 9219,10243,11267,12291,13315,14339,15363,16387,17411\r
- dw 18435,19459,20483,21507,22531,23555,24579,25603,26627,27651,28675,29699,30723,31747\r
- dw 32771,33795,34819,35843,36867,37891,38915,39939,40963,41987,43011,44035,45059,46083\r
- dw 47107,48131,49155,50179,51203,52227,53251,54275,55299,56323,57347,58371,59395,60419\r
- dw 61443,62467,63491,64515\r
-\r
-LABEL shiftdata7 WORD\r
- dw 0, 512, 1024, 1536, 2048, 2560, 3072, 3584, 4096, 4608, 5120, 5632, 6144, 6656\r
- dw 7168, 7680, 8192, 8704, 9216, 9728,10240,10752,11264,11776,12288,12800,13312,13824\r
- dw 14336,14848,15360,15872,16384,16896,17408,17920,18432,18944,19456,19968,20480,20992\r
- dw 21504,22016,22528,23040,23552,24064,24576,25088,25600,26112,26624,27136,27648,28160\r
- dw 28672,29184,29696,30208,30720,31232,31744,32256,32768,33280,33792,34304,34816,35328\r
- dw 35840,36352,36864,37376,37888,38400,38912,39424,39936,40448,40960,41472,41984,42496\r
- dw 43008,43520,44032,44544,45056,45568,46080,46592,47104,47616,48128,48640,49152,49664\r
- dw 50176,50688,51200,51712,52224,52736,53248,53760,54272,54784,55296,55808,56320,56832\r
- dw 57344,57856,58368,58880,59392,59904,60416,60928,61440,61952,62464,62976,63488,64000\r
- dw 64512,65024, 1, 513, 1025, 1537, 2049, 2561, 3073, 3585, 4097, 4609, 5121, 5633\r
- dw 6145, 6657, 7169, 7681, 8193, 8705, 9217, 9729,10241,10753,11265,11777,12289,12801\r
- dw 13313,13825,14337,14849,15361,15873,16385,16897,17409,17921,18433,18945,19457,19969\r
- dw 20481,20993,21505,22017,22529,23041,23553,24065,24577,25089,25601,26113,26625,27137\r
- dw 27649,28161,28673,29185,29697,30209,30721,31233,31745,32257,32769,33281,33793,34305\r
- dw 34817,35329,35841,36353,36865,37377,37889,38401,38913,39425,39937,40449,40961,41473\r
- dw 41985,42497,43009,43521,44033,44545,45057,45569,46081,46593,47105,47617,48129,48641\r
- dw 49153,49665,50177,50689,51201,51713,52225,52737,53249,53761,54273,54785,55297,55809\r
- dw 56321,56833,57345,57857,58369,58881,59393,59905,60417,60929,61441,61953,62465,62977\r
- dw 63489,64001,64513,65025\r
-\r
-shifttabletable dw shiftdata0,shiftdata1,shiftdata2,shiftdata3\r
- dw shiftdata4,shiftdata5,shiftdata6,shiftdata7\r
-\r
-PUBLIC shifttabletable\r
-\r
-\r
-;============================================================================\r
-\r
-CODESEG\r
-\r
-IFE GRMODE-CGAGR\r
-INCLUDE "ID_VW_AC.ASM"\r
-ENDIF\r
-\r
-IFE GRMODE-EGAGR\r
-INCLUDE "ID_VW_AE.ASM"\r
-ENDIF\r
-\r
-IFE GRMODE-VGAGR\r
-INCLUDE "ID_VW_AV.ASM"\r
-ENDIF\r
-\r
-;============================================================================\r
-;\r
-; MISC VIDEO ROUTINES\r
-;\r
-;============================================================================\r
-\r
-;========\r
-;\r
-; VW_WaitVBL (int number)\r
-;\r
-;========\r
-\r
-PROC VW_WaitVBL number:WORD\r
-PUBLIC VW_WaitVBL\r
-\r
-if WAITFORVBL ; skip wait if profiling\r
-\r
- mov dx,STATUS_REGISTER_1\r
-\r
- mov cx,[number]\r
-\r
-waitvbl1:\r
- in al,dx\r
- test al,00001000b ;look for vbl\r
- jnz waitvbl1\r
-\r
-waitvbl2:\r
- in al,dx\r
- test al,00001000b ;look for vbl\r
- jz waitvbl2\r
-\r
- loop waitvbl1\r
-\r
-endif\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;===========================================================================\r
-\r
-\r
- MASM\r
-;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ\r
-;\r
-; Name: VW_VideoID\r
-;\r
-; Function: Detects the presence of various video subsystems\r
-;\r
-; int VideoID;\r
-;\r
-; Subsystem ID values:\r
-; 0 = (none)\r
-; 1 = MDA\r
-; 2 = CGA\r
-; 3 = EGA\r
-; 4 = MCGA\r
-; 5 = VGA\r
-; 80h = HGC\r
-; 81h = HGC+\r
-; 82h = Hercules InColor\r
-;\r
-;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ\r
-\r
-;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ\r
-;\r
-; Equates\r
-;\r
-;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ\r
-VIDstruct STRUC ; corresponds to C data structure\r
-\r
-Video0Type DB ? ; first subsystem type\r
-Display0Type DB ? ; display attached to first subsystem\r
-\r
-Video1Type DB ? ; second subsystem type\r
-Display1Type DB ? ; display attached to second subsystem\r
-\r
-VIDstruct ENDS\r
-\r
-\r
-Device0 EQU word ptr Video0Type[di]\r
-Device1 EQU word ptr Video1Type[di]\r
-\r
-\r
-MDA EQU 1 ; subsystem types\r
-CGA EQU 2\r
-EGA EQU 3\r
-MCGA EQU 4\r
-VGA EQU 5\r
-HGC EQU 80h\r
-HGCPlus EQU 81h\r
-InColor EQU 82h\r
-\r
-MDADisplay EQU 1 ; display types\r
-CGADisplay EQU 2\r
-EGAColorDisplay EQU 3\r
-PS2MonoDisplay EQU 4\r
-PS2ColorDisplay EQU 5\r
-\r
-TRUE EQU 1\r
-FALSE EQU 0\r
-\r
-;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ\r
-;\r
-; Program\r
-;\r
-;ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ\r
-\r
-Results VIDstruct <> ;results go here!\r
-\r
-EGADisplays DB CGADisplay ; 0000b, 0001b (EGA switch values)\r
- DB EGAColorDisplay ; 0010b, 0011b\r
- DB MDADisplay ; 0100b, 0101b\r
- DB CGADisplay ; 0110b, 0111b\r
- DB EGAColorDisplay ; 1000b, 1001b\r
- DB MDADisplay ; 1010b, 1011b\r
-\r
-DCCtable DB 0,0 ; translate table for INT 10h func 1Ah\r
- DB MDA,MDADisplay\r
- DB CGA,CGADisplay\r
- DB 0,0\r
- DB EGA,EGAColorDisplay\r
- DB EGA,MDADisplay\r
- DB 0,0\r
- DB VGA,PS2MonoDisplay\r
- DB VGA,PS2ColorDisplay\r
- DB 0,0\r
- DB MCGA,EGAColorDisplay\r
- DB MCGA,PS2MonoDisplay\r
- DB MCGA,PS2ColorDisplay\r
-\r
-TestSequence DB TRUE ; this list of flags and addresses\r
- DW FindPS2 ; determines the order in which this\r
- ; program looks for the various\r
-EGAflag DB ? ; subsystems\r
- DW FindEGA\r
-\r
-CGAflag DB ?\r
- DW FindCGA\r
-\r
-Monoflag DB ?\r
- DW FindMono\r
-\r
-NumberOfTests EQU ($-TestSequence)/3\r
-\r
-\r
-PUBLIC VW_VideoID\r
-VW_VideoID PROC\r
-\r
- push bp ; preserve caller registers\r
- mov bp,sp\r
- push ds\r
- push si\r
- push di\r
-\r
- push cs\r
- pop ds\r
- ASSUME DS:@Code\r
-\r
-; initialize the data structure that will contain the results\r
-\r
- lea di,Results ; DS:DI -> start of data structure\r
-\r
- mov Device0,0 ; zero these variables\r
- mov Device1,0\r
-\r
-; look for the various subsystems using the subroutines whose addresses are\r
-; tabulated in TestSequence; each subroutine sets flags in TestSequence\r
-; to indicate whether subsequent subroutines need to be called\r
-\r
- mov byte ptr CGAflag,TRUE\r
- mov byte ptr EGAflag,TRUE\r
- mov byte ptr Monoflag,TRUE\r
-\r
- mov cx,NumberOfTests\r
- mov si,offset TestSequence\r
-\r
-@@L01: lodsb ; AL := flag\r
- test al,al\r
- lodsw ; AX := subroutine address\r
- jz @@L02 ; skip subroutine if flag is false\r
-\r
- push si\r
- push cx\r
- call ax ; call subroutine to detect subsystem\r
- pop cx\r
- pop si\r
-\r
-@@L02: loop @@L01\r
-\r
-; determine which subsystem is active\r
-\r
- call FindActive\r
-\r
- mov al,Results.Video0Type\r
- mov ah,0 ; was: Results.Display0Type\r
-\r
- pop di ; restore caller registers and return\r
- pop si\r
- pop ds\r
- mov sp,bp\r
- pop bp\r
- ret\r
-\r
-VW_VideoID ENDP\r
-\r
-\r
-;\r
-; FindPS2\r
-;\r
-; This subroutine uses INT 10H function 1Ah to determine the video BIOS\r
-; Display Combination Code (DCC) for each video subsystem present.\r
-;\r
-\r
-FindPS2 PROC near\r
-\r
- mov ax,1A00h\r
- int 10h ; call video BIOS for info\r
-\r
- cmp al,1Ah\r
- jne @@L13 ; exit if function not supported (i.e.,\r
- ; no MCGA or VGA in system)\r
-\r
-; convert BIOS DCCs into specific subsystems & displays\r
-\r
- mov cx,bx\r
- xor bh,bh ; BX := DCC for active subsystem\r
-\r
- or ch,ch\r
- jz @@L11 ; jump if only one subsystem present\r
-\r
- mov bl,ch ; BX := inactive DCC\r
- add bx,bx\r
- mov ax,[bx+offset DCCtable]\r
-\r
- mov Device1,ax\r
-\r
- mov bl,cl\r
- xor bh,bh ; BX := active DCC\r
-\r
-@@L11: add bx,bx\r
- mov ax,[bx+offset DCCtable]\r
-\r
- mov Device0,ax\r
-\r
-; reset flags for subsystems that have been ruled out\r
-\r
- mov byte ptr CGAflag,FALSE\r
- mov byte ptr EGAflag,FALSE\r
- mov byte ptr Monoflag,FALSE\r
-\r
- lea bx,Video0Type[di] ; if the BIOS reported an MDA ...\r
- cmp byte ptr [bx],MDA\r
- je @@L12\r
-\r
- lea bx,Video1Type[di]\r
- cmp byte ptr [bx],MDA\r
- jne @@L13\r
-\r
-@@L12: mov word ptr [bx],0 ; ... Hercules can't be ruled out\r
- mov byte ptr Monoflag,TRUE\r
-\r
-@@L13: ret\r
-\r
-FindPS2 ENDP\r
-\r
-\r
-;\r
-; FindEGA\r
-;\r
-; Look for an EGA. This is done by making a call to an EGA BIOS function\r
-; which doesn't exist in the default (MDA, CGA) BIOS.\r
-\r
-FindEGA PROC near ; Caller: AH = flags\r
- ; Returns: AH = flags\r
- ; Video0Type and\r
- ; Display0Type updated\r
-\r
- mov bl,10h ; BL := 10h (return EGA info)\r
- mov ah,12h ; AH := INT 10H function number\r
- int 10h ; call EGA BIOS for info\r
- ; if EGA BIOS is present,\r
- ; BL <> 10H\r
- ; CL = switch setting\r
- cmp bl,10h\r
- je @@L22 ; jump if EGA BIOS not present\r
-\r
- mov al,cl\r
- shr al,1 ; AL := switches/2\r
- mov bx,offset EGADisplays\r
- xlat ; determine display type from switches\r
- mov ah,al ; AH := display type\r
- mov al,EGA ; AL := subystem type\r
- call FoundDevice\r
-\r
- cmp ah,MDADisplay\r
- je @@L21 ; jump if EGA has a monochrome display\r
-\r
- mov CGAflag,FALSE ; no CGA if EGA has color display\r
- jmp short @@L22\r
-\r
-@@L21: mov Monoflag,FALSE ; EGA has a mono display, so MDA and\r
- ; Hercules are ruled out\r
-@@L22: ret\r
-\r
-FindEGA ENDP\r
-\r
-;\r
-; FindCGA\r
-;\r
-; This is done by looking for the CGA's 6845 CRTC at I/O port 3D4H.\r
-;\r
-FindCGA PROC near ; Returns: VIDstruct updated\r
-\r
- mov dx,3D4h ; DX := CRTC address port\r
- call Find6845\r
- jc @@L31 ; jump if not present\r
-\r
- mov al,CGA\r
- mov ah,CGADisplay\r
- call FoundDevice\r
-\r
-@@L31: ret\r
-\r
-FindCGA ENDP\r
-\r
-;\r
-; FindMono\r
-;\r
-; This is done by looking for the MDA's 6845 CRTC at I/O port 3B4H. If\r
-; a 6845 is found, the subroutine distinguishes between an MDA\r
-; and a Hercules adapter by monitoring bit 7 of the CRT Status byte.\r
-; This bit changes on Hercules adapters but does not change on an MDA.\r
-;\r
-; The various Hercules adapters are identified by bits 4 through 6 of\r
-; the CRT Status value:\r
-;\r
-; 000b = HGC\r
-; 001b = HGC+\r
-; 101b = InColor card\r
-;\r
-\r
-FindMono PROC near ; Returns: VIDstruct updated\r
-\r
- mov dx,3B4h ; DX := CRTC address port\r
- call Find6845\r
- jc @@L44 ; jump if not present\r
-\r
- mov dl,0BAh ; DX := 3BAh (status port)\r
- in al,dx\r
- and al,80h\r
- mov ah,al ; AH := bit 7 (vertical sync on HGC)\r
-\r
- mov cx,8000h ; do this 32768 times\r
-@@L41: in al,dx\r
- and al,80h ; isolate bit 7\r
- cmp ah,al\r
- loope @@L41 ; wait for bit 7 to change\r
- jne @@L42 ; if bit 7 changed, it's a Hercules\r
-\r
- mov al,MDA ; if bit 7 didn't change, it's an MDA\r
- mov ah,MDADisplay\r
- call FoundDevice\r
- jmp short @@L44\r
-\r
-@@L42: in al,dx\r
- mov dl,al ; DL := value from status port\r
- and dl,01110000b ; mask bits 4 thru 6\r
-\r
- mov ah,MDADisplay ; assume it's a monochrome display\r
-\r
- mov al,HGCPlus ; look for an HGC+\r
- cmp dl,00010000b\r
- je @@L43 ; jump if it's an HGC+\r
-\r
- mov al,HGC ; look for an InColor card or HGC\r
- cmp dl,01010000b\r
- jne @@L43 ; jump if it's not an InColor card\r
-\r
- mov al,InColor ; it's an InColor card\r
- mov ah,EGAColorDisplay\r
-\r
-@@L43: call FoundDevice\r
-\r
-@@L44: ret\r
-\r
-FindMono ENDP\r
-\r
-;\r
-; Find6845\r
-;\r
-; This routine detects the presence of the CRTC on a MDA, CGA or HGC.\r
-; The technique is to write and read register 0Fh of the chip (cursor\r
-; low). If the same value is read as written, assume the chip is\r
-; present at the specified port addr.\r
-;\r
-\r
-Find6845 PROC near ; Caller: DX = port addr\r
- ; Returns: cf set if not present\r
- mov al,0Fh\r
- out dx,al ; select 6845 reg 0Fh (Cursor Low)\r
- inc dx\r
- in al,dx ; AL := current Cursor Low value\r
- mov ah,al ; preserve in AH\r
- mov al,66h ; AL := arbitrary value\r
- out dx,al ; try to write to 6845\r
-\r
- mov cx,100h\r
-@@L51: loop @@L51 ; wait for 6845 to respond\r
-\r
- in al,dx\r
- xchg ah,al ; AH := returned value\r
- ; AL := original value\r
- out dx,al ; restore original value\r
-\r
- cmp ah,66h ; test whether 6845 responded\r
- je @@L52 ; jump if it did (cf is reset)\r
-\r
- stc ; set carry flag if no 6845 present\r
-\r
-@@L52: ret\r
-\r
-Find6845 ENDP\r
-\r
-\r
-;\r
-; FindActive\r
-;\r
-; This subroutine stores the currently active device as Device0. The\r
-; current video mode determines which subsystem is active.\r
-;\r
-\r
-FindActive PROC near\r
-\r
- cmp word ptr Device1,0\r
- je @@L63 ; exit if only one subsystem\r
-\r
- cmp Video0Type[di],4 ; exit if MCGA or VGA present\r
- jge @@L63 ; (INT 10H function 1AH\r
- cmp Video1Type[di],4 ; already did the work)\r
- jge @@L63\r
-\r
- mov ah,0Fh\r
- int 10h ; AL := current BIOS video mode\r
-\r
- and al,7\r
- cmp al,7 ; jump if monochrome\r
- je @@L61 ; (mode 7 or 0Fh)\r
-\r
- cmp Display0Type[di],MDADisplay\r
- jne @@L63 ; exit if Display0 is color\r
- jmp short @@L62\r
-\r
-@@L61: cmp Display0Type[di],MDADisplay\r
- je @@L63 ; exit if Display0 is monochrome\r
-\r
-@@L62: mov ax,Device0 ; make Device0 currently active\r
- xchg ax,Device1\r
- mov Device0,ax\r
-\r
-@@L63: ret\r
-\r
-FindActive ENDP\r
-\r
-\r
-;\r
-; FoundDevice\r
-;\r
-; This routine updates the list of subsystems.\r
-;\r
-\r
-FoundDevice PROC near ; Caller: AH = display #\r
- ; AL = subsystem #\r
- ; Destroys: BX\r
- lea bx,Video0Type[di]\r
- cmp byte ptr [bx],0\r
- je @@L71 ; jump if 1st subsystem\r
-\r
- lea bx,Video1Type[di] ; must be 2nd subsystem\r
-\r
-@@L71: mov [bx],ax ; update list entry\r
- ret\r
-\r
-FoundDevice ENDP\r
-\r
-IDEAL\r
-\r
-\r
-\r
-END\r
+++ /dev/null
-; Reconstructed Commander Keen 4-6 Source Code\r
-; Copyright (C) 2021 K1n9_Duk3\r
-;\r
-; This file is primarily based on:\r
-; Catacomb 3-D Source Code\r
-; Copyright (C) 1993-2014 Flat Rock Software\r
-;\r
-; This program is free software; you can redistribute it and/or modify\r
-; it under the terms of the GNU General Public License as published by\r
-; the Free Software Foundation; either version 2 of the License, or\r
-; (at your option) any later version.\r
-;\r
-; This program is distributed in the hope that it will be useful,\r
-; but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-; GNU General Public License for more details.\r
-;\r
-; You should have received a copy of the GNU General Public License along\r
-; with this program; if not, write to the Free Software Foundation, Inc.,\r
-; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
-\r
-;=================================\r
-;\r
-; CGA view manager routines\r
-;\r
-;=================================\r
-\r
-;============================================================================\r
-;\r
-; All of these routines draw into a floating virtual screen segment in main\r
-; memory. bufferofs points to the origin of the drawing page in screenseg.\r
-; The routines that write out words must take into account buffer wrapping\r
-; and not write a word at 0xffff (which causes an exception on 386s).\r
-;\r
-; The direction flag should be clear\r
-;\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-plotpixels db 0c0h,030h,0ch,03h\r
-colorbyte db 000000b,01010101b,10101010b,11111111b\r
-colorword dw 0,5555h,0aaaah,0ffffh\r
-\r
-CODESEG\r
-\r
-;============================================================================\r
-;\r
-; VW_Plot (int x,y,color)\r
-;\r
-;============================================================================\r
-\r
-\r
-PROC VW_Plot x:WORD, y:WORD, color:WORD\r
-PUBLIC VW_Plot\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov di,[bufferofs]\r
- mov bx,[y]\r
- shl bx,1\r
- add di,[ylookup+bx]\r
- mov bx,[x]\r
- mov ax,bx\r
- shr ax,1\r
- shr ax,1\r
- add di,ax ; di = byte on screen\r
-\r
- and bx,3\r
- mov ah,[plotpixels+bx]\r
- mov bx,[color]\r
- mov cl,[colorbyte+bx]\r
- and cl,ah\r
- not ah\r
-\r
- mov al,[es:di]\r
- and al,ah ; mask off other pixels\r
- or al,cl\r
- stosb\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_Vlin (int yl,yh,x,color)\r
-;\r
-;============================================================================\r
-\r
-PROC VW_Vlin yl:WORD, yh:WORD, x:WORD, color:WORD\r
-PUBLIC VW_Vlin\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov di,[bufferofs]\r
- mov bx,[yl]\r
- shl bx,1\r
- add di,[ylookup+bx]\r
- mov bx,[x]\r
- mov ax,bx\r
- shr ax,1\r
- shr ax,1\r
- add di,ax ; di = byte on screen\r
-\r
- and bx,3\r
- mov ah,[plotpixels+bx]\r
- mov bx,[color]\r
- mov bl,[colorbyte+bx]\r
- and bl,ah\r
- not ah\r
-\r
- mov cx,[yh]\r
- sub cx,[yl]\r
- inc cx ;number of pixels to plot\r
-\r
- mov dx,[linewidth]\r
-\r
-@@plot:\r
- mov al,[es:di]\r
- and al,ah ; mask off other pixels\r
- or al,bl\r
- mov [es:di],al\r
- add di,dx\r
- loop @@plot\r
-\r
- ret\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-\r
-\r
-;===================\r
-;\r
-; VW_DrawTile8\r
-;\r
-; xcoord in bytes (8 pixels), ycoord in pixels\r
-; All Tile8s are in one grseg, so an offset is calculated inside it\r
-;\r
-; DONE\r
-;\r
-;===================\r
-\r
-PROC VW_DrawTile8 xcoord:WORD, ycoord:WORD, tile:WORD\r
-PUBLIC VW_DrawTile8\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov di,[bufferofs]\r
- add di,[xcoord]\r
- mov bx,[ycoord]\r
- shl bx,1\r
- add di,[ylookup+bx]\r
-\r
- mov bx,[linewidth]\r
- sub bx,2\r
-\r
- mov si,[tile]\r
- shl si,1\r
- shl si,1\r
- shl si,1\r
- shl si,1\r
-\r
- mov ds,[grsegs+STARTTILE8*2] ; segment for all tile8s\r
-\r
-;\r
-; start drawing\r
-;\r
-\r
-REPT 7\r
- movsb ;no word moves because of segment wrapping\r
- movsb\r
- add di,bx\r
-ENDM\r
- movsb\r
- movsb\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_MaskBlock\r
-;\r
-; Draws a masked block shape to the screen. bufferofs is NOT accounted for.\r
-; The mask comes first, then the data. Seperate unwound routines are used\r
-; to speed drawing.\r
-;\r
-; Mask blocks will allways be an even width because of the way IGRAB works\r
-;\r
-; DONE\r
-;\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-UNWOUNDMASKS = 18\r
-\r
-\r
-maskroutines dw mask0,mask0,mask2E,mask2O,mask4E,mask4O\r
- dw mask6E,mask6O,mask8E,mask8O,mask10E,mask10O\r
- dw mask12E,mask12O,mask14E,mask14O,mask16E,mask16O\r
- dw mask18E,mask18O\r
-\r
-\r
-routinetouse dw ?\r
-\r
-CODESEG\r
-\r
-PROC VW_MaskBlock segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD, planesize:WORD\r
-PUBLIC VW_MaskBlock\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov di,[wide]\r
- mov dx,[linewidth]\r
- sub dx,di ;dx = delta to start of next line\r
-\r
- mov bx,[planesize] ; si+bx = data location\r
-\r
- cmp di,UNWOUNDMASKS\r
- jbe @@unwoundroutine\r
-\r
-;==============\r
-;\r
-; General purpose masked block drawing. This could be optimised into\r
-; four routines to use words, but few play loop sprites should be this big!\r
-;\r
-;==============\r
-\r
- mov [ss:linedelta],dx\r
- mov ds,[segm]\r
- mov si,[ofs]\r
- mov di,[dest]\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloopgen:\r
- mov cx,[wide]\r
-@@byteloop:\r
- mov al,[es:di]\r
- and al,[si]\r
- or al,[bx+si]\r
- inc si\r
- stosb\r
- loop @@byteloop\r
-\r
- add di,[ss:linedelta]\r
- dec dx\r
- jnz @@lineloopgen\r
-\r
-mask0:\r
- mov ax,ss\r
- mov ds,ax\r
- ret ;width of 0 = no drawing\r
-\r
-\r
-;=================\r
-;\r
-; use the unwound routines\r
-;\r
-;=================\r
-\r
-@@unwoundroutine:\r
- shr di,1 ;we only have even width unwound routines\r
- mov cx,[dest]\r
- shr cx,1\r
- rcl di,1 ;shift a 1 in if destination is odd\r
- shl di,1\r
- mov ax,[maskroutines+di] ;call the right routine\r
-\r
- mov ds,[segm]\r
- mov si,[ofs]\r
- mov di,[dest]\r
- mov cx,[height] ;scan lines to draw\r
-\r
- jmp ax ;draw it\r
-\r
-;=================\r
-;\r
-; Horizontally unwound routines to draw certain masked blocks faster\r
-;\r
-;=================\r
-\r
-MACRO MASKBYTE\r
- mov al,[es:di]\r
- and al,[si]\r
- or al,[bx+si]\r
- inc si\r
- stosb\r
-ENDM\r
-\r
-MACRO MASKWORD\r
- mov ax,[es:di]\r
- and ax,[si]\r
- or ax,[bx+si]\r
- inc si\r
- inc si\r
- stosw\r
-ENDM\r
-\r
-MACRO SPRITELOOP addr\r
- add di,dx\r
- loop addr\r
- mov ax,ss\r
- mov ds,ax\r
- ret\r
-ENDM\r
-\r
-\r
-EVEN\r
-mask2E:\r
- MASKWORD\r
- SPRITELOOP mask2E\r
-\r
-EVEN\r
-mask2O:\r
- MASKBYTE\r
- MASKBYTE\r
- SPRITELOOP mask2O\r
-\r
-EVEN\r
-mask4E:\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask4E\r
-\r
-EVEN\r
-mask4O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask4O\r
-\r
-EVEN\r
-mask6E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask6E\r
-\r
-EVEN\r
-mask6O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask6O\r
-\r
-EVEN\r
-mask8E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask8E\r
-\r
-EVEN\r
-mask8O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask8O\r
-\r
-EVEN\r
-mask10E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask10E\r
-\r
-EVEN\r
-mask10O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask10O\r
-\r
-EVEN\r
-mask12E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask12E\r
-\r
-EVEN\r
-mask12O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask12O\r
-\r
-EVEN\r
-mask14E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask14E\r
-\r
-EVEN\r
-mask14O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask14O\r
-\r
-EVEN\r
-mask16E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask16E\r
-\r
-EVEN\r
-mask16O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask16O\r
-\r
-EVEN\r
-mask18E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask18E\r
-\r
-EVEN\r
-mask18O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask18O\r
-\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_InverseMask\r
-;\r
-; Draws a masked block shape to the screen. bufferofs is NOT accounted for.\r
-; The mask comes first, then the data.\r
-;\r
-; Mask blocks will allways be an even width because of the way IGRAB works\r
-;\r
-;============================================================================\r
-\r
-PROC VW_InverseMask segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_InverseMask\r
-USES SI,DI\r
-\r
- mov es, [screenseg]\r
- mov ax, [wide]\r
- mov dx, [linewidth]\r
- sub dx, ax;\r
- mov ds, [segm]\r
- mov si, [ofs]\r
- mov di, [dest]\r
- mov bx, [height]\r
- shr [wide], 1\r
-@@yloop:\r
- mov cx, [wide]\r
-@@xloop:\r
- lodsw\r
- not ax\r
- or [es:di], ax\r
- inc di\r
- inc di\r
- loop @@xloop\r
- add di, dx\r
- dec bx\r
- jnz @@yloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_ScreenToScreen\r
-;\r
-; Basic block copy routine. Copies one block of screen memory to another,\r
-; bufferofs is NOT accounted for.\r
-;\r
-; DONE\r
-;\r
-;============================================================================\r
-\r
-PROC VW_ScreenToScreen source:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_ScreenToScreen\r
-USES SI,DI\r
-\r
- mov bx,[linewidth]\r
- sub bx,[wide]\r
-\r
- mov ax,[screenseg]\r
- mov es,ax\r
- mov ds,ax\r
-\r
- mov si,[source]\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
- mov ax,[wide]\r
-;\r
-; if the width, source, and dest are all even, use word moves\r
-; This is allways the case in the CGA refresh\r
-;\r
- test ax,1\r
- jnz @@bytelineloop\r
- test si,1\r
- jnz @@bytelineloop\r
- test di,1\r
- jnz @@bytelineloop\r
-\r
- shr ax,1\r
-@@wordlineloop:\r
- mov cx,ax\r
- rep movsw\r
- add si,bx\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@wordlineloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-@@bytelineloop:\r
- mov cx,ax\r
- rep movsb\r
- add si,bx\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@bytelineloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_MemToScreen\r
-;\r
-; Basic block drawing routine. Takes a block shape at segment pointer source\r
-; of width by height data, and draws it to dest in the virtual screen,\r
-; based on linewidth. bufferofs is NOT accounted for.\r
-; There are four drawing routines to provide the best optimized code while\r
-; accounting for odd segment wrappings due to the floating screens.\r
-;\r
-; DONE\r
-;\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-memtoscreentable dw eventoeven,eventoodd,oddtoeven,oddtoodd\r
-\r
-CODESEG\r
-\r
-\r
-PROC VW_MemToScreen source:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_MemToScreen\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov bx,[linewidth]\r
- sub bx,[wide]\r
-\r
- mov ds,[source]\r
-\r
- xor si,si ;block is segment aligned\r
-\r
- xor di,di\r
- shr [wide],1 ;change wide to words, and see if carry is set\r
- rcl di,1 ;1 if wide is odd\r
- mov ax,[dest]\r
- shr ax,1\r
- rcl di,1 ;shift a 1 in if destination is odd\r
- shl di,1 ;to index into a word width table\r
- mov dx,[height] ;scan lines to draw\r
- mov ax,[wide]\r
- jmp [ss:memtoscreentable+di] ;call the right routine\r
-\r
-;==============\r
-;\r
-; Copy an even width block to an even destination address\r
-;\r
-;==============\r
-\r
-eventoeven:\r
- mov di,[dest] ;start at same place in all planes\r
-EVEN\r
-@@lineloopEE:\r
- mov cx,ax\r
- rep movsw\r
- add di,bx\r
- dec dx\r
- jnz @@lineloopEE\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-;==============\r
-;\r
-; Copy an odd width block to an even video address\r
-;\r
-;==============\r
-\r
-oddtoeven:\r
- mov di,[dest] ;start at same place in all planes\r
-EVEN\r
-@@lineloopOE:\r
- mov cx,ax\r
- rep movsw\r
- movsb ;copy the last byte\r
- add di,bx\r
- dec dx\r
- jnz @@lineloopOE\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-;==============\r
-;\r
-; Copy an even width block to an odd video address\r
-;\r
-;==============\r
-\r
-eventoodd:\r
- mov di,[dest] ;start at same place in all planes\r
- dec ax ;one word has to be handled seperately\r
-EVEN\r
-@@lineloopEO:\r
- movsb\r
- mov cx,ax\r
- rep movsw\r
- movsb\r
- add di,bx\r
- dec dx\r
- jnz @@lineloopEO\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-;==============\r
-;\r
-; Copy an odd width block to an odd video address\r
-;\r
-;==============\r
-\r
-oddtoodd:\r
- mov di,[dest] ;start at same place in all planes\r
-EVEN\r
-@@lineloopOO:\r
- movsb\r
- mov cx,ax\r
- rep movsw\r
- add di,bx\r
- dec dx\r
- jnz @@lineloopOO\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
- ret\r
-\r
-\r
-ENDP\r
-\r
-;===========================================================================\r
-;\r
-; VW_ScreenToMem\r
-;\r
-; Copies a block of video memory to main memory, in order from planes 0-3.\r
-; This could be optimized along the lines of VW_MemToScreen to take advantage\r
-; of word copies, but this is an infrequently called routine.\r
-;\r
-; DONE\r
-;\r
-;===========================================================================\r
-\r
-PROC VW_ScreenToMem source:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_ScreenToMem\r
-USES SI,DI\r
-\r
- mov es,[dest]\r
-\r
- mov bx,[linewidth]\r
- sub bx,[wide]\r
-\r
- mov ds,[screenseg]\r
-\r
- xor di,di\r
-\r
- mov si,[source]\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloop:\r
- mov cx,[wide]\r
- rep movsb\r
-\r
- add si,bx\r
-\r
- dec dx\r
- jnz @@lineloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;===========================================================================\r
-;\r
-; MISC CGA ROUTINES\r
-;\r
-;===========================================================================\r
-\r
-;==============\r
-;\r
-; VW_SetScreen\r
-;\r
-; DONE\r
-;\r
-;==============\r
-\r
-PROC VW_SetScreen crtc:WORD\r
-PUBLIC VW_SetScreen\r
-\r
-;\r
-; for some reason, my XT's EGA card doesn't like word outs to the CRTC\r
-; index...\r
-;\r
- cli\r
-\r
- mov cx,[crtc]\r
- mov dx,CRTC_INDEX\r
- mov al,0ch ;start address high register\r
- out dx,al\r
- inc dx\r
- mov al,ch\r
- out dx,al\r
- dec dx\r
- mov al,0dh ;start address low register\r
- out dx,al\r
- mov al,cl\r
- inc dx\r
- out dx,al\r
-\r
- sti\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-if NUMFONT+NUMFONTM\r
-\r
-;===========================================================================\r
-;\r
-; GENERAL FONT DRAWING ROUTINES\r
-;\r
-;===========================================================================\r
-\r
-DATASEG\r
-\r
-px dw ? ; proportional character drawing coordinates\r
-py dw ?\r
-pdrawmode db 11000b ; 8 = OR, 24 = XOR, put in GC_DATAROTATE\r
-fontcolor db 15 ;0-15 mapmask value\r
-\r
-PUBLIC px,py,pdrawmode,fontcolor\r
-\r
-;\r
-; offsets in font structure\r
-;\r
-pcharheight = 0 ;lines high\r
-charloc = 2 ;pointers to every character\r
-charwidth = 514 ;every character's width in pixels\r
-\r
-\r
-propchar dw ? ; the character number to shift\r
-stringptr dw ?,?\r
-\r
-fontcolormask dw ? ; font color expands into this\r
-\r
-BUFFWIDTH = 100\r
-BUFFHEIGHT = 32 ; must be twice as high as font for masked fonts\r
-\r
-databuffer db BUFFWIDTH*BUFFHEIGHT dup (?)\r
-\r
-bufferwidth dw ? ; bytes with valid info / line\r
-bufferheight dw ? ; number of lines currently used\r
-\r
-bufferbyte dw ?\r
-bufferbit dw ?\r
-PUBLIC bufferwidth,bufferheight,bufferbyte,bufferbit\r
-\r
-screenspot dw ? ; where the buffer is going\r
-\r
-bufferextra dw ? ; add at end of a line copy\r
-screenextra dw ?\r
-\r
-CODESEG\r
-\r
-;======================\r
-;\r
-; Macros to table shift a byte of font\r
-;\r
-;======================\r
-\r
-MACRO SHIFTNOXOR\r
- mov al,[es:bx] ; source\r
- xor ah,ah\r
- shl ax,1\r
- mov si,ax\r
- mov ax,[bp+si] ; table shift into two bytes\r
- or [di],al ; or with first byte\r
- inc di\r
- mov [di],ah ; replace next byte\r
- inc bx ; next source byte\r
-ENDM\r
-\r
-MACRO SHIFTWITHXOR\r
- mov al,[es:bx] ; source\r
- xor ah,ah\r
- shl ax,1\r
- mov si,ax\r
- mov ax,[bp+si] ; table shift into two bytes\r
- not ax\r
- and [di],al ; and with first byte\r
- inc di\r
- mov [di],ah ; replace next byte\r
- inc bx ; next source byte\r
-ENDM\r
-\r
-\r
-;=======================\r
-;\r
-; VWL_XORBuffer\r
-;\r
-; Pass buffer start in SI (somewhere in databuffer)\r
-; Draws the buffer to the screen buffer\r
-;\r
-;========================\r
-\r
-PROC VWL_XORBuffer NEAR\r
-USES BP\r
- mov bl,[fontcolor]\r
- xor bh,bh\r
- shl bx,1\r
- mov ax,[colorword+bx]\r
- mov [fontcolormask],ax\r
-\r
- mov es,[screenseg]\r
- mov di,[screenspot]\r
-\r
- mov bx,[bufferwidth] ;calculate offsets for end of each line\r
- mov [bufferwidth],bx\r
-\r
- or bx,bx\r
- jnz @@isthere\r
- ret ;nothing to draw\r
-\r
-@@isthere:\r
- test bx,1\r
- jnz @@odd\r
- jmp @@even\r
-;\r
-; clear the last byte so word draws can be used\r
-;\r
-@@odd:\r
- mov al,0\r
-line = 0\r
-REPT BUFFHEIGHT\r
- mov [BYTE databuffer+BUFFWIDTH*line+bx],al\r
-line = line+1\r
-ENDM\r
-\r
- inc bx\r
-@@even:\r
- mov ax,[linewidth]\r
- sub ax,bx\r
- mov [screenextra],ax\r
- mov ax,BUFFWIDTH\r
- sub ax,bx\r
- mov [bufferextra],ax\r
- mov dx,bx\r
-\r
- mov bx,[bufferheight] ;lines to copy\r
- mov bp,[fontcolormask]\r
-@@lineloop:\r
- mov cx,dx\r
-@@byteloop:\r
- lodsb ;get a word from the buffer\r
- and ax,bp\r
- xor [es:di],al ;draw it\r
- inc di\r
- loop @@byteloop\r
-\r
- add si,[bufferextra]\r
- add di,[screenextra]\r
-\r
- dec bx\r
- jnz @@lineloop\r
-\r
- ret\r
-ENDP\r
-\r
-\r
-DATASEG\r
-\r
-;============================================================================\r
-;\r
-; NON MASKED FONT DRAWING ROUTINES\r
-;\r
-;============================================================================\r
-\r
-if numfont\r
-\r
-DATASEG\r
-\r
-shiftdrawtable dw 0,shift1wide,shift2wide,shift3wide,shift4wide\r
- dw shift5wide,shift6wide\r
-\r
-CODESEG\r
-\r
-;==================\r
-;\r
-; ShiftPropChar\r
-;\r
-; Call with BX = character number (0-255)\r
-; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts\r
-; them to the new position\r
-;\r
-;==================\r
-\r
-PROC ShiftPropChar NEAR\r
-\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONT*2+si] ;segment of font to use\r
-\r
-;\r
-; find character location, width, and height\r
-;\r
- mov si,[es:charwidth+bx]\r
- and si,0ffh ;SI hold width in pixels\r
- shl bx,1\r
- mov bx,[es:charloc+bx] ;BX holds pointer to character data\r
-\r
-;\r
-; look up which shift table to use, based on bufferbit\r
-;\r
- mov di,[bufferbit]\r
- shl di,1\r
- mov bp,[shifttabletable+di] ;BP holds pointer to shift table\r
-\r
- mov di,OFFSET databuffer\r
- add di,[bufferbyte] ;DI holds pointer to buffer\r
-\r
- mov cx,[bufferbit]\r
- add cx,si ;add twice because pixel == two bits\r
- add cx,si ;new bit position\r
- mov ax,cx\r
- and ax,7\r
- mov [bufferbit],ax ;new bit position\r
- mov ax,cx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add [bufferbyte],ax ;new byte position\r
-\r
- add si,3\r
- shr si,1\r
- shr si,1 ;bytes the character is wide\r
- shl si,1 ;*2 to look up in shiftdrawtable\r
-\r
- mov cx,[es:pcharheight]\r
- mov dx,BUFFWIDTH\r
- jmp [ss:shiftdrawtable+si] ;procedure to draw this width\r
-\r
-;\r
-; one byte character\r
-;\r
-shift1wide:\r
- dec dx\r
-EVEN\r
-@@loop1:\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop1\r
-\r
- ret\r
-\r
-;\r
-; two byte character\r
-;\r
-shift2wide:\r
- dec dx\r
- dec dx\r
-EVEN\r
-@@loop2:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop2\r
-\r
- ret\r
-\r
-;\r
-; three byte character\r
-;\r
-shift3wide:\r
- sub dx,3\r
-EVEN\r
-@@loop3:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop3\r
-\r
- ret\r
-\r
-\r
-;\r
-; four byte character\r
-;\r
-shift4wide:\r
- sub dx,4\r
-EVEN\r
-@@loop4:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop4\r
-\r
- ret\r
-\r
-\r
-;\r
-; five byte character\r
-;\r
-shift5wide:\r
- sub dx,5\r
-EVEN\r
-@@loop5:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop5\r
-\r
- ret\r
-\r
-;\r
-; six byte character\r
-;\r
-shift6wide:\r
- sub dx,6\r
-EVEN\r
-@@loop6:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop6\r
-\r
- ret\r
-\r
-\r
-\r
-ENDP\r
-\r
-;============================================================================\r
-\r
-;==================\r
-;\r
-; VW_DrawPropString\r
-;\r
-; Draws a C string of characters at px/py and advances px\r
-;\r
-;==================\r
-\r
-CODESEG\r
-\r
-PROC VW_DrawPropString string:DWORD\r
-PUBLIC VW_DrawPropString\r
-USES SI,DI\r
-\r
-;\r
-; proportional spaceing, which clears the buffer ahead of it, so only\r
-; clear the first collumn\r
-;\r
- mov al,0\r
-line = 0\r
-REPT BUFFHEIGHT\r
- mov [BYTE databuffer+BUFFWIDTH*line],al\r
-line = line+1\r
-ENDM\r
-\r
-;\r
-; shift the characters into the buffer\r
-;\r
-@@shiftchars:\r
- mov ax,[px]\r
- and ax,3\r
- shl ax,1 ;one pixel == two bits\r
- mov [bufferbit],ax\r
- mov [bufferbyte],0\r
-\r
- mov ax,[WORD string]\r
- mov [stringptr],ax\r
- mov ax,[WORD string+2]\r
- mov [stringptr+2],ax\r
-\r
-@@shiftone:\r
- mov es,[stringptr+2]\r
- mov bx,[stringptr]\r
- inc [stringptr]\r
- mov bx,[es:bx]\r
- xor bh,bh\r
- or bl,bl\r
- jz @@allshifted\r
- call ShiftPropChar\r
- jmp @@shiftone\r
-\r
-@@allshifted:\r
-;\r
-; calculate position to draw buffer on screen\r
-;\r
- mov bx,[py]\r
- shl bx,1\r
- mov di,[ylookup+bx]\r
- add di,[bufferofs]\r
- add di,[panadjust]\r
-\r
- mov ax,[px]\r
- shr ax,1\r
- shr ax,1 ;x location in bytes\r
- add di,ax\r
- mov [screenspot],di\r
-\r
-;\r
-; advance px\r
-;\r
- mov ax,[bufferbyte]\r
- shl ax,1\r
- shl ax,1\r
- mov bx,[bufferbit]\r
- shr bx,1 ;two bits == one pixel\r
- or ax,bx\r
- add [px],ax\r
-\r
-;\r
-; draw it\r
-;\r
- mov ax,[bufferbyte]\r
- test [bufferbit],7\r
- jz @@go\r
- inc ax ;so the partial byte also gets drawn\r
-@@go:\r
- mov [bufferwidth],ax\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONT*2+si]\r
- mov ax,[es:pcharheight]\r
- mov [bufferheight],ax\r
-\r
- mov si,OFFSET databuffer\r
- call VWL_XORBuffer\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-endif ;numfont\r
-\r
-;============================================================================\r
-;\r
-; MASKED FONT DRAWING ROUTINES\r
-;\r
-;============================================================================\r
-\r
-if numfontm\r
-\r
-DATASEG\r
-\r
-mshiftdrawtable dw 0,mshift1wide,mshift2wide,mshift3wide\r
-\r
-\r
-CODESEG\r
-\r
-;==================\r
-;\r
-; ShiftMPropChar\r
-;\r
-; Call with BX = character number (0-255)\r
-; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts\r
-; them to the new position\r
-;\r
-;==================\r
-\r
-PROC ShiftMPropChar NEAR\r
-\r
- mov es,[grsegs+STARTFONTM*2] ;segment of font to use\r
-\r
-;\r
-; find character location, width, and height\r
-;\r
- mov si,[es:charwidth+bx]\r
- and si,0ffh ;SI hold width in pixels\r
- shl bx,1\r
- mov bx,[es:charloc+bx] ;BX holds pointer to character data\r
-\r
-;\r
-; look up which shift table to use, based on bufferbit\r
-;\r
- mov di,[bufferbit]\r
- shl di,1\r
- mov bp,[shifttabletable+di] ;BP holds pointer to shift table\r
-\r
- mov di,OFFSET databuffer\r
- add di,[bufferbyte] ;DI holds pointer to buffer\r
-\r
-;\r
-; advance position by character width\r
-;\r
- mov cx,[bufferbit]\r
- add cx,si ;new bit position\r
- mov ax,cx\r
- and ax,7\r
- mov [bufferbit],ax ;new bit position\r
- mov ax,cx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add [bufferbyte],ax ;new byte position\r
-\r
- add si,7\r
- shr si,1\r
- shr si,1\r
- shr si,1 ;bytes the character is wide\r
- shl si,1 ;*2 to look up in shiftdrawtable\r
-\r
- mov cx,[es:pcharheight]\r
- mov dx,BUFFWIDTH\r
- jmp [ss:mshiftdrawtable+si] ;procedure to draw this width\r
-\r
-;\r
-; one byte character\r
-;\r
-mshift1wide:\r
- dec dx\r
-\r
-EVEN\r
-@@loop1m:\r
- SHIFTWITHXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop1m\r
-\r
- mov cx,[es:pcharheight]\r
-\r
-EVEN\r
-@@loop1:\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop1\r
-\r
- ret\r
-\r
-;\r
-; two byte character\r
-;\r
-mshift2wide:\r
- dec dx\r
- dec dx\r
-EVEN\r
-@@loop2m:\r
- SHIFTWITHXOR\r
- SHIFTWITHXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop2m\r
-\r
- mov cx,[es:pcharheight]\r
-\r
-EVEN\r
-@@loop2:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop2\r
-\r
- ret\r
-\r
-;\r
-; three byte character\r
-;\r
-mshift3wide:\r
- sub dx,3\r
-EVEN\r
-@@loop3m:\r
- SHIFTWITHXOR\r
- SHIFTWITHXOR\r
- SHIFTWITHXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop3m\r
-\r
- mov cx,[es:pcharheight]\r
-\r
-EVEN\r
-@@loop3:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop3\r
-\r
- ret\r
-\r
-\r
-ENDP\r
-\r
-;============================================================================\r
-\r
-;==================\r
-;\r
-; VW_DrawMPropString\r
-;\r
-; Draws a C string of characters at px/py and advances px\r
-;\r
-;==================\r
-\r
-\r
-\r
-PROC VW_DrawMPropString string:DWORD\r
-PUBLIC VW_DrawMPropString\r
-USES SI,DI\r
-\r
-;\r
-; clear out the first byte of the buffer, the rest will automatically be\r
-; cleared as characters are drawn into it\r
-;\r
- mov es,[grsegs+STARTFONTM*2]\r
- mov dx,[es:pcharheight]\r
- mov di,OFFSET databuffer\r
- mov ax,ds\r
- mov es,ax\r
- mov bx,BUFFWIDTH-1\r
-\r
- mov cx,dx\r
- mov al,0ffh\r
-@@maskfill:\r
- stosb ; fill the mask part with $ff\r
- add di,bx\r
- loop @@maskfill\r
-\r
- mov cx,dx\r
- xor al,al\r
-@@datafill:\r
- stosb ; fill the data part with $0\r
- add di,bx\r
- loop @@datafill\r
-\r
-;\r
-; shift the characters into the buffer\r
-;\r
- mov ax,[px]\r
- and ax,7\r
- mov [bufferbit],ax\r
- mov [bufferbyte],0\r
-\r
- mov ax,[WORD string]\r
- mov [stringptr],ax\r
- mov ax,[WORD string+2]\r
- mov [stringptr+2],ax\r
-\r
-@@shiftone:\r
- mov es,[stringptr+2]\r
- mov bx,[stringptr]\r
- inc [stringptr]\r
- mov bx,[es:bx]\r
- xor bh,bh\r
- or bl,bl\r
- jz @@allshifted\r
- call ShiftMPropChar\r
- jmp @@shiftone\r
-\r
-@@allshifted:\r
-;\r
-; calculate position to draw buffer on screen\r
-;\r
- mov bx,[py]\r
- shl bx,1\r
- mov di,[ylookup+bx]\r
- add di,[bufferofs]\r
-\r
- mov ax,[px]\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1 ;x location in bytes\r
- add di,ax\r
- mov [screenspot],di\r
-\r
-;\r
-; advance px\r
-;\r
- mov ax,[bufferbyte]\r
- shl ax,1\r
- shl ax,1\r
- shl ax,1\r
- or ax,[bufferbit]\r
- add [px],ax\r
-\r
-;\r
-; draw it\r
-;\r
- mov ax,[bufferbyte]\r
- test [bufferbit],7\r
- jz @@go\r
- inc ax ;so the partial byte also gets drawn\r
-@@go:\r
- mov [bufferwidth],ax\r
- mov es,[grsegs+STARTFONTM*2]\r
- mov ax,[es:pcharheight]\r
- mov [bufferheight],ax\r
-\r
- mov si,OFFSET databuffer\r
- call BufferToScreen ; cut out mask\r
- ; or in data\r
- call BufferToScreen ; SI is still in the right position in buffer\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-endif ; if numfontm\r
-\r
-endif ; if fonts\r
+++ /dev/null
-; Reconstructed Commander Keen 4-6 Source Code\r
-; Copyright (C) 2021 K1n9_Duk3\r
-;\r
-; This file is primarily based on:\r
-; Catacomb 3-D Source Code\r
-; Copyright (C) 1993-2014 Flat Rock Software\r
-;\r
-; This program is free software; you can redistribute it and/or modify\r
-; it under the terms of the GNU General Public License as published by\r
-; the Free Software Foundation; either version 2 of the License, or\r
-; (at your option) any later version.\r
-;\r
-; This program is distributed in the hope that it will be useful,\r
-; but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-; GNU General Public License for more details.\r
-;\r
-; You should have received a copy of the GNU General Public License along\r
-; with this program; if not, write to the Free Software Foundation, Inc.,\r
-; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
-\r
-;=================================\r
-;\r
-; EGA view manager routines\r
-;\r
-;=================================\r
-\r
-;============================================================================\r
-;\r
-; All EGA drawing routines that write out words need to have alternate forms\r
-; for starting on even and odd addresses, because writing a word at segment\r
-; offset 0xffff causes an exception! To work around this, write a single\r
-; byte out to make the address even, so it wraps cleanly at the end.\r
-;\r
-; All of these routines assume read/write mode 0, and will allways return\r
-; in that state.\r
-; The direction flag should be clear\r
-; readmap/writemask is left in an undefined state\r
-;\r
-;============================================================================\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_Plot (int x,y,color)\r
-;\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-plotpixels db 128,64,32,16,8,4,2,1\r
-\r
-CODESEG\r
-\r
-PROC VW_Plot x:WORD, y:WORD, color:WORD\r
-PUBLIC VW_Plot\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
-\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+2*256 ;write mode 2\r
- WORDOUT\r
-\r
- mov di,[bufferofs]\r
- mov bx,[y]\r
- shl bx,1\r
- add di,[ylookup+bx]\r
- mov bx,[x]\r
- mov ax,bx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add di,ax ; di = byte on screen\r
-\r
- and bx,7\r
- mov ah,[plotpixels+bx]\r
- mov al,GC_BITMASK ;mask off other pixels\r
- WORDOUT\r
-\r
- mov bl,[BYTE color]\r
- xchg bl,[es:di] ; load latches and write pixel\r
-\r
- mov dx,GC_INDEX\r
- mov ah,0ffh ;no bit mask\r
- WORDOUT\r
- mov ax,GC_MODE+0*256 ;write mode 0\r
- WORDOUT\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_Vlin (int yl,yh,x,color)\r
-;\r
-;============================================================================\r
-\r
-PROC VW_Vlin yl:WORD, yh:WORD, x:WORD, color:WORD\r
-PUBLIC VW_Vlin\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
-\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+2*256 ;write mode 2\r
- WORDOUT\r
-\r
- mov di,[bufferofs]\r
- mov bx,[yl]\r
- shl bx,1\r
- add di,[ylookup+bx]\r
- mov bx,[x]\r
- mov ax,bx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add di,ax ; di = byte on screen\r
-\r
- and bx,7\r
- mov ah,[plotpixels+bx]\r
- mov al,GC_BITMASK ;mask off other pixels\r
- WORDOUT\r
-\r
- mov cx,[yh]\r
- sub cx,[yl]\r
- inc cx ;number of pixels to plot\r
-\r
- mov bh,[BYTE color]\r
- mov dx,[linewidth]\r
-\r
-@@plot:\r
- mov bl,bh\r
- xchg bl,[es:di] ; load latches and write pixel\r
- add di,dx\r
-\r
- loop @@plot\r
-\r
- mov dx,GC_INDEX\r
- mov ah,0ffh ;no bit mask\r
- WORDOUT\r
- mov ax,GC_MODE+0*256 ;write mode 0\r
- WORDOUT\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-\r
-\r
-;===================\r
-;\r
-; VW_DrawTile8\r
-;\r
-; xcoord in bytes (8 pixels), ycoord in pixels\r
-; All Tile8s are in one grseg, so an offset is calculated inside it\r
-;\r
-;===================\r
-\r
-PROC VW_DrawTile8 xcoord:WORD, ycoord:WORD, tile:WORD\r
-PUBLIC VW_DrawTile8\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov di,[bufferofs]\r
- add di,[xcoord]\r
- mov bx,[ycoord]\r
- shl bx,1\r
- add di,[ylookup+bx]\r
- mov [ss:screendest],di ;screen destination\r
-\r
- mov bx,[linewidth]\r
- dec bx\r
-\r
- mov si,[tile]\r
- shl si,1\r
- shl si,1\r
- shl si,1\r
- shl si,1\r
- shl si,1\r
-\r
- mov ds,[grsegs+STARTTILE8*2] ; segment for all tile8s\r
-\r
- mov cx,4 ;planes to draw\r
- mov ah,0001b ;map mask\r
-\r
- mov dx,SC_INDEX\r
- mov al,SC_MAPMASK\r
-\r
-;\r
-; start drawing\r
-;\r
-\r
-@@planeloop:\r
- WORDOUT\r
- shl ah,1 ;shift plane mask over for next plane\r
-\r
- mov di,[ss:screendest] ;start at same place in all planes\r
-\r
-REPT 7\r
- movsb\r
- add di,bx\r
-ENDM\r
- movsb\r
-\r
- loop @@planeloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_MaskBlock\r
-;\r
-; Draws a masked block shape to the screen. bufferofs is NOT accounted for.\r
-; The mask comes first, then four planes of data.\r
-;\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-UNWOUNDMASKS = 10\r
-\r
-\r
-maskroutines dw mask0,mask0,mask1E,mask1E,mask2E,mask2O,mask3E,mask3O\r
- dw mask4E,mask4O,mask5E,mask5O,mask6E,mask6O\r
- dw mask7E,mask7O,mask8E,mask8O,mask9E,mask9O\r
- dw mask10E,mask10O\r
-\r
-\r
-routinetouse dw ?\r
-\r
-CODESEG\r
-\r
-PROC VW_MaskBlock segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD, planesize:WORD\r
-PUBLIC VW_MaskBlock\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov [BYTE planemask],1\r
- mov [BYTE planenum],0\r
-\r
- mov di,[wide]\r
- mov dx,[linewidth]\r
- sub dx,[wide]\r
- mov [linedelta],dx ;amount to add after drawing each line\r
-\r
- mov bx,[planesize] ; si+bx = data location\r
-\r
- cmp di,UNWOUNDMASKS\r
- jbe @@unwoundroutine\r
- mov [routinetouse],OFFSET generalmask\r
- jmp NEAR @@startloop\r
-\r
-;=================\r
-;\r
-; use the unwound routines\r
-;\r
-;=================\r
-\r
-@@unwoundroutine:\r
- mov cx,[dest]\r
- shr cx,1\r
- rcl di,1 ;shift a 1 in if destination is odd\r
- shl di,1 ;to index into a word width table\r
- mov ax,[maskroutines+di] ;call the right routine\r
- mov [routinetouse],ax\r
-\r
-@@startloop:\r
- mov ds,[segm]\r
-\r
-@@drawplane:\r
- mov dx,SC_INDEX\r
- mov al,SC_MAPMASK\r
- mov ah,[ss:planemask]\r
- WORDOUT\r
- mov dx,GC_INDEX\r
- mov al,GC_READMAP\r
- mov ah,[ss:planenum]\r
- WORDOUT\r
-\r
- mov si,[ofs] ;start back at the top of the mask\r
- mov di,[dest] ;start at same place in all planes\r
- mov cx,[height] ;scan lines to draw\r
- mov dx,[ss:linedelta]\r
-\r
- jmp [ss:routinetouse] ;draw one plane\r
-planereturn: ;routine jmps back here\r
-\r
- add bx,[ss:planesize] ;start of mask = start of next plane\r
-\r
- inc [ss:planenum]\r
- shl [ss:planemask],1 ;shift plane mask over for next plane\r
- cmp [ss:planemask],10000b ;done all four planes?\r
- jne @@drawplane\r
-\r
-mask0:\r
- mov ax,ss\r
- mov ds,ax\r
- ret ;width of 0 = no drawing\r
-\r
-;==============\r
-;\r
-; General purpose masked block drawing. This could be optimised into\r
-; four routines to use words, but few play loop sprites should be this big!\r
-;\r
-;==============\r
-\r
-generalmask:\r
- mov dx,cx\r
-\r
-@@lineloopgen:\r
- mov cx,[wide]\r
-@@byteloop:\r
- mov al,[es:di]\r
- and al,[si]\r
- or al,[bx+si]\r
- inc si\r
- stosb\r
- loop @@byteloop\r
-\r
- add di,[ss:linedelta]\r
- dec dx\r
- jnz @@lineloopgen\r
- jmp planereturn\r
-\r
-;=================\r
-;\r
-; Horizontally unwound routines to draw certain masked blocks faster\r
-;\r
-;=================\r
-\r
-MACRO MASKBYTE\r
- lodsb\r
- and al,[es:di]\r
- or al,[bx+si-1]\r
- stosb\r
-ENDM\r
-\r
-MACRO MASKWORD\r
- lodsw\r
- and ax,[es:di]\r
- or ax,[bx+si-2]\r
- stosw\r
-ENDM\r
-\r
-MACRO SPRITELOOP addr\r
- add di,dx\r
- loop addr\r
- jmp planereturn\r
-ENDM\r
-\r
-\r
-EVEN\r
-mask1E:\r
- MASKBYTE\r
- SPRITELOOP mask1E\r
-\r
-EVEN\r
-mask2E:\r
- MASKWORD\r
- SPRITELOOP mask2E\r
-\r
-EVEN\r
-mask2O:\r
- MASKBYTE\r
- MASKBYTE\r
- SPRITELOOP mask2O\r
-\r
-EVEN\r
-mask3E:\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask3E\r
-\r
-EVEN\r
-mask3O:\r
- MASKBYTE\r
- MASKWORD\r
- SPRITELOOP mask3O\r
-\r
-EVEN\r
-mask4E:\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask4E\r
-\r
-EVEN\r
-mask4O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask4O\r
-\r
-EVEN\r
-mask5E:\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask5E\r
-\r
-EVEN\r
-mask5O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask5O\r
-\r
-EVEN\r
-mask6E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask6E\r
-\r
-EVEN\r
-mask6O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask6O\r
-\r
-EVEN\r
-mask7E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask7E\r
-\r
-EVEN\r
-mask7O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask7O\r
-\r
-EVEN\r
-mask8E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask8E\r
-\r
-EVEN\r
-mask8O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask8O\r
-\r
-EVEN\r
-mask9E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask9E\r
-\r
-EVEN\r
-mask9O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask9O\r
-\r
-EVEN\r
-mask10E:\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- SPRITELOOP mask10E\r
-\r
-EVEN\r
-mask10O:\r
- MASKBYTE\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKWORD\r
- MASKBYTE\r
- SPRITELOOP mask10O\r
-\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_InverseMask\r
-;\r
-; Draws a masked block shape to the screen. bufferofs is NOT accounted for.\r
-; The mask comes first, then four planes of data.\r
-;\r
-;============================================================================\r
-\r
-PROC VW_InverseMask segm:WORD, ofs:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_InverseMask\r
-USES SI,DI\r
-\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE+16*256 ;set function = OR\r
- WORDOUT\r
-\r
- mov es, [screenseg]\r
- mov ax, [wide]\r
- mov dx, [linewidth]\r
- sub dx, ax;\r
- mov ds, [segm]\r
- mov si, [ofs]\r
- mov di, [dest]\r
- mov bx, [height]\r
-@@yloop:\r
- mov cx, [wide]\r
-@@xloop:\r
- lodsb\r
- not al\r
- xchg al, [es:di]\r
- inc di\r
- loop @@xloop\r
- add di, dx\r
- dec bx\r
- jnz @@yloop\r
-\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE+0*256 ;set function = no change\r
- WORDOUT\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-;============================================================================\r
-;\r
-; VW_ScreenToScreen\r
-;\r
-; Basic block copy routine. Copies one block of screen memory to another,\r
-; using write mode 1 (sets it and returns with write mode 0). bufferofs is\r
-; NOT accounted for.\r
-;\r
-;============================================================================\r
-\r
-PROC VW_ScreenToScreen source:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_ScreenToScreen\r
-USES SI,DI\r
-\r
- pushf\r
- cli\r
-\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+1*256\r
- WORDOUT\r
-\r
- popf\r
-\r
- mov bx,[linewidth]\r
- sub bx,[wide]\r
-\r
- mov ax,[screenseg]\r
- mov es,ax\r
- mov ds,ax\r
-\r
- mov si,[source]\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
- mov ax,[wide]\r
-\r
-@@lineloop:\r
- mov cx,ax\r
- rep movsb\r
- add si,bx\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloop\r
-\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+0*256\r
- WORDOUT\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VW_MemToScreen\r
-;\r
-; Basic block drawing routine. Takes a block shape at segment pointer source\r
-; with four planes of width by height data, and draws it to dest in the\r
-; virtual screen, based on linewidth. bufferofs is NOT accounted for.\r
-; There are four drawing routines to provide the best optimized code while\r
-; accounting for odd segment wrappings due to the floating screens.\r
-;\r
-;============================================================================\r
-\r
-DATASEG\r
-\r
-memtoscreentable dw eventoeven,eventoodd,oddtoeven,oddtoodd\r
-\r
-CODESEG\r
-\r
-\r
-PROC VW_MemToScreen source:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_MemToScreen\r
-USES SI,DI\r
-\r
- mov es,[screenseg]\r
-\r
- mov bx,[linewidth]\r
- sub bx,[wide]\r
-\r
- mov ds,[source]\r
-\r
-\r
- xor si,si ;block is segment aligned\r
-\r
- xor di,di\r
- shr [wide],1 ;change wide to words, and see if carry is set\r
- rcl di,1 ;1 if wide is odd\r
- mov ax,[dest]\r
- shr ax,1\r
- rcl di,1 ;shift a 1 in if destination is odd\r
- shl di,1 ;to index into a word width table\r
- mov ax,SC_MAPMASK+0001b*256 ;map mask for plane 0\r
- jmp [ss:memtoscreentable+di] ;call the right routine\r
-\r
-;==============\r
-;\r
-; Copy an even width block to an even video address\r
-;\r
-;==============\r
-\r
-eventoeven:\r
- mov dx,SC_INDEX\r
- WORDOUT\r
-\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloopEE:\r
- mov cx,[wide]\r
- rep movsw\r
-\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloopEE\r
-\r
- shl ah,1 ;shift plane mask over for next plane\r
- cmp ah,10000b ;done all four planes?\r
- jne eventoeven\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-;==============\r
-;\r
-; Copy an odd width block to an even video address\r
-;\r
-;==============\r
-\r
-oddtoeven:\r
- mov dx,SC_INDEX\r
- WORDOUT\r
-\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloopOE:\r
- mov cx,[wide]\r
- rep movsw\r
- movsb ;copy the last byte\r
-\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloopOE\r
-\r
- shl ah,1 ;shift plane mask over for next plane\r
- cmp ah,10000b ;done all four planes?\r
- jne oddtoeven\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-;==============\r
-;\r
-; Copy an even width block to an odd video address\r
-;\r
-;==============\r
-\r
-eventoodd:\r
- dec [wide] ;one word has to be handled seperately\r
-EOplaneloop:\r
- mov dx,SC_INDEX\r
- WORDOUT\r
-\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloopEO:\r
- movsb\r
- mov cx,[wide]\r
- rep movsw\r
- movsb\r
-\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloopEO\r
-\r
- shl ah,1 ;shift plane mask over for next plane\r
- cmp ah,10000b ;done all four planes?\r
- jne EOplaneloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-;==============\r
-;\r
-; Copy an odd width block to an odd video address\r
-;\r
-;==============\r
-\r
-oddtoodd:\r
- mov dx,SC_INDEX\r
- WORDOUT\r
-\r
- mov di,[dest] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloopOO:\r
- movsb\r
- mov cx,[wide]\r
- rep movsw\r
-\r
- add di,bx\r
-\r
- dec dx\r
- jnz @@lineloopOO\r
-\r
- shl ah,1 ;shift plane mask over for next plane\r
- cmp ah,10000b ;done all four planes?\r
- jne oddtoodd\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-\r
-ENDP\r
-\r
-;===========================================================================\r
-;\r
-; VW_ScreenToMem\r
-;\r
-; Copies a block of video memory to main memory, in order from planes 0-3.\r
-; This could be optimized along the lines of VW_MemToScreen to take advantage\r
-; of word copies, but this is an infrequently called routine.\r
-;\r
-;===========================================================================\r
-\r
-PROC VW_ScreenToMem source:WORD, dest:WORD, wide:WORD, height:WORD\r
-PUBLIC VW_ScreenToMem\r
-USES SI,DI\r
-\r
- mov es,[dest]\r
-\r
- mov bx,[linewidth]\r
- sub bx,[wide]\r
-\r
- mov ds,[screenseg]\r
-\r
- mov ax,GC_READMAP ;read map for plane 0\r
-\r
- xor di,di\r
-\r
-@@planeloop:\r
- mov dx,GC_INDEX\r
- WORDOUT\r
-\r
- mov si,[source] ;start at same place in all planes\r
- mov dx,[height] ;scan lines to draw\r
-\r
-@@lineloop:\r
- mov cx,[wide]\r
- rep movsb\r
-\r
- add si,bx\r
-\r
- dec dx\r
- jnz @@lineloop\r
-\r
- inc ah\r
- cmp ah,4 ;done all four planes?\r
- jne @@planeloop\r
-\r
- mov ax,ss\r
- mov ds,ax ;restore turbo's data segment\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; VWL_UpdateScreenBlocks\r
-;\r
-; Scans through the update matrix and copies any areas that have changed\r
-; to the visable screen, then zeros the update array\r
-;\r
-;============================================================================\r
-\r
-\r
-\r
-; AX 0/1 for scasb, temp for segment register transfers\r
-; BX width for block copies\r
-; CX REP counter\r
-; DX line width deltas\r
-; SI source for copies\r
-; DI scas dest / movsb dest\r
-; BP pointer to end of bufferblocks\r
-\r
-PROC VWL_UpdateScreenBlocks\r
-PUBLIC VWL_UpdateScreenBlocks\r
-USES SI,DI,BP\r
-\r
- jmp SHORT @@realstart\r
-@@done:\r
-;\r
-; all tiles have been scanned\r
-;\r
- mov dx,GC_INDEX ; restore write mode 0\r
- mov ax,GC_MODE+0*256\r
- WORDOUT\r
-\r
- xor ax,ax ; clear out the update matrix\r
- mov cx,UPDATEWIDE*UPDATEHIGH/2\r
-\r
- mov di,[updateptr]\r
- rep stosw\r
-\r
- ret\r
-\r
-@@realstart:\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK+15*256\r
- WORDOUT\r
- mov dx,GC_INDEX\r
- mov ax,GC_MODE+1*256\r
- WORDOUT\r
-\r
- mov di,[updateptr] ; start of floating update screen\r
- mov bp,di\r
- add bp,UPDATEWIDE*UPDATEHIGH+1 ; when di = bp, all tiles have been scanned\r
-\r
- push di\r
- mov cx,-1 ; definately scan the entire thing\r
-\r
-;\r
-; scan for a 1 in the update list, meaning a tile needs to be copied\r
-; from the master screen to the current screen\r
-;\r
-@@findtile:\r
- pop di ; place to continue scaning from\r
- mov ax,ss\r
- mov es,ax ; search in the data segment\r
- mov ds,ax\r
- mov al,1\r
- repne scasb\r
- cmp di,bp\r
- jae @@done\r
-\r
- cmp [BYTE di],al\r
- jne @@singletile\r
- jmp @@tileblock\r
-\r
-;============\r
-;\r
-; copy a single tile\r
-;\r
-;============\r
-@@singletile:\r
- inc di ; we know the next tile is nothing\r
- push di ; save off the spot being scanned\r
- sub di,[updateptr]\r
- shl di,1\r
- mov di,[blockstarts-4+di] ; start of tile location on screen\r
- mov si,di\r
- add si,[bufferofs]\r
- add di,[displayofs]\r
-\r
- mov dx,[linewidth]\r
- sub dx,2\r
- mov ax,[screenseg]\r
- mov ds,ax\r
- mov es,ax\r
-\r
-REPT 15\r
- movsb\r
- movsb\r
- add si,dx\r
- add di,dx\r
-ENDM\r
- movsb\r
- movsb\r
-\r
- jmp @@findtile\r
-\r
-;============\r
-;\r
-; more than one tile in a row needs to be updated, so do it as a group\r
-;\r
-;============\r
-EVEN\r
-@@tileblock:\r
- mov dx,di ; hold starting position + 1 in dx\r
- inc di ; we know the next tile also gets updated\r
- repe scasb ; see how many more in a row\r
- push di ; save off the spot being scanned\r
-\r
- mov bx,di\r
- sub bx,dx ; number of tiles in a row\r
- shl bx,1 ; number of bytes / row\r
-\r
- mov di,dx ; lookup position of start tile\r
- sub di,[updateptr]\r
- shl di,1\r
- mov di,[blockstarts-2+di] ; start of tile location\r
- mov si,di\r
- add si,[bufferofs]\r
- add di,[displayofs]\r
-\r
- mov dx,[linewidth]\r
- sub dx,bx ; offset to next line on screen\r
-\r
- mov ax,[screenseg]\r
- mov ds,ax\r
- mov es,ax\r
-\r
-REPT 15\r
- mov cx,bx\r
- rep movsb\r
- add si,dx\r
- add di,dx\r
-ENDM\r
- mov cx,bx\r
- rep movsb\r
-\r
- dec cx ; was 0 from last rep movsb, now $ffff for scasb\r
- jmp @@findtile\r
-\r
-ENDP\r
-\r
-\r
-;===========================================================================\r
-;\r
-; MISC EGA ROUTINES\r
-;\r
-;===========================================================================\r
-\r
-;=================\r
-;\r
-; SyncVBL\r
-;\r
-;=================\r
-\r
-DATASEG\r
-\r
-EXTRN TimeCount :DWORD\r
-EXTRN jerk :WORD\r
-EXTRN nopan :WORD\r
-\r
-CODESEG\r
-\r
-PROC SyncVBL\r
- mov dx,STATUS_REGISTER_1\r
- mov bx,[WORD TimeCount]\r
- add bx,3\r
-@@waitloop:\r
- sti\r
- jmp $+2\r
- cli\r
- cmp [WORD TimeCount],bx\r
- je @@done\r
-@@waitnovert:\r
- in al,dx\r
- test al,1\r
- jnz @@waitnovert\r
-@@waitvert:\r
- in al,dx\r
- test al,1\r
- jz @@waitvert\r
-\r
-REPT 5\r
- in al,dx\r
- test al,8\r
- jnz @@waitloop\r
- test al,1\r
- jz @@waitloop\r
-ENDM\r
-\r
- test [jerk],1\r
- jz @@done\r
-\r
-REPT 5\r
- in al,dx\r
- test al,8\r
- jnz @@waitloop\r
- test al,1\r
- jz @@waitloop\r
-ENDM\r
-\r
-@@done:\r
- ret\r
-ENDP\r
-\r
-\r
-;==============\r
-;\r
-; VW_SetScreen\r
-;\r
-;==============\r
-\r
-PROC VW_SetScreen crtc:WORD, pel:WORD\r
-PUBLIC VW_SetScreen\r
-\r
- call SyncVBL\r
-;\r
-; set CRTC start\r
-;\r
-; for some reason, my XT's EGA card doesn't like word outs to the CRTC\r
-; index...\r
-;\r
- mov cx,[crtc]\r
- mov dx,CRTC_INDEX\r
- mov al,0ch ;start address high register\r
- out dx,al\r
- inc dx\r
- mov al,ch\r
- out dx,al\r
- dec dx\r
- mov al,0dh ;start address low register\r
- out dx,al\r
- mov al,cl\r
- inc dx\r
- out dx,al\r
-\r
- test [nopan],1\r
- jnz @@done\r
-;\r
-; set horizontal panning\r
-;\r
-\r
- mov dx,ATR_INDEX\r
- mov al,ATR_PELPAN or 20h\r
- out dx,al\r
- jmp $+2\r
- mov al,[BYTE pel] ;pel pan value\r
- out dx,al\r
-\r
-@@done:\r
- sti\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-\r
-if NUMFONT+NUMFONTM\r
-\r
-;===========================================================================\r
-;\r
-; GENERAL FONT DRAWING ROUTINES\r
-;\r
-;===========================================================================\r
-\r
-DATASEG\r
-\r
-px dw ? ; proportional character drawing coordinates\r
-py dw ?\r
-pdrawmode db 11000b ; 8 = OR, 24 = XOR, put in GC_DATAROTATE\r
-fontcolor db 15 ;0-15 mapmask value\r
-\r
-PUBLIC px,py,pdrawmode,fontcolor\r
-\r
-;\r
-; offsets in font structure\r
-;\r
-pcharheight = 0 ;lines high\r
-charloc = 2 ;pointers to every character\r
-charwidth = 514 ;every character's width in pixels\r
-\r
-\r
-propchar dw ? ; the character number to shift\r
-stringptr dw ?,?\r
-\r
-\r
-BUFFWIDTH = 50\r
-BUFFHEIGHT = 32 ; must be twice as high as font for masked fonts\r
-\r
-databuffer db BUFFWIDTH*BUFFHEIGHT dup (?)\r
-\r
-bufferwidth dw ? ; bytes with valid info / line\r
-bufferheight dw ? ; number of lines currently used\r
-\r
-bufferbyte dw ?\r
-bufferbit dw ?\r
-\r
-screenspot dw ? ; where the buffer is going\r
-\r
-bufferextra dw ? ; add at end of a line copy\r
-screenextra dw ?\r
-\r
-PUBLIC bufferwidth,bufferheight,screenspot\r
-\r
-CODESEG\r
-\r
-;======================\r
-;\r
-; Macros to table shift a byte of font\r
-;\r
-;======================\r
-\r
-MACRO SHIFTNOXOR\r
- mov al,[es:bx] ; source\r
- xor ah,ah\r
- shl ax,1\r
- mov si,ax\r
- mov ax,[bp+si] ; table shift into two bytes\r
- or [di],al ; or with first byte\r
- inc di\r
- mov [di],ah ; replace next byte\r
- inc bx ; next source byte\r
-ENDM\r
-\r
-MACRO SHIFTWITHXOR\r
- mov al,[es:bx] ; source\r
- xor ah,ah\r
- shl ax,1\r
- mov si,ax\r
- mov ax,[bp+si] ; table shift into two bytes\r
- not ax\r
- and [di],al ; and with first byte\r
- inc di\r
- mov [di],ah ; replace next byte\r
- inc bx ; next source byte\r
-ENDM\r
-\r
-\r
-;=======================\r
-;\r
-; BufferToScreen\r
-;\r
-; Pass buffer start in SI (somewhere in databuffer)\r
-; Draws the buffer to the EGA screen in the current write mode\r
-;\r
-;========================\r
-\r
-PROC BufferToScreen NEAR\r
-\r
- mov es,[screenseg]\r
- mov di,[screenspot]\r
-\r
- mov bx,[bufferwidth] ;calculate offsets for end of each line\r
- or bx,bx\r
- jnz @@isthere\r
- ret ;nothing to draw\r
-\r
-@@isthere:\r
- mov ax,[linewidth]\r
- sub ax,bx\r
- mov [screenextra],ax\r
- mov ax,BUFFWIDTH\r
- sub ax,bx\r
- mov [bufferextra],ax\r
-\r
- mov bx,[bufferheight] ;lines to copy\r
-@@lineloop:\r
- mov cx,[bufferwidth] ;bytes to copy\r
-@@byteloop:\r
- lodsb ;get a byte from the buffer\r
- xchg [es:di],al ;load latches and store back to screen\r
- inc di\r
-\r
- loop @@byteloop\r
-\r
- add si,[bufferextra]\r
- add di,[screenextra]\r
-\r
- dec bx\r
- jnz @@lineloop\r
-\r
- ret\r
-ENDP\r
-\r
-\r
-;============================================================================\r
-;\r
-; NON MASKED FONT DRAWING ROUTINES\r
-;\r
-;============================================================================\r
-\r
-if numfont\r
-\r
-DATASEG\r
-\r
-shiftdrawtable dw 0,shift1wide,shift2wide,shift3wide,shift4wide\r
- dw shift5wide\r
-\r
-CODESEG\r
-\r
-;==================\r
-;\r
-; ShiftPropChar\r
-;\r
-; Call with BX = character number (0-255)\r
-; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts\r
-; them to the new position\r
-;\r
-;==================\r
-\r
-PROC ShiftPropChar NEAR\r
-\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONT*2+si] ;segment of font to use\r
-\r
-;\r
-; find character location, width, and height\r
-;\r
- mov si,[es:charwidth+bx]\r
- and si,0ffh ;SI hold width in pixels\r
- shl bx,1\r
- mov bx,[es:charloc+bx] ;BX holds pointer to character data\r
-\r
-;\r
-; look up which shift table to use, based on bufferbit\r
-;\r
- mov di,[bufferbit]\r
- shl di,1\r
- mov bp,[shifttabletable+di] ;BP holds pointer to shift table\r
-\r
- mov di,OFFSET databuffer\r
- add di,[bufferbyte] ;DI holds pointer to buffer\r
-\r
-;\r
-; advance position by character width\r
-;\r
- mov cx,[bufferbit]\r
- add cx,si ;new bit position\r
- mov ax,cx\r
- and ax,7\r
- mov [bufferbit],ax ;new bit position\r
- mov ax,cx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add [bufferbyte],ax ;new byte position\r
-\r
- add si,7\r
- shr si,1\r
- shr si,1\r
- shr si,1 ;bytes the character is wide\r
- shl si,1 ;*2 to look up in shiftdrawtable\r
-\r
- mov cx,[es:pcharheight]\r
- mov dx,BUFFWIDTH\r
- jmp [ss:shiftdrawtable+si] ;procedure to draw this width\r
-\r
-;\r
-; one byte character\r
-;\r
-shift1wide:\r
- dec dx\r
-EVEN\r
-@@loop1:\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop1\r
- ret\r
-\r
-;\r
-; two byte character\r
-;\r
-shift2wide:\r
- dec dx\r
- dec dx\r
-EVEN\r
-@@loop2:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop2\r
- ret\r
-\r
-;\r
-; three byte character\r
-;\r
-shift3wide:\r
- sub dx,3\r
-EVEN\r
-@@loop3:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop3\r
- ret\r
-\r
-;\r
-; four byte character\r
-;\r
-shift4wide:\r
- sub dx,4\r
-EVEN\r
-@@loop4:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop4\r
- ret\r
-\r
-;\r
-; five byte character\r
-;\r
-shift5wide:\r
- sub dx,5\r
-EVEN\r
-@@loop5:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop5\r
- ret\r
-\r
-\r
-\r
-ENDP\r
-\r
-;============================================================================\r
-\r
-;==================\r
-;\r
-; VW_DrawPropString\r
-;\r
-; Draws a C string of characters at px/py and advances px\r
-;\r
-; Assumes write mode 0\r
-;\r
-;==================\r
-\r
-CODESEG\r
-\r
-PROC VW_DrawPropString string:DWORD\r
-PUBLIC VW_DrawPropString\r
-USES SI,DI\r
-\r
-;\r
-; proportional spaceing, which clears the buffer ahead of it, so only\r
-; clear the first collumn\r
-;\r
- mov al,0\r
-line = 0\r
-REPT BUFFHEIGHT\r
- mov [BYTE databuffer+BUFFWIDTH*line],al\r
-line = line+1\r
-ENDM\r
-\r
-;\r
-; shift the characters into the buffer\r
-;\r
-@@shiftchars:\r
- mov ax,[px]\r
- and ax,7\r
- mov [bufferbit],ax\r
- mov [bufferbyte],0\r
-\r
- mov ax,[WORD string]\r
- mov [stringptr],ax\r
- mov ax,[WORD string+2]\r
- mov [stringptr+2],ax\r
-\r
-@@shiftone:\r
- mov es,[stringptr+2]\r
- mov bx,[stringptr]\r
- inc [stringptr]\r
- mov bx,[es:bx]\r
- xor bh,bh\r
- or bl,bl\r
- jz @@allshifted\r
- call ShiftPropChar\r
- jmp @@shiftone\r
-\r
-@@allshifted:\r
-;\r
-; calculate position to draw buffer on screen\r
-;\r
- mov bx,[py]\r
- shl bx,1\r
- mov di,[ylookup+bx]\r
- add di,[bufferofs]\r
- add di,[panadjust]\r
-\r
- mov ax,[px]\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1 ;x location in bytes\r
- add di,ax\r
- mov [screenspot],di\r
-\r
-;\r
-; advance px\r
-;\r
- mov ax,[bufferbyte]\r
- shl ax,1\r
- shl ax,1\r
- shl ax,1\r
- or ax,[bufferbit]\r
- add [px],ax\r
-\r
-;\r
-; draw it\r
-;\r
-\r
-; set xor/or mode\r
- mov dx,GC_INDEX\r
- mov al,GC_DATAROTATE\r
- mov ah,[pdrawmode]\r
- WORDOUT\r
-\r
-; set mapmask to color\r
- mov dx,SC_INDEX\r
- mov al,SC_MAPMASK\r
- mov ah,[fontcolor]\r
- WORDOUT\r
-\r
- mov ax,[bufferbyte]\r
- test [bufferbit],7\r
- jz @@go\r
- inc ax ;so the partial byte also gets drawn\r
-@@go:\r
- mov [bufferwidth],ax\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONT*2+si]\r
- mov ax,[es:pcharheight]\r
- mov [bufferheight],ax\r
-\r
- mov si,OFFSET databuffer\r
- call BufferToScreen\r
-\r
-; set copy mode\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE\r
- WORDOUT\r
-\r
-; set mapmask to all\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK + 15*256\r
- WORDOUT\r
-\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-endif ;numfont\r
-\r
-;============================================================================\r
-;\r
-; MASKED FONT DRAWING ROUTINES\r
-;\r
-;============================================================================\r
-\r
-if numfontm\r
-\r
-DATASEG\r
-\r
-mshiftdrawtable dw 0,mshift1wide,mshift2wide,mshift3wide\r
-\r
-\r
-CODESEG\r
-\r
-;==================\r
-;\r
-; ShiftMPropChar\r
-;\r
-; Call with BX = character number (0-255)\r
-; Draws one character to the buffer at bufferbyte/bufferbit, and adjusts\r
-; them to the new position\r
-;\r
-;==================\r
-\r
-PROC ShiftMPropChar NEAR\r
-\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONTM*2+si] ;segment of font to use\r
-\r
-;\r
-; find character location, width, and height\r
-;\r
- mov si,[es:charwidth+bx]\r
- and si,0ffh ;SI hold width in pixels\r
- shl bx,1\r
- mov bx,[es:charloc+bx] ;BX holds pointer to character data\r
-\r
-;\r
-; look up which shift table to use, based on bufferbit\r
-;\r
- mov di,[bufferbit]\r
- shl di,1\r
- mov bp,[shifttabletable+di] ;BP holds pointer to shift table\r
-\r
- mov di,OFFSET databuffer\r
- add di,[bufferbyte] ;DI holds pointer to buffer\r
-\r
- mov cx,[bufferbit]\r
- add cx,si ;new bit position\r
- mov ax,cx\r
- and ax,7\r
- mov [bufferbit],ax ;new bit position\r
- mov ax,cx\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1\r
- add [bufferbyte],ax ;new byte position\r
-\r
- add si,7\r
- shr si,1\r
- shr si,1\r
- shr si,1 ;bytes the character is wide\r
- shl si,1 ;*2 to look up in shiftdrawtable\r
-\r
- mov cx,[es:pcharheight]\r
- mov dx,BUFFWIDTH\r
- jmp [ss:mshiftdrawtable+si] ;procedure to draw this width\r
-\r
-;\r
-; one byte character\r
-;\r
-mshift1wide:\r
- dec dx\r
-\r
-EVEN\r
-@@loop1m:\r
- SHIFTWITHXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop1m\r
-\r
- mov cx,[es:pcharheight]\r
-\r
-EVEN\r
-@@loop1:\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop1\r
-\r
- ret\r
-\r
-;\r
-; two byte character\r
-;\r
-mshift2wide:\r
- dec dx\r
- dec dx\r
-EVEN\r
-@@loop2m:\r
- SHIFTWITHXOR\r
- SHIFTWITHXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop2m\r
-\r
- mov cx,[es:pcharheight]\r
-\r
-EVEN\r
-@@loop2:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop2\r
-\r
- ret\r
-\r
-;\r
-; three byte character\r
-;\r
-mshift3wide:\r
- sub dx,3\r
-EVEN\r
-@@loop3m:\r
- SHIFTWITHXOR\r
- SHIFTWITHXOR\r
- SHIFTWITHXOR\r
- add di,dx ; next line in buffer\r
-\r
- loop @@loop3m\r
-\r
- mov cx,[es:pcharheight]\r
-\r
-EVEN\r
-@@loop3:\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- SHIFTNOXOR\r
- add di,dx ; next line in buffer\r
- loop @@loop3\r
-\r
- ret\r
-\r
-\r
-ENDP\r
-\r
-;============================================================================\r
-\r
-;==================\r
-;\r
-; VW_DrawMPropString\r
-;\r
-; Draws a C string of characters at px/py and advances px\r
-;\r
-; Assumes write mode 0\r
-;\r
-;==================\r
-\r
-\r
-\r
-PROC VW_DrawMPropString string:DWORD\r
-PUBLIC VW_DrawMPropString\r
-USES SI,DI\r
-\r
-;\r
-; clear out the first byte of the buffer, the rest will automatically be\r
-; cleared as characters are drawn into it\r
-;\r
- mov si,[fontnumber]\r
- shl si,1\r
- mov es,[grsegs+STARTFONTM*2+si]\r
- mov dx,[es:pcharheight]\r
- mov di,OFFSET databuffer\r
- mov ax,ds\r
- mov es,ax\r
- mov bx,BUFFWIDTH-1\r
-\r
- mov cx,dx\r
- mov al,0ffh\r
-@@maskfill:\r
- stosb ; fill the mask part with $ff\r
- add di,bx\r
- loop @@maskfill\r
-\r
- mov cx,dx\r
- xor al,al\r
-@@datafill:\r
- stosb ; fill the data part with $0\r
- add di,bx\r
- loop @@datafill\r
-\r
-;\r
-; shift the characters into the buffer\r
-;\r
- mov ax,[px]\r
- and ax,7\r
- mov [bufferbit],ax\r
- mov [bufferbyte],0\r
-\r
- mov ax,[WORD string]\r
- mov [stringptr],ax\r
- mov ax,[WORD string+2]\r
- mov [stringptr+2],ax\r
-\r
-@@shiftone:\r
- mov es,[stringptr+2]\r
- mov bx,[stringptr]\r
- inc [stringptr]\r
- mov bx,[es:bx]\r
- xor bh,bh\r
- or bl,bl\r
- jz @@allshifted\r
- call ShiftMPropChar\r
- jmp @@shiftone\r
-\r
-@@allshifted:\r
-;\r
-; calculate position to draw buffer on screen\r
-;\r
- mov bx,[py]\r
- shl bx,1\r
- mov di,[ylookup+bx]\r
- add di,[bufferofs]\r
- add di,[panadjust]\r
-\r
- mov ax,[px]\r
- shr ax,1\r
- shr ax,1\r
- shr ax,1 ;x location in bytes\r
- add di,ax\r
- mov [screenspot],di\r
-\r
-;\r
-; advance px\r
-;\r
- mov ax,[bufferbyte]\r
- shl ax,1\r
- shl ax,1\r
- shl ax,1\r
- or ax,[bufferbit]\r
- add [px],ax\r
-\r
-;\r
-; draw it\r
-;\r
- mov ax,[bufferbyte]\r
- test [bufferbit],7\r
- jz @@go\r
- inc ax ;so the partial byte also gets drawn\r
-@@go:\r
- mov [bufferwidth],ax\r
- mov es,[grsegs+STARTFONTM*2]\r
- mov ax,[es:pcharheight]\r
- mov [bufferheight],ax\r
-\r
-; set AND mode to punch out the mask\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE + 8*256\r
- WORDOUT\r
-\r
-; set mapmask to all\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK + 15*256\r
- WORDOUT\r
-\r
- mov si,OFFSET databuffer\r
- call BufferToScreen\r
-\r
-; set OR mode to fill in the color\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE + 16*256\r
- WORDOUT\r
-\r
-; set mapmask to color\r
- mov dx,SC_INDEX\r
- mov al,SC_MAPMASK\r
- mov ah,[fontcolor]\r
- WORDOUT\r
-\r
- call BufferToScreen ; SI is still in the right position in buffer\r
-\r
-; set copy mode\r
- mov dx,GC_INDEX\r
- mov ax,GC_DATAROTATE\r
- WORDOUT\r
-\r
-; set mapmask to all\r
- mov dx,SC_INDEX\r
- mov ax,SC_MAPMASK + 15*256\r
- WORDOUT\r
-\r
-\r
- ret\r
-\r
-ENDP\r
-\r
-endif ; if numfontm\r
-\r
-endif ; if fonts\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __AUDIO_H__\r
-#define __AUDIO_H__\r
-\r
-//#include "VERSION.H"\r
-\r
-/////////////////////////////////////////////////\r
-//\r
-// MUSE Header for .CK4\r
-//\r
-/////////////////////////////////////////////////\r
-\r
-#define NUMSOUNDS LASTSOUND\r
-#define NUMSNDCHUNKS ((3*LASTSOUND)+LASTMUSIC)\r
-\r
-//\r
-// Sound names & indexes\r
-//\r
-typedef enum {\r
- SND_WORLDWALK1,\r
- SND_WORLDWALK2,\r
- SND_JUMP,\r
- SND_LAND,\r
- SND_KEENFIRE,\r
- SND_WORMOUTHATTACK,\r
- SND_6,\r
- SND_POGOBOUNCE,\r
- SND_GETPOINTS,\r
- SND_GETAMMO,\r
- SND_GETWATER,\r
- SND_11,\r
- SND_ENTERLEVEL,\r
- SND_LEVELDONE,\r
- SND_NOWAY,\r
- SND_HELMETHIT,\r
- SND_BOUNCE2,\r
- SND_EXTRAKEEN,\r
- SND_OPENDOOR,\r
- SND_GETKEY,\r
- SND_PLUMMET,\r
- SND_USESWITCH,\r
- SND_SQUISH,\r
- SND_KEENDEAD,\r
- SND_24,\r
- SND_SHOTEXPLODE,\r
- SND_SWIM1,\r
- SND_SWIM2,\r
- SND_BOUNCE1,\r
- SND_EATBONUS,\r
- SND_TREASUREEATERVANISH,\r
- SND_LINDSEY,\r
- SND_LICKATTACK,\r
- SND_BERKELOIDATTACK,\r
- SND_SHOWSTATUS,\r
- SND_HIDESTATUS,\r
- SND_BLUB,\r
- SND_MINEEXPLODE,\r
- SND_SPRITEFIRE,\r
- SND_THUNDER,\r
- SND_FIREBALLLAND,\r
- SND_SHOOTDART,\r
- SND_BURP,\r
- SND_FLAGSPIN,\r
- SND_FLAGLAND,\r
- SND_MAKEFOOT,\r
- SND_SLUGPOO,\r
- KEENPADDLESND,\r
- BALLBOUNCESND,\r
- COMPPADDLESND,\r
- COMPSCOREDSND,\r
- KEENSCOREDSND,\r
- LASTSOUND\r
-} soundnames;\r
-\r
-#if LASTSOUND != 52\r
-#error bad sound enum!\r
-#endif\r
-\r
-#define NOWAYSND SND_NOWAY\r
-\r
-//\r
-// Base offsets\r
-//\r
-#define STARTPCSOUNDS 0\r
-#define STARTADLIBSOUNDS (STARTPCSOUNDS+NUMSOUNDS)\r
-#define STARTDIGISOUNDS (STARTADLIBSOUNDS+NUMSOUNDS)\r
-#define STARTMUSIC (STARTDIGISOUNDS+NUMSOUNDS)\r
-\r
-//\r
-// Music names & indexes\r
-//\r
-typedef enum {\r
- SHADOWS_MUS,\r
- VEGGIES_MUS,\r
- TOOHOT_MUS,\r
- OASIS_MUS,\r
- KICKPANT_MUS,\r
- WONDER_MUS,\r
- LASTMUSIC\r
-} musicnames;\r
-\r
-/////////////////////////////////////////////////\r
-//\r
-// Thanks for playing with MUSE!\r
-//\r
-/////////////////////////////////////////////////\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-;=====================================\r
-;\r
-; Graphics .EQU file for .CK4\r
-; not IGRAB-ed :)\r
-;\r
-;=====================================\r
-\r
-;INCLUDE "VERSION.EQU"\r
-\r
-;\r
-; Amount of each data item\r
-;\r
-NUMFONT = 3\r
-NUMFONTM = 0\r
-NUMPICM = 3\r
-NUMTILE8 = 108\r
-NUMTILE8M = 36\r
-NUMTILE32 = 0\r
-NUMTILE32M = 0\r
-\r
-;\r
-; Amount of each item in episode 4\r
-;\r
-NUMPICS = 115\r
-NUMSPRITES = 397\r
-NUMTILE16 = 1296\r
-NUMTILE16M = 2916\r
-NUMEXTERN = 16\r
-\r
-\r
-;\r
-; File offsets for data items\r
-;\r
-STRUCTPIC = 0\r
-STRUCTPICM = 1\r
-STRUCTSPRITE = 2\r
-\r
-STARTFONT = 3\r
-STARTFONTM = (STARTFONT+NUMFONT)\r
-STARTPICS = (STARTFONTM+NUMFONTM)\r
-STARTPICM = (STARTPICS+NUMPICS)\r
-STARTSPRITES = (STARTPICM+NUMPICM)\r
-STARTTILE8 = (STARTSPRITES+NUMSPRITES)\r
-STARTTILE8M = (STARTTILE8+1)\r
-STARTTILE16 = (STARTTILE8M+1)\r
-STARTTILE16M = (STARTTILE16+NUMTILE16)\r
-STARTTILE32 = (STARTTILE16M+NUMTILE16M)\r
-STARTTILE32M = (STARTTILE32+NUMTILE32)\r
-STARTEXTERN = (STARTTILE32M+NUMTILE32M)\r
-\r
-NUMCHUNKS = (STARTEXTERN+NUMEXTERN)\r
-\r
-;\r
-; Thank you for using IGRAB!\r
-;\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __GFX_H__\r
-#define __GFX_H__\r
-\r
-//#include "VERSION.H"\r
-\r
-//////////////////////////////////////\r
-//\r
-// Graphics .H file for .CK4\r
-// not IGRAB-ed :)\r
-//\r
-//////////////////////////////////////\r
-\r
-//\r
-// Lump creation macros\r
-//\r
-\r
-#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1,\r
-#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1,\r
-\r
-//\r
-// Amount of each data item\r
-//\r
-\r
-//common numbers:\r
-#define NUMCHUNKS NUMGRCHUNKS\r
-#define NUMFONT 3\r
-#define NUMFONTM 0\r
-#define NUMPICM 3\r
-#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH!\r
-#define NUMTILE8M 36 // BUG: only 20 tiles exist in EGAGRAPH!\r
-#define NUMTILE32 0\r
-#define NUMTILE32M 0\r
-\r
-//episode-specific numbers:\r
-#define NUMPICS 115\r
-#define NUMSPRITES 397\r
-#define NUMTILE16 1296\r
-#define NUMTILE16M 2916\r
-#define NUMEXTERNS 16\r
-\r
-//\r
-// File offsets for data items\r
-//\r
-#define STRUCTPIC 0\r
-#define STRUCTPICM 1\r
-#define STRUCTSPRITE 2\r
-\r
-#define STARTFONT 3\r
-#define STARTFONTM (STARTFONT+NUMFONT)\r
-#define STARTPICS (STARTFONTM+NUMFONTM)\r
-#define STARTPICM (STARTPICS+NUMPICS)\r
-#define STARTSPRITES (STARTPICM+NUMPICM)\r
-#define STARTTILE8 (STARTSPRITES+NUMSPRITES)\r
-#define STARTTILE8M (STARTTILE8+1)\r
-#define STARTTILE16 (STARTTILE8M+1)\r
-#define STARTTILE16M (STARTTILE16+NUMTILE16)\r
-#define STARTTILE32 (STARTTILE16M+NUMTILE16M)\r
-#define STARTTILE32M (STARTTILE32+NUMTILE32)\r
-#define STARTEXTERNS (STARTTILE32M+NUMTILE32M)\r
-\r
-typedef enum {\r
- LASTFONT=STARTPICS-1,\r
-\r
- //\r
- // PICS\r
- //\r
-\r
- H_HELPPIC, // 6\r
- H_LARROWPIC, // 7\r
- H_RARROWPIC, // 8\r
- H_ESCPIC, // 9\r
- H_ENTERPIC, // 10\r
- DUMMYPIC, // 11\r
- H_STORY1PIC, // 12\r
- H_STORY2PIC, // 13\r
- H_STORY3PIC, // 14\r
- H_STORY4PIC, // 15\r
- STORY5PIC, // 16\r
- STORY6PIC, // 17\r
- STORY7PIC, // 18\r
- STORY8PIC, // 19\r
- ITEM1PIC, // 20\r
- ITEM2PIC, // 21\r
- ITEM3PIC, // 22\r
- ITEM4PIC, // 23\r
- ITEM5PIC, // 24\r
- ITEM6PIC, // 25\r
- ITEM7PIC, // 26\r
- ITEM8PIC, // 27\r
- ITEM9PIC, // 28\r
- ARACHNUTPIC, // 29\r
- BERKELOISPIC, // 30\r
- BOUNDERPIC, // 31\r
- COUNCILMEMBERPIC, // 32\r
- DOPEFISHPIC, // 33\r
- INCHWORMPIC, // 34\r
- LICKPIC, // 35\r
- MADMUSHROOMPIC, // 36\r
- POISONSLIGPIC, // 37\r
- PRINCESSLINDSEYPIC, // 38\r
- SCHOOLFISHPIC, // 39\r
- SKYPESTPIC, // 40\r
- SPRITEPIC, // 41\r
- WORMOUTHPIC, // 42\r
- ENDOFTEXTPIC, // 43\r
- H_MCPIC, // 44\r
- H_HANDPIC, // 45\r
- H_VISAPIC, // 46\r
- H_FLASHARROW1PIC, // 47\r
- H_FLASHARROW2PIC, // 48\r
- ENDINDG1PIC, // 49\r
- ENDINDG2PIC, // 50\r
- ENDINDG3PIC, // 51\r
- ENDINDG4PIC, // 52\r
- ENDINDG5PIC, // 53\r
- ENDINDG6PIC, // 54\r
- ENDINDG7PIC, // 55\r
- ENDINDG8PIC, // 56\r
- ENDINDG9PIC, // 57\r
- ENDINDG10PIC, // 58\r
- ENDINDG11PIC, // 59\r
- ENDINDG12PIC, // 60\r
- ENDINDG13PIC, // 61\r
- ENDINDG14PIC, // 62\r
- ENDINDG15PIC, // 63\r
- ENDINDG16PIC, // 64\r
- ENDINDG17PIC, // 65\r
- ENDINDG18PIC, // 66\r
- ENDINDG19PIC, // 67\r
- ENDINDG20PIC, // 68\r
- ENDINDG21PIC, // 69\r
- ENDINDG22PIC, // 70\r
- ENDINDG23PIC, // 71\r
- ENDINDG24PIC, // 72\r
- ENDINDG25PIC, // 73\r
- ENDINDG26PIC, // 74\r
- ENDINDG27PIC, // 75\r
- ENDINDG28PIC, // 76\r
- ENDINDG29PIC, // 77\r
- ENDINDG30PIC, // 78\r
- H_IDLOGOPIC, // 79\r
- H_TOPWINDOWPIC, // 80\r
- H_LEFTWINDOWPIC, // 81\r
- H_RIGHTWINDOWPIC, // 82\r
- H_BOTTOMINFOPIC, // 83\r
- H_BOTTOMWINDOWPIC, // 84\r
- H_BARPIC, // 85\r
- H_KEEN5PIC, // 86\r
- H_KEEN6PIC, // 87\r
-\r
- START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART)\r
- CP_MAINMENUPIC, // 88\r
- CP_NEWGAMEMENUPIC, // 89\r
- CP_LOADMENUPIC, // 90\r
- CP_SAVEMENUPIC, // 91\r
- CP_CONFIGMENUPIC, // 92\r
- CP_SOUNDMENUPIC, // 93\r
- CP_MUSICMENUPIC, // 94\r
- CP_KEYBOARDMENUPIC, // 95\r
- CP_KEYMOVEMENTPIC, // 96\r
- CP_KEYBUTTONPIC, // 97\r
- CP_JOYSTICKMENUPIC, // 98\r
- CP_OPTIONSMENUPIC, // 99\r
- CP_PADDLEWARPIC, // 100\r
- CP_QUITPIC, // 101\r
- CP_JOYSTICKPIC, // 102\r
- CP_MENUSCREENPIC, // 103\r
- END_LUMP(CONTROLS_LUMP_END, __CONTROLSEND)\r
-\r
- IDSOFTPIC, // 104\r
- PROGTEAMPIC, // 105\r
- ARTISTPIC, // 106\r
- DIRECTORPIC, // 107\r
- SW_BACKGROUNDPIC, // 108\r
- TITLEPICPIC, // 109\r
- ORACLEPIC, // 110\r
- KEENTALK1PIC, // 111\r
- KEENTALK2PIC, // 112\r
- KEENMADPIC, // 113\r
- LINDSEYPIC, // 114\r
- KEENCOUNT1PIC, // 115\r
- KEENCOUNT2PIC, // 116\r
- KEENCOUNT3PIC, // 117\r
- KEENCOUNT4PIC, // 118\r
- KEENCOUNT5PIC, // 119\r
- KEENCOUNT6PIC, // 120\r
-\r
- //\r
- // MASKED PICS\r
- //\r
-\r
- CP_MENUMASKPICM, // 121\r
- CORDPICM, // 122\r
- METALPOLEPICM, // 123\r
-\r
- //\r
- // SPRITES\r
- //\r
-\r
- START_LUMP(PADDLE_LUMP_START, __PADDLESTART)\r
- PADDLESPR, // 124\r
- BALLSPR, // 125\r
- BALL1PIXELTOTHERIGHTSPR, // 126\r
- BALL2PIXELSTOTHERIGHTSPR, // 127\r
- BALL3PIXELSTOTHERIGHTSPR, // 128\r
- END_LUMP(PADDLE_LUMP_END, __PADDLEEND)\r
-\r
- DEMOPLAQUESPR, // 129\r
-\r
- //player lump:\r
- START_LUMP(KEEN_LUMP_START, __KEENSTART)\r
- KEENSTANDRSPR, // 130\r
- KEENRUNR1SPR, // 131\r
- KEENRUNR2SPR, // 132\r
- KEENRUNR3SPR, // 133\r
- KEENRUNR4SPR, // 134\r
- KEENJUMPR1SPR, // 135\r
- KEENJUMPR2SPR, // 136\r
- KEENJUMPR3SPR, // 137\r
- KEENSTANDLSPR, // 138\r
- KEENRUNL1SPR, // 139\r
- KEENRUNL2SPR, // 140\r
- KEENRUNL3SPR, // 141\r
- KEENRUNL4SPR, // 142\r
- KEENJUMPL1SPR, // 143\r
- KEENJUMPL2SPR, // 144\r
- KEENJUMPL3SPR, // 145\r
- KEENLOOKUSPR, // 146\r
- KEENWAITR1SPR, // 147\r
- KEENWAITR2SPR, // 148\r
- KEENWAITR3SPR, // 149\r
- KEENSITREAD1SPR, // 150\r
- KEENSITREAD2SPR, // 151\r
- KEENSITREAD3SPR, // 152\r
- KEENSITREAD4SPR, // 153\r
- KEENREAD1SPR, // 154\r
- KEENREAD2SPR, // 155\r
- KEENREAD3SPR, // 156\r
- KEENSTOPREAD1SPR, // 157\r
- KEENSTOPREAD2SPR, // 158\r
- KEENWATCHSPR, // 159\r
- KEENLOOKD1SPR, // 160\r
- KEENLOOKD2SPR, // 161\r
- KEENDIE1SPR, // 162\r
- KEENDIE2SPR, // 163\r
- STUNSTARS1SPR, // 164\r
- STUNSTARS2SPR, // 165\r
- STUNSTARS3SPR, // 166\r
- KEENSHOOTLSPR, // 167\r
- KEENJLSHOOTLSPR, // 168\r
- KEENJSHOOTDSPR, // 169\r
- KEENJSHOOTUSPR, // 170\r
- KEENSHOOTUSPR, // 171\r
- KEENSHOOTRSPR, // 172\r
- KEENJRSHOOTRSPR, // 173\r
- STUN1SPR, // 174\r
- STUN2SPR, // 175\r
- STUN3SPR, // 176\r
- STUN4SPR, // 177\r
- STUNHIT1SPR, // 178\r
- STUNHIT2SPR, // 179\r
- KEENSHINNYR1SPR, // 180\r
- KEENSHINNYR2SPR, // 181\r
- KEENSHINNYR3SPR, // 182\r
- KEENSLIDED1SPR, // 183\r
- KEENSLIDED2SPR, // 184\r
- KEENSLIDED3SPR, // 185\r
- KEENSLIDED4SPR, // 186\r
- KEENSHINNYL1SPR, // 187\r
- KEENSHINNYL2SPR, // 188\r
- KEENSHINNYL3SPR, // 189\r
- KEENPLSHOOTUSPR, // 190\r
- KEENPRSHOOTUSPR, // 191\r
- KEENPRSHOOTDSPR, // 192\r
- KEENPLSHOOTDSPR, // 193\r
- KEENPSHOOTLSPR, // 194\r
- KEENPSHOOTRSPR, // 195\r
- KEENENTER1SPR, // 196\r
- KEENENTER2SPR, // 197\r
- KEENENTER3SPR, // 198\r
- KEENENTER4SPR, // 199\r
- KEENENTER5SPR, // 200\r
- KEENHANGLSPR, // 201\r
- KEENHANGRSPR, // 202\r
- KEENCLIMBEDGEL1SPR, // 203\r
- KEENCLIMBEDGEL2SPR, // 204\r
- KEENCLIMBEDGEL3SPR, // 205\r
- KEENCLIMBEDGEL4SPR, // 206\r
- KEENCLIMBEDGER1SPR, // 207\r
- KEENCLIMBEDGER2SPR, // 208\r
- KEENCLIMBEDGER3SPR, // 209\r
- KEENCLIMBEDGER4SPR, // 210\r
- KEENPOGOR1SPR, // 211\r
- KEENPOGOR2SPR, // 212\r
- KEENPOGOL1SPR, // 213\r
- KEENPOGOL2SPR, // 214\r
- DROPSPLASH1SPR, // 215\r
- DROPSPLASH2SPR, // 216\r
- DROPSPLASH3SPR, // 217\r
- BONUS100UPSPR, // 218\r
- BONUS100SPR, // 219\r
- BONUS200SPR, // 220\r
- BONUS500SPR, // 221\r
- BONUS1000SPR, // 222\r
- BONUS2000SPR, // 223\r
- BONUS5000SPR, // 224\r
- BONUS1UPSPR, // 225\r
- BONUSCLIPSPR, // 226\r
- END_LUMP(KEEN_LUMP_END, __KEENEND)\r
-\r
- START_LUMP(SUGAR1_LUMP_START, __SUGAR1START)\r
- SUGAR1ASPR, // 227\r
- SUGAR1BSPR, // 228\r
- END_LUMP(SUGAR1_LUMP_END, __SUGAR1END)\r
-\r
- START_LUMP(SUGAR2_LUMP_START, __SUGAR2START)\r
- SUGAR2ASPR, // 229\r
- SUGAR2BSPR, // 230\r
- END_LUMP(SUGAR2_LUMP_END, __SUGAR2END)\r
-\r
- START_LUMP(SUGAR3_LUMP_START, __SUGAR3START)\r
- SUGAR3ASPR, // 231\r
- SUGAR3BSPR, // 232\r
- END_LUMP(SUGAR3_LUMP_END, __SUGAR3END)\r
-\r
- START_LUMP(SUGAR4_LUMP_START, __SUGAR4START)\r
- SUGAR4ASPR, // 233\r
- SUGAR4BSPR, // 234\r
- END_LUMP(SUGAR4_LUMP_END, __SUGAR4END)\r
-\r
- START_LUMP(SUGAR5_LUMP_START, __SUGAR5START)\r
- SUGAR5ASPR, // 235\r
- SUGAR5BSPR, // 236\r
- END_LUMP(SUGAR5_LUMP_END, __SUGAR5END)\r
-\r
- START_LUMP(SUGAR6_LUMP_START, __SUGAR6START)\r
- SUGAR6ASPR, // 237\r
- SUGAR6BSPR, // 238\r
- END_LUMP(SUGAR6_LUMP_END, __SUGAR6END)\r
-\r
- START_LUMP(ONEUP_LUMP_START, __ONEUPSTART)\r
- ONEUPASPR, // 239\r
- ONEUPBSPR, // 240\r
- END_LUMP(ONEUP_LUMP_END, __ONEUPEND)\r
-\r
- DOORSPR, // 241\r
-\r
- START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART)\r
- REDGEM1SPR, // 242\r
- REDGEM2SPR, // 243\r
- YELLOWGEM1SPR, // 244\r
- YELLOWGEM2SPR, // 245\r
- BLUEGEM1SPR, // 246\r
- BLUEGEM2SPR, // 247\r
- GREENGEM1SPR, // 248\r
- GREENGEM2SPR, // 249\r
- BONUSGEMSPR, // 250\r
- END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND)\r
-\r
- START_LUMP(AMMO_LUMP_START, __AMMOSTART)\r
- STUNCLIP1SPR, // 251\r
- STUNCLIP2SPR, // 252\r
- END_LUMP(AMMO_LUMP_END, __AMMOEND)\r
-\r
- SCOREBOXSPR, // 253\r
-\r
- START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART)\r
- WORLDKEENL1SPR, // 254\r
- WORLDKEENL2SPR, // 255\r
- WORLDKEENL3SPR, // 256\r
- WORLDKEENR1SPR, // 257\r
- WORLDKEENR2SPR, // 258\r
- WORLDKEENR3SPR, // 259\r
- WORLDKEENU1SPR, // 260\r
- WORLDKEENU2SPR, // 261\r
- WORLDKEENU3SPR, // 262\r
- WORLDKEEND1SPR, // 263\r
- WORLDKEEND2SPR, // 264\r
- WORLDKEEND3SPR, // 265\r
- WORLDKEENDR1SPR, // 266\r
- WORLDKEENDR2SPR, // 267\r
- WORLDKEENDR3SPR, // 268\r
- WORLDKEENDL1SPR, // 269\r
- WORLDKEENDL2SPR, // 270\r
- WORLDKEENDL3SPR, // 271\r
- WORLDKEENUL1SPR, // 272\r
- WORLDKEENUL2SPR, // 273\r
- WORLDKEENUL3SPR, // 274\r
- WORLDKEENUR1SPR, // 275\r
- WORLDKEENUR2SPR, // 276\r
- WORLDKEENUR3SPR, // 277\r
- WORLDKEENWAVE1SPR, // 278\r
- WORLDKEENWAVE2SPR, // 279\r
- WORLDKEENSWIMU1SPR, // 280\r
- WORLDKEENSWIMU2SPR, // 281\r
- WORLDKEENSWIMR1SPR, // 282\r
- WORLDKEENSWIMR2SPR, // 283\r
- WORLDKEENSWIMD1SPR, // 284\r
- WORLDKEENSWIMD2SPR, // 285\r
- WORLDKEENSWIML1SPR, // 286\r
- WORLDKEENSWIML2SPR, // 287\r
- WORLDKEENSWIMUR1SPR, // 288\r
- WORLDKEENSWIMUR2SPR, // 289\r
- WORLDKEENSWIMDR1SPR, // 290\r
- WORLDKEENSWIMDR2SPR, // 291\r
- WORLDKEENSWIMDL1SPR, // 292\r
- WORLDKEENSWIMDL2SPR, // 293\r
- WORLDKEENSWIMUL1SPR, // 294\r
- WORLDKEENSWIMUL2SPR, // 295\r
- WOLRDKEENRIDE1SPR, // 296\r
- WOLRDKEENRIDE2SPR, // 297\r
- FLAGFLIP1SPR, // 298\r
- FLAGFLIP2SPR, // 299\r
- FLAGFLIP3SPR, // 300\r
- FLAGFLIP4SPR, // 301\r
- FLAGFLIP5SPR, // 302\r
- FLAGFALL1SPR, // 303\r
- FLAGFALL2SPR, // 304\r
- FLAGFLAP1SPR, // 305\r
- FLAGFLAP2SPR, // 306\r
- FLAGFLAP3SPR, // 307\r
- FLAGFLAP4SPR, // 308\r
- END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND)\r
-\r
- START_LUMP(SCUBAKEEN_LUMP_START, __SCUBAKEENSTART)\r
- SCUBAKEENL1SPR, // 309\r
- SCUBAKEENL2SPR, // 310\r
- SCUBAKEENR1SPR, // 311\r
- SCUBAKEENR2SPR, // 312\r
- SCUBAKEENDEAD1SPR, // 313\r
- SCUBAKEENDEAD2SPR, // 314\r
- END_LUMP(SCUBAKEEN_LUMP_END, __SCUBAKEENEND)\r
-\r
- START_LUMP(SLUG_LUMP_START, __SLUGSTART)\r
- SLUGWALKR1SPR, // 315\r
- SLUGWALKR2SPR, // 316\r
- SLUGPISSRSPR, // 317\r
- SLUGSTUN1SPR, // 318\r
- SLUGSTUN2SPR, // 319\r
- SLUGWALKL1SPR, // 320\r
- SLUGWALKL2SPR, // 321\r
- SLUGPISSLSPR, // 322\r
- SLUGSLIME1SPR, // 323\r
- SLUGSLIME2SPR, // 324\r
- END_LUMP(SLUG_LUMP_END, __SLUGEND)\r
-\r
- START_LUMP(MADMUSHROOM_LUMP_START, __MADMUSHROOMSTART)\r
- MADMUSHROOML1SPR, // 325\r
- MADMUSHROOML2SPR, // 326\r
- MADMUSHROOMR1SPR, // 327\r
- MADMUSHROOMR2SPR, // 328\r
- END_LUMP(MADMUSHROOM_LUMP_END, __MADMUSHROOMEND)\r
-\r
- START_LUMP(LINDSEY_LUMP_START, __LINDSEYSTART)\r
- LINDSEY1SPR, // 329\r
- LINDSEY2SPR, // 330\r
- LINDSEY3SPR, // 331\r
- LINDSEY4SPR, // 332\r
- END_LUMP(LINDSEY_LUMP_END, __LINDSEYEND)\r
-\r
- START_LUMP(INCHWORM_LUMP_START, __INCHWORMSTART)\r
- INCHWORMR1SPR, // 333\r
- INCHWORMR2SPR, // 334\r
- INCHWORML1SPR, // 335\r
- INCHWORML2SPR, // 336\r
- FOOTSPR, // 337\r
- END_LUMP(INCHWORM_LUMP_END, __INCHWORMEND)\r
-\r
- START_LUMP(EATER_LUMP_START, __EATERSTART)\r
- EATERSTAND1SPR, // 338\r
- EATERSTAND2SPR, // 339\r
- EATERJUMPR1SPR, // 340\r
- EATERJUMPR2SPR, // 341\r
- EATERJUMPR3SPR, // 342\r
- EATERJUMPL1SPR, // 343\r
- EATERJUMPL2SPR, // 344\r
- EATERJUMPL3SPR, // 345\r
- EATENBONUS1SPR, // 346\r
- EATENBONUS2SPR, // 347\r
- EATENBONUS3SPR, // 348\r
- EATENBONUS4SPR, // 349\r
- SMOKE1SPR, // 350\r
- SMOKE2SPR, // 351\r
- SMOKE3SPR, // 352\r
- SMOKE4SPR, // 353\r
- SMOKE5SPR, // 354\r
- EATERSTUNSPR, // 355\r
- END_LUMP(EATER_LUMP_END, __EATEREND)\r
-\r
- START_LUMP(COUNCIL_LUMP_START, __COUINCILSTART)\r
- COUNCILWALKR1SPR, // 356\r
- COUNCILWALKR2SPR, // 357\r
- COUNCILWALKL1SPR, // 358\r
- COUNCILWALKL2SPR, // 359\r
- COUNCILTHINKLSPR, // 360\r
- COUNCILTHINKRSPR, // 361\r
- END_LUMP(COUNCIL_LUMP_END, __COUNCILEND)\r
-\r
- START_LUMP(EGG_LUMP_START, __EGGSTART)\r
- EGGSPR, // 362\r
- EGGBROKESPR, // 363\r
- EGGCHIP1SPR, // 364\r
- EGGCHIP2SPR, // 365\r
- EGGCHIP3SPR, // 366\r
- END_LUMP(EGG_LUMP_END, __EGGEND)\r
-\r
- START_LUMP(EGGBIRD_LUMP_START, __EGGBIRDSTART)\r
- BIRDWALKR1SPR, // 367\r
- BIRDWALKR2SPR, // 368\r
- BIRDWALKR3SPR, // 369\r
- BIRDWALKR4SPR, // 370\r
- BIRDWALKL1SPR, // 371\r
- BIRDWALKL2SPR, // 372\r
- BIRDWALKL3SPR, // 373\r
- BIRDWALKL4SPR, // 374\r
- BIRDFLY1SPR, // 375\r
- BIRDFLY2SPR, // 376\r
- BIRDFLY3SPR, // 377\r
- BIRDFLY4SPR, // 378\r
- BIRDSTUNSPR, // 379\r
- END_LUMP(EGGBIRD_LUMP_END, __EGGBIRDEND)\r
-\r
- START_LUMP(DARTS_LUMP_START, __DARTSSTART)\r
- DARTU1SPR, // 380\r
- DARTU2SPR, // 381\r
- DARTD1SPR, // 382\r
- DARTD2SPR, // 383\r
- DARTR1SPR, // 384\r
- DARTR2SPR, // 385\r
- DARTL1SPR, // 386\r
- DARTL2SPR, // 387\r
- END_LUMP(DARTS_LUMP_END, __DARTSEND)\r
-\r
- START_LUMP(MIMROCK_LUMP_START, __MIMROCKSTART)\r
- MIMROCKSPR, // 388\r
- MIMROCKWALKL1SPR, // 389\r
- MIMROCKWALKL2SPR, // 390\r
- MIMROCKWALKL3SPR, // 391\r
- MIMROCKWALKL4SPR, // 392\r
- MIMROCKWALKR1SPR, // 393\r
- MIMROCKWALKR2SPR, // 394\r
- MIMROCKWALKR3SPR, // 395\r
- MIMROCKWALKR4SPR, // 396\r
- MIMROCKJUMPR1SPR, // 397\r
- MIMROCKJUMPR2SPR, // 398\r
- MIMROCKJUMPR3SPR, // 399\r
- MIMROCKJUMPL1SPR, // 400\r
- MIMROCKJUMPL2SPR, // 401\r
- MIMROCKJUMPL3SPR, // 402\r
- MINROCKSTUNSPR, // 403\r
- END_LUMP(MIMROCK_LUMP_END, __MIMROCKEND)\r
-\r
- START_LUMP(DOPEFISH_LUMP_START, __DOPEFISHSTART)\r
- DOPEFISHSWIMR1SPR, // 404\r
- DOPEFISHSWIMR2SPR, // 405\r
- DOPEFISHHUNGRYRSPR, // 406\r
- DOPEFISHBURP1SPR, // 407\r
- DOPEFISHBURP2SPR, // 408\r
- BIGBUBBLE1SPR, // 409\r
- BIGBUBBLE2SPR, // 410\r
- BIGBUBBLE3SPR, // 411\r
- BIGBUBBLE4SPR, // 412\r
- SMALLBUBBLE1SPR, // 413\r
- SMALLBUBBLE2SPR, // 414\r
- SMALLBUBBLE3SPR, // 415\r
- SMALLBUBBLE4SPR, // 416\r
- MEDIUMBUBBLESPR, // 417\r
- DOPEFISHSWIML1SPR, // 418\r
- DOPEFISHSWIML2SPR, // 419\r
- DOPEFISHHUNGRYLSPR, // 420\r
- END_LUMP(DOPEFISH_LUMP_END, __DOPEFISHEND)\r
-\r
- START_LUMP(SCHOOLFISH_LUMP_START, __SCHOOLFISHSTART)\r
- SCHOOLFISHL1SPR, // 421\r
- SCHOOLFISHL2SPR, // 422\r
- SCHOOLFISHR1SPR, // 423\r
- SCHOOLFISHR2SPR, // 424\r
- END_LUMP(SCHOOLFISH_LUMP_END, __SCHOOLFISHEND)\r
-\r
- START_LUMP(ARACHNUT_LUMP_START, __ARACHNUTSTART)\r
- ARACHNUTWALK1SPR, // 425\r
- ARACHNUTWALK2SPR, // 426\r
- ARACHNUTWALK3SPR, // 427\r
- ARACHNUTWALK4SPR, // 428\r
- ARACHNUTSTUNSPR, // 429\r
- END_LUMP(ARACHNUT_LUMP_END, __ARACHNUTEND)\r
-\r
- SCUBASPR, // 430\r
-\r
- START_LUMP(SPRITE_LUMP_START, __SPRITESTART)\r
- SPRITEFLOATSPR, // 431\r
- SPRITEAIMLSPR, // 432\r
- SPRITESHOOTLSPR, // 433\r
- SPRITEAIMRSPR, // 434\r
- SPRITESHOOTRSPR, // 435\r
- SPRITESHOT1SPR, // 436\r
- SPRITESHOT2SPR, // 437\r
- SPRITESHOT3SPR, // 438\r
- SPRITESHOT4SPR, // 439\r
- END_LUMP(SPRITE_LUMP_END, __SPRITEEND)\r
-\r
- START_LUMP(MINE_LUMP_START, __MINESTART)\r
- MINESPR, // 440\r
- MINEEXPLODE1SPR, // 441\r
- MINEEXPLODE2SPR, // 442\r
- END_LUMP(MINE_LUMP_END, __MINEEND)\r
-\r
- START_LUMP(SKYPEST_LUMP_START, __SKYPESTSTART)\r
- SKYPESTFLYL1SPR, // 443\r
- SKYPESTFLYL2SPR, // 444\r
- SKYPESTFLYR1SPR, // 445\r
- SKYPESTFLYR2SPR, // 446\r
- SKYPESTSIT1SPR, // 447\r
- SKYPESTSIT2SPR, // 448\r
- SKYPESTSIT3SPR, // 449\r
- SKYPESTSIT4SPR, // 450\r
- SKYPESTSIT5SPR, // 451\r
- SKYPESTSIT6SPR, // 452\r
- SKYPESTSIT7SPR, // 453\r
- SKYPESTSIT8SPR, // 454\r
- SKYPESTSIT9SPR, // 455\r
- SKYPESTSQUASHEDSPR, // 456\r
- END_LUMP(SKYPEST_LUMP_END, __SKYPESTEND)\r
-\r
- START_LUMP(WORMOUTH_LUMP_START, __WORMOUTHSTART)\r
- WORMOUTHSPR, // 457\r
- WORMOUTHPEEKR1SPR, // 458\r
- WORMOUTHPEEKR2SPR, // 459\r
- WORMOUTHPEEKL1SPR, // 460\r
- WORMOUTHPEEKL2SPR, // 461\r
- WORMOUTHBITER1SPR, // 462\r
- WORMOUTHBITER2SPR, // 463\r
- WORMOUTHBITER3SPR, // 464\r
- WORMOUTHBITEL1SPR, // 465\r
- WORMOUTHBITEL2SPR, // 466\r
- WORMOUTHBITEL3SPR, // 467\r
- WORMOUTHSTUNSPR, // 468\r
- END_LUMP(WORMOUTH_LUMP_END, __WORMOUTHEND)\r
-\r
- START_LUMP(LICK_LUMP_START, __LICKSTART)\r
- LICKMOVER1SPR, // 469\r
- LICKMOVER2SPR, // 470\r
- LICKMOVER3SPR, // 471\r
- LICKMOVER4SPR, // 472\r
- LICKMOVEL1SPR, // 473\r
- LICKMOVEL2SPR, // 474\r
- LICKMOVEL3SPR, // 475\r
- LICKMOVEL4SPR, // 476\r
- LICKATTACKR1SPR, // 477\r
- LICKATTACKR2SPR, // 478\r
- LICKATTACKR3SPR, // 479\r
- LICKATTACKL1SPR, // 480\r
- LICKATTACKL2SPR, // 481\r
- LICKATTACKL3SPR, // 482\r
- LICKSTUNSPR, // 483\r
- END_LUMP(LICK_LUMP_END, __LICKEND)\r
-\r
- START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART)\r
- PLATFORMSPR, // 484\r
- PLATSIDETHRUST1SPR, // 485\r
- PLATSIDETHRUST2SPR, // 486\r
- PLATRTHRUST1SPR, // 487\r
- PLATRTHRUST2SPR, // 488\r
- PLATLTHRUST1SPR, // 489\r
- PLATLTHRUST2SPR, // 490\r
- END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND)\r
-\r
- START_LUMP(BOUNDER_LUMP_START, __BOUNDERSTART)\r
- BOUNDERL1SPR, // 491\r
- BOUNDERL2SPR, // 492\r
- BOUNDERR1SPR, // 493\r
- BOUNDERR2SPR, // 494\r
- BOUNDERC1SPR, // 495\r
- BOUNDERC2SPR, // 496\r
- BOUNDERSTUNSPR, // 497\r
- END_LUMP(BOUNDER_LUMP_END, __BOUNDEREND)\r
-\r
- START_LUMP(THUNDERCLOUD_LUMP_START, __THUNDERCLOUDSTART)\r
- CLOUDSPR, // 498\r
- CLOUDACTIVESPR, // 499\r
- CLOUDCHARGESPR, // 500\r
- BOLT1SPR, // 501\r
- BOLT2SPR, // 502\r
- END_LUMP(THUNDERCLOUD_LUMP_END, __THUNDERCLOUDEND)\r
-\r
- START_LUMP(BERKELOID_LUMP_START, __BERKELOIDSTART)\r
- BERKEWALKL1SPR, // 503\r
- BERKEWALKL2SPR, // 504\r
- BERKEWALKL3SPR, // 505\r
- BERKEWALKL4SPR, // 506\r
- BERKEWALKR1SPR, // 507\r
- BERKEWALKR2SPR, // 508\r
- BERKEWALKR3SPR, // 509\r
- BERKEWALKR4SPR, // 510\r
- BERKETHROWL1SPR, // 511\r
- BERKETHROWL2SPR, // 512\r
- BERKETHROWR1SPR, // 513\r
- BERKETHROWR2SPR, // 514\r
- FIREBALL1SPR, // 515\r
- FIREBALL2SPR, // 516\r
- FIREBALL3SPR, // 517\r
- FIREBALL4SPR, // 518\r
- END_LUMP(BERKELOID_LUMP_END, __BERKELOIDEND)\r
-\r
- START_LUMP(MOON_LUMP_START, __MOONSTART)\r
- KEENMOON1SPR, // 519\r
- KEENMOON2SPR, // 520\r
- END_LUMP(MOON_LUMP_END, __MOONEND)\r
-\r
- //\r
- // TILES (these don't need names)\r
- //\r
-\r
- LASTTILE=STARTEXTERNS-1,\r
-\r
- //\r
- // EXTERNS\r
- //\r
-\r
- ORDERSCREEN, // 4735\r
- BIGCOMMANDER, // 4736\r
- BIGKEEN, // 4737\r
- OUTOFMEM, // 4738\r
-\r
- //texts\r
- T_HELPART, // 4739\r
- T_STORYART, // 4740\r
- T_CONTRART, // 4741\r
- T_IDART, // 4742\r
- T_ENDART, // 4743\r
- T_DEMOART, // 4744\r
- T_ORDERART, // 4745\r
-\r
- //demos\r
- DEMO0, // 4746\r
- DEMO1, // 4747\r
- DEMO2, // 4748\r
- DEMO3, // 4749\r
- DEMO4, // 4750\r
-\r
- NUMGRCHUNKS\r
-} graphicnums;\r
-\r
-#undef START_LUMP\r
-#undef END_LUMP\r
-\r
-#endif //__GFX_H__
\ No newline at end of file
+++ /dev/null
-;\r
-; Equates for all .ASM files\r
-;\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-INCLUDE "GFXE_CK4.EQU"\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-CGAGR = 1\r
-EGAGR = 2\r
-VGAGR = 3\r
-\r
-GRMODE = EGAGR\r
-PROFILE = 0 ; 1=keep stats on tile drawing\r
-\r
-SC_INDEX = 03C4h\r
-SC_RESET = 0\r
-SC_CLOCK = 1\r
-SC_MAPMASK = 2\r
-SC_CHARMAP = 3\r
-SC_MEMMODE = 4\r
-\r
-CRTC_INDEX = 03D4h\r
-CRTC_H_TOTAL = 0\r
-CRTC_H_DISPEND = 1\r
-CRTC_H_BLANK = 2\r
-CRTC_H_ENDBLANK = 3\r
-CRTC_H_RETRACE = 4\r
-CRTC_H_ENDRETRACE = 5\r
-CRTC_V_TOTAL = 6\r
-CRTC_OVERFLOW = 7\r
-CRTC_ROWSCAN = 8\r
-CRTC_MAXSCANLINE = 9\r
-CRTC_CURSORSTART = 10\r
-CRTC_CURSOREND = 11\r
-CRTC_STARTHIGH = 12\r
-CRTC_STARTLOW = 13\r
-CRTC_CURSORHIGH = 14\r
-CRTC_CURSORLOW = 15\r
-CRTC_V_RETRACE = 16\r
-CRTC_V_ENDRETRACE = 17\r
-CRTC_V_DISPEND = 18\r
-CRTC_OFFSET = 19\r
-CRTC_UNDERLINE = 20\r
-CRTC_V_BLANK = 21\r
-CRTC_V_ENDBLANK = 22\r
-CRTC_MODE = 23\r
-CRTC_LINECOMPARE = 24\r
-\r
-\r
-GC_INDEX = 03CEh\r
-GC_SETRESET = 0\r
-GC_ENABLESETRESET = 1\r
-GC_COLORCOMPARE = 2\r
-GC_DATAROTATE = 3\r
-GC_READMAP = 4\r
-GC_MODE = 5\r
-GC_MISCELLANEOUS = 6\r
-GC_COLORDONTCARE = 7\r
-GC_BITMASK = 8\r
-\r
-ATR_INDEX = 03c0h\r
-ATR_MODE = 16\r
-ATR_OVERSCAN = 17\r
-ATR_COLORPLANEENABLE = 18\r
-ATR_PELPAN = 19\r
-ATR_COLORSELECT = 20\r
-\r
-STATUS_REGISTER_1 = 03dah\r
-\r
-\r
-MACRO WORDOUT\r
- out dx,ax\r
-ENDM\r
-\r
-if 0\r
-\r
-MACRO WORDOUT\r
- out dx,al\r
- inc dx\r
- xchg al,ah\r
- out dx,al\r
- dec dx\r
- xchg al,ah\r
-ENDM\r
-\r
-endif\r
-\r
-UPDATEWIDE = 22\r
-UPDATEHIGH = 14\r
-\r
-;\r
-; tile info offsets from segment tinf\r
-;\r
-\r
-ANIM = 402\r
-SPEED = (ANIM+NUMTILE16)\r
-\r
-NORTHWALL = (SPEED+NUMTILE16)\r
-EASTWALL = (NORTHWALL+NUMTILE16M)\r
-SOUTHWALL = (EASTWALL+NUMTILE16M)\r
-WESTWALL = (SOUTHWALL+NUMTILE16M)\r
-MANIM = (WESTWALL+NUMTILE16M)\r
-INTILE = (MANIM+NUMTILE16M)\r
-MSPEED = (INTILE+NUMTILE16M)\r
-\r
-\r
-IFE GRMODE-EGAGR\r
-SCREENWIDTH = 64\r
-ENDIF\r
-IFE GRMODE-CGAGR\r
-SCREENWIDTH = 128\r
-ENDIF\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_GLOB.H\r
-\r
-\r
-#include <ALLOC.H>\r
-#include <CTYPE.H>\r
-#include <DOS.H>\r
-#include <ERRNO.H>\r
-#include <FCNTL.H>\r
-#include <IO.H>\r
-#include <MEM.H>\r
-#include <PROCESS.H>\r
-#include <STDIO.H>\r
-#include <STDLIB.H>\r
-#include <STRING.H>\r
-#include <SYS\STAT.H>\r
-\r
-#define __ID_GLOB__\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define KEEN\r
-#define KEEN4\r
-\r
-#define EXTENSION "CK4"\r
-\r
-extern char far introscn;\r
-\r
-#include "GFXE_CK4.H"\r
-#include "AUDIOCK4.H"\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define TEXTGR 0\r
-#define CGAGR 1\r
-#define EGAGR 2\r
-#define VGAGR 3\r
-\r
-#define GRMODE EGAGR\r
-\r
-#if GRMODE == EGAGR\r
-#define GREXT "EGA"\r
-#endif\r
-#if GRMODE == CGAGR\r
-#define GREXT "CGA"\r
-#endif\r
-\r
-//#define PROFILE\r
-\r
-//\r
-// ID Engine\r
-// Types.h - Generic types, #defines, etc.\r
-// v1.0d1\r
-//\r
-\r
-#ifndef __TYPES__\r
-#define __TYPES__\r
-\r
-typedef enum {false,true} boolean;\r
-typedef unsigned char byte;\r
-typedef unsigned int word;\r
-typedef unsigned long longword;\r
-typedef byte * Ptr;\r
-\r
-typedef struct\r
- {\r
- int x,y;\r
- } Point;\r
-typedef struct\r
- {\r
- Point ul,lr;\r
- } Rect;\r
-\r
-#define nil ((void *)0)\r
-\r
-#endif\r
-\r
-#include "ID_MM.H"\r
-#include "ID_CA.H"\r
-#include "ID_VW.H"\r
-#include "ID_RF.H"\r
-#include "ID_IN.H"\r
-#include "ID_SD.H"\r
-#include "ID_US.H"\r
-\r
-\r
-void Quit (char *error); // defined in user program\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K4_ACT1.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- Miragia (world map)\r
-- Bonus Items\r
-- Council Member\r
-- Poison Slug\r
-- Mad Mushroom\r
-- Egg & Eggbird\r
-- Arachnut\r
-- Skypest\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- MIRAGIA\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_miragia0 = {0, 0, step, false, false, 300, 0, 0, T_Miragia0, NULL, NULL, &s_miragia1};\r
-statetype s_miragia1 = {0, 0, step, false, false, 30, 0, 0, T_Miragia1, NULL, NULL, &s_miragia2};\r
-statetype s_miragia2 = {0, 0, step, false, false, 30, 0, 0, T_Miragia2, NULL, NULL, &s_miragia3};\r
-statetype s_miragia3 = {0, 0, step, false, false, 30, 0, 0, T_Miragia3, NULL, NULL, &s_miragia4};\r
-statetype s_miragia4 = {0, 0, step, false, false, 300, 0, 0, T_Miragia4, NULL, NULL, &s_miragia5};\r
-statetype s_miragia5 = {0, 0, step, false, false, 30, 0, 0, T_Miragia5, NULL, NULL, &s_miragia6};\r
-statetype s_miragia6 = {0, 0, step, false, false, 30, 0, 0, T_Miragia6, NULL, NULL, &s_miragia7};\r
-statetype s_miragia7 = {0, 0, step, false, false, 30, 0, 0, T_Miragia7, NULL, NULL, &s_miragia0};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnMiragia\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnMiragia(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = inertobj;\r
- new->active = ac_allways;\r
- new->x = x;\r
- new->y = y;\r
- new->state = &s_miragia0;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Miragia0\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Miragia0(objtype *ob)\r
-{\r
- if (player->tileright >= ob->x && player->tileleft <= ob->x+5\r
- && player->tiletop >= ob->y && player->tilebottom <= ob->y+4)\r
- {\r
- //don't let miragia appear if player is in the area, so player won't get stuck\r
- ob->state = &s_miragia7;\r
- }\r
- else\r
- {\r
- RF_MapToMap(8, 60, ob->x, ob->y, 6, 4);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Miragia1\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Miragia1(objtype *ob)\r
-{\r
- RF_MapToMap(14, 60, ob->x, ob->y, 6, 4);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Miragia2\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Miragia2(objtype *ob)\r
-{\r
- RF_MapToMap(20, 60, ob->x, ob->y, 6, 4);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Miragia3\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Miragia3(objtype *ob)\r
-{\r
- RF_MapToMap(26, 60, ob->x, ob->y, 6, 4);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Miragia4\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Miragia4(objtype *ob)\r
-{\r
- RF_MapToMap(20, 60, ob->x, ob->y, 6, 4);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Miragia5\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Miragia5(objtype *ob)\r
-{\r
- RF_MapToMap(14, 60, ob->x, ob->y, 6, 4);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Miragia6\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Miragia6(objtype *ob)\r
-{\r
- RF_MapToMap(8, 60, ob->x, ob->y, 6, 4);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Miragia7\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Miragia7(objtype *ob)\r
-{\r
- RF_MapToMap(2, 60, ob->x, ob->y, 6, 4);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BONUS ITEMS\r
-\r
-temp1 = bonus type\r
-temp2 = base shape number\r
-temp3 = last animated shape number +1\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_bonus1 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus2};\r
-statetype s_bonus2 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus1};\r
-statetype s_bonusrise = {0, 0, slide, false, false, 40, 0, 8, NULL, NULL, R_Draw, NULL};\r
-\r
-statetype s_splash1 = {DROPSPLASH1SPR, DROPSPLASH1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_splash2};\r
-statetype s_splash2 = {DROPSPLASH2SPR, DROPSPLASH2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_splash3};\r
-statetype s_splash3 = {DROPSPLASH3SPR, DROPSPLASH3SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-Uint16 bonusshape[] = {REDGEM1SPR, YELLOWGEM1SPR, BLUEGEM1SPR, GREENGEM1SPR, SUGAR1ASPR, SUGAR2ASPR, SUGAR3ASPR, SUGAR4ASPR, SUGAR5ASPR, SUGAR6ASPR, ONEUPASPR, STUNCLIP1SPR};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBonus\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBonus(Sint16 x, Sint16 y, Sint16 type)\r
-{\r
- GetNewObj(false);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->obclass = bonusobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- new->ydir = -1;\r
- new->temp1 = type;\r
- new->temp2 = new->shapenum = bonusshape[type];\r
- new->temp3 = new->temp2 + 2;\r
- NewState(new, &s_bonus1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSplash\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSplash(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(true);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 3;\r
- new->obclass = inertobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- NewState(new, &s_splash1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Bonus\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Bonus(objtype *ob)\r
-{\r
- ob->shapenum++;\r
- if (ob->shapenum == ob->temp3)\r
- ob->shapenum = ob->temp2;\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- COUNCIL MEMBER\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_councilwalk1 = {COUNCILWALKL1SPR, COUNCILWALKR1SPR, step, false, true, 10, 64, 0, T_Council, NULL, R_Walk, &s_councilwalk2};\r
-statetype s_councilwalk2 = {COUNCILWALKL2SPR, COUNCILWALKR2SPR, step, false, true, 10, 64, 0, T_Council, NULL, R_Walk, &s_councilwalk1};\r
-statetype s_councilstand = {COUNCILTHINKLSPR, COUNCILTHINKRSPR, step, false, false, 120, 128, 0, NULL, NULL, R_Draw, &s_councilwalk1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnCouncil\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnCouncil(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = oracleobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) -0x171; //TODO: wierd\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_councilwalk1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Council\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Council(objtype *ob)\r
-{\r
- Uint16 randnum;\r
-\r
- randnum = US_RndT();\r
- if (tics*8 > randnum)\r
- {\r
- // BUG: might be about to move off a ledge, causing it to get stuck\r
- // after standing (the stand state doesn't use R_Walk)!\r
- // To avoid that, set xtry to 0 here.\r
- ob->state = &s_councilstand;\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- POINSON SLUG\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_slugwalk1 = {SLUGWALKL1SPR, SLUGWALKR1SPR, step, false, true, 8, 64, 0, NULL, C_Slug, R_WalkNormal, &s_slugwalk2};\r
-statetype s_slugwalk2 = {SLUGWALKL2SPR, SLUGWALKR2SPR, step, false, true, 8, 64, 0, T_Slug, C_Slug, R_WalkNormal, &s_slugwalk1};\r
-statetype s_slugpiss1 = {SLUGPISSLSPR, SLUGPISSRSPR, step, false, true, 60, 64, 0, T_SlugPiss, C_Slug, R_WalkNormal, &s_slugwalk1};\r
-statetype s_slugstun = {SLUGSTUN1SPR, SLUGSTUN1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-statetype s_slugstunalt = {SLUGSTUN2SPR, SLUGSTUN2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-statetype s_slugslime = {SLUGSLIME1SPR, SLUGSLIME1SPR, step, false, false, 300, 0, 0, NULL, C_Lethal, R_Draw, &s_slugslime2};\r
-statetype s_slugslime2 = {SLUGSLIME2SPR, SLUGSLIME2SPR, step, false, false, 60, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSlug\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSlug(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = slugobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) - 0x71;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_slugwalk1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Slug\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Slug(objtype *ob)\r
-{\r
- if (US_RndT() < 16)\r
- {\r
- if (ob->x < player->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- ob->state = &s_slugpiss1;\r
- SD_PlaySound(SND_SLUGPOO);\r
- // Note: might be a good idea to set xtry to 0 here\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_SlugPiss\r
-=\r
-===========================\r
-*/\r
-\r
-void T_SlugPiss(objtype *ob)\r
-{\r
- GetNewObj(true);\r
- new->obclass = inertobj;\r
- new->active = ac_removable;\r
- new->priority = 0;\r
- new->x = ob->x;\r
- new->y = ob->bottom - 8*PIXGLOBAL;\r
- NewState(new, &s_slugslime);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Slug\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Slug(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- if (US_RndT() < 0x80)\r
- {\r
- StunObj(ob, hit, &s_slugstun);\r
- }\r
- else\r
- {\r
- StunObj(ob, hit, &s_slugstunalt);\r
- }\r
- ob->yspeed = -24;\r
- ob->xspeed = ob->xdir*8;\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- MAD MUSHROOM\r
-\r
-temp1 = jump counter\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_mushroom1 = {MADMUSHROOML1SPR, MADMUSHROOMR1SPR, stepthink, false, false, 8, 0, 0, T_Mushroom, C_Mushroom, R_Mushroom, &s_mushroom2};\r
-statetype s_mushroom2 = {MADMUSHROOML2SPR, MADMUSHROOMR2SPR, stepthink, false, false, 8, 0, 0, T_Mushroom, C_Mushroom, R_Mushroom, &s_mushroom1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnMadMushroom\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnMadMushroom(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = madmushroomobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) - 0xF1;\r
- new->xdir = 1;\r
- new->ydir = 1;\r
- NewState(new, &s_mushroom1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Mushroom\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Mushroom(objtype *ob)\r
-{\r
- if (player->x < ob->x)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
-\r
- // BUG: this might be executed twice during the same frame if the\r
- // object's animation/state changed during that frame, causing the\r
- // object to move at twice the speed during that frame!\r
- // To avoid that, return if ytry is not 0.\r
- DoWeakGravity(ob);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Mushroom\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Mushroom(objtype *ob, objtype *hit)\r
-{\r
- ob++; // shut up compiler\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- }\r
- else if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Mushroom\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Mushroom(objtype *ob)\r
-{\r
- if (ob->hitsouth)\r
- ob->yspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->yspeed = 0;\r
- if (++ob->temp1 == 3)\r
- {\r
- ob->temp1 = 0;\r
- ob->yspeed = -68;\r
- SD_PlaySound(SND_BOUNCE2);\r
- }\r
- else\r
- {\r
- SD_PlaySound(SND_BOUNCE1);\r
- ob->yspeed = -40;\r
- }\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- EGGBIRD\r
-\r
-temp1 = blocked flag for flying eggbird (cannot change xdir to chase Keen\r
- while this is non-zero)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_egg = {EGGSPR, EGGSPR, think, false, true, 8, 0, 0, NULL, C_Egg, R_Draw, NULL};\r
-statetype s_eggbroke = {EGGBROKESPR, EGGBROKESPR, step, false, false, 30000, 0, 0, NULL, NULL, R_Draw, NULL};\r
-statetype s_eggchip1 = {EGGCHIP1SPR, EGGCHIP1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Chip, NULL};\r
-statetype s_eggchip2 = {EGGCHIP2SPR, EGGCHIP2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Chip, NULL};\r
-statetype s_eggchip3 = {EGGCHIP3SPR, EGGCHIP3SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Chip, NULL};\r
-\r
-statetype s_eggbirdpause = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 120, 128, 0, NULL, C_EggbirdStun, R_Eggbird, &s_eggbirdwalk2};\r
-statetype s_eggbirdwalk1 = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 7, 128, 0, NULL, C_Eggbird, R_Eggbird, &s_eggbirdwalk2};\r
-statetype s_eggbirdwalk2 = {BIRDWALKL2SPR, BIRDWALKR2SPR, step, false, true, 7, 128, 0, NULL, C_Eggbird, R_Eggbird, &s_eggbirdwalk3};\r
-statetype s_eggbirdwalk3 = {BIRDWALKL3SPR, BIRDWALKR3SPR, step, false, true, 7, 128, 0, NULL, C_Eggbird, R_Eggbird, &s_eggbirdwalk4};\r
-statetype s_eggbirdwalk4 = {BIRDWALKL4SPR, BIRDWALKR4SPR, step, false, true, 7, 128, 0, T_Eggbird, C_Eggbird, R_Eggbird, &s_eggbirdwalk1};\r
-statetype s_eggbirdfly1 = {BIRDFLY1SPR, BIRDFLY1SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly2};\r
-statetype s_eggbirdfly2 = {BIRDFLY2SPR, BIRDFLY2SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly3};\r
-statetype s_eggbirdfly3 = {BIRDFLY3SPR, BIRDFLY3SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly4};\r
-statetype s_eggbirdfly4 = {BIRDFLY4SPR, BIRDFLY4SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly1};\r
-statetype s_eggbirddrop = {BIRDFLY4SPR, BIRDFLY4SPR, think, false, false, 8, 128, 0, T_WeakProjectile, C_Eggbird, R_EggbirdDrop, NULL};\r
-statetype s_eggbirdstun = {BIRDSTUNSPR, BIRDSTUNSPR, stepthink, false, false, 240, 0, 0, T_Projectile, C_EggbirdStun, R_Draw, &s_eggbirdstun2};\r
-statetype s_eggbirdstun2 = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 20, 0, 0, NULL, C_EggbirdStun, R_Draw, &s_eggbirdstun3};\r
-statetype s_eggbirdstun3 = {BIRDSTUNSPR, BIRDSTUNSPR, step, false, true, 20, 0, 0, NULL, C_EggbirdStun, R_Draw, &s_eggbirdstun4};\r
-statetype s_eggbirdstun4 = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 20, 0, 0, NULL, C_EggbirdStun, R_Draw, &s_eggbirdstun5};\r
-statetype s_eggbirdstun5 = {BIRDSTUNSPR, BIRDSTUNSPR, step, false, true, 20, 0, 0, T_EggUnstun, C_EggbirdStun, R_Draw, &s_eggbirdwalk1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnEggbird\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnEggbird(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = eggobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) - 0x71;\r
- new->xdir = 1;\r
- new->ydir = 1;\r
- NewState(new, &s_egg);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_EggUnstun\r
-=\r
-===========================\r
-*/\r
-\r
-void T_EggUnstun(objtype *ob)\r
-{\r
- ob->obclass = eggbirdobj;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnEggbirdOut\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnEggbirdOut(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(true);\r
- new->obclass = eggbirdobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) - 0xF1;\r
- if (new->x < player->x)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_eggbirdpause);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Egg\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Egg(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj || hit->obclass == keenobj)\r
- {\r
- if (hit->obclass == stunshotobj)\r
- ExplodeShot(hit);\r
-\r
- ob->obclass = inertobj;\r
- ob->active = ac_removable;\r
- ChangeState(ob, &s_eggbroke);\r
-\r
- GetNewObj(true);\r
- new->obclass = eggbirdobj;\r
- new->active = ac_yes;\r
- new->x = ob->x;\r
- new->y = ob->y - 8*PIXGLOBAL;\r
- if (ob->x < player->x)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_eggbirdpause);\r
-\r
- GetNewObj(true);\r
- new->obclass = inertobj;\r
- new->active = ac_removable;\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = -28;\r
- new->yspeed = -40;\r
- NewState(new, &s_eggchip1);\r
-\r
- GetNewObj(true);\r
- new->obclass = inertobj;\r
- new->active = ac_removable;\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = 28;\r
- new->yspeed = -40;\r
- NewState(new, &s_eggchip2);\r
-\r
- GetNewObj(true);\r
- new->obclass = inertobj;\r
- new->active = ac_removable;\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = 0;\r
- new->yspeed = -56;\r
- NewState(new, &s_eggchip3);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Eggbird\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Eggbird(objtype *ob)\r
-{\r
- if (ob->x < player->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- if (ob->bottom >= player->bottom + 3*TILEGLOBAL && player->hitnorth\r
- && StatePositionOk(ob, &s_eggbirdfly1)) // BUG: StatePositionOk() only works for normal clipping, not for full clipping\r
- {\r
- // Note: might be a good idea to set xtry to 0 here\r
- ob->state = &s_eggbirdfly1;\r
- ob->needtoclip = cl_fullclip;\r
- ob->yspeed = -8;\r
- ob->temp1 = 0;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_EggbirdFly\r
-=\r
-===========================\r
-*/\r
-\r
-void T_EggbirdFly(objtype *ob)\r
-{\r
- if (ob->temp1 == 0)\r
- {\r
- if (ob->x < player->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- }\r
- AccelerateXv(ob, ob->xdir, 16);\r
- if (ob->y < player->y)\r
- {\r
- AccelerateY(ob, 1, 16);\r
- }\r
- else\r
- {\r
- AccelerateY(ob, -1, 16);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Eggbird\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Eggbird(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- ob->xspeed = 0;\r
- ob->needtoclip = cl_midclip;\r
- StunObj(ob, hit, &s_eggbirdstun);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_EggbirdStun\r
-=\r
-===========================\r
-*/\r
-\r
-void C_EggbirdStun(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ob->xspeed = 0;\r
- StunObj(ob, hit, &s_eggbirdstun);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Eggbird\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Eggbird(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- if (!ob->hitnorth)\r
- {\r
- ob->yspeed = -16;\r
- ob->needtoclip = cl_fullclip;\r
- ChangeState(ob, &s_eggbirdfly1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_EggbirdDrop\r
-=\r
-===========================\r
-*/\r
-\r
-void R_EggbirdDrop(objtype *ob) //never actually used\r
-{\r
- if (ob->hitnorth)\r
- {\r
- ChangeState(ob, &s_eggbirdwalk1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Chip\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Chip(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- ob->xspeed = ob->yspeed = 0;\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Eggbirdfly\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Eggbirdfly(objtype *ob)\r
-{\r
- statetype *oldstate;\r
-\r
- if ((ob->hitsouth || ob->hitnorth) && !ob->temp1)\r
- ob->temp1++;\r
-\r
- if (ob->hiteast && ob->xspeed < 0 || ob->hitwest && ob->xspeed > 0)\r
- {\r
- ob->xspeed = 0;\r
- ob->xdir = -ob->xdir;\r
- }\r
- if (ob->hitnorth == 1 && player->bottom - ob->bottom < 8*PIXGLOBAL) // BUG? unsigned comparison!\r
- {\r
- oldstate = ob->state;\r
- ob->needtoclip = cl_midclip;\r
- ChangeState(ob, &s_eggbirdwalk1);\r
- xtry = 0;\r
- ytry = 8*PIXGLOBAL;\r
- PushObj(ob);\r
- if (!ob->hitnorth)\r
- {\r
- ob->needtoclip = cl_fullclip;\r
- ChangeState(ob, oldstate);\r
- }\r
- return; // BUG: sprite isn't updated\r
- }\r
-\r
- if (!ob->hitsouth && !ob->hitnorth)\r
- ob->temp1 = 0;\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- ARACHNUT\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_arach1 = {ARACHNUTWALK1SPR, ARACHNUTWALK4SPR, step, false, true, 6, 128, 0, NULL, C_Arach, R_Walk, &s_arach2};\r
-statetype s_arach2 = {ARACHNUTWALK2SPR, ARACHNUTWALK3SPR, step, false, true, 6, 128, 0, NULL, C_Arach, R_Walk, &s_arach3};\r
-statetype s_arach3 = {ARACHNUTWALK3SPR, ARACHNUTWALK2SPR, step, false, true, 6, 128, 0, NULL, C_Arach, R_Walk, &s_arach4};\r
-statetype s_arach4 = {ARACHNUTWALK4SPR, ARACHNUTWALK1SPR, step, false, true, 6, 128, 0, T_Arach, C_Arach, R_Walk, &s_arach1};\r
-statetype s_arachstun = {ARACHNUTSTUNSPR, ARACHNUTSTUNSPR, step, false, true, 240, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun2};\r
-statetype s_arachstun2 = {ARACHNUTWALK1SPR, ARACHNUTWALK1SPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun3};\r
-statetype s_arachstun3 = {ARACHNUTSTUNSPR, ARACHNUTSTUNSPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun4};\r
-statetype s_arachstun4 = {ARACHNUTWALK1SPR, ARACHNUTWALK1SPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun5};\r
-statetype s_arachstun5 = {ARACHNUTSTUNSPR, ARACHNUTSTUNSPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arach1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnArachnut\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnArachnut(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = arachnutobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) - 0x171;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_arach1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Arach\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Arach(objtype *ob)\r
-{\r
- if (ob->x > player->x)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Arach\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Arach(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- StunObj(ob, hit, &s_arachstun);\r
- }\r
- else if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_ArachStun\r
-=\r
-===========================\r
-*/\r
-\r
-void C_ArachStun(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- StunObj(ob, hit, &s_arachstun);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SKYPEST\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_pestfly1 = {SKYPESTFLYL1SPR, SKYPESTFLYR1SPR, stepthink, true, false, 5, 0, 0, T_PestFly, C_PestFly, R_Pest, &s_pestfly2};\r
-statetype s_pestfly2 = {SKYPESTFLYL2SPR, SKYPESTFLYR2SPR, stepthink, true, false, 5, 0, 0, T_PestFly, C_PestFly, R_Pest, &s_pestfly1};\r
-statetype s_squashedpest = {SKYPESTSQUASHEDSPR, SKYPESTSQUASHEDSPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, &s_squashedpest};\r
-statetype s_pestrest1 = {SKYPESTSIT9SPR, SKYPESTSIT9SPR, step, false, false, 100, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest2};\r
-statetype s_pestrest2 = {SKYPESTSIT1SPR, SKYPESTSIT1SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest3};\r
-statetype s_pestrest3 = {SKYPESTSIT2SPR, SKYPESTSIT2SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest4};\r
-statetype s_pestrest4 = {SKYPESTSIT3SPR, SKYPESTSIT3SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest5};\r
-statetype s_pestrest5 = {SKYPESTSIT4SPR, SKYPESTSIT4SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest6};\r
-statetype s_pestrest6 = {SKYPESTSIT3SPR, SKYPESTSIT3SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest7};\r
-statetype s_pestrest7 = {SKYPESTSIT2SPR, SKYPESTSIT2SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest8};\r
-statetype s_pestrest8 = {SKYPESTSIT1SPR, SKYPESTSIT1SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest9};\r
-statetype s_pestrest9 = {SKYPESTSIT9SPR, SKYPESTSIT9SPR, step, false, false, 60, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest10};\r
-statetype s_pestrest10 = {SKYPESTSIT5SPR, SKYPESTSIT5SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest11};\r
-statetype s_pestrest11 = {SKYPESTSIT6SPR, SKYPESTSIT6SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest12};\r
-statetype s_pestrest12 = {SKYPESTSIT7SPR, SKYPESTSIT7SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest13};\r
-statetype s_pestrest13 = {SKYPESTSIT8SPR, SKYPESTSIT8SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest14};\r
-statetype s_pestrest14 = {SKYPESTSIT7SPR, SKYPESTSIT7SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest15};\r
-statetype s_pestrest15 = {SKYPESTSIT6SPR, SKYPESTSIT6SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest16};\r
-statetype s_pestrest16 = {SKYPESTSIT5SPR, SKYPESTSIT5SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest17};\r
-statetype s_pestrest17 = {SKYPESTSIT9SPR, SKYPESTSIT9SPR, step, false, false, 100, 0, 0, T_PestRest, C_Squashable, R_Draw, &s_pestfly1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSkypest\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSkypest(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = skypestobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- if (US_RndT() < 0x80)\r
- {\r
- new->ydir = 1;\r
- }\r
- else\r
- {\r
- new->ydir = -1;\r
- }\r
- NewState(new, &s_pestfly1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_PestFly\r
-=\r
-===========================\r
-*/\r
-\r
-void T_PestFly(objtype *ob)\r
-{\r
- // BUG: this might be executed twice during the same frame if the\r
- // object's animation/state changed during that frame, causing the\r
- // object to move at twice the speed during that frame!\r
- // To avoid that, return if xtry is not 0 or ytry is not 0.\r
-\r
- if (US_RndT() < tics)\r
- ob->xdir = -ob->xdir;\r
-\r
- if (ob->ydir == -1 && US_RndT() < tics)\r
- ob->ydir = 1;\r
-\r
- if (ob->ydir == 1 && US_RndT() < tics*2)\r
- ob->ydir = -ob->ydir;\r
-\r
- AccelerateX(ob, ob->xdir, 20);\r
- AccelerateY(ob, ob->ydir, 20);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_PestFly\r
-=\r
-===========================\r
-*/\r
-\r
-void C_PestFly(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- KillKeen();\r
-\r
- if (hit->obclass == stunshotobj)\r
- {\r
- if (hit->xdir == 1)\r
- {\r
- ob->xspeed = 20;\r
- }\r
- else if (hit->xdir == -1)\r
- {\r
- ob->xspeed = -20;\r
- }\r
- else if (hit->ydir == 1)\r
- {\r
- ob->yspeed = 20;\r
- }\r
- else if (hit->ydir == -1)\r
- {\r
- ob->yspeed = -20;\r
- }\r
- ExplodeShot(hit);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Squashable\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Squashable(objtype *ob, objtype *hit)\r
-{\r
- if (hit->state == &s_keenpogodown || hit->state == &s_keenpogo || hit->state == &s_keenpogo2)\r
- {\r
- ChangeState(ob, &s_squashedpest);\r
- SD_PlaySound(SND_SQUISH);\r
- ob->obclass = inertobj;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_PestRest\r
-=\r
-===========================\r
-*/\r
-\r
-void T_PestRest(objtype *ob)\r
-{\r
- ob->ydir = -1;\r
- ob->yspeed = -16;\r
- ytry = -144;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Pest\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Pest(objtype *ob)\r
-{\r
- if (ob->hitsouth)\r
- {\r
- ob->yspeed = 8;\r
- ob->ydir = 1;\r
- }\r
- if (ob->hitnorth && !ob->hiteast && !ob->hitwest)\r
- {\r
- ob->y += 8*PIXGLOBAL;\r
- ChangeState(ob, &s_pestrest1);\r
- }\r
- if (ob->hitwest)\r
- {\r
- ob->xspeed = 0;\r
- ob->xdir = -1;\r
- }\r
- if (ob->hiteast)\r
- {\r
- ob->xspeed = 0;\r
- ob->xdir = 1;\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K4_ACT2.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- Wormouth\r
-- Thundercloud & Lightning\r
-- Berkeloid & Fireball\r
-- Inchworm & Foot (in-level)\r
-- Bounder\r
-- Lick\r
-- Platform\r
-- Dropping Platform\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- WORMOUTH\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_worm = {WORMOUTHSPR, WORMOUTHSPR, slide, true, true, 4, 16, 0, T_Worm, NULL, R_Walk, &s_worm};\r
-statetype s_wormpeek1 = {WORMOUTHPEEKL1SPR, WORMOUTHPEEKL1SPR, step, false, false, 20, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek2};\r
-statetype s_wormpeek2 = {WORMOUTHPEEKL2SPR, WORMOUTHPEEKL2SPR, step, false, false, 8, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek3};\r
-statetype s_wormpeek3 = {WORMOUTHPEEKL1SPR, WORMOUTHPEEKL1SPR, step, false, false, 20, 0, 0, T_WormLookLeft, C_Worm, R_Draw, &s_wormpeek4};\r
-statetype s_wormpeek4 = {WORMOUTHSPR, WORMOUTHSPR, step, false, false, 8, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek5};\r
-statetype s_wormpeek5 = {WORMOUTHPEEKR1SPR, WORMOUTHPEEKR1SPR, step, false, false, 20, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek6};\r
-statetype s_wormpeek6 = {WORMOUTHPEEKR2SPR, WORMOUTHPEEKR2SPR, step, false, false, 8, 0, 0, NULL, C_Worm, R_Draw, &s_wormpeek7};\r
-statetype s_wormpeek7 = {WORMOUTHPEEKR1SPR, WORMOUTHPEEKR1SPR, step, false, false, 20, 0, 0, T_WormLookRight, C_Worm, R_Draw, &s_wormpeek8};\r
-statetype s_wormpeek8 = {WORMOUTHSPR, WORMOUTHSPR, step, false, false, 8, 0, 0, T_WormLook, NULL, R_Draw, &s_worm};\r
-statetype s_wormbite1 = {WORMOUTHBITEL1SPR, WORMOUTHBITER1SPR, step, false, false, 8, 0, 0, NULL, C_WormKill, R_Draw, &s_wormbite2};\r
-statetype s_wormbite2 = {WORMOUTHBITEL2SPR, WORMOUTHBITER2SPR, step, false, false, 8, 0, 0, NULL, C_WormKill, R_Draw, &s_wormbite3};\r
-statetype s_wormbite3 = {WORMOUTHBITEL3SPR, WORMOUTHBITER3SPR, step, false, false, 16, 0, 0, NULL, C_WormKill, R_Draw, &s_wormbite4};\r
-statetype s_wormbite4 = {WORMOUTHBITEL2SPR, WORMOUTHBITER2SPR, step, false, false, 8, 0, 0, NULL, C_WormKill, R_Draw, &s_wormbite5};\r
-statetype s_wormbite5 = {WORMOUTHBITEL1SPR, WORMOUTHBITER1SPR, step, false, false, 8, 0, 0, NULL, C_WormKill, R_Draw, &s_worm};\r
-statetype s_wormstun = {WORMOUTHSTUNSPR, WORMOUTHSTUNSPR, think, false, false, 10, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnWormMouth\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnWormMouth(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = wormouthobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) + 0x8F;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_worm);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_WormLookRight\r
-=\r
-===========================\r
-*/\r
-\r
-void T_WormLookRight(objtype *ob)\r
-{\r
- if (player->x > ob->x)\r
- {\r
- ob->xdir = 1;\r
- ob->state = &s_worm;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_WormLook\r
-=\r
-===========================\r
-*/\r
-\r
-void T_WormLook(objtype *ob)\r
-{\r
- if (player->x > ob->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_WormLookLeft\r
-=\r
-===========================\r
-*/\r
-\r
-void T_WormLookLeft(objtype *ob)\r
-{\r
- if (player->x < ob->x)\r
- {\r
- ob->xdir = -1;\r
- ob->state = &s_worm;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Worm\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Worm(objtype *ob)\r
-{\r
- Sint16 xdist, ydist;\r
-\r
- xdist = player->x - ob->x;\r
- ydist = player->bottom - ob->bottom;\r
- if ((xdist < -3*TILEGLOBAL || xdist > 3*TILEGLOBAL) && US_RndT() < 6)\r
- {\r
- ob->state = &s_wormpeek1;\r
- }\r
- else if (ydist >= -TILEGLOBAL && ydist <= TILEGLOBAL)\r
- {\r
- if (ob->xdir == 1 && xdist > 8*PIXGLOBAL && xdist < 24*PIXGLOBAL\r
- || ob->xdir == -1 && xdist < -8*PIXGLOBAL && xdist > -32*PIXGLOBAL)\r
- {\r
- SD_PlaySound(SND_WORMOUTHATTACK);\r
- ob->state = &s_wormbite1;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Worm\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Worm(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- StunObj(ob, hit, &s_wormstun);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_WormKill\r
-=\r
-===========================\r
-*/\r
-\r
-void C_WormKill(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- if (!(ob->xdir == 1 && ob->x > hit->x || ob->xdir == -1 && ob->x < hit->x))\r
- {\r
- KillKeen();\r
- }\r
- return;\r
- }\r
- else\r
- {\r
- C_Worm(ob, hit);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- THUNDERCLOUD\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_cloudsleep = {CLOUDSPR, CLOUDSPR, think, false, false, 20, 0, 0, NULL, C_CloudSleep, R_Draw, NULL};\r
-statetype s_cloudwake = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 100, 0, 0, NULL, NULL, R_Cloud, &s_cloud};\r
-statetype s_cloud = {CLOUDACTIVESPR, CLOUDACTIVESPR, think, false, false, 20, 0, 0, T_Cloud, NULL, R_Cloud, NULL};\r
-statetype s_cloudalign = {CLOUDACTIVESPR, CLOUDACTIVESPR, think, false, false, 20, 0, 0, T_CloudAlign, NULL, R_Cloud, NULL};\r
-statetype s_cloudcharge = {CLOUDACTIVESPR, CLOUDACTIVESPR, stepthink, false, false, 60, 0, 0, T_Velocity, NULL, R_Cloud, &s_cloud};\r
-statetype s_cloudattack1 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack2};\r
-statetype s_cloudattack2 = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack3};\r
-statetype s_cloudattack3 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack4};\r
-statetype s_cloudattack4 = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 10, 0, 0, T_CloudShoot, NULL, R_Draw, &s_cloudattack5};\r
-statetype s_cloudattack5 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack6};\r
-statetype s_cloudattack6 = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack7};\r
-statetype s_cloudattack7 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack8};\r
-statetype s_cloudattack8 = {CLOUDACTIVESPR, CLOUDACTIVESPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cloudattack9};\r
-statetype s_cloudattack9 = {CLOUDCHARGESPR, CLOUDCHARGESPR, step, false, false, 48, 0, 0, NULL, NULL, R_Draw, &s_cloudcharge};\r
-\r
-statetype s_bolt1 = {BOLT1SPR, BOLT1SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt2};\r
-statetype s_bolt2 = {BOLT2SPR, BOLT2SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt3};\r
-statetype s_bolt3 = {BOLT1SPR, BOLT1SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt4};\r
-statetype s_bolt4 = {BOLT2SPR, BOLT2SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt5};\r
-statetype s_bolt5 = {BOLT1SPR, BOLT1SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_bolt6};\r
-statetype s_bolt6 = {BOLT2SPR, BOLT2SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnCloudster\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnCloudster(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = thundercloudobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- new->ydir = new->xdir = 1;\r
- NewState(new, &s_cloudsleep);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Cloud\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Cloud(objtype *ob)\r
-{\r
- if (US_RndT() < tics)\r
- ob->xdir = ob->x > player->x? -1 : 1;\r
-\r
- AccelerateX(ob, ob->xdir, 10);\r
- if (player->bottom < ob->bottom || (Sint16)(player->top - ob->bottom) > 64*PIXGLOBAL)\r
- return;\r
- if (ob->left < player->right && ob->right > player->left)\r
- {\r
- ob->state = &s_cloudalign;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_CloudAlign\r
-=\r
-===========================\r
-*/\r
-\r
-void T_CloudAlign(objtype *ob)\r
-{\r
- AccelerateX(ob, ob->xdir, 10);\r
- if (xtry < 0 && (Sint16)((ob->x & 0x7F) + xtry) <= 0)\r
- {\r
- xtry = -(ob->x & 0x7F);\r
- ob->state = &s_cloudattack1;\r
- }\r
- if (xtry > 0 && (ob->x & 0x7F) + xtry >= 8*PIXGLOBAL)\r
- {\r
- xtry = 8*PIXGLOBAL - (ob->x & 0x7F);\r
- ob->state = &s_cloudattack1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Cloud\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Cloud(objtype *ob)\r
-{\r
- if (ob->hitwest)\r
- {\r
- ob->xspeed = 0;\r
- ob->xdir = -1;\r
- }\r
- else if (ob->hiteast)\r
- {\r
- ob->xspeed = 0;\r
- ob->xdir = 1;\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_CloudShoot\r
-=\r
-===========================\r
-*/\r
-\r
-void T_CloudShoot(objtype *ob)\r
-{\r
- GetNewObj(true);\r
- new->obclass = lightningobj;\r
- new->active = ac_removable;\r
- new->needtoclip = cl_noclip;\r
- new->x = ob->x + TILEGLOBAL;\r
- new->y = ob->y + TILEGLOBAL;\r
- NewState(new, &s_bolt1);\r
- SD_PlaySound(SND_THUNDER);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_CloudSleep\r
-=\r
-===========================\r
-*/\r
-\r
-void C_CloudSleep(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- ChangeState(ob, &s_cloudwake);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BERKELOID\r
-\r
-temp1 = float offset, in global units (added to ob->y when drawing the sprite)\r
-temp2 = float speed, in global units per tic (added to temp1 for every tic)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_berkefloat1 = {BERKEWALKL1SPR, BERKEWALKR1SPR, slide, false, true, 6, 8, 0, BerkeThink, C_Berke, BerkeWalkReact, &s_berkefloat2};\r
-statetype s_berkefloat2 = {BERKEWALKL2SPR, BERKEWALKR2SPR, slide, false, true, 6, 8, 0, BerkeThink, C_Berke, BerkeWalkReact, &s_berkefloat3};\r
-statetype s_berkefloat3 = {BERKEWALKL3SPR, BERKEWALKR3SPR, slide, false, true, 6, 8, 0, BerkeThink, C_Berke, BerkeWalkReact, &s_berkefloat4};\r
-statetype s_berkefloat4 = {BERKEWALKL4SPR, BERKEWALKR4SPR, slide, false, true, 6, 8, 0, BerkeThink, C_Berke, BerkeWalkReact, &s_berkefloat1};\r
-statetype s_berkethrow1 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow2};\r
-statetype s_berkethrow2 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow3};\r
-statetype s_berkethrow3 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow4};\r
-statetype s_berkethrow4 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow5};\r
-statetype s_berkethrow5 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow6};\r
-statetype s_berkethrow6 = {BERKETHROWL1SPR, BERKETHROWR1SPR, step, false, false, 6, 0, 0, BerkeThrowThink, C_Berke, BerkeDrawReact, &s_berkethrow7};\r
-statetype s_berkethrow7 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow8};\r
-statetype s_berkethrow8 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow9};\r
-statetype s_berkethrow9 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow10};\r
-statetype s_berkethrow10 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow11};\r
-statetype s_berkethrow11 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, SetReactThink, C_Berke, BerkeDrawReact, &s_berkethrow12};\r
-statetype s_berkethrow12 = {BERKETHROWL2SPR, BERKETHROWR2SPR, step, false, false, 6, 0, 0, BerkeThrowDone, C_Berke, BerkeDrawReact, &s_berkefloat1};\r
-\r
-statetype s_fire1 = {FIREBALL1SPR, FIREBALL1SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Lethal, FireReact, &s_fire2};\r
-statetype s_fire2 = {FIREBALL2SPR, FIREBALL2SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Lethal, FireReact, &s_fire1};\r
-statetype s_fireland1 = {FIREBALL1SPR, FIREBALL1SPR, step, false, false, 6, 0, 0, NULL, C_Berke, R_Draw, &s_fireland2};\r
-statetype s_fireland2 = {FIREBALL3SPR, FIREBALL3SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland3};\r
-statetype s_fireland3 = {FIREBALL4SPR, FIREBALL4SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland4};\r
-statetype s_fireland4 = {FIREBALL3SPR, FIREBALL3SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland5};\r
-statetype s_fireland5 = {FIREBALL4SPR, FIREBALL4SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland6};\r
-statetype s_fireland6 = {FIREBALL1SPR, FIREBALL1SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland7};\r
-statetype s_fireland7 = {FIREBALL2SPR, FIREBALL2SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland8};\r
-statetype s_fireland8 = {FIREBALL1SPR, FIREBALL1SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, &s_fireland9};\r
-statetype s_fireland9 = {FIREBALL2SPR, FIREBALL2SPR, step, false, false, 12, 0, 0, NULL, C_Berke, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBerkeloid\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBerkeloid(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = berkeloidobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) + -2*TILEGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- new->temp2 = 8;\r
- NewState(new, &s_berkefloat1);\r
-}\r
-\r
-\r
-/*\r
-===========================\r
-=\r
-= BerkeThink\r
-=\r
-===========================\r
-*/\r
-\r
-void BerkeThink(objtype *ob)\r
-{\r
- Sint16 xdist, ydist;\r
-\r
- if (US_RndT() < 0x20)\r
- ob->xdir = player->x < ob->x? -1 : 1;\r
-\r
- if (US_RndT() < 8)\r
- {\r
- // BUG: might be about to move off a ledge, causing it to get stuck\r
- // after throwing (the throw states don't use BerkeWalkReact)!\r
- // To avoid that, set xtry to 0 here.\r
-\r
- ob->state = &s_berkethrow1;\r
- // BUG? this doesn't play the attack sound\r
- }\r
- else if (US_RndT() <= 0x40)\r
- {\r
- xdist = player->x - ob->x;\r
- ydist = player->y - ob->y;\r
- if (ydist >= -TILEGLOBAL && ydist <= TILEGLOBAL\r
- && (ob->xdir == 1 && xdist > 0 || ob->xdir == -1 && xdist < 0))\r
- {\r
- // BUG: might be about to move off a ledge, causing it to get stuck\r
- // after throwing (the throw states don't use BerkeWalkReact)!\r
- // To avoid that, set xtry to 0 here.\r
-\r
- ob->state = &s_berkethrow1;\r
- SD_PlaySound(SND_BERKELOIDATTACK);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= BerkeThrowThink\r
-=\r
-===========================\r
-*/\r
-\r
-void BerkeThrowThink(objtype *ob)\r
-{\r
- GetNewObj(true);\r
- new->active = ac_removable;\r
- new->obclass = berkeloidobj;\r
- new->y = ob->y + 8*PIXGLOBAL;\r
- new->yspeed = -8;\r
- if (ob->xdir == 1)\r
- {\r
- new->xspeed = 48;\r
- new->x = ob->x + 32*PIXGLOBAL;\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xspeed = -48;\r
- new->x = ob->x - 16*PIXGLOBAL;\r
- new->xdir = -1;\r
- }\r
- NewState(new, &s_fire1);\r
- ob->needtoreact = true;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= BerkeThrowDone\r
-=\r
-===========================\r
-*/\r
-\r
-void BerkeThrowDone(objtype *ob)\r
-{\r
- ob->nothink = 4;\r
- ob->needtoreact = true;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Berke\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Berke(objtype *ob, objtype *hit)\r
-{\r
- ob++; // shut up compiler\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- }\r
- else if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= FireReact\r
-=\r
-===========================\r
-*/\r
-\r
-void FireReact(objtype *ob)\r
-{\r
- if (ob->hiteast || ob->hitwest)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- {\r
- SD_PlaySound(SND_FIREBALLLAND);\r
- ChangeState(ob, &s_fireland1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= BerkeDrawReact\r
-=\r
-===========================\r
-*/\r
-\r
-void BerkeDrawReact(objtype *ob)\r
-{\r
- //float up & down:\r
- ob->temp1 = ob->temp1 + ob->temp2 * tics;\r
- if (ob->temp1 > 0)\r
- {\r
- ob->temp1 = 0;\r
- ob->temp2 = -8;\r
- }\r
- else if (ob->temp1 < -TILEGLOBAL)\r
- {\r
- ob->temp1 = -TILEGLOBAL;\r
- ob->temp2 = 8;\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y+ob->temp1, ob->shapenum, spritedraw, 0);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= BerkeWalkReact\r
-=\r
-===========================\r
-*/\r
-\r
-void BerkeWalkReact(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (!ob->hitnorth)\r
- {\r
- ob->x -= ob->xmove*2;\r
- ob->xdir = -ob->xdir;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- BerkeDrawReact(ob);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- INCHWORM & FOOT\r
-\r
-temp1 = last lasttimecount (for resetting the touch counter after each frame)\r
-temp2 = touch counter\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_footsmoke1 = {SMOKE1SPR, SMOKE1SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_footsmoke2};\r
-statetype s_footsmoke2 = {SMOKE2SPR, SMOKE2SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_footsmoke3};\r
-statetype s_footsmoke3 = {SMOKE3SPR, SMOKE3SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_footsmoke4};\r
-statetype s_footsmoke4 = {SMOKE4SPR, SMOKE4SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, NULL};\r
-statetype s_inch1 = {INCHWORML1SPR, INCHWORMR1SPR, step, false, true, 30, 128, 0, InchThink, InchContact, R_Walk, &s_inch2};\r
-statetype s_inch2 = {INCHWORML2SPR, INCHWORMR2SPR, step, false, true, 30, 128, 0, InchThink, InchContact, R_Walk, &s_inch1};\r
-statetype s_footchange = { -1, -1, step, false, false, 48, 0, 0, NULL, NULL, R_Draw, &s_footwait}; //never used!\r
-statetype s_footwait = {FOOTSPR, FOOTSPR, think, false, false, 30000, 0, 0, NULL, FootContact, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnInchworm\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnInchworm(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = inchwormobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_inch1);\r
- new->ticcount = US_RndT() / 32;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnFoot\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnFoot(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = footobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y-3);\r
- NewState(new, &s_footwait);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= InchThink\r
-=\r
-===========================\r
-*/\r
-\r
-void InchThink(objtype *ob)\r
-{\r
- if (ob->x > player->x)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= InchContact\r
-=\r
-===========================\r
-*/\r
-\r
-void InchContact(objtype *ob, objtype *hit)\r
-{\r
- objtype *ob2;\r
-\r
- if (hit->obclass != inchwormobj)\r
- return;\r
-\r
- if (ob->temp1 != (Sint16)lasttimecount)\r
- {\r
- ob->temp1 = (Sint16)lasttimecount;\r
- ob->temp2 = 0;\r
- }\r
-\r
- if (++ob->temp2 != 11) //11 instead of 12 since the object can't contact itself\r
- return;\r
-\r
- //change current inchworm into a foot:\r
- SD_PlaySound(SND_MAKEFOOT);\r
- ob->y -= 5*TILEGLOBAL;\r
- ob->obclass = footobj;\r
- ChangeState(ob, &s_footwait);\r
-\r
- //Note: It would make more sense to remove the remaining inchworm BEFORE\r
- //spawning the smoke, just in case there are not enough free spots in the\r
- //objarray to spawn the smoke. The game won't crash either way, though.\r
-\r
- //spawn smoke:\r
- GetNewObj(true);\r
- new->x = ob->x - 8*PIXGLOBAL;\r
- new->y = ob->y + 16*PIXGLOBAL;\r
- new->priority = 3;\r
- NewState(new, &s_footsmoke1);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x + 16*PIXGLOBAL;\r
- new->y = ob->y + 24*PIXGLOBAL;\r
- new->priority = 3;\r
- NewState(new, &s_footsmoke1);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x + 40*PIXGLOBAL;\r
- new->y = ob->y + 16*PIXGLOBAL;\r
- new->priority = 3;\r
- NewState(new, &s_footsmoke1);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y - 8*PIXGLOBAL;\r
- new->priority = 3;\r
- NewState(new, &s_footsmoke1);\r
-\r
- //remove ALL inchworm from the level:\r
- for (ob2 = player->next; ob2; ob2=ob2->next)\r
- {\r
- if (ob2->obclass == inchwormobj)\r
- RemoveObj(ob2);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= FootContact\r
-=\r
-===========================\r
-*/\r
-\r
-void FootContact(objtype *ob, objtype *hit) //completely useless\r
-{\r
- ob++; // shut up compiler\r
- hit++; // shut up compiler\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BOUNDER\r
-\r
-temp1 = if non-zero, pick a new (random) direction when hitting the ground\r
- Makes the Bounder jump straight up at least once after having jumped\r
- left/right (unless Keen is riding the Bounder)\r
-temp2 = jump counter to make the Bounder jump straight up at least twice\r
- after Keen has fallen/jumped off\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_bounderup1 = {BOUNDERC1SPR, BOUNDERC1SPR, stepthink, false, false, 20, 0, 0, T_Projectile, C_Bounder, R_Bounder, &s_bounderup2};\r
-statetype s_bounderup2 = {BOUNDERC2SPR, BOUNDERC2SPR, stepthink, false, false, 20, 0, 0, T_Projectile, C_Bounder, R_Bounder, &s_bounderup1};\r
-statetype s_bounderside1 = {BOUNDERL1SPR, BOUNDERR1SPR, stepthink, false, false, 20, 0, 0, T_Projectile, C_Bounder, R_Bounder, &s_bounderside2};\r
-statetype s_bounderside2 = {BOUNDERL2SPR, BOUNDERR2SPR, stepthink, false, false, 20, 0, 0, T_Projectile, C_Bounder, R_Bounder, &s_bounderside1};\r
-statetype s_bounderstun = {BOUNDERC1SPR, BOUNDERC1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_bounderstun2};\r
-statetype s_bounderstun2 = {BOUNDERSTUNSPR, BOUNDERSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBounder\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBounder(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = bounderobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) + -8*PIXGLOBAL;\r
- new->ydir = 1;\r
- new->xdir = 0;\r
- NewState(new, &s_bounderup1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Bounder\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Bounder(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- //basically StunObj(), but in different order:\r
- ob->temp1 = 0;\r
- ob->temp2 = 0;\r
- ob->temp3 = 0;\r
- ob->temp4 = ob->obclass;\r
- ExplodeShot(hit);\r
- ChangeState(ob, &s_bounderstun);\r
- ob->obclass = stunnedobj;\r
-\r
- ob->yspeed -= 32;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Bounder\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Bounder(objtype *ob)\r
-{\r
- Sint16 randnum;\r
-\r
- if (ob->hitsouth)\r
- ob->yspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->temp2++;\r
- if (OnScreen(ob))\r
- SD_PlaySound(SND_BOUNCE2);\r
-\r
- ob->yspeed = -50;\r
- if (gamestate.riding == ob)\r
- {\r
- ob->temp2 = 0;\r
- if (player->left < ob->left-4*PIXGLOBAL)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else if (player->right > ob->right+4*PIXGLOBAL)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = 0;\r
- }\r
- ob->xspeed = ob->xdir * 24;\r
- }\r
- else if (ob->temp2 <= 2 || ob->temp1 == 0)\r
- {\r
- ob->temp1 = 1;\r
- ob->xdir = ob->xspeed = 0;\r
- ChangeState(ob, &s_bounderup1);\r
- }\r
- else\r
- {\r
- ob->temp1 = 0;\r
- randnum = US_RndT();\r
- if (randnum < 100)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else if (randnum < 200)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = 0;\r
- }\r
- ob->xspeed = ob->xdir * 24;\r
- }\r
-\r
- if (ob->xdir)\r
- {\r
- ChangeState(ob, &s_bounderside1);\r
- }\r
- else\r
- {\r
- ChangeState(ob, &s_bounderup1);\r
- }\r
- }\r
-\r
- if (ob->hiteast || ob->hitwest)\r
- {\r
- ob->xdir = -ob->xdir;\r
- ob->xspeed = -ob->xspeed;\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- LICK\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_lick1 = {LICKMOVEL1SPR, LICKMOVER1SPR, step, false, false, 10, 0, 0, LickJumpThink, LickContact, R_Draw, &s_lick2};\r
-statetype s_lick2 = {LICKMOVEL2SPR, LICKMOVER2SPR, think, false, false, 0, 0, 0, T_Projectile, LickContact, LickAirReact, &s_lick3};\r
-statetype s_lick3 = {LICKMOVEL3SPR, LICKMOVER3SPR, think, false, false, 0, 0, 0, T_Projectile, LickContact, LickAirReact, NULL};\r
-statetype s_lick4 = {LICKMOVEL4SPR, LICKMOVER4SPR, step, false, false, 10, 0, 0, NULL, LickContact, R_Draw, &s_lick1};\r
-statetype s_licklick1 = {LICKATTACKL1SPR, LICKATTACKR1SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick2};\r
-statetype s_licklick2 = {LICKATTACKL2SPR, LICKATTACKR2SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick3};\r
-statetype s_licklick3 = {LICKATTACKL3SPR, LICKATTACKR3SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick4};\r
-statetype s_licklick4 = {LICKATTACKL2SPR, LICKATTACKR2SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick5};\r
-statetype s_licklick5 = {LICKATTACKL1SPR, LICKATTACKR1SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick6};\r
-statetype s_licklick6 = {LICKATTACKL2SPR, LICKATTACKR2SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick7};\r
-statetype s_licklick7 = {LICKATTACKL3SPR, LICKATTACKR3SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_licklick8};\r
-statetype s_licklick8 = {LICKATTACKL2SPR, LICKATTACKR2SPR, step, true, false, 4, 0, 0, NULL, LickKillContact, R_Draw, &s_lick3};\r
-statetype s_lickstun = {LICKSTUNSPR, LICKSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_lickstun2};\r
-statetype s_lickstun2 = {LICKSTUNSPR, LICKSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnLick\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnLick(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = lickobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- new->nothink = US_RndT() / 64;\r
- NewState(new, &s_lick3);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= LickJumpThink\r
-=\r
-===========================\r
-*/\r
-\r
-void LickJumpThink(objtype *ob)\r
-{\r
- Sint16 xdist, ydist;\r
-\r
- if (ob->x > player->x)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
-\r
- xdist = player->x - ob->x;\r
- ydist = player->y - ob->y;\r
-\r
- if (ydist >= -TILEGLOBAL && ydist <= TILEGLOBAL && \r
- ( ob->xdir == 1 && xdist > -2*PIXGLOBAL && xdist < 24*PIXGLOBAL\r
- || ob->xdir == -1 && xdist < 2*PIXGLOBAL && xdist > -32*PIXGLOBAL ) )\r
- {\r
- SD_PlaySound(SND_LICKATTACK);\r
- ob->state = &s_licklick1;\r
- }\r
- else if (abs(xdist) > 3*TILEGLOBAL)\r
- {\r
- ob->xspeed = ob->xdir * 32;\r
- ob->yspeed = -32;\r
- }\r
- else\r
- {\r
- ob->xspeed = (ob->xdir * 32)/2;\r
- ob->yspeed = -16;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= LickContact\r
-=\r
-===========================\r
-*/\r
-\r
-void LickContact(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- StunObj(ob, hit, &s_lickstun);\r
- ob->yspeed -= 16;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= LickKillContact\r
-=\r
-===========================\r
-*/\r
-\r
-void LickKillContact(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- if (ob->xdir == 1 && player->x > ob->x \r
- || ob->xdir == -1 && player->x < ob->x)\r
- {\r
- KillKeen();\r
- }\r
- }\r
- else\r
- {\r
- LickContact(ob, hit);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= LickAirReact\r
-=\r
-===========================\r
-*/\r
-\r
-void LickAirReact(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- ChangeState(ob, &s_lick4);\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- PLATFORM\r
-\r
-temp2 = additional sprite pointer for thruster sprites\r
-temp3 = additional sprite pointer for thruster sprites\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_platform = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_Platform, NULL, R_Platform, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnPlatform\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnPlatform(Sint16 x, Sint16 y, Sint16 dir)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- switch (dir)\r
- {\r
- case 0:\r
- new->xdir = 0;\r
- new->ydir = -1;\r
- break;\r
- case 1:\r
- new->xdir = 1;\r
- new->ydir = 0;\r
- break;\r
- case 2:\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- break;\r
- case 3:\r
- new->xdir = -1;\r
- new->ydir = 0;\r
- break;\r
- }\r
- NewState(new, &s_platform);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Platform\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Platform(objtype *ob)\r
-{\r
- Uint16 newpos, newtile;\r
-\r
- xtry = ob->xdir * 12 * tics;\r
- ytry = ob->ydir * 12 * tics;\r
-\r
- if (ob->xdir == 1)\r
- {\r
- newpos = ob->right + xtry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tileright != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2+newtile) == 31)\r
- {\r
- ob->xdir = -1;\r
- xtry = xtry - (newpos & 0xFF);\r
- }\r
- }\r
- }\r
- else if (ob->xdir == -1)\r
- {\r
- newpos = ob->left + xtry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tileleft != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2+newtile) == 31)\r
- {\r
- ob->xdir = 1;\r
- xtry = xtry + (0x100 - (newpos & 0xFF));\r
- }\r
- }\r
- }\r
- else if (ob->ydir == 1)\r
- {\r
- newpos = ob->bottom + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tilebottom != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2+ob->tileleft) == 31)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile-2]/2+ob->tileleft) == 31)\r
- {\r
- ytry = 0;\r
- ob->needtoreact = true;\r
- }\r
- else\r
- {\r
- ob->ydir = -1;\r
- ytry = ytry - (newpos & 0xFF);\r
- }\r
- }\r
- }\r
- }\r
- else if (ob->ydir == -1)\r
- {\r
- newpos = ob->top + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tiletop != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2+ob->tileleft) == 31)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile+2]/2+ob->tileleft) == 31)\r
- {\r
- ytry = 0;\r
- ob->needtoreact = true;\r
- }\r
- else\r
- {\r
- ob->ydir = 1;\r
- ytry = ytry + (0x100 - (newpos & 0xFF));\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Platform\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Platform(objtype *ob)\r
-{\r
- Uint16 frame;\r
-\r
- //place platform sprite:\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- \r
- //place (or remove) thruster sprites:\r
- frame = (lasttimecount >> 2) & 1;\r
- if (ob->xdir == 1)\r
- {\r
- RF_PlaceSprite((void**)&ob->temp2, ob->x-1*PIXGLOBAL, ob->y+3*PIXGLOBAL, frame+PLATSIDETHRUST1SPR, spritedraw, 0);\r
- if (ob->temp3)\r
- RF_RemoveSprite((void**)&ob->temp3);\r
- }\r
- else if (ob->xdir == -1)\r
- {\r
- if (ob->temp2)\r
- RF_RemoveSprite((void**)&ob->temp2);\r
- RF_PlaceSprite((void**)&ob->temp3, ob->x+48*PIXGLOBAL, ob->y+5*PIXGLOBAL, frame+PLATSIDETHRUST1SPR, spritedraw, 1);\r
- }\r
- else if (ob->ydir == -1)\r
- {\r
- RF_PlaceSprite((void**)&ob->temp2, ob->x+2*PIXGLOBAL, ob->y+9*PIXGLOBAL, frame+PLATLTHRUST1SPR, spritedraw, 0);\r
- RF_PlaceSprite((void**)&ob->temp3, ob->x+46*PIXGLOBAL, ob->y+8*PIXGLOBAL, frame+PLATRTHRUST1SPR, spritedraw, 0);\r
- }\r
- else if (ob->ydir == 1)\r
- {\r
- if (frame)\r
- {\r
- RF_PlaceSprite((void**)&ob->temp2, ob->x+2*PIXGLOBAL, ob->y+9*PIXGLOBAL, frame+PLATLTHRUST1SPR, spritedraw, 0);\r
- RF_PlaceSprite((void**)&ob->temp3, ob->x+46*PIXGLOBAL, ob->y+8*PIXGLOBAL, frame+PLATRTHRUST1SPR, spritedraw, 0);\r
- }\r
- else\r
- {\r
- if (ob->temp2)\r
- RF_RemoveSprite((void**)&ob->temp2);\r
- if (ob->temp3)\r
- RF_RemoveSprite((void**)&ob->temp3);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- DROPPING PLATFORM\r
-\r
-temp1 = initial y position\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_dropplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatSit, NULL, R_Draw, NULL};\r
-statetype s_dropplatfall = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatFall, NULL, R_Draw, NULL};\r
-statetype s_dropplatrise = {PLATFORMSPR, PLATFORMSPR, slidethink, false, false, 0, 0, -32, T_DropPlatRise, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnDropPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnDropPlat(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = new->temp1 = CONVERT_TILE_TO_GLOBAL(y);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_dropplatsit);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DropPlatSit\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DropPlatSit(objtype *ob)\r
-{\r
- if (gamestate.riding == ob)\r
- {\r
- ytry = tics * 16;\r
- ob->yspeed = 0;\r
- if (ob->y + ytry - ob->temp1 >= 8*PIXGLOBAL)\r
- ob->state = &s_dropplatfall;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DropPlatFall\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DropPlatFall(objtype *ob)\r
-{\r
- Uint16 newy, ty;\r
-\r
- DoGravity(ob);\r
-\r
- if (ytry >= 15*PIXGLOBAL)\r
- ytry = 15*PIXGLOBAL;\r
-\r
- newy = ob->bottom + ytry;\r
- ty = CONVERT_GLOBAL_TO_TILE(newy);\r
- if (ob->tilebottom != ty)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[ty]/2+ob->tileleft) == 31)\r
- {\r
- ytry = 0xFF - (ob->bottom & 0xFF);\r
- if (gamestate.riding != ob)\r
- ob->state = &s_dropplatrise;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DropPlatRise\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DropPlatRise(objtype *ob)\r
-{\r
- if (gamestate.riding == ob)\r
- {\r
- ob->yspeed = 0;\r
- ob->state = &s_dropplatfall;\r
- }\r
- else if (ob->y <= ob->temp1)\r
- {\r
- ytry = ob->temp1 - ob->y;\r
- ob->state = &s_dropplatsit;\r
- }\r
-}\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K4_ACT3.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- Treasure Eater\r
-- Mimrock\r
-- Dopefish\r
-- Schoolfish\r
-- Sprite\r
-- Mine\r
-- Lindsey\r
-- Dart Shooter & Dart\r
-- Wetsuit\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- TREASURE EATER\r
-\r
-temp1 = turn counter\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_eaterstand1 = {EATERSTAND1SPR, EATERSTAND1SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eaterstand2};\r
-statetype s_eaterstand2 = {EATERSTAND2SPR, EATERSTAND2SPR, step, false, false, 20, 0, 0, T_EaterJump, C_Eater, R_Draw, NULL};\r
-statetype s_eatertport1 = {SMOKE1SPR, SMOKE1SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport2};\r
-statetype s_eatertport2 = {SMOKE2SPR, SMOKE2SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport3};\r
-statetype s_eatertport3 = {SMOKE3SPR, SMOKE3SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport4};\r
-statetype s_eatertport4 = {SMOKE4SPR, SMOKE4SPR, step, false, false, 20, 0, 0, T_EaterTeleport, C_Eater, R_Draw, &s_eatertport5};\r
-statetype s_eatertport5 = {SMOKE4SPR, SMOKE4SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport6};\r
-statetype s_eatertport6 = {SMOKE3SPR, SMOKE3SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport7};\r
-statetype s_eatertport7 = {SMOKE2SPR, SMOKE2SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eatertport8};\r
-statetype s_eatertport8 = {SMOKE1SPR, SMOKE1SPR, step, false, false, 20, 0, 0, NULL, C_Eater, R_Draw, &s_eaterjump1};\r
-statetype s_eaterjump1 = {EATERJUMPL1SPR, EATERJUMPR1SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Eater, R_EaterAir, &s_eaterjump2};\r
-statetype s_eaterjump2 = {EATERJUMPL2SPR, EATERJUMPR2SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Eater, R_EaterAir, &s_eaterjump3};\r
-statetype s_eaterjump3 = {EATERJUMPL3SPR, EATERJUMPR3SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Eater, R_EaterAir, &s_eaterjump4};\r
-statetype s_eaterjump4 = {EATERJUMPL2SPR, EATERJUMPR2SPR, stepthink, false, false, 6, 0, 0, T_WeakProjectile, C_Eater, R_EaterAir, &s_eaterjump1};\r
-statetype s_eaterstun = {EATERJUMPL1SPR, EATERJUMPL1SPR, think, false, false, 0, 0, 0, T_Projectile, 0, R_Stunned, &s_eaterstun2};\r
-statetype s_eaterstun2 = {EATERSTUNSPR, EATERSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, 0, R_Stunned, NULL};\r
-\r
-statetype s_eatenbonus1 = {EATENBONUS1SPR, EATENBONUS1SPR, slide, false, false, 10, 0, 8, NULL, NULL, R_Draw, &s_eatenbonus2};\r
-statetype s_eatenbonus2 = {EATENBONUS2SPR, EATENBONUS2SPR, slide, false, false, 10, 0, 8, NULL, NULL, R_Draw, &s_eatenbonus3};\r
-statetype s_eatenbonus3 = {EATENBONUS3SPR, EATENBONUS3SPR, slide, false, false, 10, 0, 8, NULL, NULL, R_Draw, &s_eatenbonus4};\r
-statetype s_eatenbonus4 = {EATENBONUS4SPR, EATENBONUS4SPR, slide, false, false, 10, 0, 8, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnEater\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnEater(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = treasureeaterobj;\r
- new->active = ac_yes;\r
- new->priority = 3;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) - 24*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_eaterstand1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_EaterJump\r
-=\r
-===========================\r
-*/\r
-\r
-void T_EaterJump(objtype *ob)\r
-{\r
- objtype *ob2;\r
- Uint16 x;\r
- Sint16 y;\r
- Uint16 far *map;\r
- Uint16 intile, rowdiff, width;\r
-\r
- ob->state = &s_eaterjump1;\r
-\r
- //jump straight up if below bonus object:\r
- for (ob2 = player->next; ob2; ob2 = ob2->next)\r
- {\r
- if (ob2->obclass == bonusobj && ob2->active == ac_yes\r
- && ob2->right > ob->left && ob2->left < ob->right\r
- && ob2->bottom < ob->top && ob2->bottom + 3*TILEGLOBAL > ob->top)\r
- {\r
- ob->xspeed = 0;\r
- ob->yspeed = -48;\r
- return;\r
- }\r
- }\r
-\r
- //jump straight up if below bonus tile:\r
- map = mapsegs[1] + mapbwidthtable[ob->tiletop-3]/2 + ob->tileleft;\r
- width = ob->tileright-ob->tileleft+1;\r
- rowdiff = mapwidth-width;\r
- for (y=0; y<3; y++, map+=rowdiff)\r
- {\r
- for (x=0; x<width; x++, map++)\r
- {\r
- intile = tinf[INTILE+*map];\r
- if (intile == INTILE_DROP || intile >= INTILE_BONUS100 && intile <= INTILE_AMMO)\r
- {\r
- ob->xspeed = 0;\r
- ob->yspeed = -48;\r
- return;\r
- }\r
- }\r
- }\r
-\r
- //vanish after having checked both directions:\r
- if (ob->temp1 >= 2)\r
- {\r
- // BUG? this doesn't play a sound\r
- ob->state = &s_eatertport1;\r
- return;\r
- }\r
-\r
- //jump in current direction if there is a floor in that direction:\r
- map = mapsegs[1] + mapbwidthtable[ob->tilebottom-2]/2 + ob->tilemidx;\r
- map += ob->xdir * 4;\r
- for (y=0; y<4; y++, map+=mapwidth)\r
- {\r
- if (tinf[NORTHWALL+*map])\r
- {\r
- ob->xspeed = ob->xdir * 20;\r
- ob->yspeed = -24;\r
- return;\r
- }\r
- }\r
-\r
- //couldn't jump in current direction, so turn around:\r
- if (++ob->temp1 == 2)\r
- {\r
- SD_PlaySound(SND_TREASUREEATERVANISH);\r
- ob->state = &s_eatertport1;\r
- return;\r
- }\r
-\r
- //jump in opposite direction:\r
- ob->xdir = -ob->xdir;\r
- ob->xspeed = ob->xdir * 20;\r
- ob->yspeed = -24;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_EaterTeleport\r
-=\r
-===========================\r
-*/\r
-\r
-void T_EaterTeleport(objtype *ob)\r
-{\r
- objtype *ob2;\r
-\r
- ob->temp1 = 0;\r
- for (ob2=player->next; ob2; ob2=ob2->next)\r
- {\r
- if (ob2->obclass == bonusobj)\r
- {\r
- ob->x = ob2->x - 8*PIXGLOBAL;\r
- ob->y = ob2->y;\r
- NewState(ob, &s_eatertport5);\r
- return;\r
- }\r
- }\r
- RemoveObj(ob);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Eater\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Eater(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == bonusobj)\r
- {\r
- //BUG? bonus object might be a key, and eating a key makes a level unwinnable\r
- hit->obclass = inertobj;\r
- hit->priority = 3;\r
- ChangeState(hit, &s_eatenbonus1);\r
- SD_PlaySound(SND_EATBONUS);\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- //basically StunObj(), but in different order:\r
- ob->temp1 = 0;\r
- ob->temp2 = 0;\r
- ob->temp3 = 0;\r
- ob->temp4 = ob->obclass;\r
- ob->obclass = stunnedobj;\r
- ExplodeShot(hit);\r
- ChangeState(ob, &s_eaterstun);\r
-\r
- ob->yspeed -= 16;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= EaterInTile\r
-=\r
-===========================\r
-*/\r
-\r
-void EaterInTile(objtype *ob)\r
-{\r
- Uint16 x, y;\r
- Uint16 far *map;\r
- Uint16 rowdiff, intile;\r
-\r
- map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft;\r
- rowdiff = mapwidth-(ob->tileright-ob->tileleft+1);\r
- for (y=ob->tiletop; y<=ob->tilebottom; y++, map+=rowdiff)\r
- {\r
- for (x=ob->tileleft; x<=ob->tileright; x++, map++)\r
- {\r
- intile = tinf[INTILE + *map] & INTILE_TYPEMASK;\r
- if (intile == INTILE_DROP || intile >= INTILE_BONUS100 && intile <= INTILE_AMMO)\r
- {\r
- RF_MemToMap(&zeromap, 1, x, y, 1, 1);\r
- GetNewObj(true);\r
- new->obclass = inertobj;\r
- new->priority = 3;\r
- new->needtoclip = cl_noclip;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- new->active = ac_removable;\r
- ChangeState(new, &s_eatenbonus1); //using ChangeState and not NewState is fine for noclipping objects\r
- //BUG? this doesn't play a sound\r
- break;\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_EaterAir\r
-=\r
-===========================\r
-*/\r
-\r
-void R_EaterAir(objtype *ob)\r
-{\r
- EaterInTile(ob);\r
-\r
- if (ob->hitnorth)\r
- ChangeState(ob, &s_eaterstand1);\r
-\r
- if (ob->hiteast || ob->hitwest)\r
- {\r
- ob->temp1++;\r
- ob->xdir = -ob->xdir;\r
- ob->xspeed = 0;\r
- }\r
-\r
- if (ob->hitnorth) //BUG? maybe this was supposed to check hitsouth as well?\r
- ob->yspeed = 0;\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- MIMROCK\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_mimrock = {MIMROCKSPR, MIMROCKSPR, step, false, true, 20, 0, 0, T_MimrockWait, NULL, R_Walk, &s_mimrock};\r
-statetype s_mimsneak1 = {MIMROCKWALKR1SPR, MIMROCKWALKL1SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak2};\r
-statetype s_mimsneak2 = {MIMROCKWALKR2SPR, MIMROCKWALKL2SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak3};\r
-statetype s_mimsneak3 = {MIMROCKWALKR3SPR, MIMROCKWALKL3SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak4};\r
-statetype s_mimsneak4 = {MIMROCKWALKR4SPR, MIMROCKWALKL4SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak5};\r
-statetype s_mimsneak5 = {MIMROCKWALKR1SPR, MIMROCKWALKL1SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimsneak6};\r
-statetype s_mimsneak6 = {MIMROCKWALKR2SPR, MIMROCKWALKL2SPR, step, false, true, 6, 64, 0, T_MimrockSneak, C_Mimrock, R_Walk, &s_mimrock};\r
-statetype s_mimbonk1 = {MIMROCKJUMPL1SPR, MIMROCKJUMPR1SPR, stepthink, false, false, 24, 0, 0, T_WeakProjectile, C_MimLethal, R_MimAir, &s_mimbonk2};\r
-statetype s_mimbonk2 = {MIMROCKJUMPL2SPR, MIMROCKJUMPR2SPR, stepthink, false, false, 10, 0, 0, T_WeakProjectile, C_MimLethal, R_MimAir, &s_mimbonk3};\r
-statetype s_mimbonk3 = {MIMROCKJUMPL3SPR, MIMROCKJUMPR3SPR, think, false, false, 10, 0, 0, T_WeakProjectile, C_MimLethal, R_MimAir, &s_mimbonk2};\r
-statetype s_mimbounce = {MIMROCKJUMPL3SPR, MIMROCKJUMPR3SPR, think, false, false, 10, 0, 0, T_Projectile, C_Mimrock, R_MimBounce, NULL};\r
-statetype s_mimstun = {MIMROCKJUMPL3SPR, MIMROCKJUMPL3SPR, think, false, false, 12, 0, 0, T_Projectile, NULL, R_Stunned, &s_mimstun2};\r
-statetype s_mimstun2 = {MINROCKSTUNSPR, MINROCKSTUNSPR, think, false, false, 12, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnMimrock\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnMimrock(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = mimrockobj;\r
- new->active = ac_yes;\r
- new->priority = 3;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y)+ -13*PIXGLOBAL;\r
- new->ydir = new->xdir = 1;\r
- NewState(new, &s_mimrock);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_MimrockWait\r
-=\r
-===========================\r
-*/\r
-\r
-void T_MimrockWait(objtype *ob)\r
-{\r
- if (abs(ob->bottom - player->bottom) > 5*TILEGLOBAL)\r
- return;\r
-\r
- if (abs(ob->x - player->x) > 3*TILEGLOBAL)\r
- {\r
- if (player->x < ob->x)\r
- {\r
- if (player->xdir == -1)\r
- {\r
- ob->xdir = -1;\r
- ob->state = &s_mimsneak1;\r
- }\r
- }\r
- else\r
- {\r
- if (player->xdir == 1)\r
- {\r
- ob->xdir = 1;\r
- ob->state = &s_mimsneak1;\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_MimrockSneak\r
-=\r
-===========================\r
-*/\r
-\r
-void T_MimrockSneak(objtype *ob)\r
-{\r
- if (abs(ob->bottom - player->bottom) > 5*TILEGLOBAL\r
- || ob->xdir != player->xdir)\r
- {\r
- ob->state = &s_mimrock;\r
- }\r
- else if (abs(ob->x - player->x) < 4*TILEGLOBAL)\r
- {\r
- ob->xspeed = ob->xdir * 20;\r
- ob->yspeed = -40;\r
- ytry = ob->yspeed * tics;\r
- ob->state = &s_mimbonk1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Mimrock\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Mimrock(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- //basically StunObj(), but in different order:\r
- ob->temp1 = 0;\r
- ob->temp2 = 0;\r
- ob->temp3 = 0;\r
- ob->temp4 = ob->obclass;\r
- ob->obclass = stunnedobj;\r
- ExplodeShot(hit);\r
- ChangeState(ob, &s_mimstun);\r
-\r
- ob->yspeed -= 16;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_MimLethal\r
-=\r
-===========================\r
-*/\r
-\r
-void C_MimLethal(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else\r
- {\r
- C_Mimrock(ob, hit);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_MimAir\r
-=\r
-===========================\r
-*/\r
-\r
-void R_MimAir(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- {\r
- SD_PlaySound(SND_HELMETHIT);\r
- ob->yspeed = -20;\r
- ChangeState(ob, &s_mimbounce);\r
- }\r
-\r
- if (ob->hiteast || ob->hitwest)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitnorth || ob->hitsouth)\r
- ob->yspeed = 0;\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_MimBounce\r
-=\r
-===========================\r
-*/\r
-\r
-void R_MimBounce(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- {\r
- SD_PlaySound(SND_HELMETHIT);\r
- ChangeState(ob, &s_mimrock);\r
- }\r
-\r
- if (ob->hiteast || ob->hitwest)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- ob->yspeed = 0;\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- DOPEFISH\r
-\r
-temp1 = blocked (cannot change xdir to chase Keen while this is non-zero)\r
-temp2 = old x position\r
-temp3 = old y position\r
-temp4 = pointer to object being eaten\r
- (BUG: pointer may be invalid after loading a saved game!)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_dopefish1 = {DOPEFISHSWIML1SPR, DOPEFISHSWIMR1SPR, stepthink, false, false, 20, 0, 0, T_Dope, C_Dope, R_Fish, &s_dopefish2};\r
-statetype s_dopefish2 = {DOPEFISHSWIML2SPR, DOPEFISHSWIMR2SPR, stepthink, false, false, 20, 0, 0, T_Dope, C_Dope, R_Fish, &s_dopefish1};\r
-statetype s_dopeattack = {DOPEFISHHUNGRYLSPR, DOPEFISHHUNGRYRSPR, think, false, false, 0, 0, 0, T_DopeHunt, NULL, R_Draw, NULL};\r
-statetype s_dopeeat = {DOPEFISHSWIML1SPR, DOPEFISHSWIMR1SPR, step, false, false, 60, 0, 0, NULL, NULL, R_Draw, &s_dopeburp1};\r
-statetype s_dopeburp1 = {DOPEFISHBURP1SPR, DOPEFISHBURP1SPR, step, false, false, 60, 0, 0, T_Burp, NULL, R_Draw, &s_dopeburp2};\r
-statetype s_dopeburp2 = {DOPEFISHBURP2SPR, DOPEFISHBURP2SPR, step, false, false, 60, 0, 0, NULL, NULL, R_Draw, &s_dopereturn};\r
-statetype s_dopereturn = {DOPEFISHSWIML1SPR, DOPEFISHSWIMR1SPR, think, false, false, 0, 0, 0, T_DopeReturn, NULL, R_Draw, &s_dopefish1};\r
-\r
-statetype s_dopefood = {SCHOOLFISHL1SPR, SCHOOLFISHR1SPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, NULL};\r
-statetype s_keendopefood = {SCUBAKEENDEAD1SPR, SCUBAKEENDEAD1SPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, &s_keendieslow};\r
-statetype s_keendieslow = {-1, -1, step, false, false, 180, 0, 0, T_EatenKeen, NULL, R_Draw, &s_keendieslow};\r
-\r
-statetype s_bubble1 = {BIGBUBBLE1SPR, BIGBUBBLE1SPR, think, false, false, 20, 0, 20, T_Bubble, NULL, R_Draw, &s_bubble2};\r
-statetype s_bubble2 = {BIGBUBBLE2SPR, BIGBUBBLE2SPR, think, false, false, 20, 0, 20, T_Bubble, NULL, R_Draw, &s_bubble3};\r
-statetype s_bubble3 = {BIGBUBBLE3SPR, BIGBUBBLE3SPR, think, false, false, 20, 0, 20, T_Bubble, NULL, R_Draw, &s_bubble4};\r
-statetype s_bubble4 = {BIGBUBBLE4SPR, BIGBUBBLE4SPR, think, false, false, 20, 0, 20, T_Bubble, NULL, R_Draw, &s_bubble1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnDopefish\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnDopefish(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = dopefishobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->needtoclip = cl_fullclip;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) + -3*TILEGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_dopefish1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_EatenKeen\r
-=\r
-===========================\r
-*/\r
-\r
-void T_EatenKeen(objtype *ob)\r
-{\r
- ob++; // shut up compiler\r
- playstate = ex_died;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Dope\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Dope(objtype *ob)\r
-{\r
- if (ob->temp1 == 0)\r
- {\r
- if (ob->x < player->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- }\r
- AccelerateXv(ob, ob->xdir, 10);\r
-\r
- if (ob->y < player->y)\r
- {\r
- AccelerateY(ob, 1, 10);\r
- }\r
- else\r
- {\r
- AccelerateY(ob, -1, 10);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DopeHunt\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DopeHunt(objtype *ob)\r
-{\r
- objtype *target;\r
- Sint16 xdist, ydist;\r
-\r
- target = (objtype *)(ob->temp4);\r
- ydist = target->y - TILEGLOBAL - ob->y;\r
- if (ob->xdir == 1)\r
- {\r
- xdist = target->right + 2*PIXGLOBAL - ob->right;\r
- }\r
- else\r
- {\r
- xdist = target->left - 2*PIXGLOBAL - ob->left;\r
- }\r
-\r
- if (xdist < 0)\r
- {\r
- xtry = tics * -32;\r
- if (xtry < xdist)\r
- xtry = xdist;\r
- }\r
- else\r
- {\r
- xtry = tics * 32;\r
- if (xtry > xdist)\r
- xtry = xdist;\r
- }\r
-\r
- if (ydist < 0)\r
- {\r
- ytry = tics * -32;\r
- if (ytry < ydist)\r
- ytry = ydist;\r
- }\r
- else\r
- {\r
- ytry = tics * 32;\r
- if (ytry > ydist)\r
- ytry = ydist;\r
- }\r
-\r
- if (xtry == xdist && ytry == ydist)\r
- {\r
- if (target == player)\r
- {\r
- ChangeState(target, &s_keendieslow);\r
- }\r
- else if (target->state->nextstate)\r
- {\r
- ChangeState(target, target->state->nextstate);\r
- }\r
- else\r
- {\r
- RemoveObj(target);\r
- }\r
- ob->state = &s_dopeeat;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DopeReturn\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DopeReturn(objtype *ob)\r
-{\r
- Sint16 xdist, ydist;\r
-\r
- ydist = ob->temp3 - ob->y;\r
- xdist = ob->temp2 - ob->x;\r
-\r
- if (xdist < 0)\r
- {\r
- xtry = tics * -32;\r
- if (xtry < xdist)\r
- xtry = xdist;\r
- }\r
- else\r
- {\r
- xtry = tics * 32;\r
- if (xtry > xdist)\r
- xtry = xdist;\r
- }\r
-\r
- if (ydist < 0)\r
- {\r
- ytry = tics * -32;\r
- if (ytry < ydist)\r
- ytry = ydist;\r
- }\r
- else\r
- {\r
- ytry = tics * 32;\r
- if (ytry > ydist)\r
- ytry = ydist;\r
- }\r
-\r
- if (xtry == xdist && ytry == ydist)\r
- {\r
- ob->state = ob->state->nextstate;\r
- ob->needtoclip = cl_fullclip;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Burp\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Burp(objtype *ob)\r
-{\r
- GetNewObj(true);\r
- new->x = ob->x + 56*PIXGLOBAL;\r
- new->y = ob->y + 32*PIXGLOBAL;\r
- new->obclass = inertobj;\r
- new->priority = 3;\r
- new->active = ac_removable;\r
- new->needtoclip = cl_noclip;\r
- new->yspeed = -20;\r
- new->xspeed = 4;\r
- NewState(new, &s_bubble1);\r
- SD_PlaySound(SND_BURP);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Bubble\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Bubble(objtype *ob)\r
-{\r
- T_Velocity(ob);\r
- if (US_RndT() < tics * 16)\r
- ob->xspeed = -ob->xspeed;\r
-\r
- if (ob->y < 3*TILEGLOBAL)\r
- RemoveObj(ob);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Dope\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Dope(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == schoolfishobj)\r
- {\r
- ChangeState(hit, &s_dopefood);\r
- }\r
- else if (hit->obclass == keenobj && !godmode)\r
- {\r
- hit->obclass = inertobj; //prevents other objects from killing Keen before he is fully swallowed\r
- hit->needtoclip = cl_noclip;\r
- SD_PlaySound(SND_KEENDEAD);\r
- ChangeState(hit, &s_keendopefood);\r
- }\r
- else\r
- {\r
- return;\r
- }\r
-\r
- ob->temp2 = ob->x;\r
- ob->temp3 = ob->y;\r
- ob->temp4 = (Sint16)hit;\r
- if (hit->midx < ob->midx)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
- ChangeState(ob, &s_dopeattack);\r
- ob->needtoclip = cl_noclip;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Fish\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Fish(objtype *ob) //for Dopefish and Schoolfish\r
-{\r
- if ((ob->hitsouth || ob->hitnorth) && ob->temp1 == 0)\r
- ob->temp1++;\r
-\r
- if (ob->hiteast || ob->hitwest)\r
- {\r
- ob->xspeed = 0;\r
- ob->xdir = -ob->xdir;\r
- ob->temp1 = 1;\r
- }\r
-\r
- if (!ob->hitsouth && !ob->hitnorth)\r
- ob->temp1 = 0;\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SCHOOLFISH\r
-\r
-temp1 = blocked (cannot change xdir to chase Keen while this is non-zero)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_schoolfish1 = {SCHOOLFISHL1SPR, SCHOOLFISHR1SPR, stepthink, false, false, 20, 0, 0, T_SchoolFish, NULL, R_Fish, &s_schoolfish2};\r
-statetype s_schoolfish2 = {SCHOOLFISHL2SPR, SCHOOLFISHR2SPR, stepthink, false, false, 20, 0, 0, T_SchoolFish, NULL, R_Fish, &s_schoolfish1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSchoolfish\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSchoolfish(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = schoolfishobj;\r
- new->active = ac_yes;\r
- new->needtoclip = cl_fullclip;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- new->ydir = new->xdir = 1;\r
- NewState(new, &s_schoolfish1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_SchoolFish\r
-=\r
-===========================\r
-*/\r
-\r
-void T_SchoolFish(objtype *ob)\r
-{\r
- if (ob->temp1 == 0)\r
- {\r
- if (ob->x < player->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- }\r
- AccelerateXv(ob, ob->xdir, 10);\r
-\r
- if (ob->y < player->y)\r
- {\r
- AccelerateY(ob, 1, 10);\r
- }\r
- else\r
- {\r
- AccelerateY(ob, -1, 10);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- PIXIE (a.k.a. SPRITE)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_pixie = {SPRITEFLOATSPR, SPRITEFLOATSPR, think, false, false, 10, 0, 0, T_Pixie, C_Lethal, R_Draw, &s_pixie};\r
-statetype s_pixielook = {SPRITEAIMLSPR, SPRITEAIMRSPR, step, false, false, 40, 0, 0, T_PixieCheck, C_Lethal, R_Draw, &s_pixie};\r
-statetype s_pixieshoot = {SPRITESHOOTLSPR, SPRITESHOOTRSPR, step, false, false, 40, 0, 0, T_PixieShoot, C_Lethal, R_Draw, &s_pixieshoot2};\r
-statetype s_pixieshoot2 = {SPRITESHOOTLSPR, SPRITESHOOTRSPR, step, false, false, 30, 0, 0, NULL, C_Lethal, R_Draw, &s_pixie};\r
-statetype s_pixiefire1 = {SPRITESHOT1SPR, SPRITESHOT1SPR, slide, false, false, 10, 64, 0, NULL, C_Lethal, R_Mshot, &s_pixiefire2};\r
-statetype s_pixiefire2 = {SPRITESHOT2SPR, SPRITESHOT2SPR, slide, false, false, 10, 64, 0, NULL, C_Lethal, R_Mshot, &s_pixiefire3};\r
-statetype s_pixiefire3 = {SPRITESHOT3SPR, SPRITESHOT3SPR, slide, false, false, 10, 64, 0, NULL, C_Lethal, R_Mshot, &s_pixiefire4};\r
-statetype s_pixiefire4 = {SPRITESHOT4SPR, SPRITESHOT4SPR, slide, false, false, 10, 64, 0, NULL, C_Lethal, R_Mshot, &s_pixiefire1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnPixie\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnPixie(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = pixieobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->needtoclip = cl_noclip;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = new->temp1 = CONVERT_TILE_TO_GLOBAL(y);\r
- new->ydir = new->xdir = 1;\r
- NewState(new, &s_pixie);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Pixie\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Pixie(objtype *ob)\r
-{\r
- AccelerateY(ob, ob->ydir, 8);\r
- if ((Sint16)(ob->temp1 - ob->y) > 2*PIXGLOBAL)\r
- {\r
- ob->ydir = 1;\r
- }\r
- if ((Sint16)(ob->y - ob->temp1) > 2*PIXGLOBAL)\r
- {\r
- ob->ydir = -1;\r
- }\r
-\r
- if (player->top < ob->bottom && player->bottom > ob->top)\r
- {\r
- if (player->x < ob->x)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
- ob->state = &s_pixielook;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_PixieCheck\r
-=\r
-===========================\r
-*/\r
-\r
-void T_PixieCheck(objtype *ob)\r
-{\r
- if (player->top < ob->bottom && player->bottom > ob->top)\r
- ob->state = &s_pixieshoot;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_PixieShoot\r
-=\r
-===========================\r
-*/\r
-\r
-void T_PixieShoot(objtype *ob)\r
-{\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y + 8*PIXGLOBAL;\r
- new->priority = 0;\r
- new->obclass = mshotobj;\r
- new->active = ac_removable;\r
- SD_PlaySound(SND_KEENFIRE); //BUG?\r
- new->xdir = ob->xdir;\r
- NewState(new, &s_pixiefire1);\r
- SD_PlaySound(SND_SPRITEFIRE);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Mshot\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Mshot(objtype *ob)\r
-{\r
- if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest)\r
- {\r
- RemoveObj(ob);\r
- }\r
- else\r
- {\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- MINE\r
-\r
-=============================================================================\r
-*/\r
-statetype s_mine = {MINESPR, MINESPR, think, false, false, 10, 0, 0, T_Platform, C_Mine, R_Draw, &s_mine};\r
-statetype s_mineboom1 = {MINEEXPLODE1SPR, MINEEXPLODE1SPR, step, false, false, 30, 0, 0, NULL, NULL, R_Draw, &s_mineboom2};\r
-statetype s_mineboom2 = {MINEEXPLODE2SPR, MINEEXPLODE2SPR, step, false, false, 30, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnMine\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnMine(Sint16 x, Sint16 y, Sint16 dir)\r
-{\r
- GetNewObj(false);\r
- new->obclass = mineobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- switch (dir)\r
- {\r
- case 0:\r
- new->xdir = 0;\r
- new->ydir = -1;\r
- break;\r
- case 1:\r
- new->xdir = 1;\r
- new->ydir = 0;\r
- break;\r
- case 2:\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- break;\r
- case 3:\r
- new->xdir = -1;\r
- new->ydir = 0;\r
- break;\r
- }\r
- NewState(new, &s_mine);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Mine\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Mine(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- ChangeState(ob, &s_mineboom1);\r
- SD_PlaySound(SND_MINEEXPLODE);\r
- KillKeen();\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- PRINCESS LINDSEY\r
-\r
-temp1 = initial y position\r
-\r
-=============================================================================\r
-*/\r
-statetype s_lindsey1 = {LINDSEY1SPR, LINDSEY1SPR, stepthink, false, false, 20, 0, 0, T_Lindsey, NULL, R_Draw, &s_lindsey2};\r
-statetype s_lindsey2 = {LINDSEY2SPR, LINDSEY2SPR, stepthink, false, false, 20, 0, 0, T_Lindsey, NULL, R_Draw, &s_lindsey3};\r
-statetype s_lindsey3 = {LINDSEY3SPR, LINDSEY3SPR, stepthink, false, false, 20, 0, 0, T_Lindsey, NULL, R_Draw, &s_lindsey4};\r
-statetype s_lindsey4 = {LINDSEY4SPR, LINDSEY4SPR, stepthink, false, false, 20, 0, 0, T_Lindsey, NULL, R_Draw, &s_lindsey1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnLindsey\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnLindsey(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = lindseyobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = new->temp1 = CONVERT_TILE_TO_GLOBAL(y) - TILEGLOBAL;\r
- new->ydir = 1;\r
- NewState(new, &s_lindsey1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Lindsey\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Lindsey(objtype *ob)\r
-{\r
- AccelerateY(ob, ob->ydir, 8);\r
- if (ob->temp1 - (Sint16)ob->y > 2*PIXGLOBAL)\r
- {\r
- ob->ydir = 1;\r
- }\r
- if ((Sint16)ob->y - ob->temp1 > 2*PIXGLOBAL)\r
- {\r
- ob->ydir = -1;\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- DARTS\r
-\r
-temp1 = direction\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_dartthrower = {0, 0, step, false, false, 150, 0, 0, T_DartShoot, NULL, NULL, &s_dartthrower};\r
-statetype s_dart1 = {DARTL1SPR, DARTR1SPR, slide, false, false, 6, 64, 0, NULL, C_Lethal, R_Mshot, &s_dart2};\r
-statetype s_dart2 = {DARTL2SPR, DARTR2SPR, slide, false, false, 6, 64, 0, NULL, C_Lethal, R_Mshot, &s_dart1};\r
-statetype s_dartup1 = {DARTU1SPR, DARTU1SPR, slide, false, false, 6, 0, 64, NULL, C_Lethal, R_Mshot, &s_dartup2};\r
-statetype s_dartup2 = {DARTU2SPR, DARTU2SPR, slide, false, false, 6, 0, 64, NULL, C_Lethal, R_Mshot, &s_dartup1};\r
-statetype s_dartdown1 = {DARTD1SPR, DARTD1SPR, slide, false, false, 6, 0, 64, NULL, C_Lethal, R_Mshot, &s_dartdown2};\r
-statetype s_dartdown2 = {DARTD2SPR, DARTD2SPR, slide, false, false, 6, 0, 64, NULL, C_Lethal, R_Mshot, &s_dartdown1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnDartShooter\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnDartShooter(Sint16 x, Sint16 y, Sint16 dir)\r
-{\r
- GetNewObj(false);\r
- new->obclass = inertobj;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->needtoclip = cl_noclip;\r
- new->y = CONVERT_TILE_TO_GLOBAL(y);\r
- new->temp1 = dir;\r
- switch (dir)\r
- {\r
- case 0:\r
- new->y -= 3*PIXGLOBAL;\r
- new->x += 9*PIXGLOBAL;\r
- new->shapenum = DARTU1SPR;\r
- break;\r
- case 1:\r
- new->x += 8*PIXGLOBAL;\r
- new->y += 5*PIXGLOBAL;\r
- new->shapenum = DARTR1SPR;\r
- break;\r
- case 2:\r
- new->x += 9*PIXGLOBAL;\r
- new->shapenum = DARTD1SPR;\r
- break;\r
- case 3:\r
- new->y += 7*PIXGLOBAL;\r
- new->x -= 3*PIXGLOBAL;\r
- new->shapenum = DARTL1SPR;\r
- break;\r
- }\r
- NewState(new, &s_dartthrower);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DartShoot\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DartShoot(objtype *ob)\r
-{\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->obclass = mshotobj;\r
- new->active = ac_removable;\r
- switch (ob->temp1)\r
- {\r
- case 0:\r
- new->xdir = 0;\r
- new->ydir = -1;\r
- NewState(new, &s_dartup1);\r
- break;\r
- case 1:\r
- new->xdir = 1;\r
- new->ydir = 0;\r
- NewState(new, &s_dart1);\r
- break;\r
- case 2:\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- NewState(new, &s_dartdown1);\r
- break;\r
- case 3:\r
- new->xdir = -1;\r
- new->ydir = 0;\r
- NewState(new, &s_dart1);\r
- break;\r
- }\r
- SD_PlaySound(SND_SHOOTDART);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_DartThrower\r
-=\r
-===========================\r
-*/\r
-\r
-void R_DartThrower(objtype *ob) //never used\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SCUBA GEAR\r
-\r
-=============================================================================\r
-*/\r
-statetype s_scuba = {SCUBASPR, SCUBASPR, step, false, false, 30000, 0, 0, NULL, C_Scuba, R_Draw, &s_scuba};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnScuba\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnScuba(Sint16 x, Sint16 y)\r
-{\r
- GetNewObj(false);\r
- new->obclass = scubaobj;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(x);\r
- new->y = CONVERT_TILE_TO_GLOBAL(y) + -TILEGLOBAL;\r
- NewState(new, &s_scuba);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Scuba\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Scuba(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj && hit->hitnorth)\r
- {\r
- gamestate.wetsuit = true;\r
- SD_PlaySound(SND_MAKEFOOT);\r
- GotScuba();\r
- RF_ForceRefresh();\r
- playstate = ex_completed;\r
- ob++; // shut up compiler\r
- }\r
-}
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __K4_DEF__\r
-#define __K4_DEF__\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL CONSTANTS\r
-\r
-=============================================================================\r
-*/\r
-\r
-#if GRMODE == CGAGR\r
-#define MINMEMORY 280000l\r
-#else\r
-#define MINMEMORY 310000l\r
-#endif\r
-\r
-#define STARPALETTE {0, 1, 2, 3, 4, 16, 6, 7, 31, 31, 31, 31, 31, 31, 31, 31, 0}\r
-#define INTROPALETTE {0, 24, 24, 7, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 19, 0}\r
-#define SHRINKPALETTE {0, 24, 24, 7, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 24, 0}\r
-\r
-#define HIGHSCORE_LEFT 24\r
-#define HIGHSCORE_TOP 51\r
-#define HIGHSCORE_RIGHT 296\r
-#define HIGHSCORE_MAP 19\r
-\r
-#define STATUS_PRESSKEY_X 160\r
-\r
-#define WORLDMAPNAME "Shadowlands"\r
-#define DROPSNAME "DROPS"\r
-\r
-#define STARWARSMUSIC 12\r
-#define ENDINGMUSIC 7\r
-\r
-// levels in this range can NOT be re-entered (BWB level should be > MAXDONELEVEL)\r
-#define MINDONELEVEL 1\r
-#define MAXDONELEVEL 17\r
-\r
-#define INACTIVATEDIST 4\r
-\r
-/*\r
-=============================================================================\r
-\r
- K4_SPEC DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern char far swtext[];\r
-extern char far *levelnames[GAMELEVELS];\r
-extern char far *levelenter[GAMELEVELS];\r
-\r
-void ScanInfoPlane(void);\r
-void PrincessLindsey(void);\r
-void RescueJanitor(void);\r
-void CantSwim(void);\r
-void GotScuba(void);\r
-void RescuedMember(void);\r
-\r
-extern statetype s_keenswimslow1;\r
-extern statetype s_keenswimslow2;\r
-extern statetype s_keenswim1;\r
-extern statetype s_keenswim2;\r
-extern statetype s_kbubble1;\r
-extern statetype s_kbubble2;\r
-extern statetype s_kbubble3;\r
-extern statetype s_kbubble4;\r
-void SpawnSwimKeen(Sint16 x, Sint16 y);\r
-void SpawnKbubble(objtype *ob);\r
-void T_KeenSwimSlow(objtype *ob);\r
-void T_KeenSwim(objtype *ob);\r
-void C_KeenSwim(objtype *ob, objtype *hit);\r
-void R_KeenSwim(objtype *ob);\r
-\r
-/*\r
-=============================================================================\r
-\r
- K4_ACT1 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern statetype s_miragia0;\r
-extern statetype s_miragia1;\r
-extern statetype s_miragia2;\r
-extern statetype s_miragia3;\r
-extern statetype s_miragia4;\r
-extern statetype s_miragia5;\r
-extern statetype s_miragia6;\r
-extern statetype s_miragia7;\r
-void SpawnMiragia(Sint16 x, Sint16 y);\r
-void T_Miragia0(objtype *ob);\r
-void T_Miragia1(objtype *ob);\r
-void T_Miragia2(objtype *ob);\r
-void T_Miragia3(objtype *ob);\r
-void T_Miragia4(objtype *ob);\r
-void T_Miragia5(objtype *ob);\r
-void T_Miragia6(objtype *ob);\r
-void T_Miragia7(objtype *ob);\r
-\r
-extern statetype s_bonus1;\r
-extern statetype s_bonus2;\r
-extern statetype s_bonusrise;\r
-extern statetype s_splash1;\r
-extern statetype s_splash2;\r
-extern statetype s_splash3;\r
-extern Uint16 bonusshape[];\r
-void SpawnBonus(Sint16 x, Sint16 y, Sint16 type);\r
-void SpawnSplash(Sint16 x, Sint16 y);\r
-void T_Bonus(objtype *ob);\r
-\r
-extern statetype s_councilwalk1;\r
-extern statetype s_councilwalk2;\r
-extern statetype s_councilstand;\r
-void SpawnCouncil(Sint16 x, Sint16 y);\r
-void T_Council(objtype *ob);\r
-\r
-extern statetype s_slugwalk1;\r
-extern statetype s_slugwalk2;\r
-extern statetype s_slugpiss1;\r
-extern statetype s_slugstun;\r
-extern statetype s_slugstunalt;\r
-extern statetype s_slugslime;\r
-extern statetype s_slugslime2;\r
-void SpawnSlug(Sint16 x, Sint16 y);\r
-void T_Slug(objtype *ob);\r
-void T_SlugPiss(objtype *ob);\r
-void C_Slug(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_mushroom1;\r
-extern statetype s_mushroom2;\r
-void SpawnMadMushroom(Sint16 x, Sint16 y);\r
-void T_Mushroom(objtype *ob);\r
-void C_Mushroom(objtype *ob, objtype *hit);\r
-void R_Mushroom(objtype *ob);\r
-\r
-extern statetype s_egg;\r
-extern statetype s_eggbroke;\r
-extern statetype s_eggchip1;\r
-extern statetype s_eggchip2;\r
-extern statetype s_eggchip3;\r
-extern statetype s_eggbirdpause;\r
-extern statetype s_eggbirdwalk1;\r
-extern statetype s_eggbirdwalk2;\r
-extern statetype s_eggbirdwalk3;\r
-extern statetype s_eggbirdwalk4;\r
-extern statetype s_eggbirdfly1;\r
-extern statetype s_eggbirdfly2;\r
-extern statetype s_eggbirdfly3;\r
-extern statetype s_eggbirdfly4;\r
-extern statetype s_eggbirddrop;\r
-extern statetype s_eggbirdstun;\r
-extern statetype s_eggbirdstun2;\r
-extern statetype s_eggbirdstun3;\r
-extern statetype s_eggbirdstun4;\r
-extern statetype s_eggbirdstun5;\r
-void SpawnEggbird(Sint16 x, Sint16 y);\r
-void T_EggUnstun(objtype *ob);\r
-void SpawnEggbirdOut(Sint16 x, Sint16 y);\r
-void C_Egg(objtype *ob, objtype *hit);\r
-void T_Eggbird(objtype *ob);\r
-void T_EggbirdFly(objtype *ob);\r
-void C_Eggbird(objtype *ob, objtype *hit);\r
-void C_EggbirdStun(objtype *ob, objtype *hit);\r
-void R_Eggbird(objtype *ob);\r
-void R_EggbirdDrop(objtype *ob);\r
-void R_Chip(objtype *ob);\r
-void R_Eggbirdfly(objtype *ob);\r
-\r
-extern statetype s_arach1;\r
-extern statetype s_arach2;\r
-extern statetype s_arach3;\r
-extern statetype s_arach4;\r
-extern statetype s_arachstun;\r
-extern statetype s_arachstun2;\r
-extern statetype s_arachstun3;\r
-extern statetype s_arachstun4;\r
-extern statetype s_arachstun5;\r
-void SpawnArachnut(Sint16 x, Sint16 y);\r
-void T_Arach(objtype *ob);\r
-void C_Arach(objtype *ob, objtype *hit);\r
-void C_ArachStun(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_pestfly1;\r
-extern statetype s_pestfly2;\r
-extern statetype s_squashedpest;\r
-extern statetype s_pestrest1;\r
-extern statetype s_pestrest2;\r
-extern statetype s_pestrest3;\r
-extern statetype s_pestrest4;\r
-extern statetype s_pestrest5;\r
-extern statetype s_pestrest6;\r
-extern statetype s_pestrest7;\r
-extern statetype s_pestrest8;\r
-extern statetype s_pestrest9;\r
-extern statetype s_pestrest10;\r
-extern statetype s_pestrest11;\r
-extern statetype s_pestrest12;\r
-extern statetype s_pestrest13;\r
-extern statetype s_pestrest14;\r
-extern statetype s_pestrest15;\r
-extern statetype s_pestrest16;\r
-extern statetype s_pestrest17;\r
-void SpawnSkypest(Sint16 x, Sint16 y);\r
-void T_PestFly(objtype *ob);\r
-void C_PestFly(objtype *ob, objtype *hit);\r
-void C_Squashable(objtype *ob, objtype *hit);\r
-void T_PestRest(objtype *ob);\r
-void R_Pest(objtype *ob);\r
-\r
-/*\r
-=============================================================================\r
-\r
- K4_ACT2 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern statetype s_worm;\r
-extern statetype s_wormpeek1;\r
-extern statetype s_wormpeek2;\r
-extern statetype s_wormpeek3;\r
-extern statetype s_wormpeek4;\r
-extern statetype s_wormpeek5;\r
-extern statetype s_wormpeek6;\r
-extern statetype s_wormpeek7;\r
-extern statetype s_wormpeek8;\r
-extern statetype s_wormbite1;\r
-extern statetype s_wormbite2;\r
-extern statetype s_wormbite3;\r
-extern statetype s_wormbite4;\r
-extern statetype s_wormbite5;\r
-extern statetype s_wormstun;\r
-void SpawnWormMouth(Sint16 x, Sint16 y);\r
-void T_WormLookRight(objtype *ob);\r
-void T_WormLook(objtype *ob);\r
-void T_WormLookLeft(objtype *ob);\r
-void T_Worm(objtype *ob);\r
-void C_Worm(objtype *ob, objtype *hit);\r
-void C_WormKill(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_cloudsleep;\r
-extern statetype s_cloudwake;\r
-extern statetype s_cloud;\r
-extern statetype s_cloudalign;\r
-extern statetype s_cloudcharge;\r
-extern statetype s_cloudattack1;\r
-extern statetype s_cloudattack2;\r
-extern statetype s_cloudattack3;\r
-extern statetype s_cloudattack4;\r
-extern statetype s_cloudattack5;\r
-extern statetype s_cloudattack6;\r
-extern statetype s_cloudattack7;\r
-extern statetype s_cloudattack8;\r
-extern statetype s_cloudattack9;\r
-extern statetype s_bolt1;\r
-extern statetype s_bolt2;\r
-extern statetype s_bolt3;\r
-extern statetype s_bolt4;\r
-extern statetype s_bolt5;\r
-extern statetype s_bolt6;\r
-void SpawnCloudster(Sint16 x, Sint16 y);\r
-void T_Cloud(objtype *ob);\r
-void T_CloudAlign(objtype *ob);\r
-void R_Cloud(objtype *ob);\r
-void T_CloudShoot(objtype *ob);\r
-void C_CloudSleep(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_berkefloat1;\r
-extern statetype s_berkefloat2;\r
-extern statetype s_berkefloat3;\r
-extern statetype s_berkefloat4;\r
-extern statetype s_berkethrow1;\r
-extern statetype s_berkethrow2;\r
-extern statetype s_berkethrow3;\r
-extern statetype s_berkethrow4;\r
-extern statetype s_berkethrow5;\r
-extern statetype s_berkethrow6;\r
-extern statetype s_berkethrow7;\r
-extern statetype s_berkethrow8;\r
-extern statetype s_berkethrow9;\r
-extern statetype s_berkethrow10;\r
-extern statetype s_berkethrow11;\r
-extern statetype s_berkethrow12;\r
-extern statetype s_fire1;\r
-extern statetype s_fire2;\r
-extern statetype s_fireland1;\r
-extern statetype s_fireland2;\r
-extern statetype s_fireland3;\r
-extern statetype s_fireland4;\r
-extern statetype s_fireland5;\r
-extern statetype s_fireland6;\r
-extern statetype s_fireland7;\r
-extern statetype s_fireland8;\r
-extern statetype s_fireland9;\r
-void SpawnBerkeloid(Sint16 x, Sint16 y);\r
-void BerkeThink(objtype *ob);\r
-void BerkeThrowThink(objtype *ob);\r
-void BerkeThrowDone(objtype *ob);\r
-void C_Berke(objtype *ob, objtype *hit);\r
-void FireReact(objtype *ob);\r
-void BerkeDrawReact(objtype *ob);\r
-void BerkeWalkReact(objtype *ob);\r
-\r
-extern statetype s_footsmoke1;\r
-extern statetype s_footsmoke2;\r
-extern statetype s_footsmoke3;\r
-extern statetype s_footsmoke4;\r
-extern statetype s_inch1;\r
-extern statetype s_inch2;\r
-extern statetype s_footchange; //never used!\r
-extern statetype s_footwait;\r
-void SpawnInchworm(Sint16 x, Sint16 y);\r
-void SpawnFoot(Sint16 x, Sint16 y);\r
-void InchThink(objtype *ob);\r
-void InchContact(objtype *ob, objtype *hit);\r
-void FootContact(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_bounderup1;\r
-extern statetype s_bounderup2;\r
-extern statetype s_bounderside1;\r
-extern statetype s_bounderside2;\r
-extern statetype s_bounderstun;\r
-extern statetype s_bounderstun2;\r
-void SpawnBounder(Sint16 x, Sint16 y);\r
-void C_Bounder(objtype *ob, objtype *hit);\r
-void R_Bounder(objtype *ob);\r
-\r
-extern statetype s_lick1;\r
-extern statetype s_lick2;\r
-extern statetype s_lick3;\r
-extern statetype s_lick4;\r
-extern statetype s_licklick1;\r
-extern statetype s_licklick2;\r
-extern statetype s_licklick3;\r
-extern statetype s_licklick4;\r
-extern statetype s_licklick5;\r
-extern statetype s_licklick6;\r
-extern statetype s_licklick7;\r
-extern statetype s_licklick8;\r
-extern statetype s_lickstun;\r
-extern statetype s_lickstun2;\r
-void SpawnLick(Sint16 x, Sint16 y);\r
-void LickJumpThink(objtype *ob);\r
-void LickContact(objtype *ob, objtype *hit);\r
-void LickKillContact(objtype *ob, objtype *hit);\r
-void LickAirReact(objtype *ob);\r
-\r
-extern statetype s_platform;\r
-void SpawnPlatform(Sint16 x, Sint16 y, Sint16 dir);\r
-void T_Platform(objtype *ob);\r
-void R_Platform(objtype *ob);\r
-\r
-extern statetype s_dropplatsit;\r
-extern statetype s_dropplatfall;\r
-extern statetype s_dropplatrise;\r
-void SpawnDropPlat(Sint16 x, Sint16 y);\r
-void T_DropPlatSit(objtype *ob);\r
-void T_DropPlatFall(objtype *ob);\r
-void T_DropPlatRise(objtype *ob);\r
-\r
-/*\r
-=============================================================================\r
-\r
- K4_ACT3 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern statetype s_eaterstand1;\r
-extern statetype s_eaterstand2;\r
-extern statetype s_eatertport1;\r
-extern statetype s_eatertport2;\r
-extern statetype s_eatertport3;\r
-extern statetype s_eatertport4;\r
-extern statetype s_eatertport5;\r
-extern statetype s_eatertport6;\r
-extern statetype s_eatertport7;\r
-extern statetype s_eatertport8;\r
-extern statetype s_eaterjump1;\r
-extern statetype s_eaterjump2;\r
-extern statetype s_eaterjump3;\r
-extern statetype s_eaterjump4;\r
-extern statetype s_eaterstun;\r
-extern statetype s_eaterstun2;\r
-extern statetype s_eatenbonus1;\r
-extern statetype s_eatenbonus2;\r
-extern statetype s_eatenbonus3;\r
-extern statetype s_eatenbonus4;\r
-void SpawnEater(Sint16 x, Sint16 y);\r
-void T_EaterJump(objtype *ob);\r
-void T_EaterTeleport(objtype *ob);\r
-void C_Eater(objtype *ob, objtype *hit);\r
-void EaterInTile(objtype *ob);\r
-void R_EaterAir(objtype *ob);\r
-\r
-extern statetype s_mimrock;\r
-extern statetype s_mimsneak1;\r
-extern statetype s_mimsneak2;\r
-extern statetype s_mimsneak3;\r
-extern statetype s_mimsneak4;\r
-extern statetype s_mimsneak5;\r
-extern statetype s_mimsneak6;\r
-extern statetype s_mimbonk1;\r
-extern statetype s_mimbonk2;\r
-extern statetype s_mimbonk3;\r
-extern statetype s_mimbounce;\r
-extern statetype s_mimstun;\r
-extern statetype s_mimstun2;\r
-void SpawnMimrock(Sint16 x, Sint16 y);\r
-void T_MimrockWait(objtype *ob);\r
-void T_MimrockSneak(objtype *ob);\r
-void C_Mimrock(objtype *ob, objtype *hit);\r
-void C_MimLethal(objtype *ob, objtype *hit);\r
-void R_MimAir(objtype *ob);\r
-void R_MimBounce(objtype *ob);\r
-\r
-extern statetype s_dopefish1;\r
-extern statetype s_dopefish2;\r
-extern statetype s_dopeattack;\r
-extern statetype s_dopeeat;\r
-extern statetype s_dopeburp1;\r
-extern statetype s_dopeburp2;\r
-extern statetype s_dopereturn;\r
-extern statetype s_dopefood;\r
-extern statetype s_keendopefood;\r
-extern statetype s_keendieslow;\r
-extern statetype s_bubble1;\r
-extern statetype s_bubble2;\r
-extern statetype s_bubble3;\r
-extern statetype s_bubble4;\r
-void SpawnDopefish(Sint16 x, Sint16 y);\r
-void T_EatenKeen(objtype *ob);\r
-void T_Dope(objtype *ob);\r
-void T_DopeHunt(objtype *ob);\r
-void T_DopeReturn(objtype *ob);\r
-void T_Burp(objtype *ob);\r
-void T_Bubble(objtype *ob);\r
-void C_Dope(objtype *ob, objtype *hit);\r
-void R_Fish(objtype *ob);\r
-\r
-extern statetype s_schoolfish1;\r
-extern statetype s_schoolfish2;\r
-void SpawnSchoolfish(Sint16 x, Sint16 y);\r
-void T_SchoolFish(objtype *ob);\r
-\r
-extern statetype s_pixie;\r
-extern statetype s_pixielook;\r
-extern statetype s_pixieshoot;\r
-extern statetype s_pixieshoot2;\r
-extern statetype s_pixiefire1;\r
-extern statetype s_pixiefire2;\r
-extern statetype s_pixiefire3;\r
-extern statetype s_pixiefire4;\r
-void SpawnPixie(Sint16 x, Sint16 y);\r
-void T_Pixie(objtype *ob);\r
-void T_PixieCheck(objtype *ob);\r
-void T_PixieShoot(objtype *ob);\r
-void R_Mshot(objtype *ob);\r
-\r
-extern statetype s_mine;\r
-extern statetype s_mineboom1;\r
-extern statetype s_mineboom2;\r
-void SpawnMine(Sint16 x, Sint16 y, Sint16 dir);\r
-void C_Mine(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_lindsey1;\r
-extern statetype s_lindsey2;\r
-extern statetype s_lindsey3;\r
-extern statetype s_lindsey4;\r
-void SpawnLindsey(Sint16 x, Sint16 y);\r
-void T_Lindsey(objtype *ob);\r
-\r
-extern statetype s_dartthrower;\r
-extern statetype s_dart1;\r
-extern statetype s_dart2;\r
-extern statetype s_dartup1;\r
-extern statetype s_dartup2;\r
-extern statetype s_dartdown1;\r
-extern statetype s_dartdown2;\r
-void SpawnDartShooter(Sint16 x, Sint16 y, Sint16 dir);\r
-void T_DartShoot(objtype *ob);\r
-void R_DartThrower(objtype *ob);\r
-\r
-extern statetype s_scuba;\r
-void SpawnScuba(Sint16 x, Sint16 y);\r
-void C_Scuba(objtype *ob, objtype *hit);\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K4_SPEC.C\r
-=========\r
-\r
-Contains (in this order):\r
-\r
-- lump definition\r
-- "Star Wars" crawl text\r
-- level names & messages\r
-- ScanInfoPlane() - for spawning the level objects and marking required sprites\r
-- messages for Lindsey, Janitor, Oracle Members and more\r
-\r
-- actor states & implementation for swimming Keen\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-enum {\r
- CONTROLS_LUMP, // 0\r
- KEEN_LUMP, // 1\r
- SUGAR1_LUMP, // 2\r
- SUGAR2_LUMP, // 3\r
- SUGAR3_LUMP, // 4\r
- SUGAR4_LUMP, // 5\r
- SUGAR5_LUMP, // 6\r
- SUGAR6_LUMP, // 7\r
- ONEUP_LUMP, // 8\r
- AMMO_LUMP, // 9\r
- WOLRDKEEN_LUMP, // 10\r
- SLUG_LUMP, // 11\r
- MADMUSHROOM_LUMP, // 12\r
- UNUSED1_LUMP, // 13\r
- LINDSEY_LUMP, // 14\r
- INCHWORM_LUMP, // 15\r
- EATER_LUMP, // 16\r
- COUNCIL_LUMP, // 17\r
- EGGBIRD_LUMP, // 18\r
- MIMROCK_LUMP, // 19\r
- DOPEFISH_LUMP, // 20\r
- SCHOOLFISH_LUMP, // 21\r
- ARACHNUT_LUMP, // 22\r
- SKYPEST_LUMP, // 23\r
- WORMOUTH_LUMP, // 24\r
- LICK_LUMP, // 25\r
- PLATFORM_LUMP, // 26\r
- BOUNDER_LUMP, // 27\r
- THUNDERCLOUD_LUMP, // 28\r
- BERKELOID_LUMP, // 29\r
- KEYGEM_LUMP, // 30\r
- DARTS_LUMP, // 31\r
- SCUBAKEEN_LUMP, // 32\r
- SPRITE_LUMP, // 33\r
- MINE_LUMP, // 34\r
- MOON_LUMP, // 35\r
- EGG_LUMP, // 36\r
- NUMLUMPS // 37\r
-};\r
-\r
-Uint16 lumpstart[NUMLUMPS] = {\r
- CONTROLS_LUMP_START,\r
- KEEN_LUMP_START,\r
- SUGAR1_LUMP_START,\r
- SUGAR2_LUMP_START,\r
- SUGAR3_LUMP_START,\r
- SUGAR4_LUMP_START,\r
- SUGAR5_LUMP_START,\r
- SUGAR6_LUMP_START,\r
- ONEUP_LUMP_START,\r
- AMMO_LUMP_START,\r
- WORLDKEEN_LUMP_START,\r
- SLUG_LUMP_START,\r
- MADMUSHROOM_LUMP_START,\r
- 0,\r
- LINDSEY_LUMP_START,\r
- INCHWORM_LUMP_START,\r
- EATER_LUMP_START,\r
- COUNCIL_LUMP_START,\r
- EGGBIRD_LUMP_START,\r
- MIMROCK_LUMP_START,\r
- DOPEFISH_LUMP_START,\r
- SCHOOLFISH_LUMP_START,\r
- ARACHNUT_LUMP_START,\r
- SKYPEST_LUMP_START,\r
- WORMOUTH_LUMP_START,\r
- LICK_LUMP_START,\r
- PLATFORM_LUMP_START,\r
- BOUNDER_LUMP_START,\r
- THUNDERCLOUD_LUMP_START,\r
- BERKELOID_LUMP_START,\r
- KEYGEM_LUMP_START,\r
- DARTS_LUMP_START,\r
- SCUBAKEEN_LUMP_START,\r
- SPRITE_LUMP_START,\r
- MINE_LUMP_START,\r
- MOON_LUMP_START,\r
- EGG_LUMP_START\r
-};\r
-\r
-Uint16 lumpend[NUMLUMPS] = {\r
- CONTROLS_LUMP_END,\r
- KEEN_LUMP_END,\r
- SUGAR1_LUMP_END,\r
- SUGAR2_LUMP_END,\r
- SUGAR3_LUMP_END,\r
- SUGAR4_LUMP_END,\r
- SUGAR5_LUMP_END,\r
- SUGAR6_LUMP_END,\r
- ONEUP_LUMP_END,\r
- AMMO_LUMP_END,\r
- WORLDKEEN_LUMP_END,\r
- SLUG_LUMP_END,\r
- MADMUSHROOM_LUMP_END,\r
- 0,\r
- LINDSEY_LUMP_END,\r
- INCHWORM_LUMP_END,\r
- EATER_LUMP_END,\r
- COUNCIL_LUMP_END,\r
- EGGBIRD_LUMP_END,\r
- MIMROCK_LUMP_END,\r
- DOPEFISH_LUMP_END,\r
- SCHOOLFISH_LUMP_END,\r
- ARACHNUT_LUMP_END,\r
- SKYPEST_LUMP_END,\r
- WORMOUTH_LUMP_END,\r
- LICK_LUMP_END,\r
- PLATFORM_LUMP_END,\r
- BOUNDER_LUMP_END,\r
- THUNDERCLOUD_LUMP_END,\r
- BERKELOID_LUMP_END,\r
- KEYGEM_LUMP_END,\r
- DARTS_LUMP_END,\r
- SCUBAKEEN_LUMP_END,\r
- SPRITE_LUMP_END,\r
- MINE_LUMP_END,\r
- MOON_LUMP_END,\r
- EGG_LUMP_END\r
-};\r
-\r
-boolean lumpneeded[NUMLUMPS];\r
-\r
-#if GRMODE == EGAGR\r
-\r
-char far swtext[] =\r
- "Episode Four\n"\r
- "\n"\r
- "Secret of the Oracle\n"\r
- "\n"\r
- "After delivering a\n"\r
- "crippling blow to the\n"\r
- "plans of Mortimer\n"\r
- "McMire and receiving\n"\r
- "the praise of the\n"\r
- "Vorticon race,\n"\r
- "Commander Keen\n"\r
- "returned to his home in\n"\r
- "the suburbs.\n"\r
- "\n"\r
- "Here he was forced to\n"\r
- "go to bed at an early\n"\r
- "hour, and to eat mashed\n"\r
- "potatoes.\n"\r
- "\n"\r
- "Months later, Billy\n"\r
- "tinkered around with\n"\r
- "his latest invention,\n"\r
- "the Photachyon\n"\r
- "Transceiver, or faster-\n"\r
- "than-light radio. After\n"\r
- "picking up a lot of bad\n"\r
- "alien sitcoms, he\n"\r
- "stumbled upon a strange\n"\r
- "message of terrible\n"\r
- "importance....\n";\r
-\r
-#endif\r
-\r
-char far l0n[] = "Shadowlands";\r
-char far l1n[] = "Border Village";\r
-char far l2n[] = "Slug Village";\r
-char far l3n[] = "The Perilous Pit";\r
-char far l4n[] = "Cave of the Descendents";\r
-char far l5n[] = "Chasm of Chills";\r
-char far l6n[] = "Crystalus";\r
-char far l7n[] = "Hillville";\r
-char far l8n[] = "Sand Yego";\r
-char far l9n[] = "Miragia";\r
-char far l10n[] = "Lifewater Oasis";\r
-char far l11n[] = "Pyramid of the Moons";\r
-char far l12n[] = "Pyramid of Shadows";\r
-char far l13n[] = "Pyramid of the\nGnosticene Ancients";\r
-char far l14n[] = "Pyramid of the Forbidden";\r
-char far l15n[] = "Isle of Tar";\r
-char far l16n[] = "Isle of Fire";\r
-char far l17n[] = "Well of Wishes";\r
-char far l18n[] = "Bean-with-Bacon\nMegarocket";\r
-\r
-char far l0e[] = "Keen enters the\nShadowlands";\r
-char far l1e[] = "Keen makes a run for\nthe Border Village";\r
-char far l2e[] = "Keen slips into\nSlug Village";\r
-char far l3e[] = "Keen plummets into\nthe The Perilous Pit"; // sic!\r
-char far l4e[] = "Keen plods down into\nthe Cave of the\nDescendents";\r
-char far l5e[] = "Keen shivers along\nthe Chasm of Chills";\r
-char far l6e[] = "Keen reflects upon\nentering Crystalus";\r
-char far l7e[] = "Keen stumbles upon\nHillville";\r
-char far l8e[] = "Keen grits his teeth\nand enters Sand Yego";\r
-char far l9e[] = "Keen disappears into\nMiragia";\r
-char far l10e[] = "Keen crawls into\nLifewater Oasis";\r
-char far l11e[] = "Keen backs into the\nPyramid of the Moons";\r
-char far l12e[] = "Keen move silently in\nthe Pyramid of Shadows"; // sic!\r
-char far l13e[] = "Keen reverently enters\nthe Pyramid of the\nGnosticene Ancients";\r
-char far l14e[] = "Keen hesitantly crosses\ninto the Pyramid of the\nForbidden";\r
-char far l15e[] = "Keen mucks along the\nIsle of Tar";\r
-char far l16e[] = "Keen blazes across the\nIsle of Fire";\r
-char far l17e[] = "Keen hopefully enters\nthe Well of Wishes";\r
-char far l18e[] = "Keen launches into the\nBean-with-Bacon\nMegarocket";\r
-\r
-char far *levelnames[GAMELEVELS] = {\r
- l0n,\r
- l1n,\r
- l2n,\r
- l3n,\r
- l4n,\r
- l5n,\r
- l6n,\r
- l7n,\r
- l8n,\r
- l9n,\r
- l10n,\r
- l11n,\r
- l12n,\r
- l13n,\r
- l14n,\r
- l15n,\r
- l16n,\r
- l17n,\r
- l18n\r
-};\r
-\r
-char far *levelenter[GAMELEVELS] = {\r
- l0e,\r
- l1e,\r
- l2e,\r
- l3e,\r
- l4e,\r
- l5e,\r
- l6e,\r
- l7e,\r
- l8e,\r
- l9e,\r
- l10e,\r
- l11e,\r
- l12e,\r
- l13e,\r
- l14e,\r
- l15e,\r
- l16e,\r
- l17e,\r
- l18e\r
-};\r
-\r
-Uint16 bonuslump[] = {\r
- KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP,\r
- SUGAR1_LUMP, SUGAR2_LUMP, SUGAR3_LUMP,\r
- SUGAR4_LUMP, SUGAR5_LUMP, SUGAR6_LUMP,\r
- ONEUP_LUMP, AMMO_LUMP\r
-};\r
-\r
-//==========================================================================\r
-\r
-/*\r
-==========================\r
-=\r
-= ScanInfoPlane\r
-=\r
-= Spawn all actors and mark down special places\r
-=\r
-==========================\r
-*/\r
-\r
-void ScanInfoPlane(void)\r
-{\r
- objtype *ob;\r
- Uint16 i, x, y, chunk;\r
- Sint16 info;\r
- Uint16 far *map;\r
-\r
- InitObjArray(); // start spawning things with a clean slate\r
-\r
- memset(lumpneeded, 0, sizeof(lumpneeded));\r
- map = mapsegs[2];\r
-\r
- for (y=0; y<mapheight; y++)\r
- {\r
- for (x=0; x<mapwidth; x++)\r
- {\r
- info = *map++;\r
-\r
- if (info == 0)\r
- continue;\r
-\r
- switch (info)\r
- {\r
- case 1:\r
- SpawnKeen(x, y, 1);\r
- SpawnScore();\r
- lumpneeded[KEEN_LUMP] = true;\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- break;\r
-\r
- case 2:\r
- SpawnKeen(x, y, -1);\r
- SpawnScore();\r
- lumpneeded[KEEN_LUMP] = true;\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- break;\r
-\r
- case 3:\r
- SpawnWorldKeen(x, y);\r
- SpawnScore();\r
- lumpneeded[WOLRDKEEN_LUMP] = true;\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- break;\r
-\r
- case 4:\r
- SpawnCouncil(x, y);\r
- lumpneeded[COUNCIL_LUMP] = true;\r
- break;\r
-\r
- case 50:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 49:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 5:\r
- SpawnBerkeloid(x, y);\r
- lumpneeded[BERKELOID_LUMP] = true;\r
- break;\r
-\r
- case 6:\r
- SpawnLindsey(x, y);\r
- lumpneeded[LINDSEY_LUMP] = true;\r
- break;\r
-\r
- case 52:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 51:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 7:\r
- SpawnWormMouth(x, y);\r
- lumpneeded[WORMOUTH_LUMP] = true;\r
- break;\r
-\r
- case 46:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 45:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 8:\r
- SpawnSkypest(x, y);\r
- lumpneeded[SKYPEST_LUMP] = true;\r
- break;\r
-\r
- case 9:\r
- SpawnCloudster(x, y);\r
- lumpneeded[THUNDERCLOUD_LUMP] = true;\r
- break;\r
-\r
- case 10:\r
- SpawnFoot(x, y);\r
- lumpneeded[INCHWORM_LUMP] = true; // lump includes the foot sprite\r
- // Note: The smoke sprites aren't actually required for the foot!\r
- for (i=SMOKE1SPR; i<=SMOKE4SPR; i++)\r
- {\r
- CA_MarkGrChunk(i);\r
- }\r
- break;\r
-\r
- case 11:\r
- SpawnInchworm(x, y);\r
- lumpneeded[INCHWORM_LUMP] = true;\r
- for (i=SMOKE1SPR; i<=SMOKE4SPR; i++)\r
- {\r
- CA_MarkGrChunk(i);\r
- }\r
- break;\r
-\r
- case 12:\r
- SpawnBounder(x, y);\r
- lumpneeded[BOUNDER_LUMP] = true;\r
- break;\r
-\r
- case 13:\r
- SpawnEggbird(x, y);\r
- lumpneeded[EGGBIRD_LUMP] = true;\r
- lumpneeded[EGG_LUMP] = true;\r
- break;\r
-\r
- case 48:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 47:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 14:\r
- SpawnLick(x, y);\r
- lumpneeded[LICK_LUMP] = true;\r
- break;\r
-\r
- case 88:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 87:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 15:\r
- SpawnDopefish(x, y);\r
- lumpneeded[DOPEFISH_LUMP] = true;\r
- break;\r
-\r
- case 16:\r
- SpawnSchoolfish(x, y);\r
- lumpneeded[SCHOOLFISH_LUMP] = true;\r
- break;\r
-\r
- case 24:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 23:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 17:\r
- SpawnPixie(x, y);\r
- lumpneeded[SPRITE_LUMP] = true;\r
- break;\r
-\r
- case 18:\r
- SpawnEater(x, y);\r
- lumpneeded[EATER_LUMP] = true;\r
- break;\r
-\r
- case 19:\r
- SpawnMimrock(x, y);\r
- lumpneeded[MIMROCK_LUMP] = true;\r
- break;\r
-\r
- case 74:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 73:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 20:\r
- SpawnArachnut(x, y);\r
- lumpneeded[ARACHNUT_LUMP] = true;\r
- break;\r
-\r
- case 21:\r
- SpawnMadMushroom(x, y);\r
- lumpneeded[MADMUSHROOM_LUMP] = true;\r
- break;\r
-\r
- case 44:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 43:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 22:\r
- SpawnSlug(x, y);\r
- lumpneeded[SLUG_LUMP] = true;\r
- break;\r
-\r
- case 25:\r
- RF_SetScrollBlock(x, y, 1);\r
- break;\r
-\r
- case 26:\r
- RF_SetScrollBlock(x, y, 0);\r
- break;\r
-\r
- case 27:\r
- case 28:\r
- case 29:\r
- case 30:\r
- SpawnPlatform(x, y, info-27);\r
- lumpneeded[PLATFORM_LUMP] = true;;\r
- break;\r
-\r
- case 32:\r
- SpawnDropPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- case 33:\r
- SpawnMiragia(x, y);\r
- break;\r
-\r
- case 34:\r
- if (gamestate.ammo < 5)\r
- {\r
- SpawnBonus(x, y, 11);\r
- lumpneeded[bonuslump[11]] = true;\r
- }\r
- break;\r
-\r
- case 35:\r
- SpawnScuba(x, y);\r
- CA_MarkGrChunk(SCUBASPR);\r
- break;\r
-\r
- case 42:\r
- SpawnSwimKeen(x, y);\r
- SpawnScore();\r
- lumpneeded[SCUBAKEEN_LUMP] = true;\r
- //mark pickup shapes:\r
- for (i=BONUS100SPR; i<=BONUSCLIPSPR; i++)\r
- {\r
- CA_MarkGrChunk(i);\r
- }\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- break;\r
-\r
- case 83:\r
- case 84:\r
- case 85:\r
- case 86:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- SpawnDartShooter(x, y, info-83);\r
- lumpneeded[DARTS_LUMP] = true;\r
- break;\r
-\r
- case 79:\r
- case 80:\r
- case 81:\r
- case 82:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- SpawnDartShooter(x, y, info-79);\r
- lumpneeded[DARTS_LUMP] = true;\r
- break;\r
-\r
- case 53:\r
- case 54:\r
- case 55:\r
- case 56:\r
- SpawnDartShooter(x, y, info-53);\r
- lumpneeded[DARTS_LUMP] = true;\r
- break;\r
-\r
- case 57:\r
- case 58:\r
- case 59:\r
- case 60:\r
- case 61:\r
- case 62:\r
- case 63:\r
- case 64:\r
- case 65:\r
- case 66:\r
- case 67:\r
- case 68:\r
- SpawnBonus(x, y, info-57);\r
- lumpneeded[bonuslump[info-57]] = true;\r
- break;\r
-\r
- case 69:\r
- case 70:\r
- case 71:\r
- case 72:\r
- SpawnMine(x, y, info-69);\r
- lumpneeded[MINE_LUMP] = true;\r
- break;\r
-\r
- case 75:\r
- lumpneeded[MOON_LUMP] = true;\r
- break;\r
-\r
- case 78:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 77:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 76:\r
- SpawnEggbirdOut(x, y);\r
- lumpneeded[EGGBIRD_LUMP] = true;\r
- break;\r
- }\r
- }\r
- }\r
-\r
- for (ob = player; ob; ob = ob->next)\r
- {\r
- if (ob->active != ac_allways)\r
- ob->active = ac_no;\r
- }\r
-\r
- for (i = 0; i < NUMLUMPS; i++)\r
- {\r
- if (lumpneeded[i])\r
- {\r
- for (chunk = lumpstart[i]; chunk <= lumpend[i]; chunk++)\r
- {\r
- CA_MarkGrChunk(chunk);\r
- }\r
- }\r
- }\r
-}\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= PrincessLindsey\r
-=\r
-===========================\r
-*/\r
-\r
-char *lindseytext[2] =\r
-{\r
- "There's gear to help\n"\r
- "you swim in Three-Tooth\n"\r
- "Lake. It is hidden in\n"\r
- "Miragia.\n"\r
- ,\r
- "The way to the Pyramid\n"\r
- "of the Forbidden lies\n"\r
- "under the Pyramid of\n"\r
- "Moons.\n"\r
-};\r
-\r
-char *klindseytext[2] =\r
-{\r
- "Thanks, your Highness!"\r
- ,\r
- "Thanks for the\n"\r
- "mysterious clue,\n"\r
- "Princess!\n"\r
-};\r
-\r
-void PrincessLindsey(void)\r
-{\r
- SD_WaitSoundDone();\r
- StopMusic();\r
- CA_UpLevel();\r
- CA_MarkGrChunk(LINDSEYPIC);\r
- CA_MarkGrChunk(KEENTALK1PIC);\r
- CA_MarkGrChunk(KEENTALK2PIC);\r
- CA_CacheMarks(NULL);\r
- VW_FixRefreshBuffer();\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX, WindowY, LINDSEYPIC);\r
- PrintY += 6;\r
- WindowW -= 48;\r
- WindowX += 48;\r
- US_CPrint("Princess Lindsey says:\n");\r
- if (mapon == 7)\r
- {\r
- US_CPrint(lindseytext[0]);\r
- }\r
- else\r
- {\r
- US_CPrint(lindseytext[1]);\r
- }\r
- VW_UpdateScreen();\r
- SD_PlaySound(SND_MAKEFOOT);\r
- VW_WaitVBL(60);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 12;\r
- if (mapon == 7)\r
- {\r
- US_CPrint(klindseytext[0]);\r
- }\r
- else\r
- {\r
- US_CPrint(klindseytext[1]);\r
- }\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK2PIC);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- CA_DownLevel();\r
- StartMusic(gamestate.mapon);\r
-\r
- //reset scorebox (sprite may have been re-cached by CA_DownLevel)\r
- scoreobj->temp2 = -1;\r
- scoreobj->temp1 = -1;\r
- scoreobj->temp3 = -1;\r
- scoreobj->temp4 = -1;\r
-}\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= RescueJanitor\r
-=\r
-===========================\r
-*/\r
-\r
-char far jantext1[] =\r
- "Thanks for going to all\n"\r
- "that trouble, but I'm\n"\r
- "just the janitor for the\n"\r
- "High Council.";\r
-\r
-char far jantext2[] =\r
- "I tried to tell the\n"\r
- "Shikadi that but they\n"\r
- "just wouldn't listen...";\r
-\r
-char far keenjantext[] =\r
- "This had better\n"\r
- "be a joke.";\r
-\r
-char far jantext3[] =\r
- "Sorry. You aren't\n"\r
- "mad, are you?";\r
-\r
-void RescueJanitor(void)\r
-{\r
- char str[200];\r
-\r
- SD_WaitSoundDone();\r
- CA_UpLevel();\r
- CA_MarkGrChunk(ORACLEPIC);\r
- CA_MarkGrChunk(KEENTALK1PIC);\r
- CA_MarkGrChunk(KEENMADPIC);\r
- CA_CacheMarks(NULL);\r
- VW_FixRefreshBuffer();\r
- StartMusic(-1);\r
- \r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX, WindowY, ORACLEPIC);\r
- PrintY += 6;\r
- WindowW -= 48;\r
- WindowX += 48;\r
- _fstrcpy(str, jantext1);\r
- US_CPrint(str);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(60);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX, WindowY, ORACLEPIC);\r
- PrintY += 6;\r
- WindowW -= 48;\r
- WindowX += 48;\r
- _fstrcpy(str, jantext2);\r
- US_CPrint(str);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(60);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 12;\r
- _fstrcpy(str, keenjantext);\r
- US_CPrint(str);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(60);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX, WindowY, ORACLEPIC);\r
- PrintY += 6;\r
- WindowW -= 48;\r
- WindowX += 48;\r
- _fstrcpy(str, jantext3);\r
- US_CPrint(str);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(60);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- VWB_DrawPic(WindowX+WindowW-40, WindowY+24, KEENMADPIC);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- StopMusic();\r
- CA_DownLevel();\r
- StartMusic(gamestate.mapon);\r
-\r
- //BUG: scorebox needs to be reset here (sprite may have been re-cached by CA_DownLevel)\r
-}\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= CanitSwim\r
-=\r
-===========================\r
-*/\r
-\r
-void CantSwim(void)\r
-{\r
- SD_WaitSoundDone();\r
- CA_UpLevel(); // kinda useless without CA_CacheMarks or CA_SetGrPurge\r
- // BUG: haven't made anything purgable here, caching the pic may cause an "out of memory" crash\r
- CA_CacheGrChunk(KEENTALK1PIC);\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 12;\r
- US_CPrint("I can't swim!");\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
- CA_DownLevel();\r
-\r
- //Note: scorebox sprite has not been re-cached here (didn't use CA_CacheMarks or anything else that would have made the sprite purgable)\r
-}\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= GotScuba\r
-=\r
-===========================\r
-*/\r
-\r
-void GotScuba(void)\r
-{\r
- SD_WaitSoundDone();\r
- CA_UpLevel();\r
- CA_MarkGrChunk(KEENTALK1PIC);\r
- CA_MarkGrChunk(KEENTALK2PIC);\r
- CA_CacheMarks(NULL);\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 12;\r
- US_CPrint(\r
- "Cool! I can breathe\n"\r
- "under water now!"\r
- );\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK2PIC);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- CA_DownLevel();\r
-\r
- //Note: scorebox sprite may have been re-cached by CA_DownLevel, but the level ends after this anyway\r
-}\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= RescuedMember\r
-=\r
-===========================\r
-*/\r
-\r
-char *keentext[] = {\r
- "No sweat, oh guardian\n"\r
- "of wisdom!"\r
- ,\r
- "Sounds like a plan,\n"\r
- "bearded one!"\r
- ,\r
- "No problemo."\r
- ,\r
- "Great. You know, you\n"\r
- "look a lot like the\n"\r
- "last guy I rescued..."\r
- ,\r
- "Good idea, Gramps."\r
- ,\r
- "May the road rise\n"\r
- "to meet your feet,\n"\r
- "Mr. Member."\r
- ,\r
- "Wise plan of action,\n"\r
- "your ancientness."\r
- ,\r
- "You're the last one,\n"\r
- "fella. Let's both\n"\r
- "get back to the\n"\r
- "Oracle chamber!"\r
-};\r
-\r
-void RescuedMember(void)\r
-{\r
- SD_WaitSoundDone();\r
- CA_UpLevel();\r
- CA_MarkGrChunk(ORACLEPIC);\r
- CA_MarkGrChunk(KEENTALK1PIC);\r
- CA_MarkGrChunk(KEENTALK2PIC);\r
- CA_CacheMarks(NULL);\r
- StartMusic(-1);\r
- VW_FixRefreshBuffer();\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX, WindowY, ORACLEPIC);\r
- PrintY += 6;\r
- WindowW -= 48;\r
- WindowX += 48;\r
- if (mapon == 17)\r
- {\r
- US_CPrint(\r
- "Ggoh thig you sogh mg\n"\r
- "fgor regscuing mgge!\n"\r
- "I'gll regur tgo the\n"\r
- "Goracle chagber\n"\r
- "igmediatggely. Blub."\r
- );\r
- }\r
- else\r
- {\r
- US_CPrint(\r
- "Oh thank you so much\n"\r
- "for rescuing me!\n"\r
- "I'll return to the\n"\r
- "Oracle chamber\n"\r
- "immediately."\r
- );\r
- }\r
- VW_UpdateScreen();\r
- VW_WaitVBL(60);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 12;\r
- US_CPrint(keentext[gamestate.rescued]);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK2PIC);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- gamestate.rescued++;\r
- CA_DownLevel();\r
- StopMusic();\r
-\r
- //Note: scorebox sprite may have been re-cached by CA_DownLevel, but the level ends after this anyway\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SWIMMING KEEN\r
-\r
-temp4 = counter for spawning bubbles\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_keenswimslow1 = {SCUBAKEENL1SPR, SCUBAKEENR1SPR, stepthink, false, false, 50, 0, 0, T_KeenSwimSlow, C_KeenSwim, R_KeenSwim, &s_keenswimslow2};\r
-statetype s_keenswimslow2 = {SCUBAKEENL2SPR, SCUBAKEENR2SPR, stepthink, false, false, 50, 0, 0, T_KeenSwimSlow, C_KeenSwim, R_KeenSwim, &s_keenswimslow1};\r
-statetype s_keenswim1 = {SCUBAKEENL1SPR, SCUBAKEENR1SPR, stepthink, false, false, 50, 0, 0, T_KeenSwim, C_KeenSwim, R_KeenSwim, &s_keenswimslow2};\r
-statetype s_keenswim2 = {SCUBAKEENL2SPR, SCUBAKEENR2SPR, stepthink, false, false, 50, 0, 0, T_KeenSwim, C_KeenSwim, R_KeenSwim, &s_keenswimslow1};\r
-//Note: the die states for swimming Keen are in CK_KEEN.C and K4_ACT3.C (dopefish section)\r
-\r
-statetype s_kbubble1 = {SMALLBUBBLE1SPR, SMALLBUBBLE1SPR, think, false, false, 20, 0, 24, T_Bubble, NULL, R_Draw, &s_kbubble1};\r
-statetype s_kbubble2 = {SMALLBUBBLE2SPR, SMALLBUBBLE2SPR, think, false, false, 20, 0, 24, T_Bubble, NULL, R_Draw, &s_kbubble2};\r
-statetype s_kbubble3 = {SMALLBUBBLE3SPR, SMALLBUBBLE3SPR, think, false, false, 20, 0, 24, T_Bubble, NULL, R_Draw, &s_kbubble3};\r
-statetype s_kbubble4 = {SMALLBUBBLE4SPR, SMALLBUBBLE4SPR, think, false, false, 20, 0, 24, T_Bubble, NULL, R_Draw, &s_kbubble4};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSwimKeen\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSwimKeen(Sint16 x, Sint16 y)\r
-{\r
- player->obclass = keenobj;\r
- player->active = ac_allways;\r
- player->priority = 1;\r
- player->x = CONVERT_TILE_TO_GLOBAL(x);\r
- player->y = CONVERT_TILE_TO_GLOBAL(y);\r
- player->xdir = 1;\r
- player->ydir = 1;\r
- player->needtoclip = cl_fullclip;\r
- NewState(player, &s_keenswimslow1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnKbubble\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnKbubble(objtype *ob)\r
-{\r
- ob->temp4 = 0;\r
- GetNewObj(true);\r
- if (ob->xdir == -1)\r
- {\r
- new->x = ob->x;\r
- }\r
- else\r
- {\r
- new->x = ob->x + 24*PIXGLOBAL;\r
- }\r
- new->y = ob->y;\r
- new->obclass = inertobj;\r
- new->priority = 3;\r
- new->active = ac_removable;\r
- new->needtoclip = cl_noclip;\r
- new->yspeed = -24;\r
- new->xspeed = 4;\r
- switch (US_RndT() / 64)\r
- {\r
- case 0:\r
- NewState(new, &s_kbubble1);\r
- break;\r
- case 1:\r
- NewState(new, &s_kbubble2);\r
- break;\r
- case 2:\r
- NewState(new, &s_kbubble3);\r
- break;\r
- case 3:\r
- NewState(new, &s_kbubble4);\r
- break;\r
- }\r
- SD_PlaySound(SND_BLUB);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_KeenSwimSlow\r
-=\r
-===========================\r
-*/\r
-\r
-void T_KeenSwimSlow(objtype *ob)\r
-{\r
- Sint32 i;\r
- Sint16 vx, vy, xc, yc;\r
-\r
- xc = ob->xspeed < 0;\r
- yc = ob->yspeed < 4;\r
-\r
- ob->temp4 = ob->temp4 + tics;\r
- if (ob->temp4 > 60)\r
- SpawnKbubble(ob);\r
-\r
- if (jumpbutton && !jumpheld)\r
- {\r
- jumpheld = true;\r
- if (c.xaxis)\r
- ob->xspeed = c.xaxis * 18;\r
- if (c.yaxis)\r
- ob->yspeed = c.yaxis * 18;\r
- ob->state = ob->state->nextstate;\r
- }\r
- if (c.xaxis)\r
- ob->xdir = c.xaxis;\r
-\r
- for (i = lasttimecount-tics; i < lasttimecount; i++)\r
- {\r
- if ((i & 7) == 0)\r
- {\r
- if (ob->xspeed > 12)\r
- {\r
- vx = -3;\r
- }\r
- else if (ob->xspeed > 0)\r
- {\r
- vx = -1;\r
- }\r
- else if (ob->xspeed > -12)\r
- {\r
- vx = 1;\r
- }\r
- else\r
- {\r
- vx = 3;\r
- }\r
- vx += c.xaxis;\r
- vx += c.xaxis;\r
- ob->xspeed += vx;\r
-\r
- if (c.xaxis == 0 && (ob->xspeed < 0) != xc)\r
- ob->xspeed = 0;\r
-\r
- if (ob->yspeed > 12)\r
- {\r
- vy = -3;\r
- }\r
- else if (ob->yspeed > 4)\r
- {\r
- vy = -1;\r
- }\r
- else if (ob->yspeed > -12)\r
- {\r
- vy = 1;\r
- }\r
- else\r
- {\r
- vy = 3;\r
- }\r
- vy += c.yaxis;\r
- vy += c.yaxis;\r
- ob->yspeed += vy;\r
-\r
- if (c.yaxis == 0 && ob->yspeed > 4 && yc)\r
- ob->yspeed = 0;\r
- }\r
- xtry += ob->xspeed;\r
- ytry += ob->yspeed;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_KeenSwim\r
-=\r
-===========================\r
-*/\r
-\r
-void T_KeenSwim(objtype *ob) //never actually used\r
-{\r
- ob->temp4 = ob->temp4 + tics;\r
- if (ob->temp4 > 60)\r
- SpawnKbubble(ob);\r
-\r
- if (jumpbutton && !jumpheld)\r
- {\r
- jumpheld = true;\r
- ob->xspeed = c.xaxis * 18;\r
- if (c.yaxis)\r
- ob->yspeed = c.yaxis * 18;\r
-\r
- if (ob->state == &s_keenswim1)\r
- {\r
- ob->state = &s_keenswim2;\r
- }\r
- else\r
- {\r
- ob->state = &s_keenswim1;\r
- }\r
- }\r
-\r
- xtry = xtry + ob->xspeed * tics;\r
- ytry = ytry + ob->yspeed * tics;\r
- if (xtry > 0)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else if (xtry < 0)\r
- {\r
- ob->xdir = -1;\r
- }\r
-\r
- ytry = ytry + tics*4;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_KeenSwim\r
-=\r
-===========================\r
-*/\r
-\r
-void C_KeenSwim(objtype *ob, objtype *hit)\r
-{\r
- switch (hit->obclass)\r
- {\r
- case bonusobj:\r
- switch (hit->temp1)\r
- {\r
- case 0:\r
- case 1:\r
- case 2:\r
- case 3:\r
- case 4:\r
- case 5:\r
- case 6:\r
- case 7:\r
- case 8:\r
- case 9:\r
- case 10:\r
- case 11:\r
- SD_PlaySound(bonussound[hit->temp1]);\r
- hit->obclass = inertobj;\r
- hit->priority = 3;\r
- hit->shapenum = bonussprite[hit->temp1];\r
- GivePoints(bonuspoints[hit->temp1]);\r
- if (hit->temp1 < 4)\r
- {\r
- gamestate.keys[hit->temp1]++;\r
- }\r
- else if (hit->temp1 == 10)\r
- {\r
- gamestate.lives++;\r
- }\r
- else if (hit->temp1 == 11)\r
- {\r
- gamestate.ammo += shotsinclip[gamestate.difficulty];\r
- }\r
- ChangeState(hit, &s_bonusrise);\r
- break;\r
- }\r
- break;\r
-\r
- case oracleobj:\r
- playstate = ex_rescued;\r
- break;\r
- }\r
- ob++; // shut up compiler\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_KeenSwim\r
-=\r
-===========================\r
-*/\r
-\r
-void R_KeenSwim(objtype *ob)\r
-{\r
- if (ob->hiteast && ob->xspeed < 0 || ob->hitwest && ob->xspeed > 0)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitnorth && ob->yspeed > 0 || ob->hitsouth && ob->yspeed < 0)\r
- ob->yspeed = 0;\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
+++ /dev/null
-;=====================================\r
-;\r
-; Graphics .EQU file for .CK4\r
-; not IGRAB-ed :)\r
-;\r
-;=====================================\r
-\r
-;INCLUDE "VERSION.EQU"\r
-\r
-;\r
-; Amount of each data item\r
-;\r
-NUMFONT = 2\r
-NUMFONTM = 0\r
-NUMPICM = 3\r
-NUMTILE8 = 108\r
-NUMTILE8M = 36\r
-NUMTILE32 = 0\r
-NUMTILE32M = 0\r
-\r
-;\r
-; Amount of each item in episode 4\r
-;\r
-NUMPICS = 116\r
-NUMSPRITES = 397\r
-NUMTILE16 = 1296\r
-NUMTILE16M = 2916\r
-NUMEXTERN = 16\r
-\r
-\r
-;\r
-; File offsets for data items\r
-;\r
-STRUCTPIC = 0\r
-STRUCTPICM = 1\r
-STRUCTSPRITE = 2\r
-\r
-STARTFONT = 3\r
-STARTFONTM = (STARTFONT+NUMFONT)\r
-STARTPICS = (STARTFONTM+NUMFONTM)\r
-STARTPICM = (STARTPICS+NUMPICS)\r
-STARTSPRITES = (STARTPICM+NUMPICM)\r
-STARTTILE8 = (STARTSPRITES+NUMSPRITES)\r
-STARTTILE8M = (STARTTILE8+1)\r
-STARTTILE16 = (STARTTILE8M+1)\r
-STARTTILE16M = (STARTTILE16+NUMTILE16)\r
-STARTTILE32 = (STARTTILE16M+NUMTILE16M)\r
-STARTTILE32M = (STARTTILE32+NUMTILE32)\r
-STARTEXTERN = (STARTTILE32M+NUMTILE32M)\r
-\r
-NUMCHUNKS = (STARTEXTERN+NUMEXTERN)\r
-\r
-;\r
-; Thank you for using IGRAB!\r
-;\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __GFX_H__\r
-#define __GFX_H__\r
-\r
-//#include "VERSION.H"\r
-\r
-//////////////////////////////////////\r
-//\r
-// Graphics .H file for .CK4\r
-// not IGRAB-ed :)\r
-//\r
-//////////////////////////////////////\r
-\r
-//\r
-// Lump creation macros\r
-//\r
-\r
-#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1,\r
-#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1,\r
-\r
-//\r
-// Amount of each data item\r
-//\r
-\r
-//common numbers:\r
-#define NUMCHUNKS NUMGRCHUNKS\r
-#define NUMFONT 2\r
-#define NUMFONTM 0\r
-#define NUMPICM 3\r
-#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH!\r
-#define NUMTILE8M 36 // BUG: only 20 tiles exist in EGAGRAPH!\r
-#define NUMTILE32 0\r
-#define NUMTILE32M 0\r
-\r
-//episode-specific numbers:\r
-#define NUMPICS 116\r
-#define NUMSPRITES 397\r
-#define NUMTILE16 1296\r
-#define NUMTILE16M 2916\r
-#define NUMEXTERNS 16\r
-\r
-//\r
-// File offsets for data items\r
-//\r
-#define STRUCTPIC 0\r
-#define STRUCTPICM 1\r
-#define STRUCTSPRITE 2\r
-\r
-#define STARTFONT 3\r
-#define STARTFONTM (STARTFONT+NUMFONT)\r
-#define STARTPICS (STARTFONTM+NUMFONTM)\r
-#define STARTPICM (STARTPICS+NUMPICS)\r
-#define STARTSPRITES (STARTPICM+NUMPICM)\r
-#define STARTTILE8 (STARTSPRITES+NUMSPRITES)\r
-#define STARTTILE8M (STARTTILE8+1)\r
-#define STARTTILE16 (STARTTILE8M+1)\r
-#define STARTTILE16M (STARTTILE16+NUMTILE16)\r
-#define STARTTILE32 (STARTTILE16M+NUMTILE16M)\r
-#define STARTTILE32M (STARTTILE32+NUMTILE32)\r
-#define STARTEXTERNS (STARTTILE32M+NUMTILE32M)\r
-\r
-typedef enum {\r
- LASTFONT=STARTPICS-1,\r
-\r
- //\r
- // PICS\r
- //\r
-\r
- PADDINGPIC, // 5 (compensate for the missing Star Wars font to give the other pics the correct chunk numbers)\r
-\r
- H_HELPPIC, // 6\r
- H_LARROWPIC, // 7\r
- H_RARROWPIC, // 8\r
- H_ESCPIC, // 9\r
- H_ENTERPIC, // 10\r
- DUMMYPIC, // 11\r
- H_STORY1PIC, // 12\r
- H_STORY2PIC, // 13\r
- H_STORY3PIC, // 14\r
- H_STORY4PIC, // 15\r
- STORY5PIC, // 16\r
- STORY6PIC, // 17\r
- STORY7PIC, // 18\r
- STORY8PIC, // 19\r
- ITEM1PIC, // 20\r
- ITEM2PIC, // 21\r
- ITEM3PIC, // 22\r
- ITEM4PIC, // 23\r
- ITEM5PIC, // 24\r
- ITEM6PIC, // 25\r
- ITEM7PIC, // 26\r
- ITEM8PIC, // 27\r
- ITEM9PIC, // 28\r
- ARACHNUTPIC, // 29\r
- BERKELOISPIC, // 30\r
- BOUNDERPIC, // 31\r
- COUNCILMEMBERPIC, // 32\r
- DOPEFISHPIC, // 33\r
- INCHWORMPIC, // 34\r
- LICKPIC, // 35\r
- MADMUSHROOMPIC, // 36\r
- POISONSLIGPIC, // 37\r
- PRINCESSLINDSEYPIC, // 38\r
- SCHOOLFISHPIC, // 39\r
- SKYPESTPIC, // 40\r
- SPRITEPIC, // 41\r
- WORMOUTHPIC, // 42\r
- ENDOFTEXTPIC, // 43\r
- H_MCPIC, // 44\r
- H_HANDPIC, // 45\r
- H_VISAPIC, // 46\r
- H_FLASHARROW1PIC, // 47\r
- H_FLASHARROW2PIC, // 48\r
- ENDINDG1PIC, // 49\r
- ENDINDG2PIC, // 50\r
- ENDINDG3PIC, // 51\r
- ENDINDG4PIC, // 52\r
- ENDINDG5PIC, // 53\r
- ENDINDG6PIC, // 54\r
- ENDINDG7PIC, // 55\r
- ENDINDG8PIC, // 56\r
- ENDINDG9PIC, // 57\r
- ENDINDG10PIC, // 58\r
- ENDINDG11PIC, // 59\r
- ENDINDG12PIC, // 60\r
- ENDINDG13PIC, // 61\r
- ENDINDG14PIC, // 62\r
- ENDINDG15PIC, // 63\r
- ENDINDG16PIC, // 64\r
- ENDINDG17PIC, // 65\r
- ENDINDG18PIC, // 66\r
- ENDINDG19PIC, // 67\r
- ENDINDG20PIC, // 68\r
- ENDINDG21PIC, // 69\r
- ENDINDG22PIC, // 70\r
- ENDINDG23PIC, // 71\r
- ENDINDG24PIC, // 72\r
- ENDINDG25PIC, // 73\r
- ENDINDG26PIC, // 74\r
- ENDINDG27PIC, // 75\r
- ENDINDG28PIC, // 76\r
- ENDINDG29PIC, // 77\r
- ENDINDG30PIC, // 78\r
- H_IDLOGOPIC, // 79\r
- H_TOPWINDOWPIC, // 80\r
- H_LEFTWINDOWPIC, // 81\r
- H_RIGHTWINDOWPIC, // 82\r
- H_BOTTOMINFOPIC, // 83\r
- H_BOTTOMWINDOWPIC, // 84\r
- H_BARPIC, // 85\r
- H_KEEN5PIC, // 86\r
- H_KEEN6PIC, // 87\r
-\r
- START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART)\r
- CP_MAINMENUPIC, // 88\r
- CP_NEWGAMEMENUPIC, // 89\r
- CP_LOADMENUPIC, // 90\r
- CP_SAVEMENUPIC, // 91\r
- CP_CONFIGMENUPIC, // 92\r
- CP_SOUNDMENUPIC, // 93\r
- CP_MUSICMENUPIC, // 94\r
- CP_KEYBOARDMENUPIC, // 95\r
- CP_KEYMOVEMENTPIC, // 96\r
- CP_KEYBUTTONPIC, // 97\r
- CP_JOYSTICKMENUPIC, // 98\r
- CP_OPTIONSMENUPIC, // 99\r
- CP_PADDLEWARPIC, // 100\r
- CP_QUITPIC, // 101\r
- CP_JOYSTICKPIC, // 102\r
- CP_MENUSCREENPIC, // 103\r
- END_LUMP(CONTROLS_LUMP_END, __CONTROLSEND)\r
-\r
- IDSOFTPIC, // 104\r
- PROGTEAMPIC, // 105\r
- ARTISTPIC, // 106\r
- DIRECTORPIC, // 107\r
- SW_BACKGROUNDPIC, // 108\r
- TITLEPICPIC, // 109\r
- ORACLEPIC, // 110\r
- KEENTALK1PIC, // 111\r
- KEENTALK2PIC, // 112\r
- KEENMADPIC, // 113\r
- LINDSEYPIC, // 114\r
- KEENCOUNT1PIC, // 115\r
- KEENCOUNT2PIC, // 116\r
- KEENCOUNT3PIC, // 117\r
- KEENCOUNT4PIC, // 118\r
- KEENCOUNT5PIC, // 119\r
- KEENCOUNT6PIC, // 120\r
-\r
- //\r
- // MASKED PICS\r
- //\r
-\r
- CP_MENUMASKPICM, // 121\r
- CORDPICM, // 122\r
- METALPOLEPICM, // 123\r
-\r
- //\r
- // SPRITES\r
- //\r
-\r
- START_LUMP(PADDLE_LUMP_START, __PADDLESTART)\r
- PADDLESPR, // 124\r
- BALLSPR, // 125\r
- BALL1PIXELTOTHERIGHTSPR, // 126\r
- BALL2PIXELSTOTHERIGHTSPR, // 127\r
- BALL3PIXELSTOTHERIGHTSPR, // 128\r
- END_LUMP(PADDLE_LUMP_END, __PADDLEEND)\r
-\r
- DEMOPLAQUESPR, // 129\r
-\r
- //player lump:\r
- START_LUMP(KEEN_LUMP_START, __KEENSTART)\r
- KEENSTANDRSPR, // 130\r
- KEENRUNR1SPR, // 131\r
- KEENRUNR2SPR, // 132\r
- KEENRUNR3SPR, // 133\r
- KEENRUNR4SPR, // 134\r
- KEENJUMPR1SPR, // 135\r
- KEENJUMPR2SPR, // 136\r
- KEENJUMPR3SPR, // 137\r
- KEENSTANDLSPR, // 138\r
- KEENRUNL1SPR, // 139\r
- KEENRUNL2SPR, // 140\r
- KEENRUNL3SPR, // 141\r
- KEENRUNL4SPR, // 142\r
- KEENJUMPL1SPR, // 143\r
- KEENJUMPL2SPR, // 144\r
- KEENJUMPL3SPR, // 145\r
- KEENLOOKUSPR, // 146\r
- KEENWAITR1SPR, // 147\r
- KEENWAITR2SPR, // 148\r
- KEENWAITR3SPR, // 149\r
- KEENSITREAD1SPR, // 150\r
- KEENSITREAD2SPR, // 151\r
- KEENSITREAD3SPR, // 152\r
- KEENSITREAD4SPR, // 153\r
- KEENREAD1SPR, // 154\r
- KEENREAD2SPR, // 155\r
- KEENREAD3SPR, // 156\r
- KEENSTOPREAD1SPR, // 157\r
- KEENSTOPREAD2SPR, // 158\r
- KEENWATCHSPR, // 159\r
- KEENLOOKD1SPR, // 160\r
- KEENLOOKD2SPR, // 161\r
- KEENDIE1SPR, // 162\r
- KEENDIE2SPR, // 163\r
- STUNSTARS1SPR, // 164\r
- STUNSTARS2SPR, // 165\r
- STUNSTARS3SPR, // 166\r
- KEENSHOOTLSPR, // 167\r
- KEENJLSHOOTLSPR, // 168\r
- KEENJSHOOTDSPR, // 169\r
- KEENJSHOOTUSPR, // 170\r
- KEENSHOOTUSPR, // 171\r
- KEENSHOOTRSPR, // 172\r
- KEENJRSHOOTRSPR, // 173\r
- STUN1SPR, // 174\r
- STUN2SPR, // 175\r
- STUN3SPR, // 176\r
- STUN4SPR, // 177\r
- STUNHIT1SPR, // 178\r
- STUNHIT2SPR, // 179\r
- KEENSHINNYR1SPR, // 180\r
- KEENSHINNYR2SPR, // 181\r
- KEENSHINNYR3SPR, // 182\r
- KEENSLIDED1SPR, // 183\r
- KEENSLIDED2SPR, // 184\r
- KEENSLIDED3SPR, // 185\r
- KEENSLIDED4SPR, // 186\r
- KEENSHINNYL1SPR, // 187\r
- KEENSHINNYL2SPR, // 188\r
- KEENSHINNYL3SPR, // 189\r
- KEENPLSHOOTUSPR, // 190\r
- KEENPRSHOOTUSPR, // 191\r
- KEENPRSHOOTDSPR, // 192\r
- KEENPLSHOOTDSPR, // 193\r
- KEENPSHOOTLSPR, // 194\r
- KEENPSHOOTRSPR, // 195\r
- KEENENTER1SPR, // 196\r
- KEENENTER2SPR, // 197\r
- KEENENTER3SPR, // 198\r
- KEENENTER4SPR, // 199\r
- KEENENTER5SPR, // 200\r
- KEENHANGLSPR, // 201\r
- KEENHANGRSPR, // 202\r
- KEENCLIMBEDGEL1SPR, // 203\r
- KEENCLIMBEDGEL2SPR, // 204\r
- KEENCLIMBEDGEL3SPR, // 205\r
- KEENCLIMBEDGEL4SPR, // 206\r
- KEENCLIMBEDGER1SPR, // 207\r
- KEENCLIMBEDGER2SPR, // 208\r
- KEENCLIMBEDGER3SPR, // 209\r
- KEENCLIMBEDGER4SPR, // 210\r
- KEENPOGOR1SPR, // 211\r
- KEENPOGOR2SPR, // 212\r
- KEENPOGOL1SPR, // 213\r
- KEENPOGOL2SPR, // 214\r
- DROPSPLASH1SPR, // 215\r
- DROPSPLASH2SPR, // 216\r
- DROPSPLASH3SPR, // 217\r
- BONUS100UPSPR, // 218\r
- BONUS100SPR, // 219\r
- BONUS200SPR, // 220\r
- BONUS500SPR, // 221\r
- BONUS1000SPR, // 222\r
- BONUS2000SPR, // 223\r
- BONUS5000SPR, // 224\r
- BONUS1UPSPR, // 225\r
- BONUSCLIPSPR, // 226\r
- END_LUMP(KEEN_LUMP_END, __KEENEND)\r
-\r
- START_LUMP(SUGAR1_LUMP_START, __SUGAR1START)\r
- SUGAR1ASPR, // 227\r
- SUGAR1BSPR, // 228\r
- END_LUMP(SUGAR1_LUMP_END, __SUGAR1END)\r
-\r
- START_LUMP(SUGAR2_LUMP_START, __SUGAR2START)\r
- SUGAR2ASPR, // 229\r
- SUGAR2BSPR, // 230\r
- END_LUMP(SUGAR2_LUMP_END, __SUGAR2END)\r
-\r
- START_LUMP(SUGAR3_LUMP_START, __SUGAR3START)\r
- SUGAR3ASPR, // 231\r
- SUGAR3BSPR, // 232\r
- END_LUMP(SUGAR3_LUMP_END, __SUGAR3END)\r
-\r
- START_LUMP(SUGAR4_LUMP_START, __SUGAR4START)\r
- SUGAR4ASPR, // 233\r
- SUGAR4BSPR, // 234\r
- END_LUMP(SUGAR4_LUMP_END, __SUGAR4END)\r
-\r
- START_LUMP(SUGAR5_LUMP_START, __SUGAR5START)\r
- SUGAR5ASPR, // 235\r
- SUGAR5BSPR, // 236\r
- END_LUMP(SUGAR5_LUMP_END, __SUGAR5END)\r
-\r
- START_LUMP(SUGAR6_LUMP_START, __SUGAR6START)\r
- SUGAR6ASPR, // 237\r
- SUGAR6BSPR, // 238\r
- END_LUMP(SUGAR6_LUMP_END, __SUGAR6END)\r
-\r
- START_LUMP(ONEUP_LUMP_START, __ONEUPSTART)\r
- ONEUPASPR, // 239\r
- ONEUPBSPR, // 240\r
- END_LUMP(ONEUP_LUMP_END, __ONEUPEND)\r
-\r
- DOORSPR, // 241\r
-\r
- START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART)\r
- REDGEM1SPR, // 242\r
- REDGEM2SPR, // 243\r
- YELLOWGEM1SPR, // 244\r
- YELLOWGEM2SPR, // 245\r
- BLUEGEM1SPR, // 246\r
- BLUEGEM2SPR, // 247\r
- GREENGEM1SPR, // 248\r
- GREENGEM2SPR, // 249\r
- BONUSGEMSPR, // 250\r
- END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND)\r
-\r
- START_LUMP(AMMO_LUMP_START, __AMMOSTART)\r
- STUNCLIP1SPR, // 251\r
- STUNCLIP2SPR, // 252\r
- END_LUMP(AMMO_LUMP_END, __AMMOEND)\r
-\r
- SCOREBOXSPR, // 253\r
-\r
- START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART)\r
- WORLDKEENL1SPR, // 254\r
- WORLDKEENL2SPR, // 255\r
- WORLDKEENL3SPR, // 256\r
- WORLDKEENR1SPR, // 257\r
- WORLDKEENR2SPR, // 258\r
- WORLDKEENR3SPR, // 259\r
- WORLDKEENU1SPR, // 260\r
- WORLDKEENU2SPR, // 261\r
- WORLDKEENU3SPR, // 262\r
- WORLDKEEND1SPR, // 263\r
- WORLDKEEND2SPR, // 264\r
- WORLDKEEND3SPR, // 265\r
- WORLDKEENDR1SPR, // 266\r
- WORLDKEENDR2SPR, // 267\r
- WORLDKEENDR3SPR, // 268\r
- WORLDKEENDL1SPR, // 269\r
- WORLDKEENDL2SPR, // 270\r
- WORLDKEENDL3SPR, // 271\r
- WORLDKEENUL1SPR, // 272\r
- WORLDKEENUL2SPR, // 273\r
- WORLDKEENUL3SPR, // 274\r
- WORLDKEENUR1SPR, // 275\r
- WORLDKEENUR2SPR, // 276\r
- WORLDKEENUR3SPR, // 277\r
- WORLDKEENWAVE1SPR, // 278\r
- WORLDKEENWAVE2SPR, // 279\r
- WORLDKEENSWIMU1SPR, // 280\r
- WORLDKEENSWIMU2SPR, // 281\r
- WORLDKEENSWIMR1SPR, // 282\r
- WORLDKEENSWIMR2SPR, // 283\r
- WORLDKEENSWIMD1SPR, // 284\r
- WORLDKEENSWIMD2SPR, // 285\r
- WORLDKEENSWIML1SPR, // 286\r
- WORLDKEENSWIML2SPR, // 287\r
- WORLDKEENSWIMUR1SPR, // 288\r
- WORLDKEENSWIMUR2SPR, // 289\r
- WORLDKEENSWIMDR1SPR, // 290\r
- WORLDKEENSWIMDR2SPR, // 291\r
- WORLDKEENSWIMDL1SPR, // 292\r
- WORLDKEENSWIMDL2SPR, // 293\r
- WORLDKEENSWIMUL1SPR, // 294\r
- WORLDKEENSWIMUL2SPR, // 295\r
- WOLRDKEENRIDE1SPR, // 296\r
- WOLRDKEENRIDE2SPR, // 297\r
- FLAGFLIP1SPR, // 298\r
- FLAGFLIP2SPR, // 299\r
- FLAGFLIP3SPR, // 300\r
- FLAGFLIP4SPR, // 301\r
- FLAGFLIP5SPR, // 302\r
- FLAGFALL1SPR, // 303\r
- FLAGFALL2SPR, // 304\r
- FLAGFLAP1SPR, // 305\r
- FLAGFLAP2SPR, // 306\r
- FLAGFLAP3SPR, // 307\r
- FLAGFLAP4SPR, // 308\r
- END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND)\r
-\r
- START_LUMP(SCUBAKEEN_LUMP_START, __SCUBAKEENSTART)\r
- SCUBAKEENL1SPR, // 309\r
- SCUBAKEENL2SPR, // 310\r
- SCUBAKEENR1SPR, // 311\r
- SCUBAKEENR2SPR, // 312\r
- SCUBAKEENDEAD1SPR, // 313\r
- SCUBAKEENDEAD2SPR, // 314\r
- END_LUMP(SCUBAKEEN_LUMP_END, __SCUBAKEENEND)\r
-\r
- START_LUMP(SLUG_LUMP_START, __SLUGSTART)\r
- SLUGWALKR1SPR, // 315\r
- SLUGWALKR2SPR, // 316\r
- SLUGPISSRSPR, // 317\r
- SLUGSTUN1SPR, // 318\r
- SLUGSTUN2SPR, // 319\r
- SLUGWALKL1SPR, // 320\r
- SLUGWALKL2SPR, // 321\r
- SLUGPISSLSPR, // 322\r
- SLUGSLIME1SPR, // 323\r
- SLUGSLIME2SPR, // 324\r
- END_LUMP(SLUG_LUMP_END, __SLUGEND)\r
-\r
- START_LUMP(MADMUSHROOM_LUMP_START, __MADMUSHROOMSTART)\r
- MADMUSHROOML1SPR, // 325\r
- MADMUSHROOML2SPR, // 326\r
- MADMUSHROOMR1SPR, // 327\r
- MADMUSHROOMR2SPR, // 328\r
- END_LUMP(MADMUSHROOM_LUMP_END, __MADMUSHROOMEND)\r
-\r
- START_LUMP(LINDSEY_LUMP_START, __LINDSEYSTART)\r
- LINDSEY1SPR, // 329\r
- LINDSEY2SPR, // 330\r
- LINDSEY3SPR, // 331\r
- LINDSEY4SPR, // 332\r
- END_LUMP(LINDSEY_LUMP_END, __LINDSEYEND)\r
-\r
- START_LUMP(INCHWORM_LUMP_START, __INCHWORMSTART)\r
- INCHWORMR1SPR, // 333\r
- INCHWORMR2SPR, // 334\r
- INCHWORML1SPR, // 335\r
- INCHWORML2SPR, // 336\r
- FOOTSPR, // 337\r
- END_LUMP(INCHWORM_LUMP_END, __INCHWORMEND)\r
-\r
- START_LUMP(EATER_LUMP_START, __EATERSTART)\r
- EATERSTAND1SPR, // 338\r
- EATERSTAND2SPR, // 339\r
- EATERJUMPR1SPR, // 340\r
- EATERJUMPR2SPR, // 341\r
- EATERJUMPR3SPR, // 342\r
- EATERJUMPL1SPR, // 343\r
- EATERJUMPL2SPR, // 344\r
- EATERJUMPL3SPR, // 345\r
- EATENBONUS1SPR, // 346\r
- EATENBONUS2SPR, // 347\r
- EATENBONUS3SPR, // 348\r
- EATENBONUS4SPR, // 349\r
- SMOKE1SPR, // 350\r
- SMOKE2SPR, // 351\r
- SMOKE3SPR, // 352\r
- SMOKE4SPR, // 353\r
- SMOKE5SPR, // 354\r
- EATERSTUNSPR, // 355\r
- END_LUMP(EATER_LUMP_END, __EATEREND)\r
-\r
- START_LUMP(COUNCIL_LUMP_START, __COUINCILSTART)\r
- COUNCILWALKR1SPR, // 356\r
- COUNCILWALKR2SPR, // 357\r
- COUNCILWALKL1SPR, // 358\r
- COUNCILWALKL2SPR, // 359\r
- COUNCILTHINKLSPR, // 360\r
- COUNCILTHINKRSPR, // 361\r
- END_LUMP(COUNCIL_LUMP_END, __COUNCILEND)\r
-\r
- START_LUMP(EGG_LUMP_START, __EGGSTART)\r
- EGGSPR, // 362\r
- EGGBROKESPR, // 363\r
- EGGCHIP1SPR, // 364\r
- EGGCHIP2SPR, // 365\r
- EGGCHIP3SPR, // 366\r
- END_LUMP(EGG_LUMP_END, __EGGEND)\r
-\r
- START_LUMP(EGGBIRD_LUMP_START, __EGGBIRDSTART)\r
- BIRDWALKR1SPR, // 367\r
- BIRDWALKR2SPR, // 368\r
- BIRDWALKR3SPR, // 369\r
- BIRDWALKR4SPR, // 370\r
- BIRDWALKL1SPR, // 371\r
- BIRDWALKL2SPR, // 372\r
- BIRDWALKL3SPR, // 373\r
- BIRDWALKL4SPR, // 374\r
- BIRDFLY1SPR, // 375\r
- BIRDFLY2SPR, // 376\r
- BIRDFLY3SPR, // 377\r
- BIRDFLY4SPR, // 378\r
- BIRDSTUNSPR, // 379\r
- END_LUMP(EGGBIRD_LUMP_END, __EGGBIRDEND)\r
-\r
- START_LUMP(DARTS_LUMP_START, __DARTSSTART)\r
- DARTU1SPR, // 380\r
- DARTU2SPR, // 381\r
- DARTD1SPR, // 382\r
- DARTD2SPR, // 383\r
- DARTR1SPR, // 384\r
- DARTR2SPR, // 385\r
- DARTL1SPR, // 386\r
- DARTL2SPR, // 387\r
- END_LUMP(DARTS_LUMP_END, __DARTSEND)\r
-\r
- START_LUMP(MIMROCK_LUMP_START, __MIMROCKSTART)\r
- MIMROCKSPR, // 388\r
- MIMROCKWALKL1SPR, // 389\r
- MIMROCKWALKL2SPR, // 390\r
- MIMROCKWALKL3SPR, // 391\r
- MIMROCKWALKL4SPR, // 392\r
- MIMROCKWALKR1SPR, // 393\r
- MIMROCKWALKR2SPR, // 394\r
- MIMROCKWALKR3SPR, // 395\r
- MIMROCKWALKR4SPR, // 396\r
- MIMROCKJUMPR1SPR, // 397\r
- MIMROCKJUMPR2SPR, // 398\r
- MIMROCKJUMPR3SPR, // 399\r
- MIMROCKJUMPL1SPR, // 400\r
- MIMROCKJUMPL2SPR, // 401\r
- MIMROCKJUMPL3SPR, // 402\r
- MINROCKSTUNSPR, // 403\r
- END_LUMP(MIMROCK_LUMP_END, __MIMROCKEND)\r
-\r
- START_LUMP(DOPEFISH_LUMP_START, __DOPEFISHSTART)\r
- DOPEFISHSWIMR1SPR, // 404\r
- DOPEFISHSWIMR2SPR, // 405\r
- DOPEFISHHUNGRYRSPR, // 406\r
- DOPEFISHBURP1SPR, // 407\r
- DOPEFISHBURP2SPR, // 408\r
- BIGBUBBLE1SPR, // 409\r
- BIGBUBBLE2SPR, // 410\r
- BIGBUBBLE3SPR, // 411\r
- BIGBUBBLE4SPR, // 412\r
- SMALLBUBBLE1SPR, // 413\r
- SMALLBUBBLE2SPR, // 414\r
- SMALLBUBBLE3SPR, // 415\r
- SMALLBUBBLE4SPR, // 416\r
- MEDIUMBUBBLESPR, // 417\r
- DOPEFISHSWIML1SPR, // 418\r
- DOPEFISHSWIML2SPR, // 419\r
- DOPEFISHHUNGRYLSPR, // 420\r
- END_LUMP(DOPEFISH_LUMP_END, __DOPEFISHEND)\r
-\r
- START_LUMP(SCHOOLFISH_LUMP_START, __SCHOOLFISHSTART)\r
- SCHOOLFISHL1SPR, // 421\r
- SCHOOLFISHL2SPR, // 422\r
- SCHOOLFISHR1SPR, // 423\r
- SCHOOLFISHR2SPR, // 424\r
- END_LUMP(SCHOOLFISH_LUMP_END, __SCHOOLFISHEND)\r
-\r
- START_LUMP(ARACHNUT_LUMP_START, __ARACHNUTSTART)\r
- ARACHNUTWALK1SPR, // 425\r
- ARACHNUTWALK2SPR, // 426\r
- ARACHNUTWALK3SPR, // 427\r
- ARACHNUTWALK4SPR, // 428\r
- ARACHNUTSTUNSPR, // 429\r
- END_LUMP(ARACHNUT_LUMP_END, __ARACHNUTEND)\r
-\r
- SCUBASPR, // 430\r
-\r
- START_LUMP(SPRITE_LUMP_START, __SPRITESTART)\r
- SPRITEFLOATSPR, // 431\r
- SPRITEAIMLSPR, // 432\r
- SPRITESHOOTLSPR, // 433\r
- SPRITEAIMRSPR, // 434\r
- SPRITESHOOTRSPR, // 435\r
- SPRITESHOT1SPR, // 436\r
- SPRITESHOT2SPR, // 437\r
- SPRITESHOT3SPR, // 438\r
- SPRITESHOT4SPR, // 439\r
- END_LUMP(SPRITE_LUMP_END, __SPRITEEND)\r
-\r
- START_LUMP(MINE_LUMP_START, __MINESTART)\r
- MINESPR, // 440\r
- MINEEXPLODE1SPR, // 441\r
- MINEEXPLODE2SPR, // 442\r
- END_LUMP(MINE_LUMP_END, __MINEEND)\r
-\r
- START_LUMP(SKYPEST_LUMP_START, __SKYPESTSTART)\r
- SKYPESTFLYL1SPR, // 443\r
- SKYPESTFLYL2SPR, // 444\r
- SKYPESTFLYR1SPR, // 445\r
- SKYPESTFLYR2SPR, // 446\r
- SKYPESTSIT1SPR, // 447\r
- SKYPESTSIT2SPR, // 448\r
- SKYPESTSIT3SPR, // 449\r
- SKYPESTSIT4SPR, // 450\r
- SKYPESTSIT5SPR, // 451\r
- SKYPESTSIT6SPR, // 452\r
- SKYPESTSIT7SPR, // 453\r
- SKYPESTSIT8SPR, // 454\r
- SKYPESTSIT9SPR, // 455\r
- SKYPESTSQUASHEDSPR, // 456\r
- END_LUMP(SKYPEST_LUMP_END, __SKYPESTEND)\r
-\r
- START_LUMP(WORMOUTH_LUMP_START, __WORMOUTHSTART)\r
- WORMOUTHSPR, // 457\r
- WORMOUTHPEEKR1SPR, // 458\r
- WORMOUTHPEEKR2SPR, // 459\r
- WORMOUTHPEEKL1SPR, // 460\r
- WORMOUTHPEEKL2SPR, // 461\r
- WORMOUTHBITER1SPR, // 462\r
- WORMOUTHBITER2SPR, // 463\r
- WORMOUTHBITER3SPR, // 464\r
- WORMOUTHBITEL1SPR, // 465\r
- WORMOUTHBITEL2SPR, // 466\r
- WORMOUTHBITEL3SPR, // 467\r
- WORMOUTHSTUNSPR, // 468\r
- END_LUMP(WORMOUTH_LUMP_END, __WORMOUTHEND)\r
-\r
- START_LUMP(LICK_LUMP_START, __LICKSTART)\r
- LICKMOVER1SPR, // 469\r
- LICKMOVER2SPR, // 470\r
- LICKMOVER3SPR, // 471\r
- LICKMOVER4SPR, // 472\r
- LICKMOVEL1SPR, // 473\r
- LICKMOVEL2SPR, // 474\r
- LICKMOVEL3SPR, // 475\r
- LICKMOVEL4SPR, // 476\r
- LICKATTACKR1SPR, // 477\r
- LICKATTACKR2SPR, // 478\r
- LICKATTACKR3SPR, // 479\r
- LICKATTACKL1SPR, // 480\r
- LICKATTACKL2SPR, // 481\r
- LICKATTACKL3SPR, // 482\r
- LICKSTUNSPR, // 483\r
- END_LUMP(LICK_LUMP_END, __LICKEND)\r
-\r
- START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART)\r
- PLATFORMSPR, // 484\r
- PLATSIDETHRUST1SPR, // 485\r
- PLATSIDETHRUST2SPR, // 486\r
- PLATRTHRUST1SPR, // 487\r
- PLATRTHRUST2SPR, // 488\r
- PLATLTHRUST1SPR, // 489\r
- PLATLTHRUST2SPR, // 490\r
- END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND)\r
-\r
- START_LUMP(BOUNDER_LUMP_START, __BOUNDERSTART)\r
- BOUNDERL1SPR, // 491\r
- BOUNDERL2SPR, // 492\r
- BOUNDERR1SPR, // 493\r
- BOUNDERR2SPR, // 494\r
- BOUNDERC1SPR, // 495\r
- BOUNDERC2SPR, // 496\r
- BOUNDERSTUNSPR, // 497\r
- END_LUMP(BOUNDER_LUMP_END, __BOUNDEREND)\r
-\r
- START_LUMP(THUNDERCLOUD_LUMP_START, __THUNDERCLOUDSTART)\r
- CLOUDSPR, // 498\r
- CLOUDACTIVESPR, // 499\r
- CLOUDCHARGESPR, // 500\r
- BOLT1SPR, // 501\r
- BOLT2SPR, // 502\r
- END_LUMP(THUNDERCLOUD_LUMP_END, __THUNDERCLOUDEND)\r
-\r
- START_LUMP(BERKELOID_LUMP_START, __BERKELOIDSTART)\r
- BERKEWALKL1SPR, // 503\r
- BERKEWALKL2SPR, // 504\r
- BERKEWALKL3SPR, // 505\r
- BERKEWALKL4SPR, // 506\r
- BERKEWALKR1SPR, // 507\r
- BERKEWALKR2SPR, // 508\r
- BERKEWALKR3SPR, // 509\r
- BERKEWALKR4SPR, // 510\r
- BERKETHROWL1SPR, // 511\r
- BERKETHROWL2SPR, // 512\r
- BERKETHROWR1SPR, // 513\r
- BERKETHROWR2SPR, // 514\r
- FIREBALL1SPR, // 515\r
- FIREBALL2SPR, // 516\r
- FIREBALL3SPR, // 517\r
- FIREBALL4SPR, // 518\r
- END_LUMP(BERKELOID_LUMP_END, __BERKELOIDEND)\r
-\r
- START_LUMP(MOON_LUMP_START, __MOONSTART)\r
- KEENMOON1SPR, // 519\r
- KEENMOON2SPR, // 520\r
- END_LUMP(MOON_LUMP_END, __MOONEND)\r
-\r
- //\r
- // TILES (these don't need names)\r
- //\r
-\r
- LASTTILE=STARTEXTERNS-1,\r
-\r
- //\r
- // EXTERNS\r
- //\r
-\r
- ORDERSCREEN, // 4735\r
- BIGCOMMANDER, // 4736\r
- BIGKEEN, // 4737\r
- OUTOFMEM, // 4738\r
-\r
- //texts\r
- T_HELPART, // 4739\r
- T_STORYART, // 4740\r
- T_CONTRART, // 4741\r
- T_IDART, // 4742\r
- T_ENDART, // 4743\r
- T_DEMOART, // 4744\r
- T_ORDERART, // 4745\r
-\r
- //demos\r
- DEMO0, // 4746\r
- DEMO1, // 4747\r
- DEMO2, // 4748\r
- DEMO3, // 4749\r
- DEMO4, // 4750\r
-\r
- NUMGRCHUNKS\r
-} graphicnums;\r
-\r
-#undef START_LUMP\r
-#undef END_LUMP\r
-\r
-#endif //__GFX_H__
\ No newline at end of file
+++ /dev/null
-;\r
-; Equates for all .ASM files\r
-;\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-INCLUDE "GFXC_CK4.EQU"\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-CGAGR = 1\r
-EGAGR = 2\r
-VGAGR = 3\r
-\r
-GRMODE = CGAGR\r
-PROFILE = 0 ; 1=keep stats on tile drawing\r
-\r
-SC_INDEX = 03C4h\r
-SC_RESET = 0\r
-SC_CLOCK = 1\r
-SC_MAPMASK = 2\r
-SC_CHARMAP = 3\r
-SC_MEMMODE = 4\r
-\r
-CRTC_INDEX = 03D4h\r
-CRTC_H_TOTAL = 0\r
-CRTC_H_DISPEND = 1\r
-CRTC_H_BLANK = 2\r
-CRTC_H_ENDBLANK = 3\r
-CRTC_H_RETRACE = 4\r
-CRTC_H_ENDRETRACE = 5\r
-CRTC_V_TOTAL = 6\r
-CRTC_OVERFLOW = 7\r
-CRTC_ROWSCAN = 8\r
-CRTC_MAXSCANLINE = 9\r
-CRTC_CURSORSTART = 10\r
-CRTC_CURSOREND = 11\r
-CRTC_STARTHIGH = 12\r
-CRTC_STARTLOW = 13\r
-CRTC_CURSORHIGH = 14\r
-CRTC_CURSORLOW = 15\r
-CRTC_V_RETRACE = 16\r
-CRTC_V_ENDRETRACE = 17\r
-CRTC_V_DISPEND = 18\r
-CRTC_OFFSET = 19\r
-CRTC_UNDERLINE = 20\r
-CRTC_V_BLANK = 21\r
-CRTC_V_ENDBLANK = 22\r
-CRTC_MODE = 23\r
-CRTC_LINECOMPARE = 24\r
-\r
-\r
-GC_INDEX = 03CEh\r
-GC_SETRESET = 0\r
-GC_ENABLESETRESET = 1\r
-GC_COLORCOMPARE = 2\r
-GC_DATAROTATE = 3\r
-GC_READMAP = 4\r
-GC_MODE = 5\r
-GC_MISCELLANEOUS = 6\r
-GC_COLORDONTCARE = 7\r
-GC_BITMASK = 8\r
-\r
-ATR_INDEX = 03c0h\r
-ATR_MODE = 16\r
-ATR_OVERSCAN = 17\r
-ATR_COLORPLANEENABLE = 18\r
-ATR_PELPAN = 19\r
-ATR_COLORSELECT = 20\r
-\r
-STATUS_REGISTER_1 = 03dah\r
-\r
-\r
-MACRO WORDOUT\r
- out dx,ax\r
-ENDM\r
-\r
-if 0\r
-\r
-MACRO WORDOUT\r
- out dx,al\r
- inc dx\r
- xchg al,ah\r
- out dx,al\r
- dec dx\r
- xchg al,ah\r
-ENDM\r
-\r
-endif\r
-\r
-UPDATEWIDE = 22\r
-UPDATEHIGH = 14\r
-\r
-;\r
-; tile info offsets from segment tinf\r
-;\r
-\r
-ANIM = 402\r
-SPEED = (ANIM+NUMTILE16)\r
-\r
-NORTHWALL = (SPEED+NUMTILE16)\r
-EASTWALL = (NORTHWALL+NUMTILE16M)\r
-SOUTHWALL = (EASTWALL+NUMTILE16M)\r
-WESTWALL = (SOUTHWALL+NUMTILE16M)\r
-MANIM = (WESTWALL+NUMTILE16M)\r
-INTILE = (MANIM+NUMTILE16M)\r
-MSPEED = (INTILE+NUMTILE16M)\r
-\r
-\r
-IFE GRMODE-EGAGR\r
-SCREENWIDTH = 64\r
-ENDIF\r
-IFE GRMODE-CGAGR\r
-SCREENWIDTH = 128\r
-ENDIF\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_GLOB.H\r
-\r
-\r
-#include <ALLOC.H>\r
-#include <CTYPE.H>\r
-#include <DOS.H>\r
-#include <ERRNO.H>\r
-#include <FCNTL.H>\r
-#include <IO.H>\r
-#include <MEM.H>\r
-#include <PROCESS.H>\r
-#include <STDIO.H>\r
-#include <STDLIB.H>\r
-#include <STRING.H>\r
-#include <SYS\STAT.H>\r
-\r
-#define __ID_GLOB__\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define KEEN\r
-#define KEEN4\r
-\r
-#define EXTENSION "CK4"\r
-\r
-extern char far introscn;\r
-\r
-#include "GFXC_CK4.H"\r
-#include "AUDIOCK4.H"\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define TEXTGR 0\r
-#define CGAGR 1\r
-#define EGAGR 2\r
-#define VGAGR 3\r
-\r
-#define GRMODE CGAGR\r
-\r
-#if GRMODE == EGAGR\r
-#define GREXT "EGA"\r
-#endif\r
-#if GRMODE == CGAGR\r
-#define GREXT "CGA"\r
-#endif\r
-\r
-//#define PROFILE\r
-\r
-//\r
-// ID Engine\r
-// Types.h - Generic types, #defines, etc.\r
-// v1.0d1\r
-//\r
-\r
-#ifndef __TYPES__\r
-#define __TYPES__\r
-\r
-typedef enum {false,true} boolean;\r
-typedef unsigned char byte;\r
-typedef unsigned int word;\r
-typedef unsigned long longword;\r
-typedef byte * Ptr;\r
-\r
-typedef struct\r
- {\r
- int x,y;\r
- } Point;\r
-typedef struct\r
- {\r
- Point ul,lr;\r
- } Rect;\r
-\r
-#define nil ((void *)0)\r
-\r
-#endif\r
-\r
-#include "ID_MM.H"\r
-#include "ID_CA.H"\r
-#include "ID_VW.H"\r
-#include "ID_RF.H"\r
-#include "ID_IN.H"\r
-#include "ID_SD.H"\r
-#include "ID_US.H"\r
-\r
-\r
-void Quit (char *error); // defined in user program\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __AUDIO_H__\r
-#define __AUDIO_H__\r
-\r
-//#include "VERSION.H"\r
-\r
-/////////////////////////////////////////////////\r
-//\r
-// MUSE Header for .CK5\r
-//\r
-/////////////////////////////////////////////////\r
-\r
-#define NUMSOUNDS LASTSOUND\r
-#define NUMSNDCHUNKS ((3*LASTSOUND)+LASTMUSIC)\r
-\r
-//\r
-// Sound names & indexes\r
-//\r
-typedef enum {\r
- SND_WORLDWALK1, // 0\r
- SND_WORLDWALK2, // 1\r
- SND_JUMP, // 2\r
- SND_LAND, // 3\r
- SND_KEENFIRE, // 4\r
- SND_MINEEXPLODE, // 5\r
- SND_SLICESTARBOUNCE, // 6\r
- SND_POGOBOUNCE, // 7\r
- SND_GETPOINTS, // 8\r
- SND_GETAMMO, // 9\r
- SND_GETWATER, // 10\r
- SND_11, // 11\r
- SND_ENTERLEVEL, // 12\r
- SND_LEVELDONE, // 13\r
- SND_NOWAY, // 14\r
- SND_HELMETHIT, // 15\r
- SND_BOUNCE, // 16\r
- SND_EXTRAKEEN, // 17\r
- SND_OPENCARDDOOR, // 18\r
- SND_GETKEY, // 19\r
- SND_PLUMMET, // 20\r
- SND_USESWITCH, // 21\r
- SND_22, // 22\r
- SND_KEENDEAD, // 23\r
- SND_24, // 24\r
- SND_SHOTEXPLODE, // 25\r
- SND_26, // 26\r
- SND_SPIROGRAB, // 27\r
- SND_SPINDREDBOUNCE, // 28\r
- SND_ENEMYSHOT, // 29\r
- SND_ENEMYSHOTEXPLODE, // 30\r
- SND_AMPTONWALK1, // 31\r
- SND_AMPTONWALK2, // 32\r
- SND_AMPTONDIE, // 33\r
- SND_SHOWSTATUS, // 34\r
- SND_HIDESTATUS, // 35\r
- SND_SHELLEYEXPLODE, // 36\r
- SND_SPINDREDFLIP, // 37\r
- SND_MASTERATTACK, // 38\r
- SND_MASTERBLAST, // 39\r
- SND_SHIKADIATTACK, // 40\r
- SND_TELEPORT, // 41\r
- SND_SHOCKSHUNDBARK, // 42\r
- SND_FLAGSPIN, // 43\r
- SND_FLAGLAND, // 44\r
- SND_SHOCKBALLEXPLODE, // 45\r
- KEENPADDLESND, // 46\r
- BALLBOUNCESND, // 47\r
- COMPPADDLESND, // 48\r
- COMPSCOREDSND, // 49\r
- KEENSCOREDSND, // 50\r
- SND_51, // 51\r
- SND_BIGSPARK, // 52\r
- SND_GAMEOVER1, // 53\r
- SND_GAMEOVER2, // 54\r
- SND_GETKEYCARD, // 55\r
- SND_56, // 56\r
- SND_LANDONFUSE, // 57\r
- SND_SPARKYCHARGE, // 58\r
- SND_SPHEREFULBOUNCE, // 59\r
- SND_OPENDOOR, // 60\r
- SND_SPIROFLY, // 61\r
- SND_62, // 62\r
- SND_ELEVATORDOOR, // 63\r
- LASTSOUND\r
-} soundnames;\r
-\r
-#if LASTSOUND != 64\r
-#error bad sound enum!\r
-#endif\r
-\r
-#define NOWAYSND SND_NOWAY\r
-\r
-//\r
-// Base offsets\r
-//\r
-#define STARTPCSOUNDS 0\r
-#define STARTADLIBSOUNDS (STARTPCSOUNDS+NUMSOUNDS)\r
-#define STARTDIGISOUNDS (STARTADLIBSOUNDS+NUMSOUNDS)\r
-#define STARTMUSIC (STARTDIGISOUNDS+NUMSOUNDS)\r
-\r
-//\r
-// Music names & indexes\r
-//\r
-typedef enum {\r
- CAMEIN_MUS,\r
- HAVING_T_MUS,\r
- SKATING_MUS,\r
- SNOOPING_MUS,\r
- BAGPIPES_MUS,\r
- WEDNESDY_MUS,\r
- ROCK_ME_MUS,\r
- BREATHE_MUS,\r
- SHIKAIRE_MUS,\r
- SPHEREFUL_MUS,\r
- TIGHTER_MUS,\r
- ROBOROCK_MUS,\r
- FANFARE_MUS,\r
- FEARSOME_MUS,\r
- LASTMUSIC\r
-} musicnames;\r
-\r
-/////////////////////////////////////////////////\r
-//\r
-// Thanks for playing with MUSE!\r
-//\r
-/////////////////////////////////////////////////\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-;=====================================\r
-;\r
-; Graphics .EQU file for .CK5\r
-; not IGRAB-ed :)\r
-;\r
-;=====================================\r
-\r
-;INCLUDE "VERSION.EQU"\r
-\r
-;\r
-; Amount of each data item\r
-;\r
-NUMFONT = 3\r
-NUMFONTM = 0\r
-NUMPICM = 3\r
-NUMTILE8 = 108\r
-NUMTILE8M = 36\r
-NUMTILE32 = 0\r
-NUMTILE32M = 0\r
-\r
-;\r
-; Amount of each item in episode 5\r
-;\r
-NUMPICS = 93\r
-NUMSPRITES = 346\r
-NUMTILE16 = 1512\r
-NUMTILE16M = 2952\r
-NUMEXTERN = 15\r
-\r
-\r
-;\r
-; File offsets for data items\r
-;\r
-STRUCTPIC = 0\r
-STRUCTPICM = 1\r
-STRUCTSPRITE = 2\r
-\r
-STARTFONT = 3\r
-STARTFONTM = (STARTFONT+NUMFONT)\r
-STARTPICS = (STARTFONTM+NUMFONTM)\r
-STARTPICM = (STARTPICS+NUMPICS)\r
-STARTSPRITES = (STARTPICM+NUMPICM)\r
-STARTTILE8 = (STARTSPRITES+NUMSPRITES)\r
-STARTTILE8M = (STARTTILE8+1)\r
-STARTTILE16 = (STARTTILE8M+1)\r
-STARTTILE16M = (STARTTILE16+NUMTILE16)\r
-STARTTILE32 = (STARTTILE16M+NUMTILE16M)\r
-STARTTILE32M = (STARTTILE32+NUMTILE32)\r
-STARTEXTERN = (STARTTILE32M+NUMTILE32M)\r
-\r
-NUMCHUNKS = (STARTEXTERN+NUMEXTERN)\r
-\r
-;\r
-; Thank you for using IGRAB!\r
-;\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __GFX_H__\r
-#define __GFX_H__\r
-\r
-//#include "VERSION.H"\r
-\r
-//////////////////////////////////////\r
-//\r
-// Graphics .H file for .CK5\r
-// not IGRAB-ed :)\r
-//\r
-//////////////////////////////////////\r
-\r
-//\r
-// Lump creation macros\r
-//\r
-\r
-#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1,\r
-#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1,\r
-\r
-//\r
-// Amount of each data item\r
-//\r
-\r
-//common numbers:\r
-#define NUMCHUNKS NUMGRCHUNKS\r
-#define NUMFONT 3\r
-#define NUMFONTM 0\r
-#define NUMPICM 3\r
-#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH!\r
-#define NUMTILE8M 36 // BUG: only 20 tiles exist in EGAGRAPH!\r
-#define NUMTILE32 0\r
-#define NUMTILE32M 0\r
-\r
-//episode-specific numbers:\r
-#define NUMPICS 93\r
-#define NUMSPRITES 346\r
-#define NUMTILE16 1512\r
-#define NUMTILE16M 2952\r
-#define NUMEXTERNS 17\r
-\r
-//\r
-// File offsets for data items\r
-//\r
-#define STRUCTPIC 0\r
-#define STRUCTPICM 1\r
-#define STRUCTSPRITE 2\r
-\r
-#define STARTFONT 3\r
-#define STARTFONTM (STARTFONT+NUMFONT)\r
-#define STARTPICS (STARTFONTM+NUMFONTM)\r
-#define STARTPICM (STARTPICS+NUMPICS)\r
-#define STARTSPRITES (STARTPICM+NUMPICM)\r
-#define STARTTILE8 (STARTSPRITES+NUMSPRITES)\r
-#define STARTTILE8M (STARTTILE8+1)\r
-#define STARTTILE16 (STARTTILE8M+1)\r
-#define STARTTILE16M (STARTTILE16+NUMTILE16)\r
-#define STARTTILE32 (STARTTILE16M+NUMTILE16M)\r
-#define STARTTILE32M (STARTTILE32+NUMTILE32)\r
-#define STARTEXTERNS (STARTTILE32M+NUMTILE32M)\r
-\r
-typedef enum {\r
- // Lump Start\r
-\r
- LASTFONT=STARTPICS-1,\r
-\r
- START_LUMP(HELP_LUMP_START, __HELPSTART)\r
- H_HELPPIC, // 6\r
- H_LARROWPIC, // 7\r
- H_RARROWPIC, // 8\r
- H_ESCPIC, // 9\r
- H_ENTERPIC, // 10\r
- H_BOTTOMINSTRPIC, // 11\r
- H_GUMPIC, // 12\r
- H_MARSHMALLOWPIC, // 13\r
- H_CHOCMILKPIC, // 14\r
- H_TARTSTIXPIC, // 15\r
- H_STOOPIESPIC, // 16\r
- H_SUGARPIC, // 17\r
- H_VITALINPIC, // 18\r
- H_STUNNERPIC, // 19\r
- H_GEMPIC, // 20\r
- H_KEGPIC, // 21\r
- H_ENDOFTEXTPIC, // 22\r
- H_HELPMENUPIC, // 23\r
- H_HANDPIC, // 24\r
- H_ARROWSENTERESCPIC, // 25\r
- H_FLASHARROW1PIC, // 26\r
- H_FLASHARROW2PIC, // 27\r
- H_TOPWINDOWPIC, // 28\r
- H_LEFTWINDOWPIC, // 29\r
- H_RIGHTWINDOWPIC, // 30\r
- H_BOTTOMINFOPIC, // 31\r
- H_BOTTOMWINDOWPIC, // 32\r
- H_BARPIC, // 33\r
- H_SPARKYPIC, // 34\r
- H_AMPTONPIC, // 35\r
- H_SLICESTARPIC, // 36\r
- H_VOLTEFACEPIC, // 37\r
- H_ROBOREDPIC, // 38\r
- H_SHELLEYPIC, // 39\r
- H_SPIROGRIPPIC, // 40\r
- H_MINEPIC, // 41\r
- H_SPINDREDPIC, // 42\r
- H_SHIKADIPIC, // 43\r
- H_SPHEREFULPIC, // 44\r
- H_PETPIC, // 45\r
- H_MASTERPIC, // 46\r
- H_IDLOGOPIC, // 47\r
- H_STORY1PIC, // 48\r
- H_STORY2PIC, // 49\r
- H_STORY3PIC, // 50\r
- H_STORY4PIC, // 51\r
- H_VISAPIC, // 52\r
- H_MCPIC, // 53\r
- H_KEENTHUMBSUPPIC, // 54\r
- H_END1PIC, // 55\r
- H_END2PIC, // 56\r
- H_END3PIC, // 57\r
- H_END4PIC, // 58\r
- H_END5PIC, // 59\r
- H_END6PIC, // 60\r
- H_END7PIC, // 61\r
- H_END8PIC, // 62\r
- H_CONGRATSPIC, // 63\r
- H_KEENFEEDSPIC, // 64\r
- H_DOORCARDPIC, // 65\r
- H_KEEN6PIC, // 66\r
- END_LUMP(HELP_LUMP_END, __HELPEND)\r
-\r
- START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART)\r
- CP_MAINMENUPIC, // 67\r
- CP_NEWGAMEMENUPIC, // 68\r
- CP_LOADMENUPIC, // 69\r
- CP_SAVEMENUPIC, // 70\r
- CP_CONFIGMENUPIC, // 71\r
- CP_SOUNDMENUPIC, // 72\r
- CP_MUSICMENUPIC, // 73\r
- CP_KEYBOARDMENUPIC, // 74\r
- CP_KEYMOVEMENTPIC, // 75\r
- CP_KEYBUTTONPIC, // 76\r
- CP_JOYSTICKMENUPIC, // 77\r
- CP_OPTIONSMENUPIC, // 78\r
- CP_PADDLEWARPIC, // 79\r
- CP_QUITPIC, // 80\r
- CP_JOYSTICKPIC, // 81\r
- CP_MENUSCREENPIC, // 82\r
- END_LUMP(CONTROLS_LUMP_END, __COLTROLSEND)\r
-\r
- START_LUMP(_LUMP_START, __START)\r
- IDSOFTPIC, // 83\r
- PROGTEAMPIC, // 84\r
- ARTISTPIC, // 85\r
- DIRECTORPIC, // 86\r
- SW_BACKGROUNDPIC, // 87\r
- TITLEPICPIC, // 88\r
- MILKYWAYPIC, // 89\r
- END_LUMP(_LUMP_END, __END)\r
-\r
- START_LUMP(KEENTALK_LUMP_START, __KEENTALKSTART)\r
- KEENTALK1PIC, // 90\r
- KEENTALK2PIC, // 91\r
- END_LUMP(KEENTALK_LUMP_END, __KEENTALKEND)\r
-\r
- START_LUMP(LOADING_LUMP_START, __LOADINGSTART)\r
- KEENCOUNT1PIC, // 92\r
- KEENCOUNT2PIC, // 93\r
- KEENCOUNT3PIC, // 94\r
- KEENCOUNT4PIC, // 95\r
- KEENCOUNT5PIC, // 96\r
- KEENCOUNT6PIC, // 97\r
- END_LUMP(LOADING_LUMP_END, __LOADINGEND)\r
-\r
- GAMEOVERPIC, // 98\r
-\r
- CP_MENUMASKPICM, // 99\r
- CORDPICM, // 100\r
- METALPOLEPICM, // 101\r
-\r
- //\r
- // SPRITES\r
- //\r
-\r
- START_LUMP(PADDLE_LUMP_START, __PADDLESTART)\r
- PADDLESPR, // 102\r
- BALLSPR, // 103\r
- BALL1PIXELTOTHERIGHTSPR, // 104\r
- BALL2PIXELSTOTHERIGHTSPR, // 105\r
- BALL3PIXELSTOTHERIGHTSPR, // 106\r
- END_LUMP(PADDLE_LUMP_END, __PADDLEEND)\r
-\r
- DEMOPLAQUESPR, // 107\r
-\r
- START_LUMP(KEEN_LUMP_START, __KEENSTART)\r
- KEENSTANDRSPR, // 108\r
- KEENRUNR1SPR, // 109\r
- KEENRUNR2SPR, // 110\r
- KEENRUNR3SPR, // 111\r
- KEENRUNR4SPR, // 112\r
- KEENJUMPR1SPR, // 113\r
- KEENJUMPR2SPR, // 114\r
- KEENJUMPR3SPR, // 115\r
- KEENSTANDLSPR, // 116\r
- KEENRUNL1SPR, // 117\r
- KEENRUNL2SPR, // 118\r
- KEENRUNL3SPR, // 119\r
- KEENRUNL4SPR, // 120\r
- KEENJUMPL1SPR, // 121\r
- KEENJUMPL2SPR, // 122\r
- KEENJUMPL3SPR, // 123\r
- KEENLOOKUSPR, // 124\r
- KEENWAITR1SPR, // 125\r
- KEENWAITR2SPR, // 126\r
- KEENWAITR3SPR, // 127\r
- KEENSITREAD1SPR, // 128\r
- KEENSITREAD2SPR, // 129\r
- KEENSITREAD3SPR, // 130\r
- KEENSITREAD4SPR, // 131\r
- KEENREAD1SPR, // 132\r
- KEENREAD2SPR, // 133\r
- KEENREAD3SPR, // 134\r
- KEENSTOPREAD1SPR, // 135\r
- KEENSTOPREAD2SPR, // 136\r
- KEENLOOKD1SPR, // 137\r
- KEENLOOKD2SPR, // 138\r
- KEENONPLATSPR, // 139\r
- KEENDIE1SPR, // 140\r
- KEENDIE2SPR, // 141\r
- KEENSTUNSPR, // 142\r
- STUNSTARS1SPR, // 143\r
- STUNSTARS2SPR, // 144\r
- STUNSTARS3SPR, // 145\r
- KEENSHOOTLSPR, // 146\r
- KEENJLSHOOTLSPR, // 147\r
- KEENJSHOOTDSPR, // 148\r
- KEENJSHOOTUSPR, // 149\r
- KEENSHOOTUSPR, // 150\r
- KEENSHOOTRSPR, // 151\r
- KEENJRSHOOTRSPR, // 152\r
- STUN1SPR, // 153\r
- STUN2SPR, // 154\r
- STUN3SPR, // 155\r
- STUN4SPR, // 156\r
- STUNHIT1SPR, // 157\r
- STUNHIT2SPR, // 158\r
- KEENSHINNYR1SPR, // 159\r
- KEENSHINNYR2SPR, // 160\r
- KEENSHINNYR3SPR, // 161\r
- KEENSLIDED1SPR, // 162\r
- KEENSLIDED2SPR, // 163\r
- KEENSLIDED3SPR, // 164\r
- KEENSLIDED4SPR, // 165\r
- KEENSHINNYL1SPR, // 166\r
- KEENSHINNYL2SPR, // 167\r
- KEENSHINNYL3SPR, // 168\r
- KEENPLSHOOTUSPR, // 169\r
- KEENPRSHOOTUSPR, // 170\r
- KEENPRSHOOTDSPR, // 171\r
- KEENPLSHOOTDSPR, // 172\r
- KEENPSHOOTLSPR, // 173\r
- KEENPSHOOTRSPR, // 174\r
- KEENENTER1SPR, // 175\r
- KEENENTER2SPR, // 176\r
- KEENENTER3SPR, // 177\r
- KEENENTER4SPR, // 178\r
- KEENENTER5SPR, // 179\r
- KEENHANGLSPR, // 180\r
- KEENHANGRSPR, // 181\r
- KEENCLIMBEDGEL1SPR, // 182\r
- KEENCLIMBEDGEL2SPR, // 183\r
- KEENCLIMBEDGEL3SPR, // 184\r
- KEENCLIMBEDGEL4SPR, // 185\r
- KEENCLIMBEDGER1SPR, // 186\r
- KEENCLIMBEDGER2SPR, // 187\r
- KEENCLIMBEDGER3SPR, // 188\r
- KEENCLIMBEDGER4SPR, // 189\r
- KEENPOGOR1SPR, // 190\r
- KEENPOGOR2SPR, // 191\r
- KEENPOGOL1SPR, // 192\r
- KEENPOGOL2SPR, // 193\r
- BONUS100UPSPR, // 194\r
- BONUS100SPR, // 195\r
- BONUS200SPR, // 196\r
- BONUS500SPR, // 197\r
- BONUS1000SPR, // 198\r
- BONUS2000SPR, // 199\r
- BONUS5000SPR, // 200\r
- BONUS1UPSPR, // 201\r
- BONUSCLIPSPR, // 202\r
- VIVAPOOF1SPR, // 203\r
- VIVAPOOF2SPR, // 204\r
- VIVAPOOF3SPR, // 205\r
- VIVAPOOF4SPR, // 206\r
- END_LUMP(KEEN_LUMP_END, __KEENEND)\r
-\r
- START_LUMP(KEYCARD_LUMP_START, __KEYCARDSTART)\r
- DOORCARD1SPR, // 207\r
- DOORCARD2SPR, // 208\r
- BONUSCARDSPR, // 209\r
- END_LUMP(KEYCARD_LUMP_END, __KEYCARDEND)\r
-\r
- START_LUMP(SUGAR1_LUMP_START, __SUGAR1START)\r
- SUGAR1ASPR, // 210\r
- SUGAR1BSPR, // 211\r
- END_LUMP(SUGAR1_LUMP_END, __SUGAR1END)\r
-\r
- START_LUMP(SUGAR2_LUMP_START, __SUGAR2START)\r
- SUGAR2ASPR, // 212\r
- SUGAR2BSPR, // 213\r
- END_LUMP(SUGAR2_LUMP_END, __SUGAR2END)\r
-\r
- START_LUMP(SUGAR3_LUMP_START, __SUGAR3START)\r
- SUGAR3ASPR, // 214\r
- SUGAR3BSPR, // 215\r
- END_LUMP(SUGAR3_LUMP_END, __SUGAR3END)\r
-\r
- START_LUMP(SUGAR4_LUMP_START, __SUGAR4START)\r
- SUGAR4ASPR, // 216\r
- SUGAR4BSPR, // 217\r
- END_LUMP(SUGAR4_LUMP_END, __SUGAR4END)\r
-\r
- START_LUMP(SUGAR5_LUMP_START, __SUGAR5START)\r
- SUGAR5ASPR, // 218\r
- SUGAR5BSPR, // 219\r
- END_LUMP(SUGAR5_LUMP_END, __SUGAR5END)\r
-\r
- START_LUMP(SUGAR6_LUMP_START, __SUGAR6START)\r
- SUGAR6ASPR, // 220\r
- SUGAR6BSPR, // 221\r
- END_LUMP(SUGAR6_LUMP_END, __SUGAR6END)\r
-\r
- START_LUMP(ONEUP_LUMP_START, __ONEUPSTART)\r
- ONEUPASPR, // 222\r
- ONEUPBSPR, // 223\r
- END_LUMP(ONEUP_LUMP_END, __ONEUPEND)\r
-\r
- START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART)\r
- REDGEM1SPR, // 224\r
- REDGEM2SPR, // 225\r
- YELLOWGEM1SPR, // 226\r
- YELLOWGEM2SPR, // 227\r
- BLUEGEM1SPR, // 228\r
- BLUEGEM2SPR, // 229\r
- GREENGEM1SPR, // 230\r
- GREENGEM2SPR, // 231\r
- BONUSGEMSPR, // 232\r
- END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND)\r
-\r
- START_LUMP(AMMO_LUMP_START, __AMMOSTART)\r
- STUNCLIP1SPR, // 233\r
- STUNCLIP2SPR, // 234\r
- END_LUMP(AMMO_LUMP_END, __AMMOEND)\r
-\r
- SCOREBOXSPR, // 235\r
-\r
- START_LUMP(LASER_LUMP_START, __LASERSTART)\r
- LASER1SPR, // 236\r
- LASER2SPR, // 237\r
- LASER3SPR, // 238\r
- LASER4SPR, // 239\r
- LASERHIT1SPR, // 240\r
- LASERHIT2SPR, // 241\r
- END_LUMP(LASER_LUMP_END, __LASEREND)\r
-\r
- START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART)\r
- WORLDKEENL1SPR, // 242\r
- WORLDKEENL2SPR, // 243\r
- WORLDKEENL3SPR, // 244\r
- WORLDKEENR1SPR, // 245\r
- WORLDKEENR2SPR, // 246\r
- WORLDKEENR3SPR, // 247\r
- WORLDKEENU1SPR, // 248\r
- WORLDKEENU2SPR, // 249\r
- WORLDKEENU3SPR, // 250\r
- WORLDKEEND1SPR, // 251\r
- WORLDKEEND2SPR, // 252\r
- WORLDKEEND3SPR, // 253\r
- WORLDKEENDR1SPR, // 254\r
- WORLDKEENDR2SPR, // 255\r
- WORLDKEENDR3SPR, // 256\r
- WORLDKEENDL1SPR, // 257\r
- WORLDKEENDL2SPR, // 258\r
- WORLDKEENDL3SPR, // 259\r
- WORLDKEENUL1SPR, // 260\r
- WORLDKEENUL2SPR, // 261\r
- WORLDKEENUL3SPR, // 262\r
- WORLDKEENUR1SPR, // 263\r
- WORLDKEENUR2SPR, // 264\r
- WORLDKEENUR3SPR, // 265\r
- WORLDKEENWAVE1SPR, // 266\r
- WORLDKEENWAVE2SPR, // 267\r
- FLAGFLIP1SPR, // 268\r
- FLAGFLIP2SPR, // 269\r
- FLAGFLIP3SPR, // 270\r
- FLAGFLIP4SPR, // 271\r
- FLAGFLIP5SPR, // 272\r
- FLAGFALL1SPR, // 273\r
- FLAGFALL2SPR, // 274\r
- FLAGFLAP1SPR, // 275\r
- FLAGFLAP2SPR, // 276\r
- FLAGFLAP3SPR, // 277\r
- FLAGFLAP4SPR, // 278\r
- SHOOTINGSTAR1SPR, // 279\r
- SHOOTINGSTAR2SPR, // 280\r
- WORLDTELSPARK1SPR, // 281\r
- WORLDTELSPARK2SPR, // 282\r
- END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND)\r
-\r
- START_LUMP(FUSE_LUMP_START, __FUSESTART)\r
- FUSEFLASH1SPR, // 283\r
- FUSEFLASH2SPR, // 284\r
- FUSEFLASH3SPR, // 285\r
- END_LUMP(FUSE_LUMP_END, __FUSEEND)\r
-\r
- START_LUMP(STAREXPLODE_LUMP_START, __SMALLSPARKSTART)\r
- STAREXPLODE1SPR, // 286\r
- STAREXPLODE2SPR, // 287\r
- STAREXPLODE3SPR, // 288\r
- STAREXPLODE4SPR, // 289\r
- END_LUMP(STAREXPLODE_LUMP_END, __SMALLSPARKEND)\r
-\r
- START_LUMP(TELEPORT_LUMP_START, __TELEPORTSTART)\r
- TELEPORTSPARK1SPR, // 290\r
- TELEPORTSPARK2SPR, // 291\r
- TELEPORTZAP1SPR, // 292\r
- TELEPORTZAP2SPR, // 293\r
- END_LUMP(TELEPORT_LUMP_END, __TELEPORTEND)\r
-\r
- START_LUMP(SCOTTIE_LUMP_START, __KORATHSTART)\r
- SCOTTIEWALKL1SPR, // 294\r
- SCOTTIEWALKL2SPR, // 295\r
- SCOTTIEWALKL3SPR, // 296\r
- SCOTTIEWALKL4SPR, // 297\r
- SCOTTIEWALKR1SPR, // 298\r
- SCOTTIEWALKR2SPR, // 299\r
- SCOTTIEWALKR3SPR, // 300\r
- SCOTTIEWALKR4SPR, // 301\r
- SCOTTIEFACESPR, // 302\r
- SCOTTIESTUNSPR, // 303\r
- END_LUMP(SCOTTIE_LUMP_END, __KORATHEND)\r
-\r
- START_LUMP(MASTER_LUMP_START, __MASTERSTART)\r
- MASTER1SPR, // 304\r
- MASTER2SPR, // 305\r
- MASTER3SPR, // 306\r
- MASTER4SPR, // 307\r
- MASTERTELEPORT1SPR, // 308\r
- MASTERTELEPORT2SPR, // 309\r
- SHIKMASTERCASTRSPR, // 310\r
- SHIKMASTERCASTLSPR, // 311\r
- MASTERFLOORSPARK1SPR, // 312\r
- MASTERFLOORSPARK2SPR, // 313\r
- MASTERFLOORSPARK3SPR, // 314\r
- MASTERFLOORSPARK4SPR, // 315\r
- MASTERSHOT1SPR, // 316\r
- MASTERSHOT2SPR, // 317\r
- MASTERSHOT3SPR, // 318\r
- MASTERSHOT4SPR, // 319\r
- END_LUMP(MASTER_LUMP_END, __MASTEREND)\r
-\r
- START_LUMP(SHIKADI_LUMP_START, __SHIKADISTART)\r
- SHIKADI1SPR, // 320\r
- SHIKADI2SPR, // 321\r
- SHIKADI3SPR, // 322\r
- SHIKADI4SPR, // 323\r
- SHIKADIGRABRSPR, // 324\r
- SHIKADIGRABLSPR, // 325\r
- SHIKADIPOLESPARK1SPR, // 326\r
- SHIKADIPOLESPARK2SPR, // 327\r
- SHIKADIWALKR1SPR, // 328\r
- SHIKADIWALKR2SPR, // 329\r
- SHIKADIWALKR3SPR, // 330\r
- SHIKADIWALKR4SPR, // 331\r
- SHIKADIWALKL1SPR, // 332\r
- SHIKADIWALKL2SPR, // 333\r
- SHIKADIWALKL3SPR, // 334\r
- SHIKADIWALKL4SPR, // 335\r
- SHIKADISTUNSPR, // 336\r
- END_LUMP(SHIKADI_LUMP_END, __SHIKADIEND)\r
-\r
- START_LUMP(SHOCKSHUND_LUMP_START, __SHOCKSHUNDSTART)\r
- PETSIT1SPR, // 337\r
- PETSIT2SPR, // 338\r
- PETRUNR1SPR, // 339\r
- PETRUNR2SPR, // 340\r
- PETRUNR3SPR, // 341\r
- PETRUNR4SPR, // 342\r
- PETRUNL1SPR, // 343\r
- PETRUNL2SPR, // 344\r
- PETRUNL3SPR, // 345\r
- PETRUNL4SPR, // 346\r
- PETJUMPLSPR, // 347\r
- PETJUMPRSPR, // 348\r
- PETBARKR1SPR, // 349\r
- PETBARKR2SPR, // 350\r
- PETBARKL1SPR, // 351\r
- PETBARKL2SPR, // 352\r
- PETSTUNSPR, // 353\r
- PETSPARK1SPR, // 354\r
- PETSPARK2SPR, // 355\r
- PETSPARKHIT1SPR, // 356\r
- PETSPARKHIT2SPR, // 357\r
- END_LUMP(SHOCKSHUND_LUMP_END, __SHOCKSHUNDEND)\r
-\r
- START_LUMP(SPHEREFUL_LUMP_START, __SPHEREFULSTART)\r
- SPHEREFUL1SPR, // 358\r
- SPHEREFUL2SPR, // 359\r
- SPHEREFUL3SPR, // 360\r
- SPHEREFUL4SPR, // 361\r
- SPHEREGUARD1SPR, // 362\r
- SPHEREGUARD2SPR, // 363\r
- SPHEREGUARD3SPR, // 364\r
- SPHEREGUARD4SPR, // 365\r
- END_LUMP(SPHEREFUL_LUMP_END, __SPHEREFULEND)\r
-\r
- START_LUMP(SPARKY_LUMP_START, __SPARKYSTART)\r
- SPARKYWALKL1SPR, // 366\r
- SPARKYWALKL2SPR, // 367\r
- SPARKYWALKL3SPR, // 368\r
- SPARKYWALKL4SPR, // 369\r
- SPARKYTURN1SPR, // 370\r
- SPARKYTURN2SPR, // 371\r
- SPARKYTURN3SPR, // 372\r
- SPARKYWALKR1SPR, // 373\r
- SPARKYWALKR2SPR, // 374\r
- SPARKYWALKR3SPR, // 375\r
- SPARKYWALKR4SPR, // 376\r
- SPARKYSTUNSPR, // 377\r
- END_LUMP(SPARKY_LUMP_END, __SPARKYEND)\r
-\r
- START_LUMP(MINE_LUMP_START, __MINESTART)\r
- SHIKADIMINESPR, // 378\r
- SHIKADIMINEEYESPR, // 379\r
- SHIKADIMINEPULSE1SPR, // 380\r
- SHIKADIMINEPULSE2SPR, // 381\r
- SHIKADIMINEBOOM1SPR, // 382\r
- SHIKADIMINEBOOM2SPR, // 383\r
- SHIKADIMINEPIECESPR, // 384\r
- END_LUMP(MINE_LUMP_END, __MINEEND)\r
-\r
- START_LUMP(SLICESTAR_LUMP_START, __SLICESTARSTART)\r
- SLICESTARSPR, // 385\r
- SLICESTARBOOMSPR, // 386\r
- END_LUMP(SLICESTAR_LUMP_END, __SLICASTAREND)\r
-\r
- START_LUMP(ROBORED_LUMP_START, __ROBOREDSTART)\r
- ROBOREDRSPR, // 387\r
- ROBOREDLSPR, // 388\r
- ROBOSHOT1SPR, // 389\r
- ROBOSHOT2SPR, // 390\r
- ROBOSHOTHIT1SPR, // 391\r
- ROBOSHOTHIT2SPR, // 392\r
- END_LUMP(ROBORED_LUMP_END, __ROBOREDEND)\r
-\r
- START_LUMP(SPIRO_LUMP_START, __SPIROSTART)\r
- SPIROSITDSPR, // 393\r
- SPIROSITLSPR, // 394\r
- SPIROSITUSPR, // 395\r
- SPIROSITRSPR, // 396\r
- SPIROSPINULSPR, // 397\r
- SPIROSPINURSPR, // 398\r
- SPIROSPINDRSPR, // 399\r
- SPIROSPINDLSPR, // 400\r
- SPIROSPINDSPR, // 401\r
- SPIROSPINLSPR, // 402\r
- SPIROSPINUSPR, // 403\r
- SPIROSPINRSPR, // 404\r
- END_LUMP(SPIRO_LUMP_END, __SPIROEND)\r
-\r
- START_LUMP(AMPTON_LUMP_START, __AMPTONSTART)\r
- AMPTONWALKR1SPR, // 405\r
- AMPTONWALKR2SPR, // 406\r
- AMPTONWALKR3SPR, // 407\r
- AMPTONWALKR4SPR, // 408\r
- AMPTONFACESPR, // 409\r
- AMPTONGRAB1SPR, // 410\r
- AMPTONGRAB2SPR, // 411\r
- AMTONWALKL1SPR, // 412\r
- AMTONWALKL2SPR, // 413\r
- AMTONWALKL3SPR, // 414\r
- AMTONWALKL4SPR, // 415\r
- AMPTONSTUNSPR, // 416\r
- END_LUMP(AMPTON_LUMP_END, __AMPTONEND)\r
-\r
- START_LUMP(VOLTE_LUMP_START, __VOLTESTART)\r
- VOLTEFACE1SPR, // 417\r
- VOLTEFACE2SPR, // 418\r
- VOLTEFACE3SPR, // 419\r
- VOLTEFACE4SPR, // 420\r
- VOLTEFACESTUNSPR, // 421\r
- END_LUMP(VOLTE_LUMP_END, __VOLTEEND)\r
-\r
- START_LUMP(SLOTPLAT_LUMP_START, __PINKPLATSTART)\r
- SLOTPLAT1SPR, // 422\r
- SLOTPLAT2SPR, // 423\r
- END_LUMP(SLOTPLAT_LUMP_END, __PINKPLATEND)\r
-\r
- START_LUMP(SPINDRED_LUMP_START, __SPINDREDSTART)\r
- SPINDRED1SPR, // 424\r
- SPINDRED2SPR, // 425\r
- SPINDRED3SPR, // 426\r
- SPINDRED4SPR, // 427\r
- END_LUMP(SPINDRED_LUMP_END, __SPINDREDEND)\r
-\r
- START_LUMP(SHELLEY_LUMP_START, __SHELLEYSTART)\r
- SHELLEYR1SPR, // 428\r
- SHELLEYR2SPR, // 429\r
- SHELLEYR3SPR, // 430\r
- SHELLEYR4SPR, // 431\r
- SHELLEYL1SPR, // 432\r
- SHELLEYL2SPR, // 433\r
- SHELLEYL3SPR, // 434\r
- SHELLEYL4SPR, // 435\r
- SHELLEYJUMPRSPR, // 436\r
- SHELLEYFALLRSPR, // 437\r
- SHELLEYJUMPLSPR, // 438\r
- SHELLEYFALLLSPR, // 439\r
- SHELLEYBOOM1SPR, // 440\r
- SHELLEYBOOM2SPR, // 441\r
- SHELLEYBOOM3SPR, // 442\r
- SHELLEYBOOM4SPR, // 443\r
- SHELLEYPIECE1SPR, // 444\r
- SHELLEYPIECE2SPR, // 445\r
- END_LUMP(SHELLEY_LUMP_END, __SHELLEYEND)\r
-\r
- START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART)\r
- PLATFORMSPR, // 446\r
- END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND)\r
-\r
- START_LUMP(MINIPLAT_LUMP_START, __MINIPLATSTART)\r
- MINIPLATSPR, // 447\r
- END_LUMP(MINIPLAT_LUMP_END, __MINIPLATEND)\r
-\r
-\r
- //\r
- // TILES (these don't need names)\r
- //\r
-\r
- LASTTILE=STARTEXTERNS-1,\r
-\r
- //\r
- // EXTERNS\r
- //\r
-\r
- //texts\r
- T_HELPART, // 4914\r
- T_CONTRART, // 4915\r
- T_STORYART, // 4916\r
- T_IDART, // 4917\r
- T_ENDART, // 4918\r
- T_ENDART2, // 4919\r
- T_ORDERART, // 4920\r
-\r
- ORDERSCREEN, // 4921\r
- BIGCOMMANDER, // 4922\r
- BIGKEEN, // 4923\r
- OUTOFMEM, // 4924\r
- GALAXY, // 4925\r
-\r
- //demos\r
- DEMO0, // 4926\r
- DEMO1, // 4927\r
- DEMO2, // 4928\r
- DEMO3, // 4929\r
- DEMO4, // 4930\r
-\r
- NUMGRCHUNKS\r
-} graphicnums;\r
-\r
-#undef START_LUMP\r
-#undef END_LUMP\r
-\r
-#endif //__GFX_H__
\ No newline at end of file
+++ /dev/null
-;\r
-; Equates for all .ASM files\r
-;\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-INCLUDE "GFXE_CK5.EQU"\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-CGAGR = 1\r
-EGAGR = 2\r
-VGAGR = 3\r
-\r
-GRMODE = EGAGR\r
-PROFILE = 0 ; 1=keep stats on tile drawing\r
-\r
-SC_INDEX = 03C4h\r
-SC_RESET = 0\r
-SC_CLOCK = 1\r
-SC_MAPMASK = 2\r
-SC_CHARMAP = 3\r
-SC_MEMMODE = 4\r
-\r
-CRTC_INDEX = 03D4h\r
-CRTC_H_TOTAL = 0\r
-CRTC_H_DISPEND = 1\r
-CRTC_H_BLANK = 2\r
-CRTC_H_ENDBLANK = 3\r
-CRTC_H_RETRACE = 4\r
-CRTC_H_ENDRETRACE = 5\r
-CRTC_V_TOTAL = 6\r
-CRTC_OVERFLOW = 7\r
-CRTC_ROWSCAN = 8\r
-CRTC_MAXSCANLINE = 9\r
-CRTC_CURSORSTART = 10\r
-CRTC_CURSOREND = 11\r
-CRTC_STARTHIGH = 12\r
-CRTC_STARTLOW = 13\r
-CRTC_CURSORHIGH = 14\r
-CRTC_CURSORLOW = 15\r
-CRTC_V_RETRACE = 16\r
-CRTC_V_ENDRETRACE = 17\r
-CRTC_V_DISPEND = 18\r
-CRTC_OFFSET = 19\r
-CRTC_UNDERLINE = 20\r
-CRTC_V_BLANK = 21\r
-CRTC_V_ENDBLANK = 22\r
-CRTC_MODE = 23\r
-CRTC_LINECOMPARE = 24\r
-\r
-\r
-GC_INDEX = 03CEh\r
-GC_SETRESET = 0\r
-GC_ENABLESETRESET = 1\r
-GC_COLORCOMPARE = 2\r
-GC_DATAROTATE = 3\r
-GC_READMAP = 4\r
-GC_MODE = 5\r
-GC_MISCELLANEOUS = 6\r
-GC_COLORDONTCARE = 7\r
-GC_BITMASK = 8\r
-\r
-ATR_INDEX = 03c0h\r
-ATR_MODE = 16\r
-ATR_OVERSCAN = 17\r
-ATR_COLORPLANEENABLE = 18\r
-ATR_PELPAN = 19\r
-ATR_COLORSELECT = 20\r
-\r
-STATUS_REGISTER_1 = 03dah\r
-\r
-\r
-MACRO WORDOUT\r
- out dx,ax\r
-ENDM\r
-\r
-if 0\r
-\r
-MACRO WORDOUT\r
- out dx,al\r
- inc dx\r
- xchg al,ah\r
- out dx,al\r
- dec dx\r
- xchg al,ah\r
-ENDM\r
-\r
-endif\r
-\r
-UPDATEWIDE = 22\r
-UPDATEHIGH = 14\r
-\r
-;\r
-; tile info offsets from segment tinf\r
-;\r
-\r
-ANIM = 402\r
-SPEED = (ANIM+NUMTILE16)\r
-\r
-NORTHWALL = (SPEED+NUMTILE16)\r
-EASTWALL = (NORTHWALL+NUMTILE16M)\r
-SOUTHWALL = (EASTWALL+NUMTILE16M)\r
-WESTWALL = (SOUTHWALL+NUMTILE16M)\r
-MANIM = (WESTWALL+NUMTILE16M)\r
-INTILE = (MANIM+NUMTILE16M)\r
-MSPEED = (INTILE+NUMTILE16M)\r
-\r
-\r
-IFE GRMODE-EGAGR\r
-SCREENWIDTH = 64\r
-ENDIF\r
-IFE GRMODE-CGAGR\r
-SCREENWIDTH = 128\r
-ENDIF\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_GLOB.H\r
-\r
-\r
-#include <ALLOC.H>\r
-#include <CTYPE.H>\r
-#include <DOS.H>\r
-#include <ERRNO.H>\r
-#include <FCNTL.H>\r
-#include <IO.H>\r
-#include <MEM.H>\r
-#include <PROCESS.H>\r
-#include <STDIO.H>\r
-#include <STDLIB.H>\r
-#include <STRING.H>\r
-#include <SYS\STAT.H>\r
-\r
-#define __ID_GLOB__\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define KEEN\r
-#define KEEN5\r
-\r
-#define EXTENSION "CK5"\r
-\r
-extern char far introscn;\r
-\r
-#include "GFXE_CK5.H"\r
-#include "AUDIOCK5.H"\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define TEXTGR 0\r
-#define CGAGR 1\r
-#define EGAGR 2\r
-#define VGAGR 3\r
-\r
-#define GRMODE EGAGR\r
-\r
-#if GRMODE == EGAGR\r
-#define GREXT "EGA"\r
-#endif\r
-#if GRMODE == CGAGR\r
-#define GREXT "CGA"\r
-#endif\r
-\r
-//#define PROFILE\r
-\r
-//\r
-// ID Engine\r
-// Types.h - Generic types, #defines, etc.\r
-// v1.0d1\r
-//\r
-\r
-#ifndef __TYPES__\r
-#define __TYPES__\r
-\r
-typedef enum {false,true} boolean;\r
-typedef unsigned char byte;\r
-typedef unsigned int word;\r
-typedef unsigned long longword;\r
-typedef byte * Ptr;\r
-\r
-typedef struct\r
- {\r
- int x,y;\r
- } Point;\r
-typedef struct\r
- {\r
- Point ul,lr;\r
- } Rect;\r
-\r
-#define nil ((void *)0)\r
-\r
-#endif\r
-\r
-#include "ID_MM.H"\r
-#include "ID_CA.H"\r
-#include "ID_VW.H"\r
-#include "ID_RF.H"\r
-#include "ID_IN.H"\r
-#include "ID_SD.H"\r
-#include "ID_US.H"\r
-\r
-\r
-void Quit (char *error); // defined in user program\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K5_ACT1.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- some shared routines\r
-- Bonus Items\r
-- Teleport and Fuse effects\r
-- Platforms\r
-- falling platforms\r
-- static platforms\r
-- Goplat platforms\r
-- Volte Face\r
-- sneaky platforms\r
-- Turrets\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- SHARED STUFF\r
-\r
-=============================================================================\r
-*/\r
-\r
-Sint16 pdirx[] = {0, 1, 0, -1, 1, 1, -1, -1};\r
-Sint16 pdiry[] = {-1, 0, 1, 0, -1, 1, 1, -1};\r
-\r
-/*\r
-===========================\r
-=\r
-= CheckSpawnShot\r
-=\r
-===========================\r
-*/\r
-\r
-Sint16 CheckSpawnShot(Uint16 x, Uint16 y, statetype *state)\r
-{\r
- if (GetNewObj(true) == -1)\r
- return -1;\r
- new->x = x;\r
- new->y = y;\r
- new->obclass = mshotobj;\r
- new->active = ac_removable;\r
- NewState(new, state);\r
- if (!CheckPosition(new))\r
- {\r
- RemoveObj(new);\r
- return -1;\r
- }\r
- return 0;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_ClipSide\r
-=\r
-===========================\r
-*/\r
-\r
-void C_ClipSide(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- playerkludgeclipcancel = true;\r
- ClipToSpriteSide(hit, ob);\r
- playerkludgeclipcancel = false;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_ClipTop\r
-=\r
-===========================\r
-*/\r
-\r
-void C_ClipTop(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- ClipToSpriteTop(hit, ob);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Land\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Land(objtype *ob)\r
-{\r
- if (ob->hiteast || ob->hitwest)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitsouth)\r
- ob->yspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->yspeed = 0;\r
- if (ob->state->nextstate)\r
- {\r
- ChangeState(ob, ob->state->nextstate);\r
- }\r
- else\r
- {\r
- RemoveObj(ob);\r
- return;\r
- }\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Bounce\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Bounce(objtype *ob)\r
-{\r
- Uint16 wall,absx,absy,angle,newangle;\r
- Uint32 speed;\r
-\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-\r
- if (ob->hiteast || ob->hitwest)\r
- ob->xspeed = -ob->xspeed/2;\r
-\r
- if (ob->hitsouth)\r
- {\r
- ob->yspeed = -ob->yspeed/2;\r
- return;\r
- }\r
-\r
- wall = ob->hitnorth;\r
- if (wall)\r
- {\r
- if (ob->yspeed < 0)\r
- ob->yspeed = 0;\r
-\r
- absx = abs(ob->xspeed);\r
- absy = ob->yspeed;\r
- if (absx>absy)\r
- {\r
- if (absx>absy*2) // 22 degrees\r
- {\r
- angle = 0;\r
- speed = absx*286; // x*sqrt(5)/2\r
- }\r
- else // 45 degrees\r
- {\r
- angle = 1;\r
- speed = absx*362; // x*sqrt(2)\r
- }\r
- }\r
- else\r
- {\r
- if (absy>absx*2) // 90 degrees\r
- {\r
- angle = 3;\r
- speed = absy*256;\r
- }\r
- else\r
- {\r
- angle = 2; // 67 degrees\r
- speed = absy*286; // y*sqrt(5)/2\r
- }\r
- }\r
- if (ob->xspeed > 0)\r
- angle = 7-angle;\r
-\r
- speed >>= 1;\r
- newangle = bounceangle[ob->hitnorth][angle];\r
- switch (newangle)\r
- {\r
- case 0:\r
- ob->xspeed = speed / 286;\r
- ob->yspeed = -ob->xspeed / 2;\r
- break;\r
- case 1:\r
- ob->xspeed = speed / 362;\r
- ob->yspeed = -ob->xspeed;\r
- break;\r
- case 2:\r
- ob->yspeed = -(speed / 286);\r
- ob->xspeed = -ob->yspeed / 2;\r
- break;\r
- case 3:\r
-\r
- case 4:\r
- ob->xspeed = 0;\r
- ob->yspeed = -(speed / 256);\r
- break;\r
- case 5:\r
- ob->yspeed = -(speed / 286);\r
- ob->xspeed = ob->yspeed / 2;\r
- break;\r
- case 6:\r
- ob->xspeed = ob->yspeed = -(speed / 362);\r
- break;\r
- case 7:\r
- ob->xspeed = -(speed / 286);\r
- ob->yspeed = ob->xspeed / 2;\r
- break;\r
-\r
- case 8:\r
- ob->xspeed = -(speed / 286);\r
- ob->yspeed = -ob->xspeed / 2;\r
- break;\r
- case 9:\r
- ob->xspeed = -(speed / 362);\r
- ob->yspeed = -ob->xspeed;\r
- break;\r
- case 10:\r
- ob->yspeed = speed / 286;\r
- ob->xspeed = -ob->yspeed / 2;\r
- break;\r
- case 11:\r
-\r
- case 12:\r
- ob->xspeed = 0;\r
- ob->yspeed = -(speed / 256);\r
- break;\r
- case 13:\r
- ob->yspeed = speed / 286;\r
- ob->xspeed = ob->yspeed / 2;\r
- break;\r
- case 14:\r
- ob->xspeed = speed / 362;\r
- ob->yspeed = speed / 362;\r
- break;\r
- case 15:\r
- ob->xspeed = speed / 286;\r
- ob->yspeed = ob->xspeed / 2;\r
- break;\r
- }\r
-\r
- if (speed < 256*16)\r
- {\r
- ChangeState(ob, ob->state->nextstate);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BONUS ITEMS\r
-temp1 = bonus type\r
-temp2 = base shape number\r
-temp3 = last animated shape number +1\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_bonus1 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus2};\r
-statetype s_bonus2 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus1};\r
-statetype s_bonusfly1 = {0, 0, stepthink, false, false, 20, 0, 0, T_FlyBonus, NULL, R_Draw, &s_bonusfly2};\r
-statetype s_bonusfly2 = {0, 0, stepthink, false, false, 20, 0, 0, T_FlyBonus, NULL, R_Draw, &s_bonusfly1};\r
-statetype s_bonusrise = {0, 0, slide, false, false, 40, 0, 8, NULL, NULL, R_Draw, NULL};\r
-statetype s_splash1 = {VIVAPOOF1SPR, VIVAPOOF1SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash2};\r
-statetype s_splash2 = {VIVAPOOF2SPR, VIVAPOOF2SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash3};\r
-statetype s_splash3 = {VIVAPOOF3SPR, VIVAPOOF3SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash4};\r
-statetype s_splash4 = {VIVAPOOF4SPR, VIVAPOOF4SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-Uint16 bonusshape[] = {\r
- REDGEM1SPR, YELLOWGEM1SPR, BLUEGEM1SPR, GREENGEM1SPR,\r
- SUGAR1ASPR, SUGAR2ASPR, SUGAR3ASPR,\r
- SUGAR4ASPR, SUGAR5ASPR, SUGAR6ASPR,\r
- ONEUPASPR, STUNCLIP1SPR, DOORCARD1SPR\r
-};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBonus\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBonus(Uint16 tileX, Uint16 tileY, Uint16 type)\r
-{\r
- GetNewObj(false);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->obclass = bonusobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->ydir = -1;\r
- new->temp1 = type;\r
- new->temp2=new->shapenum = bonusshape[type];\r
- new->temp3 = new->temp2+2;\r
- NewState(new, &s_bonus1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSplash\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSplash(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(true);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 3;\r
- new->obclass = inertobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- NewState(new, &s_splash1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Bonus\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Bonus(objtype *ob)\r
-{\r
- if (++ob->shapenum == ob->temp3)\r
- ob->shapenum = ob->temp2;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_FlyBonus\r
-=\r
-===========================\r
-*/\r
-\r
-void T_FlyBonus(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- ob->state = &s_bonus1;\r
-\r
- if (++ob->shapenum == ob->temp3)\r
- ob->shapenum = ob->temp2;\r
-\r
- DoGravity(ob);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- TELEPORT EFFECTS\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_teleport1 = {TELEPORTSPARK1SPR, TELEPORTSPARK1SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_teleport2};\r
-statetype s_teleport2 = {TELEPORTSPARK2SPR, TELEPORTSPARK2SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_teleport1};\r
-statetype s_teleportzap1 = {TELEPORTZAP1SPR, TELEPORTZAP1SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_teleportzap2};\r
-statetype s_teleportzap2 = {TELEPORTZAP2SPR, TELEPORTZAP2SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_teleportzap1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnTeleport\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnTeleport(void)\r
-{\r
- GetNewObj(true);\r
- new->priority = 3;\r
- new->needtoclip = cl_noclip;\r
- new->obclass = teleporterobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(player->tileleft) - 8*PIXGLOBAL;\r
- new->y = CONVERT_TILE_TO_GLOBAL(player->tilebottom) - 5*TILEGLOBAL;\r
- NewState(new, &s_teleport1);\r
-\r
- GetNewObj(true);\r
- new->priority = 3;\r
- new->needtoclip = cl_noclip;\r
- new->obclass = teleporterobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(player->tileleft);\r
- new->y = CONVERT_TILE_TO_GLOBAL(player->tiletop) - 8*PIXGLOBAL;\r
- NewState(new, &s_teleportzap1);\r
-\r
- SD_PlaySound(SND_TELEPORT);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- FUSE FLASH\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_fuseflash1 = {FUSEFLASH1SPR, FUSEFLASH1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_fuseflash2};\r
-statetype s_fuseflash2 = {FUSEFLASH2SPR, FUSEFLASH2SPR, step, false, false, 20, 0, 0, NULL, NULL, R_Draw, &s_fuseflash3};\r
-statetype s_fuseflash3 = {FUSEFLASH3SPR, FUSEFLASH3SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnFuseFlash\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnFuseFlash(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(true);\r
- new->priority = 3;\r
- new->needtoclip = cl_noclip;\r
- new->obclass = teleporterobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX-1);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- NewState(new, &s_fuseflash1);\r
- SD_PlaySound(SND_BIGSPARK);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- DEAD MACHINE\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_deadmachine = {-1, -1, step, false, false, 60, 0, 0, T_DeadMachine, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnDeadMachine\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnDeadMachine(void)\r
-{\r
- GetNewObj(false);\r
- new->active = ac_allways;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_deadmachine);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DeadMachine\r
-=\r
-===========================\r
-*/\r
-\r
-#pragma argsused\r
-void T_DeadMachine(objtype *ob)\r
-{\r
- if (mapon == 12)\r
- {\r
- playstate = ex_qedbroke;\r
- }\r
- else\r
- {\r
- playstate = ex_fusebroke;\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- PLATFORMS\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_platform = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_Platform, NULL, R_Draw, NULL};\r
-statetype s_slotplat1 = {SLOTPLAT1SPR, SLOTPLAT1SPR, stepthink, false, false, 0, 0, 0, T_Slotplat, NULL, R_Draw, &s_slotplat2};\r
-statetype s_slotplat2 = {SLOTPLAT2SPR, SLOTPLAT2SPR, stepthink, false, false, 0, 0, 0, T_Slotplat, NULL, R_Draw, &s_slotplat1};\r
-// BUG? the slotplat states have a tictime of 0, so they never transition to the next state\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnPlatform\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnPlatform(Uint16 tileX, Uint16 tileY, Sint16 dir, Sint16 type)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- switch (dir)\r
- {\r
- case 0:\r
- new->xdir = 0;\r
- new->ydir = -1;\r
- break;\r
- case 1:\r
- new->xdir = 1;\r
- new->ydir = 0;\r
- break;\r
- case 2:\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- break;\r
- case 3:\r
- new->xdir = -1;\r
- new->ydir = 0;\r
- }\r
- if (type)\r
- {\r
- new->x += 4*PIXGLOBAL;\r
- new->y += 4*PIXGLOBAL;\r
- NewState(new, &s_slotplat1);\r
- }\r
- else\r
- {\r
- NewState(new, &s_platform);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Platform\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Platform(objtype *ob)\r
-{\r
- Uint16 newpos, newtile;\r
-\r
- //\r
- // this code could be executed twice during the same frame because the\r
- // object's animation/state changed during that frame, so don't update\r
- // anything if we already have movement for the current frame i.e. the\r
- // update code has already been executed this frame\r
- //\r
- if (!xtry && !ytry)\r
- {\r
- xtry = ob->xdir * 12 * tics;\r
- ytry = ob->ydir * 12 * tics;\r
-\r
- if (ob->xdir == 1)\r
- {\r
- newpos = ob->right + xtry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tileright != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK)\r
- {\r
- ob->xdir = -1;\r
- xtry = xtry - (newpos & 0xFF);\r
- }\r
- }\r
- }\r
- else if (ob->xdir == -1)\r
- {\r
- newpos = ob->left + xtry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tileleft != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK)\r
- {\r
- ob->xdir = 1;\r
- xtry = xtry + (TILEGLOBAL - (newpos & 0xFF));\r
- }\r
- }\r
- }\r
- else if (ob->ydir == 1)\r
- {\r
- newpos = ob->bottom + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tilebottom != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile-2]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- ytry = 0;\r
- ob->needtoreact = true;\r
- }\r
- else\r
- {\r
- ob->ydir = -1;\r
- ytry = ytry - (newpos & 0xFF);\r
- }\r
- }\r
- }\r
- }\r
- else if (ob->ydir == -1)\r
- {\r
- newpos = ob->top + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tiletop != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile+2]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- ytry = 0;\r
- ob->needtoreact = true;\r
- }\r
- else\r
- {\r
- ob->ydir = 1;\r
- ytry = ytry + (TILEGLOBAL - (newpos & 0xFF));\r
- }\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Slotplat\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Slotplat(objtype *ob)\r
-{\r
- Uint16 newpos, newtile;\r
-\r
- //\r
- // this code could be executed twice during the same frame because the\r
- // object's animation/state changed during that frame, so don't update\r
- // anything if we already have movement for the current frame i.e. the\r
- // update code has already been executed this frame\r
- //\r
- if (!xtry && !ytry)\r
- {\r
- xtry = ob->xdir * 12 * tics;\r
- ytry = ob->ydir * 12 * tics;\r
-\r
- if (ob->xdir == 1)\r
- {\r
- newpos = ob->right + xtry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tileright != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK)\r
- {\r
- ob->xdir = -1;\r
- xtry = xtry - (newpos & 0xFF);\r
- }\r
- }\r
- }\r
- else if (ob->xdir == -1)\r
- {\r
- newpos = ob->left + xtry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tileleft != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK)\r
- {\r
- ob->xdir = 1;\r
- xtry = xtry + (TILEGLOBAL - (newpos & 0xFF));\r
- }\r
- }\r
- }\r
- else if (ob->ydir == 1)\r
- {\r
- newpos = ob->bottom + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tilebottom != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft + 1) == PLATFORMBLOCK)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile-2]/2 + ob->tileleft) == PLATFORMBLOCK) // BUG? '+ 1' is missing after 'tileleft'\r
- {\r
- ytry = 0;\r
- ob->needtoreact = true;\r
- }\r
- else\r
- {\r
- ob->ydir = -1;\r
- ytry = ytry - (newpos & 0xFF);\r
- }\r
- }\r
- }\r
- }\r
- else if (ob->ydir == -1)\r
- {\r
- newpos = ob->top + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tiletop != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft + 1) == PLATFORMBLOCK)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile+2]/2 + ob->tileleft + 1) == PLATFORMBLOCK)\r
- {\r
- ytry = 0;\r
- ob->needtoreact = true;\r
- }\r
- else\r
- {\r
- ob->ydir = 1;\r
- ytry = ytry + (TILEGLOBAL - (newpos & 0xFF));\r
- }\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- DROPPING PLATFORM\r
-\r
-temp1 = initial y position\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_dropplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatSit, NULL, R_Draw, NULL};\r
-statetype s_dropplatfall = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatFall, NULL, R_Draw, NULL};\r
-statetype s_dropplatrise = {PLATFORMSPR, PLATFORMSPR, slidethink, false, false, 0, 0, -32, T_DropPlatRise, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnDropPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnDropPlat(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_dropplatsit);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DropPlatSit\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DropPlatSit(objtype *ob)\r
-{\r
- if (gamestate.riding == ob)\r
- {\r
- ytry = tics << 4; //tics * 16;\r
- ob->yspeed = 0;\r
- if (ob->y + ytry - ob->temp1 >= 8*PIXGLOBAL)\r
- ob->state = &s_dropplatfall;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DropPlatFall\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DropPlatFall(objtype *ob)\r
-{\r
- Uint16 newpos, newtile;\r
-\r
- DoGravity(ob);\r
-\r
-#if 0\r
- // bugfix: don't skip a tile (this is present in Keen 4, but missing in 5 & 6)\r
- if (ytry >= 15*PIXGLOBAL)\r
- ytry = 15*PIXGLOBAL;\r
-#endif\r
-\r
- newpos = ob->bottom + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tilebottom != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- ytry = 0xFF - (ob->bottom & 0xFF);\r
- if (gamestate.riding != ob)\r
- ob->state = &s_dropplatrise;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DropPlatRise\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DropPlatRise(objtype *ob)\r
-{\r
- if (gamestate.riding == ob)\r
- {\r
- ob->yspeed = 0;\r
- ob->state = &s_dropplatfall;\r
- }\r
- else if (ob->y <= ob->temp1)\r
- {\r
- ytry = ob->temp1 - ob->y;\r
- ob->state = &s_dropplatsit;\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- STATIC PLATFORM\r
-\r
-temp1 = initial y position (is set but never used)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_statplat = {PLATFORMSPR, PLATFORMSPR, step, false, false, 32000, 0, 0, NULL, NULL, R_Draw, &s_statplat};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnStaticPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnStaticPlat(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_statplat);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- GO PLATFORMS\r
-\r
-temp1 = direction\r
-temp2 = countdown to next dir check\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_goplat = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_GoPlat, NULL, R_Draw, NULL};\r
-statetype s_slotgoplat1 = {SLOTPLAT1SPR, SLOTPLAT1SPR, stepthink, false, false, 0, 0, 0, T_GoSlotPlat, NULL, R_Draw, &s_slotgoplat2};\r
-statetype s_slotgoplat2 = {SLOTPLAT2SPR, SLOTPLAT2SPR, stepthink, false, false, 0, 0, 0, T_GoSlotPlat, NULL, R_Draw, &s_slotgoplat1};\r
-// BUG? the slotgoplat states have a tictime of 0, so they never transition to the next state\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnGoPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnGoPlat(Uint16 tileX, Uint16 tileY, Sint16 dir, Sint16 type)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- new->needtoclip = cl_noclip;\r
- if (type)\r
- {\r
- new->x += 4*PIXGLOBAL;\r
- new->y += 4*PIXGLOBAL;\r
- NewState(new, &s_slotgoplat1);\r
- }\r
- else\r
- {\r
- NewState(new, &s_goplat);\r
- }\r
- *(mapsegs[2]+mapbwidthtable[tileY]/2 + tileX) = DIRARROWSTART + dir;\r
- new->temp1 = dir;\r
- new->temp2 = TILEGLOBAL;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_GoPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void T_GoPlat(objtype *ob)\r
-{\r
- Uint16 move;\r
- Uint16 tx, ty;\r
- Sint16 dir;\r
-\r
- //\r
- // this code could be executed twice during the same frame because the\r
- // object's animation/state changed during that frame, so don't update\r
- // anything if we already have movement for the current frame i.e. the\r
- // update code has already been executed this frame\r
- //\r
- if (!xtry && !ytry)\r
- {\r
- move = tics * 12;\r
- if (ob->temp2 > move)\r
- {\r
- ob->temp2 = ob->temp2 - move;\r
-\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = xtry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = xtry + -move;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ytry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = ytry + -move;\r
- }\r
- }\r
- else\r
- {\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry += ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry += -ob->temp2;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry += ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry += -ob->temp2;\r
- }\r
-\r
- tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry);\r
- ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry);\r
- ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx) - DIRARROWSTART;\r
- if (ob->temp1 < arrow_North || ob->temp1 > arrow_None)\r
- {\r
- char error[60] = "Goplat moved to a bad spot: ";\r
- char buf[5] = "";\r
-\r
- strcat(error, itoa(ob->x, buf, 16));\r
- strcat(error, ",");\r
- strcat(error, itoa(ob->y, buf, 16));\r
- Quit(error);\r
- }\r
-\r
- move -= ob->temp2;\r
- ob->temp2 = TILEGLOBAL - move;\r
-\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = xtry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = xtry - move;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ytry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = ytry - move;\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_GoSlotPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void T_GoSlotPlat(objtype *ob)\r
-{\r
- Uint16 move;\r
- Uint16 tx, ty;\r
- Sint16 dir;\r
-\r
- //\r
- // this code could be executed twice during the same frame because the\r
- // object's animation/state changed during that frame, so don't update\r
- // anything if we already have movement for the current frame i.e. the\r
- // update code has already been executed this frame\r
- //\r
- if (!xtry && !ytry)\r
- {\r
- move = tics * 12;\r
- if (ob->temp2 > move)\r
- {\r
- ob->temp2 = ob->temp2 - move;\r
-\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = xtry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = xtry + -move;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ytry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = ytry + -move;\r
- }\r
- }\r
- else\r
- {\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry += ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry += -ob->temp2;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry += ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry += -ob->temp2;\r
- }\r
-\r
- tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry + 4*PIXGLOBAL);\r
- ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry + 4*PIXGLOBAL);\r
- ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx) - DIRARROWSTART;\r
- if (ob->temp1 < arrow_North || ob->temp1 > arrow_None)\r
- {\r
- Quit("Goplat moved to a bad spot!");\r
- }\r
-\r
- move -= ob->temp2;\r
- ob->temp2 = TILEGLOBAL - move;\r
-\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = xtry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = xtry - move;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ytry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = ytry - move;\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- VOLTEFACE\r
-\r
-temp1 = direction\r
-temp2 = countdown to next dir check\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_volte1 = {VOLTEFACE1SPR, VOLTEFACE1SPR, stepthink, false, false, 6, 0, 0, T_Volte, C_Volte, R_Draw, &s_volte2};\r
-statetype s_volte2 = {VOLTEFACE2SPR, VOLTEFACE2SPR, stepthink, false, false, 6, 0, 0, T_Volte, C_Volte, R_Draw, &s_volte3};\r
-statetype s_volte3 = {VOLTEFACE3SPR, VOLTEFACE3SPR, stepthink, false, false, 6, 0, 0, T_Volte, C_Volte, R_Draw, &s_volte4};\r
-statetype s_volte4 = {VOLTEFACE4SPR, VOLTEFACE4SPR, stepthink, false, false, 6, 0, 0, T_Volte, C_Volte, R_Draw, &s_volte1};\r
-statetype s_voltestun = {VOLTEFACESTUNSPR, VOLTEFACESTUNSPR, step, false, false, 300, 0, 0, NULL, NULL, R_Draw, &s_volte1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnVolte\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnVolte(Uint16 tileX, Uint16 tileY)\r
-{\r
- Uint16 dir;\r
- Uint16 far *map;\r
-\r
- GetNewObj(false);\r
- new->obclass = volteobj;\r
- new->active = ac_allways;\r
- new->priority = 2;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_volte1);\r
- map = mapsegs[2] + mapbwidthtable[tileY]/2 + tileX;\r
- if (map[-1] == DIRARROWSTART + arrow_East)\r
- {\r
- dir = arrow_East;\r
- }\r
- else if (map[1] == DIRARROWSTART + arrow_West)\r
- {\r
- dir = arrow_West;\r
- }\r
- else if (*(map-mapwidth) == DIRARROWSTART + arrow_South)\r
- {\r
- dir = arrow_South;\r
- }\r
- else if (*(map+mapwidth) == DIRARROWSTART + arrow_North)\r
- {\r
- dir = arrow_North;\r
- }\r
- map[0] = dir + DIRARROWSTART;\r
- new->temp1 = dir;\r
- new->temp2 = TILEGLOBAL;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Volte\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Volte(objtype *ob)\r
-{\r
- Uint16 move;\r
- Uint16 tx, ty;\r
- Sint16 dir;\r
-\r
- //\r
- // this code could be executed twice during the same frame because the\r
- // object's animation/state changed during that frame, so don't update\r
- // anything if we already have movement for the current frame i.e. the\r
- // update code has already been executed this frame\r
- //\r
- if (!xtry && !ytry)\r
- {\r
- move = tics << 5;\r
- if (ob->temp2 > move)\r
- {\r
- ob->temp2 = ob->temp2 - move;\r
-\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = xtry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = xtry + -move;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ytry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = ytry + -move;\r
- }\r
- }\r
- else\r
- {\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry += ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry += -ob->temp2;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry += ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry += -ob->temp2;\r
- }\r
-\r
- tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry);\r
- ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry);\r
- ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx) - DIRARROWSTART;\r
- if (ob->temp1 < arrow_North || ob->temp1 > arrow_None)\r
- {\r
- char error[60] = "Volte moved to a bad spot: ";\r
- char buf[5] = "";\r
-\r
- strcat(error, itoa(ob->x, buf, 16));\r
- strcat(error, ",");\r
- strcat(error, itoa(ob->y, buf, 16));\r
- Quit(error);\r
- }\r
-\r
- move -= ob->temp2;\r
- ob->temp2 = TILEGLOBAL - move;\r
-\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = xtry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = xtry - move;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ytry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = ytry - move;\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Volte\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Volte(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- ChangeState(ob, &s_voltestun);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SNEAKY PLATFORM\r
-\r
-temp1 = initial x position (is set but never used)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_sneakplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_SneakPlat, NULL, R_Draw, NULL};\r
-statetype s_sneakplatdodge = {PLATFORMSPR, PLATFORMSPR, slide, false, false, 48, 32, 0, NULL, NULL, R_Draw, &s_sneakplatreturn};\r
-statetype s_sneakplatreturn = {PLATFORMSPR, PLATFORMSPR, slide, false, false, 96, -16, 0, NULL, NULL, R_Draw, &s_sneakplatsit};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSneakPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSneakPlat(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_sneakplatsit);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_SneakPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void T_SneakPlat(objtype *ob)\r
-{\r
- Sint16 dist;\r
-\r
- if (player->state != &s_keenjump1)\r
- return;\r
-\r
- if (player->xdir == 1)\r
- {\r
- dist = ob->left-player->right;\r
- if (dist > 4*TILEGLOBAL || dist < 0)\r
- return;\r
- }\r
- else\r
- {\r
- dist = player->left-ob->right;\r
- if (dist > 4*TILEGLOBAL || dist < 0)\r
- return;\r
- }\r
- dist = player->y - ob->y;\r
- if (dist < -6*TILEGLOBAL || dist > 6*TILEGLOBAL)\r
- return;\r
-\r
- ob->xdir = player->xdir;\r
- ob->state = &s_sneakplatdodge;\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- CANNON\r
-\r
-temp1 = direction\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_cannon = {0, 0, step, false, false, 120, 0, 0, NULL, NULL, R_Draw, &s_cannonfire};\r
-statetype s_cannonfire = {0, 0, step, true, false, 1, 0, 0, T_Cannon, NULL, R_Draw, &s_cannon};\r
-statetype s_cshot1 = {LASER1SPR, LASER1SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot2};\r
-statetype s_cshot2 = {LASER2SPR, LASER2SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot3};\r
-statetype s_cshot3 = {LASER3SPR, LASER3SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot4};\r
-statetype s_cshot4 = {LASER4SPR, LASER4SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot1};\r
-statetype s_cshothit1 = {LASERHIT1SPR, LASERHIT1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cshothit2};\r
-statetype s_cshothit2 = {LASERHIT2SPR, LASERHIT2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnCannon\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnCannon(Uint16 tileX, Uint16 tileY, Sint16 dir)\r
-{\r
- GetNewObj(false);\r
- new->obclass = cannonobj;\r
- new->active = ac_yes;\r
- new->tileright = new->tileleft = tileX;\r
- new->tiletop = new->tilebottom = tileY;\r
- new->x = new->left = new->right = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = new->top = new->bottom = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->temp1 = dir;\r
- NewState(new, &s_cannon);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Cannon\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Cannon(objtype *ob)\r
-{\r
- GetNewObj(true);\r
- new->obclass = mshotobj;\r
- new->active = ac_removable;\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- switch (ob->temp1)\r
- {\r
- case 0:\r
- new->yspeed = -64;\r
- break;\r
- case 1:\r
- new->xspeed = 64;\r
- break;\r
- case 2:\r
- new->yspeed = 64;\r
- break;\r
- case 3:\r
- new->xspeed = -64;\r
- }\r
- NewState(new, &s_cshot1);\r
- SD_PlaySound(SND_ENEMYSHOT);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_CShot\r
-=\r
-===========================\r
-*/\r
-\r
-void C_CShot(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- ChangeState(ob, &s_cshothit1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_CShot\r
-=\r
-===========================\r
-*/\r
-\r
-void R_CShot(objtype *ob)\r
-{\r
- if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest)\r
- {\r
- SD_PlaySound(SND_ENEMYSHOTEXPLODE);\r
- ChangeState(ob, &s_cshothit1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K5_ACT2.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- Sparky\r
-- Little Ampton\r
-- Slicestar\r
-- Shelley\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- SPARKY\r
-\r
-temp1 = charge countdown\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_sparkywalk1 = {SPARKYWALKL1SPR, SPARKYWALKR1SPR, step, false, true, 8, 128, 0, T_Sparky, C_Sparky, R_Sparky, &s_sparkywalk2};\r
-statetype s_sparkywalk2 = {SPARKYWALKL2SPR, SPARKYWALKR2SPR, step, false, true, 8, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkywalk3};\r
-statetype s_sparkywalk3 = {SPARKYWALKL3SPR, SPARKYWALKR3SPR, step, false, true, 8, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkywalk4};\r
-statetype s_sparkywalk4 = {SPARKYWALKL4SPR, SPARKYWALKR4SPR, step, false, true, 8, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkywalk1};\r
-statetype s_sparkylook1 = {SPARKYTURN1SPR, SPARKYTURN1SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook2};\r
-statetype s_sparkylook2 = {SPARKYTURN2SPR, SPARKYTURN2SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook3};\r
-statetype s_sparkylook3 = {SPARKYTURN3SPR, SPARKYTURN3SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook4};\r
-statetype s_sparkylook4 = {SPARKYWALKR1SPR, SPARKYWALKR1SPR, step, false, true, 6, 0, 0, T_SparkyLookL, C_Sparky, R_Sparky, &s_sparkylook5};\r
-statetype s_sparkylook5 = {SPARKYTURN3SPR, SPARKYTURN3SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook6};\r
-statetype s_sparkylook6 = {SPARKYTURN2SPR, SPARKYTURN3SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook7};\r
-statetype s_sparkylook7 = {SPARKYTURN1SPR, SPARKYTURN3SPR, step, false, true, 6, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkylook8};\r
-statetype s_sparkylook8 = {SPARKYWALKL1SPR, SPARKYWALKR1SPR, step, false, true, 6, 0, 0, T_SparkyLookR, C_Sparky, R_Sparky, &s_sparkywalk2};\r
-statetype s_sparkyspeed1 = {SPARKYWALKL1SPR, SPARKYWALKR1SPR, step, true, true, 4, 0, 0, NULL, C_Sparky, R_Sparky, &s_sparkyspeed2};\r
-statetype s_sparkyspeed2 = {SPARKYWALKL2SPR, SPARKYWALKR2SPR, step, true, true, 4, 0, 0, NULL, C_Sparky, R_Sparky, &s_sparkyspeed3};\r
-statetype s_sparkyspeed3 = {SPARKYWALKL3SPR, SPARKYWALKR3SPR, step, true, true, 4, 0, 0, NULL, C_Sparky, R_Sparky, &s_sparkyspeed4};\r
-statetype s_sparkyspeed4 = {SPARKYWALKL4SPR, SPARKYWALKR4SPR, step, true, true, 4, 0, 0, T_ChargeCount, C_Sparky, R_Sparky, &s_sparkyspeed1};\r
-statetype s_sparkycharge1 = {SPARKYWALKL1SPR, SPARKYWALKR1SPR, step, true, true, 4, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkycharge2};\r
-statetype s_sparkycharge2 = {SPARKYWALKL2SPR, SPARKYWALKR2SPR, step, true, true, 4, 128, 0, T_RunSnd1, C_Sparky, R_Sparky, &s_sparkycharge3};\r
-statetype s_sparkycharge3 = {SPARKYWALKL3SPR, SPARKYWALKR3SPR, step, true, true, 4, 128, 0, NULL, C_Sparky, R_Sparky, &s_sparkycharge4};\r
-statetype s_sparkycharge4 = {SPARKYWALKL4SPR, SPARKYWALKR4SPR, step, true, true, 4, 128, 0, T_RunSnd2, C_Sparky, R_Sparky, &s_sparkycharge1};\r
-statetype s_sparkyturn1 = {SPARKYTURN3SPR, SPARKYTURN1SPR, step, false, true, 8, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkyturn2};\r
-statetype s_sparkyturn2 = {SPARKYTURN2SPR, SPARKYTURN2SPR, step, false, true, 8, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkyturn3};\r
-statetype s_sparkyturn3 = {SPARKYTURN1SPR, SPARKYTURN3SPR, step, false, true, 8, 0, 0, NULL, C_Sparky, R_Draw, &s_sparkywalk1};\r
-statetype s_sparkystun = {SPARKYSTUNSPR, SPARKYSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSparky\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSparky(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = sparkyobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_sparkywalk1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Sparky\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Sparky(objtype *ob)\r
-{\r
- if (US_RndT() < 0x40)\r
- {\r
- ob->state = &s_sparkylook1;\r
- xtry = 0;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_ChargeCount\r
-=\r
-===========================\r
-*/\r
-\r
-void T_ChargeCount(objtype *ob)\r
-{\r
- if (--ob->temp1 == 0)\r
- ob->state = &s_sparkycharge1;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_SparkyLookL\r
-=\r
-===========================\r
-*/\r
-\r
-void T_SparkyLookL(objtype *ob)\r
-{\r
- Uint16 dist = player->bottom + TILEGLOBAL - ob->bottom;\r
- if (dist > 2*TILEGLOBAL)\r
- return;\r
-\r
- if (player->x < ob->x)\r
- { \r
- ob->xdir = -1;\r
- SD_PlaySound(SND_SPARKYCHARGE);\r
- ob->state = &s_sparkyspeed1;\r
- ob->temp1 = 3;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_SparkyLookR\r
-=\r
-===========================\r
-*/\r
-\r
-void T_SparkyLookR(objtype *ob)\r
-{\r
- Uint16 dist = player->bottom + TILEGLOBAL - ob->bottom;\r
- if (dist > 2*TILEGLOBAL)\r
- return;\r
-\r
- if (player->x > ob->x)\r
- {\r
- ob->xdir = 1;\r
- SD_PlaySound(SND_SPARKYCHARGE);\r
- ob->state = &s_sparkyspeed1;\r
- ob->temp1 = 3;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_RunSnd1\r
-=\r
-===========================\r
-*/\r
-\r
-#pragma argsused\r
-void T_RunSnd1(objtype *ob)\r
-{\r
- SD_PlaySound(SND_WORLDWALK1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_RunSnd2\r
-=\r
-===========================\r
-*/\r
-\r
-#pragma argsused\r
-void T_RunSnd2(objtype *ob)\r
-{\r
- SD_PlaySound(SND_WORLDWALK1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Sparky\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Sparky(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- StunObj(ob, hit, &s_sparkystun);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Sparky\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Sparky(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, &s_sparkyturn1);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, &s_sparkyturn1);\r
- }\r
- else if (!ob->hitnorth)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -ob->xdir;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, &s_sparkyturn1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- LITTLE AMPTON\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_amptonwalk1 = {AMTONWALKL1SPR, AMPTONWALKR1SPR, step, false, true, 8, 128, 0, T_Ampton, C_Ampton, R_Ampton, &s_amptonwalk2};\r
-statetype s_amptonwalk2 = {AMTONWALKL2SPR, AMPTONWALKR2SPR, step, false, true, 8, 128, 0, T_Ampton, C_Ampton, R_Ampton, &s_amptonwalk3};\r
-statetype s_amptonwalk3 = {AMTONWALKL3SPR, AMPTONWALKR3SPR, step, false, true, 8, 128, 0, T_Ampton, C_Ampton, R_Ampton, &s_amptonwalk4};\r
-statetype s_amptonwalk4 = {AMTONWALKL4SPR, AMPTONWALKR4SPR, step, false, true, 8, 128, 0, T_Ampton, C_Ampton, R_Ampton, &s_amptonwalk1};\r
-statetype s_amptonturn = {AMPTONFACESPR, AMPTONFACESPR, step, false, true, 8, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonwalk1};\r
-statetype s_amptongrab1 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, true, 8, 0, 0, NULL, C_Ampton, R_Draw, &s_amptongrab2};\r
-statetype s_amptongrab2 = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, step, false, true, 8, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonclimb};\r
-statetype s_amptonclimb = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, slidethink, false, false, 0, 0, 32, T_AmptonClimb, C_Ampton, R_Draw, NULL};\r
-statetype s_amptonrelease1 = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, step, false, false, 8, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonrelease2};\r
-statetype s_amptonrelease2 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, false, 8, 0, 0, T_SetNoThink, C_Ampton, R_Draw, &s_amptonwalk1};\r
-statetype s_amptonfiddle1 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, true, 12, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonfiddle2};\r
-statetype s_amptonfiddle2 = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, step, false, true, 12, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonfiddle3};\r
-statetype s_amptonfiddle3 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, true, 12, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonfiddle4};\r
-statetype s_amptonfiddle4 = {AMPTONGRAB2SPR, AMPTONGRAB2SPR, step, false, true, 12, 0, 0, NULL, C_Ampton, R_Draw, &s_amptonfiddle5};\r
-statetype s_amptonfiddle5 = {AMPTONGRAB1SPR, AMPTONGRAB1SPR, step, false, true, 12, 0, 0, T_SetNoThink, C_Ampton, R_Draw, &s_amptonwalk1};\r
-statetype s_amptonstun = {AMPTONSTUNSPR, AMPTONSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnAmpton\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnAmpton(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = amptonobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_amptonwalk1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Ampton\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Ampton(objtype *ob)\r
-{\r
- Uint16 far *map;\r
- Uint16 intile, var8;\r
- boolean poleup, poledown;\r
-\r
- if (ob->state == &s_amptonwalk1)\r
- {\r
- SD_PlaySound(SND_AMPTONWALK1);\r
- }\r
- else if (ob->state == &s_amptonwalk3)\r
- {\r
- SD_PlaySound(SND_AMPTONWALK2);\r
- }\r
- if (ob->x & 0xFF)\r
- {\r
- map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft + 1;\r
- intile = tinf[*map + INTILE] & INTILE_TYPEMASK;\r
- if (intile == INTILE_AMPTONCOMPUTER)\r
- {\r
- ob->state = &s_amptonfiddle1;\r
- }\r
- else if (intile == INTILE_POLE && US_RndT() < 196)\r
- {\r
- if ((tinf[*(map + mapwidth*2) + INTILE] & INTILE_TYPEMASK) == INTILE_POLE)\r
- {\r
- poledown = true;\r
- }\r
- else\r
- {\r
- poledown = false;\r
- }\r
- if ((tinf[*(map - mapwidth*2) + INTILE] & INTILE_TYPEMASK) == INTILE_POLE)\r
- {\r
- poleup = true;\r
- }\r
- else\r
- {\r
- poleup = false;\r
- }\r
- if (poleup && poledown)\r
- {\r
- if (US_RndT() < 0x80)\r
- poleup = false;\r
- else\r
- poledown = false;\r
- }\r
-\r
- if (poleup)\r
- {\r
- ob->ydir = -1;\r
- ob->state = &s_amptongrab1;\r
- ob->needtoclip = cl_noclip;\r
- ob->nothink = 6;\r
- xtry = 0;\r
- }\r
- else if (poledown)\r
- {\r
- ob->ydir = 1;\r
- ob->state = &s_amptongrab1;\r
- ob->needtoclip = cl_noclip;\r
- ob->nothink = 6;\r
- xtry = 0;\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_AmptonClimb\r
-=\r
-===========================\r
-*/\r
-\r
-void T_AmptonClimb(objtype *ob)\r
-{\r
- Uint16 newtile;\r
- Uint16 far *map;\r
- Uint16 move;\r
-\r
- newtile = CONVERT_GLOBAL_TO_TILE(ob->bottom + ytry);\r
- if (ob->tilebottom != newtile)\r
- {\r
- if (ob->ydir == -1)\r
- {\r
- map = mapsegs[1] + mapbwidthtable[newtile]/2 + ob->tileleft + 1;\r
- if (!tinf[map[0] + NORTHWALL] && tinf[map[mapwidth]+NORTHWALL])\r
- {\r
- if ((tinf[*(map-4*mapwidth)+INTILE] & INTILE_TYPEMASK) == INTILE_POLE && US_RndT() < 0x80)\r
- return;\r
-\r
- move = (ob->bottom & 0xFF) + 1;\r
- ob->y -= move;\r
- ob->bottom -= move;\r
- ob->needtoclip = cl_midclip;\r
- ob->state = &s_amptonrelease1;\r
- ytry = PIXGLOBAL;\r
- ob->ydir = 1;\r
- ClipToWalls(ob);\r
- ob->nothink = 4;\r
- return;\r
- }\r
- if ((tinf[*(map-mapwidth)+INTILE] & INTILE_TYPEMASK) != INTILE_POLE)\r
- {\r
- ytry = 0;\r
- ob->ydir = 1;\r
- }\r
- }\r
- else\r
- {\r
- map = mapsegs[1] + mapbwidthtable[newtile]/2 + ob->tileleft + 1;\r
- if (tinf[map[0] + NORTHWALL] && !tinf[*(map-mapwidth)+NORTHWALL])\r
- {\r
- if ((tinf[map[2*mapwidth] + INTILE] & INTILE_TYPEMASK) == INTILE_POLE && US_RndT() < 0x80)\r
- return;\r
-\r
- move = 0xFF - (ob->bottom & 0xFF);\r
- ob->y += move;\r
- ob->bottom += move;\r
- ob->needtoclip = cl_midclip;\r
- ob->state = &s_amptonrelease1;\r
- ytry = PIXGLOBAL;\r
- ClipToWalls(ob);\r
- ob->nothink = 4;\r
- return;\r
- }\r
- if ((tinf[map[0] + INTILE] & INTILE_TYPEMASK) != INTILE_POLE)\r
- {\r
- ytry = 0;\r
- ob->ydir = -1;\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_SetNoThink\r
-=\r
-===========================\r
-*/\r
-\r
-void T_SetNoThink(objtype *ob)\r
-{\r
- ob->nothink = 4;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Ampton\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Ampton(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- if (ob->state == &s_amptonclimb)\r
- {\r
- KillKeen();\r
- }\r
- else\r
- {\r
- ClipToSpriteSide(hit, ob);\r
- }\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- ob->needtoclip = cl_midclip;\r
- ob->ydir = 1;\r
- ob->yspeed = 0;\r
- SD_PlaySound(SND_AMPTONDIE);\r
- StunObj(ob, hit, &s_amptonstun);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Ampton\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Ampton(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ChangeState(ob, &s_amptonturn);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ChangeState(ob, &s_amptonturn);\r
- }\r
- else if (!ob->hitnorth)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -ob->xdir;\r
- ChangeState(ob, &s_amptonturn);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SLICESTAR\r
-\r
-temp4 = health\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_slicestarslide = {SLICESTARSPR, SLICESTARSPR, think, false, false, 0, 0, 0, T_Platform, C_Slicestar, R_Draw, NULL};\r
-statetype s_slicestarbounce = {SLICESTARSPR, SLICESTARSPR, slide, false, false, 0, 24, 24, NULL, C_Slicestar, R_Slicestar, &s_slicestarbounce};\r
-statetype s_slicestarboom = {SLICESTARBOOMSPR, SLICESTARBOOMSPR, step, false, false, 20, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSlicestarSlide\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSlicestarSlide(Uint16 tileX, Uint16 tileY, Sint16 dir)\r
-{\r
- GetNewObj(false);\r
- new->obclass = slicestarobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->temp4 = 20; // health!\r
- switch (dir)\r
- {\r
- case 0:\r
- new->xdir = 0;\r
- new->ydir = -1;\r
- break;\r
- case 1:\r
- new->xdir = 1;\r
- new->ydir = 0;\r
- break;\r
- case 2:\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- break;\r
- case 3:\r
- new->xdir = -1;\r
- new->ydir = 0;\r
- }\r
- NewState(new, &s_slicestarslide);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSlicestarBounce\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSlicestarBounce(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = slicestarobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->needtoclip = cl_fullclip;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->temp4 = 50; // health!\r
- switch (US_RndT() / 0x40)\r
- {\r
- case 0:\r
- new->xdir = -1;\r
- new->ydir = -1;\r
- break;\r
- case 1:\r
- new->xdir = 1;\r
- new->ydir = 1;\r
- break;\r
- case 2:\r
- new->xdir = -1;\r
- new->ydir = 1;\r
- break;\r
- case 3:\r
- new->xdir = 1;\r
- new->ydir = -1;\r
- }\r
- NewState(new, &s_slicestarbounce);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Slicestar\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Slicestar(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- if (--ob->temp4 == 0)\r
- {\r
- ChangeState(ob, &s_slicestarboom);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Slicestar\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Slicestar(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- {\r
- ob->ydir = -1;\r
- SD_PlaySound(SND_SLICESTARBOUNCE);\r
- }\r
- else if (ob->hitsouth)\r
- {\r
- ob->ydir = 1;\r
- SD_PlaySound(SND_SLICESTARBOUNCE);\r
- }\r
- if (ob->hitwest)\r
- {\r
- ob->xdir = -1;\r
- SD_PlaySound(SND_SLICESTARBOUNCE);\r
- }\r
- else if (ob->hiteast)\r
- {\r
- ob->xdir = 1;\r
- SD_PlaySound(SND_SLICESTARBOUNCE);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SHELLEY\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_shellywalk1 = {SHELLEYL1SPR, SHELLEYR1SPR, step, false, true, 8, 128, 0, NULL, C_Shelly, R_Shelly, &s_shellywalk2};\r
-statetype s_shellywalk2 = {SHELLEYL2SPR, SHELLEYR2SPR, step, false, true, 8, 128, 0, NULL, C_Shelly, R_Shelly, &s_shellywalk3};\r
-statetype s_shellywalk3 = {SHELLEYL3SPR, SHELLEYR3SPR, step, false, true, 8, 128, 0, NULL, C_Shelly, R_Shelly, &s_shellywalk4};\r
-statetype s_shellywalk4 = {SHELLEYL4SPR, SHELLEYR4SPR, step, false, true, 8, 128, 0, NULL, C_Shelly, R_Shelly, &s_shellywalk1};\r
-statetype s_shellylook = {SHELLEYL2SPR, SHELLEYR2SPR, stepthink, false, true, 100, 0, 0, T_ShellyLook, C_Shelly, R_Draw, &s_shellylook2};\r
-statetype s_shellylook2 = {SHELLEYL2SPR, SHELLEYR2SPR, step, true, true, 1, 0, 0, T_Turn, C_Shelly, R_Draw, &s_shellywalk1};\r
-statetype s_shellyjump1 = {SHELLEYJUMPLSPR, SHELLEYJUMPRSPR, stepthink, false, false, 8, 0, 0, T_Projectile, C_Shelly, R_Shell, &s_shellyjump2};\r
-statetype s_shellyjump2 = {SHELLEYFALLLSPR, SHELLEYFALLRSPR, think, false, false, 8, 0, 0, T_Projectile, C_Shelly, R_Shell, NULL};\r
-statetype s_shellydie = {SHELLEYFALLLSPR, SHELLEYFALLRSPR, step, false, false, 8, 0, 0, T_ShellyFrag, NULL, R_Shell, NULL};\r
-statetype s_shellydieup = {SHELLEYL2SPR, SHELLEYR2SPR, step, false, false, 8, 0, 0, T_ShellyFrag, NULL, R_Shell, NULL};\r
-statetype s_shellyboom1 = {SHELLEYBOOM1SPR, SHELLEYBOOM1SPR, step, false, false, 20, 0, 0, NULL, C_Lethal, R_Draw, &s_shellyboom2};\r
-statetype s_shellyboom2 = {SHELLEYBOOM2SPR, SHELLEYBOOM2SPR, step, false, false, 20, 0, 0, NULL, C_Lethal, R_Draw, &s_shellyboom3};\r
-statetype s_shellyboom3 = {SHELLEYBOOM3SPR, SHELLEYBOOM3SPR, step, false, false, 20, 0, 0, NULL, C_Lethal, R_Draw, &s_shellyboom4};\r
-statetype s_shellyboom4 = {SHELLEYBOOM4SPR, SHELLEYBOOM4SPR, step, false, false, 20, 0, 0, NULL, C_Lethal, R_Draw, NULL};\r
-statetype s_shellypiece1 = {SHELLEYPIECE1SPR, SHELLEYPIECE1SPR, think, false, false, 8, 0, 0, T_Projectile, C_Lethal, R_Bounce, NULL};\r
-statetype s_shellypiece2 = {SHELLEYPIECE2SPR, SHELLEYPIECE2SPR, think, false, false, 8, 0, 0, T_Projectile, C_Lethal, R_Bounce, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnShelly\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnShelly(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = sparkyobj; // BUG: should use shelleyobj\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_shellywalk1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_ShellyLook\r
-=\r
-===========================\r
-*/\r
-\r
-void T_ShellyLook(objtype *ob)\r
-{\r
- Sint16 xdist;\r
-\r
- if (player->top < ob->bottom)\r
- return;\r
-\r
- xdist = player->midx - ob->midx;\r
- if (ob->xdir == 1)\r
- {\r
- if (xdist > 1*TILEGLOBAL && xdist < 3*TILEGLOBAL)\r
- {\r
- ob->xspeed = 16;\r
- ob->yspeed = -24;\r
- ob->state = &s_shellyjump1;\r
- xtry = ytry = 0;\r
- }\r
- }\r
- else\r
- {\r
- if (xdist < -1*TILEGLOBAL && xdist > -3*TILEGLOBAL)\r
- {\r
- ob->xspeed = -16;\r
- ob->yspeed = -24;\r
- ob->state = &s_shellyjump1;\r
- xtry = ytry = 0;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Turn\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Turn(objtype *ob)\r
-{\r
- ob->xdir = -ob->xdir;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_ShellyFrag\r
-=\r
-===========================\r
-*/\r
-\r
-void T_ShellyFrag(objtype *ob)\r
-{\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = 32;\r
- new->yspeed = -24;\r
- NewState(new, &s_shellypiece1);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = -32;\r
- new->yspeed = -24;\r
- NewState(new, &s_shellypiece2);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Shelly\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Shelly(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- ClipToSpriteSide(hit, ob);\r
- if (player->midx < ob->left || player->midx > ob->right)\r
- return;\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- }\r
- else if (hit->obclass == mshotobj)\r
- {\r
- RemoveObj(hit);\r
- }\r
- else\r
- return;\r
-\r
-explode:\r
- SD_PlaySound(SND_SHELLEYEXPLODE);\r
- if (ob->hitnorth)\r
- {\r
- ChangeState(ob, &s_shellydieup);\r
- }\r
- else\r
- {\r
- ChangeState(ob, &s_shellydie);\r
- }\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- NewState(new, &s_shellyboom1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Shelly\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Shelly(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- }\r
- else if (!ob->hitnorth)\r
- {\r
- ob->x -= ob->xmove;\r
- ChangeState(ob, &s_shellylook);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Shell\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Shell(objtype *ob)\r
-{\r
- if (ob->hiteast || ob->hitwest)\r
- {\r
- ob->xspeed = 0;\r
- }\r
- if (ob->hitnorth)\r
- {\r
- SD_PlaySound(SND_SHELLEYEXPLODE);\r
- ChangeState(ob, &s_shellydie);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- NewState(new, &s_shellyboom1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K5_ACT3.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- Shikadi Mine\r
-- Robo Red\r
-- Spirogrip\r
-- Spindred\r
-- Shikadi Master\r
-- Shikadi\r
-- Shockshund\r
-- Sphereful\r
-- Scottie\r
-- QED\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- SHIKADI MINE\r
-\r
-temp2 = x position of the "eye", in global units (relative to the mine sprite)\r
-temp3 = y position of the "eye", in global units (relative to the mine sprite)\r
-temp4 = sprite pointer for the "eye"\r
-\r
-=============================================================================\r
-*/\r
-\r
-static Uint16 dopposite[] = {2, 3, 0, 1, 6, 7, 4, 5, 8};\r
-\r
-statetype s_mine = {SHIKADIMINESPR, SHIKADIMINESPR, think, false, false, 8, 0, 0, T_Mine, C_Solid, R_Mine, NULL};\r
-statetype s_minecenter = {SHIKADIMINESPR, SHIKADIMINESPR, think, false, false, 0, 0, 0, T_MineCenter, C_Solid, R_Mine, &s_mineshift};\r
-statetype s_mineshift = {SHIKADIMINESPR, SHIKADIMINESPR, think, false, false, 0, 0, 0, T_MineShift, C_Solid, R_Mine, &s_mine};\r
-statetype s_mineboom1 = {SHIKADIMINEPULSE1SPR, SHIKADIMINEPULSE1SPR, step, false, false, 10, 0, 0, NULL, C_Solid, R_Draw, &s_mineboom2};\r
-statetype s_mineboom2 = {SHIKADIMINEPULSE2SPR, SHIKADIMINEPULSE2SPR, step, false, false, 10, 0, 0, NULL, C_Solid, R_Draw, &s_mineboom3};\r
-statetype s_mineboom3 = {SHIKADIMINEPULSE1SPR, SHIKADIMINEPULSE1SPR, step, false, false, 10, 0, 0, NULL, C_Solid, R_Draw, &s_mineboom4};\r
-statetype s_mineboom4 = {SHIKADIMINEPULSE2SPR, SHIKADIMINEPULSE2SPR, step, false, false, 10, 0, 0, T_MineFrag, C_Solid, R_Draw, &s_mineboom5};\r
-statetype s_mineboom5 = {SHIKADIMINEBOOM1SPR, SHIKADIMINEBOOM1SPR, step, false, false, 20, 0, 0, NULL, C_Spindread, R_Draw, &s_mineboom6};\r
-statetype s_mineboom6 = {SHIKADIMINEBOOM2SPR, SHIKADIMINEBOOM2SPR, step, false, false, 20, 0, 0, NULL, C_Spindread, R_Draw, NULL};\r
-statetype s_minepiece = {SHIKADIMINEPIECESPR, SHIKADIMINEPIECESPR, think, false, false, 8, 0, 0, T_Projectile, C_MineFrag, R_Bounce, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnMine\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnMine(Uint16 tileX, Uint16 tileY)\r
-{\r
- Sint16 i;\r
-\r
- GetNewObj(false);\r
- new->obclass = mineobj;\r
- new->active = ac_yes;\r
- new->needtoclip = cl_noclip;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -(31*PIXGLOBAL + 1);\r
- new->temp2 = 16*PIXGLOBAL;\r
- new->temp3 = 13*PIXGLOBAL;\r
- NewState(new, &s_mineshift);\r
- new->xspeed = TILEGLOBAL;\r
-\r
- for (i=0; i<=3; i++)\r
- {\r
- if (Walk(new, i))\r
- break;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= MinePosCheck\r
-=\r
-===========================\r
-*/\r
-\r
-boolean MinePosCheck(Uint16 tileX, Uint16 tileY)\r
-{\r
- Uint16 far *map;\r
- Uint16 x, y, tile;\r
-\r
- map = mapsegs[1] + mapbwidthtable[tileY]/2 + tileX;\r
- for (y=0; y<2; y++)\r
- {\r
- for (x=0; x<3; x++)\r
- {\r
- tile = *(map + y*mapwidth + x);\r
- if (tinf[tile+NORTHWALL] || tinf[tile+EASTWALL] || tinf[tile+SOUTHWALL] || tinf[tile+WESTWALL])\r
- return false;\r
- }\r
- }\r
- return true;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= Walk\r
-=\r
-===========================\r
-*/\r
-\r
-boolean Walk(objtype *ob, Sint16 dir)\r
-{\r
- Uint16 tileX, tileY;\r
-\r
- tileX = CONVERT_GLOBAL_TO_TILE(ob->x + xtry);\r
- tileY = CONVERT_GLOBAL_TO_TILE(ob->y + ytry);\r
-\r
- switch (dir)\r
- {\r
- case 0:\r
- if (MinePosCheck(tileX, tileY-1))\r
- {\r
- ob->xdir = 0;\r
- ob->ydir = -1;\r
- return true;\r
- }\r
- return false;\r
- case 1:\r
- if (MinePosCheck(tileX+1, tileY))\r
- {\r
- ob->xdir = 1;\r
- ob->ydir = 0;\r
- return true;\r
- }\r
- return false;\r
- case 2:\r
- if (MinePosCheck(tileX, tileY+1))\r
- {\r
- ob->xdir = 0;\r
- ob->ydir = 1;\r
- return true;\r
- }\r
- return false;\r
- case 3:\r
- if (MinePosCheck(tileX-1, tileY))\r
- {\r
- ob->xdir = -1;\r
- ob->ydir = 0;\r
- return true;\r
- }\r
- return false;\r
- default:\r
- Quit("Walk: Bad dir");\r
- }\r
- return false;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= ChaseThink\r
-=\r
-===========================\r
-*/\r
-\r
-void ChaseThink(objtype *ob)\r
-{\r
- Sint16 temp;\r
- Sint16 xdist, ydist, ydir, xdir;\r
- Sint16 olddir[2], oppdir;\r
-\r
- if (ob->xdir == 1)\r
- {\r
- olddir[0] = 1;\r
- }\r
- else if (ob->xdir == -1)\r
- {\r
- olddir[0] = 3;\r
- }\r
- else if (ob->ydir == -1)\r
- {\r
- olddir[0] = 0;\r
- }\r
- else if (ob->ydir == 1)\r
- {\r
- olddir[0] = 2;\r
- }\r
- oppdir = dopposite[olddir[0]];\r
- xdist = player->x - (ob->x + xtry);\r
- ydist = player->y - (ob->y + ytry);\r
- xdir = 8;\r
- ydir = 8;\r
- if (xdist > 0)\r
- {\r
- xdir = 1;\r
- }\r
- if (xdist < 0)\r
- {\r
- xdir = 3;\r
- }\r
- if (ydist > 0)\r
- {\r
- ydir = 2;\r
- }\r
- if (ydist < 0)\r
- {\r
- ydir = 0;\r
- }\r
- if (abs(ydist) > abs(xdist))\r
- {\r
- temp = xdir;\r
- xdir = ydir;\r
- ydir = temp;\r
- }\r
- if (xdir == oppdir)\r
- {\r
- xdir = 8;\r
- }\r
- if (ydir == oppdir)\r
- {\r
- ydir = 8;\r
- }\r
- if (ydir != 8 && Walk(ob, ydir))\r
- {\r
- return;\r
- }\r
- if (xdir != 8 && Walk(ob, xdir))\r
- {\r
- return;\r
- }\r
- if (Walk(ob, olddir[0]))\r
- {\r
- return;\r
- }\r
- if (US_RndT() > 0x80)\r
- {\r
- for (temp=0; temp<=3; temp++)\r
- {\r
- if (temp != oppdir && Walk(ob, temp))\r
- return;\r
- }\r
- }\r
- else\r
- {\r
- for (temp=3; temp>=0; temp--)\r
- {\r
- if (temp != oppdir && Walk(ob, temp))\r
- return;\r
- }\r
- }\r
- Walk(ob, oppdir);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Mine\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Mine(objtype *ob)\r
-{\r
- Sint16 oldxdir, oldydir;\r
- Sint16 xdist, ydist;\r
- Sint16 speed;\r
-\r
- xdist = ob->x - player->x;\r
- ydist = ob->y - player->y;\r
- if (xdist <= 2*TILEGLOBAL && xdist >= -5*TILEGLOBAL && ydist <= 3*TILEGLOBAL && ydist >= -5*PIXGLOBAL)\r
- {\r
- SD_PlaySound(SND_MINEEXPLODE);\r
- ob->state = &s_mineboom1;\r
- RF_RemoveSprite((void**)(&ob->temp4));\r
- }\r
- else\r
- {\r
- speed = tics * 10;\r
- if (ob->xspeed <= speed)\r
- {\r
- xtry = ob->xdir * ob->xspeed;\r
- ytry = ob->ydir * ob->xspeed; // yes, this uses xspeed!\r
- speed -= ob->xspeed;\r
- oldxdir = ob->xdir;\r
- oldydir = ob->ydir;\r
- ChaseThink(ob);\r
- ob->xspeed = TILEGLOBAL;\r
- if (ob->xdir != oldxdir || ob->ydir != oldydir)\r
- {\r
- ob->state = &s_minecenter;\r
- return;\r
- }\r
- }\r
- ob->xspeed -= speed;\r
- xtry += ob->xdir * speed;\r
- ytry += ob->ydir * speed;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Solid\r
-=\r
-===========================\r
-*/\r
-\r
-#pragma argsused\r
-void C_Solid(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_MineFrag\r
-=\r
-===========================\r
-*/\r
-\r
-#pragma argsused\r
-void C_MineFrag(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- }\r
- else if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == qedobj)\r
- {\r
- SpawnFuseFlash(hit->tileleft, hit->tiletop);\r
- SpawnFuseFlash(hit->tileright, hit->tiletop);\r
- SpawnFuseFlash(hit->tileleft, hit->tilebottom);\r
- SpawnFuseFlash(hit->tileright, hit->tilebottom);\r
- RF_MapToMap(0, 0, 16, 11, 4, 2);\r
- RF_MapToMap(4, 0, 16, 13, 4, 2);\r
- SpawnDeadMachine();\r
- RemoveObj(hit);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_MineCenter\r
-=\r
-===========================\r
-*/\r
-\r
-void T_MineCenter(objtype *ob)\r
-{\r
- Sint16 px, py, xdist, ydist;\r
-\r
- xdist = ob->x - player->x;\r
- ydist = ob->y - player->y;\r
-\r
- if (xdist <= 2*TILEGLOBAL && xdist >= -3*TILEGLOBAL && ydist <= 3*TILEGLOBAL && ydist >= -3*TILEGLOBAL)\r
- {\r
- //BUG? this doesn't play a sound\r
- ob->state = &s_mineboom1;\r
- RF_RemoveSprite((void**)&ob->temp4);\r
- }\r
- else\r
- {\r
- ob->needtoreact = true;\r
-\r
- px = 16*PIXGLOBAL;\r
- py = 13*PIXGLOBAL;\r
-\r
- if (ob->temp2 < px)\r
- {\r
- ob->temp2 = ob->temp2 + tics*4;\r
- if (ob->temp2 >= px)\r
- {\r
- ob->temp2 = px;\r
- ob->state = ob->state->nextstate;\r
- }\r
- }\r
- else if (ob->temp2 > px)\r
- {\r
- ob->temp2 = ob->temp2 - tics*4;\r
- if (ob->temp2 <= px)\r
- {\r
- ob->temp2 = px;\r
- ob->state = ob->state->nextstate;\r
- }\r
- }\r
- if (ob->temp3 < py)\r
- {\r
- ob->temp3 = ob->temp3 + tics*4;\r
- if (ob->temp3 >= py)\r
- {\r
- ob->temp3 = py;\r
- ob->state = ob->state->nextstate;\r
- }\r
- }\r
- else if (ob->temp3 > py)\r
- {\r
- ob->temp3 = ob->temp3 - tics*4;\r
- if (ob->temp3 <= py)\r
- {\r
- ob->temp3 = py;\r
- ob->state = ob->state->nextstate;\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_MineShift\r
-=\r
-===========================\r
-*/\r
-\r
-void T_MineShift(objtype *ob)\r
-{\r
- Sint16 px, py, xdist, ydist;\r
-\r
- xdist = ob->x - player->x;\r
- ydist = ob->y - player->y;\r
-\r
- if (xdist <= 2*TILEGLOBAL && xdist >= -3*TILEGLOBAL && ydist <= 3*TILEGLOBAL && ydist >= -3*TILEGLOBAL)\r
- {\r
- //BUG? this doesn't play a sound\r
- ob->state = &s_mineboom1;\r
- RF_RemoveSprite((void**)&ob->temp4);\r
- }\r
- else\r
- {\r
- ob->needtoreact = true;\r
-\r
- switch (ob->xdir)\r
- {\r
- case -1:\r
- px = 8*PIXGLOBAL;\r
- break;\r
- case 0:\r
- px = 16*PIXGLOBAL;\r
- break;\r
- case 1:\r
- px = 24*PIXGLOBAL;\r
- }\r
- switch (ob->ydir)\r
- {\r
- case -1:\r
- py = 5*PIXGLOBAL;\r
- break;\r
- case 0:\r
- py = 13*PIXGLOBAL;\r
- break;\r
- case 1:\r
- py = 21*PIXGLOBAL;\r
- }\r
-\r
- if (ob->temp2 < px)\r
- {\r
- ob->temp2 = ob->temp2 + tics*4;\r
- if (ob->temp2 >= px)\r
- {\r
- ob->temp2 = px;\r
- ob->state = ob->state->nextstate;\r
- }\r
- }\r
- else if (ob->temp2 > px)\r
- {\r
- ob->temp2 = ob->temp2 - tics*4;\r
- if (ob->temp2 <= px)\r
- {\r
- ob->temp2 = px;\r
- ob->state = ob->state->nextstate;\r
- }\r
- }\r
- if (ob->temp3 < py)\r
- {\r
- ob->temp3 = ob->temp3 + tics*4;\r
- if (ob->temp3 >= py)\r
- {\r
- ob->temp3 = py;\r
- ob->state = ob->state->nextstate;\r
- }\r
- }\r
- else if (ob->temp3 > py)\r
- {\r
- ob->temp3 = ob->temp3 - tics*4;\r
- if (ob->temp3 <= py)\r
- {\r
- ob->temp3 = py;\r
- ob->state = ob->state->nextstate;\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_MineFrag\r
-=\r
-===========================\r
-*/\r
-\r
-void T_MineFrag(objtype *ob)\r
-{\r
- SD_PlaySound(SND_MINEEXPLODE);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = -(US_RndT()>>3);\r
- new->yspeed = -48;\r
- NewState(new, &s_minepiece);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x + TILEGLOBAL;\r
- new->y = ob->y;\r
- new->xspeed = (US_RndT()>>3);\r
- new->yspeed = -48;\r
- NewState(new, &s_minepiece);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = (US_RndT()>>4) + 40;\r
- new->yspeed = -24;\r
- NewState(new, &s_minepiece);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x + TILEGLOBAL;\r
- new->y = ob->y;\r
- new->xspeed = -40 - (US_RndT()>>4);\r
- new->yspeed = -24;\r
- NewState(new, &s_minepiece);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = 24;\r
- new->yspeed = 16;\r
- NewState(new, &s_minepiece);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x + TILEGLOBAL;\r
- new->y = ob->y;\r
- new->xspeed = 24;\r
- new->yspeed = 16;\r
- NewState(new, &s_minepiece);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Mine\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Mine(objtype *ob)\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- RF_PlaceSprite((void**)&ob->temp4, ob->x+ob->temp2, ob->y+ob->temp3, SHIKADIMINEEYESPR, spritedraw, 2);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- ROBO RED\r
-\r
-temp1 = number of shots to fire\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_robored = {ROBOREDLSPR, ROBOREDRSPR, step, false, true, 6, 64, 0, T_RoboRed, C_RoboRed, R_Walk, &s_robored};\r
-statetype s_roboredfire0 = {ROBOREDLSPR, ROBOREDRSPR, step, true, true, 40, 0, 0, NULL, C_Spindread, R_Draw, &s_roboredfire1};\r
-statetype s_roboredfire1 = {ROBOREDLSPR, ROBOREDRSPR, step, true, true, 4, 64, 0, NULL, C_Spindread, R_Draw, &s_roboredfire2};\r
-statetype s_roboredfire2 = {ROBOREDLSPR, ROBOREDRSPR, step, false, true, 6, 0, 0, T_RoboShoot, C_Spindread, R_Draw, &s_roboredfire1};\r
-statetype s_rshot1 = {ROBOSHOT1SPR, ROBOSHOT1SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_RShot, R_RShot, &s_rshot2};\r
-statetype s_rshot2 = {ROBOSHOT2SPR, ROBOSHOT2SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_RShot, R_RShot, &s_rshot1};\r
-statetype s_rshothit1 = {ROBOSHOTHIT1SPR, ROBOSHOTHIT1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_rshothit2};\r
-statetype s_rshothit2 = {ROBOSHOTHIT2SPR, ROBOSHOTHIT2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnRoboRed\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnRoboRed(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = roboredobj;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -4*TILEGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- NewState(new, &s_robored);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_RoboRed\r
-=\r
-===========================\r
-*/\r
-\r
-void T_RoboRed(objtype *ob)\r
-{\r
- if (!(ob->x & (4*PIXGLOBAL)) && player->bottom > ob->top && player->top < ob->bottom && US_RndT() < 16)\r
- {\r
- if (ob->x > player->x)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
- ob->temp1 = 10; // shoot 10 times\r
- ob->state = &s_roboredfire0;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_RoboRed\r
-=\r
-===========================\r
-*/\r
-\r
-void C_RoboRed(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- ob->xdir = (player->x > ob->x)? 1 : -1;\r
- ob->temp1 = 10; // shoot 10 times\r
- ChangeState(ob, &s_roboredfire0);\r
- }\r
- else if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_RoboShoot\r
-=\r
-===========================\r
-*/\r
-\r
-void T_RoboShoot(objtype *ob)\r
-{\r
- Uint16 x;\r
-\r
- if (--ob->temp1 == 0)\r
- {\r
- ob->state = &s_robored;\r
- }\r
- if (ob->xdir == 1)\r
- {\r
- x = ob->x + 56*PIXGLOBAL;\r
- }\r
- else\r
- {\r
- x = ob->x;\r
- }\r
- if (CheckSpawnShot(x, ob->y + 32*PIXGLOBAL, &s_rshot1) != -1)\r
- {\r
- new->xspeed = ob->xdir * 60;\r
- if (ob->temp1 & 1)\r
- {\r
- new->yspeed = 8;\r
- }\r
- else\r
- {\r
- new->yspeed = -8;\r
- }\r
- SD_PlaySound(SND_ENEMYSHOT);\r
- xtry = (ob->xdir == 1)? -4*PIXGLOBAL : 4*PIXGLOBAL;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_RShot\r
-=\r
-===========================\r
-*/\r
-\r
-void C_RShot(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- ChangeState(ob, &s_rshothit1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_RShot\r
-=\r
-===========================\r
-*/\r
-\r
-void R_RShot(objtype *ob)\r
-{\r
- if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest)\r
- {\r
- SD_PlaySound(SND_ENEMYSHOTEXPLODE);\r
- ChangeState(ob, &s_rshothit1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SPIROGRIP\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_gripsitd = {SPIROSITDSPR, SPIROSITDSPR, step, false, false, 150, 0, 0, NULL, C_Spindread, R_Draw, &s_gripjumpd};\r
-statetype s_gripjumpd = {SPIROSITDSPR, SPIROSITDSPR, slide, false, false, 64, 0, -16, NULL, C_Spindread, R_Draw, &s_gripspin7};\r
-statetype s_gripsitl = {SPIROSITLSPR, SPIROSITLSPR, step, false, false, 150, 0, 0, NULL, C_Spindread, R_Draw, &s_gripjumpl};\r
-statetype s_gripjumpl = {SPIROSITLSPR, SPIROSITLSPR, slide, false, false, 64, 16, 0, NULL, C_Spindread, R_Draw, &s_gripspin1};\r
-statetype s_gripsitr = {SPIROSITRSPR, SPIROSITRSPR, step, false, false, 150, 0, 0, NULL, C_Spindread, R_Draw, &s_gripjumpr};\r
-statetype s_gripjumpr = {SPIROSITRSPR, SPIROSITRSPR, slide, false, false, 64, -16, 0, NULL, C_Spindread, R_Draw, &s_gripspin5};\r
-statetype s_gripsitu = {SPIROSITUSPR, SPIROSITUSPR, step, false, false, 150, 0, 0, NULL, C_Spindread, R_Draw, &s_gripjumpu};\r
-statetype s_gripjumpu = {SPIROSITUSPR, SPIROSITUSPR, slide, false, false, 64, 0, 16, NULL, C_Spindread, R_Draw, &s_gripspin3};\r
-statetype s_gripspin1 = {SPIROSPINULSPR, SPIROSPINULSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_gripspin2};\r
-statetype s_gripspin2 = {SPIROSPINUSPR, SPIROSPINUSPR, step, false, false, 8, 0, 0, T_SpiroLaunch, C_Spindread, R_Draw, &s_gripspin3};\r
-statetype s_gripspin3 = {SPIROSPINURSPR, SPIROSPINURSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_gripspin4};\r
-statetype s_gripspin4 = {SPIROSPINRSPR, SPIROSPINRSPR, step, false, false, 8, 0, 0, T_SpiroLaunch, C_Spindread, R_Draw, &s_gripspin5};\r
-statetype s_gripspin5 = {SPIROSPINDRSPR, SPIROSPINDRSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_gripspin6};\r
-statetype s_gripspin6 = {SPIROSPINDSPR, SPIROSPINDSPR, step, false, false, 8, 0, 0, T_SpiroLaunch, C_Spindread, R_Draw, &s_gripspin7};\r
-statetype s_gripspin7 = {SPIROSPINDLSPR, SPIROSPINDLSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_gripspin8};\r
-statetype s_gripspin8 = {SPIROSPINLSPR, SPIROSPINLSPR, step, false, false, 8, 0, 0, T_SpiroLaunch, C_Spindread, R_Draw, &s_gripspin1};\r
-statetype s_gripflyd = {SPIROSITDSPR, SPIROSITDSPR, slide, false, false, 0, 0, 48, NULL, C_Spindread, R_SpiroFly, &s_gripsitd};\r
-statetype s_gripflyl = {SPIROSITLSPR, SPIROSITLSPR, slide, false, false, 0, -48, 0, NULL, C_Spindread, R_SpiroFly, &s_gripsitl};\r
-statetype s_gripflyr = {SPIROSITRSPR, SPIROSITRSPR, slide, false, false, 0, 48, 0, NULL, C_Spindread, R_SpiroFly, &s_gripsitr};\r
-statetype s_gripflyu = {SPIROSITUSPR, SPIROSITUSPR, slide, false, false, 0, 0, -48, NULL, C_Spindread, R_SpiroFly, &s_gripsitu};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSpirogrip\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSpirogrip(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = spirogripobj;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL;\r
- new->xdir = 1;\r
- new->ydir = 1;\r
- NewState(new, &s_gripsitd);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_SpiroLaunch\r
-=\r
-===========================\r
-*/\r
-\r
-void T_SpiroLaunch(objtype *ob)\r
-{\r
- if (US_RndT() <= 20)\r
- {\r
- SD_PlaySound(SND_SPIROFLY);\r
- if (ob->state == &s_gripspin2)\r
- {\r
- ob->state = &s_gripflyu;\r
- }\r
- else if (ob->state == &s_gripspin4)\r
- {\r
- ob->state = &s_gripflyr;\r
- }\r
- else if (ob->state == &s_gripspin6)\r
- {\r
- ob->state = &s_gripflyd;\r
- }\r
- else if (ob->state == &s_gripspin8)\r
- {\r
- ob->state = &s_gripflyl;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_SpiroFly\r
-=\r
-===========================\r
-*/\r
-\r
-void R_SpiroFly(objtype *ob)\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest)\r
- {\r
- ChangeState(ob, ob->state->nextstate);\r
- SD_PlaySound(SND_SPIROGRAB);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SPINDRED\r
-\r
-temp1 = bounce counter\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_spindred1 = {SPINDRED1SPR, SPINDRED1SPR, stepthink, false, false, 8, 0, 0, T_Spindread, C_Spindread, R_Spindread, &s_spindred2};\r
-statetype s_spindred2 = {SPINDRED2SPR, SPINDRED2SPR, stepthink, false, false, 8, 0, 0, T_Spindread, C_Spindread, R_Spindread, &s_spindred3};\r
-statetype s_spindred3 = {SPINDRED3SPR, SPINDRED3SPR, stepthink, false, false, 8, 0, 0, T_Spindread, C_Spindread, R_Spindread, &s_spindred4};\r
-statetype s_spindred4 = {SPINDRED4SPR, SPINDRED4SPR, stepthink, false, false, 8, 0, 0, T_Spindread, C_Spindread, R_Spindread, &s_spindred1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSpindread\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSpindread(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = spindredobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL;\r
- new->ydir = 1;\r
- NewState(new, &s_spindred1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Spindread\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Spindread(objtype *ob)\r
-{\r
- Sint32 i;\r
-\r
- // BUG: this might be executed twice during the same frame if the\r
- // object's animation/state changed during that frame, causing the\r
- // object to move at twice the speed during that frame!\r
- // To avoid that, return if ytry is not 0.\r
-\r
- for (i=lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (i & 1)\r
- {\r
- if (ob->ydir == 1)\r
- {\r
- if (ob->yspeed < 0 && ob->yspeed >= -3)\r
- {\r
- ytry += ob->yspeed;\r
- ob->yspeed = 0;\r
- return;\r
- }\r
- else\r
- {\r
- ob->yspeed += 3;\r
- if (ob->yspeed > 70)\r
- {\r
- ob->yspeed = 70;\r
- }\r
- }\r
- }\r
- else\r
- {\r
- if (ob->yspeed > 0 && ob->yspeed <= 3)\r
- {\r
- ytry += ob->yspeed;\r
- ob->yspeed = 0;\r
- return;\r
- }\r
- else\r
- {\r
- ob->yspeed -= 3;\r
- if (ob->yspeed < -70)\r
- {\r
- ob->yspeed = -70;\r
- }\r
- }\r
- }\r
- }\r
- ytry += ob->yspeed;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Spindread\r
-=\r
-===========================\r
-*/\r
-\r
-#pragma argsused\r
-void C_Spindread(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- }\r
- else if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Spindread\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Spindread(objtype *ob)\r
-{\r
- if (ob->hitsouth)\r
- {\r
- ob->yspeed = 0;\r
- if (ob->ydir == -1)\r
- {\r
- if (++ob->temp1 == 3)\r
- {\r
- ob->temp1 = 0;\r
- ob->yspeed = 68;\r
- ob->ydir = -ob->ydir;\r
- SD_PlaySound(SND_SPINDREDFLIP);\r
- }\r
- else\r
- {\r
- SD_PlaySound(SND_SPINDREDBOUNCE);\r
- ob->yspeed = 40;\r
- }\r
- }\r
- }\r
- if (ob->hitnorth)\r
- {\r
- ob->yspeed = 0;\r
- if (ob->ydir == 1)\r
- {\r
- if (++ob->temp1 == 3)\r
- {\r
- ob->temp1 = 0;\r
- ob->yspeed = -68;\r
- ob->ydir = -ob->ydir;\r
- SD_PlaySound(SND_BOUNCE);\r
- }\r
- else\r
- {\r
- SD_PlaySound(SND_SPINDREDBOUNCE);\r
- ob->yspeed = -40;\r
- }\r
- }\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SHIKADI MASTER\r
-\r
-temp1 = defines next action (0 = shoot, 1 = teleport)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_master1 = {MASTER1SPR, MASTER1SPR, step, false, false, 8, 0, 0, NULL, C_Master, R_Draw, &s_master2};\r
-statetype s_master2 = {MASTER2SPR, MASTER2SPR, step, false, false, 8, 0, 0, NULL, C_Master, R_Draw, &s_master3};\r
-statetype s_master3 = {MASTER3SPR, MASTER3SPR, step, false, false, 8, 0, 0, NULL, C_Master, R_Draw, &s_master4};\r
-statetype s_master4 = {MASTER4SPR, MASTER4SPR, step, false, false, 8, 0, 0, T_Master, C_Master, R_Draw, &s_master1};\r
-statetype s_mastershoot1 = {SHIKMASTERCASTLSPR, SHIKMASTERCASTRSPR, step, false, false, 30, 0, 0, T_MasterShoot, C_Spindread, R_Draw, &s_mastershoot2};\r
-statetype s_mastershoot2 = {SHIKMASTERCASTLSPR, SHIKMASTERCASTRSPR, step, false, false, 8, 0, 0, NULL, C_Spindread, R_Draw, &s_master1};\r
-statetype s_mastertport1 = {MASTERTELEPORT1SPR, MASTERTELEPORT1SPR, step, false, true, 20, 0, 0, NULL, C_Spindread, R_Draw, &s_mastertport2};\r
-statetype s_mastertport2 = {MASTERTELEPORT2SPR, MASTERTELEPORT2SPR, step, false, true, 20, 0, 0, T_MasterTPort, C_Spindread, R_Draw, &s_mastertport3};\r
-statetype s_mastertport3 = {MASTERTELEPORT2SPR, MASTERTELEPORT2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Land, &s_mastertport4};\r
-statetype s_mastertport4 = {MASTERTELEPORT2SPR, MASTERTELEPORT2SPR, step, false, false, 60, 0, 0, NULL, C_Spindread, R_Draw, &s_master1};\r
-statetype s_mshot1 = {MASTERSHOT4SPR, MASTERSHOT1SPR, stepthink, false, false, 8, 0, 0, T_WeakProjectile, C_MShot, R_MShot, &s_mshot2};\r
-statetype s_mshot2 = {MASTERSHOT3SPR, MASTERSHOT2SPR, stepthink, false, false, 8, 0, 0, T_WeakProjectile, C_MShot, R_MShot, &s_mshot3};\r
-statetype s_mshot3 = {MASTERSHOT2SPR, MASTERSHOT3SPR, stepthink, false, false, 8, 0, 0, T_WeakProjectile, C_MShot, R_MShot, &s_mshot4};\r
-statetype s_mshot4 = {MASTERSHOT1SPR, MASTERSHOT4SPR, stepthink, false, false, 8, 0, 0, T_WeakProjectile, C_MShot, R_MShot, &s_mshot1};\r
-statetype s_mspray1 = {MASTERFLOORSPARK1SPR, MASTERFLOORSPARK1SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_MShot, R_MSpray, &s_mspray2};\r
-statetype s_mspray2 = {MASTERFLOORSPARK2SPR, MASTERFLOORSPARK2SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_MShot, R_MSpray, &s_mspray3};\r
-statetype s_mspray3 = {MASTERFLOORSPARK3SPR, MASTERFLOORSPARK3SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_MShot, R_MSpray, &s_mspray4};\r
-statetype s_mspray4 = {MASTERFLOORSPARK4SPR, MASTERFLOORSPARK4SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_MShot, R_MSpray, &s_mspray1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnMaster\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnMaster(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = shikadimasterobj;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -24*PIXGLOBAL;\r
- NewState(new, &s_master1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Master\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Master(objtype *ob)\r
-{\r
- Sint16 randval;\r
-\r
- randval = US_RndT();\r
- if (randval < 0x40)\r
- {\r
- if (ob->temp1)\r
- {\r
- ob->state = &s_mastertport1;\r
- ob->temp1 = 0;\r
- }\r
- else\r
- {\r
- ob->temp1 = 1;\r
- if (player->x > ob->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- ob->state = &s_mastershoot1;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_MasterShoot\r
-=\r
-===========================\r
-*/\r
-\r
-void T_MasterShoot(objtype *ob)\r
-{\r
- Uint16 x;\r
-\r
- if (ob->xdir == 1)\r
- {\r
- x = ob->x + 16*PIXGLOBAL;\r
- }\r
- else\r
- {\r
- x = ob->x;\r
- }\r
- if (CheckSpawnShot(x, ob->y+8*PIXGLOBAL, &s_mshot1) != -1)\r
- {\r
- new->xspeed = ob->xdir * 48;\r
- new->yspeed = -16;\r
- SD_PlaySound(SND_MASTERATTACK);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Master\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Master(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- ob->xdir = (player->x > ob->x)? 1 : -1;\r
- ob->temp1 = 1;\r
- ChangeState(ob, &s_mastershoot1);\r
- }\r
- else if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_MasterTPort\r
-=\r
-===========================\r
-*/\r
-\r
-void T_MasterTPort(objtype *ob)\r
-{\r
- Uint16 tile;\r
- Sint16 tx, ty, redos, oldx, oldy;\r
-\r
- oldx = ob->x;\r
- oldy = ob->y;\r
-\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = 48;\r
- NewState(new, &s_mspray1); // BUG? new object is not made removable\r
-\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = -48;\r
- NewState(new, &s_mspray1); // BUG? new object is not made removable\r
-\r
- SD_PlaySound(SND_MASTERBLAST);\r
-\r
- redos = 0;\r
-redo:\r
- if (++redos == 10)\r
- {\r
- US_RndT(); // call it, but ignore the result\r
- // probably to avoid repeatedly getting the same same "random" values\r
- // due to having an even number of US_RndT() calls in this routine and\r
- // an even number of elements in the random table.\r
-\r
- ob->state = &s_master1;\r
- ob->x = oldx - 1;\r
- ob->y = oldy;\r
- xtry = 1;\r
- ytry = 0;\r
- }\r
- else\r
- {\r
- tx = player->tilemidx - 16 + (US_RndT()>>3);\r
- ty = player->tilebottom - 16 + (US_RndT()>>3);\r
- if (tx < 2 || ty < 2 || tx > mapwidth-5 || ty > mapheight-5)\r
- goto redo;\r
-\r
-\r
- ob->x = CONVERT_TILE_TO_GLOBAL(tx);\r
- ob->y = CONVERT_TILE_TO_GLOBAL(ty);\r
- ob->tileleft = tx-1;\r
- ob->tileright = tx+4;\r
- ob->tiletop = ty-1;\r
- ob->tilebottom = ty+4;\r
-\r
- {\r
- Uint16 x, y;\r
- Uint16 far *map;\r
- Uint16 mapdelta;\r
-\r
- map = (Uint16 far *)mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + ob->tileleft;\r
- mapdelta = mapwidth - (ob->tileright - ob->tileleft + 1);\r
-\r
- for (y = ob->tiletop; ob->tilebottom >= y; y++, map+=mapdelta)\r
- {\r
- for (x = ob->tileleft; ob->tileright >= x; x++)\r
- {\r
- tile = *map++;\r
- if ((tinf[tile+INTILE] & INTILE_FOREGROUND) || tinf[tile+NORTHWALL] || tinf[tile+EASTWALL]\r
- || tinf[tile+SOUTHWALL] || tinf[tile+WESTWALL])\r
- {\r
- goto redo;\r
- }\r
- }\r
- }\r
- xtry = ytry = 0;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_MShot\r
-=\r
-===========================\r
-*/\r
-\r
-void C_MShot(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- RemoveObj(ob);\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- RemoveObj(ob);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_MShot\r
-=\r
-===========================\r
-*/\r
-\r
-void R_MShot(objtype *ob)\r
-{\r
- if (ob->hiteast || ob->hitwest)\r
- {\r
- ob->xspeed = -ob->xspeed;\r
- }\r
- if (ob->hitsouth)\r
- {\r
- ob->yspeed = 0;\r
- }\r
- if (ob->hitnorth)\r
- {\r
- SD_PlaySound(SND_MASTERATTACK);\r
- ob->xspeed = 48;\r
- ChangeState(ob, &s_mspray1);\r
-\r
- GetNewObj(true);\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->xspeed = -48;\r
- NewState(new, &s_mspray1); // BUG? new object is not made removable\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_MSpray\r
-=\r
-===========================\r
-*/\r
-\r
-void R_MSpray(objtype *ob)\r
-{\r
- if (ob->hiteast || ob->hitwest)\r
- {\r
- RemoveObj(ob);\r
- }\r
- else\r
- {\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SHIKADI\r
-\r
-temp1 = x tile position of the pole being grabbed (is set but never used)\r
-temp2 = health\r
-temp3 = flash countdown\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_shikadi1 = {SHIKADI1SPR, SHIKADI1SPR, step, false, true, 8, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadi2};\r
-statetype s_shikadi2 = {SHIKADI2SPR, SHIKADI2SPR, step, false, true, 8, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadi3};\r
-statetype s_shikadi3 = {SHIKADI3SPR, SHIKADI3SPR, step, false, true, 8, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadi4};\r
-statetype s_shikadi4 = {SHIKADI4SPR, SHIKADI4SPR, step, false, true, 8, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadiwalk1};\r
-statetype s_shikadiwalk1 = {SHIKADIWALKL1SPR, SHIKADIWALKR1SPR, step, false, true, 8, 128, 0, T_Shikadi, C_Shikadi, R_Shikadi, &s_shikadiwalk2};\r
-statetype s_shikadiwalk2 = {SHIKADIWALKL2SPR, SHIKADIWALKR2SPR, step, false, true, 8, 128, 0, T_Shikadi, C_Shikadi, R_Shikadi, &s_shikadiwalk3};\r
-statetype s_shikadiwalk3 = {SHIKADIWALKL3SPR, SHIKADIWALKR3SPR, step, false, true, 8, 128, 0, T_Shikadi, C_Shikadi, R_Shikadi, &s_shikadiwalk4};\r
-statetype s_shikadiwalk4 = {SHIKADIWALKL4SPR, SHIKADIWALKR4SPR, step, false, true, 8, 128, 0, T_Shikadi, C_Shikadi, R_Shikadi, &s_shikadiwalk1};\r
-statetype s_shikadigrab = {SHIKADIGRABLSPR, SHIKADIGRABRSPR, step, false, true, 20, 0, 0, T_PoleShock, C_Shikadi, R_Shikadi, &s_shikadigrab2};\r
-statetype s_shikadigrab2 = {SHIKADIGRABLSPR, SHIKADIGRABRSPR, step, false, true, 20, 0, 0, NULL, C_Shikadi, R_Shikadi, &s_shikadiwalk1};\r
-statetype s_shikadistun = {SHIKADISTUNSPR, SHIKADISTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-statetype s_polespark1 = {SHIKADIPOLESPARK1SPR, SHIKADIPOLESPARK1SPR, stepthink, false, false, 0, 0, 0, T_PoleSpark, C_Lethal, R_Draw, &s_polespark2};\r
-statetype s_polespark2 = {SHIKADIPOLESPARK1SPR, SHIKADIPOLESPARK1SPR, stepthink, false, false, 0, 0, 0, T_PoleSpark, C_Lethal, R_Draw, &s_polespark1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnShikadi\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnShikadi(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = shikadiobj;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL;\r
- new->temp2 = 4; // health\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- NewState(new, &s_shikadi1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Shikadi\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Shikadi(objtype *ob)\r
-{\r
- Uint16 tx, tile;\r
-\r
- if (player->state->contact == &KeenPosContact\r
- || ob->bottom - player->bottom + TILEGLOBAL <= 2*TILEGLOBAL)\r
- {\r
- if (ob->x > player->x + TILEGLOBAL)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else if (ob->x < player->x - TILEGLOBAL)\r
- {\r
- ob->xdir = 1;\r
- }\r
- if (ob->xdir == 1)\r
- {\r
- tx = ob->tileright;\r
- }\r
- else\r
- {\r
- tx = ob->tileleft;\r
- }\r
-\r
- if (player->tilemidx != tx)\r
- return;\r
- }\r
- else\r
- {\r
- if (US_RndT() < 0x10)\r
- {\r
- xtry = 0;\r
- ob->state = &s_shikadi1;\r
- return;\r
- }\r
- if ((ob->x & 0xFF) || !OnScreen(ob))\r
- return;\r
-\r
- if (ob->xdir == 1)\r
- {\r
- tx = ob->tileright;\r
- }\r
- else\r
- {\r
- tx = ob->tileleft;\r
- }\r
- }\r
-\r
- tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop]/2 + tx);\r
- if (tinf[tile+INTILE] == INTILE_POLE)\r
- {\r
- ob->temp1 = tx;\r
- ob->state = &s_shikadigrab;\r
- xtry = 0;\r
- SD_PlaySound(SND_SHIKADIATTACK);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Shikadi\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Shikadi(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- if (hit->obclass == stunshotobj)\r
- {\r
- if (--ob->temp2 == 0) // handle health\r
- {\r
- ob->xspeed = 0;\r
- ob->yspeed = 0;\r
- StunObj(ob, hit, &s_shikadistun);\r
- }\r
- else\r
- {\r
- ob->temp3 = 2; // draw white two times\r
- ob->needtoreact = true;\r
- ExplodeShot(hit);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_PoleShock\r
-=\r
-===========================\r
-*/\r
-\r
-void T_PoleShock(objtype *ob)\r
-{\r
- Uint16 x;\r
-\r
- ob->nothink = 2;\r
- if (ob->xdir == 1)\r
- {\r
- x = CONVERT_TILE_TO_GLOBAL(ob->tileright);\r
- }\r
- else\r
- {\r
- x = CONVERT_TILE_TO_GLOBAL(ob->tileleft);\r
- }\r
-\r
- GetNewObj(true);\r
- new->x = x;\r
- new->y = ob->y + 8*PIXGLOBAL;\r
- new->obclass = mshotobj;\r
- new->active = ac_removable;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_polespark1);\r
- if (ob->y < player->y)\r
- {\r
- new->ydir = 1;\r
- }\r
- else\r
- {\r
- new->ydir = -1;\r
- }\r
- SD_PlaySound(SND_SHIKADIATTACK);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_PoleSpark\r
-=\r
-===========================\r
-*/\r
-\r
-void T_PoleSpark(objtype *ob)\r
-{\r
- Uint16 tile;\r
-\r
- if (ytry == 0)\r
- {\r
- ytry = ob->ydir * 48;\r
- tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop]/2 + ob->tilemidx);\r
- if (tinf[tile+INTILE] != INTILE_POLE)\r
- {\r
- ob->state = NULL;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Shikadi\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Shikadi(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (!ob->hitnorth)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -ob->xdir;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- if (ob->temp3)\r
- {\r
- ob->temp3--;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority);\r
- }\r
- else\r
- {\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- PET (a.k.a. SHOCKSHUND)\r
-\r
-temp1 = countdown for sit animation\r
-temp2 = health\r
-temp3 = flash countdown\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_petsit1 = {PETSIT1SPR, PETSIT1SPR, step, false, true, 8, 0, 0, NULL, C_Pet, R_Pet, &s_petsit2};\r
-statetype s_petsit2 = {PETSIT2SPR, PETSIT2SPR, step, false, true, 8, 0, 0, T_PetSit, C_Pet, R_Pet, &s_petsit1};\r
-statetype s_petbark1 = {PETBARKL1SPR, PETBARKR1SPR, step, false, true, 8, 0, 0, NULL, C_Pet, R_Pet, &s_petbark2};\r
-statetype s_petbark2 = {PETBARKL2SPR, PETBARKR2SPR, step, false, true, 8, 0, 0, T_PetBark, C_Pet, R_Pet, &s_pet1};\r
-statetype s_pet1 = {PETRUNL1SPR, PETRUNR1SPR, step, false, true, 8, 128, 0, NULL, C_Pet, R_Pet, &s_pet2};\r
-statetype s_pet2 = {PETRUNL2SPR, PETRUNR2SPR, step, false, true, 8, 128, 0, NULL, C_Pet, R_Pet, &s_pet3};\r
-statetype s_pet3 = {PETRUNL3SPR, PETRUNR3SPR, step, false, true, 8, 128, 0, NULL, C_Pet, R_Pet, &s_pet4};\r
-statetype s_pet4 = {PETRUNL4SPR, PETRUNR4SPR, step, false, true, 8, 128, 0, T_Pet, C_Pet, R_Pet, &s_pet1};\r
-statetype s_petjump = {PETJUMPLSPR, PETJUMPRSPR, think, false, false, 8, 128, 0, T_Projectile, C_Pet, R_PetJump, &s_pet2};\r
-statetype s_pshot1 = {PETSPARK1SPR, PETSPARK1SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_PShot, R_PShot, &s_pshot2};\r
-statetype s_pshot2 = {PETSPARK2SPR, PETSPARK2SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_PShot, R_PShot, &s_pshot1};\r
-statetype s_pshothot1 = {PETSPARKHIT1SPR, PETSPARKHIT1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_pshothot2};\r
-statetype s_pshothot2 = {PETSPARKHIT2SPR, PETSPARKHIT2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL};\r
-statetype s_petstun = {PETSTUNSPR, PETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnPet\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnPet(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = petobj;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL;\r
- new->temp2 = 2; // health\r
- new->xdir = new->ydir = 1;\r
- NewState(new, &s_pet1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Pet\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Pet(objtype *ob)\r
-{\r
- if (ob->x > player->x)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
- if (US_RndT() < 0x10)\r
- {\r
- xtry = 0;\r
- ob->state = &s_petsit1;\r
- ob->temp1 = 10; // repeat animation 10 times;\r
- }\r
- else\r
- {\r
- if (ob->bottom != player->bottom)\r
- {\r
- ob->state = &s_petjump;\r
- if (ob->xdir == 1)\r
- {\r
- ob->xspeed = 40;\r
- }\r
- else\r
- {\r
- ob->xspeed = -40;\r
- }\r
- ob->yspeed = -40;\r
- }\r
- if (US_RndT() < 0x80)\r
- {\r
- xtry = 0;\r
- ob->state = &s_petbark1;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_PetSit\r
-=\r
-===========================\r
-*/\r
-\r
-void T_PetSit(objtype *ob)\r
-{\r
- if (--ob->temp1 == 0)\r
- {\r
- ob->state = &s_pet1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_PetBark\r
-=\r
-===========================\r
-*/\r
-\r
-void T_PetBark(objtype *ob)\r
-{\r
- Uint16 x;\r
-\r
- if (ob->xdir == 1)\r
- {\r
- x = ob->x + 7*PIXGLOBAL;\r
- }\r
- else\r
- {\r
- x = ob->x;\r
- }\r
- if (CheckSpawnShot(x, ob->y+4*PIXGLOBAL, &s_pshot1) != -1)\r
- {\r
- new->xspeed = ob->xdir * 60;\r
- new->xdir = ob->xdir;\r
- SD_PlaySound(SND_SHOCKSHUNDBARK);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Pet\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Pet(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- if (hit->obclass == stunshotobj) // no 'else if' in the original code!\r
- {\r
- if (--ob->temp2 == 0) // handle health\r
- {\r
- ob->xspeed = 0;\r
- ob->yspeed = 0;\r
- StunObj(ob, hit, &s_petstun);\r
- }\r
- else\r
- {\r
- ob->temp3 = 2; // draw white two times\r
- ob->needtoreact = true;\r
- ExplodeShot(hit);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Pet\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Pet(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (!ob->hitnorth)\r
- {\r
- if ((ob->xdir == 1 && player->x > ob->x) || (ob->xdir == -1 && player->x < ob->x))\r
- {\r
- ChangeState(ob, &s_petjump);\r
- if (ob->xdir == 1)\r
- {\r
- ob->xspeed = 40;\r
- }\r
- else\r
- {\r
- ob->xspeed = -40;\r
- }\r
- ob->yspeed = -40;\r
- }\r
- else\r
- {\r
- ob->x -= ob->xmove*2;\r
- ob->xdir = -ob->xdir;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- }\r
- if (ob->temp3)\r
- {\r
- ob->temp3--;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority);\r
- }\r
- else\r
- {\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_PetJump\r
-=\r
-===========================\r
-*/\r
-\r
-void R_PetJump(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- {\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, &s_pet1);\r
- }\r
- if (ob->temp3)\r
- {\r
- ob->temp3--;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority);\r
- }\r
- else\r
- {\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_PShot\r
-=\r
-===========================\r
-*/\r
-\r
-void C_PShot(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- ChangeState(ob, &s_pshothot1);\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- ChangeState(ob, &s_pshothot1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_PShot\r
-=\r
-===========================\r
-*/\r
-\r
-void R_PShot(objtype *ob)\r
-{\r
- if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest)\r
- {\r
- SD_PlaySound(SND_SHOCKBALLEXPLODE);\r
- ChangeState(ob, &s_pshothot1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SPHEREFUL\r
-\r
-temp1 ... temp4 = sprite pointers for the guards circling around the sphere\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_sphereful1 = {SPHEREFUL1SPR, SPHEREFUL1SPR, stepthink, false, false, 6, 0, 0, T_Sphereful, C_Spindread, R_Sphereful, &s_sphereful2};\r
-statetype s_sphereful2 = {SPHEREFUL2SPR, SPHEREFUL2SPR, stepthink, false, false, 6, 0, 0, T_Sphereful, C_Spindread, R_Sphereful, &s_sphereful3};\r
-statetype s_sphereful3 = {SPHEREFUL3SPR, SPHEREFUL3SPR, stepthink, false, false, 6, 0, 0, T_Sphereful, C_Spindread, R_Sphereful, &s_sphereful4};\r
-statetype s_sphereful4 = {SPHEREFUL4SPR, SPHEREFUL4SPR, stepthink, false, false, 6, 0, 0, T_Sphereful, C_Spindread, R_Sphereful, &s_sphereful1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSphereful\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSphereful(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = spherefulobj;\r
- new->needtoclip = cl_fullclip;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL;\r
- new->priority = 1;\r
- NewState(new, &s_sphereful1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Sphereful\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Sphereful(objtype *ob)\r
-{\r
- Sint32 i;\r
- ob->needtoreact = true;\r
-\r
- //\r
- // this code could be executed twice during the same frame because the\r
- // object's animation/state changed during that frame, so don't update\r
- // anything if we already have movement for the current frame i.e. the\r
- // update code has already been executed this frame\r
- //\r
- if (xtry == 0 && ytry == 0)\r
- {\r
- for (i=lasttimecount-tics; i<lasttimecount; i++)\r
- {\r
- if (!(i & 0xF))\r
- {\r
- if (ob->yspeed < 8)\r
- ob->yspeed++;\r
-\r
- if (ob->x < player->x && ob->xspeed < 8)\r
- ob->xspeed++;\r
-\r
- if (ob->x > player->x && ob->xspeed > -8)\r
- ob->xspeed--;\r
- }\r
- ytry += ob->yspeed;\r
- xtry += ob->xspeed;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Sphereful\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Sphereful(objtype *ob)\r
-{\r
- static Uint16 circle[16] = {\r
- 384, 369, 328, 265, 192, 119, 58, 15,\r
- 0, 15, 58, 119, 192, 265, 328, 369\r
- };\r
-\r
- Uint16 index, shapenum, priority;\r
-\r
- if (ob->hitwest || ob->hiteast)\r
- {\r
- ob->xspeed = -ob->xspeed;\r
- SD_PlaySound(SND_SPHEREFULBOUNCE);\r
- }\r
- if (ob->hitsouth)\r
- {\r
- ob->yspeed = -ob->yspeed;\r
- SD_PlaySound(SND_SPHEREFULBOUNCE);\r
- }\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->yspeed = -ob->yspeed;\r
- if (player->y < ob->y)\r
- {\r
- ob->yspeed--;\r
- }\r
- else\r
- {\r
- ob->yspeed++;\r
- }\r
- if (ob->yspeed > -4)\r
- {\r
- ob->yspeed = -4;\r
- }\r
- else if (ob->yspeed < -12)\r
- {\r
- ob->yspeed = -12;\r
- }\r
- SD_PlaySound(SND_BOUNCE);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-\r
- index = ((Uint16)lasttimecount / 8) & 0xF;\r
- shapenum = index / 4 + SPHEREGUARD1SPR;\r
- if (index >= 8)\r
- {\r
- priority = 2;\r
- }\r
- else\r
- {\r
- priority = 0;\r
- }\r
- RF_PlaceSprite((void**)&ob->temp1, ob->x+circle[index], ob->y+circle[index], shapenum, spritedraw, priority);\r
- RF_PlaceSprite((void**)&ob->temp2, ob->x+24*PIXGLOBAL-circle[index], ob->y+circle[index], shapenum, spritedraw, priority);\r
-\r
- index += 8;\r
- index &= 0xF;\r
- if (index >= 8)\r
- {\r
- priority = 2;\r
- }\r
- else\r
- {\r
- priority = 0;\r
- }\r
- RF_PlaceSprite((void**)&ob->temp3, ob->x+circle[index], ob->y+circle[index], shapenum, spritedraw, priority);\r
- RF_PlaceSprite((void**)&ob->temp4, ob->x+24*PIXGLOBAL-circle[index], ob->y+circle[index], shapenum, spritedraw, priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SCOTTIE\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_scottie1 = {SCOTTIEWALKL1SPR, SCOTTIEWALKR1SPR, step, false, true, 8, 128, 0, T_Scottie, C_Scottie, R_Walk, &s_scottie2};\r
-statetype s_scottie2 = {SCOTTIEWALKL2SPR, SCOTTIEWALKR2SPR, step, false, true, 8, 128, 0, T_Scottie, C_Scottie, R_Walk, &s_scottie3};\r
-statetype s_scottie3 = {SCOTTIEWALKL3SPR, SCOTTIEWALKR3SPR, step, false, true, 8, 128, 0, T_Scottie, C_Scottie, R_Walk, &s_scottie4};\r
-statetype s_scottie4 = {SCOTTIEWALKL4SPR, SCOTTIEWALKR4SPR, step, false, true, 8, 128, 0, T_Scottie, C_Scottie, R_Walk, &s_scottie1};\r
-statetype s_scottieface = {SCOTTIEFACESPR, SCOTTIEFACESPR, step, false, true, 30, 0, 0, NULL, C_Scottie, R_Walk, &s_scottie1};\r
-statetype s_scottiestun = {SCOTTIESTUNSPR, SCOTTIESTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnScottie\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnScottie(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = scottieobj;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- NewState(new, &s_scottie1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Scottie\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Scottie(objtype *ob)\r
-{\r
- if (US_RndT() < 0x10)\r
- {\r
- xtry = 0;\r
- if (US_RndT() < 0x80)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- ob->state = &s_scottieface;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Scottie\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Scottie(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj && hit->state->contact)\r
- {\r
- ClipToSpriteSide(hit, ob);\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- StunObj(ob, hit, &s_scottiestun);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- QED\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_qed = {-1, -1, step, false, true, 8, 128, 0, NULL, NULL, NULL, &s_qed};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnQed\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnQed(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = qedobj;\r
- new->active = ac_yes;\r
- new->tileleft = tileX;\r
- new->tiletop = tileY;\r
- new->tileright = new->tileleft + 1;\r
- new->tilebottom = new->tiletop + 1;\r
- new->x = new->left = CONVERT_TILE_TO_GLOBAL(tileX) + -1*PIXGLOBAL;\r
- new->y = new->top = CONVERT_TILE_TO_GLOBAL(tileY) + -1*PIXGLOBAL;\r
- new->right = new->left + 34*PIXGLOBAL;\r
- new->bottom = new->top + 34*PIXGLOBAL;\r
- NewState(new, &s_qed);\r
-}
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __K5_DEF__\r
-#define __K5_DEF__\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL CONSTANTS\r
-\r
-=============================================================================\r
-*/\r
-\r
-#if GRMODE == CGAGR\r
-#define MINMEMORY 255000l\r
-#else\r
-#define MINMEMORY 310000l\r
-#endif\r
-\r
-#define STARPALETTE {0, 1, 24, 30, 31, 28, 6, 7, 19, 19, 19, 19, 19, 19, 19, 19, 0}\r
-#define INTROPALETTE {0, 4, 4, 28, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 19, 0}\r
-#define SHRINKPALETTE {0, 4, 4, 28, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 4, 0}\r
-\r
-#define HIGHSCORE_LEFT 40\r
-#define HIGHSCORE_TOP 35\r
-#define HIGHSCORE_RIGHT 280\r
-#define HIGHSCORE_MAP 15\r
-\r
-#define STATUS_PRESSKEY_X 120\r
-\r
-#define WORLDMAPNAME "Armageddon"\r
-#define DROPSNAME "VITALIN"\r
-\r
-#define STARWARSMUSIC 17\r
-#define ENDINGMUSIC 14\r
-\r
-// levels in this range can NOT be re-entered (BWB level should be > MAXDONELEVEL)\r
-#define MINDONELEVEL 1\r
-#define MAXDONELEVEL 17\r
-\r
-#define INACTIVATEDIST 6\r
-\r
-//\r
-// tiles for worldmap teleporters\r
-//\r
-#define TELEPORTERTILE1 2687 // tile animation for teleporting out\r
-#define TELEPORTERTILE2 1063 // tile after teleporting out\r
-#define TELEPORTERTILE3 TELEPORTERTILE1 // tile animation for teleporting in\r
-#define TELEPORTERTILE4 0 // tile after teleporting in\r
-\r
-#define TELEPORERTILEMASK 1 // animation has 2 frames\r
-\r
-/*\r
-=============================================================================\r
-\r
- K5_SPEC DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern char far swtext[];\r
-extern char far *levelnames[GAMELEVELS];\r
-extern char far *levelenter[GAMELEVELS];\r
-\r
-void OpenMapDoor(Sint16 tileX, Sint16 tileY);\r
-void CloseMapDoor(Sint16 tileX, Sint16 tileY);\r
-void ScanInfoPlane(void);\r
-void GameOver(void);\r
-\r
-void FinishedFuse(void);\r
-\r
-/*\r
-=============================================================================\r
-\r
- K5_ACT1 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern Sint16 pdirx[];\r
-extern Sint16 pdiry[];\r
-\r
-Sint16 CheckSpawnShot(Uint16 x, Uint16 y, statetype *state);\r
-void C_ClipSide(objtype *ob, objtype *hit);\r
-void C_ClipTop(objtype *ob, objtype *hit);\r
-void R_Land(objtype *ob);\r
-void R_Bounce(objtype *ob);\r
-\r
-extern statetype s_bonus1;\r
-extern statetype s_bonus2;\r
-extern statetype s_bonusfly1;\r
-extern statetype s_bonusfly2;\r
-extern statetype s_bonusrise;\r
-extern statetype s_splash1;\r
-extern statetype s_splash2;\r
-extern statetype s_splash3;\r
-extern statetype s_splash4;\r
-\r
-extern Uint16 bonusshape[];\r
-\r
-void SpawnBonus(Uint16 tileX, Uint16 tileY, Uint16 type);\r
-void SpawnSplash(Uint16 tileX, Uint16 tileY);\r
-void T_Bonus(objtype *ob);\r
-void T_FlyBonus(objtype *ob);\r
-\r
-extern statetype s_teleport1;\r
-extern statetype s_teleport2;\r
-extern statetype s_teleportzap1;\r
-extern statetype s_teleportzap2;\r
-\r
-void SpawnTeleport(void);\r
-\r
-extern statetype s_fuseflash1;\r
-extern statetype s_fuseflash2;\r
-extern statetype s_fuseflash3;\r
-\r
-void SpawnFuseFlash(Uint16 tileX, Uint16 tileY);\r
-\r
-extern statetype s_deadmachine;\r
-\r
-void SpawnDeadMachine(void);\r
-void T_DeadMachine(objtype *ob);\r
-\r
-extern statetype s_platform;\r
-extern statetype s_slotplat1;\r
-extern statetype s_slotplat2;\r
-\r
-void SpawnPlatform(Uint16 tileX, Uint16 tileY, Sint16 dir, Sint16 type);\r
-void T_Platform(objtype *ob);\r
-void T_Slotplat(objtype *ob);\r
-\r
-extern statetype s_dropplatsit;\r
-extern statetype s_dropplatfall;\r
-extern statetype s_dropplatrise;\r
-\r
-void SpawnDropPlat(Uint16 tileX, Uint16 tileY);\r
-void T_DropPlatSit(objtype *ob);\r
-void T_DropPlatFall(objtype *ob);\r
-void T_DropPlatRise(objtype *ob);\r
-\r
-extern statetype s_statplat;\r
-\r
-void SpawnStaticPlat(Uint16 tileX, Uint16 tileY);\r
-\r
-extern statetype s_goplat;\r
-extern statetype s_slotgoplat1;\r
-extern statetype s_slotgoplat2;\r
-\r
-void SpawnGoPlat(Uint16 tileX, Uint16 tileY, Sint16 dir, Sint16 type);\r
-void T_GoPlat(objtype *ob);\r
-void T_GoSlotPlat(objtype *ob);\r
-\r
-extern statetype s_volte1;\r
-extern statetype s_volte2;\r
-extern statetype s_volte3;\r
-extern statetype s_volte4;\r
-extern statetype s_voltestun;\r
-\r
-void SpawnVolte(Uint16 tileX, Uint16 tileY);\r
-void T_Volte(objtype *ob);\r
-void C_Volte(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_sneakplatsit;\r
-extern statetype s_sneakplatdodge;\r
-extern statetype s_sneakplatreturn;\r
-\r
-void SpawnSneakPlat(Uint16 tileX, Uint16 tileY);\r
-void T_SneakPlat(objtype *ob);\r
-\r
-extern statetype s_cannon;\r
-extern statetype s_cannonfire;\r
-extern statetype s_cshot1;\r
-extern statetype s_cshot2;\r
-extern statetype s_cshot3;\r
-extern statetype s_cshot4;\r
-extern statetype s_cshothit1;\r
-extern statetype s_cshothit2;\r
-\r
-void SpawnCannon(Uint16 tileX, Uint16 tileY, Sint16 dir);\r
-void T_Cannon(objtype *ob);\r
-void C_CShot(objtype *ob, objtype *hit);\r
-void R_CShot(objtype *ob);\r
-\r
-/*\r
-=============================================================================\r
-\r
- K5_ACT2 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern statetype s_sparkywalk1;\r
-extern statetype s_sparkywalk2;\r
-extern statetype s_sparkywalk3;\r
-extern statetype s_sparkywalk4;\r
-extern statetype s_sparkylook1;\r
-extern statetype s_sparkylook2;\r
-extern statetype s_sparkylook3;\r
-extern statetype s_sparkylook4;\r
-extern statetype s_sparkylook5;\r
-extern statetype s_sparkylook6;\r
-extern statetype s_sparkylook7;\r
-extern statetype s_sparkylook8;\r
-extern statetype s_sparkyspeed1;\r
-extern statetype s_sparkyspeed2;\r
-extern statetype s_sparkyspeed3;\r
-extern statetype s_sparkyspeed4;\r
-extern statetype s_sparkycharge1;\r
-extern statetype s_sparkycharge2;\r
-extern statetype s_sparkycharge3;\r
-extern statetype s_sparkycharge4;\r
-extern statetype s_sparkyturn1;\r
-extern statetype s_sparkyturn2;\r
-extern statetype s_sparkyturn3;\r
-extern statetype s_sparkystun;\r
-\r
-void SpawnSparky(Uint16 tileX, Uint16 tileY);\r
-void T_Sparky(objtype *ob);\r
-void T_ChargeCount(objtype *ob);\r
-void T_SparkyLookL(objtype *ob);\r
-void T_SparkyLookR(objtype *ob);\r
-void T_RunSnd1(objtype *ob);\r
-void T_RunSnd2(objtype *ob);\r
-void C_Sparky(objtype *ob, objtype *hit);\r
-void R_Sparky(objtype *ob);\r
-\r
-extern statetype s_amptonwalk1;\r
-extern statetype s_amptonwalk2;\r
-extern statetype s_amptonwalk3;\r
-extern statetype s_amptonwalk4;\r
-extern statetype s_amptonturn;\r
-extern statetype s_amptongrab1;\r
-extern statetype s_amptongrab2;\r
-extern statetype s_amptonclimb;\r
-extern statetype s_amptonrelease1;\r
-extern statetype s_amptonrelease2;\r
-extern statetype s_amptonfiddle1;\r
-extern statetype s_amptonfiddle2;\r
-extern statetype s_amptonfiddle3;\r
-extern statetype s_amptonfiddle4;\r
-extern statetype s_amptonfiddle5;\r
-extern statetype s_amptonstun;\r
-\r
-void SpawnAmpton(Uint16 tileX, Uint16 tileY);\r
-void T_Ampton(objtype *ob);\r
-void T_AmptonClimb(objtype *ob);\r
-void T_SetNoThink(objtype *ob);\r
-void C_Ampton(objtype *ob, objtype *hit);\r
-void R_Ampton(objtype *ob);\r
-\r
-extern statetype s_slicestarslide;\r
-extern statetype s_slicestarbounce;\r
-extern statetype s_slicestarboom;\r
-\r
-void SpawnSlicestarSlide(Uint16 tileX, Uint16 tileY, Sint16 dir);\r
-void SpawnSlicestarBounce(Uint16 tileX, Uint16 tileY);\r
-void C_Slicestar(objtype *ob, objtype *hit);\r
-void R_Slicestar(objtype *ob);\r
-\r
-extern statetype s_shellywalk1;\r
-extern statetype s_shellywalk2;\r
-extern statetype s_shellywalk3;\r
-extern statetype s_shellywalk4;\r
-extern statetype s_shellylook;\r
-extern statetype s_shellylook2;\r
-extern statetype s_shellyjump1;\r
-extern statetype s_shellyjump2;\r
-extern statetype s_shellydie;\r
-extern statetype s_shellydieup;\r
-extern statetype s_shellyboom1;\r
-extern statetype s_shellyboom2;\r
-extern statetype s_shellyboom3;\r
-extern statetype s_shellyboom4;\r
-extern statetype s_shellypiece1;\r
-extern statetype s_shellypiece2;\r
-\r
-void SpawnShelly(Uint16 tileX, Uint16 tileY);\r
-void T_ShellyLook(objtype *ob);\r
-void T_Turn(objtype *ob);\r
-void T_ShellyFrag(objtype *ob);\r
-void C_Shelly(objtype *ob, objtype *hit);\r
-void R_Shelly(objtype *ob);\r
-void R_Shell(objtype *ob);\r
-\r
-/*\r
-=============================================================================\r
-\r
- K5_ACT3 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern statetype s_mine;\r
-extern statetype s_minecenter;\r
-extern statetype s_mineshift;\r
-extern statetype s_mineboom1;\r
-extern statetype s_mineboom2;\r
-extern statetype s_mineboom3;\r
-extern statetype s_mineboom4;\r
-extern statetype s_mineboom5;\r
-extern statetype s_mineboom6;\r
-extern statetype s_minepiece;\r
-\r
-void SpawnMine(Uint16 tileX, Uint16 tileY);\r
-boolean MinePosCheck(Uint16 tileX, Uint16 tileY);\r
-boolean Walk(objtype *ob, Sint16 dir);\r
-void ChaseThink(objtype *ob);\r
-void T_Mine(objtype *ob);\r
-void C_Solid(objtype *ob, objtype *hit);\r
-void C_MineFrag(objtype *ob, objtype *hit);\r
-void T_MineCenter(objtype *ob);\r
-void T_MineShift(objtype *ob);\r
-void T_MineFrag(objtype *ob);\r
-void R_Mine(objtype *ob);\r
-\r
-extern statetype s_robored;\r
-extern statetype s_roboredfire0;\r
-extern statetype s_roboredfire1;\r
-extern statetype s_roboredfire2;\r
-extern statetype s_rshot1;\r
-extern statetype s_rshot2;\r
-extern statetype s_rshothit1;\r
-extern statetype s_rshothit2;\r
-\r
-void SpawnRoboRed(Uint16 tileX, Uint16 tileY);\r
-void T_RoboRed(objtype *ob);\r
-void C_RoboRed(objtype *ob, objtype *hit);\r
-void T_RoboShoot(objtype *ob);\r
-void C_RShot(objtype *ob, objtype *hit);\r
-void R_RShot(objtype *ob);\r
-\r
-extern statetype s_gripsitd;\r
-extern statetype s_gripjumpd;\r
-extern statetype s_gripsitl;\r
-extern statetype s_gripjumpl;\r
-extern statetype s_gripsitr;\r
-extern statetype s_gripjumpr;\r
-extern statetype s_gripsitu;\r
-extern statetype s_gripjumpu;\r
-extern statetype s_gripspin1;\r
-extern statetype s_gripspin2;\r
-extern statetype s_gripspin3;\r
-extern statetype s_gripspin4;\r
-extern statetype s_gripspin5;\r
-extern statetype s_gripspin6;\r
-extern statetype s_gripspin7;\r
-extern statetype s_gripspin8;\r
-extern statetype s_gripflyd;\r
-extern statetype s_gripflyl;\r
-extern statetype s_gripflyr;\r
-extern statetype s_gripflyu;\r
-\r
-void SpawnSpirogrip(Uint16 tileX, Uint16 tileY);\r
-void T_SpiroLaunch(objtype *ob);\r
-void R_SpiroFly(objtype *ob);\r
-\r
-extern statetype s_spindred1;\r
-extern statetype s_spindred2;\r
-extern statetype s_spindred3;\r
-extern statetype s_spindred4;\r
-\r
-void SpawnSpindread(Uint16 tileX, Uint16 tileY);\r
-void T_Spindread(objtype *ob);\r
-void C_Spindread(objtype *ob, objtype *hit);\r
-void R_Spindread(objtype *ob);\r
-\r
-extern statetype s_master1;\r
-extern statetype s_master2;\r
-extern statetype s_master3;\r
-extern statetype s_master4;\r
-extern statetype s_mastershoot1;\r
-extern statetype s_mastershoot2;\r
-extern statetype s_mastertport1;\r
-extern statetype s_mastertport2;\r
-extern statetype s_mastertport3;\r
-extern statetype s_mastertport4;\r
-extern statetype s_mshot1;\r
-extern statetype s_mshot2;\r
-extern statetype s_mshot3;\r
-extern statetype s_mshot4;\r
-extern statetype s_mspray1;\r
-extern statetype s_mspray2;\r
-extern statetype s_mspray3;\r
-extern statetype s_mspray4;\r
-\r
-void SpawnMaster(Uint16 tileX, Uint16 tileY);\r
-void T_Master(objtype *ob);\r
-void T_MasterShoot(objtype *ob);\r
-void C_Master(objtype *ob, objtype *hit);\r
-void T_MasterTPort(objtype *ob);\r
-void C_MShot(objtype *ob, objtype *hit);\r
-void R_MShot(objtype *ob);\r
-void R_MSpray(objtype *ob);\r
-\r
-extern statetype s_shikadi1;\r
-extern statetype s_shikadi2;\r
-extern statetype s_shikadi3;\r
-extern statetype s_shikadi4;\r
-extern statetype s_shikadiwalk1;\r
-extern statetype s_shikadiwalk2;\r
-extern statetype s_shikadiwalk3;\r
-extern statetype s_shikadiwalk4;\r
-extern statetype s_shikadigrab;\r
-extern statetype s_shikadigrab2;\r
-extern statetype s_shikadistun;\r
-extern statetype s_polespark1;\r
-extern statetype s_polespark2;\r
-\r
-void SpawnShikadi(Uint16 tileX, Uint16 tileY);\r
-void T_Shikadi(objtype *ob);\r
-void C_Shikadi(objtype *ob, objtype *hit);\r
-void T_PoleShock(objtype *ob);\r
-void T_PoleSpark(objtype *ob);\r
-void R_Shikadi(objtype *ob);\r
-\r
-extern statetype s_petsit1;\r
-extern statetype s_petsit2;\r
-extern statetype s_petbark1;\r
-extern statetype s_petbark2;\r
-extern statetype s_pet1;\r
-extern statetype s_pet2;\r
-extern statetype s_pet3;\r
-extern statetype s_pet4;\r
-extern statetype s_petjump;\r
-extern statetype s_pshot1;\r
-extern statetype s_pshot2;\r
-extern statetype s_pshothot1;\r
-extern statetype s_pshothot2;\r
-extern statetype s_petstun;\r
-\r
-void SpawnPet(Uint16 tileX, Uint16 tileY);\r
-void T_Pet(objtype *ob);\r
-void T_PetSit(objtype *ob);\r
-void T_PetBark(objtype *ob);\r
-void C_Pet(objtype *ob, objtype *hit);\r
-void R_Pet(objtype *ob);\r
-void R_PetJump(objtype *ob);\r
-void C_PShot(objtype *ob, objtype *hit);\r
-void R_PShot(objtype *ob);\r
-\r
-extern statetype s_sphereful1;\r
-extern statetype s_sphereful2;\r
-extern statetype s_sphereful3;\r
-extern statetype s_sphereful4;\r
-\r
-void SpawnSphereful(Uint16 tileX, Uint16 tileY);\r
-void T_Sphereful(objtype *ob);\r
-void R_Sphereful(objtype *ob);\r
-\r
-extern statetype s_scottie1;\r
-extern statetype s_scottie2;\r
-extern statetype s_scottie3;\r
-extern statetype s_scottie4;\r
-extern statetype s_scottieface;\r
-extern statetype s_scottiestun;\r
-\r
-void SpawnScottie(Uint16 tileX, Uint16 tileY);\r
-void T_Scottie(objtype *ob);\r
-void C_Scottie(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_qed;\r
-\r
-void SpawnQed(Uint16 tileX, Uint16 tileY);\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K5_SPEC.C\r
-=========\r
-\r
-Contains (in this order):\r
-\r
-- lump definition\r
-- "Star Wars" crawl text\r
-- level names & messages\r
-- Airlock opening & closing code\r
-- ScanInfoPlane() - for spawning the level objects and marking required sprites\r
-- game over animation\r
-- messages for breaking fuses\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-enum {\r
- HELP_LUMP, // 0\r
- CONTROLS_LUMP, // 1\r
- KEENTALK_LUMP, // 2\r
- LOADING_LUMP, // 3\r
- PADDLE_LUMP, // 4\r
- KEEN_LUMP, // 5\r
- SUGAR1_LUMP, // 6\r
- SUGAR2_LUMP, // 7\r
- SUGAR3_LUMP, // 8\r
- SUGAR4_LUMP, // 9\r
- SUGAR5_LUMP, // 10\r
- SUGAR6_LUMP, // 11\r
- ONEUP_LUMP, // 12\r
- KEYGEM_LUMP, // 13\r
- AMMO_LUMP, // 14\r
- LASER_LUMP, // 15\r
- WORLDKEEN_LUMP, // 16\r
- MASTER_LUMP, // 17\r
- SHIKADI_LUMP, // 18\r
- SHOCKSHUND_LUMP, // 19\r
- SPHEREFUL_LUMP, // 20\r
- SPARKY_LUMP, // 21\r
- MINE_LUMP, // 22\r
- SLICESTAR_LUMP, // 23\r
- ROBORED_LUMP, // 24\r
- SPIRO_LUMP, // 25\r
- AMPTON_LUMP, // 26\r
- VOLTE_LUMP, // 27\r
- SLOTPLAT_LUMP, // 28\r
- SPINDRED_LUMP, // 29\r
- SHELLEY_LUMP, // 30\r
- PLATFORM_LUMP, // 31\r
- SMALLPLAT_LUMP, // 32\r
- KEYCARD_LUMP, // 33\r
- SCOTTIE_LUMP, // 34\r
- FUSE_LUMP, // 35\r
- STAREXPLODE_LUMP, // 36\r
- TELEPORT_LUMP, // 37\r
-\r
- NUMLUMPS=42 // Keen 5 has 4 unused lumps at the end\r
-};\r
-\r
-Uint16 lumpstart[NUMLUMPS] = {\r
- HELP_LUMP_START,\r
- CONTROLS_LUMP_START,\r
- KEENTALK_LUMP_START,\r
- LOADING_LUMP_START,\r
- PADDLE_LUMP_START,\r
- KEEN_LUMP_START,\r
- SUGAR1_LUMP_START,\r
- SUGAR2_LUMP_START,\r
- SUGAR3_LUMP_START,\r
- SUGAR4_LUMP_START,\r
- SUGAR5_LUMP_START,\r
- SUGAR6_LUMP_START,\r
- ONEUP_LUMP_START,\r
- KEYGEM_LUMP_START,\r
- AMMO_LUMP_START,\r
- LASER_LUMP_START,\r
- WORLDKEEN_LUMP_START,\r
- MASTER_LUMP_START,\r
- SHIKADI_LUMP_START,\r
- SHOCKSHUND_LUMP_START,\r
- SPHEREFUL_LUMP_START,\r
- SPARKY_LUMP_START,\r
- MINE_LUMP_START,\r
- SLICESTAR_LUMP_START,\r
- ROBORED_LUMP_START,\r
- SPIRO_LUMP_START,\r
- AMPTON_LUMP_START,\r
- VOLTE_LUMP_START,\r
- SLOTPLAT_LUMP_START,\r
- SPINDRED_LUMP_START,\r
- SHELLEY_LUMP_START,\r
- PLATFORM_LUMP_START,\r
- MINIPLAT_LUMP_START,\r
- KEYCARD_LUMP_START,\r
- SCOTTIE_LUMP_START,\r
- FUSE_LUMP_START,\r
- STAREXPLODE_LUMP_START,\r
- TELEPORT_LUMP_START\r
-};\r
-\r
-Uint16 lumpend[NUMLUMPS] = {\r
- HELP_LUMP_END,\r
- CONTROLS_LUMP_END,\r
- KEENTALK_LUMP_END,\r
- LOADING_LUMP_END,\r
- PADDLE_LUMP_END,\r
- KEEN_LUMP_END,\r
- SUGAR1_LUMP_END,\r
- SUGAR2_LUMP_END,\r
- SUGAR3_LUMP_END,\r
- SUGAR4_LUMP_END,\r
- SUGAR5_LUMP_END,\r
- SUGAR6_LUMP_END,\r
- ONEUP_LUMP_END,\r
- KEYGEM_LUMP_END,\r
- AMMO_LUMP_END,\r
- LASER_LUMP_END,\r
- WORLDKEEN_LUMP_END,\r
- MASTER_LUMP_END,\r
- SHIKADI_LUMP_END,\r
- SHOCKSHUND_LUMP_END,\r
- SPHEREFUL_LUMP_END,\r
- SPARKY_LUMP_END,\r
- MINE_LUMP_END,\r
- SLICESTAR_LUMP_END,\r
- ROBORED_LUMP_END,\r
- SPIRO_LUMP_END,\r
- AMPTON_LUMP_END,\r
- VOLTE_LUMP_END,\r
- SLOTPLAT_LUMP_END,\r
- SPINDRED_LUMP_END,\r
- SHELLEY_LUMP_END,\r
- PLATFORM_LUMP_END,\r
- MINIPLAT_LUMP_END,\r
- KEYCARD_LUMP_END,\r
- SCOTTIE_LUMP_END,\r
- FUSE_LUMP_END,\r
- STAREXPLODE_LUMP_END,\r
- TELEPORT_LUMP_END\r
-};\r
-\r
-boolean lumpneeded[NUMLUMPS];\r
-\r
-#if GRMODE == EGAGR\r
-\r
-char far swtext[] =\r
- "Episode Five\n"\r
- "\n"\r
- "The Armageddon Machine\n"\r
- "\n"\r
- "After learning the\n"\r
- "location of the secret\n"\r
- "Shikadi base, Keen\n"\r
- "jumped in the trusty\n"\r
- "Bean-with-Bacon\n"\r
- "Megarocket and blasted\n"\r
- "across interstellar\n"\r
- "space.\n"\r
- "\n"\r
- "Seventy-five furious\n"\r
- "games of Paddle War\n"\r
- "later, Keen dropped\n"\r
- "out of lightspeed near\n"\r
- " the Korath system.\n"\r
- "\n"\r
- "He flew toward the\n"\r
- "planet, keeping it\n"\r
- "between him and the\n"\r
- "base.\n"\r
- "\n"\r
- "Pulling up underside\n"\r
- "and docking at the\n"\r
- "Ion Ventilation System,\n"\r
- "Keen must destroy the\n"\r
- "Shikadi Armageddon\n"\r
- "Machine before it\n"\r
- "explodes and destroys\n"\r
- "the Milky Way! He\n"\r
- "steps into the dark\n"\r
- "ventilation duct and\n"\r
- "begins his most\n"\r
- "dangerous adventure\n"\r
- "yet...\n";\r
-\r
-#endif\r
-\r
-char far l0n[] = "Omegamatic";\r
-char far l1n[] = "Ion Ventilation System";\r
-char far l2n[] = "Security Center";\r
-char far l3n[] = "Defense Tunnel Vlook";\r
-char far l4n[] = "Energy Flow Systems";\r
-char far l5n[] = "Defense Tunnel Burrh";\r
-char far l6n[] = "Regulation\nControl Center";\r
-char far l7n[] = "Defense Tunnel Sorra";\r
-char far l8n[] = "Neutrino\nBurst Injector";\r
-char far l9n[] = "Defense Tunnel Teln";\r
-char far l10n[] = "Brownian\nMotion Inducer";\r
-char far l11n[] = "Gravitational\nDamping Hub";\r
-char far l12n[] = "Quantum\nExplosion Dynamo";\r
-char far l13n[] = "Korath III Base";\r
-char far l14n[] = "BWBMegarocket";\r
-char far l15n[] = "High Scores";\r
-\r
-char far l0e[] = "Keen purposefully\nwanders about the\nOmegamatic";\r
-char far l1e[] = "Keen investigates the\nIon Ventilation System";\r
-char far l2e[] = "Keen struts through\nthe Security Center";\r
-char far l3e[] = "Keen invades\nDefense Tunnel Vlook";\r
-char far l4e[] = "Keen engages\nEnergy Flow Systems";\r
-char far l5e[] = "Keen barrels into\nDefense Tunnel Burrh";\r
-char far l6e[] = "Keen goes nuts in\nthe Regulation\nControl Center";\r
-char far l7e[] = "Keen regrets entering\nDefense Tunnel Sorra";\r
-char far l8e[] = "Keen blows through\nthe Neutrino\nBurst Injector";\r
-char far l9e[] = "Keen trots through\nDefense Tunnel Teln";\r
-char far l10e[] = "Keen breaks into\nthe Brownian\nMotion Inducer";\r
-char far l11e[] = "Keen hurries through\nthe Gravitational\nDamping Hub";\r
-char far l12e[] = "Keen explodes into\nthe Quantum\nExplosion Dynamo";\r
-char far l13e[] = "Keen faces danger\nin the secret\nKorath III Base";\r
-char far l14e[] = "Keen will not be\nin the BWBMegarocket";\r
-char far l15e[] = "Keen unexplainedly\nfinds himself by\ntheHigh Scores"; // sic!\r
-\r
-char far *levelnames[GAMELEVELS] = {\r
- l0n,\r
- l1n,\r
- l2n,\r
- l3n,\r
- l4n,\r
- l5n,\r
- l6n,\r
- l7n,\r
- l8n,\r
- l9n,\r
- l10n,\r
- l11n,\r
- l12n,\r
- l13n,\r
- l14n,\r
- l15n\r
-};\r
-\r
-char far *levelenter[GAMELEVELS] = {\r
- l0e,\r
- l1e,\r
- l2e,\r
- l3e,\r
- l4e,\r
- l5e,\r
- l6e,\r
- l7e,\r
- l8e,\r
- l9e,\r
- l10e,\r
- l11e,\r
- l12e,\r
- l13e,\r
- l14e,\r
- l15e\r
-};\r
-\r
-Uint16 bonuslump[] = {\r
- KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP,\r
- SUGAR1_LUMP, SUGAR2_LUMP, SUGAR3_LUMP,\r
- SUGAR4_LUMP, SUGAR5_LUMP, SUGAR6_LUMP,\r
- ONEUP_LUMP, AMMO_LUMP, KEYCARD_LUMP, 0, 0\r
-};\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= OpenMapDoor\r
-=\r
-===========================\r
-*/\r
-\r
-void OpenMapDoor(Sint16 tileX, Sint16 tileY)\r
-{\r
- Sint16 x, y;\r
- Uint16 tiles[2][2];\r
-\r
- for (y=0; y<2; y++)\r
- {\r
- for (x=0; x<2; x++)\r
- {\r
- tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + x + 10);\r
- }\r
- }\r
- RF_MemToMap(&tiles[0][0], 1, tileX, tileY, 2, 2);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= CloseMapDoor\r
-=\r
-===========================\r
-*/\r
-\r
-void CloseMapDoor(Sint16 tileX, Sint16 tileY)\r
-{\r
- Sint16 x, y;\r
- Uint16 tiles[2][2];\r
-\r
- for (y=0; y<2; y++)\r
- {\r
- for (x=0; x<2; x++)\r
- {\r
- tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + x);\r
- }\r
- }\r
- RF_MemToMap(&tiles[0][0], 1, tileX, tileY, 2, 2);\r
-}\r
-\r
-//============================================================================\r
-\r
-/*\r
-==========================\r
-=\r
-= ScanInfoPlane\r
-=\r
-= Spawn all actors and mark down special places\r
-=\r
-==========================\r
-*/\r
-\r
-void ScanInfoPlane(void)\r
-{\r
- Uint16 i, x, y, chunk;\r
- Sint16 info;\r
- Uint16 far *map;\r
- objtype *ob;\r
-\r
- InitObjArray(); // start spawning things with a clean slate\r
-\r
- memset(lumpneeded, 0, sizeof(lumpneeded));\r
- gamestate.numfuses = 0;\r
-\r
- map = mapsegs[2];\r
-\r
- for (y=0; y<mapheight; y++)\r
- {\r
- for (x=0; x<mapwidth; x++)\r
- {\r
- info = *map++;\r
-\r
- if (info == 0)\r
- continue;\r
-\r
- switch (info)\r
- {\r
- case 1:\r
- SpawnKeen(x, y, 1);\r
- SpawnScore();\r
- lumpneeded[KEEN_LUMP] = true;\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- break;\r
-\r
- case 2:\r
- SpawnKeen(x, y, -1);\r
- SpawnScore();\r
- lumpneeded[KEEN_LUMP] = true;\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- break;\r
-\r
- case 3:\r
- SpawnScore();\r
- lumpneeded[WORLDKEEN_LUMP] = true;\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- if (playstate == ex_portout)\r
- break;\r
- SpawnWorldKeen(x, y);\r
- break;\r
-\r
- case 26:\r
- if (playstate != ex_portout)\r
- break;\r
- SpawnWorldKeenPort(x, y);\r
- break;\r
-\r
- case 6:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 5:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 4:\r
- SpawnSparky(x, y);\r
- lumpneeded[SPARKY_LUMP] = true;\r
- break;\r
-\r
- case 9:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 8:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 7:\r
- SpawnMine(x, y);\r
- lumpneeded[MINE_LUMP] = true;\r
- break;\r
-\r
- case 12:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 11:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 10:\r
- SpawnSlicestarSlide(x, y, 0);\r
- lumpneeded[SLICESTAR_LUMP] = true;\r
- break;\r
-\r
- case 15:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 14:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 13:\r
- SpawnRoboRed(x, y);\r
- lumpneeded[ROBORED_LUMP] = true;\r
- break;\r
-\r
- case 18:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 17:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 16:\r
- SpawnSpirogrip(x, y);\r
- lumpneeded[SPIRO_LUMP] = true;\r
- break;\r
-\r
- case 21:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 20:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 19:\r
- SpawnSlicestarBounce(x, y);\r
- lumpneeded[SLICESTAR_LUMP] = true;\r
- break;\r
-\r
- case 24:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 23:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 22:\r
- SpawnSlicestarSlide(x, y, 1);\r
- lumpneeded[SLICESTAR_LUMP] = true;\r
- break;\r
-\r
- case 25:\r
- RF_SetScrollBlock(x, y, true);\r
- break;\r
-\r
- // case 26 (teleported map keen) is handled above\r
-\r
- case 27:\r
- case 28:\r
- case 29:\r
- case 30:\r
- SpawnPlatform(x, y, info-27, 0);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- // case 31 is the block icon\r
-\r
- case 32:\r
- SpawnDropPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- case 35:\r
- SpawnStaticPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
- case 34:\r
- if (gamestate.difficulty > gd_Normal)\r
- break;\r
- SpawnStaticPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
- case 33:\r
- if (gamestate.difficulty > gd_Easy)\r
- break;\r
- SpawnStaticPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- case 36:\r
- case 37:\r
- case 38:\r
- case 39:\r
- SpawnGoPlat(x, y, info-36, 0);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- case 40:\r
- SpawnSneakPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- case 41:\r
- if (gamestate.mapon == 12)\r
- {\r
- gamestate.numfuses = 4;\r
- SpawnQed(x, y);\r
- }\r
- else\r
- {\r
- gamestate.numfuses++;\r
- }\r
- lumpneeded[FUSE_LUMP] = true;\r
- break;\r
-\r
- case 44:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 43:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 42:\r
- SpawnAmpton(x, y);\r
- lumpneeded[AMPTON_LUMP] = true;\r
- break;\r
-\r
- case 53:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 49:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 45:\r
- SpawnCannon(x, y, 0);\r
- lumpneeded[LASER_LUMP] = true;\r
- break;\r
-\r
- case 54:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 50:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 46:\r
- SpawnCannon(x, y, 1);\r
- lumpneeded[LASER_LUMP] = true;\r
- break;\r
-\r
- case 55:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 51:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 47:\r
- SpawnCannon(x, y, 2);\r
- lumpneeded[LASER_LUMP] = true;\r
- break;\r
-\r
- case 56:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 52:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 48:\r
- SpawnCannon(x, y, 3);\r
- lumpneeded[LASER_LUMP] = true;\r
- break;\r
-\r
- case 69:\r
- if (gamestate.ammo >= 5)\r
- break;\r
- info = 68; // spawn ammo\r
- //no break here!\r
- case 57:\r
- case 58:\r
- case 59:\r
- case 60:\r
- case 61:\r
- case 62:\r
- case 63:\r
- case 64:\r
- case 65:\r
- case 66:\r
- case 67:\r
- case 68:\r
- SpawnBonus(x, y, info-57);\r
- lumpneeded[bonuslump[info-57]] = true;\r
- break;\r
- case 70:\r
- SpawnBonus(x, y, info-58);\r
- lumpneeded[bonuslump[info-58]] = true;\r
- break;\r
-\r
- case 73:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 72:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 71:\r
- SpawnVolte(x, y);\r
- lumpneeded[VOLTE_LUMP] = true;\r
- break;\r
-\r
- case 76:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 75:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 74:\r
- SpawnShelly(x, y);\r
- lumpneeded[SHELLEY_LUMP] = true;\r
- break;\r
-\r
- case 79:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 78:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 77:\r
- SpawnSpindread(x, y);\r
- lumpneeded[SPINDRED_LUMP] = true;\r
- break;\r
-\r
- case 80:\r
- case 81:\r
- case 82:\r
- case 83:\r
- SpawnGoPlat(x, y, info-80, 1);\r
- lumpneeded[SLOTPLAT_LUMP] = true;\r
- break;\r
-\r
- case 84:\r
- case 85:\r
- case 86:\r
- case 87:\r
- SpawnPlatform(x, y, info-84, 1);\r
- lumpneeded[SLOTPLAT_LUMP] = true;\r
- break;\r
-\r
- case 90:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 89:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 88:\r
- SpawnMaster(x, y);\r
- lumpneeded[MASTER_LUMP] = true;\r
- break;\r
-\r
- // cases 91 to 98 are direction arrows\r
-\r
- case 101:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 100:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 99:\r
- SpawnShikadi(x, y);\r
- lumpneeded[SHIKADI_LUMP] = true;\r
- break;\r
-\r
- case 104:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 103:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 102:\r
- SpawnPet(x, y);\r
- lumpneeded[SHOCKSHUND_LUMP] = true;\r
- break;\r
-\r
- case 107:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 106:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 105:\r
- SpawnSphereful(x, y);\r
- lumpneeded[SPHEREFUL_LUMP] = true;\r
- break;\r
-\r
- // cases 108 to 123 are wall collision icons for the WallDebug cheat\r
-\r
- case 124:\r
- SpawnScottie(x, y);\r
- lumpneeded[SCOTTIE_LUMP] = true;\r
- break;\r
-\r
- case 125:\r
- lumpneeded[TELEPORT_LUMP] = true;\r
-\r
- }\r
- }\r
- }\r
-\r
- for (ob = player; ob; ob = ob->next)\r
- {\r
- if (ob->active != ac_allways)\r
- ob->active = ac_no;\r
- }\r
-\r
- for (i = 0; i < NUMLUMPS; i++)\r
- {\r
- if (lumpneeded[i])\r
- {\r
- for (chunk = lumpstart[i]; chunk <= lumpend[i]; chunk++)\r
- {\r
- CA_MarkGrChunk(chunk);\r
- }\r
- }\r
- }\r
-\r
- // Keen 5 addition to PatchWorldMap (PatchWorldMap is shared across Keen 4-6)\r
- if (gamestate.mapon == 0)\r
- {\r
- info = CONVERT_GLOBAL_TO_TILE(player->y);\r
- if (info < 75 || info > 100)\r
- {\r
- CloseMapDoor(24, 76);\r
- OpenMapDoor(22, 55);\r
- }\r
- if (gamestate.leveldone[4] && gamestate.leveldone[6] && gamestate.leveldone[8] && gamestate.leveldone[10]\r
- && (info > 39 || info > 100) )\r
- {\r
- OpenMapDoor(26, 55);\r
- }\r
- if (info <= 39 || info > 100)\r
- {\r
- OpenMapDoor(24, 30);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- GAME OVER SEQUENCE\r
-\r
-=============================================================================\r
-*/\r
-\r
-/*\r
-------------------------------------------------------------------------------\r
-The galaxy explosion chunk contains data in the following format:\r
-\r
-struct {\r
- Uint16 posx[4000];\r
- Uint16 velx[4000];\r
- Uint16 posy[4000];\r
- Uint16 vely[4000];\r
-};\r
-\r
-The values are stored as "fixed point" numbers (divide each number by 128 to\r
-get the amount in pixel units). The code in MoveStars basically does the\r
-following:\r
-\r
-1. set all pixels on the screen to black\r
-\r
-2. for each of the 4000 entries do:\r
-\r
-2.1 x := posx[i] + velx[i]\r
-\r
-2.2 if x (in pixels) is < 0 or > 320 then go to 2.8\r
-\r
-2.3 posx[i] := x\r
-\r
-2.4 y := posy[i] + vely[i]\r
-\r
-2.5 if y (in pixels) is < 0 or > 200 then go to 2.8\r
-\r
-2.6 posy[i] := y\r
-\r
-2.7 draw a white pixel at position (x, y) on the screen\r
-\r
-2.8 continue with the next entry\r
-\r
-------------------------------------------------------------------------------\r
-*/\r
-\r
-#if GRMODE == CGAGR\r
-\r
-Uint8 plotpixels[8] = {0xC0, 0x30, 0x0C, 0x03};\r
-\r
-/*\r
-===========================\r
-=\r
-= MoveStars CGA\r
-=\r
-===========================\r
-*/\r
-\r
-void MoveStars(void)\r
-{\r
- asm {\r
- mov ax, screenseg;\r
- mov es, ax;\r
- mov ds, word ptr grsegs + 2*GALAXY;\r
- mov cx, 2000h;\r
- xor ax, ax;\r
- xor di, di;\r
- rep stosw;\r
- mov si, 7998;\r
- }\r
-l1:\r
- asm {\r
- mov ax, [si]; // get posx\r
- add ax, [si+8000]; // add velx\r
- cmp ax, 40960; // check if new posx is on screen\r
- ja l2;\r
- mov [si], ax; // set new posx\r
- mov bx, [si+16000]; // get posy\r
- add bx, [si+24000]; // add vely\r
- cmp bx, 25600; // check if new posy is on screen\r
- ja l2;\r
- mov [si+16000], bx; // set new posy\r
- mov cl, 7;\r
- shr bx, cl;\r
- shl bx, 1;\r
- mov di, word ptr ss:ylookup[bx];\r
- mov bx, ax;\r
- mov cl, 9;\r
- shr ax, cl;\r
- add di, ax;\r
- mov cl, 7;\r
- shr bx, cl;\r
- and bx, 3;\r
- mov al, BYTE PTR ss:plotpixels[bx];\r
- or es:[di], al; // draw the pixel\r
- }\r
-l2:\r
- asm {\r
- sub si, 2;\r
- jns l1;\r
- mov ax, ss;\r
- mov ds, ax;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= GameOver CGA\r
-=\r
-===========================\r
-*/\r
-\r
-void GameOver(void)\r
-{\r
- Sint16 i;\r
-\r
- FreeGraphics();\r
- CA_CacheGrChunk(MILKYWAYPIC);\r
- CA_CacheGrChunk(GALAXY);\r
- CA_CacheGrChunk(GAMEOVERPIC);\r
- RF_FixOfs();\r
- VW_ClearVideo(BLACK);\r
- VWB_DrawPic(0, 0, MILKYWAYPIC);\r
- VW_UpdateScreen();\r
-\r
- SD_WaitSoundDone();\r
- SD_PlaySound(SND_GAMEOVER2);\r
- SD_WaitSoundDone();\r
- SD_PlaySound(SND_GAMEOVER1);\r
-\r
- IN_ClearKeysDown();\r
- VW_SetLineWidth(80);\r
-\r
- for (i=0; i<60; i++)\r
- {\r
- lasttimecount = TimeCount;\r
- MoveStars();\r
- VW_UpdateScreen();\r
-\r
- do {} while (TimeCount-lasttimecount < 4);\r
-\r
- if (LastScan)\r
- break;\r
- }\r
-\r
- VW_SetLineWidth(SCREENWIDTH);\r
- VW_ClearVideo(BLACK);\r
- StartMusic(18);\r
- VWB_DrawPic(32, 80, GAMEOVERPIC);\r
- VW_UpdateScreen();\r
- IN_UserInput(24*TickBase, false);\r
- StopMusic();\r
-}\r
-\r
-//============================================================================\r
-\r
-#else\r
-\r
-Uint16 dim[18] = {8, 8, 7, 15, 7, 8, 0, 8, 7, 15, 7, 8, 0, 0, 0, 0, 0, 0};\r
-Uint16 bright[18] = {7, 7, 7, 7, 7, 15, 7, 8, 0, 7, 15, 7, 8, 0, 0, 0, 0, 0};\r
-Uint8 galaxycolors[17] = {0, 1, 2, 3, 4, 5, 6, 7, 0x18, 0x19, 0x1A, 0x1B, 0x1C, 0x1D, 0x1E, 0x1F, 3};\r
-Uint8 plotpixels[8] = {0x80, 0x40, 0x20, 0x10, 0x08, 0x04, 0x02, 0x01};\r
-\r
-/*\r
-===========================\r
-=\r
-= MoveStars EGA\r
-=\r
-===========================\r
-*/\r
-\r
-void MoveStars(Uint16 dest)\r
-{\r
- asm {\r
- mov dx, GC_INDEX;\r
- mov al, GC_BITMASK;\r
- out dx, al;\r
- inc dx;\r
- mov ds, word ptr grsegs + 2*GALAXY;\r
- mov ax, 0A000h;\r
- mov es, ax;\r
- mov cx, 1000h;\r
- xor ax, ax;\r
- mov di, dest;\r
- rep stosw;\r
- mov si, 7998;\r
- }\r
-l1:\r
- asm {\r
- mov ax, [si]; // get posx\r
- add ax, [si+8000]; // add velx\r
- cmp ax, 40960; // check if new posx is on screen\r
- ja l2;\r
- mov [si], ax; // set new posx\r
- mov bx, [si+16000]; // get posy\r
- add bx, [si+24000]; // add vely\r
- cmp bx, 25600; // check if new posy is on screen\r
- ja l2;\r
- mov [si+16000], bx; // set new posy\r
- mov cl, 7;\r
- shr bx, cl;\r
- shl bx, 1;\r
- mov di, word ptr ss:ylookup[bx];\r
- add di, dest;\r
- mov bx, ax;\r
- mov cl, 10;\r
- shr ax, cl;\r
- add di, ax;\r
- mov cl, 7;\r
- shr bx, cl;\r
- and bx, 7;\r
- mov al, BYTE PTR ss:plotpixels[bx];\r
- out dx, al;\r
- mov al, 0Fh;\r
- xchg al, es:[di]; // draw the pixel\r
- }\r
-l2:\r
- asm {\r
- sub si, 2;\r
- jns l1;\r
- mov ax, ss;\r
- mov ds, ax;\r
- mov al, 0FFh;\r
- out dx, al;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= SetCrtc EGA\r
-=\r
-===========================\r
-*/\r
-\r
-void SetCrtc(Uint16 addr)\r
-{\r
- asm {\r
- cli;\r
- mov cx, addr;\r
- mov dx, CRTC_INDEX;\r
- mov al, CRTC_STARTHIGH;\r
- out dx, al;\r
- inc dx;\r
- mov al, ch;\r
- out dx, al;\r
- dec dx;\r
- mov al, CRTC_STARTLOW;\r
- out dx, al;\r
- inc dx;\r
- mov al, cl;\r
- out dx, al;\r
- sti;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= GameOver EGA\r
-=\r
-===========================\r
-*/\r
-\r
-void GameOver(void)\r
-{\r
- Sint16 i;\r
-\r
- FreeGraphics();\r
- VW_FadeOut();\r
- CA_CacheGrChunk(MILKYWAYPIC);\r
- CA_CacheGrChunk(GALAXY);\r
- CA_CacheGrChunk(GAMEOVERPIC);\r
- VW_SetLineWidth(40);\r
- VW_SetScreen(0, 0);\r
- bufferofs = 0;\r
- VW_ClearVideo(0);\r
- VW_DrawPic(0, 0, MILKYWAYPIC);\r
- VW_ScreenToScreen(0, 0x2000, 40, 200);\r
- VW_FadeIn();\r
- IN_ClearKeysDown();\r
- SD_PlaySound(SND_GAMEOVER2);\r
-\r
- for (i=0; i<18; i++)\r
- {\r
- galaxycolors[8] = dim[i];\r
- galaxycolors[7] = bright[i];\r
-\r
- SetPalette(galaxycolors);\r
-\r
- VW_WaitVBL(10);\r
- if (LastScan)\r
- goto gameover;\r
- }\r
-\r
- EGAWRITEMODE(2);\r
- EGAMAPMASK(15);\r
- SD_PlaySound(SND_GAMEOVER1);\r
-\r
- for (i=0; i<30; i++)\r
- {\r
- lasttimecount = TimeCount;\r
- MoveStars(0x2000);\r
- SetCrtc(0x2000);\r
- do {} while (TimeCount-lasttimecount < 4);\r
-\r
- lasttimecount = TimeCount;\r
- MoveStars(0);\r
- SetCrtc(0);\r
- do {} while (TimeCount-lasttimecount < 4);\r
-\r
- if (LastScan)\r
- goto gameover;\r
- }\r
-\r
-gameover:\r
- EGAWRITEMODE(0);\r
- VW_ClearVideo(BLACK);\r
- VW_SetLineWidth(SCREENWIDTH);\r
- VW_SetDefaultColors();\r
- RF_FixOfs();\r
- StartMusic(18);\r
- VWB_DrawPic(32, 80, GAMEOVERPIC);\r
- VW_UpdateScreen();\r
- IN_UserInput(24*TickBase, false);\r
- StopMusic();\r
-}\r
-\r
-#endif\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= FinishedFuse\r
-=\r
-===========================\r
-*/\r
-\r
-void FinishedFuse(void)\r
-{\r
- SD_WaitSoundDone();\r
- CA_UpLevel();\r
-#if 0\r
- // bugfix:\r
- CA_ClearMarks(); // don't cache more than we actually need here\r
-#endif\r
- CA_MarkGrChunk(KEENTALK1PIC);\r
- CA_MarkGrChunk(KEENTALK2PIC);\r
- CA_CacheMarks(NULL);\r
-\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(26, 8);\r
- WindowW -= 48;\r
- VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK1PIC);\r
- PrintY += 12;\r
- if (gamestate.mapon == 13)\r
- {\r
- US_CPrint(\r
- "I wonder what that\n"\r
- "fuse was for....\n"\r
- );\r
- }\r
- else\r
- {\r
- US_CPrint(\r
- "One of the four\n"\r
- "machines protecting the\n"\r
- "main elevator shaft--\n"\r
- "toast!\n"\r
- );\r
- }\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- VWB_DrawPic(WindowX+WindowW, WindowY, KEENTALK2PIC);\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
-\r
- CA_DownLevel();\r
- StopMusic();\r
-}
\ No newline at end of file
+++ /dev/null
-;=====================================\r
-;\r
-; Graphics .EQU file for .CK5\r
-; not IGRAB-ed :)\r
-;\r
-;=====================================\r
-\r
-;INCLUDE "VERSION.EQU"\r
-\r
-;\r
-; Amount of each data item\r
-;\r
-NUMFONT = 2\r
-NUMFONTM = 0\r
-NUMPICM = 3\r
-NUMTILE8 = 108\r
-NUMTILE8M = 36\r
-NUMTILE32 = 0\r
-NUMTILE32M = 0\r
-\r
-;\r
-; Amount of each item in episode 5\r
-;\r
-NUMPICS = 94\r
-NUMSPRITES = 346\r
-NUMTILE16 = 1512\r
-NUMTILE16M = 2952\r
-NUMEXTERN = 17\r
-\r
-\r
-;\r
-; File offsets for data items\r
-;\r
-STRUCTPIC = 0\r
-STRUCTPICM = 1\r
-STRUCTSPRITE = 2\r
-\r
-STARTFONT = 3\r
-STARTFONTM = (STARTFONT+NUMFONT)\r
-STARTPICS = (STARTFONTM+NUMFONTM)\r
-STARTPICM = (STARTPICS+NUMPICS)\r
-STARTSPRITES = (STARTPICM+NUMPICM)\r
-STARTTILE8 = (STARTSPRITES+NUMSPRITES)\r
-STARTTILE8M = (STARTTILE8+1)\r
-STARTTILE16 = (STARTTILE8M+1)\r
-STARTTILE16M = (STARTTILE16+NUMTILE16)\r
-STARTTILE32 = (STARTTILE16M+NUMTILE16M)\r
-STARTTILE32M = (STARTTILE32+NUMTILE32)\r
-STARTEXTERN = (STARTTILE32M+NUMTILE32M)\r
-\r
-NUMCHUNKS = (STARTEXTERN+NUMEXTERN)\r
-\r
-;\r
-; Thank you for using IGRAB!\r
-;\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __GFX_H__\r
-#define __GFX_H__\r
-\r
-//#include "VERSION.H"\r
-\r
-//////////////////////////////////////\r
-//\r
-// Graphics .H file for .CK5\r
-// not IGRAB-ed :)\r
-//\r
-//////////////////////////////////////\r
-\r
-//\r
-// Lump creation macros\r
-//\r
-\r
-#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1,\r
-#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1,\r
-\r
-//\r
-// Amount of each data item\r
-//\r
-\r
-//common numbers:\r
-#define NUMCHUNKS NUMGRCHUNKS\r
-#define NUMFONT 2\r
-#define NUMFONTM 0\r
-#define NUMPICM 3\r
-#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH!\r
-#define NUMTILE8M 36 // BUG: only 20 tiles exist in EGAGRAPH!\r
-#define NUMTILE32 0\r
-#define NUMTILE32M 0\r
-\r
-//episode-specific numbers:\r
-#define NUMPICS 94\r
-#define NUMSPRITES 346\r
-#define NUMTILE16 1512\r
-#define NUMTILE16M 2952\r
-#define NUMEXTERNS 15\r
-\r
-//\r
-// File offsets for data items\r
-//\r
-#define STRUCTPIC 0\r
-#define STRUCTPICM 1\r
-#define STRUCTSPRITE 2\r
-\r
-#define STARTFONT 3\r
-#define STARTFONTM (STARTFONT+NUMFONT)\r
-#define STARTPICS (STARTFONTM+NUMFONTM)\r
-#define STARTPICM (STARTPICS+NUMPICS)\r
-#define STARTSPRITES (STARTPICM+NUMPICM)\r
-#define STARTTILE8 (STARTSPRITES+NUMSPRITES)\r
-#define STARTTILE8M (STARTTILE8+1)\r
-#define STARTTILE16 (STARTTILE8M+1)\r
-#define STARTTILE16M (STARTTILE16+NUMTILE16)\r
-#define STARTTILE32 (STARTTILE16M+NUMTILE16M)\r
-#define STARTTILE32M (STARTTILE32+NUMTILE32)\r
-#define STARTEXTERNS (STARTTILE32M+NUMTILE32M)\r
-\r
-typedef enum {\r
- // Lump Start\r
-\r
- LASTFONT=STARTPICS-1,\r
-\r
- PADDINGPIC, // 5 (compensate for the missing Star Wars font to give the other pics the correct chunk numbers)\r
-\r
- START_LUMP(HELP_LUMP_START, __HELPSTART)\r
- H_HELPPIC, // 6\r
- H_LARROWPIC, // 7\r
- H_RARROWPIC, // 8\r
- H_ESCPIC, // 9\r
- H_ENTERPIC, // 10\r
- H_BOTTOMINSTRPIC, // 11\r
- H_GUMPIC, // 12\r
- H_MARSHMALLOWPIC, // 13\r
- H_CHOCMILKPIC, // 14\r
- H_TARTSTIXPIC, // 15\r
- H_STOOPIESPIC, // 16\r
- H_SUGARPIC, // 17\r
- H_VITALINPIC, // 18\r
- H_STUNNERPIC, // 19\r
- H_GEMPIC, // 20\r
- H_KEGPIC, // 21\r
- H_ENDOFTEXTPIC, // 22\r
- H_HELPMENUPIC, // 23\r
- H_HANDPIC, // 24\r
- H_ARROWSENTERESCPIC, // 25\r
- H_FLASHARROW1PIC, // 26\r
- H_FLASHARROW2PIC, // 27\r
- H_TOPWINDOWPIC, // 28\r
- H_LEFTWINDOWPIC, // 29\r
- H_RIGHTWINDOWPIC, // 30\r
- H_BOTTOMINFOPIC, // 31\r
- H_BOTTOMWINDOWPIC, // 32\r
- H_BARPIC, // 33\r
- H_SPARKYPIC, // 34\r
- H_AMPTONPIC, // 35\r
- H_SLICESTARPIC, // 36\r
- H_VOLTEFACEPIC, // 37\r
- H_ROBOREDPIC, // 38\r
- H_SHELLEYPIC, // 39\r
- H_SPIROGRIPPIC, // 40\r
- H_MINEPIC, // 41\r
- H_SPINDREDPIC, // 42\r
- H_SHIKADIPIC, // 43\r
- H_SPHEREFULPIC, // 44\r
- H_PETPIC, // 45\r
- H_MASTERPIC, // 46\r
- H_IDLOGOPIC, // 47\r
- H_STORY1PIC, // 48\r
- H_STORY2PIC, // 49\r
- H_STORY3PIC, // 50\r
- H_STORY4PIC, // 51\r
- H_VISAPIC, // 52\r
- H_MCPIC, // 53\r
- H_KEENTHUMBSUPPIC, // 54\r
- H_END1PIC, // 55\r
- H_END2PIC, // 56\r
- H_END3PIC, // 57\r
- H_END4PIC, // 58\r
- H_END5PIC, // 59\r
- H_END6PIC, // 60\r
- H_END7PIC, // 61\r
- H_END8PIC, // 62\r
- H_CONGRATSPIC, // 63\r
- H_KEENFEEDSPIC, // 64\r
- H_DOORCARDPIC, // 65\r
- H_KEEN6PIC, // 66\r
- END_LUMP(HELP_LUMP_END, __HELPEND)\r
-\r
- START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART)\r
- CP_MAINMENUPIC, // 67\r
- CP_NEWGAMEMENUPIC, // 68\r
- CP_LOADMENUPIC, // 69\r
- CP_SAVEMENUPIC, // 70\r
- CP_CONFIGMENUPIC, // 71\r
- CP_SOUNDMENUPIC, // 72\r
- CP_MUSICMENUPIC, // 73\r
- CP_KEYBOARDMENUPIC, // 74\r
- CP_KEYMOVEMENTPIC, // 75\r
- CP_KEYBUTTONPIC, // 76\r
- CP_JOYSTICKMENUPIC, // 77\r
- CP_OPTIONSMENUPIC, // 78\r
- CP_PADDLEWARPIC, // 79\r
- CP_QUITPIC, // 80\r
- CP_JOYSTICKPIC, // 81\r
- CP_MENUSCREENPIC, // 82\r
- END_LUMP(CONTROLS_LUMP_END, __COLTROLSEND)\r
-\r
- START_LUMP(_LUMP_START, __START)\r
- IDSOFTPIC, // 83\r
- PROGTEAMPIC, // 84\r
- ARTISTPIC, // 85\r
- DIRECTORPIC, // 86\r
- SW_BACKGROUNDPIC, // 87\r
- TITLEPICPIC, // 88\r
- MILKYWAYPIC, // 89\r
- END_LUMP(_LUMP_END, __END)\r
-\r
- START_LUMP(KEENTALK_LUMP_START, __KEENTALKSTART)\r
- KEENTALK1PIC, // 90\r
- KEENTALK2PIC, // 91\r
- END_LUMP(KEENTALK_LUMP_END, __KEENTALKEND)\r
-\r
- START_LUMP(LOADING_LUMP_START, __LOADINGSTART)\r
- KEENCOUNT1PIC, // 92\r
- KEENCOUNT2PIC, // 93\r
- KEENCOUNT3PIC, // 94\r
- KEENCOUNT4PIC, // 95\r
- KEENCOUNT5PIC, // 96\r
- KEENCOUNT6PIC, // 97\r
- END_LUMP(LOADING_LUMP_END, __LOADINGEND)\r
-\r
- GAMEOVERPIC, // 98\r
-\r
- CP_MENUMASKPICM, // 99\r
- CORDPICM, // 100\r
- METALPOLEPICM, // 101\r
-\r
- //\r
- // SPRITES\r
- //\r
-\r
- START_LUMP(PADDLE_LUMP_START, __PADDLESTART)\r
- PADDLESPR, // 102\r
- BALLSPR, // 103\r
- BALL1PIXELTOTHERIGHTSPR, // 104\r
- BALL2PIXELSTOTHERIGHTSPR, // 105\r
- BALL3PIXELSTOTHERIGHTSPR, // 106\r
- END_LUMP(PADDLE_LUMP_END, __PADDLEEND)\r
-\r
- DEMOPLAQUESPR, // 107\r
-\r
- START_LUMP(KEEN_LUMP_START, __KEENSTART)\r
- KEENSTANDRSPR, // 108\r
- KEENRUNR1SPR, // 109\r
- KEENRUNR2SPR, // 110\r
- KEENRUNR3SPR, // 111\r
- KEENRUNR4SPR, // 112\r
- KEENJUMPR1SPR, // 113\r
- KEENJUMPR2SPR, // 114\r
- KEENJUMPR3SPR, // 115\r
- KEENSTANDLSPR, // 116\r
- KEENRUNL1SPR, // 117\r
- KEENRUNL2SPR, // 118\r
- KEENRUNL3SPR, // 119\r
- KEENRUNL4SPR, // 120\r
- KEENJUMPL1SPR, // 121\r
- KEENJUMPL2SPR, // 122\r
- KEENJUMPL3SPR, // 123\r
- KEENLOOKUSPR, // 124\r
- KEENWAITR1SPR, // 125\r
- KEENWAITR2SPR, // 126\r
- KEENWAITR3SPR, // 127\r
- KEENSITREAD1SPR, // 128\r
- KEENSITREAD2SPR, // 129\r
- KEENSITREAD3SPR, // 130\r
- KEENSITREAD4SPR, // 131\r
- KEENREAD1SPR, // 132\r
- KEENREAD2SPR, // 133\r
- KEENREAD3SPR, // 134\r
- KEENSTOPREAD1SPR, // 135\r
- KEENSTOPREAD2SPR, // 136\r
- KEENLOOKD1SPR, // 137\r
- KEENLOOKD2SPR, // 138\r
- KEENONPLATSPR, // 139\r
- KEENDIE1SPR, // 140\r
- KEENDIE2SPR, // 141\r
- KEENSTUNSPR, // 142\r
- STUNSTARS1SPR, // 143\r
- STUNSTARS2SPR, // 144\r
- STUNSTARS3SPR, // 145\r
- KEENSHOOTLSPR, // 146\r
- KEENJLSHOOTLSPR, // 147\r
- KEENJSHOOTDSPR, // 148\r
- KEENJSHOOTUSPR, // 149\r
- KEENSHOOTUSPR, // 150\r
- KEENSHOOTRSPR, // 151\r
- KEENJRSHOOTRSPR, // 152\r
- STUN1SPR, // 153\r
- STUN2SPR, // 154\r
- STUN3SPR, // 155\r
- STUN4SPR, // 156\r
- STUNHIT1SPR, // 157\r
- STUNHIT2SPR, // 158\r
- KEENSHINNYR1SPR, // 159\r
- KEENSHINNYR2SPR, // 160\r
- KEENSHINNYR3SPR, // 161\r
- KEENSLIDED1SPR, // 162\r
- KEENSLIDED2SPR, // 163\r
- KEENSLIDED3SPR, // 164\r
- KEENSLIDED4SPR, // 165\r
- KEENSHINNYL1SPR, // 166\r
- KEENSHINNYL2SPR, // 167\r
- KEENSHINNYL3SPR, // 168\r
- KEENPLSHOOTUSPR, // 169\r
- KEENPRSHOOTUSPR, // 170\r
- KEENPRSHOOTDSPR, // 171\r
- KEENPLSHOOTDSPR, // 172\r
- KEENPSHOOTLSPR, // 173\r
- KEENPSHOOTRSPR, // 174\r
- KEENENTER1SPR, // 175\r
- KEENENTER2SPR, // 176\r
- KEENENTER3SPR, // 177\r
- KEENENTER4SPR, // 178\r
- KEENENTER5SPR, // 179\r
- KEENHANGLSPR, // 180\r
- KEENHANGRSPR, // 181\r
- KEENCLIMBEDGEL1SPR, // 182\r
- KEENCLIMBEDGEL2SPR, // 183\r
- KEENCLIMBEDGEL3SPR, // 184\r
- KEENCLIMBEDGEL4SPR, // 185\r
- KEENCLIMBEDGER1SPR, // 186\r
- KEENCLIMBEDGER2SPR, // 187\r
- KEENCLIMBEDGER3SPR, // 188\r
- KEENCLIMBEDGER4SPR, // 189\r
- KEENPOGOR1SPR, // 190\r
- KEENPOGOR2SPR, // 191\r
- KEENPOGOL1SPR, // 192\r
- KEENPOGOL2SPR, // 193\r
- BONUS100UPSPR, // 194\r
- BONUS100SPR, // 195\r
- BONUS200SPR, // 196\r
- BONUS500SPR, // 197\r
- BONUS1000SPR, // 198\r
- BONUS2000SPR, // 199\r
- BONUS5000SPR, // 200\r
- BONUS1UPSPR, // 201\r
- BONUSCLIPSPR, // 202\r
- VIVAPOOF1SPR, // 203\r
- VIVAPOOF2SPR, // 204\r
- VIVAPOOF3SPR, // 205\r
- VIVAPOOF4SPR, // 206\r
- END_LUMP(KEEN_LUMP_END, __KEENEND)\r
-\r
- START_LUMP(KEYCARD_LUMP_START, __KEYCARDSTART)\r
- DOORCARD1SPR, // 207\r
- DOORCARD2SPR, // 208\r
- BONUSCARDSPR, // 209\r
- END_LUMP(KEYCARD_LUMP_END, __KEYCARDEND)\r
-\r
- START_LUMP(SUGAR1_LUMP_START, __SUGAR1START)\r
- SUGAR1ASPR, // 210\r
- SUGAR1BSPR, // 211\r
- END_LUMP(SUGAR1_LUMP_END, __SUGAR1END)\r
-\r
- START_LUMP(SUGAR2_LUMP_START, __SUGAR2START)\r
- SUGAR2ASPR, // 212\r
- SUGAR2BSPR, // 213\r
- END_LUMP(SUGAR2_LUMP_END, __SUGAR2END)\r
-\r
- START_LUMP(SUGAR3_LUMP_START, __SUGAR3START)\r
- SUGAR3ASPR, // 214\r
- SUGAR3BSPR, // 215\r
- END_LUMP(SUGAR3_LUMP_END, __SUGAR3END)\r
-\r
- START_LUMP(SUGAR4_LUMP_START, __SUGAR4START)\r
- SUGAR4ASPR, // 216\r
- SUGAR4BSPR, // 217\r
- END_LUMP(SUGAR4_LUMP_END, __SUGAR4END)\r
-\r
- START_LUMP(SUGAR5_LUMP_START, __SUGAR5START)\r
- SUGAR5ASPR, // 218\r
- SUGAR5BSPR, // 219\r
- END_LUMP(SUGAR5_LUMP_END, __SUGAR5END)\r
-\r
- START_LUMP(SUGAR6_LUMP_START, __SUGAR6START)\r
- SUGAR6ASPR, // 220\r
- SUGAR6BSPR, // 221\r
- END_LUMP(SUGAR6_LUMP_END, __SUGAR6END)\r
-\r
- START_LUMP(ONEUP_LUMP_START, __ONEUPSTART)\r
- ONEUPASPR, // 222\r
- ONEUPBSPR, // 223\r
- END_LUMP(ONEUP_LUMP_END, __ONEUPEND)\r
-\r
- START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART)\r
- REDGEM1SPR, // 224\r
- REDGEM2SPR, // 225\r
- YELLOWGEM1SPR, // 226\r
- YELLOWGEM2SPR, // 227\r
- BLUEGEM1SPR, // 228\r
- BLUEGEM2SPR, // 229\r
- GREENGEM1SPR, // 230\r
- GREENGEM2SPR, // 231\r
- BONUSGEMSPR, // 232\r
- END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND)\r
-\r
- START_LUMP(AMMO_LUMP_START, __AMMOSTART)\r
- STUNCLIP1SPR, // 233\r
- STUNCLIP2SPR, // 234\r
- END_LUMP(AMMO_LUMP_END, __AMMOEND)\r
-\r
- SCOREBOXSPR, // 235\r
-\r
- START_LUMP(LASER_LUMP_START, __LASERSTART)\r
- LASER1SPR, // 236\r
- LASER2SPR, // 237\r
- LASER3SPR, // 238\r
- LASER4SPR, // 239\r
- LASERHIT1SPR, // 240\r
- LASERHIT2SPR, // 241\r
- END_LUMP(LASER_LUMP_END, __LASEREND)\r
-\r
- START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART)\r
- WORLDKEENL1SPR, // 242\r
- WORLDKEENL2SPR, // 243\r
- WORLDKEENL3SPR, // 244\r
- WORLDKEENR1SPR, // 245\r
- WORLDKEENR2SPR, // 246\r
- WORLDKEENR3SPR, // 247\r
- WORLDKEENU1SPR, // 248\r
- WORLDKEENU2SPR, // 249\r
- WORLDKEENU3SPR, // 250\r
- WORLDKEEND1SPR, // 251\r
- WORLDKEEND2SPR, // 252\r
- WORLDKEEND3SPR, // 253\r
- WORLDKEENDR1SPR, // 254\r
- WORLDKEENDR2SPR, // 255\r
- WORLDKEENDR3SPR, // 256\r
- WORLDKEENDL1SPR, // 257\r
- WORLDKEENDL2SPR, // 258\r
- WORLDKEENDL3SPR, // 259\r
- WORLDKEENUL1SPR, // 260\r
- WORLDKEENUL2SPR, // 261\r
- WORLDKEENUL3SPR, // 262\r
- WORLDKEENUR1SPR, // 263\r
- WORLDKEENUR2SPR, // 264\r
- WORLDKEENUR3SPR, // 265\r
- WORLDKEENWAVE1SPR, // 266\r
- WORLDKEENWAVE2SPR, // 267\r
- FLAGFLIP1SPR, // 268\r
- FLAGFLIP2SPR, // 269\r
- FLAGFLIP3SPR, // 270\r
- FLAGFLIP4SPR, // 271\r
- FLAGFLIP5SPR, // 272\r
- FLAGFALL1SPR, // 273\r
- FLAGFALL2SPR, // 274\r
- FLAGFLAP1SPR, // 275\r
- FLAGFLAP2SPR, // 276\r
- FLAGFLAP3SPR, // 277\r
- FLAGFLAP4SPR, // 278\r
- SHOOTINGSTAR1SPR, // 279\r
- SHOOTINGSTAR2SPR, // 280\r
- WORLDTELSPARK1SPR, // 281\r
- WORLDTELSPARK2SPR, // 282\r
- END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND)\r
-\r
- START_LUMP(FUSE_LUMP_START, __FUSESTART)\r
- FUSEFLASH1SPR, // 283\r
- FUSEFLASH2SPR, // 284\r
- FUSEFLASH3SPR, // 285\r
- END_LUMP(FUSE_LUMP_END, __FUSEEND)\r
-\r
- START_LUMP(STAREXPLODE_LUMP_START, __SMALLSPARKSTART)\r
- STAREXPLODE1SPR, // 286\r
- STAREXPLODE2SPR, // 287\r
- STAREXPLODE3SPR, // 288\r
- STAREXPLODE4SPR, // 289\r
- END_LUMP(STAREXPLODE_LUMP_END, __SMALLSPARKEND)\r
-\r
- START_LUMP(TELEPORT_LUMP_START, __TELEPORTSTART)\r
- TELEPORTSPARK1SPR, // 290\r
- TELEPORTSPARK2SPR, // 291\r
- TELEPORTZAP1SPR, // 292\r
- TELEPORTZAP2SPR, // 293\r
- END_LUMP(TELEPORT_LUMP_END, __TELEPORTEND)\r
-\r
- START_LUMP(SCOTTIE_LUMP_START, __KORATHSTART)\r
- SCOTTIEWALKL1SPR, // 294\r
- SCOTTIEWALKL2SPR, // 295\r
- SCOTTIEWALKL3SPR, // 296\r
- SCOTTIEWALKL4SPR, // 297\r
- SCOTTIEWALKR1SPR, // 298\r
- SCOTTIEWALKR2SPR, // 299\r
- SCOTTIEWALKR3SPR, // 300\r
- SCOTTIEWALKR4SPR, // 301\r
- SCOTTIEFACESPR, // 302\r
- SCOTTIESTUNSPR, // 303\r
- END_LUMP(SCOTTIE_LUMP_END, __KORATHEND)\r
-\r
- START_LUMP(MASTER_LUMP_START, __MASTERSTART)\r
- MASTER1SPR, // 304\r
- MASTER2SPR, // 305\r
- MASTER3SPR, // 306\r
- MASTER4SPR, // 307\r
- MASTERTELEPORT1SPR, // 308\r
- MASTERTELEPORT2SPR, // 309\r
- SHIKMASTERCASTRSPR, // 310\r
- SHIKMASTERCASTLSPR, // 311\r
- MASTERFLOORSPARK1SPR, // 312\r
- MASTERFLOORSPARK2SPR, // 313\r
- MASTERFLOORSPARK3SPR, // 314\r
- MASTERFLOORSPARK4SPR, // 315\r
- MASTERSHOT1SPR, // 316\r
- MASTERSHOT2SPR, // 317\r
- MASTERSHOT3SPR, // 318\r
- MASTERSHOT4SPR, // 319\r
- END_LUMP(MASTER_LUMP_END, __MASTEREND)\r
-\r
- START_LUMP(SHIKADI_LUMP_START, __SHIKADISTART)\r
- SHIKADI1SPR, // 320\r
- SHIKADI2SPR, // 321\r
- SHIKADI3SPR, // 322\r
- SHIKADI4SPR, // 323\r
- SHIKADIGRABRSPR, // 324\r
- SHIKADIGRABLSPR, // 325\r
- SHIKADIPOLESPARK1SPR, // 326\r
- SHIKADIPOLESPARK2SPR, // 327\r
- SHIKADIWALKR1SPR, // 328\r
- SHIKADIWALKR2SPR, // 329\r
- SHIKADIWALKR3SPR, // 330\r
- SHIKADIWALKR4SPR, // 331\r
- SHIKADIWALKL1SPR, // 332\r
- SHIKADIWALKL2SPR, // 333\r
- SHIKADIWALKL3SPR, // 334\r
- SHIKADIWALKL4SPR, // 335\r
- SHIKADISTUNSPR, // 336\r
- END_LUMP(SHIKADI_LUMP_END, __SHIKADIEND)\r
-\r
- START_LUMP(SHOCKSHUND_LUMP_START, __SHOCKSHUNDSTART)\r
- PETSIT1SPR, // 337\r
- PETSIT2SPR, // 338\r
- PETRUNR1SPR, // 339\r
- PETRUNR2SPR, // 340\r
- PETRUNR3SPR, // 341\r
- PETRUNR4SPR, // 342\r
- PETRUNL1SPR, // 343\r
- PETRUNL2SPR, // 344\r
- PETRUNL3SPR, // 345\r
- PETRUNL4SPR, // 346\r
- PETJUMPLSPR, // 347\r
- PETJUMPRSPR, // 348\r
- PETBARKR1SPR, // 349\r
- PETBARKR2SPR, // 350\r
- PETBARKL1SPR, // 351\r
- PETBARKL2SPR, // 352\r
- PETSTUNSPR, // 353\r
- PETSPARK1SPR, // 354\r
- PETSPARK2SPR, // 355\r
- PETSPARKHIT1SPR, // 356\r
- PETSPARKHIT2SPR, // 357\r
- END_LUMP(SHOCKSHUND_LUMP_END, __SHOCKSHUNDEND)\r
-\r
- START_LUMP(SPHEREFUL_LUMP_START, __SPHEREFULSTART)\r
- SPHEREFUL1SPR, // 358\r
- SPHEREFUL2SPR, // 359\r
- SPHEREFUL3SPR, // 360\r
- SPHEREFUL4SPR, // 361\r
- SPHEREGUARD1SPR, // 362\r
- SPHEREGUARD2SPR, // 363\r
- SPHEREGUARD3SPR, // 364\r
- SPHEREGUARD4SPR, // 365\r
- END_LUMP(SPHEREFUL_LUMP_END, __SPHEREFULEND)\r
-\r
- START_LUMP(SPARKY_LUMP_START, __SPARKYSTART)\r
- SPARKYWALKL1SPR, // 366\r
- SPARKYWALKL2SPR, // 367\r
- SPARKYWALKL3SPR, // 368\r
- SPARKYWALKL4SPR, // 369\r
- SPARKYTURN1SPR, // 370\r
- SPARKYTURN2SPR, // 371\r
- SPARKYTURN3SPR, // 372\r
- SPARKYWALKR1SPR, // 373\r
- SPARKYWALKR2SPR, // 374\r
- SPARKYWALKR3SPR, // 375\r
- SPARKYWALKR4SPR, // 376\r
- SPARKYSTUNSPR, // 377\r
- END_LUMP(SPARKY_LUMP_END, __SPARKYEND)\r
-\r
- START_LUMP(MINE_LUMP_START, __MINESTART)\r
- SHIKADIMINESPR, // 378\r
- SHIKADIMINEEYESPR, // 379\r
- SHIKADIMINEPULSE1SPR, // 380\r
- SHIKADIMINEPULSE2SPR, // 381\r
- SHIKADIMINEBOOM1SPR, // 382\r
- SHIKADIMINEBOOM2SPR, // 383\r
- SHIKADIMINEPIECESPR, // 384\r
- END_LUMP(MINE_LUMP_END, __MINEEND)\r
-\r
- START_LUMP(SLICESTAR_LUMP_START, __SLICESTARSTART)\r
- SLICESTARSPR, // 385\r
- SLICESTARBOOMSPR, // 386\r
- END_LUMP(SLICESTAR_LUMP_END, __SLICASTAREND)\r
-\r
- START_LUMP(ROBORED_LUMP_START, __ROBOREDSTART)\r
- ROBOREDRSPR, // 387\r
- ROBOREDLSPR, // 388\r
- ROBOSHOT1SPR, // 389\r
- ROBOSHOT2SPR, // 390\r
- ROBOSHOTHIT1SPR, // 391\r
- ROBOSHOTHIT2SPR, // 392\r
- END_LUMP(ROBORED_LUMP_END, __ROBOREDEND)\r
-\r
- START_LUMP(SPIRO_LUMP_START, __SPIROSTART)\r
- SPIROSITDSPR, // 393\r
- SPIROSITLSPR, // 394\r
- SPIROSITUSPR, // 395\r
- SPIROSITRSPR, // 396\r
- SPIROSPINULSPR, // 397\r
- SPIROSPINURSPR, // 398\r
- SPIROSPINDRSPR, // 399\r
- SPIROSPINDLSPR, // 400\r
- SPIROSPINDSPR, // 401\r
- SPIROSPINLSPR, // 402\r
- SPIROSPINUSPR, // 403\r
- SPIROSPINRSPR, // 404\r
- END_LUMP(SPIRO_LUMP_END, __SPIROEND)\r
-\r
- START_LUMP(AMPTON_LUMP_START, __AMPTONSTART)\r
- AMPTONWALKR1SPR, // 405\r
- AMPTONWALKR2SPR, // 406\r
- AMPTONWALKR3SPR, // 407\r
- AMPTONWALKR4SPR, // 408\r
- AMPTONFACESPR, // 409\r
- AMPTONGRAB1SPR, // 410\r
- AMPTONGRAB2SPR, // 411\r
- AMTONWALKL1SPR, // 412\r
- AMTONWALKL2SPR, // 413\r
- AMTONWALKL3SPR, // 414\r
- AMTONWALKL4SPR, // 415\r
- AMPTONSTUNSPR, // 416\r
- END_LUMP(AMPTON_LUMP_END, __AMPTONEND)\r
-\r
- START_LUMP(VOLTE_LUMP_START, __VOLTESTART)\r
- VOLTEFACE1SPR, // 417\r
- VOLTEFACE2SPR, // 418\r
- VOLTEFACE3SPR, // 419\r
- VOLTEFACE4SPR, // 420\r
- VOLTEFACESTUNSPR, // 421\r
- END_LUMP(VOLTE_LUMP_END, __VOLTEEND)\r
-\r
- START_LUMP(SLOTPLAT_LUMP_START, __PINKPLATSTART)\r
- SLOTPLAT1SPR, // 422\r
- SLOTPLAT2SPR, // 423\r
- END_LUMP(SLOTPLAT_LUMP_END, __PINKPLATEND)\r
-\r
- START_LUMP(SPINDRED_LUMP_START, __SPINDREDSTART)\r
- SPINDRED1SPR, // 424\r
- SPINDRED2SPR, // 425\r
- SPINDRED3SPR, // 426\r
- SPINDRED4SPR, // 427\r
- END_LUMP(SPINDRED_LUMP_END, __SPINDREDEND)\r
-\r
- START_LUMP(SHELLEY_LUMP_START, __SHELLEYSTART)\r
- SHELLEYR1SPR, // 428\r
- SHELLEYR2SPR, // 429\r
- SHELLEYR3SPR, // 430\r
- SHELLEYR4SPR, // 431\r
- SHELLEYL1SPR, // 432\r
- SHELLEYL2SPR, // 433\r
- SHELLEYL3SPR, // 434\r
- SHELLEYL4SPR, // 435\r
- SHELLEYJUMPRSPR, // 436\r
- SHELLEYFALLRSPR, // 437\r
- SHELLEYJUMPLSPR, // 438\r
- SHELLEYFALLLSPR, // 439\r
- SHELLEYBOOM1SPR, // 440\r
- SHELLEYBOOM2SPR, // 441\r
- SHELLEYBOOM3SPR, // 442\r
- SHELLEYBOOM4SPR, // 443\r
- SHELLEYPIECE1SPR, // 444\r
- SHELLEYPIECE2SPR, // 445\r
- END_LUMP(SHELLEY_LUMP_END, __SHELLEYEND)\r
-\r
- START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART)\r
- PLATFORMSPR, // 446\r
- END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND)\r
-\r
- START_LUMP(MINIPLAT_LUMP_START, __MINIPLATSTART)\r
- MINIPLATSPR, // 447\r
- END_LUMP(MINIPLAT_LUMP_END, __MINIPLATEND)\r
-\r
-\r
- //\r
- // TILES (these don't need names)\r
- //\r
-\r
- LASTTILE=STARTEXTERNS-1,\r
-\r
- //\r
- // EXTERNS\r
- //\r
-\r
- //texts\r
- T_HELPART, // 4914\r
- T_CONTRART, // 4915\r
- T_STORYART, // 4916\r
- T_IDART, // 4917\r
- T_ENDART, // 4918\r
- T_ENDART2, // 4919\r
- T_ORDERART, // 4920\r
-\r
- ORDERSCREEN, // 4921\r
- OUTOFMEM, // 4922\r
- GALAXY, // 4923\r
-\r
- //demos\r
- DEMO0, // 4924\r
- DEMO1, // 4925\r
- DEMO2, // 4926\r
- DEMO3, // 4927\r
- DEMO4, // 4928\r
-\r
- NUMGRCHUNKS\r
-} graphicnums;\r
-\r
-#undef START_LUMP\r
-#undef END_LUMP\r
-\r
-#endif //__GFX_H__
\ No newline at end of file
+++ /dev/null
-;\r
-; Equates for all .ASM files\r
-;\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-INCLUDE "GFXC_CK5.EQU"\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-CGAGR = 1\r
-EGAGR = 2\r
-VGAGR = 3\r
-\r
-GRMODE = CGAGR\r
-PROFILE = 0 ; 1=keep stats on tile drawing\r
-\r
-SC_INDEX = 03C4h\r
-SC_RESET = 0\r
-SC_CLOCK = 1\r
-SC_MAPMASK = 2\r
-SC_CHARMAP = 3\r
-SC_MEMMODE = 4\r
-\r
-CRTC_INDEX = 03D4h\r
-CRTC_H_TOTAL = 0\r
-CRTC_H_DISPEND = 1\r
-CRTC_H_BLANK = 2\r
-CRTC_H_ENDBLANK = 3\r
-CRTC_H_RETRACE = 4\r
-CRTC_H_ENDRETRACE = 5\r
-CRTC_V_TOTAL = 6\r
-CRTC_OVERFLOW = 7\r
-CRTC_ROWSCAN = 8\r
-CRTC_MAXSCANLINE = 9\r
-CRTC_CURSORSTART = 10\r
-CRTC_CURSOREND = 11\r
-CRTC_STARTHIGH = 12\r
-CRTC_STARTLOW = 13\r
-CRTC_CURSORHIGH = 14\r
-CRTC_CURSORLOW = 15\r
-CRTC_V_RETRACE = 16\r
-CRTC_V_ENDRETRACE = 17\r
-CRTC_V_DISPEND = 18\r
-CRTC_OFFSET = 19\r
-CRTC_UNDERLINE = 20\r
-CRTC_V_BLANK = 21\r
-CRTC_V_ENDBLANK = 22\r
-CRTC_MODE = 23\r
-CRTC_LINECOMPARE = 24\r
-\r
-\r
-GC_INDEX = 03CEh\r
-GC_SETRESET = 0\r
-GC_ENABLESETRESET = 1\r
-GC_COLORCOMPARE = 2\r
-GC_DATAROTATE = 3\r
-GC_READMAP = 4\r
-GC_MODE = 5\r
-GC_MISCELLANEOUS = 6\r
-GC_COLORDONTCARE = 7\r
-GC_BITMASK = 8\r
-\r
-ATR_INDEX = 03c0h\r
-ATR_MODE = 16\r
-ATR_OVERSCAN = 17\r
-ATR_COLORPLANEENABLE = 18\r
-ATR_PELPAN = 19\r
-ATR_COLORSELECT = 20\r
-\r
-STATUS_REGISTER_1 = 03dah\r
-\r
-\r
-MACRO WORDOUT\r
- out dx,ax\r
-ENDM\r
-\r
-if 0\r
-\r
-MACRO WORDOUT\r
- out dx,al\r
- inc dx\r
- xchg al,ah\r
- out dx,al\r
- dec dx\r
- xchg al,ah\r
-ENDM\r
-\r
-endif\r
-\r
-UPDATEWIDE = 22\r
-UPDATEHIGH = 14\r
-\r
-;\r
-; tile info offsets from segment tinf\r
-;\r
-\r
-ANIM = 402\r
-SPEED = (ANIM+NUMTILE16)\r
-\r
-NORTHWALL = (SPEED+NUMTILE16)\r
-EASTWALL = (NORTHWALL+NUMTILE16M)\r
-SOUTHWALL = (EASTWALL+NUMTILE16M)\r
-WESTWALL = (SOUTHWALL+NUMTILE16M)\r
-MANIM = (WESTWALL+NUMTILE16M)\r
-INTILE = (MANIM+NUMTILE16M)\r
-MSPEED = (INTILE+NUMTILE16M)\r
-\r
-\r
-IFE GRMODE-EGAGR\r
-SCREENWIDTH = 64\r
-ENDIF\r
-IFE GRMODE-CGAGR\r
-SCREENWIDTH = 128\r
-ENDIF\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_GLOB.H\r
-\r
-\r
-#include <ALLOC.H>\r
-#include <CTYPE.H>\r
-#include <DOS.H>\r
-#include <ERRNO.H>\r
-#include <FCNTL.H>\r
-#include <IO.H>\r
-#include <MEM.H>\r
-#include <PROCESS.H>\r
-#include <STDIO.H>\r
-#include <STDLIB.H>\r
-#include <STRING.H>\r
-#include <SYS\STAT.H>\r
-\r
-#define __ID_GLOB__\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define KEEN\r
-#define KEEN5\r
-\r
-#define EXTENSION "CK5"\r
-\r
-extern char far introscn;\r
-\r
-#include "GFXC_CK5.H"\r
-#include "AUDIOCK5.H"\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define TEXTGR 0\r
-#define CGAGR 1\r
-#define EGAGR 2\r
-#define VGAGR 3\r
-\r
-#define GRMODE CGAGR\r
-\r
-#if GRMODE == EGAGR\r
-#define GREXT "EGA"\r
-#endif\r
-#if GRMODE == CGAGR\r
-#define GREXT "CGA"\r
-#endif\r
-\r
-//#define PROFILE\r
-\r
-//\r
-// ID Engine\r
-// Types.h - Generic types, #defines, etc.\r
-// v1.0d1\r
-//\r
-\r
-#ifndef __TYPES__\r
-#define __TYPES__\r
-\r
-typedef enum {false,true} boolean;\r
-typedef unsigned char byte;\r
-typedef unsigned int word;\r
-typedef unsigned long longword;\r
-typedef byte * Ptr;\r
-\r
-typedef struct\r
- {\r
- int x,y;\r
- } Point;\r
-typedef struct\r
- {\r
- Point ul,lr;\r
- } Rect;\r
-\r
-#define nil ((void *)0)\r
-\r
-#endif\r
-\r
-#include "ID_MM.H"\r
-#include "ID_CA.H"\r
-#include "ID_VW.H"\r
-#include "ID_RF.H"\r
-#include "ID_IN.H"\r
-#include "ID_SD.H"\r
-#include "ID_US.H"\r
-\r
-\r
-void Quit (char *error); // defined in user program\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __AUDIO_H__\r
-#define __AUDIO_H__\r
-\r
-//#include "VERSION.H"\r
-\r
-/////////////////////////////////////////////////\r
-//\r
-// MUSE Header for .CK6\r
-//\r
-/////////////////////////////////////////////////\r
-\r
-#define NUMSOUNDS LASTSOUND\r
-#define NUMSNDCHUNKS ((3*LASTSOUND)+LASTMUSIC)\r
-\r
-//\r
-// Sound names & indexes\r
-//\r
-typedef enum {\r
- SND_WORLDWALK1, // 0\r
- SND_WORLDWALK2, // 1\r
- SND_JUMP, // 2\r
- SND_LAND, // 3\r
- SND_KEENFIRE, // 4\r
- SND_DROPKEY, // 5\r
- SND_BLORBBOUNCE, // 6\r
- SND_POGOBOUNCE, // 7\r
- SND_GETPOINTS, // 8\r
- SND_GETAMMO, // 9\r
- SND_GETWATER, // 10\r
- SND_11, // 11\r
- SND_ENTERLEVEL, // 12\r
- SND_LEVELDONE, // 13\r
- SND_NOWAY, // 14\r
- SND_HELMETHIT, // 15\r
- SND_16, // 16\r
- SND_EXTRAKEEN, // 17\r
- SND_OPENDOOR, // 18\r
- SND_GETKEY, // 19\r
- SND_PLUMMET, // 20\r
- SND_USESWITCH, // 21\r
- SND_BIPSQUISH, // 22\r
- SND_KEENDEAD, // 23\r
- SND_BIPSHIPEXPLODE, // 24\r
- SND_SHOTEXPLODE, // 25\r
- SND_BOBBAJUMP, // 26\r
- SND_BOBBALAND, // 27\r
- SND_28, // 28\r
- SND_ENEMYSHOT, // 29\r
- SND_ENEMYSHOTEXPLODE, // 30\r
- SND_BOBBASHOT, // 31\r
- SND_32, // 32\r
- SND_GRABSATELLITE, // 33\r
- SND_SHOWSTATUS, // 34\r
- SND_HIDESTATUS, // 35\r
- SND_GIKJUMP, // 36\r
- SND_GIKLAND, // 37\r
- SND_ORBATRIXBOUNCE, // 38\r
- SND_39, // 39\r
- SND_40, // 40\r
- SND_TELEPORT, // 41\r
- SND_SHOTBOUNCE, // 42\r
- SND_FLAGSPIN, // 43\r
- SND_FLAGLAND, // 44\r
- SND_QUESTITEM, // 45\r
- KEENPADDLESND, // 46\r
- BALLBOUNCESND, // 47\r
- COMPPADDLESND, // 48\r
- COMPSCOREDSND, // 49\r
- KEENSCOREDSND, // 50\r
- SND_CEILICKATTACK, // 51\r
- SND_SMASH, // 52\r
- SND_THROWROPE, // 53\r
- SND_ROCKETFLY, // 54\r
- SND_CEILICKLAUGH, // 55\r
- SND_ROCKETSTART, // 56\r
- SND_GRABBITER, // 57\r
- SND_STOMP, // 58\r
- SND_FLAME, // 59\r
- LASTSOUND\r
-} soundnames;\r
-\r
-#if LASTSOUND != 60\r
-#error bad sound enum!\r
-#endif\r
-\r
-#define NOWAYSND SND_NOWAY\r
-\r
-//\r
-// Base offsets\r
-//\r
-#define STARTPCSOUNDS 0\r
-#define STARTADLIBSOUNDS (STARTPCSOUNDS+NUMSOUNDS)\r
-#define STARTDIGISOUNDS (STARTADLIBSOUNDS+NUMSOUNDS)\r
-#define STARTMUSIC (STARTDIGISOUNDS+NUMSOUNDS)\r
-\r
-//\r
-// Music names & indexes\r
-//\r
-typedef enum {\r
- WONDER_MUS,\r
- BRERTAR_MUS,\r
- TOFUTURE_MUS,\r
- FASTER_MUS,\r
- SPACFUNK_MUS,\r
- ALIENATE_MUS,\r
- OMINOUS_MUS,\r
- METAL_MUS,\r
- MAMSNAKE_MUS,\r
- LASTMUSIC\r
-} musicnames;\r
-\r
-/////////////////////////////////////////////////\r
-//\r
-// Thanks for playing with MUSE!\r
-//\r
-/////////////////////////////////////////////////\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-;=====================================\r
-;\r
-; Graphics .EQU file for .CK6\r
-; not IGRAB-ed :)\r
-;\r
-;=====================================\r
-\r
-;INCLUDE "VERSION.EQU"\r
-\r
-;\r
-; Amount of each data item\r
-;\r
-NUMFONT = 3\r
-NUMFONTM = 0\r
-NUMPICM = 3\r
-NUMTILE8 = 108\r
-NUMTILE8M = 36\r
-NUMTILE32 = 0\r
-NUMTILE32M = 0\r
-\r
-;\r
-; Amount of each item in episode 6\r
-;\r
-NUMPICS = 37\r
-NUMSPRITES = 390\r
-NUMTILE16 = 2376\r
-NUMTILE16M = 2736\r
-NUMEXTERN = 11\r
-\r
-\r
-;\r
-; File offsets for data items\r
-;\r
-STRUCTPIC = 0\r
-STRUCTPICM = 1\r
-STRUCTSPRITE = 2\r
-\r
-STARTFONT = 3\r
-STARTFONTM = (STARTFONT+NUMFONT)\r
-STARTPICS = (STARTFONTM+NUMFONTM)\r
-STARTPICM = (STARTPICS+NUMPICS)\r
-STARTSPRITES = (STARTPICM+NUMPICM)\r
-STARTTILE8 = (STARTSPRITES+NUMSPRITES)\r
-STARTTILE8M = (STARTTILE8+1)\r
-STARTTILE16 = (STARTTILE8M+1)\r
-STARTTILE16M = (STARTTILE16+NUMTILE16)\r
-STARTTILE32 = (STARTTILE16M+NUMTILE16M)\r
-STARTTILE32M = (STARTTILE32+NUMTILE32)\r
-STARTEXTERN = (STARTTILE32M+NUMTILE32M)\r
-\r
-NUMCHUNKS = (STARTEXTERN+NUMEXTERN)\r
-\r
-;\r
-; Thank you for using IGRAB!\r
-;\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __GFX_H__\r
-#define __GFX_H__\r
-\r
-//#include "VERSION.H"\r
-\r
-//////////////////////////////////////\r
-//\r
-// Graphics .H file for .CK6\r
-// not IGRAB-ed :)\r
-//\r
-//////////////////////////////////////\r
-\r
-//\r
-// Lump creation macros\r
-//\r
-\r
-#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1,\r
-#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1,\r
-\r
-//\r
-// Amount of each data item\r
-//\r
-\r
-//common numbers:\r
-#define NUMCHUNKS NUMGRCHUNKS\r
-#define NUMFONT 3\r
-#define NUMFONTM 0\r
-#define NUMPICM 3\r
-#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH!\r
-#define NUMTILE8M 36 // BUG: only 12 tiles exist in EGAGRAPH!\r
-#define NUMTILE32 0\r
-#define NUMTILE32M 0\r
-\r
-//episode-specific numbers:\r
-#define NUMPICS 37\r
-#define NUMSPRITES 390\r
-#define NUMTILE16 2376\r
-#define NUMTILE16M 2736\r
-#define NUMEXTERNS 10\r
-\r
-//\r
-// File offsets for data items\r
-//\r
-#define STRUCTPIC 0\r
-#define STRUCTPICM 1\r
-#define STRUCTSPRITE 2\r
-\r
-#define STARTFONT 3\r
-#define STARTFONTM (STARTFONT+NUMFONT)\r
-#define STARTPICS (STARTFONTM+NUMFONTM)\r
-#define STARTPICM (STARTPICS+NUMPICS)\r
-#define STARTSPRITES (STARTPICM+NUMPICM)\r
-#define STARTTILE8 (STARTSPRITES+NUMSPRITES)\r
-#define STARTTILE8M (STARTTILE8+1)\r
-#define STARTTILE16 (STARTTILE8M+1)\r
-#define STARTTILE16M (STARTTILE16+NUMTILE16)\r
-#define STARTTILE32 (STARTTILE16M+NUMTILE16M)\r
-#define STARTTILE32M (STARTTILE32+NUMTILE32)\r
-#define STARTEXTERNS (STARTTILE32M+NUMTILE32M)\r
-\r
-typedef enum {\r
- LASTFONT=STARTPICS-1,\r
-\r
- //\r
- // PICS\r
- //\r
-\r
- H_END1PIC, // 6\r
- H_END2PIC, // 7\r
- H_END3PIC, // 8\r
- H_END4PIC, // 9\r
- H_END5PIC, // 10\r
-\r
- START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART)\r
- CP_MAINMENUPIC, // 11\r
- CP_NEWGAMEMENUPIC, // 12\r
- CP_LOADMENUPIC, // 13\r
- CP_SAVEMENUPIC, // 14\r
- CP_CONFIGMENUPIC, // 15\r
- CP_SOUNDMENUPIC, // 16\r
- CP_MUSICMENUPIC, // 17\r
- CP_KEYBOARDMENUPIC, // 18\r
- CP_KEYMOVEMENTPIC, // 19\r
- CP_KEYBUTTONPIC, // 20\r
- CP_JOYSTICKMENUPIC, // 21\r
- CP_OPTIONSMENUPIC, // 22\r
- CP_PADDLEWARPIC, // 23\r
- CP_QUITPIC, // 24\r
- CP_JOYSTICKPIC, // 25\r
- CP_MENUSCREENPIC, // 26\r
- END_LUMP(CONTROLS_LUMP_END, __CONTROLSEND)\r
-\r
- H_FLASHARROW1PIC, // 27\r
- H_FLASHARROW2PIC, // 28\r
- IDSOFTPIC, // 29\r
- PROGTEAMPIC, // 30\r
- ARTISTPIC, // 31\r
- DIRECTORPIC, // 32\r
- SW_BACKGROUNDPIC, // 33\r
- TITLEPICPIC, // 34\r
- KEENTALK1PIC, // 35\r
- KEENTALK2PIC, // 36\r
- KEENCOUNT1PIC, // 37\r
- KEENCOUNT2PIC, // 38\r
- KEENCOUNT3PIC, // 39\r
- KEENCOUNT4PIC, // 40\r
- KEENCOUNT5PIC, // 41\r
- KEENCOUNT6PIC, // 42\r
-\r
- //\r
- // MASKED PICS\r
- //\r
-\r
- CP_MENUMASKPICM, // 43\r
- CORDPICM, // 44\r
- METALPOLEPICM, // 45\r
-\r
- //\r
- // SPRITES\r
- //\r
-\r
- START_LUMP(PADDLE_LUMP_START, __PADDLESTART)\r
- PADDLESPR, // 46\r
- BALLSPR, // 47\r
- BALL1PIXELTOTHERIGHTSPR, // 48\r
- BALL2PIXELSTOTHERIGHTSPR, // 49\r
- BALL3PIXELSTOTHERIGHTSPR, // 50\r
- END_LUMP(PADDLE_LUMP_END, __PADDLEEND)\r
-\r
- DEMOPLAQUESPR, // 51\r
-\r
- START_LUMP(KEEN_LUMP_START, __KEENSTART)\r
- KEENSTANDRSPR, // 52\r
- KEENRUNR1SPR, // 53\r
- KEENRUNR2SPR, // 54\r
- KEENRUNR3SPR, // 55\r
- KEENRUNR4SPR, // 56\r
- KEENJUMPR1SPR, // 57\r
- KEENJUMPR2SPR, // 58\r
- KEENJUMPR3SPR, // 59\r
- KEENSTANDLSPR, // 60\r
- KEENRUNL1SPR, // 61\r
- KEENRUNL2SPR, // 62\r
- KEENRUNL3SPR, // 63\r
- KEENRUNL4SPR, // 64\r
- KEENJUMPL1SPR, // 65\r
- KEENJUMPL2SPR, // 66\r
- KEENJUMPL3SPR, // 67\r
- KEENLOOKUSPR, // 68\r
- KEENWAITR1SPR, // 69\r
- KEENWAITR2SPR, // 70\r
- KEENWAITR3SPR, // 71\r
- KEENSITREAD1SPR, // 72\r
- KEENSITREAD2SPR, // 73\r
- KEENSITREAD3SPR, // 74\r
- KEENSITREAD4SPR, // 75\r
- KEENREAD1SPR, // 76\r
- KEENREAD2SPR, // 77\r
- KEENREAD3SPR, // 78\r
- KEENSTOPREAD1SPR, // 79\r
- KEENSTOPREAD2SPR, // 80\r
- KEENLOOKD1SPR, // 81\r
- KEENLOOKD2SPR, // 82\r
- KEENDIE1SPR, // 83\r
- KEENDIE2SPR, // 84\r
- KEENSTUNSPR, // 85\r
- STUNSTARS1SPR, // 86\r
- STUNSTARS2SPR, // 87\r
- STUNSTARS3SPR, // 88\r
- KEENSHOOTLSPR, // 89\r
- KEENJLSHOOTLSPR, // 90\r
- KEENJSHOOTDSPR, // 91\r
- KEENJSHOOTUSPR, // 92\r
- KEENSHOOTUSPR, // 93\r
- KEENSHOOTRSPR, // 94\r
- KEENJRSHOOTRSPR, // 95\r
- STUN1SPR, // 96\r
- STUN2SPR, // 97\r
- STUN3SPR, // 98\r
- STUN4SPR, // 99\r
- STUNHIT1SPR, // 100\r
- STUNHIT2SPR, // 101\r
- KEENSHINNYR1SPR, // 102\r
- KEENSHINNYR2SPR, // 103\r
- KEENSHINNYR3SPR, // 104\r
- KEENSLIDED1SPR, // 105\r
- KEENSLIDED2SPR, // 106\r
- KEENSLIDED3SPR, // 107\r
- KEENSLIDED4SPR, // 108\r
- KEENSHINNYL1SPR, // 109\r
- KEENSHINNYL2SPR, // 110\r
- KEENSHINNYL3SPR, // 111\r
- KEENPLSHOOTUSPR, // 112\r
- KEENPRSHOOTUSPR, // 113\r
- KEENPRSHOOTDSPR, // 114\r
- KEENPLSHOOTDSPR, // 115\r
- KEENPSHOOTLSPR, // 116\r
- KEENPSHOOTRSPR, // 117\r
- KEENENTER1SPR, // 118\r
- KEENENTER2SPR, // 119\r
- KEENENTER3SPR, // 120\r
- KEENENTER4SPR, // 121\r
- KEENENTER5SPR, // 122\r
- KEENHANGLSPR, // 123\r
- KEENHANGRSPR, // 124\r
- KEENCLIMBEDGEL1SPR, // 125\r
- KEENCLIMBEDGEL2SPR, // 126\r
- KEENCLIMBEDGEL3SPR, // 127\r
- KEENCLIMBEDGEL4SPR, // 128\r
- KEENCLIMBEDGER1SPR, // 129\r
- KEENCLIMBEDGER2SPR, // 130\r
- KEENCLIMBEDGER3SPR, // 131\r
- KEENCLIMBEDGER4SPR, // 132\r
- KEENPOGOR1SPR, // 133\r
- KEENPOGOR2SPR, // 134\r
- KEENPOGOL1SPR, // 135\r
- KEENPOGOL2SPR, // 136\r
- BONUS100UPSPR, // 137\r
- BONUS100SPR, // 138\r
- BONUS200SPR, // 139\r
- BONUS500SPR, // 140\r
- BONUS1000SPR, // 141\r
- BONUS2000SPR, // 142\r
- BONUS5000SPR, // 143\r
- BONUS1UPSPR, // 144\r
- BONUSCLIPSPR, // 145\r
- VIVASPLASH1SPR, // 146\r
- VIVASPLASH2SPR, // 147\r
- VIVASPLASH3SPR, // 148\r
- VIVASPLASH4SPR, // 149\r
- END_LUMP(KEEN_LUMP_END, __KEENEND)\r
-\r
- START_LUMP(SUGAR1_LUMP_START, __SUGAR1START)\r
- SUGAR1ASPR, // 150\r
- SUGAR1BSPR, // 151\r
- END_LUMP(SUGAR1_LUMP_END, __SUGAR1END)\r
-\r
- START_LUMP(SUGAR2_LUMP_START, __SUGAR2START)\r
- SUGAR2ASPR, // 152\r
- SUGAR2BSPR, // 153\r
- END_LUMP(SUGAR2_LUMP_END, __SUGAR2END)\r
-\r
- START_LUMP(SUGAR3_LUMP_START, __SUGAR3START)\r
- SUGAR3ASPR, // 154\r
- SUGAR3BSPR, // 155\r
- END_LUMP(SUGAR3_LUMP_END, __SUGAR3END)\r
-\r
- START_LUMP(SUGAR4_LUMP_START, __SUGAR4START)\r
- SUGAR4ASPR, // 156\r
- SUGAR4BSPR, // 157\r
- END_LUMP(SUGAR4_LUMP_END, __SUGAR4END)\r
-\r
- START_LUMP(SUGAR5_LUMP_START, __SUGAR5START)\r
- SUGAR5ASPR, // 158\r
- SUGAR5BSPR, // 159\r
- END_LUMP(SUGAR5_LUMP_END, __SUGAR5END)\r
-\r
- START_LUMP(SUGAR6_LUMP_START, __SUGAR6START)\r
- SUGAR6ASPR, // 160\r
- SUGAR6BSPR, // 161\r
- END_LUMP(SUGAR6_LUMP_END, __SUGAR6END)\r
-\r
- START_LUMP(ONEUP_LUMP_START, __ONEUPSTART)\r
- ONEUPASPR, // 162\r
- ONEUPBSPR, // 163\r
- END_LUMP(ONEUP_LUMP_END, __ONEUPEND)\r
-\r
- START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART)\r
- REDGEM1SPR, // 164\r
- REDGEM2SPR, // 165\r
- YELLOWGEM1SPR, // 166\r
- YELLOWGEM2SPR, // 167\r
- BLUEGEM1SPR, // 168\r
- BLUEGEM2SPR, // 169\r
- GREENGEM1SPR, // 170\r
- GREENGEM2SPR, // 171\r
- BONUSGEMSPR, // 172\r
- END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND)\r
-\r
- START_LUMP(AMMO_LUMP_START, __AMMOSTART)\r
- STUNCLIP1SPR, // 173\r
- STUNCLIP2SPR, // 174\r
- END_LUMP(AMMO_LUMP_END, __AMMOEND)\r
-\r
- SCOREBOXSPR, // 175\r
-\r
- START_LUMP(LASER_LUMP_START, __LASERSTART)\r
- LASER1SPR, // 176\r
- LASER2SPR, // 177\r
- LASER3SPR, // 178\r
- LASER4SPR, // 179\r
- LASERHIT1SPR, // 180\r
- LASERHIT2SPR, // 181\r
- END_LUMP(LASER_LUMP_END, __LASEREND)\r
-\r
- START_LUMP(SANDWICH_LUMP_START, __SANDWICHSTART)\r
- SANDWICHSPR, // 182\r
- END_LUMP(SANDWICH_LUMP_END, __SANDWICHEND)\r
-\r
- START_LUMP(HOOK_LUMP_START, __ROPESTART)\r
- HOOKSPR, // 183\r
- END_LUMP(HOOK_LUMP_END, __ROPEEND)\r
-\r
- START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART)\r
- WORLDKEENL1SPR, // 184\r
- WORLDKEENL2SPR, // 185\r
- WORLDKEENL3SPR, // 186\r
- WORLDKEENR1SPR, // 187\r
- WORLDKEENR2SPR, // 188\r
- WORLDKEENR3SPR, // 189\r
- WORLDKEENU1SPR, // 190\r
- WORLDKEENU2SPR, // 191\r
- WORLDKEENU3SPR, // 192\r
- WORLDKEEND1SPR, // 193\r
- WORLDKEEND2SPR, // 194\r
- WORLDKEEND3SPR, // 195\r
- WORLDKEENDR1SPR, // 196\r
- WORLDKEENDR2SPR, // 197\r
- WORLDKEENDR3SPR, // 198\r
- WORLDKEENDL1SPR, // 199\r
- WORLDKEENDL2SPR, // 200\r
- WORLDKEENDL3SPR, // 201\r
- WORLDKEENUL1SPR, // 202\r
- WORLDKEENUL2SPR, // 203\r
- WORLDKEENUL3SPR, // 204\r
- WORLDKEENUR1SPR, // 205\r
- WORLDKEENUR2SPR, // 206\r
- WORLDKEENUR3SPR, // 207\r
- WORLDKEENWAVE1SPR, // 208\r
- WORLDKEENWAVE2SPR, // 209\r
- ROCKETSPR, // 210\r
- ROCKETFLY1SPR, // 211\r
- ROCKETFLY2SPR, // 212\r
- SATELLITE1SPR, // 213\r
- SATELLITE2SPR, // 214\r
- SATELLITE3SPR, // 215\r
- SATELLITE4SPR, // 216\r
- GRABBITER1SPR, // 217\r
- GRABBITER2SPR, // 218\r
- GRABBITERSLEEP1SPR, // 219\r
- GRABBITERSLEEP2SPR, // 220\r
- WORLDKEENTRHOW1SPR, // 221\r
- WORLDKEENTRHOW2SPR, // 222\r
- WORLDKEENCLIMB1SPR, // 223\r
- WORLDKEENCLIMB2SPR, // 224\r
- ROPETHROW1SPR, // 225\r
- ROPETHROW2SPR, // 226\r
- WORLDKEENHANGSPR, // 227\r
- FLAGFLIP1SPR, // 228\r
- FLAGFLIP2SPR, // 229\r
- FLAGFLIP3SPR, // 230\r
- FLAGFLIP4SPR, // 231\r
- FLAGFLIP5SPR, // 232\r
- FLAGFALL1SPR, // 233\r
- FLAGFALL2SPR, // 234\r
- FLAGFLAP1SPR, // 235\r
- FLAGFLAP2SPR, // 236\r
- FLAGFLAP3SPR, // 237\r
- FLAGFLAP4SPR, // 238\r
- END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND)\r
-\r
- START_LUMP(FLEEX_LUMP_START, __FLEEXSTART)\r
- FLEEXWALKR1SPR, // 239\r
- FLEEXWALKR2SPR, // 240\r
- FLEEXWALKL1SPR, // 241\r
- FLEEXWALKL2SPR, // 242\r
- FLEEXLOOK1SPR, // 243\r
- FLEEXLOOK2SPR, // 244\r
- FLEEXSTUNSPR, // 245\r
- END_LUMP(FLEEX_LUMP_END, __FLEEXEND)\r
-\r
- START_LUMP(CEILICK_LUMP_START, __CEILICKSTART)\r
- CEILICK1SPR, // 246\r
- CEILICK2SPR, // 247\r
- TONGUE1SPR, // 248\r
- TONGUE2SPR, // 249\r
- TONGUE3SPR, // 250\r
- TONGUE4SPR, // 251\r
- TONGUE5SPR, // 252\r
- CEILICKSTUNSPR, // 253\r
- END_LUMP(CEILICK_LUMP_END, __CEILICKEND)\r
-\r
- START_LUMP(BLOOGUARD_LUMP_START, __BLOOGUARDSTART)\r
- BLOOGUARDWALKL1SPR, // 254\r
- BLOOGUARDWALKL2SPR, // 255\r
- BLOOGUARDWALKL3SPR, // 256\r
- BLOOGUARDWALKL4SPR, // 257\r
- BLOOGUARDWALKR1SPR, // 258\r
- BLOOGUARDWALKR2SPR, // 259\r
- BLOOGUARDWALKR3SPR, // 260\r
- BLOOGUARDWALKR4SPR, // 261\r
- BLOOGUARDSWINGL1SPR, // 262\r
- BLOOGUARDSWINGL2SPR, // 263\r
- BLOOGUARDSWINGL3SPR, // 264\r
- BLOOGUARDSWINGR1SPR, // 265\r
- BLOOGUARDSWINGR2SPR, // 266\r
- BLOOGUARDSWINGR3SPR, // 267\r
- BLOOGUARDSTUNSPR, // 268\r
- END_LUMP(BLOOGUARD_LUMP_END, __BLOOGUARDEND)\r
-\r
- START_LUMP(BIPSHIP_LUMP_START, __BIPSHIPSTART)\r
- BIPSHIPRSPR, // 269\r
- BIPSHIPRTURN1SPR, // 270\r
- BIPSHIPRTURN2SPR, // 271\r
- BIPSHIPRTURN3SPR, // 272\r
- BIPSHIPRTURN4SPR, // 273\r
- BIPSHIPLSPR, // 274\r
- BIPSHIPLTURN1SPR, // 275\r
- BIPSHIPLTURN2SPR, // 276\r
- BIPSHIPLTURN3SPR, // 277\r
- BIPSHIPLTURN4SPR, // 278\r
- BIPSHIPEXPLODE1SPR, // 279\r
- BIPSHIPEXPLODE2SPR, // 280\r
- BIPSHIPEXPLODE3SPR, // 281\r
- BIPSHIPEXPLODE4SPR, // 282\r
- BIPSHIPEXPLODE5SPR, // 283\r
- BIPSHIPSHOTSPR, // 284\r
- END_LUMP(BIPSHIP_LUMP_END, __BIPSHIPEND)\r
-\r
- START_LUMP(BABOBBA_LUMP_START, __BABOBBASTART)\r
- BABOBBAL1SPR, // 285\r
- BABOBBAL2SPR, // 286\r
- BABOBBAL3SPR, // 287\r
- BABOBBAR1SPR, // 288\r
- BABOBBAR2SPR, // 289\r
- BABOBBAR3SPR, // 290\r
- BABOBBASHOT1SPR, // 291\r
- BABOBBASHOT2SPR, // 292\r
- BABOBBASTUNSPR, // 293\r
- BABOBBASLEEP1SPR, // 294\r
- BABOBBASLEEP2SPR, // 295\r
- BABOBBASLEEP3SPR, // 296\r
- BABOBBASLEEP4SPR, // 297\r
- END_LUMP(BABOBBA_LUMP_END, __BABOBBAEND)\r
-\r
- START_LUMP(NOSPIKE_LUMP_START, __NOSPIKESTART)\r
- NOSPIKESTANDSPR, // 298\r
- NOSPIKERUNR1SPR, // 299\r
- NOSPIKERUNR2SPR, // 300\r
- NOSPIKERUNR3SPR, // 301\r
- NOSPIKERUNR4SPR, // 302\r
- NOSPIKERUNL1SPR, // 303\r
- NOSPIKERUNL2SPR, // 304\r
- NOSPIKERUNL3SPR, // 305\r
- NOSPIKERUNL4SPR, // 306\r
- NOSPIKEWALKR1SPR, // 307\r
- NOSPIKEWALKR2SPR, // 308\r
- NOSPIKEWALKR3SPR, // 309\r
- NOSPIKEWALKR4SPR, // 310\r
- NOSPIKEWALKL1SPR, // 311\r
- NOSPIKEWALKL2SPR, // 312\r
- NOSPIKEWALKL3SPR, // 313\r
- NOSPIKEWALKL4SPR, // 314\r
- NOSPIKESTUNSPR, // 315\r
- QUESTIONMARKSPR, // 316\r
- END_LUMP(NOSPIKE_LUMP_END, __NOSPIKEEND)\r
-\r
- START_LUMP(FLECT_LUMP_START, __FLECTSTART)\r
- FLECTSTANDSPR, // 317\r
- FLECTSTANDRSPR, // 318\r
- FLECTWALKR1SPR, // 319\r
- FLECTWALKR2SPR, // 320\r
- FLECTWALKR3SPR, // 321\r
- FLECTWALKR4SPR, // 322\r
- FLECTSTANDLSPR, // 323\r
- FLECTWALKL1SPR, // 324\r
- FLECTWALKL2SPR, // 325\r
- FLECTWALKL3SPR, // 326\r
- FLECTWALKL4SPR, // 327\r
- FLECTSTUNSPR, // 328\r
- END_LUMP(FLECT_LUMP_END, __FLECTEND)\r
-\r
- START_LUMP(ORBATRIX_LUMP_START, __ORBATRIXSTART)\r
- ORBATRIX1SPR, // 329\r
- ORBATRIX2SPR, // 330\r
- ORBATRIX3SPR, // 331\r
- ORBATRIX4SPR, // 332\r
- ORBATRIXL1SPR, // 333\r
- ORBATRIXL2SPR, // 334\r
- ORBATRIXR1SPR, // 335\r
- ORBATRIXR2SPR, // 336\r
- ORBATRIXSPIN1SPR, // 337\r
- ORBATRIXSPIN2SPR, // 338\r
- ORBATRIXSPIN3SPR, // 339\r
- ORBATRIXSPIN4SPR, // 340\r
- ORBATRIXCURLSPR, // 341\r
- END_LUMP(ORBATRIX_LUMP_END, __ORBATRIXEND)\r
-\r
- START_LUMP(BLOOG_LUMP_START, __BLOOGSTART)\r
- BLOOGWALKR1SPR, // 342\r
- BLOOGWALKR2SPR, // 343\r
- BLOOGWALKR3SPR, // 344\r
- BLOOGWALKR4SPR, // 345\r
- BLOOGWALKL1SPR, // 346\r
- BLOOGWALKL2SPR, // 347\r
- BLOOGWALKL3SPR, // 348\r
- BLOOGWALKL4SPR, // 349\r
- BLOOGSTUNSPR, // 350\r
- END_LUMP(BLOOG_LUMP_END, __BLOOGEND)\r
-\r
- START_LUMP(RBLOOGLET_LUMP_START, __RBLOOGLETSTART)\r
- RBLOOGLETWALKR1SPR, // 351\r
- RBLOOGLETWALKR2SPR, // 352\r
- RBLOOGLETWALKR3SPR, // 353\r
- RBLOOGLETWALKR4SPR, // 354\r
- RBLOOGLETWALKL1SPR, // 355\r
- RBLOOGLETWALKL2SPR, // 356\r
- RBLOOGLETWALKL3SPR, // 357\r
- RBLOOGLETWALKL4SPR, // 358\r
- RBLOOGLETSTUNSPR, // 359\r
- END_LUMP(RBLOOGLET_LUMP_END, __RBLOOGLETEND)\r
-\r
- START_LUMP(YBLOOGLET_LUMP_START, __YBLOOGLETSTART)\r
- YBLOOGLETWALKR1SPR, // 360\r
- YBLOOGLETWALKR2SPR, // 361\r
- YBLOOGLETWALKR3SPR, // 362\r
- YBLOOGLETWALKR4SPR, // 363\r
- YBLOOGLETWALKL1SPR, // 364\r
- YBLOOGLETWALKL2SPR, // 365\r
- YBLOOGLETWALKL3SPR, // 366\r
- YBLOOGLETWALKL4SPR, // 367\r
- YBLOOGLETSTUNSPR, // 368\r
- END_LUMP(YBLOOGLET_LUMP_END, __YBLOOGLETEND)\r
-\r
- START_LUMP(BBLOOGLET_LUMP_START, __BBLOOGLETSTART)\r
- BBLOOGLETWALKR1SPR, // 369\r
- BBLOOGLETWALKR2SPR, // 370\r
- BBLOOGLETWALKR3SPR, // 371\r
- BBLOOGLETWALKR4SPR, // 372\r
- BBLOOGLETWALKL1SPR, // 373\r
- BBLOOGLETWALKL2SPR, // 374\r
- BBLOOGLETWALKL3SPR, // 375\r
- BBLOOGLETWALKL4SPR, // 376\r
- BBLOOGLETSTUNSPR, // 377\r
- END_LUMP(BBLOOGLET_LUMP_END, __BBLOOGLETEND)\r
-\r
- START_LUMP(GBLOOGLET_LUMP_START, __GBLOOGLETSTART)\r
- GBLOOGLETWALKR1SPR, // 378\r
- GBLOOGLETWALKR2SPR, // 379\r
- GBLOOGLETWALKR3SPR, // 380\r
- GBLOOGLETWALKR4SPR, // 381\r
- GBLOOGLETWALKL1SPR, // 382\r
- GBLOOGLETWALKL2SPR, // 383\r
- GBLOOGLETWALKL3SPR, // 384\r
- GBLOOGLETWALKL4SPR, // 385\r
- GBLOOGLETSTUNSPR, // 386\r
- END_LUMP(GBLOOGLET_LUMP_END, __GBLOOGLETEND)\r
-\r
- START_LUMP(GIK_LUMP_START, __GIKSTART)\r
- GIKWALKR1SPR, // 387\r
- GIKWALKR2SPR, // 388\r
- GIKWALKR3SPR, // 389\r
- GIKWALKL1SPR, // 390\r
- GIKWALKL2SPR, // 391\r
- GIKWALKL3SPR, // 392\r
- GIKJUMPLSPR, // 393\r
- GIKJUMPRSPR, // 394\r
- GIKSLIDER1SPR, // 395\r
- GIKSLIDER2SPR, // 396\r
- GIKSLIDEL1SPR, // 397\r
- GIKSLIDEL2SPR, // 398\r
- END_LUMP(GIK_LUMP_END, __GIKEND)\r
-\r
- START_LUMP(BLORB_LUMP_START, __BLORBSTART)\r
- BLORB1SPR, // 399\r
- BLORB2SPR, // 400\r
- BLORB3SPR, // 401\r
- END_LUMP(BLORB_LUMP_END, __BLORBEND)\r
-\r
- START_LUMP(BOBBA_LUMP_START, __BOBBASTART)\r
- BOBBAL1SPR, // 402\r
- BOBBAL2SPR, // 403\r
- BOBBAL3SPR, // 404\r
- BOBBAR1SPR, // 405\r
- BOBBAR2SPR, // 406\r
- BOBBAR3SPR, // 407\r
- BOBBASHOT1SPR, // 408\r
- BOBBASHOT2SPR, // 409\r
- BOBBASHOT3SPR, // 410\r
- BOBBASHOT4SPR, // 411\r
- BOBBASHOT5SPR, // 412\r
- BOBBASHOT6SPR, // 413\r
- END_LUMP(BOBBA_LUMP_END, __BOBBAEND)\r
-\r
- START_LUMP(BIP_LUMP_START, __BIPSTART)\r
- BIPSTANDSPR, // 414\r
- BIPWALKR1SPR, // 415\r
- BIPWALKR2SPR, // 416\r
- BIPWALKR3SPR, // 417\r
- BIPWALKR4SPR, // 418\r
- BIPWALKL1SPR, // 419\r
- BIPWALKL2SPR, // 420\r
- BIPWALKL3SPR, // 421\r
- BIPWALKL4SPR, // 422\r
- END_LUMP(BIP_LUMP_END, __BIPEND)\r
-\r
- START_LUMP(BIPSQUISHED_LUMP_START, __BIPSQUISHEDSTART)\r
- BIPSQUISHEDSPR, // 423\r
- END_LUMP(BIPSQUISHED_LUMP_END, __BIPSQUISHEDEND)\r
-\r
- START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART)\r
- PLATFORMSPR, // 424\r
- PLATBIP1SPR, // 425\r
- PLATBIP2SPR, // 426\r
- PLATBIP3SPR, // 427\r
- PLATBIP4SPR, // 428\r
- PLATBIP5SPR, // 429\r
- PLATBIP6SPR, // 430\r
- PLATBIP7SPR, // 431\r
- PLATBIP8SPR, // 432\r
- END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND)\r
-\r
- START_LUMP(MOLLY_LUMP_START, __MOLLYSTART)\r
- MOLLY1SPR, // 433\r
- MOLLY2SPR, // 434\r
- END_LUMP(MOLLY_LUMP_END, __MOLLYEND)\r
-\r
- START_LUMP(PASSCARD_LUMP_START, __PASSCARDSTART)\r
- PASSCARDSPR, // 435\r
- END_LUMP(PASSCARD_LUMP_END, __PASSCARDEND)\r
-\r
- //\r
- // TILES (these don't need names)\r
- //\r
-\r
- LASTTILE=STARTEXTERNS-1,\r
-\r
- //\r
- // EXTERNS\r
- //\r
-\r
- T_ENDART, // 5550\r
-\r
- ORDERSCREEN, // 5551\r
- BIGCOMMANDER, // 5552\r
- BIGKEEN, // 5553\r
- OUTOFMEM, // 5554\r
-\r
- //demos\r
- DEMO0, // 5555\r
- DEMO1, // 5556\r
- DEMO2, // 5557\r
- DEMO3, // 5558\r
- DEMO4, // 5559\r
-\r
- NUMGRCHUNKS\r
-} graphicnums;\r
-\r
-#undef START_LUMP\r
-#undef END_LUMP\r
-\r
-#endif //__GFX_H__
\ No newline at end of file
+++ /dev/null
-;\r
-; Equates for all .ASM files\r
-;\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-INCLUDE "GFXE_CK6.EQU"\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-CGAGR = 1\r
-EGAGR = 2\r
-VGAGR = 3\r
-\r
-GRMODE = EGAGR\r
-PROFILE = 0 ; 1=keep stats on tile drawing\r
-\r
-SC_INDEX = 03C4h\r
-SC_RESET = 0\r
-SC_CLOCK = 1\r
-SC_MAPMASK = 2\r
-SC_CHARMAP = 3\r
-SC_MEMMODE = 4\r
-\r
-CRTC_INDEX = 03D4h\r
-CRTC_H_TOTAL = 0\r
-CRTC_H_DISPEND = 1\r
-CRTC_H_BLANK = 2\r
-CRTC_H_ENDBLANK = 3\r
-CRTC_H_RETRACE = 4\r
-CRTC_H_ENDRETRACE = 5\r
-CRTC_V_TOTAL = 6\r
-CRTC_OVERFLOW = 7\r
-CRTC_ROWSCAN = 8\r
-CRTC_MAXSCANLINE = 9\r
-CRTC_CURSORSTART = 10\r
-CRTC_CURSOREND = 11\r
-CRTC_STARTHIGH = 12\r
-CRTC_STARTLOW = 13\r
-CRTC_CURSORHIGH = 14\r
-CRTC_CURSORLOW = 15\r
-CRTC_V_RETRACE = 16\r
-CRTC_V_ENDRETRACE = 17\r
-CRTC_V_DISPEND = 18\r
-CRTC_OFFSET = 19\r
-CRTC_UNDERLINE = 20\r
-CRTC_V_BLANK = 21\r
-CRTC_V_ENDBLANK = 22\r
-CRTC_MODE = 23\r
-CRTC_LINECOMPARE = 24\r
-\r
-\r
-GC_INDEX = 03CEh\r
-GC_SETRESET = 0\r
-GC_ENABLESETRESET = 1\r
-GC_COLORCOMPARE = 2\r
-GC_DATAROTATE = 3\r
-GC_READMAP = 4\r
-GC_MODE = 5\r
-GC_MISCELLANEOUS = 6\r
-GC_COLORDONTCARE = 7\r
-GC_BITMASK = 8\r
-\r
-ATR_INDEX = 03c0h\r
-ATR_MODE = 16\r
-ATR_OVERSCAN = 17\r
-ATR_COLORPLANEENABLE = 18\r
-ATR_PELPAN = 19\r
-ATR_COLORSELECT = 20\r
-\r
-STATUS_REGISTER_1 = 03dah\r
-\r
-\r
-MACRO WORDOUT\r
- out dx,ax\r
-ENDM\r
-\r
-if 0\r
-\r
-MACRO WORDOUT\r
- out dx,al\r
- inc dx\r
- xchg al,ah\r
- out dx,al\r
- dec dx\r
- xchg al,ah\r
-ENDM\r
-\r
-endif\r
-\r
-UPDATEWIDE = 22\r
-UPDATEHIGH = 14\r
-\r
-;\r
-; tile info offsets from segment tinf\r
-;\r
-\r
-ANIM = 402\r
-SPEED = (ANIM+NUMTILE16)\r
-\r
-NORTHWALL = (SPEED+NUMTILE16)\r
-EASTWALL = (NORTHWALL+NUMTILE16M)\r
-SOUTHWALL = (EASTWALL+NUMTILE16M)\r
-WESTWALL = (SOUTHWALL+NUMTILE16M)\r
-MANIM = (WESTWALL+NUMTILE16M)\r
-INTILE = (MANIM+NUMTILE16M)\r
-MSPEED = (INTILE+NUMTILE16M)\r
-\r
-\r
-IFE GRMODE-EGAGR\r
-SCREENWIDTH = 64\r
-ENDIF\r
-IFE GRMODE-CGAGR\r
-SCREENWIDTH = 128\r
-ENDIF\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_GLOB.H\r
-\r
-\r
-#include <ALLOC.H>\r
-#include <CTYPE.H>\r
-#include <DOS.H>\r
-#include <ERRNO.H>\r
-#include <FCNTL.H>\r
-#include <IO.H>\r
-#include <MEM.H>\r
-#include <PROCESS.H>\r
-#include <STDIO.H>\r
-#include <STDLIB.H>\r
-#include <STRING.H>\r
-#include <SYS\STAT.H>\r
-\r
-#define __ID_GLOB__\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define KEEN\r
-#define KEEN6\r
-\r
-#define EXTENSION "CK6"\r
-\r
-extern char far introscn;\r
-\r
-#include "GFXE_CK6.H"\r
-#include "AUDIOCK6.H"\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define TEXTGR 0\r
-#define CGAGR 1\r
-#define EGAGR 2\r
-#define VGAGR 3\r
-\r
-#define GRMODE EGAGR\r
-\r
-#if GRMODE == EGAGR\r
-#define GREXT "EGA"\r
-#endif\r
-#if GRMODE == CGAGR\r
-#define GREXT "CGA"\r
-#endif\r
-\r
-//#define PROFILE\r
-\r
-//\r
-// ID Engine\r
-// Types.h - Generic types, #defines, etc.\r
-// v1.0d1\r
-//\r
-\r
-#ifndef __TYPES__\r
-#define __TYPES__\r
-\r
-typedef enum {false,true} boolean;\r
-typedef unsigned char byte;\r
-typedef unsigned int word;\r
-typedef unsigned long longword;\r
-typedef byte * Ptr;\r
-\r
-typedef struct\r
- {\r
- int x,y;\r
- } Point;\r
-typedef struct\r
- {\r
- Point ul,lr;\r
- } Rect;\r
-\r
-#define nil ((void *)0)\r
-\r
-#endif\r
-\r
-#include "ID_MM.H"\r
-#include "ID_CA.H"\r
-#include "ID_VW.H"\r
-#include "ID_RF.H"\r
-#include "ID_IN.H"\r
-#include "ID_SD.H"\r
-#include "ID_US.H"\r
-\r
-\r
-void Quit (char *error); // defined in user program\r
-\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K6_ACT1.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- some shared routines\r
-- Bonus Items\r
-- Grabbiter\r
-- Rocket\r
-- Grapple spots\r
-- Satellite\r
-- Quest Items (Sandwich, Grappling Hook, Passcard, Molly)\r
-- Platforms\r
-- falling platforms\r
-- static platforms\r
-- Goplat platforms\r
-- Trick platforms\r
-- Bloog\r
-- Blooguard\r
-- Blooglet\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- SHARED STUFF\r
-\r
-=============================================================================\r
-*/\r
-\r
-Sint16 pdirx[] = {0, 1, 0, -1, 1, 1, -1, -1};\r
-Sint16 pdiry[] = {-1, 0, 1, 0, -1, 1, 1, -1};\r
-\r
-/*\r
-===========================\r
-=\r
-= C_ClipSide\r
-=\r
-===========================\r
-*/\r
-\r
-void C_ClipSide(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- playerkludgeclipcancel = true;\r
- ClipToSpriteSide(hit, ob);\r
- playerkludgeclipcancel = false;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_ClipTop\r
-=\r
-===========================\r
-*/\r
-\r
-void C_ClipTop(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- ClipToSpriteTop(hit, ob);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Land\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Land(objtype *ob)\r
-{\r
- if (ob->hiteast || ob->hitwest)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitsouth)\r
- ob->yspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->yspeed = 0;\r
- if (ob->state->nextstate)\r
- {\r
- ChangeState(ob, ob->state->nextstate);\r
- }\r
- else\r
- {\r
- RemoveObj(ob);\r
- return;\r
- }\r
- }\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Bounce\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Bounce(objtype *ob)\r
-{\r
- Uint16 wall,absx,absy,angle,newangle;\r
- Uint32 speed;\r
-\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-\r
- if (ob->hiteast || ob->hitwest)\r
- ob->xspeed = -ob->xspeed/2;\r
-\r
- if (ob->hitsouth)\r
- {\r
- ob->yspeed = -ob->yspeed/2;\r
- return;\r
- }\r
-\r
- wall = ob->hitnorth;\r
-#ifdef KEEN6Ev15\r
- if (!wall)\r
- {\r
- return;\r
- }\r
- else\r
-#else\r
- if (wall)\r
-#endif\r
- {\r
- if (ob->yspeed < 0)\r
- ob->yspeed = 0;\r
-\r
- absx = abs(ob->xspeed);\r
- absy = ob->yspeed;\r
- if (absx>absy)\r
- {\r
- if (absx>absy*2) // 22 degrees\r
- {\r
- angle = 0;\r
- speed = absx*286; // x*sqrt(5)/2\r
- }\r
- else // 45 degrees\r
- {\r
- angle = 1;\r
- speed = absx*362; // x*sqrt(2)\r
- }\r
- }\r
- else\r
- {\r
- if (absy>absx*2) // 90 degrees\r
- {\r
- angle = 3;\r
- speed = absy*256;\r
- }\r
- else\r
- {\r
- angle = 2; // 67 degrees\r
- speed = absy*286; // y*sqrt(5)/2\r
- }\r
- }\r
- if (ob->xspeed > 0)\r
- angle = 7-angle;\r
-\r
- speed >>= 1;\r
- newangle = bounceangle[ob->hitnorth][angle];\r
- switch (newangle)\r
- {\r
- case 0:\r
- ob->xspeed = speed / 286;\r
- ob->yspeed = -ob->xspeed / 2;\r
- break;\r
- case 1:\r
- ob->xspeed = speed / 362;\r
- ob->yspeed = -ob->xspeed;\r
- break;\r
- case 2:\r
- ob->yspeed = -(speed / 286);\r
- ob->xspeed = -ob->yspeed / 2;\r
- break;\r
- case 3:\r
-\r
- case 4:\r
- ob->xspeed = 0;\r
- ob->yspeed = -(speed / 256);\r
- break;\r
- case 5:\r
- ob->yspeed = -(speed / 286);\r
- ob->xspeed = ob->yspeed / 2;\r
- break;\r
- case 6:\r
- ob->xspeed = ob->yspeed = -(speed / 362);\r
- break;\r
- case 7:\r
- ob->xspeed = -(speed / 286);\r
- ob->yspeed = ob->xspeed / 2;\r
- break;\r
-\r
- case 8:\r
- ob->xspeed = -(speed / 286);\r
- ob->yspeed = -ob->xspeed / 2;\r
- break;\r
- case 9:\r
- ob->xspeed = -(speed / 362);\r
- ob->yspeed = -ob->xspeed;\r
- break;\r
- case 10:\r
- ob->yspeed = speed / 286;\r
- ob->xspeed = -ob->yspeed / 2;\r
- break;\r
- case 11:\r
-\r
- case 12:\r
- ob->xspeed = 0;\r
- ob->yspeed = -(speed / 256);\r
- break;\r
- case 13:\r
- ob->yspeed = speed / 286;\r
- ob->xspeed = ob->yspeed / 2;\r
- break;\r
- case 14:\r
- ob->xspeed = speed / 362;\r
- ob->yspeed = speed / 362;\r
- break;\r
- case 15:\r
- ob->xspeed = speed / 286;\r
- ob->yspeed = ob->xspeed / 2;\r
- break;\r
- }\r
-\r
- if (speed < 256*16)\r
- {\r
- ChangeState(ob, ob->state->nextstate);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BONUS ITEMS\r
-\r
-temp1 = bonus type\r
-temp2 = base shape number\r
-temp3 = last animated shape number +1\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_bonus1 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus2};\r
-statetype s_bonus2 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus1};\r
-statetype s_bonusfly1 = {0, 0, stepthink, false, false, 20, 0, 0, T_FlyBonus, NULL, R_Draw, &s_bonusfly2};\r
-statetype s_bonusfly2 = {0, 0, stepthink, false, false, 20, 0, 0, T_FlyBonus, NULL, R_Draw, &s_bonusfly1};\r
-statetype s_bonusrise = {0, 0, slide, false, false, 40, 0, 8, NULL, NULL, R_Draw, NULL};\r
-\r
-statetype s_splash1 = {VIVASPLASH1SPR, VIVASPLASH1SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash2};\r
-statetype s_splash2 = {VIVASPLASH2SPR, VIVASPLASH2SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash3};\r
-statetype s_splash3 = {VIVASPLASH3SPR, VIVASPLASH3SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_splash4};\r
-statetype s_splash4 = {VIVASPLASH4SPR, VIVASPLASH4SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-Uint16 bonusshape[] = {\r
- REDGEM1SPR, YELLOWGEM1SPR, BLUEGEM1SPR, GREENGEM1SPR,\r
- SUGAR1ASPR, SUGAR2ASPR, SUGAR3ASPR,\r
- SUGAR4ASPR, SUGAR5ASPR, SUGAR6ASPR,\r
- ONEUPASPR, STUNCLIP1SPR\r
-};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBonus\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBonus(Uint16 tileX, Uint16 tileY, Uint16 type)\r
-{\r
- GetNewObj(false);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->obclass = bonusobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->ydir = -1;\r
- new->temp1 = type;\r
- new->temp2=new->shapenum = bonusshape[type];\r
- new->temp3 = new->temp2+2;\r
- NewState(new, &s_bonus1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSplash\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSplash(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(true);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 3;\r
- new->obclass = inertobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- NewState(new, &s_splash1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Bonus\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Bonus(objtype *ob)\r
-{\r
- if (++ob->shapenum == ob->temp3)\r
- ob->shapenum = ob->temp2;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_FlyBonus\r
-=\r
-===========================\r
-*/\r
-\r
-void T_FlyBonus(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- ob->state = &s_bonus1;\r
-\r
- if (++ob->shapenum == ob->temp3)\r
- ob->shapenum = ob->temp2;\r
-\r
- DoGravity(ob);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- GRABBITER\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_grabbiter1 = {GRABBITER1SPR, GRABBITER1SPR, step, false, false, 12, 0, 0, NULL, C_Grabbiter, R_Draw, &s_grabbiter2};\r
-statetype s_grabbiter2 = {GRABBITER2SPR, GRABBITER2SPR, step, false, false, 12, 0, 0, NULL, C_Grabbiter, R_Draw, &s_grabbiter1};\r
-statetype s_grabbitersleep1 = {GRABBITERSLEEP1SPR, GRABBITERSLEEP1SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_grabbitersleep2};\r
-statetype s_grabbitersleep2 = {GRABBITERSLEEP2SPR, GRABBITERSLEEP2SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_grabbitersleep1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnGrabbiter\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnGrabbiter(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->active = ac_yes;\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->obclass = grabbiterobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- if (gamestate.sandwichstate == 2)\r
- {\r
- NewState(new, &s_grabbitersleep1);\r
- }\r
- else\r
- {\r
- NewState(new, &s_grabbiter1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Grabbiter\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Grabbiter(objtype *ob, objtype *hit)\r
-{\r
- // BUG: this is executed for every object, not just (Map-)Keen!\r
- switch (gamestate.sandwichstate)\r
- {\r
- case 0:\r
- CA_CacheGrChunk(KEENTALK1PIC);\r
- SD_PlaySound(SND_GRABBITER);\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 5;\r
- US_CPrint(\r
- "Oh, no!\n"\r
- "It's a slavering\n"\r
- "Grabbiter! He says,\n"\r
- "\"Get me lunch and\n"\r
- "I'll tell ya a secret!\""\r
- );\r
- VW_UpdateScreen();\r
- SD_PlaySound(SND_NOWAY);\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
- RF_ForceRefresh();\r
-\r
- //push Keen back\r
- xtry = -hit->xmove;\r
- ytry = -hit->ymove;\r
- hit->xdir = hit->ydir = 0;\r
- ClipToWalls(hit);\r
- break;\r
-\r
- case 1:\r
- gamestate.sandwichstate++;\r
- CA_CacheGrChunk(KEENTALK1PIC);\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 2;\r
- US_CPrint(\r
- "The Grabbiter grabs\n"\r
- "the gigantic sandwich,\n"\r
- "downs it in one bite,\n"\r
- "and says,\"Here's your\n"\r
- "secret. Big meals\n"\r
- "make me sleepy!\n" // BUG: quote is missing at the end\r
- );\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
- ChangeState(ob, &s_grabbitersleep1);\r
- RF_ForceRefresh();\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- ROCKET\r
-\r
-temp1 = direction\r
-temp2 = countdown to next dir check\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_rocket = {ROCKETSPR, ROCKETSPR, think, false, false, 0, 0, 0, NULL, C_Rocket, R_Draw, NULL};\r
-statetype s_rocketfly1 = {ROCKETFLY1SPR, ROCKETFLY1SPR, stepthink, false, false, 8, 0, 0, T_RocketFly, C_RocketFly, R_Draw, &s_rocketfly2};\r
-statetype s_rocketfly2 = {ROCKETFLY2SPR, ROCKETFLY2SPR, stepthink, false, false, 8, 0, 0, T_RocketFly, C_RocketFly, R_Draw, &s_rocketfly1};\r
-statetype s_keenrocket = {0, 0, think, false, false, 0, 0, 0, T_Rocket, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnRocket\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnRocket(Uint16 tileX, Uint16 tileY, Uint16 state)\r
-{\r
- if (gamestate.rocketstate == state)\r
- {\r
- GetNewObj(false);\r
- new->active = ac_yes;\r
- new->needtoclip = cl_noclip;\r
- new->priority = 3;\r
- new->obclass = rocketobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- NewState(new, &s_rocket);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Rocket\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Rocket(objtype *ob)\r
-{\r
- ob->needtoreact = true;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Rocket\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Rocket(objtype *ob, objtype *hit)\r
-{\r
- // BUG: this is executed for every object, not just (Map-)Keen!\r
- switch (gamestate.passcardstate)\r
- {\r
- case 0:\r
- CA_CacheGrChunk(KEENTALK1PIC);\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 5;\r
- US_CPrint(\r
- "The door makes a loud\n"\r
- "blooping noise.\n"\r
- "It says,\n"\r
- "\"Passcard required\n"\r
- "for entry.\""\r
- );\r
- VW_UpdateScreen();\r
- SD_PlaySound(SND_NOWAY);\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
- RF_ForceRefresh();\r
-\r
- //push Keen back\r
- xtry = -hit->xmove;\r
- ytry = -hit->ymove;\r
- hit->xdir = hit->ydir = 0;\r
- ClipToWalls(hit);\r
- break;\r
-\r
- case 1:\r
- ob->temp1 = arrow_North;\r
- ob->temp2 = TILEGLOBAL;\r
- ChangeState(ob, &s_rocketfly1);\r
-\r
- hit->x = ob->x;\r
- hit->y = ob->y + TILEGLOBAL;\r
- hit->needtoclip = cl_noclip;\r
- ChangeState(hit, &s_keenrocket);\r
- SD_PlaySound(SND_ROCKETSTART);\r
- SD_WaitSoundDone();\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_RocketFly\r
-=\r
-===========================\r
-*/\r
-\r
-void C_RocketFly(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- hit->x = ob->x;\r
- hit->y = ob->y+TILEGLOBAL;\r
- ChangeState(hit, hit->state);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_RocketFly\r
-=\r
-===========================\r
-*/\r
-\r
-void T_RocketFly(objtype *ob)\r
-{\r
- Uint16 move, tx, ty;\r
- Sint16 dir;\r
-\r
- //\r
- // this code could be executed twice during the same frame because the\r
- // object's animation/state changed during that frame, so don't update\r
- // anything if we already have movement for the current frame i.e. the\r
- // update code has already been executed this frame\r
- //\r
- if (xtry == 0 && ytry == 0)\r
- {\r
- if (!SD_SoundPlaying())\r
- SD_PlaySound(SND_ROCKETFLY);\r
-\r
- move = tics << 5;\r
- if (ob->temp2 > move)\r
- {\r
- ob->temp2 = ob->temp2 - move;\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = -move;\r
- }\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = move;\r
-\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = -move;\r
- }\r
- }\r
- else\r
- {\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = -ob->temp2;\r
- }\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = -ob->temp2;\r
- }\r
-\r
- tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry);\r
- ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry);\r
- ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx)-DIRARROWSTART;\r
- if (ob->temp1 < arrow_North || ob->temp1 > arrow_None)\r
- {\r
- ob->x += xtry;\r
- ob->y += ytry;\r
- ChangeState(ob, &s_rocket);\r
-\r
- player->x = CONVERT_TILE_TO_GLOBAL(tx+1) + 1*PIXGLOBAL;\r
- player->y = CONVERT_TILE_TO_GLOBAL(ty+1);\r
- player->obclass = keenobj;\r
- player->shapenum = WORLDKEENR3SPR;\r
- player->needtoclip = cl_midclip;\r
- NewState(player, &s_worldkeen);\r
- gamestate.rocketstate ^= 1;\r
- }\r
- else\r
- {\r
- move -= ob->temp2;\r
- ob->temp2 = TILEGLOBAL - move;\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = xtry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = xtry - move;\r
- }\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ytry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = ytry - move;\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- GRAPPLE SPOT\r
-\r
-temp1 = type (0 = top of cliff, 1 = bottom of cliff)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_grapplespot = {-1, -1, think, false, false, 0, 0, 0, NULL, C_GrappleSpot, R_Draw, NULL};\r
-statetype s_throwrope1 = {WORLDKEENTRHOW1SPR, WORLDKEENTRHOW1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_throwrope2};\r
-statetype s_throwrope2 = {WORLDKEENTRHOW2SPR, WORLDKEENTRHOW2SPR, step, false, false, 8, 0, 0, T_ThrowRope, NULL, R_Draw, &s_worldkeen};\r
-statetype s_climbrope1 = {WORLDKEENCLIMB1SPR, WORLDKEENCLIMB1SPR, slide, true, false, 4, 0, 16, NULL, NULL, R_Draw, &s_climbrope2};\r
-statetype s_climbrope2 = {WORLDKEENCLIMB2SPR, WORLDKEENCLIMB2SPR, slide, true, false, 4, 0, 16, T_ClimbRope, NULL, R_Draw, &s_climbrope1};\r
-statetype s_maprope = {ROPETHROW2SPR, ROPETHROW2SPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, NULL};\r
-statetype s_mapropeshort = {ROPETHROW1SPR, ROPETHROW1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_mapropeshort};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnGrappleSpot\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnGrappleSpot(Uint16 tileX, Uint16 tileY, Uint16 type)\r
-{\r
- GetNewObj(false);\r
- new->active = ac_yes;\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->obclass = grapplespotobj;\r
- new->tileleft = new->tileright = tileX;\r
- new->tiletop = new->tilebottom = tileY;\r
- new->temp1 = type;\r
- new->x = new->left = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->right = new->left + TILEGLOBAL;\r
- if (type)\r
- {\r
- new->y = new->top = CONVERT_TILE_TO_GLOBAL(tileY+1)-1;\r
- }\r
- else\r
- {\r
- new->y = new->top = CONVERT_TILE_TO_GLOBAL(tileY);\r
- }\r
- new->bottom = new->top + 1;\r
- NewState(new, &s_grapplespot);\r
-\r
- if (gamestate.hookstate == 2 && type)\r
- {\r
- GetNewObj(false);\r
- new->active = ac_yes;\r
- new->needtoclip = cl_noclip;\r
- new->priority = 0;\r
- new->obclass = inertobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY+1);\r
- NewState(new, &s_maprope);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_ThrowRope\r
-=\r
-===========================\r
-*/\r
-\r
-void T_ThrowRope(objtype *ob)\r
-{\r
- GetNewObj(false);\r
- new->active = ac_yes;\r
- new->needtoclip = cl_noclip;\r
- new->priority = 0;\r
- new->obclass = inertobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(ob->tileright);\r
- new->y = ob->y - 2*TILEGLOBAL;\r
- NewState(new, &s_maprope);\r
-\r
- ob->obclass = keenobj;\r
- ob->shapenum = WORLDKEENU3SPR;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_ClimbRope\r
-=\r
-===========================\r
-*/\r
-\r
-void T_ClimbRope(objtype *ob)\r
-{\r
- if (--ob->temp4 == 0)\r
- {\r
- if (ob->ydir == 1)\r
- {\r
- ob->y += 3*PIXGLOBAL;\r
- ob->shapenum = WORLDKEEND3SPR;\r
- }\r
- else\r
- {\r
- ob->y -= 3*PIXGLOBAL;\r
- ob->shapenum = WORLDKEENU3SPR;\r
- }\r
- ob->obclass = keenobj;\r
- NewState(ob, &s_worldkeen);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_GrappleSpot\r
-=\r
-===========================\r
-*/\r
-\r
-void C_GrappleSpot(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- switch (gamestate.hookstate)\r
- {\r
- case 0:\r
- CA_CacheGrChunk(KEENTALK1PIC);\r
- VW_FixRefreshBuffer();\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 15;\r
- US_CPrint(\r
- "What a tall cliff!\n"\r
- "Wish I had a rope\n"\r
- "and grappling hook.\n"\r
- );\r
- VW_UpdateScreen();\r
- SD_PlaySound(SND_NOWAY);\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
- RF_ForceRefresh();\r
-\r
- //push Keen back\r
- xtry = -hit->xmove;\r
- ytry = -hit->ymove;\r
- hit->xdir = hit->ydir = 0;\r
- ClipToWalls(hit);\r
- break;\r
-\r
- case 1:\r
- gamestate.hookstate++;\r
- SD_PlaySound(SND_THROWROPE);\r
- ChangeState(hit, &s_throwrope1);\r
- hit->obclass = inertobj;\r
- break;\r
-\r
- case 2:\r
- if (ob->temp1)\r
- {\r
- hit->y += 4*PIXGLOBAL;\r
- hit->temp4 = 6;\r
- hit->ydir = 1;\r
- }\r
- else\r
- {\r
- hit->y -= 4*PIXGLOBAL;\r
- hit->temp4 = 6;\r
- hit->ydir = -1;\r
- }\r
- NewState(hit, &s_climbrope1);\r
- hit->obclass = inertobj;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SATELLITE\r
-\r
-temp1 = direction (satellite) / type (stop points)\r
-temp2 = countdown to next dir check\r
-temp3 = type of stop point touched (low byte: current; high byte: previous)\r
- is updated every frame and resets to 0 when no longer touching a spot\r
-temp4 = type of last stop point passed over (1 or 2, never 0)\r
- is updated when no longer touching the spot\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_satellitestopspot = {-1, -1, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL};\r
-statetype s_worldkeensatellite = {WORLDKEENHANGSPR, WORLDKEENHANGSPR, think, false, false, 0, 0, 0, NULL, NULL, R_WorldKeenSatellite, NULL};\r
-statetype s_satellite1 = {SATELLITE1SPR, SATELLITE1SPR, stepthink, false, false, 10, 0, 0, T_Satellite, C_Satellite, R_Draw, &s_satellite2};\r
-statetype s_satellite2 = {SATELLITE2SPR, SATELLITE2SPR, stepthink, false, false, 10, 0, 0, T_Satellite, C_Satellite, R_Draw, &s_satellite3};\r
-statetype s_satellite3 = {SATELLITE3SPR, SATELLITE3SPR, stepthink, false, false, 10, 0, 0, T_Satellite, C_Satellite, R_Draw, &s_satellite4};\r
-statetype s_satellite4 = {SATELLITE4SPR, SATELLITE4SPR, stepthink, false, false, 10, 0, 0, T_Satellite, C_Satellite, R_Draw, &s_satellite1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSatelliteStop\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSatelliteStop(Uint16 tileX, Uint16 tileY, Uint16 type)\r
-{\r
- GetNewObj(false);\r
- new->active = ac_allways;\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->obclass = satellitestopobj;\r
- new->tileleft=new->tileright=tileX;\r
- new->tiletop=new->tilebottom=tileY;\r
- new->temp1 = (type ^ 1) + 1; // type is either 0 or 1, so this just maps 0 to 2 and 1 to 1\r
- new->x=new->left = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->right = new->left + TILEGLOBAL;\r
- new->y=new->top = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->bottom = new->top + TILEGLOBAL;\r
- NewState(new, &s_satellitestopspot);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSatellite\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSatellite(Uint16 tileX, Uint16 tileY)\r
-{\r
- Sint16 dir;\r
-\r
- GetNewObj(false);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->active = ac_allways;\r
- new->obclass = satelliteobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- NewState(new, &s_satellite1);\r
-\r
- dir = arrow_West;\r
- (mapsegs[2]+mapbwidthtable[tileY]/2)[tileX] = (dir+DIRARROWSTART);\r
- new->temp1 = dir;\r
- new->temp2 = TILEGLOBAL;\r
- new->temp4 = 2;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Satellite\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Satellite(objtype *ob)\r
-{\r
- //\r
- // this code could be executed twice during the same frame because the\r
- // object's animation/state changed during that frame, so don't update\r
- // anything if we already have movement for the current frame i.e. the\r
- // update code has already been executed this frame\r
- //\r
- if (xtry == 0 && ytry == 0)\r
- {\r
- //\r
- // if current stop spot type is 0 (not touching a spot), but previous\r
- // type is not 0, then set temp4 to the previous type\r
- //\r
- if (!(ob->temp3 & 0xFF) && (ob->temp3 & 0xFF00))\r
- {\r
- ob->temp4 = ob->temp3 >> 8;\r
- }\r
- //\r
- // move current type into previous type and set current stop type to 0\r
- //\r
- ob->temp3 <<= 8;\r
-\r
- //\r
- // follow the arrow path like a GoPlat\r
- //\r
- T_GoPlat(ob);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Satellite\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Satellite(objtype *ob, objtype *hit)\r
-{\r
- Sint16 temp;\r
- objtype *o;\r
-\r
- if (hit->state == &s_satellitestopspot)\r
- {\r
- ob->temp3 |= hit->temp1;\r
- }\r
- else if (hit->obclass == keenobj)\r
- {\r
- //\r
- // check if satellite has reaced a new stop spot\r
- //\r
- temp = ob->temp3 >> 8;\r
- if (temp && temp != ob->temp4)\r
- {\r
- SD_PlaySound(SND_GRABSATELLITE);\r
- //\r
- // update last spot value (don't grab or drop Keen until moved to the next spot)\r
- //\r
- ob->temp4 = temp;\r
- if (player->state == &s_worldkeensatellite)\r
- {\r
- //\r
- // drop Keen off at the current stop spot\r
- //\r
- for (o=player->next; o; o=o->next)\r
- {\r
- if (o->obclass == satellitestopobj && o->temp1 == temp)\r
- {\r
- hit->x = o->x;\r
- hit->y = o->y;\r
- hit->shapenum = WORLDKEENU3SPR;\r
- ChangeState(player, &s_worldkeen);\r
- hit->needtoclip = cl_midclip;\r
- return;\r
- }\r
- }\r
- }\r
- else\r
- {\r
- //\r
- // grab and carry Keen\r
- //\r
- hit->x = ob->x + 12*PIXGLOBAL;\r
- hit->y = ob->y + 16*PIXGLOBAL;\r
- hit->needtoclip = cl_noclip;\r
- ChangeState(player, &s_worldkeensatellite);\r
- }\r
- }\r
- else if (hit->state == &s_worldkeensatellite)\r
- {\r
- //\r
- // move Keen along with the satellite\r
- //\r
- hit->x = ob->x + 12*PIXGLOBAL;\r
- hit->y = ob->y + 16*PIXGLOBAL;\r
- ChangeState(hit, hit->state);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_WorldKeenSatellite\r
-=\r
-===========================\r
-*/\r
-\r
-void R_WorldKeenSatellite(objtype *ob)\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x + 4*PIXGLOBAL, ob->y + 8*PIXGLOBAL, WORLDKEENHANGSPR, spritedraw, 1);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SANDWICH\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_sandwich = {SANDWICHSPR, SANDWICHSPR, think, false, false, 0, 0, 0, NULL, C_Molly, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSandwich\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSandwich(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->obclass = sandwichobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- NewState(new, &s_sandwich);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- GRAPPLING HOOK\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_hook = {HOOKSPR, HOOKSPR, think, false, false, 0, 0, 0, NULL, C_Molly, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnHook\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnHook(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->obclass = hookobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- NewState(new, &s_hook);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- PASSCARD\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_passcard = {PASSCARDSPR, PASSCARDSPR, think, false, false, 0, 0, 0, NULL, C_Molly, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnPasscard\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnPasscard(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->needtoclip = cl_noclip;\r
- new->priority = 2;\r
- new->obclass = passcardobj;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- NewState(new, &s_passcard);\r
-}\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Molly\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Molly(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- switch (ob->obclass)\r
- {\r
- case sandwichobj:\r
- playstate = ex_sandwich;\r
- break;\r
-\r
- case hookobj:\r
- playstate = ex_hook;\r
- break;\r
-\r
- case passcardobj:\r
- playstate = ex_card;\r
- break;\r
-\r
- case mollyobj:\r
- playstate = ex_molly;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- MOLLY\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_molly1 = {MOLLY1SPR, MOLLY1SPR, step, false, false, 20, 0, 0, NULL, C_Molly, R_Draw, &s_molly2};\r
-statetype s_molly2 = {MOLLY2SPR, MOLLY2SPR, step, false, false, 40, 0, 0, NULL, C_Molly, R_Draw, &s_molly3};\r
-statetype s_molly3 = {MOLLY1SPR, MOLLY1SPR, step, false, false, 40, 0, 0, NULL, C_Molly, R_Draw, &s_molly4};\r
-statetype s_molly4 = {MOLLY2SPR, MOLLY2SPR, step, false, false, 20, 0, 0, NULL, C_Molly, R_Draw, &s_molly1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnMolly\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnMolly(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = mollyobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_molly1);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- PLATFORM\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_platform = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_Platform, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnPlatform\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnPlatform(Uint16 tileX, Uint16 tileY, Sint16 dir)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- switch (dir)\r
- {\r
- case 0:\r
- new->xdir = 0;\r
- new->ydir = -1;\r
- break;\r
- case 1:\r
- new->xdir = 1;\r
- new->ydir = 0;\r
- break;\r
- case 2:\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- break;\r
- case 3:\r
- new->xdir = -1;\r
- new->ydir = 0;\r
- }\r
- NewState(new, &s_platform);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Platform\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Platform(objtype *ob)\r
-{\r
- Uint16 newpos, newtile;\r
-\r
- xtry = ob->xdir * 12 * tics;\r
- ytry = ob->ydir * 12 * tics;\r
-\r
- if (ob->xdir == 1)\r
- {\r
- newpos = ob->right + xtry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tileright != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK)\r
- {\r
- ob->xdir = -1;\r
- xtry = xtry - (newpos & 0xFF);\r
- }\r
- }\r
- }\r
- else if (ob->xdir == -1)\r
- {\r
- newpos = ob->left + xtry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tileleft != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[ob->tiletop]/2 + newtile) == PLATFORMBLOCK)\r
- {\r
- ob->xdir = 1;\r
- xtry = xtry + (TILEGLOBAL - (newpos & 0xFF));\r
- }\r
- }\r
- }\r
- else if (ob->ydir == 1)\r
- {\r
- newpos = ob->bottom + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tilebottom != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile-2]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- ytry = 0;\r
- ob->needtoreact = true;\r
- }\r
- else\r
- {\r
- ob->ydir = -1;\r
- ytry = ytry - (newpos & 0xFF);\r
- }\r
- }\r
- }\r
- }\r
- else if (ob->ydir == -1)\r
- {\r
- newpos = ob->top + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tiletop != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile+2]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- ytry = 0;\r
- ob->needtoreact = true;\r
- }\r
- else\r
- {\r
- ob->ydir = 1;\r
- ytry = ytry + (TILEGLOBAL - (newpos & 0xFF));\r
- }\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- DROPPING PLATFORM\r
-\r
-temp1 = initial y position\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_dropplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatSit, NULL, R_Draw, NULL};\r
-statetype s_fallplatfall = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_DropPlatFall, NULL, R_Draw, NULL};\r
-statetype s_fallplatrise = {PLATFORMSPR, PLATFORMSPR, slidethink, false, false, 0, 0, -32, T_DropPlatRise, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnDropPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnDropPlat(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_dropplatsit);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DropPlatSit\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DropPlatSit(objtype *ob)\r
-{\r
- if (gamestate.riding == ob)\r
- {\r
- ytry = tics << 4; //tics * 16;\r
- ob->yspeed = 0;\r
- if (ob->y + ytry - ob->temp1 >= 8*PIXGLOBAL)\r
- ob->state = &s_fallplatfall;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DropPlatFall\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DropPlatFall(objtype *ob)\r
-{\r
- Uint16 newpos, newtile;\r
-\r
- DoGravity(ob);\r
-\r
-#if 0\r
- // bugfix: don't skip a tile (this is present in Keen 4, but missing in 5 & 6)\r
- if (ytry >= 15*PIXGLOBAL)\r
- ytry = 15*PIXGLOBAL;\r
-#endif\r
-\r
- newpos = ob->bottom + ytry;\r
- newtile = CONVERT_GLOBAL_TO_TILE(newpos);\r
- if (ob->tilebottom != newtile)\r
- {\r
- if (*(mapsegs[2]+mapbwidthtable[newtile]/2 + ob->tileleft) == PLATFORMBLOCK)\r
- {\r
- ytry = 0xFF - (ob->bottom & 0xFF);\r
- if (gamestate.riding != ob)\r
- ob->state = &s_fallplatrise;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_DropPlatRise\r
-=\r
-===========================\r
-*/\r
-\r
-void T_DropPlatRise(objtype *ob)\r
-{\r
- if (gamestate.riding == ob)\r
- {\r
- ob->yspeed = 0;\r
- ob->state = &s_fallplatfall;\r
- }\r
- else if (ob->y <= ob->temp1)\r
- {\r
- ytry = ob->temp1 - ob->y;\r
- ob->state = &s_dropplatsit;\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- STATIC PLATFORM\r
-\r
-temp1 = initial y position (is set but never used)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_staticplatform = {PLATFORMSPR, PLATFORMSPR, step, false, false, 32000, 0, 0, NULL, NULL, R_Draw, &s_staticplatform};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnStaticPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnStaticPlat(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_staticplatform);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- GO PLATFORM\r
-\r
-temp1 = direction\r
-temp2 = countdown to next dir check\r
-temp3 = sprite pointer for the Bip sprite\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_goplat = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_GoPlat, NULL, R_GoPlat, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnGoPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnGoPlat(Uint16 tileX, Uint16 tileY, Sint16 dir)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_goplat);\r
- *(mapsegs[2]+mapbwidthtable[tileY]/2 + tileX) = dir + DIRARROWSTART;\r
- new->temp1 = dir;\r
- new->temp2 = TILEGLOBAL;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_GoPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void T_GoPlat(objtype *ob)\r
-{\r
- Uint16 move;\r
- Sint16 dir;\r
- Uint16 tx, ty;\r
-\r
- move = tics * 12;\r
- if (ob->temp2 > move)\r
- {\r
- ob->temp2 = ob->temp2 - move;\r
-\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = xtry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = xtry + -move;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ytry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = ytry + -move;\r
- }\r
- }\r
- else\r
- {\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry += ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry += -ob->temp2;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry += ob->temp2;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry += -ob->temp2;\r
- }\r
-\r
- tx = CONVERT_GLOBAL_TO_TILE(ob->x + xtry);\r
- ty = CONVERT_GLOBAL_TO_TILE(ob->y + ytry);\r
- ob->temp1 = *(mapsegs[2]+mapbwidthtable[ty]/2 + tx) - DIRARROWSTART;\r
- if (ob->temp1 < arrow_North || ob->temp1 > arrow_None)\r
- {\r
- Quit("Goplat moved to a bad spot!");\r
- }\r
-\r
- move -= ob->temp2;\r
- ob->temp2 = TILEGLOBAL - move;\r
-\r
- dir = pdirx[ob->temp1];\r
- if (dir == 1)\r
- {\r
- xtry = xtry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- xtry = xtry - move;\r
- }\r
-\r
- dir = pdiry[ob->temp1];\r
- if (dir == 1)\r
- {\r
- ytry = ytry + move;\r
- }\r
- else if (dir == -1)\r
- {\r
- ytry = ytry - move;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_GoPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void R_GoPlat(objtype *ob)\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- RF_PlaceSprite((void**)&ob->temp3, ob->x+TILEGLOBAL, ob->y+TILEGLOBAL, ob->temp1+PLATBIP1SPR, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- SNEAKY PLATFORM\r
-\r
-temp1 = initial x position (is set but never used)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_sneakplatsit = {PLATFORMSPR, PLATFORMSPR, think, false, false, 0, 0, 0, T_SneakPlat, NULL, R_Draw, NULL};\r
-statetype s_sneakplatdodge = {PLATFORMSPR, PLATFORMSPR, slide, false, false, 48, 32, 0, NULL, NULL, R_Draw, &s_sneakplatreturn};\r
-statetype s_sneakplatreturn = {PLATFORMSPR, PLATFORMSPR, slide, false, false, 96, -16, 0, NULL, NULL, R_Draw, &s_sneakplatsit};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnSneakPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnSneakPlat(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = platformobj;\r
- new->active = ac_allways;\r
- new->priority = 0;\r
- new->x=new->temp1 = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->xdir = 0;\r
- new->ydir = 1;\r
- new->needtoclip = cl_noclip;\r
- NewState(new, &s_sneakplatsit);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_SneakPlat\r
-=\r
-===========================\r
-*/\r
-\r
-void T_SneakPlat(objtype *ob)\r
-{\r
- Sint16 dist;\r
-\r
- if (player->state != &s_keenjump1)\r
- return;\r
-\r
- if (player->xdir == 1)\r
- {\r
- dist = ob->left-player->right;\r
- if (dist > 4*TILEGLOBAL || dist < 0)\r
- return;\r
- }\r
- else\r
- {\r
- dist = player->left-ob->right;\r
- if (dist > 4*TILEGLOBAL || dist < 0)\r
- return;\r
- }\r
-\r
- dist = player->y - ob->y;\r
- if (dist < -6*TILEGLOBAL || dist > 6*TILEGLOBAL)\r
- return;\r
-\r
- ob->xdir = player->xdir;\r
- ob->state = &s_sneakplatdodge;\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BLOOG\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_bloogwalk1 = {BLOOGWALKL1SPR, BLOOGWALKR1SPR, step, false, true, 10, 128, 0, T_BloogWalk, C_Bloog, R_Walk, &s_bloogwalk2};\r
-statetype s_bloogwalk2 = {BLOOGWALKL2SPR, BLOOGWALKR2SPR, step, false, true, 10, 128, 0, T_BloogWalk, C_Bloog, R_Walk, &s_bloogwalk3};\r
-statetype s_bloogwalk3 = {BLOOGWALKL3SPR, BLOOGWALKR3SPR, step, false, true, 10, 128, 0, T_BloogWalk, C_Bloog, R_Walk, &s_bloogwalk4};\r
-statetype s_bloogwalk4 = {BLOOGWALKL4SPR, BLOOGWALKR4SPR, step, false, true, 10, 128, 0, T_BloogWalk, C_Bloog, R_Walk, &s_bloogwalk1};\r
-statetype s_bloogstun = {BLOOGSTUNSPR, BLOOGSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_bloogstun};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBloog\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBloog(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = bloogobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -2*TILEGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_bloogwalk1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BloogWalk\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BloogWalk(objtype *ob)\r
-{\r
- if (US_RndT() < 0x20)\r
- {\r
- if (ob->x < player->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Bloog\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Bloog(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- StunObj(ob, hit, &s_bloogstun);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BLOOGUARD\r
-\r
-temp1 = flash countdown\r
-temp2 = health\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_blooguardwalk1 = {BLOOGUARDWALKL1SPR, BLOOGUARDWALKR1SPR, step, false, true, 9, 128, 0, T_BlooguardWalk, C_Blooguard, R_Blooguard, &s_blooguardwalk2};\r
-statetype s_blooguardwalk2 = {BLOOGUARDWALKL2SPR, BLOOGUARDWALKR2SPR, step, false, true, 9, 128, 0, T_BlooguardWalk, C_Blooguard, R_Blooguard, &s_blooguardwalk3};\r
-statetype s_blooguardwalk3 = {BLOOGUARDWALKL3SPR, BLOOGUARDWALKR3SPR, step, false, true, 9, 128, 0, T_BlooguardWalk, C_Blooguard, R_Blooguard, &s_blooguardwalk4};\r
-statetype s_blooguardwalk4 = {BLOOGUARDWALKL4SPR, BLOOGUARDWALKR4SPR, step, false, true, 9, 128, 0, T_BlooguardWalk, C_Blooguard, R_Blooguard, &s_blooguardwalk1};\r
-statetype s_blooguardattack1 = {BLOOGUARDSWINGL1SPR, BLOOGUARDSWINGR1SPR, step, false, true, 30, 0, 0, NULL, C_Blooguard, R_Blooguard, &s_blooguardattack2};\r
-statetype s_blooguardattack2 = {BLOOGUARDSWINGL2SPR, BLOOGUARDSWINGR2SPR, step, false, true, 9, 0, 0, NULL, C_Blooguard, R_Blooguard, &s_blooguardattack3};\r
-statetype s_blooguardattack3 = {BLOOGUARDSWINGL3SPR, BLOOGUARDSWINGR3SPR, step, true, true, 1, 0, 0, T_BlooguardAttack, C_Blooguard, R_Blooguard, &s_blooguardattack4};\r
-statetype s_blooguardattack4 = {BLOOGUARDSWINGL3SPR, BLOOGUARDSWINGR3SPR, step, false, true, 9, 0, 0, NULL, C_Blooguard, R_Blooguard, &s_blooguardwalk1};\r
-statetype s_blooguardstun = {BLOOGUARDSTUNSPR, BLOOGUARDSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_blooguardstun};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBlooguard\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBlooguard(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = blooguardobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -40*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- new->temp2 = 3; // health\r
- NewState(new, &s_blooguardwalk1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BlooguardWalk\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BlooguardWalk(objtype *ob)\r
-{\r
- if (US_RndT() < 0x20)\r
- {\r
- if (ob->x < player->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- }\r
- if ( ((ob->xdir == 1 && ob->x < player->x) || (ob->xdir == -1 && ob->x > player->x))\r
- && ob->bottom == player->bottom && US_RndT() < 0x20)\r
- {\r
- ob->state = &s_blooguardattack1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BlooguardAttack\r
-=\r
-===========================\r
-*/\r
-\r
-#pragma argsused\r
-void T_BlooguardAttack(objtype *ob)\r
-{\r
- SD_PlaySound(SND_SMASH);\r
- groundslam = 23;\r
- if (player->hitnorth)\r
- {\r
- ChangeState(player, &s_keenstun);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Blooguard\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Blooguard(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- if (hit->obclass == stunshotobj) // not 'else if' in the original code\r
- {\r
- if (--ob->temp2 == 0) // handle health\r
- {\r
- StunObj(ob, hit, &s_blooguardstun);\r
- }\r
- else\r
- {\r
- ob->temp1 = 2; // draw white twice\r
- ob->needtoreact = true;\r
- ExplodeShot(hit);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Blooguard\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Blooguard(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (!ob->hitnorth)\r
- {\r
- ob->x -= ob->xmove*2;\r
- ob->xdir = -ob->xdir;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- if (ob->temp1)\r
- {\r
- ob->temp1--;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority);\r
- }\r
- else\r
- {\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BLOOGLET\r
-\r
-temp1 = type\r
-\r
-=============================================================================\r
-*/\r
-\r
-// red Blooglet:\r
-statetype s_rbloogletwalk1 = {RBLOOGLETWALKL1SPR, RBLOOGLETWALKR1SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_rbloogletwalk2};\r
-statetype s_rbloogletwalk2 = {RBLOOGLETWALKL2SPR, RBLOOGLETWALKR2SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_rbloogletwalk3};\r
-statetype s_rbloogletwalk3 = {RBLOOGLETWALKL3SPR, RBLOOGLETWALKR3SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_rbloogletwalk4};\r
-statetype s_rbloogletwalk4 = {RBLOOGLETWALKL4SPR, RBLOOGLETWALKR4SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_rbloogletwalk1};\r
-statetype s_rbloogletstun = {RBLOOGLETSTUNSPR, RBLOOGLETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-// yellow Blooglet:\r
-statetype s_ybloogletwalk1 = {YBLOOGLETWALKL1SPR, YBLOOGLETWALKR1SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_ybloogletwalk2};\r
-statetype s_ybloogletwalk2 = {YBLOOGLETWALKL2SPR, YBLOOGLETWALKR2SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_ybloogletwalk3};\r
-statetype s_ybloogletwalk3 = {YBLOOGLETWALKL3SPR, YBLOOGLETWALKR3SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_ybloogletwalk4};\r
-statetype s_ybloogletwalk4 = {YBLOOGLETWALKL4SPR, YBLOOGLETWALKR4SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_ybloogletwalk1};\r
-statetype s_ybloogletstun = {YBLOOGLETSTUNSPR, YBLOOGLETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-// blue Blooglet:\r
-statetype s_bbloogletwalk1 = {BBLOOGLETWALKL1SPR, BBLOOGLETWALKR1SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_bbloogletwalk2};\r
-statetype s_bbloogletwalk2 = {BBLOOGLETWALKL2SPR, BBLOOGLETWALKR2SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_bbloogletwalk3};\r
-statetype s_bbloogletwalk3 = {BBLOOGLETWALKL3SPR, BBLOOGLETWALKR3SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_bbloogletwalk4};\r
-statetype s_bbloogletwalk4 = {BBLOOGLETWALKL4SPR, BBLOOGLETWALKR4SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_bbloogletwalk1};\r
-statetype s_bbloogletstun = {BBLOOGLETSTUNSPR, BBLOOGLETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-// green Blooglet:\r
-statetype s_gbloogletwalk1 = {GBLOOGLETWALKL1SPR, GBLOOGLETWALKR1SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_gbloogletwalk2};\r
-statetype s_gbloogletwalk2 = {GBLOOGLETWALKL2SPR, GBLOOGLETWALKR2SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_gbloogletwalk3};\r
-statetype s_gbloogletwalk3 = {GBLOOGLETWALKL3SPR, GBLOOGLETWALKR3SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_gbloogletwalk4};\r
-statetype s_gbloogletwalk4 = {GBLOOGLETWALKL4SPR, GBLOOGLETWALKR4SPR, step, false, true, 5, 128, 0, T_BloogWalk, C_Blooglet, R_Walk, &s_gbloogletwalk1};\r
-statetype s_gbloogletstun = {GBLOOGLETSTUNSPR, GBLOOGLETSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBlooglet\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBlooglet(Uint16 tileX, Uint16 tileY, Sint16 type)\r
-{\r
- GetNewObj(false);\r
- new->obclass = bloogletobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- new->temp1 = type;\r
-\r
- switch (type % 4)\r
- {\r
- case 0:\r
- NewState(new, &s_rbloogletwalk1);\r
- break;\r
-\r
- case 1:\r
- NewState(new, &s_ybloogletwalk1);\r
- break;\r
-\r
- case 2:\r
- NewState(new, &s_bbloogletwalk1);\r
- break;\r
-\r
- case 3:\r
- NewState(new, &s_gbloogletwalk1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Blooglet\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Blooglet(objtype *ob, objtype *hit)\r
-{\r
- static statetype *stunnedstate[4] = {\r
- &s_rbloogletstun,\r
- &s_ybloogletstun,\r
- &s_bbloogletstun,\r
- &s_gbloogletstun\r
- };\r
- Sint16 color;\r
-\r
- if (hit->obclass == keenobj && hit->state->contact)\r
- {\r
- playerkludgeclipcancel = true;\r
- ClipToSpriteSide(hit, ob);\r
- playerkludgeclipcancel = false;\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- color = ob->temp1 & 3;\r
- if (ob->temp1 > 3)\r
- {\r
- //\r
- // spawn a key gem\r
- //\r
- GetNewObj(false);\r
- new->needtoclip = cl_midclip;\r
- new->priority = 2;\r
- new->obclass = bonusobj;\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- new->ydir = -1;\r
- new->yspeed = -40;\r
- new->temp1 = color;\r
- new->temp2=new->shapenum = bonusshape[color];\r
- new->temp3 = new->temp2 + 2;\r
- NewState(new, &s_bonusfly1);\r
- SD_PlaySound(SND_DROPKEY);\r
- }\r
- StunObj(ob, hit, stunnedstate[color]);\r
- }\r
-}
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K6_ACT2.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- Nospike\r
-- Gik\r
-- Turrets\r
-- Orbatrix\r
-- Bip & Bipship\r
-- Flect\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- NOSPIKE\r
-\r
-temp1 = step counter for running on thin air\r
-temp2 = low byte: running flag; high byte: flash countdown\r
-temp3 = sprite pointer for the question mark\r
-temp4 = health\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_nospikestand = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, step, false, true, 90, 0, 0, NULL, C_Nospike, R_Walk, &s_nospikewalk1};\r
-statetype s_nospikewalk1 = {NOSPIKEWALKL1SPR, NOSPIKEWALKR1SPR, step, false, true, 10, 128, 0, T_NospikeWalk, C_Nospike, R_Walk, &s_nospikewalk2};\r
-statetype s_nospikewalk2 = {NOSPIKEWALKL2SPR, NOSPIKEWALKR2SPR, step, false, true, 10, 128, 0, T_NospikeWalk, C_Nospike, R_Walk, &s_nospikewalk3};\r
-statetype s_nospikewalk3 = {NOSPIKEWALKL3SPR, NOSPIKEWALKR3SPR, step, false, true, 10, 128, 0, T_NospikeWalk, C_Nospike, R_Walk, &s_nospikewalk4};\r
-statetype s_nospikewalk4 = {NOSPIKEWALKL4SPR, NOSPIKEWALKR4SPR, step, false, true, 10, 128, 0, T_NospikeWalk, C_Nospike, R_Walk, &s_nospikewalk1};\r
-statetype s_nospikerun1 = {NOSPIKERUNL1SPR, NOSPIKERUNR1SPR, step, false, true, 4, 128, 0, T_NospikeRun, C_Nospike, R_NospikeRun, &s_nospikerun2};\r
-statetype s_nospikerun2 = {NOSPIKERUNL2SPR, NOSPIKERUNR2SPR, step, false, true, 4, 128, 0, T_NospikeRun, C_Nospike, R_NospikeRun, &s_nospikerun3};\r
-statetype s_nospikerun3 = {NOSPIKERUNL3SPR, NOSPIKERUNR3SPR, step, false, true, 4, 128, 0, T_NospikeRun, C_Nospike, R_NospikeRun, &s_nospikerun4};\r
-statetype s_nospikerun4 = {NOSPIKERUNL4SPR, NOSPIKERUNR4SPR, step, false, true, 4, 128, 0, T_NospikeRun, C_Nospike, R_NospikeRun, &s_nospikerun1};\r
-statetype s_nospikeconfused1 = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, step, false, false, 20, 0, 1, NULL, NULL, R_Draw, &s_nospikeconfused2};\r
-statetype s_nospikeconfused2 = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, step, false, false, 90, 0, 0, T_NospikeConfused, NULL, R_NospikeConfused, &s_nospikeconfused3};\r
-statetype s_nospikeconfused3 = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, step, false, false, 20, 0, 0, NULL, NULL, R_Draw, &s_nospikefall};\r
-statetype s_nospikefall = {NOSPIKESTANDSPR, NOSPIKESTANDSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_NospikeFall, NULL};\r
-statetype s_nospikestun = {NOSPIKESTUNSPR, NOSPIKESTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_nospikestun};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnNospike\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnNospike(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = nospikeobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -24*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_nospikestand);\r
- new->temp4 = 4; // health\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_NospikeWalk\r
-=\r
-===========================\r
-*/\r
-\r
-void T_NospikeWalk(objtype *ob)\r
-{\r
- if (US_RndT() < 0x10)\r
- {\r
- ob->state = &s_nospikestand;\r
- }\r
- else if (ob->bottom == player->bottom && US_RndT() <= 0x20)\r
- {\r
- //\r
- // start running towards player\r
- //\r
- if (player->x > ob->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- ob->temp1 = 0; // nospike is still on solid ground (should already be 0 anyway)\r
- ob->temp2 = 1; // nospike is running\r
- if (ob->state == &s_nospikewalk1)\r
- {\r
- ob->state = &s_nospikerun2;\r
- }\r
- else if (ob->state == &s_nospikewalk2)\r
- {\r
- ob->state = &s_nospikerun3;\r
- }\r
- else if (ob->state == &s_nospikewalk3)\r
- {\r
- ob->state = &s_nospikerun4;\r
- }\r
- else if (ob->state == &s_nospikewalk4)\r
- {\r
- ob->state = &s_nospikerun1;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_NospikeRun\r
-=\r
-===========================\r
-*/\r
-\r
-void T_NospikeRun(objtype *ob)\r
-{\r
- if (ob->temp1)\r
- return; // nospike is running on thin air, so we'd better not stop\r
-\r
- if ( ( ( player->bottom != ob->bottom // not on same ground level as Keen?\r
- || (ob->xdir == -1 && ob->x < player->x)\r
- || (ob->xdir == 1 && ob->x > player->x) ) // already ran past Keen?\r
- && US_RndT() < 8 )\r
- || !OnScreen(ob) ) // always stop running when off-screen\r
- {\r
- //\r
- // stop running\r
- //\r
- ob->temp2 = 0;\r
- if (ob->state == &s_nospikerun1)\r
- {\r
- ob->state = &s_nospikewalk2;\r
- }\r
- else if (ob->state == &s_nospikerun2)\r
- {\r
- ob->state = &s_nospikewalk3;\r
- }\r
- else if (ob->state == &s_nospikerun3)\r
- {\r
- ob->state = &s_nospikewalk4;\r
- }\r
- else if (ob->state == &s_nospikerun4)\r
- {\r
- ob->state = &s_nospikewalk1;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Nospike\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Nospike(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- if (--ob->temp4 == 0) // handle health\r
- {\r
- StunObj(ob, hit, &s_nospikestun);\r
- ob->yspeed = -24;\r
- }\r
- else\r
- {\r
- if (player->x > ob->x)\r
- {\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->xdir = -1;\r
- }\r
- ob->temp2 |= 0x400; // draw white 4 times\r
- ob->needtoreact = true;\r
- if (ob->state == &s_nospikestand || ob->state == &s_nospikewalk1)\r
- {\r
- ChangeState(ob, &s_nospikerun2);\r
- }\r
- else if (ob->state == &s_nospikewalk2)\r
- {\r
- ChangeState(ob, &s_nospikerun3);\r
- }\r
- else if (ob->state == &s_nospikewalk3)\r
- {\r
- ChangeState(ob, &s_nospikerun4);\r
- }\r
- else if (ob->state == &s_nospikewalk4)\r
- {\r
- ChangeState(ob, &s_nospikerun1);\r
- }\r
- ExplodeShot(hit);\r
- }\r
- }\r
- else if (hit->obclass == nospikeobj\r
- && (hit->temp2 & 0xFF) && (ob->temp2 & 0xFF) // both nospikes are running?\r
- && hit->xdir != ob->xdir) // running in opposite directions?\r
- {\r
- //\r
- // stun both nospikes\r
- //\r
- ob->temp1=ob->temp2=ob->temp3=hit->temp1=hit->temp2=hit->temp3 = 0;\r
- ob->temp4 = hit->temp4 = ob->obclass;\r
- ChangeState(ob, &s_nospikestun);\r
- ChangeState(hit, &s_nospikestun);\r
- SD_PlaySound(SND_SMASH);\r
- ob->obclass = hit->obclass = stunnedobj;\r
- ob->yspeed = hit->yspeed = -24;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_NospikeConfused\r
-=\r
-===========================\r
-*/\r
-\r
-void T_NospikeConfused(objtype* ob)\r
-{\r
- RF_RemoveSprite((void**)&ob->temp3);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_NospikeConfused\r
-=\r
-===========================\r
-*/\r
-\r
-void R_NospikeConfused(objtype *ob)\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- RF_PlaceSprite((void**)&ob->temp3, ob->x+TILEGLOBAL, ob->y-8*PIXGLOBAL, QUESTIONMARKSPR, spritedraw, 3);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_NospikeFall\r
-=\r
-===========================\r
-*/\r
-\r
-void R_NospikeFall(objtype *ob)\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- if (ob->hitnorth)\r
- {\r
- ob->temp1=ob->temp2=ob->temp3 = 0;\r
- ob->temp4 = ob->obclass;\r
- ChangeState(ob, &s_nospikestun);\r
- SD_PlaySound(SND_SMASH);\r
- ob->obclass = stunnedobj;\r
- ob->yspeed = -24;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_NospikeRun\r
-=\r
-===========================\r
-*/\r
-\r
-void R_NospikeRun(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- {\r
- ob->temp1 = 0; // on solid ground\r
- if (ob->hiteast || ob->hitwest)\r
- {\r
- ob->x -= ob->xdir << 7;\r
- NewState(ob, &s_nospikestand);\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- ob->temp2 = 0; // no longer running or flashing white\r
- return;\r
- }\r
- }\r
- else\r
- {\r
- if (++ob->temp1 == 6) // not on solid ground for 6 steps?\r
- {\r
- ChangeState(ob, &s_nospikeconfused1);\r
-#if 0\r
- // bugfix:\r
- ob->nothink = 0; // to make sure T_NospikeConfused can remove the question mark sprite\r
-#endif\r
- }\r
- }\r
- if (ob->temp2 & 0xFF00)\r
- {\r
- ob->temp2 -= 0x100;\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, maskdraw, ob->priority);\r
- }\r
- else\r
- {\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- GIK\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_gikwalk1 = {GIKWALKL1SPR, GIKWALKR1SPR, step, false, true, 10, 128, 0, T_GikWalk, C_ClipTop, R_Walk, &s_gikwalk2};\r
-statetype s_gikwalk2 = {GIKWALKL2SPR, GIKWALKR2SPR, step, false, true, 10, 128, 0, T_GikWalk, C_ClipTop, R_Walk, &s_gikwalk3};\r
-statetype s_gikwalk3 = {GIKWALKL3SPR, GIKWALKR3SPR, step, false, true, 10, 128, 0, T_GikWalk, C_ClipTop, R_Walk, &s_gikwalk1};\r
-statetype s_gikjump = {GIKJUMPLSPR, GIKJUMPRSPR, think, false, false, 0, 0, 0, T_Projectile, C_ClipSide, R_GikJump, &s_gikslide1};\r
-statetype s_gikslide1 = {GIKSLIDEL1SPR, GIKSLIDER1SPR, stepthink, false, false, 6, 0, 0, T_GikSlide, C_Lethal, R_GikSlide, &s_gikslide2};\r
-statetype s_gikslide2 = {GIKSLIDEL2SPR, GIKSLIDER2SPR, stepthink, false, false, 6, 0, 0, T_GikSlide, C_Lethal, R_GikSlide, &s_gikslide1};\r
-statetype s_gikstand = {GIKSLIDEL1SPR, GIKSLIDER1SPR, step, false, true, 20, 0, 0, NULL, C_Lethal, R_Walk, &s_gikwalk1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnGik\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnGik(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = gikobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_gikwalk1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_GikWalk\r
-=\r
-===========================\r
-*/\r
-\r
-void T_GikWalk(objtype *ob)\r
-{\r
- Sint16 xdist;\r
-\r
- if (ob->hitnorth != 9) // if NOT on flat ground that kills Keen\r
- {\r
- xdist = player->x - ob->x;\r
- if (player->bottom <= ob->bottom && ob->bottom - player->bottom <= 4*TILEGLOBAL)\r
- {\r
- if (xdist < 0)\r
- {\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->xdir = 1;\r
- }\r
- if (xdist >= -7*TILEGLOBAL && xdist <= 7*TILEGLOBAL\r
- && (xdist <= -TILEGLOBAL || xdist >= TILEGLOBAL) )\r
- {\r
- if (xdist < 0)\r
- {\r
- ob->xspeed = -40;\r
- }\r
- else\r
- {\r
- ob->xspeed = 40;\r
- }\r
- ob->yspeed = -28;\r
- ob->state = &s_gikjump;\r
- SD_PlaySound(SND_GIKJUMP);\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_GikSlide\r
-=\r
-===========================\r
-*/\r
-\r
-void T_GikSlide(objtype *ob)\r
-{\r
- // tic masks for friction, based on slope type and direction\r
- // 0 - no friction\r
- // 7 - lowest friction (speed decreases every 8 tics)\r
- // 3 - medium friction (speed decreases every 4 tics)\r
- // 1 - highest friction (speed decreases every 2 tics)\r
- static Sint16 rticmask[8] = {0, 7, 0, 0, 0, 3, 3, 1};\r
- static Sint16 lticmask[8] = {0, 7, 3, 3, 1, 0, 0, 0};\r
-\r
- Sint16 ticmask;\r
- Sint16 slope;\r
- Sint32 i;\r
-\r
- DoGravity(ob);\r
-\r
- slope = ob->hitnorth & 7;\r
- if (ob->xdir == 1)\r
- {\r
- ticmask = rticmask[slope];\r
- }\r
- else\r
- {\r
- ticmask = lticmask[slope];\r
- }\r
-\r
- if (ob->xspeed == 0 && ob->hitnorth)\r
- {\r
- ob->state = &s_gikstand;\r
- }\r
- else\r
- {\r
- for (i = lasttimecount-tics; i < lasttimecount; i++)\r
- {\r
- if (ticmask && !(i & ticmask))\r
- {\r
- if ((ob->xspeed < 0 && ++ob->xspeed == 0)\r
- || (ob-> xspeed > 0 && --ob->xspeed == 0))\r
- {\r
- ob->state = &s_gikstand;\r
- return;\r
- }\r
- }\r
- xtry += ob->xspeed;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_GikJump\r
-=\r
-===========================\r
-*/\r
-\r
-void R_GikJump(objtype *ob)\r
-{\r
- if (ob->hiteast || ob->hitwest)\r
- ob->xspeed = 0;\r
-\r
- if (ob->hitsouth)\r
- ob->yspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->yspeed = 0;\r
- SD_PlaySound(SND_GIKLAND);\r
- ChangeState(ob, ob->state->nextstate);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_GikSlide\r
-=\r
-===========================\r
-*/\r
-\r
-void R_GikSlide(objtype *ob)\r
-{\r
- if ((ob->hiteast && ob->xspeed < 0) || (ob->hitwest && ob->xspeed > 0))\r
- ob->xspeed = 0;\r
-\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- CANNON\r
-\r
-temp1 = direction\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_cannon = {0, 0, step, false, false, 120, 0, 0, NULL, NULL, R_Draw, &s_cannonfire};\r
-statetype s_cannonfire = {0, 0, step, true, false, 1, 0, 0, T_Cannon, NULL, R_Draw, &s_cannon};\r
-statetype s_cshot1 = {LASER1SPR, LASER1SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot2};\r
-statetype s_cshot2 = {LASER2SPR, LASER2SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot3};\r
-statetype s_cshot3 = {LASER3SPR, LASER3SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot4};\r
-statetype s_cshot4 = {LASER4SPR, LASER4SPR, stepthink, false, false, 8, 0, 0, T_Velocity, C_CShot, R_CShot, &s_cshot1};\r
-statetype s_cshothit1 = {LASERHIT1SPR, LASERHIT1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_cshothit2};\r
-statetype s_cshothit2 = {LASERHIT2SPR, LASERHIT2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnCannon\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnCannon(Uint16 tileX, Uint16 tileY, Sint16 dir)\r
-{\r
- GetNewObj(false);\r
- new->obclass = cannonobj;\r
- new->active = ac_yes;\r
- new->tileright = new->tileleft = tileX;\r
- new->tiletop = new->tilebottom = tileY;\r
- new->x = new->left = new->right = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = new->top = new->bottom = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->temp1 = dir;\r
- NewState(new, &s_cannon);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_Cannon\r
-=\r
-===========================\r
-*/\r
-\r
-void T_Cannon(objtype *ob)\r
-{\r
- GetNewObj(true);\r
- new->obclass = mshotobj;\r
- new->active = ac_yes; // BUG? NOT removable in Keen 6 (checked v1.0, v1.4 and v1.5)\r
- new->x = ob->x;\r
- new->y = ob->y;\r
- switch (ob->temp1)\r
- {\r
- case 0:\r
- new->yspeed = -64;\r
- break;\r
- case 1:\r
- new->xspeed = 64;\r
- break;\r
- case 2:\r
- new->yspeed = 64;\r
- break;\r
- case 3:\r
- new->xspeed = -64;\r
- }\r
- NewState(new, &s_cshot1);\r
- SD_PlaySound(SND_ENEMYSHOT);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_CShot\r
-=\r
-===========================\r
-*/\r
-\r
-void C_CShot(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- ChangeState(ob, &s_cshothit1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_CShot\r
-=\r
-===========================\r
-*/\r
-\r
-void R_CShot(objtype *ob)\r
-{\r
- if (ob->hitnorth || ob->hiteast || ob->hitsouth || ob->hitwest)\r
- {\r
- SD_PlaySound(SND_ENEMYSHOTEXPLODE);\r
- ChangeState(ob, &s_cshothit1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- ORBATRIX\r
-\r
-temp1 = bounce counter\r
-temp2 = amount to move up during uncurl animation\r
-temp3 = float offset\r
-temp4 = float direction (up or down)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_orbatrix1 = {ORBATRIXL1SPR, ORBATRIXR1SPR, slide, false, true, 12, 16, 0, T_OrbatrixFly, C_Orbatrix, R_Orbatrix, &s_orbatrix2};\r
-statetype s_orbatrix2 = {ORBATRIXL2SPR, ORBATRIXR2SPR, slide, false, true, 12, 16, 0, T_OrbatrixFly, C_Orbatrix, R_Orbatrix, &s_orbatrix1};\r
-statetype s_orbatrixcurl1 = {ORBATRIX1SPR, ORBATRIX1SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixcurl2};\r
-statetype s_orbatrixcurl2 = {ORBATRIXCURLSPR, ORBATRIXCURLSPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixcurl3};\r
-statetype s_orbatrixcurl3 = {ORBATRIXCURLSPR, ORBATRIXCURLSPR, think, false, true, 12, 0, 0, T_OrbatrixCurl, C_Orbatrix, R_Orbatrix, &s_orbatrixbounce1};\r
-statetype s_orbatrixuncurl1 = {ORBATRIXSPIN1SPR, ORBATRIXSPIN1SPR, think, false, false, 12, 0, 0, T_OrbatrixUncurl, C_OrbatrixBounce, R_Draw, &s_orbatrixuncurl2};\r
-statetype s_orbatrixuncurl2 = {ORBATRIXCURLSPR, ORBATRIXCURLSPR, step, false, false, 12, 0, 0, NULL, C_OrbatrixBounce, R_Draw, &s_orbatrixidle1};\r
-statetype s_orbatrixidle1 = {ORBATRIX1SPR, ORBATRIX1SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixidle2};\r
-statetype s_orbatrixidle2 = {ORBATRIX2SPR, ORBATRIX2SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixidle3};\r
-statetype s_orbatrixidle3 = {ORBATRIX3SPR, ORBATRIX3SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrixidle4};\r
-statetype s_orbatrixidle4 = {ORBATRIX4SPR, ORBATRIX4SPR, stepthink, false, true, 12, 0, 0, NULL, C_Orbatrix, R_Orbatrix, &s_orbatrix1};\r
-statetype s_orbatrixbounce1 = {ORBATRIXSPIN4SPR, ORBATRIXSPIN1SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_OrbatrixBounce, R_OrbatrixBounce, &s_orbatrixbounce2};\r
-statetype s_orbatrixbounce2 = {ORBATRIXSPIN3SPR, ORBATRIXSPIN2SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_OrbatrixBounce, R_OrbatrixBounce, &s_orbatrixbounce3};\r
-statetype s_orbatrixbounce3 = {ORBATRIXSPIN2SPR, ORBATRIXSPIN3SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_OrbatrixBounce, R_OrbatrixBounce, &s_orbatrixbounce4};\r
-statetype s_orbatrixbounce4 = {ORBATRIXSPIN1SPR, ORBATRIXSPIN4SPR, stepthink, false, false, 6, 0, 0, T_Projectile, C_OrbatrixBounce, R_OrbatrixBounce, &s_orbatrixbounce1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnOrbatrix\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnOrbatrix(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = orbatrixobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -24*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- new->temp4 = 1;\r
- NewState(new, &s_orbatrix1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_OrbatrixFly\r
-=\r
-===========================\r
-*/\r
-\r
-void T_OrbatrixFly(objtype *ob)\r
-{\r
- Sint16 dist;\r
-\r
- if (US_RndT() < 0x20)\r
- {\r
- ob->state = &s_orbatrixidle1;\r
- return;\r
- }\r
-\r
- if (ob->bottom != player->bottom)\r
- {\r
- return;\r
- }\r
-\r
- dist = player->x - ob->x;\r
- ob->xdir = (dist < 0)? -1 : 1;\r
- if (dist > -5*TILEGLOBAL && dist < 5*TILEGLOBAL)\r
- {\r
- ob->state = &s_orbatrixcurl1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Orbatrix\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Orbatrix(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- ChangeState(ob, &s_orbatrixidle1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Orbatrix\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Orbatrix(objtype *ob)\r
-{\r
- //\r
- // ugly hack: apply float offset before drawing the sprite\r
- // (it's ugly because the sprite moves up/down, but the hitbox doesn't)\r
- //\r
- ob->y -= ob->temp3;\r
- R_Walk(ob);\r
- ob->y += ob->temp3;\r
-\r
- //\r
- // update the float offset\r
- //\r
- ob->temp3 = ob->temp3 + ob->temp4 * tics * 4;\r
- if (ob->temp3 > 8*PIXGLOBAL)\r
- {\r
- ob->temp3 = 8*PIXGLOBAL;\r
- ob->temp4 = -1;\r
- }\r
- else if (ob->temp3 < -8*PIXGLOBAL)\r
- {\r
- ob->temp3 = -8*PIXGLOBAL;\r
- ob->temp4 = 1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_OrbatrixBounce\r
-=\r
-===========================\r
-*/\r
-\r
-void R_OrbatrixBounce(objtype *ob)\r
-{\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-\r
- if (ob->hitnorth)\r
- {\r
- ob->yspeed = -ob->yspeed;\r
- }\r
- if (ob->hitnorth || ob->hitwest || ob->hiteast)\r
- {\r
- ob->xspeed = -ob->xspeed;\r
- SD_PlaySound(SND_ORBATRIXBOUNCE);\r
- if (ob->hitnorth && --ob->temp1 == 0)\r
- {\r
- ChangeState(ob, &s_orbatrixuncurl1);\r
- ob->temp2 = 24*PIXGLOBAL;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_OrbatrixCurl\r
-=\r
-===========================\r
-*/\r
-\r
-void T_OrbatrixCurl(objtype *ob)\r
-{\r
- if (ob->temp3 >= 16)\r
- {\r
- ob->xspeed = ob->xdir * 60;\r
- ob->yspeed = -32;\r
- ob->y -= ob->temp3;\r
- ob->temp1 = 5; // bounce 5 times\r
- ob->state = ob->state->nextstate;\r
- }\r
- ob->needtoreact = true;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_OrbatrixUncurl\r
-=\r
-===========================\r
-*/\r
-\r
-void T_OrbatrixUncurl(objtype *ob)\r
-{\r
- ob->temp2 += (ytry = tics * -8);\r
- if (ob->temp2 <= 0)\r
- {\r
- ytry -= ob->temp2;\r
- ob->state = ob->state->nextstate;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_OrbatrixBounce\r
-=\r
-===========================\r
-*/\r
-\r
-void C_OrbatrixBounce(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- ob->xspeed = 0;\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BIP\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_bipstand = {BIPSTANDSPR, BIPSTANDSPR, step, false, true, 30, 0, 0, NULL, C_Bip, R_Walk, &s_bipwalk1};\r
-statetype s_bipwalk1 = {BIPWALKL1SPR, BIPWALKR1SPR, step, true, true, 4, 32, 0, T_BipWalk, C_Bip, R_Walk, &s_bipwalk2};\r
-statetype s_bipwalk2 = {BIPWALKL2SPR, BIPWALKR2SPR, step, true, true, 4, 32, 0, T_BipWalk, C_Bip, R_Walk, &s_bipwalk3};\r
-statetype s_bipwalk3 = {BIPWALKL3SPR, BIPWALKR3SPR, step, true, true, 4, 32, 0, T_BipWalk, C_Bip, R_Walk, &s_bipwalk4};\r
-statetype s_bipwalk4 = {BIPWALKL4SPR, BIPWALKR4SPR, step, true, true, 4, 32, 0, T_BipWalk, C_Bip, R_Walk, &s_bipwalk1};\r
-statetype s_bipsquished = {BIPSQUISHEDSPR, BIPSQUISHEDSPR, think, false, true, 0, 0, 0, T_Projectile, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BipWalk\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BipWalk(objtype *ob)\r
-{\r
- if (ob->bottom == player->bottom)\r
- {\r
- if (ob->right < player->left - 4*PIXGLOBAL)\r
- ob->xdir = 1;\r
-\r
- if (ob->left > player->right + 4*PIXGLOBAL)\r
- ob->xdir = -1;\r
- }\r
- else if (US_RndT() < 0x10)\r
- {\r
- ob->xdir = -ob->xdir;\r
- ob->state = &s_bipstand;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Bip\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Bip(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj && hit->ymove > 0)\r
- {\r
- SD_PlaySound(SND_BIPSQUISH);\r
- ob->obclass = inertobj;\r
- ChangeState(ob, &s_bipsquished);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BIPSHIP\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_bipship = {BIPSHIPLSPR, BIPSHIPRSPR, think, false, true, 0, 0, 0, T_BipshipFly, C_Bipship, R_Draw, &s_bipship};\r
-statetype s_bipshipshot = {BIPSHIPSHOTSPR, BIPSHIPSHOTSPR, think, false, false, 0, 0, 0, T_Velocity, C_Lethal, R_BipShot, NULL};\r
-statetype s_bipshipturn1 = {BIPSHIPRTURN1SPR, BIPSHIPLTURN1SPR, stepthink, false, true, 10, 0, 0, T_BipshipTurn, C_Bipship, R_Draw, &s_bipshipturn2};\r
-statetype s_bipshipturn2 = {BIPSHIPRTURN2SPR, BIPSHIPLTURN2SPR, stepthink, false, true, 10, 0, 0, T_BipshipTurn, C_Bipship, R_Draw, &s_bipshipturn3};\r
-statetype s_bipshipturn3 = {BIPSHIPRTURN3SPR, BIPSHIPLTURN3SPR, stepthink, false, true, 10, 0, 0, T_BipshipTurn, C_Bipship, R_Draw, &s_bipshipturn4};\r
-statetype s_bipshipturn4 = {BIPSHIPRTURN4SPR, BIPSHIPLTURN4SPR, stepthink, false, true, 10, 0, 0, T_BipshipTurn, C_Bipship, R_Draw, &s_bipship};\r
-statetype s_bipshipexplode1 = {BIPSHIPEXPLODE2SPR, BIPSHIPEXPLODE1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Land, &s_bipshipexplode2};\r
-statetype s_bipshipexplode2 = {BIPSHIPEXPLODE2SPR, BIPSHIPEXPLODE1SPR, step, true, false, 1, 0, 0, T_BipshipExplode, NULL, R_Land, &s_bipshipexplode3};\r
-statetype s_bipshipexplode3 = {BIPSHIPEXPLODE5SPR, BIPSHIPEXPLODE5SPR, step, true, false, 30000, 0, 0, NULL, NULL, R_Land, &s_bipshipexplode3};\r
-statetype s_bipshipsmoke1 = {BIPSHIPEXPLODE3SPR, BIPSHIPEXPLODE3SPR, step, true, false, 10, 0, 0, NULL, NULL, R_Draw, &s_bipshipsmoke2};\r
-statetype s_bipshipsmoke2 = {BIPSHIPEXPLODE4SPR, BIPSHIPEXPLODE4SPR, step, true, false, 10, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBipship\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBipship(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = bipshipobj;\r
- new->active = ac_yes;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY)+ -24*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->xspeed = new->xdir * 20;\r
- NewState(new, &s_bipship);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_BipShot\r
-=\r
-===========================\r
-*/\r
-\r
-void R_BipShot(objtype *ob)\r
-{\r
- if (ob->hitnorth || ob->hitsouth || ob->hiteast || ob->hitwest)\r
- {\r
- RemoveObj(ob);\r
- }\r
- else\r
- {\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BipshipTurn\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BipshipTurn(objtype *ob)\r
-{\r
- AccelerateX(ob, ob->xdir, 20);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BipshipFly\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BipshipFly(objtype *ob)\r
-{\r
- Uint16 far *map;\r
- Sint16 dir;\r
- Uint16 tile, tx, ty;\r
-\r
- AccelerateX(ob, ob->xdir, 20);\r
- dir = ob->xdir;\r
- if (player->bottom + TILEGLOBAL - ob->bottom <= 2*TILEGLOBAL)\r
- {\r
- if (player->x < ob->x)\r
- {\r
- dir = -1;\r
- }\r
- else\r
- {\r
- dir = 1;\r
- }\r
- if (ob->xdir == dir && US_RndT() < tics*4)\r
- {\r
- SD_PlaySound(SND_KEENFIRE);\r
- GetNewObj(true);\r
- new->obclass = mshotobj;\r
- new->active = ac_removable;\r
- new->priority = 1;\r
- if (ob->xdir == 1)\r
- {\r
- new->x = ob->x + TILEGLOBAL;\r
- new->xspeed = 64;\r
- }\r
- else\r
- {\r
- new->x = ob->x;\r
- new->xspeed = -64;\r
- }\r
- new->y = ob->y + 10*PIXGLOBAL;\r
- new->yspeed = 16;\r
- NewState(new, &s_bipshipshot);\r
- }\r
- }\r
-\r
- tx = ob->tilemidx + dir*4;\r
- map = mapsegs[1] + mapbwidthtable[ob->tiletop]/2 + tx;\r
-\r
- for (ty = ob->tiletop; ty <= ob->tilebottom; ty++, map += mapwidth)\r
- {\r
- tile = *map;\r
- if (tinf[tile+EASTWALL] || tinf[tile+WESTWALL])\r
- {\r
- dir = -dir;\r
- goto check_turn;\r
- }\r
- }\r
- tile = *map;\r
- if (!tinf[tile+NORTHWALL])\r
- {\r
- dir = -dir;\r
- }\r
-check_turn:\r
- if (dir != ob->xdir)\r
- {\r
- ob->xdir = dir;\r
- ChangeState(ob, &s_bipshipturn1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BipshipExplode\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BipshipExplode(objtype *ob)\r
-{\r
- SD_PlaySound(SND_BIPSHIPEXPLODE);\r
-\r
- GetNewObj(true);\r
- new->obclass = inertobj;\r
- new->active = ac_yes;\r
- new->priority = 2;\r
- new->x = ob->x;\r
- new->y = ob->y - 24*PIXGLOBAL;\r
- NewState(new, &s_bipshipsmoke1);\r
-\r
- GetNewObj(true);\r
- new->obclass = bipobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = ob->x;\r
- new->y = ob->y - 8*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- NewState(new, &s_bipstand);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Bipship\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Bipship(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- ChangeState(ob, &s_bipshipexplode1);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- FLECT\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_flectstand = {FLECTSTANDLSPR, FLECTSTANDRSPR, think, false, true, 60, 0, 0, T_FlectStand, C_Flect, R_Flect, &s_flectwalk1};\r
-statetype s_flectturn = {FLECTSTANDSPR, FLECTSTANDSPR, step, false, true, 8, 0, 0, NULL, C_Flect, R_Flect, &s_flectwalk1};\r
-statetype s_flectwalk1 = {FLECTWALKL1SPR, FLECTWALKR1SPR, step, false, true, 10, 128, 0, T_FlectWalk, C_Flect, R_Flect, &s_flectwalk2};\r
-statetype s_flectwalk2 = {FLECTWALKL2SPR, FLECTWALKR2SPR, step, false, true, 10, 128, 0, T_FlectWalk, C_Flect, R_Flect, &s_flectwalk3};\r
-statetype s_flectwalk3 = {FLECTWALKL3SPR, FLECTWALKR3SPR, step, false, true, 10, 128, 0, T_FlectWalk, C_Flect, R_Flect, &s_flectwalk4};\r
-statetype s_flectwalk4 = {FLECTWALKL4SPR, FLECTWALKR4SPR, step, false, true, 10, 128, 0, T_FlectWalk, C_Flect, R_Flect, &s_flectwalk1};\r
-statetype s_flectstun = {FLECTSTUNSPR, FLECTSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_flectstun};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnFlect\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnFlect(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = flectobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -1*TILEGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_flectwalk1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_FlectStand\r
-=\r
-===========================\r
-*/\r
-\r
-void T_FlectStand(objtype *ob)\r
-{\r
- if (player->x < ob->x)\r
- {\r
- if (ob->xdir != -1)\r
- {\r
- ob->state = &s_flectturn;\r
- ob->xdir = -1;\r
- }\r
- else\r
- {\r
- ob->state = &s_flectwalk1;\r
- }\r
- }\r
- else\r
- {\r
- if (ob->xdir != 1)\r
- {\r
- ob->state = &s_flectturn;\r
- ob->xdir = 1;\r
- }\r
- else\r
- {\r
- ob->state = &s_flectwalk1;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_FlectWalk\r
-=\r
-===========================\r
-*/\r
-\r
-void T_FlectWalk(objtype *ob)\r
-{\r
- if (player->x < ob->x && ob->xdir == 1)\r
- {\r
- if (ob->xdir != -1) // always true here!\r
- {\r
- ob->state = &s_flectturn;\r
- }\r
- ob->xdir = -1;\r
- }\r
-\r
- if (player->x > ob->x && ob->xdir == -1)\r
- {\r
- if (ob->xdir != 1) // always true here!\r
- {\r
- ob->state = &s_flectturn;\r
- }\r
- ob->xdir = 1;\r
- }\r
-\r
- if (US_RndT() < 0x20)\r
- {\r
- ob->state = &s_flectstand;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Flect\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Flect(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- ClipToSpriteSide(hit, ob);\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- if (hit->xdir == 0)\r
- {\r
- StunObj(ob, hit, &s_flectstun);\r
- }\r
- else if (hit->xdir != ob->xdir)\r
- {\r
- // reflect shot:\r
- hit->xdir = ob->xdir;\r
- hit->temp4 = true; // shot can now stun Keen\r
- SD_PlaySound(SND_SHOTBOUNCE);\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Flect\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Flect(objtype *ob)\r
-{\r
- if (ob->xdir == 1 && ob->hitwest)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (ob->xdir == -1 && ob->hiteast)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = 1;\r
- ob->nothink = US_RndT() >> 5;\r
- ChangeState(ob, ob->state);\r
- }\r
- else if (!ob->hitnorth)\r
- {\r
- ob->x -= ob->xmove;\r
- ob->xdir = -ob->xdir;\r
- ChangeState(ob, ob->state);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K6_ACT3.C\r
-=========\r
-\r
-Contains the following actor types (in this order):\r
-\r
-- Fleex\r
-- Bobba\r
-- Babobba\r
-- Blorb\r
-- Ceilick\r
-\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-/*\r
-=============================================================================\r
-\r
- FLEEX\r
-\r
-temp1 = flash countdown\r
-temp2 = health\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_fleexwalk1 = {FLEEXWALKL1SPR, FLEEXWALKR1SPR, step, false, true, 7, 128, 0, T_FleexWalk, C_Fleex, R_Blooguard, &s_fleexwalk2};\r
-statetype s_fleexwalk2 = {FLEEXWALKL2SPR, FLEEXWALKR2SPR, step, false, true, 7, 128, 0, T_FleexWalk, C_Fleex, R_Blooguard, &s_fleexwalk1};\r
-statetype s_fleexrun1 = {FLEEXWALKL1SPR, FLEEXWALKR1SPR, step, false, true, 7, 128, 0, NULL, C_Fleex, R_Blooguard, &s_fleexrun2};\r
-statetype s_fleexrun2 = {FLEEXWALKL2SPR, FLEEXWALKR2SPR, step, false, true, 7, 128, 0, NULL, C_Fleex, R_Blooguard, &s_fleexrun3};\r
-statetype s_fleexrun3 = {FLEEXWALKL1SPR, FLEEXWALKR1SPR, step, false, true, 7, 128, 0, NULL, C_Fleex, R_Blooguard, &s_fleexrun4};\r
-statetype s_fleexrun4 = {FLEEXWALKL2SPR, FLEEXWALKR2SPR, step, false, true, 7, 128, 0, NULL, C_Fleex, R_Blooguard, &s_fleexwalk1};\r
-statetype s_fleexlook1 = {FLEEXLOOK1SPR, FLEEXLOOK1SPR, step, false, true, 60, 0, 0, NULL, C_Fleex, R_Blooguard, &s_fleexlook2};\r
-statetype s_fleexlook2 = {FLEEXLOOK2SPR, FLEEXLOOK2SPR, step, false, true, 60, 0, 0, T_FleexLook, C_Fleex, R_Blooguard, &s_fleexrun1};\r
-statetype s_fleexstun = {FLEEXSTUNSPR, FLEEXSTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnFleex\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnFleex(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = fleexobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -40*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_fleexwalk1);\r
- new->temp2 = 4; // health\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_FleexWalk\r
-=\r
-===========================\r
-*/\r
-\r
-void T_FleexWalk(objtype *ob)\r
-{\r
- if (!player->xmove && !ob->temp1)\r
- {\r
- ob->state = &s_fleexlook1;\r
- }\r
- else\r
- {\r
- ob->xdir = (ob->x < player->x)? 1 : -1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_FleexLook\r
-=\r
-===========================\r
-*/\r
-\r
-void T_FleexLook(objtype *ob)\r
-{\r
- ob->xdir = (ob->x < player->x)? 1 : -1;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Fleex\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Fleex(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- if (hit->obclass == stunshotobj) // this is not 'else if' in the original code\r
- {\r
- if (--ob->temp2 == 0)\r
- {\r
- StunObj(ob, hit, &s_fleexstun);\r
- ob->yspeed = -20;\r
- }\r
- else\r
- {\r
- ob->temp1 = 2; // draw white twice\r
- ob->needtoreact = true;\r
- ExplodeShot(hit);\r
- if (ob->state == &s_fleexlook1 || ob->state == &s_fleexlook2)\r
- {\r
- ob->xdir = (ob->x < player->x)? 1 : -1;\r
- ChangeState(ob, &s_fleexwalk1);\r
- }\r
- }\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BOBBA\r
-\r
-temp1 = jump counter\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_bobbajump1 = {BOBBAL2SPR, BOBBAR2SPR, stepthink, false, false, 8, 0, 0, T_Projectile, C_Bobba, R_Bobba, &s_bobbajump2};\r
-statetype s_bobbajump2 = {BOBBAL3SPR, BOBBAR3SPR, think, false, false, 8, 0, 0, T_Projectile, C_Bobba, R_Bobba, &s_bobbajump2};\r
-statetype s_bobbastand = {BOBBAL1SPR, BOBBAR1SPR, step, false, false, 20, 0, 0, T_BobbaStand, C_Bobba, R_Draw, &s_bobbajump1};\r
-statetype s_bobbaattack = {BOBBAL1SPR, BOBBAR1SPR, step, false, false, 40, 0, 0, NULL, C_Bobba, R_Draw, &s_bobbajump1};\r
-statetype s_bobbashot1 = {BOBBASHOT1SPR, BOBBASHOT1SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashot2};\r
-statetype s_bobbashot2 = {BOBBASHOT2SPR, BOBBASHOT2SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashot3};\r
-statetype s_bobbashot3 = {BOBBASHOT1SPR, BOBBASHOT1SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashot4};\r
-statetype s_bobbashot4 = {BOBBASHOT2SPR, BOBBASHOT2SPR, step, false, false, 8, 0, 0, T_BobbaShot, NULL, R_Draw, &s_bobbashot5};\r
-statetype s_bobbashot5 = {BOBBASHOT3SPR, BOBBASHOT3SPR, slide, false, false, 8, 48, 0, NULL, C_Lethal, R_BobbaShot, &s_bobbashot6};\r
-statetype s_bobbashot6 = {BOBBASHOT4SPR, BOBBASHOT4SPR, slide, false, false, 8, 48, 0, NULL, C_Lethal, R_BobbaShot, &s_bobbashot7};\r
-statetype s_bobbashot7 = {BOBBASHOT5SPR, BOBBASHOT5SPR, slide, false, false, 8, 48, 0, NULL, C_Lethal, R_BobbaShot, &s_bobbashot8};\r
-statetype s_bobbashot8 = {BOBBASHOT6SPR, BOBBASHOT6SPR, slide, false, false, 8, 48, 0, NULL, C_Lethal, R_BobbaShot, &s_bobbashot5};\r
-statetype s_bobbashotvanish1 = {BOBBASHOT6SPR, BOBBASHOT6SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashotvanish2};\r
-statetype s_bobbashotvanish2 = {BOBBASHOT6SPR, BOBBASHOT6SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_bobbashotvanish3};\r
-statetype s_bobbashotvanish3 = {BOBBASHOT6SPR, BOBBASHOT6SPR, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBobba\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBobba(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = bobbaobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -2*TILEGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_bobbajump1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BobbaShot\r
-=\r
-===========================\r
-*/\r
-\r
-#pragma argsused\r
-void T_BobbaShot(objtype *ob)\r
-{\r
- SD_PlaySound(SND_BOBBASHOT);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BobbaStand\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BobbaStand(objtype *ob)\r
-{\r
- Sint16 i;\r
- Uint16 far *map;\r
-\r
- if (++ob->temp1 == 3)\r
- {\r
- ob->temp1 = 0;\r
- GetNewObj(true);\r
- new->active = ac_removable;\r
- new->obclass = mshotobj;\r
- new->y = ob->y + 11*PIXGLOBAL;\r
- new->xdir = ob->xdir;\r
- if (ob->xdir == 1)\r
- {\r
- new->x = ob->x + 16*PIXGLOBAL;\r
- }\r
- else\r
- {\r
- new->x = ob->x + 11*PIXGLOBAL;\r
- }\r
- NewState(new, &s_bobbashot1);\r
- new->priority = 2;\r
- ob->state = &s_bobbaattack;\r
- }\r
- else\r
- {\r
- map = mapsegs[1] + mapbwidthtable[ob->tilebottom+1]/2 + ob->tilemidx;\r
- for (i=0; i<4; map += ob->xdir, i++)\r
- {\r
- if ( !tinf[*map+NORTHWALL]\r
- && !tinf[*(map-mapwidth)+NORTHWALL]\r
- && !tinf[*(map+mapwidth)+NORTHWALL] )\r
- {\r
- ob->xdir = -ob->xdir;\r
- break;\r
- }\r
- }\r
- ob->xspeed = ob->xdir << 5;\r
- ob->yspeed = -32;\r
- SD_PlaySound(SND_BOBBAJUMP);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Bobba\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Bobba(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- ExplodeShot(hit);\r
- if (hit->xdir != 0)\r
- {\r
- ob->xdir = -hit->xdir;\r
- }\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Bobba\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Bobba(objtype *ob)\r
-{\r
- if (ob->hiteast)\r
- {\r
- ob->xdir = 1;\r
- ob->xspeed = -ob->xspeed;\r
- }\r
- else if (ob->hitwest)\r
- {\r
- ob->xdir = -1;\r
- ob->xspeed = -ob->xspeed;\r
- }\r
-\r
- if (ob->hitsouth)\r
- ob->yspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- {\r
- SD_PlaySound(SND_BOBBALAND);\r
- ChangeState(ob, &s_bobbastand);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_BobbaShot\r
-=\r
-===========================\r
-*/\r
-\r
-void R_BobbaShot(objtype *ob)\r
-{\r
- if (ob->hitnorth || ob->hitsouth || ob->hiteast || ob->hitwest)\r
- {\r
- ChangeState(ob, &s_bobbashotvanish1);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BABOBBA\r
-\r
-temp1 = jump counter (Babobba) / animation counter (Shot)\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_babobbajump1 = {BABOBBAL2SPR, BABOBBAR2SPR, stepthink, false, false, 8, 0, 0, T_Projectile, C_Babobba, R_Babobba, &s_babobbajump2};\r
-statetype s_babobbajump2 = {BABOBBAL3SPR, BABOBBAR3SPR, think, false, false, 8, 0, 0, T_Projectile, C_Babobba, R_Babobba, &s_babobbajump2};\r
-statetype s_babobbastand = {BABOBBAL1SPR, BABOBBAR1SPR, step, false, false, 20, 0, 0, T_BabobbaStand, C_Babobba, R_Draw, &s_babobbajump1};\r
-statetype s_babobbaattack = {BABOBBAL1SPR, BABOBBAR1SPR, step, false, false, 70, 0, 0, NULL, C_Babobba, R_Draw, &s_babobbastand};\r
-statetype s_babobbastun1 = {BABOBBAL2SPR, BABOBBAR2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, &s_babobbastun2};\r
-statetype s_babobbastun2 = {BABOBBASTUNSPR, BABOBBASTUNSPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
-statetype s_babobbasleep1 = {BABOBBASLEEP1SPR, BABOBBASLEEP1SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep2};\r
-statetype s_babobbasleep2 = {BABOBBASLEEP2SPR, BABOBBASLEEP2SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep3};\r
-statetype s_babobbasleep3 = {BABOBBASLEEP3SPR, BABOBBASLEEP3SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep4};\r
-statetype s_babobbasleep4 = {BABOBBASLEEP4SPR, BABOBBASLEEP4SPR, step, false, false, 500, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep5};\r
-statetype s_babobbasleep5 = {BABOBBASLEEP3SPR, BABOBBASLEEP3SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep6};\r
-statetype s_babobbasleep6 = {BABOBBASLEEP2SPR, BABOBBASLEEP2SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbasleep7};\r
-statetype s_babobbasleep7 = {BABOBBASLEEP1SPR, BABOBBASLEEP1SPR, step, false, false, 15, 0, 0, NULL, C_BabobbaSleep, R_Draw, &s_babobbastand};\r
-statetype s_babobbashot1 = {BABOBBASHOT1SPR, BABOBBASHOT1SPR, think, false, false, 0, 0, 0, T_Projectile, C_Lethal, R_Bounce, &s_babobbashot2};\r
-statetype s_babobbashot2 = {BABOBBASHOT2SPR, BABOBBASHOT2SPR, step, false, false, 8, 0, 0, T_BabobbaShot, C_Lethal, R_Draw, &s_babobbashot3};\r
-statetype s_babobbashot3 = {BABOBBASHOT1SPR, BABOBBASHOT1SPR, step, false, false, 8, 0, 0, NULL, C_Lethal, R_Draw, &s_babobbashot2};\r
-statetype s_babobbashotvanish1 = {BABOBBASHOT2SPR, BABOBBASHOT2SPR, step, false, false, 8, 0, 0, T_BabobbaShotVanish, C_Lethal, R_Draw, &s_babobbashotvanish2};\r
-statetype s_babobbashotvanish2 = {-1, -1, step, false, false, 8, 0, 0, NULL, NULL, R_Draw, &s_babobbashotvanish1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBabobba\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBabobba(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = babobbaobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -2*TILEGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- new->ydir = 1;\r
- NewState(new, &s_babobbajump1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BabobbaStand\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BabobbaStand(objtype *ob)\r
-{\r
- Sint16 i;\r
- Uint16 far *map;\r
-\r
- if (US_RndT() < 4)\r
- {\r
- ob->temp1 = 0;\r
- ob->state = &s_babobbasleep1;\r
- }\r
- else if (++ob->temp1 == 3)\r
- {\r
- ob->temp1 = 0;\r
-\r
- GetNewObj(true);\r
- new->active = ac_removable;\r
- new->obclass = mshotobj;\r
- new->y = ob->y + 4*PIXGLOBAL;\r
- new->xdir = ob->xdir;\r
- if (ob->xdir == 1)\r
- {\r
- new->x = ob->x + 16*PIXGLOBAL;\r
- }\r
- else\r
- {\r
- new->x = ob->x + 11*PIXGLOBAL;\r
- }\r
- new->xspeed = new->xdir << 5;\r
- NewState(new, &s_babobbashot1);\r
- new->priority = 2;\r
- ob->state = &s_babobbaattack;\r
- }\r
- else\r
- {\r
- map = mapsegs[1] + mapbwidthtable[ob->tilebottom+1]/2 + ob->tilemidx;\r
- for (i=0; i<4; map += ob->xdir, i++)\r
- {\r
- if ( !tinf[*map+NORTHWALL]\r
- && !tinf[*(map-mapwidth)+NORTHWALL]\r
- && !tinf[*(map+mapwidth)+NORTHWALL] )\r
- {\r
- ob->xdir = -ob->xdir;\r
- break;\r
- }\r
- }\r
- ob->xspeed = ob->xdir *24;\r
- ob->yspeed = -32;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Babobba\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Babobba(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == keenobj)\r
- {\r
- KillKeen();\r
- }\r
- else if (hit->obclass == stunshotobj)\r
- {\r
- StunObj(ob, hit, &s_babobbastun1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_BabobbaSleep\r
-=\r
-===========================\r
-*/\r
-\r
-void C_BabobbaSleep(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- StunObj(ob, hit, &s_babobbastun1);\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Babobba\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Babobba(objtype *ob)\r
-{\r
- if (ob->hiteast)\r
- {\r
- ob->xdir = 1;\r
- ob->xspeed = -ob->xspeed;\r
- }\r
- else if (ob->hitwest)\r
- {\r
- ob->xdir = -1;\r
- ob->xspeed = -ob->xspeed;\r
- }\r
-\r
- if (ob->hitsouth)\r
- ob->yspeed = 0;\r
-\r
- if (ob->hitnorth)\r
- {\r
- ChangeState(ob, &s_babobbastand);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BabobbaShot\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BabobbaShot(objtype *ob)\r
-{\r
- if (++ob->temp1 == 10)\r
- {\r
- ob->temp1 = 0;\r
- ob->state = &s_babobbashotvanish1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_BabobbaShotVanish\r
-=\r
-===========================\r
-*/\r
-\r
-void T_BabobbaShotVanish(objtype *ob)\r
-{\r
- if (++ob->temp1 == 5)\r
- {\r
- RemoveObj(ob);\r
- }\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- BLORB\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_blorb1 = {BLORB1SPR, BLORB1SPR, slide, false, false, 20, 8, 8, 0, C_Lethal, R_Blorb, &s_blorb2};\r
-statetype s_blorb2 = {BLORB2SPR, BLORB2SPR, slide, false, false, 20, 8, 8, 0, C_Lethal, R_Blorb, &s_blorb3};\r
-statetype s_blorb3 = {BLORB3SPR, BLORB3SPR, slide, false, false, 20, 8, 8, 0, C_Lethal, R_Blorb, &s_blorb1};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnBlorb\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnBlorb(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = blorbobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = CONVERT_TILE_TO_GLOBAL(tileY) + -8*PIXGLOBAL;\r
- if (US_RndT() < 0x80)\r
- {\r
- new->xdir = 1;\r
- }\r
- else\r
- {\r
- new->xdir = -1;\r
- }\r
- if (US_RndT() < 0x80)\r
- {\r
- new->ydir = 1;\r
- }\r
- else\r
- {\r
- new->ydir = -1;\r
- }\r
- new->needtoclip = cl_fullclip;\r
- NewState(new, &s_blorb1);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= R_Blorb\r
-=\r
-===========================\r
-*/\r
-\r
-void R_Blorb(objtype *ob)\r
-{\r
- if (ob->hitnorth)\r
- {\r
- ob->ydir = -1;\r
- SD_PlaySound(SND_BLORBBOUNCE);\r
- }\r
- else if (ob->hitsouth)\r
- {\r
- ob->ydir = 1;\r
- SD_PlaySound(SND_BLORBBOUNCE);\r
- }\r
- if (ob->hitwest)\r
- {\r
- ob->xdir = -1;\r
- SD_PlaySound(SND_BLORBBOUNCE);\r
- }\r
- else if (ob->hiteast)\r
- {\r
- ob->xdir = 1;\r
- SD_PlaySound(SND_BLORBBOUNCE);\r
- }\r
- RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
-}\r
-\r
-/*\r
-=============================================================================\r
-\r
- CEILICK\r
-\r
-temp1 = initial y position\r
-\r
-=============================================================================\r
-*/\r
-\r
-statetype s_ceilickhidden = {TONGUE1SPR, TONGUE1SPR, think, false, false, 20, 0, 0, T_CeilickHidden, NULL, R_Draw, NULL};\r
-statetype s_ceilickattack1 = {TONGUE1SPR, TONGUE1SPR, step, false, false, 6, 0, 0, NULL, NULL, R_Draw, &s_ceilickattack2};\r
-statetype s_ceilickattack2 = {TONGUE2SPR, TONGUE2SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack3};\r
-statetype s_ceilickattack3 = {TONGUE3SPR, TONGUE3SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack4};\r
-statetype s_ceilickattack4 = {TONGUE4SPR, TONGUE4SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack5};\r
-statetype s_ceilickattack5 = {TONGUE5SPR, TONGUE5SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack6};\r
-statetype s_ceilickattack6 = {TONGUE4SPR, TONGUE4SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack7};\r
-statetype s_ceilickattack7 = {TONGUE3SPR, TONGUE3SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack8};\r
-statetype s_ceilickattack8 = {TONGUE4SPR, TONGUE4SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack9};\r
-statetype s_ceilickattack9 = {TONGUE5SPR, TONGUE5SPR, step, false, false, 6, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack10};\r
-statetype s_ceilickattack10 = {TONGUE2SPR, TONGUE2SPR, step, false, false, 10, 0, 0, NULL, C_Lethal, R_Draw, &s_ceilickattack11};\r
-statetype s_ceilickattack11 = {TONGUE1SPR, TONGUE1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_ceilicklaugh1};\r
-statetype s_ceilicklaugh1 = {CEILICK1SPR, CEILICK1SPR, slide, true, false, 16, 0, 16, T_CeilickLaugh, C_Ceilick, R_Draw, &s_ceilicklaugh2};\r
-statetype s_ceilicklaugh2 = {CEILICK2SPR, CEILICK2SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh3};\r
-statetype s_ceilicklaugh3 = {CEILICK1SPR, CEILICK1SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh4};\r
-statetype s_ceilicklaugh4 = {CEILICK2SPR, CEILICK2SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh5};\r
-statetype s_ceilicklaugh5 = {CEILICK1SPR, CEILICK1SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh6};\r
-statetype s_ceilicklaugh6 = {CEILICK2SPR, CEILICK2SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh7};\r
-statetype s_ceilicklaugh7 = {CEILICK1SPR, CEILICK1SPR, step, true, false, 10, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh8};\r
-statetype s_ceilicklaugh8 = {CEILICK1SPR, CEILICK1SPR, slide, true, false, 16, 0, -16, NULL, C_Ceilick, R_Draw, &s_ceilicklaugh9};\r
-statetype s_ceilicklaugh9 = {-1, -1, step, true, false, 60, 0, 0, NULL, C_Ceilick, R_Draw, &s_ceilickhidden};\r
-statetype s_ceilickstun = {CEILICKSTUNSPR, CEILICKSTUNSPR, think, true, false, 0, 0, 0, T_CeilickStunned, NULL, R_Stunned, NULL};\r
-\r
-/*\r
-===========================\r
-=\r
-= SpawnCeilick\r
-=\r
-===========================\r
-*/\r
-\r
-void SpawnCeilick(Uint16 tileX, Uint16 tileY)\r
-{\r
- GetNewObj(false);\r
- new->obclass = ceilickobj;\r
- new->active = ac_yes;\r
- new->priority = 0;\r
- new->needtoclip = cl_noclip;\r
- new->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
- new->y = new->temp1 = CONVERT_TILE_TO_GLOBAL(tileY);\r
- new->ydir = 1;\r
- NewState(new, &s_ceilickhidden);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_CeilickHidden\r
-=\r
-===========================\r
-*/\r
-\r
-void T_CeilickHidden(objtype *ob)\r
-{\r
- if ( player->y - ob->y <= 40*PIXGLOBAL\r
- && player->left < ob->right+PIXGLOBAL\r
- && player->right > ob->left-PIXGLOBAL )\r
- {\r
- SD_PlaySound(SND_CEILICKATTACK);\r
- ob->state = &s_ceilickattack1;\r
- }\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_CeilickLaugh\r
-=\r
-===========================\r
-*/\r
-\r
-#pragma argsused\r
-void T_CeilickLaugh(objtype *ob)\r
-{\r
- SD_PlaySound(SND_CEILICKLAUGH);\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= T_CeilickStunned\r
-=\r
-===========================\r
-*/\r
-\r
-void T_CeilickStunned(objtype *ob)\r
-{\r
- ob->needtoreact = true; // to make sure the stunned stars animate\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= C_Ceilick\r
-=\r
-===========================\r
-*/\r
-\r
-void C_Ceilick(objtype *ob, objtype *hit)\r
-{\r
- if (hit->obclass == stunshotobj)\r
- {\r
- ob->y = ob->temp1;\r
- ExplodeShot(hit);\r
- ob->temp1 = ob->temp2 = ob->temp3 = 0;\r
- ob->temp4 = ob->obclass;\r
- ChangeState(ob, &s_ceilickstun);\r
- ob->obclass = stunnedobj;\r
- }\r
-}
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __K6_DEF__\r
-#define __K6_DEF__\r
-\r
-/*\r
-=============================================================================\r
-\r
- GLOBAL CONSTANTS\r
-\r
-=============================================================================\r
-*/\r
-\r
-#if GRMODE == CGAGR\r
-#define MINMEMORY 255000l\r
-#else\r
-#define MINMEMORY 300000l\r
-#endif\r
-\r
-#define STARPALETTE {0, 1, 24, 25, 4, 28, 6, 7, 31, 31, 31, 31, 31, 31, 31, 31, 0}\r
-#define INTROPALETTE {0, 5, 5, 21, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 19, 0}\r
-#define SHRINKPALETTE {0, 5, 5, 21, 1, 1, 1, 1, 17, 17, 17, 17, 19, 19, 19, 5, 0}\r
-\r
-#define HIGHSCORE_LEFT 40\r
-#define HIGHSCORE_TOP 51\r
-#define HIGHSCORE_RIGHT 280\r
-#define HIGHSCORE_MAP 18\r
-\r
-#define STATUS_PRESSKEY_X 120\r
-\r
-#define WORLDMAPNAME "Fribbulus Xax"\r
-#define DROPSNAME "VIVAS"\r
-\r
-#define STARWARSMUSIC 13\r
-#define ENDINGMUSIC 1\r
-\r
-// levels in this range can NOT be re-entered (BWB level should be > MAXDONELEVEL)\r
-#define MINDONELEVEL 1\r
-#define MAXDONELEVEL 16\r
-\r
-#define INACTIVATEDIST 4\r
-\r
-//\r
-// tiles for worldmap teleporters\r
-//\r
-#define TELEPORTERTILE1 2613 // tile animation for teleporting out\r
-#define TELEPORTERTILE2 2629 // tile after teleporting out\r
-#define TELEPORTERTILE3 TELEPORTERTILE1 // tile animation for teleporting in\r
-#define TELEPORTERTILE4 TELEPORTERTILE2 // tile after teleporting in\r
-\r
-#define TELEPORERTILEMASK 3 // animation has 4 frames\r
-\r
-extern Sint16 groundslam;\r
-\r
-//HACKs:\r
-//#define US_ManualCheck() true\r
-boolean US_ManualCheck(void);\r
-\r
-/*\r
-=============================================================================\r
-\r
- K6_SPEC DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern char far swtext[];\r
-extern char far *levelnames[GAMELEVELS];\r
-extern char far *levelenter[GAMELEVELS];\r
-\r
-void ScanInfoPlane(void);\r
-\r
-extern statetype s_keenstun;\r
-\r
-void FlipBigSwitch(objtype *ob, boolean isup);\r
-void GotSandwich(void);\r
-void GotHook(void);\r
-void GotPasscard(void);\r
-\r
-\r
-/*\r
-=============================================================================\r
-\r
- K6_ACT1 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern Sint16 pdirx[];\r
-extern Sint16 pdiry[];\r
-\r
-void C_ClipSide(objtype *ob, objtype *hit);\r
-void C_ClipTop(objtype *ob, objtype *hit);\r
-void R_Land(objtype *ob);\r
-void R_Bounce(objtype *ob);\r
-\r
-extern statetype s_bonus1;\r
-extern statetype s_bonus2;\r
-extern statetype s_bonusfly1;\r
-extern statetype s_bonusfly2;\r
-extern statetype s_bonusrise;\r
-\r
-extern statetype s_splash1;\r
-extern statetype s_splash2;\r
-extern statetype s_splash3;\r
-extern statetype s_splash4;\r
-\r
-extern Uint16 bonusshape[];\r
-\r
-void SpawnBonus(Uint16 tileX, Uint16 tileY, Uint16 type);\r
-void SpawnSplash(Uint16 tileX, Uint16 tileY);\r
-void T_Bonus(objtype *ob);\r
-void T_FlyBonus(objtype *ob);\r
-\r
-extern statetype s_grabbiter1;\r
-extern statetype s_grabbiter2;\r
-extern statetype s_grabbitersleep1;\r
-extern statetype s_grabbitersleep2;\r
-\r
-void SpawnGrabbiter(Uint16 tileX, Uint16 tileY);\r
-void C_Grabbiter(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_rocket;\r
-extern statetype s_rocketfly1;\r
-extern statetype s_rocketfly2;\r
-extern statetype s_keenrocket;\r
-\r
-void SpawnRocket(Uint16 tileX, Uint16 tileY, Uint16 state);\r
-void T_Rocket(objtype *ob);\r
-void C_Rocket(objtype *ob, objtype *hit);\r
-void C_RocketFly(objtype *ob, objtype *hit);\r
-void T_RocketFly(objtype *ob);\r
-\r
-extern statetype s_grapplespot;\r
-extern statetype s_throwrope1;\r
-extern statetype s_throwrope2;\r
-extern statetype s_climbrope1;\r
-extern statetype s_climbrope2;\r
-extern statetype s_maprope;\r
-extern statetype s_mapropeshort;\r
-\r
-void SpawnGrappleSpot(Uint16 tileX, Uint16 tileY, Uint16 type);\r
-void T_ThrowRope(objtype *ob);\r
-void T_ClimbRope(objtype *ob);\r
-void C_GrappleSpot(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_satellitestopspot;\r
-extern statetype s_worldkeensatellite;\r
-extern statetype s_satellite1;\r
-extern statetype s_satellite2;\r
-extern statetype s_satellite3;\r
-extern statetype s_satellite4;\r
-\r
-void SpawnSatelliteStop(Uint16 tileX, Uint16 tileY, Uint16 type);\r
-void SpawnSatellite(Uint16 tileX, Uint16 tileY);\r
-void T_Satellite(objtype *ob);\r
-void C_Satellite(objtype *ob, objtype *hit);\r
-void R_WorldKeenSatellite(objtype *ob);\r
-\r
-extern statetype s_sandwich;\r
-\r
-void SpawnSandwich(Uint16 tileX, Uint16 tileY);\r
-\r
-extern statetype s_hook;\r
-\r
-void SpawnHook(Uint16 tileX, Uint16 tileY);\r
-\r
-extern statetype s_passcard;\r
-\r
-void SpawnPasscard(Uint16 tileX, Uint16 tileY);\r
-void C_Molly(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_molly1;\r
-extern statetype s_molly2;\r
-extern statetype s_molly3;\r
-extern statetype s_molly4;\r
-\r
-void SpawnMolly(Uint16 tileX, Uint16 tileY);\r
-\r
-extern statetype s_platform;\r
-\r
-void SpawnPlatform(Uint16 tileX, Uint16 tileY, Sint16 dir);\r
-void T_Platform(objtype *ob);\r
-\r
-extern statetype s_dropplatsit;\r
-extern statetype s_fallplatfall;\r
-extern statetype s_fallplatrise;\r
-\r
-void SpawnDropPlat(Uint16 tileX, Uint16 tileY);\r
-void T_DropPlatSit(objtype *ob);\r
-void T_DropPlatFall(objtype *ob);\r
-void T_DropPlatRise(objtype *ob);\r
-\r
-extern statetype s_staticplatform;\r
-\r
-void SpawnStaticPlat(Uint16 tileX, Uint16 tileY);\r
-\r
-extern statetype s_goplat;\r
-\r
-void SpawnGoPlat(Uint16 tileX, Uint16 tileY, Sint16 dir);\r
-void T_GoPlat(objtype *ob);\r
-void R_GoPlat(objtype *ob);\r
-\r
-extern statetype s_sneakplatsit;\r
-extern statetype s_sneakplatdodge;\r
-extern statetype s_sneakplatreturn;\r
-\r
-void SpawnSneakPlat(Uint16 tileX, Uint16 tileY);\r
-void T_SneakPlat(objtype *ob);\r
-\r
-extern statetype s_bloogwalk1;\r
-extern statetype s_bloogwalk2;\r
-extern statetype s_bloogwalk3;\r
-extern statetype s_bloogwalk4;\r
-extern statetype s_bloogstun;\r
-\r
-void SpawnBloog(Uint16 tileX, Uint16 tileY);\r
-void T_BloogWalk(objtype *ob);\r
-void C_Bloog(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_blooguardwalk1;\r
-extern statetype s_blooguardwalk2;\r
-extern statetype s_blooguardwalk3;\r
-extern statetype s_blooguardwalk4;\r
-extern statetype s_blooguardattack1;\r
-extern statetype s_blooguardattack2;\r
-extern statetype s_blooguardattack3;\r
-extern statetype s_blooguardattack4;\r
-extern statetype s_blooguardstun;\r
-\r
-void SpawnBlooguard(Uint16 tileX, Uint16 tileY);\r
-void T_BlooguardWalk(objtype *ob);\r
-void T_BlooguardAttack(objtype *ob);\r
-void C_Blooguard(objtype *ob, objtype *hit);\r
-void R_Blooguard(objtype *ob);\r
-\r
-extern statetype s_rbloogletwalk1;\r
-extern statetype s_rbloogletwalk2;\r
-extern statetype s_rbloogletwalk3;\r
-extern statetype s_rbloogletwalk4;\r
-extern statetype s_rbloogletstun;\r
-extern statetype s_ybloogletwalk1;\r
-extern statetype s_ybloogletwalk2;\r
-extern statetype s_ybloogletwalk3;\r
-extern statetype s_ybloogletwalk4;\r
-extern statetype s_ybloogletstun;\r
-extern statetype s_bbloogletwalk1;\r
-extern statetype s_bbloogletwalk2;\r
-extern statetype s_bbloogletwalk3;\r
-extern statetype s_bbloogletwalk4;\r
-extern statetype s_bbloogletstun;\r
-extern statetype s_gbloogletwalk1;\r
-extern statetype s_gbloogletwalk2;\r
-extern statetype s_gbloogletwalk3;\r
-extern statetype s_gbloogletwalk4;\r
-extern statetype s_gbloogletstun;\r
-\r
-void SpawnBlooglet(Uint16 tileX, Uint16 tileY, Sint16 type);\r
-void C_Blooglet(objtype *ob, objtype *hit);\r
-\r
-/*\r
-=============================================================================\r
-\r
- K6_ACT2 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern statetype s_nospikestand;\r
-extern statetype s_nospikewalk1;\r
-extern statetype s_nospikewalk2;\r
-extern statetype s_nospikewalk3;\r
-extern statetype s_nospikewalk4;\r
-extern statetype s_nospikerun1;\r
-extern statetype s_nospikerun2;\r
-extern statetype s_nospikerun3;\r
-extern statetype s_nospikerun4;\r
-extern statetype s_nospikeconfused1;\r
-extern statetype s_nospikeconfused2;\r
-extern statetype s_nospikeconfused3;\r
-extern statetype s_nospikefall;\r
-extern statetype s_nospikestun;\r
-\r
-void SpawnNospike(Uint16 tileX, Uint16 tileY);\r
-void T_NospikeWalk(objtype *ob);\r
-void T_NospikeRun(objtype *ob);\r
-void C_Nospike(objtype *ob, objtype *hit);\r
-void T_NospikeConfused(objtype* ob);\r
-void R_NospikeConfused(objtype *ob);\r
-void R_NospikeFall(objtype *ob);\r
-void R_NospikeRun(objtype *ob);\r
-\r
-extern statetype s_gikwalk1;\r
-extern statetype s_gikwalk2;\r
-extern statetype s_gikwalk3;\r
-extern statetype s_gikjump;\r
-extern statetype s_gikslide1;\r
-extern statetype s_gikslide2;\r
-extern statetype s_gikstand;\r
-\r
-void SpawnGik(Uint16 tileX, Uint16 tileY);\r
-void T_GikWalk(objtype *ob);\r
-void T_GikSlide(objtype *ob);\r
-void R_GikJump(objtype *ob);\r
-void R_GikSlide(objtype *ob);\r
-\r
-extern statetype s_cannon;\r
-extern statetype s_cannonfire;\r
-extern statetype s_cshot1;\r
-extern statetype s_cshot2;\r
-extern statetype s_cshot3;\r
-extern statetype s_cshot4;\r
-extern statetype s_cshothit1;\r
-extern statetype s_cshothit2;\r
-\r
-void SpawnCannon(Uint16 tileX, Uint16 tileY, Sint16 dir);\r
-void T_Cannon(objtype *ob);\r
-void C_CShot(objtype *ob, objtype *hit);\r
-void R_CShot(objtype *ob);\r
-\r
-extern statetype s_orbatrix1;\r
-extern statetype s_orbatrix2;\r
-extern statetype s_orbatrixcurl1;\r
-extern statetype s_orbatrixcurl2;\r
-extern statetype s_orbatrixcurl3;\r
-extern statetype s_orbatrixuncurl1;\r
-extern statetype s_orbatrixuncurl2;\r
-extern statetype s_orbatrixidle1;\r
-extern statetype s_orbatrixidle2;\r
-extern statetype s_orbatrixidle3;\r
-extern statetype s_orbatrixidle4;\r
-extern statetype s_orbatrixbounce1;\r
-extern statetype s_orbatrixbounce2;\r
-extern statetype s_orbatrixbounce3;\r
-extern statetype s_orbatrixbounce4;\r
-\r
-void SpawnOrbatrix(Uint16 tileX, Uint16 tileY);\r
-void T_OrbatrixFly(objtype *ob);\r
-void C_Orbatrix(objtype *ob, objtype *hit);\r
-void R_Orbatrix(objtype *ob);\r
-void R_OrbatrixBounce(objtype *ob);\r
-void T_OrbatrixCurl(objtype *ob);\r
-void T_OrbatrixUncurl(objtype *ob);\r
-void C_OrbatrixBounce(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_bipstand;\r
-extern statetype s_bipwalk1;\r
-extern statetype s_bipwalk2;\r
-extern statetype s_bipwalk3;\r
-extern statetype s_bipwalk4;\r
-extern statetype s_bipsquished;\r
-\r
-void T_BipWalk(objtype *ob);\r
-void C_Bip(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_bipship;\r
-extern statetype s_bipshipshot;\r
-extern statetype s_bipshipturn1;\r
-extern statetype s_bipshipturn2;\r
-extern statetype s_bipshipturn3;\r
-extern statetype s_bipshipturn4;\r
-extern statetype s_bipshipexplode1;\r
-extern statetype s_bipshipexplode2;\r
-extern statetype s_bipshipexplode3;\r
-extern statetype s_bipshipsmoke1;\r
-extern statetype s_bipshipsmoke2;\r
-\r
-void SpawnBipship(Uint16 tileX, Uint16 tileY);\r
-void R_BipShot(objtype *ob);\r
-void T_BipshipTurn(objtype *ob);\r
-void T_BipshipFly(objtype *ob);\r
-void T_BipshipExplode(objtype *ob);\r
-void C_Bipship(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_flectstand;\r
-extern statetype s_flectturn;\r
-extern statetype s_flectwalk1;\r
-extern statetype s_flectwalk2;\r
-extern statetype s_flectwalk3;\r
-extern statetype s_flectwalk4;\r
-extern statetype s_flectstun;\r
-\r
-void SpawnFlect(Uint16 tileX, Uint16 tileY);\r
-void T_FlectStand(objtype *ob);\r
-void T_FlectWalk(objtype *ob);\r
-void C_Flect(objtype *ob, objtype *hit);\r
-void R_Flect(objtype *ob);\r
-\r
-/*\r
-=============================================================================\r
-\r
- K6_ACT3 DEFINITIONS\r
-\r
-=============================================================================\r
-*/\r
-\r
-extern statetype s_fleexwalk1;\r
-extern statetype s_fleexwalk2;\r
-extern statetype s_fleexrun1;\r
-extern statetype s_fleexrun2;\r
-extern statetype s_fleexrun3;\r
-extern statetype s_fleexrun4;\r
-extern statetype s_fleexlook1;\r
-extern statetype s_fleexlook2;\r
-extern statetype s_fleexstun;\r
-\r
-void SpawnFleex(Uint16 tileX, Uint16 tileY);\r
-void T_FleexWalk(objtype *ob);\r
-void T_FleexLook(objtype *ob);\r
-void C_Fleex(objtype *ob, objtype *hit);\r
-\r
-extern statetype s_bobbajump1;\r
-extern statetype s_bobbajump2;\r
-extern statetype s_bobbastand;\r
-extern statetype s_bobbaattack;\r
-extern statetype s_bobbashot1;\r
-extern statetype s_bobbashot2;\r
-extern statetype s_bobbashot3;\r
-extern statetype s_bobbashot4;\r
-extern statetype s_bobbashot5;\r
-extern statetype s_bobbashot6;\r
-extern statetype s_bobbashot7;\r
-extern statetype s_bobbashot8;\r
-extern statetype s_bobbashotvanish1;\r
-extern statetype s_bobbashotvanish2;\r
-extern statetype s_bobbashotvanish3;\r
-\r
-void SpawnBobba(Uint16 tileX, Uint16 tileY);\r
-void T_BobbaShot(objtype *ob);\r
-void T_BobbaStand(objtype *ob);\r
-void C_Bobba(objtype *ob, objtype *hit);\r
-void R_Bobba(objtype *ob);\r
-void R_BobbaShot(objtype *ob);\r
-\r
-extern statetype s_babobbajump1;\r
-extern statetype s_babobbajump2;\r
-extern statetype s_babobbastand;\r
-extern statetype s_babobbaattack;\r
-extern statetype s_babobbastun1;\r
-extern statetype s_babobbastun2;\r
-extern statetype s_babobbasleep1;\r
-extern statetype s_babobbasleep2;\r
-extern statetype s_babobbasleep3;\r
-extern statetype s_babobbasleep4;\r
-extern statetype s_babobbasleep5;\r
-extern statetype s_babobbasleep6;\r
-extern statetype s_babobbasleep7;\r
-extern statetype s_babobbashot1;\r
-extern statetype s_babobbashot2;\r
-extern statetype s_babobbashot3;\r
-extern statetype s_babobbashotvanish1;\r
-extern statetype s_babobbashotvanish2;\r
-\r
-void SpawnBabobba(Uint16 tileX, Uint16 tileY);\r
-void T_BabobbaStand(objtype *ob);\r
-void C_Babobba(objtype *ob, objtype *hit);\r
-void C_BabobbaSleep(objtype *ob, objtype *hit);\r
-void R_Babobba(objtype *ob);\r
-void T_BabobbaShot(objtype *ob);\r
-void T_BabobbaShotVanish(objtype *ob);\r
-\r
-extern statetype s_blorb1;\r
-extern statetype s_blorb2;\r
-extern statetype s_blorb3;\r
-\r
-void SpawnBlorb(Uint16 tileX, Uint16 tileY);\r
-void R_Blorb(objtype *ob);\r
-\r
-extern statetype s_ceilickhidden;\r
-extern statetype s_ceilickattack1;\r
-extern statetype s_ceilickattack2;\r
-extern statetype s_ceilickattack3;\r
-extern statetype s_ceilickattack4;\r
-extern statetype s_ceilickattack5;\r
-extern statetype s_ceilickattack6;\r
-extern statetype s_ceilickattack7;\r
-extern statetype s_ceilickattack8;\r
-extern statetype s_ceilickattack9;\r
-extern statetype s_ceilickattack10;\r
-extern statetype s_ceilickattack11;\r
-extern statetype s_ceilicklaugh1;\r
-extern statetype s_ceilicklaugh2;\r
-extern statetype s_ceilicklaugh3;\r
-extern statetype s_ceilicklaugh4;\r
-extern statetype s_ceilicklaugh5;\r
-extern statetype s_ceilicklaugh6;\r
-extern statetype s_ceilicklaugh7;\r
-extern statetype s_ceilicklaugh8;\r
-extern statetype s_ceilicklaugh9;\r
-extern statetype s_ceilickstun;\r
-\r
-void SpawnCeilick(Uint16 tileX, Uint16 tileY);\r
-void T_CeilickHidden(objtype *ob);\r
-void T_CeilickLaugh(objtype *ob);\r
-void T_CeilickStunned(objtype *ob);\r
-void C_Ceilick(objtype *ob, objtype *hit);\r
-\r
-#endif
\ No newline at end of file
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is loosely based on:\r
- * Keen Dreams Source Code\r
- * Copyright (C) 2014 Javier M. Chavez\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-/*\r
-K6_SPEC.C\r
-=========\r
-\r
-Contains (in this order):\r
-\r
-- lump definition\r
-- "Star Wars" crawl text\r
-- level names & messages\r
-- ScanInfoPlane() - for spawning the level objects and marking required sprites\r
-- stunned state for Keen\r
-- code to flip the big yellow switches\r
-- messages for sandwich, rope and passcard\r
-*/\r
-\r
-#include "CK_DEF.H"\r
-\r
-enum {\r
- CONTROLS_LUMP, // 0\r
- KEEN_LUMP, // 1\r
- SUGAR1_LUMP, // 2\r
- SUGAR2_LUMP, // 3\r
- SUGAR3_LUMP, // 4\r
- SUGAR4_LUMP, // 5\r
- SUGAR5_LUMP, // 6\r
- SUGAR6_LUMP, // 7\r
- ONEUP_LUMP, // 8\r
- KEYGEM_LUMP, // 9\r
- AMMO_LUMP, // 10\r
- WORLDKEEN_LUMP, // 11\r
- UNUSED1_LUMP, // 12\r
- BLOOG_LUMP, // 13\r
- RBLOOGLET_LUMP, // 14\r
- YBLOOGLET_LUMP, // 15\r
- BBLOOGLET_LUMP, // 16\r
- GBLOOGLET_LUMP, // 17\r
- PLATFORM_LUMP, // 18\r
- GIK_LUMP, // 19\r
- BLORB_LUMP, // 20\r
- BOBBA_LUMP, // 21\r
- BABOBBA_LUMP, // 22\r
- BLOOGUARD_LUMP, // 23\r
- FLECT_LUMP, // 24\r
- BIP_LUMP, // 25\r
- BIPSQUISHED_LUMP, // 26\r
- BIPSHIP_LUMP, // 27\r
- NOSPIKE_LUMP, // 28\r
- ORBATRIX_LUMP, // 29\r
- CEILICK_LUMP, // 30\r
- FLEEX_LUMP, // 31\r
- HOOK_LUMP, // 32\r
- SANDWICH_LUMP, // 33\r
- LASER_LUMP, // 34\r
- PASSCARD_LUMP, // 35\r
- MOLLY_LUMP, // 36\r
-\r
- NUMLUMPS=40 // Keen 6 has 3 unused lumps at the end\r
-};\r
-\r
-Uint16 lumpstart[NUMLUMPS] = {\r
- CONTROLS_LUMP_START,\r
- KEEN_LUMP_START,\r
- SUGAR1_LUMP_START,\r
- SUGAR2_LUMP_START,\r
- SUGAR3_LUMP_START,\r
- SUGAR4_LUMP_START,\r
- SUGAR5_LUMP_START,\r
- SUGAR6_LUMP_START,\r
- ONEUP_LUMP_START,\r
- KEYGEM_LUMP_START,\r
- AMMO_LUMP_START,\r
- WORLDKEEN_LUMP_START,\r
- 0,\r
- BLOOG_LUMP_START,\r
- RBLOOGLET_LUMP_START,\r
- YBLOOGLET_LUMP_START,\r
- BBLOOGLET_LUMP_START,\r
- GBLOOGLET_LUMP_START,\r
- PLATFORM_LUMP_START,\r
- GIK_LUMP_START,\r
- BLORB_LUMP_START,\r
- BOBBA_LUMP_START,\r
- BABOBBA_LUMP_START,\r
- BLOOGUARD_LUMP_START,\r
- FLECT_LUMP_START,\r
- BIP_LUMP_START,\r
- BIPSQUISHED_LUMP_START,\r
- BIPSHIP_LUMP_START,\r
- NOSPIKE_LUMP_START,\r
- ORBATRIX_LUMP_START,\r
- CEILICK_LUMP_START,\r
- FLEEX_LUMP_START,\r
- HOOK_LUMP_START,\r
- SANDWICH_LUMP_START,\r
- LASER_LUMP_START,\r
- PASSCARD_LUMP_START,\r
- MOLLY_LUMP_START\r
-};\r
-\r
-Uint16 lumpend[NUMLUMPS] = {\r
- CONTROLS_LUMP_END,\r
- KEEN_LUMP_END,\r
- SUGAR1_LUMP_END,\r
- SUGAR2_LUMP_END,\r
- SUGAR3_LUMP_END,\r
- SUGAR4_LUMP_END,\r
- SUGAR5_LUMP_END,\r
- SUGAR6_LUMP_END,\r
- ONEUP_LUMP_END,\r
- KEYGEM_LUMP_END,\r
- AMMO_LUMP_END,\r
- WORLDKEEN_LUMP_END,\r
- 0,\r
- BLOOG_LUMP_END,\r
- RBLOOGLET_LUMP_END,\r
- YBLOOGLET_LUMP_END,\r
- BBLOOGLET_LUMP_END,\r
- GBLOOGLET_LUMP_END,\r
- PLATFORM_LUMP_END,\r
- GIK_LUMP_END,\r
- BLORB_LUMP_END,\r
- BOBBA_LUMP_END,\r
- BABOBBA_LUMP_END,\r
- BLOOGUARD_LUMP_END,\r
- FLECT_LUMP_END,\r
- BIP_LUMP_END,\r
- BIPSQUISHED_LUMP_END,\r
- BIPSHIP_LUMP_END,\r
- NOSPIKE_LUMP_END,\r
- ORBATRIX_LUMP_END,\r
- CEILICK_LUMP_END,\r
- FLEEX_LUMP_END,\r
- HOOK_LUMP_END,\r
- SANDWICH_LUMP_END,\r
- LASER_LUMP_END,\r
- PASSCARD_LUMP_END,\r
- MOLLY_LUMP_END\r
-};\r
-\r
-boolean lumpneeded[NUMLUMPS];\r
-\r
-#if GRMODE == EGAGR\r
-\r
-char far swtext[] =\r
- "Episode Six\n"\r
- "\n"\r
- "Aliens Ate My\n"\r
- "Baby Sitter!\n"\r
- "\n"\r
- "While out in his\n"\r
- "backyard clubhouse,\n"\r
- "Billy's baby sitter\n"\r
- "Molly calls him for\n"\r
- "dinner. He continues\n"\r
- "working on his new\n"\r
- "wrist computer.\n"\r
- "\n"\r
- "Suddenly, there is a\n"\r
- "loud noise outside.\n"\r
- "\n"\r
- "Rushing out, Keen finds\n"\r
- "his baby sitter gone\n"\r
- "and a note on a patch\n"\r
- "of scorched grass. The\n"\r
- "Bloogs of Fribbulus Xax\n"\r
- "are going to make a\n"\r
- "meal out of Molly!\n"\r
- "\n"\r
- "You've got to rescue\n"\r
- "her, because your\n"\r
- "parents will never\n"\r
- "believe you when you\n"\r
- "tell them...\n"\r
- "\n"\r
- "\"Aliens Ate My\n"\r
- "Baby Sitter!\"\n";\r
-\r
-#endif\r
-\r
-char far l0n[] = "Fribbulus Xax";\r
-char far l1n[] = "Bloogwaters\nCrossing";\r
-char far l2n[] = "Guard Post One";\r
-char far l3n[] = "First Dome\nof Darkness";\r
-char far l4n[] = "Second Dome\nof Darkness";\r
-char far l5n[] = "The Bloogdome";\r
-char far l6n[] = "Bloogton Mfg.,\nIncorporated";\r
-char far l7n[] = "Bloogton Tower";\r
-char far l8n[] = "Bloogfoods, Inc.";\r
-char far l9n[] = "Guard Post Two";\r
-char far l10n[] = "Bloogville";\r
-char far l11n[] = "BASA";\r
-char far l12n[] = "Guard Post Three";\r
-char far l13n[] = "Bloogbase Rec\nDistrict";\r
-char far l14n[] = "Bloogbase Mgmt.\nDistrict";\r
-char far l15n[] = "Bloog Control Center";\r
-char far l16n[] = "Blooglab";\r
-char far l17n[] = "Bean-with-Bacon\nMegarocket";\r
-char far l18n[] = "High Scores";\r
-\r
-char far l0e[] = "Keen attacks\nFribbulus Xax";\r
-char far l1e[] = "Keen hops across\nBloogwaters\nCrossing";\r
-char far l2e[] = "Keen fights his way\nthrough Guard Post One";\r
-char far l3e[] = "Keen crosses into the\nFirst Dome of Darkness";\r
-char far l4e[] = "Keen dares to enter the\nSecond Dome of Darkness";\r
-char far l5e[] = "Keen foolishly enters\nthe Bloogdome";\r
-char far l6e[] = "Keen makes his way\ninto Bloogton\nManufacturing";\r
-char far l7e[] = "Keen ascends\nBloogton Tower";\r
-char far l8e[] = "Keen hungrily enters\nBloogfoods, Inc.";\r
-char far l9e[] = "Keen smashes through\nGuard Post Two";\r
-char far l10e[] = "Keen seeks thrills\nin Bloogville";\r
-char far l11e[] = "Keen rockets into the\nBloog Aeronautics and\nSpace Administration";\r
-char far l12e[] = "Keen boldly assaults\nGuard Post Three";\r
-char far l13e[] = "Keen whoops it up in\nthe Bloogbae\nRecreational District"; // sic!\r
-char far l14e[] = "Keen purposefully struts\ninto the Bloogbase\nManagement District";\r
-char far l15e[] = "Keen bravely enters the\nBloog Control Center,\nlooking for Molly";\r
-char far l16e[] = "Keen warily enters\nBlooglab Space\nStation";\r
-char far l17e[] = "Keen returns to the\nBean-with-Bacon\nMegarocket";\r
-char far l18e[] = "Keen is in the High\nScore screen. Call Id!";\r
-\r
-char far *levelnames[GAMELEVELS] = {\r
- l0n,\r
- l1n,\r
- l2n,\r
- l3n,\r
- l4n,\r
- l5n,\r
- l6n,\r
- l7n,\r
- l8n,\r
- l9n,\r
- l10n,\r
- l11n,\r
- l12n,\r
- l13n,\r
- l14n,\r
- l15n,\r
- l16n,\r
- l17n,\r
- l18n\r
-};\r
-\r
-char far *levelenter[GAMELEVELS] = {\r
- l0e,\r
- l1e,\r
- l2e,\r
- l3e,\r
- l4e,\r
- l5e,\r
- l6e,\r
- l7e,\r
- l8e,\r
- l9e,\r
- l10e,\r
- l11e,\r
- l12e,\r
- l13e,\r
- l14e,\r
- l15e,\r
- l16e,\r
- l17e,\r
- l18e\r
-};\r
-\r
-Uint16 bonuslump[] = {\r
- KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP, KEYGEM_LUMP,\r
- SUGAR1_LUMP, SUGAR2_LUMP, SUGAR3_LUMP,\r
- SUGAR4_LUMP, SUGAR5_LUMP, SUGAR6_LUMP,\r
- ONEUP_LUMP, AMMO_LUMP, AMMO_LUMP, 0, 0\r
-};\r
-\r
-//============================================================================\r
-\r
-/*\r
-==========================\r
-=\r
-= ScanInfoPlane\r
-=\r
-= Spawn all actors and mark down special places\r
-=\r
-==========================\r
-*/\r
-\r
-void ScanInfoPlane(void)\r
-{\r
- Uint16 i, x, y, chunk;\r
- Sint16 info;\r
- Uint16 far *map;\r
- objtype *ob;\r
-\r
- InitObjArray(); // start spawning things with a clean slate\r
-\r
- memset(lumpneeded, 0, sizeof(lumpneeded));\r
- map = mapsegs[2];\r
-\r
- for (y=0; y<mapheight; y++)\r
- {\r
- for (x=0; x<mapwidth; x++)\r
- {\r
- info = *map++;\r
-\r
- if (info == 0)\r
- continue;\r
-\r
- switch (info)\r
- {\r
- case 1:\r
- SpawnKeen(x, y, 1);\r
- SpawnScore();\r
- lumpneeded[KEEN_LUMP] = true;\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- break;\r
-\r
- case 2:\r
- SpawnKeen(x, y, -1);\r
- SpawnScore();\r
- lumpneeded[KEEN_LUMP] = true;\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- break;\r
-\r
- case 3:\r
- SpawnWorldKeen(x, y);\r
- SpawnScore();\r
- lumpneeded[WORLDKEEN_LUMP] = true;\r
- CA_MarkGrChunk(SCOREBOXSPR);\r
- break;\r
-\r
- case 6:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 5:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 4:\r
- SpawnBloog(x, y);\r
- lumpneeded[BLOOG_LUMP] = true;\r
- break;\r
-\r
- case 7:\r
- case 8:\r
- case 9:\r
- case 10:\r
- case 11:\r
- case 12:\r
- case 13:\r
- case 14:\r
- SpawnBlooglet(x, y, info-7);\r
- lumpneeded[(info-7) % 4 + RBLOOGLET_LUMP] = true;\r
- if (info > 10)\r
- lumpneeded[KEYGEM_LUMP] = true;\r
- break;\r
-\r
- case 15:\r
- case 16:\r
- SpawnGrappleSpot(x, y, info-15);\r
- break;\r
-\r
- // case 17 is not used\r
-\r
- case 20:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 19:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 18:\r
- SpawnFleex(x, y);\r
- lumpneeded[FLEEX_LUMP] = true;\r
- break;\r
-\r
- case 21:\r
- case 22:\r
- case 23:\r
- case 24:\r
- SpawnMolly(x, y);\r
- lumpneeded[MOLLY_LUMP] = true;\r
- break;\r
-\r
- case 25:\r
- RF_SetScrollBlock(x, y, true);\r
- break;\r
-\r
- case 26:\r
- RF_SetScrollBlock(x, y, false);\r
- break;\r
-\r
- case 27:\r
- case 28:\r
- case 29:\r
- case 30:\r
- SpawnPlatform(x, y, info-27);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- // case 31 is the block icon\r
-\r
- case 32:\r
- SpawnDropPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- case 35:\r
- SpawnStaticPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
- case 34:\r
- if (gamestate.difficulty > gd_Normal)\r
- break;\r
- SpawnStaticPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
- case 33:\r
- if (gamestate.difficulty > gd_Easy)\r
- break;\r
- SpawnStaticPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- case 36:\r
- case 37:\r
- case 38:\r
- case 39:\r
- SpawnGoPlat(x, y, info-36);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- lumpneeded[BIPSQUISHED_LUMP] = true; // why?\r
- break;\r
-\r
- case 40:\r
- SpawnSneakPlat(x, y);\r
- lumpneeded[PLATFORM_LUMP] = true;\r
- break;\r
-\r
- case 43:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 42:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 41:\r
- SpawnBobba(x, y);\r
- lumpneeded[BOBBA_LUMP] = true;\r
- break;\r
-\r
- case 44:\r
- case 45:\r
- SpawnSatelliteStop(x, y, info-44);\r
- break;\r
-\r
- // case 46 is not used\r
-\r
- case 49:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 48:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 47:\r
- SpawnNospike(x, y);\r
- lumpneeded[NOSPIKE_LUMP] = true;\r
- break;\r
-\r
- case 52:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 51:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 50:\r
- SpawnGik(x, y);\r
- lumpneeded[GIK_LUMP] = true;\r
- break;\r
-\r
- case 53:\r
- case 54:\r
- case 55:\r
- case 56:\r
- SpawnCannon(x, y, info-53);\r
- lumpneeded[LASER_LUMP] = true;\r
- break;\r
-\r
- case 69:\r
- if (gamestate.ammo >= 5)\r
- break;\r
- info = 68;\r
- // no break here!\r
- case 57:\r
- case 58:\r
- case 59:\r
- case 60:\r
- case 61:\r
- case 62:\r
- case 63:\r
- case 64:\r
- case 65:\r
- case 66:\r
- case 67:\r
- case 68:\r
- SpawnBonus(x, y, info-57);\r
- lumpneeded[bonuslump[info-57]] = true;\r
- break;\r
-\r
- case 72:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 71:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 70:\r
- SpawnOrbatrix(x, y);\r
- lumpneeded[ORBATRIX_LUMP] = true;\r
- break;\r
-\r
- case 75:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 74:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 73:\r
- SpawnBipship(x, y);\r
- lumpneeded[BIP_LUMP]=lumpneeded[BIPSHIP_LUMP]=lumpneeded[BIPSQUISHED_LUMP] = true;\r
- break;\r
-\r
- case 78:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 77:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 76:\r
- SpawnFlect(x, y);\r
- lumpneeded[FLECT_LUMP] = true;\r
- break;\r
-\r
- case 81:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 80:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 79:\r
- SpawnBlorb(x, y);\r
- lumpneeded[BLORB_LUMP] = true;\r
- break;\r
-\r
- case 84:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 83:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 82:\r
- SpawnCeilick(x, y);\r
- lumpneeded[CEILICK_LUMP] = true;\r
- break;\r
-\r
- case 87:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 86:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 85:\r
- SpawnBlooguard(x, y);\r
- lumpneeded[BLOOGUARD_LUMP] = true;\r
- break;\r
-\r
- case 88:\r
- SpawnGrabbiter(x, y);\r
- // no additional lump needed - sprites are in WORLDKEEN_LUMP\r
- break;\r
-\r
- case 89:\r
- SpawnSatellite(x, y);\r
- // no additional lump needed - sprites are in WORLDKEEN_LUMP\r
- break;\r
-\r
- // case 90 is not used\r
- // cases 91 to 98 are direction arrows\r
-\r
- case 99:\r
- SpawnHook(x, y);\r
- lumpneeded[HOOK_LUMP] = true;\r
- break;\r
-\r
- case 100:\r
- SpawnSandwich(x, y);\r
- lumpneeded[SANDWICH_LUMP] = true;\r
- break;\r
-\r
- case 101:\r
- SpawnPasscard(x, y);\r
- lumpneeded[PASSCARD_LUMP] = true;\r
- break;\r
-\r
- case 104:\r
- if (gamestate.difficulty < gd_Hard)\r
- break;\r
- case 103:\r
- if (gamestate.difficulty < gd_Normal)\r
- break;\r
- case 102:\r
- SpawnBabobba(x, y);\r
- lumpneeded[BABOBBA_LUMP] = true;\r
- break;\r
-\r
- case 105:\r
- case 106:\r
- SpawnRocket(x, y, info-105);\r
- // no additional lump needed - sprites are in WORLDKEEN_LUMP\r
- break;\r
- }\r
- }\r
- }\r
-\r
- for (ob = player; ob; ob = ob->next)\r
- {\r
- if (ob->active != ac_allways)\r
- ob->active = ac_no;\r
- }\r
-\r
- for (i = 0; i < NUMLUMPS; i++)\r
- {\r
- if (lumpneeded[i])\r
- {\r
- for (chunk = lumpstart[i]; chunk <= lumpend[i]; chunk++)\r
- {\r
- CA_MarkGrChunk(chunk);\r
- }\r
- }\r
- }\r
-}\r
-\r
-//============================================================================\r
-\r
-statetype s_keenstun = {KEENSTUNSPR, KEENSTUNSPR, step, false, true, 60, 0, 0, T_Projectile, KeenContact, KeenStandReact, &s_keenstand};\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= FlipBigSwitch\r
-=\r
-===========================\r
-*/\r
-\r
-void FlipBigSwitch(objtype *ob, boolean isup)\r
-{\r
- Uint16 x, y;\r
- Uint16 far *map;\r
- Uint16 top, mid, bot;\r
- Uint16 *tileptr;\r
- Uint16 tile, tx, ty, xi, yi, offset, anim;\r
- Uint16 tiles[6];\r
-\r
- //\r
- // handle flipping the switch itself:\r
- //\r
- if (isup)\r
- {\r
- ty = ob->tilebottom;\r
- }\r
- else\r
- {\r
- ty = ob->tiletop - 2;\r
- }\r
- tx = ob->tileleft - 1;\r
- map = mapsegs[2] + mapbwidthtable[ty+1]/2 + tx + 1;\r
- while (*map == 0)\r
- {\r
- map++;\r
- tx++;\r
- }\r
- map = mapsegs[1] + mapbwidthtable[ty]/2 + tx;\r
- tileptr = tiles;\r
- for (y = 0; y < 3; y++, map += mapwidth)\r
- {\r
- for (x = 0; x < 2; tileptr++, x++)\r
- {\r
- tile = map[x];\r
- *tileptr = tile + (Sint8)tinf[tile+MANIM];\r
- }\r
- }\r
- RF_MemToMap(tiles, 1, tx, ty, 2, 3);\r
-\r
- tile = *(mapsegs[2]+mapbwidthtable[ty+1]/2 + tx + 1);\r
- x = tile >> 8;\r
- y = tile & 0xFF;\r
- SD_PlaySound(SND_USESWITCH);\r
-\r
- //\r
- // toggle whatever was linked to the switch (at tile x, y):\r
- //\r
- offset = mapbwidthtable[y]/2 + x;\r
- map = mapsegs[2] + offset;\r
- tile = *map;\r
-\r
- if (tile >= DIRARROWSTART && tile < DIRARROWEND)\r
- {\r
- // turn direction arrow:\r
- *map = arrowflip[tile-DIRARROWSTART] + DIRARROWSTART;\r
- }\r
- else\r
- {\r
- map = mapsegs[1] + offset;\r
- tile = *map;\r
- switch (tinf[tile+INTILE] & INTILE_TYPEMASK)\r
- {\r
- case INTILE_NOTHING: // no special tiles\r
- mapsegs[2][offset] ^= PLATFORMBLOCK;\r
- break;\r
-\r
- case INTILE_BRIDGE: // bridge\r
- for (yi=y; y+2 > yi; yi++)\r
- {\r
- map = mapsegs[1] + mapbwidthtable[yi]/2 + x - (yi != y);\r
- for (xi = x - (yi != y); xi < mapwidth; xi++)\r
- {\r
- tile = *map;\r
- map++;\r
- anim = tinf[tile + MANIM];\r
- if (!anim)\r
- break;\r
- tile += (Sint8)anim;\r
- RF_MemToMap(&tile, 1, xi, yi, 1, 1);\r
- }\r
- }\r
- break;\r
-\r
- case INTILE_FORCEFIELD: // active force field\r
- map = mapsegs[1];\r
- top = *map;\r
- mid = *++map;\r
- bot = *++map;\r
- map = mapsegs[1] + mapbwidthtable[y+1]/2 + x;\r
-\r
- RF_MemToMap(&top, 1, x, y++, 1, 1);\r
- while (tinf[*map+INTILE] == INTILE_DEADLY)\r
- {\r
- RF_MemToMap(&mid, 1, x, y++, 1, 1);\r
- map += mapwidth;\r
- }\r
- RF_MemToMap(&bot, 1, x, y, 1, 1);\r
- break;\r
-\r
- case INTILE_FORCEFIELDEND: // inactive force field\r
- map = mapsegs[1] + 3;\r
- top = *map;\r
- mid = *++map;\r
- bot = *++map;\r
- map = mapsegs[1] + mapbwidthtable[y+1]/2 + x;\r
-\r
- RF_MemToMap(&top, 1, x, y++, 1, 1);\r
- while (tinf[*map+INTILE] != INTILE_FORCEFIELDEND)\r
- {\r
- RF_MemToMap(&mid, 1, x, y++, 1, 1);\r
- map += mapwidth;\r
- }\r
- RF_MemToMap(&bot, 1, x, y, 1, 1);\r
- }\r
- }\r
-}\r
-\r
-//============================================================================\r
-\r
-/*\r
-===========================\r
-=\r
-= GotSandwich\r
-=\r
-===========================\r
-*/\r
-\r
-void GotSandwich(void)\r
-{\r
- SD_WaitSoundDone();\r
- SD_PlaySound(SND_QUESTITEM);\r
- CA_UpLevel(); // kinda useless without CA_CacheMarks or CA_SetGrPurge\r
- // BUG: haven't made anything purgable here, caching the pic may cause an "out of memory" crash\r
- CA_CacheGrChunk(KEENTALK1PIC);\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 12;\r
- US_CPrint(\r
- "This is the second\n"\r
- "biggest sandwich\n"\r
- "I ever saw!\n"\r
- );\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
- CA_DownLevel();\r
- gamestate.sandwichstate = 1;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= GotHook\r
-=\r
-===========================\r
-*/\r
-\r
-void GotHook(void)\r
-{\r
- SD_WaitSoundDone();\r
- SD_PlaySound(SND_QUESTITEM);\r
- CA_UpLevel(); // kinda useless without CA_CacheMarks or CA_SetGrPurge\r
- // BUG: haven't made anything purgable here, caching the pic may cause an "out of memory" crash\r
- CA_CacheGrChunk(KEENTALK1PIC);\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 12;\r
- US_CPrint(\r
- "Wow! A rope and\n"\r
- "grappling hook!\n"\r
- "They look useful!\n"\r
- );\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
- CA_DownLevel();\r
- gamestate.hookstate = 1;\r
-}\r
-\r
-/*\r
-===========================\r
-=\r
-= GotPasscard\r
-=\r
-===========================\r
-*/\r
-\r
-void GotPasscard(void)\r
-{\r
- SD_WaitSoundDone();\r
- SD_PlaySound(SND_QUESTITEM);\r
- CA_UpLevel(); // kinda useless without CA_CacheMarks or CA_SetGrPurge\r
- // BUG: haven't made anything purgable here, caching the pic may cause an "out of memory" crash\r
- CA_CacheGrChunk(KEENTALK1PIC);\r
-\r
- US_CenterWindow(26, 8);\r
- VWB_DrawPic(WindowX+WindowW-48, WindowY, KEENTALK1PIC);\r
- WindowW -= 48;\r
- PrintY += 4;\r
- US_CPrint(\r
- "What's this? Cool!\n"\r
- "A passcard for\n"\r
- "the Bloogstar Rocket!\n"\r
- "(It can fly through\n"\r
- "their force field.)"\r
- );\r
- VW_UpdateScreen();\r
- VW_WaitVBL(30);\r
- IN_ClearKeysDown();\r
- IN_Ack();\r
- CA_DownLevel();\r
- gamestate.passcardstate = 1;\r
-}\r
+++ /dev/null
-%file RCK6E15.exe 109058\r
-%patch $1C 0 0 0 0\r
-%end
\ No newline at end of file
+++ /dev/null
-;=====================================\r
-;\r
-; Graphics .EQU file for .CK6\r
-; not IGRAB-ed :)\r
-;\r
-;=====================================\r
-\r
-;INCLUDE "VERSION.EQU"\r
-\r
-;\r
-; Amount of each data item\r
-;\r
-NUMFONT = 2\r
-NUMFONTM = 0\r
-NUMPICM = 3\r
-NUMTILE8 = 108\r
-NUMTILE8M = 36\r
-NUMTILE32 = 0\r
-NUMTILE32M = 0\r
-\r
-;\r
-; Amount of each item in episode 6\r
-;\r
-NUMPICS = 34\r
-NUMSPRITES = 390\r
-NUMTILE16 = 2376\r
-NUMTILE16M = 2736\r
-NUMEXTERN = 8\r
-\r
-\r
-;\r
-; File offsets for data items\r
-;\r
-STRUCTPIC = 0\r
-STRUCTPICM = 1\r
-STRUCTSPRITE = 2\r
-\r
-STARTFONT = 3\r
-STARTFONTM = (STARTFONT+NUMFONT)\r
-STARTPICS = (STARTFONTM+NUMFONTM)\r
-STARTPICM = (STARTPICS+NUMPICS)\r
-STARTSPRITES = (STARTPICM+NUMPICM)\r
-STARTTILE8 = (STARTSPRITES+NUMSPRITES)\r
-STARTTILE8M = (STARTTILE8+1)\r
-STARTTILE16 = (STARTTILE8M+1)\r
-STARTTILE16M = (STARTTILE16+NUMTILE16)\r
-STARTTILE32 = (STARTTILE16M+NUMTILE16M)\r
-STARTTILE32M = (STARTTILE32+NUMTILE32)\r
-STARTEXTERN = (STARTTILE32M+NUMTILE32M)\r
-\r
-NUMCHUNKS = (STARTEXTERN+NUMEXTERN)\r
-\r
-;\r
-; Thank you for using IGRAB!\r
-;\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-#ifndef __GFX_H__\r
-#define __GFX_H__\r
-\r
-//#include "VERSION.H"\r
-\r
-//////////////////////////////////////\r
-//\r
-// Graphics .H file for .CK6\r
-// not IGRAB-ed :)\r
-//\r
-//////////////////////////////////////\r
-\r
-//\r
-// Lump creation macros\r
-//\r
-\r
-#define START_LUMP(actualname, dummyname) actualname, dummyname=actualname-1,\r
-#define END_LUMP(actualname, dummyname) dummyname, actualname=dummyname-1,\r
-\r
-//\r
-// Amount of each data item\r
-//\r
-\r
-//common numbers:\r
-#define NUMCHUNKS NUMGRCHUNKS\r
-#define NUMFONT 2\r
-#define NUMFONTM 0\r
-#define NUMPICM 3\r
-#define NUMTILE8 108 // BUG: only 104 tiles exist in EGAGRAPH!\r
-#define NUMTILE8M 36 // BUG: only 12 tiles exist in EGAGRAPH!\r
-#define NUMTILE32 0\r
-#define NUMTILE32M 0\r
-\r
-//episode-specific numbers:\r
-#define NUMPICS 34\r
-#define NUMSPRITES 390\r
-#define NUMTILE16 2376\r
-#define NUMTILE16M 2736\r
-#define NUMEXTERNS 8\r
-\r
-//\r
-// File offsets for data items\r
-//\r
-#define STRUCTPIC 0\r
-#define STRUCTPICM 1\r
-#define STRUCTSPRITE 2\r
-\r
-#define STARTFONT 3\r
-#define STARTFONTM (STARTFONT+NUMFONT)\r
-#define STARTPICS (STARTFONTM+NUMFONTM)\r
-#define STARTPICM (STARTPICS+NUMPICS)\r
-#define STARTSPRITES (STARTPICM+NUMPICM)\r
-#define STARTTILE8 (STARTSPRITES+NUMSPRITES)\r
-#define STARTTILE8M (STARTTILE8+1)\r
-#define STARTTILE16 (STARTTILE8M+1)\r
-#define STARTTILE16M (STARTTILE16+NUMTILE16)\r
-#define STARTTILE32 (STARTTILE16M+NUMTILE16M)\r
-#define STARTTILE32M (STARTTILE32+NUMTILE32)\r
-#define STARTEXTERNS (STARTTILE32M+NUMTILE32M)\r
-\r
-typedef enum {\r
- LASTFONT=STARTPICS-1,\r
-\r
- //\r
- // PICS\r
- //\r
-\r
- PADDINGPIC, // 5 (compensate for the missing Star Wars font to give the other pics the correct chunk numbers)\r
-\r
- H_END1PIC, // 6\r
- H_END2PIC, // 7\r
- H_END3PIC, // 8\r
- H_END4PIC, // 9\r
- H_END5PIC, // 10\r
-\r
- START_LUMP(CONTROLS_LUMP_START, __CONTROLSSTART)\r
- CP_MAINMENUPIC, // 11\r
- CP_NEWGAMEMENUPIC, // 12\r
- CP_LOADMENUPIC, // 13\r
- CP_SAVEMENUPIC, // 14\r
- CP_CONFIGMENUPIC, // 15\r
- CP_SOUNDMENUPIC, // 16\r
- CP_MUSICMENUPIC, // 17\r
- CP_KEYBOARDMENUPIC, // 18\r
- CP_KEYMOVEMENTPIC, // 19\r
- CP_KEYBUTTONPIC, // 20\r
- CP_JOYSTICKMENUPIC, // 21\r
- CP_OPTIONSMENUPIC, // 22\r
- CP_PADDLEWARPIC, // 23\r
- CP_QUITPIC, // 24\r
- CP_JOYSTICKPIC, // 25\r
- CP_MENUSCREENPIC, // 26\r
- END_LUMP(CONTROLS_LUMP_END, __CONTROLSEND)\r
-\r
- H_FLASHARROW1PIC, // 27\r
- H_FLASHARROW2PIC, // 28\r
-\r
- SW_BACKGROUNDPIC, // 33\r
- TITLEPICPIC, // 34\r
- KEENTALK1PIC, // 35\r
- KEENTALK2PIC, // 36\r
- KEENCOUNT1PIC, // 37\r
- KEENCOUNT2PIC, // 38\r
- KEENCOUNT3PIC, // 39\r
- KEENCOUNT4PIC, // 40\r
- KEENCOUNT5PIC, // 41\r
- KEENCOUNT6PIC, // 42\r
-\r
- //\r
- // MASKED PICS\r
- //\r
-\r
- CP_MENUMASKPICM, // 43\r
- CORDPICM, // 44\r
- METALPOLEPICM, // 45\r
-\r
- //\r
- // SPRITES\r
- //\r
-\r
- START_LUMP(PADDLE_LUMP_START, __PADDLESTART)\r
- PADDLESPR, // 46\r
- BALLSPR, // 47\r
- BALL1PIXELTOTHERIGHTSPR, // 48\r
- BALL2PIXELSTOTHERIGHTSPR, // 49\r
- BALL3PIXELSTOTHERIGHTSPR, // 50\r
- END_LUMP(PADDLE_LUMP_END, __PADDLEEND)\r
-\r
- DEMOPLAQUESPR, // 51\r
-\r
- START_LUMP(KEEN_LUMP_START, __KEENSTART)\r
- KEENSTANDRSPR, // 52\r
- KEENRUNR1SPR, // 53\r
- KEENRUNR2SPR, // 54\r
- KEENRUNR3SPR, // 55\r
- KEENRUNR4SPR, // 56\r
- KEENJUMPR1SPR, // 57\r
- KEENJUMPR2SPR, // 58\r
- KEENJUMPR3SPR, // 59\r
- KEENSTANDLSPR, // 60\r
- KEENRUNL1SPR, // 61\r
- KEENRUNL2SPR, // 62\r
- KEENRUNL3SPR, // 63\r
- KEENRUNL4SPR, // 64\r
- KEENJUMPL1SPR, // 65\r
- KEENJUMPL2SPR, // 66\r
- KEENJUMPL3SPR, // 67\r
- KEENLOOKUSPR, // 68\r
- KEENWAITR1SPR, // 69\r
- KEENWAITR2SPR, // 70\r
- KEENWAITR3SPR, // 71\r
- KEENSITREAD1SPR, // 72\r
- KEENSITREAD2SPR, // 73\r
- KEENSITREAD3SPR, // 74\r
- KEENSITREAD4SPR, // 75\r
- KEENREAD1SPR, // 76\r
- KEENREAD2SPR, // 77\r
- KEENREAD3SPR, // 78\r
- KEENSTOPREAD1SPR, // 79\r
- KEENSTOPREAD2SPR, // 80\r
- KEENLOOKD1SPR, // 81\r
- KEENLOOKD2SPR, // 82\r
- KEENDIE1SPR, // 83\r
- KEENDIE2SPR, // 84\r
- KEENSTUNSPR, // 85\r
- STUNSTARS1SPR, // 86\r
- STUNSTARS2SPR, // 87\r
- STUNSTARS3SPR, // 88\r
- KEENSHOOTLSPR, // 89\r
- KEENJLSHOOTLSPR, // 90\r
- KEENJSHOOTDSPR, // 91\r
- KEENJSHOOTUSPR, // 92\r
- KEENSHOOTUSPR, // 93\r
- KEENSHOOTRSPR, // 94\r
- KEENJRSHOOTRSPR, // 95\r
- STUN1SPR, // 96\r
- STUN2SPR, // 97\r
- STUN3SPR, // 98\r
- STUN4SPR, // 99\r
- STUNHIT1SPR, // 100\r
- STUNHIT2SPR, // 101\r
- KEENSHINNYR1SPR, // 102\r
- KEENSHINNYR2SPR, // 103\r
- KEENSHINNYR3SPR, // 104\r
- KEENSLIDED1SPR, // 105\r
- KEENSLIDED2SPR, // 106\r
- KEENSLIDED3SPR, // 107\r
- KEENSLIDED4SPR, // 108\r
- KEENSHINNYL1SPR, // 109\r
- KEENSHINNYL2SPR, // 110\r
- KEENSHINNYL3SPR, // 111\r
- KEENPLSHOOTUSPR, // 112\r
- KEENPRSHOOTUSPR, // 113\r
- KEENPRSHOOTDSPR, // 114\r
- KEENPLSHOOTDSPR, // 115\r
- KEENPSHOOTLSPR, // 116\r
- KEENPSHOOTRSPR, // 117\r
- KEENENTER1SPR, // 118\r
- KEENENTER2SPR, // 119\r
- KEENENTER3SPR, // 120\r
- KEENENTER4SPR, // 121\r
- KEENENTER5SPR, // 122\r
- KEENHANGLSPR, // 123\r
- KEENHANGRSPR, // 124\r
- KEENCLIMBEDGEL1SPR, // 125\r
- KEENCLIMBEDGEL2SPR, // 126\r
- KEENCLIMBEDGEL3SPR, // 127\r
- KEENCLIMBEDGEL4SPR, // 128\r
- KEENCLIMBEDGER1SPR, // 129\r
- KEENCLIMBEDGER2SPR, // 130\r
- KEENCLIMBEDGER3SPR, // 131\r
- KEENCLIMBEDGER4SPR, // 132\r
- KEENPOGOR1SPR, // 133\r
- KEENPOGOR2SPR, // 134\r
- KEENPOGOL1SPR, // 135\r
- KEENPOGOL2SPR, // 136\r
- BONUS100UPSPR, // 137\r
- BONUS100SPR, // 138\r
- BONUS200SPR, // 139\r
- BONUS500SPR, // 140\r
- BONUS1000SPR, // 141\r
- BONUS2000SPR, // 142\r
- BONUS5000SPR, // 143\r
- BONUS1UPSPR, // 144\r
- BONUSCLIPSPR, // 145\r
- VIVASPLASH1SPR, // 146\r
- VIVASPLASH2SPR, // 147\r
- VIVASPLASH3SPR, // 148\r
- VIVASPLASH4SPR, // 149\r
- END_LUMP(KEEN_LUMP_END, __KEENEND)\r
-\r
- START_LUMP(SUGAR1_LUMP_START, __SUGAR1START)\r
- SUGAR1ASPR, // 150\r
- SUGAR1BSPR, // 151\r
- END_LUMP(SUGAR1_LUMP_END, __SUGAR1END)\r
-\r
- START_LUMP(SUGAR2_LUMP_START, __SUGAR2START)\r
- SUGAR2ASPR, // 152\r
- SUGAR2BSPR, // 153\r
- END_LUMP(SUGAR2_LUMP_END, __SUGAR2END)\r
-\r
- START_LUMP(SUGAR3_LUMP_START, __SUGAR3START)\r
- SUGAR3ASPR, // 154\r
- SUGAR3BSPR, // 155\r
- END_LUMP(SUGAR3_LUMP_END, __SUGAR3END)\r
-\r
- START_LUMP(SUGAR4_LUMP_START, __SUGAR4START)\r
- SUGAR4ASPR, // 156\r
- SUGAR4BSPR, // 157\r
- END_LUMP(SUGAR4_LUMP_END, __SUGAR4END)\r
-\r
- START_LUMP(SUGAR5_LUMP_START, __SUGAR5START)\r
- SUGAR5ASPR, // 158\r
- SUGAR5BSPR, // 159\r
- END_LUMP(SUGAR5_LUMP_END, __SUGAR5END)\r
-\r
- START_LUMP(SUGAR6_LUMP_START, __SUGAR6START)\r
- SUGAR6ASPR, // 160\r
- SUGAR6BSPR, // 161\r
- END_LUMP(SUGAR6_LUMP_END, __SUGAR6END)\r
-\r
- START_LUMP(ONEUP_LUMP_START, __ONEUPSTART)\r
- ONEUPASPR, // 162\r
- ONEUPBSPR, // 163\r
- END_LUMP(ONEUP_LUMP_END, __ONEUPEND)\r
-\r
- START_LUMP(KEYGEM_LUMP_START, __KEYGEMSTART)\r
- REDGEM1SPR, // 164\r
- REDGEM2SPR, // 165\r
- YELLOWGEM1SPR, // 166\r
- YELLOWGEM2SPR, // 167\r
- BLUEGEM1SPR, // 168\r
- BLUEGEM2SPR, // 169\r
- GREENGEM1SPR, // 170\r
- GREENGEM2SPR, // 171\r
- BONUSGEMSPR, // 172\r
- END_LUMP(KEYGEM_LUMP_END, __KEYGEMEND)\r
-\r
- START_LUMP(AMMO_LUMP_START, __AMMOSTART)\r
- STUNCLIP1SPR, // 173\r
- STUNCLIP2SPR, // 174\r
- END_LUMP(AMMO_LUMP_END, __AMMOEND)\r
-\r
- SCOREBOXSPR, // 175\r
-\r
- START_LUMP(LASER_LUMP_START, __LASERSTART)\r
- LASER1SPR, // 176\r
- LASER2SPR, // 177\r
- LASER3SPR, // 178\r
- LASER4SPR, // 179\r
- LASERHIT1SPR, // 180\r
- LASERHIT2SPR, // 181\r
- END_LUMP(LASER_LUMP_END, __LASEREND)\r
-\r
- START_LUMP(SANDWICH_LUMP_START, __SANDWICHSTART)\r
- SANDWICHSPR, // 182\r
- END_LUMP(SANDWICH_LUMP_END, __SANDWICHEND)\r
-\r
- START_LUMP(HOOK_LUMP_START, __ROPESTART)\r
- HOOKSPR, // 183\r
- END_LUMP(HOOK_LUMP_END, __ROPEEND)\r
-\r
- START_LUMP(WORLDKEEN_LUMP_START, __WORLDKEENSTART)\r
- WORLDKEENL1SPR, // 184\r
- WORLDKEENL2SPR, // 185\r
- WORLDKEENL3SPR, // 186\r
- WORLDKEENR1SPR, // 187\r
- WORLDKEENR2SPR, // 188\r
- WORLDKEENR3SPR, // 189\r
- WORLDKEENU1SPR, // 190\r
- WORLDKEENU2SPR, // 191\r
- WORLDKEENU3SPR, // 192\r
- WORLDKEEND1SPR, // 193\r
- WORLDKEEND2SPR, // 194\r
- WORLDKEEND3SPR, // 195\r
- WORLDKEENDR1SPR, // 196\r
- WORLDKEENDR2SPR, // 197\r
- WORLDKEENDR3SPR, // 198\r
- WORLDKEENDL1SPR, // 199\r
- WORLDKEENDL2SPR, // 200\r
- WORLDKEENDL3SPR, // 201\r
- WORLDKEENUL1SPR, // 202\r
- WORLDKEENUL2SPR, // 203\r
- WORLDKEENUL3SPR, // 204\r
- WORLDKEENUR1SPR, // 205\r
- WORLDKEENUR2SPR, // 206\r
- WORLDKEENUR3SPR, // 207\r
- WORLDKEENWAVE1SPR, // 208\r
- WORLDKEENWAVE2SPR, // 209\r
- ROCKETSPR, // 210\r
- ROCKETFLY1SPR, // 211\r
- ROCKETFLY2SPR, // 212\r
- SATELLITE1SPR, // 213\r
- SATELLITE2SPR, // 214\r
- SATELLITE3SPR, // 215\r
- SATELLITE4SPR, // 216\r
- GRABBITER1SPR, // 217\r
- GRABBITER2SPR, // 218\r
- GRABBITERSLEEP1SPR, // 219\r
- GRABBITERSLEEP2SPR, // 220\r
- WORLDKEENTRHOW1SPR, // 221\r
- WORLDKEENTRHOW2SPR, // 222\r
- WORLDKEENCLIMB1SPR, // 223\r
- WORLDKEENCLIMB2SPR, // 224\r
- ROPETHROW1SPR, // 225\r
- ROPETHROW2SPR, // 226\r
- WORLDKEENHANGSPR, // 227\r
- FLAGFLIP1SPR, // 228\r
- FLAGFLIP2SPR, // 229\r
- FLAGFLIP3SPR, // 230\r
- FLAGFLIP4SPR, // 231\r
- FLAGFLIP5SPR, // 232\r
- FLAGFALL1SPR, // 233\r
- FLAGFALL2SPR, // 234\r
- FLAGFLAP1SPR, // 235\r
- FLAGFLAP2SPR, // 236\r
- FLAGFLAP3SPR, // 237\r
- FLAGFLAP4SPR, // 238\r
- END_LUMP(WORLDKEEN_LUMP_END, __WORLDKEENEND)\r
-\r
- START_LUMP(FLEEX_LUMP_START, __FLEEXSTART)\r
- FLEEXWALKR1SPR, // 239\r
- FLEEXWALKR2SPR, // 240\r
- FLEEXWALKL1SPR, // 241\r
- FLEEXWALKL2SPR, // 242\r
- FLEEXLOOK1SPR, // 243\r
- FLEEXLOOK2SPR, // 244\r
- FLEEXSTUNSPR, // 245\r
- END_LUMP(FLEEX_LUMP_END, __FLEEXEND)\r
-\r
- START_LUMP(CEILICK_LUMP_START, __CEILICKSTART)\r
- CEILICK1SPR, // 246\r
- CEILICK2SPR, // 247\r
- TONGUE1SPR, // 248\r
- TONGUE2SPR, // 249\r
- TONGUE3SPR, // 250\r
- TONGUE4SPR, // 251\r
- TONGUE5SPR, // 252\r
- CEILICKSTUNSPR, // 253\r
- END_LUMP(CEILICK_LUMP_END, __CEILICKEND)\r
-\r
- START_LUMP(BLOOGUARD_LUMP_START, __BLOOGUARDSTART)\r
- BLOOGUARDWALKL1SPR, // 254\r
- BLOOGUARDWALKL2SPR, // 255\r
- BLOOGUARDWALKL3SPR, // 256\r
- BLOOGUARDWALKL4SPR, // 257\r
- BLOOGUARDWALKR1SPR, // 258\r
- BLOOGUARDWALKR2SPR, // 259\r
- BLOOGUARDWALKR3SPR, // 260\r
- BLOOGUARDWALKR4SPR, // 261\r
- BLOOGUARDSWINGL1SPR, // 262\r
- BLOOGUARDSWINGL2SPR, // 263\r
- BLOOGUARDSWINGL3SPR, // 264\r
- BLOOGUARDSWINGR1SPR, // 265\r
- BLOOGUARDSWINGR2SPR, // 266\r
- BLOOGUARDSWINGR3SPR, // 267\r
- BLOOGUARDSTUNSPR, // 268\r
- END_LUMP(BLOOGUARD_LUMP_END, __BLOOGUARDEND)\r
-\r
- START_LUMP(BIPSHIP_LUMP_START, __BIPSHIPSTART)\r
- BIPSHIPRSPR, // 269\r
- BIPSHIPRTURN1SPR, // 270\r
- BIPSHIPRTURN2SPR, // 271\r
- BIPSHIPRTURN3SPR, // 272\r
- BIPSHIPRTURN4SPR, // 273\r
- BIPSHIPLSPR, // 274\r
- BIPSHIPLTURN1SPR, // 275\r
- BIPSHIPLTURN2SPR, // 276\r
- BIPSHIPLTURN3SPR, // 277\r
- BIPSHIPLTURN4SPR, // 278\r
- BIPSHIPEXPLODE1SPR, // 279\r
- BIPSHIPEXPLODE2SPR, // 280\r
- BIPSHIPEXPLODE3SPR, // 281\r
- BIPSHIPEXPLODE4SPR, // 282\r
- BIPSHIPEXPLODE5SPR, // 283\r
- BIPSHIPSHOTSPR, // 284\r
- END_LUMP(BIPSHIP_LUMP_END, __BIPSHIPEND)\r
-\r
- START_LUMP(BABOBBA_LUMP_START, __BABOBBASTART)\r
- BABOBBAL1SPR, // 285\r
- BABOBBAL2SPR, // 286\r
- BABOBBAL3SPR, // 287\r
- BABOBBAR1SPR, // 288\r
- BABOBBAR2SPR, // 289\r
- BABOBBAR3SPR, // 290\r
- BABOBBASHOT1SPR, // 291\r
- BABOBBASHOT2SPR, // 292\r
- BABOBBASTUNSPR, // 293\r
- BABOBBASLEEP1SPR, // 294\r
- BABOBBASLEEP2SPR, // 295\r
- BABOBBASLEEP3SPR, // 296\r
- BABOBBASLEEP4SPR, // 297\r
- END_LUMP(BABOBBA_LUMP_END, __BABOBBAEND)\r
-\r
- START_LUMP(NOSPIKE_LUMP_START, __NOSPIKESTART)\r
- NOSPIKESTANDSPR, // 298\r
- NOSPIKERUNR1SPR, // 299\r
- NOSPIKERUNR2SPR, // 300\r
- NOSPIKERUNR3SPR, // 301\r
- NOSPIKERUNR4SPR, // 302\r
- NOSPIKERUNL1SPR, // 303\r
- NOSPIKERUNL2SPR, // 304\r
- NOSPIKERUNL3SPR, // 305\r
- NOSPIKERUNL4SPR, // 306\r
- NOSPIKEWALKR1SPR, // 307\r
- NOSPIKEWALKR2SPR, // 308\r
- NOSPIKEWALKR3SPR, // 309\r
- NOSPIKEWALKR4SPR, // 310\r
- NOSPIKEWALKL1SPR, // 311\r
- NOSPIKEWALKL2SPR, // 312\r
- NOSPIKEWALKL3SPR, // 313\r
- NOSPIKEWALKL4SPR, // 314\r
- NOSPIKESTUNSPR, // 315\r
- QUESTIONMARKSPR, // 316\r
- END_LUMP(NOSPIKE_LUMP_END, __NOSPIKEEND)\r
-\r
- START_LUMP(FLECT_LUMP_START, __FLECTSTART)\r
- FLECTSTANDSPR, // 317\r
- FLECTSTANDRSPR, // 318\r
- FLECTWALKR1SPR, // 319\r
- FLECTWALKR2SPR, // 320\r
- FLECTWALKR3SPR, // 321\r
- FLECTWALKR4SPR, // 322\r
- FLECTSTANDLSPR, // 323\r
- FLECTWALKL1SPR, // 324\r
- FLECTWALKL2SPR, // 325\r
- FLECTWALKL3SPR, // 326\r
- FLECTWALKL4SPR, // 327\r
- FLECTSTUNSPR, // 328\r
- END_LUMP(FLECT_LUMP_END, __FLECTEND)\r
-\r
- START_LUMP(ORBATRIX_LUMP_START, __ORBATRIXSTART)\r
- ORBATRIX1SPR, // 329\r
- ORBATRIX2SPR, // 330\r
- ORBATRIX3SPR, // 331\r
- ORBATRIX4SPR, // 332\r
- ORBATRIXL1SPR, // 333\r
- ORBATRIXL2SPR, // 334\r
- ORBATRIXR1SPR, // 335\r
- ORBATRIXR2SPR, // 336\r
- ORBATRIXSPIN1SPR, // 337\r
- ORBATRIXSPIN2SPR, // 338\r
- ORBATRIXSPIN3SPR, // 339\r
- ORBATRIXSPIN4SPR, // 340\r
- ORBATRIXCURLSPR, // 341\r
- END_LUMP(ORBATRIX_LUMP_END, __ORBATRIXEND)\r
-\r
- START_LUMP(BLOOG_LUMP_START, __BLOOGSTART)\r
- BLOOGWALKR1SPR, // 342\r
- BLOOGWALKR2SPR, // 343\r
- BLOOGWALKR3SPR, // 344\r
- BLOOGWALKR4SPR, // 345\r
- BLOOGWALKL1SPR, // 346\r
- BLOOGWALKL2SPR, // 347\r
- BLOOGWALKL3SPR, // 348\r
- BLOOGWALKL4SPR, // 349\r
- BLOOGSTUNSPR, // 350\r
- END_LUMP(BLOOG_LUMP_END, __BLOOGEND)\r
-\r
- START_LUMP(RBLOOGLET_LUMP_START, __RBLOOGLETSTART)\r
- RBLOOGLETWALKR1SPR, // 351\r
- RBLOOGLETWALKR2SPR, // 352\r
- RBLOOGLETWALKR3SPR, // 353\r
- RBLOOGLETWALKR4SPR, // 354\r
- RBLOOGLETWALKL1SPR, // 355\r
- RBLOOGLETWALKL2SPR, // 356\r
- RBLOOGLETWALKL3SPR, // 357\r
- RBLOOGLETWALKL4SPR, // 358\r
- RBLOOGLETSTUNSPR, // 359\r
- END_LUMP(RBLOOGLET_LUMP_END, __RBLOOGLETEND)\r
-\r
- START_LUMP(YBLOOGLET_LUMP_START, __YBLOOGLETSTART)\r
- YBLOOGLETWALKR1SPR, // 360\r
- YBLOOGLETWALKR2SPR, // 361\r
- YBLOOGLETWALKR3SPR, // 362\r
- YBLOOGLETWALKR4SPR, // 363\r
- YBLOOGLETWALKL1SPR, // 364\r
- YBLOOGLETWALKL2SPR, // 365\r
- YBLOOGLETWALKL3SPR, // 366\r
- YBLOOGLETWALKL4SPR, // 367\r
- YBLOOGLETSTUNSPR, // 368\r
- END_LUMP(YBLOOGLET_LUMP_END, __YBLOOGLETEND)\r
-\r
- START_LUMP(BBLOOGLET_LUMP_START, __BBLOOGLETSTART)\r
- BBLOOGLETWALKR1SPR, // 369\r
- BBLOOGLETWALKR2SPR, // 370\r
- BBLOOGLETWALKR3SPR, // 371\r
- BBLOOGLETWALKR4SPR, // 372\r
- BBLOOGLETWALKL1SPR, // 373\r
- BBLOOGLETWALKL2SPR, // 374\r
- BBLOOGLETWALKL3SPR, // 375\r
- BBLOOGLETWALKL4SPR, // 376\r
- BBLOOGLETSTUNSPR, // 377\r
- END_LUMP(BBLOOGLET_LUMP_END, __BBLOOGLETEND)\r
-\r
- START_LUMP(GBLOOGLET_LUMP_START, __GBLOOGLETSTART)\r
- GBLOOGLETWALKR1SPR, // 378\r
- GBLOOGLETWALKR2SPR, // 379\r
- GBLOOGLETWALKR3SPR, // 380\r
- GBLOOGLETWALKR4SPR, // 381\r
- GBLOOGLETWALKL1SPR, // 382\r
- GBLOOGLETWALKL2SPR, // 383\r
- GBLOOGLETWALKL3SPR, // 384\r
- GBLOOGLETWALKL4SPR, // 385\r
- GBLOOGLETSTUNSPR, // 386\r
- END_LUMP(GBLOOGLET_LUMP_END, __GBLOOGLETEND)\r
-\r
- START_LUMP(GIK_LUMP_START, __GIKSTART)\r
- GIKWALKR1SPR, // 387\r
- GIKWALKR2SPR, // 388\r
- GIKWALKR3SPR, // 389\r
- GIKWALKL1SPR, // 390\r
- GIKWALKL2SPR, // 391\r
- GIKWALKL3SPR, // 392\r
- GIKJUMPLSPR, // 393\r
- GIKJUMPRSPR, // 394\r
- GIKSLIDER1SPR, // 395\r
- GIKSLIDER2SPR, // 396\r
- GIKSLIDEL1SPR, // 397\r
- GIKSLIDEL2SPR, // 398\r
- END_LUMP(GIK_LUMP_END, __GIKEND)\r
-\r
- START_LUMP(BLORB_LUMP_START, __BLORBSTART)\r
- BLORB1SPR, // 399\r
- BLORB2SPR, // 400\r
- BLORB3SPR, // 401\r
- END_LUMP(BLORB_LUMP_END, __BLORBEND)\r
-\r
- START_LUMP(BOBBA_LUMP_START, __BOBBASTART)\r
- BOBBAL1SPR, // 402\r
- BOBBAL2SPR, // 403\r
- BOBBAL3SPR, // 404\r
- BOBBAR1SPR, // 405\r
- BOBBAR2SPR, // 406\r
- BOBBAR3SPR, // 407\r
- BOBBASHOT1SPR, // 408\r
- BOBBASHOT2SPR, // 409\r
- BOBBASHOT3SPR, // 410\r
- BOBBASHOT4SPR, // 411\r
- BOBBASHOT5SPR, // 412\r
- BOBBASHOT6SPR, // 413\r
- END_LUMP(BOBBA_LUMP_END, __BOBBAEND)\r
-\r
- START_LUMP(BIP_LUMP_START, __BIPSTART)\r
- BIPSTANDSPR, // 414\r
- BIPWALKR1SPR, // 415\r
- BIPWALKR2SPR, // 416\r
- BIPWALKR3SPR, // 417\r
- BIPWALKR4SPR, // 418\r
- BIPWALKL1SPR, // 419\r
- BIPWALKL2SPR, // 420\r
- BIPWALKL3SPR, // 421\r
- BIPWALKL4SPR, // 422\r
- END_LUMP(BIP_LUMP_END, __BIPEND)\r
-\r
- START_LUMP(BIPSQUISHED_LUMP_START, __BIPSQUISHEDSTART)\r
- BIPSQUISHEDSPR, // 423\r
- END_LUMP(BIPSQUISHED_LUMP_END, __BIPSQUISHEDEND)\r
-\r
- START_LUMP(PLATFORM_LUMP_START, __PLATFORMSTART)\r
- PLATFORMSPR, // 424\r
- PLATBIP1SPR, // 425\r
- PLATBIP2SPR, // 426\r
- PLATBIP3SPR, // 427\r
- PLATBIP4SPR, // 428\r
- PLATBIP5SPR, // 429\r
- PLATBIP6SPR, // 430\r
- PLATBIP7SPR, // 431\r
- PLATBIP8SPR, // 432\r
- END_LUMP(PLATFORM_LUMP_END, __PLATFORMEND)\r
-\r
- START_LUMP(MOLLY_LUMP_START, __MOLLYSTART)\r
- MOLLY1SPR, // 433\r
- MOLLY2SPR, // 434\r
- END_LUMP(MOLLY_LUMP_END, __MOLLYEND)\r
-\r
- START_LUMP(PASSCARD_LUMP_START, __PASSCARDSTART)\r
- PASSCARDSPR, // 435\r
- END_LUMP(PASSCARD_LUMP_END, __PASSCARDEND)\r
-\r
- //\r
- // TILES (these don't need names)\r
- //\r
-\r
- LASTTILE=STARTEXTERNS-1,\r
-\r
- //\r
- // EXTERNS\r
- //\r
-\r
- T_ENDART, // 5550\r
-\r
- ORDERSCREEN, // 5551\r
- OUTOFMEM, // 5554\r
-\r
- //demos\r
- DEMO0, // 5555\r
- DEMO1, // 5556\r
- DEMO2, // 5557\r
- DEMO3, // 5558\r
- DEMO4, // 5559\r
-\r
- NUMGRCHUNKS\r
-} graphicnums;\r
-\r
-#undef START_LUMP\r
-#undef END_LUMP\r
-\r
-#endif //__GFX_H__
\ No newline at end of file
+++ /dev/null
-;\r
-; Equates for all .ASM files\r
-;\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-INCLUDE "GFXC_CK6.EQU"\r
-\r
-;----------------------------------------------------------------------------\r
-\r
-CGAGR = 1\r
-EGAGR = 2\r
-VGAGR = 3\r
-\r
-GRMODE = CGAGR\r
-PROFILE = 0 ; 1=keep stats on tile drawing\r
-\r
-SC_INDEX = 03C4h\r
-SC_RESET = 0\r
-SC_CLOCK = 1\r
-SC_MAPMASK = 2\r
-SC_CHARMAP = 3\r
-SC_MEMMODE = 4\r
-\r
-CRTC_INDEX = 03D4h\r
-CRTC_H_TOTAL = 0\r
-CRTC_H_DISPEND = 1\r
-CRTC_H_BLANK = 2\r
-CRTC_H_ENDBLANK = 3\r
-CRTC_H_RETRACE = 4\r
-CRTC_H_ENDRETRACE = 5\r
-CRTC_V_TOTAL = 6\r
-CRTC_OVERFLOW = 7\r
-CRTC_ROWSCAN = 8\r
-CRTC_MAXSCANLINE = 9\r
-CRTC_CURSORSTART = 10\r
-CRTC_CURSOREND = 11\r
-CRTC_STARTHIGH = 12\r
-CRTC_STARTLOW = 13\r
-CRTC_CURSORHIGH = 14\r
-CRTC_CURSORLOW = 15\r
-CRTC_V_RETRACE = 16\r
-CRTC_V_ENDRETRACE = 17\r
-CRTC_V_DISPEND = 18\r
-CRTC_OFFSET = 19\r
-CRTC_UNDERLINE = 20\r
-CRTC_V_BLANK = 21\r
-CRTC_V_ENDBLANK = 22\r
-CRTC_MODE = 23\r
-CRTC_LINECOMPARE = 24\r
-\r
-\r
-GC_INDEX = 03CEh\r
-GC_SETRESET = 0\r
-GC_ENABLESETRESET = 1\r
-GC_COLORCOMPARE = 2\r
-GC_DATAROTATE = 3\r
-GC_READMAP = 4\r
-GC_MODE = 5\r
-GC_MISCELLANEOUS = 6\r
-GC_COLORDONTCARE = 7\r
-GC_BITMASK = 8\r
-\r
-ATR_INDEX = 03c0h\r
-ATR_MODE = 16\r
-ATR_OVERSCAN = 17\r
-ATR_COLORPLANEENABLE = 18\r
-ATR_PELPAN = 19\r
-ATR_COLORSELECT = 20\r
-\r
-STATUS_REGISTER_1 = 03dah\r
-\r
-\r
-MACRO WORDOUT\r
- out dx,ax\r
-ENDM\r
-\r
-if 0\r
-\r
-MACRO WORDOUT\r
- out dx,al\r
- inc dx\r
- xchg al,ah\r
- out dx,al\r
- dec dx\r
- xchg al,ah\r
-ENDM\r
-\r
-endif\r
-\r
-UPDATEWIDE = 22\r
-UPDATEHIGH = 14\r
-\r
-;\r
-; tile info offsets from segment tinf\r
-;\r
-\r
-ANIM = 402\r
-SPEED = (ANIM+NUMTILE16)\r
-\r
-NORTHWALL = (SPEED+NUMTILE16)\r
-EASTWALL = (NORTHWALL+NUMTILE16M)\r
-SOUTHWALL = (EASTWALL+NUMTILE16M)\r
-WESTWALL = (SOUTHWALL+NUMTILE16M)\r
-MANIM = (WESTWALL+NUMTILE16M)\r
-INTILE = (MANIM+NUMTILE16M)\r
-MSPEED = (INTILE+NUMTILE16M)\r
-\r
-\r
-IFE GRMODE-EGAGR\r
-SCREENWIDTH = 64\r
-ENDIF\r
-IFE GRMODE-CGAGR\r
-SCREENWIDTH = 128\r
-ENDIF\r
+++ /dev/null
-/* Reconstructed Commander Keen 4-6 Source Code\r
- * Copyright (C) 2021 K1n9_Duk3\r
- *\r
- * This file is primarily based on:\r
- * Catacomb 3-D Source Code\r
- * Copyright (C) 1993-2014 Flat Rock Software\r
- *\r
- * This program is free software; you can redistribute it and/or modify\r
- * it under the terms of the GNU General Public License as published by\r
- * the Free Software Foundation; either version 2 of the License, or\r
- * (at your option) any later version.\r
- *\r
- * This program is distributed in the hope that it will be useful,\r
- * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
- * GNU General Public License for more details.\r
- *\r
- * You should have received a copy of the GNU General Public License along\r
- * with this program; if not, write to the Free Software Foundation, Inc.,\r
- * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
- */\r
-\r
-// ID_GLOB.H\r
-\r
-\r
-#include <ALLOC.H>\r
-#include <CTYPE.H>\r
-#include <DOS.H>\r
-#include <ERRNO.H>\r
-#include <FCNTL.H>\r
-#include <IO.H>\r
-#include <MEM.H>\r
-#include <PROCESS.H>\r
-#include <STDIO.H>\r
-#include <STDLIB.H>\r
-#include <STRING.H>\r
-#include <SYS\STAT.H>\r
-\r
-#define __ID_GLOB__\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define KEEN\r
-#define KEEN6\r
-\r
-#define EXTENSION "CK6"\r
-\r
-extern char far introscn;\r
-\r
-#include "GFXC_CK6.H"\r
-#include "AUDIOCK6.H"\r
-\r
-//--------------------------------------------------------------------------\r
-\r
-#define TEXTGR 0\r
-#define CGAGR 1\r
-#define EGAGR 2\r
-#define VGAGR 3\r
-\r
-#define GRMODE CGAGR\r
-\r
-#if GRMODE == EGAGR\r
-#define GREXT "EGA"\r
-#endif\r
-#if GRMODE == CGAGR\r
-#define GREXT "CGA"\r
-#endif\r
-\r
-//#define PROFILE\r
-\r
-//\r
-// ID Engine\r
-// Types.h - Generic types, #defines, etc.\r
-// v1.0d1\r
-//\r
-\r
-#ifndef __TYPES__\r
-#define __TYPES__\r
-\r
-typedef enum {false,true} boolean;\r
-typedef unsigned char byte;\r
-typedef unsigned int word;\r
-typedef unsigned long longword;\r
-typedef byte * Ptr;\r
-\r
-typedef struct\r
- {\r
- int x,y;\r
- } Point;\r
-typedef struct\r
- {\r
- Point ul,lr;\r
- } Rect;\r
-\r
-#define nil ((void *)0)\r
-\r
-#endif\r
-\r
-#include "ID_MM.H"\r
-#include "ID_CA.H"\r
-#include "ID_VW.H"\r
-#include "ID_RF.H"\r
-#include "ID_IN.H"\r
-#include "ID_SD.H"\r
-#include "ID_US.H"\r
-\r
-\r
-void Quit (char *error); // defined in user program\r
-\r
+++ /dev/null
-%file RCK6C15.exe 102166\r
-%patch $1C 0 0 0 0\r
-%end
\ No newline at end of file
+++ /dev/null
-@echo off\r
-rem bcc makeobj.c\r
-\r
-makeobj c AUDIODCT.CK4 ..\keen4\ck4adict.obj _audiodict\r
-makeobj f AUDIOHED.CK4 ..\keen4\ck4ahead.obj _AudioHeader _audiohead\r
-makeobj c EGADICT.CK4 ..\keen4\ck4edict.obj _EGAdict\r
-makeobj f EGAHEAD.CK4 ..\keen4\ck4ehead.obj EGA_grafixheader _EGAhead\r
-makeobj c CGADICT.CK4 ..\keen4\ck4cdict.obj _CGAdict\r
-makeobj f CGAHEAD.CK4 ..\keen4\ck4chead.obj CGA_grafixheader _CGAhead\r
-makeobj f MAPHEAD.CK4 ..\keen4\ck4mhead.obj MapHeader _maphead\r
-makeobj f introscn.CK4 ..\keen4\ck4intro.obj _introscn\r
-\r
-makeobj c AUDIODCT.CK5 ..\keen5\ck5adict.obj _audiodict\r
-makeobj f AUDIOHED.CK5 ..\keen5\ck5ahead.obj _AudioHeader _audiohead\r
-makeobj c EGADICT.CK5 ..\keen5\ck5edict.obj _EGAdict\r
-makeobj f EGAHEAD.CK5 ..\keen5\ck5ehead.obj EGA_grafixheader _EGAhead\r
-makeobj c CGADICT.CK5 ..\keen5\ck5cdict.obj _CGAdict\r
-makeobj f CGAHEAD.CK5 ..\keen5\ck5chead.obj CGA_grafixheader _CGAhead\r
-makeobj f MAPHEAD.CK5 ..\keen5\ck5mhead.obj MapHeader _maphead\r
-makeobj f introscn.CK5 ..\keen5\ck5intro.obj _introscn\r
-\r
-makeobj c AUDIODCT.CK6 ..\keen6\ck6adict.obj _audiodict\r
-makeobj f AUDIOHED.CK6 ..\keen6\ck6ahead.obj _AudioHeader _audiohead\r
-makeobj c EGADICT.CK6 ..\keen6\ck6edict.obj _EGAdict\r
-makeobj f EGAHEAD.CK6 ..\keen6\ck6ehead.obj EGA_grafixheader _EGAhead\r
-makeobj c CGADICT.CK6 ..\keen6\ck6cdict.obj _CGAdict\r
-makeobj f CGAHEAD.CK6 ..\keen6\ck6chead.obj CGA_grafixheader _CGAhead\r
-makeobj f MAPHEAD.CK6 ..\keen6\ck6mhead.obj MapHeader _maphead\r
-makeobj f introscn.CK6 ..\keen6\ck6intro.obj _introscn\r
-makeobj f orderscn.CK6 ..\keen6\ck6order.obj _orderscn\r
+++ /dev/null
-/*\r
-** makeobj.c\r
-**\r
-**---------------------------------------------------------------------------\r
-** Copyright 2014 Braden Obrzut\r
-** All rights reserved.\r
-**\r
-** Redistribution and use in source and binary forms, with or without\r
-** modification, are permitted provided that the following conditions\r
-** are met:\r
-**\r
-** 1. Redistributions of source code must retain the above copyright\r
-** notice, this list of conditions and the following disclaimer.\r
-** 2. Redistributions in binary form must reproduce the above copyright\r
-** notice, this list of conditions and the following disclaimer in the\r
-** documentation and/or other materials provided with the distribution.\r
-** 3. The name of the author may not be used to endorse or promote products\r
-** derived from this software without specific prior written permission.\r
-**\r
-** THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR\r
-** IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES\r
-** OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.\r
-** IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,\r
-** INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT\r
-** NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,\r
-** DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY\r
-** THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT\r
-** (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF\r
-** THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\r
-**---------------------------------------------------------------------------\r
-**\r
-** This is a throwaway program to create OMF object files for DOS. It also\r
-** extracts the object files. It should be compatible with MakeOBJ by John\r
-** Romero except where we calculate the checksum correctly.\r
-**\r
-*/\r
-\r
-#include <stdio.h>\r
-#include <malloc.h>\r
-#include <string.h>\r
-#include <ctype.h>\r
-#include <stdlib.h>\r
-\r
-#pragma pack(1)\r
-typedef struct\r
-{\r
- unsigned char type;\r
- unsigned short len;\r
-} SegHeader;\r
-\r
-typedef struct\r
-{\r
- unsigned short len;\r
- unsigned char name;\r
- unsigned char classname;\r
- unsigned char overlayname;\r
-} SegDef;\r
-#pragma pack()\r
-\r
-const char* ReadFile(const char* fn, int *size)\r
-{\r
- char* out;\r
-\r
- FILE* f = fopen(fn, "rb");\r
- fseek(f, 0, SEEK_END);\r
- *size = ftell(f);\r
- out = (char*)malloc(*size);\r
- fseek(f, 0, SEEK_SET);\r
-\r
- fread(out, *size, 1, f);\r
-\r
- fclose(f);\r
-\r
- return out;\r
-}\r
-\r
-void WriteFile(const char* fn, const char *data, int size)\r
-{\r
- FILE* f = fopen(fn, "wb");\r
- fwrite(data, size, 1, f);\r
- fclose(f);\r
-}\r
-\r
-void Extract(const char* infn)\r
-{\r
- const char* in;\r
- const char* start;\r
- const char* p;\r
- char outfn[16];\r
- char str[256];\r
- char *outdata;\r
- int outsize;\r
- int insize;\r
- SegHeader head;\r
-\r
- outdata = NULL;\r
-\r
- start = in = ReadFile(infn, &insize);\r
-\r
- while(in < start + insize)\r
- {\r
- head = *(SegHeader*)in;\r
-\r
- switch(head.type)\r
- {\r
- case 0x80: /* THEADR */\r
- memcpy(outfn, in+4, in[3]);\r
- outfn[in[3]] = 0;\r
- printf("Output: %s\n", outfn);\r
- {\r
- int i;\r
- for(i = 0;i < 16;++i)\r
- {\r
- if(outfn[i] == ' ')\r
- outfn[i] = 0;\r
- }\r
- }\r
- break;\r
- case 0x88: /* COMENT */\r
- switch(in[3])\r
- {\r
- case 0:\r
- memcpy(str, in+5, head.len-2);\r
- str[head.len-3] = 0;\r
- printf("Comment: %s\n", str);\r
- break;\r
- default:\r
- printf("Unknown comment type %X @ %x ignored.\n", (unsigned char)in[3], (unsigned int)(in - start));\r
- break;\r
- }\r
- break;\r
- case 0x96: /* LNAMES */\r
- p = in+3;\r
- while(p < in+head.len+2)\r
- {\r
- memcpy(str, p+1, (unsigned char)*p);\r
- str[(unsigned char)*p] = 0;\r
- printf("Name: %s\n", str);\r
-\r
- p += (unsigned char)*p+1;\r
- }\r
- break;\r
- case 0x98: /* SEGDEF */\r
- {\r
- SegDef *sd;\r
-\r
- sd = *(in+3) ? (SegDef*)(in+4) : (SegDef*)(in+7);\r
- printf("Segment Length: %d\n", sd->len);\r
-\r
- outdata = (char*)malloc(sd->len);\r
- outsize = sd->len;\r
- break;\r
- }\r
- case 0x90: /* PUBDEF */\r
- p = in+5;\r
- if(in[5] == 0)\r
- p += 2;\r
- while(p < in+head.len+2)\r
- {\r
- memcpy(str, p+1, (unsigned char)*p);\r
- str[(unsigned char)*p] = 0;\r
- printf("Public Name: %s\n", str);\r
-\r
- p += (unsigned char)*p+4;\r
- }\r
- break;\r
- case 0xA0: /* LEDATA */\r
- printf("Writing data at %d (%d)\n", *(unsigned short*)(in+4), head.len-4);\r
- memcpy(outdata+*(unsigned short*)(in+4), in+6, head.len-4);\r
- break;\r
- case 0x8A: /* MODEND */\r
- /* Ignore */\r
- break;\r
- default:\r
- printf("Unknown header type %X @ %x ignored.\n", head.type, (unsigned int)(in - start));\r
- break;\r
- }\r
-\r
- in += 3 + head.len;\r
- }\r
-\r
- WriteFile(outfn, outdata, outsize);\r
-\r
- free((char*)start);\r
- free(outdata);\r
-}\r
-\r
-void CheckSum(char *s, unsigned short len)\r
-{\r
- int sum;\r
-\r
- len += 3;\r
-\r
- sum = 0;\r
- while(len > 1)\r
- {\r
- sum += *(unsigned char*)s;\r
- ++s;\r
- --len;\r
- }\r
- *s = (unsigned char)(0x100-(sum&0xFF));\r
-}\r
-\r
-void MakeDataObj(const char* infn, const char* outfn, const char* segname, const char* symname, int altmode)\r
-{\r
-#define Flush() fwrite(d.buf, d.head.len+3, 1, f)\r
- union\r
- {\r
- char buf[4096];\r
- SegHeader head;\r
- } d;\r
- int i;\r
- FILE *f;\r
- int insize;\r
- const char *in;\r
- const char *infn_stripped = strrchr(infn, '/');\r
- if(strrchr(infn, '\\') > infn_stripped)\r
- infn_stripped = strrchr(infn, '\\');\r
- if(infn_stripped == NULL)\r
- infn_stripped = infn;\r
- else\r
- ++infn_stripped;\r
-\r
- f = fopen(outfn, "wb");\r
-\r
- in = ReadFile(infn, &insize);\r
-\r
- d.head.type = 0x80;\r
- d.head.len = 14;\r
- d.buf[3] = 12;\r
- if(d.buf[3] > 12)\r
- d.buf[3] = 12;\r
- sprintf(&d.buf[4], "%-12s", infn_stripped);\r
- for(i = 0;i < strlen(infn_stripped) && i < 12;++i)\r
- d.buf[4+i] = toupper(d.buf[4+i]);\r
- /* CheckSum(d.buf, d.head.len); */\r
- d.buf[17] = 0; /* For some reason this one isn't checksummed by MakeOBJ */\r
- Flush();\r
-\r
- d.head.type = 0x88;\r
- d.head.len = 15;\r
- d.buf[3] = 0;\r
- d.buf[4] = 0;\r
- /* We're not really MakeOBJ v1.1, but to allow us to verify with md5sums */\r
- memcpy(&d.buf[5], "MakeOBJ v1.1", 12);\r
- CheckSum(d.buf, d.head.len);\r
- Flush();\r
-\r
- d.head.type = 0x96;\r
- d.head.len = strlen(infn_stripped)+40;\r
- d.buf[3] = 6;\r
- memcpy(&d.buf[4], "DGROUP", 6);\r
- d.buf[10] = 5;\r
- memcpy(&d.buf[11], "_DATA", 5);\r
- d.buf[16] = 4;\r
- memcpy(&d.buf[17], "DATA", 4);\r
- d.buf[21] = 0;\r
- d.buf[22] = 5;\r
- memcpy(&d.buf[23], "_TEXT", 5);\r
- d.buf[28] = 4;\r
- memcpy(&d.buf[29], "CODE", 4);\r
- d.buf[33] = 8;\r
- memcpy(&d.buf[34], "FAR_DATA", 8);\r
- if(!segname)\r
- {\r
- if(!altmode)\r
- {\r
- d.buf[42] = strlen(infn_stripped)-1;\r
- for(i = 0;i < strlen(infn_stripped)-4;++i)\r
- {\r
- if(i == 0)\r
- d.buf[43] = toupper(infn_stripped[0]);\r
- else\r
- d.buf[43+i] = tolower(infn_stripped[i]);\r
- }\r
- memcpy(&d.buf[43+i], "Seg", 3);\r
- }\r
- else\r
- {\r
- d.head.len = 40;\r
- }\r
- }\r
- else\r
- {\r
- d.head.len = strlen(segname)+41;\r
- d.buf[42] = strlen(segname);\r
- strcpy(&d.buf[43], segname);\r
- }\r
- CheckSum(d.buf, d.head.len);\r
- Flush();\r
-\r
- d.head.type = 0x98;\r
- d.head.len = 7;\r
- *(unsigned short*)(d.buf+4) = insize;\r
- if(altmode == 0)\r
- {\r
- d.buf[3] = (char)((unsigned char)0x60);\r
- d.buf[6] = 8;\r
- d.buf[7] = 7;\r
- d.buf[8] = 4;\r
- }\r
- else\r
- {\r
- d.buf[3] = (char)((unsigned char)0x48);\r
- d.buf[6] = 2;\r
- d.buf[7] = 3;\r
- d.buf[8] = 4;\r
- }\r
- CheckSum(d.buf, d.head.len);\r
- Flush();\r
-\r
- if(altmode)\r
- {\r
- d.head.type = 0x9A;\r
- d.head.len = 4;\r
- d.buf[3] = 1;\r
- d.buf[4] = (char)((unsigned char)0xFF);\r
- d.buf[5] = 1;\r
- CheckSum(d.buf, d.head.len);\r
- Flush();\r
- }\r
-\r
- d.head.type = 0x90;\r
- d.head.len = strlen(infn_stripped)+4;\r
- d.buf[3] = 1;\r
- d.buf[4] = 1;\r
- if(!symname)\r
- {\r
- d.buf[5] = strlen(infn_stripped)-3;\r
- d.buf[6] = '_';\r
- for(i = 0;i < strlen(infn_stripped)-4;++i)\r
- d.buf[7+i] = tolower(infn_stripped[i]);\r
- }\r
- else\r
- {\r
- d.head.len = strlen(symname)+7;\r
- d.buf[5] = strlen(symname);\r
- strcpy(&d.buf[6], symname);\r
- i = strlen(symname)-1;\r
- }\r
- d.buf[7+i] = 0;\r
- d.buf[8+i] = 0;\r
- d.buf[9+i] = 0;\r
- /* This checksum is calculated wrong in MakeOBJ, although I don't know in what way. */\r
- CheckSum(d.buf, d.head.len);\r
- Flush();\r
-\r
-#define LEDATA_LEN 1024\r
- for(i = 0;i < insize;i += LEDATA_LEN)\r
- {\r
- d.head.type = 0xA0;\r
- d.head.len = insize - i > LEDATA_LEN ? LEDATA_LEN+4 : insize - i + 4;\r
- d.buf[3] = 1;\r
- *(unsigned short*)(d.buf+4) = i;\r
- memcpy(&d.buf[6], &in[i], d.head.len-4);\r
- CheckSum(d.buf, d.head.len);\r
- Flush();\r
- }\r
-\r
- d.head.type = 0x8A;\r
- d.head.len = 2;\r
- d.buf[3] = 0;\r
- d.buf[4] = 0;\r
- CheckSum(d.buf, d.head.len);\r
- Flush();\r
-\r
- fclose(f);\r
- free((char*)in);\r
-}\r
-\r
-void DumpData(const char* infn, const char* outfn, int skip)\r
-{\r
- FILE *f;\r
- int i;\r
- int insize;\r
- char symname[9];\r
- const char *in;\r
- const char *infn_stripped = strrchr(infn, '/');\r
- if(strrchr(infn, '\\') > infn_stripped)\r
- infn_stripped = strrchr(infn, '\\');\r
- if(infn_stripped == NULL)\r
- infn_stripped = infn;\r
- else\r
- ++infn_stripped;\r
-\r
- f = fopen(outfn, "wb");\r
-\r
- memset(symname, 0, 9);\r
- memcpy(symname, infn_stripped, strlen(infn_stripped)-4);\r
- fprintf(f, "char far %s[] ={\r\n", symname);\r
-\r
- in = ReadFile(infn, &insize);\r
-\r
- for(i = skip;i < insize;++i)\r
- {\r
- fprintf(f, "%d", (unsigned char)in[i]);\r
- if(i != insize-1)\r
- fprintf(f, ",\r\n");\r
- }\r
- fprintf(f, " };\r\n");\r
-\r
- fclose(f);\r
- free((char*)in);\r
-}\r
-\r
-int main(int argc, char* argv[])\r
-{\r
- if(argc < 3)\r
- {\r
- printf("Converts file to OMF.\nUseage:\n ./makeobj [fx] <input> ...\n");\r
- return 0;\r
- }\r
-\r
- switch(argv[1][0])\r
- {\r
- case 'c':\r
- if(argc < 4)\r
- {\r
- printf("Need an output location. (Extra parms: <output> [<symbol>])\n");\r
- return 0;\r
- }\r
- else\r
- {\r
- const char *symname = NULL;\r
- if(argc >= 5)\r
- symname = argv[4];\r
- MakeDataObj(argv[2], argv[3], NULL, symname, 1);\r
- }\r
- break;\r
- default:\r
- case 'f':\r
- if(argc < 4)\r
- {\r
- printf("Need an output location. (Extra parms: <output> [<segname> <symbol>])\n");\r
- return 0;\r
- }\r
- else\r
- {\r
- const char *segname = NULL, *symname = NULL;\r
- if(argc >= 6)\r
- {\r
- segname = argv[4];\r
- symname = argv[5];\r
- }\r
- MakeDataObj(argv[2], argv[3], segname, symname, 0);\r
- }\r
- break;\r
- case 'x':\r
- Extract(argv[2]);\r
- break;\r
- case 's':\r
- if(argc < 4)\r
- {\r
- printf("Need an output location. (Extra parms: <output> [<skip>])\n");\r
- return 0;\r
- }\r
- else\r
- {\r
- int skip = 0;\r
- if(argc >= 5)\r
- {\r
- skip = atoi(argv[4]);\r
- }\r
- DumpData(argv[2], argv[3], skip);\r
- }\r
- break;\r
- break;\r
- }\r
- return 0;\r
-}\r
+++ /dev/null
-%ext ck4\r
-%version 1.4\r
-\r
-%dump audiodct.ck4 $354F6 1024\r
-%dump audiohed.ck4 $20DF0 652\r
-\r
-%dump egadict.ck4 $358F6 1024\r
-%dump egahead.ck4 $21080 14256\r
-\r
-%dump introscn.ck4 $1FE40 4008\r
-\r
-%dump maphead.ck4 $24830 23406\r
-\r
-\r
-%version cga-1.4\r
-\r
-%dump audiodct.ck4 $3335C 1024\r
-%dump audiohed.ck4 $1E7A0 652\r
-\r
-%dump cgadict.ck4 $3375C 1024\r
-%dump cgahead.ck4 $1EA30 14256\r
-\r
-%dump introscn.ck4 $1D7F0 4008\r
-\r
-%dump maphead.ck4 $221E0 23406\r
-\r
-\r
-%version 1.4gt # Note: not supported by CK4PATCH v0.11.3\r
-\r
-%dump audiodct.ck4 $359D6 1024\r
-%dump audiohed.ck4 $212D0 652\r
-\r
-%dump egadict.ck4 $35DD6 1024\r
-%dump egahead.ck4 $21560 14256\r
-\r
-%dump introscn.ck4 $20320 4008\r
-\r
-%dump maphead.ck4 $24D10 23406\r
-\r
-\r
-%version all\r
-\r
-%abort\r
-%end
\ No newline at end of file
+++ /dev/null
-%ext ck5\r
-%version 1.4\r
-\r
-%dump audiodct.ck5 $35EC4 1024\r
-%dump audiohed.ck5 $21C80 828\r
-\r
-%dump egadict.ck5 $362C4 1024\r
-%dump egahead.ck5 $21FC0 14796\r
-\r
-%dump introscn.ck5 $20CD0 4008\r
-\r
-%dump maphead.ck5 $25990 24090\r
-\r
-\r
-%version cga-1.4\r
-\r
-%dump audiodct.ck5 $33B88 1024\r
-%dump audiohed.ck5 $1F4C0 828\r
-\r
-%dump cgadict.ck5 $33F88 1024\r
-%dump cgahead.ck5 $1F800 14790\r
-\r
-%dump introscn.ck5 $1E510 4008\r
-\r
-%dump maphead.ck5 $231D0 24090\r
-\r
-\r
-%version 1.4gt # Note: not supported by CK4PATCH v0.11.3\r
-\r
-%dump audiodct.ck5 $36424 1024\r
-%dump audiohed.ck5 $221E0 828\r
-\r
-%dump egadict.ck5 $36824 1024\r
-%dump egahead.ck5 $22520 14796\r
-\r
-%dump introscn.ck5 $21230 4008\r
-\r
-%dump maphead.ck5 $25EF0 24090\r
-\r
-\r
-%version all\r
-\r
-%abort\r
-%end
\ No newline at end of file
+++ /dev/null
-%ext ck6\r
-%version 1.4\r
-\r
-%dump audiodct.ck6 $36EEE 1024\r
-%dump audiohed.ck6 $20C50 760\r
-\r
-%dump egadict.ck6 $372EE 1024\r
-%dump egahead.ck6 $20F50 16683\r
-\r
-%dump introscn.ck6 $1FCA0 4008\r
-\r
-%dump maphead.ck6 $25080 24306\r
-\r
-%dump orderscn.ck6 $2AF80 4008\r
-\r
-\r
-%version 1.5\r
-\r
-%dump audiodct.ck6 $36B4E 1024\r
-%dump audiohed.ck6 $256B0 760\r
-\r
-%dump egadict.ck6 $36F4E 1024\r
-%dump egahead.ck6 $259B0 16683\r
-\r
-%dump introscn.ck6 $24700 4008\r
-\r
-%dump maphead.ck6 $29AE0 24306\r
-\r
-%dump orderscn.ck6 $2F9E0 4008\r
-\r
-\r
-%version cga-1.4\r
-\r
-%dump audiodct.ck6 $35030 1024\r
-%dump audiohed.ck6 $1E830 760\r
-\r
-%dump cgadict.ck6 $35430 1024\r
-%dump cgahead.ck6 $1EB30 16665\r
-\r
-%dump introscn.ck6 $1D880 4008\r
-\r
-%dump maphead.ck6 $22C50 24306\r
-\r
-%dump orderscn.ck6 $28B50 4008\r
-\r
-\r
-%version cga-1.5\r
-\r
-%dump audiodct.ck6 $34DA0 1024\r
-%dump audiohed.ck6 $1E5A0 760\r
-\r
-%dump cgadict.ck6 $351A0 1024\r
-%dump cgahead.ck6 $1E8A0 16665\r
-\r
-%dump introscn.ck6 $1D5F0 4008\r
-\r
-%dump maphead.ck6 $229C0 24306\r
-\r
-%dump orderscn.ck6 $288C0 4008\r
-\r
-\r
-%version all\r
-\r
-%abort\r
-%end
\ No newline at end of file
+++ /dev/null
-KEEN 4 RECREATION TIMELINE:\r
----------------------------\r
-\r
-2019-02-16:\r
-\r
-- started implementation\r
-- started & finished CK_MAIN.C (except for variables)\r
-- started & finished CK_DEMO.C (except for variables and fancy intro stuff)\r
-- started CK_GAME.C, CK_PLAY.C, CK_TEXT.C, CK_STATE.C\r
-\r
-\r
-2019-02-17:\r
-\r
-- finished CK_GAME.C (except for variables)\r
-- finished CK_PLAY.C (except for variables)\r
-- finished CK_TEXT.C (except for variables)\r
-- finished CK_STATE.C (except for variables)\r
-- started CK_KEEN.C\r
-\r
-\r
-2019-02-18:\r
-\r
-- finished CK_KEEN.C (except for variables)\r
-- started & finished CK_KEEN2.C (except for variables)\r
-- started & finished K4_LEVEL.C (except for variables)\r
-- started K4_ACT1.C, K4_ACT2.C\r
-\r
-\r
-2019-02-19:\r
-\r
-- finished K4_ACT1.C (except for variables)\r
-- finished K4_ACT2.C (except for variables)\r
-- started & finished K4_ACT3.C (except for variables)\r
-- added crawl text in K4_LEVEL.C\r
-- added states in K4_ACT1.C\r
-\r
-\r
-2019-02-20:\r
-\r
-- added states in K4_LEVEL.C\r
-- added states and initialized variables in CK_KEEN.C\r
-- added states and initialized variables in CK_KEEN2.C\r
-- added states in K4_ACT2.C\r
-- added states in K4_ACT3.C\r
-\r
-\r
-2019-02-22:\r
-\r
-- added ID Engine (taken from Catacomb 3D)\r
-- started creating header files to put it all together\r
-- fixed tons of typos...\r
-\r
-\r
-2019-02-23:\r
-\r
-- finished header files\r
-- fixed remaining typos & compiler errors\r
-- code compiles, but linking fails because of missing data that needs to be\r
- included in EXE (AUDIOHED, AUDIODICT, EGAHEAD, EGADICT, MAPHEAD)\r
-- first builds - lots of memory(?) issues, quitting freezes DOSBox\r
-- fixed menu colors in ID_US_2.C\r
-- renamed "SKULL 'N' BONES" to "PADDLE WAR" (still need to fix speed issues in pong)\r
-- fixed error in GFXINFO (wrong number of tile16's) now help texts and quitting work\r
-- fixed memory issue by increasing number of memory block to 1200 (Cat3D used only 600)\r
-- first level loads now, but RF_Refresh() locks up/takes forever\r
-\r
-\r
-2019-02-27:\r
-\r
-- modified VW_ClearVideo to match Keen4 behavior (also adding in the bug)\r
-- modified USL_TearDownCtlPanel to use VW_ClearVideo instead of VW_Bar\r
-- fixed error in DrawCacheBox -> animation plays correctly now\r
- (but RF_Refresh still locks up/takes forever)\r
-- fixed error in ID_CA.H (Keen4 uses tile info order SPEED, ANIM, NORTHWALL, ...)\r
- -> RF_Refresh doesn't lock up anymore\r
-- fixed error in GameLoop -> can now enter sub-levels from world map\r
-- fixed error in KeenAirReact -> can now land\r
-- fixed bug in score box (used ammo number for lives)\r
-- status freezes the game\r
-- fixed signed/unsigned division bug in KeenStandThink\r
-- fixed spawn position for slugstain\r
-- fixed error in PlatformThink (platforms got stuck at the top/right end of the path)\r
-- added Keen4 Highscore defaults\r
-- fixed error in StatusWindow -> status window doesn't cause an endless loop anymore\r
-- fixed error in DrawStatus (bad positions for a few things)\r
-- fixed bug in CheckGrabPole -> can climb on poles now\r
-- fixed error in KeenAirReact -> grab edge with correct y position\r
-- fixed error in KeenClimbEdge1Think -> climbing left works correctly now\r
-- fixed bugs in SpawnFlag (darn typecasts...)\r
-- fixed error in ScrollScreenWorld\r
-- fixed error in KeenPoleTihink -> won't fall off when pressing left/right\r
-\r
-\r
-2019-02-28:\r
-\r
-- fixed lindsey floating bug (typecasts)\r
-- fixed mimrock walking\r
-- fixed arachnut contact\r
-- fixed riding the foot\r
-- fixed thundercloud not randomly turning towards player\r
-- fixed missing VW_UpdateScreen in LindseyDialog\r
-- fixed KeenAirReact\r
-- fixed EggContact\r
-- fixed controls for scuba keen\r
-\r
-\r
-2019-03-01:\r
-\r
-- fixed Sprite, Dopefish and Schoolfish\r
-- seems fully playable now...\r
-\r
-\r
-2019-03-16:\r
-\r
-- renamed PlayDemo to RunDemo, since that's the name that is used in the Keen 4 Demo\r
-- fixed Dopefish contact code (used to check 'ob' instead of 'hit' for a keenobj)\r
-\r
-\r
-2019-04-10:\r
-\r
-- fixed bug in PatchWorldMap (info layer value wasn't set to 0 for completed levels)\r
-\r
-\r
-2019-05-04:\r
-\r
-- replaced all sprite numbers with enum names\r
-- fixed error in WormouthLookLeftThink -> changes state to s_wormouth now\r
-\r
-\r
-2019-05-06:\r
-\r
-- replaced some more numbers with enum names\r
-\r
-\r
-2019-05-11:\r
-\r
-- fixed error in MergeTile16M\r
-\r
-\r
-2019-05-17:\r
-\r
-- fixed bug in WormouthThink (used PIXGLOBAL instead of TILEGLOBAL for xdist)\r
-\r
-\r
-2019-05-19:\r
-\r
-- actually moved all far strings into far memory\r
-\r
-\r
-2019-09-27:\r
-\r
-- fixed a minor error in PageLayout (skip anything <= space character, not just space char)\r
-\r
-\r
-2019-09-28:\r
-\r
-- fixed a bug in control panel (had to adjust indices because options menu was added back in)\r
-\r
-\r
-2019-11-26:\r
-\r
-- started implementation of Keen 5 stuff (K5_*.C)\r
-\r
-\r
-2019-11-28:\r
-\r
-- started implementation of Keen 6 stuff (K6_*.C)\r
-\r
-\r
-2019-11-30:\r
-\r
-- finished implementation of Keen 5 & 6 stuff\r
-\r
-\r
-2019-12-09:\r
-\r
-- reorganized KEEN4 project to add support for Keen 5 & 6 without too much redunancy\r
-- added code specific to Keen 5 and Keen 6 to the main codebase (CK_*.C)\r
-- excluded code specific to Keen 4 from the other builds (lots of #if & #ifdef)\r
-- Keen 4 still compiles fine, 5 & 6 still need some header files\r
-\r
-\r
-2019-12-10:\r
-\r
-- created header files for Keen 5 and Keen 6\r
-- all 3 projects compile, but still some bugfixing to do and features to add:\r
- - refresh manager constants must be adjusted\r
- - copy protection for Keen 6 isn't implemented\r
- - sounds for animated tiles (Keen 6) aren't implemented\r
-- fixed a few bugs, first couple of levels in Keen 6 are playable now\r
-\r
-\r
-2019-12-11:\r
-\r
-- adjusted refresh manager constants (now Keen 5 levels are playable, too)\r
-- adjusted position of the "PRESS A KEY" graphic in the status window \r
- (position in Keen 4 differs from 5 & 6 because of the wetsuit box)\r
-- added RF_MaskBlockWhite and a few other things\r
-- studied Terminator-related code in depth, trying to understand it all and\r
- find names for all those variables\r
-\r
-\r
-2019-12-12:\r
-\r
-- finally found and fixed a bug with the turret shots in Keen 5\r
-- fixed wrong pole shooting sprites (left and right sprites were swapped)\r
-- fixed demo-breaking bugs in Spindred and RoboRed (Keen 5)\r
-- fixed worldmap elevator door code (Keen 5)\r
-- fixed worldmap rope and rocket bugs (Keen 6)\r
-- still a demo-breaking bug somewhere (Nospike / Bloogdome, Keen 6 obviously)\r
-- fixed pole check for shikadi pole sparks\r
-\r
-\r
-2019-12-15:\r
-\r
-- FUCLING FINALLY found and fixed the demo-breaking bug in Keen 6\r
- (was in NospikeRunThink)\r
-- fixed bug in Shikadi Master spawn (y offset used tile units instead of pixels)\r
-- started implementation of the Terminator intro and the Star Wars text crawl\r
-\r
-\r
-2019-12-16:\r
-\r
-- finished implementation of the Terminator and Star Wars stuff, but now the\r
- compiler crashes...\r
-- found and fixed the issue that crashed the compiler\r
-- fixed all bugs in the Staw Wars text crawl\r
-- fixed all bugs in the Terminator intro\r
-\r
-2019-12-17:\r
-\r
-- added tile animation sounds for Keen 6\r
-\r
-\r
-2019-12-19:\r
-\r
-- implemented Keen 4-6 version of VW_SetScreen (in _ID_VW_AE.ASM) and my\r
- customized version of the routine (in ID_VW_AE.ASM). swap the files if you\r
- want to use the original code\r
-- added support for the NOPAN parameter\r
-- added US_CheckArg in ID_US_1.C\r
-- added Quiet AdLib mode\r
-- added Gravis Gamepad support\r
-\r
-\r
-2019-12-20:\r
-\r
-- fixed CheckHighScore bug (each episode uses a different map number)\r
-- fixed shockshund bugs (blast direction, stun jump)\r
-\r
-\r
-2019-12-21:\r
-\r
-- fixed EagleWalkThink (condition for starting to fly, Keen 4 obviously)\r
-- fixed tile-based item stealing for TreasureEater (Keen 4)\r
-- fixed force field toggling (Keen 6)\r
-\r
-\r
-2019-12-22:\r
-\r
-- fixed bug in EagleFlyReact (Keen 4)\r
-- changed ConfigVersion in ID_US_1.C for full compatibility with version 1.4\r
- (saved games are still incompatible, though)\r
-\r
-\r
-2020-01-05:\r
-\r
-- modified PaddleWar code to match the code from Keen 4-6\r
-\r
-\r
-2020-01-06:\r
-\r
-- moved minimum memory requirement into the episode headers\r
- (Keen 4 & 5 need 310,000 bytes, Keen 6 needs 300,000 bytes)\r
-- added missing code in SD_Default() (also marked the bug in there)\r
-\r
-\r
-2020-01-08:\r
-\r
-- fixed a minor issue in ID_RF.C related to the tile animation sounds in Keen 6\r
-\r
-\r
-2020-02-21:\r
-\r
-- fixed a bug in Bipship movement code (Keen 6)\r
-- modified sound engine to avoid SDL_Delay entirely and read port 0x388 instead\r
- (which is exactly how version 1.4 and above work)\r
-\r
-\r
-2020-03-05:\r
-\r
-- fixed bug in Ampton walk code\r
-\r
-\r
-2020-04-24:\r
-\r
-- added the title screen in DemoLoop() (after high scores)\r
-- replaced some chunk numbers with their enum names in K4_LEVEL.C (smoke sprites)\r
-\r
-\r
-2020-05-20:\r
-\r
-- SpawnEnemyShot now makes the object removable (KEEN5)\r
-\r
-\r
-2021-05-05:\r
-\r
-- fixed bug in PageLayout (negative top row index)\r
-\r
-\r
-2021-05-05:\r
-\r
-- fixed bug in JanitorDialog (bad picture position for KEENMADPIC)\r
-\r
-\r
-2021-06-06 to 2021-06-23:\r
-\r
-- renamed things in Keen 4 & 5 to what is believed to be the original naming\r
- scheme - Keen 6 stuff is still guesswork\r
-- adapted code to make it compile with Borland C++ 2.0 and 3.0\r
-- adjusted compiler settings and code to recreate the original executables as\r
- closely as possible (for automated comparison and verification)\r
-- found and fixed a few bugs along the way\r
-\r
-\r
-2021-06-24:\r
-\r
-- tracked down and fixed any remaining differences\r
-- compiling (with source debugging enabled) and then compressing the EXE files\r
- with LZEXE Version 0.91 creates EXACTLY the same files as the original v1.4\r
- releases shipped with\r
-- Mission accomplished, I guess...\r
-\r
-\r
-2021-07-01:\r
-\r
-- first public release of this source code\r
-\r
-\r
-2021-07-03:\r
-\r
-- Keen 6 EGA v1.5 can now be recreated with this source code thanks to NY00123\r
-- added some more comments to the source code, mostly explaining what the temp\r
- variables are used for in each actor's code\r
-- changed the function names in the Keen 6 code from ...Think, ...Contact and\r
- ...React to T_..., C_... and R_... for more consistency with the Keen 4 and\r
- Keen 5 code, also changed some state and sprite names for more consistency\r
-\r
-2021-07-08:\r
-- all CGA executables of versions 1.4 and 1.5 can now be recreated with this\r
- source code\r
-- added a few more comments\r
+++ /dev/null
-SET PATH=%PATH%;C:\BC30\BIN\r
-cd KEEN4-6\r
-BC RCK4.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-SET PATH=%PATH%;C:\BC30\BIN\r
-cd KEEN4-6\r
-BC RCK4C.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-SET PATH=%PATH%;C:\BC31\BIN\r
-cd KEEN4-6\r
-BC RCK4GT.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-SET PATH=%PATH%;C:\BC30\BIN\r
-cd KEEN4-6\r
-BC RCK5.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-SET PATH=%PATH%;C:\BC30\BIN\r
-cd KEEN4-6\r
-BC RCK5C.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-SET PATH=%PATH%;C:\BC31\BIN\r
-cd KEEN4-6\r
-BC RCK5GT.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-SET PATH=%PATH%;C:\BC30\BIN\r
-cd KEEN4-6\r
-BC RCK6.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-SET PATH=%PATH%;C:\BC30\BIN\r
-cd KEEN4-6\r
-BC RCK6C.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-SET PATH=%PATH%;C:\BC31\BIN\r
-cd KEEN4-6\r
-BC RCK6C15.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-SET PATH=%PATH%;C:\BC31\BIN\r
-cd KEEN4-6\r
-BC RCK6E15.PRJ\r
-cd ..
\ No newline at end of file
+++ /dev/null
-@echo off\r
-del KEEN4-6\KEEN4\OBJ\*.obj\r
-del KEEN4-6\KEEN4C\OBJ\*.obj\r
-del KEEN4-6\KEEN5\OBJ\*.obj\r
-del KEEN4-6\KEEN5C\OBJ\*.obj\r
-del KEEN4-6\KEEN6\OBJ\*.obj\r
-del KEEN4-6\KEEN6C\OBJ\*.obj
\ No newline at end of file
+++ /dev/null
-Reconstructed Commander Keen 4-6 Source Code\r
-Copyright (C) 2021 K1n9_Duk3\r
-===============================================================================\r
-\r
-This is an UNOFFICIAL reconstruction of the original Keen 4-6 source code. More\r
-specifically, it is a reconstruction of the version 1.4 (and 1.5) EGA and CGA\r
-releases.\r
-\r
-The code is primarily based on the Catacomb 3-D source code (ID Engine files).\r
-The text view code (CK_TEXT.C) is based on Wolfenstein 3-D, and the main game\r
-and actor code is loosely based on Keen Dreams.\r
-\r
-Catacomb 3-D Source Code\r
-Copyright (C) 1993-2014 Flat Rock Software\r
-\r
-Wolfenstein 3-D Source Code\r
-Copyright (C) 1992 id Software\r
-\r
-Keen Dreams Source Code\r
-Copyright (C) 2014 Javier M. Chavez\r
-\r
-This program is free software; you can redistribute it and/or modify\r
-it under the terms of the GNU General Public License as published by\r
-the Free Software Foundation; either version 2 of the License, or\r
-(at your option) any later version.\r
-\r
-This program is distributed in the hope that it will be useful,\r
-but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-GNU General Public License for more details.\r
-\r
-You should have received a copy of the GNU General Public License along\r
-with this program; if not, write to the Free Software Foundation, Inc.,\r
-51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
-\r
-\r
-Getting this code to compile\r
-============================\r
-\r
-You will need Borland C++ 2.0, 3.0 or 3.1 to compile this code. Newer versions\r
-may work, but have not been tested.\r
-\r
-In addition to the compiler and this source code, you will also need to extract\r
-some data files from the original executables. I have provided patch scripts to\r
-extract that data from the original executables. To use these patch scripts,\r
-you will need one of the following tools:\r
-\r
-CKPatch v0.11.3 (unofficial) - 16 bit DOS application\r
-http://ny.duke4.net/files.html\r
-\r
-K1n9_Duk3's Patching Utility v2.3 - Win32 application\r
-http://k1n9duk3.shikadi.net/patcher.html\r
-\r
-Copy the patching programs into the "static" subdirectory, along with copies of\r
-the original Keen 4-6 executables. The Keen 4-6 executables should be named\r
-KEEN4*.EXE, KEEN5*.EXE and KEEN6*.EXE respectively, otherwise the patching\r
-programs might have trouble recognizing the files.\r
-\r
-If you are going to use CKPatch, you should only copy one KEEN4*.EXE file, one\r
-KEEN5*.EXE and one KEEN6*.EXE file into the "static" directory. CKPatch will\r
-always use the first file matching this pattern, so if you have both KEEN4C.EXE\r
-and KEEN4E.EXE in that directory, for example, CK4PATCH will always operate on\r
-KEEN4C.EXE and ignore KEEN4E.EXE.\r
-\r
-These patches will only work on very specific versions of the original game's\r
-executables (v1.4/v1.5 CGA/EGA). The GT versions are not supported by CKPatch,\r
-so you will need K1n9_Duk3's Patching Utility to extract their data with the\r
-patch scripts included in the "static" directory. CKPatch may also be unable to\r
-open the FormGen release of Keen 4 (and Keen 5, if it exists). Decompressing\r
-the game's executable with UNLZEXE may fix that problem.\r
-\r
-If you are using K1n9_Duk3's Patching Utility, simply run it and open the patch\r
-file (*.PAT) you want to use. If K1n9_Duk3's Patching Utility found more than\r
-one supported version of the executables (or none at all), it will ask you to\r
-open the executable manually. Save the extracted files into the "static"\r
-directory using the suggested file names.\r
-\r
-If you are going to use CKPatch, just copy the files as described above, then\r
-use the provided batch files as described in the following section.\r
-\r
-\r
-Setting up a working environment in DOSBox\r
-------------------------------------------\r
-\r
-The Borland C++ compilers, as well as CKPATCH, MAKEOBJ and LZEXE, are all DOS\r
-programs, so you will need a system that is capable of running DOS programs or\r
-you will have to use an emulator like DOSBox to run these programs.\r
-\r
-If you are going to use DOSBox, start out by preparing a base directory on your\r
-system that you are going to mount as drive C: in DOSBox (mounting your real C:\r
-drive as C: in DOSBox is NOT recommended). Let's assume your base directory is\r
-"C:\BASE". Extract the contents of this package into that directory. Also copy\r
-the Borland C++ compiler(s) you are going to use into that directory,\r
-preferably into subdirectories named "BC20", "BC30" and "BC31" to make things\r
-easier for you. You can use different names, but then you will have to edit a\r
-couple of files and settings later on.\r
-\r
-You could just start DOSBox and manually mount your base directory as the C:\r
-drive in DOSBox, but this project comes with a couple of batch files that make\r
-the process much easier, as long as things are set up correctly.\r
-\r
-In case you didn't know, dragging and dropping a file onto DOSBox.exe will\r
-start DOSBox and mount the directory in which that file is located in as the C:\r
-drive in DOSBox, then it will try to execute that file in DOSBox.\r
-\r
-At this point, your base directory should have the following contents:\r
-\r
- BC20 - Borland C++ 2.0\r
- BC30 - Borland C++ 3.0\r
- BC31 - Borland C++ 3.1\r
- KEEN4-6 - main source directory\r
-\r
- lzexe.exe - for compressing executables\r
- rck4.bat - opens RCK4.PRJ with the correct compiler version\r
- rck4c.bat - opens RCK4C.PRJ with the correct compiler version\r
- rck5.bat - opens RCK5.PRJ with the correct compiler version\r
- rck5c.bat - opens RCK5C.PRJ with the correct compiler version\r
- rck6.bat - opens RCK6.PRJ with the correct compiler version\r
- rck6c.bat - opens RCK6C.PRJ with the correct compiler version\r
- rck4gt.bat - opens RCK4GT.PRJ with the correct compiler version\r
- rck5gt.bat - opens RCK5GT.PRJ with the correct compiler version\r
- rck6e15.bat - opens RCK6E15.PRJ with the correct compiler version\r
- rck6c15.bat - opens RCK6C15.PRJ with the correct compiler version\r
- ripnmake.bat - extracts data files and converts them into .OBJ files\r
- readme.txt - this file\r
-\r
-The first order of business is to drag and drop RIPNMAKE.BAT onto DOSBox.exe or\r
-onto a shortcut to DOSBox.exe. This will try to extract the required data files\r
-from the original executables via CKPatch and then convert the data files into\r
-.OBJ files that the compiler can include when generating the new executables.\r
-The .OBJ files will be created in the KEEN4, KEEN5 and KEEN6 subdirectories.\r
-\r
-Note that you should do this step even if you already extracted the data files\r
-using K1n9_Duk3's Patching Utility. The RIPNMAKE.BAT file may not be able to\r
-run the CKPatch programs in that case, but as long as the extracted data files\r
-are present in the "KEEN4-6\static" directory, it will still convert them into\r
-.OBJ files and place the .OBJ files into the correct directories.\r
-\r
-If you are using CKPatch and you want to extract the data for both the EGA and\r
-the CGA versions, you need to delete the KEEN*.EXE files from the "static"\r
-directory after running RIPNMAKE.BAT and then copy the other executables into\r
-that directory and run RIPNMAKE.BAT again.\r
-\r
-\r
-Check the KEEN4, KEEN5 and KEEN6 directories and make sure the following files\r
-are in them:\r
-\r
- CK?ADICT.OBJ\r
- CK?AHEAD.OBJ\r
- CK?CDICT.OBJ (for the CGA version)\r
- CK?CHEAD.OBJ (for the CGA version)\r
- CK?EDICT.OBJ (for the EGA version)\r
- CK?EHEAD.OBJ (for the EGA version)\r
- CK?INTRO.OBJ\r
- CK?MHEAD.OBJ\r
- CK6ORDER.OBJ (only for Keen 6)\r
-\r
-You can exit from DOSBox after this is done. Simply type "exit" at the prompt\r
-and hit Enter.\r
-\r
-\r
-Compiling the code:\r
--------------------\r
-\r
-The other batch files in your base directory (RCK*.BAT) are provided to make\r
-compiling the code easy. Simply drag and drop the batch file onto DOSBox.exe\r
-(or onto a shortcut to DOSBox.exe) and it will open the respective project in\r
-the correct version of the compiler.\r
-\r
- RCK4 - EGA version 1.4 - Apogee and FormGen release\r
- RCK5 - EGA version 1.4 - Apogee (and FormGen?) release)\r
- RCK6 - EGA version 1.4 - FormGen release\r
- RCK4C - CGA version 1.4 - Apogee and FormGen release\r
- RCK5C - CGA version 1.4 - Apogee (and FormGen?) release)\r
- RCK6C - CGA version 1.4 - FormGen release\r
-\r
- RCK4GT - EGA version 1.4 - GT release\r
- RCK5GT - EGA version 1.4 - GT release\r
- RCK6E15 - EGA version 1.5 - FormGen release\r
- RCK6C15 - CGA version 1.5 - FormGen release\r
-\r
-The first six are set up for use with Borland C++ 3.0 by default, the later\r
-four are set up for use with Borland C++ 3.1. If you want to compile them with\r
-a different version of the compiler, edit the batch file and change the\r
-compiler directory (in the "SET PATH=" line) to the one you wish to use. Then\r
-open the project (drag and drop the batch file onto DOSBox.exe) and then select\r
-"Options" -> "Directories" from the main menu. Make sure that the Include and\r
-Library directory settings point to a version that you actually have installed.\r
-\r
-Note that RCK4, RCK4C, RCK5, RCK5C, RCK6 and RCK6C are set up to compile with\r
-BC30, but using the Library directory from BC20. This is required for\r
-recreating the original executables, but if you don't have both of these\r
-versions and you don't care about creating 100% identical copies, you can just\r
-change the directory settings to point to the compiler you have.\r
-\r
-To actually compile the code, press F9 or select "Compile" -> "Make" from the\r
-menu.\r
-\r
-Compiling all of the files may take a while, depending on your CPU cycles\r
-settings in DOSBox. By default, DOSBox should automatically switch to maximum\r
-cycles mode when Borland C++ 3.0 or 3.1 are started, but not when Borland C++\r
-2.0 is started. You can simply enter the command "cycles max" at the DOSBox\r
-prompt (or add it to the batch files) to switch DOSBox into maximum cycles mode\r
-if the automatic switch doesn't work for you.\r
-\r
-With the current code base, it is completely normal to get 3 or 4 warnings as\r
-the code is compiled. One may come from CK_KEEN2.C ("Condition is always true")\r
-when compiling Keen 6 v1.5. The other three of them should come from ID_US_1.C\r
-(2x "Condition is always true" and 1x "Unreachable code"). You can ignore these\r
-warnings.\r
-\r
-Once the code has been compiled, simply press ALT+X or select "File" -> "Quit"\r
-from the menu. Don't just close DOSBox while Borland C++ is still running, you\r
-would just end up with lots of useless swap files in your project directory.\r
-\r
-Type "exit" at the DOS prompt to quit DOSBox.\r
-\r
-Please note that you should always quit DOSBox after compiling a project.\r
-Trying to compile a second project after the first one may cause issues with\r
-the provided batch files and the way they adjust the PATH environment variable.\r
-For example, DOSBox may end up starting the wrong version of the compiler.\r
-\r
-\r
-Recreating the original executables\r
-===================================\r
-\r
-Here's the TL;DR for advanced users:\r
-\r
-RCK4.PRJ, RCK5.PRJ, RCK6.PRJ, RCK4C.PRJ, RCK5C.PRJ, RCK6C.PRJ:\r
-- Use same compiler settings as in the provided RCK?.PRJ files\r
-- Use LIB directory from Borland C++ 2.0\r
-- Use INCLUDE directory from Borland C++ 3.0\r
-- Compile with Borland C++ 3.0\r
-- Compress compiled EXE file with LZEXE version 0.91\r
-\r
-RCK4GT.PJR, RCK5GT.PRJ, RCK6E15.PRJ, RCK6C15.PRJ:\r
-- Use same compiler settings as in the provided RCK?GT.PRJ/RCK6?15.PRJ files\r
-- Use LIB and INCLUDE directories from Borland C++ 3.1\r
-- Compile with Borland C++ 3.1\r
-- Compress compiled EXE file with LZEXE version 0.91\r
-\r
-To create 100% identical copies of the original v1.4 EGA executables, you will\r
-need a copy of Borland C++ 3.0 as well as a copy of Borland C++ 2.0 (or at\r
-least the LIB directory from Borland C++ 2.0).\r
-\r
-Make sure to start with the original project files included in this package.\r
-Those have all of the compiler options set to the correct values. Different\r
-settings may produce slightly different code and the whole point of this is\r
-to get code that's 100% identical to the original executables.\r
-\r
-Unlike Borland C++ 3.1, version 3.0 will not recompile every file when you\r
-select "Build all" from the "Compile" menu if neither that file nor the header\r
-files used by that file have changed since the last time that file was\r
-compiled. Therefore I recommend that you delete all *.OBJ files from the\r
-"KEEN*\OBJ" directory to make sure everything gets recompiled. The CLEANUP.BAT\r
-file will take care of that (can be run in Windows as well as in DOSBox).\r
-\r
-Open the project in BC30 and select "Options" -> "Directories" from the menu.\r
-Change the "Include Directories" path to the INCLUDE directory from BC30 and\r
-change the "Library Directories" path to the LIB directory from BC20.\r
-\r
-Compile the code (select either "Make" or "Build all" from the "Compile" menu)\r
-and once the compiler is done, quit to DOS(Box) and compress the new executable\r
-with LZEXE. To compress RCK4.EXE, you must type "LZEXE RCK4.EXE" and hit Enter.\r
-The program will display a message in French about additional information at\r
-the end of the executable that will be lost after compression and ask if you\r
-want to abort. Type "N" and hit Enter to compress the file.\r
-\r
-\r
-For reference, these are the results you should be getting after compression:\r
-\r
-Keen 4 EGA version 1.4 (Apogee) : size = 105108 bytes, CRC = 6646B983\r
-Keen 4 EGA version 1.4 (FormGen) : size = 105140 bytes, CRC = F91E558B\r
-Keen 4 EGA version 1.4 (GT) : size = 106178 bytes, CRC = 0A05442E\r
-Keen 4 CGA version 1.4 (Apogee) : size = 98007 bytes, CRC = F544DD41\r
-Keen 4 CGA version 1.4 (FormGen) : size = 98007 bytes, CRC = 018FA365\r
-\r
-Keen 5 EGA version 1.4 (Apogee) : size = 106417 bytes, CRC = 2A45589A\r
-(No FormGen release of Keen 5 EGA version 1.4 is known at this time.)\r
-Keen 5 EGA version 1.4 (GT) : size = 107611 bytes, CRC = 5E450B12\r
-Keen 5 CGA version 1.4 (Apogee) : size = 98880 bytes, CRC = FB9EB429\r
-(No FormGen release of Keen 5 CGA version 1.4 is known at this time.)\r
-\r
-Keen 6 EGA version 1.4 (FormGen) : size = 107719 bytes, CRC = 9CDACDAE\r
-Keen 6 EGA version 1.5 (FormGen) : size = 109058 bytes, CRC = 5B828EE2\r
-Keen 6 CGA version 1.4 (FormGen) : size = 100964 bytes, CRC = F36A4C51\r
-Keen 6 CGA version 1.5 (FormGen) : size = 102166 bytes, CRC = D2F379B8\r
-\r
-The GT versions appear to have been compiled with Borland C++ 3.1 and its LIB\r
-directory, but otherwise using the same compiler and optimization settings as\r
-in the earlier Apogee/FormGen versions.\r
-\r
-The only difference between the Apogee/FormGen and the GT versions of the Keen\r
-4 and 5 executables (obvious differences in the included OBJ files aside) is\r
-that the GT version has only four entries in the help menu instead of five\r
-(the Order Info section has been removed) and that the GT version has a\r
-different set of default high scores. You must have GOODTIMES defined to\r
-compile these versions (already set in the RCK?GT.PRJ files).\r
-\r
-Keen 6 EGA/CGA version 1.5 was also compiled with Borland C++ 3.1 and its LIB\r
-directory, but it uses completely different compiler and optimization settings\r
-and also has one new variable in CK_PLAY.C that is never used but still has to\r
-be present to recreate the original code. It appears that somebody just pressed\r
-the "Fastest code" button in the compiler optimizations window before version\r
-1.5 was compiled, which was a bad idea for this code. None of the variables in\r
-the ID Engine are marked as "volatile", not even the ones that may be changed\r
-by an interrupt. That means the optimizations may end up generating code that\r
-leads to endless loops, as is the case with the "while (!LastScan);" loop in\r
-the PicturePause() routine.\r
-\r
-To recreate the exact same files as the original Keen 6 v1.5 executables, you\r
-need to compress the generated executables with LZEXE and then hex-edit the\r
-compressed files to replace the "LZ91" signature at offset 0x1C in the EXE file\r
-with four 0 bytes. If you don't have a hex editor, you can use K1n9_Duk3's\r
-Patching Utility for that step. Simply open the "fix_RCK6_v15.pat" or the\r
-"fix_RCK6C_v15.pat" patch file (located in the KEEN4-6\KEEN6\OBJ and\r
-KEEN4-6\KEEN6C\OBJ directories, respectively) with K1n9_Duk3's Patching Utility\r
-and let it patch the compressed executable for you.\r
-\r
-\r
-Borland C++ 2.0 issues?\r
-=======================\r
-\r
-Any versions of Keen 4-6 prior to version 1.4 appear to have been compiled with\r
-Borland C++ 2.0. Version 1.4 is where they switched from 2.0 to 3.0 (without\r
-changing the Library directory to the one from 3.0 for some reason).\r
-\r
-The code in this package can be built with Borland C++ 2.0 and the compiled\r
-executables appear to be working perfectly fine. But when that version of the\r
-compiler was used to compile the "Return to the Shadowlands" source code (which\r
-is based on an earlier incarnation of this source code recreation), it caused\r
-problems. The code compiled without errors, but the compiled executable would\r
-always quit with the error message "Abnormal program termination".\r
-\r
-The reason for this error was that the compiler appeared to have forced the\r
-"grneeded" array (declared as "far" in ID_CA.C) into the main data segment\r
-instead of giving it its own far data segment. With this additional data in the\r
-main data segment, there was simply not enough space left for the stack and\r
-that is why the program aborted with an error message.\r
-\r
-It is unclear what caused this problem. The same source code compiles perfectly\r
-fine with Borland C++ 3.1 and produces an executable that actually works. If\r
-similar issues arise when working on mods based on this source code, try using\r
-Borland C++ 3.1 instead of whatever version you were using before.\r
-\r
-\r
-Special Thanks\r
-==============\r
-\r
-I would like to thank Jason Blochowiak, Adrian Carmack, John Carmack, Tom Hall,\r
-John Romero and Robert Prince for creating Commander Keen 4-6 in the first\r
-place.\r
-\r
-Special thanks to John Carmack (and the rest of id Software) for releasing the\r
-Wolfenstein 3-D and Spear of Destiny source code to the public in July 1995.\r
-\r
-Extra special thanks to the late Richard Mandel of Flat Rock Software and\r
-everybody else involved in the process of getting the source code of some of\r
-the games id Software made for Softdisk (Catacomb series, Hovertank, Keen\r
-Dreams) released to the public. I have learned a lot from the source code of\r
-these games and this project certainly would not have been possible without it.\r
-\r
-Thanks to PCKF user Multimania for supplying additional information regarding\r
-the names of functions and variables for Keen 4 and Keen 5.\r
-\r
-And last, but not least, I would like to thank NY00123 for figuring out how to\r
-get the compiler to recreate Keen 6 v1.5 and also for sharing a lot of valuable\r
-information about the "gamesrc-ver-recreation" project in various public posts\r
-on the RGB Classic Games Forum (among other places). That's where I first heard\r
-about the TDUMP utility, which is certainly a much better way to extract names\r
-from the debugging information that some executables came with. And using IDA\r
-to open executables and then make IDA generate ASM files that can be compared\r
-more easily using tools like FC in Windows/DOS is pretty much the best way to\r
-track down differences between those two executables without going insane.\r
-\r
-[END OF FILE]
\ No newline at end of file
+++ /dev/null
-@echo off\r
-\r
-cd keen4-6\static\r
-\r
-echo Trying to extract data from KEEN 4 ...\r
-ck4patch ripck4.pat\r
-echo.\r
-\r
-echo Trying to extract data from KEEN 5 ...\r
-ck5patch ripck5.pat\r
-echo.\r
-\r
-echo Trying to extract data from KEEN 6 ...\r
-ck6patch ripck6.pat\r
-echo.\r
-\r
-echo Converting data files to .OBJ ...\r
-call make.bat\r
-\r
-cd ..\..
\ No newline at end of file
@$(REMOVECOMMAND) -rf 16/dro2imf
@$(REMOVECOMMAND) -rf 16/vgmtools
@$(REMOVECOMMAND) -rf 16/abrash-black-book
+ @$(REMOVECOMMAND) -rf 16/keen4-6
@wmake -s -h initlibs
initlibs: .symbolic
@git clone https://github.com/Malvineous/dro2imf.git
@git clone https://github.com/vgmrips/vgmtools.git
@git clone https://github.com/jeffpar/abrash-black-book.git
+ @git clone https://github.com/sparky4/keen4-6.git
@cd $(BUILD_ROOT)
@$(COPYCOMMAND) $(DOSLIBDIR)/make-lowercase .
projects / 16.git / commitdiff