wargon/cecp.jl at master · willcatton/wargon · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
#!/usr/bin/env julia

#include("chess.jl")

LOG=open("cecp.log","w")

function getcommand()
    cmd=readline()
    write(LOG,"> $(cmd)\n")
    flush(LOG)
    return cmd
end

function sendcommand(cmd)
    write(STDOUT,cmd)
    write(STDOUT,"\n")
    flush(STDOUT)
    write(LOG,"$(cmd)\n")
    flush(LOG)
end

function log(text)
    write(LOG,"# $(text)\n")
    flush(LOG)
end

function nextside(side)
    if side==:white
        return :black
    end
    return :white
end

function xboard()
    #game=[(Chess.Board(),:white)]
    play=:black

    while true
        fullcmd=getcommand()
        cmds=split(fullcmd)
        if length(cmds)>0
            cmd=cmds[1]
            if cmd=="protover"
                sendcommand("feature ping=1 setboard=1 playother=1 usermove=1 sigint=0 sigterm=0")
            end
            if cmd=="new"
                #game=[(Chess.Board(),:white)]
                play=:black
            end
            if cmd=="ping"
                sendcommand("pong $(cmds[2])")
            end
            if cmd=="usermove"
                textmove=cmds[2]
                #moves=Chess.usermoves(game[end]...)
                if haskey(moves,textmove)
                    #push!(game,(Chess.makemove(game[end][1],moves[textmove]),nextside(game[end][2])))
                else
                    sendcommand("Illegal move: $(textmove)")
                end
            end
            if cmd=="quit"
                break
            end
            if cmd=="remove"
                #game=game[1:end-2]
            end
        end
        if play==:black #game[end][2]
            #m=if play==:white
            #    #Chess.searchwhite(game[end][1],6)[1]
            #else
            #    #Chess.searchblack(game[end][1],6)[1]
            #end
            #textmove=Chess.move2alg(m)
            textmove = "e7e6\n"
            sendcommand("move $(textmove)")
            #push!(game,(Chess.makemove(game[end][1],m),nextside(game[end][2])))
        end
    end
end

xboard()