Exotica

new topic     » goto parent     » topic index » view thread      » older message » newer message

This is a multi-part message in MIME format.

------=_NextPart_000_0007_01BFD47F.A0F1CEC0
	charset="iso-8859-1"

Hi .
What is wrong with my Exotica program :

--BEGIN CODE

include emain.ew

object funcval
funcval=3Dc_func(EXOTICA_INIT,{hwnd,hInst}) =20
end if

object val
val =3D c_func(DMUSIC_INIT,{NULL})

object val2
val2 =3D c_func(DMUSIC_REVERB_AVAIL,{NULL})=20
return val2

if val2 =3D 0 then
  object val3,C_INT
  C_INT =3D 0
  val3 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})=20
elsif val2 =3D 1 then
  object val4,C_INT
  C_INT =3D 1
  val4 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})
end if

object mid_file,Filename
Filename =3D boss.mid=20
mid_file =3D c_proc(MIDI_OPEN,{Filename})=20

object play
play =3D c_proc(MIDI_PLAY,{NULL})

--END CODE

Thanx

Ferdinand

------=_NextPart_000_0007_01BFD47F.A0F1CEC0
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>Hi .</DIV>
<DIV>What is wrong with my Exotica program :</DIV>
<DIV>&nbsp;</DIV>
<DIV>--BEGIN CODE</DIV>
<DIV>&nbsp;</DIV>
<DIV>include emain.ew</DIV>
<DIV>&nbsp;</DIV>
<DIV>object funcval<BR>funcval=3Dc_func(EXOTICA_INIT,{hwnd,hInst})&nbsp; =
<BR>end=20
if</DIV>
<DIV>&nbsp;</DIV>
<DIV>object val<BR>val =3D c_func(DMUSIC_INIT,{NULL})</DIV>
<DIV>&nbsp;</DIV>
<DIV>object val2<BR>val2 =3D c_func(DMUSIC_REVERB_AVAIL,{NULL}) =
<BR>return=20
val2</DIV>
<DIV>&nbsp;</DIV>
<DIV>if val2 =3D 0 then<BR>&nbsp; object val3,C_INT<BR>&nbsp; C_INT =3D =
0<BR>&nbsp;=20
val3 =3D c_proc(DMUSIC_TOGGLE_REVERB,{C_INT}) <BR>elsif val2 =3D 1 =
then<BR>&nbsp;=20
object val4,C_INT<BR>&nbsp; C_INT =3D 1<BR>&nbsp; val4 =3D=20
c_proc(DMUSIC_TOGGLE_REVERB,{C_INT})<BR>end if</DIV>
<DIV>&nbsp;</DIV>
<DIV>object mid_file,Filename<BR>Filename =3D boss.mid <BR>mid_file =3D=20
c_proc(MIDI_OPEN,{Filename}) </DIV>
<DIV>&nbsp;</DIV>
<DIV>object play<BR>play =3D c_proc(MIDI_PLAY,{NULL})</DIV>
<DIV>&nbsp;</DIV>
<DIV>--END CODE</DIV>
<DIV>&nbsp;</DIV>
<DIV>Thanx</DIV>
<DIV>&nbsp;</DIV>

------=_NextPart_000_0007_01BFD47F.A0F1CEC0--

new topic     » goto parent     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu