תרגום מילים מורפיקס עודכנה 2: הצעות מילים למילה שלא נמצאה

[Zen-]

היה משעמם לי אז קבלו:
תרגום מילים ממורפיקס, כרגע זה רק מאנגלית לעברית, אם יהיה לי כח נעשה גם מעברית לאנגלית.

שימוש במירק:

אם אתם רוצים שכל מי שבערוץ יראה אז

קוד: בחר הכל

!sm word/מילה


ואם אתם רוצים שחוץ ממכם אף אחד לא יראה אז

קוד: בחר הכל

!m word/מילה


קוד: בחר הכל

alias m {
  set %m-w $replace($replace($1-,א,m.90,ב,m.91,ג,m.92,ד,m.93,ה,m.94,ו,m.95,ז,m.96,ח,m.97,ט,m.98,י,m.99,כ,m.9B,ל,m.9C,מ,m.9E,נ,m.A0,ס,m.A1,ע,m.A2,פ,m.A4,צ,m.A6,ק,m.A7,ר,m.A8,ש,m.A9,ת,m.AA,ם,m.9D,ף,m.A3,ך,m.9A,ץ,m.A5,ן,m.9F),m.,$chr(37) $+ D7 $+ $chr(37))
  unset %m_t_en_on
  sockclose m
  sockopen m morfix.nana10.co.il 80
}
on *:sockopen:m:{
  sockwrite -tn $sockname GET / $+ $replace(%m-w,$chr(32),$chr(37) $+ 20) HTTP/1.1
  unset %m-w
  sockwrite -tn $sockname Host: morfix.nana10.co.il
  sockwrite -tn $sockname $crlf
}
on *:sockread:m:{
  var %m
  sockread %m
  if (׳“׳§׳• ׳׳× ׳׳™׳•׳× ׳”׳ž׳™׳œ׳” ׳׳• isin %m) { $iif(%m-echo,echo -a,msg $active) לא נמצא תרגום מילוני למילה הזאת }
  if (tikun isin %m) && (Suggestion isin %m) { noop $regsub(%m,/<[^<>]+>/g,,%m) | $iif(%m-echo,echo -a,msg $active) 12Suggestion:1 %m | sockclose m | halt }
  if (%m_kind) && (%m_t_en_on) && (%m_word) { $iif(%m-echo,echo -a,msg $active) 12 $+ %m_word $+ : $iif(%m_kind == /span,,1( $+ %m_kind $+ )) 3 $+ $gettok($gettok(%m,2,62),1,60) | unset %m_* }
  elseif (%m_kind) && (%m_mean) && (%m_word) { $iif(%m-echo,echo -a,msg $active) 12 $+ %m_word $+ : $iif(%m_kind == /span,,1( $+ %m_kind $+ )) 3 $+ %m_mean | unset %m_* }
  elseif (translation_he isin %m) && (google !isin %m) && (class="translation isin %m) { set %m_mean $gettok($gettok(%m,2,62),1,60) }
  elseif (translation_en isin %m) && (%m_word) && (%m_kind) && (google !isin %m) && (class="translation isin %m) { set -u5 %m_t_en_on 1 }
  elseif (diber isin %m) && (%m_word) { set %m_kind $gettok($gettok(%m,2,62),1,60) }
  elseif (word"> isin %m) { set %m_word $gettok($gettok(%m,2,62),1,60) }
}



on *:input:*:{
  if (!sm == $1) && ($2-) { unset %m-echo | $m($2-) }
  elseif (!m == $1) && ($2-) {  inc %m-echo | $m($2-) | halt }
 }


אגב, למרות שזה נכתב בזמן קצר בלי לשים לב לאורך הסקריפט ולצורתו, אם יש לכם הערות אשמח לקבל אותן.

תהנו!!!

[Zen-]

עודכנה הגרסה... עכשיו גם בעברית
ותודה לאוהד על התמיכה הנפשית

[Milki]

תודה רומן

[ZxoR]

תודה רבה, הועבר לפורום סניפטים.

[sp1nben]

ענק :}