IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Ozel kabul-red code hata. (https://www.ircforumlari.net/mirc-scripting-sorunlari/156764-ozel-kabul-red-code-hata.html)

Ozel kabul-red code hata.

#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 51
option dbu
edit "", 1, 40 4 120 10, read
text "Nick :", 2, 4 7 27 8
text "Mesaj :", 3, 4 19 28 8
edit "", 5, 40 18 121 10, read
button "Kabul ET", 7, 13 34 67 12, flat ok
button "Red ET", 8, 86 34 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.msg
}
}
on *:dialog:*:sclick:*:{
if (Özel Konuşma İsteği == $dialog($dname).title ) {
if ($did == 7) {
.window -w $dname
.msg $dname 4[ Gorusme talebi ] Ozel Konusma Isteginiz Kabul Edilmistir.
.set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
}
if ($did == {
.msg $dname 4[ Gorusme talebi ] 4Özel konuşma isteğinize cevap vericek şuan kimse yok. 1away.!
.closemsg $dname
}
}
}
on *:TEXT:*:?:{
if ($nick == $me) { goto son }
if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
.ozelkabul $nick $address($nick,2) $1-
.msg $nick 4[ Gorusme talebi ] 1Selam 4: 1Gorusme talebiniz isleme alinmistir.. Lutfen bekleyiniz ..
.window -h $nick
}
}
on *:CLOSE:?:{
if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}
#ozelkabul end
menu status,menubar {
Özel Kabul
.Aç : .enable #ozelkabul
.Kapat: .disable #ozelkabul
..Engelle (Ignore)
..Ekle:/ignore $$1 | /echo -s 0,2 $$1 ignore Edildi. | .notice $$1 ignore Edildin... Artık Yazdıklarını Görmeyeceğim ! %muhabbet
..Çıkar:/ignore -r $$1 | /echo -a 0,2 $$1 ignore 'den Kaldırıldı...
..-
..Listele:/ignore -l
}

Bu codede özele red yaptiğimda karşimdaki insan'a mesaj gitmiyor , düzeltme şansimiz ?

* /if: Geçersiz format (Satır 35, ozelkabul.txt) bide bu hatayi veriyor.

Cevap: Ozel kabul-red code hata.

PHP- Kodu:

   #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 51
option dbu
edit "", 1, 40 4 120 10, read
text "Nick :", 2, 4 7 27 8
text "Mesaj :", 3, 4 19 28 8
edit "", 5, 40 18 121 10, read
button "Kabul ET", 7, 13 34 67 12, flat ok
button "Red ET", 8, 86 34 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.msg
}
}
on *:dialog:*:sclick:*:{
if (Özel Konuşma İsteği == $dialog($dname).title ) {
if ($did == 7) {
.window -w $dname
.msg $dname 4[ Gorusme talebi ] Ozel Konusma Isteginiz Kabul Edilmistir.
.set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
}
if ($did == 8) {
.msg $dname 4[ Gorusme talebi ] 4Özel konuşma isteğinize cevap vericek şuan kimse yok. 1away.!
.closemsg $dname
}
}
}
on *:TEXT:*:?:{
if ($nick == $me) { goto son }
if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
.ozelkabul $nick $address($nick,2) $1-
.msg $nick 4[ Gorusme talebi ] 1Selam 4: 1Gorusme talebiniz isleme alinmistir.. Lutfen bekleyiniz ..
.window -h $nick
}
}
on *:CLOSE:?:{
if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}
#ozelkabul end
menu status,menubar {
Özel Kabul
.Aç : .enable #ozelkabul
.Kapat: .disable #ozelkabul
..Engelle (Ignore)
..Ekle:/ignore $$1 | /echo -s 0,2 $$1 ignore Edildi. | .notice $$1 ignore Edildin... Artık Yazdıklarını Görmeyeceğim ! %muhabbet
..Çıkar:/ignore -r $$1 | /echo -a 0,2 $$1 ignore 'den Kaldırıldı... 
..-
..Listele:/ignore -l
}

Kodu eklerken\alırken "sembol" durumlarına dikkat etmek gerekir..
8) = sembol oluşmuş...
İyi paylaşımlar...

Cevap: Ozel kabul-red code hata.

emeğine sağlık

Cevap: Ozel kabul-red code hata.

Muaf Nick ekleyebilir bir özellik olabilir mi?

Cevap: Ozel kabul-red code hata.

Alıntı:

Prens Nickli Üyeden Alıntı (Mesaj 1041670886)

Muaf Nick ekleyebilir bir özellik olabilir mi?

Bu bölümü
-

Kod:

on *:TEXT:*:?:{

if ($nick == $me) { goto son }

if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {

.ozelkabul $nick $address($nick,2) $1-

.msg $nick 4[ Gorusme talebi ] 1Selam 4: 1Gorusme talebiniz isleme alinmistir.. Lutfen bekleyiniz ..

.window -h $nick

}

}

Bu şekilde değiştir
-

Kod:

on *:TEXT:*:?:{

if $istok($me Nick1 Nick2 Nick3 Nick4 Nick5, $nick, 32) { goto son }

if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {

.ozelkabul $nick $address($nick,2) $1-

.msg $nick 4[ Gorusme talebi ] 1Selam 4: 1Gorusme talebiniz isleme alinmistir.. Lutfen bekleyiniz ..

.window -h $nick

:son

}

}