/ScriptServ

on *:TEXT:!boton:#:{ 
  if ($nick == %ownbot) { set %botchan $chan | set %onoffbot on }
}
on *:TEXT:!botoff:#:{ 
  if ($nick == %ownbot) { set %onoffbot off }
}
;=============================================================================;
on *:TEXT:*:%botchan:{ 
  if (%onoffbot == ON) {
    if (ciao isin $1-) { msg $chan $read(bottolo\frasi\ciao.btt) | halt } 
    if (we isin $1-) { msg $chan $read(bottolo\frasi\ciao.btt) | halt } 
    if (ciau isin $1-) { msg $chan $read(bottolo\frasi\ciao.btt) | halt } 
    if (cazzo isin $1-) { msg $chan $read(bottolo\frasi\cc.btt) | halt }
    if (gay isin $1-) { msg $chan $read(bottolo\frasi\gg.btt) | halt }
    if (lol isin $1-) { msg $chan $read(bottolo\frasi\lol.btt) | halt }
    if (-.- isin $1-) { msg $chan $read(bottolo\frasi\_.btt) | halt }
    if (_-_ isin $1-) { msg $chan $read(bottolo\frasi\_.btt) | halt }
    if (-_- isin $1-) { msg $chan $read(bottolo\frasi\_.btt) | halt }
    if (._. isin $1-) { msg $chan $read(bottolo\frasi\_.btt) | halt }
    if (u_u isin $1-) { msg $chan $read(bottolo\frasi\_.btt) | halt }
    if (? isin $1-) { msg $chan $read(bottolo\frasi\punto.btt) | halt }
    if (c'è nessuno isin $1-) { msg $chan $read(bottolo\frasi\6.btt) | halt }
    if (c'è qualcuno isin $1-) { msg $chan $read(bottolo\frasi\6.btt) | halt }
    if (c6 isin $1-) { msg $chan $read(bottolo\frasi\6.btt) | halt }
    if (ci sei isin $1-) { msg $chan $read(bottolo\frasi\6.btt) | halt }
    if (kk isin $1-) { msg $chan $read(bottolo\frasi\kk.btt) | halt }
    if (ahah isin $1-) { msg $chan $read(bottolo\frasi\haha.btt) | halt }
    if (hehe isin $1-) { msg $chan $read(bottolo\frasi\haha.btt) | halt }
    if (hihi isin $1-) { msg $chan $read(bottolo\frasi\haha.btt) | halt }
    if (asd isin $1-) { msg $chan $read(bottolo\frasi\haha.btt) | halt }
    if ($me isin $1-) { msg $chan $read(bottolo\frasi\varie.btt) | halt }
    if (away isin $1-) { $read(bottolo\frasi\aw.btt) | halt }
    if (out isin $1-) { $read(bottolo\frasi\aw.btt) | halt }
    if ($chr(35) isin $1-) { msg $chan $read(bottolo\frasi\spam.btt) | halt }
    if (http isin $1-) { msg $chan $read(bottolo\frasi\spam.btt) | halt }
    if (www isin $1-) { msg $chan $read(bottolo\frasi\spam.btt) | halt }
    if (Notte isin $1-) { msg $chan $read(bottolo\frasi\n.btt) | halt }
    if (porco isin $1-) { msg $chan $read(bottolo\frasi\p.btt) | halt }
    if (porca isin $1-) { msg $chan $read(bottolo\frasi\p.btt) | halt }
    if (giorno isin $1-) { msg $chan $read(bottolo\frasi\giorno.btt) | halt }
    if (prr isin $1-) { msg $chan $read(bottolo\frasi\prr.btt) | halt }
    if (suk isin $1-) { msg $chan $read(bottolo\frasi\suka.btt) | halt }
    if (bot isin $1-) { msg $chan $read(bottolo\frasi\bot.btt) | halt }
    if (azz isin $1-) { msg $chan $read(bottolo\frasi\azz.btt) | halt }
    if (mm isin $1-) { msg $chan $read(bottolo\frasi\varie.btt) | halt }
  }
}
dialog bottolo {
  title "BoTtOlO"
  icon $mircdirImmagini\1.ico, 0
  size -1 -1 120 74
  option dbu
  text "Imposta Il Chan:", 2, 5 5 70 10
  edit %botchan, 3, 5 17 111 12,autohs,center
  check %onoffbot, 6, 5 34 8 10
  text "Attiva/Disattiva", 7, 14 35 60 10
  button "Okay", 20, 4 55 111 15, ok
}
on *:dialog:bottolo:init:*: {
  if %onoffbot = ON { did -c bottolo 6 }
  ;mdx  
  mdxbegin
  mdx SetBorderStyle $dname 20 staticedge clientedge
  mdx SetDialog $dname bgcolor $rgb(0,0,0)
  mdx SetFont $dname 2,3,7,20 16 660 comic sans ms
  mdx SetColor $dname 2,3,6,7 background $rgb(0,0,0)
  mdx SetColor $dname 20 background $rgb(0,173,255)
  mdx SetColor $dname 2,3,7 textbg $rgb(0,0,0)
  mdx SetColor $dname 2,3,7 text $rgb(0,173,255)
}
on *:dialog:bottolo:sclick:20: {
  if ($did(bottolo,6).state = 1) { %onoffbot = on } | else { %onoffbot = off }
  set %botchan $did(bottolo,3)
}