Mine

ON $*:TEXT:/^[!@.]AChan/Si:#:{
  if ($nick isop $chan || $nick ishop $chan || $nick ison $.chan) {
    if ($readini(Status.ini,$network,$chan) == DChan) {
      notice $nick $logo All commands activated
      remini Status.ini $network $chan
    }
    else notice $nick I am already achaned
  }
  else notice $nick $logo This is a halfop+ command only
}

PUT THESE IFS IN EVERY SCRIPT 
 if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
if ($left($1,1) == @) && ($readini(Status2.ini,$network,$chan) == Yes) { halt } 

On $*:TEXT:/^[!@.](.*)/Si:#:{
  if ($nick !isop $.chan && $nick !ishop $.chan) {
    inc -u3 $+(%,Spam.,$network,.,$nick,.,$me)
    if ($($+(%,Spam.,$network,.,$nick,.,$me),2) >= 5) { 
      .ignore -u300 $address($nick,3)
      notice $nick $logo Your flooding my commands! I'm am now ignoring you for 5 minutes. Evidence: $qt($left($1,1) $+ $regml(1))
      echo -t $iif($+(@,Ignored.,$network),$ifmatch,$chan) $c1(Nick:) $c2($nick)   $c1(Address:) $c2($address($nick,-2)) $&
        $c1(Chan:) $c2($chan) $c1(Evidence:) $c2($left($1,1) $+ $regml(1))
    }
  }
}

ON $*:TEXT:/^[!@.]Public( )?Off/Si:#:{
  if ($nick isop $chan || $nick ishop $chan || $nick ison $.chan) {
    if ($readini(Status2.ini,$network,$chan) == Yes) notice $nick Commands are already off
    else {
      notice $nick $logo Public commands are now offline
      writeini Status2.ini $network $chan Yes
    }
  }
  else notice $nick $logo This is a halfop+ command only
}
ON $*:TEXT:/^[!@.]Public( )?On/Si:#:{
  if ($nick isop $chan || $nick ishop $chan || $nick ison $.chan ) {
    if ($readini(Status2.ini,$network,$chan) == Yes) {
      notice $nick $logo Public commands are now on
      remini Status2.ini $network $chan
    }
    else notice $nick You cant turn on whats already on.
  }
  else notice $nick $logo This is a halfop+ command only
}
ON $*:TEXT:/^[!@.]DChan/Si:#:{
  if ($nick isop $chan || $nick ishop $chan || $nick ison $.chan) {
    if ($readini(Status.ini,$network,$chan) == DChan) notice $nick Commands are already off
    else {
      notice $nick $logo All commands halted
      writeini Status.ini $network $chan DChan
    }
  }
  else notice $nick $logo This is a halfop+ command only
}

Alias c1 {
  if ($sockname && $read(Colors.txt, s, $address(%nick. [ $+ [ $sockname ] ],2))) {
    return $+($chr(3),$gettok($read(Colors.txt, s, $address(%nick. [ $+ [ $sockname ] ],2)),1,32),$1-,$chr(3))
  }
  if ($read(Colors.txt, s, $address($nick,2))) {
    return $+($chr(3),$gettok($read(Colors.txt, s, $address($nick,2)),1,32),$1-,$chr(3))
  }
  else {
    return $+($chr(3),10,$1-,$chr(3))
  }
}
Alias c2 {
  if ($sockname && $read(Colors.txt, s, $address(%nick. [ $+ [ $sockname ] ],2))) {
    return $+($chr(3),$gettok($read(Colors.txt, s, $address(%nick. [ $+ [ $sockname ] ],2)),2,32),$1-,$chr(3))
  }
  if ($read(Colors.txt, s, $address($nick,2))) {
    return $+($chr(3),$gettok($read(Colors.txt, s, $address($nick,2)),2,32),$1-,$chr(3))
  }
  else {
    return $+($chr(3),04,$1-,$chr(3))
  }
}

ON $*:TEXT:/^[!@.]MyColor(s)? /Si:#:{
  if ($3) {
    if ($gettok($2,1,46) isnum 1-15 && $gettok($3,1,46) isnum 1-15) {
      write -ds $+ $address($nick,2) Colors.txt
      write Colors.txt $address($nick,2) $iif($len($2) == 1,0 $+ $gettok($2,1,46),$gettok($2,1,46)) $iif($len($3) == 1,0 $+ $gettok($3,1,46),$gettok($3,1,46))
      notice $nick $logo $c1(Your colors have been) $c2(changed)
    }
  }
}


alias logo { return 4[10Astra4] }