|
|
 |
| mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
| | Seçenekler | Stil |
| |
14 Ekim 2020, 09:56
| #1 |
 Özel Kabul|Red Menüsü KodKod:
#ozelkabul 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 8,2 Özel Konuşma İsteğiniz Kabul Edilmiştir..! %logo3
.set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
}
if ($did == 8) {
.msg $dname 8,2 Özel Konuşma İsteğiniz Kabul Edilmedi..! %logo3
.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 8,2 Özel Görüşme İsteginiz Degerlendiriliyor.! Lütfen Bekleyiniz.!!! %logo3
}
}
on *LOSE:?:{
if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}
#ozelkabul end 👍 1 | |
| |
|
14 Ekim 2020, 10:02
| #2 |
  | paylasim icin tesekkurler @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
emegine saglik 👍 1
________________ •quod relinquis, alienum est• |
| |
|
14 Ekim 2020, 10:27
| #3 |
 | @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
emeğine sağlık ;ççk 👍 1
________________ vâki olanda hayr vardir. .  |
| |
|
14 Ekim 2020, 10:30
| #4 |
   | Oyşş O Kizz Çocuğu Sizin mi @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]  Emeğinize Yüreğinize Sağlikk. . . 👍 1 |
| |
|
14 Ekim 2020, 10:33
| #5 |
| Evet @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
:) 👍 1 | |
| |
|
14 Ekim 2020, 10:37
| #6 | |
| | Alıntı:
👍 1 | |
| |
|
14 Ekim 2020, 11:14
| #7 |
  | Ayy emeginize yureginize saglikda obi tarafa reesimdeki prensese bayildim Rabbim size bagislasin Hayati su gibi berrak temiz ve saf gecer insallah 👍 1 |
| |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Hybrid-Şeklinde
