[SabotaJ_]

Selam arkadaşlar ben burda bi kod görmüştüm yalnız şimdi bulamadım.Kod şu şekildi özele birisi yazdığı zaman bir pencere açılıyor kabul yada red ediyorsunuz; karşı tarafada özele yazma isteğiniz değerlendiriliyor lütfen bekleyiniz.. bu kodu bilen arkadaşlar yardımcı olabilirse sevinirim teşekkurler.

[deviLqirL]

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 ] ] } 
}

TimeZone'dan Alıntıdır.

[SabotaJ_]

Sağol kardeş yardımın ve paylaşımın İçin teşekkurler eyw.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.