rendered paste body;;;;;;;;;;;;;;;;;;;;;;
;; Peons: 100 ;;
;; Operators: 200 ;;
;; Masters: 300 ;;
;; Co-Owners: 400 ;;
;; Owners: 500 ;;
;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;
;; Events/Commands ;;
;;;;;;;;;;;;;;;;;;;;;
on *:CONNECT: {
hload binds binds.db
}
on *:JOIN:#Topcz: {
if (%greeting1) {
notice $nick $v1
}
if (%greeting2) {
notice $nick $v1
}
if ($access > 200) {
mode $chan +o $nick
}
elseif ($access == 100) {
mode $chan +v $nick
}
}
on *:TEXT:*:?,#Topcz: {
if ($mid($1-,1,$len($trigger)) == $trigger) {
tokenize 32 $mid($1-,$calc($len($trigger) + 1) $+ -)
;; Adding Users To The Userlist ;;
if ($1 == addowner) {
if ($access >= 500) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,addowner) $+($2,.)
}
elseif ($readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is already on the userlist.
}
else {
writeini users.ini users $address($2,2) 500 Owner
notice $nick Success. $2 has been added to the userlist with 500 (Owner) access.
msg %achannel 0,1Admin:8,1 $nick $+ 15,1( $+ $address($nick,2) $+ 15,1) Added 15,1(8,1 $+ $2 $+ 15,1) to the Userlist with 15,1(8,150015,1) Access.
mode $chan +o $2
}
}
else {
notice $nick $noaccess
}
}
if ($1 == addco) {
if ($access >= 500) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,addco) $+($2,.)
}
elseif ($readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is already on the userlist.
}
else {
writeini users.ini users $address($2,2) 400 Co-Owner
notice $nick Success. $2 has been added to the userlist with 400 (Co-Owner) access.
msg %achannel 0,1Admin:8,1 $nick $+ 15,1( $+ $address($nick,2) $+ 15,1) Added 15,1(8,1 $+ $2 $+ 15,1) to the Userlist with 15,1(8,140015,1) Access.
}
}
else {
notice $nick $noaccess
}
}
if ($1 == addmaster) {
if ($access >= 400) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,addmaster) $+($2,.)
}
elseif ($readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is already on the userlist.
}
else {
writeini users.ini users $address($2,2) 300 Master
notice $nick Success. $2 has been added to the userlist with 300 (Master) access.
msg %achannel 0,1Admin:8,1 $nick $+ 15,1( $+ $address($nick,2) $+ 15,1) Added 15,1(8,1 $+ $2 $+ 15,1) to the Userlist with 15,1(8,130015,1) Access.
}
}
else {
notice $nick $noaccess
}
}
if ($1 == addop) {
if ($access >= 300) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,addop) $+($2,.)
}
elseif ($readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is already on the userlist.
}
else {
writeini users.ini users $address($2,2) 200 Operator
notice $nick Success. $2 has been added to the userlist with 200 (Operator) access.
msg %achannel 0,1Admin:8,1 $nick $+ 15,1( $+ $address($nick,2) $+ 15,1) Added 15,1(8,1 $+ $2 $+ 15,1) to the Userlist with 15,1(8,120015,1) Access.
mode $chan +o $2
}
}
else {
notice $nick $noaccess
}
}
if ($1 == addpeon) {
if ($access >= 300) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,addpeon) $+($2,.)
}
elseif ($readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is already on the userlist.
}
else {
writeini users.ini users $address($2,2) 100 Peon
notice $nick Success. $2 has been added to the userlist with 100 (Peon) access.
msg %achannel 0,1Admin:8,1 $nick $+ 15,1( $+ $address($nick,2) $+ 15,1) Added 15,1(8,1 $+ $2 $+ 15,1) to the Userlist with 15,1(8,110015,1) Access.
mode $chan +v $2
}
}
else {
notice $nick $noaccess
}
}
;; Deleting Users From The Userlist ;;
if ($1 == delowner) {
if ($access >= 500) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,delowner) $+($2,.)
}
elseif (!$readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is not on the userlist.
}
else {
remini users.ini users $address($2,2)
notice $nick Success. $2 has been removed from the userlist.
mode $chan -o $2
}
}
else {
notice $nick $noaccess
}
}
if ($1 == delco) {
if ($access >= 500) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,delco) $+($2,.)
}
elseif (!$readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is not on the userlist.
}
else {
remini users.ini users $address($2,2)
notice $nick Success. $2 has been removed from the userlist.
mode $chan -o $2
}
}
else {
notice $nick $noaccess
}
}
if ($1 == delmaster) {
if ($access >= 400) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,delmaster) $+($2,.)
}
elseif (!$readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is not on the userlist.
}
else {
remini users.ini users $address($2,2)
notice $nick Success. $2 has been removed from the userlist.
mode $chan -o $2
}
}
else {
notice $nick $noaccess
}
}
if ($1 == delop) {
if ($access >= 300) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,delop) $+($2,.)
}
elseif (!$readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is not on the userlist.
}
else {
remini users.ini users $address($2,2)
notice $nick Success. $2 has been removed from the userlist.
mode $chan -o $2
}
}
else {
notice $nick $noaccess
}
}
if ($1 == delpeon) {
if ($access >= 300) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,delpeon) $+($2,.)
}
elseif (!$readini(users.ini,users,$address($2,2))) {
notice $nick Error. $2 is not on the userlist.
}
else {
remini users.ini users $address($2,2)
notice $nick Success. $2 has been removed from the userlist.
mode $chan -v $2
}
}
else {
notice $nick $noaccess
}
}
;; Getting The Users Access ;;
if ($1 == access || $1 == a) {
var %access = $gettok($readini(users.ini,users,$address($2,2)),1,32)
var %info = $gettok($readini(users.ini,users,$address($2,2)),2,32)
if (!$2) {
notice $nick You have $iif($access,$v1,0) $iif($info,$+($chr(40),$info,$chr(41))) access.
}
else {
notice $nick $2 has $iif(%access,$v1,0) $iif(%info,$+($chr(40),%info,$chr(41))) access.
}
}
;; Having The Bot Join A Channel ;;
if ($1 == join) {
if ($access >= 300) {
if (!$2) {
notice $nick Please specify a channel you would like me to join.
}
elseif ($me ison $2) {
notice $nick I'm already in $+($2,.)
}
else {
notice $nick Now joining $+($2,.)
join $2
}
}
}
;; Having The Bot Part A Channel ;;
if ($1 == part) {
if ($access >= 300) {
if (!$2) {
notice $nick Please specify a channel you would like me to leave.
}
elseif ($me !ison $2) {
notice $nick I'm not even in $+($2,.)
}
else {
notice $nick I am now leaving $+($2,.)
part $2
}
}
}
;; Making The Bot Say Something In The Current Or Specified Channel ;;
if ($1 == say) {
if ($access >= 3) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,say) [message].
}
elseif ($left($2,1) == $chr(35) || $me ison $2) {
msg $2 $3-
notice $nick Sent 14[ $+ $3- $+ ]1 to $+($2,.)
}
else {
msg $chan $2-
}
}
}
;; Making The Bot Say Something Globally ;;
if ($1 == gmsg) {
if ($access >= 3) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,gmsg) [message].
}
else {
amsg 9,1Global Message0 from4 $nick $+ 0: $2-
}
}
}
;; Making The Bot Notice In The Current Or Specified Channel ;;
if ($1 == notice) {
if ($access >= 300) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,say) [message].
}
elseif ($left($2,1) == $chr(35) || $me ison $2) {
notice $2 $3-
notice $nick Sent 14[ $+ $3- $+ ]1 to $2 as a notice.
}
else {
notice $2-
}
}
}
;; Change The Bot's Nickname ;;
if ($1 == nick) {
if ($access >= 300) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,nick) [New Nickname].
}
else {
nick $2
notice $nick I have successfully changed my nick to $+($2,.)
}
}
}
;; Showing Commands For Users ;;
if ($1 == commands) {
set %btvar 1
while ($read(binds.db,%btvar)) {
set %btovar %btovar $trigger $+ $v1
inc %btvar 2
}
notice $nick $replace($skin,$+(%,command,%),commands,$+(%,info,%),%btovar)
unset %btvar
unset %btovar
}
;; Binding And Unbinding ;;
if ($1 == bind) {
if ($access >= 400) {
if (!$2-3) {
notice $nick Invalid syntax. Please use $+($trigger,bind) [command] [info].
}
elseif ($hget(binds,$2)) {
notice $nick Command $+(',$2,') already exists. Please use $+($trigger,set) $2 [info], to change it.
}
else {
hadd -m binds $2 $3-
hsave binds binds.db
notice $nick Command $+(',$2,') successfully binded as: $3-
}
}
else {
notice $nick $noaccess
}
}
if ($1 == unbind) {
if ($access >= 400) {
if (!$2-3) {
notice $nick Invalid syntax. Please use $+($trigger,unbind) [command].
}
elseif ($hget(binds,$2)) {
hdel binds $2
hsave binds binds.db
notice $nick Command $+(',$2,') successfully unbinded.
}
else {
notice $nick Command $+(',$2,') doesn't exist.
}
}
else {
notice $nick $noaccess
}
}
;; Using A Binded Command ;;
if ($hget(binds,$1)) {
notice $nick $replace($skin,$+(%,command,%),$1,$+(%,info,%),$v1)
}
;; Using The Set Commands To Change Binds/Greetings ;;
if ($1 == set) {
if ($access >= 400) {
if (!$2) {
notice $nick Invalid syntax. Please use $+($trigger,set) [binded command] [new info], $+($trigger,set) greeting1 [info], $+($trigger,set) greeting2 [info], or $+($trigger,set) topic [text].
}
elseif ($hget(binds,$2)) {
hadd -m binds $2 $3-
hsave binds binds.db
notice $nick Command $+(',$2,') successfully changed to: $3-
}
elseif ($2 == greeting1) {
if ($3 == off) {
unset %greeting1
notice $nick Greeting1 turned off.
}
else {
set %greeting1 $3-
notice $nick Greeting1 set to: $3-
}
}
elseif ($2 == greeting2) {
if ($3 == off) {
unset %greeting2
notice $nick Greeting2 turned off.
}
else {
set %greeting2 $3-
notice $nick Greeting2 set to: $3-
}
}
elseif ($2 == topic) {
cs $chan topic $3-
}
elseif ($2 == skin) {
hadd -m settings skin $3-
hsave settings settings.db
notice $nick Skin successfully set as: $3-
}
}
else {
notice $nick $noaccess
}
}
}
}
;;;;;;;;;;;;;
;; Aliases ;;
;;;;;;;;;;;;;
alias access { return $gettok($readini(users.ini,users,$wildsite),1,32) }
alias addowner {
writeini users.ini users $address($1,2) 500 Owner
echo -a User $1 added to the userlist with 500 (Owner) access.
}
alias addco {
writeini users.ini users $address($1,2) 400 Co-Owner
echo -a User $1 added to the userlist with 400 (Co-Owner) access.
}
alias addmaster {
writeini users.ini users $address($1,2) 300 Master
echo -a User $1 added to the userlist with 300 (Master) access.
}
alias addop {
writeini users.ini users $address($1,2) 200 Operator
echo -a User $1 added to the userlist with 200 (Operator) access.
}
alias addpeon {
writeini users.ini users $address($1,2) 100 Peon
echo -a User $1 added to the userlist with 100 (Peon) access.
}
alias noaccess { return You do not have enough access to use this command. }
alias info { return $gettok($readini(users.ini,users,$wildsite),2,32) }
alias skin { return $hget(settings,skin) }
alias trigger { return . }