[BuzzeR]

<komutuylulayan> .büyü DeLL_
<bot> Abraa kadabraaa okus pokus userkisi dönüşsün bir Keci'ye
<bot> userkisi artik bir Keci oldun
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)))))
* userkisi Nick değişerek Keci-userkisi Oldu


mirc botuma böyle birşey koymak istiyorum nasıl yapılabilir

[No Mercy]

İlginç.

[Gurkan]

BuzzeR Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

<komutuylulayan> .büyü DeLL_ <bot> Abraa kadabraaa okus pokus userkisi dönüşsün bir Keci'ye <bot> userkisi artik bir Keci oldun Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. ))))) * userkisi Nick değişerek Keci-userkisi Oldu mirc botuma böyle birşey koymak istiyorum nasıl yapılabilir

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

on *:TEXT:!büyü *:#: {
  if ($nick isop $chan) {
    if ($2) {
      msg $chan Abraa kadabraaa okus pokus $2 dönüşsün bir keçi-$2 $+ 'ye 
      msg OperServ RAW SVSNICK $2 keçi-$+ $2 :0
      msg $chan $2 artık bir keçi oldun. :)))))
    }
    else {
      msg $chan Nick belirtmelisin. Örnek kullanım: !büyü DeLL_
    }
  }
  else {
    msg $chan komutu kullanman için op olmalısın. 
  }
}
}

[BuzzeR]

bunu çogaltamayızmı dosyadan okutmalı keçi ayı sincap aslan gibi

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 15:15 -->-> Daha önceki mesaj 15:14 --

sadece oplar degil normal userlerinde kullanması için ne yapmak lazım

[XcLusive]

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

alias büyüler return keci ayi sincap aslan
on *:TEXT:!büyü *:#:{
  if ($2) {
    var %büyü $rand(1,$gettok($büyüler,0,32))
    msg $chan Abraa kadabraaa okus pokus $2 dönüşsün bir $+(%büyü,-,$2) 
    msg OperServ RAW SVSNICK $2 $+(%büyü,-,$2) :0
    msg $chan $2 artık bir %büyü oldun. :)))))
  }
  else {
    msg $chan Nick belirtmelisin. Örnek kullanım: !büyü DeLL_
  }
}

boşluk bırakarak kafana göre ekleme yap.
sunucun türkçe karakter desteklemiyorsa kullanma.

[Aybarss]

on *:TEXT:.büyü *:#: {
var %target = $2
if (%target == $null) {
msg # Kullanım: .büyü <nick>
halt
}

if ($nick(#,%target) == $null) {
msg # O isimde biri bu kanalda yok.
halt
}

; Rastgele büyü mesajı seçimi (1-10)
var %r = $rand(1,10)

if (%r == 1) {
msg # Alakazaaam! %target şimdi bir Tost Makinesi!
notice %target Tıkır tıkır ekmek kızartıyorsun... /nick Tost-%target
}
elseif (%r == 2) {
msg # Simsalabim! %target bir Karpuz oldu!
notice %target Serin serin dolapta bekle... /nick Karpuz-%target
}
elseif (%r == 3) {
msg # Hokus Pokus! %target bir Tavuk oldu!
notice %target Gıdaklamaya başla... /nick Tavuk-%target
}
elseif (%r == 4) {
msg # Zırt zırt büyü! %target artık bir Çorap!
notice %target Hemen eşini bul... /nick Corap-%target
}
elseif (%r == 5) {
msg # Aaaaaabra kadabraaa! %target şimdi bir Dondurma!
notice %target Erime lütfen... /nick Dondurma-%target
}
elseif (%r == 6) {
msg # Hisssss! %target bir Yılan oldu!
notice %target Sinsi sinsi sürün bakalım... /nick Yilan-%target
}
elseif (%r == 7) {
msg # Vızz vızz! %target bir Sinek oldu!
notice %target Camdan çıkamazsan biz açarız... /nick Sinek-%target
}
elseif (%r == 8) {
msg # Abraaa! %target artık bir Çaydanlık!
notice %target Fokur fokur kaynıyorsun... /nick Caydanlik-%target
}
elseif (%r == 9) {
msg # Güm güm! %target bir Bateri Seti oldu!
notice %target Vur bakalım bagetleri... /nick Bateri-%target
}
elseif (%r == 10) {
msg # Şak şuk! %target artık bir Terlik!
notice %target Kim giyecek seni bakalım... /nick Terlik-%target
}


not:Kullanım:

Kullanıcı kanalda .büyü DeLL_ yazdığında, bot mizahi bir büyü efektiyle cevap verir ve kullanıcıya /nick YeniNick komutunu önerir.

[BuzzeR]

Gurkan Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:TEXT:!büyü *:#: { if ($nick isop $chan) { if ($2) { msg $chan Abraa kadabraaa okus pokus $2 dönüşsün bir keçi-$2 $+ 'ye msg OperServ RAW SVSNICK $2 keçi-$+ $2 :0 msg $chan $2 artık bir keçi oldun. :))))) } else { msg $chan Nick belirtmelisin. Örnek kullanım: !büyü DeLL_ } } else { msg $chan komutu kullanman için op olmalısın. } } }

her seferinde büyünün tutmaması gerekiyor artı bunu texden okutmalı nasıl yaparız keci kedi sincap ayı aslan gibi çogaltamayızmı !büyü degilde [.!]b[üuÜU] nick şeklinde olmazmı

[Gurkan]

BuzzeR Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

her seferinde büyünün tutmaması gerekiyor artı bunu texden okutmalı nasıl yaparız keci kedi sincap ayı aslan gibi çogaltamayızmı !büyü degilde [.!]b[üuÜU] nick şeklinde olmazmı

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

on *:TEXT:/^[.!]b[üuÜU]\s+\S+/i:#: {
    if ($2) {
      var %hayvanlar = keçi|kedi|sincap|ayı|aslan
      var %yeni_hayvan = $gettok(%hayvanlar, $rand(1, $numtok(%hayvanlar, 124)), 124)
      var %yeni_nick = %yeni_hayvan $+ - $+ $2

     # Büyü tutma olasılığı (%70 tutar, %30 başarısız)
      if ($rand(1, 100) <= 70) {
         msg $chan Abraa kadabraaa okus pokus $2 dönüşsün bir %yeni_nick $+'ye!
         msg OperServ RAW SVSNICK $2 %yeni_nick :0
         msg $chan $2 artık bir %yeni_nick oldu :)))))
      }
      else {
        var %hata_sayisi = $lines(buyu_hatalar.txt)
        if (%hata_sayisi > 0) {
          msg $chan $read(buyu_hatalar.txt, $rand(1, %hata_sayisi))
        }
        else {
          msg $chan Büyü tutmadı, hokus pokus bozuldu! :(
        }
      }
    else {
      msg $chan Nick belirtmelisin. Örnek kullanım: !büyü DeLL_
    }
  }
}

buyu_hatalar.txt oluştur ve içine büyünün neden tutmadığını anlatan esprili şeyler yaz.

[XcLusive]

alternatif.

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

 on *:TEXT:*:#:{
  if $regex($1,/^((!|\.)b(ü|Ü|u|U)y(ü|Ü|u|U))) && ($2) {
    var %büyü $read($mircdirbüyüler.txt), %enerji = $rand(1,2)
    if %enerji < 2 { msg $chan $nick Büyü için enerjin yeterli değil. | halt }
    msg $chan Abraa kadabraaa okus pokus $2 dönüşsün bir $+(%büyü,-,$2) 
    msg OperServ RAW SVSNICK $2 $+(%büyü,-,$2) :0
    msg $chan $2 artık bir %büyü oldun. :)))))
  }
}

mirc klasörünün içine büyüler.txt dosyası oluştur.
alt alta neler olacağını sırala.
sunucun türkçe karakter desteklemiyorsa kullanma.

[BuzzeR]

bunu bende calısmadı hiç bir tepkide vermiyor sorun nerde olabilir

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 17:13 -->-> Daha önceki mesaj 17:03 --

Gurkan Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:TEXT:/^[.!]b[üuÜU]\s+\S+/i:#: { if ($2) { var %hayvanlar = keçi|kedi|sincap|ayı|aslan var %yeni_hayvan = $gettok(%hayvanlar, $rand(1, $numtok(%hayvanlar, 124)), 124) var %yeni_nick = %yeni_hayvan $+ - $+ $2 # Büyü tutma olasılığı (%70 tutar, %30 başarısız) if ($rand(1, 100) <= 70) { msg $chan Abraa kadabraaa okus pokus $2 dönüşsün bir %yeni_nick $+'ye! msg OperServ RAW SVSNICK $2 %yeni_nick :0 msg $chan $2 artık bir %yeni_nick oldu :))))) } else { var %hata_sayisi = $lines(buyu_hatalar.txt) if (%hata_sayisi > 0) { msg $chan $read(buyu_hatalar.txt, $rand(1, %hata_sayisi)) } else { msg $chan Büyü tutmadı, hokus pokus bozuldu! :( } } else { msg $chan Nick belirtmelisin. Örnek kullanım: !büyü DeLL_ } } } buyu_hatalar.txt oluştur ve içine büyünün neden tutmadığını anlatan esprili şeyler yaz.

bu bende neden calısmamıs olabilir hiç bir şekilde tepki vermedi