home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1998 #6 / 1998 CD 6 (Gul).iso / 06.dir / 00408.ls < prev    next >
Encoding:
Text File  |  1996-02-08  |  2.0 KB  |  73 lines
  1. global fSep
  2.  
  3. on resetDoor
  4.   if the name of cast the castNum of sprite 6 = "panel 0 off" then
  5.     exit
  6.   else
  7.     if the name of cast the castNum of sprite 6 = "panel 0" then
  8.       exit
  9.     end if
  10.   end if
  11.   puppetSprite(6, 1)
  12.   set the castNum of sprite 6 to the number of cast "panel 0 off"
  13.   sound stop 1
  14.   set lName to the pathName & "SNDTRACK" & fSep & "LEAVE.AIF"
  15.   sound playFile 1, lName
  16.   if (the frameLabel contains "FlyThru") or (the frameLabel contains "Moov") then
  17.     nothing()
  18.   else
  19.     puppetTransition(2, 2, 3, 1)
  20.   end if
  21.   updateStage()
  22. end
  23.  
  24. on DoorClick
  25.   puppetSprite(6, 1)
  26.   if the name of cast the castNum of sprite 6 = "panel 0 off" then
  27.     set the castNum of sprite 6 to the number of cast "panel 0"
  28.     updateStage()
  29.     set the castNum of sprite 6 to the number of cast "door open"
  30.     sound stop 1
  31.     set lName to the pathName & "SNDTRACK" & fSep & "ARRIVE.AIF"
  32.     sound playFile 1, lName
  33.     puppetTransition(1, 2, 3, 1)
  34.     exit
  35.   else
  36.     if the name of cast the castNum of sprite 6 = "panel 0" then
  37.       updateStage()
  38.       set the castNum of sprite 6 to the number of cast "door open"
  39.       puppetTransition(1, 2, 3, 1)
  40.       sound stop 1
  41.       set lName to the pathName & "SNDTRACK" & fSep & "ARRIVE.AIF"
  42.       sound playFile 1, lName
  43.       exit
  44.     else
  45.       go("enter", "Main.dir")
  46.     end if
  47.   end if
  48. end
  49.  
  50. on DoorClick2
  51.   puppetSprite(6, 1)
  52.   if the name of cast the castNum of sprite 6 = "panel 0 off" then
  53.     set the castNum of sprite 6 to the number of cast "panel 0"
  54.     updateStage()
  55.     set the castNum of sprite 6 to the number of cast "door open"
  56.     sound stop 1
  57.     set lName to the pathName & "SNDTRACK" & fSep & "ARRIVE.AIF"
  58.     sound playFile 1, lName
  59.     exit
  60.   else
  61.     if the name of cast the castNum of sprite 6 = "panel 0" then
  62.       updateStage()
  63.       set the castNum of sprite 6 to the number of cast "door open"
  64.       sound stop 1
  65.       set lName to the pathName & "SNDTRACK" & fSep & "ARRIVE.AIF"
  66.       sound playFile 1, lName
  67.       exit
  68.     else
  69.       go("enter", "Main.dir")
  70.     end if
  71.   end if
  72. end
  73.