Konu: özel kabul
Tekil Mesaj gösterimi
Alt 19 Aralık 2007, 19:25   #3
Çevrimdışı
TImezOne
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: özel kabul




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 10,1Øz€L Gørû$m€ I$t€gïÑîz KåßuL €dïLdï. 6,1Hø$ sØh߀tL€r. 0,1ßÿ. Ñêw¥ørk. .set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok } if ($did == 8) { .msg $dname 10,1Øz€L Gørû$m€ I$t€gïÑïz KåßuL €dïLm€mï$tïr. 3,1Séßèp: 6,1Uÿguñ$uz DåvRåñI$. 0,1ßÿ. Ñêw¥ørk. .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 10,1Øz€L Gørù$m€ I$t€gïÑïz D€g€rL€ñdïrïLïÿØr. 6,1Lûtƒ€ñ ߀kL€ÿïñïz. 0,1ßÿ. Ñêw¥ørk. .window -h $nick } } on *:CLOSE:?:{ if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] } }


 

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver