| deviLqirL | 14 Temmuz 2009 04:44 |
Cevap: Özele yazma cod yardım ?
Kod:
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. |
