home *** CD-ROM | disk | FTP | other *** search
/ American History: Interactive Maps & User's Guide / American History: Interactive Maps & User's Guide.iso / pc / Start.dxr / 00006_Find TARGET.ls < prev    next >
Encoding:
Text File  |  2000-01-25  |  857 b   |  35 lines
  1. property target
  2.  
  3. on new me
  4.   set target to the movieName
  5.   set numChars to the number of chars in target
  6.   set targetCheck to char numChars - 3 to numChars of target
  7.   case targetCheck of
  8.     ".exe", ".dir", ".dxr", ".eap":
  9.       delete char numChars - 3 to numChars of target
  10.   end case
  11. end
  12.  
  13. on doAction me
  14.   global gMainPath, gPathDelimiter
  15.   cursor(4)
  16.   if not gMainPath then
  17.     checkMainPath()
  18.     doAction(me)
  19.   end if
  20.   if the machineType = 256 then
  21.     set cdDrive to CheckDrive("Hrwimp.id")
  22.   else
  23.     set cdDrive to "HRW IMAPS"
  24.     if not FileExists("HRW IMaps:Hrwimp.id") then
  25.       alert("You must insert the HRW IMaps CD-ROM to run this program.")
  26.       quit()
  27.     end if
  28.   end if
  29.   if target = "start" then
  30.     go(1, cdDrive & gPathDelimiter & target)
  31.   else
  32.     go(1, cdDrive & gPathDelimiter & target & gPathDelimiter & target)
  33.   end if
  34. end
  35.