Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/yoriai.dir/00016_Script_16

Text File | 1995-11-10 | 1KB | 74 lines

on startmovie
  Global vP,YORIAI,DANSION
  put "" into vP
  if DANSION = 1 or DANSION = 2 then
    go to "MENU_N"
  else
    go to "MENU_Y"
  end if
  sound playFile 2,"\S_YORIAI\Y_BGM"
  put YORIAI +1 into YORIAI
end



on idle
  if soundBusy(2) then
    nothing
  else
    sound playFile 2,"\S_YORIAI\ZAWA"
  end if
end


on RETURN_M
  go to movie "MENU"
end
on STOPMOVIE
  puppetSound 0
  repeat with n = 1 to 4
    sound stop n
  end repeat
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
        set gTeika3 = 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