API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Mar 14th, 2011
128
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
TCL 10.26 KB | None | 0 0
raw download clone embed print report
  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}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!