[ekrem46]

mIRCDe tersten nasıl yazarıs yani şöle ekrem yazıcam merke olarak cıkıcak gibi

[Doktrin]

Kodun sahibi L4roXyL dir.

on *:input:*: {
if ($regex($window($active).type,^(channel|query|chat )$) && $left($1,1) != /) {
haltdef
say $_t(reverse_t,$1-)
}
}
alias _t {
if ($isid && $regex(+t,$1,/^(reverse_t)$/i)) {
var %_t = $regml(+t,1),%_r = return,%_2 = $iif($2,$v1),%_3 = $iif($3,$v1),%_tx = $$2-
if ($(,%_t) = reverse_t) %_r $regsubex(%_tx,/(.)/g,$mid(%_tx,$mid(%_tx,\n,0),1))
}
}

[ekrem46]

Bunu Şunun gibi yapsak /ters yazı şeklinde yazdığımızda sadece Öle ters yazsa
birde şölede olabilirmi mesela ekrem
e
ek
ekr
ekre
ekrem gibi cokmu şey istiyorum yaw
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
k.bakmayın

[TriviuM]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

alias Ters {
  var %t = 1
  while (%t <= $len($1-)) {
    set -u %Tr $mid($1-,%t,1) $+ %Tr
    inc %t
  }
  msg $active %Tr
}
alias Cins {
  if ($left($1,1) == /) { $1- | halt }
  haltdef
  set %Tr 1
  while (%Tr <= $len($1-)) {
    msg $active $left($1-,%Tr)
    inc %Tr
  }
}

[/Ters Yazi] [/Cins Yazi]