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

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

mIRC Snippets - בפורום זה יפורסמו קודים שימושיים למירק. לפרסום קודים יש לפרסמם תחילה בפורום "פרסום קודים ומדריכים" ולאחר מכאן הם יועברו לפורום זה.

הצטרף: 20 יוני 2011, 21:35
הודעות: 100
פורסם: 27 יולי 2011, 11:37
היה משעמם לי אז קבלו:
תרגום מילים ממורפיקס, כרגע זה רק מאנגלית לעברית, אם יהיה לי כח נעשה גם מעברית לאנגלית.

שימוש במירק:

אם אתם רוצים שכל מי שבערוץ יראה אז
!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- בתאריך 13 אוקטובר 2011, 11:56, נערך 4 פעמים בסך הכל.

הצטרף: 20 יוני 2011, 21:35
הודעות: 100
פורסם: 29 יולי 2011, 14:40
עודכנה הגרסה... עכשיו גם בעברית :)
ותודה לאוהד על התמיכה הנפשית :)

הצטרף: 12 ינואר 2011, 12:40
הודעות: 15
פורסם: 01 אוגוסט 2011, 10:49
תודה רומן :)
תמונה

הצטרף: 01 יולי 2010, 07:43
הודעות: 367
פורסם: 12 אוגוסט 2011, 11:03
תודה רבה, הועבר לפורום סניפטים.
שימו לב: בוטי המשחק שאני בונה לא מתאימים לQuakenet אלא אם כן צויין אחרת.
<+vendetta-> סיאג לחוכמה שתיקה
<+vendetta--> בא לי מוח
<Ninja`> דפקתי נקנקיה

הצטרף: 17 פברואר 2011, 08:57
הודעות: 8
פורסם: 05 אוקטובר 2011, 13:54
ענק :}


חזור אל סניפטים