' ************************************************************************** ' declarations only file for * ' ************************************************************************** ' 07.08.2001: filename: thunder.bi %tht = 25 ' was = 32 'thunderwood %woody = 32 ' changed from 52 %tst = 48 ' was %tht+22 ' %tst+7 = Lightning_Test / Strobo ' %tst+8 = Storm_Test GLOBAL ThunderWood AS ThunderwoodType ' new 08/2001 GLOBAL Meta_AME_Thunder AS SINGLE 'for multi-automat stoch DECLARE SUB thunderOff 'puts off all elements, stoptask callback for pieces DECLARE SUB ThunderLog(a$) 'Debug kristof 'DECLARE SUB StartWoody () DECLARE SUB ThunderMessageHandler () '(msg AS WORD) DECLARE SUB TW_PowerUp () #IF %DEF(%klungsim) GLOBAL pWindHdr AS WaveHdr PTR GLOBAL pThunderHdr AS WaveHdr PTR GLOBAL pRainHdr AS WaveHdr PTR GLOBAL pChimesHdr AS WaveHdr PTR GLOBAL pRatChetHdr AS WaveHdr PTR GLOBAL pPeckerhdr AS WaveHdr PTR DECLARE SUB ThSetDefaultTekst () DECLARE SUB StartWoody () DECLARE FUNCTION InitThunderWaves () AS LONG DECLARE SUB ThunderSimSkin () DECLARE SUB MidiRatchetOff () DECLARE SUB WindSimu () DECLARE SUB PeckerLow_sim () DECLARE SUB PeckerTenor_sim () DECLARE SUB PeckerAlto_sim () DECLARE SUB PeckerHigh_sim () DECLARE SUB TW_Ratch_sim (BYVAL velo AS DWORD) ' 1 - any , lbound trimmed to 25 DECLARE SUB TW_Thunder_Task_sim () DECLARE SUB TW_Chimes_Task_sim () DECLARE SUB TW_Rain_Task_sim () DECLARE SUB TW_Storm_Test () ' 01.08.2002 DECLARE SUB TW_Bird_Test () ' 08.08.2002 DECLARE SUB WindSimu () DECLARE CALLBACK FUNCTION SBC3 #ENDIF