on *:JOIN:#:{ if ($ulevel > 1) { msg # $+ $nick is a level $ulevel cfas-Bot Admin. } }
on *:TEXT:-adduser*:#:{
if ($ulevel < 0 ) { .notice $nick You Lack Access To Use This Command. | halt }
{ guser $2- | notice $nick added $3 to userlist with access level $2 ( $+ $4 $+ ) }
}
on *:text:join*:?:{
if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me ison $chan) { .notice $nick I am already in that channel. | halt }
{ .join $2 | .notice $nick Joined $2 } | halt
}
on *:text:-join*:#:{
if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me ison $2) { .notice $nick I am already in that channel. | halt }
{ .join $2 | .notice $nick Joined $2 } | halt
}
on *:text:leave*:#:{
if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
{ .part $chan $3- | .notice $nick Parted $chan } | halt
}
on *:text:part*:?:{
if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
{ part $chan $2- }
}
on *:text:part*:#:{
if ($ulevel < 400 ) { .notice $nick You Lack Access To Use This Command. | halt }
{ part $chan $2- }
}
on *:TEXT:-quit:*:{
if ($ulevel < 500 ) { .notice $nick You Lack Access To Use This Command. | halt }
{ .quit $2- ( $+ $nick- $+ ) }
}
on *:text:-access*:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
{ .notice $nick You have access $iif($ulevel == 0,none,$ulevel) to $me }
}
on 500:text:-restart*:*: {
quit $2-
server irc.us.gamesurge.net
}
on 400:join:#:{
if ($me isop $chan) {
mode $chan +o $nick
}
}
on 300:join:#:{
if ($me isop $chan) {
mode $chan +v $nick
}
}
on *:text:-say*:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if ($ulevel < 300 ) { .notice $nick You Lack Access To Use This Command. | halt }
if (!$2) { .notice $nick What do you want me to say? | halt }
.msg $chan $2-
}
on *:text:-commands:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
.notice $nick Use -commands0 for access 0
.notice $nick Use -commands100 for access 100
.notice $nick Use -commands200 for access 200
.notice $nick Use -commands300 for access 300
.notice $nick Use -commands400 for access 400
.notice $nick Use -commands500 for access 500
}
on *:text:-commands0:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
.notice $nick -Version
.notice $nick -Credits
}
on *:text:-commands100:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if ($ulevel < 100 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }
.notice $nick -Voice
.notice $nick -Devoice
}
on *:text:-commands200:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if ($ulevel < 200 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }
.notice $nick -Kick
.notice $nick -Ban
.notice $nick -Unban
.notice $nick -Mode
}
on *:text:-commands300:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if ($ulevel < 300 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }
.notice $nick -Op
.notice $nick -Deop
.notice $nick -Say
}
on *:text:-commands400:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if ($ulevel < 400 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }
.notice $nick -Join
.notice $nick -Part
.notice $nick -Kb
.notice $nick -Tb
.notice $nick [^B]Notes:[^B] -Tb Nick <(How many seconds you want them banned for)>
}
on *:text:-commands500:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if ($ulevel < 500 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }
.notice $nick -Adduser
.notice $nick [^B]Syntax:[^B] -Adduser <level> <nick> <1>
}
on *:text:-op*:#:{
if ($ulevel < 300 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to op? | halt }
if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
if ($2 isop $chan) { .notice $nick $2 is already opped in $chan | halt }
.mode $chan +o $2
.notice $nick I have Opped $2
}
on 200:text:-deop*:#:{
if ($ulevel < 300 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to de-op? | halt }
if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
if ($2 !isop $chan) { .notice $nick $2 is Not Opped in $chan | halt }
.mode $chan -o $2
.notice $nick I have De-Opped $2
}
on *:text:-voice*:#:{
if ($ulevel < 100 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to voice? | halt }
if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
if ($2 isvoice $chan) { .notice $nick $2 is already voiced in $chan | halt }
.mode $chan +v $2
.notice $nick I have voiced $2
}
on *:text:-devoice*:#:{
if ($ulevel < 100 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to de-voice? | halt }
if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
if ($2 !isvoice $chan) { .notice $nick $2 is not voiced in $chan | halt }
.mode $chan -v $2
.notice $nick I have de-voiced $2
}
on *:text:-v:#:{
if ($ulevel < 100 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to voice? | halt }
if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
if ($2 isvoice $chan) { .notice $nick $2 is already voiced in $chan | halt }
.mode $chan +v $2
.notice $nick I have voiced $2
}
on *:text:-dv*:#:{
if ($ulevel < 100 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to de-voice? | halt }
if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
if ($2 !isvoice $chan) { .notice $nick $2 is not voiced in $chan | halt }
.mode $chan -v $2
.notice $nick I have de-voiced $2
}
on *:text:-ban*:#:{
if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to ban? | halt }
if ($2 isban $chan) { .notice $nick $2 is Banned in $chan already | halt }
.ban $chan $2
.notice $nick I have Banned $2
}
on *:text:-unban*:#:{
if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to unban? | halt }
if ($address($2,6) !isban #) { .notice $nick $2 is not banned | halt }
ban -r # $2 6 .notice $nick I have unbanned $2
}
on *:text:-ub*:#:{
if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to unban? | halt }
if ($2 !isban $chan) { .notice $nick $2 is not banned from $chan | halt }
else { .mode $chan -b $2 }
.notice $nick I have unbanned $2
}
on *:text:-kb*:#:{
if ($ulevel < 300 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to kick ban? | halt }
if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
else {
.mode $chan +b $address($2,2)
.kick $chan $2 $3- $+ ( $+ $nick $+ )
.notice $nick $2 has been kick banned from $chan
}
}
on *:text:-kick*:#:{
if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick Who do u want to kick? | halt }
if ($2 !ison $chan) { .notice $nick $2 is not in $chan | halt }
.kick $chan $2
.notice $nick I have kicked $2
}
on *:text:-mode*:#:{
if ($ulevel < 200 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if (!$2) { .notice $nick What mode would you like? | halt }
.mode $chan $2
.notice $nick I have changed the modes to $2
}
on *:text:-tb*:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
if ($ulevel < 300 ) { .notice $nick You Do Not Have Enough Access To Use These Commands. | halt }
.ban -u $+ $3 $chan $address($2,2)
.kick $nick $chan
.notice $nick I have timebanned $2 for $3 Seconds }
on *:text:-version:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
.notice $nick cfas-Bot Version 1.0 (cfastic #cfas) November 30th 8:52 am 2006.
}
on *:text:-credits:#:{
if ($me !isop $chan) { .notice $nick $me needs to be opped in $chan to function Properly. | halt }
.notice $nick $me was created by cfastic and some other friends from #irate and #betabots $+ .
}
on *:TEXT:-bind*:#:{
if ($ulevel < 500 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($2) {
if (!$3) { notice $nick $2 requirers more parameters. | halt }
if ($3 == *) || ($3 == none) || ($3 == off) { unset $+(%,$chan,$2) | notice $nick $2 for # is now off. | halt }
set $+(%,$chan,$2) $3-
notice $nick $2 for #cfas has been set to $3-
}
}
on *:TEXT:-unbind*:#:{
if ($ulevel < 500 ) { .notice $nick You Lack Access To Use This Command. | halt }
if (!$2) notice $nick use -unbind Trigger
if ($~($+(%,$chan,$2),2) == $null) { notice $nick Error: I don't recoginze $2 as a binding. | halt }
unset $+(%,$chan,$2)
notice $nick Successfully unbound $2
}
on *:TEXT:*#*:#cfas: {
if ($nick isreg $chan) {
inc %ad. [ $+ [ $nick ] ]
if (%ad. [ $+ [ $nick ] ] == 1) { notice $nick Don't advertise Channels in here. Thank You. }
if (%ad. [ $+ [ $nick ] ] == 2) { ban -ku600 $chan $nick TempBan 10 min for channel advertising }
if (%ad. [ $+ [ $nick ] ] == 3) { ban -ku1800 $chan $nick TempBan 30 min for channel advertising | unset %ad. [ $+ [ $nick ] ] }
}
}
on *:text:-greeton*:#cfas:{
if ($ulevel < 500 ) { .notice $nick You Lack Access To Use This Command. | halt }
if ($nick !isop $chan) {
notice $nick %t Sorry You Lack Access To This Command! %t }
else { set %greeton true
notice $nick %t Greeting Turned On %t
}
}
on *:text:-greetoff*:#cfas:{
if ($nick !isop $chan) {
notice $nick %t Sorry You Must be Op to use this Command! %t }
else { set %greeton false
notice $nick %t Greeting Turned Off %t
}
}
on *:text:-setgreeting *:#cfas:{
if (%greeton == true) {
set %greeting $2- | .notice $nick %t Channel Greeting Set To " $+ $2- $+ " %t
else { notice $nick %t Greeting Isnt On! Type -greeton To Activate The Bot's Greeting! %t }
}
}
on *:JOIN:#cfas:{
if (%greeton == true) {
notice $nick %t %greeting %t }
}
on *:text:.greeting*:#:{ notice $nick %t Current Greeting: " $+ %greeting $+ " %t }