home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dpokalv2.dir / 00035_Script_35 < prev    next >
Text File  |  1995-11-10  |  2KB  |  68 lines
  1. on Syohai
  2.   global gTeika2,gTeikaC,gCharaNum,gKake
  3.   if gTeika2 > gTeikaC then
  4.     sound playfile 1,"\S_POKALT\OK_SE2"
  5.     set the visible of sprite 33 = 1
  6.     puppetSprite 27,TRUE
  7.     set the castNum of sprite 27 = 95
  8. --    set the textSize of field "±¥╟P╔e╔C╔J2" = 30
  9. --    set the textHeight of field "±¥╟P╔e╔C╔J2" = 50
  10. --    set the textStyle of field "±¥╟P╔e╔C╔J2" = "bold"
  11.     put gTeika2 * gKake into field"±¥╟P╔e╔C╔J2"
  12.     updateStage
  13.     set gTeika2 = gTeika2 * gKake
  14.     YouWin
  15.   else
  16.     if gTeika2 = gTeikaC then
  17.       puppetSprite 27,TRUE
  18.       set the castNum of sprite 27 = 97
  19.       updateStage
  20.       set gTeika2 = 0
  21.     else
  22.       if gTeika2 < gTeikaC then
  23.         sound playfile 1,"\S_POKALT\BZ_SE2"
  24.         set the visible of sprite 32 = 1
  25.         puppetSprite 27,TRUE
  26.         set the castNum of sprite 27 = 96
  27. --        set the textSize of field "±¥╟Q╔e╔C╔J2" = 30
  28. --        set the textHeight of field "±¥╟Q╔e╔C╔J2" = 50
  29. --        set the textStyle of field "±¥╟Q╔e╔C╔J2" = "bold"
  30.         put gTeikaC * gKake into field"±¥╟Q╔e╔C╔J2"
  31.         updateStage
  32.         set gTeika2 = - gTeikaC * gKake
  33.         Win
  34.       end if
  35.     end if
  36.   end if
  37. end
  38.  
  39. on WinChara
  40.   global gCharaNum
  41.   if gCharaNum = 1 then
  42.     sound playfile 2,"\S_POKALT\WIN_T"
  43.   else
  44.     if gCharaNum = 2 then
  45.       sound playfile 2,"\S_POKALT\WIN_H"
  46.     else
  47.       if gCharaNum = 3 then
  48.         sound playfile 2,"\S_POKALT\WIN_BZ"
  49.       end if
  50.     end if
  51.   end if
  52. end
  53.  
  54. on WinP
  55.   global gCharaNum
  56.   if gCharaNum = 1 then
  57.     sound playfile 2,"\S_POKALT\YOU_WINT"
  58.   else
  59.     if gCharaNum = 2 then
  60.       sound playfile 2,"\S_POKALT\YOU_WINH"
  61.     else
  62.       if gCharaNum = 3 then
  63.         sound playfile 2,"\S_POKALT\YOU_WINB"
  64.       end if
  65.     end if
  66.   end if
  67. end
  68.