helpcmd.ini

[script]
n0=on 500,543:TEXT:*:#: { halt }
n1=on *:LOAD: {
n2=  echo -at Loaded help script
n3=  echo -at No new variables added, all are global
n4=}
n5=on *:UNLOAD: {
n6=  echo -at Unloaded help script
n7=  echo -at No variables unset, all are global
n8=}
n9=on *:TEXT:!usage*:#:{
n10=  if ($me == %bot1 && $1 == !usage) {
n11=    if ($2) {
n12=      {
n13=        if ($left($2,1) == $chr(33)) { var %cmd = $2 }
n14=        else { var %cmd = $chr(33) $+ $2 }
n15=      }
n16=      {
n17=        if ($readini(lists\cmdlist.ini,%cmd,active) != $null) {
n18=          {
n19=            if ($readini(lists\cmdlist.ini,%cmd,active) == 0) { var %status = (4disabled) }
n20=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == h) { var %status = (2halfops only) }
n21=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == o) { var %status = (2ops only) }
n22=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == q) { var %status = (2owners only) }
n23=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == i) { var %status = (2[MM]IKKE only) }
n24=          }
n25=
n26=          {
n27=            if ($readini(lists\cmdlist.ini,%cmd,usage) == none) {
n28=              scon $bot_say($chan) msg $chan Usage: This command has no parameters %status
n29=            }
n30=            else {
n31=              scon $bot_say($chan) msg $chan Usage: %cmd $readini(lists\cmdlist.ini,%cmd,usage) %status
n32=            }
n33=          }
n34=        }
n35=        else {
n36=          scon $bot_say($chan) msg $chan 4ERROR:1 Command does not exist
n37=        }
n38=      }
n39=    }
n40=    else {
n41=      scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !usage <command>
n42=    }
n43=  }
n44=}
n45=on *:TEXT:!status*:#:{
n46=  if ($me == %bot1 && $1 == !status) {
n47=    if ($2) {
n48=      {
n49=        if ($left($2,1) == $chr(33)) { var %cmd = $2 }
n50=        else { var %cmd = $chr(33) $+ $2 }
n51=      }
n52=
n53=      {
n54=        if ($readini(lists\cmdlist.ini,%cmd,active) != $null) {
n55=          if ($readini(lists\cmdlist.ini,%cmd,active) == 0) { var %status = (4disabled) }
n56=
n57=          if ($readini(lists\cmdlist.ini,%cmd,status) == v) { scon $bot_say($chan) msg $chan Everyone can use this command %status }
n58=          elseif ($readini(lists\cmdlist.ini,%cmd,status) == h) { scon $bot_say($chan) msg $chan Only halfops can use this command %status }
n59=          elseif ($readini(lists\cmdlist.ini,%cmd,status) == o) { scon $bot_say($chan) msg $chan Only ops can use this command %status }
n60=          elseif ($readini(lists\cmdlist.ini,%cmd,status) == q) { scon $bot_say($chan) msg $chan Only owners can use this command %status }
n61=          elseif ($readini(lists\cmdlist.ini,%cmd,status) == i) { scon $bot_say($chan) msg $chan Only [MM]IKKE can use this command %status }
n62=          else { scon $bot_say($chan) msg $chan 4ERROR:1 Unknown. Please report this as a bug (!report). }
n63=        }
n64=        else {
n65=          scon $bot_say($chan) msg $chan 4ERROR:1 Command does not exist
n66=        }
n67=      }
n68=    }
n69=    else {
n70=      scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !status <command>
n71=    }
n72=  }
n73=}
n74=on *:TEXT:!help:#: {
n75=  if ($me == %bot1 && $chan != #Somoon) {
n76=    scon $bot_say($chan) msg $chan Say !help <command>.
n77=  }
n78=}
n79=on *:TEXT:!help:?: {
n80=  if ($me == %bot1 && $chan != #Somoon) {
n81=    .msg $nick Say !help <command>.
n82=  }
n83=}
n84=on *:TEXT:!help*:#: {
n85=  if ($me == %bot1 && $1 == !help) {
n86=    if ($2 != $null) {
n87=      {
n88=        if ($left($2,1) == $chr(33)) { var %cmd = $2 }
n89=        else { var %cmd = $chr(33) $+ $2 }
n90=      }
n91=
n92=      {
n93=        if ($readini(lists\cmdlist.ini,%cmd,active) != $null) {
n94=          {
n95=            if ($readini(lists\cmdlist.ini,%cmd,active) == 0) { var %status = (4disabled) }
n96=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == h) { var %status = (2halfops only) }
n97=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == o) { var %status = (2ops only) }
n98=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == q) { var %status = (2owners only) }
n99=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == i) { var %status = (2[MM]IKKE only) }
n100=          }
n101=
n102=          var %bot_say.tmp = $bot_say($chan,3)
n103=
n104=          scon %bot_say.tmp msg $chan $readini(lists\cmdlist.ini,%cmd,help)
n105=
n106=          if ($readini(lists\cmdlist.ini,%cmd,usage) == none) {
n107=            scon %bot_say.tmp msg $chan Usage: This command has no parameters %status
n108=          }
n109=          else {
n110=            scon %bot_say.tmp msg $chan Usage: %cmd $readini(lists\cmdlist.ini,%cmd,usage) %status
n111=          }
n112=        }
n113=        else {
n114=          scon $bot_say($chan) msg $chan 4ERROR:1 Command does not exist
n115=        }
n116=      }
n117=    }
n118=    else {
n119=      scon $bot_say($chan) msg $chan 4ERROR:1 Usage: !help <command>
n120=    }
n121=  }
n122=}
n123=on *:TEXT:!help*:?: {
n124=  if ($1 == !help) {
n125=    if ($2 != $null) {
n126=      {
n127=        if ($left($2,1) == $chr(33)) { var %cmd = $2 }
n128=        else { var %cmd = $chr(33) $+ $2 }
n129=      }
n130=
n131=      {
n132=        if ($readini(lists\cmdlist.ini,%cmd,active) != $null) {
n133=          {
n134=            if ($readini(lists\cmdlist.ini,%cmd,active) == 0) { var %status = (4disabled) }
n135=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == h) { var %status = (2halfops only) }
n136=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == o) { var %status = (2ops only) }
n137=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == q) { var %status = (2owners only) }
n138=            elseif ($readini(lists\cmdlist.ini,%cmd,status) == i) { var %status = (2[MM]IKKE only) }
n139=          }
n140=
n141=          .msg $nick $readini(lists\cmdlist.ini,%cmd,help)
n142=
n143=          if ($readini(lists\cmdlist.ini,%cmd,usage) == none) {
n144=            .msg $nick Usage: This command has no parameters %status
n145=          }
n146=          else {
n147=            .msg $nick Usage: %cmd $readini(lists\cmdlist.ini,%cmd,usage) %status
n148=          }
n149=        }
n150=        else {
n151=          .msg $nick 4ERROR:1 Command does not exist
n152=        }
n153=      }
n154=    }
n155=    else {
n156=      .msg $nick 4ERROR:1 Usage: !help <command>
n157=    }
n158=  }
n159=}