בוט חדשות לחדרים

בוט חדשות לחדרים
מדריך נכתב על ידי MIRCX
טוב אז ככה לפני שאתחיל את המדריך לשימוש הבוט אני רוצה להודות ל bloodymary שעזר לי בנושא!!
במדריך הזה אני גם אלמד את אנשים שאינם יודעים איפה כל הקבצים של המירק נמצאים בכללי זה רק לאנשים שמתחילים את דרכם בנושא של IRC... אז מתחילים
לפני שאנחנו מעתיקים את הקוד הראשי של החדשות עלינו לבצע מספר פעולות ואני אסביר אותם בשלב אחרי שלב..
שלב1 עלינו להיכנס לתיקיה של המירק שנימצאת אצלכם במחשב אתם המתחילים בטח שואלים את עצמכם איפה התיקיה נמצאת אז תשימו לב לתמונות............
תמונה1

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

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

Code:


<item>
<feed>Ynet</feed>A
<host>www.ynet.co.il</host>
<file>/Integration/StoryRss1854.xml</file>
<channel>#music</channel>
<feeds>100</feeds>
<interval>500</interval>
</item>
<item>
<item>
<feed>Ynet.PC</feed>
<host>www.ynet.co.il</host>
<file>/Integration/StoryRss544.xml</file>
<channel>#33</channel>
<feeds>10</feeds>
<interval>2000</interval>
</item>
 <item>
 <feed>Nana</feed>A
 <host>rss.nana10.co.il</host>
 <file>/?s=126</file>
 <channel>#music</channel>
 <feeds>10</feeds>
 <interval>180</interval>
 </item>
 <item>
 <feed>Nana</feed>A
 <host>rss.nana10.co.il</host>
 <file>/?s=160</file>
 <channel>#music</channel>
 <feeds>10</feeds>
 <interval>180</interval>
 </item>
<item>
 <feed>ZOBY</feed>A
 <host>www.ynet.co.il</host>
 <file>/Integration/StoryRss2.xml</file>
 <channel>#33</channel>
 <feeds>100</feeds>
 <interval>180</interval>
 </item>


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

Code:


feed>ynet שם של החדשות הראשית
<host> http://www.ynet.co.il ההוסט הראשי..
<file>/Integration/StoryRss1854.xml המידע מדרך RSS
<channel>#music</channel> השם החדר שלכם
<interval>500</interval> הטיימר של החדשות
<feeds>100</feeds> הפריטים של החדשות


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

תשימו לב שכתבתי לכם שם את הפריטים של החדשות שבחרתי יש שם 10 פריטים......
שלב3
עליכם לעתיק את הקוד הזה לרימוט ALT+R

Code:


; Commands:
;  /rss Starts the rss poster (shortcut for /loadrsshist and /rsscfg)
;  /addrss name host webfile channel count interval -- adds feed to rss.cfg (Implies /rsstimer)
;  /showrss name host webfile channel count -- shows rss feed in channel (Implies /getrss and /parserss)
;
;  ----- The following are internal commands and should only be used if messing around with the code. -----
;  /loadrsshist Loads the history file so as not to post the same stuff over and over
;  /closersshist Unloads the history file...
;  /reloadrsshist Shortcut for /closersshist and /loadrsshist
;  /rsscfg Loads rss.cfg file and parses it (Implies /rsstimer on every rss feed listed)
;  /rsstimer name host webfile channel count interval  starts a rss timer for the specified settings
;    (Implies /showrss each interval)
;  /getrss name host webfile file done -- downloades an rss feed then runs done when it is done (Implies /fixrss)
;  /fixrss file -- fixes rss feed format.  This is done automatically, and should only be done when debugging.
;  /parserss file name channel count -- parses rss file and displays it in a channel
;
; Arguements:
;  name = Name of feed (used for displaying purposes)
;  host = Where to get the feed ( http://hostwebfile e.g. http://example.com/test.xml example.com is the host and /test.xml is the webfile.. )
;  webfile = file on host
;  file = local rss file
;  channel = channel to show rss postings in
;  count = how many rss posts to show at once
;  interval = how often (in seconds) to show rss posts
;  done = what to do when done downloading file
;
; Examples:
;
;  Add a few rss feeds:
;  /addrss mirc.net mirc.net /rss.php?type=news #rss 6 600
;  /addrss SourceForge images.feedstermedia.com /feedcache/ostg/sourceforge/rss_sfnews.xml #rss 6 600
;  /addrss NPR www.npr.org /rss/rss.php?topicId=1001 #rss 6 600
;  /addrss Moreover p.moreover.com /page?o=rss002&c=Top%20stories&wiz=230176 #rss 6 600
;  /addrss Copyright www.copyright.gov /rss.xml #rss 6 600
;  /addrss podcastingnews www.podcastingnews.com /index.xml #rss 6 600
;  /addrss Infoworld www.infoworld.com /rss/news.xml #rss 6 600
;  /addrss BarkerJr.Net barkerjr.net /rss?c=2;f=5 #RSS 2 600
;  /addrss Linux-Security www.linuxsecurity.com /static-content/linuxsecurity_hybrid.rdf #rss 6 600
;  /addrss Planet-Source-Code www.planet-source-code.com /vb/channel/NewCode/channel.cdf #rss 6 600
;  /addrss /. slashdot.org /rss/index.rss #rss 6 600
;  /addrss ZDnet news.zdnet.com /2509-1_22-0-20.xml #rss 6 600
;  /addrss IRC101 www.irc101.org /tier2.xml #rss 6 600
;  /addrss MSDN msdn.microsoft.com /msdnmag/rss/recent.xml #rss 6 600
;  /addrss Microsoft www.microsoft.com /communities/rss.aspx?&Title=Recent+Posts&CMTYSvcSource=MSCOMBlogPosts&CMTYRawShape=list&Params=%7eCMTYDataSvcParams%5e%7eArg+Name%3d'DateFormat'+Value%3d'MMM+d%2c+yyyy'%2f%5e%7e%2fCMTYDataSvcParams%5e&NumberOfItems=50 #rss 6 600
;  /addrss &color;01,00W&color;00,01I&color;01,00R&color;00,01E&color;01,00D&color; wired.com /news/feeds/rss2/0,2610,,00.xml #rss 6 600
;  /addrss RTCW ict.mcast.edu.mt /ictweb/davidmica/web/rss.xml #rss 6 600
;  /addrss jaos software.jaos.org /cgi-bin/rss #rss 6 600
;
;  Reload the config file:
;  /rehashrss
;
;  Edit the config file:
;  /run notepad rss.cfg
;
;  Load the config file and start posting news:
;  /rss
;
; Contact:
;  Cobi@winbots.org
;  Cobi on Undernet (#phase, #rss, #game-trivia)
;  Cobi on Winbots (#winbots)
;  Cobi-Wan-Kenobi on Quakenet (#icechat)
;  Cobi on SearchIRC Forums
;  Winbots on UnrealIRCd Forums
;  Cobi on mirc.net
;
; ChangeLog:
;  v1.3 -- fixed memory bug
;  v1.2 -- fixed the issue when the tags are not one word (<title blah>blah</title>)
;  v1.1 -- fixed rss.performance issue
;  v1.0 -- Initial Release

alias rss { loadrsshist | rsscfg }
alias closersshist { window -c @rss.hist | window -c @rss.performance }
alias reloadrsshist { closersshist | loadrsshist }
alias rsscfg {
  var %time = $ticks
  var %lcv2 = 0
  var %lcv = 1
  var %lines = $lines(rss.cfg)
  unset %list
  while (%lcv <= %lines) {
    if ($read(rss.cfg,%lcv)) {
      bunset &line
      bset -t &line 1 $read(rss.cfg,%lcv)
      if ($regex(RSS,$bvar(&line,1,$bvar(&line,0)).text,\<(.+)\>(.+)\<\/.+\>)) {
        bunset &rss. $+ $regml(RSS,1)
        bset -t &rss. $+ $regml(RSS,1) 1 $regml(RSS,2)
      }
      elseif ($regex(RSS,$bvar(&line,1,$bvar(&line,0)).text,\<\/item\>)) {
        rsstimer $bvar(&rss.feed,1,$bvar(&rss.feed,0)).text $bvar(&rss.host,1,$bvar(&rss.host,0)).text $bvar(&rss.file,1,$bvar(&rss.file,0)).text $bvar(&rss.channel,1,$bvar(&rss.channel,0)).text $bvar(&rss.feeds,1,$bvar(&rss.feeds,0)).text $bvar(&rss.interval,1,$bvar(&rss.interval,0)).text
        set %list %list $replacex($bvar(&rss.feed,1,$bvar(&rss.feed,0)).text,&amp;,&,",",&nbsp;,$chr(32),&color;,,&bold;,,&underline,)
        bunset &line &rss.*
        inc %Lcv2
      }
    }
    inc %lcv
  }
  if ($window(@rss.performance)) {
    aline @rss.performance ---
    aline @rss.performance Parsed %lcv Config Lines ( $+ %lcv2 rss entries) (rss.cfg) in $calc(($ticks - %time)/1000) Seconds
  }
}
alias rsstimer {
  ;$1 = feed name
  ;$2 = host
  ;$3 = file
  ;$4 = channel
  ;$5 = max
  ;$6 = interval
  showrss $1 $2 $3 $4 $5
  .timerrss. $+ $1 0 $6 showrss $1 $2 $3 $4 $5
}
alias showrss {
  ;$1 = feed name
  ;$2 = host
  ;$3 = file
  ;$4 = channel
  ;$5 = max
  set %time. $+ $1 $ticks
  .remove " $+ $1 $+ .rss $+ "
  getrss $1 $2 $3 $replace($1 $+ .rss,$chr(32),_) parserss $replace($1 $+ .rss,$chr(32),_) $1 $4 $5
}
alias getrss {
  ;$1 = feed name
  ;$2 = host
  ;$3 = file
  ;$4 = save
  ;$5- = done
  set %rss. $+ $1 $+ .file $3
  set %rss. $+ $1 $+ .host $2
  set %rss. $+ $1 $+ .save $4
  set %rss. $+ $1 $+ .done $5-
  sockopen rss. $+ $1 $2 80
}
on *:SOCKOPEN:rss.*:{
  sockwrite -tn $sockname GET % [ $+ [ $sockname $+ .file ] ] HTTP/1.1
  sockwrite -tn $sockname Host: % [ $+ [ $sockname $+ .host ] ]
  sockwrite -tn $sockname Accept: *.*, */*
  sockwrite -tn $sockname Connection: close
  sockwrite -tn $sockname $crlf
}
on *:sockclose:rss.*:{ fixrss % [ $+ [ $sockname $+ .save ] ] | % [ $+ [ $sockname $+ .done ] ] | unset % $+ $sockname $+ .* }
on *:sockread:rss.*:{
  if ($sockerr) { echo 1 -a ERROR | return }
  if (% [ $+ [ $sockname $+ .status ] ] != downloading) {
    var %1 | sockread %1 | tokenize 32 %1
    if ($1 == HTTP/1.1) { if ($2 != 200 && $2 != 206) { echo 1 -a ERROR } }
    elseif ($1 == Content-Range:) { set % [ $+ [ $sockname $+ .size ] ] $gettok($3,-1,47) }
    elseif ($1 == Content-Type:) { return }
    elseif (!$1) {
      set % [ $+ [ $sockname $+ .status ] ] Downloading
      return
    }
  }
  else {
    var %1 = % [ $+ [ $sockname $+ .save ] ]
    :sockread
    sockread &1
    if (!$sockbr) { return }
    .bwrite $+(",%1,") -1 &1
    unset % [ $+ [ $sockname $+ .resume ] ]
  }
}

alias fixrss {
  ;$1 = rss file
  var %file = $1
  .bread $1 0 $file($1).size &file
  breplace &file 10 32 13 32
  write -c $1
  var %lcv = 1
  var %size = $bvar(&file,0)
  while (%lcv <= %size) {
    parserss2 $1 $bvar(&file,%lcv,500).text
    inc %lcv 500
  }
}

alias parserss {
  ;$1 = rss file
  ;$2 = feed name
  ;$3 = channel
  ;$4 = max
  var %time = $ticks | var %lcv = 1 | var %lcv2 = 0 | var %lines = $file($1).size
  bread $1 0 %lines &file1
  while ((%lcv <= %lines) && (%lcv2 < $4)) { bunset &line | bcopy -c &line 1 &file1 %lcv $calc($iif($bfind(&file1,%lcv,$crlf),$bfind(&file1,%lcv,$crlf),$calc(%lines + 1)) - %lcv) | var %lcv = $calc($iif($bfind(&file1,%lcv,$crlf),$bfind(&file1,%lcv,$crlf),$calc(%lines + 1)) + 2)
    if (($bvar(&line,0) < 300) && ($regex(RSS,$bvar(&line,1,$bvar(&line,0)).text,\<(.+)\>(.+)\<\/.+\>))) { if (($regml(RSS,1)) && ($regml(RSS,2))) { bunset &rss. $+ $gettok($regml(RSS,1),1,32) | bset -t &rss. $+ $gettok($regml(RSS,1),1,32) 1 $regml(RSS,2) } }
    elseif (($bvar(&line,0) < 300) && ($regex(RSS,$bvar(&line,1,$bvar(&line,0)).text,\<\/item\>))) { checkalreadyrss $3 [[ $+ $2 $+ ]]  $+ $bvar(&rss.title,1,$bvar(&rss.title,0)).text $+  ( $bvar(&rss.link,1,$bvar(&rss.link,0)).text ) | inc %lcv2 | bunset &line &rss.* }
  }
  if ($window(@rss.performance)) {
    aline @rss.performance ---
    aline @rss.performance Parsed %lcv Bytes ( $+ %lcv2 rss entries) ( $+ $1 $+ ) in $calc(($ticks - %time)/1000) Seconds
  }
  if (%time. [ $+ [ $2 ] ]) { if ($window(@rss.performance)) {
aline @rss.performance Downloaded and Parsed %lcv Bytes ( $+ %lcv2 rss entries) ( $+ $1 $+ ) in $calc(($ticks - %time. [ $+ [ $2 ] ] )/1000) Seconds } | unset %time. $+ $2 } }

alias addrss {
  ;$1 = feed name
  ;$2 = host
  ;$3 = file
  ;$4 = channel
  ;$5 = max
  ;$6 = interval
  write rss.cfg <item>
  write rss.cfg $chr(32) $+ $chr(32) $+ <feed> $+ $1 $+ </feed>
  write rss.cfg $chr(32) $+ $chr(32) $+ <host> $+ $2 $+ </host>
  write rss.cfg $chr(32) $+ $chr(32) $+ <file> $+ $3 $+ </file>
  write rss.cfg $chr(32) $+ $chr(32) $+ <channel> $+ $4 $+ </channel>
  write rss.cfg $chr(32) $+ $chr(32) $+ <feeds> $+ $5 $+ </feeds>
  write rss.cfg $chr(32) $+ $chr(32) $+ <interval> $+ $6 $+ </interval>
  write rss.cfg </item>
  rsstimer $1 $2 $3 $4 $5 $6
}
alias rehashrss {
  timerrss.* off
  rsscfg
}
alias rssoff {
  timerrss.* off
  closersshist
}
on 100:TEXT:!addrss * * * * * *:{ addrss $2 $3 $4 $5 $6 $7 }
alias checkalreadyrss {
  if (sponsored isin $1-) { goto done }
  if ($file(rss.hist.tmp)) { .remove rss.hist.tmp }
  filter -ffc rss.hist rss.hist.tmp * $+ $strip($1-) $+ *
  if ($file(rss.hist.tmp)) { .remove rss.hist.tmp }
  if ($filtered > 0) { goto done }
  write rss.hist $strip($1-)
  ;  if (!$window(@rss.hist)) { echo 4 -a $nopath($script) $+ : ERROR: no history loaded... (try /loadrsshist) | halt }
  ;  aline @rss.hist $strip($1-)
  inc %nodis
  if (israblog isin $replacex($1-,&amp;,&,",",&apos;,',&nbsp;,$chr(32),&color;,,&bold;,,&underline,)) {
    inc %count. $+ $date  
    msg $replacex($1-,&amp;,&,",",&apos;,',&nbsp;,$chr(32),&color;,,&bold;,,&underline,) ( $+ %count. [ $+ [ $date ] ] $+ )
    :done
  }
  else {
    if ($count($1-,$chr(32)) != 3) {
      msg $replace($replacex($1-,&amp;,&,",",&apos;,',&nbsp;,$chr(32),&color;,,&bold;,,&underline,),&feature=youtube_gdata,)
      :done
    }
  }
}
alias loadrsshist {
  if (!$file(rss.hist).size) { write rss.hist History File }
  ;  .window -k0lh @rss.hist
  ;  .loadbuf @rss.hist rss.hist
  ;  .window -k0 @rss.performance
}
alias parserss2 {
  ;$1 = File
  ;$2- = XML data
  var %file = $1
  ;[Code by FiberOPtics] Thanks..
  var %a, %b = $regsub($2-,/(?<=>)(?=\s*<)/g,$lf,%a)
  tokenize 10 %a
  ;[/Code by FiberOPtics]
  var %lcv = 1
  while (%lcv <= $0) {
    bset -t &tmp $calc($bvar(&tmp,0) +1) $ [ $+ [ %lcv ] ] $+ $crlf
    inc %lcv
  }
  bwrite %file -1 $calc($bvar(&tmp,0) -2) &tmp
  bunset &tmp
}
on *:TEXT:!list:#:{ msg $chan I syndicate the following: | msg $chan %list }


להורדה הבוט חדשות
https://sourceforge.net/projects/bot123/files/___%20_____.rar/download
ואז להתחיל להפעיל את החדשות ואת כל הפקודות יש לכם בקוד....
אני רוצה להודות לbloodymary שלימד אותי בסבלנות ועניק לי את הזדמנות להבין ולהריץ את הבוט הרבה תודות
מדריך נכתב על ידי MIRCX IRC
הקהילה הוותיקה
www.mIRCx.co.il[/code]