QUELQUES JEUX POUR VOTRE BOT!

;Quelques jeux pour votre bot;

On *:text:*:*:{
  if ($1 == !destin) { //msg $chan 8,1 $+ $nick 11tu es déstiné à8 $nick(#,$r(1,$nick(#,0))) }
  if ($1 == !horoscope) {
    if ($2 == $null) { /notice $nick [SYNTHAX] !horoscope <signe> }
    elseif $2 = verseau ||  $2 = belier || $2 = taureau || $2 = gemeaux || $2 = cancer || $2 = lion || $2 = vierge || $2 = balance || $2 = scorpion  || $2 = sagittaire || $2 = poisson || $2 = capricorne  { set %signe $2 | sockopen astro www2.sympatico.ca 80 }
    else { /notice $nick Entre le bon signe ! }
  }
  if ($1 == !couple) { 
    if ($2 == $null) { notice $nick [SYNTHAX] !couple <pseudo1> <pseudo2> }
    elseif ($3 == $null) { notice $nick [SYNTHAX] !couple <pseudo1> <pseudo2> }
    else { //msg $chan 11,1Les Probalités d'affinité entre8 $2 11et8 $3 11sont de :4 $rand(0,100) $+ 0% } 
  }
  if ($1 == !perroquet) { 
    if ($2 == $null) { .notice $nick [SYNTHAX] !perroquet <on> <pseudo> ou !perroquet <off> }
    elseif ($2 == on) && ($3 != $null) { set %perro on | set %perroquet $3 | notice $nick perroquet activé sur %perroquet }
    elseif ($2 == off) { set %perro off | unset %perroquet | notice $nick perroquet mis sur %perro }
  }
}
On ^*:TEXT:*:#:{ 
  if %perro == on && $nick == %perroquet { msg $chan $1- }
}
On ^*:action:*:#:{
  if %perro == on && $nick == %perroquet { ame $1- }
}

on *:sockopen:astro:{
  sockwrite -n astro GET http://www2.sympatico.ca/cgi-bin/zodiaque_quotidien.pl?dateJour= $+ $date(yyyy) $+ $chr(45) $+ $date(mm) $+ $chr(45) $+ $date(dd) $+ &signeJour= $+ %signe
}
on *:sockread:astro:{
  if ($sockerr > 0) { return }
  :nextread
  sockread %temp 
  if ( <P><big> isin %temp) { /msg $active 7,1signe: $upper(%signe) $+  • $remove(%temp,<P><big>,</big>)  }
  if ($sockbr == 0) { return }
  else { goto nextread }
  sockclose astro | unset %signe
}