/ScriptServ

alias -l Categorie { return Accademiche Aforismi Animali Annunci Avvocati berlusconi clinton Calcio Carabinieri Colmi comedisse coppia dottore indovinelli sms nomi trasporto surreali computer titoli differenze }
alias -l SezCodice { return 1 18 2 3 39 47 4 41 5 6 40 9 11 17 43 23 21 15 42 36 12 }
alias -l SezLimite { return 117 343 203 62 106 52 53 254 381 167 85 145 174 410 105 238 101 75 75 87 62 }
alias -l ExtName { return Accademiche,Aforismi,Animali,Annunci Econimici,Avvocati,Berlusconi,Bill Clinton,Calcio,Carabinieri,Colmi,Come Disse,Coppia,Dottore,Indovinelli,SMS,Nomi,Trasporto,Surreali,Computer,Titoli,Differenze }

alias -l CheckCmd {
  var %strippedout = $right($1,-1)
  if (($left($1,1) == !) && $istok($Categorie,%strippedout,32)) {
    Var %sock = Barzellette $+ $rand(0,999)
    sockopen %sock www.dada.it 80
    SockMark %sock %strippedout $2
  }
}



alias -l GetWhich { return $findtok($Categorie,$1,32) }

on *:input:*:{ CheckCmd $1 $me }
on *:text:*:%barchan:{ CheckCmd $1 $nick }
on *:sockopen:Barzellette*:{
  var %x = sockwrite -n $sockname,%z = http://barzellette.dada.net/barzellette/scheda.shtml?c=,%y = www.dada.it
  Tokenize 32 $sock($sockname).mark
  %x GET %z $+ $gettok($SezCodice,$GetWhich($1),32) $+ &j= $+ $rand(0,$gettok($SezLimite,$GetWhich($1),32)) HTTP/1.0
  %x Host: %y
  %x
} 
on *:sockread:Barzellette*:{
  var %inizio = <td width="100%" align="left" valign="top">
  var %fine = <br /><br />
  Tokenize 32 $sock($sockname).mark
  if ($sockerr > 0) return
  sockread %temp
  var %canale = %barchan
  var %title = $gettok($ExtName,$GetWhich($1),44)
  if (%inizio isin $remove(%temp,	)) {
    sockread %temp
    while (($remove(%temp,	) != %fine) && $sockbr) {
      var %temp = $replace(%temp,<br>,$chr(9))
      tokenize 9 %temp
      .msg %canale —]7 $+ %title $+ [— $replace($remove($1,	),&quot;,")
      if ($0 > 1) %temp = $replace($2-,$chr(9),<br>)
      else sockread %temp
    }
    sockclose $sockname
  }
}