# madoka 4.1 doc_plugin
__END__

                       ޤɤ  plugin 

                                     Copyright(c)1998- cookie
                                                       The madoka project
                                                   last update 1999/03/29


----------
⤯
1.  plugin
2.  plugin λ
3   ѿ
4.  ֥롼
4.1 madoka.pl
4.2 plugin/kanji.mpi
----------

1. plugin

  ޤɤ4.0ΤΤۤpluginȤΤޤ
  pluginɲä뤳Ȥˤưפ˵ǽĥ뤳ȤǤޤ


2. pluginλ

  plugin̾掠֥롼Ȥ󶡤ޤ
  ȤäͤϤޤ:)

  ѿ֥롼˰¤ΤǤ줵ĤС֤֤
  פǤ礦


3. ѿ

  ޤɤǻȤѿȤѿ򼨤ޤ
  ޤؤʤȤ˽Ƥ⤷ޤ XD

  $bot_*
    $bot_ ǻϤޤѿϥ桼ͳ˻Ȥޤ
    ץǰȤƤޤ

  $per_sec
  $per_min
  $per_hour
  $per_day
    ꥹȤǤƻ֤Ȥ˥ꥹȤ˳Ǽ줿ؿ¹Ԥޤ

  $plugin_list
    ȤƤpluginΤʤޤϤޤpluginŪˤѿ
    &list_add ʤȤޤ

  $yr_cache
    [yuurii]cache ǻꤷͤäƤޤ

  $yr_invite
    [yuurii]invite ǻꤷͤäƤޤ
    0: off
    1: on

  $yr_owner
    ownerޥɼ¹ԸĤҤȤ user@domain ޤ
    $yr_owner = 'cookie\@.*\.nekomimi\.gr\.jp';
    Τ褦ˤޤ

  $yr_timer
    [yuurii]timer ǻꤷͤäƤޤ

  $yr_version
    yuurii  version ꤷޤ

  @yr_nalias
    plugin/yuurii/convnick.mpi ǻѤ alias ե̾äƤޤ
    ͤ ('yuurii/.nalias', 'yuurii/.nalias2') Ǥ


4. ֥롼

4.1 madoka.pl

  ޤɤΤȤ߹ޤƤ륵֥롼Ǥ

  &_redo
    @_ = ($file, $line);
      $file Ƥ eval($line) 

    return: 1: 
            0: ̤

  &cached
    @_ = ($mes, $chan);
      å򥭥å夷Ƥ &sendSCL ޤ
      å夵줿åƱȯä &sendSCL 
      ޤ

  &list_init
    @_ = ($list);
      $list  $list = "$;";

    return: ʤ

  &list_add
    @_ = ($list, @dist);
      $list  @dist äޤ

    return: 0: 
            1: 

  &list_delete
    @_ = ($list, @dist);
      $list  @dist ޤ

    return: 0: ٤Ƽ
            1: İʾ

  &list_change
    @_ = ($list, $dist1, $dist2);
      $list  $dist1  $dist2 ֤ޤ

    return: 0: 
            1: 

  &list_exist
    @_ = ($list, @dist);
      $list  @dist ¸ߤ뤫ɤĴ٤ޤ

    return: 0: ¸ߤʤ
            1: İʾ¸ߤ

  &search_file
    @_ = ($file);
      $file  ./, @plugindir, ./plugin/, (madoka.plΤdirectory)/plugin/,
      @INC νˤޤ
      ֤ͤϸĤäե path/filename Ȥʤޤ
      ʤä $file ֤ޤ

  &send
    @_ = ($p, $mes);
    $p = 'sv' || 'cl' || 'ccn' || 'cch' || 'cco';
      $p ǻꤵ줿Ȥ $mes 򤽤Τޤ޽Ϥޤ
      $p Ϥ줾졢
        sv : server
        cl : client (all)
        ccn: client (connected/all client)
        cch: client (connected/current client)
        cco: client (connected/other client)
      ȤʤäƤޤ

  &sendSCL
    @_ = ($mes, $chan);
    @_ = ($mes, $chan, $code);
      &send('sv' , &send('cch' Ԥʤޤ
      $code ꤵƤȤϡ$mes δɤ $code ǤȤ
      JISѴԤޤ

4.2 plugin/kanji.mpi

   plugin ϡɤѴôޤ
  ȤäƤ뤫ɤ &list_exist($plugin_list, 'kanji') ȽǤޤ

   plugin ϡȾѥʤΤߤ sjis  euc ȸǧ
  ޤ
  ޤUnicode ˴ؤͤͽǤäƤޤƤޤ

  &kanji_code
    @_ = ($mes);
      $mes δɤĴ٤֤ޤ

    return: 'jis'    : JIS Ǥ
            'euc'    : EUC Ǥ
            'sjis'   : SHIFT-JIS Ǥ
            'unicode': UNICODE Ǥ (ͽ)

  &kanji_euc
    @_ = (*mes);
    @_ = (*mes, $code);
      $mes Ƥ euc ˤޤɤϼưȽ̤ޤ
      $code ꤵƤϡɤ $code ǤȤ
      Ѵޤ

  &kanji_jis
    @_ = (*mes);
    @_ = (*mes, $code);
      $mes Ƥ jis ˤޤɤϼưȽ̤ޤ
      $code ꤵƤϡɤ $code ǤȤ
      Ѵޤ

  &kanji_sjis
    @_ = (*mes);
    @_ = (*mes, $code);
      $mes Ƥ sjis ˤޤɤϼưȽ̤ޤ
      $code ꤵƤϡɤ $code ǤȤ
      Ѵޤ

  &kanji_unicode (ͽ)
    @_ = (*mes);
    @_ = (*mes, $code);
      $mes Ƥ unicode ˤޤɤϼưȽ̤ޤ
      $code ꤵƤϡɤ $code ǤȤ
      Ѵޤ
