home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00081_Script_81 < prev    next >
Text File  |  1995-11-13  |  420b  |  14 lines
  1. on mouseDown
  2.   global gMotihuda,gMotihudaC,CName
  3.   set the cursor of sprite 2 = 0
  4.   set the cursor of sprite 3 = 0
  5.   set the cursor of sprite 4 = 0
  6.   set gMotihuda = gMotihuda + gMotihudaC
  7.   set gMotihudaC = 0
  8.   TakeItadaki CName
  9.   Zoom 16,7,8,7
  10.   put gMotihudaC && "±ß" into field"C"
  11.   set newRect = rect( 399 , 249 , 399 + gMotihudaC , 276 )
  12.   set the rect of sprite 33 to newRect
  13.   go to frame"Toru2"
  14. end