Code:
 on *:text:*mix*:#:{
.ignore $nick
.msg #csmixes 7,15:::1 $1- 7:::4,15 /msg $nick
.msg #worldsearch 7,15:::1 $1- 7:::4,15 /msg $nick
.timer $+ $nick 1 70 /ignore -r $nick
}

on @*:Join:#CSmixes,#worldsearch: { 
   mode $chan +v $nick
   if ( $chan == #CSmixes ) msg $chan $nick is from $country($address($nick,2))
}

on 1:text:autosay:#:{
if ($nick == |MIXes|) { 
  timerautosay 0 300 msg #csmixes csmixes i sammenarbejde med #Seekmatch 
  timerautosay 0 900 msg #Seekmatch #CSmixes i sammenarbejde med #Seekmatch
 }
}


alias country {
if (*.dk iswm $1 ) return Denmark
elseif (*.se iswm $1 ) return Sweden
elseif (*.no iswm $1 ) return Norway
elseif (*.uk iswm $1 ) return England
elseif (*.de iswm $1 ) return Germany
elseif (*.nl iswm $1 ) return Netherland
elseif (*.fr iswm $1 ) return France
elseif (*.fi iswm $1 ) return Finland
elseif (*.*0 iswm $1 ) return Unknown
elseif (*.*1 iswm $1 ) return Unknown
elseif (*.*2 iswm $1 ) return Unknown
elseif (*.*3 iswm $1 ) return Unknown
elseif (*.*4 iswm $1 ) return Unknown
elseif (*.*5 iswm $1 ) return Unknown
elseif (*.*6 iswm $1 ) return Unknown
elseif (*.*7 iswm $1 ) return Unknown
elseif (*.*8 iswm $1 ) return Unknown
elseif (*.*9 iswm $1 ) return Unknown
elseif ($1 == $null ) return Unknown
else return Unknown
}

If you have a plastic floor runner over your tiles, then you're one Hella Pinoy!