mirror of
https://github.com/stevenhowes/TheEscape.git
synced 2026-05-26 15:53:26 +01:00
stevenhowes
152 lines
3.7 KiB
VB.net
152 lines
3.7 KiB
VB.net
MODE 28
|
|
OFF
|
|
CLS
|
|
|
|
sprite_area% = FNload_sprites("Spr")
|
|
PROCdraw_sprite("tng",320,400)
|
|
|
|
|
|
DIM Notes$(12)
|
|
Notes$() = "A","A#","B","C","C#","D","D#","E","F","F#","G","G#"
|
|
|
|
MaxComp% = 999
|
|
DIM CompositionStart%(MaxComp%)
|
|
DIM CompositionNote%(MaxComp%)
|
|
DIM CompositionVolume%(MaxComp%)
|
|
DIM CompositionChannel%(MaxComp%)
|
|
DIM CompositionLength%(MaxComp%)
|
|
|
|
PRINT "Loading composition"
|
|
|
|
CurrentNote% = 0
|
|
CurrentStart% = 0
|
|
|
|
REM DUn, dun, daan duhhn
|
|
PROCAddNote(CurrentStart%,1,"A4#",200)
|
|
PROCAddNote(CurrentStart%,2,"A5#",200)
|
|
CurrentStart% += 200
|
|
PROCAddNote(CurrentStart%,1,"F3",200)
|
|
PROCAddNote(CurrentStart%,2,"F4",200)
|
|
CurrentStart% += 200
|
|
PROCAddNote(CurrentStart%,1,"G3#",200)
|
|
PROCAddNote(CurrentStart%,2,"G4#",200)
|
|
CurrentStart% += 200
|
|
PROCAddNote(CurrentStart%,1,"C3",200)
|
|
PROCAddNote(CurrentStart%,2,"C4",200)
|
|
CurrentStart% += 200
|
|
|
|
REM DUn, dun, daan duhhn
|
|
PROCAddNote(CurrentStart%,1,"A3#",200)
|
|
PROCAddNote(CurrentStart%,2,"A4#",200)
|
|
CurrentStart% += 200
|
|
PROCAddNote(CurrentStart%,1,"F2",200)
|
|
CurrentStart% += 200
|
|
PROCAddNote(CurrentStart%,2,"G2#",200)
|
|
CurrentStart% += 200
|
|
PROCAddNote(CurrentStart%,1,"C2",200)
|
|
CurrentStart% += 250
|
|
|
|
REM Duh
|
|
PROCAddNote(CurrentStart%,3,"A3#",300)
|
|
PROCAddNote(CurrentStart%,4,"A2#",300)
|
|
CurrentStart% += 200
|
|
|
|
REM Dun De Da
|
|
PROCAddNote(CurrentStart%,1,"F1",20)
|
|
CurrentStart% += 50
|
|
PROCAddNote(CurrentStart%,2,"A2#",5)
|
|
CurrentStart% += 20
|
|
PROCAddNote(CurrentStart%,1,"D2#",200)
|
|
CurrentStart% += 180
|
|
|
|
|
|
PROCAddNote(CurrentStart%,2,"D2",50)
|
|
CurrentStart% += 50
|
|
PROCAddNote(CurrentStart%,1,"A2#",30)
|
|
CurrentStart% += 30
|
|
PROCAddNote(CurrentStart%,2,"G1",50)
|
|
CurrentStart% += 50
|
|
PROCAddNote(CurrentStart%,1,"C2",50)
|
|
CurrentStart% += 50
|
|
PROCAddNote(CurrentStart%,3,"A2#",100)
|
|
PROCAddNote(CurrentStart%,4,"F2",100)
|
|
CurrentStart% += 100
|
|
|
|
PRINT "Loaded"
|
|
|
|
|
|
SOUND ON
|
|
VOICES 4
|
|
VOICE 1,"WaveSynth-Beep"
|
|
VOICE 2,"WaveSynth-Beep"
|
|
VOICE 3,"WaveSynth-Beep"
|
|
VOICE 4,"WaveSynth-Beep"
|
|
|
|
StartCents% = TIME
|
|
|
|
FOR NoteID%=0 TO CurrentNote%
|
|
IF CompositionChannel%(NoteID%) > 0 THEN
|
|
WHILE CompositionStart%(NoteID%) > (TIME - StartCents%)
|
|
ENDWHILE
|
|
PRINT STR$(CompositionChannel%(NoteID%)) + " " + STR$(CompositionVolume%(NoteID%)) + " " + STR$(CompositionNote%(NoteID%)) + " " + STR$(CompositionLength%(NoteID%))
|
|
SOUND CompositionChannel%(NoteID%),CompositionVolume%(NoteID%),CompositionNote%(NoteID%),CompositionLength%(NoteID%)
|
|
Key% = INKEY(0)
|
|
IF Key% >= 0 END
|
|
ENDIF
|
|
NEXT NoteID%
|
|
|
|
|
|
PROCDelay(300)
|
|
END
|
|
|
|
DEF PROCAddNote(Start%,Channel%,RealNote$,Length%)
|
|
CompositionStart%(CurrentNote%) = Start%
|
|
CompositionNote%(CurrentNote%) = FNEncodeNote(RealNote$)
|
|
CompositionVolume%(CurrentNote%) = -10
|
|
CompositionChannel%(CurrentNote%) = Channel%
|
|
CompositionLength%(CurrentNote%) = Length%
|
|
CurrentNote% += 1
|
|
ENDPROC
|
|
|
|
DEF FNEncodeNote(Note$)
|
|
Octave% = VAL(MID$(Note$,2,1))
|
|
IF LEN(Note$) = 3 THEN
|
|
Note$ = LEFT$(Note$,1) + RIGHT$(Note$,1)
|
|
ELSE
|
|
Note$ = LEFT$(Note$,1)
|
|
ENDIF
|
|
|
|
|
|
NoteByte% = -1
|
|
FOR NoteCount% = 0 TO 12
|
|
IF Notes$(NoteCount%) = Note$ THEN
|
|
NoteByte% = NoteCount%
|
|
ENDIF
|
|
NEXT NoteCount%
|
|
NoteByte% = 41 + (4 * NoteByte%) + ((Octave% - 2) * 48)
|
|
IF NoteByte% < 0 THEN
|
|
NoteByte% = 0
|
|
ENDIF
|
|
=NoteByte%
|
|
|
|
REM Delay routine - thanks Sophie
|
|
DEF PROCDelay(n)
|
|
T%=TIME+n:REPEAT UNTIL TIME > T%
|
|
ENDPROC
|
|
|
|
REM Shorthand for sprite drawing SWI
|
|
DEF PROCdraw_sprite(name$,x%,y%)
|
|
SYS "OS_SpriteOp",34+256,sprite_area%,name$,x%,y%,8
|
|
ENDPROC
|
|
|
|
REM Loads sprite file - stolen off a forum somewhere
|
|
DEF FNload_sprites(sprite_file$)
|
|
LOCAL length%, area_ptr%
|
|
SYS "OS_File",13,sprite_file$ TO ,,,,length%
|
|
DIM area_ptr% length%+4-1
|
|
area_ptr%!0 = length%+4
|
|
area_ptr%!4 = 16
|
|
SYS "OS_SpriteOp",9+256,area_ptr%
|
|
SYS "OS_SpriteOp",10+256,area_ptr%,sprite_file$
|
|
=area_ptr%
|