Koda ek Yapabilir miyiz - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

WeiLSiDe · 20 Kasım 2008, 03:18

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Zamanda Yolculuk Yapabilir Miyiz?	xena	Bilim Dünyasından Son Haberler	0	08 Eylül 2019 08:12
Yapay Zeka Yardımıyla Daha iyi Tasarımlar Yapabilir miyiz?	BLueMooN	Teknoloji Dünyasından Son Haberler	0	15 Ekim 2018 10:42
şu koda muaf kanal ekleyebilir miyiz?	DJ44	mIRC Scripting Sorunları	3	10 Nisan 2014 21:57
İleti yazıyor uyarısı yapabilir miyiz?	7610	mIRC Scripting Sorunları	9	10 Mayıs 2010 18:06

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.