N Tiles Counter

alias -l tiles {
  if ($1 == -d) dialog $iif($dialog(tiles),-v,-md) tiles tiles
  else {
    var %%tiles $regsubex($1-,/[^$]*\$(?:[^#]*#?){3}([^|#]*)\|?.*/,\t), %%tiles.count $len(%%tiles) - $count(%%tiles,0), %c $chr(44)
    did -a tiles 4 1: $iif($did(tiles,15).state,$count(%%tiles,3) $+ %c $count(%%tiles,4) $+ %c $count(%%tiles,5) $+ %c $count(%%tiles,2),$count(%%tiles,3,4,5,2))
    did -a tiles 5 2: $iif($did(tiles,15).state,$count(%%tiles,G) $+ %c $count(%%tiles,H) $+ %c $count(%%tiles,I) $+ %c $count(%%tiles,F),$count(%%tiles,G,H,I,F))
    did -a tiles 6 3: $iif($did(tiles,15).state,$count(%%tiles,?) $+ %c $count(%%tiles,@) $+ %c $count(%%tiles,A) $+ %c $count(%%tiles,>),$count(%%tiles,?,@,A,>))
    did -a tiles 7 4: $iif($did(tiles,15).state,$count(%%tiles,7) $+ %c $count(%%tiles,8) $+ %c $count(%%tiles,9) $+ %c $count(%%tiles,6),$count(%%tiles,7,8,9,6))
    did -a tiles 8 E: $count(%%tiles,1)
    did -a tiles 9 5: $iif($did(tiles,15).state,$count(%%tiles,Q) $+ %c $count(%%tiles,N) $+ %c $count(%%tiles,O) $+ %c $count(%%tiles,P),$count(%%tiles,Q,N,O,P))
    did -a tiles 10 6: $iif($did(tiles,15).state,$count(%%tiles,K) $+ %c $count(%%tiles,L) $+ %c $count(%%tiles,M) $+ %c $count(%%tiles,J),$count(%%tiles,K,L,M,J))
    did -a tiles 11 7: $iif($did(tiles,15).state,$count(%%tiles,C) $+ %c $count(%%tiles,D) $+ %c $count(%%tiles,E) $+ %c $count(%%tiles,B),$count(%%tiles,C,D,E,B))
    did -a tiles 12 8: $iif($did(tiles,15).state,$count(%%tiles,;) $+ %c $count(%%tiles,<) $+ %c $count(%%tiles,=) $+ %c $count(%%tiles,:),$count(%%tiles,;,<,=,:))
    did -a tiles 13 D: $count(%%tiles,0)
    did -a tiles 14 Total: %%tiles.count
  }
}

;You probably won't need to use anything below this line.

alias F3 tiles -d

dialog tiles {
  title Tiles Counter
  size -1 -1 200 170
  option dbu

  text Paste Map Data Here:, 1, 8 6 100 10
  edit , 2, 6 18 188 10, autohs

  box , 3, 6 34 188 100

  text 1: 0, 4, 16 42 40 10
  text 2: 0, 5, 16 62 40 10
  text 3: 0, 6, 16 82 40 10
  text 4: 0, 7, 16 102 40 10
  text E: 0, 8, 16 122 40 10
  text 5: 0, 9, 64 42 42 10
  text 6: 0, 10, 64 62 42 10
  text 7: 0, 11, 64 82 42 10
  text 8: 0, 12, 64 102 42 10
  text D: 0, 13, 64 122 42 10

  text Total: 0, 14, 112 122 42 10

  check Count tile directions separately, 15, 104 52 84 10
  text If this box is checked $+ $chr(44) tiles will be displayed in the following order: Q $+ $chr(44) A $+ $chr(44) S $+ $chr(44) W, 16, 112 68 72 40

  button Count, 17, 16 154 80 12, default

  button Close, 18, 144 154 40 12, ok
}

on *:DIALOG:tiles:SCLICK:17: tiles $did(2)