Hello Guys of MSX World,
How I can to fix this my loader "SETLEV3.BAS" ??
Doesn't work SFX sounds effect in mode MOONSOUND in NESTOR BASIC.
10 'SETLEV3.BAS by KdL for GAMECAST Ent.(AG) 15 SCREEN1:COLOR15,1,1 20 CLEAR200:BLOAD"H-EDITOR.BIN",R:PRINT"HVSCROLL ok!" 30 POKE&HFCAF,8:BLOAD"EGYPT.BIN",R:POKE&HFCAF,1 40 POKE&HFCAF,8:BLOAD"SCRAMBLE.VRM",S:POKE&HFCAF,1:PRINT"MODE4IN1 ok!" 45 FORL=0TO31:VPOKE&H1E00+L*4,209:NEXTL 50 PRINT"VRAM INIT ok!" 60 BLOAD"NBASIC.BIN",R:DEFINTA-Z:PRINT"NESTOR BASIC ok!" 70 P(10)=7:A=USR(1):IFP(0)<8THEN"error: 128K RAM IS NEEDED!":ENDELSEPRINT"RAM TEST passed!" 72 REM SET MOONSOUND CARTRIDGE 75 IFPEEK(&H2D)=3THENP(0)=0:P(1)=&H180:P(2)=&H8100:E=USR(58) 78 P(0)=1:E=USR(71):E=USR(72):IFP(11)=-1THENF$(0)="MYTHSDRA.MWK":PRINT"DRUMKIT WAVE OK!":E=USR(31):E=USR(79):E=USR(32):P(0)=1:P(1)=1:P(2)=0:E=USR(73):GOSUB146ELSEGOTO80 80 P(0)=0:A=USR(71):PRINT"MOONBLASTER 1.4 ok!" 90 P(2)=7:'segment #7 is preset for function #32 100 P(0)=0:P(7)=&H7FFF:F$(0)="GALAXY.MBK":A=USR(31):A=USR(78):A=USR(32):PRINT"DRUMSKIT OK!" 110 F$(0)="GALAXY1.MBM":A=USR(31):P(3)=0:P(4)=10155:A=USR(33):A=USR(32):PRINTF$(0);" ok!" 120 F$(0)="GAMEOVER.MBM":A=USR(31):P(3)=10155:P(4)=754:A=USR(33):A=USR(32):PRINTF$(0);" ok!" 130 F$(0)="CLEAR.MBM":A=USR(31):P(3)=10155+754:P(4)=899:A=USR(33):A=USR(32):PRINTF$(0);" ok!" 140 F$(0)="TABLE.MBM":A=USR(31):P(3)=10155+754+899:P(4)=1108:A=USR(33):A=USR(32):PRINTF$(0);" ok!" 145 REM LOADING MUSIC MOONSOUND 146 PRINT"FOUND MOONSOUND CARTRIDGE!" 147 F$(0)="4MYSTERY.MWM":A=USR(31):P(2)=7:P(3)=0:P(4)=6064:A=USR(33):A=USR(32):PRINTF$(0);" ok!" 148 REM 149 REM LOADING SFX SOUND 150 F$(0)="SCRAMBLE.SEE":A=USR(31):P(2)=7:P(3)=6064:P(4)=11484+6046:A=USR(33):A=USR(32):PRINTF$(0);" ok!" 160 P(0)=6:P(1)=&H0:A=USR(68):PRINT"SFX INIT ok!" 170 P(0)=15:A=USR(67):'psg volume 13 is set 180 PRINT:PRINT"all done!" 190 PRINT"LOADING...BEYOND GALAXY" 200 RUN"BEYOND3.BAS" 210 ' 220 DEFUSR9=&HE000:A=USR9(0)' INIT OF VHSCROLL 230 ' P(0)=7:P(1)=0:A=USR(74):' PLAY MANBOW01.MBM 240 ' P(0)=7:P(1)=3632:A=USR(74):' PLAY GAMEOVER.MBM 250 ' P(0)=7:P(1)=3632+754:A=USR(74):' PLAY CLEAR .MBM 260 ' P(0)=7:P(1)=3632+754+899:A=USR(74):' PLAY TABLE.MBM 270 ' P(0)=1:A=USR(69):' PLAY SFX #1
I wait yuor good news
Andrea
ログイン/登録して投稿