home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00024_Script_24 < prev    next >
Text File  |  1995-11-13  |  899b  |  38 lines
  1. on mouseDown
  2.   global Ch,gHuda,gutasu,gLeftMax,gRightMax,gLeftCT,gRightCT
  3.   set the cursor of sprite 14 = [2014,2015]
  4.   set the cursor of sprite 15 = [2014,2015]
  5.   
  6.   set Ch = ClickOn()
  7.   if Ch = 14 then
  8.     if gLeftCT >= gLeftMax then
  9.       set gLeftCT = gLeftMax
  10.     else
  11.       set gLeftCT = gLeftCT + 1
  12.     end if
  13.   else
  14.     if Ch = 15 then
  15.       if gRightCT >= gRightMax then
  16.         set gRightCT = gRightMax
  17.       else
  18.         set gRightCT = gRightCT + 1
  19.       end if
  20.     end if
  21.   end if
  22.   Yama
  23.   SelectCard
  24.   set the locH of sprite 48 = 257
  25.   set the locV of sprite 48 = 280
  26.   set the castNum of sprite 48 = gutasu + 200
  27.   puppetSound "turnover"
  28.   updateStage
  29.   repeat while soundBusy(1)
  30.   end repeat
  31.   
  32.   go to frame"Toru"
  33.   set the cursor of sprite 14 = 0
  34.   set the cursor of sprite 15 = 0
  35.   set the cursor of sprite 48 = [2010,2011]
  36.   PuppetSound 0
  37. end
  38.