Tekil Mesaj gösterimi
Alt 15 Kasım 2008, 21:39   #2
Çevrimdışı
Difuzyon
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Ozel kabul-red code hata.




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#ozelkabul on
alias ozelkabul {
set %ozelkabul.nick $1
set 
%ozelkabul.address $2
set 
%ozelkabul.msg $3-
if (
$dialog($1) != $null) { goto son }
dialog -$1 ozelkabul
:son
}
dialog ozelkabul {
title "Özel Konuşma İsteği"
size --1 164 51
option dbu
edit 
""140 4 120 10read
text 
"Nick :"24 7 27 8
text 
"Mesaj :"34 19 28 8
edit 
""540 18 121 10read
button 
"Kabul ET"713 34 67 12flat ok
button 
"Red ET"886 34 66 12flat 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.msg
}
}
on *:dialog:*:sclick:*:{
if (
Özel Konuşma İsteği == $dialog($dname).title ) {
if (
$did == 7) {
.
window -w $dname
.msg $dname 4Gorusme talebi Ozel Konusma Isteginiz Kabul Edilmistir.
.
set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
}
if (
$did == 8) {
.
msg $dname 4Gorusme talebi 4Özel konuşma isteğinize cevap vericek şuan kimse yok1away.!
.
closemsg $dname
}
}
}
on *:TEXT:*:?:{
if (
$nick == $me) { goto son }
if (%
ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
.
ozelkabul $nick $address($nick,2) $1-
.
msg $nick 4Gorusme talebi 1Selam 41Gorusme talebiniz isleme alinmistir.. Lutfen bekleyiniz ..
.
window -h $nick
}
}
on *:CLOSE:?:{
if (%
ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}
#ozelkabul end
menu status,menubar {
Özel Kabul
.Aç : .enable #ozelkabul
.Kapat: .disable #ozelkabul
..Engelle (Ignore)
..
Ekle:/ignore $$| /echo -s 0,$$1 ignore Edildi. | .notice $$1 ignore Edildin... Artık Yazdıklarını Görmeyeceğim ! %muhabbet
..Çıkar:/ignore -$$| /echo -a 0,$$1 ignore 'den Kaldırıldı... 
..-
..Listele:/ignore -l


Kodu eklerken\alırken "sembol" durumlarına dikkat etmek gerekir..
8) = sembol oluşmuş...
İyi paylaşımlar...

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver