Selam
burda ircforumlari.net'de buldugum güzel bi memoserv diyalogu var..
kimden oldugunu hatirlamiyorum mahlesef ama ben kendimce biraz büyüttüm ve sohbet ettigim siteye
göre ayarladim.
Görüntü:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on ^*:notice:*eine neue Nachricht*:*:{
if ($nick == memoserv) {
dialog -ma memoservis memoservis
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v memoservis }
}
alias memoservis dialog -m memoservis memoservis
dialog memoservis {
title "MemoServ Paneli"
size -1 -1 286 142
option dbu notheme
icon $mircdirMemoServ\favicontr.ico, 0
button Memo Gönder, 1, 12 18 104 22, default flat multi
box Memo Oku, 2, 134 2 140 98
button Memo 1, 31, 140 20 52 20, default flat multi
button Memo 4, 34, 210 20 52 20, default flat multi
button Memo 2, 32, 140 46 52 20, default flat multi
button Diger, 6, 210 70 52 20, default flat multi
button Memo 3 , 33, 140 70 52 20, default flat multi
button SoN, 8, 210 46 52 20, default flat multi
button Mesaj Sil, 9, 12 46 104 22, default flat multi
button Tümünü Sil, 11, 12 74 104 22, default flat multi
button Mesajlari Listele, 12, 12 104 104 22, default flat multi
box MemoServ, 13, 4 2 122 132
button Tamam, 14, 136 110 64 22, default flat multi ok
button Iptal, 15, 208 110 64 22, default flat multi cancel
}
on 1:dialog:memoservis:sclick:*:{
if $server == $null { return $input(Herhangi Bir Sunucuya Bagli Degilsiniz!,ohud,HATA) | halt }
if $did == 1 { dialog -m memo1 memo1 }
if $did == 8 { %msg memoserv read last }
if $did isnum 31-34 { %msg memoserv read $calc($did - 30) }
if $did == 12 { %msg memoserv list }
if $did == 11 { %msg memoserv del all }
if $did == 9 { If $dialog(memo2) == $null {
%memo.t = Memo Sil
%memo.b = Sil
%memo.c = del
dialog -ma memo2 memo2 } }
if $did == 6 { If $dialog(memo2) == $null {
%memo.t = Memo Oku
%memo.b = Oku
%memo.c = read
dialog -ma memo2 memo2 } }
}
dialog -l memo1 {
title "Memo Gönder "
size -1 -1 232 170
option dbu notheme
icon $mircdirMemoServ\favicontr.ico, 0
button Gönder, 1, 36 146 74 20, default flat multi ok
text Nick:, 2, 14 6 26 12
edit , 3, 46 4 174 18, autohs
text Mesaj:, 4, 6 30 36 16, right
edit , 5, 48 28 174 98, multi return vsbar
box , 8, 6 128 220 10
button Vazgec, 9, 118 146 74 20, default flat multi cancel
}
on 1:dialog:memo1:sclick:1:{
if $server == $null { return $input(Herhangi Bir Sunucuya Bagli Degilsiniz!,ohud,HATA) | halt }
if $did(3) == $null { return $input(Nick Yazmadin Nick Yaz!!!,ohud,HATA) | halt }
if $did(5) == $null { return $input(Kardes Mesaji da Gir bi Zahmet!,ohud,HATA) | halt }
var %tmp = 1
var %tmp2 = $did(5).lines
var %memo =
while (%tmp <= %tmp2) {
%memo = %memo $chr(32) $+ $did(5,%tmp)
inc %tmp
}
%msg memoserv send $did(3) %memo
unset %memo.*
}
dialog -l memo2 {
title "Mesaj No"
size -1 -1 174 74
option dbu notheme
icon $mircdirMemoServ\favicontr.ico, 0
button Tamam, 1, 12 48 68 20, default flat multi ok
text Mesaj No :, 2, 22 8 86 14
edit , 3, 112 4 34 20, autohs
button Iptal, 9, 92 48 66 20, default flat multi cancel
}
on 1:dialog:memo2:sclick:1:{
if $did(3) == $null { return $input(Memo Bos Birakmayiniz!,ohud,HATA) | halt }
%msg memoserv %memo.c $did(3)
unset %memo.*
}
Gelelim istegime..
degerli IF-CoderLeri benim pek bilgim yok kendim denedim yapamadim..
burdaki koda bu sekil..
Görüntü:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Burda resimde göründügü gibi Nachricht von: yerde mesaji gönderenen nicki kayan yazi seklinde VE
Nachricht yazan yerdede mesaji kayan yazi seklinde görüntülenmesini yapabilen olursa süper olur..
Simdiden Yapan ve Yorulan degerli Codere tsk ederim..
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 23:52 -->-> Daha önceki mesaj 23:25 --
özür dilerim 2.nci görünümün kodu unutmusum simdi aklima geldi
ve düzenleme zamani asilmis.. özür dilerekden kodu buraya ekliyorum..
suanki halini benim yaptigim degi$iklikleri kirmizi yaptim..
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on ^*:notice:*eine neue Nachricht*:*:{
if ($nick == memoserv) {
dialog -ma memoservis memoservis
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v memoservis }
}
alias memoservis dialog -m memoservis memoservis
dialog memoservis {
title "MemoServ Paneli"
size -1 -1 286 200
option dbu notheme
icon $mircdirMemoServ\favicontr.ico, 0
button Memo Gönder, 1, 12 18 104 22, default flat multi
box Memo Oku, 2, 134 2 140 98
button Memo 1, 31, 140 20 52 20, default flat multi
button Memo 4, 34, 210 20 52 20, default flat multi
button Memo 2, 32, 140 46 52 20, default flat multi
button Diger, 6, 210 70 52 20, default flat multi
button Memo 3 , 33, 140 70 52 20, default flat multi
button SoN, 8, 210 46 52 20, default flat multi
button Mesaj Sil, 9, 12 46 104 22, default flat multi
button Tümünü Sil, 11, 12 74 104 22, default flat multi
button Mesajlari Listele, 12, 12 104 104 22, default flat multi
box MemoServ, 13, 4 2 122 132
button Tamam, 14, 136 110 64 22, default flat multi ok
button Iptal, 15, 208 110 64 22, default flat multi cancel
box Nachricht von:, 16, 4 140 270 25
box Nachricht:, 17, 4 170 270 25
}
on 1:dialog:memoservis:sclick:*:{
if $server == $null { return $input(Herhangi Bir Sunucuya Bagli Degilsiniz!,ohud,HATA) | halt }
if $did == 1 { dialog -m memo1 memo1 }
if $did == 8 { %msg memoserv read last }
if $did isnum 31-34 { %msg memoserv read $calc($did - 30) }
if $did == 12 { %msg memoserv list }
if $did == 11 { %msg memoserv del all }
if $did == 9 { If $dialog(memo2) == $null {
%memo.t = Memo Sil
%memo.b = Sil
%memo.c = del
dialog -ma memo2 memo2 } }
if $did == 6 { If $dialog(memo2) == $null {
%memo.t = Memo Oku
%memo.b = Oku
%memo.c = read
dialog -ma memo2 memo2 } }
}
dialog -l memo1 {
title "Memo Gönder "
size -1 -1 232 170
option dbu notheme
icon $mircdirMemoServ\favicontr.ico, 0
button Gönder, 1, 36 146 74 20, default flat multi ok
text Nick:, 2, 14 6 26 12
edit , 3, 46 4 174 18, autohs
text Mesaj:, 4, 6 30 36 16, right
edit , 5, 48 28 174 98, multi return vsbar
box , 8, 6 128 220 10
button Vazgec, 9, 118 146 74 20, default flat multi cancel
}
on 1:dialog:memo1:sclick:1:{
if $server == $null { return $input(Herhangi Bir Sunucuya Bagli Degilsiniz!,ohud,HATA) | halt }
if $did(3) == $null { return $input(Nick Yazmadin Nick Yaz!!!,ohud,HATA) | halt }
if $did(5) == $null { return $input(Kardes Mesaji da Gir bi Zahmet!,ohud,HATA) | halt }
var %tmp = 1
var %tmp2 = $did(5).lines
var %memo =
while (%tmp <= %tmp2) {
%memo = %memo $chr(32) $+ $did(5,%tmp)
inc %tmp
}
%msg memoserv send $did(3) %memo
unset %memo.*
}
dialog -l memo2 {
title "Mesaj No"
size -1 -1 174 74
option dbu notheme
icon $mircdirMemoServ\favicontr.ico, 0
button Tamam, 1, 12 48 68 20, default flat multi ok
text Mesaj No :, 2, 22 8 86 14
edit , 3, 112 4 34 20, autohs
button Iptal, 9, 92 48 66 20, default flat multi cancel
}
on 1:dialog:memo2:sclick:1:{
if $did(3) == $null { return $input(Memo Bos Birakmayiniz!,ohud,HATA) | halt }
%msg memoserv %memo.c $did(3)
unset %memo.*
}
29 Ağustos 2017, 00:52
Benzer Konular 
Normal
