home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni E Inventori 1: Lavoro E Vita Quotidiana / invenzioni-inventori-1.iso / mac / Invenzio / Citta / shared.cst / 03044_Script_3044 < prev    next >
Text File  |  1997-10-14  |  2KB  |  55 lines
  1. --on video  PARAMETRI VIDEO
  2. ---QCAST = NUMERO DEL CAST DEL VIDEO
  3. ---QSPRITE=NUMERO DELLO SPRITE DEL VIDEO
  4. ---QSPRITEL=NUMERO DELLO SPRITE DELLA LINEA
  5. ---QSPRITEB=NUMERO DELLO SPRITE DELLA BARRA
  6.  
  7. on video qcast,qsprite,qspritel,qspriteb
  8.   if the castnum of sprite qsprite <> qcast then exit
  9.   global vidstat,tuttos,unita
  10.   --------------BLOCCA IL CUBETTO QUANDO SI ENTRA NEL FRAME
  11.   global qvolte_video
  12.   if voidp(qvolte_video) then set qvolte_video to false
  13.   if not qvolte_video then
  14.     set the movierate of sprite 47 to 0
  15.     set qvolte_video to true
  16.     updatestage
  17.   end if
  18.   ----------------------PORTA IL CURSORINO ALLA FINE
  19.   if the movieTime of sprite qsprite = the duration of cast qcast  then
  20.     set the loch of sprite qspritel to (the right of sprite qspriteb - the width of sprite qspritel)
  21.   end if
  22.   --------------------
  23.   
  24.   if not tuttos then
  25.     if vidstat <> "manuale" then
  26.       if the movieTime of sprite qsprite = the duration of cast qcast  then set vidstat to "stop"
  27.       if vidstat = "play" or vidstat = "avveloce" or vidstat = "inveloce" then
  28.         set unita to the duration of cast qcast  / 320.0
  29.         if integer(the movieTime of sprite qsprite / unita) + the width of sprite qspritel < 320  then
  30.           set the loch of sprite qspritel to the loch of sprite qspriteb + integer(the movieTime of sprite qsprite / unita)
  31.           updatestage
  32.         end if
  33.       end if
  34.     end if
  35.     if vidstat = "inizio" then  set the loch of sprite qspritel to the loch of sprite qspriteb
  36.     
  37.     if vidstat = "play" or vidstat = "avveloce" or vidstat = "inveloce" then
  38.       if the movietime of sprite qsprite = the duration of cast qcast  then
  39.         set the loch of sprite qspritel to (the right of sprite qspriteb - the width of sprite qspritel)
  40.       end if
  41.     end if
  42.     
  43.   end if
  44.   ----------ACCENDE IL VIDEO IN INGRESSO DEL FRAME
  45.   global gia_fatto
  46.   if the movieTime of sprite qsprite < 10 and the movieRate of sprite qsprite = 0 and gia_fatto = false then
  47.     set the video of member qcast to 0
  48.     set the video of member qcast to 1
  49.     set gia_fatto to true
  50.   end if
  51.   --------------------------
  52.   updatestage
  53. end
  54.  
  55.