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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Ufak bi yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/727461-ufak-bi-yardim.html)

Kod:

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)

Cevap: Ufak bi yardım

Alıntı:

bLodsouL Nickli Üyeden Alıntı (Mesaj 1041742112)

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:

hadd kufur $2

Bu şekilde değiştir

Kod:

hadd -m kufur $2

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

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

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.

Cevap: Ufak bi yardım

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1041742140)

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.

Cevap: Ufak bi yardım

Alıntı:

bLodsouL Nickli Üyeden Alıntı (Mesaj 1041742187)

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

Biraz değişiklik yaptım.

Kod:

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.

Cevap: Ufak bi yardım

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

Cevap: Ufak bi yardım

Alıntı:

bLodsouL Nickli Üyeden Alıntı (Mesaj 1041742788)

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

Cevap: Ufak bi yardım

bunu bot için uyarlayabilir miyiz !kufur ekle gibi

Cevap: Ufak bi yardım

Alıntı:

rmz Nickli Üyeden Alıntı (Mesaj 1041818379)

bunu bot için uyarlayabilir miyiz !kufur ekle gibi

Kod:

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.