º»¹®/³»¿ë
-Ŭ¸³ play, wav ÆÄÀϸí sound
to handle buttonClick
mmopen clip `sound`
mmplay clip `sound`
end buttonClick
--Ŭ¸³ stop, wav
to handle buttonClick
mmstop clip `sound`
mmclose clip `sound`
end buttonClick
--Ŭ¸³ ¼Ò¸® ÀÛ°Ô << - text field volume
to handle buttonClick
send buttonStillDown
end buttonClick
to handle buttonStillDown
send set_volume
end buttonStillDown
to handle set_volume
system myVolume
if myVolume = null
myVolume = 100
end if
myVolume = myVolume -1
if myVolume < 0
myVolume = 0
end if
text of field `volume` = myVolume
mmYield
mmVolume of clip `sound` = myVolume
end set_volume
--Ŭ¸³ ¼Ò¸® ÀÛ°Ô >>
to handle buttonClick
send buttonStillDown
end buttonClick
to handle buttonStillDown
send set_volume
end bu¡¦(»ý·«)