home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / puzzles / mill.clues.tcl < prev    next >
Text File  |  2005-10-29  |  4KB  |  127 lines
  1. event "millPuzzleCloseUpClue1" {
  2.     wizqTalkOpen
  3.         wizqTalkSay Unknown $::lng::machineClue1L1 ""
  4.         wizqTalkSay Unknown $::lng::machineClue1L2 ""
  5.         wizqTalkSay Unknown $::lng::machineClue1L3 ""
  6.         wizqTalkSay Unknown $::lng::machineClue1L4 ""
  7.         wizqTalkSay Unknown $::lng::machineClue1L5 ""
  8.         wizqTalkSay Unknown $::lng::machineClue1L6 ""
  9.     wizqTalkClose
  10.     ozSet millPuzzleCloseUpClue 2
  11. }
  12.  
  13. event "millPuzzleCloseUpClue2" {
  14.     wizqTalkOpen
  15.         wizqTalkSay Unknown $::lng::machineClue2L1 ""
  16.         wizqTalkSay Unknown $::lng::machineClue2L2 ""
  17.         wizqTalkSay Unknown $::lng::machineClue2L3 ""
  18.         wizqTalkSay Unknown $::lng::machineClue2L4 ""
  19.         wizqTalkSay Unknown $::lng::machineClue2L5 ""
  20.     wizqTalkClose
  21.     
  22.     ozSet millPuzzleCloseUpClue 3
  23. }
  24.  
  25. event "millPuzzleCloseUpClue3" {
  26.     wizqTalkOpen
  27.         wizqTalkSay Unknown $::lng::machineClue3L1 ""
  28.         wizqTalkSay Unknown $::lng::machineClue3L2 ""
  29.         wizqTalkSay Unknown $::lng::machineClue3L3 ""
  30.         wizqTalkSay Unknown $::lng::machineClue3L4 ""
  31.         wizqTalkSay Unknown $::lng::machineClue3L5 ""
  32.         wizqTalkSay Unknown $::lng::machineClue3L6 ""
  33.         wizqTalkSay Unknown $::lng::machineClue3L7 ""
  34.         wizqTalkSay Unknown $::lng::machineClue3L8 ""
  35.         wizqTalkSay Unknown $::lng::machineClue3L9 ""
  36.     wizqTalkClose
  37.     ozSet millPuzzleCloseUpClue 4
  38. }
  39.  
  40. event "millPuzzleCloseUpClue4" {
  41.   wizqTalkOpen
  42.   wizqTalkSay Unknown $::lng::generalClueSure ""
  43.  
  44.   wizqConvRemove "clues"
  45.   oz'event {oz'delay 0.01}
  46.   wizqConvAdd "clues" $::lng::generalClueNo "inGameWalkthrough.nevermind"
  47.   wizqConvAdd "clues" $::lng::generalClueYes "inGameWalkthrough.millPuzzleCloseUpComplete"
  48.   
  49.   chainEvent {
  50.       hConvUpdate
  51.       iactive interface.talk false
  52.       ozIMenu disable talk
  53.       iactive interface.back false
  54.       ozIMenu disable back
  55.   }
  56.  
  57.   wizqConvOpen 1
  58. }
  59.  
  60. event "millPuzzleCloseUpComplete" {
  61.   iactive interface.help true
  62.   ozIMenu enable help
  63.   wizDisableMouse
  64.   wizqConvClose 1
  65.  
  66.   set a [ozGet pzlMillCloseUpA]
  67.   set b [ozGet pzlMillCloseUpB]
  68.   set c [ozGet pzlMillCloseUpC]
  69.   set d [ozGet pzlMillCloseUpD]
  70.   set e [ozGet pzlMillCloseUpE]
  71.   set f [ozGet pzlMillCloseUpF]
  72.   set g [ozGet pzlMillCloseUpG]
  73.   set h [ozGet pzlMillCloseUpH]
  74.  
  75.   ozSet pzlMillCloseUpA 2
  76.   ozSet pzlMillCloseUpB 3
  77.   ozSet pzlMillCloseUpC 1
  78.   ozSet pzlMillCloseUpD 1
  79.   ozSet pzlMillCloseUpE 2
  80.   ozSet pzlMillCloseUpF 3
  81.   ozSet pzlMillCloseUpG 3
  82.   ozSet pzlMillCloseUpH 3
  83.  
  84.   if {[ozGet "sysCamera"] == "puzzleCloseUpA"} {
  85.     ozSet pzlMillCloseUpA $a
  86.     oz'event {pzlUseLever A 2}
  87.   }
  88.   
  89.   if {[ozGet "sysCamera"] == "puzzleCloseUpB"} {
  90.     ozSet pzlMillCloseUpB $b
  91.     oz'event {pzlUseLever B 3}
  92.   }
  93.  
  94.   if {[ozGet "sysCamera"] == "puzzleCloseUpC"} {
  95.     ozSet pzlMillCloseUpC $c
  96.     oz'event {pzlUseLever C 1}
  97.   }
  98.   
  99.   if {[ozGet "sysCamera"] == "puzzleCloseUpD"} {
  100.     ozSet pzlMillCloseUpD $d
  101.     oz'event {pzlUseLever D 1}
  102.   }
  103.   
  104.   if {[ozGet "sysCamera"] == "puzzleCloseUpE"} {
  105.     ozSet pzlMillCloseUpE $e
  106.     oz'event {pzlUseLever E 2}
  107.   }
  108.  
  109.   if {[ozGet "sysCamera"] == "puzzleCloseUpF"} {
  110.     ozSet pzlMillCloseUpF $f
  111.     oz'event {pzlUseLever F 3}
  112.   }
  113.  
  114.   if {[ozGet "sysCamera"] == "puzzleCloseUpG"} {
  115.     ozSet pzlMillCloseUpG $g
  116.     oz'event {pzlUseLever G 3}
  117.   }
  118.   
  119.   if {[ozGet "sysCamera"] == "puzzleCloseUpH"} {
  120.     ozSet pzlMillCloseUpH $h
  121.     oz'event {pzlUseLever H 3}
  122.   }
  123.   
  124.   oz'event {wizEnableMouse}
  125. }
  126.  
  127.