チャットに接続していない人に、伝言をおくるサービスです。

サーバに常駐しているCHOCOA上でCHOCOA Script言語を利用して 開発しています。
CHOCOA Scriptについては、CHOCOAのホームページをご覧ください。
スクリプトは、CHOCOAバージョン 1.0から対応しています。
0.2f18 など 1.0未満のバージョンでは利用できません。

ファイル: post.csf
このファイルをボット用のCHOCOAに
メニュー「設定」−「スクリプト設定」で「追加」します。
通常の利用者のCHOCOAに組み込むと、その人からは伝言を行なうことができません。
次に、伝言を利用したいチャンネルにボットを接続します。
※「スクリプト設定」メニューがない場合は、CHOCOAのバージョンが違います。
　1.0Beta2 以降をお使いください。

伝言を送る人は、伝言を残したいチャンネルで次の書式で発言します。

伝言　相手のニックネーム　伝言の内容

たとえば

伝言 kawabata 今日はもう寝ます

ニックネームには、カンマで区切って何人でも指定できます。

伝言 kawabata,hide,mizu そろそろ締切 !

伝言は、何件でも登録することができます。
伝言が登録されると、ボットから「xxx 宛ての伝言を預かりました」と表示されます。

チャンネルに接続したときに、自分宛ての伝言があるとボットから伝言の内容が 伝えられます。

伝言は、ボットの動作するマシンの c:\program files\chocoa\post.txtに 保存されます。
ファイル名は、post.csf ファイルの先頭に定義してある文字列で指定しています。
また、伝言は、チャンネル毎に保存します。

CHOCOA Scriptでどのようなことができるかと、いろいろ挑戦しています。
社内では、AL-Mailのアドレス帳から検索するスクリプトや、自動的に オーナーを割り振るスクリプトなども作成しています。

/Service 伝言サービス
{
/Function
{
  /init
  {
    %PostFile = "c:\program files\chocoa\post.txt"
  }

  /postset
  {
    %m = "$msg"
    /if ( $ismatchnocase( "%m" , "## *") == 1)
    {
       %m = "$mid( "%m", 3)"   
    }
    /if ( $ismatchnocase( "%m" , "##*") == 1)
    {
       %m = "$mid( "%m", 2)"   
    }
    /if (( $ismatchnocase( "%m" , "post *" ) == 1 ) || ( $ismatchnocase( "%m" , "伝言 *" ) == 1 ))
    {
       %m = "$mid( "%m" , 5)"
       %t = "$gettok( "%m", 1, $asc(" "))"
       %u = $len("%t")
       %b = $mid( "%m", %u)
       %n = 1
       :LOOP3
          %tn = "$gettok("%t", %n, $asc(","))"
          /if ("%tn" == -1) /goto END3
          %s = $chan $lower("%tn") $mid( $date , 4, 2) $+ / $+ $mid( $date , 6, 2) $mid($time , 0 , 5) < $+ $nick $+ > %b 
          $addtail(%PostFile, %s)
          %n = %n + 1
          /goto LOOP3
       :END3
       /privmsg $chan %t 宛ての伝言を預かりました
    }
  }

  /postget
  {
    %s = $findlinenums( %PostFile, $chan $lower($nick) * )
    %n = 1
    /if ( "%s" != "0" )
    {
      /privmsg $nick "★伝言をお伝えします★"
      :LOOP1
        %sn = $gettok( %s, %n, 32)
        /if (%sn <= 0) /goto END1
        /privmsg $nick $deltok($getat( %PostFile, %sn ), 2, 32)
        %n = %n + 1
        /goto LOOP1
      :END1
      %n = %n - 1
      :LOOP2
        /if (%n < 1) /goto END2
        %sn = $gettok( %s, %n, 32)
        /if (%sn <= 0) /return
        $removeat( %PostFile, %sn )
        %n = %n - 1
        /goto LOOP2
      :END2
      /part $nick
     }
  }


}
/Event
{
  on * : INPUT : * : /postset
  on * : TEXT : * : * : /postset
  on * : JOIN : * : /postget
}
/Access
{
}
/PopupMain
{
}
/PopupUser
{
}
}
/Var
{
%m kawa-tst テスト
%n 1
%tn kawa-tst
%sn 8
%s 0
%b テスト
%t kawa-tst
%u 8
%postfile D:\kawabata\wwwroot\irc\post.txt
}