home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / muzea / exemusei / indice.dir / 00023_Script_JUMP < prev    next >
Text File  |  1997-04-09  |  951b  |  36 lines
  1. on mouseUp
  2.   global gLab
  3.   if the mouseCast=5 then
  4.     put chars(gLAB, 1, 7) & "B.pic" into LAB
  5.   else if the mouseCast<>41 then
  6.     put "B.pic" into LAB
  7.   else
  8.     put char the mousechar of field "Txt.Indice" into C
  9.     if C=" " or C=RETURN then
  10.       put "B.pic" into LAB
  11.     else
  12.       put line the mouseLine of field "LabSalto" & "B.pic" into LAB
  13.     end if
  14.   end if
  15.   if LAB = "B.pic" then
  16.     nothing
  17.   else
  18.     SuonaInterruttore
  19.     put chars(LAB, 3, 3) into cod
  20.     if cod="A" or cod="B" or cod="C" or cod="D" then 
  21.       put "@:Uffizi" into DIR
  22.     else if cod="E" then 
  23.       put "@:National" into DIR
  24.     else if cod="F" or cod="G" or cod="H" then 
  25.       put "@:Ermitage" into DIR
  26.     else if cod="i" then
  27.       put "@:Tate" into DIR
  28.     else if cod="L" then
  29.       put "@:Kunsthis" into DIR
  30.     else if cod="M" or cod="N" then
  31.       put "@:Alte" into DIR
  32.     end if
  33.     play LAB of movie DIR
  34.   end if
  35. end
  36.