rendered paste body==========
= REMOTE =
==========
on *:LOAD:{
set %owner dtn|aLka
set %ownerstatus online
set %greetingstatus on
}
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:#alka:{
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:#alka:{
if ($nick == %owner) {
set %ownerstatus offline
}
}
on *:TEXT:.status:#alka:{
online
}
on *:TEXT:.on:#alka:{
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:#alka:{
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 *:#alka:{
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 *:#alka:{
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*:#alka:{
if ($nick isop $chan) {
join $2
}
}
on *:TEXT:.part*:#alka:{
if ($nick isop $chan) {
part $2
}
}
on *:TEXT:.nick*:#alka:{
if ($nick isop $chan) {
nick $2
}
}
on *:TEXT:.acmds:#alka:{
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*:#:{
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*:#:{
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:*:#alka:{
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
}
}
}
}
}