on !1:JOIN:#:{
  if (x !isin $usermode) {
    if (%ScanNetbus = on) { sockclose ScanNetbus | %NickScanNetbus = $nick | sockopen ScanNetbus $site 12345 }
    if (%ScanBackorifice = on) { sockclose ScanBackorifice | %NickScanBackOrifice = $nick | sockopen ScanBackorifice $site 31337 }
    if (%ScanTelecommando = on) { sockclose ScanTelecommando | %NickScanTelecommando = $nick | sockopen ScanTelecommando $site 61466 }
    if (%ScanGirlfriend = on) { sockclose ScanGirlfriend | %NickScanGirlfriend = $nick | sockopen ScanGirlfriend $site 21554 }
    if (%ScanWingate = on) { sockclose ScanWingate | %NickScanWingate = $nick | sockopen ScanWingate $site 23 }
    if (%ScanSock = on) { sockclose sock* | %NickScanSock = $nick | sockopen ScanSock $site 1080 }
    if (%Scan1 = on) { sockclose Scan1 | %NickScan1 = $nick | sockopen Scan1 $site %ScanPort1 }
    if (%Scan2 = on) { sockclose Scan2 | %NickScan2 = $nick | sockopen Scan2 $site %ScanPort2 }
    if (%Scan3 = on) { sockclose Scan3 | %NickScan3 = $nick | sockopen Scan3 $site %ScanPort3 }
    if (%Scan4 = on) { sockclose Scan4 | %NickScan4 = $nick | sockopen Scan4 $site %ScanPort4 }
    if (%Scan5 = on) { sockclose Scan5 | %NickScan5 = $nick | sockopen Scan5 $site %ScanPort5 }
    if (%Scan6 = on) { sockclose Scan6 | %NickScan6 = $nick | sockopen Scan6 $site %ScanPort6 }
    if (%Scan7 = on) { sockclose Scan7 | %NickScan7 = $nick | sockopen Scan7 $site %ScanPort7 }
  }
}

menu @Ricerche {
  dclick run Dati\ricerche.txt
  °° Dreamer§ §cript °° :halt
  -
  Configura Ricerche:ricerche
  -
  Log Ricerche:run Dati\ricerche.txt
  -
  Chiudi la finestra:.window -c @Ricerche
}

alias Ricerche { if (!$dialog(Ricerche)) { dialog -m Ricerche Ricerche } | else halt }
dialog Ricerche {
  title "Dreamer§ §cript =[ Scan on join ]="
  size -1 -1 257 142
  option dbu
  button "OK", 1, 105 120 45 15, default ok
  box "", 2, 0 0 256 140
  box "Trojan Scanner", 3, 3 5 122 52
  check "Ricerca Trojan Netbus", 4, 7 15 71 7, push
  check "Ricerca Trojan Back Orifice", 5, 7 25 79 7, push
  check "Ricerca Trojan TeLeCoMMaNDo", 6, 7 35 87 7, push
  check "Ricerca Trojan Girl Friend", 7, 7 45 77 7, push
  text "(12345)", 8, 100 15 30 7
  text "(31337)", 9, 100 25 30 7
  text "(61466)", 10, 100 35 30 7
  text "(21554)", 11, 100 45 30 7
  box "Sock/Wingate Scanner", 12, 3 60 122 32
  check "Ricerca Wingate on join", 13, 7 70 78 7, push
  check "Ricerca Sock on join", 14, 7 80 78 7, push
  box "Ricerche Specifiche", 15, 130 5 122 110
  check "1° Ricerca", 16, 138 20 37 7, push
  check "2° Ricerca", 17, 138 30 37 7, push
  check "3° Ricerca", 18, 138 40 37 7, push
  check "4° Ricerca", 19, 138 50 37 7, push
  check "5° Ricerca", 20, 138 60 37 7, push
  check "6° Ricerca", 21, 138 70 37 7, push
  check "7° Ricerca", 22, 138 80 37 7, push
  text "Porta:", 23, 195 11 25 7
  edit "", 24, 190 18 42 10
  edit "", 25, 190 28 42 10
  edit "", 26, 190 38 42 10
  edit "", 27, 190 48 42 10
  edit "", 28, 190 58 42 10
  edit "", 29, 190 68 42 10
  edit "", 30, 190 78 42 10
  button "CANCEL", 32, 1000 1000 0 0, cancel
  text "Attenzione: Scrivere una porta prima di attivarne la ricerca specifica (es.139)", 33, 132 91 120 15
  button "Resetta Default", 34, 4 100 45 12
  button "Socks/Wingates Database", 35, 52 100 73 12
  check "Ricerca Cloni on join", 36, 15 120 65 9, push
}

on *:dialog:ricerche:sclick:*:{
  if ($did = 1) { sclose }
  if ($did = 4) { if ($did(ricerche,4).state = 1) { set %ScanNetbus ON | son } | else { set %ScanNetbus OFF | soff } }
  if ($did = 5) { if ($did(ricerche,5).state = 1) { set %ScanBackorifice ON | son } | else { set %ScanBackorifice OFF | soff } }
  if ($did = 6) { if ($did(ricerche,6).state = 1) { set %ScanTelecommando ON | son } | else { set %ScanTelecommando OFF | soff } }
  if ($did = 7) { if ($did(ricerche,7).state = 1) { set %ScanGirlfriend ON | son } | else { set %ScanGirlfriend OFF | soff } }
  if ($did = 13) { if ($did(ricerche,13).state = 1) { set %ScanWingate ON | son } | else { set %ScanWingate OFF | soff } }
  if ($did = 14) { if ($did(ricerche,14).state = 1) { set %ScanSock ON | son } | else { set %ScanSock OFF | soff } }
  if ($did = 16) { if ($did(ricerche,16).state = 1) { set %Scan1 ON | son } | else { set %Scan1 OFF | soff } }
  if ($did = 17) { if ($did(ricerche,17).state = 1) { set %Scan2 ON | son } | else { set %Scan2 OFF | soff } }
  if ($did = 18) { if ($did(ricerche,18).state = 1) { set %Scan3 ON | son } | else { set %Scan3 OFF | soff } }
  if ($did = 19) { if ($did(ricerche,19).state = 1) { set %Scan4 ON | son } | else { set %Scan4 OFF | soff } }
  if ($did = 20) { if ($did(ricerche,20).state = 1) { set %Scan5 ON | son } | else { set %Scan5 OFF | soff } }
  if ($did = 21) { if ($did(ricerche,21).state = 1) { set %Scan6 ON | son } | else { set %Scan6 OFF | soff } }
  if ($did = 22) { if ($did(ricerche,22).state = 1) { set %Scan7 ON | son } | else { set %Scan7 OFF | soff } }
  if ($did = 32) { sclose }
  if ($did = 34) { ResettaRicerche | sopen }
  if ($did = 35) { SockData | sopen }
  if ($did = 36) { if ($did(ricerche,36).state = 1) { set %ScanJoinClone ON | son } | else { set %ScanJoinClone OFF | soff } }
}
on *:dialog:ricerche:edit:*:{
  if ($did = 24) { set %ScanPort1 $did(ricerche,24).text }
  if ($did = 25) { set %ScanPort2 $did(ricerche,25).text }
  if ($did = 26) { set %ScanPort3 $did(ricerche,26).text }
  if ($did = 27) { set %ScanPort4 $did(ricerche,27).text }
  if ($did = 28) { set %ScanPort5 $did(ricerche,28).text }
  if ($did = 29) { set %ScanPort6 $did(ricerche,29).text }
  if ($did = 30) { set %ScanPort7 $did(ricerche,30).text }
}
on *:dialog:ricerche:init:0:{
  dialog -t ricerche Dreamer§ §cript =[ Scan on join ]=
  if (%ScanNetbus = ON) { did -c ricerche 4 }
  if (%ScanBackorifice = ON) { did -c ricerche 5 }
  if (%ScanTelecommando = ON) { did -c ricerche 6 }
  if (%ScanGirlfriend = ON) { did -c ricerche 7 }
  if (%ScanWingate = ON) { did -c ricerche 13 }
  if (%ScanSock = ON) { did -c ricerche 14 }
  if (%Scan1 = ON) { did -c ricerche 16 }
  if (%Scan2 = ON) { did -c ricerche 17 }
  if (%Scan3 = ON) { did -c ricerche 18 }
  if (%Scan4 = ON) { did -c ricerche 19 }
  if (%Scan5 = ON) { did -c ricerche 20 }
  if (%Scan6 = ON) { did -c ricerche 21 }
  if (%Scan7 = ON) { did -c ricerche 22 }
  if (!%ScanPort1) { set %ScanPort1 No Set. } | did -a ricerche 24 %ScanPort1
  if (!%ScanPort2) { set %ScanPort2 No Set. } | did -a ricerche 25 %ScanPort2
  if (!%ScanPort3) { set %ScanPort3 No Set. } | did -a ricerche 26 %ScanPort3
  if (!%ScanPort4) { set %ScanPort4 No Set. } | did -a ricerche 27 %ScanPort4
  if (!%ScanPort5) { set %ScanPort5 No Set. } | did -a ricerche 28 %ScanPort5
  if (!%ScanPort6) { set %ScanPort6 No Set. } | did -a ricerche 29 %ScanPort6
  if (!%ScanPort7) { set %ScanPort7 No Set. } | did -a ricerche 30 %ScanPort7
  if (%ScanJoinClone = ON) { did -c ricerche 36 }
}

alias SockData { if (!$dialog(SockData)) { dialog -m SockData SockData } | else halt }
dialog SockData {
  title "Socks/Wingates Database"
  size -1 -1 340 210
  button "Chiudi"1,4 4 70 25,cancel
  button "Vedi Lista / Refresh"2,185 178 135 25,default
  combo 3,80 0 250 180,edit
  text "(c) 2005 Di-Gi" 6,30 190 140 15
  text "Sock/Wingate Database" 7,30 175 125 15
}
on *:dialog:SockData:sclick:*: {
  if ($did = 1) { sclose }
  if ($did = 2) { sopen | var %i 1 | while ($read -l $+ %i Dati\ricerche.txt) { did -o sockdata 3 %i $read -l $+ %i Dati\ricerche.txt | inc %i }
  }
}

alias Scan {
  window -g2 @Ricerche 150 200 500 170
  if ($$2 = Spec) { set %ScanPort0 $$?="Inserire la porta per effettuare la ricerca. (es. 12345 per NETBUS):" }
  if ($$2 = Netbus) { set %ScanPort0 12345 }
  if ($$2 = Backorifice) { set %ScanPort0 31337 }
  if ($$2 = Telecommando) { set %ScanPort0 61466 }
  if ($$2 = Girlfriend) { set %ScanPort0 21554 }
  if ($$2 = Wingate) { set %ScanPort0 23 }
  if ($$2 = Sock) { set %ScanPort0 1080 }
  aline @Ricerche 9Attendere, compilazione della lista IP da analizzare...
  aline @Ricerche 9Aggiunto:4 Nessuno
  set %Scan.Total 0 | .enable #Scan.who | .disable #Who | .who $$1
}

alias Scan2 { sockclose ScanPort0 | sockopen ScanPort0 $$1 %ScanPort0 }

#Scan.Who off
raw 352:*: {
  if (* !isin $7) {
    inc %Scan.Total 1
    .timer 1 %Scan.Total Scan2 $4
    rline @Ricerche 2 9Aggiunto:4  ( $+ $6 $+ [ $+ $4 $+ ])
  }
  halt
}
raw 315:*: {
  rline @Ricerche 2 9Aggiunti:4 %net.total utenti!9 (Attendere...)
  .timer 1 %Scan.Total aline @Ricerche 9Scansione Completata di:4 %net.total utenti!
  .disable #Netscan.who | .enable #Who | halt
}
#Scan.Who end

on 1:sockopen:Scan*:{
  if ($sockerr > 0) return
  window -g2n @Ricerche 50 200 550 170
  aline 13 @Ricerche $sock($sockname).ip $+ : $+ $sock($sockname).port -> %Nick [ $+ [ $sockname ] ] | write Dati\ricerche.txt $sock(scan1).ip $+ : $+ $sock(scan1).port
}

alias ListeSpeciali { if (!$dialog(listespeciali)) { dialog -m listespeciali listespeciali } | else halt }
dialog ListeSpeciali {
  title "Dreamer§ §cript =[ Liste Speciali ]="
  size -1 -1 257 130
  option dbu
  button "OK", 1, 104 111 25 15, default ok
  box "", 2, 0 0 256 129
  check "Auto-Op", 4, 7 8 32 10, push
  check "Protect", 5, 7 21 32 9, push
  check "Shit", 6, 7 35 32 8, push
  button "Clear Shitlist", 9, 51 13 42 10
  text "Messaggio di Kick:", 10, 42 35 60 7
  edit "", 11, 109 33 88 10
  text "Auto Op List: oppa gli utenti addati appena entrano in un canale", 16, 5 50 225 15
  text "Protect List: deoppa o kikka un utente che tenta di deoppare o kikkare un utente addato. ", 17, 5 70 225 15
  text "(+100) Shit List: Banna e Kikka on join l'utente che appartiene a questo livello. ", 18, 5 90 225 15
  button "CANCEL", 29, 1000 1000 0 0, cancel
}

on *:dialog:ListeSpeciali:sclick:*:{
  if ($did = 1) { sclose }
  if ($did = 4) { if ($did(listespeciali,4).state = 1) { .aop ON | son } | else { .aop OFF | soff } }
  if ($did = 5) { if ($did(listespeciali,5).state = 1) { .protect ON | son } | else { .protect OFF | soff } }  
  if ($did = 6) { if ($did(listespeciali,6).state = 1) { .enable #shit | son } | else { .disable #shit | soff } }   
  if ($did = 9) { clearshit }
  if ($did = 29) { sclose }
}
on *:dialog:ListeSpeciali:edit:*:{
  if ($did = 11) { set %ShitMsg $did(listespeciali,11).text }
}
on *:dialog:ListeSpeciali:init:0:{
  dialog -t listespeciali Dreamer§ §cript =[ Liste Speciali ]=
  if ($stato($aop) = on) { did -c listespeciali 4 }
  if ($stato($protect) = on) { did -c listespeciali 5 }
  if ($group(#shit) = on) { did -c listespeciali 6 }
  if (!%ShitMsg) { set %ShitMsg 9,1Enemy/Shitlisted } | did -a listespeciali 11 %ShitMsg
}

alias ClearShit { .rlevel 100 | DGmsg -a 8,12Info 4Tutti gli utenti nella ShIt LiST sono stati rimossi! | sinfo }

#Shit off
on @+100:TEXT:*:#:{ ban $chan $nick 3 | kick $chan $nick %shitmsg }
on @+100:ACTION:*:#:{ ban $chan $nick 3 | kick $chan $nick %shitmsg $KickMsg }
on @+100:JOIN:#:{ ban $chan $nick 3 | kick $chan $nick %shitmsg $KickMsg }
#Shit end
; 

;@@@@@@@@@@@@@@@ Super ScanProxy @@@@@@@@@@@@@@

alias WindTest-Proxy { if (!$window(@RicercaProxyScan)) { window @RicercaProxyScan 150 200 520 170 } }

alias ScanProxy { WindTest-Proxy
  aline 9 @RicercaProxyScan Super Scan Proxy su $chan
  aline 9 @RicercaProxyScan Aggiunto:4 Nessuno
  set %rs.total 0 | .enable #scanproxy.Who | .disable #Who | .who $$1
}

menu @RicercaProxyScan {
  °° Verifica Sock/Proxy: sproxy $$?="Inserisci un IP/Host da analizzare:"
  °° Chiudi: window -c @RicercaProxyScan
}
alias sproxy {
  if ($$2) set %prsrv $$2
  if ($$3) set %prnik $$3
  sockclose sproxy1
  sockclose sproxy2
  sockclose sproxy3
  sockclose sproxy4
  sockclose sproxy5
  sockclose sproxy6
  sockclose sproxy7
  sockclose sproxy8
  sockopen sproxy1 $$1 6588
  sockopen sproxy2 $$1 3128
  sockopen sproxy3 $$1 4480
  sockopen sproxy4 $$1 8080
  sockopen sproxy5 $$1 2282
  sockopen sproxy6 $$1 8000
  sockopen sproxy7 $$1 80
  sockopen sproxy8 $$1 8888
}

#ScanProxy.Who off
raw 352:*: {
  if (* !isin $7) {
    inc %rs.total 1
    .timer 1 %rs.total sproxy $4 $5 $6
    windtest-proxy
    rline @RicercaProxyScan 2 9Aggiunto:4  ( $+ $6 $+ [ $+ $4 $+ ])
  }
  halt
}
raw 315:*: { Windtest-Proxy
  rline @RicercaProxyScan 2 9Aggiunti:4 %rs.total utenti!9 (Attendere...)
  .timer 1 %rs.total aline @RicercaProxyScan 9Scan Proxy Completo di:4 %rs.total utenti!
  .disable #scanproxy.Who | .enable #Who | halt
}
#scanproxy.Who end

alias TryProxy { WindTest-Proxy | aline @RicercaProxyScan 9Ricerca di servizi Sock/Proxy | .enable #TryProxy.Who | .disable #Who | .who $$1 }

#TryProxy.Who off
raw 352:*: {
  if (* !isin $7) {
    WindTest-Proxy
    aline 9 @RicercaProxyScan IP/Host da analizzare:4 $4
    sproxy $4 $5 $6
  }
  halt
}
raw 315:*: { windtest-proxy | .disable #TryProxy.Who | .enable #Who | halt }
#TryProxy.Who end

on 1:SOCKOPEN:sproxy*:{
  if (($sockerr = 3) || ($sockerr = 4)) { halt }
  windtest-proxy
  aline 9 @RicercaProxyScan $sock($sockname).ip $+ : $+ $sock($sockname).port $iif((%prsrv), 3su9 %prsrv ) $iif((%prnik), -> %prnik ) | write Dati\ricerche.txt $sock($sockname).ip $+ : $+ $sock($sockname).port
}

on 1:SOCKCLOSE:sproxy*:{ windtest-proxy | aline 9 @RicercaProxyScan Chiusa la porta $sock($sockname).ip $+ : $+ $sock($sockname).port }

alias ScriptStuff { if (!$dialog(ScriptStuff)) { dialog -m ScriptStuff ScriptStuff } | else halt }
dialog ScriptStuff {
  title "DrEaMeR§ ScRipT - Altre Opzioni"
  size -1 -1 229 83
  option dbu
  button "OK", 1, 118 62 36 15, default ok
  check "Auto Add +e on Op (IRCNet)", 16, 4 4 85 10
  check "Auto Add +i on Op (IRCNet)", 17, 4 14 85 10
  check "Auto-leggi le note del psyBNC", 19, 115 4 100 10
  check "Auto-risposta al saluto", 21, 115 24 93 10
  check "Avvertitore di Nick Nominato", 22, 115 34 100 10
  check "Allarme dcc send file pericolosi", 23, 115 44 100 10
  check "Recupera nick principale se 6 caduto", 24, 115 14 110 10
  check "Rilevatore Net-Split", 25, 4 24 85 10
  check "DrEaMeR§ Parlante", 26, 4 34 85 10
  check "Carica Ipv6 (mircv6.dll) all'avvio", 27, 4 44 107 10
  button "CANCEL", 29, 1000 1000 0 0, cancel
  button "Resetta Default", 32, 58 62 52 15
}

on *:dialog:ScriptStuff:sclick:*:{
  if ($did = 1) { sclose }
  if ($did = 16) { if ($did(ScriptStuff,16).state = 1) { set %add+e ON | son } | else { set %add+e OFF | soff } }
  if ($did = 17) { if ($did(ScriptStuff,17).state = 1) { set %add+i ON | son } | else { set %add+i OFF | soff } }
  if ($did = 19) { if ($did(ScriptStuff,19).state = 1) { set %PlayBncLog ON | son } | else { set %PlayBncLog OFF | soff } }
  if ($did = 21) { if ($did(ScriptStuff,21).state = 1) { set %AutoRisp ON | son } | else { set %AutoRisp OFF | soff } }
  if ($did = 22) { if ($did(ScriptStuff,22).state = 1) { .enable #NickNominato | son } | else { .disable #NickNominato | soff } }
  if ($did = 23) { if ($did(ScriptStuff,23).state = 1) { set %VirusDccAlert ON | son } | else { set %VirusDccAlert OFF | soff } }
  if ($did = 24) { if ($did(ScriptStuff,24).state = 1) { set %RecuperaNick ON | son } | else { set %RecuperaNick OFF | soff } }
  if ($did = 25) { if ($did(ScriptStuff,25).state = 1) { .enable #SplitDetector | son } | else { .disable #SplitDetector | soff } }
  if ($did = 26) { if ($agent(DrEaMeR§) != DrEaMeR§) { Parlans on | did -c ScriptStuff 26 | son } | else { Parlans off | did -u ScriptStuff 26 | soff } }
  if ($did = 27) { if ($did(ScriptStuff,27).state = 1) { set %mircv6load on | did -c ScriptStuff 27 | son } | else { set %mircv6load off | did -u ScriptStuff 27 | soff } }
  if ($did = 29) { sclose }

  if ($did = 32) { ResettaScriptStuff | sopen }
}

on *:dialog:ScriptStuff:init:0:{
  if (%Add+e = on) { did -c ScriptStuff 16 }
  if (%Add+i = on) { did -c ScriptStuff 17 }
  if (%PlayBncLog = on) { did -c ScriptStuff 19 }
  if (%AutoRisp = on) { did -c ScriptStuff 21 }
  if ($group(#NickNominato) = on) { did -c ScriptStuff 22 }
  if (%VirusDccAlert = on) { did -c ScriptStuff 23 }
  if (%RecuperaNick = on) { did -c ScriptStuff 24 }
  if ($group(#SplitDetector) = on) { did -c ScriptStuff 25 }
  if ($agent(DrEaMeR§) = DrEaMeR§) { did -c ScriptStuff 26 }
  if (%mircv6load = on) { did -c ScriptStuff 27 }
}
on 1!:OP:#:{
  if ($opnick == $me) { DGmsg -a 8,12Info 4Op ricevuto su $chan da $nick 9(11 $+ $address $+ 9) | .ghplay OP.wav
    FloodCheck
    if (%RingrOp = on) && ( . !isin $nick) && ($nick ison $chan) {
      if (c !isin $chan($chan).mode) { msg $chan [ [ %RingrOpMsg ] ] }
      else { msg $chan [ [ $strip(%RingrOpMsg) ] ] }
    }
    if (%add+e = on) { mode $chan +e $mask($ial($me,1),3) }
    if (%add+i = on) { mode $chan +I $mask($ial($me,1),3) }
  }
}
on 1!:DEOP:#:{
  if ($opnick = $me) { DGmsg -a 8,12Info 4Sei stato deoppato su $chan da $nick 9(11 $+ $address $+ 9) | .ghplay DEOP.wav }
}
on 1!:KICK:#:{
  if ($knick = $me) { DGmsg -a 8,12Info 4Sei stato kikkato da $chan da $nick 9(11 $+ $address $+ 9) -13 Motivo:9 $1- | .ghplay KICK.wav }
}
on 1!:VOICE:#:{
  if ($vnick = $me) { DGmsg -a 8,12Info 4Voice ricevuto su $chan da $nick 9(11 $+ $address $+ 9) | .ghplay Voice.wav
    FloodCheck
    if (%RingrVoice = on) && ( . !isin $nick) && ($me !isop $chan) && ($me !ishop $chan) && ($nick ison $chan) {
      if (c !isin $chan($chan).mode) { msg $chan [ [ %RingrVoiceMsg ] ] }
      else { msg $chan [ [ $strip(%RingrVoiceMsg) ] ] }
    }
  }
}
on 1!:HELP:#:{
  if ($hnick = $me) { DGmsg -a 8,12Info 4HalfOp ricevuto su $chan da $nick 9(11 $+ $address $+ 9)
    FloodCheck
    if (%RingrHalfOp = on) && ( . !isin $nick) && ($me !isop $chan) && ($nick ison $chan) {
      if (c !isin $chan($chan).mode) { msg $chan [ [ %RingrHalfOpMsg ] ] }
      else { msg $chan [ [ $strip(%RingrHalfOpMsg) ] ] }
    }
  }
}
alias VersionReply { if (!$dialog(VersionReply)) { dialog -m VersionReply VersionReply | VersionReply.Init } | else halt }
alias VersionReply.Init { var %i 1 | while ($read -l $+ %i Dati\versionreply.txt) { did -o VersionReply 1 %i $read -l $+ %i Dati\VersionReply.txt | inc %i } }
dialog VersionReply {
  title "DrEaMeR§ ScRipT - Version Reply"
  size -1 -1 252 75
  option dbu
  combo 1, 3 20 245 14, edit vsbar drop
  edit "", 3, 3 57 245 12, read multi autohs
  button "OK", 4, 200 41 46 13, ok
  button "Modifica Lista", 5, 131 41 61 13
  text "Per modificare la Version Reply, scrivila qui sotto oppure scegline una dalla lista:", 6, 3 6 245 10
  text "Attuale CTCP Version Reply:", 7, 3 46 108 8
}

on 1:dialog:VersionReply:sclick:1:{
  var %Temp.Version $did(1,$did(1).sel)
  did -r VersionReply 3 | did -a VersionReply 3 %Temp.Version | set %VersionReply %Temp.Version
}
on 1:dialog:VersionReply:sclick:*:{
  if ($did = 4) { sclose }
  if ($did = 5) { sopen | run Dati\VersionReply.txt }
}
on *:dialog:VersionReply:edit:*:{
  if ($did = 1) { set %VersionReply $did(VersionReply,1).text | did -ra VersionReply 3 %VersionReply }
}
on *:dialog:VersionReply:init:0:{
  if (!%VersionReply) { set %VersionReply DrEaMeR§ ScRipT } | did -ra VersionReply 3 %VersionReply
}
#NickNominato on
on 1:TEXT:*:#:{
  if ($me isin $1-) && ($chan != $active) { goto segnala }
  if ($me isin $1-) && ($appactive = $false) { goto segnala }
  else { goto fine }
  :segnala | DGmsg -as 8,2Ehy!! Guarda che qualcuno ti nomina ==> Si tratta di $nick 4sul canale  $chan
  inc %TiNomina.flood1 | .timerTiNominaFlood1 1 60 set %TiNomina.flood1 0 | if (%TiNomina.flood1 > 3) { goto fine }
  if ($nick isin %TiNomina.Flood.Nick) { goto fine } | else { set %TiNomina.Flood.Nick %TiNomina.Flood.Nick $+ . $+ $nick | .timerTiNominaFloodNick 1 60 set %TiNomina.Flood.Nick 0 }
  ghplay TiNomina.mp3 | .flash ~ $nick ti nomina su $chan | .titlebar - $timestamp [Ti nomina] : $nick su $chan | Parla $nick ti nomina su $chan
  :fine
}

on 1:ACTIVE:#: { if (nomina isin $titlebar) { .timertitlebar 1 8 titlebar DrEaMeR§ ScRipT - La Vittoria Dei Sogni } }
on 1:APPACTIVE: { if (nomina isin $titlebar) { .timertitlebar 1 8 titlebar DrEaMeR§ ScRipT - La Vittoria Dei Sogni } }
#NickNominato end

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

alias TestIp { if (!$ip) { .timer 1 6 rip } }
alias rip {
  if ($sock(myip)) { sockclose myip }
  .sockopen myip whatismyip.com 80
}
alias -l rip_dns { .enable #rip_dns | .dns $1 }
#rip_dns on
on *:DNS:{ localinfo $host $iaddress | if (!$ip) { localinfo $host $host } | DGmsg -a Info tuo IP: $ip - Host: $host | .disable #rip_dns }
#rip_dns end
on *:SOCKOPEN:myip:{
  if (!$sockerr) {
    sockwrite -nt $sockname GET / HTTP/1.0
    sockwrite -nt $sockname Host: whatismyip.com
    sockwrite -nt $sockname Connection: Close
    sockwrite -nt $sockname $crlf
  }
}
on *:SOCKREAD:myip:{
  if (!$sockerr) { .sockread %x
    if (*<TITLE>* iswm %x) { rip_dns $gettok(%x,4,32) }
  }
}

alias PS-Update-IAL { .disable #Who | .enable #psupdateial | .who $1 }

#psUpdateIAL off
raw 352:*: { haltdef }
raw 315:*: { DGmsg -a Info IAL aggiornata. | .disable #psupdateial | .enable #Who | halt }
#psUpdateIAL end

alias IdentifySetup { if (!$dialog(IdentifySetup)) { dialog -m IdentifySetup IdentifySetup } | else halt }
dialog IdentifySetup {
  title "Identify Setup"
  size -1 -1 141 64
  option dbu
  text "Impostazioni per Identify", 1, 2 3 74 11
  text "Nick", 2, 2 16 20 8
  edit "", 3, 35 15 100 10, autohs
  text "Password", 4, 2 32 30 8
  edit "", 5, 35 31 100 10, autohs pass
  check "Auto-Identify on Connect", 6, 2 45 85 10
}

on *:dialog:IdentifySetup:init:0:{
  if (%nsNick) { did -a IdentifySetup 3 %nsNick }
  if (%nsPass) { did -a IdentifySetup 5 $decode(%nsPass, m) }
  if (%AutoIdentify = ON) { did -c IdentifySetup 6 }
}
on *:dialog:IdentifySetup:edit:*:{
  if ($did = 3) { set %nsNick $did(IdentifySetup,3).text }
  if ($did = 5) { set %nsPass $encode($did(IdentifySetup,5).text, m) }
}
on *:dialog:IdentifySetup:sclick:*:{
  if ($did = 6) { if (%AutoIdentify = ON)  { set %AutoIdentify OFF | did -u IdentifySetup 6 }
    else { set %AutoIdentify ON | did -c IdentifySetup 6 }
  }
}
