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

Text File | 2002-04-19 | 529 b | 27 lines

global BlinkObjekt, HPos

on new me
  set BlinkObjekt to new(script "Blink")
  if HPos = -1 then
    set HPos to the mouseH
  end if
  if HPos < 100 then
    set HPos to 100
  end if
  set the locH of sprite 60 to HPos - 50
  set the locH of sprite 61 to HPos - 35
  set the locH of sprite 62 to HPos + 35
  set the locH of sprite 59 to HPos
  set the visible of sprite 61 to 1
  set the visible of sprite 62 to 1
  set the visible of sprite 59 to 1
end

on enterFrame
  checkBlink(BlinkObjekt)
end

on exitFrame
  go(#loop)
end