home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / files / gui.cxt / 00501_keyScript.txt < prev    next >
Encoding:
Text File  |  1998-12-09  |  2.9 KB  |  96 lines
  1. if not (the movie contains "start") then
  2.   if not (the movie contains "0") then
  3.     pass
  4.     return
  5.   end if
  6. end if
  7.  
  8. global keyString
  9. if voidP(keyString) then set keyString = ""
  10.  
  11. set theKey = the key
  12.  
  13. put theKey after keyString
  14.  
  15. global keyFlag
  16.  
  17. if (theKey = "x") and (the movie contains "start") then
  18.   puppetSound 1, 0
  19.   puppetSound 2, 0
  20.   updateStage
  21.   global gReturnMovie
  22.   goMovie(gReturnMovie)
  23. else if keyString contains "teamdh2" then
  24.   set keyString = ""
  25.   if not (the movie contains "start") then
  26.     puppetSound 0
  27.     killEverything
  28.     updateStage
  29.     global gReturnMovie, cdPath1, cdPath2, movieObject
  30.     set gReturnMovie = the movie
  31.     set movieObject = 0
  32.     if the pathname contains cdPath1 then
  33.       go to movie cdPath1 & "start"
  34.     else
  35.       go to movie cdPath2 & "start"
  36.     end if
  37.   end if
  38. else if keyString contains "reverse" then
  39.   set keyString = ""
  40.   global movieCheat, movieObject
  41.   set movieCheat = not movieCheat
  42.   if objectP(movieObject) then
  43.     if the frame <= 5 then
  44.    --   if the type of cast (the castNum of sprite the movieSprite of movieObject) = #digitalVideo then
  45.         set the movieRate of sprite the movieSprite of movieObject = - the movieRate of sprite the movieSprite of movieObject
  46.    --   end if
  47.    end if 
  48.  end if
  49. else if keyString contains "anus   " then
  50.    set keyString = ""
  51.    puppetSound 0
  52.    puppetSound "extraSound"
  53. else if keyString contains "jason  " then
  54.   set keyString = ""
  55.   set prevH = the locH of sprite 48
  56.   set prevV = the locV of sprite 48
  57.   set the castNum of sprite 48 = the number of member "extraPic"
  58.   set the locH of sprite 48 = 75
  59.   set the locV of sprite 48 = 75
  60.   set the visible of sprite 48 = TRUE
  61.   updateStage
  62.   wait 60
  63.   set the castNum of sprite 48 = the number of member "null"
  64.   set the locH of sprite 48 = prevH
  65.   set the locV of sprite 48 = prevV
  66. else if (keyString contains "pete   ") then
  67.   set keyString = ""
  68.   if not (the movie contains "10_01_03") then return
  69.   set the visible of sprite 48 = TRUE
  70.   set prevH = the locH of sprite 48
  71.   set prevV = the locV of sprite 48
  72.   set the locH of sprite 48 = 320
  73.   set the locV of sprite 48 = 240
  74.   repeat with k = 1 to 3
  75.     set the castNum of sprite 48 = the number of member "extraPic2"
  76.     updateStage
  77.     wait 15
  78.     set the castNum of sprite 48 = the number of member "extraPic3"
  79.     updateStage
  80.     wait 15
  81.   end repeat
  82.   set the castNum of sprite 48 = the number of member "null"
  83.   set the locH of sprite 48 = prevH
  84.   set the locV of sprite 48 = prevV
  85. else if (keyString contains "acequiz") then
  86.   set keyString = ""
  87.   if not (the movie contains "05_00") then return
  88.   global gQuizResults, gQuizQuestion, quizObject
  89.   setAt(gQuizResults, integer(char 1 to 2 of the movie), [[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20], [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20]])
  90.   set gQuizQuestion = the currentQuestion of quizObject
  91.   go to frame 1
  92. end if
  93.  
  94. if length(keyString) >= 10 then delete char 1 of keyString
  95.  
  96. pass