yazilari terse cevirme sorunu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

OperServ · 05 Ocak 2012, 03:49

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: Kodu kopyalamak için üzerine çift tıklayın!

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

05 Ocak 2012, 03:55

Buyur Denermısın;

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

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: Kodu kopyalamak için üzerine çift tıklayın!

«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

vay hocam siz bir nosunuz tskler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Duvar yazilari.	SuNSeT	IF Ekstra	10	03 Şubat 2023 07:17
Araba Arkasi Yazilari	MikaiL	Şiir, Hikaye ve Güzel Sözler	0	23 Şubat 2010 03:02
Duvar yazilari..	viruS	Şiir, Hikaye ve Güzel Sözler	1	26 Ocak 2006 21:49

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.