home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fuji Wa La Te I Ka - Hyakunin Isshu Karuta
/
KARUTA.bin
/
wins
/
dan256.dir
/
00288_Script_288
< prev
next >
Wrap
Text File
|
1995-11-10
|
3KB
|
144 lines
ON STARTMOVIE
Global vQ_NO,NGCt,DANBGM,DANSION,DAN_in,¼
gMapPosV,gMapPosH,gCDPosV,gCDPosH,fromkaru
-- put 3 into vQ_No
put 0 into NGCt
if DANSION = 0 then
set gMapPosV = 440
set gMapPosH = 260
set gCDPosV = 206
set gCDPosH = 251
set DAN_in = 0
set fromkaru = 0
-- set DANSION = 1
else
-- set DANSION = 1
go to "DoorOpen"
-- set DAN_in = DAN_in + 1
end if
END
on STOPMOVIE
global DANBGM
unLoad
puppetSound 0
sound stop 1
sound stop 2
sound stop 3
-- repeat with n = 1 to 4
-- sound stop n
-- end repeat
-- set DANBGM = 0
end
on SELECT_QD
Global vQ_NO,DQlist,vQ
puppetSprite 1, true
put getat(DQlist,vQ_NO) into vQ
-- put item vQ_No of field "DQLIST2" into vQ
put vQ_No+1 into vQ_No
play "Q" & vQ
end
on PushB
--puppetSound "MEKURI"
put item 1 of the name of cast the castNum of sprite clickOn() into cName
set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
repeat while stilldown()
if rollover(clickOn()) then
set the castNum of sprite clickOn() = the number of cast (cName & ",DW")
else
set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
end if
updatestage
end repeat
-- set the castNum of sprite clickon() = the Number of cast (cName & ",UP")
-- updatestage
return TRUE
puppetSound 0
end
on idle
global DANBGM
if DANBGM = 1 then
if not soundBusy(3) then
SSS
end if
else
if DANBGM = 0 or DANBGM = -1 or DANBGM = -2 then
if not soundBusy(3) then
nothing
end if
else
if DANBGM = 2 then
if not soundBusy(3) then
sound playFile 3, "\S_DAN\KINMA_M"
end if
end if
end if
end if
end
on SSS
if random(4) < 4 then
put "DJ_1" into vS
else
put "DJ_2" into vS
end if
sound playFile 3, "\S_DAN\"&vS
end
on OUTSTAGE
repeat with n = 6 to 21
puppetSprite n, False
end repeat
tell the stage
repeat with n = 40 to 42
set the visible of sprite n = FALSE
end repeat
end tell
RETURN_M
sound stop 3
end
on RETURN_M
global gTeika,GAMEYA_in,gMapPosH,gMapPosV,gCDPosH,¼
gCDPosV,gCDCastNum,DANBGM
unLoad
if gTeika = 0 then
if DANBGM = 1 then
set DANBGM = -1
else
if DANBGM = 2 then
set DANBGM = -2
end if
end if
sound playFile 1,"\S_GAMEYA\TEIKA_0"
repeat while soundBusy(1)
nothing
end repeat
set gMapPosH = 256
set gMapPosV = 8
set gCDPosH = 250
set gCDPosV = 262
set gCDCastNum = 35
set GAMEYA_in = 1
go to movie"GAMEYA"
tell the stage
go to frame"toMAP"
end tell
else
tell the stage
TOWN
go to frame"start"
end tell
end if
end