home *** CD-ROM | disk | FTP | other *** search
/ CD Loisirs 10 / cd.iso / demo.dxr / 00024_Script_24 < prev    next >
Text File  |  1995-07-26  |  879b  |  35 lines
  1. global PathLimiter, gFILE
  2. on startmovie
  3.   cursor [22, 23]
  4.   if the machinetype=256 then set pathLimiter="\"
  5.   else set pathLimiter=":"
  6.   put "ROMAIN" into gFile
  7. end startmovie
  8.  
  9. on GoDemo NomFichier
  10.   put NomFichier into gFile
  11.   go to "ECRAN"
  12. end
  13.  
  14. on FLASHROLL QuellePiste, AFAIRE
  15.   set monActeur = the mousecast
  16.   set Flag=0
  17.   set the CastNum of sprite QuellePiste = MonActeur + 1
  18.   updateStage
  19.   repeat while rollover(QuellePiste)
  20.     if the mousedown then
  21.       set the CastNum of sprite QuellePiste = MonActeur + 2
  22.       updateStage
  23.       repeat while the mouseDown
  24.         if not rollover (QuellePiste) then exit repeat
  25.       end repeat
  26.       if rollover (QuellePiste) then set drapeau = 1
  27.       exit repeat
  28.     end if
  29.   end repeat
  30.   set the CastNum of sprite QuellePiste = MonActeur
  31.   updateStage
  32.   if drapeau then do AFAIRE
  33. end FLASHROLL
  34.  
  35.