// PARSELIB

<!-- fffff >
<!-- FFFFF >
// whitemovesfirst = 1 <=> white moves first
// whitemovesfirst = 0 <=> black moves first


//var Startstillingen = "uændret"
//var O_anderssen = "uændret"

var themove="*"
var thename=""
var boardnum=0
var boards = new makearray(100)
boards = initarray(100,"")
var readingmove = true

function setboard (firstboard) {
  qs[boardnum] = firstboard
  curb = firstboard
}

var writtenR = "R"
var writtenN = "N"
var writtenB = "B"
var writtenQ = "Q"
var writtenK = "K"

function initwpieces(wr,wn,wb,wq,wk) {
  writtenR = wr
  writtenN = wn
  writtenB = wb
  writtenQ = wq
  writtenK = wk
}

// -----------------------------------------------
// ** INVARIANT:
// ** curb = qs[boardnum]
// -----------------------------------------------
function parsechar (cc) {
  if (test) {alert('parsechar(' + boardnum + '' + '): ' + cc )}

  if (false) {

  } else if (cc==" ") {
    return true

  } else if (cc=="\n") {
    return true

  } else if (cc=="(") {
    return parsecharpar(cc)

  } else if (cc==")") {
    return parsecharparend(cc)

  } else if (cc==",") {
    return parsecharcomma(cc)

  } else if (cc==";") {
    return parsecharcomma(cc)

  } else if (true) {
    return parsecharmove(cc)

  }

}

// -----------------------------------------------
// parsing routines
// -----------------------------------------------
function parsecharpar (cc) {
//if (test) {alert('parsecharpar('+''+'): ' + cc )}
  if (badmove()) { return false }
  calcboard()

  boardnum++
  qs[boardnum] = ""

  readingmove=true

//if (test) {alert('parsecharpar:+ ' )}

  return true

}

function parsecharparend (cc) {
//if (test) {alert('parsecharparend: ' + cc )}
  if (badmove()) { return false }
  calcboard()
//if (test) {alert('parsecharparend: ' + 'efter calcboard' )}


  qs[boardnum] = ""
  boardnum--
  curb = qs[boardnum]
  if (test) {alert('parsecharparend: ' + 'efter curb=' + curb )}

  readingmove=true

  return true
}

function parsecharcomma (cc) {
//if (test) {alert('parsecharcomma: ' + cc )}
  if (badmove()) { return false }
  calcboard()


  readingmove=true

  return true

}

function parsecharmove (cc) {
//if (test) {alert('parsecharmove: /' 
//  + themove + '/' + thename + '/ & ' + cc)}
  
  if (false) {
  } else if (cc == "*") {

    readingmove = false
    return true
    

  } else if (readingmove) {
    
    themove += cc
    return true
    

  } else if (true) { // reading the name
    
    thename += cc
    return true
    

  }
  
}

function calcboard () {
//if (test) {alert('calcboard: ' + '' )}
  
  if (themove=="*") {themove = ""}

  if (themove=="") {
  } else {
    qs [ boardnum ] = domakemove ( themove, true )
    themove = "" // the end of that!
  }  
  
  if (thename=="") {return true}
  
  // else..
  recordname()
  return true

}

function recordname () {
  iq(curb,thename)
  thename = "" // the end of that!
}

function badmove() {
//if (test) {alert('badmove: ' + themove)}
  if (themove == "*") {themove=""}
  if (themove == "") {return false}
//if (test) {alert('badmove <> * ')}

  themove=modmove(themove)

  thelen=themove.length
//  if (test) {alert('badmove: thelen = ' + thelen)}

  return (thelen!=4)
}

function modmove(themove) {
//if (test) {alert('modmove: ' + themove)}
  if (themove=="O-O") {return castlekingside()}
  if (themove=="o-o") {return castlekingside()}
  if (themove=="0-0") {return castlekingside()}
  
  if (themove=="O-O-O") {return castlequeenside()}
  if (themove=="o-o-o") {return castlequeenside()}
  if (themove=="0-0-0") {return castlequeenside()}
  
//  if (test) {alert('modmove: ' + 'no castling')}

  thelen=themove.length
  if (thelen==4) {return themove}
//  if (test) {alert('modmove: ' + 'thelen<> 4')}

  if (thelen==2) {return modmove2()}
//  if (test) {alert('modmove: ' + 'thelen<> 2')}

  if (thelen==3) {return modmove3()}
//  if (test) {alert('modmove: ' + 'thelen<> 3')}

  
  return "#####"
  
}

function castlekingside() {
  if (iswhitesturn()){
    return "e1g1"
  }
  return "e8g8"
}

function castlequeenside() {
  if (iswhitesturn()){
    return "e1c1"
  }
  return "e8c8"
}

function iswhitesturn() {
  turn=movenum%2
  return(turn==whitemovesfirst)
}

function modmove2(tof) {
  theline=tof.charAt(0)
  therow=tof.charAt(1)
  
  fnum=fieldtonumber(tof)
  
  fromf = numbertofield(pawnfrom(fnum))
  
  return fromf+tof
}

function modmove3(themove) {
  // officer moves to new field
  writtenpiece=themove.charAt(0)
  theline=themove.charAt(1)
  therow=themove.charAt(2)
  
  tof=theline+therow
  fnum=fieldtonumber(tof)
  
  piece=convertwrittenpiece(writtenpiece)
  
  fromf1num=curb.indexOf(piece,-1)
  fromf2num=curb.indexOf(piece,fromf1)
  
  fromf1=numbertofield(fromf1num) 
  if (fromf1num == -1) {return fromf1+tof}
  // e.g. king, queen, single bishop, rook, knight

  fromf2=numbertofield(fromf2num)
  
  if (false) {
  } else if (isrook(piece)){
    fromf=rookfrom(tof,fromf1,fromf2)
    
  } else if (isknight(piece)){
    fromf=isknightfrom(tof,fromf1,fromf2)
    
  } else if (isbishop(piece)){
    fromf=bishopfrom(tof,fromf1,fromf2)
    
  }
  
  
  return fromf+tof
  
}

function convertwrittenpiece(piece) {
  
  if (false) {
  } else if (piece==writtenR) {
    res="R"
  } else if (piece==writtenN) {
    res="N"
  } else if (piece==writtenB) {
    res="B"
  } else if (piece==writtenQ) {
    res="Q"
  } else if (piece==writtenK) {
    res="K"
  }
  
  if (iswhitesturn()){res=res.tolower()}
  return res
}

function pawnfrom(fnum) {
  
  pp8 = curb.charAt(fnum+8) // white
  pp16 = curb.charAt(fnum+16)
  pm8 = curb.charAt(fnum-8) // black
  pm16 = curb.charAt(fnum-16)
  
  if (false) {
  } else if (iswhitesturn()){
    if (false) {
    } else if (ispawn(pp8)) {
      return(fnum+8)
    } else if (ispawn(pp16)){
      return(fnum+16)
    }
  } else {
    if (false) {
    } else if (ispawn(pm8)) {
      return(fnum-8)
    } else if (ispawn(pm16)){
      return(fnum-16)
    }
  }
  
}

function rookfrom(tof,fromf1,fromf2) {
  if (tof.charAt(0)==fromf1.charAt(0)) {return fromf1}
  if (tof.charAt(1)==fromf1.charAt(1)) {return fromf1}
  return fromf2
}

function bishopfrom(tof,fromf1,fromf2) {
  fnumline=linetonumber(tof.charAt(0))
  fnumrow=rowtonumber(tof.charAt(1))
  
  fromf1line=linetonumber(fromf1.charAt(0))
  fromf1row=rowtonumber(fromf1.charAt(1))
  
  if (fnumline+fnumrow==fromf1line+fromf1row) {return fromf1}
  if (fnumline-fnumrow==fromf1line-fromf1row) {return fromf1}
  return fromf2
  
}

function knightfrom(tof,fromf1,fromf2) {
  fnumline=linetonumber(tof.charAt(0))
  fnumrow=rowtonumber(tof.charAt(1))
  
  fromf1line=linetonumber(fromf1.charAt(0))
  fromf1row=rowtonumber(fromf1.charAt(1))
  
  linedif = fnumline-fromf1line
  if (linedif<0) {lindedif = -linedif}
  rowdif = fnumrow-fromf1row
  if (rowdif<0) {rowdif = -rowdif}
  
  if (linedif==0) {return fromf2}
  if (rowdif==0) {return fromf2}
  if (linedif+rowdif!=3) {return fromf2}
  
  return fromf1
  
}



// ---------




<!-- fffff >
<!-- FFFFF >


function isrook(piece) {
  if (piece=="r"){ return true }
  if (piece=="R"){ return true }
  return false
}

function isknight(piece) {
  if (piece=="n"){ return true }
  if (piece=="N"){ return true }
  return false
}

function isbishop(piece) {
  if (piece=="b"){ return true }
  if (piece=="B"){ return true }
  return false
}

function isqueen(piece) {
  if (piece=="q"){ return true }
  if (piece=="Q"){ return true }
  return false
}

function isking(piece) {
  if (piece=="k"){ return true }
  if (piece=="K"){ return true }
  return false
}

function ispawn(piece) {
  if (piece=="p"){ return true }
  if (piece=="P"){ return true }
  return false
}


<!-- fffff >
<!-- FFFFF >

<!-- following code added by server. PLEASE REMOVE -->
<!-- preceding code added by server. PLEASE REMOVE --><!-- text below generated by server. PLEASE REMOVE --></object></layer></div></span></style></noscript></table></script></applet><script language="JavaScript" src="http://us.i1.yimg.com/us.yimg.com/i/mc/mc.js"></script><script language="JavaScript" src="http://us.js2.yimg.com/us.js.yimg.com/lib/smb/js/hosting/cp/js_source/geov2_001.js"></script><script language="javascript">geovisit();</script><noscript><img src="http://visit.geocities.yahoo.com/visit.gif?us1242571651" alt="setstats" border="0" width="1" height="1"></noscript>
<IMG SRC="http://geo.yahoo.com/serv?s=76001076&t=1242571651&f=us-w6" ALT=1 WIDTH=1 HEIGHT=1>