home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / yomu.dir / 00043_Script_43 < prev    next >
Text File  |  1995-11-10  |  516b  |  18 lines

  1. on mouseDOWN
  2.   global gteika2
  3.   puppetSound "PUSH_SE"
  4.   put Clickon() into vSP
  5.   put item 1 of the name of cast the castNum of sprite vSP into cName
  6.   puppetSprite 15, true
  7.   set the type of sprite 15 = 1
  8.   set the ink of sprite 15 = 8
  9.   set the castNum of sprite 15 = the number of cast (cName & ",DW")
  10.   set the locH of sprite 15 = the locH of sprite vSP
  11.   set the locV of sprite 15 = the locV of sprite vSP 
  12.   updatestage
  13.   set gteika2 = -1000
  14.   Teika
  15.   go to  "Mid"
  16.   puppetSprite 15, FALSE
  17. end
  18.