Kimeruze! Yamikon!/Kimeruze! Yamikon!.iso/pc/yarikon/wevent11.dxr/00006.ls

Text File | 1996-10-23 | 740 b | 33 lines

on enterFrame
  global samasu, ayumi, syu, mayu, drink, tired
  if samasu = 1 then
    go("mainz")
  end if
  if ayumi >= 10 then
    set ayumi to 10
  end if
  if syu >= 10 then
    set syu to 10
  end if
  if mayu >= 10 then
    set mayu to 10
  end if
  puppetSprite(16, 1)
  puppetSprite(17, 1)
  puppetSprite(18, 1)
  puppetSprite(19, 1)
  puppetSprite(20, 1)
  set the castNum of sprite 16 to 238 + ayumi
  set the castNum of sprite 17 to 238 + syu
  set the castNum of sprite 18 to 238 + mayu
  set the castNum of sprite 19 to 249 + drink
  set the castNum of sprite 20 to 249 + tired
end

on exitFrame
  global volume, slide
  set volume to the soundLevel
  set the visible of sprite 14 to 0
  set the visible of sprite 15 to 0
end