Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/doujyou.dir/00269_Script_269

Text File | 1995-11-10 | 2KB | 70 lines

on TeikaX
  global gTeika,gTeika2
  Sound playFile 2,"\S_POKALT\COIN"
  if abs(gTeika2) > 1000 then
    set gKake = 100
  else
    if abs(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
  --  TeikaCheck
end

on TeikaCheck
  global gTeika,gFineSky,gFineSkyTeika,¼
gMapPosH,gMapPosV,gCDPosH,gCDPosV,gCDCastNum
  if gTeika = 0 then
    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
    tell the stage
      go to frame"toMAP"
    end tell
    --    set gFineSky = 0
    go to movie"GAMEYA"
  else
    if gTeika >= gFineSkyTeika and gFineSky = 0 then
      go to movie"TOWN_SUB"
      set gFineSky = 1
    else
      nothing
    end if
  end if
end