home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1998 January / macformat-059.iso / mac / Demos / Martial Arts Demo / media / inst.Dxr / Internal_1.ls < prev    next >
Encoding:
Text File  |  1997-09-30  |  2.6 KB  |  116 lines
  1. on startMovie
  2.   unloadMember()
  3. end
  4.  
  5. on mainButton
  6.   global mouseUpped, leftNavBtn, whichJump
  7.   if not (the mouseDown) then
  8.     set mouseUpped to 1
  9.   end if
  10.   if rollOver(26) then
  11.     if the mouseDown then
  12.       if mouseUpped = 1 then
  13.         puppetSprite(26, 1)
  14.         puppetSound(1, member 3 of castLib "internal sounds")
  15.         cursorSign()
  16.         set the member of sprite 26 to member (the memberNum of sprite 26 + 1) of castLib "graphics"
  17.         updateStage()
  18.         sixthSecDel()
  19.         set the member of sprite 26 to member (the memberNum of sprite 26 - 1) of castLib "graphics"
  20.         updateStage()
  21.         set mouseUpped to 0
  22.         repeat with a = 1 to 48
  23.           puppetSprite(a, 0)
  24.         end repeat
  25.         go("blackout")
  26.         go("main", "main.dir")
  27.         abort()
  28.       end if
  29.     end if
  30.     puppetSprite(46, 1)
  31.     set the member of sprite 46 to member the memberNum of member "main menu" of castLib "graphics"
  32.     set the locH of sprite 46 to 14
  33.     updateStage()
  34.   else
  35.     set the locH of sprite 46 to -100
  36.     puppetSprite(46, 0)
  37.   end if
  38. end
  39.  
  40. on cursorSign
  41.   cursor([member 9 of castLib "cursors", member 10 of castLib "cursors"])
  42. end
  43.  
  44. on cursorSignOff
  45.   cursor(0)
  46. end
  47.  
  48. on tenthSecDel
  49.   startTimer()
  50.   repeat while the timer < 6
  51.     nothing()
  52.   end repeat
  53. end
  54.  
  55. on sixthSecDel
  56.   startTimer()
  57.   repeat while the timer < 10
  58.     nothing()
  59.   end repeat
  60. end
  61.  
  62. on thirdSecDel
  63.   startTimer()
  64.   repeat while the timer < 20
  65.     nothing()
  66.   end repeat
  67. end
  68.  
  69. on halfSecDel
  70.   startTimer()
  71.   repeat while the timer < 30
  72.     nothing()
  73.   end repeat
  74. end
  75.  
  76. on oneSecDel
  77.   startTimer()
  78.   repeat while the timer < 60
  79.     nothing()
  80.   end repeat
  81. end
  82.  
  83. on scrollingFrames
  84.   global whichJump, mouseUpped
  85.   if the mouseDown then
  86.     if mouseUpped = 1 then
  87.       if rollOver(14) then
  88.         puppetSprite(14, 1)
  89.         cursorSign()
  90.         set the member of sprite 14 to member (the memberNum of sprite 14 + 1) of castLib "graphics"
  91.         puppetSound("STEP")
  92.         updateStage()
  93.         sixthSecDel()
  94.         set the member of sprite 14 to member (the memberNum of sprite 14 - 1) of castLib "graphics"
  95.         updateStage()
  96.         puppetSprite(14, 0)
  97.         go(the frame - 1)
  98.       end if
  99.       if rollOver(15) then
  100.         puppetSprite(15, 1)
  101.         cursorSign()
  102.         set the member of sprite 15 to member (the memberNum of sprite 15 + 1) of castLib "graphics"
  103.         puppetSound("STEP")
  104.         updateStage()
  105.         sixthSecDel()
  106.         set the member of sprite 15 to member (the memberNum of sprite 15 - 1) of castLib "graphics"
  107.         updateStage()
  108.         puppetSprite(15, 0)
  109.         go(the frame + 1)
  110.       end if
  111.     end if
  112.   else
  113.     cursor(0)
  114.   end if
  115. end
  116.