home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / yomu.dir / 00044_Script_44 < prev    next >
Text File  |  1995-11-10  |  560b  |  20 lines
  1. on mouseDOWN
  2.   --  global CUL
  3.   --  put "101" into CUL
  4.   global gteika2
  5.   puppetSound "PUSH_SE"
  6.   put Clickon() into vSP
  7.   put item 1 of the name of cast the castNum of sprite vSP into cName
  8.   puppetSprite 15, true
  9.   set the type of sprite 15 = 1
  10.   set the ink of sprite 15 = 8
  11.   set the castNum of sprite 15 = the number of cast (cName & ",DW")
  12.   set the locH of sprite 15 = the locH of sprite vSP
  13.   set the locV of sprite 15 = the locV of sprite vSP 
  14.   updatestage
  15.   set gteika2 = -1000
  16.   Teika
  17.   go to  "Low"
  18.   puppetSprite 15, FALSE
  19. end
  20.