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/)
-   -   Çözüldü remote için yardim (https://www.ircforumlari.net/mirc-scripting-sorunlari/1059727-remote-icin-yardim.html)

BuzzeR 01 Mayıs 2025 11:31

remote için yardim
 
<komutuylulayan> .büyü DeLL_
<bot> Abraa kadabraaa okus pokus userkisi dönüşsün bir Keci'ye
<bot> userkisi artik bir Keci oldun :))))))
* userkisi Nick değişerek Keci-userkisi Oldu


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

No Mercy 01 Mayıs 2025 11:39

Cevap: remote için yardim
 
İlginç.

Gurkan 05 Mayıs 2025 09:07

Cevap: remote için yardim
 
Alıntı:

BuzzeR Nickli Üyeden Alıntı (Mesaj 1043014047)
<komutuylulayan> .büyü DeLL_
<bot> Abraa kadabraaa okus pokus userkisi dönüşsün bir Keci'ye
<bot> userkisi artik bir Keci oldun :))))))
* userkisi Nick değişerek Keci-userkisi Oldu


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



Kod:

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 05 Mayıs 2025 15:15

Cevap: remote için yardim
 
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 05 Mayıs 2025 15:48

Cevap: remote için yardim
 
Kod:

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 05 Mayıs 2025 15:59

Cevap: remote için yardim
 
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 06 Mayıs 2025 00:26

Cevap: remote için yardim
 
Alıntı:

Gurkan Nickli Üyeden Alıntı (Mesaj 1043016021)
Kod:

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 06 Mayıs 2025 09:20

Cevap: remote için yardim
 
Alıntı:

BuzzeR Nickli Üyeden Alıntı (Mesaj 1043016353)
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:

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 06 Mayıs 2025 10:24

Cevap: remote için yardim
 
alternatif.
Kod:

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 06 Mayıs 2025 17:13

Cevap: remote için yardim
 
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 --

Alıntı:

Gurkan Nickli Üyeden Alıntı (Mesaj 1043016453)
Kod:

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


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk