alias tmz {
  var %emoji (trip) (hediye) (dolar) -_- (zfr) (Kalp) (Kop), %emoji $gettok(%emoji,$r(1,7),32),%q.sock sockwrite -n muhabbets privmsg $2
  var %k1 $str(%emoji,6), %k2 %emoji  Temizleniyor..    $+ %emoji, %k3 $str(%emoji,6), %n $regsubex($1,/(.)/g,\1 $chr(32)), %n $upper(%n), %s 1, %f $numtok(%n,32), %ff %f
  %q.sock %k1
  %q.sock %k2
  %q.sock %k3  
  if %ff > 9 {
    %q.sock $chr(160)
  } 
  if %ff <= 9 && %ff >= 6 {
    %q.sock $chr(160)
    %q.sock $chr(160)
  }
  if %ff <= 5 && %ff >= 3 {
    %q.sock $chr(160)
    %q.sock $chr(160)
    %q.sock $chr(160)
    %q.sock $chr(160)
  }
  while %s <= %f {
    var %klp %emoji
    %q.sock $str(%klp,$iif(%ff > 6,1,%s)) $gettok(%n,%s,32) 
    inc %s
  }
  var %f $calc(%f -1)
  while %f {
    var %klp %emoji
    %q.sock $str(%klp,$iif(%ff > 6,1,%f)) $gettok(%n,%f,32) 
    dec %f
  }
  if %ff >= 9 {
    %q.sock $chr(160)
  } 
  if %ff < 9 && %ff >= 6 {
    %q.sock $chr(160)
    %q.sock $chr(160)
  }
  if %ff <= 5 && %ff >= 3 {
    %q.sock $chr(160)
    %q.sock $chr(160)
    %q.sock $chr(160)
    %q.sock $chr(160)
  }
  %q.sock %k1
  %q.sock %k2
  %q.sock %k3 
}