This is a very simple (with few commands) channel moderation script for the newest user. It provides a way to log into a channel (with a server using anope services). You must have TAD's Home Integration Script which can be found at:

http://www.hawkee.com/snippet/4936/

To install, simply type /install mod. Please report any and all bugs.

-edit-
Updated for current version of TAD's Home Integration Script.

-edit-
Fixed broken parts of script. Tested for accuracy.

-edit-
Is now ready for the newest version of TAD's Home Integration Script

on *:LOAD: {
  createlicense mod
}

on *:START: {
  If ($readini(mod.ini,status,installed) == yes ) {
    If ($readini(mod.ini,settings,auto_initialize) == yes ) {
      check mod
    }
    Else {
      echo -a Press F2 to startup the channel mod service (cms).
    }
  }
  Else {
    echo -a Type /install mod to install the channel mod service (cms).
  }
}

on *:UNLOAD: {
  echo -a Thanks for using The_Almighty_DUelist's Scripts!
  remove mod.ini
  remini home.ini license mod
}

alias mod_install {
  writeini mod.ini status installed yes
  writeini mod.ini settings first_time yes
  set %mute no
  set %lock no
  set %filter no
  set %kicks no
  set %knock no
  echo -a The CMS has been installed, you can start it up by pressing F2 or typing /cms
}

alias F2 {
  If ($readini(mod.ini,settings,first_time) == yes ) {
    modfirst
  }
  Else {
    check mod
  }
}

alias cms {
  If ($readini(mod.ini,settings,first_time) == yes ) {
    modfirst
  }
  Else {
    check mod
  }
}

alias modfirst {
  start modfirst
}

dialog modfirst {
  title Attention!
  option dbu
  size -1 -1 211 52
  text "Since this is your first time running this script, please take the time to fill out some information.", 100, 1 1 200 20
  text "Channel:", 101, 1 21 25 10
  edit "", 200, 26 21 100 10, default
  text "Channel Password:", 102, 1 31 50 10
  edit "", 201, 51 31 100 10, pass
  button "Submit", 1, 1 41 100 10, ok
  button "Cancel", 2, 101 41 100 10, cancel
}

on *:DIALOG:modfirst:close:0: {
  set % $+ modfirst $+ _open no
}

on *:DIALOG:modfirst:sclick:1: {
  writeini mod.ini channel main $did(200)
  writeini mod.ini channel pass $did(201)
  writeini mod.ini settings first_time no
  close modfirst
  check mod
}

dialog mod {
  title Moderating Options
  option dbu
  size -1 -1 101 22
  button "Channel Options", 1, 1 1 100 10, default
  button "Other Options", 2, 1 11 100 10
}

on *:DIALOG:mod:close:0: {
  set % $+ mod $+ _open no
}

on *:DIALOG:mod:sclick:1: {
  close mod
  start chan
}

on *:DIALOG:mod:sclick:2: {
  close mod
  start other
}

dialog chan {
  title Channel Options
  option dbu
  size -1 -1 101 92
  button "Set Channel", 1, 1 1 100 10
  button "Set Password", 2, 1 11 100 10
  check "Mute Channel", 3, 1 21 100 10
  check "Lock Channel", 4, 1 31 100 10
  check "Bad-word Filter", 5, 1 41 100 10
  check "Kicks/No-Kicks", 6, 1 51 100 10
  check "/knock allowed-not allowed", 7, 1 61 100 10
  button "Main Menu", 8, 1 71 100 10
  button "Exit", 9, 1 81 100 10
}

on *:DIALOG:chan:close:0: {
  set % $+ chan $+ _open no
}

on *:DIALOG:chan:sclick:1: {
  close chan
  var %a $?="Please enter the name of the new channel."
  writeini mod.ini channel main %a
  start chan
}

on *:DIALOG:chan:sclick:2: {
  close chan
  var %a $?="Please enter the new password. Please note, this will log you into the channel."
  writeini mod.ini channel pass %a
  cs identify $readini(mod.ini,channel,main) $readini(mod.ini,channel,pass)
  start chan
}

on *:DIALOG:chan:sclick:3: {
  If (%mute == yes ) {
    set %mute no
    did -u chan 3
    mode $readini(mod.ini,channel,main) -m
  }
  Else {
    set %mute yes
    did -c chan 3
    mode $readini(mod.ini,channel,main) +m
  }
}

on *:DIALOG:chan:sclick:4: {
  If (%lock == yes ) {
    set %lock no
    did -u chan 4
    mode $readini(mod.ini,channel,main) -i
  }
  Else {
    set %lock yes
    did -c chan 4
    mode $readini(mod.ini,channel,main) +i
  }
}

on *:DIALOG:chan:sclick:5: {
  If (%filter == yes ) {
    set %filter no
    did -u chan 5
    mode $readini(mod.ini,channel,main) -G
  }
  Else {
    set %filter yes
    did -c chan 5
    mode $readini(mod.ini,channel,main) +G
  }
}

on *:DIALOG:chan:sclick:6: {
  If (%kicks == yes ) {
    set %kicks no
    did -u chan 6
    mode $readini(mod.ini,channel,main) -Q
  }
  Else {
    set %kicks yes
    did -c chan 6
    mode $readini(mod.ini,channel,main) +Q
  }
}

on *:DIALOG:chan:sclick:7: {
  If (%knock == yes ) {
    set %knock no
    did -u chan 7
    mode $readini(mod.ini,channel,main) -K
  }
  Else {
    set %knock yes
    did -c chan 7
    mode $readini(mod.ini,channel,main) +K
  }
}

on *:DIALOG:chan:sclick:8: {
  close chan
  start mod
}

on *:DIALOG:chan:sclick:9: {
  close chan
  echo -a Press F2 or type /cms to restart the CMS.
}

dialog other {
  title Other Options
  option dbu
  size -1 -1 101 32
  button "Uninstall", 1, 1 1 100 10
  button "Main Menu", 2, 1 11 100 10
  button "Exit", 3, 1 21 100 10
}

on *:DIALOG:other:close:0: {
  set % $+ other $+ _open no
}

on *:DIALOG:other:sclick:1: {
  close other
  uninstall mod
}

on *:DIALOG:other:sclick:2: {
  close other
  start mod
}

on *:DIALOG:other:sclick:3: {
  close other
  echo -a Press F2 or type /cms to restart the CMS.
}

alias mod_uninstall {
  writeini mod.ini status installed no
}