Untitled

raw 470 *:*: { msg #godbot-admin Unable to join $3 mode +L $17 $+ . }
raw 471 *:*: { msg #godbot-admin Unable to join $2 mode $2 +l. }
raw 473 *:*: { msg #godbot-admin Unable to join $2 mode $2 +i. }
raw 474 *:*: { msg #godbot-admin Unable to join $2 mode $2 +b. }
raw 475 *:*: { msg #godbot-admin Unable to join $2 mode $2 +k. }
raw 421 *:*: { msg #godbot-admin Unknown command: / $+ $2 }
ctcp *:cload:?: {
  writeini -np channel-load.ini cload $nick $2
}
ctcp *:gojoin:*: { 
  if ($nick isop #godbot.invite) {
    join $3 
    .timer 1 3 check $3
    .timer 1 1 msg $3 Hello, Thankyou for inviting me to $3 i am $me $godbotversion type !commands to view a list of my commands. To make me part type !part godbot im currently on $chan(0) channels. 
  } 
}
ctcp *:invite:?: {
  if ($me == godbot) {
    unset %channelload
    unset %channelload.total
    unset %botcount
    var %i = 1
    var %cload = 300
    while ($nick(#godbot.invite,%i)) {
      if ($readini(channel-load.ini,-n,cload,$replace($nick(#godbot.invite,%i),[,~,],~))) {
        if ($readini(channel-load.ini,-n,cload,$replace($nick(#godbot.invite,%i),[,~,],~)) < %cload) { 
          var %cload = $readini(channel-load.ini,-n,cload,$replace($nick(#godbot.invite,%i),[,~,],~))
          var %godbot = $nick(#godbot.invite,%i)
        }
        inc %botcount
        inc %channelload.total $readini(channel-load.ini,-n,cload,$replace($nick(#godbot.invite,%i),[,~,],~))
        set %channelload %channelload $+(,$chr(91),,$nick(#godbot.invite,%i),:,$chr(32),$readini(channel-load.ini,-n,cload,$replace($nick(#godbot.invite,%i),[,~,],~)),,$chr(93))
      }
      inc %i
    }
    .ctcp %godbot gojoin $2 $3
    msg #godbot.invite Invite on $nick by $2 for $3 sent %godbot
    msg #godbot.invite Channel Load: %channelload
    msg #godbot-admin Invite on $nick by $2 for $3 sent %godbot
    msg #godbot-admin Channel Load: %channelload
    notice $2 Selected bot to join $3 $+ : %godbot $+ , if %godbot doesnt join $3 please contact an operator in #Godbot.
  }
}
on *:text:!update:#godbot.invite: {
  .ctcp godbot cload $chan(0)
}
on *:text:!cload:#: { 
  if ($nick ison #godbot-admin && $me == godbot) {
    msg # Channel Load: $+(%channelload,,$chr(91),Total,:,$chr(32),%channelload.total,,$chr(93),,$chr(91),Bots,:,$chr(32),%botcount,,$chr(93))
  }
}
on *:invite:*: { 
  if (%invite == off) { notice $nick I am not currently accepting invites please try again later. | halt } 
  if (%invite. [ $+ [ $chan ] ] != $null) { notice $nick Please wait $calc(120 - ($ctime - $($+(%,invite.,$chan),2))) seconds before inviting again. | halt }
  if ($readini(bl.ini,-p,$chan,$chan) != $null) { 
    msg #godbot-admin Invited to # by $nick but # is blacklisted, Reason: $readini(bl.ini,-p,#,#)
    notice $nick  $+ # is blacklisted for: $readini(bl.ini,-p,#,#)
    halt 
  } 
  notice $nick Searching for an open bot, please wait...
  if ($me == godbot) {
    unset %channelload
    unset %channelload.total
    unset %botcount
    var %i = 1
    var %cload = 300
    while ($nick(#godbot.invite,%i)) {
      if ($readini(channel-load.ini,-n,cload,$nick(#godbot.invite,%i))) {
        if ($readini(channel-load.ini,-n,cload,$replace($nick(#godbot.invite,%i),[,~,],~)) < %cload) { 
          var %cload = $readini(channel-load.ini,-n,cload,$nick(#godbot.invite,%i))
          var %godbot = $nick(#godbot.invite,%i)
        }
        inc %botcount
        set %channelload.total $calc( %channelload.total + $readini(channel-load.ini,-n,cload,$replace($nick(#godbot.invite,%i),[,~,],~)) )
        set %channelload %channelload $+(,$chr(91),,$nick(#godbot.invite,%i),:,$chr(32),$readini(channel-load.ini,-n,cload,$nick(#godbot.invite,%i)),,$chr(93))
      }
      inc %i
    }
    msg #godbot.invite !update
    notice $nick Selected bot to join $chan $+ : %godbot $+ , if %godbot doesnt join $chan please contact an operator in #Godbot.
    msg #godbot.invite Invite on $me by $nick for $chan sent %godbot
    msg #godbot.invite Channel Load: %channelload
    msg #godbot-admin Invite on $me by $nick for $chan sent %godbot
    msg #godbot-admin Channel Load: %channelload
    set -u120 %invite. [ $+ [ $chan ] ] $ctime
    .ctcp %godbot gojoin $nick $chan
    halt
  }
  set -u120 %invite. [ $+ [ $chan ] ] $ctime
  .ctcp godbot invite $nick $chan $me
}