What PC? 1996 August/WPCAUG96.ISO/file.exe/file.dxr/00088_IFLACROBAT.ls

Text File | 1996-06-17 | 1.7 KB | 60 lines

on IFLACROBAT
  puppetSprite(20, 1)
  updateStage()
  set the castNum of sprite 20 to 91
  set the ink of sprite 20 to 0
  set the locH of sprite 20 to 300
  set the locV of sprite 20 to 200
  updateStage()
  repeat while 1
    if soundBusy(1) = 0 then
      puppetSound("drumbeat.wav")
      updateStage()
    end if
    if the mouseCast = 91 then
      if word the mouseWord of field 91 = "INSTALL" then
        set GTSThisword to the mouseWord
        set the foreColor of word GTSThisword of field 91 to 0
        repeat while word the mouseWord of field 91 = "INSTALL"
          if the mouseDown then
            set GTSYesOrCancel to 1
            set the castNum of sprite 20 to 86
            updateStage()
          end if
        end repeat
        set the foreColor of word GTSThisword of field 91 to 255
      end if
      if word the mouseWord of field 91 = "SKIP" then
        set GTSThisword to the mouseWord
        set the foreColor of word GTSThisword of field 91 to 0
        repeat while word the mouseWord of field 91 = "SKIP"
          if the mouseDown then
            set GTSYesOrCancel to 2
            set the castNum of sprite 20 to 86
            updateStage()
          end if
        end repeat
        set the foreColor of word GTSThisword of field 91 to 255
      end if
      if GTSYesOrCancel > 0 then
        exit repeat
      end if
      next repeat
    end if
    if the mouseDown then
      beep()
    end if
  end repeat
  if GTSYesOrCancel = 2 then
    set GTSYesOrCancel to 0
    set the loc of sprite 20 to 2000
    updateStage()
  end if
  if GTSYesOrCancel = 1 then
    set the loc of sprite 20 to 2000
    updateStage()
    set GTSYesOrCancel to 0
    open(the pathName & "acroread\english\disk1\setup.exe")
  end if
end