Аддонс За новини

[AnF3taMin4o]

Дали има някакъв готов адонс който да ми изкарва новините

 

[drlevine]

.tcl има за адон незнам

 

[Er4o]

Примерно:
!setnews the news
и после някои в канала напише
!news
да показва "the news"

:lol:

 

[AnF3taMin4o]

Примерно:
!setnews the news
и после някои в канала напише
!news
да показва "the news"

:lol:

Ако го имаш написан го кажи или дай линк ;-)

 

[Er4o]

on *:TEXT:*:#: {
      if ($2 == !setnews) {
       if ($nick !isop $chan) { return }
        set %news $2-
        msg $chan The new news are: %news
      }
}
on *:TEXT:*:#: {
      if ($2 == !news) {
       msg $chan News: %news
    }
}

Не съм го пробвал виш дали ште стане

 

[AnF3taMin4o]

Ама аз исках от някакъв сайт например както имаше едно тцл в бота дето изкарва последна тема от форума а тука да е последна новина от сайта ;-)

 

[Er4o]

Кажи ми кои саит и довечера ште ти го напиша

 

[Black]

Кажи ми кои саит и довечера ште ти го напиша

Аз искам от http://www.fresh-bg.com/

 

[Er4o]

Ето за AnF3taMin4o:

on *:TEXT:*:#: {
   if ($1 == !news) {
     sockclose news
     sockopen news www.dnes.bg 80
     set %chan #
   }
}
on *:sockopen:news: {
  sockwrite -nt $sockname GET /index.php?cat=1 HTTP/1.1 
  sockwrite -nt $sockname Host: www.dnes.bg
  sockwrite -nt $sockname $crlf
}
on *:sockread:news: {
    var %temp
     sockread %temp
      if (*<td width="177" style="padding: 6 0 0 0"><a href="*">*</a></td>* iswm %temp) {
       msg %chan News: $remove($htmlfree(%temp),				)
      }
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}

 

[Er4o]

Ето и за Black:

on *:TEXT:*:#: {
   if ($1 == !news) {
     sockclose news
     sockopen news www.fresh-bg.com 80
     set %chan #
   }
}
on *:sockopen:news: {
  sockwrite -nt $sockname GET / HTTP/1.1 
  sockwrite -nt $sockname Host: www.fresh-bg.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:news: {
    var %temp
     sockread %temp
      if (*<td width="480" bgcolor="#EDF4FE"><p><b>*</b></p>* iswm %temp) {
       msg %chan News: $remove($htmlfree(%temp),				)
      }
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
}

 

[AnF3taMin4o]

Благодаря ти много брат

 

[Er4o]

Нямаш проблеми

 

[Black]

Благодаря ;-)

 

[ant1]

добре де а може ли да не изкарва толкоз новини от dnes.bg ами само 3 или най-много 5 ?

 

[skullbones]

а с каква команда се изкарват новините , !news ли ?

 

[Er4o]

ant1 може може
skillbones с !news да