home *** CD-ROM | disk | FTP | other *** search
/ Picasso Un Homme, Une Oeuvre, Une Légende / PICASSO.ISO / data / index.dxr / 00001.ls next >
Encoding:
Text File  |  1996-09-18  |  15.4 KB  |  108 lines
  1. on startMovie
  2.   global g_idx_cast_ecran, g_idx_sprite_ecran, g_idx_page, g_idx_tri, g_idx_class, g_curseur_cast, g_curseur_sprite, g_cartel_cast, g_cartel_sprite, g_dummy_cast, g_idx_cast_fhaut, g_idx_cast_fbas, g_idx_sprite_fhaut, g_idx_sprite_fbas, g_idx_listecart_2nd, g_idx_listecart_Cle, g_idx_sprite_chrono, g_idx_sprite_alpha, g_souligne_cast, g_souligne_sprite, g_idx_sprite_2nd, g_idx_sprite_clef, g_idx_listeacces_2nd, g_idx_listeacces_Cle, g_idx_cast_chrono, g_idx_cast_alpha, g_idx_cast_clef, g_idx_cast_2nd, g_call_param, g_idx_context, g_old_icone, g_xlib_xpal, g_xlib_jpeg, g_visite, g_tempo, g_visiteH, g_visiteV, g_cast_alternate
  3.   set g_cast_alternate to 10
  4.   set g_idx_cast_ecran to 11
  5.   set g_idx_sprite_ecran to 4
  6.   set g_curseur_cast to 7
  7.   set g_curseur_sprite to 5
  8.   set g_souligne_cast to 12
  9.   set g_souligne_sprite to 11
  10.   set g_cartel_cast to 8
  11.   set g_cartel_sprite to 6
  12.   set g_dummy_cast to 5
  13.   set g_idx_cast_fhaut to 14
  14.   set g_idx_cast_fbas to 13
  15.   set g_idx_sprite_fhaut to 7
  16.   set g_idx_sprite_fbas to 8
  17.   set g_idx_sprite_chrono to 10
  18.   set g_idx_sprite_alpha to 9
  19.   set g_idx_sprite_clef to 12
  20.   set g_idx_sprite_2nd to 13
  21.   set g_idx_cast_chrono to 21
  22.   set g_idx_cast_alpha to 19
  23.   set g_idx_cast_clef to 23
  24.   set g_idx_cast_2nd to 25
  25.   set g_old_icone to 0
  26.   set g_visite to 0
  27.   if g_call_param = -1 then
  28.     if g_idx_context <> 0 then
  29.       set g_idx_class to getAt(g_idx_context, 1)
  30.       set g_idx_tri to getAt(g_idx_context, 2)
  31.       set g_idx_page to getAt(g_idx_context, 3)
  32.     else
  33.       set g_idx_page to 1
  34.       set g_idx_tri to 1
  35.       set g_idx_class to 1
  36.     end if
  37.   else
  38.     if listp(g_call_param) = 1 then
  39.       set g_visite to 1
  40.       set lst to value(getAt(g_call_param, 1))
  41.       set g_idx_class to getAt(lst, 1)
  42.       set g_idx_tri to getAt(lst, 2)
  43.       set g_idx_page to getAt(lst, 3)
  44.       set lst to value(getAt(g_call_param, 2))
  45.       set g_visiteH to getAt(lst, 1)
  46.       set g_visiteV to getAt(lst, 2)
  47.       set g_tempo to getAt(g_call_param, 3)
  48.     else
  49.       set g_idx_page to 1
  50.       set g_idx_tri to 1
  51.       set g_idx_class to 1
  52.     end if
  53.   end if
  54.   put "index g_call_param =", g_call_param
  55.   put "index g_idx_context =", g_idx_context
  56.   set g_idx_listecart_Cle to [83, 62, 6, 28, 96, 4, 82, 42, 30, 35, 94, 25, 41, 19, 86, 59, 37, 9, 65, 56, 79, 17, 47, 40, 70, 89, 15, 34, 88, 72, 14, 32, 64, 5, 10, 95, 51, 8, 73, 39, 54, 58, 67, 55, 81, 43, 74, 44, 75, 53, 76, 11, 26, 63, 45, 68, 18, 46, 85, 50, 49, 36, 69, 3, 31, 21, 61, 78, 77, 27, 33, 57, 91, 38, 1, 71, 93, 92, 20, 29, 52, 13, 80, 48, 90, 87, 2, 66, 84, 60, 12, 16, 23, 7, 24, 22]
  57.   set g_idx_listecart_2nd to [192, 11, 187, 190, 109, 125, 246, 313, 144, 188, 24, 369, 33, 40, 99, 34, 9, 8, 374, 338, 335, 326, 146, 161, 163, 149, 150, 191, 148, 386, 362, 300, 87, 65, 64, 78, 71, 250, 168, 247, 238, 236, 235, 52, 58, 57, 59, 136, 137, 138, 139, 128, 129, 343, 240, 273, 292, 269, 280, 91, 35, 197, 164, 51, 182, 186, 160, 381, 377, 391, 201, 19, 1, 293, 288, 289, 262, 181, 183, 268, 118, 14, 263, 309, 350, 351, 344, 352, 356, 354, 355, 39, 46, 41, 42, 43, 44, 45, 47, 370, 36, 196, 17, 55, 340, 376, 393, 304, 357, 358, 375, 363, 12, 2, 212, 264, 113, 25, 214, 265, 243, 345, 199, 202, 272, 157, 135, 244, 175, 225, 245, 316, 177, 198, 174, 342, 50, 378, 159, 270, 171, 322, 321, 180, 341, 303, 203, 339, 37, 296, 232, 219, 31, 252, 317, 251, 54, 152, 205, 141, 166, 49, 143, 151, 26, 4, 127, 348, 267, 27, 260, 366, 154, 325, 359, 297, 299, 383, 294, 285, 227, 229, 226, 228, 80, 96, 77, 72, 134, 66, 105, 70, 76, 133, 32, 302, 73, 86, 385, 74, 249, 248, 38, 310, 365, 367, 323, 311, 320, 16, 390, 242, 395, 261, 3, 95, 79, 147, 349, 117, 178, 82, 62, 53, 84, 130, 239, 193, 277, 276, 324, 48, 284, 388, 392, 332, 333, 329, 330, 331, 10, 122, 119, 142, 145, 204, 194, 213, 206, 208, 209, 210, 207, 211, 179, 21, 20, 384, 371, 382, 301, 121, 155, 336, 104, 89, 110, 353, 68, 22, 396, 380, 387, 389, 222, 217, 259, 101, 241, 287, 291, 306, 100, 97, 123, 126, 394, 56, 116, 67, 308, 360, 361, 132, 368, 364, 295, 266, 253, 298, 307, 305, 170, 18, 103, 102, 88, 318, 319, 282, 111, 114, 115, 124, 279, 63, 233, 234, 215, 258, 290, 7, 30, 224, 220, 237, 13, 106, 6, 5, 286, 274, 108, 176, 379, 112, 185, 184, 195, 173, 189, 107, 221, 223, 230, 218, 231, 216, 257, 200, 328, 327, 347, 153, 165, 254, 255, 256, 337, 275, 158, 156, 167, 169, 334, 172, 278, 346, 61, 29, 75, 372, 131, 373, 15, 314, 315, 120, 28, 60, 312, 283, 271, 85, 81, 90, 83, 93, 281, 92, 23, 69, 162, 140, 94, 98]
  58.   set g_idx_listeacces_2nd to [["seq", "ODD92COU"], ["seq", "ODD95ETU"], ["seq", "OPD95JOS"], ["seq", "OPD95FIL"], ["seq", "OPD96PRE"], ["seq", "OPD96PO1"], ["seq", "OPD96PO2"], ["seq", "OPD96AU1"], ["seq", "OPD97AUT"], ["seq", "ODD99MEN"], ["seq", "OPB00AMA"], ["seq", "OPD00ETR"], ["seq", "OPB01PO2"], ["seq", "OPB01DAN"], ["themes", "TG1"], ["seq", "OPB01JEA"], ["seq", "OPB01DIV"], ["seq", "OPB01PIE"], ["seq", "OPB01COU"], ["seq", "OPB01MOR"], ["seq", "OPB02MIS"], ["seq", "OPB03NOC"], ["seq", "OPB03VI3"], ["seq", "OPR05LAP"], ["seq", "OPR05FA2"], ["seq", "OPR05ACR"], ["seq", "OSX05FOU"], ["seq", "OPR05TRO"], ["seq", "OSA06TET"], ["seq", "OPR06PO1"], ["seq", "OSA06FEM"], ["seq", "CCHAR"], ["seq", "OPR06AUT"], ["seq", "OPR06AU1"], ["seq", "OPR06COI"], ["seq", "OPR06DEU"], ["seq", "OPR06FE1"], ["seq", "OSA07HOM"], ["seq", "ODA07E02"], ["seq", "OPA07AUT"], ["seq", "OPA07BU1"], ["seq", "ODA07C02"], ["seq", "ODA07C05"], ["seq", "ODA07C51"], ["seq", "ODA07C55"], ["seq", "ODA07ET1"], ["seq", "OPA07FE2"], ["seq", "OSA08MA1"], ["seq", "OSA08FIG"], ["seq", "OPA08FE2"], ["seq", "CDCOM"], ["seq", "CDCAR"], ["seq", "OPA08MA1"], ["seq", "CDFER"], ["seq", "OPA08DRY"], ["seq", "OPA08PA1"], ["seq", "ODA08EO2"], ["seq", "ODA08ETU"], ["seq", "ODA08E04"], ["seq", "OPA09BRI"], ["seq", "ODA09ET1"], ["seq", "OGA10MAD"], ["seq", "OPA10P02"], ["seq", "CDBOU"], ["seq", "OPS12BOU"], ["seq", "OSS12GU3"], ["seq", "OPS12PAY"], ["seq", "OPS12NA2"], ["seq", "OPS12VI1"], ["seq", "OPS12GU1"], ["seq", "ODS12BO1"], ["seq", "OSS12GU1"], ["seq", "OPS13HOM"], ["seq", "OSX12HOM"], ["seq", "ODS13TE2"], ["seq", "OXS13GU2"], ["seq", "OPS13GUI"], ["seq", "OXS13BOU"], ["seq", "OPS13JOU"], ["seq", "OPS14GUI"], ["seq", "CEVE2"], ["seq", "OPS14JO1"], ["seq", "OXS14VE2"], ["seq", "OSS14MAN"], ["seq", "OSS14VE4"], ["themes", "TC10"], ["seq", "OSS14BOU"], ["seq", "OPS14PIP"], ["seq", "OSS14NAT"], ["seq", "CEVE1"], ["seq", "OGS14CL7"], ["seq", "OXS14VE1"], ["seq", "OSS14VE1"], ["seq", "ODS15VIV"], ["seq", "OPS16JOU"], ["seq", "ODC16APO"], ["seq", "OPC17RID"], ["seq", "OPC17VUE"], ["themes", "TA3"], ["seq", "CDFRA"], ["seq", "CFOLG"], ["seq", "CFPIE"], ["seq", "OPC18PIE"], ["seq", "OPC19NAT"], ["seq", "OPC19GUI"], ["seq", "ODC19PO2"], ["seq", "ODC19SE1"], ["seq", "OXC19PRO"], ["seq", "ODC19ARE"], ["seq", "OPC19NA1"], ["seq", "ODC19PO1"], ["seq", "ODC19SAL"], ["seq", "OPC20ETU"], ["seq", "ODC20PO1"], ["seq", "ODC20POR"], ["seq", "OPC20PAY"], ["seq", "OPC21LEC"], ["seq", "OPC21DAN"], ["seq", "CFME1"], ["seq", "OPC21TRO"], ["seq", "OPC21MU1"], ["seq", "OPC22MER"], ["seq", "OPC23PA1"], ["seq", "OPC23POR"], ["seq", "OPC23AR2"], ["seq", "CFPAU"], ["seq", "OPC23FLU"], ["seq", "ODF24FE1"], ["seq", "ODF24FE2"], ["seq", "OPF24MAN"], ["seq", "OPF25TET"], ["seq", "OPF26PEI"], ["seq", "OXF26GU1"], ["seq", "OXF26GU2"], ["seq", "OPF27FE1"], ["seq", "ODF27CA1"], ["seq", "ODF27CA4"], ["seq", "ODF27CA5"], ["seq", "ODF27CA6"], ["themes", "TF3"], ["seq", "OPF28FIG"], ["seq", "OSF28MET"], ["seq", "OPF28FI1"], ["seq", "OPF27LAT"], ["seq", "OXF28MIN"], ["seq", "OPF28BA1"], ["seq", "OPF28JOU"], ["seq", "OPF28BA3"], ["seq", "OPF28BA4"], ["seq", "OPF28BA2"], ["seq", "OSF28FI1"], ["seq", "OSF28FI2"], ["seq", "OSF28TET"], ["seq", "OPF29GRA"], ["seq", "OPF29NAG"], ["seq", "OSF29TET"], ["seq", "OSF30FE5"], ["seq", "OSF30TET"], ["seq", "OSF30FE3"], ["seq", "OSF30COU"], ["themes", "TC12"], ["seq", "OSF30VIS"], ["seq", "OXF30BAI"], ["seq", "OXF30COM"], ["seq", "OSF31TO1"], ["seq", "OSF31FIG"], ["seq", "OSF31TO3"], ["seq", "OSF31BU1"], ["seq", "OSF31TO4"], ["seq", "CHPIC"], ["seq", "OPF31FE1"], ["seq", "ODF31TET"], ["seq", "OPF31SCU"], ["seq", "OPF31FE2"], ["seq", "OPF32FE1"], ["seq", "OPF32REV"], ["seq", "OPF32FE2"], ["seq", "OPF32LEC"], ["seq", "OPF32MIR"], ["seq", "OPF32FE3"], ["seq", "ODF32CR1"], ["seq", "OXF32COM"], ["seq", "ODF32CR2"], ["seq", "OPF32SAU"], ["seq", "OGF32SAU"], ["themes", "TD5"], ["seq", "ODF33AN2"], ["seq", "ODF33ATE"], ["seq", "OGF33S20"], ["seq", "ODF33AN1"], ["seq", "OGF33BAI"], ["seq", "ODF33AC1"], ["seq", "OGF33MA8"], ["seq", "OGF33MIN"], ["seq", "OPF33SCU"], ["seq", "ODF33DEU"], ["seq", "ODF33COM"], ["seq", "OSF34FE1"], ["seq", "OSF34FE2"], ["seq", "CHTAU"], ["seq", "OPF34COU"], ["seq", "ODF34FE1"], ["seq", "OPF34FE3"], ["seq", "OGF34MI1"], ["themes", "TH9"], ["seq", "OGF35MI1"], ["seq", "CIMI5"], ["seq", "OGF35MI2"], ["seq", "OGF35MI3"], ["seq", "OGF35MI6"], ["seq", "OGF35MI7"], ["themes", "TB4"], ["seq", "OPF36MI2"], ["seq", "OPF36FAU"], ["seq", "ODF36POR"], ["seq", "OXF37TAB"], ["themes", "TG11"], ["seq", "OGF37ME1"], ["themes", "TF5"], ["seq", "OPF37PO3"], ["seq", "OGF37MEN"], ["seq", "OGF37NU2"], ["seq", "OGF37SO1"], ["seq", "OPF37PO5"], ["seq", "OPF37FE1"], ["seq", "OPF37ET2"], ["seq", "OPF37ET1"], ["seq", "OPF37ET4"], ["seq", "OPF37ET3"], ["seq", "OGF37S04"], ["seq", "OGF37SO2"], ["seq", "OGF37FE2"], ["seq", "OPF37PO1"], ["seq", "OPF37PO2"], ["seq", "OGF34BU5"], ["themes", "TF5"], ["seq", "OPF38POR"], ["seq", "OGF38BU3"], ["seq", "OPF39MAR"], ["seq", "OPF39CH1"], ["seq", "ODF40OUV"], ["seq", "OPF41JEU"], ["seq", "OPF41FE1"], ["seq", "OPF41FE2"], ["seq", "OPF42FE1"], ["seq", "OSF43LA1"], ["seq", "OSF43BUS"], ["seq", "OSF43LO1"], ["seq", "ODF43ETU"], ["seq", "OPF43BUF"], ["seq", "OPF43FEN"], ["seq", "ODF44FEM"], ["seq", "OPF45PIC"], ["seq", "OSF46TE2"], ["seq", "OSF46TE3"], ["seq", "OSF46TE4"], ["themes", "TF3"], ["seq", "ODF46POR"], ["seq", "ODF46NUD"], ["seq", "ODF46FRA"], ["seq", "OPF46ETU"], ["seq", "OPF46CRA"], ["seq", "OGF47DAV"], ["seq", "ODF47ET3"], ["seq", "OSF48FE1"], ["seq", "OSF48PET"], ["seq", "OCF48FO1"], ["seq", "OPF48CU1"], ["seq", "OPF48CLA"], ["seq", "OSF49FEM"], ["seq", "OCF49VA3"], ["seq", "OSF50FEM"], ["seq", "OSF50CH1"], ["seq", "OCF50PRO"], ["seq", "OCF50TE1"], ["seq", "OCF50MA2"], ["seq", "OCF50MA3"], ["themes", "TE1"], ["seq", "OPF50POR"], ["seq", "OPF51CLA"], ["seq", "OSF51VER"], ["seq", "OCF51PLA"], ["themes", "TE5"], ["seq", "OPF51MAS"], ["seq", "OSF51GU1"], ["seq", "OSF52PRI"], ["seq", "OPF52PAL"], ["seq", "OPF52CR1"], ["seq", "OPF52CR2"], ["seq", "OGF52P10"], ["seq", "OPF52PA1"], ["seq", "OCF52CH1"], ["seq", "OSF51CR1"], ["seq", "OSF53GR1"], ["seq", "OSF53PE1"], ["seq", "OSF53FEM"], ["seq", "OCF53GR2"], ["seq", "OCF53PI2"], ["themes", "TE3"], ["themes", "TE3"], ["themes", "TE4"], ["seq", "OCF53HIB"], ["seq", "CMFEM"], ["seq", "OPF53ENF"], ["seq", "OCF54PI2"], ["seq", "OPF54PAL"], ["seq", "OCF54PI1"], ["seq", "OCF54PE1"], ["seq", "ODF54ET2"], ["seq", "CNJAC"], ["seq", "CNCOS"], ["seq", "OCF55VA2"], ["seq", "OCF55AS2"], ["seq", "OCF55TO1"], ["seq", "OCF55TO2"], ["seq", "OPF55FE1"], ["seq", "OGF55FE6"], ["seq", "CNPL1"], ["seq", "CNPL2"], ["seq", "CNJA1"], ["seq", "OPF55FE3"], ["seq", "OPF56FE3"], ["seq", "OPF56JAC"], ["themes", "TE4"], ["themes", "TE5"], ["seq", "OPF57BAI"], ["themes", "TD8"], ["themes", "TD8"], ["seq", "OPF57VA1"], ["seq", "OPF57VA5"], ["seq", "OPF57VA2"], ["seq", "OPF57VA3"], ["seq", "OPF57VA4"], ["seq", "OSF57TE2"], ["seq", "OPF58BAI"], ["seq", "OPF58NAT"], ["seq", "OSF58TE1"], ["seq", "OGF59BA1"], ["seq", "COPIN"], ["seq", "OPF59BOB"], ["seq", "OPF60FEM"], ["seq", "OSF61FEM"], ["seq", "OSF61CH2"], ["seq", "ODF61DEU"], ["seq", "OSF61FE2"], ["themes", "TE1"], ["seq", "OSF61TER"], ["seq", "OSF61FOO"], ["seq", "OCF61LAM"], ["seq", "OGF61VA3"], ["seq", "OGF61VA1"], ["seq", "OSF62DE1"], ["seq", "BRI62NAT"], ["seq", "OSF62DE3"], ["seq", "OSF62DE2"], ["seq", "OSF62DE4"], ["seq", "OPF62LE3"], ["seq", "OPF62LE1"], ["seq", "OPF63GRA"], ["seq", "CPPE1"], ["seq", "CPPE2"], ["seq", "CPBET"], ["seq", "OGF63ETR"], ["seq", "ODF63PEI"], ["seq", "CPJAC"], ["seq", "OPF64GRA"], ["seq", "CPJA1"], ["seq", "CPPE3"], ["seq", "OPF65LAU"], ["seq", "OPF65DEU"], ["seq", "CPMOU"], ["seq", "CPTET"], ["seq", "OGF68THE"], ["seq", "OGF68AU4"], ["seq", "OGF68LEN"], ["seq", "OGF68PEN"], ["seq", "OPF68COU"], ["seq", "CPFEM"], ["seq", "OGF68REV"], ["seq", "OPF68NUC"], ["seq", "OPF69COU"], ["seq", "OPF69MO2"], ["seq", "CQGRA"], ["seq", "OPF69MO1"], ["seq", "CQHOM"], ["seq", "OPF69BA2"], ["seq", "CQNUC"], ["seq", "OPF70MA1"], ["seq", "OPF70NUC"], ["seq", "OPF70JEU"], ["seq", "OPF71COU"], ["seq", "OPF71MAT"], ["seq", "CQENF"], ["themes", "TG5"], ["seq", "OPF72JEU"], ["seq", "OPF72NUC"]]
  59.   set g_idx_listeacces_Cle to [["analyse", "A00"], ["analyse", "A20"], ["analyse", "B10"], ["analyse", "B00"], ["analyse", "B20"], ["analyse", "B30"], ["analyse", "B31"], ["analyse", "B41"], ["analyse", "B40"], ["analyse", "B50"], ["analyse", "B60"], ["analyse", "C11"], ["analyse", "C10"], ["analyse", "C30"], ["analyse", "C20"], ["analyse", "C00"], ["analyse", "D40"], ["analyse", "D20"], ["analyse", "D30"], ["analyse", "D10"], ["analyse", "E00"], ["analyse", "E30"], ["analyse", "E10"], ["analyse", "E20"], ["analyse", "E01"], ["analyse", "F01"], ["analyse", "F31"], ["analyse", "F20"], ["analyse", "F00"], ["analyse", "F10"], ["analyse", "F40"], ["analyse", "F30"], ["analyse", "F41"], ["analyse", "G00"], ["analyse", "G40"], ["analyse", "G11"], ["analyse", "G20"], ["analyse", "G10"], ["analyse", "G30"], ["analyse", "H40"], ["analyse", "H21"], ["analyse", "H20"], ["analyse", "H00"], ["analyse", "H01"], ["analyse", "H10"], ["analyse", "H31"], ["analyse", "H30"], ["analyse", "I20"], ["analyse", "I10"], ["analyse", "I30"], ["analyse", "I00"], ["analyse", "J40"], ["analyse", "J10"], ["analyse", "J50"], ["analyse", "J30"], ["analyse", "J00"], ["analyse", "J20"], ["analyse", "K01"], ["analyse", "K00"], ["analyse", "K20"], ["analyse", "K10"], ["analyse", "K40"], ["analyse", "K50"], ["analyse", "K30"], ["analyse", "K60"], ["analyse", "L30"], ["analyse", "L20"], ["analyse", "L00"], ["analyse", "L11"], ["analyse", "L10"], ["analyse", "M10"], ["analyse", "M30"], ["analyse", "M00"], ["analyse", "M40"], ["analyse", "M20"], ["analyse", "M51"], ["analyse", "M50"], ["analyse", "M61"], ["analyse", "M60"], ["analyse", "N00"], ["analyse", "N20"], ["analyse", "N30"], ["analyse", "N10"], ["analyse", "O30"], ["analyse", "O10"], ["analyse", "O40"], ["analyse", "O00"], ["analyse", "O20"], ["analyse", "O41"], ["analyse", "P00"], ["analyse", "P10"], ["analyse", "P20"], ["analyse", "Q01"], ["analyse", "Q20"], ["analyse", "Q10"], ["analyse", "Q00"]]
  60. end
  61.  
  62. on stopMovie
  63. end
  64.  
  65. on convertpath name
  66.   global g_path_convert
  67.   set g_path_convert to EMPTY
  68.   repeat with i = 1 to length(name)
  69.     set c to chars(name, i, i)
  70.     if (c = ":") and (chars(name, i + 1, i + 1) <> "\") then
  71.       set g_path_convert to g_path_convert & "\"
  72.       next repeat
  73.     end if
  74.     set g_path_convert to g_path_convert & c
  75.   end repeat
  76. end
  77.  
  78. on unpuppet
  79.   repeat with i = 1 to 48
  80.     puppetSprite(i, 0)
  81.   end repeat
  82. end
  83.  
  84. on OwnPlay destination
  85.   global gOwnPlayList
  86.   if voidp(gOwnPlayList) then
  87.     set gOwnPlayList to []
  88.   end if
  89.   repeat with i = 1 to count(gOwnPlayList)
  90.     if getAt(getAt(gOwnPlayList, i), 1) = (the pathName & the movie) then
  91.       deleteAt(gOwnPlayList, i)
  92.     end if
  93.   end repeat
  94.   add(gOwnPlayList, [the pathName & the movie, the frame])
  95.   go(1, destination)
  96. end
  97.  
  98. on OwnPlayDone
  99.   global gOwnPlayList
  100.   set length to count(gOwnPlayList)
  101.   if length = 0 then
  102.     beep()
  103.     exit
  104.   end if
  105.   go(getAt(getAt(gOwnPlayList, length), 2), getAt(getAt(gOwnPlayList, length), 1))
  106.   deleteAt(gOwnPlayList, length)
  107. end
  108.