Elimde Hazır Bottan alınma Kod var umarım işine yarar. Kendi botunuza göre uyarlamayı unutmayınız.
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) ] ]
}
}