mIRC Snippets
Name:Yo Mama!
Description: This will display a random yomama jokes from www.exonyte.dyndns.org. I was playing around with mIRC sockets and came up with this, this is just a quick thing I made and kinda stupid I guess...
Code below...
>
;***************************
; Type in /yomama <category here>
; Available yomama categories are fat,stupid,old,ugly,poor and small
; Ex. /yomama fat
;***************************
alias yomama {
if ($1) {
if ($window(@yomama)) && ($1 = $line(@yomama,1)) { echo -s Yo mama's so $1 $line(@yomama,$rand(2,$line(@yomama,0))) }
else {
echo -a Retrieving new category please wait...
sockclose yomama
sockopen yomama www.exonyte.dyndns.org 80
sockmark yomama $1
window -c @yomama | window -h @yomama
aline @yomama $1
}
}
else { echo -a Error: Please enter a "yo mama's" category! (ex. fat,stupid,old,ugly,poor,small) }
}
on *:sockopen:yomama:{
if ($sockerr) { echo -a Error }
else { sockwrite -n $sockname GET /yomama.php?cat= $+ $sock($sockname).mark }
}
on *:sockread:yomama:{
var %yomama | sockread %yomama
if (<li> isin %yomama) {
%yomama = $remove($remove(%yomama,$left(%yomama,4)),$right(%yomama,5))
aline @yomama %yomama
}
}
on *:sockclose:yomama: { echo -s Yo mama's so $sock($sockname).mark $line(@yomama,$rand(2,$line
; Type in /yomama <category here>
; Available yomama categories are fat,stupid,old,ugly,poor and small
; Ex. /yomama fat
;***************************
alias yomama {
if ($1) {
if ($window(@yomama)) && ($1 = $line(@yomama,1)) { echo -s Yo mama's so $1 $line(@yomama,$rand(2,$line(@yomama,0))) }
else {
echo -a Retrieving new category please wait...
sockclose yomama
sockopen yomama www.exonyte.dyndns.org 80
sockmark yomama $1
window -c @yomama | window -h @yomama
aline @yomama $1
}
}
else { echo -a Error: Please enter a "yo mama's" category! (ex. fat,stupid,old,ugly,poor,small) }
}
on *:sockopen:yomama:{
if ($sockerr) { echo -a Error }
else { sockwrite -n $sockname GET /yomama.php?cat= $+ $sock($sockname).mark }
}
on *:sockread:yomama:{
var %yomama | sockread %yomama
if (<li> isin %yomama) {
%yomama = $remove($remove(%yomama,$left(%yomama,4)),$right(%yomama,5))
aline @yomama %yomama
}
}
on *:sockclose:yomama: { echo -s Yo mama's so $sock($sockname).mark $line(@yomama,$rand(2,$line
