rendered paste bodyon *:INVITE:#:{
inc %IDinvite
set %requestchan $chan
/notice $nick 5Searching for an open bot, please wait...
/notice [NY]ApolyBot Channel Number Needed
/notice [TX]ApolyBot Channel Number Needed
/set %rootchans $chan(0)
}
on *:PART:#:{
/set %mode parting
/notice [NY]ApolyBot Channel Number Needed
/notice [TX]ApolyBot Channel Number Needed
/set %rootchans $chan(0)
}
on *:NOTICE:*:?:{
if ($nick == [TX]ApolyBot || $nick == [NY]ApolyBot) {
if ($nick == [TX]ApolyBot) {
set %pkchans $1
}
if ($nick == [NY]ApolyBot) {
set %gdchans $1
}
if (%mode != parting) { /sendbot }
}
}
alias -l sendbot {
set %channelreq $eval(%requestchan $+ %IDinvite)
if (%rootchans < %pkchans && %rootchans < %gdchans) { /join %requestchan }
elseif (%rootchans > %pkchans && %pkchans < %gdchans) { /msg #invite !NY join %requestchan }
elseif (%rootchans > %gdchans && %gdchans < %pkchans) { /msg #invite !TX join %requestchan }
elseif (%rootchans == %pkchans && %pkchans == %gdchans) {
set %invitechoice $rand(1,3)
if (%invitechoice == 1) { /join %requestchan }
elseif (%invitechoice == 2) { /msg #invite !TX join %requestchan }
elseif (%invitechoice == 3) { /msg #invite !NY join %requestchan }
}
elseif (%rootchans == %gdchans && %pkchans > %gdchans) {
set %invitechoice $rand(1,2)
if (%invitechoice == 1) { /join %requestchan }
elseif (%invitechoice == 2) { /msg #invite !NY join %requestchan }
}
elseif (%rootchans == %pkchans && %pkchans < %gdchans) {
set %invitechoice $rand(1,2)
if (%invitechoice == 1) { /join %requestchan }
elseif (%invitechoice == 2) { /msg #invite !TX join %requestchan }
}
elseif (%rootchans > %gdchans && %pkchans == %gdchans) {
set %invitechoice $rand(1,2)
if (%invitechoice == 1) { /msg #invite !TX join %requestchan }
elseif (%invitechoice == 2) { /msg #invite !NY join %requestchan }
}
else { /ms send Apolytrosi A situation has occured which you have not anticipated. %gdchans GD %rootchans ROOT %pkchans PK }
}