Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/load.dir/00011_Script_11

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

on readData
  global setct,gTEIKA,gfinesky,DANSION,DAN_in,¼
TACHI,KAIDEN,YORIAI ,ChieList,moveSPlist,¼
gFineSkyTeika,gMapPosH,gMapPosV,gCDPosH,gCDPosV,gCDCastNum,¼
vQ_No,fromKARU,GAMEYA_in,GIFTSONG,DQList¼
,fName

  put FileIO(mNew, "?read", "TXT") into fileObj
  if objectP(fileObj) then
    put fileObj(mReadFile) into stringList
    fileObj(mDispose)
    set myValueList = value(stringList)
    if listP(myValueList) and getAt(myValueList,1) = "╟⌐╟╚╟²╟╝╟«╟≡╟╖╟╚" then
      set fName = getAt ( myValueList,2 )
      set setct = getAt ( myValueList,3 )
      set gTEIKA = getAt ( myValueList,4 )
      set gfinesky = getAt ( myValueList,5 )
      set DANSION = getAt ( myValueList,6 )
      set DAN_in = getAt ( myValueList,7 )
      set TACHI = getAt ( myValueList,8 )
      set KAIDEN = getAt ( myValueList,9 )
      set YORIAI = getAt ( myValueList,10 )
      set ChieList = getAt ( myValueList,11 )
      set moveSPlist = getAt ( myValueList,12 )
      set gFineSkyTeika = getAt ( myValueList,13 )
      set gMapPosH = getAt ( myValueList,14 )
      set gMapPosV = getAt ( myValueList,15 )
      set gCDPosH = getAt ( myValueList,16 )
      set gCDPosV = getAt ( myValueList,17 )
      set gCDCastNum = getAt ( myValueList,18 )
      set vQ_No = getAt ( myValueList,19 )
      set fromKARU = getAt ( myValueList,20 )
      set GAMEYA_in = getAt ( myValueList,21 )
      set GIFTSONG = getAt ( myValueList,22 )
      set DQList = getAt ( myValueList,23 )
      if gfinesky = 0 then
        go to movie"opening5"
      else
        go to frame "GoLand2"
      end if
    else
      alert "╟⌐╟╚╟²╟╝╟«╟≡╟╖╟╚╟├╔f┼[╔^╟╝╟╒╟å╟╦╟ï╟■╟╥┼B"
    end if
  else
    nothing
  end if

end