Merge pull request #2 from sassquad/v1.13

further bugfix to death routine

src/HOTEL1.bas

@@ -1,6 +1,6 @@
 10REM Headcase Hotel
 20REM Instructions and setup
-30REM Version 1.12 (27/10/2021)
+30REM Version 1.13 (28/10/2021)
 40REM (c) Stephen Scott 1995, 2021
 50REM Based on an idea by Christopher West
 60REM
@@ -20,8 +20,8 @@
 200FORA=1TO5:READA$
 210PRINTTAB(4,7+A*2)CHR$131;A$;
 220NEXT
-230PRINTTAB(2,20)"V1.12"
-240PRINTTAB(2,22)"27/10"TAB(2,23)"2021"
+230PRINTTAB(2,20)"V1.13"
+240PRINTTAB(2,22)"28/10"TAB(2,23)"2021"
 250PRINTTAB(0,0)CHR$145STRING$(7,CHR$96)CHR$237
 260FORY=1TO22
 270VDU31,7,Y,145,106,140,153

src/HOTEL2.bas

@@ -1,10 +1,10 @@
 10REM Headcase Hotel Listing 3 (HOTEL2)
 20REM Game code
-30REM Version 1.12 (28/10/2021)
+30REM Version 1.13 (28/10/2021)
 40REM (c) Stephen Scott 1995, 2021
 50REM Based on an idea by Christopher West
 60*LOAD SpData 4F00
-70REMONERRORMODE7:PROCerror:END
+70ONERRORMODE7:PROCerror:END
 150MODE5:VDU23;8202;0;0;0;
 160PROCinit
 170REPEAT
@@ -43,9 +43,9 @@
 460:
 470DEFPROCerror
 480PRINT"Error from Headcase Hotel:"
-490PRINT"Version 1.11 (21/8/1995)"
+490PRINT"Version 1.13 (28/10/2021)"
 500PRINT‘
-510REPORT:PRINT" at line ";ERL:END
+510REPORT:PRINT" at line ";ERL
 520ENDPROC
 530:
 540DEFPROCinit:Q=RND(-TIME)
@@ -278,20 +278,20 @@
 2780SOUND1,2,90,1:!&74=X%:?&76=2
 2790CALLblank:li%=li%-1:VDU5,18,0,0
 2800MOVE((18-li%)*64)+24,1004:VDU237,4
-2810ys%=0
-2820PROCd(130)
-2830FORe=1TO4:FORd=0TO3:!&74=N%(d)
-2840?&76=2:CALLblank
-2850!&74=N%(d):?&76=2
+2810ys%=0:stp%=0:ct%=0
+2820PROCd(130):FORe=0TO3
+2830REM!&74=N%(e)
+2840REM?&76=2:CALLblank
+2850!&74=N%(e):?&76=2
 2860!&77=(&5020+(L%*&20)):CALLsprite
 2870NEXT:ENDPROC
 2880:
 2890DEFPROCplace
-2900PROCr1:X%=P%:FORe=1TO4
+2900PROCr1:X%=P%:FORe=1TO4:SOUND1,-9,200,1
 2910!&74=X%:?&76=2:CALLblank
-2920SOUND1,-9,200,1
-2930!&74=X%:?&76=2:!&77=F%(f%)
-2940CALLsprite
+2920PROCd(25)
+2930!&74=X%:?&76=2:!&77=F%(f%):CALLsprite
+2940PROCd(25):NEXT
 2950ENDPROC
 2960DEFPROCr1
 2970P%=(RND(18)*16)+(RND(12)*640)+&5A88

src/HOTELSP.bas

@@ -1,6 +1,6 @@
 10REM Hotel Madness Listing 1 (HOTELSP)
 20REM Sprite Data Construction
-30REM Version 1.12 (28/10/2021)
+30REM Version 1.13 (28/10/2021)
 40REM (c) Stephen Scott 1995, 2021
 50REM Based on an idea by Christopher West
 60: