Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/stuff.dir/00022_Script_22

Text File | 1995-11-10 | 4KB | 151 lines

on RETURN_M
  go to movie "MENU"
end

on startmovie
  global DANBGM
--  set DANBGM = 1
  set the timeoutLength to 25
end

on stopmovie
  puppetSound 0
  repeat with n = 1 to 4
    sound stop n
  end repeat
  set the timeoutScript to "Nothing"
  set the mouseDownScript to "Nothing"
  set the mouseUpScript to "Nothing"
end

on CHECK_T
  --  put the long time into vTIME
  --  delete char ((the number of chars in vTIME)-2) to the number of chars in (vTIME) of vTIME
  put word 1 of  the long time into vTIME
  if value(vTIME) >= 12 then
    put value(vTIME) - 12 into vHOUR
    delete char 1 to 2 of vTIME
    put vHOUR before vTIME
  else
    nothing
  end if
  put HMStoFrames(vTIME, 60, FALSE, FALSE) into vFrame
  set the movieTime of sprite 2 to vFrame
  put vFrame into field "TIME"
end

on HURIKO
  puppetSprite 30, true
  set the timeoutScript to "FURIFURI"
end

on FURIFURI
  set the visible of sprite 30 = not the visible of sprite 30
  starttimer
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
  if rollover(clickon()) then  return TRUE
  return FALSE


  puppetSound 0

end
on goback
  global gReMovie
  sound stop 1
  sound stop 2
  go to "WAIT" of movie gReMovie
  cursor -1
  set the mouseDownScript to "Nothing"
  set the mouseUpScript to "Nothing"
end

on shortcutScript
  cursor 282
  set the mouseDownScript to "cursor 283"
  set the mouseUpScript to "gonext"
end
on shortcutEnd
  cursor -1
  set the mouseDownScript to "Nothing"
  set the mouseUpScript to "Nothing"
end
on gonext
  sound stop 1
  sound stop 2
  go to marker(1)
  cursor -1
  set the mouseDownScript to "Nothing"
  set the mouseUpScript to "Nothing"
end


on TeikaX
  global gTeika,gTeika2
  Sound playFile 2,"\S_POKALT\COIN"
  if gTeika2 > 1000 then
    set gKake = 100
  else
    if gTeika2 <= 1000 then
      set gKake = 10
    end if
  end if

  repeat with Money = 1 to abs(gTeika2) / gKake
    tell the stage
      if gTeika < 0 then
        set gTeika = 0
        put gTeika into field"╔e╔C╔J"
        exit repeat
      else
        if gTeika2 > 0 then
          set gTeika3 = gTeika + Money * gKake
          put gTeika3 into field"╔e╔C╔J"
        else
          if gTeika2 < 0 then
            set gTeika3 = gTeika - Money * gKake
            if gTeika3 < 0 then
              set gTeika3 = 0
              put gTeika3 into field"╔e╔C╔J"
              exit repeat
            end if
            put gTeika3 into field"╔e╔C╔J"
          end if
        end if
      end if
    end tell
  end repeat
  Sound playFile 2,"\S_POKALT\MONEY_"
  set gTeika = gTeika3
  set gTeika2 = 0
end
on idle
  global DANBGM
--  if DANBGM = 1 or DANBGM = 2 or DANBGM = -1 or DANBGM = -2 then
    if not soundBusy(1) then
      puppetsound "CREDITS2"
--    end if
  else
--    if DANBGM = 0 then
--      if not soundBusy(1) then
        nothing
      end if
--    end if
--  end if
end