' ************************************************************** ' * < Web Strikes Back > * ' * for * ' * Slag_Werk * ' * Automats involved: * ' * < Klung > * ' * < ThunderWood > * ' * < Springers > * ' * < Troms > * ' ************************************************************** 'this becomes the general module that people can download @ home 'it should contain all other percussion modules 'the simulatorflag has to be set %klungSim = 1 #INCLUDE "gmt_klun.inc" #INCLUDE "thunder.inc" 'GLOBAL KlungSimulatorMode AS DWORD 'midi channels for simulation: 'klungs: 4 'peckers: 5 'wind: 6 'ratchet: 7 'rain: 5 as both peckers and rain use woodblocks as patch 'thunder: 8 SUB TrompInit LOCAL CockpitLayo AS CockpitLabels LOCAL i AS DWORD LOCAL m AS ASCIIZ * 40 LOCAL zText AS ASCIIZ * 25 App.id = %ID_PP '??? ID_KLUNG ??? KlungSimulatorMode = %klungSimMid'Wav KlungInit InitThunder END SUB