- ;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
- }
;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
}