Computer Buyer 1995 November/SHOWCASE.ISO/files/intro.dir/00083_Script_83

Text File | 1995-06-14 | 2KB | 57 lines

on mouseDown
  set whichSprite = the clickon
  puppetSprite whichSprite, 1
  set the castnum of sprite whichsprite = the number of cast "OK lit"
  repeat while the stilldown
    updateStage
  end repeat
end

on mouseUp
  global gPTimerSet, gPresentationTime, gPresentingTo, gLightColor

  set the castnum of sprite 12 = the number of cast "OK"
  updateStage
  -- Check to see whether anything has been entered into the Timer field.
  if the text of field "Timer Amount" = "" then
    alert "You need to enter a number into the Timer field!"
    exit
  end if

  -- If something has, see what it is.
  set whatTime = value(the text of field "Timer Amount")

  -- Integers and floats are O.K.
  if integerP(whatTime) then
    startTimer
    set gPTimerSet = 1
    set gPresentationTime = whatTime
    set the timeoutLength =  3600 * whatTime
    set gPresentingTo = the text of field "Who To"
    put gPresentingTo into field "CompanyDisplay"
    set gLightColor = "Green timer light lit"
    puppetSprite 12, 0
    updateStage
    go "start"
    exit
  end if

  if floatP(whatTime) then
    startTimer
    set gPTimerSet = 1
    set gPresentationTime = whatTime
    set the timeoutLength =  3600 * whatTime
    set gPresentingTo = the text of field "Who To"
    put gPresentingTo into field "CompanyDisplay"
    set gLightColor = "Green timer light lit"
    puppetSprite 12, 0
    updateStage
    go "start"
    exit
  end if

  -- If it's not an integer or a float it must be text. Text won't cut it!
  alert "You need to enter a number greater than 2!"
  puppetSprite 12, 0
  updateStage
end