home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / library.dir / 00119_Script_119 < prev    next >
Text File  |  1995-11-13  |  4KB  |  141 lines
  1. on PushB
  2.   puppetSound "PUSH_SE"
  3.   put item 1 of the name of cast the castNum of sprite clickOn() into cName
  4.   set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
  5.   repeat while stilldown()
  6.     if rollover(clickOn()) then
  7.       set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
  8.     else
  9.       set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
  10.     end if
  11.     updatestage
  12.   end repeat
  13.   set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
  14.   updatestage 
  15.   if rollover(clickon()) then return TRUE
  16.   return FALSE
  17.   puppetSound 0
  18.   
  19. end
  20. on PushBB
  21.   puppetSound "PUSH_SE"
  22.   put item 1 of the name of cast the castNum of sprite clickOn() into cName
  23.   repeat while stilldown()
  24.     if rollover(clickOn()) then
  25.       set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
  26.     else
  27.       set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
  28.     end if
  29.     updatestage
  30.   end repeat
  31.   set the castNum of sprite clickon() = the Number of cast (cName & ",DW")
  32.   updatestage 
  33.   if rollover(clickon()) then return TRUE
  34.   return FALSE
  35.   puppetSound 0
  36. end
  37.  
  38. on PushB2
  39.   puppetSound "PUSH_SE"
  40.   put item 1 of the name of cast the castNum of sprite clickOn() into cName
  41.   repeat while stilldown()
  42.     if rollover(clickOn()) then
  43.       set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
  44.     else
  45.       set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
  46.     end if
  47.     updatestage
  48.   end repeat
  49.   set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
  50.   updatestage 
  51.   return TRUE
  52.   
  53.   puppetSound 0
  54.   
  55. end
  56. on PushB3
  57.   puppetSound "PUSH_SE"
  58.   repeat with s = 30 to 32
  59.     puppetSprite s, FALSE
  60.   end repeat
  61.   put item 1 of the name of cast the castNum of sprite clickOn() into cName
  62.   repeat while stilldown()
  63.     if rollover(clickOn()) then
  64.       set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
  65.     else
  66.       set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
  67.     end if
  68.     updatestage
  69.   end repeat
  70.   
  71.   puppetSprite clickOn(),true
  72.   set the castNum of sprite clickon() = the Number of cast (cName & ",DW")
  73.   updatestage 
  74.   return TRUE
  75.   
  76.   puppetSound 0
  77.   
  78. end
  79.  
  80. on checkzone
  81.   if rollover(39) then go to "SELECT"
  82.   if rollover(40) then go to "A_SO"
  83.   if rollover(41) then go to "TA_HO"
  84.   if rollover(42) then go to "MA_N"
  85.   if rollover(43) then go to "CUL"
  86. end
  87.  
  88. on CULCHECK n
  89.   global CUL
  90.   if pushB2() then 
  91.     if CUL = 0 then
  92.       put n into CUL
  93.     else
  94.       put n after CUL
  95.     end if
  96.     put CUL into  field "CUL_NO"
  97.     
  98.   end if
  99.   
  100. end
  101.  
  102. on stopmovie
  103.   global gFrameR,gMovieR
  104.   put the Frame into gFrameR
  105.   put "LIBRARY" into gMovieR
  106.   repeat with n = 11 to 48
  107.     puppetSprite n,False
  108.     updatestage
  109.   end repeat
  110.   
  111. end
  112.  
  113. on MARKBUTTON 
  114.   global NoPoHV,syurui 
  115.   puppetSprite 28, true
  116.   set the castNum of sprite 28 = integer(item 1 of NoPoHV)
  117.   set the locH of sprite 28 = integer(item 2 of NoPoHV)
  118.   set the locV of sprite 28 = integer(item 3 of NoPoHV)
  119.   if syurui = "Γ├Ωl" then
  120.     puppetSprite 9, true
  121.     set the castNum of sprite 9 = 203
  122.     set the locH of sprite 9 = 66
  123.     set the locV of sprite 9 = 65
  124.   else
  125.     if syurui = "Φä╟├π┬╟├Γ├" then
  126.       puppetSprite 9, true
  127.       set the castNum of sprite 9 = 205
  128.       set the locH of sprite 9 = 66
  129.       set the locV of sprite 9 = 103
  130.     else
  131.       if syurui = "Γè╟├π┬╟├Γ├" then
  132.         puppetSprite 9, true
  133.         set the castNum of sprite 9 = 207
  134.         set the locH of sprite 9 = 66
  135.         set the locV of sprite 9 = 141
  136.       end if
  137.     end if
  138.   end if  
  139. end
  140.  
  141.