diff --git a/NeutTower.dsk b/NeutTower.dsk index 695e9de..47f6d8f 100644 Binary files a/NeutTower.dsk and b/NeutTower.dsk differ diff --git a/game/boop.fnl b/game/boop.fnl index d7ab3da..b118b55 100644 --- a/game/boop.fnl +++ b/game/boop.fnl @@ -81,5 +81,6 @@ (vm.code:append [:dw (- (note-wavelength n) 0xd0)])) (vm:word :snd-keypad ; digit -- :dup :+ :lit :keypad-boops :+ :get 0x10d0 :swap :bliptone) +(vm:word :snd-cheat (notes [:g4 :f#4 :d#4 :a4 :g#3 :e4 :g#4 :c5] 0x30 0x20)) {: note : notes} diff --git a/game/cheat.fnl b/game/cheat.fnl index 889f99f..ebd6be4 100644 --- a/game/cheat.fnl +++ b/game/cheat.fnl @@ -12,7 +12,7 @@ (vm:word :cheatguard ; char cheatdata -- [optional rdrop] :dup :pcheatnext :bget :