Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Bing Search ;;;;
- ;;;;;;;;;;;;;;by Moab;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- 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 } }
- if (!%f) {
- inc -u5 %f
- .timer 1 1 msg $chan Searching) Bing ........ Link: http://www.bing.com/search?q= $+ $htmlfrm($2-)
- }
- alias htmlfrm {
- var %i = 1,%r
- while (%i <= $len($1-)) {
- if ($mid($1-,%i,1) isalnum) { %r = %r $+ $ifmatch }
- else { %r = %r $+ % $+ $base($asc($mid($1-,%i,1)),10,16,2) }
- inc %i
- }
- return %r
- }
- alias bing {
- echo -a %logo Link: http://www.bing.com/search?q= $+ $htmlfrm($2-)
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement