home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00041_Script_41 < prev    next >
Text File  |  1995-11-10  |  1KB  |  46 lines
  1. on mouseDown
  2.   global gCharaNum
  3.   if the type of sprite 15 = 1 or the type of sprite 16 = 1 or the type of sprite 17 = 1 or the type of sprite 18 = 1 or the type of sprite 19 = 1 then
  4.     nothing
  5.   else
  6.     PuppetSound"BUTTON07"
  7.     if gCharaNum = 3 then
  8.       set the castNum of sprite 2 = 781
  9.       set the visible of sprite 3 = 0
  10.       updateStage
  11.     else
  12.       set the visible of sprite 3 = 0
  13.       updateStage
  14.     end if
  15.     
  16.     set the visible of sprite 3 = 0
  17.     updateStage
  18.     
  19.     repeat with SP = 10 to 14
  20.       set the visible of sprite SP = 1
  21.       updateStage
  22.     end repeat
  23.   end if
  24.   
  25.   if the type of sprite 15 = 1 or the type of sprite 16 = 1 or the type of sprite 17 = 1 or the type of sprite 18 = 1 or the type of sprite 19 = 1 then
  26.     nothing
  27.   else
  28.     Syobu
  29.     set the visible of sprite 25 = 0
  30.     repeat with i = 20 to 24
  31.       PuppetSprite i,TRUE
  32.       set the type of sprite i = 0
  33.     end repeat
  34.     WritegHudaP
  35.     ChangeCardC
  36.     ChangeHudaC
  37.     wait 30
  38.     ChangeJihudaC
  39.     wait 30
  40.     ChangeJihudaP
  41.     set the castNum of sprite 28 = 40
  42.     go to frame"Hantei.2"
  43.   end if
  44.   PuppetSound 0
  45. end
  46.