Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Fujitsu-/gt/gtshock/people.dcr/00010.ls

Text File | 2017-09-21 | 696 b | 40 lines

on startMovie
  put the long date into field "today"
end

on push
  set cno to the castNum of sprite clickOn()
  repeat while the stillDown
    if rollOver(clickOn()) then
      set the castNum of sprite clickOn() to the number of cast (cno + 1)
      updateStage()
      next repeat
    end if
    set the castNum of sprite clickOn() to the number of cast cno
    updateStage()
  end repeat
  pushbeep()
  set the castNum of sprite clickOn() to the number of cast cno
  updateStage()
  if rollOver(clickOn()) then
  else
    nothing()
  end if
end

on se1
  puppetSound("wind")
end

on se2
  puppetSound("jungle1")
end

on se3
  puppetSound("lion")
end

on pushbeep
  puppetSound("pushsnd")
end