REMOTE PART:
---------------------------------------------------------
on *:TEXT:@apply*:#cyberFRAG:{
if (!$2) {
notice $nick 9,1x14 ( 14 You must add a channel14,1 ) 9x
notice $nick 9,1x14 ( 14 Example @apply #cyberFRAG14,1 ) 9x
}
elseif ($2 == #cyberFRAG) {
notice $nick 9,1x14 ( 14 The Bot Is Already In That Channel14,1 ) 9x
notice $nick 9,1x14 ( 14 Try again with a different channel14,1 ) 9x
}
elseif ($2) {
join $2
set %channel $2
set %whoasked $nick
timer 1 3 idlers
}
}
----------------------------------------------------------------------------------------
ALIASES PART:
----------------------------------------------------------
alias idlers {
if ($nick(%channel,0) <= 10) {
notice %whoasked 9,1x14 ( 14 You currently have $nick(%channel,0) idlers.14,1 ) 9x
notice %whoasked 9,1x14 ( 14 We require you have 10 idlers.14,1 ) 9x
notice %whoasked 9,1x14 ( 14 Not including the Chanserv and I.14,1 ) 9x
part %channel
unset %channel
unset %whoasked
}
else {
timer 1 5 checkaccess
}
}
alias checkaccess {
if (%whoasked isop %channel) {
notice %whoasked 9,1x14 ( 14 Congrats × You have passed the requirements14,1 ) 9x
notice %whoasked 9,1x14 ( 14 Please add the bot by typing !addco $me $+ 14,1 ) 9x
notice %whoasked 9,1x14 ( 14 The bot will come in shortly!14,1 ) 9x
notice %whoasked 9,1x14 ( 14 Have a wonderful day!14,1 ) 9x
msg #cyberfrag.lms -idle %channel
part %channel
unset %channel
unset %whoasked
}
else {
notice %whoasked 9,1x14 ( 14 You do not have ops in the channel %channel14,1 ) 9x
notice %whoasked 9,1x14 ( 14 Please have someone with ops, Apply for the bot14,1 ) 9x
part %channel
unset %channel
unset %whoasked
}
}
-----------------------
------IDLE chans-------
-----------------------
on 5:TEXT:*:*:{
if ($1 == %trigger $+ idle) {
if ($left($2,1) == $chr(35)) {
if ($me !ison $2) {
if (!$lines(idler.txt)) {
.join $2
.write idler.txt $2
.notice $nick I am now idling $2 $+ . Channel has been written to idler.txt and will be auto-joined on connect.
}
else {
var %x 1
while (%x <= $lines(idler.txt)) {
if (%x < $lines(idler.txt)) {
if ($2 == $read(idler.txt,%x)) {
.notice $nick This channel is already on your idler list but you are not currently on the channel. Now Joining channel.. If this doesn't work type .join $2 $+ .
.join $2
halt
}
elseif ($2 != $read(idler.txt,%x)) {
inc %x
}
}
elseif (%x == $lines(idler.txt)) {
if ($2 == $read(idler.txt,%x)) {
.notice $nick This channel is already on your idler list but you are not currently on the channel. Now Joining channel.. If this doesn't work type .join $2 $+ .
.join $2
}
else {
.join $2
.write idler.txt $2
.notice $nick I am now idling $2 $+ . Channel has been written to idler.txt and will be auto-joined on connect.
}
halt
}
}
}
}
else {
if (!$lines(idler.txt)) {
.write idler.txt $2
.notice $nick I am now idling $2 $+ . Channel has been written to idler.txt and will be auto-joined on connect.
}
else {
var %x 1
while ($lines(idler.txt)) {
if (%x < $lines(idler.txt)) {
if ($2 == $read(idler.txt,%x)) {
.notice $nick You are already idling this channel.
}
elseif ($2 != $read(idler.txt,%x)) {
inc %x
}
}
elseif (%x == $lines(idler.txt)) {
if ($2 == $read(idler.txt,%x)) {
.notice $nick You are already idling this channel.
}
else {
.write idler.txt $2
.notice $nick Channel added to idler.txt. Join action not required. Reason: You are already on the channel.
}
halt
}
}
}
}
}
else {
.notice $nick Channel must include pound sign. Invalid channel name.
}
}
elseif ($1 == %trigger $+ join) {
if ($left($2,1) == $chr(35)) {
if ($me !ison $2) {
.join $2
.notice $nick Joining $2 $+ .
}
else {
.notice $nick I am already idling $2
}
}
else {
.notice $nick Channel must include pound sign. Invalid channel name.
}
}
elseif ($1 == %trigger $+ remidle) {
if ($left($2,1) == $chr(35)) {
if ($me !ison $2) {
var %x 1
while (%x <= $lines(idler.txt)) {
if (%x < $lines(idler.txt)) {
if ($2 == $read(idler.txt,%x)) {
.write -dl $+ %x idler.txt
.notice $nick $2 Has been removed from idler.txt.
halt
}
elseif ($2 != $read(idler.txt,%x)) {
inc %x
}
}
elseif (%x == $lines(idler.txt)) {
if ($2 == $read(idler.txt,%x)) {
.write -dl $+ %x idler.txt
.notice $nick $2 Has been removed from idler.txt.
}
else {
.notice $nick $2 could not be found in idler.txt. No action was taken.
}
inc %x
}
}
}
else {
var %x 1
while (%x <= $lines(idler.txt)) {
if (%x < $lines(idler.txt)) {
if ($2 == $read(idler.txt,%x)) {
.write -dl $+ %x idler.txt
.notice $nick $2 Has been removed from idler.txt. Now parting $2 $+ .
.part $2
}
elseif ($2 != $read(idler.txt,%x)) {
inc %x
}
}
elseif (%x == $lines(idler.txt)) {
if ($2 == $read(idler.txt,%x)) {
.write -dl $+ %x idler.txt
.notice $nick $2 Has been removed from idler.txt. Now parting $2 $+ .
.part $2
}
else {
.notice $nick $2 not found in idler.txt. Now parting $2 $+ .
.part $2
}
inc %x
}
}
}
}
else {
.notice $nick Channel must include pound sign. Invalid channel name.
}
}
elseif ($1 == %trigger $+ idlechans) || ($1 == .idlechannels) {
.notice $nick $iif($idlechans,$v1,None)
}
elseif ($1 == %trigger $+ joinidle) {
.notice $nick Now joining all IDLE channels. Type .idlechans or .idlechannels for complete list.
var %x 1
while (%x <= $lines(idler.txt)) {
.timer $lines(idler.txt) 3 join $read(idler.txt,%x)
inc %x
}
}
}
alias idleconnect {
var %x 1
while (%x <= $lines(idler.txt)) {
.timer 1 3 join $read(idler.txt,%x)
inc %x
}
}
alias idlechans {
var %idlechans
var %x 1
while (%x <= $lines(idler.txt)) {
set %idlechans %idlechans $read(idler.txt,%x)
inc %x
}
return %idlechans
}