Komputer for Alle 2002 #12/K-CD-12-2002.ISO/Tools/K-CS.dcr/00365.ls

Text File | 2002-04-19 | 561 b | 28 lines

global BlinkObjekt, MBAlarm, StartTid

on new me
  cursor(0)
  set MBAlarm to 1
  set BlinkObject to 0
  puppetSound(1, "Fejllyd")
  set the visible of sprite 49 to 0
  set the locH of sprite 99 to 780
  set BlinkObjekt to new(script "Blink", 4, 80)
  set StartTid to the timer
end

on exitFrame
  set MinTid to (the timer - StartTid) mod 28
  if MinTid < 14 then
    if MBAlarm then
      set the visible of sprite 62 to 1
    else
      puppetSound(1)
    end if
  else
    set the visible of sprite 62 to 0
  end if
  checkBlink(BlinkObjekt)
  go(#loop)
end