What PC? 1997 February/WPCFEB97.ISO/multi/acacia/start.dxr/00070.ls

Text File | 1996-11-13 | 1.6 KB | 60 lines

on startMovie
  global gAcaciaDown, gBiolDown, gChemDown, gPhysDown, gMathsDown, gQuitDown, gCD_Root, gPath, gDelim, gNewQnList
  if the machineType = 256 then
    set gDelim to "\"
  else
    set gDelim to ":"
  end if
  set gAcaciaDown to 0
  set gBiolDown to 0
  set gChemDown to 0
  set gPhysDown to 0
  set gMathsDown to 0
  set gQuitDown to 0
  set gCD_Root to the pathName
  set gPath to the pathName
  set gNewQnList to [:]
end

on RunTest
  global gTestList, gCursor, gCD_Root, gDelim
  JumbleTest()
  set next_qn to string(getPropAt(gTestList, gCursor))
  if char 1 of next_qn = "2" then
    go(1, gCD_Root & "BIOL" & gDelim & next_qn)
  end if
  if char 1 of next_qn = "8" then
    go(1, gCD_Root & "BIOL" & gDelim & next_qn)
  end if
  if char 1 of next_qn = "3" then
    go(1, gCD_Root & "CHEM" & gDelim & next_qn)
  end if
  if char 1 of next_qn = "7" then
    go(1, gCD_Root & "CHEM" & gDelim & next_qn)
  end if
  if char 1 of next_qn = "4" then
    if char 2 of next_qn = "5" then
      go(1, gCD_Root & "SPACE" & gDelim & next_qn)
    else
      go(1, gCD_Root & "PHYS" & gDelim & next_qn)
    end if
  end if
  if char 1 of next_qn = "6" then
    go(1, gCD_Root & "PHYS" & gDelim & next_qn)
  end if
end

on JumbleTest
  global gTestList
  set holdlist to gTestList
  set gTestList to [:]
  set num to count(holdlist)
  repeat with i = 1 to num
    set thisone to random(count(holdlist))
    set thisprop to getPropAt(holdlist, thisone)
    set thisval to getAt(holdlist, thisone)
    deleteAt(holdlist, thisone)
    addProp(gTestList, thisprop, thisval)
  end repeat
end