home *** CD-ROM | disk | FTP | other *** search
/ Undercover - Rock on Multimedia 2 / UNDERCOVER2.BIN / main.dir / 00491_Script_491 < prev    next >
Text File  |  1996-01-27  |  2KB  |  79 lines
  1. on exitFrame
  2.   global gStext, gLH, gTop
  3.   
  4.   if (rollover(2) or rollover(10)) and not rollover(3) then
  5.     set v = the mouseV
  6.     set delta = v - gTop
  7.     set the locV of sprite 3 = gTop + delta - delta mod gLH
  8.   end if
  9.   
  10.   if rollover(11) or rollover(12) or rollover(13) or rollover(14) then 
  11.     set locked = false
  12.     global gLock
  13.     repeat with n = 14 down to 11
  14.       if rollover (n) and gLock = n then
  15.         set locked = true
  16.       end if
  17.     end repeat
  18.     
  19.     if not locked then
  20.       kill gStext
  21.       set gLock = 10
  22.       global gRollover, gTimeOut, gLatch
  23.       set gLatch = false
  24.       startTimer
  25.       set gRollover = 10
  26.       repeat with n = 14 down to 11
  27.         if rollover(n) then 
  28.           set gRollover = n
  29.           exit repeat
  30.         end if
  31.       end repeat
  32.       go frame marker(0) + (n - 10)*13
  33.       stopMusic
  34.       if n = 14 then 
  35.         puppetsound "region"
  36.       else if n = 13 then
  37.         puppetsound "era"
  38.       else if n = 12 then
  39.         puppetsound "genre"
  40.       else if n = 11 then
  41.         puppetsound "style"
  42.       end if
  43.     else
  44.       go the frame
  45.     end if
  46.   else
  47.     if the mouseH > 101 then
  48.       set gLock = 10
  49.     end if
  50.     go the frame
  51.   end if
  52.   
  53. end
  54.  
  55. on mousedown
  56.   global gStext, gRecNum
  57.   if rollover(2) or rollover (10) then
  58.     getLine gStext
  59.     put the result into lineNo
  60.     set temp = line lineNo of field "recnum_list"
  61.     set i = 1
  62.     set gRecNum = 0
  63.     repeat while i <= length (temp)
  64.       set gRecNum = gRecNum * 10 + charToNum(char i of temp) - 48
  65.       set i = i + 1
  66.     end repeat
  67.     kill gStext
  68.     go "info"
  69.   else if rollover(18) then
  70.     puppetSprite 10, false
  71.     global gNextMovieFrame
  72.     set gNextMovieFrame = "central"
  73.     go "review_exit"
  74.   else
  75.     go the frame
  76.   end if
  77. end
  78.  
  79.