alias rebar { dll $shortfn($scriptdir\dll\rebar.dll) $$1- }
alias mdxdll return $shortfn($scriptdir\dll\mdx.dll)
alias bars return $shortfn($scriptdir\dll\bars.mdx)
alias _dialog return $shortfn($scriptdir\dll\dialog.mdx)
alias _views  return $shortfn($scriptdir\dll\views.mdx)
alias _mdx dll $shortfn($scriptdir\dll\mdx.dll) $1-
alias _mdxinit dll $shortfn($scriptdir\dll\mdx.dll) SetMircVersion $version | dll $shortfn($scriptdir\dll\mdx.dll) MarkDialog $dname
alias nicklust { dll $+(",$scriptdir\dll\nicklust.dll,") $1- }
alias renklikutu { return $+(",$scriptdir\dll\colorcombo.dll,") }

dialog blacklist {
  title "Blacklist"
  size -1 -1 275 349
  option pixels
  list 1, 15 18 237 198
  button "Aggiungi", 2, 15 251 65 25
  button "Rimuovi", 3, 186 251 65 25
  check "", 4, 15 284 15 15
  text "Attiva", 5, 35 284 50 15
}
on *:dialog:blacklist:sclick:*:{
  if ($did == 2) { .guser blacklist $$?="Aggiungere User Connesso" 3 | blck12 }
  if ($did == 3) { .ruser blacklist $did(blacklist,1).seltext | blck12 }
  if ($did == 4) { if (%cc181pio == on) { set %cc181pio off } | else set %cc181pio on }
}
alias blcklt { dialog -m blacklist blacklist }
on *:dialog:blacklist:init:*:{
  dll $mdx SetMircVersion $version
  dll $mdx MarkDialog $dname $dialog($dname).hwnd
  if (%unome == 1) {
    dll $mdx SetDialog $dname bgcolor $rgb(0,72,170)
    dll $mdx SetColor $dname 1 background $rgb(0,0,0)
    dll $mdx SetColor $dname 1 textbg $rgb(0,0,0)
    dll $mdx SetColor $dname 2,3,4,5 background $rgb(0,72,170)
    dll $mdx SetColor $dname 2,3,4,5 textbg $rgb(0,72,170)
    dll $mdx SetColor 1,5 text $rgb(255,255,255)
    dll $mdx SetColor $dname 2,3 background $rgb(0,72,170)
  }
  if (%unome == 2) {
    dll $mdx SetColor $dname 1 background $rgb(0,0,0)
    dll $mdx SetColor $dname 1 textbg $rgb(0,0,0)
    dll $mdx SetDialog $dname bgcolor $rgb(0,0,95)
    dll $mdx SetColor $dname 2,3,4,5 background $rgb(0,0,95)
    dll $mdx SetColor $dname 2,3,4,5 textbg $rgb(0,0,95)
    dll $mdx SetColor 1,5 text $rgb(255,255,255)
    dll $mdx SetColor $dname 2,3 background $rgb(0,0,95)
  }
  blko1
  if ( %cc181p == on ) { $tunder TDDialog $dialog(blacklist).hwnd > 2 }
  if (%cc181pio == on) did -c $dname 4 
}
alias blckl1 { dialog -m blacklist blacklist }
alias blck12 { did -r blacklist 1 | .timer 1 1 blko1 }
alias blko1 {
  set %blclvar $ulist(*,*)	
  set %blclvar1 1
  :start
  if (%blclvar1 <= %blclvar) { did -a blacklist 1 $ulist(*, $+ %blclvar1) | inc %blclvar1 | goto start | else goto end }
  :end
  unset %blclvar
  unset %blclvar1
}


alias nicklest { if ($dialog(nicklest)) { dialog -x nicklest } | dialog -ma nicklest nicklest |  if ( %cc181p == on ) { $tunder TDDialog $dialog(nicklest).hwnd > 2  } }
dialog nicklest  {
  title "  NickList by SkiPPeR"
  size -1 -1 205 200
  option dbu
  icon $scriptdir\icon\simge.ico
  box "",19, 11 -1 185 34 
  text "", 12, 11 3 184 30

  text "NickList by SkiPPeR v. 0.1", 14, 15 4 90 10
  text "Ecco un divertete add-on per personalizzare la NiCkLiSt, puoi impostare dei colori o delle icone ai gradi .", 15, 16 16 140 16
  box "", 322, 10 33 187 140
  text "Owner Nick   :", 329, 14 46 29 8, center
  combo 330, 49 45 59 44, size drop
  text "Op (@)      :", 323, 14 62 29 8, center
  combo 324, 49 61 59 50, size drop
  text "Halfop (+h) :", 333, 13 78 33 8, center
  combo 334, 49 77 59 20, size drop
  text "Voice (+v) :", 325, 14 94 29 8, center
  combo 326, 49 93 59 50, size drop
  text "Users         :", 327, 14 110 29 8, center
  combo 328, 49 109 59 50, size drop
  text "Ignore      :", 331, 14 126 29 8, center
  combo 332, 49 125 59 50, size drop
  check "", 353, 42 160 10 10, flat
  check "", 354, 125 160 10 10, flat
  text "Color NickList", 1353, 52 160 65 10, flat
  text "Icons NickList", 1354, 135 160 62 10, flat
  box "", 335, 113 40 2 110
  text "Owner channel :", 340, 120 46 40 8  
  text "Super Op          :", 347, 120 62 40 8
  text "Operator (@)   :", 336, 120 78 40 8
  text "Halfop (+h)      :", 339, 120 94 40 8
  text "Voice (+v)        :", 337, 120 110 40 8
  text "Users                :", 338, 120 126 40 8
  combo 346, 165 45 24 70, size
  combo 348, 165 61 24 70, size  
  combo 342, 165 77 24 70, size
  combo 345, 165 93 24 70, size
  combo 343, 165 109 24 70, size
  combo 344, 165 125 24 70, size
  button "OK", 10, 160 178 30 15, flat ok cancel
}
on *:dialog:nicklest:init:0:{
  dll dlls/mdx/mdx.dll SetMircVersion $version
  dll dlls/mdx/mdx.dll MarkDialog $dname
  if (%unome == 1) {
    dll dlls/mdx/mdx.dll SetDialog $dname bgcolor $rgb(0,72,170)
    /dll dlls\mdx\mdx.dll SetColor $dname 10 background $rgb(0,72,170)
    dll dlls/mdx/mdx.dll SetColor $dname 19,12,14,15,322,329,330,323,324,333,334,325,326,327,328,331,332,353,354,1353,1354,335,340,347,336,339,337,338,346,348,342,345,343,344 background $rgb(0,72,170)
    dll dlls/mdx/mdx.dll SetColor $dname 19,12,14,15,322,329,330,323,324,333,334,325,326,327,328,331,332,353,354,1353,1354,335,340,347,336,339,337,338,346,348,342,345,343,344 textbg $rgb(0,72,170)
    dll dlls/mdx/mdx.dll SetColor 19,12,14,15,322,329,330,323,324,333,334,325,326,327,328,331,332,353,354,1353,1354,335,340,347,336,339,337,338,346,348,342,345,343,344 text $rgb(255,255,255)
  }
  if (%unome == 2) {
    dll dlls/mdx/mdx.dll SetDialog $dname bgcolor $rgb(0,0,95)
    /dll dlls\mdx\mdx.dll SetColor $dname 10 background $rgb(0,0,95)
    dll dlls/mdx/mdx.dll SetColor $dname 19,12,14,15,322,329,330,323,324,333,334,325,326,327,328,331,332,353,354,1353,1354,335,340,347,336,339,337,338,346,348,342,345,343,344 background $rgb(0,0,95)
    dll dlls/mdx/mdx.dll SetColor $dname 19,12,14,15,322,329,330,323,324,333,334,325,326,327,328,331,332,353,354,1353,1354,335,340,347,336,339,337,338,346,348,342,345,343,344 textbg $rgb(0,0,95)
    dll dlls/mdx/mdx.dll SetColor 19,12,14,15,322,329,330,323,324,333,334,325,326,327,328,331,332,353,354,1353,1354,335,340,347,336,339,337,338,346,348,342,345,343,344 text $rgb(255,255,255)
  }
  _mdxinit
  renk
  _mdx SetControlMDX $dname 342,343,344,345,346,348 ComboBoxEx drop > $_views
  _mdx SetBorderStyle $dname 112 dlgframe
  did -i $dname 342,343,344,345,346,348 1 iconsize small
  var %x = 1
  while (%x <= 12) {
    did -i $dname 342,343,344,345,346,348 1 seticon 0 $+($calc(%x -1),$chr(44),$scriptdir/icon/list.icl)
    did -a $dname 342,343,344,345,346,348 %x 
    inc %x 1
    _mdx SetBorderStyle $dname 12,14,15
    _mdx SetControlMDX $dname 13 toolbar flat list nodivider arrows > $bars


    _mdx SetBorderStyle $dname 13
    _mdx SetColor $dname 13 background $rgb(255,255,255)
  }
  if (%unome == 1) {
    did -c $dname 342 $calc(%op.ico + 2)
    did -c $dname 343 $calc(%voice.ico + 2)
    did -c $dname 344 $calc(%normal.ico + 2)
    did -c $dname 345 $calc(%halfop.ico + 2)
    did -c $dname 346 $calc(%sahip.ico + 2)
    did -c $dname 348 $calc(%sop.ico + 2)
  }
  if (%unome == 2) {
    did -c $dname 342 $calc(%op1.ico + 2)
    did -c $dname 343 $calc(%voice1.ico + 2)
    did -c $dname 344 $calc(%normal1.ico + 2)
    did -c $dname 345 $calc(%halfop1.ico + 2)
    did -c $dname 346 $calc(%sahip1.ico + 2)
    did -c $dname 348 $calc(%sop1.ico + 2)
  }
  ;--- Nicklist colours
  renk
  if (%unome == 1) {
    did -c $dname 324 $calc(%rengli.324 + 2)
    did -c $dname 326 $calc(%rengli.326 + 2)
    did -c $dname 328 $calc(%rengli.328 + 2)
    did -c $dname 330 $calc(%rengli.330 + 2)
    did -c $dname 332 $calc(%rengli.332 + 2)
    did -c $dname 334 $calc(%rengli.334 + 2)
  }
  if (%unome == 2) {
    did -c $dname 324 $calc(%rengli1.324 + 2)
    did -c $dname 326 $calc(%rengli1.326 + 2)
    did -c $dname 328 $calc(%rengli1.328 + 2)
    did -c $dname 330 $calc(%rengli1.330 + 2)
    did -c $dname 332 $calc(%rengli1.332 + 2)
    did -c $dname 334 $calc(%rengli1.334 + 2)
  }
  if (%nkreng.aktiv) { did -c $dname 353 | did -b $dname 342,336,343,337,344,338,345,339,346,347,348,340,112 }
  if (%icon.nl) { did -c $dname 354 | did -b $dname 324,326,328,330,332,323,325,327,329,331,333,334 }
}
on *:dialog:nicklest:sclick:112:rgb2 | echo -a 0,1Warning Dialog: 12Now Menu of 1Colours Preferences 12is Opened, 4Menu of NickList 1Preferences General 4is Closed.  
} 
on *:dialog:nicklest:sclick:*:{
  if ($did == 354) { if ($did(354).state == 1) {
      set %icon.nl on
      .disable #renkli
      .unset %nkreng.aktiv
      did -u $dname 353
      did -b $dname 324,326,328,330,332,323,325,327,329,331,333,334
      did -e $dname 342,336,343,337,344,338,345,339,346,347,348,340
      nick.rengsiz
    } 
    else { 
      unset %icon.nl
      did -e $dname 324,326,328,330,332,323,325,327,329,331,333,334
    }
  }
  if ($did == 353) {
    if ($did(353).state == 1) {
      .enable #renkli | set %nkreng.aktiv on | nick.rengle
      did -u $dname 354
      .unset %icon.nl
      did -e $dname 324,326,328,330,332,323,325,327,329,331,333,334
      did -b $dname 342,336,343,337,344,338,345,339,346,347,348,340
    } 
    else {
      unset %nkreng.aktiv 
      .disable #renkli 
      nick.rengsiz
      did -e $dname 342,336,343,337,344,338,345,339,346,347,348,340
    }
  }
  if ($did isnum 324-334) { set %rengli. $+ $did $calc($did($dname,$did).sel - 2) | nick.rengle }
  if (%unome == 1) { 
    if ($did == 342) { set %op.ico $calc($did(342).sel - 2) }
    if ($did == 343) { set %voice.ico $calc($did(343).sel - 2) }
    if ($did == 344) { set %normal.ico $calc($did(344).sel - 2) }
    if ($did == 345) { set %halfop.ico $calc($did(345).sel - 2) }
    if ($did == 346) { set %sahip.ico $calc($did(346).sel - 2) }
    if ($did == 348) { set %sop.ico $calc($did(348).sel - 2) }
  }
  if (%unome == 2) { 
    if ($did == 342) { set %op1.ico $calc($did(342).sel - 2) }
    if ($did == 343) { set %voice1.ico $calc($did(343).sel - 2) }
    if ($did == 344) { set %normal1.ico $calc($did(344).sel - 2) }
    if ($did == 345) { set %halfop1.ico $calc($did(345).sel - 2) }
    if ($did == 346) { set %sahip1.ico $calc($did(346).sel - 2) }
    if ($did == 348) { set %sop1.ico $calc($did(348).sel - 2) }
  }
}


alias -l renk { var %x = dll $renklikutu COMBO $dname | %x 324 | %x 326 | %x 328 | %x 330 | %x 332 | %x 334 }

#renkli off
on *:nick:{
  var %rbg = $comchan($newnick,0)
  var %rbg2 = 1
  while (%rbg < %rbg2) { 
    if ($nick = $me) && $comchan($newnick,%rbg2) { cline %rengli.330 $comchan($newnick,%rbg2) $newnick | nick.rengle }
    elseif ($newnick isop $comchan($newnick,%rbg2)) { cline  %rengli.324 $comchan($newnick,%rbg2) $newnick | nick.rengle } 
    elseif ($newnick isvo $comchan($newnick,%rbg2)) { cline %rengli.326 $comchan($newnick,%rbg2) $newnick | nick.rengle }
    elseif ($newnick ishelp $comchan($newnick,%rbg2)) { cline %rengli.334 $comchan($newnick,%rbg2) $newnick | nick.rengle }
    elseif ($address($newnick,5) isignore) { cline %rengli.332 $comchan($newnick,%rbg2) $newnick | nick.rengle } 
    elseif $comchan($newnick,%rbg2) { cline %rengli.22 $comchan($newnick,%rbg2) $newnick | nick.rengle }
    else { break }  
    inc %rbg2
  }
}
on *:op:#:{ if ($opnick != $me) { cline %rengli.324 $chan $opnick | nick.rengle } }
on *:deop:#:{ if ($opnick != $me) { cline %rengli.328 $chan $opnick | nick.rengle } }
on *:voice:#:{ if ($vnick != $me) { cline %rengli.326 $chan $vnick } | nick.rengle }
on *:devoice:#:{ if ($vnick != $me) { cline %rengli.328 $chan $vnick | nick.rengle } }
on *:help:#:{ if ($hnick != $me) { cline %rengli.334 $chan $hnick | nick.rengle } }
on *:dehelp:#:{ if ($hnick != $me) { cline %rengli.334 $chan $hnick | nick.rengle } }

#renkli end
#renklenen off
raw 366:*:{ 
  var %tot = $nick(%rbg.c,0)
  var %cont = 1
  while (%cont <= %tot) {
    if ($nick(%rbg.c,%cont) = $me) { cline %rengli.330  %rbg.c $me }
    elseif ($nick(%rbg.c,%cont) isop %rbg.c) { cline %rengli.324 %rbg.c $nick(%rbg.c,%cont) }
    elseif ($nick(%rbg.c,%cont) isvo %rbg.c) { cline %rengli.326 %rbg.c $nick(%rbg.c,%cont) }
    elseif ($nick(%rbg.c,%cont) ishelp %rbg.c) { cline %rengli.334 %rbg.c $nick(%rbg.c,%cont) }
    else  { cline %rengli.328 %rbg.c $nick(%rbg.c,%cont) }
    inc %cont
  }
  .disable #renklenen | unset %rbg.c
}
#renkleken end

alias nick.rengle {
  var %rbg = $chan(0)
  %rbg2 = 1
  while %rbg2 <= %rbg {
    var %rbg3 = $nick($chan(%rbg2),0)      
    var %rbg6 = $chan(%rbg2)      
    var %rbg4 = 1
    while %rbg4 <= %rbg3 {
      if $1 = -r { cline $color(listbox text) %rgb6 $nick(%rbg6,%rbg4) }
      else {
        if $nick(%rbg6,%rbg4) = $me { cline %rengli.330 %rbg6 $nick(%rbg6,%rbg4) }
        elseif $nick(%rbg6,%rbg4) isop %rbg6 { cline %rengli.324 %rbg6 $nick(%rbg6,%rbg4) }
        elseif $nick(%rbg6,%rbg4) isvo %rbg6 { cline %rengli.326 %rbg6 $nick(%rbg6,%rbg4) }
        elseif $nick(%rbg6,%rbg4) ishelp %rbg6 { cline %rengli.334 %rbg6 $nick(%rbg6,%rbg4) }
        elseif $address($nick(%rbg6,%rbg4),5) isignore { cline %rengli.332 %rbg6 $nick(%rbg6,%rbg4) }
        elseif $nick(%rbg6,%rbg4) isreg %rbg6 { cline %rengli.328 %rbg6 $nick(%rbg6,%rbg4) }
      }
      inc %rbg4
    }
    inc %rbg2
  }
}

alias nick.rengsiz {
  set -u0 %i 1
  while (%i <= $chan(0)) {
    set -u0 %j 1
    while (%j <= $nick($chan(%i),0)) { 
      if ($nick($chan(%i),%j) ison $chan(%i)) { cline 01 $chan(%i) $nick($chan(%i),%j)) }
      inc %j
    }
    inc %i
  }
}
on 1:load:{ 
  set %icon.nl on
  set %sahip.ico 25
  set %sop.ico 29
  set %op.ico 20
  set %halfop.ico 33
  set %voice.ico 16
  set %normal.ico 10
} 

alias nlust.chan {
  if ($nick == $me) {
    nicklust Mark $window(#).hwnd  nLUST_CallBack rowselect tooltips balloontips hideempty hottrack dlgframe clientedge
    if (%unome == 1) {
      nicklust AddIcon # > %op.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %voice.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %normal.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %halfop.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %op.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %sop.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %sahip.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %sahip.ico $+ ,nicklist\icon\list.icl
    }
    if (%unome == 2) {
      nicklust AddIcon # > %op1.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %voice1.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %normal1.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %halfop1.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %op1.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %sop1.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %sahip1.ico $+ ,nicklist\icon\list.icl
      nicklust AddIcon # > %sahip1.ico $+ ,nicklist\icon\list.icl
    }
    nicklust SetGroupText # 1 >  User's
    nicklust AddGroup # 10 + 2 >  Voice's (+v)
    nicklust AddGroup # 11 @ 1 >  Operator's (@)
    nicklust AddGroup # 12 % 4 >  Halfop's (+h)
    nicklust AddGroup # 13 - 5 >  Operator's (@)
    nicklust AddGroup # 14 & 6 >  Protect 
    nicklust AddGroup # 15 . 7 >  Owner Channel
    nicklust AddGroup # 16 ~ 7 >  Owner Channel
    nicklust SetGroupView # 1 normal
    nicklust SetGroupView # 10 normal
    nicklust SetGroupView # 11 normal
    nicklust SetGroupView # 12 normal
    nicklust SetGroupView # 13 normal
    nicklust SetGroupView # 14 normal
    nicklust SetGroupView # 15 normal
    nicklust SetGroupView # 16 normal
    nicklust SetGroupIcon # 1 3
    nicklust SetGroupPos # 16 start
    nicklust SetGroupPos # 15 end
    nicklust SetGroupPos # 14 end
    nicklust SetGroupPos # 13 end
    nicklust SetGroupPos # 11 end
    nicklust SetGroupPos # 12 end
    nicklust SetGroupPos # 10 end
    nicklust SetGroupPos # 1 end
    if (%unome == 1) { nicklust SetHotCursor # > $scriptdir\icon\spadalaser.cur } | else nicklust SetHotCursor # > $scriptdir\icon\spadalaser.cur
    ;nicklust SetHeaderFontStyle # bold
    theme_nlist #

  }
}
alias nlust_callback {
  if ($1 = tooltip) {
    var %extra
    if ($3 == $me) %extra = (Your name)
    nicklust SetTipTitle $2 1 > Info on $3 %extra
    return Status: $nlist_pnick($remove($nick($2,$3).pnick,$3)) $+ $crlf $+ Idle: $duration($nick($2,$nick($2,$3)).idle) $+ $crlf $+ Notify: $iif($notify($3),Yes,No) $+ $crlf $+ Adrress: $iif($address($3,1),$ifmatch,Unknown) $+ $crlf $+ Channel: $_comchans($3,32))
  }
}

alias nlist_pnick {
  if ($1 = @) { return Channel Operator }
  elseif ($1 = .) { return Owner channel }
  elseif ($1 = &) { return Super Op (Sop) }
  elseif ($1 = +) { return Voice }
  elseif ($1 = %) { return Halfop }
  elseif ($1 = -) { return Operator }
  elseif ($1 = ~) { return Owner channel }
  elseif ($1 = $null) { return Users }
}
alias _isnotifylist {
  if ($notify($1)) return $2
  return $3
}  
alias _comchans {
  var %tokk = $iif($2,$ifmatch,$chr(32)), %iii = 1, %chh
  while (%iii <= $comchan($1,0)) { 
    %chh = $addtok(%chh,$comchan($1,%iii),%tokk) | inc %iii 
  } 
  return $sorttok(%chh,%tokk) 
}

if (($1 == nickAdding) && ($notify($3))) return 11 
if ($1 == nickadded) {
  if ($3 == $me) return 2 $rgb(255,0,255) > $me $crlf $+ This is you
}
alias theme_nlist {
  nicklust SetColor $1 bkg %rgbcode
  nicklust SetColor $1 text %rgbcode2
  nicklust SetColor $1 hottext %rgbcode9
  nicklust SetColor $1 tipbkg %rgbcode10
  nicklust SetColor $1 tiptext %rgbcode11
  nicklust SetColor $chan divider %rgbcode3
  nicklust SetHeaderColor $chan 1 %rgbcode4
  nicklust SetHeaderColor $chan 10 %rgbcode5
  nicklust SetHeaderColor $chan 11 %rgbcode6
  nicklust SetHeaderColor $chan 12 %rgbcode7
  nicklust SetHeaderColor $chan 13 %rgbcode8
  nicklust SetHeaderColor $chan 14 %rgbcode12

}
alias sc {
  if ($dialog(sc) == $null) { dialog -m sc sc }
  if ( %cc181p == on ) {  $tunder TDDialog $dialog(sc).hwnd > 2 }

}

menu menubar, {
  Arcan]G[elo tools
  ..» Sistem,Connection Control: sc
}
dialog sc {
  title "Control System&Connection By Peter_H"
  size -1 -1 500 500
  box "Info Connessione-System", 2, 10 10 300 230
  text "Host:", 3, 15 40 30 20 
  edit "", 4, 80 40 220 20, autohs read
  text "IP:", 5, 15 70 30 20 
  edit "", 6, 80 70 100 20, autohs read
  text "Porta:", 7, 15 100 30 20 
  edit "", 8, 80 100 70 20, autohs read
  text "Server:", 9, 15 130 40 20 
  edit "", 10, 80 130 90 20, autohs read
  text "DCC Port:", 15, 15 160 60 20 
  edit "", 16, 80 160 90 20, autohs read
  text "System:", 12, 15 190 90 20
  edit "", 14, 80 190 90 20, autohs read
  box "Info Personali", 17, 10 245 300 230
  text "Tuo Nick:", 18, 25 275 60 20
  edit "", 19, 110 275 130 20, tab autohs read
  text "Nick Alternativo:", 20, 25 305 80 20
  edit "", 21, 110 305 130 20, tab autohs read
  text "Real Name:", 22, 25 335 80 20
  edit "", 23, 110 335 130 20, tab autohs read
  text "mIRC Acceso Da:", 25, 25 365 120 30
  edit "", 45, 110 365 130 20, tab autohs read
  text "Connesso Da:", 26, 25 395 120 20
  edit "", 27, 110 395 130 20, tab autohs read
  text "Sono Le:", 31, 340 350 90 20,
  text "", 32, 386 350 90 20,
  text "In Data:", 33, 340 370 90 20,
  text "", 34, 386 370 90 20,
  box "Buttons", 28, 340 20 150 280,
  button "Mostra IP", 29, 355 40 80 20,
  button "Mostra Host", 30, 355 70 80 20,
  button "Mostra Ora", 35, 355 100 80 20,
  button "Mostra Data", 36, 355 130 80 20,
  button "Mostra Giorno", 37, 355 160 80 20,
  button "Connettiti A Un Server", 38, 355 190 130 20,
  button "MultiServer", 39, 355 220 90 20,
  button "Indica In Echo", 40, 355 250 100 20,
  button "Chiudi AddOn", 41, 355 410 100 30, ok default


}

on *:dialog:sc:init:0: {
  dll dlls/mdx/mdx.dll SetMircVersion $version
  dll dlls/mdx/mdx.dll MarkDialog $dname
  if (%unome == 1) {
    /dll dlls\mdx\mdx.dll SetColor $dname 29,30,35,36,37,38,39,40,41 background $rgb(0,72,170)
    dll dlls/mdx/mdx.dll SetDialog $dname bgcolor $rgb(0,72,170)
    dll dlls/mdx/mdx.dll SetColor $dname 2,17,28 background $rgb(255,255,255)
    dll dlls/mdx/mdx.dll SetColor $dname 3,5,7,9,15,12,18,20,22,25,26,31,32,33,34 background $rgb(0,72,170)
    dll dlls/mdx/mdx.dll SetColor $dname 3,5,7,9,15,12,18,20,22,25,26,31,32,33,34 textbg $rgb(0,72,170)
    dll dlls/mdx/mdx.dll SetColor $dname 4,6,10,8,16,14,19,21,23,45,27 textbg $rgb(0,0,0)
    dll dlls/mdx/mdx.dll SetColor $dname 4,6,10,8,16,14,19,21,23,45,27 background $rgb(0,0,0)
    dll dlls/mdx/mdx.dll SetColor $dname 3,4,5,6,7,8,9,10,15,16,12,14,18,19,20,21,22,23,25,45,26,27,31,32,33,34 bgcolor $rgb(0,72,170)
    dll dlls/mdx/mdx.dll SetColor 3,4,5,6,7,8,9,10,15,16,12,14,18,19,20,21,22,23,25,45,26,27,31,32,33,34 text $rgb(255,255,255)
    dll dlls/mdx/mdx.dll SetColor $dname 2,17,28 background $rgb(255,134,0)
  }
  if (%unome == 2) {
    /dll dlls\mdx\mdx.dll SetColor $dname 29,30,35,36,37,38,39,40,41 background $rgb(0,0,95)
    dll dlls/mdx/mdx.dll SetDialog $dname bgcolor $rgb(0,0,95)
    dll dlls/mdx/mdx.dll SetColor $dname 2,17,28 background $rgb(255,255,255)
    dll dlls/mdx/mdx.dll SetColor $dname 3,5,7,9,15,12,18,20,22,25,26,31,32,33,34 background $rgb(0,0,95)
    dll dlls/mdx/mdx.dll SetColor $dname 3,5,7,9,15,12,18,20,22,25,26,31,32,33,34 textbg $rgb(0,0,95)
    dll dlls/mdx/mdx.dll SetColor $dname 4,6,10,8,16,14,19,21,23,45,27 textbg $rgb(0,0,0)
    dll dlls/mdx/mdx.dll SetColor $dname 4,6,10,8,16,14,19,21,23,45,27 background $rgb(0,0,0)
    dll dlls/mdx/mdx.dll SetColor $dname 3,4,5,6,7,8,9,10,15,16,12,14,18,19,20,21,22,23,25,45,26,27,31,32,33,34 bgcolor $rgb(0,0,95)
    dll dlls/mdx/mdx.dll SetColor 3,4,5,6,7,8,9,10,15,16,12,14,18,19,20,21,22,23,25,45,26,27,31,32,33,34 text $rgb(255,255,255)
    dll dlls/mdx/mdx.dll SetColor $dname 2,17,28 background $rgb(196,196,196)
  }
  did -o sc 4 1 $host
  did -o sc 6 1 $ip
  did -o sc 8 1 $port
  did -o sc 10 1 $network
  did -o sc 14 1 $os
  did -o sc 16 1 $dccport
  did -o sc 19 1 $me
  did -o sc 21 1 $anick
  did -o sc 23 1 $fullname
  did -o sc 45 1 $uptime(mirc,2) $logo
  did -o sc 27 1 $uptime(server,2) $logo
  did -o sc 32 1 $time
  did -o sc 34 1 $date

}

on *:dialog:sc:sclick:*: {
  if ($did == 29) { /msg #$$?="Inserisci nome chan" 9E' 11Connesso A 7IRC Con L'IP8 $ip }
  if ($did == 30) { /msg #$$?="Inserisci nome chan" 9E' 11Connesso 0A 7IRC Con Host8 $host }
  if ($did == 35) { /msg #$$?="Inserisci nome chan" 8WE 9RAGA! 7MINKIA! 4SONO 11 $time }
  if ($did == 36) { /msg #$$?="Inserisci nome chan" 8WE 9RAGA! 6Oggi 8E' 4IL $date }
  if ($did == 37) { /msg #$$?="Inserisci nome chan" 8WE 9RAGA! 8OgGi 5E' $day 14!! }
  if ($did == 38) { /server $$?="Inserisci Indirizzo Server" }
  if ($did == 39) { /server -m $$?="Inserisci Indirizzo Server" }
  if ($did == 40) { /echo -a 4Ciao $me 3Il Tuo IP E' $ip ,4La Tua Host $host ,5Porta Selezionata $port ,6Sei Connesso A $server 7Del Gruppo $network ,8Il Tuo Sistema Operativo E' Windows $os , 9La tua porta in dcc $dccport , 10Il Tuo Nick è $me , 11Il Tuo Nickname alternativo è $anick , 12Il Tuo Nome Reale Su mIRC è $fullname, 13 Il Tuo mIRC E' Acceso Da $uptime(mirc,2) $logo ,14 E Sei Connesso Ad IRC Da $uptime(server,2) $logo} 15 |------ mIRC Control System&Connection ------|
  }
}
on *:TEXT:*#*:#:{
  if (%kiket1 == on) && ($2 != %cana1) && (%ca11 == on) && ($chan == %cana1) { mode $chan -Q | mode $chan -Q | kick %cana1 $nick No Spam }
  if (%banet1 == on) && ($2 != %cana1 ) && (%ca11 == on) && ($chan == %cana1) { .ban # $nick }
}
