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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 25 Temmuz 2007, 06:28   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Uyarı Ekleme




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias argo { dialog -m argo argo } menu status,channel { - Argo List:/.argo - } dialog argo { title "Küfür Ekle Kaldır" size -1 -1 113 170 option dbu list 1, 4 37 104 96, size button "Ekle", 2, 4 134 37 12 button "Sil", 3, 70 134 37 12 check "Korumayı Aç", 4, 5 6 50 10 text "Kick Sebebi", 5, 5 23 31 8 edit "", 6, 40 22 69 10, autohs button "Kapat !", 7, 38 155 37 12, flat ok } on *:dialog:argo:*:*:{ if ($devent == init) { if ($group(#argo).status == on) { did -c argo 4 } did -a argo 6 %argo.kelime var %i 1 while (%i <= $lines(argo.txt)) { did -a argo 1 $read(argo.txt,%i) inc %i } } if ($devent == sclick) { if ($did == 2) { var %i $?"Argo Kelimeyi Ekleyin" write argo.txt %i did -a argo 1 %i } if ($did == 3) { if ($did(1).sel != $null) { write $+(-ds,$did(1).seltext) argo.txt did -d $dname 1 $did(1).sel } } if ($did == 4) { if ($did(4).state == 1) { enable #argo } else { disable #argo } } } if ($devent == edit) { set %argo.kelime $did(6) } } #argo on on *:TEXT:*:#: { var %i 1 while (%i <= $lines(argo.txt)) { Burada Ne Olması Gerekiyor Çözemedim Ve Burada Olacak şeyin Yanına 1. kez sölerse uyarı 2 kez argo listen bişiyi sölerse kick ban atacak } } } #argo end

Kırmızı İle Yazılan Yere YArdım Edermisiniz.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias argo { dialog -m argo argo } menu status,channel { - Argo List:/.argo - } dialog argo { title "Küfür Ekle Kaldır" size -1 -1 113 170 option dbu list 1, 4 37 104 96, size button "Ekle", 2, 4 134 37 12 button "Sil", 3, 70 134 37 12 check "Korumayı Aç", 4, 5 6 50 10 text "Kick Sebebi", 5, 5 23 31 8 edit "", 6, 40 22 69 10, autohs button "Kapat !", 7, 38 155 37 12, flat ok } on *:dialog:argo:*:*:{ if ($devent == init) { if ($group(#argo).status == on) { did -c argo 4 } did -a argo 6 %argo.kelime var %i 1 while (%i <= $lines(argo.txt)) { did -a argo 1 $read(argo.txt,%i) inc %i } } if ($devent == sclick) { if ($did == 2) { var %i $?"Argo Kelimeyi Ekleyin" write argo.txt %i did -a argo 1 %i } if ($did == 3) { if ($did(1).sel != $null) { write $+(-ds,$did(1).seltext) argo.txt did -d $dname 1 $did(1).sel } } if ($did == 4) { if ($did(4).state == 1) { enable #argo } else { disable #argo } } } if ($devent == edit) { set %argo.kelime $did(6) } } #argo on on *:TEXT:*:#: { var %i 1 while (%i <= $lines(argo.txt)) { Burada Ne Olması Gerekiyor Çözemedim Ve Burada Olacak şeyin Yanına 1. kez sölerse uyarı 2 kez argo listen bişiyi sölerse kick ban atacak } } } #argo end

Kırmızı İle Yazılan Yere YArdım Edermisiniz.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 25 Temmuz 2007, 12:18   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
Cevap: Uyarı Ekleme




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#: { var %i 1 while (%i <= $lines(argo.txt)) { if ($read(argo.txt,%i) iswm $1-) { hinc -m argo $nick 1 if $hget(argo,$nick) == 1 { msg $chan Argo Konusmak yasaktir $nick } if $hget(argo,$nick) == 2 { kick $chan $nick Argo İcerikli sözler kullanmayin. } if $hget(argo,$nick) == 3 { ban -ku600 $chan $nick 2 Argo İcerikli sözler kullanmamaniz konusunda uyarilmistiniz. | hdel argo $nick } } inc %i } }


 
Alıntı ile Cevapla

Cevapla

Etiketler
ekleme, mirc, mirc download, mirc indir, uyari, uyarı


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

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
Acc ekleme Bilecikli mIRC Scripting Sorunları 24 04 Ağustos 2013 17:39
!RC ekleme .. Skys mIRC Scripting Sorunları 2 11 Eylül 2012 16:57
kod ekleme BuqRa12345 mIRC Scripting Sorunları 5 17 Eylül 2010 11:01
!dur ekleme QkLa mIRC Scripting Sorunları 7 16 Kasım 2009 00:03
Resmi uyarı! :Microsoftt da web sitesinde tüm kullanıcılara uyarı! CaSt Güvenlik Açıkları 3 06 Nisan 2007 23:06