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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 18 Mart 2006, 12:40   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
özel kabulde bir problerm




#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 ($nick == $me) { goto son }
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 }


şimdi arkadaşlar bu cok güzel çalışıyor ama ben buna şöyle bişey daha yapma istiyorum mesela 15 sanıyede eyer kabul etmessem Üzgünüm Mesajınız Zaman Aşımına Ugradı dein istiyorum olurmu öle bişey yapa bilirmiyiz acama tşk
#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 ($nick == $me) { goto son }
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 }


şimdi arkadaşlar bu cok güzel çalışıyor ama ben buna şöyle bişey daha yapma istiyorum mesela 15 sanıyede eyer kabul etmessem Üzgünüm Mesajınız Zaman Aşımına Ugradı dein istiyorum olurmu öle bişey yapa bilirmiyiz acama tşk
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Sohbet
Alt 18 Mart 2006, 13:54   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



Arkadaşlar,lütfen alıntı kodlarda değişim yaparken kodu yazan kişiye başvurun.

 
Alıntı ile Cevapla

Alt 18 Mart 2006, 14:01   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] lütfen biraqz arama yapmayı deneyelim ayni kod başkabir başlıkta açılmış

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 18 Mart 2006, 14:06   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.



özür dilerim

 
Alıntı ile Cevapla

Cevapla

Etiketler
kabulde, mirc download, mirc indir, ozel, problerm, özel


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
lightirc özel açma özel kapama özeligi alphae Servisler 8 29 Eylül 2014 00:59
Necdet Özel'den Fikret Bila'ya çok özel açıklamalar PassioN Haber Arşivi 1 07 Ocak 2012 16:27
Necdet Özel'den Fikret Bila'ya Çok Özel Açıklamalar N999 Haber Arşivi 0 05 Ocak 2012 13:22