Rick Wong provided these aliases for keeping track of the score in Snak.

alias a1 alias 1 msg rollbot roll $C 1
alias a2 alias 2 msg rollbot roll $C 2
alias a3 alias 3 msg rollbot roll $C 3
alias rbot
{
    a1
    a2
    a3
}
assign gnum 1
assign home SJC
assign HSCORE 0
assign VSCORE 0
alias t topic Game $gnum: $VISITOR $VSCORE $HOME $HSCORE $innhalf$INNING

assign innhalf t
assign INNING 1
alias ei {
    if (rmatch($INNHALF t))
    { assign innhalf b
      if (($HSCORE > $VSCORE) && ($INNING >= 9))
      { assign innhalf final
      }
    }
    { @ INNING++
      assign innhalf t
      if (($VSCORE > $HSCORE) && ($INNING > 9))
      {    assign innhalf final
          @ INNING--
      }
    }
    t
}

alias s {
    if (rmatch($INNHALF t))
    {    if ([$0]) { @ VSCORE = VSCORE + [$0] } { @ VSCORE++ }
    }
    {    if ([$0]) { @ HSCORE = HSCORE + [$0] } { @ HSCORE++ }
    }
    t
}

alias nextgame {
    @ gnum = gnum + 1
    assign HSCORE 0
    assign VSCORE 0
    assign innhalf t
    assign INNING 1
}

alias f1 1
alias f2 2
alias f3 3
alias f8 s
alias f9 ei