IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  reklamver

Etiketlenen Kullanıcılar

4Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 13 Şubat 2016, 01:46   #1
Çevrimiçi
Ali
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Ufak bi yardım




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on @*:TEXT:*:#: { ; +o +h +v ler bu degerden etkilenmeyecekler if ($nick !isreg #) return var %l = $strip($1-) if ($hmatch(kufur,%l)) { ban -u300 # $nick 3 kick # $nick Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır! } } alias kufur { if ($1 == ekle) && ($regex($2,[A-Za-z])) { hadd kufur $2 secho $2 veritabanina başarıyla eklendi } elseif ($1 == sil) { if ($hfind(kufur,$2)) { hdel kufur $2 secho $2 veritabanindan başarıyla silindi } else { secho $2 veritabaninda bulunamadi } } elseif ($1 == list) { var %x = 1 while (%x < = $hget(kufur,0).item) { set %hkufur $addtok(%hkufur,$hget(kufur,%x).item,1) if ($numtok(%hkufur,32) >= 7) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur } inc %x } if ($numtok(%hkufur,32) >= 1) { secho $replace(%hkufur,$chr(1),$+($chr(32),-,$chr(32))) | unset %hkufur } } else { secho hatali islem } } alias secho { ;echo -a $1- if (!$window(@kufur)) { window -e @kufur } echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-) } on *:EXIT: hsave -o kufur kufur.htb on *:start: { hmake kufur 1000 if ($exists(kufur.htb)) { hsave -o kufur kufur.htb } hload kufur kufur.htb }

/kufur ekle belirtilen kufuru tablomuza ekler
/kufur sil belirtilen kufuru tablodan siler
/kufur list eklenmis tum kufurleri listeler
kufur eklerken wildcad kullanilabilir
/kufur ekle *sokar*
seklinde eklendiginde sokarim sokrlar sokarak gibi kelimeler de de uyarilacak ve kanaldan atilacaktir.

.................................................. ..............
Eklediğimde aldığım hata bu acaba bilen birisi yardımcı ola bilirmi
* /hadd: 'kufur' Tablo yok (Satır 12, küfür)
* /hadd: 'kufur' Tablo yok (Satır 12, küfür)


Konu Mylife tarafından (07 Kasım 2016 Saat 17:01 ) değiştirilmiştir. Sebep: CODE TAG
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 13 Şubat 2016, 03:33   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ufak bi yardım




bLodsouL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Eklediğimde aldığım hata bu acaba bilen birisi yardımcı ola bilirmi
* /hadd: 'kufur' Tablo yok (Satır 12, küfür)
* /hadd: 'kufur' Tablo yok (Satır 12, küfür)

Bu kısmı
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
hadd kufur $2

Bu şekilde değiştir
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
hadd -m kufur $2

olmayan tabloyu make etmesi(oluşturması) için.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 13 Şubat 2016, 06:56   #3
Çevrimiçi
Ali
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ufak bi yardım




Teşekkür Feragat Hocam Şimdide böyle bir hata vermekde
* /hload: Açılamıyor 'C:\Users\samsungpc\Desktop\ALİNİN SCRİPTLERİ\ChatKafCom Help Script\kufur.htb' (Satır 42, küfür)
Ve /kufur list yaptığımda pc konuyor ve yanıt vermiyor diyor neden ola bilir


Konu Ali tarafından (13 Şubat 2016 Saat 07:09 ) değiştirilmiştir. Sebep: yanlışlık
 
Alıntı ile Cevapla

Alt 13 Şubat 2016, 11:14   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ufak bi yardım




Küfür aliasındaki list koşulu ve start eventının düzenlenmesi gerek. Pc başında değilim, o yüzden şuan yardımcı olamıyorum üzgünüm.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 13 Şubat 2016, 13:46   #5
Çevrimiçi
Ali
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ufak bi yardım




Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Küfür aliasındaki list koşulu ve start eventının düzenlenmesi gerek. Pc başında değilim, o yüzden şuan yardımcı olamıyorum üzgünüm.

Ozaman haber bekliyorum yardımcı olursanız hocam sevinirim.

 
Alıntı ile Cevapla

Alt 14 Şubat 2016, 13:25   #6
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Ufak bi yardım




bLodsouL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ozaman haber bekliyorum yardımcı olursanız hocam sevinirim.

Biraz değişiklik yaptım.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: { ;- Kanal yetkililri ve Oper/Admin Host'larını muaf tuttuk. if !$regex($nick(#,$me).pnick,/(%|@|&|\.|~)/) || !$regex($site,/(Root|Admin|IRCOp|Oper|Services|Server)/Si) { if $hfind(kufur,$1-,1,W).data { .ban -u300 # $nick 3 .kick # $nick 1Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır! secho Kanal: # Nick: $nick Küfür: $strip($1-) Mask: $strip($hget(kufur,$hfind(kufur,$1-,1,W).data)) } } } alias kufur { if ($1 == ekle) && $regex($2,[A-Za-z]) { if $hfind(kufur,$2-,0,W).data { secho $2- Kufur listesinde ekli. | return } var %n = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m kufur %n $2- .hsave -o kufur kufur.htb secho  $2-  veritabanina başarıyla eklendi } elseif ($1 == sil) { if !$hfind(kufur,$2-,0,W).data { secho $2- Kufur listesinde ekli değil. | return } .hdel kufur $hfind(kufur,$2-,1,W).data .hsave -o kufur kufur.htb .hfree -sw kufur .hmake kufur .hload kufur kufur.htb secho $2 veritabanindan başarıyla silindi } elseif ($1 == list) { if ($hget(kufur,0).data == 0) { secho Kufur listesinde kayıt bulunmamaktadir. | return } var %i = 1 | while (%i <= $hget(kufur,0).data) { secho $+(%i,-,$chr(41)) $hget(kufur,%i).data inc %i } } } alias secho { ;echo -a $1- if (!$window(@kufur)) { window -e @kufur } echo @kufur $+($chr(40),$time,$chr(41),$chr(32),$1-) } on *:start: .hmake kufur | .hload kufur kufur.htb

Eklentide küfür list paylaştım onu kullanırsınız.. 500 adet küfür ekli.

__________________
Dünyanın en güzel yeri neresi biliyor musun? Biraz kenara kaysana...

Konu Toprak tarafından (08 Aralık 2023 Saat 17:23 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 15 Şubat 2016, 02:43   #7
Çevrimiçi
Ali
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ufak bi yardım




Bu rardaki küfürü nereye atacayız ve koddaki küfür ekleme silme nasıllar hocam

 
Alıntı ile Cevapla

Alt 15 Şubat 2016, 18:27   #8
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Ufak bi yardım




bLodsouL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu rardaki küfürü nereye atacayız ve koddaki küfür ekleme silme nasıllar hocam

Rar'dakini mirc klasörüne atınız.

Komutlar;
/kufur ekle *küfür*
/kufur sil *küfür*
/kufur list

__________________
Dünyanın en güzel yeri neresi biliyor musun? Biraz kenara kaysana...
 
Alıntı ile Cevapla

Alt 07 Kasım 2016, 15:07   #9
Çevrimdışı
rmz
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ufak bi yardım




bunu bot için uyarlayabilir miyiz !kufur ekle gibi

 
Alıntı ile Cevapla

Alt 07 Kasım 2016, 16:58   #10
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ufak bi yardım




rmz Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bunu bot için uyarlayabilir miyiz !kufur ekle gibi

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#: { ;- Kanal yetkililri ve Oper/Admin Host'larını muaf tuttuk. if !$regex($nick(#,$nick).pnick,/(%|@|&|\.|~)/) || !$regex($site,/(Root|Admin|IRCOp|Oper|Services|Server)/Si) { if $hfind(kufur,$1-,1,W).data { .ban -u300 # $nick 3 .kick # $nick 1Kotu kelimeler kullandığınız için girişiniz Yasaklanmıştır! msg $nick Kanal: # Nick: $nick Küfür: $strip($1-) Mask: $strip($hget(kufur,$hfind(kufur,$1-,1,W).data)) } } if ($regex($1,/^[.!]ekle$/Si)) && $regex($2,[A-Za-z]) { if $hfind(kufur,$2-,0,W).data { msg # $2 Kufur listesinde ekli. | return } var %n = $left($calc($ctime * $rand(1000,9999)),7) .hadd -m kufur %n $2- .hsave -o kufur kufur.htb msg # $qt($2) veritabanina başarıyla eklendi } elseif ($regex($1,/^[.!]sil$/Si)) { if !$hfind(kufur,$2-,0,W).data { msg # $2 Kufur listesinde ekli değil. | return } .hdel kufur $hfind(kufur,$2-,1,W).data .hsave -o kufur kufur.htb .hfree -sw kufur .hmake kufur .hload kufur kufur.htb msg # $qt($2) veritabanindan başarıyla silindi } elseif ($regex($1,/^[.!]list$/Si)) { if ($hget(kufur,0).data == 0) { msg # Kufur listesinde kayıt bulunmamaktadir. | return } var %i = 1 | while (%i <= $hget(kufur,0).data) { msg # $+(%i,-,$chr(41)) $hget(kufur,%i).data inc %i } } } on *:start: .hmake kufur | .hload kufur kufur.htb

Kullanım;
.ekle *küfür*
.sil *küfür*
.list
Değiştirilen yerleri kırmızı ile işaretledim.

__________________
i don't care if i'm misfit..

Konu Mylife tarafından (07 Kasım 2016 Saat 18:42 ) değiştirilmiştir. Sebep: Edit.
 
Alıntı ile Cevapla

Cevapla

Etiketler
kısa bi yardım


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Ufak bir yardım! beydagi44 mIRC Scripting Sorunları 9 22 Şubat 2012 23:38
Ufak bi yardım PLs.. aLLstaR Unreal IRCd 1 01 Mayıs 2009 23:59
~q ufak bi yardım. Vamp mIRC Scripting Sorunları 1 23 Aralık 2008 02:46
Ufak bir yardım Syst3m PHP 4 02 Mayıs 2008 16:17
ufak bi yardım.. hasbelkader Bilgisayar Donanımı 4 19 Ocak 2008 15:04