רשימת ניקים צבעונית

[yweiss]

רשימת ניקים צבעונית ../images/Emo59.gif

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

menu nicklist { צבע רנדומלי לניק: set %tmpd $?"Hit CTRL-K & Enter a Number (0-15)...." | %tmpc = $remove(%tmpd,&#3 | unset %tmpn | set %tmpn $$1 | colchk } menu channel { - רשימת ניקים צבעונית .להפעיל את הרשימה הצבעונית:/cnicks .אפשרויות הרשימה הצבעונית:/col.config .לשחזר לברירת מחדל:/resetcol } alias col.config { set %cnl.t $?"Hit CTRL-K & Select a Colour for OPS" | %cnl.o = $remove(%cnl.t,&#3 set %cnl.t $?"Hit CTRL-K & Select a Colour for VOICE" | %cnl.v = $remove(%cnl.t,&#3 set %cnl.t $?"Hit CTRL-K & Select a Colour for REGULARS" | %cnl.n = $remove(%cnl.t,&#3 cnicks } alias cnicks { if ($1 == $null) set %tmpchan # | else set %tmpchan $1 set %un 1 ;set %clr.me 12 :next ;if ($nick(%tmpchan,%un) isreg %tmpchan) { cline %cnl.n %tmpchan %un } if ($nick(%tmpchan,%un) isvo %tmpchan) { cline %cnl.v %tmpchan %un } if ($nick(%tmpchan,%un) isop %tmpchan) { cline %cnl.o %tmpchan %un } ;if ($nick(%tmpchan,%un) == $me) { cline %clr.me %tmpchan %un } if ($nick(%tmpchan,%un) isin %c0) { cline 0 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c1) { cline 1 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c2) { cline 2 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c3) { cline 3 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c4) { cline 4 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c5) { cline 5 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c6) { cline 6 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c7) { cline 7 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c8) { cline 8 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c9) { cline 9 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c10) { cline 10 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c11) { cline 11 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c12) { cline 12 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c13) { cline 13 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c14) { cline 14 %tmpchan %un } if ($nick(%tmpchan,%un) isin %c15) { cline 15 %tmpchan %un } inc %un if (%un <= $nick(%tmpchan,0)) goto next } alias colchk { if (%tmpn isin %c0 ) { set %c0 $remove(%c0,%tmpn) } if (%tmpn isin %c1 ) { set %c1 $remove(%c1,%tmpn) } if (%tmpn isin %c2 ) { set %c2 $remove(%c2,%tmpn) } if (%tmpn isin %c3 ) { set %c3 $remove(%c3,%tmpn) } if (%tmpn isin %c4 ) { set %c4 $remove(%c4,%tmpn) } if (%tmpn isin %c5 ) { set %c5 $remove(%c5,%tmpn) } if (%tmpn isin %c6 ) { set %c6 $remove(%c6,%tmpn) } if (%tmpn isin %c7 ) { set %c7 $remove(%c7,%tmpn) } if (%tmpn isin %c8 ) { set %c8 $remove(%c8,%tmpn) } if (%tmpn isin %c9 ) { set %c9 $remove(%c9,%tmpn) } if (%tmpn isin %c10 ) { set %c10 $remove(%c10,%tmpn) } if (%tmpn isin %c11 ) { set %c11 $remove(%c11,%tmpn) } if (%tmpn isin %c12 ) { set %c12 $remove(%c12,%tmpn) } if (%tmpn isin %c13 ) { set %c13 $remove(%c13,%tmpn) } if (%tmpn isin %c14 ) { set %c14 $remove(%c14,%tmpn) } if (%tmpn isin %c15 ) { set %c15 $remove(%c15,%tmpn) } if (%tmpc = 0) { set %c0 %c0 %tmpn } if (%tmpc = 1) { set %c1 %c1 %tmpn } if (%tmpc = 2) { set %c2 %c2 %tmpn } if (%tmpc = 3) { set %c3 %c3 %tmpn } if (%tmpc = 4) { set %c4 %c4 %tmpn } if (%tmpc = 5) { set %c5 %c5 %tmpn } if (%tmpc = 6) { set %c6 %c6 %tmpn } if (%tmpc = 7) { set %c7 %c7 %tmpn } if (%tmpc = 8) { set %c8 %c8 %tmpn } if (%tmpc = 9) { set %c9 %c9 %tmpn } if (%tmpc = 10) { set %c10 %c10 %tmpn } if (%tmpc = 11) { set %c11 %c11 %tmpn } if (%tmpc = 12) { set %c12 %c12 %tmpn } if (%tmpc = 13) { set %c13 %c13 %tmpn } if (%tmpc = 14) { set %c14 %c14 %tmpn } if (%tmpc = 15) { set %c15 %c15 %tmpn } cnicks } alias resetcol { set %cnl.o 2 | set %cnl.v 5 set %c0 "" | set %c1 "" | set %c2 "" | set %c3 "" | set %c4 "" | set %c5 "" set %c6 "" | set %c7 "" | set %c8 "" | set %c9 "" | set %c10 "" | set %c11 "" set %c12 $me | set %c13 "" | set %c14 "" | set %c15 "" | unset %tmpn cnicks }​

מקווה שעזרתי-yweiss

 

[havlaz]

כל הכבוד על הקודים.. אבל..

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

 

[yweiss]

צודק ב 100% ../images/Emo127.gif

אין בעיה אני יעשה את זה בשמחה. חברה יהיה נחמד אם גם אתם תשימו קודים כי תמיד יש ממי ללמוד ומה ללמוד yweiss

 

[Rul3R]

עוד לא הגעת לפרק על לולאות?

 

[Rul3R]

מישהו אמר לי

שזה לא יפה שאני רק כותב משהו כמו "עוד לא הגעת לפרק על לולאות", אז הנה, אני ידגים את מה שהתכוונתי שצריך לעשות:

alias coolcolors { set %opnicks $opnick($1,0) set %opnickinc 1 while (%opnickinc <= %opnicks) { cline %ocolor $opnick($1,%opnickinc) | inc %opnickinc } set %vnicks $vnick($1,0) set %vnickinc 1 while (%vnickinc <= %vnicks) { cline %vcolor $vnick($1,%vnickinc) | inc %vnickinc } set %hnicks $hnick($1,0) set %hnickinc 1 while (%hnickinc <= %hnicks) { cline %hcolor $hnick($1,%hnickinc) | inc %hnickinc } } menu channel { Colors .Set ..Set Op Color://set %ocolor $$?="Enter color nummber for op:" ..Set Voice Color://set %vcolor $$?="Enter color nummber for voice:" ..Set Hop Color://set %hcolor $$?="Enter color nummber for halfop:" .Apply://coolcolors $chan }​

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