home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / library2.dir / 00193_Script_193 < prev    next >
Text File  |  1995-11-13  |  567b  |  20 lines
  1. on mousedown
  2.   puppetSound "PUSH_SE"
  3.   put Clickon() into vSP
  4.   puppetSprite vSP, true
  5.   put item 1 of the name of cast the castNum of sprite vSP into cName
  6.   set the castNum of sprite vSP = the number of cast (cName & ",DW")
  7.   
  8.   repeat with n = 11 to 18
  9.     if n = vSP then next repeat
  10.     else
  11.       puppetSprite n, false
  12.       put item 1 of the name of cast the castNum of sprite n into cName
  13.       set the castNum of sprite n = the number of cast (cName & ",up")
  14.       updatestage  
  15.     end if    
  16.   end repeat  
  17.   genre  
  18.   puppetSound 0
  19. end
  20.