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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 20 Kasım 2008, 03:18   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Koda ek Yapabilir miyiz




Alıntı:

on @openrguest:join:#:{
if (%rgkick == on) { kick # $nick %rglogo }
if (%rgban == on) { ban # $nick 2 }
if (%rgShun == on) { shun $nick +1d %rglogo }
if (%rgSamode == on) { samode # +b $nick }
if (%rgakill == on) { os killclones $nick }
if (%rgkill == on) { kill $nick %rglogo }
if (%rgK-Line == on) { kline $nick +1d %rglogo }
}
dialog rguest {
title "...."
size -1 -1 151 82
option dbu
box "Nick, idnt(*!xcx@*) Gir", 1, 86 2 64 79
combo 2, 89 10 57 53, size
button "Ekle", 3, 89 69 25 9
button "Sil", 4, 122 69 25 9
box "", 6, 88 65 28 15
check " K-Line ", 8, 56 37 27 10
check " KiLL", 9, 56 27 21 10
edit "", 10, 9936 30 23 12, disable
text "Saniye", 11, 562 32 21 8, disable
box "Ayir", 12, 3 2 82 18
box "Küfür Ceza", 112, 2 20 83 40
check "@plar", 13, 5 8 34 10
check "+v", 14, 47 8 30 10
check " AKiLL", 7, 56 47 27 10
check " Kick", 15, 5 37 21 10
check " Ban", 16, 5 27 21 10
check " Shun", 17, 29 36 26 10
check "Samode +b", 18, 5 47 40 10
box "", 5, 121 65 28 15
icon 19, 3 65 80 14, usr\avatar\WeiL.jpg, 0
box "", 20, 2 59 83 22
}

alias rguest { .dialog -m rguest rguest }
on *:dialog:rguest:init:*:{
if %rg@plar == on { did -c $dname 13 }
if %rg+v == on { did -c $dname 14 }
if %rgK-Line == on { did -c $dname 8 }
if %rgkill == on { did -c $dname 9 }
if %rgakill == on { did -c $dname 7 }
if %rgShun == on { did -c $dname 17 }
if %rgban == on { did -c $dname 16 }
if %rgKick == on { did -c $dname 15 }
if %rgSamode == on { did -c $dname 18 }
did -a $dname 10 %banvaxt
if ($ulist(*,openrguest,0) != $null) { var %i = 1 | while $ulist(*,openrguest,%i) { did -a $dname 2 $v1 | inc %i } }
}
on *:dialog:rguest:sclick:*:{
if $istok(7 8 9 13 14 15 16 17 18,$did,32) { $iif($did($did).state == 1,set %rg $+ $gettok($did($did).text,1,32) on,.set %rg $+ $gettok($did($did).text,1,32) off) }
if ($did == 3) { if ($did(2) != $null) { did -a $dname 2 $did(2) | .auser openrguest $did(2) } }
if ($did == 4) { if $did(2).seltext { .ruser openrguest $did(2).seltext | did -d $dname 2 $did(2).sel } }
}
on *:dialog:rguest:edit:*:{
%banvaxt = $did(10)
}

Vadesine bakıcaz
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
güzel espri

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 20 Kasım 2008, 13:54   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Koda ek Yapabilir miyiz




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:NICK:{ if ($level($newnick) == openrguest) { if (%rgShun == on) { shun $newnick +1d %rglogo } if (%rgkill == on) { kill $newnick %rglogo } if (%rgakill == on) { os killclones $newnick } if (%rgK-Line == on) { kline $newnick +1d %rglogo } var %Cnk = 1 while $comchan($newnick,%Cnk) { var %e = $v1 if $me isop %e { if (%rgkick == on) { kick %e $newnick %rglogo } if (%rgban == on) { ban %e $newnick 2 } if (%rgSamode == on) { samode %e +b $newnick } } inc %Cnk } } } on @openrguest:join:#:{ if (%rgkick == on) { kick # $nick %rglogo } if (%rgban == on) { ban # $nick 2 } if (%rgShun == on) { shun $nick +1d %rglogo } if (%rgSamode == on) { samode # +b $nick } if (%rgakill == on) { os killclones $nick } if (%rgkill == on) { kill $nick %rglogo } if (%rgK-Line == on) { kline $nick +1d %rglogo } } dialog rguest { title "...." size -1 -1 151 82 option dbu box "Nick, idnt(*!xcx@*) Gir", 1, 86 2 64 79 combo 2, 89 10 57 53, size button "Ekle", 3, 89 69 25 9 button "Sil", 4, 122 69 25 9 box "", 6, 88 65 28 15 check " K-Line ", 8, 56 37 27 10 check " KiLL", 9, 56 27 21 10 edit "", 10, 9936 30 23 12, disable text "Saniye", 11, 562 32 21 8, disable box "Ayir", 12, 3 2 82 18 box "Küfür Ceza", 112, 2 20 83 40 check "@plar", 13, 5 8 34 10 check "+v", 14, 47 8 30 10 check " AKiLL", 7, 56 47 27 10 check " Kick", 15, 5 37 21 10 check " Ban", 16, 5 27 21 10 check " Shun", 17, 29 36 26 10 check "Samode +b", 18, 5 47 40 10 box "", 5, 121 65 28 15 icon 19, 3 65 80 14, usr\avatar\WeiL.jpg, 0 box "", 20, 2 59 83 22 } alias rguest { .dialog -m rguest rguest } on *:dialog:rguest:init:*:{ if %rg@plar == on { did -c $dname 13 } if %rg+v == on { did -c $dname 14 } if %rgK-Line == on { did -c $dname 8 } if %rgkill == on { did -c $dname 9 } if %rgakill == on { did -c $dname 7 } if %rgShun == on { did -c $dname 17 } if %rgban == on { did -c $dname 16 } if %rgKick == on { did -c $dname 15 } if %rgSamode == on { did -c $dname 18 } did -a $dname 10 %banvaxt if ($ulist(*,openrguest,0) != $null) { var %i = 1 | while $ulist(*,openrguest,%i) { did -a $dname 2 $v1 | inc %i } } } on *:dialog:rguest:sclick:*:{ if $istok(7 8 9 13 14 15 16 17 18,$did,32) { $iif($did($did).state == 1,set %rg $+ $gettok($did($did).text,1,32) on,.set %rg $+ $gettok($did($did).text,1,32) off) } if ($did == 3) { if ($did(2) != $null) { did -a $dname 2 $did(2) | .auser openrguest $did(2) } } if ($did == 4) { if $did(2).seltext { .ruser openrguest $did(2).seltext | did -d $dname 2 $did(2).sel } } } on *:dialog:rguest:edit:*:{ %banvaxt = $did(10) }

Nick değişimlerinde bu şekilde dizayn oldu.Hangisini açık(on) görürse ona göre işlem yapacaktır.Kolay gelsin...

 
Alıntı ile Cevapla

Alt 20 Kasım 2008, 14:55   #13
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Koda ek Yapabilir miyiz




Difuzyon iyi iş çıkarmışsın tam istediğim gibi çalışıyo. Yardımları için tşk ler.
Ayrıca detay' a da tşk ederim kolay gelsin.

 
Alıntı ile Cevapla

Cevapla

Etiketler
koda, mirc download, mirc indir, miyiz, yapabilir


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
şu koda muaf kanal ekleyebilir miyiz? DJ44 mIRC Scripting Sorunları 3 10 Nisan 2014 21:57
Koda ilave TİGeR mIRC Scripting Sorunları 1 10 Ağustos 2011 03:43
İleti yazıyor uyarısı yapabilir miyiz? 7610 mIRC Scripting Sorunları 9 10 Mayıs 2010 18:06