home *** CD-ROM | disk | FTP | other *** search
/ Computer Life: SuperPac / SuperPac (Computer Life Magazine)(Ziff-Davis)(1995).ISO / pc / demos / nile / senet.exe / senet.DXR / 00149_HumanPlayer Button.ls < prev    next >
Encoding:
Text File  |  1995-05-04  |  497 b   |  22 lines
  1. on mouseDown
  2.   set the castNum of sprite the clickOn to the number of cast "Player Button Down"
  3.   updateStage()
  4.   repeat while the mouseDown
  5.   end repeat
  6. end
  7.  
  8. on mouseUp
  9.   global theSenetGame
  10.   set the castNum of sprite the clickOn to the number of cast "Player Button Up"
  11.   updateStage()
  12.   PlayerToggle()
  13.   resetGame(theSenetGame)
  14.   repeat with x = 1 to 48
  15.     puppetSprite(x, 0)
  16.     updateStage()
  17.   end repeat
  18.   StartTheGame()
  19.   set the computerPlayer of theSenetGame to 0
  20.   go("StartGame")
  21. end
  22.