What PC? 1997 January/WPCJAN97.ISO/intwjan.dxr/00001.ls

Text File | 1996-11-07 | 3.7 KB | 83 lines

on startMovie
  global IFLSpriteDifference, IFLhasLineFlashedList, IFLQuestionList, IFLMarkRed, QuestionSprite, WaitFactor, SpeedIndex, GTSWIN95, gtswhichopsystem, RunProg, IFLWhichcursorList, IFLThisButton, addPallist, addlist, ADDKindList, iflmovevar, REFAddWatch, REFaddPallist, REFaddlist, REFADDKindList, IFLSkipList, IFLGone, IFLINTARTList, IFLINTGTSList, IFLINTFAEList, IFLINTHANList, IFLINTGROList, IFLINTGESList, IFLINTREFList, IFLINTRESList, IFLINTMGIList, IFLLeaveIntro, IFLMovieNameList, IFLTimeOut, IFLUSERPRESSEDESCKEY, IFLQUickStart
  repeat with t = 1 to 48
    puppetSprite(t, 1)
  end repeat
  set IFLUSERPRESSEDESCKEY to 2
  set IFLTimeOut to 0
  set IFLGone to 0
  set REFAddWatch to 0
  set IFLThisButton to 0
  set IFLSpriteDifference to 38
  set IFLMarkRed to 0
  set QuestionSprite to 2
  set IFLLeaveIntro to 0
  set IFLQUickStart to 0
  set the searchPath to [the pathName & "video"]
  set IFLMovieNameList to list("REFWJAN", "HANWJAN", "RESWJAN", "GROWJAN", "FAEWJAN", "GESWJAN", "GTSWJAN", "ARTWJAN", "MGIWJAN")
  set addPallist to list([1100, "PLACEAD"], [1089, "HOBTV"], [0, 0], [0, 0])
  set addlist to list([0, 0], [1081, 1810], [0, 0], [0, 0])
  set ADDKindList to list(2, 1, 4, 5)
  set REFaddPallist to list([1100, "PLACEAD"], [1089, "HOBTV"], [0, 0], [0, 0])
  set REFaddlist to list([0, 0], [1081, 1810], [0, 0], [0, 0])
  set REFADDKindList to list(2, 1, 4, 5)
  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 IFLQuestionList to list(17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32)
  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 IFLINTARTList to list([31, "ARTNAME", 234, 152], [12, "ARTMIDI", 212, 277], [13, "ARTIMAGES", 214, 314], [14, "ARTLIT", 212, 352])
  set IFLINTGTSList to list([31, "GAMENAME", 175, 152], [12, "GameOne", 215, 277], [13, "GameTwo", 215, 314], [14, "GameThree", 215, 352], [15, "GameFour", 215, 390])
  set IFLINTFAEList to list([31, "MULTNAME", 130, 174], [12, "MULTOne", 215, 277], [13, "MULTTwo", 215, 314], [14, "MULTThree", 215, 352], [15, "MULTFour", 215, 390])
  set IFLINTHANList to list([31, "HANDNAME", 124, 152], [12, "HANONE", 212, 277])
  set IFLINTGROList to list([31, "GROUNAME", 124, 169], [12, "GROONE", 212, 277])
  set IFLINTGESList to list([31, "GETTNAME", 56, 169], [12, "GESONE", 212, 277])
  set IFLINTREFList to list([31, "REFENAME", 106, 152], [12, "REFOne", 210, 277], [13, "REFThree", 210, 314], [14, "REFTwo", 210, 352], [15, "REFFour", 210, 390], [16, "REFFive", 210, 428])
  set IFLINTRESList to list([31, "RESONAME", 140, 175], [12, "RESONE", 195, 260])
  set IFLINTMGIList to list([31, "ROOMNAME", 106, 152], [12, "MGIONE", 212, 277], [13, "MGITWO", 214, 314])
  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
    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
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