home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00002_Script_2 < prev    next >
Text File  |  1995-11-10  |  2KB  |  105 lines
  1. on SelectCard2
  2.   global Karuta,gTeika,premium,gCount,gHudaP,gUtasu,gSyurui
  3.   set listct = count(karuta)
  4.   set dtct = random(listct)
  5.   set gUtasu = getPropAT(karuta,dtct)
  6.   set gSyurui = getAT(karuta,dtct)
  7.   addProp gHudaP, gUtasu, gSyurui
  8.   deleteAT karuta, dtct
  9. end
  10.  
  11. on PlaceCardP SP
  12.   global gUtasu,gCastPlus
  13.   set gTemoti = gUtasu
  14.   set the castNum of sprite SP = gTemoti + gCastPlus
  15.   wait 5
  16.   --  updateStage
  17. end
  18.  
  19. on HeldCardP
  20.   set ch = clickOn()
  21.   set ch2 = ch +10
  22.   if the puppet of sprite ch2 = TRUE then
  23.     PuppetSprite ch2,FALSE
  24.     Sound playfile 2,"\S_POKALT\BUTTON05"
  25.   else
  26.     if the puppet of sprite ch2 = FALSE then
  27.       PuppetSprite ch2,TRUE
  28.       set the type of sprite ch2 = 0
  29.       Sound playfile 2,"\S_POKALT\BUTTON05"
  30.     end if
  31.   end if
  32.   updateStage
  33. end
  34.  
  35. on ChangeCardP
  36.   global gHeldHudaP,gHudaP
  37.   if the puppet of sprite 15 = FALSE then
  38.     play frame"HP1"
  39.     wait 5
  40.   end if
  41.   if the puppet of sprite 16 = FALSE then
  42.     play frame"HP2"
  43.     wait 5
  44.   end if
  45.   if the puppet of sprite 17 = FALSE then
  46.     play frame"HP3"
  47.     wait 5
  48.   end if
  49.   if the puppet of sprite 18 = FALSE then
  50.     play frame"HP4"
  51.     wait 5
  52.   end if
  53.   if the puppet of sprite 19 = FALSE then
  54.     play frame"HP5"
  55.     wait 5
  56.   end if
  57. end
  58.  
  59. on PlaceCardP2 SP
  60.   global gUtasu,gHudaP
  61.   set gUtasu = getPropAT(gHudaP,SP - 4)
  62.   set gTemoti = gUtasu
  63.   set the castNum of sprite SP = gTemoti + 300
  64.   wait 5
  65.   updateStage
  66. end
  67.  
  68. on ChangeCardP2
  69.   global gHeldHudaP,gHudaP,gUtasu,gCastPlus
  70.   if the puppet of sprite 15 = FALSE then
  71.     
  72.     PlaceCardP2 5
  73.     Mekuru 5
  74.     play frame"HP1.2"
  75.     wait 5
  76.   end if
  77.   if the puppet of sprite 16 = FALSE then
  78.     
  79.     PlaceCardP2 6
  80.     Mekuru 6
  81.     play frame"HP2.2"
  82.     wait 5
  83.   end if
  84.   if the puppet of sprite 17 = FALSE then
  85.     
  86.     PlaceCardP2 7
  87.     Mekuru 7
  88.     play frame"HP3.2"
  89.     wait 5
  90.   end if
  91.   if the puppet of sprite 18 = FALSE then
  92.     
  93.     PlaceCardP2 8
  94.     Mekuru 8
  95.     play frame"HP4.2"
  96.     wait 5
  97.   end if
  98.   if the puppet of sprite 19 = FALSE then
  99.     
  100.     PlaceCardP2 9
  101.     Mekuru 9
  102.     play frame"HP5.2"
  103.     wait 5
  104.   end if
  105. end