on *:JOIN:#: {
if ($readini(greetings.ini,greetings,$chan) != $null) {
notice $nick $readini(greetings.ini,greetings,$chan)
}
else {
<Put the greeting you want, for channels not in the ini file.>
}
}
on *:TEXT:*greeting*:#spxhost: {
if ($1 == %trig $+ greeting) {
if ($ulevel >= 4) {
if ($2 == add) {
/writeini greetings.ini greetings $3 $4-
}
}
else {
notice $nick Error >> You do not have enough access to use this command.
}
}
}
on 4:TEXT:.join *:#: { /join $2 | notice $nick The bot has succesfully joined $2 to make it leave type .part #channel }
on 4:TEXT:.part *:#: { /part $2 | notice $nick The bot has succesfully part $2 }
on 4:TEXT:.nick *:#: { /nick $2 | notice $nick My name has been changed to $2 }
on 4:TEXT:.add *:#: { /auser $2 $3 | notice $nick The user $3 has been added to the bot with $2 access. }
on 4:TEXT:.addpeon *:#: { /msg chanserv #delt adduser $2 100 | notice $nick The user $2 has been voiced in #delt type .resync }
on 4:TEXT:.resync *:#: { /msg chanserv #delt resync }
on 4:TEXT:.addop *:#: { /msg chanserv #delt adduser $2 199 | notice $nick The user $2 has been voiced in #delt type .resync }
on 4:TEXT:.deluser *:#: { /msg chanserv #delt deluser $2 | notice $nick The user $2 has been voiced in #delt type .resync }
on *:TEXT:*:#spxhost: {
if ($hget(binds) == $null) { hmake binds }
if ($exists(binds.db) == $true) { hload binds binds.db }
if ($mid($1-,1,$len(%trig)) == %trig) {
tokenize 32 $mid($1-,$calc($len(%trig) + 1) $+ -)
}
else { halt }
if ($hget(binds,$1) != $null) {
notice $nick 4,1(0 $remove($1,%trig) 4)0 4(0 $v1 4)0
}
if ($ulevel >= 4) {
if ($1 == bind) {
if ($3 == $null) { notice $nick Please use the correct syntax. %trig $+ bind <command> <text> }
else {
hadd binds $2 $3-
notice $nick Command $2 successfully bound to: $3-
hsave binds binds.db
}
}
}
if ($ulevel >= 4) {
if ($1 == unbind) {
if ($2 == $null) { notice $nick Please use the correct syntax. %trig $+ unbind <command>
}
else {
if ($hget(binds,$2) == $null) { notice $nick Command doesnt exist. }
else {
hdel binds $2
notice $nick Successfully unbound command: $2
hsave binds binds.db
}
}
}
}
}
on *:OPEN:?:{
set %pm.n $nick
set %pm.m $strip($1-,burcm)
inc %pm.c
msg $nick Hello $nick , I am only a bot. Please pm an other operator of the channel ! Thank you