Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/dan256.dir/00288_Script_288

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