engines/director/lingo/tests/events.lingo


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

on exitFrame
  beep
end exitFrame

on enterFrame me
  beep
end

on annoy howMuch
	beep random(howMuch)
	alert "Aren't handlers fun?"
end annoy

on annoy2 howMuch
	beep random(howMuch)
	alert "Aren't handlers fun?"
end annoy2 howMuch