Eidos Interactive CD-ROM 1997/EIDOS.ISO/data/intro.dxr/00003_Pause.ls

Text File | 1997-10-27 | 662 b | 24 lines

property myStartTicks, myDelay

on beginSprite me
  set myStartTicks to the ticks
  set myDelay to myDelay * 60
end

on exitFrame me
  if (myStartTicks + myDelay) > the ticks then
    go(the frame)
  end if
end

on getPropertyDescriptionList me
  set c to "How many seconds to delay?"
  return [#myDelay: [#comment: c, #format: #float, #default: 3.0]]
end

on getBehaviorDescription me
  set line1 to "This simple behavior will pause on a single frame for a given number of seconds. "
  set line2 to "Unlike some other approaches you'll retain full interactivity during this pause, so sprites can be dragged about, keys pressed, etc."
  return line1 & line2
end