IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - mIRC Yazı şekli (https://www.ircforumlari.net/mirc-scripting-sorunlari/276511-mirc-yazi-sekli.html)

ekrem46

16 Ekim 2009 17:28

mIRC Yazı şekli

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

Doktrin

16 Ekim 2009 18:21

Cevap: mIRC Yazı şekli

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

16 Ekim 2009 18:40

Cevap: mIRC Yazı şekli

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 :) k.bakmayın

TriviuM

16 Ekim 2009 19:44

Cevap: mIRC Yazı şekli

Kod:

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]

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:10.