Advertisement
Guest User

Untitled

a guest
Jul 31st, 2019
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 0.96 KB | None | 0 0
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Bing Search    ;;;;
  3. ;;;;;;;;;;;;;;by Moab;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;      
  5.  
  6. on $*:text:/[.`!@](bing)|(bing) .*/:#:{ if (%g.spam.check [ $+ [ $nick ] ] != 1) { var %x (Searching) Bing ........ Link: $+(http://www.bing.com/search?q=,$replace($2-,$chr(32),+)) | $iif($left($1,1) == @,msg $chan %x,notice $nick %x) | set -u15 %g.spam.check [ $+ [ $Nick ] ] 1 } }
  7. if (!%f) {
  8.   inc -u5 %f
  9.   .timer 1 1 msg $chan Searching) Bing ........  Link: http://www.bing.com/search?q= $+ $htmlfrm($2-)
  10.  
  11. }
  12. alias htmlfrm {
  13.   var %i = 1,%r
  14.   while (%i <= $len($1-)) {
  15.     if ($mid($1-,%i,1) isalnum) { %r = %r $+ $ifmatch }
  16.     else { %r = %r $+ % $+ $base($asc($mid($1-,%i,1)),10,16,2) }
  17.     inc %i
  18.   }
  19.   return %r
  20. }
  21. alias bing {
  22.   echo -a %logo Link: http://www.bing.com/search?q= $+ $htmlfrm($2-)
  23. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement