alias dbg debug -i d gmd 
alias gmd {
Kodlar buraya..
}

alias db { 
  if $1 { $iif(!$window(@d),window -fen @d verdana 9,echo @d $1-) 
    tokenize 32 $1- 
    if ($1 = <- && $3 = MODE && $remove($token($2,1,33),:) ison $4) {
      noop $regex($5-,/[+-]([qaohv+-]*)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)/)
      var %a = 1,%w = $mid($5,1,1),%d = 1
      set -l %l
      while %a <= $len($regml(1)) {
        if $istok(+ -,$mid($regml(1),%a,1),32) {
          var %w $mid($regml(1),%a,1)
          inc %a
        }
        var %c $mid($regml($calc(%d * 2)),2,400)
        inc %d 1
        var %l $addtok(%l,$+(%w,$mid($regml(1),%a,1),,%c),32)
        inc %a
      }
      tokenize 32 $replace(%l,+q,.,+a,&,+o,@,+h,%,+v,+,-q,$null,-a,$null,-o,$null,-h,$null,-v,$null)
      echo -a $*
    }
  }
    else  debug -i d db 
}

#mS +o-o+vhh+q Toprak CoCoRiCo uFuK CesuryureK Difuzyon Feragat

alias m+ {
  tokenize 32 $1-
  if $1 = <- && $3 = mode {
    var %s = $regsubex(a,$5,/([+-])(\w+)/g,$regsubex(\2,/(.)/g, [[ \1\ $+ t ]] ))
    noop $regsubex(%s,/([+-][ahovq])/g,)
    while - {
      inc -u %.
      echo -s $4 $regsubex(c,$$regml(%.),/([-+])([ahvoq])/g,$iif(\1 = -,,$&
        $iif(\1 = +,$replace(\2,v,+,h,%,o,@,a,&,q,~)))) $+ $token($6-,%.,32)
    }
  }
}