home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / csinke6.dir / 00099_Script_99 < prev    next >
Text File  |  1995-11-13  |  1KB  |  44 lines
  1. on mouseDown
  2.   global gSiLevel,gSiTime,gChara,gCharaNum
  3.   PuppetSound"BUTTON07"
  4.   
  5.   set the castNum of sprite 48 = 222
  6.   updateStage
  7.   set gSiLevel = gSiLevel + 1
  8.   if gSiLevel > 3 then
  9.     wait 30
  10.     puppetSprite 47,FALSE
  11.     puppetSprite 48,FALSE
  12.     set the visible of sprite 36 = 0
  13.     set the visible of sprite 37 = 0
  14.     set the visible of sprite 38 = 0
  15.     set the visible of sprite 40 = 0
  16.     set the castNum of sprite 38 = 43
  17.     set the castNum of sprite 39 = 59
  18.     set the type of sprite 2 = 1
  19.     set the type of sprite 3 = 1
  20.     set the type of sprite 4 = 1
  21.     puppetSprite 2,FALSE
  22.     puppetSprite 3,FALSE
  23.     puppetSprite 4,FALSE
  24.     go to frame"Select"
  25.   else
  26.     set listct = count(gChara)
  27.     set dtct = random(listct)
  28.     set gCharaNum = getAt (gChara,dtct)
  29.     deleteAt gChara, dtct
  30.     wait 5
  31.     puppetSprite 47,FALSE
  32.     puppetSprite 48,FALSE
  33.     set the castNum of sprite 38 = 43
  34.     set the castNum of sprite 39 = 59
  35.     go to frame"start"
  36.   end if
  37.   put " " into field "Σl∞µ╔e╔C╔J"
  38.   put " " into field "±║δO"
  39.   put " " into field "Σl∞µΘD"
  40.   put " " into field "playerWIN"
  41.   set gSiTime = gSiTime + 1
  42.   PuppetSound 0
  43. end
  44.