Synopsis: $getdec()

 This is a simple mIRC calculator that will convert the binary input into a decimal value. I wrote this to show how simple a formula for this really is, without using the built-in $base() function of mIRC. Obviously, there is room for improvement, and this may help anyone looking for a loop solution on how to convert these values from one to the other.

Enjoy!

alias getdec {
  ; First we set our variables:
  ; %s = The binary value that the user wishes to convert

  ; %c = We set this at 1 to start. It is the counter to keep track of the looping.
  ;      It will also lend itself to pulling the mid count binary number from the
  ;      string, %s

  ; %l = The length of the binary start value. We will use this to also calculate
  ; our exponent value along the way, while decreasing its value during every loop

  ; %m = This value begins at the length of the input binary number, %s, minus a
  ; single value. The reason for this is that we want to multiply our current looped
  ; value, %cur, by the value 2 with an exponent of %m

  ; %cur = Starts off empty, but eventually this will hold the currently cycled number
  ; from the binary string, %s

  ; %v = Also starts off empty, but this will be our returned value from each loop and
  ; each proper calculation
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  var %s = $1, %c = 1, %l = $len(%s), %m = $calc(%l - 1), %cur, %v

  ; A little error checking. If %s is not a number, it will not continue
    if (%s isnum) {

      ; If %s is 0, return 0 because no calculations need to be made on any combination of
      ; 0's
      if (!%s) { return 0 }

      ; Our loop: As long as %c, our counter, is less than or equal to %l, the length of our
      ; binary string, we continue the loop
      while (%c <= %l) {

        ; We set the currently cycled value, %cur, of our string, %s
        %cur = $mid(%s,%c,1)

        ; If the currently cycled value is not 0, perform our calculation
        if (%cur) { %v = $calc(%v + $calc(%cur * $calc(2 ^ %m))) }

        ; Decrease the mid value, %m, and increase our counter, %c
        dec %m
        inc %c
      }
      ; Return our calculated decimal value
      return %v
   }
}