on *:TEXT:!joinxd*:#:{
if ((%floodjoinxd) || ($($+(%,floodjoinxd.,$nick),2))) { return }
set -u10 %floodjoinxd On
set -u30 %floodjoinxd. $+ $nick On
var %jchannel /j $nick
if ($read(JoinChannels.txt,w,%jchannel)) { msg # Your channel already on the list $nick ! | return }
else {
/j $nick
write JoinChannels.txt %jchannel
msg $chan I joined your channel $nick
}
}
on *:TEXT:!leavexd*:#:{
var %jchannel /j $nick
if (!$read(JoinChannels.txt,w,%jchannel)) { msg # You're not on the list! | return }
else {
var %leftChan $+($chr(35),$read(JoinChannels.txt,w,* $+ $nick))
write -dl $+ $readn JoinChannels.txt
/part %leftChan
msg # I left your channel $nick
}
}