ö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 |
Arkadaşlar,lütfen alıntı kodlarda değişim yaparken kodu yazan kişiye başvurun. |
[Ü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ış |
özür dilerim |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:38. |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net