SHARE
TWEET

horoscrope v4

a guest Feb 16th, 2020 106 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. on *:text:!horoscope*:#: {
  2.   var %sock, %l
  3.   %sock = $+(horoscope,.,$lower($2))
  4.   if ($sock(%sock)) halt
  5.   if ($istok(Aquarius.Pisces.Aries.Taurus.Gemini.Cancer.Leo.Virgo.Libra.Scorpio.Sagittarius.Capricorn,$2,46)) {
  6.     set %horochan. [ $+ [ $+(%sock) ] ] #
  7.     sockopen %sock danger.org.uk 80
  8.     if ($istok(sex romantic 2 money finance work flirt business,$3,32)) {
  9.       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))
  10.       .set %type. [ $+ [ $+(%sock) ] ] $+(&,type,=,$replace($3,romantic,3,sex,4,money,5,work,6,finance,6,flirt,7,business,8))
  11.     }
  12.     else {
  13.       sockmark %sock Your Daily Horoscope
  14.       .unset %type. [ $+ [ $+(%sock) ] ]
  15.     }
  16.   }
  17.   if (!$2 || !$istok(Aquarius.Pisces.Aries.Taurus.Gemini.Cancer.Leo.Virgo.Libra.Scorpio.Sagittarius.Capricorn,$2,46)) {
  18.     msg $chan 3Horoscope usage: 2!Horoscope3 <sign> [br]Options: Aquarius Pisces Aries Taurus Gemini Cancer Leo Virgo Libra Scorpio Sagittarius Capricorn
  19.   }
  20. }
  21. on *:sockopen:horoscope.*: {
  22.   sockwrite -n $sockname GET $+(/,horoscope,/,?,id,=,$gettok($sockname,2,46),$var($+(%type,.,$sockname),1).value) HTTP/1.1
  23.   sockwrite -n $sockname Host: pony.express
  24.   sockwrite -n $sockname Connection: close
  25.   sockwrite -n $sockname $crlf
  26. }
  27. on *:sockread:horoscope.*: {
  28.   var %horotemp, %len, %count, %l
  29.   sockread %horotemp
  30.   tokenize 32 %horotemp
  31.   if ($1 == set.it) && (4 isin $replace($1-,$sock($sockname).mark,$+(4,$sock($sockame).mark))) .set %horoscope. [ $+ [ $sockname ] ] %horoscope. [ $+ [ $sockname ] ] $2-
  32.   if ($1 == send.it) && (%horoscope. [ $+ [ $sockname ] ]) {
  33.     tokenize 32 %horoscope. [ $+ [ $sockname ] ]
  34.     msg %horochan. [ $+ [ $sockname ] ] $1-
  35.     .unset %horoscope. [ $+ [ $sockname ] ]
  36.   }
  37. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top