home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / shared.cst / 00952_Script_•Mus < prev    next >
Text File  |  1987-04-12  |  610b  |  24 lines
  1. on mouseUp
  2.   put "ò" into dest
  3.   put the frameLabel into LabCur
  4.   put chars(LabCur, 3, 3) into cod
  5.   if cod="A" then 
  6.     put "Uffizi" into dest
  7.   else if cod="E" then 
  8.     put "National" into dest
  9.   else if cod="F" then 
  10.     put "Ermitage" into dest
  11.   else if cod="I" then
  12.     put "tate" into dest
  13.   else if cod="L" then
  14.     put "Kunsthis" into dest
  15.   else if cod="M" then
  16.     put "Alte" into dest
  17.   end if
  18.   if dest<>"ò" then 
  19.     cambiocast
  20.     put chars(LabCur, 1, (length(LabCur)-5)) into LabCur
  21.     put LabCur & "B.pic" into LabCur
  22.     play LabCur of movie "@:" & dest
  23.   end if
  24. end