Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias google {
sockopen google google.com 80
%google.temp = $1-
}
on 1:sockopen:google:{
if ($sockerr > 0) return
sockwrite -n google $eval(GET
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) $+ %google.temp $+ $eval(&btnI=I%27m+Feeling+Lucky HTTP/1.0,0)
sockwrite -n google
}
on 1:sockread:google:{
if ($sockerr > 0) return
:nextread
sockread %google.temp
if ($sockbr == 0) return
if ( Location: isin %google.temp ) {
if ( %google.nick != $null ) {
notice %google.nick 2G4o8o2g3l4e $right(%google.temp,-10)
unset %google.nick
}
else {
echo 2G4o8o2g3l4e $right(%google.temp,-10)
}
sockclose google | return
}
elseif ( did not match any documents isin %google.temp ) {
if ( %google.nick != $null ) {
notice %google.nick 2G4o8o2g3l4e No match
unset %google.nick
}
else {
echo 2G4o8o2g3l4e No match
}
}
goto nextread
}
on 1:text:!google*:#:{
%google.nick = $nick
google $2-
}
AraYaCagımız KeLimeyi /GoogLe <kelime> öRnek ; /Google Adana Google [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Status'te ßeLirtmektedir.