Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/lib_st.dir/00025_Script_25

Text File | 1995-11-13 | 3KB | 139 lines

on RETURN_M
  go to movie "MENU"
end

on startmovie
  set the timeoutLength to 40
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 42 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
  if not soundBusy(1) then
    puppetSound "clock"
  else
    nothing
  end if

  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
  sound stop 1
  sound stop 2
  go to "WAIT"
  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