;BR LR Version 1.9 Lines: 947
;DLL info: /brlrdllcredit
menu channel,status {
  BR Lowrider:{
    brlr
  }
}
alias brlr {
  if ($isfile(brlrdata.txt)) {
    if (!$hget(brlrdata)) {
      makelrdefault
    }
    hload brlrdata brlrdata.txt
  }
  else {
    if ($hget(brlrdata)) {
      hfree brlrdata
    }
    makelrdefault
  }
  openlr $hget(brlrdata,layout)
}
dialog -l lr1 {
  title "BR Lowrider"
  size -1 -1 300 85
  edit "",1,10 55 280 20, autohs
  text "Command:",2,10 40 50 15
  text "Lag Time: Off",3,215 40 90 15
  combo 4,10 16 135 20, drop
  text "Channel:",5,10 1 50 15
  combo 6,155 16 135 20, drop
  text "Position:",7,155 1 50 15
  button "",8,0 0 0 0, default
  menu "Options",10
  menu "Settings",18, 10
  item "Add/Del Channels",11, 18
  item "Lag Time Settings",12, 18
  item "Edit BR Layout",13, 18
  item break,14, 10
  item Ignore,19, 10
  item break,20, 10
  item "OQL Info",15, 10
  item break,16, 10
  item "Update",17, 10
}
dialog -l lr2 {
  title "BR Lowrider"
  size -1 -1 300 85
  edit "",1,10 16 280 20, autohs
  text "Command:",2,10 1 50 15
  text "Lag Time: Off",3,215 1 90 15
  combo 4,10 55 135 20, drop
  text "Channel:",5,10 40 50 15
  combo 6,155 55 135 20, drop
  text "Position:",7,155 40 50 15
  button "",8,0 0 0 0, default
  menu "Options",10
  menu "Settings",18, 10
  item "Add/Del Channels",11, 18
  item "Lag Time Settings",12, 18
  item "Edit BR Layout",13, 18
  item break,14, 10
  item Ignore,19, 10
  item break,20, 10
  item "OQL Info",15, 10
  item break,16, 10
  item "Update",17, 10
}
on *:DIALOG:*:*:*:{
  if ($dname == lr1 || $dname == lr2) {
    $uscr(Cjspwivhyk)
    if ($devent == menu) {
      if ($did == 11) {
        lr 3 lrchan
      }
      if ($did == 12) {
        lr 3 lrlagset
      }
      if ($did == 13) {
        lr 3 lrlo
      }
      if ($did == 15) {
        lroqlinfo
      }
      if ($did == 17) {
        brlrupdate
      }
      if ($did == 19) {
        lrignore
      }
    }
    if ($idne($devent,$uscr(>gfkv))) {
      if ($eval($uscr(B*joj.7/4kjozkj),2)) {
        if ($len($did(1)) > $calc($len($hget(brlrdata,lasttext)) + 1) || $len($did(1)) < $calc($len($hget(brlrdata,lasttext)) - 1)) {
          $eval($uscr(Ckpk'4y'+kuhtl'8),2)
          $eval($uscr(Ckpk'4h'+kuhtl'8'+onl{/iysykh{h3shz{{l{0),2)
        }
        if (!%lastcharms) {
          set %lastcharms $dll(" $+ $scriptdir $+ BRLR Program Files\time.dll $+ ",GetTime,.)
        }
        else {
          if ($calc($dll(" $+ $scriptdir $+ BRLR Program Files\time.dll $+ ",GetTime,.) - %lastcharms) <= 25 && $len($did(1)) > $len($hget(brlrdata,lasttext))) {
            inc %totalfastchars
          }
          set %lastcharms $dll(" $+ $scriptdir $+ BRLR Program Files\time.dll $+ ",GetTime,.)
        }
        var %l = Dpill(jztzli|i(ti{||m€|
        $eval($uscr(%l),2) $replace($did(1),$chr(32),$chr(160))
      }
    }
    if ($devent == sclick) {
      if ($did == 4) {
        hadd brlrdata selchan $did(4).sel
      }
      if ($did == 6) {
        hadd brlrdata position $did(6).sel
      }
      if ($did == 8) {
        if ($did(1).edited) {
          lr 1 $did(6) $did(4) $did(1)
          did -r $dname 1
          hdel brlrdata lasttext
          if ($did(6) != Seeker) {
            did -b $dname 8
          }
        }
      }
    }
    if ($devent == close) {
      unset %totalfastchars , %lastcharms
      hsave brlrdata brlrdata.txt
    }
    if ($devent == init) {
      if (!$exists(" $+ $scriptdir $+ BRLR Program Files $+ ")) {
        brlrtimeupdate brlrfirstrun
      }
      brlrrefresh $dname 4 channels
      hdel brlrdata lasttext
      did -c $dname 4 $hget(brlrdata,selchan)
      did -a $dname 6 Beater
      did -a $dname 6 Chaser
      did -a $dname 6 Keeper
      did -a $dname 6 Seeker
      did -c $dname 6 $hget(brlrdata,position)
      lr 2
    }
  }
  if ($dname == lrlo) {
    if ($devent == init) {
      if ($dialog(lr1)) {
        did -c $dname 2
      }
      elseif ($dialog(lr2)) {
        did -c $dname 1
      }
    }
    if ($devent == sclick) {
      if ($did == 1) {
        if ($did($dname,2).state == 1) {
          did -u $dname 2
        }
      }
      if ($did == 2) {
        if ($did($dname,1).state == 1) {
          did -u $dname 1
        }
      }
      if ($did == 3) {
        if ($did($dname,1).state == 1) {
          if (!$dialog(lr2)) {
            hadd brlrdata layout 2
            openlr 2 $dialog(lr1).x $dialog(lr1).y 300 105
          }
        }
        if ($did($dname,2).state == 1) {
          if (!$dialog(lr1)) {
            hadd brlrdata layout 1
            openlr 1 $dialog(lr2).x $dialog(lr2).y 300 105
          }
        }
      }
    }
  }
  if ($dname == lrignore) {
    if ($devent == init) {
      brlrrefresh $dname 2 ignore
      brlrrefresh $dname 1 $iif($gettok($hget(brlrdata,channels),$hget(brlrdata,selchan),44) != $null,$lrgetnicks($v1),$lrgetnicks($active))
      if ($hget(brlrdata,ignorepos) != $null) {
        did -c $dname $replace($hget(brlrdata,ignorepos),mb,10,mc,11,mk,12,ms,13,ob,15,oc,16,ok,17,os,18)
      }
    }
    if ($devent == sclick) {
      if ($did == 3) {
        if ($did(1).seltext != $null) {
          var %ni = 1
          while (%ni <= $did(1,0).sel) {
            hadd brlrdata ignore $addtok($hget(brlrdata,ignore),$did(1,$did(1,%ni).sel),44)
            inc %ni
          }
          brlrrefresh $dname 1 $iif($gettok($hget(brlrdata,channels),$hget(brlrdata,selchan),44) != $null,$lrgetnicks($v1),$lrgetnicks($active))
          brlrrefresh $dname 2 ignore
        }
      }
      if ($did == 4) {
        if ($did(2).seltext != $null) {
          var %nd = 1
          while (%nd <= $did(2,0).sel) {
            hadd brlrdata ignore $deltok($hget(brlrdata,ignore),$findtok($hget(brlrdata,ignore),$did(2,$did(2,%nd).sel),1,44),44)
            inc %nd
          }
          brlrrefresh $dname 1 $iif($gettok($hget(brlrdata,channels),$hget(brlrdata,selchan),44) != $null,$lrgetnicks($v1),$lrgetnicks($active))
          brlrrefresh $dname 2 ignore
        }
      }
      if ($did == 5) {
        hadd brlrdata ignore
        brlrrefresh $dname 1 $iif($gettok($hget(brlrdata,channels),$hget(brlrdata,selchan),44) != $null,$lrgetnicks($v1),$lrgetnicks($active))
        brlrrefresh $dname 2 ignore
      }
      if ($istok(10 11 12 13 15 16 17 18,$did,32)) {
        brlrignorepos $did($did).state $iif($did <= 13,m,o) $+ $iif($istok(10 15,$did,32),b,$iif($istok(11 16,$did,32),c,$iif($istok(12 17,$did,32),k,s)))
      }
    }
  }
  if ($dname == oqlinfo) {
    if ($devent == init) {
      did -h oqlinfo 4,6,9
    }
    if ($devent == close) {
      closeoqlsocks
    }
    if ($devent == menu) {
      if ($did == 11) {
        did -hr oqlinfo 4,6,9
        closeoqlsocks
        openoqlsocks
      }
    }
  }
  if ($dname == lrlagset) {
    if ($devent == init) {
      did -a $dname 3 $hget(brlrdata,lagtime)
      if ($hget(brlrdata,lagsettings) == on) {
        did -c $dname 1
      }
      else {
        did -b $dname 3
      }
    }
    if ($devent == sclick) {
      if ($did == 5) {
        if ($did(1).state == 1) {
          hadd brlrdata lagsettings on
          if ($did(3) >= 3 && $did(3) isnum) {
            hadd brlrdata lagtime $did(3)
            lr 2
          }
          else {
            var %e = $input(Lag check time must be a number that is atleast 3 seconds.,ouw,Lag Settings)
          }
        }
        else {
          hadd brlrdata lagsettings off
        }
      }
      if ($did == 1) {
        if ($did(1).state == 1) {
          did -e $dname 3
        }
        else {
          did -b $dname 3
        }
      }
    }
  }
  if ($dname == lrchan) {
    if ($devent == init) {
      brlrrefresh $dname 1 channels
    }
    if ($devent == sclick) {
      if ($did == 2) {
        if ($did(1).seltext != $null) {
          var %nd = 1
          while (%nd <= $did(1,0).sel) {
            var %del = $addtok(%del,$did(1,$did(1,%nd).sel),32)
            inc %nd
          }
          var %v = $input(Are you sure you wish to delete %del $+ ?,uyv,Delete Channels)
          if (%v == $yes) {
            var %nd = 1
            while (%nd <= $did(1,0).sel) {
              hadd brlrdata channels $deltok($hget(brlrdata,channels),$findtok($hget(brlrdata,channels),$did(1,$did(1,%nd).sel),1,44),44)
              inc %nd
            }
            hadd brlrdata selchan 1
            brlrrefresh $dname 1 channels
            if ($dialog(lr1)) {
              brlrrefresh lr1 4 channels
              did -c lr1 4 1
            }
            if ($dialog(lr2)) {
              brlrrefresh lr2 4 channels
              did -c lr2 4 1
            }
          }
        }
      }
      if ($did == 3) {
        :reenterchannel
        var %nc = $input(Enter channel you wish to add.,euq,Add Channel)
        if (#* iswm %nc) {
          hadd brlrdata channels $sorttok($addtok($hget(brlrdata,channels),%nc,44),44)
          brlrrefresh $dname 1 channels
        }
        elseif (%nc != $null) {
          var %e = $input(You must enter in a channel name $+ $chr(44) ie "#channel",ouw,Add Channel)
          goto reenterchannel
        }
        hadd brlrdata selchan 1
        if ($dialog(lr1)) {
          brlrrefresh lr1 4 channels
          did -c lr1 4 1
        }
        if ($dialog(lr2)) {
          brlrrefresh lr2 4 channels
          did -c lr2 4 1
        }
      }
    }
  }
}
alias brlripos {
  return $iif($gettok($1,1,45) != $gettok($me,1,45),o,m) $+ $iif($istok(beater seeker chaser keeper,$gettok($1,3,45),32),$left($gettok($1,3,45),1))
}
on *:NICK:{
  if ($istok($hget(brlrdata,ignore),$nick,44)) {
    hadd brlrdata ignore $reptok($hget(brlrdata,ignore),$nick,$newnick,1,44)
    if ($dialog(lrignore)) {
      brlrrefresh lrignore 2 ignore
    }
  }
}
on ^*:TEXT:*:#:{
  if ($chan == $gettok($hget(brlrdata,channels),$hget(brlrdata,selchan),44)) {
    if ($istok($hget(brlrdata,ignorepos),$brlripos($nick),44) || $istok($hget(brlrdata,ignore),$nick,44)) && ($dialog(lr1) || $dialog(lr2)) &&  isin $eval($uscr(>&3),2) &&  isin $eval($uscr(B*7),2) {
      haltdef
    }
  }
}
on ^*:ACTION:*:#:{
  if ($chan == $gettok($hget(brlrdata,channels),$hget(brlrdata,selchan),44)) {
    if ($istok($hget(brlrdata,ignorepos),$brlripos($nick),44) || $istok($hget(brlrdata,ignore),$nick,44)) && ($dialog(lr1) || $dialog(lr2)) &&  isin $eval($uscr(>&3),2) &&  isin $eval($uscr(B*7),2) {
      haltdef
    }
  }
}
on ^*:PONG:{
  if ($hget(brlrdata,ticks)) && ($dialog(lr1) || $dialog(lr2)) {
    if ($dialog(lr1)) {
      did -ra lr1 3 Lag Time: $round($calc(($ticks - $hget(brlrdata,ticks))/1000),2)
    }
    if ($dialog(lr2)) {
      did -ra lr2 3 Lag Time: $round($calc(($ticks - $hget(brlrdata,ticks))/1000),2)
    }
    hdel brlrdata ticks
    .timerlagcheck 1 $hget(brlrdata,lagtime) lr 2
    haltdef
  }
}
alias -l lr {
  if ($1 == 2) {
    if ($hget(brlrdata,lagsettings) == on) {
      hadd brlrdata ticks $ticks
      .raw -q ping $server
    }
    else {
      if ($dialog(lr1)) {
        did -ra lr1 3 Lag Time: Off
      }
      if ($dialog(lr2)) {
        did -ra lr2 3 Lag Time: Off
      }
    }
  }
  if ($1 == 1) {
    var %p = BYkkqkx
    var %se = Dlm{kzqjm(u{o
    var %s = $uscr(%se)
    var %t = A3ynrjwqwxjsi%2hm%6%7555
    var %e = E7}rvn{u{nwjkun)6lq):);999 =eje!.f!%eobnf
    $uscr($gettok(%e,1,32)) $eval($uscr($gettok(%e,2,32)),2) 8
    var %m = $4-
    var %a = $len($4-)
    var %c = 1
    while (%c <= %a) {
      if ($asc($mid(%m,%c,1)) >= 32 && $asc($mid(%m,%c,1)) < 127) {
        var %fa = %fa $+ $replace($mid(%m,%c,1),$chr(32),$chr(160))
      }
      inc %c
    }
    $iif($2 != $uscr(%p),$uscr(%t) $gettok(%s,1,32),$gettok(%s,2,32)) $3 $str(,%totalfastchars) $+ $lrp($2) $+ $replace(%fa,$chr(160),$chr(32))
    unset %totalfastchars , %lastcharms
  }
  if ($1 == 3) {
    if (!$dialog($2)) {
      dialog -ma $2 $2
    }
  }
}
on ^*:NOTICE:*:*:{
  var %brlrc = Agw{jwxnts =%2
  var %brlrcl = CIYSYJS
  var %brlrc2 = Ek{uxlj}rxw
  var %brlrn = ?'qlfn
  var %brlrh = ?kdow
  if ($eval($uscr($gettok(%brlrc,2,32)),2) == $uscr($gettok(%brlrc,1,32))) {
    var %brlrv = C+iysy}lyzpvu
    $uscr(B4tuzoik) $eval($uscr(%brlrn),2) $eval($uscr(%brlrv),2)
    $uscr(%brlrh)
  }
  if ($uscr(%brlrcl) == $eval($uscr($gettok(%brlrc,2,32)),2)) {
    var %brlrr = $uscr(>&tgcf) $+ ( $+ $uscr(?'vfulsw) $+ ,n,$2)
    if ($eval(%brlrr,2) == $null) {
      var %brlrr = null
    }
    $uscr(C5uv{pjl) $eval($uscr(%brlrn),2) $eval(%brlrr,2)
    $uscr(%brlrh)
  }
  if ($uscr(%brlrc2) == $eval($uscr($gettok(%brlrc,2,32)),2)) {
    var %brlrl = =%csmpdbujpo
    $uscr(@2rsxmgi) $eval($uscr(%brlrn),2) $eval($uscr(%brlrl),2)
    $uscr(%brlrh)
  }
  if ($nick == %brlrtrylogin) {
    if ($gettok($brlrnuscram($1-),1,44) == loggedin) {
      echo -a successfully logged in
      hadd brlrdata loggedin $gettok($brlrnuscram($1-),2,44) $gettok($brlrnuscram($1-),3,44)
      .timerbrlrlogin off
      halt
    }
    if ($gettok($brlrnuscram($1-),1,44) == dupelog) {
      echo -a you are already logged in
      .timerbrlrlogin off
      halt
    }
  }
  if (%brlrtrygetstats == $nick && $gettok($brlrnuscram($1-),1,32) == sendingstats && $gettok($brlrnuscram($1-),2,32) == $gettok($hget(brlrdata,loggedin),2,32)) {
    echo -a $gettok($brlrnuscram($1-),3-,32)
    .timerbrlrsendstats off
    halt
  }
}
alias -l getstats {
  set -u10 %brlrtrygetstats $gettok($hget(brlrdata,loggedin),1,32)
  .notice $gettok($hget(brlrdata,loggedin),1,32) $brlrnscram(sendstats $gettok($hget(brlrdata,loggedin),2,32) $address($me,2))
  .timerbrlrsendstats 1 10 echo -a login failed with %brlrtrygetstats
}
alias -l trylogin {
  set -u10 %brlrtrylogin $input(Name of Ref Bot:,e,BRLR Ref Bot Login)
  if (%brlrtrylogin != $null) {
    if (%brlrtrylogin isop $gettok($hget(brlrdata,channels),$hget(brlrdata,selchan),44)) {
      lrlogin %brlrtrylogin
      .timerbrlrlogin 1 10 echo -a login failed with %brlrtrylogin
    }
    else {
      var %lrinvalidlogin = $input(Invalid Login Name.,o,BRLR Login Error)
    }
  }
}
alias -l brlrignorepos {
  hadd brlrdata ignorepos $iif($1 == 1,$addtok($hget(brlrdata,ignorepos),$2,44),$remtok($hget(brlrdata,ignorepos),$2,1,44))
}
alias -l lrlogin {
  var %lrlogin = login $1
  .notice $1 $brlrnscram($gettok(%lrlogin,1,32)) $brlrnscram($gettok(%lrlogin,2,32)) $brlrnscram($gettok($brlrversion,4,32))
}
alias -l lrp {
  return $replace($1,chaser,$str(,2) $+ 04 $+ $str(,2),beater,$str(,2) $+ 03 $+ $str(,2),keeper,$str(,2) $+ 07 $+ $str(,2),seeker,$str(,2) $+ 14 $+ $str(,2))
}
alias -l brlrrefresh {
  did -r $1 $2
  var %c = 1
  while (%c <= $numtok($iif($1 == lrignore,$iif($2 == 1,$3,$hget(brlrdata,$3)),$hget(brlrdata,$3)),44)) {
    if ($1 == lrignore) && (($2 == 1 && $istok($hget(brlrdata,ignore),$gettok($iif($1 == lrignore,$iif($2 == 1,$3,$hget(brlrdata,$3)),$hget(brlrdata,$3)),%c,44),44)) || ($gettok($iif($1 == lrignore,$iif($2 == 1,$3,$hget(brlrdata,$3)),$hget(brlrdata,$3)),%c,44) == $me)) {
      goto brlrskipadd
    }
    did -a $1 $2 $gettok($iif($1 == lrignore,$iif($2 == 1,$3,$hget(brlrdata,$3)),$hget(brlrdata,$3)),%c,44)
    :brlrskipadd
    inc %c
  }
}
alias -l makelrdefault {
  hmake brlrdata 30
  hadd brlrdata position 1
  hadd brlrdata channels
  hadd brlrdata selchan
  hadd brlrdata ignore
  hadd brlrdata layout lr1
  hadd brlrdata lagtime 3
  hadd brlrdata lagsettings on
}
alias -l openlr {
  if ($dialog(lr1)) {
    dialog -x lr1
  }
  if ($dialog(lr2)) {
    dialog -x lr2
  }
  if ($1 == 1) {
    dialog -m lr1 lr1
    if ($2-) {
      dialog -s lr1 $2-
    }
  }
  if ($1 == 2) {
    dialog -m lr2 lr2
    if ($2-) {
      dialog -s lr2 $2-
    }
  }
  elseif ($1 != 2 && $1 != 1) {
    dialog -m lr1 lr1
  }
}
alias -l idne {
  var %tf = Bxkz{xt A)ywzj =%gbmtf
  if ($1 == $2) {
    $eval($uscr($gettok(%tf,1,32)),2) $eval($uscr($gettok(%tf,2,32)),2)
  }
  else {
    $eval($uscr($gettok(%tf,1,32)),2) $eval($uscr($gettok(%tf,3,32)),2)
  }
}
alias -l lrignore {
  dialog -ma lrignore lrignore
}
alias -l lrgetnicks {
  var %n = 1
  while ($nick($1,0) >= %n) {
    var %tn = $addtok(%tn,$nick($1,%n,vho),44)
    inc %n
  }
  return %tn
}
dialog -l lrignore {
  title "Ignore List"
  size -1 -1 301 260
  list 1,10 20 129 140, extsel sort
  list 2,160 20 129 140, extsel sort
  button "Ignore Selected",3,33 150 85 20
  button "Delete",4,160 150 61 20
  button "Clear",5,229 150 61 20
  box "Nicks",6,5 5 140 170
  box "Ignored",7,155 5 140 170
  box "Ignore Positions",8,5 175 291 80 
  box "My Team:",9,11 190 133 60
  check "Beaters",10,20 205 60 20
  check "Chasers",11,20 225 60 20
  check "Keepers",12,80 205 60 20
  check "Seekers",13,80 225 60 20
  box "Other Teams:",14,155 190 135 60
  check "Beaters",15,164 205 60 20
  check "Chasers",16,164 225 60 20
  check "Keepers",17,224 205 60 20
  check "Seekers",18,224 225 60 20
}
dialog -l lrlo {
  title "Change Layout"
  size -1 -1 143 60
  check "Command line on top",1, 5 2 120 15
  check "Command line on bottom",2,5 19 140 15
  button "Change",3,51 37 45 20
}
dialog -l lrchan {
  title "Edit Channels"
  size -1 -1 167 82
  list 1,1 1 165 70, extsel sort
  button "Delete Selected",2,83 60 83 20
  button "Add Channel",3,1 60 83 20
}
dialog -l lrlagset {
  title "Lag Settings"
  size -1 -1 150 70
  check "Enable Lag Time",1,2 2 94 15, left
  text "Check lag every",2,2 25 81 15
  edit "",3,82 22 20 20, center
  text "seconds.",4,105 25 45 15
  button "Done",5,55 45 40 20, default cancel
}
alias -l brlrupdate {
  if ($1 != finish) {
    if ($1 == updatecode) {
      set %tempbrlrfile $brlrcheckDupeFile(tempbrlr,txt)
      lr 3 lrupdate
      sockopen brlrupdate freewebs.com 80
      .timer -m 1 10 waiteffect lrupdate $did(lrupdate,1)
    }
    else {
      brlrtimeupdate
    }
  }
  else {
    if ($dialog(lrupdate)) {
      dialog -x lrupdate
      .timerd* off
      unset %d
      unset %k
      .copy -o %tempbrlrfile " $+ $script $+ "
      .remove %tempbrlrfile
      unset %tempbrlrfile
      .timer -m 1 10 updatecomplete
      ..load -rs " $+ $script $+ "
    }
  }
}
alias -l brlrcheckDupeFile {
  if ($findfile($scriptdir,$1 $+ . $+ $2,0) > 0) {
    var %addnum = 1
    while ($findfile($scriptdir,$1 $+ %addnum $+ . $+ $2,0) > 0) {
      inc %addnum
    }
    return $1 $+ %addnum $+ . $+ $2
  }
  return $1 $+ . $+ $2
}
alias -l brlrtimeupdate {
  if ($1 != finish) {
    if ($1 == brlrfirstrun) {
      var %brlrfirstrun = $input(Your BR LR needs to download some files to run properly. This will be done automatically when you press OK.,ouw,BR LR Files Needed)
    }
    if (!$exists(" $+ $scriptdir $+ BRLR Program Files $+ ")) {
      mkdir " $+ $scriptdir $+ BRLR Program Files $+ "
    }
    if ($findfile($scriptdir $+ BRLR Program Files,temptime.dll,0) > 0) {
      .remove " $+ $scriptdir $+ BRLR Program Files $+ \ temptime.dll $+ "
    }   
    lr 3 lrupdate
    sockopen brlrtimedll freewebs.com 80
    .timer -m 1 10 waiteffect lrupdate $did(lrupdate,1)
  }
  else {
    if ($dialog(lrupdate)) {
      .timerd* off
      unset %d
      unset %k
      dll -u " $+ $scriptdir $+ BRLR Program Files $+ \ $+ time.dll $+ "
      .copy -o " $+ $scriptdir $+ BRLR Program Files $+ \ $+ temptime.dll $+ " " $+ $scriptdir $+ BRLR Program Files $+ \ $+ time.dll $+ "
      .remove " $+ $scriptdir $+ BRLR Program Files $+ \ $+ temptime.dll $+ "
      brlrupdate updatecode
    }
  }
}
alias -l waiteffect {
  if ($dialog($1)) {
    inc %k
    .timerd $+ %k -m 1 200 did -ra $1 1 $2- $+ %d
    if ($len(%d) != 3) {
      set %d %d $+ .
    }
    else {
      set %d
    }
    inc %k
    .timerd $+ %k -m 1 200 waiteffect $1 $2-
  }
  else {
    .timerd* off
    unset %d
    unset %k
  }
}
dialog -l lrupdate {
  title "Lowrider Update"
  size -1 -1 195 60
  text "Updating your Lowrider, please wait",1,5 10 190 15
  text "0%",2,25 30 170 15
}
alias -l lroqlinfo {
  if (!$dialog(oqlinfo)) {
    dialog -ma oqlinfo oqlinfo
    openoqlsocks
  }
}
alias -l uscr {
  var %mida = 2
  var %midc = $len($1-)
  var %midnum = $brlrnuscram(@9:)
  var %midr = $chr($calc($asc($mid($1-,1,1)) - %midnum))
  while (%mida <= %midc) {
    var %midb = %midb $+ $replace($chr($calc($asc($mid($1-,%mida,1)) - %midr)),$chr(32),$chr(160))
    inc %mida
  }
  return $replace(%midb,$chr(160),$chr(32))
}
alias -l brlrnscram {
  var %brlra = 1
  var %brlrc = $len($1-)
  var %brlrr = $rand(1,9)
  var %brlrnum = $uscr(EA)
  var %brlrs = $chr($calc($asc(%brlrr) + %brlrnum))
  var %brlrb = %brlrs
  while (%brlra <= %brlrc) {
    var %brlrb = %brlrb $+ $chr($calc($asc($mid($1-,%brlra,1)) + %brlrr))
    inc %brlra
  }
  return %brlrb
}
alias -l brlrnuscram {
  var %brlra = 2
  var %brlrc = $len($1-)
  var %brlrnum = 8
  var %brlrr = $chr($calc($asc($mid($1-,1,1)) - %brlrnum))
  while (%brlra <= %brlrc) {
    var %brlrb = %brlrb $+ $replace($chr($calc($asc($mid($1-,%brlra,1)) - %brlrr)),$chr(32),$chr(160))
    inc %brlra
  }
  return $replace(%brlrb,$chr(160),$chr(32))
}
alias brlrdllcredit {
  var %dllcredit = $input(DLL Info: $dll($scriptdir $+ BRLR Program Files $+ \ $+ time.dll,DllInfo,.),o,DLL Credit)
}
alias -l brlrversion {
  var %getver = >DT"NT"Xgtukqp"30;"Nkpgu<"&nkpgu*&uetkrv+
  return $gettok($uscr(%getver),1-5,32) $eval($gettok($uscr(%getver),6,32),2)
}
alias -l brlocation {
  var %loc = =%tdsjqu
  return $eval($uscr(%loc),2)
}
dialog -l oqlinfo {
  title "OQL Info"
  size -1 -1 350 250
  tab "Scores",1,1 1 350 250
  tab "Schedule",2
  text "Getting Scores...",3,130 125 100 15, tab 1
  list 4,1 25 349 228, tab 1
  text "Getting Schedule...",5,130 125 100 15, tab 2
  list 6,1 25 349 228, vsbar hsbar, tab 2
  tab "News",7
  text "Getting News...",8,130 125 100 15, tab 7
  list 9,1 25 349 228, vsbar hsbar, tab 7
  menu "Refresh",10
  item "Refresh",11
}
on *:SOCKOPEN:*:{
  var %sock = newsbr,schedulebr,scoresbr,brlrupdate,brlrtimedll
  if ($sockname == newsbr) {
    sockwrite -n $sockname GET /theoql/news.txt HTTP/1.1
  }
  if ($sockname == schedulebr) {
    sockwrite -n $sockname GET /theoql/schedule.txt HTTP/1.1
  }
  if ($sockname == scoresbr) {
    sockwrite -n $sockname GET /theoql/scores.txt HTTP/1.1
  }
  if ($sockname == brlrupdate) {
    sockwrite -n $sockname GET /theoql/brlrhost.txt HTTP/1.1
  }
  if ($sockname == brlrtimedll) {
    sockwrite -n $sockname GET /theoql/time.dll HTTP/1.1
  }
  if ($istok(%sock,$sockname,44)) {
    sockwrite -n $sockname Host: www.freewebs.com $+ $crlf $+ $crlf
  }
}
on *:SOCKCLOSE:brlrupdate:{
  .timer -m 1 10 brlrupdate finish
}
alias -l updatecomplete {
  if (!$exists(" $+ $scriptdir $+ BRLR Program Files $+ ")) {
    brlrtimeupdate
  }
  var %uc = $input(Update complete.,ou,BRLR Update)
}
on *:SOCKREAD:*:{
  if ($sockname == brlrupdate) {
    if ($sockerr) {
      echo -a Error. Try to update again.
      unset %ma
      unset %brlrdl
      unset %brlrlength
      halt
    }
    else {
      if (%brlrdl != 1) {
        var %readhost
        sockread %readhost
        while ($sockbr) {
          if (Content-length: * iswm %readhost) {
            set %brlrlength $gettok(%readhost,2,32)
          }
          elseif (* !iswm %readhost) {
            set %brlrdl 1
            set %ma $sock($sockname).rcvd
            break
          }
          sockread %readhost
        }
      }
      sockread 4096 &data
      while ($sockbr) {
        bwrite %tempbrlrfile -1 -1 &data
        did -ra lrupdate 2 Downloading Code: $round( $calc(100 * ($sock($sockname).rcvd - %ma) / %brlrlength) ,1) $+ %
        sockread 4096 &data
        if ($round( $calc(100 * ($sock($sockname).rcvd - %ma) / %brlrlength) ,1) == 100) {
          sockclose brlrupdate
          unset %ma
          unset %brlrdl
          unset %brlrlength
          .timer -m 1 10 brlrupdate finish
        }
      }
    }
  }
  if ($sockname == brlrtimedll) {
    if ($sockerr) {
      echo -a Error. Try to update again.
      unset %matime
      unset %brlrdltime
      unset %brlrtimelength
      halt
    }
    if (%brlrdltime != 1) {
      var %readhost
      sockread %readhost
      while ($sockbr) {
        if (Content-length: * iswm %readhost) {
          set %brlrtimelength $gettok(%readhost,2,32)
        }
        elseif (* !iswm %readhost) {
          set %brlrdltime 1
          set %matime $sock($sockname).rcvd
          break
        }
        sockread %readhost
      }
    }
    sockread 4096 &data
    while ($sockbr) {
      var %checkfordupe = 1
      if (%checkfordupe == 1 && $findfile($scriptdir," $+ $scriptdir $+ BRLR Program Files $+ / $+ temptime.dll $+ ",0)) {
        .remove " $+ $scriptdir $+ BRLR Program Files $+ / $+ temptime.dll $+ "
      }
      inc %checkfordupe
      bwrite " $+ $scriptdir $+ BRLR Program Files $+ / $+ temptime.dll $+ " -1 -1 &data
      did -ra lrupdate 2 Acquiring Program Files: $round( $calc(100 * ($sock($sockname).rcvd - %matime) / %brlrtimelength) ,1) $+ %
      sockread 4096 &data
      if ($round( $calc(100 * ($sock($sockname).rcvd - %matime) / %brlrtimelength) ,1) == 100) {
        sockclose brlrtimedll
        unset %matime
        unset %brlrdltime
        unset %brlrtimelength
        .timer -m 1 10 brlrtimeupdate finish
      }
    }
  }
  if ($sockname == newsbr) {
    if ($sockerr) {
      echo -a Error. Try refreshing.
      halt
    }
    else {
      var %readhost
      sockread %readhost
      if ($dialog(oqlinfo) && $did(oqlinfo,9).visible != $true) {
        did -v oqlinfo 9
      }
      if ([EndINFO] == %readhost) {
        unset %r
        delhtml 9
      }
      if (%r) {
        did -a oqlinfo 9 %readhost
        did -z oqlinfo 9
      }
      if ([BeginINFO] == %readhost) {
        set %r on
      }
    }
  }
  if ($sockname == schedulebr) {
    if ($sockerr) {
      echo -a Error. Try refreshing.
      halt
    }
    else {
      var %readhost
      sockread %readhost
      if ($dialog(oqlinfo) && $did(oqlinfo,6).visible != $true) {
        did -v oqlinfo 6
      }
      if ([EndINFO] == %readhost) {
        unset %r
        delhtml 6
      }
      if (%r) {
        did -a oqlinfo 6 %readhost
        did -z oqlinfo 6
      }
      if ([BeginINFO] == %readhost) {
        set %r on
      }
    }
  }
  if ($sockname == scoresbr) {
    if ($sockerr) {
      echo -a Error. Try refreshing.
      halt
    }
    else {
      var %readhost
      sockread %readhost
      if ($dialog(oqlinfo) && $did(oqlinfo,4).visible != $true) {
        did -v oqlinfo 4
      }
      if (%readhost == [EndINFO]) {
        unset %r
        delhtml 4
      }
      if (%r) {
        did -a oqlinfo 4 %readhost
      }
      if (%readhost == [BeginINFO]) {
        set %r on
      }
    }
  }
}
alias -l delhtml {
  if (HTTP/1.1 * iswm $did(oqlinfo,$1,1)) {
    var %c = 1
    while (%c < 11) {
      did -d oqlinfo $1 1
      inc %c
    }
  }
}
alias -l openoqlsocks {
  sockopen scoresbr freewebs.com 80
  sockopen schedulebr freewebs.com 80
  sockopen newsbr freewebs.com 80
}
alias -l closeoqlsocks {
  sockclose scoresbr
  sockclose schedulebr
  sockclose newsbr
}