Konu: Söz aktarma
Tekil Mesaj gösterimi
Alt 21 Mart 2021, 18:26   #4
Çevrimdışı
Zadrich
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Söz aktarma




Merhaba @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
-
Elimde Hazır Bottan alınma Kod var umarım işine yarar. Kendi botunuza göre uyarlamayı unutmayınız.
-
Kod:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $2 == PRIVMSG { var %komutx $gettok($right($strip($4-),-1),1,32) if !$read(txt/yonetimchans.txt,w,$3) { if $regex($strip(%komutx),/^[!.]söz$/i) { if %salkons == on { sockwrite -nt $sockname notice $nn($1) 4UYARI :2 Komutu 2 dakika bekleyip tekrar uygulayınız $nn($1) $+ . | return } if %sözx2 [ $+ [ $nn($1) ] ] = Evet { sockwrite -nt $sockname notice $nn($1) 4UYARI :2 3 Dakika da 1 kez !söz komutunu kullanabilirsin $nn($1) $+ . | return } var %kacx $rand($rand(1,$lines(txt/söz.txt)),$lines(txt/söz.txt)) sw nomercy privmsg #ZadSystem 4Bilgi : $nn($1) $3 kanalında !söz komutunu kullandı. sw nomercy privmsg $3 $gettok($read(txt/söz.txt,%kacx),1-1,37) - (Ekleyen : $gettok($read(txt/söz.txt,%kacx),-1,37) ) sw nomercy privmsg $3  sw nomercy privmsg $3 Sizde beğendiğiniz sözlerin bu şekilde kanallarda yer almasını istiyorsanız NoMercy botu özeline !sözekle SÖZÜNÜZ şeklinde ekleme yapabilirsiniz. (Söz Sayısı :4 $lines(txt/söz.txt) $+ ) sw nomercy privmsg $gettok($read(txt/söz.txt,%kacx),-1,37) Bilgi : Eklediğiniz sözlerden biri4 $3 kanalında4 $nn($1) tarafından gösterildi. sw nomercy privmsg $gettok($read(txt/söz.txt,%kacx),-1,37)  sw nomercy privmsg $gettok($read(txt/söz.txt,%kacx),-1,37) Söz : $gettok($read(txt/söz.txt,%kacx),1-1,37) set -u180 %sözx2 $+ $nn($1) Evet unset %kacx } } if %komut == !sözekle { if %salkons == on { sw $sockname PRIVMSG $botfnick($1) 4UYARI :2 Komutu 2 dakika bekleyip tekrar uygulayınız $botfnick($1) $+ . | return } if ($botfnick($1) == Zadrich) || ($botfnick($1) == nick1) || ($botfnick($1) == nick2) { sw $sockname PRIVMSG $botfnick($1) Eklenen : $remove($5-,,) sw $sockname PRIVMSG $botfnick($1)  sw $sockname PRIVMSG $botfnick($1) Özel tanımlı yazar olduğunuz için eklediğiniz söz onay gerektirmeden direk olarak sisteme kaydedilmiştir. sw $sockname PRIVMSG #ZadSystem -4Tanımlı Yazar- : $remove($5-,,) ( $+ $botfnick($1) $+ ) write txt/söz.txt $remove($5-,,) $+ % $+ $botfnick($1) unset %ozelflood. [ $+ [ $botfnick($1) ] ] halt } sw $sockname PRIVMSG $botfnick($1) 4UYARI :2 Düzenleme sebebiyle söz ekleme uygulamamız geçici bir süre kapalıdır. Anlayışınız için teşekkürler $botfnick($1) $+ . (4Zadrich) return if %sözx [ $+ [ $nn($1) ] ] = Evet { sockwrite -nt $sockname notice $nn($1) 4UYARI :2 1 Dakika da 1 kez söz ekleyebilirsin $nn($1) $+ . | sockwrite -nt $sockname privmsg $nn($1) 4UYARI :2 1 Dakika da 1 kez söz ekleyebilirsin $nn($1) $+ . | return } if *!sözekle* iswm $5 { sockwrite -nt $sockname notice $nn($1) 4UYARI :2 Hatalı komut kullanımı $nn($1) $+ . } sw $sockname PRIVMSG $botfnick($1) Sözünüz Zadrich tarafından kontrol edilmek üzere sisteme eklenmiştir $nn($1) $+ . Onay bekleyen söz sayısı :4 $lines( txt/sözx.txt) - Onaylı söz sayısı :4 $lines( txt/söz.txt)  sw $sockname PRIVMSG $botfnick($1)  sw $sockname PRIVMSG $botfnick($1) Eklenen : $remove($5-,,) sw $sockname PRIVMSG #ZadSystem -4Söz Eklendi- : $remove($5-,,) ( $+ $botfnick($1) $+ ) write txt/sözx.txt $remove($5-,,) $+ % $+ $botfnick($1) set -u60 %sözx $+ $nn($1) Evet unset %ozelflood. [ $+ [ $botfnick($1) ] ] } }


__________________
Dark invincible Last Soldier | -Z-
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet