home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1996 July / Image.iso / mrmore / mrmore.dir / 00023.ls < prev    next >
Encoding:
Text File  |  1996-04-11  |  658 b   |  30 lines
  1. on exitFrame
  2.   global gbPopIsOn, gbInstallActive, gsPopupReturn, gsPopupType
  3.   CheckSound()
  4.   if gbInstallActive and not gbPopIsOn then
  5.     put gsPopupReturn
  6.     Wait(1)
  7.     set sType to gsPopupType
  8.     if sType = "soun" then
  9.       set sType to "Desi"
  10.     end if
  11.     set n to the number of cast ("Install" & sType)
  12.     set gbInstallActive to 0
  13.     if (gsPopupReturn = "Jetzt") and (n > 0) then
  14.       DoItNow()
  15.     else
  16.       if (gsPopupReturn = "Sp├ñter") and (n > 0) then
  17.         DoItLater()
  18.       end if
  19.     end if
  20.   end if
  21.   if not gbPopIsOn then
  22.     CheckRollOver()
  23.     CheckForTimeOut()
  24.   else
  25.     DoPopupAnim()
  26.   end if
  27.   cursor(0)
  28.   go(the frame)
  29. end
  30.