Personal Computer World 1997 August/Personal_Computer_World_Aug_97.iso/dxrs/intpcw08.dxr/00001.ls

Text File | 1997-05-21 | 4.6 KB | 107 lines

on startMovie
  global IFLSpriteDifference, IFLhasLineFlashedList, WaitFactor, SpeedIndex, GTSWIN95, gtswhichopsystem, RunProg, IFLWhichcursorList, IFLThisButton, addPallist, addlist, ADDKindList, REFAddWatch, REFaddPallist, REFaddlist, REFADDKindList, IFLSkipList, IFLINTARTList, IFLINTGTSList, IFLINTFAEList, IFLINTHANList, IFLINTGROList, IFLINTGESList, IFLINTREFList, IFLINTRESList, IFLINTMGIList, IFLLeaveIntro, ILFRotateP, IFLPersonalList, IFLStartP, IFLMovieNameList, REFINTER, IFLROtCounter, IFLKeyFlag, ARTGRAPHICSNAMELIST, ARTTWOGRAPHICSNAMELIST, ARTJuke, ARTComic, JUKESoundOne, REFADvertNo, CDXIndexNAme, DriveLtr, REFMGXNAme, JUKESoundTwo, ACROPATH, filetextlist
  set the exitLock to 1
  repeat with t = 1 to 48
    puppetSprite(t, 1)
  end repeat
  updateStage()
  set the searchPath to [DriveLtr & "video"]
  set filetextlist to list()
  set IFLMovieNameList to list("REFPCW08", "HANPCW08", "RESPCW08", "CDXPCW08", "FAEPCW08", "GESPCW08", "GTSPCW08", "ARTPCW08", "MGIPCW08")
  set addPallist to list(["PLACETV", "PLACEAD"], [0, 0], [0, 0])
  set REFaddPallist to list(["PLACETV", "PLACEAD"], [0, 0], [0, 0])
  set addlist to list([0, 0], [0, 0], [0, 0])
  set REFaddlist to list([0, 0], [0, 0], [0, 0])
  set ADDKindList to list(2, 4, 5)
  set REFADDKindList to list(2, 4, 5)
  set REFADvertNo to 3
  set ARTGRAPHICSNAMELIST to list("10019158.BMP", "10019181.BMP", "10019184.BMP", "10019207.BMP", "10019210.BMP", "10019256.BMP", "10019261.BMP", "C14216F.BMP", "10027858.BMP", "10027863.BMP", "10027868.BMP", "10027871.BMP", "10027876.BMP", "10037164.BMP", "TAB12G.BMP", "TAB12H.BMP")
  set ARTTWOGRAPHICSNAMELIST to list("10022015.BMP", "10022023.BMP", "10022025.BMP", "10022031.BMP", "10022036.BMP", "10025056.BMP", "10033097.BMP", "10033100.BMP", "10033101.BMP", "10033102.BMP", "10033104.BMP", "10033105.BMP", "10033116.BMP", "10046420.BMP", "10049953.BMP", "10049978.BMP")
  set ARTJuke to "JUKEBX08"
  set ARTComic to "ZARNAC4"
  set JUKESoundOne to "CHANNEL.WAV"
  set JUKESoundTwo to "CHANNEL.WAV"
  set CDXIndexNAme to "PCWCDX08.dbf"
  set REFMGXNAme to "PCWMGX08.dbf"
  set IFLINTARTList to list([31, "ARTNAME", 256, 151], [12, "ARTContent", 160, 251])
  set IFLINTGTSList to list([31, "GAMENAME", 199, 151], [12, "GameContent", 211, 251])
  set IFLINTFAEList to list([31, "MULTNAME", 116, 152], [12, "MULTContent", 206, 251])
  set IFLINTHANList to list([31, "HANDNAME", 159, 151], [12, "HANContent", 200, 259])
  set IFLINTGROList to list([31, "GROUNAME", 174, 151], [12, "GROContent", 168, 259])
  set IFLINTGESList to list([31, "GETTNAME", 56, 150], [12, "GESContent", 178, 259])
  set IFLINTREFList to list([31, "REFENAME", 148, 150], [12, "REFContent", 178, 251])
  set IFLINTRESList to list([31, "RESONAME", 47, 150], [12, "RESContent", 142, 259])
  set IFLINTMGIList to list([31, "ROOMNAME", 150, 150], [12, "MGIContent", 232, 251])
  set IFLLeaveIntro to 0
  set ILFRotateP to 0
  set IFLStartP to 0
  set REFAddWatch to 0
  set IFLThisButton to 0
  set REFINTER to 0
  set IFLROtCounter to 0
  set IFLKeyFlag to 0
  set IFLSpriteDifference to 38
  set the searchPath to [DriveLtr & "video"]
  set IFLWhichcursorList to list([1049, 1050], [1051, 1052], [1053, 1054], [1055, 1056], [1057, 1058], [1059, 1060], [1061, 1062], [1063, 1064], [1065, 1066])
  set IFLhasLineFlashedList to list(4, 5, 2, 1, 5, 0, 0, 2, 5)
  set IFLSkipList to list([39, 653, 150], [40, 404, 150], [41, 653, 106], [42, 404, 105], [43, 164, 61], [44, 404, 61], [45, 164, 105], [46, 164, 150], [47, 653, 61])
  set SpeedIndex to CalcSpeedIndex()
  set WaitFactor to 1
  if SpeedIndex < 50 then
    set WaitFactor to 0
  end if
  if the machineType < 200 then
    set WaitFactor to 1
  end if
  if the machineType > 200 then
    openXLib("fileio.dll")
    readfile("c:\vnu\vnu.ini")
    set search to "acrobat= "
    set ACROPATH to findentry(search)
    if ACROPATH = 0 then
      set ACROPATH to EMPTY
    else
      set ACROPATH to char the number of chars in search + 1 to the number of chars in ACROPATH of ACROPATH
    end if
  end if
  if the machineType > 200 then
    win_initialise()
  end if
  if the machineType > 200 then
    win_GetVersion()
    if gtswhichopsystem > 311 then
      set GTSWIN95 to 1
    else
      set GTSWIN95 to 0
    end if
  else
    set GTSWIN95 to 0
  end if
  if the machineType > 200 then
    StopBrowser()
  end if
  IFLCursorSet()
  set the exitLock to 1
end

on stopMovie
  if the machineType > 200 then
    win_exit()
  end if
end

on CalcSpeedIndex
  set now to the ticks
  set loops to 0
  repeat while the ticks < (now + 60)
    set loops to loops + 1
  end repeat
  return loops * 100 / 16500
end

on Intwait mysecs
  startTimer()
  repeat while the timer < (mysecs * 60)
  end repeat
end