home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / load.dir / 00020_Script_20 < prev    next >
Text File  |  1995-11-10  |  584b  |  19 lines
  1. on pushButton
  2.   puppetSound "BUTTON08"
  3.   UPDATESTAGE
  4.   put item 1 of the name of cast the castNum of sprite clickOn() into cName
  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