3 Server Mirc script

alias servIP { return 64.120.80.7 }
alias servRcon { return password }

on *:TEXT:*:#:{
 if ($1 == !match) {
   set %udpline 0
   set %servLoop 1
   set %servnick $nick
   sockudp -k lmao $servIP 27911 ÿÿÿÿstatus
   timer1 1 4 /checkuse $nick 1
   haltdef
 }
}

alias tryagain {
 /checkuse $1 1
}

alias checkuse {
 if ( ( %udpline >= 3 ) && ( %servLoop == 1 ) ) {
   set %servLoop 2
   timer1 off
   set %udpline 0
   sockudp -k lmao $servIP 27912 ÿÿÿÿstatus
   timer2 1 4 /tryagain $1 1
   return
 }
 if ( ( %udpline >= 3 ) && ( %servLoop == 2 ) ) {
   set %servLoop 3
   timer2 off
   set %udpline 0
   sockudp -k lmao $servIP 27913 ÿÿÿÿstatus
   timer3 1 4 /tryagain $1 1
   return
 }
 if ( ( %udpline >= 3 ) && ( %servLoop >= 3 ) ) { notice $1 SERVERS ARE FULL | halt }
 if ( %udpline <= 2 ) {
   timer1 off
   timer2 off
   timer3 off
   if ( %servLoop == 1 ) { set %servPort 27911 }
   if ( %servLoop == 2 ) { set %servPort 27912 }
   if ( %servLoop == 3 ) { set %servPort 27913 }
   set %pw $read( dp\passwords.txt )
   set %login $read( dp\passwords.txt )
   while ( %login == %pw ) { %login = $read( dp\passwords.txt ) }
   sockudp -k rconn $servIP %servPort ÿÿÿÿrcon $servRcon password %pw
   sockudp -k rconn $servIP %servPort ÿÿÿÿrcon $servRcon set oppass1 %login
   sockudp -k rconn $servIP %servPort ÿÿÿÿrcon $servRcon set oppass1level 50
   notice $1 IP: $servIP $+ : $+ %servPort
   notice $1 Password: %pw
   notice $1 Login: %login
   notice $1 connect $servIP $+ : $+ %servPort $chr( 59 ) password %pw
   unset %login
   unset %pw
 }
}

on 1:udpread:rconn:{ sockread %tr | echo -a RCON: %tr }
on 1:udpread:lmao:{ sockread %tmp | inc %udpline | echo -a $active %tmp %udpline }