This script has announced the free software in the channel, daily, made available by giveawayoftheday site. The !give shows the description of the software in the channel, while the !giveme from the link with the software on notice. It should also work in English, I think that's enough to replace with it.giveawayoftheday.com/www.giveawayoftheday.com but I have not verified.
;================================================
; Nome: Give Of The Day
; Scritto da: ICEMANxxx
; WebSite: www.CrazyLand.Biz
; Email: icemanxxx@crazyland.biz
; Data: 23/02/2012
; IRC: Azzurra (irc.azzurra.org)
; Canale: #CrazyLand.Biz
;================================================
on *:text:!give:#: {
set %give $chan
sockclose give
sockopen give it.giveawayoftheday.com 80
}
on *:sockopen:give: {
if ($sockerr) {
echo -s Errore connessione al Sito.
sockclose give
}
else {
sockwrite -n $sockname GET $+(/) HTTP/1.1
sockwrite -n $sockname Host: it.giveawayoftheday.com
sockwrite -n $sockname $crlf
}
}
on *:sockread:give: {
var %give.temp
sockread %give.temp
if (*</h1>* iswm %give.temp) { set %givetitolo $left($htmlfree(%give.temp),22) | set %givetitolo2 $remove($htmlfree(%give.temp),%givetitolo) | set %linkgive $left($htmlfree(%givetitolo2),4) }
if (*</span>* *</p>* iswm %give.temp) { msg %give 9,1Ogni giorno un Software in Regalo con licenza Pagata!!! - %givetitolo2 - | msg %give 0,1 $htmlfree(%give.temp) | msg %give 9,1 Scrivi 4,1!giveme 9,1per avere il link al programma }
if (*http://it.giveawayoftheday.com/ $+ %linkgive $+ * iswm %give.temp) { set %noticelink 4,1 $remove(%give.temp,<a href=",$chr(9),$chr(34),$chr(62)) }
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, n°,"’)
return %x
}
on *:text:!giveme:#:{
inc %giveme
if ($strip($1) == !giveme) && (%giveme < 3) { /notice $nick %noticelink | /timergivemeunset1 1 4 set %giveme 0 }
if ($strip($1) == !giveme) && (%giveme > 3) { /timergivemeunset 1 3 set %giveme 0 }
}
Hey had a friend do one err0r from TG007 with also the time remaining!! only thing you have to add your room name!!
1.
alias giveaway {
2.
sockclose give | sockopen give www.giveawayoftheday.com 80
3.
}
4.
on *:sockopen:give: {
5.
if ($sockerr) { echo -s $sockname error | sockclose give }
6.
else {
7.
sockwrite -n $sockname GET / HTTP/1.1
8.
sockwrite -n $sockname Host: giveawayoftheday.com
9.
sockwrite -n $sockname $crlf
10.
}
11.
}
12.
on *:sockread:give: {
13.
var %give.temp
14.
sockread %give.temp
15.
if ($regex(%give.temp,/<title>(.*)<\/title>/)) { set %giveaway.title $regml(1) }
16.
if ($regex(%give.temp,/<a href=\"http:\/\/www.giveawayoftheday.com\/(.*?)\/\">/)) { set %giveaway.link $regml(1) }
17.
if ($regex(%give.temp,/(.*)<!--\/mfunc-->(.*)<\/p>/)) { set %giveaway.time $regml(1) | msg $+($chr(37),$chr(35),Room Name Here) Free Giveaway of the Day: $htmlfree($remove(%giveaway.title,Giveaway of the Day - free licensed software daily.)) | msg $+($chr(37),$chr(35),Room Name Here) http://www.giveawayoftheday.com/ $+ %giveaway.link $+ / | msg $+($chr(37),$chr(35),ROOM Name Here) Time remaining : %giveaway.time | sockclose $sockname }
18.
}
19.
alias -l htmlfree {
20.
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, n°,"’)
21.
return %x
22.
}