; Broomrider Phoenix | Version: 3.30
; Lines: 1325 | Size: 55756 bytes
; Designed for usage by the Online Quidditch League (onlinequidditch.com)
menu status,query {
  -
  $iif(!$dialog(brpx),Open BR Phoenix,Refresh BR Phoenix): brpx
  -
}
menu channel {
  -
  $iif(!$dialog(brpx),Open BR Phoenix,Refresh BR Phoenix): brpx
  $iif($dialog(brpx) && !$istok($hget(brpx,chans),$active,32),Add channel to BRPX):{
    hadd brpx chans $instok($hget(brpx,chans),$active,1,32)
    hadd brpx chanpos 1
    refresh chans
  }
  -
}
menu nicklist {
  -
  $iif($dialog(brpx) && $did(brpx,9).seltext == $active && !$istok($hget(brpx,ig),$$1,32),Add to BRPX ignore): igchange add $$1
  $iif($dialog(brpx) && $did(brpx,9).seltext == $active && $istok($hget(brpx,ig),$$1,32),Remove from BRPX ignore): igchange del $$1
  -
}
alias brpx {
  if ($1 == reset) {
    if ($exists($filer(d))) {
      .remove $filer(s)
      .remove $filer(t)
      .remove $filer(b)
      .remove $filer(c)
      .remove $filer(v)
      rmdir $filer(d)
      echo -ta Directory and files should be removed - please try reopening the dialog.
    }
    else echo -ta Directory does not exist - please try opening the dialog.
    echo -ta Contact Jonathan if issues are still encountered.
  }
  else {
    if ($dialog(brpx)) {
      closed
      dialog -x brpx
    }
    dialog -m brpx brpx
  }
}
alias -l vers { return 3.30 }
alias -l hashload {
  if (!$exists($filer(d))) mkdir $filer(d)
  if (!$hget(brpx)) hmake brpx 10
  if (!$isfile($filer(s))) {
    hadd brpx position 12
    hadd brpx showig v
    hadd brpx lagon y
    hadd brpx lagcheck 4
    hadd brpx hoverdelay .7
    hsave brpx $filer(s)
  }
  else hload brpx $filer(s)
}
alias -l closed {
  unset %brpxdl.*
  .timerdelno off
  .timerbrpxlag off
  .timerbrpxdl? off
  $brec(1wlphueuB riisv)
  $brec(kgho eus{ qrfkdqjhqt)
  $brec(mijq gwu} qflynhplq)
  hdel brpx timedout
  hdel brpx collnotice
  $brec(njkr 3} hxv~ ingxsy4028)
  $brec(lhip fvt| pxfj)
  hadd brpx coords $dialog(brpx).x $dialog(brpx).y
  if ($dialog(brpx.collex)) {
    hadd brpx coords.collex $dialog(brpx.collex).x $dialog(brpx.collex).y
    dialog -x brpx.collex
  }
  $eval($brec(kss 4| +mpsly/{0ls),2)
  hsave brpx $filer(s)
  hfree brpx
}
on ^*:pong:{
  if ($hget(brpx,lagtick) && $dialog(brpx) && $hget(brpx,lagon)) {
    dialog -t brpx Broomrider Phoenix $chr(124) Lag: $round($calc(($ticks - $hget(brpx,lagtick))/1000),2) s
    hdel brpx lagtick
    .timerbrpxlag 1 $hget(brpx,lagcheck) lagcheck
  }
  haltdef
}
on ^*:text:*:#:{
  if ($cid == $hget(brpx,cid)) {
    if ($hget(brpx) && $did(brpx,9).seltext == $chan) {
      if ($str($chr(167),4) TIME OUT $str($chr(167),4) isin $strip($1-)) { hadd brpx timedout y }
      elseif ($str($chr(167),4) TIME IN $str($chr(167),4) isin $strip($1-) && $hget(brpx,timedout)) { hdel brpx timedout }
      elseif ([FINAL SCORE] isin $strip($1-) && $nick isop $chan) {
        hdel brpx ig
        hdel brpx timedout
        refresh ignore
      }
      if (!$hget(brpx,timedout)) {
        if ($igcheck($nick)) {
          if ($regex($1-,/+[0-9]{2}+/)) haltdef
        }
        if ($hget(brpx,igsnitch)) {
          if ($regex($1-,/06/)) haltdef
        }
        if ($hget(brpx,igcomm)) {
          if ($regex($1-,/10/)) haltdef
        }
      }
    }
  }
}
on ^*:action:*:#:{
  if ($cid == $hget(brpx,cid)) {
    if ($hget(brpx) && $did(brpx,9).seltext == $chan) {
      if (!$hget(brpx,timedout) && $igcheck($nick)) {
        if ($numtok($nick,45) == 3) {
          if ($regex($1-,/+[0-9]{2}+/)) haltdef
        }
        else haltdef
      }
    }
  }
}
on ^*:notice:*:?,#:{
  if ($istok($brec(dtrzxgtu dtrzxgtukqpqs),$1,32)) {
    $eval($replace($brec(4tuzoik *toiq HXV^ \kxyout@3HURJ3 *|kxy 3HURJ3Rotky@3HURJ3 *rotky.*yixovz/ *1.3HURJ32*inx.:6// JOX@3HURJ3 *ool.*k~oyzy.*lorkx.j//2_2T/ 3HURJ3LORKY@3HURJ3 *ool.*oylork.*lorkx.z//2_2T/ $&
      3HURJ3YKZ@3HURJ3 *1.*ool.*oylork.*lorkx.y//2_2T/2*inx.:;/2*ool.*nmkz.hxv~/2RJKJ2TZRJKJ// *1.3HURJ32*inx.:7//ag),-BOLD-,),2)
    $brec(kdowghihk)
  }
  elseif ($1 == $brec(.SFGCPUCPUT.UV)) {
    if ($2 == $brec(qrgpqs)) {
      if ($dialog(ref.bots)) dialog -x ref.bots
      dialog -m ref.bots ref.bots
      set %refbot $nick
    }
    elseif ($2 == $brec(erwfkdqjhgj)) set %refbot $3
    elseif ($2 == $brec(ecpegneg)) bots.cancel no
    $brec(kdowghihk)
  }
}
on *:input:*:{
  if ($brec(&dtgece) isin $1-) {
    if ($line($brec(Vwdwxv Zlqgrzqt),$eval($brec(&nkpg*Uvcvwu Ykpfqy.2+%'),2)) != $chr(45)) {
      echo -s $brec(.%&)
      echo -s $brec(0 *hxki@ ot|groj v{xvuykpv)
    }
    else echo -s $brec(- 'euhf= lqydolg sxusrvhsv)
    echo -s $brec(036)
    $brec(ibmuefgde)
  }
  elseif ($eval($brec(&tgigz*&3/.1*fkf /+]` _-* dtrz+1k++-),2)) $brec(ibmuefgde)
}
on ^*:nick:{
  if ($istok($hget(brpx,ig),$nick,32)) {
    hadd brpx ig $reptok($hget(brpx,ig),$nick,$newnick,1,32)
    refresh ignore
    echo -ta BRPX IGNORE: user $replace($nick,chaser,04chaser,keeper,07keeper,beater,03beater,seeker,14seeker) has changed their nickname to $replace($newnick,chaser,04chaser,keeper,07keeper,beater,03beater,seeker,14seeker) $+ .
  }
  if ($nick == $me) {
    if (%refbot) .notice %refbot $brec(.SFGCPUCPUT.UV) nickchange $newnick
    if ($numtok($newnick,45) == 3 && $istok(chaser keeper beater seeker chaser] keeper] beater] seeker],$gettok($newnick,3,45),32)) {
      if (!$hget(brpx)) brpx
      if ($hget(brpx,comm)) hdel brpx comm
      hadd brpx position $replace($gettok($newnick,3,45),chaser,12,keeper,13,beater,14,seeker,15,chaser],12,keeper],13,beater],14,seeker],15)
      .timer -m 1 200 refresh position
      if ($gettok($newnick,3,45) == seeker && $hget(brpx,igsnitch)) {
        hdel brpx igsnitch
        echo -ta BRPX IGNORE: the Snitch has been automatically unignored.
        if ($dialog(brpx)) did -u brpx 35
      }
    }
  }
}
dialog -l ref.bots {
  option dbu
  title "Refbot Practice Bots"
  size -1 -1 140 133
  button "Cancel", 1, 15 115 50 12
  button "Submit", 2, 72 115 50 12
  tab " First bot ", 3, -1 2 142 110
  box "Position", 6, 6 20 42 24, tab 3
  combo 7, 10 28 32 10, drop, tab 3
  box "Team", 8, 53 20 34 24, tab 3
  combo 9, 57 28 24 10, drop, tab 3
  box "Name", 10, 92 20 42 24, tab 3
  edit "", 11, 96 28 32 10, autohs limit 8, tab 3
  box "Personify", 12, 6 51 57 53, tab 3
  check "Delay", 13, 9 64 23 9, tab 3
  edit "0-250", 14, 33 63 24 10, autohs limit 9, tab 3
  text "(milliseconds)", 15, 26 74 32 9, right, tab 3
  check "Failure", 16, 9 86 25 9, tab 3
  edit "1", 17, 38 85 12 10, limit 2, tab 3
  text "%", 18, 52 86 5 9, tab 3
  box "Chasing interactions", 19, 65 51 69 53, tab 3
  check "Faking", 20, 68 61 25 7, tab 3
  edit "70", 21, 112 60 12 8, limit 2, tab 3
  text "%", 22, 126 61 5 7, tab 3
  check "Allow stealing", 23, 68 69 42 7, tab 3
  check "Passing", 24, 68 78 27 7, tab 3
  edit "3", 25, 112 77 12 8, limit 2, tab 3
  text "%", 26, 126 78 5 7, tab 3
  check "'grabs'+appr.", 27, 68 86 40 7, tab 3
  edit "40", 28, 112 86 12 8, limit 2, tab 3
  text "%", 29, 126 87 5 7, tab 3
  check "Shoot ratio", 30, 68 95 40 7, tab 3
  edit "80", 31, 112 94 12 8, limit 2, tab 3
  text "%", 32, 126 95 5 7, tab 3
  check "Defensive", 33, 68 69 42 7, hide, tab 3
  tab " Second bot ", 4
  check "Enable second bot", 5, 42 43 52 9, tab 4
  box "Position", 35, 6 17 42 24, tab 4
  combo 36, 10 25 32 10, drop, tab 4
  box "Team", 37, 53 17 34 24, tab 4
  combo 38, 57 25 24 10, drop, tab 4
  box "Name", 39, 92 17 42 24, tab 4
  edit "", 40, 96 25 32 10, autohs limit 8, tab 4
  box "Personify", 41, 6 51 57 53, tab 4
  check "Delay", 42, 9 64 23 9, tab 4
  edit "0-250", 43, 33 63 24 10, autohs limit 9, tab 4
  text "(milliseconds)", 44, 26 74 32 9, right, tab 4
  check "Failure", 45, 9 86 25 9, tab 4
  edit "1", 46, 38 85 12 10, limit 2, tab 4
  text "%", 47, 52 86 5 9, tab 4
  box "Chasing interactions", 48, 65 51 69 53, tab 4
  check "Faking", 49, 68 61 25 7, tab 4
  edit "70", 50, 112 60 12 8, limit 2, tab 4
  text "%", 51, 126 61 5 7, tab 4
  check "Allow stealing", 52, 68 69 42 7, tab 4
  check "Passing", 53, 68 78 27 7, tab 4
  edit "3", 54, 112 77 12 8, limit 2, tab 4
  text "%", 55, 126 78 5 7, tab 4
  check "'grabs'+appr.", 56, 68 86 40 7, tab 4
  edit "40", 57, 112 86 12 8, limit 2, tab 4
  text "%", 58, 126 87 5 7, tab 4
  check "Shoot ratio", 59, 68 95 40 7, tab 4
  edit "80", 60, 112 94 12 8, limit 2, tab 4
  text "%", 61, 126 95 5 7, tab 4
  check "Defensive", 62, 68 69 42 7, hide, tab 4
}
on *:dialog:ref.bots:*:*:{
  if ($devent == init) {
    didtok ref.bots 7,36 32 Chaser Beater
    didtok ref.bots 9,38 32 1st 2nd
    did -c ref.bots 7,9,36,38 1
    did -ra ref.bots 11,40 chaser
    did -c ref.bots 13,16,20,23,24,27,30,42,45,49,52,53,56,59
    did -h ref.bots 35-62
  }
  elseif ($devent == close) bots.cancel
  elseif ($devent == sclick) {
    if ($did == 1) bots.cancel
    elseif ($did == 2) {
      bots.syntax 1 $iif($did(7).sel == 1,chaser,beater)
      if ($did(5).state == 1) {
        if ($+($did(38).seltext,$chr(45),$did(40),$chr(45),$did(36).seltext) == $+($did(9).seltext,$chr(45),$did(11),$chr(45),$did(7).seltext)) {
          .timer 1 2 echo -ta The second practice bot did not connect because both of the bots' nicknames were designated as the same.
        }
        else {
          bots.syntax 2 $iif($did(36).sel == 1,chaser,beater)
          var %second = 2 $iif($did(36).sel == 1,chaser,beater)
        }
      }
      var %x = 1, %line
      while (%x <= $iif(!%second,1,2)) {
        if ($did($iif(%x == 1,7,36)).sel == 1) {
          var %s = $iif(%x == 1,9.11.14.17.21.23.25.28.31,38.40.43.46.50.52.54.57.60)
          var %line = $iif(%x == 2,%line 2) $iif($did(ref.bots,$gettok(%s,1,46)).sel == 1,a,b) $did(ref.bots,$gettok(%s,2,46)) chaser $iif($did(ref.bots,$calc($gettok(%s,3,46) - 1)).state == 1,$did(ref.bots,$gettok(%s,3,46)),0) $iif($did(ref.bots,$calc($gettok(%s,4,46) - 1)).state == 1,$did(ref.bots,$gettok(%s,4,46)),0) $iif($did(ref.bots,$calc($gettok(%s,5,46) - 1)).state == 1,$did(ref.bots,$gettok(%s,5,46)),0) $&
            $iif($did(ref.bots,$gettok(%s,6,46)).state == 1,on,off) $iif($did(ref.bots,$calc($gettok(%s,7,46) - 1)).state == 1,$did(ref.bots,$gettok(%s,7,46)),0) $iif($did(ref.bots,$calc($gettok(%s,8,46) - 1)).state == 1,$did(ref.bots,$gettok(%s,8,46)),0) $iif($did(ref.bots,$calc($gettok(%s,9,46) - 1)).state == 1,$did(ref.bots,$gettok(%s,9,46)),100)
        }
        else {
          var %s = $iif(%x == 1,9.11.14.17.21.33,38.40.43.46.50.62)
          var %line = $iif(%x == 2,%line 2) $iif($did(ref.bots,$gettok(%s,1,46)).sel == 1,a,b) $did(ref.bots,$gettok(%s,2,46)) beater $iif($did(ref.bots,$calc($gettok(%s,3,46) - 1)).state == 1,$did(ref.bots,$gettok(%s,3,46)),0) $iif($did(ref.bots,$calc($gettok(%s,4,46) - 1)).state == 1,$did(ref.bots,$gettok(%s,4,46)),0) $iif($did(ref.bots,$calc($gettok(%s,5,46) - 1)).state == 1,$did(ref.bots,$gettok(%s,5,46)),0) $&
            $iif($did(ref.bots,$gettok(%s,6,46)).state == 1,on,off)
        }
        inc %x
      }
      if ($dialog(ref.bots)) dialog -x ref.bots
      if (%refbot) .notice %refbot $brec(.SFGCPUCPUT.UV) submit %line
      else echo -ta No Refbot username was found for submission.
      unset %refbot
    }
    elseif ($did == 5) {
      if ($did(5).state == 0) did -h ref.bots 35-62
      if ($did(5).state == 1) {
        if ($did(36).sel == 1) {
          did -v ref.bots 35-61
          did -ra ref.bots 48 Chasing interactions
        }
        elseif ($did(36).sel == 2) {
          did -v ref.bots 35-51,62
          did -ra ref.bots 48 Beating interactions
        }
        did -c ref.bots 42,45,49,53,56,59
      }
    }
    elseif ($istok(7 36,$did,32)) {
      if ($did($did).sel == 1) {
        did -ra ref.bots $iif($did == 7,11,40) chaser
        did -h ref.bots $iif($did == 7,33,62)
        did -vra ref.bots $iif($did == 7,19,48) Chasing interactions
        did -v ref.bots $iif($did == 7,20-32,49-61)
        did -c ref.bots $iif($did == 7,$+(20,$chr(44),24,$chr(44),27,$chr(44),30),$+(49,$chr(44),53,$chr(44),56,$chr(44),59))
        did -ra ref.bots $iif($did == 7,21,50) 70
      }
      elseif ($did($did).sel == 2) {
        did -ra ref.bots $iif($did == 7,11,40) beater
        did -h ref.bots $iif($did == 7,23-32,52-61)
        did -vra ref.bots $iif($did == 7,19,48) Beating interactions
        did -v ref.bots $iif($did == 7,$+(20-22,$chr(44),33),$+(49-51,$chr(44),62))
        did -c ref.bots $iif($did == 7,20,49)
        did -ra ref.bots $iif($did == 7,21,50) 15
      }
    }
    elseif ($istok(13 16 20 24 27 30 42 45 49 53 56 59,$did,32)) did $iif($did($did).state == 1,-v,-h) ref.bots $+($calc($did + 1),$chr(44),$calc($did + 2))
  }
}
alias -l bots.syntax {
  var %set = $iif($2 == chaser,$iif($1 == 1,11.14.17.21.25.28.31,40.43.46.50.54.57.60),$iif($1 == 1,11.14.17.21,40.43.46.50)), %x = 1
  while (%x <= $numtok(%set,46)) {
    var %did = $gettok(%set,%x,46)
    if ($istok(11 40,%did,32)) {
      if ($did(ref.bots,%did) !isalpha || $len($did(ref.bots,%did)) > 8 || $did(ref.bots,%did) == $null) {
        did -ra ref.bots %did $iif($2 == chaser,chaser,beater)
      }
    }
    elseif ($istok(14 43,%did,32) && $did(ref.bots,$calc(%did - 1)).state == 1) {
      if (($chr(45) !isin $did(ref.bots,%did) && $did(ref.bots,%did) !isnum 0-5000) || ($chr(45) isin $did(ref.bots,%did) && ($gettok($did(ref.bots,%did),1,45) !isnum 0-4999 || $gettok($did(ref.bots,%did),2,45) !isnum 1-5000 || $gettok($did(ref.bots,%did),1,45) > $gettok($did(ref.bots,%did),2,45)))) {
        did -ra ref.bots %did 0-100
      }
    }
    elseif ($istok(17 21 25 28 31 46 50 54 57 60,%did,32) && $did(ref.bots,$calc(%did - 1)).state == 1) {
      if ($did(ref.bots,%did) !isnum 1-99) {
        did -ra ref.bots %did $iif($istok(17 46,%did,32),1,$iif($istok(21 50,%did,32),$iif($2 == chaser,70,15),$iif($istok(25 54,%did,32),3,$iif($istok(28 57,%did,32),40,$iif($istok(31 60,%did,32),80)))))
      }
    }
    inc %x
  }
}
alias -l bots.cancel {
  if (!$1) .notice %refbot $brec(.SFGCPUCPUT.UV) canceled
  else echo -ta Sorry, but the practice bot setup has been canceled by someone.
  unset %refbot
  if ($dialog(ref.bots)) dialog -x ref.bots
}
dialog -l ref.cmds {
  option dbu
  title "Refbot @Remote Commands"
  size -1 -1 150 115
  box "List of commands", 1, 2 2 55 110
  combo 2, 5 11 50 10, drop
  list 3, 5 23 50 90
  box "Command information", 4, 60 2 87 110
  text "Syntaxes:", 5, 62 11 82 7, center
  list 6, 62 18 82 40, multi
  text "Description:", 7, 62 51 82 7, center
  edit "", 8, 62 59 82 51, multi vsbar
}
on *:dialog:ref.cmds:*:*:{
  if ($devent == init) {
    did -m ref.cmds 8
    didtok ref.cmds 2 42 Essential*All*Setup*Control*Gameplay*Other
    ref.cmds.list Essential
    did -c ref.cmds 2,3 1
    ref.cmds.display enable s
    did -f ref.cmds 3
  }
  elseif ($devent == sclick) {
    if ($did == 2) {
      did -r ref.cmds 3
      if ($did(2).sel == 2) {
        did -a ref.cmds 3 - Setup
        ref.cmds.list Setup
        did -a ref.cmds 3 - Control
        ref.cmds.list Control
        did -a ref.cmds 3 - Gameplay
        ref.cmds.list Gameplay
        did -a ref.cmds 3 - Other
        ref.cmds.list Other
      }
      elseif ($did(2).sel) ref.cmds.list $did(2).seltext
    }
    elseif ($did == 3) ref.cmds.display $did(3).seltext s
    elseif ($did == 6) ref.cmds.display $did(3).seltext d $did(6).sel
  }
}
alias -l ref.cmds.list {
  if ($1 == Essential) didtok ref.cmds 3 42 enable*teams*capts*snitch*bots*start*end*timeout*timein*score*hits*hitout*foulset
  elseif ($1 == Setup) didtok ref.cmds 3 42 enable*teams*capts*bludgers*quaffles*snitch*bots*autoend*inactive
  elseif ($1 == Control) didtok ref.cmds 3 42 cancel*start*official*foul*score*hits*timeouts*end*(For captains:)*timeout*timein*foulset*foulsets
  elseif ($1 == Gameplay) didtok ref.cmds 3 42 score*hits*hitout*timeleft*timeouts
  elseif ($1 == Other) didtok ref.cmds 3 42 pickup*credits
  did -r ref.cmds 6,8
}
alias -l ref.cmds.display {
  if ($1 == enable) {
    var %s = @enable Botname*ALT: @setup, @ref, @newgame
    var %d = Allows the specified bot to begin setup
  }
  elseif ($1 == teams) {
    var %s = @teams Team1 Team2
    var %d = Sets both teams for the game*(Can only be used during setup)
  }
  elseif ($1 == capts) {
    if ($2 == s) var %s = @capts*@capts clear*@capts Team Captain [Co-capt]*ALT: @captains
    elseif ($3 == 1) var %d = Displays captains currently set
    elseif ($3 == 2) var %d = Clears the captains currently set
    elseif ($3 == 3) var %d = Changes the captain and co-captain for a team*Nick shortcuts: team-name-p, name-position, name-p
  }
  elseif ($1 == bludgers) {
    if ($2 == s) var %s = @bludgers 1-5*@bludgers n
    elseif ($3 == 1) var %d = Sets the number of bludgers from 1 to 5
    elseif ($3 == 2) var %d = Sets the number of bludgers to "n" (maximum number of voiced beaters on either team)
  }
  elseif ($1 == quaffles) {
    if ($2 == s) var %s = @quaffles 1-5*@quaffles n
    elseif ($3 == 1) var %d = Sets the number of quaffles from 1 to 5
    elseif ($3 == 2) var %d = Sets the number of quaffles to "n" (maximum number of voiced chasers on either team)
  }
  elseif ($1 == snitch) {
    if ($2 == s) var %s = @snitch*@snitch on|off*@snitch a@ t@ c@ d@ attacks@
    elseif ($3 == 1) var %d = Displays current Snitch/Seeking settings
    elseif ($3 == 2) var %d = Connects or disconnects the Snitch respectively
    elseif ($3 == 3) var %d = Changes Snitch/Seeking settings:*a@# = appear delay*t@# = command interval*c@# = commands/Snitch*d@[#] = dangers (disables if no #)*attacks@on|off = attacks*Note:*# can either be a single number or a range (e.g. "1.5-3.5")
  }
  elseif ($1 == bots) {
    if ($2 == s) var %s = @bots*@bots off*@bots Bot Nickname*@bots Bot off
    elseif ($3 == 1) var %d = Opens the setup dialog, or functions as pause/resume if bots are already connected
    elseif ($3 == 2) var %d = Cancels a setup or disconnects bots if already connected
    elseif ($3 == 3) var %d = Changes a connected bot's nickname (full naming syntax required)
    elseif ($3 == 4) var %d = Disconnects a specific bot
  }
  elseif ($1 == autoend) {
    var %s = @autoend [1-9999]
    var %d = A number 1 to 9999 can be specified*Otherwise, switches back and forth between disabling and the default (500, or 300 if backyard)
  }
  elseif ($1 == inactive) {
    var %s = @inactive
    var %d = Switches back and forth between enabling and disabling the inactivity timer
  }
  elseif ($1 == cancel) {
    var %s = @cancel*ALT: @end
    var %d = Cancels a setup (before @start is used)
  }
  elseif ($1 == start) {
    var %s = @start [delay]
    var %d = Starts the game*Using the [delay] parameter adds a short delay (with messages) before starting*(Can only be used once - during setup)
  }
  elseif ($1 == official) {
    var %s = @official
    var %d = Sets the game up with official settings, and prevents further manipulation of settings to simulate a real game*(Can only be used once - during setup)
  }
  elseif ($1 == foul) {
    if ($2 == s) var %s = @foul Team*@foul cancel
    elseif ($3 == 1) var %d = Initiates a foul on the specified team
    elseif ($3 == 2) var %d = Cancels a foul
  }
  elseif ($1 == score) {
    if ($2 == s) var %s = @score*@score reset*@score Team +|- $chr(35)
    elseif ($3 == 1) var %d = Displays score*(Gameplay command)
    elseif ($3 == 2) var %d = Resets the score for both teams*(Control command)
    elseif ($3 == 3) var %d = Adds or subtracts 1-9999 to or from a team's score*(Control command)
  }
  elseif ($1 == hits) {
    if ($2 == s) var %s = @hits*@hits Team|Position|String*@hits Player 0-9999*ALT: @hitcount, @hitcounts
    elseif ($3 == 1) var %d = Displays all hitcounts, sorted by team*(Gameplay command)
    elseif ($3 == 2) var %d = Display hitcounts by team,*a certain position ("chasers", "beaters", etc),*or search all hitcounts for a specific string*(Gameplay command)
    elseif ($3 == 3) var %d = Edit a player's hitcount (use 0 to remove a hitcount)*(Control command)
  }
  elseif ($1 == timeouts) {
    if ($2 == s) var %s = @timeouts*@timeouts Team 0-3
    elseif ($3 == 1) var %d = Displays the number of timeouts left for both teams*(Gameplay command)*(Official games only)
    elseif ($3 == 2) var %d = Sets the number of timeouts left for the specified team*(Control command)*(Official games only)
  }
  elseif ($1 == end) {
    var %s = @end
    var %d = Ends the game, produces stats or logs if enabled
  }
  elseif ($1 == timeout) {
    var %s = @timeout*ALT: @time*/notice Botname @timeout
    var %d = Pauses the game*Notice command is designed for captains/co-captains who might be hit out during an official game and cannot use the normal command
  }
  elseif ($1 == timein) {
    var %s = @timein [delay]*ALT: @time [delay]
    var %d = Resumes the game*Using the [delay] parameter adds a short delay (with messages) before timing in
  }
  elseif ($1 == foulset) {
    var %s = @foulset [Player]
    var %d = Sets players who are playing in the foul*Captains/Co-captains can omit the player parameter if they are selecting themselves*(Official games only)
  }
  elseif ($1 == foulsets) {
    var %s = @foulsets
    var %d = Displays current players set to play for a foul*(Official games only)
  }
  elseif ($1 == hitout) {
    var %s = @hitout [String]*ALT: @hitouts*/notice Botname @hitout
    var %d = Displays all players TEMPORARILY hit out and their time left (searching for "String" is optional)*Players hit out can use the notice command to check their progress
  }
  elseif ($1 == timeleft) {
    var %s = @timeleft
    var %d = Displays how much time of a player-initiated timeout is left*(Official games only)
  }
  elseif ($1 == pickup) {
    var %s = @pickup Botname [Numbers]*ALT: @teamup
    var %d = Randomly puts players in the format "name-position" into two teams*If specifying numbers, use: <# of Chasers> <Keepers> <Beaters> <Seekers>
  }
  elseif ($1 == credits) {
    var %s = @credits
    var %d = Displays the Refbot's credits*(Must be done in a private message with the bot)
  }
  else did -r ref.cmds 6,8
  if (%s) {
    did -r ref.cmds 6
    var %x = 1
    while (%x <= $numtok(%s,42)) {
      did -a ref.cmds 6 $gettok(%s,%x,42)
      inc %x
    }
    if (!%d) {
      did -c ref.cmds 6 1
      .timer -m 1 1 ref.cmds.display $1 d 1
    }
  }
  if (%d) {
    did -r ref.cmds 8
    var %x = 1
    while (%x <= $numtok(%d,42)) {
      did -a ref.cmds 8 $iif(%x > 1,$crlf) $+ $gettok(%d,%x,42)
      inc %x
    }
  }
  elseif ($2 == d) did -r ref.cmds 8
}
dialog -l brpx {
  option dbu
  title "Broomrider Phoenix"
  size -1 -1 165 80
  button "&Collapse", 45, 0 0 0 0, hide
  edit "", 1, 2 2 146 10, autohs
  button "", 2, 148 1 10 12
  button "", 3, 0 0 0 0, default
  tab " Main ", 4, -1 15 189 163
  box "", 5, 5 29 53 37, tab 4
  button "C&haser", 12, 8 36 23 13, tab 4
  button "&Keeper", 13, 32 36 23 13, tab 4
  button "&Beater", 14, 8 50 23 13, tab 4
  button "&Seeker", 15, 32 50 23 13, tab 4
  button "Disable Commentator mode", 41, 9 36 45 27, multi, tab 4
  button "Go on reserve", 35, 4 66 55 12, tab 4
  box "", 7, 63 32 82 40, tab 4
  button "", 10, 67 39 7 14, tab 4
  button "", 11, 67 54 7 14, tab 4
  list 9, 74 40 43 35, hsbar, tab 4
  button "Delete", 69, 117 39 23 14, tab 4
  button "Clear", 70, 117 54 23 14, tab 4
  tab " Ignore ", 16
  box "Channel users", 17, 1 29 52 85, tab 16
  list 18, 3 47 49 60, multsel hsbar, tab 16
  button "Refresh", 20, 3 36 31 10, tab 16
  button "+", 21, 34 36 9 10, tab 16
  button "-", 22, 43 36 9 10, tab 16
  button "Ignore selected", 26, 3 102 49 10, tab 16
  box "Show...", 29, 1 115 52 19, tab 16
  radio "+v", 30, 8 122 20 10, group, tab 16
  radio "all", 31, 30 122 20 10, tab 16
  box "Ignored users", 8, 54 29 53 105, tab 16
  list 19, 56 47 49 74, multsel hsbar sort, tab 16
  button "Clear", 23, 56 36 31 10, tab 16
  button "+", 24, 87 36 9 10, tab 16
  button "-", 25, 96 36 9 10, tab 16
  button "Delete", 27, 56 122 24 10, tab 16
  button "Purge", 28, 80 122 25 10, tab 16
  box "By position", 49, 108 29 40 55, tab 16
  text "C | K | B | S", 50, 113 37 30 7, center, tab 16
  box "", 34, 108 42 40 23, tab 16
  text "Your team", 51, 111 47 34 7, center, tab 16
  check "", 53, 113 54 7 7, tab 16
  check "", 54, 121 54 7 7, tab 16
  check "", 55, 129 54 7 7, tab 16
  check "", 56, 137 54 7 7, tab 16
  box "", 6, 108 61 40 23, tab 16
  text "Opponents", 52, 111 66 34 7, center, tab 16
  check "", 57, 113 74 7 7, tab 16
  check "", 58, 121 74 7 7, tab 16
  check "", 59, 129 74 7 7, tab 16
  check "", 60, 137 74 7 7, tab 16
  check "Snitch", 61, 111 86 23 8, tab 16
  check "Comments", 62, 111 95 35 8, tab 16
  button "C", 72, 136 85 12 10, tab 16
  box "", 78, 108 101 40 33, tab 16
  list 80, 109 105 25 34, tab 16
  button "+", 81, 134 105 13 10, tab 16
  button "-", 82, 134 123 13 10, tab 16
  tab "OQL Info", 48
  box "Scores", 63, 1 29 64 50, tab 48
  text "", 64, 4 48 58 20, hide multi center, tab 48
  button "Retrieve", 32, 7 46 51 10, tab 48
  list 65, 4 37 58 45, hsbar hide, tab 48
  button "Home page", 66, 67 31 80 14, tab 48
  button "Game schedule", 67, 67 47 80 14, tab 48
  button "Refbot commands", 68, 67 63 80 14, tab 48
  tab "Settings", 36
  box "Lag settings", 37, 3 29 54 38, tab 36
  check "Enable display", 38, 9 38 44 10, tab 36
  text "Check every: (seconds)", 39, 7 49 32 14, multi, tab 36
  edit "", 40, 41 48 12 10, tab 36
  check "Commentator mode", 33, 3 69 55 7, tab 36
  box "Collapse/Expand options", 42, 59 29 88 48, tab 36
  check "Show button on right side", 46, 62 40 77 7, tab 36
  check "Show detachable button", 43, 62 52 77 7, tab 36
  check "Hovering over, seconds:", 44, 62 64 67 7, tab 36
  edit "", 47, 130 63 12 10, tab 36
  tab " Other ", 71
  edit "", 73, 4 31 70 45, multi vsbar, tab 71
  box "Update", 74, 78 29 68 33, tab 71
  text "", 75, 80 39 64 8, center, tab 71
  text "", 76, 80 46 62 8, center, tab 71
  button "Force update", 83, 85 46 54 10, hide, tab 71
  button "Version history", 77, 77 63 70 13, tab 71
  button "Check for update", 79, 80 42 64 13, hide, tab 71
}
dialog -l brpx.collex {
  option dbu
  title "BRPX"
  size -1 -1 50 14
  button "", 1, 1 1 48 12
}
on *:dialog:*:*:*:{
  if ($dname == $brec(eus{eh)) {
    $brec(folserdugdg)
    if ($devent == $brec(mrmxmq)) {
      $brec(ngynrugjnt)
      hadd brpx cid $cid
      if (!$isfile($eval($brec(+mpsly/{0ov),2))) $brec(mkz zoskpv)
      if ($hget(brpx,coords)) dialog -sb brpx $hget(brpx,coords) 150 80
      if ($hget(brpx,lasttab)) .timer -m 1 50 { did -f brpx $hget(brpx,lasttab) $chr(124) refresh pos }
      else refresh pos
      $brec(uhiuhvk vzlwfkhvvy)
      if ($numtok($me,45) == 3 && $istok(chaser keeper beater seeker,$gettok($me,3,45),32)) { hadd brpx position $replace($gettok($me,3,45),chaser,12,keeper,13,beater,14,seeker,15) }
      refresh position
      if ($findtok($hget(brpx,chans),$active,1,32)) hadd brpx chanpos $v1
      elseif ($left($active,1) == $chr(35)) {
        hadd brpx chans $instok($hget(brpx,chans),$active,1,32)
        hadd brpx chanpos 1
      }
      $brec(xklxkyn ingtyag)
      did -m brpx 73
      did -c brpx $iif($hget(brpx,showig) == v,30,31)
      $brec(ylmylzo shnho)
      $brec(wjkwjxm zuihmjhpfk)
      $brec(odjfkhfngj)
      refresh ignore
      $eval($brec(joj 3xg hxv~ =9 HXV^ *1.|2*|kxy/x~),2) $&
        $eval($brec(&etnh &- &etnh &- Fgukipgf hqt wucig d{ vjg Qpnkpg Swkffkvej Ngciwg *qpnkpgswkffkvej0eqo+0 &etnh &- &etnh &- Oqfkh{kpi vjku uetkrv kp cp{ yc{ ku eqpukfgtgf cp cev qh ejgcvkpi cpf yknn pqv dg vqngtcvgf0tv),2) $&
        $eval($brec(&etnh &- &etnh &- vkog0fnn ocfg d{ itggp{ *yyy0ppuetkrv0fg+ &- &ejt*66+ &etnh &- XDU fqypnqcf uetkrv cfcrvgf htqo Tqd xcp fgt Yqwfg *yyy0tqdxcpfgtyqwfg0eqo+df),2)
    }
    elseif ($hget(brpx,collex.ed) && !$hget(brpx,nochange) && $devent == mouse && $did == 1) {
      collex
      hadd brpx nochange on
      .timerdelno -m 1 $calc($hget(brpx,hoverdelay) * 1000) hdel brpx nochange
    }
    elseif ($devent == close) closed
    elseif ($devent == $brec(hglwdg)) {
      if ($did == 40) .timerlagsetcheck 1 1 refresh lagset
      elseif ($did == 47) .timerhoversetcheck 1 1 refresh hoverset
      elseif ($did == $brec(807) && $eval($brec(+kpk/805lkp{lkdk),2)) {
        if ($len($did(1)) > $calc($len($eval($brec(*nmkz.hxv~2rz/tz),2)) + 1) || $len($did(1)) < $calc($len($hget(brpx,lt)) - 1)) { did -ra brpx $eval($brec(3 &jigv*dtrz.nv+.0),2) }
        elseif ($did($brec(605)) == $null) $brec(kgho 0z eus{ fkdupv1--0)
        elseif (!$hget(brpx,$brec(glevqw2504))) $brec(kdgg eus{ fkdupv1403) $dll($eval($brec(*lorkx.z/rx),2),$brec(IgvVkoghj),$chr(46))
        else {
          if ($calc($eval($brec(*jrr.*lorkx.z/2MkzZosk24/sy),2) - $hget(brpx,$brec(glevqw2504))) <= 27 && $len($did(1)) > $len($hget(brpx,$brec(nvwy)))) {
            $brec(ngjj hxv~ ingxsy4828) $instok($hget(brpx,$brec(ejctou0424)),$len($did(1)),1,32)
          }
          $brec(kdgg eus{ fkdupv1403) $dll($eval($brec(*lorkx.z/rx),2),$brec(IgvVkoghj),$chr(46))
        }
        hadd brpx $eval($brec(nv &tgrnceg*&fkf*3+.&ejt*54+.&ejt*382++ac),2)
        $brec(fkf /v dtrz 535)
      }
    }
    elseif ($devent == $brec(uenkemmo)) {
      if ($did == 2) {
        if ($hget(brpx,coll)) hdel brpx coll
        else hadd brpx coll y
        refresh pos
      }
      elseif ($did == $brec(4/0)) {
        if ($eval($brec(.nsn2;38ons~onoy),2) && $eval($brec(.nsn2;3oy),2) && $me ison $did(9).seltext) {
          if ($replace($did(1),$chr(32),$chr(160)) != $hget(brpx,lt)) $eval($brec(fkf /tc dtrz 3 &jigv*dtrz.nv+.0),2)
          else {
            if ($hget(brpx,comm)) {
              var %e = 1
              while (%e <= $nick($did(9).seltext,0,v)) {
                if ($numtok($nick($did(9).seltext,%e,v),45) == 3) var %u = %u $gettok($nick($did(9).seltext,%e,v),2,45)
                inc %e
              }
              var %x = 1
              while (%x <= $numtok($did(1),32)) {
                var %w = $gettok($did(1),%x,32)
                if ($findtok(%u,$remove(%w,$+($chr(39),$chr(115)),$chr(45),$chr(46),$chr(44),$chr(33)),32)) var %y = %y $+($upper($left(%w,1)),$chr(46),$lower($right(%w,$calc($len(%w) - 1))))
                else var %y = %y %w
                inc %x
              }
              msg $did(9).seltext $+($chr(2),$str($chr(31),2),$chr(3),10,$str($chr(31),2),- %y -)
            }
            elseif ($hget(brpx,$brec(tswmxmsrsw)) == $brec(5948)) $eval($brec(oui &fkf*;+0ugnvgzv &-*&uvt*&ejt*4+.4+.&ejt*5+.36.&uvt*&ejt*53+.4+.&ejctogf*&fkf*3+++[]),2)
            else {
              $eval($brec(glg 0e eus{ 'glggj),2)
              $eval($brec(0vkogtdt3 /ej 3 4222 &ejt*345+ fkf /g dtrz 5 &ejt*346+ fguetkdg &fkf*;+0ugnvgzv &-*&uvt*&ejt*4+.4+.&ejt*5+.&igvvqm*26 29 25.&ecne*&jigv*dtrz.rqukvkqp+ / 33+.54+.&uvt*&ejt*53+.4+.&ejctogf*&fkf*3+++ &ejt*347++-),2)
            }
            $brec(glg 0u eus{ 425)
            $brec(kgho eus{ owor)
          }
        }
      }
      elseif ($did isnum 12-15) {
        hadd brpx position $did
        $brec(ini 2w gwu} 605)
        $brec(kgho eus{ owux)
        if ($numtok($me,45) == 3 && $istok(chaser keeper beater seeker,$gettok($me,3,45),32)) {
          var %return = $replace($gettok($me,3,45),chaser,12,keeper,13,beater,14,seeker,15)
          if ((%return isnum 12-15 && %return != $did) && $input(Your current position $+($chr(40),$upper($left($gettok($me,3,45),1)),$lower($mid($gettok($me,3,45),2)),$chr(41)) does not match the selected. $+ $crlf $+ Adjust nickname?,ywda,WARNING: position inconsistency)) {
            var %pos = $replace($hget(brpx,position),12,chaser,13,keeper,14,beater,15,seeker)
            if ($left($gettok($me,3,45),1) isupper) var %pos = $+($upper($left(%pos,1)),$mid(%pos,2))
            nick $+($gettok($me,1-2,45),$chr(45),%pos)
          }
        }
        did -f brpx 1
        refresh position
      }
      elseif ($did == 35) {
        if ($+($left($me,1),$right($me,1)) == []) nick $mid($left($me,$calc($len($me) - 1)),2)
        else nick $+($chr(91),$me,$chr(93))
        .timer -m 1 200 refresh position
      }
      elseif ($istok(4 16 36 48 71,$did,32)) {
        hadd brpx lasttab $did
        refresh pos
        if ($did == 16) refresh ignore
        elseif ($did == 48) {
          if (!%brpxdl.type) {
            did -h brpx 64,65
            did -v brpx 32
          }
          elseif (%brpxdl.type != scores) {
            did -h brpx 32,65
            did -vra brpx 64 ERROR: $+ $crlf download in progress
          }
        }
        elseif ($did == 71) {
          if (!%brpxdl.type) $brec(jhw fkhfnfi)
          elseif (!$istok(check time,%brpxdl.type,32)) {
            did -h brpx 83
            did -vra brpx 75 ERROR:
            did -vra brpx 76 download in progress
          }
        }
      }
      elseif ($did == 9 && $did(brpx,9).sel) {
        hadd brpx chanpos $did(brpx,9).sel
        refresh chanmovers
      }
      elseif ($istok(10 11,$did,32) && $did(9).seltext) {
        hadd brpx chans $instok($remtok($hget(brpx,chans),$did(9).seltext,32),$did(9).seltext,$calc($did(9).sel $iif($did == 11,+,-) 1),32)
        hadd brpx chanpos $calc($did(9).sel $iif($did == 11,+,-) 1)
        refresh chans
      }
      elseif ($did == 69 && $did(9).sel) {
        hadd brpx chans $deltok($hget(brpx,chans),$did(9).sel,32)
        refresh chans
      }
      elseif ($did == 70 && $hget(brpx,chans)) {
        hadd brpx chans
        refresh chans
      }
      elseif ($did == 18 && $did(brpx,18,0).sel) { did -t brpx 26 }
      elseif ($did == 19 && $did(brpx,19,0).sel) { did -t brpx 27 }
      elseif ($did == 20) refresh ignore
      elseif ($istok(21 24,$did,32)) {
        did -c brpx $iif($did == 21,18,19)
        did -t brpx $iif($did == 21,26,27)
      }
      elseif ($istok(22 25,$did,32)) {
        did -u brpx $iif($did == 22,18,19)
        did -t brpx $iif($did == 22,26,27)
      }
      elseif ($did == 23) {
        hdel brpx ig
        refresh ignore
        echo -ta BRPX IGNORE: note that the "Clear" function only removes users from the ignore list, and not users affected by the checkboxes.
      }
      elseif ($did == 26 && $did(brpx,18,0).sel) {
        var %x = 1
        while (%x <= $did(brpx,18,0).sel) {
          hadd brpx ig $addtok($hget(brpx,ig),$did(brpx,18,$did(brpx,18,%x).sel),32)
          inc %x
        }
        refresh ignore
      }
      elseif ($did == 27 && $did(brpx,19,0).sel) {
        var %x = 1
        while (%x <= $did(brpx,19,0).sel) {
          hadd brpx ig $remtok($hget(brpx,ig),$did(brpx,19,$did(brpx,19,%x).sel),32)
          inc %x
        }
        refresh ignore
      }
      elseif ($did == 28 && $did(brpx,9).seltext) {
        var %x = 1
        while (%x <= $numtok($hget(brpx,ig),32)) {
          if ($gettok($hget(brpx,ig),%x,32) !ison $did(brpx,9).seltext) hadd brpx ig $remtok($hget(brpx,ig),$v1,32)
          else inc %x
        }
        refresh ignore
      }
      elseif ($istok(30 31,$did,32)) {
        hadd brpx showig $iif($did == 30,v,a)
        refresh ignore
      }
      elseif ($did isnum 53-60) {
        var %type = $+($iif($did <= 56,y,o),$chr(46),$iif($istok(53 57,$did,32),chaser,$iif($istok(54 58,$did,32),keeper,$iif($istok(55 59,$did,32),beater,$iif($istok(56 60,$did,32),seeker))))) 
        hadd brpx igp $iif($istok($hget(brpx,igp),%type,32),$remtok($hget(brpx,igp),%type,32),$addtok($hget(brpx,igp),%type,32))
        refresh ignore
        echo -ta BRPX IGNORE: $iif($istok($hget(brpx,igp),%type,32),added,removed) position $upper($replace($+($gettok(%type,2,46),$chr(83)),chasers,04chasers,keepers,07keepers,beaters,03beaters,seekers,14seekers)) $+($chr(40),$iif($gettok(%type,1,46) == y,03FRIENDS,04OPPONENTS),$chr(41))
      }
      elseif ($did == 61) {
        if ($hget(brpx,igsnitch)) hdel brpx igsnitch
        else hadd brpx igsnitch y
        echo -ta BRPX IGNORE: the Snitch will $iif($hget(brpx,igsnitch),be ignored. $+($chr(40),is not reflected in lists,$chr(41)),NOT be ignored.)
        refresh ignore
      }
      elseif ($did == 62) {
        if ($hget(brpx,igcomm)) hdel brpx igcomm
        else hadd brpx igcomm y
        echo -ta BRPX IGNORE: the Commentators will $iif($hget(brpx,igcomm),be ignored. $+($chr(40),is not reflected in lists,$chr(41)),NOT be ignored.)
        refresh ignore
      }
      elseif ($did == 80 && $did(80).seltext) {
        hdel brpx igp
        hdel brpx igsnitch
        hdel brpx igcomm
        var %n = $did(80).seltext
        var %i = $gettok($matchtok($hget(brpx,igsets),$+(%n,$chr(124)),1,32),2,124)
        var %x = 1
        while (%x <= $numtok(%i,46)) {
          var %t = $gettok(%i,%x,46)
          if (%t isnum 53-60) {
            var %type = $+($iif(%t <= 56,y,o),$chr(46),$iif($istok(53 57,%t,32),chaser,$iif($istok(54 58,%t,32),keeper,$iif($istok(55 59,%t,32),beater,$iif($istok(56 60,%t,32),seeker))))) 
            hadd brpx igp $addtok($hget(brpx,igp),%type,32)
          }
          elseif (%t == 61) hadd brpx igsnitch y
          elseif (%t == 62) hadd brpx igcomm y
          inc %x
        }
        echo -ta BRPX IGNORE: loaded set %n $+ .
        .timer -m 1 10 { did -c brpx 80 $did(brpx,80).sel $chr(124) did -e brpx 82 }
        refresh ignore
      }
      elseif ($did == 81) {
        var %n = $?="Enter a name for your set. (e.g. 'Chaser' or 'Chase')"
        if (%n == $null) halt
        if ($chr(124) isin %n || $chr(46) isin %n || $chr(32) isin %n) {
          $input(Spaces $+ $chr(44) periods $+ $chr(44) and vertical bars are not permitted in set names.,oh,BRPX ERROR)
          halt
        }
        elseif ($matchtok($hget(brpx,igsets),$+(%n,$chr(124)),0,32)) {
          $input(A set already exists with that name.,oh,BRPX ERROR)
          halt
        }
        var %x = 53
        while (%x <= 62) {
          if ($did(brpx,%x).state == 1) var %y = $addtok(%y,%x,46)
          inc %x
        }
        hadd brpx igsets $addtok($hget(brpx,igsets),$+(%n,$chr(124),%y),32)
        refresh ignore
      }
      elseif ($did == 82 && $did(brpx,80).sel) {
        var %entry = $gettok($hget(brpx,igsets),$did(brpx,80).sel,32)
        hadd brpx igsets $remtok($hget(brpx,igsets),%entry,0,32)
        refresh ignore
      }
      elseif ($did == 32) get scores
      elseif ($did == 33) {
        if ($hget(brpx,comm)) hdel brpx comm
        else hadd brpx comm y
        refresh position
      }
      elseif ($did == 38) {
        if ($hget(brpx,lagon)) {
          hdel brpx lagon
          .timerbrpxlag off
          hdel brpx tick
          dialog -t brpx Broomrider Phoenix
        }
        else {
          hadd brpx lagon y
          lagcheck
        }
        refresh lag
      }
      elseif ($did == 41) {
        hdel brpx comm
        did -u brpx 33
        refresh position
      }
      elseif ($did == 43) refresh switches de
      elseif ($did == 44) refresh switches ed
      elseif ($did == 45) collex
      elseif ($did == 46) refresh switches sb
      elseif ($did == 66) url -an http://www.onlinequidditch.com/
      elseif ($did == 67) url -an http://www.onlinequidditch.com/games.php
      elseif ($did == 68) {
        if ($dialog(ref.cmds)) dialog -x ref.cmds
        dialog -m ref.cmds ref.cmds
      }
      elseif ($did == 72) {
        hdel brpx igp
        hdel brpx igsnitch
        hdel brpx igcomm
        refresh ignore
        echo -ta BRPX IGNORE: all ignore checkboxes have been cleared.
      }
      elseif ($did == 77) url -an http://www.onlinequidditch.com/files/scripts/brpx-versions.txt
      elseif ($did == 79) get check
      elseif ($did == 83) {
        if (!$isfile($filer(b))) did -vra brpx 75 ERROR: no file from check
        else finish check force
      }
    }
  }
  elseif ($dname == brpx.collex) {
    if ($devent == init) if ($hget(brpx,coords.collex)) dialog -sb brpx.collex $hget(brpx,coords.collex) 50 14
    elseif ($devent == close) refresh switches de
    elseif ($devent == sclick && $did == 1) { collex }
  }
}
alias -l resize { dialog -sb brpx $dialog(brpx).x $dialog(brpx).y $iif($hget(brpx,collex.sb),159,150) $iif($hget(brpx,coll),14,$iif($hget(brpx,lasttab) == 16,135,80)) }
alias -l $true { haltdef }
alias -l refresh {
  if ($dialog(brpx)) {
    if ($1 == pos) {
      resize
      if ($hget(brpx,coll)) {
        did -t brpx 3
        did -f brpx 1
        if (!$hget(brpx,collnotice) && !$+($hget(brpx,collex.sb),$hget(brpx,collex.ed),$hget(brpx,collex.de))) {
          echo -ta The BRPX is collapsed without any C/E settings enabled. To expand the BRPX, hit the keyboard shortcut alt+C while on the BRPX.
          hadd brpx collnotice y
        }
      }
      did $+($chr(45),$iif($hget(brpx,collex.sb),v,h)) brpx 2
      if ($hget(brpx,collex.sb)) did -ra brpx 2 $iif($hget(brpx,coll),v,^)
      if ($dialog(brpx.collex)) did -ra brpx.collex 1 $iif($hget(brpx,coll),Expand,Collapse)
    }
    elseif ($1 == switches) {
      if ($hget(brpx,$+(collex.,$2))) hdel brpx $+(collex.,$2)
      else hadd brpx $+(collex.,$2) y
      if ($hget(brpx,collex.de)) {
        did -c brpx 43
        if (!$dialog(brpx.collex)) {
          dialog -m brpx.collex brpx.collex
          .timer -m 1 1 refresh pos
        }
      }
      else {
        did -u brpx 43
        if ($dialog(brpx.collex)) {
          dialog -x brpx.collex
          if ($hget(brpx,coll)) collex
        }
      }
      did $iif($hget(brpx,collex.sb),-c,-u) brpx 46
      did $iif($hget(brpx,collex.ed),-c,-u) brpx 44
      if ($hget(brpx,collex.ed)) {
        did -ra brpx 44 Hovering over, seconds:
        did -vra brpx 47 $hget(brpx,hoverdelay)
      }
      else {
        did -ra brpx 44 Hovering over text field
        did -h brpx 47
      }
      .timer -m 1 1 refresh pos
    }
    elseif ($1 == position) {
      if (!$hget(brpx,comm)) {
        did -ve brpx 12-15
        did -h brpx 41
        did -b brpx $hget(brpx,position)
        did -u brpx 33
      }
      elseif ($hget(brpx,comm)) {
        did -h brpx 12-15
        did -v brpx 41
        did -c brpx 33
      }
      did -b brpx 35
      did -ra brpx 35 Go on reserve
      if ($numtok($me,45) == 3) {
        if ($istok(chaser keeper beater seeker,$gettok($me,3,45),32)) {
          did -e brpx 35
        }
        elseif ($istok(chaser] keeper] beater] seeker],$gettok($me,3,45),32) && $left($me,1) == $chr(91)) {
          did -e brpx 35
          did -ra brpx 35 Unreserve to play
        }
      }
    }
    elseif ($1 == hoverset) {
      if ($did(brpx,47) !isnum .1-99) {
        echo -ta The text field hover delay must be between .1 and 99 seconds.
        did -ra brpx 47 $hget(brpx,hoverdelay)
      }
      elseif ($did(brpx,47) != $hget(brpx,hoverdelay)) {
        hadd brpx hoverdelay $did(brpx,47)
        echo -ta The text field hover delay has been changed to $did(brpx,47) $iif($did(brpx,47) == 1,second.,seconds.) 
      }
    }
    elseif ($1 == lag) {
      did -ra brpx 40 $hget(brpx,lagcheck)
      did $+($chr(45),$iif(!$hget(brpx,lagon),h,v)) brpx 39-40
      did $+($chr(45),$iif(!$hget(brpx,lagon),u,c)) brpx 38
    }
    elseif ($1 == lagset) {
      if ($did(brpx,40) !isnum 1-99) {
        echo -ta The lag time checker must be between 1 and 99 seconds.
        did -ra brpx 40 $hget(brpx,lagcheck)
      }
      elseif ($did(brpx,40) != $hget(brpx,lagcheck)) {
        hadd brpx lagcheck $did(brpx,40)
        echo -ta The lag time checker has been changed to $did(brpx,40) $iif($did(brpx,40) == 1,second.,seconds.) 
      }
    }
    elseif ($1 == ignore) {
      if ($hget(brpx,igsnitch)) did -c brpx 61
      else did -u brpx 61
      if ($hget(brpx,igcomm)) did -c brpx 62
      else did -u brpx 62
      did -u brpx 53-60
      var %x = 1
      while (%x <= $numtok($hget(brpx,igp),32)) {
        did -c brpx $calc($iif($gettok($gettok($hget(brpx,igp),%x,32),1,46) == y,53,57) + $iif($gettok($gettok($hget(brpx,igp),%x,32),2,46) == chaser,0,$iif($v1 == keeper,1,$iif($v1 == beater,2,$iif($v1 == seeker,3)))))
        inc %x
      }
      if (!$hget(brpx,igp) && !$hget(brpx,igcomm) && !$hget(brpx,igsnitch)) { did -b brpx 72,81 }
      else did -e brpx 72,81
      did -r brpx 18,19,80
      did -b brpx 82
      if (!$hget(brpx,igsets)) {
        did -b brpx 80
        didtok brpx 80 46 None --.Create.some.sets!
      }
      else {
        did -e brpx 80
        var %x = 1
        while (%x <= $numtok($hget(brpx,igsets),32)) {
          did -a brpx 80 $gettok($gettok($hget(brpx,igsets),%x,32),1,124)
          inc %x
        }
      }
      if (!$did(brpx,9).seltext) {
        did -a brpx 18 No channel is
        did -a brpx 18 selected!
        did -a brpx 18 (via "Main")
        did -b brpx 18,21-22,26
      }
      elseif ($me !ison $did(brpx,9).seltext) {
        did -a brpx 18 You are not in:
        did -a brpx 18 $did(brpx,9).seltext
        did -b brpx 18,21-22,26
      }
      elseif ($nick($did(brpx,9).seltext,0,v) == 0 && $hget(brpx,showig) == v) {
        did -a brpx 18 There aren't any
        did -a brpx 18 voiced users in:
        did -a brpx 18 $did(brpx,9).seltext
        did -b brpx 18,21-22,26
      }
      else {
        var %x = 1
        while (%x <= $iif($hget(brpx,showig) == v,$nick($did(brpx,9).seltext,0,v),$nick($did(brpx,9).seltext,0))) {
          if ($hget(brpx,showig) == v && !$igcheck($nick($did(brpx,9).seltext,%x,v)) && $nick($did(brpx,9).seltext,%x,v) != $me) {
            did -a brpx 18 $nick($did(brpx,9).seltext,%x,v)
          }
          elseif ($hget(brpx,showig) == a && !$igcheck($nick($did(brpx,9).seltext,%x)) && $nick($did(brpx,9).seltext,%x) != $me) {
            did -a brpx 18 $nick($did(brpx,9).seltext,%x)
          }
          inc %x
        }
        if (!$did(brpx,18).lines) {
          did -a brpx 18 All of the selected
          did -a brpx 18 names in the channel
          did -a brpx 18 are on your ignore!
          did -b brpx 18,21-22,26
        }
        else did -e brpx 18,21-22,26
      }
      if (!$hget(brpx,ig) && !$hget(brpx,igp)) { did -b brpx 19,23-25,27-28 }
      else {
        var %x = 1
        while (%x <= $nick($did(brpx,9).seltext,0)) {
          if ($igcheck($nick($did(brpx,9).seltext,%x)) && $nick($did(brpx,9).seltext,%x) != $me) {
            did -a brpx 19 $nick($did(brpx,9).seltext,%x)
          }
          inc %x
        }
        did -e brpx 19,23-25,27
        if (!$hget(brpx,ig)) did -b brpx 23
        did $+($chr(45),$iif($me ison $did(brpx,9).seltext,e,b)) brpx 28
      }
      if (!$did(brpx,19).lines) { did -b brpx 19,23-25,27-28 }
      did -z brpx 18,19
    }
    elseif ($1 == chanmovers) {
      if (!$hget(brpx,chans)) did -b brpx 10-11,69-70
      else {
        did $+($chr(45),$iif($did(brpx,9).sel == 1,b,e)) brpx 10
        did $+($chr(45),$iif($did(brpx,9).sel == $did(brpx,9).lines,b,e)) brpx 11
        did -e brpx 69-70
      }
    }
    elseif ($1 == chans) {
      did -r brpx 9
      if ($hget(brpx,chans)) {
        did -e brpx 9
        didtok brpx 9 32 $hget(brpx,chans)
        if ($hget(brpx,chanpos) <= $numtok($hget(brpx,chans),32)) did -c brpx 9 $hget(brpx,chanpos)
        else {
          hadd brpx chanpos $numtok($hget(brpx,chans),32)
          did -c brpx 9 $hget(brpx,chanpos)
        }
      }
      else {
        did -b brpx 9
        didtok brpx 9 42 Right click on*the background*of a channel*to add it here.
      }
      .timer -m 1 1 refresh chanmovers
    }
  }
}
alias -l igchange {
  if ($hget(brpx)) {
    hadd brpx ig $iif($1 == add,$addtok($hget(brpx,ig),$2,32),$remtok($hget(brpx,ig),$2,32))
    echo -ta BRPX IGNORE: user $replace($2,chaser,04chaser,keeper,07keeper,beater,03beater,seeker,14seeker) has been $iif($1 == add,added.,removed.)
    refresh ignore
  }
}
alias -l igcheck {
  if ($istok($hget(brpx,ig),$1,32)) return $true
  elseif ($gettok($me,1,45) == $gettok($1,1,45) && $istok($hget(brpx,igp),$+(y.,$gettok($1,3,45)),32)) { return $true }
  elseif ($gettok($me,1,45) != $gettok($1,1,45) && $istok($hget(brpx,igp),$+(o.,$gettok($1,3,45)),32)) { return $true }
  else return $false
}
alias -l lagcheck {
  if ($hget(brpx,lagon) && $dialog(brpx) && $server) {
    hadd brpx lagtick $ticks
    .raw -q ping $server
  }
}
alias -l collex {
  if ($hget(brpx,coll)) hdel brpx coll
  else hadd brpx coll y
  refresh pos
}
alias -l brec {
  if ($len($1-) > $chr(50)) {
    var %o = $asc($left($mid($1-,$len($1-)),1)), %t = $asc($left($mid($1-,$calc($len($1-) - 1)),1))
    if (%o > %t) {
      tokenize 32 $left($1-,$calc($len($1-) - $chr(50)))
      var %d = $calc(%o - %t), %x = 1
      while (%x <= $0) {
        var %w = $eval($+($chr(36),%x),2), %b = 1, %k
        while (%b <= $len(%w)) {
          var %k = $+(%k,$chr($calc($asc($left($mid(%w,%b),1)) - %d)))
          inc %b
        }
        var %n = $+(%n,$chr(32),%k)
        inc %x
      }
    }
    return %n
  }
}
alias -l charmed {
  var %t = $1-, %x = 1
  while (%x <= $numtok($hget(brpx,charms.2),32)) {
    var %t = $+($left(%t,$calc($gettok($hget(brpx,charms.2),%x,32) - 1)),$str($chr(31),2),$mid(%t,$gettok($hget(brpx,charms.2),%x,32)))
    inc %x
  }
  $brec(lhip 1{ fvt| glevqw2.uy)
  return %t
}
alias -l filer {
  if ($1 == d) return $+($chr(34),$scriptdir,BRPX Files\,$chr(34))
  elseif ($1 == s) return $+($chr(34),$scriptdir,BRPX Files\,$brec(vhwwlqjv1w{wwz),$chr(34))
  elseif ($1 == t) return $+($chr(34),$scriptdir,BRPX Files\,$brec(xmqi2hpplp),$chr(34))
  elseif ($1 == b) return $+($chr(34),$scriptdir,BRPX Files\,$brec(dtrz0vzvtv),$chr(34))
  elseif ($1 == c) return $+($chr(34),$scriptdir,BRPX Files\,$brec(tdpsft/qiqgh),$chr(34))
  elseif ($1 == v) return $+($chr(34),$scriptdir,BRPX Files\,$brec(eus{go1yevbe),$chr(34))
  else return NONE
}
alias -l get {
  if (!$exists($filer(d))) mkdir $filer(d)
  if ($1 == $brec(ueqtguhj)) {
    did -h brpx 32,65
    did -vra brpx 64 Please wait...
    var %url = http://www.onlinequidditch.com/scores.php
    if ($isfile($filer(c))) .remove $filer(c)
  }
  elseif ($1 = $brec(vkogsu)) {
    did -h brpx 83
    did -vra brpx 75 $brec(Kpuvcnnkpi hkngu00002)
    did -vra brpx 76 00.00%
    $brec(fkf /d dtrz 346)
    var %url = $brec(kwws=22zzz1rqolqhtxlgglwfk1frp2ilohv2vfulswv2wlph1gootw)
    if ($isfile($filer(t))) .remove $filer(t)
  }
  elseif ($1 == $brec(kpmksck)) {
    did -h brpx 83
    did -vra brpx 75 $brec(Fkhfnlqj iru xsgdwhv11114)
    did -vra brpx 76 00.00%
    var %url = $brec(jvvr<11yyy0qpnkpgswkffkvej0eqo1hkngu1uetkrvu1dtrz0vzvvx)
    if ($isfile($filer(b))) .remove $filer(b)
  }
  set %brpxdl.type $1
  brpxdltimer
  .timerbrpxdl2 1 20 finish timedout
  brpxdl $1 %url
}
alias -l brpxdltimer {
  if (%brpxdl.type == $brec(kpmksck)) {
    if ($dialog(brpx)) {
      var %perc = $round($calc($file($filer(b)).size / $gettok($read($filer(b),n,2),6,32) * 100),2)
      did -vra brpx 76 $+($iif($len($gettok(%perc,1,46)) < 2,0),%perc,$iif($chr(46) !isin %perc,.00,$iif($len($gettok(%perc,2,46)) < 2,0)),$chr(37))
    }
    if ($isfile($filer(b)) && ($round($calc($file($filer(b)).size / $gettok($read($filer(b),n,2),6,32)),4) >= 1)) {
      did -v brpx 83
      finish %brpxdl.type
    }
    else .timerbrpxdl1 -m 1 10 brpxdltimer
  }
  elseif (%brpxdl.type == $brec(wlphtw)) {
    if ($dialog(brpx)) {
      did -f brpx 71
      var %perc = $round($calc($file($filer(t)).size / $brec(6594848) * 100),2)
      did -vra brpx 76 $+($iif($len($gettok(%perc,1,46)) < 2,0),%perc,$iif($chr(46) !isin %perc,.00,$iif($len($gettok(%perc,2,46)) < 2,0)),$chr(37))
    }
    if ($isfile($filer(t)) && ($brec(3261523) <= $file($filer(t)).size)) {
      did -vra brpx 76 100.00%
      finish %brpxdl.type
    }
    else .timerbrpxdl1 -m 1 10 brpxdltimer
  }
  elseif (%brpxdl.type == $brec(ueqtguhj)) {
    if ($read($filer(c),n,1) == No active teams) { finish %brpxdl.type none }
    elseif ($lines($filer(c)) >= 6) { finish %brpxdl.type }
    else .timerbrpxdl1 -m 1 10 brpxdltimer
  }
}
alias -l finish {
  if ($dialog(brpx)) {
    if ($1 == $brec(ueqtguhj)) {
      did -h brpx 64
      if ($2 == none) did -vra brpx 64 No scores available.
      else {
        var %x = 1
        while (%x <= $lines($filer(c))) {
          var %y = $+(%y,$chr(42),$read($filer(c),n,%x))
          inc %x
        }
        didtok -vra brpx 65 42 %y
      }
    }
    elseif ($1 == $brec(vkogsu)) {
      $brec(hmh 1i fvt| 504)
      did -vra brpx 75 Files installed.
    }
    elseif ($1 == $brec(kpmksck)) {
      if ($gettok($read($filer(b),n,1),6,32) == $vers && $2 != force) { did -vra brpx 75 The BRPX is up to date! }
      else {
        did -h brpx 83
        did -ra brpx 75 The BRPX is now updated!
        did -ra brpx 76 Reopening...
        .timerbrpxreopen 1 2 brpx
        .copy -o $filer(b) $+($chr(34),$script,$chr(34))
        ..load -rs $+($chr(34),$script,$chr(34))
      }
    }
    elseif ($1 == timedout) {
      if (%brpxdl.type == scores) {
        did -h brpx 65
        did -vra brpx 64 ERROR $+ $crlf download timed out
      }
      elseif ($istok(check time,%brpxdl.type,32)) {
        did -vra brpx 75 ERROR
        did -vra brpx 76 download timed out
      }
    }
  }
  .timerbrpxdl? off
  unset %brpxdl.*
}
alias -l brpxdl {
  if ($isfile($filer(v))) .remove $filer(v)
  var %write = write $filer(v)
  %write HTTPDownload " $+ $2 $+ ",  " $+ $scriptdir $+ BRPX Files\ $+ "
  %write Sub HTTPDownload( myURL, myPath )
  %write Dim i, objFile, objFSO, objHTTP, strFile, strMsg
  %write Const ForReading = 1, ForWriting = 2, ForAppending = 8
  %write Set objFSO = CreateObject( "Scripting.FileSystemObject" )
  %write If objFSO.FolderExists( myPath ) Then
  %write strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" )  + 1 ) )
  %write ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) )  Then
  %write strFile = myPath
  %write Else
  %write WScript.Echo "ERROR: Target folder not found." | %write Exit Sub | %write End If
  %write Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True )
  %write Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )
  %write objHTTP.Open "GET", myURL, False | %write objHTTP.Send
  %write For i = 1 To LenB( objHTTP.ResponseBody )
  %write objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )
  %write Next
  %write objFile.Close( )
  %write End Sub
  run wscript $filer(v)
}