alias novoice {
set %list
set %i 1
:next
set %nick $nick(#,%i)
if %nick == $null goto done
if %nick isreg $chan set %list %list
inc %i
goto next
/msg $chan The current unvoiced users are: %list
:done
}
on *:text:!novoice:#pc-addict{
if ($nick isop $chan) || ($nick ishop $chan) {
/novoice
}
else { halt }
}
on *:TEXT:!setpcw*:#pc-addict:{
if ($nick isop $chan)
{
set %pcw $2
msg $nick The world has been changed!
notice $chan The Pest Control world has been updated by an op, type in either !pcw or !world to view it!
}
elseif ($nick ishop $chan) {
set %pcw $2
msg $nick The world has been changed!
notice $chan The Pest Control world has been updated by a halfop, type in either !pcw or !world to view it!
}
elseif ($nick isvoice $chan) && ($nick !ishop $chan) && ($nick !isop $chan) {
/notice $nick Sorry, but a voiced user maynot change the world.
}
else { /notice $nick Sorry, but a regular user may not see nor set the world. }
}
on $*:TEXT:/[!@]pcw|world?/Si:#pc-addict: {
if ($nick isreg #pc-addict) {
notice $nick Sorry, but a regular user maynot view the world.
}
else {notice $nick The curent Pest Control world is %pcw }
}
on 1:join:#pc-addict: {
msg #pc-addict @cmb $nick
notice $nick type !pcw or !world to get the pc world for #pc-addict
notice $nick you need to be 12voiced to see the world. also we have a !suggest world feature:example !suggest 78
}
on *:TEXT:!suggest *:#pc-addict: {
if ($nick !isreg #pc-addict) {
notice $nick your suggestion has been forwarded to Pc Addict operaters.
notice #pc-addict $nick suggests $2
}
}
on *:text:!say *:#pc-addict: {
if ($address($nick,2) == *!*@Swift-A2C225DC.ph.ph.cox.net) { /timersay 1 0 /msg $chan $2- }
else {
if ($nick ishop $chan) || ($nick ishop $chan) {
if ($2 == $null) { /notice $nick Sorry, but there was no input }
else { /msg $chan $2- }
}
}
}
on *:text:!ban *:*: {
if (Pest-Control ison $chan) { halt }
else {
if ($nick isop $chan) {
if ($2 isop $chan) { /notice $nick You may not ban another operator. }
else {
if ($2 == $null) { /notice $nick Sorry, but there was no specified target. }
else {
if ($3 == $null) { /mode $chan +b $address($nick,2) | /kick $chan $2 Requested by an op. }
else { /mode $chan +b $address($nick,2) | /kick $chan $2 $3- }
}
}
}
}
if ($nick ishop $chan) {
if ($2 isop $chan) { /notice $nick You may not ban an operator. }
elseif ($2 ishop $chan) { /notice $nick You may not ban another half-operator. }
else {
if ($2 == $null) { /notice $nick Sorry, but there was no specified target. }
else {
if ($3 == $null) { /mode $chan +b $address($nick,2) | /kick $chan $2 Requested by an op. }
else { /mode $chan +b $address($nick,2) | /kick $chan $2 $3- }
}
}
}
elseif ($address($nick,2) == *!*@System.support.SwiftIRC.net) {
if ($2 == $me) { /notice $nick Can't do that }
elseif ($2 == $nick) { /notice $nick Can't do that }
elseif ($2 == ban) { $3- | haltdef }
else { /mode $chan b $address($2,2) { /kick $chan $2 Kicked for a good reason! }
}
}
else { /notice $nick You do not have access to use that command. }
}
on *:invite:*:{
set %invitation 0
set %chanin $chan
set %nickin $nick
/msg #PC-Addict $nick invited me to $chan do you want me to join? (!yes or !no)
}
on *:text:!yes:#pc-addict:{
if (%invitation < 1) { /halt }
else {
if ($nick isop $chan) {
/join %chanin
/notice $chan Op $nick allows me to join %chanin
}
elseif ($nick ishop $chan) {
/join %chanin
/notice $chan HalfOp $nick allows me to join %chanin
}
else { /notice $nick You have no access to do so }
}
}
on *:text:!no:#pc-addict:{
if (%invitation < 1) { /halt }
else {
if ($nick isop $chan) {
/unset %nickin
/notice $chan Op $nick doesn't allow me to join %chanin
/unset %chanin
}
elseif ($nick ishop $chan) {
/unset %nickin
/notice $chan HalfOp $nick doesn't allow me to join %chanin
/unset %chanin
}
}
}
on *:join:%chanin:{
if ($nick != $me) { /halt }
else {
/unset %chanin
/msg %chanin I was invited here by %nickin
}
}
alias regs {
set %list
set %i 1
:next
set %nick $nick(#,%i)
if %nick == $null goto done
if %nick isreg $chan set %list %list
inc %i
goto next
/msg $chan The current regular users are %list
:done
}
on *:text:!regs:#pc-addict:{
if ($nick isop $chan) || ($nick ishop $chan) {
/regs
}
else { halt }
}