Advertisement
OrFeAsGr

It's 420 in.... ;)

Jun 23rd, 2016
317
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.01 KB | None | 0 0
  1. ON *:SOCKOPEN:420api: { if ($sockerr) { msg %420chan Hm... wait i'm too high now.. try again later.. | sockclose $sockname } | sockwrite -nt $sockname GET /next HTTP/1.1 | sockwrite -nt $sockname Host: its.fourtwenty.in | sockwrite -nt $sockname Connection: Close | sockwrite $sockname $crlf }
  2.  
  3. ON *:SOCKREAD:420api: { if ($sockerr) { msg %420chan Hm... wait i'm too high now.. try again later.. | sockclose $sockname } | var %420 | sockread %420 }
  4.  
  5. ON *:SOCKCLOSE:420api: { var %420 | sockread -f %420 | var %city = $gettok(%420,4,34) | var %territory = $gettok(%420,14,34) | var %timeapi = $gmt($gettok($remove($gettok(%420,19,34),$chr(58),$chr(125)),1,46),hh:nn) | var %fort = $replace($gettok($gettok(%420,4,125),1,34),\u201c,$chr(8220),\u201d,$chr(8220)) | sockclose $sockname
  6. ;MSG LINE BELOW
  7. msg %420chan 3It's %timeapi in $+(%city,$chr(44)) $+(%territory,.) 1,3 %fort  }
  8.  
  9. ON *:TEXT:*:#: { if ($strip($1) == !420) { 420api $chan } | }
  10.  
  11. alias 420api { set %420chan $1 | sockopen 420api its.fourtwenty.in 80 }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement