home *** CD-ROM | disk | FTP | other *** search
/ Passport / passport.iso / pc / passport / numbers.dxr / Script_1.ls < prev    next >
Encoding:
Text File  |  1998-01-26  |  2.0 KB  |  91 lines
  1. global Language, Topic
  2.  
  3. on prepareMovie
  4.   Cursors([8, 9, 10, 12, 13, 14])
  5.   AddToHistory()
  6.   blend(0)
  7.   puppetSprite(6, 1)
  8.   puppetSprite(18, 1)
  9.   set Topic to GetTopic(the movieName)
  10.   mode("Cardinal")
  11.   pass()
  12. end
  13.  
  14. on startMovie
  15.   SetDynamics()
  16.   pass()
  17. end
  18.  
  19. on SetDynamics
  20.   global myMode
  21.   SetGlobalDynamics()
  22.   repeat with i = 51 to 90
  23.     puppetSprite(i, 1)
  24.   end repeat
  25.   mode(myMode)
  26. end
  27.  
  28. on mode M
  29.   global myMode
  30.   case M of
  31.     "Cardinal":
  32.       set the loc of sprite 6 to point(6, 83)
  33.       set the text of field "Testi" to readFile("T22C0" & Language)
  34.       blend(0)
  35.     "Ordinal":
  36.       set the loc of sprite 6 to point(6, 150)
  37.       set the text of field "Testi" to readFile("T22C1" & Language)
  38.     "Test":
  39.       blend(0)
  40.       set the loc of sprite 6 to point(6, 185)
  41.       set the text of field "Testi" to readFile("T22C0" & Language) & RETURN & readFile("T22C1" & Language)
  42.       set the text of field "Sol" to " " & RETURN & "1"
  43.       NextTest()
  44.   end case
  45.   repeat with i = 11 to 14
  46.     set the visible of sprite i to M = "Test"
  47.   end repeat
  48.   set the visible of sprite 16 to 0
  49.   set the text of field "Testo" to " "
  50.   set myMode to M
  51. end
  52.  
  53. on blend V
  54.   repeat with i = 50 to 90
  55.     set the blend of sprite i to V
  56.   end repeat
  57. end
  58.  
  59. on NextTest
  60.   set the visible of sprite 16 to 0
  61.   set n to line 2 of the text of field "Sol"
  62.   if n > 40 then
  63.     set n to n - 40
  64.   end if
  65.   set the blend of sprite (50 + n) to 0
  66.   set n to random(the number of lines in the text of field "Testi")
  67.   set the text of field "Sol" to line n of the text of field "Testi"
  68.   set the text of field "Testo" to " "
  69.   put RETURN & n after field "Sol"
  70.   if the text of field "Sol" contains "NON SI USA" then
  71.     NextTest()
  72.   else
  73.     ThisTest()
  74.   end if
  75. end
  76.  
  77. on ThisTest
  78.   set n to line 2 of the text of field "Sol"
  79.   doSound("T22C" & Format00(n) & Language)
  80. end
  81.  
  82. on SolTest
  83.   set n to line 2 of the text of field "Sol"
  84.   set the text of field "Testo" to line 1 of the text of field "Sol"
  85.   if n > 40 then
  86.     set n to n - 40
  87.   end if
  88.   set the blend of sprite (50 + n) to 100
  89.   ThisTest()
  90. end
  91.