google

on *:input:*: {
if ($1 = !google) && ($2) {
if ($chan = $null) {
run http://www.google.com/search?q= $+ $htmlfrm($2-)
halt
}
run http://www.google.com/search?q= $+ $htmlfrm($2-)
halt
}
}
on *:text:!google*:*: {
if ($2- == $null) { /msg $chan hm,,,apa yg mau di google ? caranya gini:!google MauGooglingApaan | halt }
if (%mintagoogle != $null) { .notice $nick sabar whoy....tunggu 1 menit...cape dudul carinya | ignore -u60 $nick | goto end }
set -u60 %mintagoogle ada
if ($chan = $null) {
notice $nick http://www.google.com/search?q= $+ $htmlfrm($2-)
halt
}
notice $nick http://www.google.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
}