Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Mar 14th, 2011  |  syntax: TCL  |  size: 10.26 KB  |  views: 53  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. --- scid/scid   2011-03-14 20:26:28.215753758 +0100
  2. +++ scid.local/scid     2011-03-14 20:27:33.615713461 +0100
  3. @@ -997,6 +997,7 @@
  4.  set ::utils::sound::announceNew 0
  5.  set ::utils::sound::announceForward 0
  6.  set ::utils::sound::announceBack 0
  7. +set ::utils::sound::announceEnd 0
  8.  
  9.  # Spell-checking file: default is "spelling.ssp".
  10.  if {$windowsOS} {
  11. @@ -50673,7 +50674,7 @@
  12.  set ::utils::sound::soundQueue {}
  13.  set ::utils::sound::soundFiles [list \
  14.      King Queen Rook Bishop Knight CastleQ CastleK Back Mate Promote Check \
  15. -    a b c d e f g h x 1 2 3 4 5 6 7 8 move alert]
  16. +    a b c d e f g h x 1 2 3 4 5 6 7 8 move alert BlackResigns WhiteResigns Draw]
  17.  
  18.  # soundMap
  19.  #
  20. @@ -50684,7 +50685,7 @@
  21.  array set ::utils::sound::soundMap {
  22.    K King Q Queen R Rook B Bishop N Knight k CastleK q CastleQ
  23.    x x U Back # Mate = Promote  + Check alert alert
  24. -  a a b b c c d d e e f f g g h h
  25. +  a a b b c c d d e e f f g g h h y BlackResigns z WhiteResigns = Draw
  26.    1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8
  27.  }
  28.  
  29. @@ -50752,6 +50753,9 @@
  30.    
  31.    if {[string range $move 0 4] == "O-O-O"} { set move q }
  32.    if {[string range $move 0 2] == "O-O"} { set move k }
  33. +  if {$move == "1"} { set move y }
  34. +  if {$move == "0"} { set move z }
  35. +  
  36.    set move [::untrans $move]
  37.    set parts [split $move ""]
  38.    set soundList {}
  39. @@ -50778,6 +50782,9 @@
  40.    if {$::utils::sound::announceForward} { AnnounceMove $move }
  41.  }
  42.  
  43. +proc ::utils::sound::AnnounceEnd {move} {
  44. +  if {$::utils::sound::announceEnd} { AnnounceMove $move }
  45. +}
  46.  
  47.  proc ::utils::sound::AnnounceBack {} {
  48.    if {$::utils::sound::announceBack} { AnnounceMove U }
  49. @@ -50823,7 +50829,9 @@
  50.    set next [lindex $soundQueue 0]
  51.    set soundQueue [lrange $soundQueue 1 end]
  52.    set isPlayingSound 1
  53. -  catch { $next play -blocking 0 -command ::utils::sound::SoundFinished }
  54. +#  disable catch if sound not working
  55. +#  $next play -blocking 0 -command ::utils::sound::SoundFinished
  56. +  catch {$next play -blocking 0 -command ::utils::sound::SoundFinished }
  57.    after 5000 ::utils::sound::CancelSounds
  58.  }
  59.  
  60. @@ -50837,7 +50845,7 @@
  61.  proc ::utils::sound::OptionsDialog {} {
  62.    set w .soundOptions
  63.    
  64. -  foreach v {soundFolder announceNew announceForward announceBack} {
  65. +  foreach v {soundFolder announceNew announceForward announceBack announceEnd} {
  66.      set ::utils::sound::${v}_temp [set ::utils::sound::$v]
  67.    }
  68.    
  69. @@ -50898,6 +50906,11 @@
  70.    grid $f.announceBack -row $r -column 0 -columnspan 2 -sticky w
  71.    incr r
  72.    
  73. +  checkbutton $f.announceEnd -text $::tr(SoundsAnnounceEnd) \
  74. +      -variable ::utils::sound::announceEnd_temp
  75. +  grid $f.announceEnd -row $r -column 0 -columnspan 2 -sticky w
  76. +  incr r
  77. +  
  78.    dialogbutton $w.b.ok -text OK -command ::utils::sound::OptionsDialogOK
  79.    dialogbutton $w.b.cancel -text $::tr(Cancel) -command [list destroy $w]
  80.    packbuttons right $w.b.cancel $w.b.ok
  81. @@ -50934,7 +50947,7 @@
  82.    }
  83.    
  84.    # Update the user-settable sound variables:
  85. -  foreach v {soundFolder announceNew announceForward announceBack} {
  86. +  foreach v {soundFolder announceNew announceForward announceBack announceEnd} {
  87.      set ::utils::sound::$v [set ::utils::sound::${v}_temp]
  88.    }
  89.    
  90. @@ -88675,7 +88690,7 @@
  91.            gameInfo(showMaterial) gameInfo(showFEN) gameInfo(showTB) \
  92.            engineCoach1 engineCoach2 scidBooksDir scidBasesDir ::book::lastBook \
  93.            ::utils::sound::soundFolder ::utils::sound::announceNew \
  94. -          ::utils::sound::announceForward ::utils::sound::announceBack \
  95. +          ::utils::sound::announceForward ::utils::sound::announceBack ::utils::sound::announceEnd \
  96.            ::tacgame::threshold ::tacgame::blunderwarning ::tacgame::blunderwarningvalue \
  97.            ::tacgame::levelMin  ::tacgame::levelMax  ::tacgame::levelFixed ::tacgame::randomLevel \
  98.            ::tacgame::isLimitedAnalysisTime ::tacgame::showblunder ::tacgame::showblundervalue \
  99. @@ -92240,6 +92255,9 @@
  100.    set bArrows [::move::drawVarArrows]
  101.    
  102.    set move [sc_game info next]
  103. +#  if snack is busted - i.e. compiled without ALSA we can use the speak script from
  104. +#  crafty
  105. +#  set speech [exec ./speak $move]
  106.    if {$count == 1} {
  107.      if {[sc_var count] != 0 && ! $autoplayMode && $::showVarPopup} {
  108.        ::commenteditor::storeComment
  109. @@ -94013,6 +94031,7 @@
  110.          } else {
  111.              # Not in a batch, just stop
  112.              #
  113. +           ::utils::sound::AnnounceEnd [sc_game tags get Result]
  114.              cancelAutoplay
  115.              return
  116.          }
  117. @@ -99408,6 +99427,7 @@
  118.  translate E SoundsAnnounceNew {Announce new moves as they are made}
  119.  translate E SoundsAnnounceForward {Announce moves when moving forward one move}
  120.  translate E SoundsAnnounceBack {Announce when retracting or moving back one move}
  121. +translate E SoundsAnnounceEnd {Announce game result at the end}
  122.  
  123.  # Upgrading databases:
  124.  translate E Upgrading {Upgrading}
  125. @@ -101135,6 +101155,7 @@
  126.  translate K SoundsAnnounceNew {Anunciar noves jugades quan estiguin fetes}
  127.  translate K SoundsAnnounceForward {Anunciar jugades quan avancem una jugada}
  128.  translate K SoundsAnnounceBack {Anunciar jugada quan rectifiquem o retrocedim una jugada}
  129. +translate K SoundsAnnounceEnd {}
  130.  
  131.  # Upgrading databases:
  132.  translate K Upgrading {Actualització}
  133. @@ -102859,6 +102880,7 @@
  134.  translate C SoundsAnnounceNew {Oznamovat tahy pøi jejich provedení}
  135.  translate C SoundsAnnounceForward {Oznamovat tahy pøi posunu o tah vpøed}
  136.  translate C SoundsAnnounceBack {Oznamovat pøi vzetí tahu zpìt nebo posunu o tah zpìt}
  137. +translate C SoundsAnnounceEnd {}
  138.  
  139.  # Upgrading databases:
  140.  translate C Upgrading {Upgrade}
  141. @@ -108294,6 +108316,7 @@
  142.  translate D SoundsAnnounceNew {Kündige neue Züge an, wenn sie ausgeführt werden}
  143.  translate D SoundsAnnounceForward {Künde Zug an beim Vorwärtspielen}
  144.  translate D SoundsAnnounceBack {Kündige Zug an beim Zurückgehen}
  145. +translate D SoundsAnnounceEnd {}
  146.  
  147.  # Upgrading databases:
  148.  translate D Upgrading {Upgrading}
  149. @@ -115604,6 +115627,7 @@
  150.  translate F SoundsAnnounceNew {Annoncer les coups joués}
  151.  translate F SoundsAnnounceForward {Annoncer les coups quand avance d'un coup}
  152. translate F SoundsAnnounceBack {Annoncer quand retour arrière d'un coup}
  153. +translate F SoundsAnnounceEnd {}
  154.  
  155.  # Upgrading databases:
  156.  translate F Upgrading {Mise à jour}
  157. @@ -117579,6 +117603,7 @@
  158.  translate G SoundsAnnounceNew {Αναγγελία των νέων κινήσεων καθώς εκτελούνται}
  159.  translate G SoundsAnnounceForward {Αναγγελία όταν πρόκειται για μια κίνηση προς τα εμπρός}
  160.  translate G SoundsAnnounceBack {Αναγγελία όταν πρόκειται για αναδρομή ή για κίνηση προς τα πίσω}
  161. +translate G SoundsAnnounceEnd {}
  162.  
  163.  # Upgrading databases:
  164.  translate G Upgrading {Ενημέρωση}
  165. @@ -119284,6 +119309,7 @@
  166.  translate H SoundsAnnounceNew {Új lépés bemondása amint megtesszük}
  167.  translate H SoundsAnnounceForward {Lépés bemondása amikor egy lépést elõre lépünk}
  168.  translate H SoundsAnnounceBack {Lépés bemondása amikor visszaveszünk vagy egy lépést hátra lépünk}
  169. +translate H SoundsAnnounceEnd {}
  170.  
  171.  # Upgrading databases:
  172.  translate H Upgrading {Felújítás}
  173. @@ -121363,6 +121389,7 @@
  174.  translate I SoundsAnnounceNew {Announce new moves as they are made} ;# ***
  175.  translate I SoundsAnnounceForward {Announce moves when moving forward one move} ;# ***
  176.  translate I SoundsAnnounceBack {Announce when retracting or moving back one move} ;# ***
  177. +translate I SoundsAnnounceBack {Announce game result at end} ;# ***
  178.  
  179.  # Upgrading databases:
  180.  translate I Upgrading {Aggiornamento}
  181. @@ -123482,6 +123509,7 @@
  182.  translate N SoundsAnnounceNew {Kondig nieuwe zetten aan als ze gedaan worden} ;
  183.  translate N SoundsAnnounceForward {Kondig  aan als één zet vooruit gedaan wordt} ;
  184.  translate N SoundsAnnounceBack {Kondig  aan als één zet terug gedaan of genomen wordt} ;
  185. +translate N SoundsAnnounceEnd {}
  186.  
  187.  # Upgrading databases:
  188.  translate N Upgrading {Bijwerken}
  189. @@ -125520,6 +125548,8 @@
  190.  translate O SoundsAnnounceNew {Announce new moves as they are made} ;# ***
  191.  translate O SoundsAnnounceForward {Announce moves when moving forward one move} ;# ***
  192.  translate O SoundsAnnounceBack {Announce when retracting or moving back one move} ;# ***
  193. +translate O SoundsAnnounceEnd {Announce result at end} ;# ***
  194. +
  195.  
  196.  # Upgrading databases:
  197.  translate O Upgrading {Oppgraderer}
  198. @@ -127777,6 +127807,7 @@
  199.  translate P SoundsAnnounceNew {Announce new moves as they are made} ;# ***
  200.  translate P SoundsAnnounceForward {Announce moves when moving forward one move} ;# ***
  201.  translate P SoundsAnnounceBack {Announce when retracting or moving back one move} ;# ***
  202. +translate P SoundsAnnounceEnd {Announce game result at end} ;# ***
  203.  
  204.  # Upgrading databases:
  205.  translate P Upgrading {Konwersja}
  206. @@ -130056,6 +130087,7 @@
  207.  translate B SoundsAnnounceNew {Anuncia novos movimentos quando eles são feitos} ;# ***
  208.  translate B SoundsAnnounceForward {Anuncia movimentos quando avançar um movimento} ;# ***
  209.  translate B SoundsAnnounceBack {Anuncia movimentos quando retroceder um movimento} ;# ***
  210. +translate B SoundsAnnounceEnd {} ;# ***
  211.  
  212.  # Upgrading databases:
  213.  translate B Upgrading {Atualizando}
  214. @@ -131999,6 +132031,8 @@
  215.  translate R SoundsAnnounceForward {Announce moves when moving forward one move}
  216.  # ====== TODO To be translated ======
  217.  translate R SoundsAnnounceBack {Announce when retracting or moving back one move}
  218. +# ====== TODO To be translated ======
  219. +translate R SoundsAnnounceEnd {Announce game result at end} ;# ***
  220.  
  221.  # Upgrading databases:
  222.  translate R Upgrading {Îáíîâëåííûé}
  223. @@ -134244,6 +134278,7 @@
  224.  translate Y SoundsAnnounceNew {Announce new moves as they are made} ;# ***
  225.  translate Y SoundsAnnounceForward {Announce moves when moving forward one move} ;# ***
  226.  translate Y SoundsAnnounceBack {Announce when retracting or moving back one move} ;# ***
  227. +translate Y SoundsAnnounceEnd {Announce game result at end} ;# ***
  228.  
  229.  # Upgrading databases:
  230.  translate Y Upgrading {Unapreðivanje}
clone this paste RAW Paste Data