home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / intro.dir / 00003_Script_3 < prev    next >
Text File  |  1997-08-08  |  511b  |  28 lines
  1. on exitFrame
  2.   
  3.   global gpoll, gpolllist
  4.   global gkeylist, gkeyused, gjoylist
  5.   global gfunnykeys
  6.   
  7.   set language = "english"
  8.   
  9.   set the exitlock = true
  10.   
  11.   preloadmember 1, the  number of members
  12.   
  13.   hcheckdepth ( language )
  14.   
  15.   set gfunnykeys = value ( field ( "funny keys" && language ) )
  16.   
  17.   setpoll
  18.   set gpolllist = [ #left , #right ]
  19.   
  20.   set gkeylist = [ #quit: 12 ]
  21.   set gjoylist = [ : ]
  22.   
  23.   set gkeyused = [ "q" ]
  24.   
  25.   put " "  into field "pressed key"
  26.   
  27.   
  28. end