home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / bbozu7.dir / 00019_Script_19 < prev    next >
Text File  |  1995-11-13  |  1KB  |  47 lines
  1. on mouseDown
  2.   global gChangeP,gHuda,gMotihuda
  3.   
  4.   set the cursor of sprite 48 = 0
  5.   set the cursor of sprite 48 = 282
  6.   sound playFile 2, "\S_BZMKRI\CARD_C"
  7.   
  8.   set gChangeP = gChangeP - 1
  9.   if gChangeP = 0 then
  10.     set the visible of sprite 18 = 0
  11.     set the visible of sprite 19 = 0
  12.     set the visible of sprite 20 = 0
  13.   else
  14.     if gChangeP = 1 then
  15.       set the visible of sprite 18 = 1
  16.       set the visible of sprite 19 = 0
  17.       set the visible of sprite 20 = 0
  18.     else
  19.       if gChangeP = 2 then
  20.         set the visible of sprite 18 = 1
  21.         set the visible of sprite 19 = 1
  22.         set the visible of sprite 20 = 0
  23.       else
  24.         if gChangeP = 3 then
  25.           set the visible of sprite 18 = 1
  26.           set the visible of sprite 19 = 1
  27.           set the visible of sprite 20 = 1
  28.         end if
  29.       end if
  30.     end if
  31.   end if
  32.   updateStage
  33.   ChengeHudaP
  34.   wait 40
  35.   Hantei
  36.   if gHuda = 7 then
  37.     set the castNum of sprite 48 = 1000
  38.     updateStage
  39.     go to frame"ItadakiP"
  40.   else
  41.     set the castNum of sprite 48 = 1000
  42.     puppetSound "turnover"
  43.     go to frame"Toru2"
  44.   end if
  45.   PuppetSound 0
  46.   set the cursor of sprite 48 = 0
  47. end