home *** CD-ROM | disk | FTP | other *** search
/ Fuji Wa La Te I Ka - Hyakunin Isshu Karuta / KARUTA.bin / wins / dan256.dir / 00386_Script_386 < prev    next >
Text File  |  1995-11-10  |  691b  |  41 lines
  1. on correct_B
  2.   global Hposition
  3.   if pushB() = TRUE then 
  4.     puppetSprite 6, False
  5.     go to "correct" & Hposition
  6.   end if
  7.   
  8. end
  9. on incorrect_B
  10.   global NGCt
  11.   if pushB() = TRUE then        
  12.     puppetSprite 6, true 
  13.     H_Frame
  14.   end if
  15.   tell the stage
  16.     set the visible of sprite (40+NGct) = TRUE
  17.   end tell
  18.   PUT NGct+1 INTO NGct
  19. end
  20.  
  21. on H_Frame
  22.   global H_color
  23.   if H_color = 1 then 
  24.     go to "B_claw"
  25.   else
  26.     if H_color = 2 then 
  27.       go to "R_claw"
  28.     else
  29.       if H_color = 3 then 
  30.         go to "G_claw"
  31.       else
  32.         if H_color = 4 then 
  33.           go to "KING_claw"
  34.         end if 
  35.       end if 
  36.     end if 
  37.   end if
  38. end
  39.  
  40.  
  41.