Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on *:text:*!horoscope*:#: {
- var %in, %l | %in = $stripstyle($1-) | tokenize 32 %in
- if ($1 != !horoscope) halt
- .set %horoNick $nick
- .set %horoNickChan $chan
- var %sock, %l
- %sock = $+(horoscope,.,$lower($2))
- if ($sock(%sock)) halt
- if ($istok(Aquarius.Pisces.Aries.Taurus.Gemini.Cancer.Leo.Virgo.Libra.Scorpio.Sagittarius.Capricorn,$2,46)) {
- set %horochan. [ $+ [ $+(%sock) ] ] #
- sockopen %sock danger.org.uk 80
- if ($istok(sex romantic 2 money finance work flirt business,$3,32)) {
- sockmark %sock $replace($3,2,Tommorows,sex,$+(Monthly,$chr(32),Sex,$chr(32),Horoscope),romantic,$+(Weekly,$chr(32),Romantic,$chr(32),Horoscope),finance,$+(Your,$chr(32),Daily,$chr(32),Finance),money,$+(Your,$chr(32),Daily,$chr(32),Finance),work,$+(Your,$chr(32),Daily,$chr(32),Work),business,$+(Your,$chr(32),Monthly,$chr(32),Business),flirt,$+(Your,$chr(32),Daily,$chr(32),Flirt))
- .set %type. [ $+ [ $+(%sock) ] ] $+(&,type,=,$replace($3,romantic,3,sex,4,money,5,work,6,finance,6,flirt,7,business,8))
- }
- else {
- sockmark %sock Your Daily Horoscope
- .unset %type. [ $+ [ $+(%sock) ] ]
- }
- }
- if (!$2 || !$istok(Aquarius.Pisces.Aries.Taurus.Gemini.Cancer.Leo.Virgo.Libra.Scorpio.Sagittarius.Capricorn,$2,46)) {
- msg $chan 3Horoscope usage: 2!Horoscope3 <sign> [br]Options: Aquarius Pisces Aries Taurus Gemini Cancer Leo Virgo Libra Scorpio Sagittarius Capricorn
- notice %horoNick For More Options: !horoOptions | halt
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement