#
#Rechnet 111(BIN/2) in das System(DEZ/10) um.
#- run s@dcalc "def:111|2|10"
dcalc:
  type: task
  speed: 0t
  script:
  - define input_value "<def[1]>"
  - define input_system "<def[2]>"
  - define output_system "<def[3]>"
  ############
  #Error-Check
  ############
  - if <def[1]||x> !matches number || <def[2]||x> !matches number || <def[3]||x> !matches number {
    - narrate "<&4>ERROR Input not a number <&6><def[1]>[<def[2]>] <&4>to <&6><def[3]> <&4>is invalid!"
    - queue clear
    }
  - if <def[input_value].split_by[].remove[1].filter[is[MORE].than[<def[input_system].sub_int[1]>]].size> > 0 {
    - narrate "<&4>ERROR Input <&6><def[input_value]> <&4>is not a valid <&6><def[input_system]>-System <&4>number."
    - queue clear
    }
  - if <def[input_system]> > 10 {
    - narrate "<&4>ERROR Systems above 10 aren't supported yet."
    - queue clear
    }
  ##########################
  #1. define Worth
  ##########################
  #1 * 2^0  = 1
  #1 * 2^1  = 2
  #1 * 2^2  = 4
  - define input_worth 0
  - foreach <def[input_value].split_by[].remove[1].reverse> {
    - define input_worth "<def[input_worth].add_int[<def[value].mul_int[<def[input_system].power[<def[loop_index].sub_int[1]>]>]>]>"
    }
  - narrate "<def[input_worth]>"