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 >
Wrap
Text File
|
1995-11-10
|
691b
|
41 lines
on correct_B
global Hposition
if pushB() = TRUE then
puppetSprite 6, False
go to "correct" & Hposition
end if
end
on incorrect_B
global NGCt
if pushB() = TRUE then
puppetSprite 6, true
H_Frame
end if
tell the stage
set the visible of sprite (40+NGct) = TRUE
end tell
PUT NGct+1 INTO NGct
end
on H_Frame
global H_color
if H_color = 1 then
go to "B_claw"
else
if H_color = 2 then
go to "R_claw"
else
if H_color = 3 then
go to "G_claw"
else
if H_color = 4 then
go to "KING_claw"
end if
end if
end if
end if
end