home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / bin / common / other.tcl < prev    next >
Text File  |  2005-10-29  |  3KB  |  160 lines
  1. proc wizqZoomIn { camera { backevent "" } } {
  2.     chainEvent {
  3.         wizDisableMouse
  4.     }
  5.   oz'event {oz'delay 0.001}
  6.   chainEvent {standardFadeout}
  7.   chainEvent {freezePlayer}
  8.   
  9.     
  10.   eval [subst {
  11.     chainEvent {
  12.       wizEntityHide Lydia
  13.       if { \"[ozGet "puzzleZak"]\" == "complete" } {
  14.         wizEntityHide Zak
  15.       }
  16.       setCamera $camera      
  17.     }
  18.     chainEvent { 
  19.       wizhCameraChange 
  20.       iactive interface.sidebar false
  21.       ozIMenu disable menu
  22.       MainDisableTalk
  23.       if { "$backevent" != "" } {
  24.         hConvBackEvent $backevent
  25.       }
  26.   }
  27.   oz'event {oz'delay 0.001}
  28.   chainEvent {standardFadein}
  29.     chainEvent {
  30.         wizEnableMouse
  31.     }
  32.   
  33.   }]
  34. }
  35.  
  36. proc wizqZoomOut { camera } {
  37.     chainEvent {
  38.         wizDisableMouse
  39.     }
  40.   oz'event {oz'delay 0.001}
  41.   chainEvent {standardFadeout}
  42.     
  43.   eval [subst {
  44.     chainEvent {
  45.       setCamera $camera
  46.     }
  47.     chainEvent { 
  48.       wizhCameraChange 
  49.       MainEnableSidebar
  50.       MainEnableTalk
  51.     }
  52.     chainEvent {
  53.       wizEntityShow Lydia
  54.       if { \"[ozGet "puzzleZak"]\" == "complete" && \"[ozGet "zakHide"]\" != "initiated"} {
  55.         wizEntityShow Zak
  56.       }
  57.     }
  58.     oz'event {oz'delay 0.001}
  59.     chainEvent {standardFadein}
  60.     chainEvent {
  61.         unfreezePlayer
  62.         wizEnableMouse
  63.     }
  64.  
  65.   }]
  66. }
  67.     
  68. proc wizqTransitionIn { camera } {
  69.   eval [subst {
  70.     chainEvent {
  71.       freezePlayer
  72.       cameraFadeout 500
  73.       delay 500
  74.     }
  75.     chainEvent {
  76.       setCamera $camera
  77.       cameraFadein 500
  78.       delay 500
  79.     }
  80.   }]
  81. }
  82.  
  83. proc wizqTransitionOut { camera } {
  84.   eval [subst {
  85.     chainEvent {
  86.       cameraFadeout 500
  87.       delay 500
  88.     }
  89.     chainEvent {
  90.       setCamera $camera
  91.       cameraFadein 500
  92.       delay 500
  93.     }
  94.     chainEvent {
  95.       unfreezePlayer
  96.     }
  97.   }]
  98. }
  99.  
  100. proc wizqOnceNOther { once other } {
  101.   eval [subst {
  102.     if { [ozGet "ono$once$other"] == "" } {
  103.       chainEvent { callEvent "$once" }
  104.       ozSet "ono$once$other" "ok"
  105.     } else {
  106.       chainEvent { callEvent "$other" }
  107.     }
  108.   }]
  109. }
  110.  
  111. proc wizEventStart { eventname } {
  112.   global runO$eventname
  113.  
  114.   if { ![info exists runO$eventname] } {
  115.       set runO$eventname ""
  116.   }
  117.   
  118.   if { [set runO$eventname] != "" } {
  119.     return "break"
  120.   }
  121.  
  122.   set runO$eventname "running"
  123.   return "continue"
  124. }
  125.  
  126. proc wizEventEnd { eventname } {
  127.   global runO$eventname
  128.   set runO$eventname ""
  129. }
  130.  
  131. proc wizqEventEnd { eventname } {
  132.   eval [subst {
  133.     chainEvent {
  134.       wizEventEnd "$eventname"
  135.     }
  136.   }]
  137. }
  138.  
  139. proc wizqQueue { id code } {
  140.   eval [subst {
  141.     chainEvent {
  142.       setThreadID $id
  143.       $code
  144.       chainEvent { delay 1 }
  145.       setThreadID 0
  146.     }
  147.   }]
  148. }
  149.  
  150. proc wizqWaitQueue { id } {
  151.   eval [subst {
  152.     chainEvent { 
  153.       if { \[getThreadSize $id] != 0 } {
  154.         eventState wait
  155.       }
  156.     }
  157.   }]
  158. }
  159.  
  160.