home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / tokyo / panatvj.dir / 00025_Script_25 < prev    next >
Text File  |  2017-09-21  |  2KB  |  86 lines
  1. on startMovie
  2.   global NATTA,DOKO
  3.   --╔}╔E╔X╟ÖΦ╩╟í╟²╟┴╔J┼[╔\╔π∩£τX
  4.   --NATTA--
  5.   --DOKO
  6.   set the cursor of sprite 1 to [32,33]
  7. end startMovie
  8.  
  9. on Adown
  10.   puppetSound "ON.aif"
  11.   set the cursor of sprite 3 to [30,31]--sprite 3╟╝╔J┼[╔\╔π∩£τX
  12.   
  13.   puppetsprite 5, TRUE--sprite 3Σ╙±{╔L╔╔╔X╔g
  14.   repeat while mouseDown()
  15.     set the castNum of sprite 3 = the number of cast "23"
  16.     updateStage
  17.     wait 2
  18.     set the castNum of sprite 3 = the number of cast "23"
  19.     updateStage
  20.     wait 2
  21.   end repeat
  22. end
  23.  
  24. on Aup
  25.   set the cursor of sprite 3 to [34,35]--╔J┼[╔\╔π∩£τX
  26.   puppetSound "OFF.aif"
  27.   set the castNum of sprite 3 = the number of cast "26"
  28.   updateStage
  29.   wait 2
  30.   set the castNum of sprite 3 = the number of cast "102"
  31.   updateStage
  32.   wait 3
  33.   set the castNum of sprite 1 = the number of cast "101"
  34.   updateStage
  35.   --GoToNetPage "http://home.netscape.com/"
  36. end
  37.  
  38.  
  39. ON OnMusCek
  40.   global NATTA,DOKO
  41.   put mouseCast() into DOKO
  42.   
  43.   if DOKO = 1 then--╔L╔╔╔X╔g42╟à╔}╔E╔X╟Ö╟├╟í╟²
  44.     set the cursor of sprite 2 to [34,35]--sprite 3╟╝╔J┼[╔\╔π∩£τX
  45.     if NATTA = 1 then--±¼╟í╟â╟ó╟╗╟╪╟═╟î
  46.       play "on"
  47.       puppetSound "pi.aiff"
  48.       --put 2 into NATTA
  49.     end if
  50.     
  51.     puppetsprite 3, TRUE--Σ╙±{╔L╔╔╔X╔gsprite
  52.     repeat while (mouseCast() =1)--42mouseCast╟à┼AΦ╩╟í╟â╟ó╟╚σ┐╟╦
  53.       if the mouseDown then
  54.         exit repeat
  55.       end if
  56.       
  57.       set the castNum of sprite 3 = the number of cast "29"
  58.       updateStage
  59.       --wait 10
  60.       set the castNum of sprite 3 = the number of cast "19"
  61.       updateStage
  62.       --wait 10
  63.     end repeat
  64.   end if
  65.   
  66.   if DOKO = -1 then--╟½╟▒╟à╟ç╟├╟í╟â╟ó╟╗╟ó╟╨╟┤╟╒┼AΩ¢φ╦╟¥╟ç╟½╟▌
  67.     set the castNum of sprite 3 = the number of cast "101"
  68.     set the cursor of sprite 2 to [44,45]
  69.     put 1 into NATTA
  70.     put 0 into DOKO
  71.     puppetSound 0
  72.     
  73.   else
  74.     nothing
  75.   end if
  76.   
  77. end OnMusCek
  78.  
  79.  
  80. on wait waitTicks
  81.   startTimer
  82.   repeat while the timer < waitTicks
  83.     nothing
  84.   end repeat
  85. end
  86.