home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / roudoku.dir / 00099_Script_99 < prev    next >
Text File  |  1995-11-10  |  1KB  |  38 lines
  1. on mousedown
  2.   global kasira,sentakusi,syurui
  3.   puppetSound "PUSH_SE"
  4.   updatestage  
  5.   put Clickon() into vSP
  6.   puppetSprite vSP, true
  7.   put item 1 of the name of cast the castNum of sprite vSP into cName
  8.   set the castNum of sprite vSP = the number of cast (cName & ",DW")
  9.   repeat with n = 6 to 27
  10.     if n = vSP then next repeat
  11.     else
  12.       if n = 9 then next repeat   
  13.       else
  14.         puppetSprite n, false
  15.         put item 1 of the name of cast the castNum of sprite n into cName
  16.         set the castNum of sprite n = the number of cast (cName & ",up")
  17.         updatestage  
  18.       end if   
  19.     end if 
  20.   end repeat    
  21.   if syurui = "Γ├Ωl" then
  22.     puppetSprite 6, true
  23.     set the castNum of sprite 6 = the number of cast "τ╧Θô,DW"
  24.   else
  25.     if syurui = "Φä╟├π┬╟├Γ├" then
  26.       puppetSprite 7, true
  27.       set the castNum of sprite 7 = the number of cast "Φä╟├π┬,DW"
  28.     else
  29.       if syurui = "Γè╟├π┬╟├Γ├" then
  30.         puppetSprite 8, true
  31.         set the castNum of sprite 8 = the number of cast "Γè╟├π┬,DW"
  32.       end if
  33.     end if
  34.   end if  
  35.   put item 1 of the name of cast the castNum of sprite vSp into kasira
  36.   KENSAKU
  37.   puppetSound 0
  38. end