home *** CD-ROM | disk | FTP | other *** search
/ Computer Music Interactif 2 / cd.iso / mac / share / Funkit / FunKit / funkit16.Dxr / 00031.ls < prev    next >
Encoding:
Text File  |  1997-07-03  |  979 b   |  32 lines
  1. on checkkeydown
  2.   global gbanknum
  3.   case the key of
  4.     " ":
  5.       tappit()
  6.     "z":
  7.       puppetSound(2, cast (251 + (gbanknum * 200)) of castLib 2)
  8.     "x":
  9.       puppetSound(2, cast (252 + (gbanknum * 200)) of castLib 2)
  10.     "c":
  11.       puppetSound(2, cast (253 + (gbanknum * 200)) of castLib 2)
  12.     "v":
  13.       puppetSound(2, cast (254 + (gbanknum * 200)) of castLib 2)
  14.     "b":
  15.       puppetSound(2, cast (255 + (gbanknum * 200)) of castLib 2)
  16.     "n":
  17.       puppetSound(2, cast (256 + (gbanknum * 200)) of castLib 2)
  18.     "a":
  19.       puppetSound(3, cast (261 + (gbanknum * 200)) of castLib 2)
  20.     "s":
  21.       puppetSound(3, cast (262 + (gbanknum * 200)) of castLib 2)
  22.     "d":
  23.       puppetSound(3, cast (263 + (gbanknum * 200)) of castLib 2)
  24.     "f":
  25.       puppetSound(3, cast (264 + (gbanknum * 200)) of castLib 2)
  26.     "g":
  27.       puppetSound(3, cast (265 + (gbanknum * 200)) of castLib 2)
  28.     "h":
  29.       puppetSound(3, cast (266 + (gbanknum * 200)) of castLib 2)
  30.   end case
  31. end
  32.