Subject: | |
From: | |
Reply To: | |
Date: | Sun, 6 Feb 2005 13:29:27 -0700 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Thanks Chris. I'll let you know if I can try this what happens.
Vicki
----- Original Message -----
From: "Chris Gilland" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Saturday, February 05, 2005 11:29 PM
Subject: [ECHURCH-USA] Code
> I can't figure out how to compile this into a dll file which is
escentially
> what you'd need to get the sound mail filters to work, however, here is
what
> you'd do. Change the words sound1 sound2 and sound3 to the exact path on
> your hard disk where the sounds are located. Hopefully, you can't figure
> out how to create a dll. You can't just save it it notepad, as not only
> does it have to be compiled, but it would have to be in a registered
class.
>
> Code follows:
>
>
>
>
>
> tiptname[]
>
> module =="(soundbit))"
> variables
>
> sound1
> sound2
> sound3 ;
>
> **procedure**[a]
>
> declaration:
>
> sound1="sound1"
> ! Change the sound1 inside the quotes to match that of the path to the
> first file
>
> sound2="sound2"
>
> ! Do the same
>
> sound3="sound3"
>
> ! And again, do the same
>
> SubArray ;()
>
>
> const -- probe module|1
>
> aline folder treeset
> FOR sound1=TRUE"
> FOR sound2="TRUE"
> FOR sound3="TRUE" ;
>
>
> sound1 :- integer/string
> sound2 :- integer/string
> sound3 :- integer/string
>
> GOSUB
> IF
> sound1=("1") & sound2=("1") & sound3=("1")
> THEN
> --.. onsound1Play
> ELSE
> NUL
>
> --*- END Gosub
>
> SetAVars() 0
> RETURN Const(s) () 1
>
> ONREG Compile --d
> @@DLL version 4.862
> @@PF=all 32, 24, 16, 8b
> @@COLORS=NUL
> @@PROCTYPE=NORMAL PROCESS
> RETURN-HOME -(*)
>
> ; ;
>
> *
>
> ENDING+COMPILED CORE/KURNEL
>
>
>
>
>
>
>
>
>
>
> Hope that helps.
>
>
> Chris.
>
|
|
|