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