Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

Özel Kabul Addon’u

Ana Sayfa » internet » IRC » Özel Kabul Addon’u
Özel Kabul Addon’u

on *:open:?: {
msg $nick 2Merhaba ben 4 $me ; 2Size Nasıl Yardımcı Olabilirim?
}

*****

#ozel on
alias ozelkabul {
set %ozelkabul.nick $1
set %ozelkabul.address $2
set %ozelkabul.msg $3-
if ($dialog($1) != $null) { goto son }
dialog -m $1 ozelkabul
:son
}
dialog ozelkabul {
title “Özel Konuşma İsteği”
size -1 -1 164 61
option dbu
edit “”, 1, 40 4 120 10, read
text “Nick :”, 2, 4 7 27 8
text “Adres :”, 3, 4 19 28 8
text “Mesaj :”, 4, 4 31 28 8
edit “”, 5, 40 18 121 10, read
edit “”, 6, 40 30 121 10, read
button “Kabul ET”, 7, 13 44 67 12, flat ok
button “Red ET”, 8, 86 44 66 12, flat cancel
}
on *:dialog:*:init:*:{
if (Özel Konuşma İsteği == $dialog($dname).title ) {
set %ozelkabul.dialog $dname
did -a $dname 1 %ozelkabul.nick
did -a $dname 5 %ozelkabul.address
did -a $dname 6 %ozelkabul.msg
}
}
on *:dialog:*:sclick:*:{
if (Özel Konuşma İsteği == $dialog($dname).title ) {
if ($did == 7) {
.window -w $dname
.msg $dname Özel Konuşma İsteğiniz Kabul Edilmiştir.
.set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
}
if ($did == 8) {
.msg $dname Özel Konuşma İsteğiniz Kabul Edilmedi.
.ignore -pu300 $dname
.closemsg $dname
}
}
}
on *:TEXT:*:?:{
if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
.ozelkabul $nick $address($nick,2) $1-
.msg $nick Lütfen Bekleyiniz… %E-turk
.window -h $nick
}
}

on *:CLOSE:?:{
if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}
#ozel end
alias ac { .enable #ozel }
alias kapa { .disable #ozel }

Özel Kabul Addon’u - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

FBI23 Temmuz 2009

Benim fazla bi gereksinim duymadığım bi addondur.. Bana göre hiç ilgi çekici deildir.Ama millet bu addondan zevk alıyor anlaşılan :) paylaşım için teşekkürler..

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

kelebek

kelebek 09 Kasım 2020

irc invex komutu

irc invex komutu 17 Ocak 2011

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

ÖNE ÇIKAN KATEGORİLER

RASTGELE İÇERİKLER

Baris Akarsu BiyografiSi Deniz Kadayıfı Domuz gribi hakkinda önemli bilgiler Yarışmadan Evlilik mi Çıkıyor? Öğrencilerde sigara alışkanlığı artıyor FarmVille MSN’e Geliyor!

FACEBOOK'TA BİZ

Hoşgeldiniz Kelebek IRCd ve Kelebek Script ile ilgili her türlü yardımı HELPDESK alanından alabilrsiniz.

Kelebek mIRC Script Sohbet Sitesi - Tüm Hakları Saklıdır