MemoServ Addon
MemoServ Addon mircalem hazır kodlar
20.01.2011
irc kodu:
dialog memoserv {
title \" Memoserv Komutları \"
size 240 228 280 142
button \"Memo Gönder\", 1, 13 18 105 23
box \"Memo Oku:\", 2, 134 3 140 99
button \"Memo 1\", 31, 140 21 53 20
button \"Memo 4\", 34, 211 21 53 20
button \"Memo 2\", 32, 140 46 53 20
button \"Diğer\", 6, 211 71 53 20
button \"Memo 3\", 33, 140 71 53 20
button \"Son\", 8, 211 46 53 20
button \"Mesaj Sil\", 9, 13 46 105 23
button \"Tümünü Sil\", 11, 13 75 105 23
button \"Mesajları Listele\", 12, 12 104 105 23
box \"\", 13, 5 2 122 133
button \"Tamam\", 14, 137 111 65 22,ok
button \"İptal\", 15, 208 111 65 22, cancel
}
on 1:dialog:memoserv:sclick:*:{
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 memo1 {
title \"Memo Gönder\"
size 307 197 233 170
button \"Gönder\", 1, 36 146 75 20, ok
text \"Nick:\", 2, 15 7 26 13
edit \"\", 3, 47 5 175 19, autohs
text \"Mesaj:\", 4, 6 31 36 16, right
edit \"\", 5, 48 29 174 99, multi, return, vsbar
box \"\", 8, 6 129 221 11
button \"Vazgeç\", 9, 119 146 75 20,cancel
}
on 1:dialog:memo1:sclick:1:{
if $did(3) == $null { %erromsg = Nick Yazmadınız! | dialog -ma erro erro | halt }
if $did(5) == $null { %erromsg = Memo girilmedi! | dialog -ma erro erro | 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 memo2 {
title %memo.t
size 307 197 175 74
button %memo.b, 1, 13 48 68 20,ok
text \"Mesaj No:\", 2, 22 9 87 13
edit \"\", 3, 113 5 35 21, autohs
box \"\", 8, 4 29 165 11
button \"Vazgeç\", 9, 92 48 67 20,cancel
}
on 1:dialog:memo2:sclick:1:{
if $did(3) == $null { %erromsg = Memo Boş Bırakmayın | dialog -ma erro erro | halt }
%msg memoserv %memo.c $did(3)
unset %memo.*
}/dialog -m memoserv memoserv