home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / INSTALL2.DXR / 00016.ls < prev    next >
Encoding:
Text File  |  1998-03-18  |  810 b   |  41 lines
  1. global myRo
  2.  
  3. on idle
  4.   set myRo to rollOver()
  5. end
  6.  
  7. on exitFrame
  8.   global timerb, myplatform
  9.   MenueButtons()
  10.   if myplatform = "NT" then
  11.     AuswahlZwei(30, 6, ["NT1", "2", "3", "NT4", "5", "6"])
  12.   else
  13.     AuswahlZwei(30, 6, ["1", "2", "3", "4", "5", "6"])
  14.   end if
  15.   BtROHandler(14)
  16.   BtROHandler(15)
  17.   set timerb to timerb + 1
  18.   if (timerb mod 30) = 0 then
  19.     set the visible of sprite 14 to not (the visible of sprite 14)
  20.   end if
  21.   go(the frame)
  22. end
  23.  
  24. on BtROHandler whichsprite
  25.   global timerb
  26.   if rollOver(whichsprite) then
  27.     set the visible of sprite whichsprite to not (the mouseDown)
  28.     set timerb to 0
  29.     updateStage()
  30.   else
  31.     set the visible of sprite whichsprite to 0
  32.   end if
  33. end
  34.  
  35. on mouseDown
  36.   if rollOver(14) or rollOver(15) then
  37.     puppetSound("Tief")
  38.     updateStage()
  39.   end if
  40. end
  41.