본문/내용
-클립 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 buttonStillDown
to handle set_volume
system myVolume
if myVolume = null
myVolume = 100
end if
myVolume = myVolume +1
if myVolume > 100
myVolume = 100
end if
text of field `volume` = myVolume