home *** CD-ROM | disk | FTP | other *** search
/ HYPE / HYPE.ISO / city.dxr / 00312.ls < prev    next >
Encoding:
Text File  |  1996-09-05  |  533 b   |  22 lines
  1. on exitFrame
  2.   repeat while (the mouseH > 118) and (the mouseH < 315) and ((the mouseV > 191) and (the mouseV < 384))
  3.     cursor(3)
  4.     set the locH of sprite 10 to 214
  5.     set the foreColor of sprite 10 to random(256) - 1
  6.     puppetSound("tsur.wav")
  7.     updateStage()
  8.     if the mouseDown then
  9.       repeat with x = 316 to 324
  10.         set the castNum of sprite 10 to x
  11.         updateStage()
  12.       end repeat
  13.       cursor(4)
  14.       go("st_hist")
  15.       exit repeat
  16.     end if
  17.   end repeat
  18.   cursor(-1)
  19.   cback("7")
  20.   go(the frame)
  21. end
  22.