home *** CD-ROM | disk | FTP | other *** search
- on mouseEnter me
- setCursor("cursorUse")
- sprite(the currentSpriteNum - 10).visible = 1
- end
-
- on mouseLeave me
- setCursor("cursorNormal")
- sprite(the currentSpriteNum - 10).visible = 0
- end
-
- on mouseUp me
- nItem = the currentSpriteNum - 14
- case nItem of
- 1:
- go("Presentazione")
- 2:
- mci("stop cdaudio")
- sprite(2).visible = 0
- sprite(21).visible = 0
- go("Ini", "Start")
- 3:
- mci("stop cdaudio")
- mci("play cdaudio")
- sprite(2).visible = 1
- sprite(21).visible = 1
- 4:
- mci("stop cdaudio")
- sprite(2).visible = 0
- sprite(21).visible = 0
- nomeVideo = the moviePath & "Video\Video1.avi"
- open(nomeVideo, "explorer.exe")
- 5:
- mci("stop cdaudio")
- sprite(2).visible = 0
- sprite(21).visible = 0
- nomeVideo = the moviePath & "Video\Video2.avi"
- open(nomeVideo, "explorer.exe")
- 6:
- go("Credits")
- 7:
- mci("stop cdaudio")
- sprite(2).visible = 0
- sprite(21).visible = 0
- end case
- setCursor("cursorNormal")
- end
-