Remote

alias updateaop {
  var %i = 0 | var %a writeini -n Aop.ini | var %r Fibonacci Auto Aop
  msg %r Update Started.
  while (%i < $nick(#,0)) {
    inc %i
    if ($nick(#,%i) != $me) {
      if ($v1 isowner #)  { %a Owners $+ $chan $address($v1,1) $v1 - %r  }
      elseif ($v1 isop #) && ($v1 !isowner #)  { %a Hosts $+ $chan $address($v1,1) $v1 - %r }
    }
  }
  msg All  $nick($active,0,q) Owners  and $nick($active,0,o) Hosts have been logged.
  msg %r Update Completed.
}
on *:TEXT:*:#: {
  var %m $1- | var %w !
  if ($level($address($nick,1)) == Admin || $level($address($nick,1)) == Owner) {
    if (%w $+ mass isin %m) { msg $nick Mass $2 $+ ing the room | mmode # $2 $all.users.except(#, $2) }
    elseif (%w $+ update == %m) { updateaop }
    elseif (%w $+ link isin %m) { msg $nick your link is https://dl.dropbox.com/u/ $+ %dropbox $+ / $+ $2- }
    elseif (%w $+ kick isin %m || %w $+ mode isin %m || %w $+ ban isin %m) {
      var %x = 1
      while ($nick(#,%x)) {
        var %n $nick(#,%x)
        if ($2 isin $Ndecode(%n)) {
          if (%w $+ ban == $1) { access # add deny $address(%n,1) 0 ( $+ $utfdecode(%n) $+ ) Banlisted | kick # %n  $3- }
          elseif (%w $+ kick == $1) { kick # %n  $3- } | elseif (%w $+ mode == $1) { mode # $3 %n }
        }
        inc %x #
      }
    }
  }
  if ($level($address($nick,1)) == Owner) {
    if (%w $+ join isin %m || %w $+ part isin %m || %w $+ hop isin %m) { msg $nick I am $remove($1,%w) $+ ing $2 | $remove($1,%w) $iif(!$2,#,$2) }
    elseif (%w $+ say isin %m) { msg $2- }
    elseif (%w $+ Aop isin %m) {
      if ($2 == Halt) { writeini -n data\settings.ini # AOP halt | msg AOP Disabled for # }
      elseif ($2 == Enable) { writeini -n data\settings.ini # AOP Unhalt | msg AOP Enabled for # }
    }
    elseif (%w $+ ss isin %m) { msg Screenshot Time Every one smile ;) | takescreenshot }
  }
  if ($1 == mija || $1 == mijo) { mode # +q $nick | msg here is your hammer My Love }
  elseif (%w $+ google isin %m) {
    msg - $nick Google.com Search for $2-
    msg - $nick Your result is here - 12 http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q= $+ $replace($2-,$chr(32),+))
  }
  else { halt }
}
on *:JOIN:#: {
  var %y = $address($nick,1) | var %a $readini(Aop.ini,halt,$right(#,-2))
  var %b $readini(Aop.ini,Owners $+ $chan,%y) | var %c $readini(Aop.ini,Hosts $+ $chan,%y)
  if ($level(%y) == Shit) { access # add deny %y 0 ( $+ $utfdecode($nick) $+ ) Banlisted | kick # $nick Banlisted }
  elseif ($readini(data\settings.ini, #, AutoQ) == Unhalt) { mode # +q $nick }
  elseif ($readini(data\settings.ini, #, AutoO) == Unhalt) { mode # +o $nick }
  elseif ($readini(data\settings.ini, #, AutoV) == Unhalt) { mode # +v $nick }
  elseif ($readini(data\settings.ini, #, AOP) == halt) { halt }
  elseif (%c) && (%a !isin #) && ($me isop # || $me isowner #) { msg Local Host: %c | mode $chan +o $nick | haltdef }
  elseif (%b) && (%a !isin #) && ($me isowner #) { msg Local Owner: %b | mode $chan +q $nick | haltdef }

}