Geschrieben von:/Posted by: Gerhard Zintl at 13 February 2000 11:25:41:
Als Antwort auf:/As an answer to: Help needed for winboard script geschrieben von:/posted by: tony at 12 February 2000 01:37:39:
Having installed a variety of engines into Winboard and all working fine,
I would appreciate any advice on how to write a script that would
allow me to automate a round robin tournament between several
engines.
thanks in anticipation :>)
...Tony...
the script below works for me with MS Script Host environment. You have just to adapt the variables fp and sp to your need.
Have fun
Gerhard Zintl
'
' Batch Programme für Winboard
'
Dim WshSHell
DIM strprog(20,2),fp,sp
Set WshSHell = CreateObject("Wscript.Shell")
'
strpath = "C:\programme\"
'
strprog(0,0) = "amy "
strprog(0,1) = """amy_06 -ht 32m"" "
strprog(1,0) = "AnMon "
strprog(1,1) = """AnMon505 xboard"" "
strprog(2,0) = "ant "
strprog(2,1) = """ant416 -L -t32000"" "
strprog(3,0) = "arasan\arasan_5.3 "
strprog(3,1) = """arasan53 -H 8192"" "
strprog(4,0) = "bringer "
strprog(4,1) = """bringer /winboard"" "
strprog(5,0) ="comet "
strprog(5,1) ="comet_B15 "
strprog(6,0) = "DChess "
strprog(6,1) = "DChess1_0_2 "
strprog(7,0) = "Dragon "
strprog(7,1) = """Dragon311 xboard"" "
strprog(8,0) = "fortress "
strprog(8,1) = "fort161 "
strprog(9,0) = "gromit "
strprog(9,1) = """gromit220 -xboardquiet"" "
strprog(10,0) = "Inmich "
strprog(10,1) = "inmi301 "
strprog(11,0) = "techno "
strprog(11,1) = """knight_151 -h22 -dC:\programme\crafty\TB16"" "
strprog(12,0) = "Goliath\LG2000V2 "
strprog(12,1) = "LG2000V2 "
strprog(13,0) = "phalanx\phalanx-xxii "
strprog(13,1) = """phx-xxi -t8192 -r900 -Sc:\programme\phalanx -o- -l+"" "
strprog(14,0) = "SOS "
strprog(14,1) = """SOS c:\programme\crafty\tb16"" "
strprog(15,0) = "tcb43 "
strprog(15,1) = """tcb45 tcbxinit.cui"" "
strprog(16,0) = "Crafty\craftyDC "
strprog(16,1) = """wcraftyDC17_08 bookpath=c:\programme\crafty\\booksDC17 tbpath=C:\\programme\\crafty\\tb16"" "
strprog(17,0) = "ZCHESS "
strprog(17,1) = """ZCHESS12 xboard"" "
'
'
For fp=14 TO 17
For sp=4 TO 7
If fp sp Then
WshSHell.Run strpath & "winboard\" + "winboard.exe /cp /xexit /xreuse /xreuse2 /tc 5 /inc 2 /mg 2 " &_
"/fd " & strpath & strprog(fp,0) & "/fcp " & strprog(fp,1) &_
"/sd " & strpath & strprog(sp,0) & "/scp " & strprog(sp,1) , _
1,TRUE
End If
NEXT
NEXT
WScript.Quit () ' ready