; hoffe keine fehler mehr.. leider nur ein bruchteil der geplanten funktionen drin,
; bitte im mirc ordner eine leere textdatei erstellen und in wusel.ini umbenenen
; zum abspeichern der nicks/ channels
; Katzen sind cute =^.^= by marderchen

menu channel,menubar,status {
  -
  $iif($wusel,$style(1)) wusel:dumdidum
  -
}

alias dumdidum { if (!dialog(dumdidum)) { dialog -m dumdidum dumdidum } }

menu @wusel-log {
  -
}

dialog dumdidum {
  title "MIAU nur wie"
  size -1 -1 363 348
  option pixels
  icon grafiken\Icon.ico, 0
  box "     =^.^=    ", 11, 6 4 350 340

  box "Nick Manager", 2, 10 18 342 49, tab 17
  combo 9, 16 34 122 106, tab 17 size edit drop
    button "+", 4, 143 32 14 14, tab 17
  button "-", 15, 143 48 14 14, tab 17
    button "Nick ändern (aktueles Fenster)", 27, 162 33 184 24, tab 17

  box "Channel Manager", 7, 10 70 342 90, tab 17
  button "Schreibt gewählte Zeile mit /join davor", 3, 22 90 320 24, tab 17
  combo 1, 16 125 308 124, tab 17 size edit vsbar drop
  button "+", 12, 330 125 14 14, tab 17
  button "-", 14, 330 141 14 14, tab 17

    box "Server Manager", 77, 10 160 342 90, tab 17
  button "Schreibt gewählte Zeile mit /server -m davor", 73, 22 180 320 24, tab 17
  combo 71, 16 215 308 124, tab 17 size edit vsbar drop
  button "+", 712, 330 215 14 14, tab 17
  button "-", 714, 330 231 14 14, tab 17

          box "Identify Manager", 87, 10 250 342 90, tab 17
  button "Schreibt gewählte Zeile mit /msg nickserv identify davor", 83, 22 270 320 24, tab 17
  combo 81, 16 305 308 124, tab 17 size edit vsbar drop
  button "+", 812, 330 305 14 14, tab 17
  button "-", 814, 330 321 14 14, tab 17

}

on *:dialog:dumdidum:*:*:{
  if ($devent == init) {
 ;   wusel_check
    init_nicks | init_chans | init_servs | init_ident
    did -c $dname 9 1
    did -f $dname 1
    did -f $dname 71
    did -f $dname 81
  }
  if ($devent == sclick) {
    if ($did = 12) {
      if ($did(1).text) {
        writeini "wusel.ini" chans $replace($did(1).text,$chr(32),$chr(245)) channel
        init_chans
      }
    }
    if ($did = 14) {
      if ($did(1).text) {
        remini "wusel.ini" chans $replace($did(1).text,$chr(32),$chr(245))
        init_chans
      }
    }
    if ($did = 4) {
      if ($did(9).text) {
        writeini "wusel.ini" nicks $did(9).text nick
        init_nicks
      }
    }
    if ($did = 15) {
      if ($did(9).text) {
        remini "wusel.ini" nicks $did(9).text
        init_nicks
      }
    }
    if ($did = 3) {
    join $did(1).text
    }
    if ($did = 27) {
     nick $did(9).text
     }
         if ($did = 73) {
     server -m $did(71).text
     }
              if ($did = 83) {
     msg nickserv identify $did(81).text
     }


    if ($did = 712) {
      if ($did(71).text) {
        writeini "wusel.ini" servs $did(71).text server
        init_servs
      }
    }
    if ($did = 714) {
      if ($did(71).text) {
        remini "wusel.ini" servs $did(71).text
        init_servs
      }
    }
    if ($did = 812) {
      if ($did(81).text) {
        writeini "wusel.ini" ident $did(81).text password
        init_ident
      }
    }
    if ($did = 814) {
      if ($did(81).text) {
        remini "wusel.ini" ident $did(81).text
        init_ident
      }
    }
  }

}
; on *:TEXT:$(* $+ $me $+ *):#:
; on *:action:$(* $+ $me $+ *):#:{

alias -l init_nicks {
  did -r dumdidum 9
  var %i = 1
  while (%i <= $ini("wusel.ini",nicks,0)) {
    did -a dumdidum 9 $ini("wusel.ini",nicks,%i)
    inc %i 1
  }
  did -c dumdidum 9 1
}

alias -l init_chans {
  did -r dumdidum 1
  var %i = 1
  while (%i <= $ini("wusel.ini",chans,0)) {
    did -a dumdidum 1 $replace($ini("wusel.ini",chans,%i),$chr(245),$chr(32))
    inc %i 1
  }
}

alias -l init_servs {
  did -r dumdidum 71
  var %i = 1
  while (%i <= $ini("wusel.ini",servs,0)) {
    did -a dumdidum 71 $ini("wusel.ini",servs,%i)
    inc %i 1
  }
}

alias -l init_ident {
  did -r dumdidum 81
  var %i = 1
  while (%i <= $ini("wusel.ini",ident,0)) {
    did -a dumdidum 81 $ini("wusel.ini",ident,%i)
    inc %i 1
  }
}