aLka Bot - Made by eAgLe

on *:CONECT:{
  set %owner dtn|aLka
  set %ownerstatus online
  set %greetingstatus on
  set %chan #alka
}
on *:LOAD:{
  set %owner dtn|aLka
  set %ownerstatus online
  set %greetingstatus on
  set %chan #alka
}
alias online {
  if (%owner == dtn|aLka) {
    if (%ownerstatus == online) {
      notice $nick 13,1•0,1•13,1 0aLka 9[ONLINE] 13,1•0,1•
    }
    if (%ownerstatus == offline) {
      notice $nick 13,1•0,1•13,1 0aLka 4[OFFLINE] 13,1•0,1•
    }
  }
}
on *:JOIN:%chan:{
  notice $nick 13,1•0,1•13,1 0Hi13 $nick $+ 0, welcome to13 $chan $+ 0. To see the aLka's status, type .13s0tatus. 13,1•0,1• 
  if (%greetingstatus == on) {
    notice $nick 13,1•0,1•13,10 %greeting 13,1•0,1•
  }
  if ($nick == %owner) {
    set %ownerstatus online
  }
}
on *:PART:%chan:{
  if ($nick == %owner) {
    set %ownerstatus offline
  }
}
on *:TEXT:.status:%chan:{
  online
}
on *:TEXT:.on:%chan:{
  if ($nick == %owner) {
    if (%ownerstatus == offline) {
      set %ownerstatus online
      notice $nick 13,1•0,1•13,1 0You are now online. 13,1•0,1•
      msg $chan 13,1•0,1•13,1 0[OWNER]13 %owner 0has now logged. 13,1•0,1•
    }
    else {
      notice $nick 13,1•0,1•13,1 0Sorry, you are already online. 13,1•0,1•
    }
  }
  else {
    notice $nick 13,1•0,1•13,1 0Sorry, you lack access. 13,1•0,1•  
  }
}
on *:TEXT:.off:%chan:{
  if ($nick == %owner) {
    if (%ownerstatus == online) {
      set %ownerstatus offline
      notice $nick 13,1•0,1•13,1 0You are now offline. 13,1•0,1•
      msg $chan 13,1•0,1•13,1 0[OWNER]13 %owner 0has now logout. 13,1•0,1•
    }
    else {
      notice $nick 13,1•0,1•13,1 0Sorry, you are already offline. 13,1•0,1•
    }
  }
  else {
    notice $nick 13,1•0,1•13,1 0Sorry, you lack access. 13,1•0,1•
  }
}
on *:TEXT:.set greeting *:%chan:{
  if ($nick isop $chan) {
    set %greeting $3-
    notice $nick 13,1•0,1•13,1 0The greeting has been changed for13 $3- 13,1•0,1•
  }
}
on *:TEXT:.greeting *:%chan:{
  if ($2) {
    if ($nick isop $chan) && ($2 == off) {
      if (%greetingstatus == off) {
        notice $nick 13,1•0,1•13,1 0The greeting is already disabled. 13,1•0,1•
      }
      if (%greetingstatus == on) {
        set %greetingstatus off
        notice $nick 13,1•0,1•13,1 0The greeting is now disabled. 13,1•0,1•
      }
    }
    if ($nick isop $chan) && ($2 == on) {
      if (%greetingstatus == on) {
        notice $nick 13,1•0,1•13,1 0The greeting is already enabled. 13,1•0,1•
      }
      if (%greetingstatus == off) {
        set %greetingstatus on
        notice $nick 13,1•0,1•13,1 0The greeting is now enabled. 13,1•0,1•
      }
    }
  }
  if (!$2) {
    notice $nick 13,1•0,1•13,1 0You need to type .greeting <on/off>. 13,1•0,1•
  }
}
on *:TEXT:.join*:%chan:{
  if ($nick isop $chan) {
    join $2
  }
}
on *:TEXT:.part*:%chan:{
  if ($nick isop $chan) {
    part $2
  }
}
on *:TEXT:.nick*:%chan:{
  if ($nick isop $chan) {
    nick $2
  }
}
on *:TEXT:.acmds:%chan:{
  if ($nick isop $chan) {
    notice $nick 13,1•0,1•13,10 Admin Commands : .13o0n - .13o0ff - .13b0ind - .13u0nbind - .13s0tatus - .13j0oin - .13p0art - .13n0ick - .13s0et greeting - .13g0reeting - .13a0dduser - .13d0eluser 13,1•0,1•
  }
}
on *:TEXT:.adduser*:%chan:{
  if ($nick isop $chan) {
    if ($2) {
      auser -a $3 $address($2,2)
      notice $nick 13,1•0,1•13,1 $2 0has been added successfully with access13 $3 13,1•0,1•
    }
    else if {!$2) {
      notice $nick 13,1•0,1•13,1 You need to type 13.adduser <nickname> <level>. 13,1•0,1•
    }
  }
}
on *:TEXT:.deluser*:%chan:{
  if ($nick isop $chan) {
    if ($2) {
      ruser -a $address($2,2)
      notice $nick 13,1•0,1•13,1 $2 0has been removed successfully. 13,1•0,1•
    }
    else if (!$2) {
      notice $nick 13,1•0,1•13,1 You need to type 13.deluser <nickname>. 13,1•0,1•
    }
  }
}
on *:TEXT:*:%chan:{
  if ($hget(binds) == $null) {
    hmake binds
    if ($exists(binds.db) == $true) {
      hload binds binds.db
    }
  }
  if (!%trigger) { var %trigger = . }
  if ($mid($1-,1,$len(%trigger)) == %trigger) {
    tokenize 32 $mid($1-,$calc($len(%trigger) + 1) $+ -)
  }
  else { halt }
  if ($hget(binds,$1) != $null) {
    notice $nick 13,1•0,1•13,10 $v1 13,1•0,1•
  }
  if ($nick isop $chan) {
    if ($1 == bind) {
      if ($3 == $null) { notice $nick 13,1•0,1•13,10 Specify 13[command] [text] 13,1•0,1• }
      else {
        hadd binds $2 $2 : $3-
        notice $nick 13,1•0,1•13,10 Binded13 $2 0to13 $3- 13,1•0,1•
        hsave binds binds.db
      }
    }
  }
  if ($nick isop $chan) {
    if ($1 == unbind) {
      if ($2 == $null) { notice $nick 13,1•0,1•13,10 Specify 13[command] 13,1•0,1• }
      else {
        if ($hget(binds,$2) == $null) { notice $nick 13,1•0,1•13,10 $2 13,1•0,1• }
        else {
          hdel binds $2
          notice $nick 13,1•0,1•13,10 Successfully unbinded $+($2,.) 13,1•0,1•
          hsave binds binds.db
        }
      }
    }
  }
}