home *** CD-ROM | disk | FTP | other *** search
/ Passport / passport.iso / pc / passport / numbers.dxr / Script_3.ls < prev    next >
Encoding:
Text File  |  1998-01-26  |  928 b   |  38 lines
  1. global myMode, Temp
  2.  
  3. on mouseEnter
  4.   if the visible of sprite 16 or (the windowList <> []) then
  5.     exit
  6.   end if
  7.   set R to the rollOver
  8.   set the blend of sprite R to 100
  9.   set Temp to R
  10.   cursor([50, 51])
  11. end
  12.  
  13. on mouseLeave
  14.   if not (the visible of sprite 16) then
  15.     set the blend of sprite Temp to 0
  16.   end if
  17.   cursor(-1)
  18. end
  19.  
  20. on mouseDown
  21.   global Language
  22.   set R to the rollOver
  23.   if myMode <> "Test" then
  24.     set the text of field "Testo" to line R - 50 of the text of field "Testi"
  25.     doSound("T22C" & Format00(R - 50 + (40 * (myMode <> "Cardinal"))) & Language)
  26.   else
  27.     set n to line 2 of the text of field "Sol"
  28.     if ((n <= 40) and ((R - 50) = n)) or ((n > 40) and ((R - 50) = (n - 40))) then
  29.       set the visible of sprite 16 to 1
  30.       doSound("0Giusto")
  31.       set the text of field "Testo" to line integer(n) of the text of field "Testi"
  32.     else
  33.       doSound("0Errore")
  34.     end if
  35.   end if
  36.   pass()
  37. end
  38.