on 1:input:*:{
  if ($chr(47) == $mid($1-,1,1)) || ($inpaste) || ($ctrlenter) { goto end }
  if ($1- == isnum) { goto end }
  var %a 0, %b, %c, %d, %e, %f
  while (%a < $numtok($1-,32)) {
    inc %a
    %c = $gettok($1-,%a,32)
    if ($remove(%c,!,?,:,;,.,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(•,%c,•) }
    else {
      if (%a == $numtok($1-,32)) {
        %d = $+($right(%c,1),. )
        %f = $right(%d,2)
      }
      %e = $regsubex(%c,/(?=^| )(.)/g,$+(1,$upper(\1),1))
      %b = %b $+(%e,%f)
    }
  }
  if (!%b) { %b = $1- }
  else { say %b }
  halt
  :end
}

on *:input:#:{
  if !$istok(! /, $left($1-,1), 32) {
    msg # $regsubex(.,$regsubex(x,$1-,m^(\S+)^g,$iif(\1 ison #, $chr(2)\1$chr(15), \1)), $&
      m$(^\S)$,$upper(\1))
    halt
  }
}

on *:input:#:if ($left($1,1) != /) { msg # $regsubex(q,$1-,/(\S+)/g,$iif(\1 ison #,\1,$+($chr(3),4,\1,$chr(15)))) | haltdef }

alias whogoster {
  if ($1 = on) debug -i on whogoster
  if ($1 = off) debug off
  tokenize 32 $1- 
  if $3 = 352 || $3 = 315 { $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...],) | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Who Bilgileri: $5- }
}

#whomesaj on
raw *:*: if $regex($numeric,(352|315)) { $iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -ne @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | haltdef | $iif($regml(1) = 352,set -u2 %z $1-) | if ($regml(1) = 315) && %z { bset -t &z 1 $regsubex(%z,( $+ $me $+ ),Who Bilgileri:) | bset -t &z $calc($bvar(&z,0) + 1)  $remove($1-,$1,$2,$3) | echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $bvar(&z,1- $+ $bvar(&z,0)).text  } | elseif !%z { echo 4 @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $2 Sunucuda yok. }  }
#whomesaj end