memo_v03

; Memo Script v0.3
; Copyleft By Ra
;------------------

alias -l logo {
  return $chr(91) $+ $chr(93)
}

ON *:TEXT:*:#:{
  if ($2) {
    if (($right($1,2) == 은) || ($right($1,2) == 는)) && ($len($1) > 2) {
      if ($right($2-,2) == 다) {
        var %matchtext = $left($1,$calc($len($1) - 2))
        writeini -n memo.ini def %matchtext $nick $date(yyyy-mm-dd) $$2-
        msg # $logo " $+ $1 $2- $+ "라고 기억하였습니다.
      }
    }
    if (($right($1,2) == 을) || ($right($1,2) == 를)) && ($len($1) > 2) {
      if ($2 == 삭제해) || ($2 == 잊어) {
        var %querytext = $left($1,$calc($len($1) - 2))
        var %matchtext = $readini(memo.ini,def,%querytext)
        if (%matchtext != $null) {
          var %description = $gettok(%matchtext,3-,32)
          msg # $logo %querytext $+ 에 대한 내용 " $+ %description $+ "이 삭제되었습니다.
          remini memo.ini def %querytext
        }
        else {
          msg # $logo %querytext $+ 에 대한 내용은 기억되어있지 않습니다.
        }
      }
    }
  }
  if ($2- == $null) {
    if ($right($1,1) == $chr(63)) {
      var %querytext = $remove($1,$chr(63))
      var %matchtext = $readini(memo.ini,def,%querytext)
      if (%matchtext != $null) {
        var %creator = $gettok(%matchtext,1,32)
        var %createddate = $gettok(%matchtext,2,32)
        var %description = $gettok(%matchtext,3-,32)
        var %leftstring.ascii = $asc($left(%querytext,1))
        if ($len(%querytext) > 1) {
          if (%leftstring.ascii >= 128) {
            ; 첫글자가 한글
            var %querytext = $left(%querytext,2) $+ $+ $mid(%querytext,3)
          }
          else {
            ; 첫글자가 영문
            var %querytext = $left(%querytext,1) $+ $+ $mid(%querytext,2)
          }
        }
        msg # $logo %querytext $+ : %description (작성 %creator $+ , %createddate $+ )
      }
    }
  }
}