IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi

- mIRC Scripting Hazır Kodlar (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/)

- - Özel Kabul|Red Menüsü (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/43152-ozel-kabul-red-menusu.html)

Özel Kabul|Red Menüsü

Kod:

Kod:

#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

paylasim icin tesekkurler @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] emegine saglik

@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] emeğine sağlık ;ççk

Oyşş O Kizz Çocuğu Sizin mi @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] :sarilmakisteyen: Emeğinize Yüreğinize Sağlikk. . .

Evet @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] :)

Alıntı:

KivanC Nickli Üyeden Alıntı (Mesaj 212100)

Evet @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...] :)

RABBİM size Bağişlasinn Çok Şanslisinizz Kiz Çocuğu Canduu . . . ((:

Ayy emeginize yureginize saglikda obi tarafa reesimdeki prensese bayildim Rabbim size bagislasin Hayati su gibi berrak temiz ve saf gecer insallah