PC go! 1996 July/Image.iso/mrmore/mrmore.dir/00655.ls

Text File | 1996-04-11 | 945 b | 30 lines

on mouseUp
  global gsOldDir, goGBTools, gsThisFrame, gsPopupType, gsPopupCont, gnMusicSprite
  repeat with i = 1 to gnMusicSprite - 1
    set the puppet of sprite i to 0
  end repeat
  set sDir to goGBTools(mGetCurPath)
  if length(sDir) > 3 then
    set sDir to sDir & "\"
  end if
  set the text of cast "NewDir" to alltrim(the text of cast "NewDir")
  if length(the text of cast "NewDir") > 8 then
    set the text of cast "NewDir" to char 1 to 8 of the text of cast "NewDir"
  end if
  if the text of cast "NewDir" <> EMPTY then
    if goGBTools(mMakeDir, the text of cast "NewDir") then
      set sDir to sDir & the text of cast "NewDir"
    end if
  end if
  goGBTools(mChDir, gsOldDir)
  if gsPopupType = "Soun" then
    set the text of cast "DesiDir" to sDir
  else
    set the text of cast (gsPopupType & "Dir") to sDir
  end if
  go(gsThisFrame)
  if gsPopupCont <> EMPTY then
    InstallObject(gsPopupType, gsPopupCont)
  end if
end