home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 April / Macworld (1999-04).dmg / Cool Specials / Al Morale Demo / Al's Stuff / D200.DCR / 00137_Al Action Handlers.ls < prev    next >
Encoding:
Text File  |  1999-02-16  |  503 b   |  41 lines
  1. on enterFrame
  2.   blinky()
  3.   CheckGreet()
  4. end
  5.  
  6. on CheckGreet
  7.   global gFlatNow
  8.   if gFlatNow = 0 then
  9.     PlayNick()
  10.   else
  11.     if gFlatNow = 200 then
  12.       preLoadMovie("F200")
  13.       go(1, "F200")
  14.     else
  15.       nothing()
  16.     end if
  17.   end if
  18. end
  19.  
  20. on blinky
  21.   set eyetest to random(35)
  22.   if eyetest = 5 then
  23.     go(the frame + 1)
  24.   else
  25.     tie()
  26.   end if
  27. end
  28.  
  29. on tie
  30.   set Altie to random(200)
  31.   if Altie = 1 then
  32.     go(the frame + 2)
  33.   else
  34.     nothing()
  35.   end if
  36. end
  37.  
  38. on exitFrame
  39.   go(the frame)
  40. end
  41.