on *:TEXT:&aop *:*: {
  if ($readini(aoq.ini [ $+ [ $2 ] ],$nick,aoq) == $address($nick,2)) { writeini aop.ini [ $+ [ $2 ] ] $3 aop $address($3,2) | notice $nick $3 added to access list as admin in $2 $+ . 
  }
}
on *:TEXT:&op *:*: {
  if ($readini(aoq.ini [ $+ [ $2 ] ],$nick,aoq) == $address($nick,2)) { writeini op.ini [ $+ [ $2 ] ] $3 op $address($3,2) | notice $nick $3 added to access list as Op in $2 $+ .
  } 
  elseif ($readini(aop.ini [ $+ [ $2 ] ],$nick,aop)) == $address($nick,2)) { writeini op.ini [ $+ [ $2 ] ] $3 op $address($3,2) | notice $nick $3 added to access list as Op in $2 $+ .
  }
}
on *:TEXT:&hop *:*: {
  if ($readini(aoq.ini [ $+ [ $2 ] ],$nick,aoq) == $address($nick,2)) { writeini hop.ini [ $+ [ $2 ] ] $3 hop $address($3,2) | notice $nick $3 added to access list as Hop in $2 $+ .
  }
  elseif ($readini(aop.ini [ $+ [ $2 ] ],$nick,aop)) == $address($nick,2)) { writeini hop.ini [ $+ [ $2 ] ] $3 hop $address($3,2) | notice $nick $3 added to access list as Hop in $2 $+ .
  }
}
on *:TEXT:&voice *:*: {
  if ($readini(aoq.ini [ $+ [ $2 ] ],$nick,aoq) == $address($nick,2)) { writeini voice.ini [ $+ [ $2 ] ] $3 voice $address($3,2) | notice $nick $3 added to access list as voice in $2 $+ .
  }
  elseif ($readini(aop.ini [ $+ [ $2 ] ],$nick,aop)) == $address($nick,2)) { writeini voice.ini [ $+ [ $2 ] ] $3 voice $address($3,2) | notice $nick $3 added to access list as voice in $2 $+ .
  } 
}
on $*:JOIN:#: {
  if ($readini(aoq.ini [ $+ [ $chan ] ],$nick,aoq) == $address($nick,2) || $readini(aop.ini [ $+ [ $chan ] ],$nick,aop) == $address($nick,2) || $readini(op.ini [ $+ [ $chan ] ],$nick,op) == $address($nick,2)) {
    mode $chan +o $nick
  }
  elseif ($readini(hop.ini [ $+ [ $chan ] ],$nick,hop) == $address($nick,2)) {
    mode $chan +h $nick
  }
  elseif ($readini(voice.ini [ $+ [ $chan ] ],$nick,voice) == $address($nick,2)) {
    mode $chan +v $nick
  }
}
on *:TEXT:!poke *:#: {
  describe $chan pokes $iif($2,$2- for $nick,$nick)
}
on $*:TEXT:*:#: {
  if ($readini(aoq.ini [ $+ [ $chan ] ],$nick,aoq) == $address($nick,2) || $readini(op.ini [ $+ [ $chan ] ],$nick,op) == $address($nick,2) || $readini(aop.ini [ $+ [ $chan ] ],$nick,aop) == $address($nick,2)) {
    if ($left($1,1) !isin @!.) halt
    elseif ($right($1,-1) == op) var %style = op
    elseif ($right($1,-1) == deop) var %style = deop
    elseif ($right($1,-1) == hop) var %style = mehop
    elseif ($right($1,-1) == dehop) var %style = medehop
    elseif ($right($1,-1) == voice) var %style = mevoice
    elseif ($right($1,-1) == devoice) var %style = medevoice
    elseif ($right($1,-1) == k) var %style = kick
    elseif ($right($1,-1) == kb) var %style = kban
    elseif ($right($1,-1) == unban) var %style = unban
    elseif ($right($1,-1) == tb) var %style = temp
  }
  if ($readini(hop.ini [ $+ [ $chan ] ],$nick,hop) == $address($nick,2)) {
    if ($left($1,1) !isin @!.) halt
    elseif ($right($1,-1) == hop) var %style = hop
    elseif ($right($1,-1) == dehop) var %style = dehop
    elseif ($right($1,-1) == voice) var %style = mevoice
    elseif ($right($1,-1) == devoice) var %style = medevoice
  }
  if ($readini(voice.ini [ $+ [ $chan ] ],$nick,voice) == $address($nick,2)) {
    elseif ($right($1,-1) == voice) var %style = voice
    elseif ($right($1,-1) == devoice) var %style = devoice
  }
  if (%style == temp) {
    if ($2 == $me) { halt }
    elseif ($readini(aoq.ini [ $+ [ $chan ] ],$2,aoq) == $address($2,2)) { HALT }
    else { kick $chan $$2
      ban $chan $$2 $iif($4,$4-,Requested by: $nick)
      time 1 $calc( $3 * 60 ) unban $chan $2
    }
  }
  if (%style == unban) {
    unban $chan $$2
  }
  if (%style == kban) {
    if ($2 == $me) { halt }
    elseif ($readini(aoq.ini [ $+ [ $chan ] ],$2,aoq) == $address($2,2)) { HALT }
    else {
      kick $chan $$2
      ban $chan $$2 $iif($3,$3,Requested by: $nick)
    }
  }
  if (%style == kick) {
    if ($2 == $me) { halt }
    elseif ($readini(aoq.ini [ $+ [ $chan ] ],$2,aoq) == $address($2,2)) { HALT }
    else {
      kick $chan $$2
    }
  }
  if (%style == op) {
    mode $chan +o $iif($2,$2,$nick)
  }
  if (%style == deop) {
    mode $chan -o $iif($2,$2,$nick)
  }
  if (%style == mehop) {
    mode $chan +h $iif($2,$2,$nick)
  }
  if (%style == medehop) {
    mode $chan -h $iif($2,$2,$nick)
  }
  if (%style == mevoice) {
    mode $chan +v $iif($2,$2,$nick)
  }
  if (%style == medevoice) {
    mode $chan -v $iif($2,$2,$nick)
  }
  if (%style == hop) {
    mode $chan +h $nick
  }
  if (%style == dehop) {
    mode $chan -h $nick
  }
  if (%style == voice) {
    mode $chan +v $nick
  }
  if (%style == devoice) {
    mode $chan -v $nick
  }
}