home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha 2006 April / SGP.iso / dema / Keepsake-Demo-en-li-v1.0.exe / res / bin / common / compat.tcl next >
Text File  |  2005-10-29  |  1KB  |  64 lines
  1. proc getVar { n } {
  2.     return [ozGet $n]
  3. }
  4.  
  5. proc setVar { n v } {
  6.     return [ozSet $n $v]
  7. }
  8.  
  9. proc getSystemVar { n } {
  10.     return [ozGet "sys$n"]
  11. }
  12.  
  13. proc setPlayerPos { x y z } {
  14.     return [wizEntitySetPosition Lydia "$x $y $z"]
  15. }
  16.  
  17. proc playSound { sound x y z loop } {
  18.     return [wizSoundPlay $sound $x $y $z $loop]
  19. }
  20.  
  21. proc loadSound { sound } {
  22.     return [wizSoundCreate $sound]
  23. }
  24.  
  25. proc playMusic {music} {
  26.     oz'track::play $::music_track $music -repeat 1
  27. }
  28.  
  29. proc wizSoundCreate { soundfile } {
  30. }
  31.  
  32. proc wizSoundPlay { soundfile { x "0" } { y "0" } { z "0" } { loop "false" } } {
  33. }
  34.  
  35. proc wizSoundStop { soundfile } {
  36. }
  37.  
  38. proc wizSoundTime { soundfile } {
  39.     return 0
  40. }
  41.  
  42. proc wizSpriteRemoveAll { } {
  43.   ozSprite removeAll
  44. }
  45.  
  46. proc wizqSpriteRemoveAll { } {
  47.   chainEvent {
  48.     ozSprite removeAll
  49.   }
  50. }
  51.  
  52. proc wizDisplayError { procname } {
  53.   set errmsg [ozGetErrorMsg]
  54.  
  55.   if { $errmsg != "No error" } {
  56.     ozWarning "$procname has generated an error!\n\n$errmsg"
  57.     return 1
  58.   }
  59.  
  60.   return 0
  61. }
  62.  
  63. proc stopMovie {} {}
  64.