| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Add-on ve snippet(parça) kod istekleri buraya
| By ZehiR 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:*:?: {
if $1 == !soz && $3 {
var %senyor2 $replace($2-,$chr(32),+) $+ $chr(0229) $+ $nick
var %senyor $rand(101,9999)
hadd -m soz %senyor %senyor2
msg #opers 4 $gettok($replace($hget(soz,%senyor),+,$chr(32)),1,$asc(å)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz. (Ekleyen Nick:13 $gettok($replace($hget(soz,%senyor),+,$chr(32)),2,$asc(å)) )
msg $nick Talebiniz İlgililere İletilmiştir, Sözünüz Onaylandiğinda Veya Reddedildiğinde Size Memo Yoluyla Bilgi Verilecektir. Haberdar Olabilmek İçin Nickinizin Kayitli Oldugundan Emin Olunuz.
}
}
on *:text:*:#: {
if $chan == #opers {
if $1 == !silsoz && $2 {
if $hget(soz,$2) {
msg #opers 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü İsteğiniz Üzere 4Silinmiştir
msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Uygun Bulunmamiştir.. İlginize Teşekkür Ederim.
hdel -s soz $2
}
}
if $1 == !listeleonayli && !$2 {
var %i 1
while %i <= $lines(onaylisoz.txt) {
msg # $read(onaylisoz.txt,%i)
inc %i
}
}
if $1 == !listelesoz && !$2 {
var %i 1
while %i <= $hmatch(soz,*,*) {
msg #opers 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)),1,$asc(å)) 7Onay Kodu:12 $hmatch(soz,*,%i)
inc %i
}
}
if $1 == !onay && $2 {
if $hget(soz,$2) {
write onaylisoz.txt $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) Onay Numarasi:4 $2 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å)) | msg #ufuk 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü Onaylanmiştir.
msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Onaylanmiştir. İlginize Teşekkür Ederim.
hdel soz $2
}
}
}
if $1 == !soz && $2 {
msg # 4 $2 -->12 $read(onaylisoz.txt)
}
}
Selamın Aleyküm bu koda Nasıl Random Olarak 4 farklı text e Sözü Kaydettirip Random olarak o 4 farklı texten cektirebilirim Tek Text olduğu için bir süre sonra kota sıkıntısı oluşuyor. Teşekkür ederim Şimdiden Yardımlarınız için
| Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias randomtxt return a.txt b.txt c.txt d.txt
on *:text:*:?: {
if $1 == !soz && $3 {
var %senyor2 $replace($2-,$chr(32),+) $+ $chr(0229) $+ $nick
var %senyor $rand(101,9999)
hadd -m soz %senyor %senyor2
msg #opers 4 $gettok($replace($hget(soz,%senyor),+,$chr(32)),1,$asc(å)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz. (Ekleyen Nick:13 $gettok($replace($hget(soz,%senyor),+,$chr(32)),2,$asc(å)) )
msg $nick Talebiniz İlgililere İletilmiştir, Sözünüz Onaylandiğinda Veya Reddedildiğinde Size Memo Yoluyla Bilgi Verilecektir. Haberdar Olabilmek İçin Nickinizin Kayitli Oldugundan Emin Olunuz.
}
}
on *:text:*:#: {
if $chan == #opers {
if $1 == !silsoz && $2 {
if $hget(soz,$2) {
msg #opers 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü İsteğiniz Üzere 4Silinmiştir
msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Uygun Bulunmamiştir.. İlginize Teşekkür Ederim.
hdel -s soz $2
}
}
if $1 == !listelesoz && !$2 {
var %i 1
while %i <= $hmatch(soz,*,*) {
msg $chan 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)),1,$asc(å)) 7Onay Kodu:12 $hmatch(soz,*,%i)
inc %i
}
}
if $1 == !onay && $2 {
if $hget(soz,$2) {
write $token($randomtxt,$r(1,$token($randomtxt,0,32)),32) $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) Onay Numarasi:4 $2 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å))
msg $chan 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü Onaylanmiştir.
msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Onaylanmiştir. İlginize Teşekkür Ederim.
hdel soz $2
}
}
}
if $1 == !soz && $2 {
msg # 4 $2 -->12 $read($token($randomtxt,$r(1,$token($randomtxt,0,32)),32))
}
}
Kırmızı renklendirdiğim yerdeki dosya isimlerini isteğe göre belirlersin. Listelemeyi iptal ettim 4 farklı dosya olduğu için gerçi ayarlanabilir dosya ismi belirtilerek ama uğraşmadım. Dikkat etmen konu iste başta belirttiğin dosya isimlerinin içi boş olmasın en az 1 tane olsun ki boş dönmesin.
Örnek: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
__________________
Davut Alper BALCI - pC`kOpAt |