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/)

- - yazilari terse cevirme sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/440954-yazilari-terse-cevirme-sorunu.html)

OperServ

05 Ocak 2012 03:49

yazilari terse cevirme sorunu

selam arkadaslar elimde bir kod var ama bot icin yapamadim demek istedigim
kanalda bir user !ters mesajini yazsa bot tersine cevirsin ornek:
user: !ters selam
bot: yaziniz terse cevrilmistir user: males

kod ise su

Kod:

on 1:INPUT:*:{

  unset %ters*

  set %tersd $1-

  if ( $chr(47) == $mid(%tersd,1,1) ) { %tersd | halt }

  set %tersu $len(%tersd)

  set %terss 1

  :ilk

  if ( %tersu == 0 ) goto son

  if ( $mid(%tersd,%tersu,1) == $chr(32) ) {

    %tersd = $replace(%tersd,$mid(%tersd,%tersu,1),$chr(0160))

  }

  %terst = $instok(%terst,$mid(%tersd,%tersu,1),%terss,0)

  dec %tersu

  inc %terss

  goto ilk

  :son

  say %terst

  unset %ters*

  halt

}

#ters end

Toprak

05 Ocak 2012 03:55

Cevap: yazilari terse cevirme sorunu

Buyur Denermısın;

Kod:

on *:text:*:#:{

  if $1 == !ters {

    if $2 == $null { msg # Lütfen Kelime Belirdiniz. | halt }

    else {

      unset %ters*

      set %tersd $2-

      if ( $chr(47) == $mid(%tersd,1,1) ) { %tersd | halt }

      set %tersu $len(%tersd)

      set %terss 1

      :ilk

      if ( %tersu == 0 ) goto son

      if ( $mid(%tersd,%tersu,1) == $chr(32) ) {

        %tersd = $replace(%tersd,$mid(%tersd,%tersu,1),$chr(0160))

      }

      %terst = $instok(%terst,$mid(%tersd,%tersu,1),%terss,0)

      dec %tersu

      inc %terss

      goto ilk

      :son

      msg # Kelime:4 %terst

      unset %ters*

      halt

    }

  }

}

Kod:

«03:54:57» <ChanServ> !ters

«03:54:57» <02GhoSt> Lütfen Kelime Belirdiniz.

«03:54:59» <ChanServ> !ters selam

«03:55:00» <02GhoSt> Kelime:4 males

OperServ

05 Ocak 2012 04:02

Cevap: yazilari terse cevirme sorunu

vay hocam siz bir nosunuz tskler :)

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