עמוד ראשי מירק סקריפטינג סניפטים בוט חדשות לערוץ (לא מתחבר לאתר)

בוט חדשות לערוץ (לא מתחבר לאתר)

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

הצטרף: 01 יולי 2010, 13:18
הודעות: 66
פורסם: 01 יולי 2010, 18:29
שם הקוד: News bot
יוצר: Arthas
גירסא: v2.0
תיאור: קוד ישן מאוד :} זה קוד כמו שאתם רואים בקהילות הודעות חדשות.. אתם בוחרים כל כמה זמן זה כותב וזה יכתוב את השורות שאתם תגדירו
הפעלה: לשים את הקוד ברימווט (Alt + R), מקש ימיני -> News bot. להגדיר ערוץ, להוסיף שורות שאתם רוצים -> אז לבחור במקש ימיני כל כמה זמן תרצו שזה יעשה (Set Timer) ואז Start TIMER
תמונה:
תמונה
קוד:
; ——————————————————————————————————————————————— ;
; News bot by Arthas
; ——————————————————————————————————————————————— ;


dialog news {
  title "News bot"
  size -1 -1 86 114
  option dbu
  list 1, 4 30 77 50, size
  edit "", 2, 4 4 77 12, autohs
  button "Add", 3, 5 17 23 12
  button "Clear", 4, 31 17 23 12
  button "Remove", 5, 57 17 23 12
  edit "", 6, 7 95 50 12
  box "Channel", 7, 5 88 76 21
  button "Set", 8, 60 95 17 12
  text "", 9, 4 81 77 8, center
}
dialog newsinfo {
  title "Info"
  size -1 -1 84 34
  option dbu
  edit "", 1, 3 4 78 12, autohs
  button "Update", 2, 22 18 37 12,ok
}
on *:dialog:*:*:*:{
  if ($dname == news) {
    if ($devent == init) {
      dll mdx.dll MarkDialog $dname
    did -a $dname 6 %news.channel | var %o = 1 | while (%o <= $lines(News.txt)) { did -a $dname 1 $read(News.txt, %o) | inc %o } | did -a $dname 9 There $iif($lines(News.txt) == 1,is,are) $iif($lines(News.txt) == 0,no,$lines(News.txt)) $iif($lines(News.txt) == 1,line,lines) of news. }
    if ($devent == sclick) {
      if ($did == 3 && * iswm $did(2)) { did -a $dname 1 $did(2) | write News.txt $did(2) | did -a $dname 9 There $iif($lines(News.txt) == 1,is,are) $iif($lines(News.txt) == 0,no,$lines(News.txt)) $iif($lines(News.txt) == 1,line,lines) of news. }
      if ($did == 8 && #* iswm $did(6)) { set %news.channel $did(6) }
      if ($did == 4) { .remove News.txt | did -r $dname 1 | did -a $dname 9 There are no lines of news. }
      if ($did == 5 && $did($dname,1).sel) { did -d $dname 1 $did($dname,1).sel | .write -dl $+ $did($dname,1).sel News.txt | did -a $dname 9 There $iif($lines(News.txt) == 1,is,are) $iif($lines(News.txt) == 0,no,$lines(News.txt)) $iif($lines(News.txt) == 1,line,lines) of news. }
    }
    if ($devent == dclick) {
      if ($did == 1 && $did($dname,1).sel) { set %line $did($dname,1).sel | dialog $iif($dialog(Newsinfo),-v Newsinfo,-m Newsinfo Newsinfo) | did -r Newsinfo 1 | did -a newsinfo 1 $did($dname,1).seltext }
    }
  }
  if ($dname == newsinfo) {
    if ($devent == sclick) {
      if ($did == 2 && * iswm $did(1)) { did -r news 1 | write -l $+ %line News.txt $did(1) | var %o = 1 | while (%o <= $lines(News.txt)) { did -a news 1 $read(News.txt, %o) | inc %o } }
    }
  }
}
alias news { $iif($me isop %news.channel,mode %news.channel +m) | var %x 1 | while ($read(News.txt, %x)) { .timer 1 %x msg %news.channel $v1 | inc %x } | $iif($me isop %news.channel,.timer 1 $calc(%x +1) mode %news.channel -m) }
menu * {
  News
  .Dialog: dialog -m news news
  .Set TIMER: if ($?) { set %newstimer $v1 | .timern 0 $v1 news }
  .Start TIMER: news | .timern 0 %newstimer news
  .Stop TIMER: .timern off
}
נערך לאחרונה על ידי Arthas בתאריך 23 אוגוסט 2011, 04:06, נערך פעם אחת בסך הכל.
תמונה

הצטרף: 29 יוני 2010, 16:13
הודעות: 111
פורסם: 02 יולי 2010, 06:59
נחמד מאוד :)
כמה הערת:
  • כפתור ה-remove יותר מידי דחוס בכפתור, תגדיל את הכפתורים בשורה בטיפה.
  • למטה, בהוספת הערוצים אז ה-box עולה על ה-edit, תסדר את זה.
  • אני ממש לא מבין למה צריך פה mdx.
  • שאתה כותב את הסקריפט, רצוי לא לשים שורות ארוכות מידי כדי שיהיה נוח לאנשים אחרים לקרוא וגם כי זה יותר מקצועי ככה.
  • חסר הגדרת רשת, יש הגדרות ערוץ והכל סבבה אבל אין אפשרות להגדיר את הרשת בהם נמצאים הערוצים.
  • אין לך כפתור יציאה מהדיאלוג
  • אין בדיאלוג את כל הקטע של להתחיל את הטיימר
  • אם לוחצים start timer במניו בלי לעשות שום דבר לפני, יש שגיאה של: timer: timer n not active
  • במניו שלך שאתה משתמש ב-?$ (נעזוב את זה שבדקת אם זה קיים ואפשר ממקום זה להשתמש ב ?$$), ממקום להשתמש ב- input$ שבו במקרה הזה צריך להישתמש (כדי לשים כותרת במניו)

בהצלחה

הצטרף: 01 יולי 2010, 14:38
הודעות: 77
פורסם: 02 יולי 2010, 16:14
עוזר לערוצים מתחילים..
בנוי בצורה יפה

הצטרף: 01 יולי 2010, 13:18
הודעות: 66
פורסם: 15 יולי 2010, 10:43
חח :D זה סקריפט מאוד מאוד ישן ... הטיימר וכל אלה סתם עשיתי והעלאתי לפה התיקונים אלו שטויות שעשיתי פעם.
תמונה

הצטרף: 01 יולי 2010, 07:18
הודעות: 95
פורסם: 15 יולי 2010, 13:46
חמוד מאוד !
תמונה

הצטרף: 17 יולי 2010, 10:40
הודעות: 7
פורסם: 17 יולי 2010, 12:40
נחמד מאוד..
תמונה

הצטרף: 14 ינואר 2011, 20:00
הודעות: 5
פורסם: 15 ינואר 2011, 11:14
lo oved ..
אני כותב שם ערוץ והודעה ,
ואז !news
לא עושה כלום

הצטרף: 01 יולי 2010, 13:18
הודעות: 66
פורסם: 19 ינואר 2011, 13:24
זה לא עובד ככה, תקרא את ההוראות שכתבתי למעלה. זה על טיימר
תמונה

הצטרף: 31 אוגוסט 2010, 11:07
הודעות: 57
פורסם: 29 ינואר 2011, 09:47
בוט נחמד שמותאם להמוני ערוצים.


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