Mac Ga Ichiban! 1996 October/macgaichiban199610.bin/MOVIES/PTM.Dxr/00077.ls

Text File | 1996-08-12 | 588 b | 30 lines

global gslevel

on changevol
  puppetSprite(23, 1)
  set the type of sprite 23 to 1
  set the ink of sprite 23 to 0
  set the foreColor of sprite 23 to 255
  set the backColor of sprite 23 to 0
  set the castNum of sprite 23 to the number of cast ("VOL" & gslevel)
  updateStage()
end

on chvol
  if gslevel = 7 then
    set gslevel to 0
  else
    set gslevel to gslevel + 1
  end if
  set the soundLevel to gslevel
  changevol()
end

on startMovie
  if the soundLevel = 0 then
    set the soundLevel to 1
  end if
  set gslevel to the soundLevel
  set the visible of sprite 23 to 0
end