Skripta koja preuzima horoskop sa sajta http://www.astrolook.com/

Komanda (primer):
!horoskop bik
!dnevni bik
!nedeljni bik
!mesecni bik
!ljubavni bik

Nova verzija pored dnevnog i mesecnog horoskopa sadrzi i opciju da podesite kako ce, tj gde ce bot slati tekst. Da li na kanal, na notice korisniku ili kroz poruku korisniku.

# Horoskop v1.337
# Veci deo koda pisao: tik-tak,
# a kod preradio i modifikovao za eggdrop: munZe
# Skriptu mozete naci na Hawkee sa svezim updateovima
# na adresi http://www.hawkee.com/snippet/9379/
#
# Komande su: !horoskop - !dnevni - !nedeljni - !mesecni - !ljubavni
#
# !horoskop je isto sto i !dnevni ;-)
#
# Posetite nas na kanalu #entrance @ irc.krstarica.com
#
# Veliki pozdrav za sve koji su prijavljivali bugove
# i pomagali razvijanju ovog snippeta ;)
# I naravno, sajtu sa koga se sve svlaci http://www.astrolook.com/
#
# MyH3e KoH3a MaToPu !!!

# -= Podesavanja =-

# Ako je saljina 1 skripta salje horoskop NA KANAL
# saljina 2 - ide korisniku na PVT
# saljina 3 - ide korisniku na NOTICE

set saljina 1

# Skripta pocinje ...
# Pozeljno je da NE DIRATE nista ispod osim ako
# NE ZNATE STA RADITE! ;-)

bind pub - !horoskop pub_horoskop
bind pub - !dnevni pub_horoskop
bind pub - !nedeljni pub_nedeljni
bind pub - !mesecni pub_mesecni
bind pub - !ljubavni pub_ljubavni
package require http

#Dnevni horoskop

proc pub_horoskop {nick host hand channel sign} {

set salji [

    global saljina

    if {$saljina==1} { set salji "PRIVMSG $channel" 
    } elseif {$saljina==2} { set salji "PRIVMSG $nick" 
    } else { set salji "NOTICE $nick" }

]
  set url "http://www.astrolook.com/dnevni.shtml"
  set token [ ::http::geturl $url ]
  set page [ ::http::data $token ]

  set znaci [ 
regexp -all -inline {<font class="hheader">([^\n\r]*?)</font><BR>
<font class="htext">
<!-pocetak-->
(.*?)
<!-kraj-->
} $page 
]

if { [lsearch $znaci [string toupper $sign]] >= 0 && $sign != "" && $sign != "skorpija"} {
putserv "$salji \002Dnevni horoskop za \037$sign\037:\002 [ lindex $znaci [expr [lsearch $znaci [string toupper $sign]] + 1] ]" 
} elseif {$sign == "skorpija"} { putserv "$salji \002Dnevni horoskop za \037skorpija\037:\002 [ lindex $znaci [expr [lsearch $znaci [string toupper *korpija]] + 1] ]" 
} elseif {$sign == ""} { putserv "$salji \002Niste odredili znak!\002 Koristite komande npr. \002!horoskop rak\002 \037-\037 \002!nedeljni rak\002 \037-\037 \002!mesecni rak\002 \037-\037 \002!ljubavni rak\002" 
} else { putserv "$salji \002Niste odredili adekvatan horoskopski znak!\002 Koristite komande npr. \002!horoskop rak\002 \037-\037 \002!nedeljni rak\002 \037-\037 \002!mesecni rak\002 \037-\037 \002!ljubavni rak\002" }

}

#Nedeljni horoskop

proc pub_nedeljni {nick host hand channel sign} {
set salji [

    global saljina

    if {$saljina==1} { set salji "PRIVMSG $channel" 
    } elseif {$saljina==2} { set salji "PRIVMSG $nick" 
    } else { set salji "NOTICE $nick" }

]
  set url "http://www.astrolook.com/sedmicni.shtml"
  set token [ ::http::geturl $url ]
  set page [ ::http::data $token ]

  set znaci [ 
regexp -all -inline {<font class="hheader">([^\n\r]*?)</font><BR>
<font class="htext">
<!-pocetak-->
(.*?)
<!-kraj-->
} $page 
]
if { [lsearch $znaci [string toupper $sign]] >= 0 && $sign != "" && $sign != "skorpija"} {

putserv "$salji \002Nedeljni horoskop za \037$sign\037:\002" 
set text [ lindex $znaci [expr [lsearch $znaci [string toupper $sign]] + 1] ]
set msgs [ regexp -all -inline {.{1,250}[^ ]* *} $text ]
foreach msg $msgs { 
 putserv "$salji $msg" 
after 1000 set end 1
vwait end
}
 } elseif {$sign == "skorpija"} { 
putserv "$salji \002Nedeljni horoskop za \037$sign\037:\002" 
set text [ lindex $znaci [expr [lsearch $znaci [string toupper *korpija]] + 1] ]
set msgs [ regexp -all -inline {.{1,250}[^ ]* *} $text ]
foreach msg $msgs { 
 putserv "$salji $msg" 
after 1000 set end 1
vwait end
}
} elseif {$sign == ""} { putserv "$salji \002Niste odredili znak!\002 Koristite komande npr. \002!horoskop rak\002 \037-\037 \002!nedeljni rak\002 \037-\037 \002!mesecni rak\002 \037-\037 \002!ljubavni rak\002"
} else { putserv "$salji \002Niste odredili adekvatan horoskopski znak!\002 Koristite komande npr. \002!horoskop rak\002 \037-\037 \002!nedeljni rak\002 \037-\037 \002!mesecni rak\002 \037-\037 \002!ljubavni rak\002" }
}

#Mesecni horoskop

proc pub_mesecni {nick host hand channel sign} {
set salji [

    global saljina

    if {$saljina==1} { set salji "PRIVMSG $channel" 
    } elseif {$saljina==2} { set salji "PRIVMSG $nick" 
    } else { set salji "NOTICE $nick" }

]
  set url "http://www.astrolook.com/mesecni.shtml"
  set token [ ::http::geturl $url ]
  set page [ ::http::data $token ]

  set znaci [ 
regexp -all -inline {<font class="hheader">([^\n\r]*?)</font><BR>
<font class="htext">
<!-pocetak-->
(.*?)
<!-kraj-->
} $page 
]
if { [lsearch $znaci [string toupper $sign]] >= 0 && $sign != "" && $sign != "skorpija"} {

putserv "$salji \002Mesecni horoskop za \037$sign\037:\002" 
set text [ lindex $znaci [expr [lsearch $znaci [string toupper $sign]] + 1] ]
regsub -all "\n" $text { } text
set msgs [ regexp -all -inline {.{1,250}[^ ]* *} $text ]
foreach msg $msgs { 
 putserv "$salji $msg" 
after 1000 set end 1
vwait end
}
 } elseif {$sign == "skorpija"} { 
putserv "$salji \002Mesecni horoskop za \037$sign\037:\002" 
set text [ lindex $znaci [expr [lsearch $znaci [string toupper *korpija]] + 1] ]
set msgs [ regexp -all -inline {.{1,250}[^ ]* *} $text ]
foreach msg $msgs { 
 putserv "$salji $msg" 
after 1000 set end 1
vwait end
}
} elseif {$sign == ""} { putserv "$salji \002Niste odredili znak!\002 Koristite komande npr. \002!horoskop rak\002 \037-\037 \002!nedeljni rak\002 \037-\037 \002!mesecni rak\002 \037-\037 \002!ljubavni rak\002"
} else { putserv "$salji \002Niste odredili adekvatan horoskopski znak!\002 Koristite komande npr. \002!horoskop rak\002 \037-\037 \002!nedeljni rak\002 \037-\037 \002!mesecni rak\002 \037-\037 \002!ljubavni rak\002" }
}

#Ljubavni horoskop

proc pub_ljubavni {nick host hand channel sign} {
set salji [
    global saljina
    if {$saljina==1} { set salji "PRIVMSG $channel" 
    } elseif {$saljina==2} { set salji "PRIVMSG $nick" 
    } else { set salji "NOTICE $nick" }
]
  set url "http://www.astrolook.com/ljubavni.shtml"
  set token [ ::http::geturl $url ]
  set page [ ::http::data $token ]

  set znaci [ 
regexp -all -inline {<font class="hheader">([^\n\r]*?)</font><BR>
<font class="htext">
<!-pocetak-->
(.*?)
<!-kraj-->
} $page 
]
if { [lsearch $znaci [string toupper $sign]] >= 0 && $sign != "" && $sign != "skorpija"} {

putserv "$salji \002Ljubavni horoskop za \037$sign\037:\002" 
set text [ lindex $znaci [expr [lsearch $znaci [string toupper $sign]] + 1] ]
regsub -all "\n" $text { } text
set msgs [ regexp -all -inline {.{1,250}[^ ]* *} $text ]
foreach msg $msgs { 
 putserv "$salji $msg" 
after 1000 set end 1
vwait end
}
 } elseif {$sign == "skorpija"} { 
putserv "$salji \002Ljubavni horoskop za \037$sign\037:\002" 
set text [ lindex $znaci [expr [lsearch $znaci [string toupper *korpija]] + 1] ]
set msgs [ regexp -all -inline {.{1,250}[^ ]* *} $text ]
foreach msg $msgs { 
 putserv "$salji $msg" 
after 1000 set end 1
vwait end
}
} elseif {$sign == ""} { putserv "$salji \002Niste odredili znak!\002 Koristite komande npr. \002!horoskop rak\002 \037-\037 \002!nedeljni rak\002 \037-\037 \002!mesecni rak\002 \037-\037 \002!ljubavni rak\002"
} else { putserv "$salji \002Niste odredili adekvatan horoskopski znak!\002 Koristite komande npr. \002!horoskop rak\002 \037-\037 \002!nedeljni rak\002 \037-\037 \002!mesecni rak\002 \037-\037 \002!ljubavni rak\002" }
}
putlog "Horoskop ucitan..."