SHARE
TWEET

Untitled

a guest Jun 1st, 2017 219 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. on $*:TEXT:*:*:{
  2.   if (Celestialskillersbot ison $chan) && ($me != Celestialskillersbot) { halt }
  3.   if ($regex($1,/^[`~!@.]g(rand)?E(x(Change)?)?$/Si)) {
  4.     if ($ isin $1-) || (.txt isin $1-) || (.ini isin $1-) || ($chr(124) isin $1-) { msg # Illegal characters: $nick in $chan -> $1- | halt }
  5.     if ($2 == $null) { $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick) You must specify something to lookup. | halt }
  6.     hinc -m $me commands 1
  7.     inc %tGE
  8.     hadd -m $+(GE.,%tGE) output $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick)
  9.     sockopen $+(GE.,%tGE) ilog.ujordan.net 80
  10.     sockmark $+(GE.,%tGE) $replace($2-,$chr(32),_)
  11.   }
  12. }
  13. on *:SOCKOPEN:GE.*:{
  14.   sockwrite -nt $sockname GET $+(/parsers/ge.php?item=,$sock($sockname).mark)) HTTP/1.1
  15.   sockwrite -nt $sockname Host: ilog.ujordan.net
  16.   sockwrite -nt $sockname $crlf
  17. }
  18. on *:SOCKREAD:GE.*:{
  19.   if ($sockerr) {
  20.     msg # SOCKET ERROR: ge -> $sockname -> $sock($sockname).wserr -> $sock($sockname).wsmsg
  21.     sockclose $sockname
  22.     halt
  23.   }
  24.   var %GE
  25.   sockread %GE
  26.   if (OUTPUT:* iswm %GE) {
  27.     $hget($sockname,output) ** [GE]: $remove(%GE,$gettok(%GE,1,32),GE)
  28.   }
  29. }
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
Top