home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / roudoku.dir / 00021_Script_21 < prev    next >
Text File  |  1995-11-10  |  2KB  |  83 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.  
  20. on PushB2
  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 & ",UP")
  32.   updatestage 
  33.   return TRUE
  34.   
  35.   puppetSound 0
  36.   
  37. end
  38.  
  39. on PushB3
  40.   puppetSound "PUSH_SE"
  41.   repeat with s = 30 to 32
  42.     puppetSprite s, FALSE
  43.   end repeat
  44.   put item 1 of the name of cast the castNum of sprite clickOn() into cName
  45.   repeat while stilldown()
  46.     if rollover(clickOn()) then
  47.       set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
  48.     else
  49.       set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
  50.     end if
  51.     updatestage
  52.   end repeat
  53.   
  54.   puppetSprite clickOn(),true
  55.   set the castNum of sprite clickon() = the Number of cast (cName & ",DW")
  56.   updatestage 
  57.   return TRUE
  58.   
  59.   puppetSound 0
  60.   
  61. end
  62.  
  63. on checkzone
  64.   if rollover(39) then go to "SELECT"
  65.   if rollover(40) then go to "A_SO"
  66.   if rollover(41) then go to "TA_HO"
  67.   if rollover(42) then go to "MA_N"
  68.   if rollover(43) then go to "CUL"
  69. end
  70.  
  71. on CULCHECK n
  72.   global CUL
  73.   if pushB2() then 
  74.     if CUL = 0 then
  75.       put n into CUL
  76.     else
  77.       put n after CUL
  78.     end if
  79.     put CUL into  field "CUL_NO"
  80.     
  81.   end if
  82.   
  83. end