home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / hint_de.dir / 00617_Script_SCRIPT_1 < prev    next >
Text File  |  1995-11-10  |  2KB  |  99 lines
  1. on initGlobals
  2.   global a,Qlist,vCount,QCount,NaCt,RightAnsCt,NGAnsCt,setCt,TEIKA,vSELECT,vLIST_No
  3.   set Qlist = []  
  4.   put 1 into a
  5.   put 1 into setCt
  6.   put 0 into vCount
  7.   put 0 into QCount
  8.   put 1 into NaCt
  9.   put 0 into RightAnsCt
  10.   put 0 into NGAnsCt
  11.   put 0 into vCountTrg
  12.   put 0 into vSELECT
  13.   put 0 into vLIST_No
  14.   put "" into field "LIST_No"
  15.   put "" into field "Qcount"
  16.   put "" into field "Qframe"
  17.   put "" into field "SELECT_No"
  18.   repeat with n = 1 to 46
  19.     puppetSprite n, False
  20.     set the visible of sprite n to TRUE
  21.   end repeat
  22.   set the visible of sprite 9 to FALSE
  23.   set the visible of sprite 47 to FALSE
  24.   set the visible of sprite 48 to FALSE
  25.   initlist
  26.   ------
  27.   put 0 into TEIKA
  28. end
  29.  
  30. on initlist
  31.   global a
  32.   --Qlist╟¥╔C╔j╔V╔╔╔Γ╔C╔Y
  33.   global a,Qlist,vCount
  34.   repeat while a < 41
  35.     append Qlist, a
  36.     put Qlist into field "LIST_No"
  37.     put (a+1) into a
  38.   end repeat
  39.   put 1 into a
  40.   put 1 into vCount
  41. end
  42.  
  43.  
  44. on QnumNa
  45.   --Q╔i╔∞╔o┼[╟¥╔i╔σ┼[╔V╔ß╔∞
  46.   Global QCount,NaCt,DANSION
  47.   if QCount <> Nact then
  48.     if DANSION = 3 and QCount = 5 then
  49.       set QCount = QCount + 1
  50.     end if
  51.     sound playFile 3, "\S_HINT\Q" & QCount+1
  52.     put Nact + 1 into NaCt
  53.   else
  54.     nothing
  55.   end if
  56.   
  57. end
  58.  
  59. on initSprite
  60.   repeat with v = 11 to 28
  61.     puppetSprite v, False
  62.     set the visible of sprite v to TRUE
  63.   end repeat
  64. end
  65.  
  66.  
  67.  
  68. on PushB2
  69.   puppetSound "MEKURI"
  70.   put item 1 of the name of cast the castNum of sprite clickOn() into cName
  71.   
  72.   set the castNum of sprite clickon() = the Number of cast (cName & ",DW")
  73.   updatestage 
  74.   return TRUE
  75.   
  76.   puppetSound 0
  77.   
  78. end
  79. on PushB21
  80.   puppetSound "MEKURI"
  81.   put item 1 of the name of cast the castNum of sprite clickOn() into cName
  82.   repeat while stilldown()
  83.     if rollover(clickOn()) then
  84.       set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
  85.     else
  86.       set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
  87.     end if
  88.     updatestage
  89.   end repeat
  90.   set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
  91.   updatestage 
  92.   return TRUE
  93.   
  94.   puppetSound 0
  95.   
  96. end
  97.  
  98.  
  99.