Memoserv paneli

- alias memoservx {
if !$dialog(memoservx) { /dialog -m memoservx memoservx }
else { return }
}
dialog memoservx {
title \\\\ Dost Script v5 - MemoServ Paneli\\\\
size 240 228 280 142
button \\\\ Memo Gönder\\\\ , 1, 13 18 105 23,flat
box \\\\ Memo Oku:\\\\ , 2, 134 3 140 99,flat
button \\\\ Memo 1\\\\ , 31, 140 21 53 20,flat
button \\\\ Memo 4\\\\ , 34, 211 21 53 20,flat
button \\\\ Memo 2\\\\ , 32, 140 46 53 20,flat
button \\\\ Diğer\\\\ , 6, 211 71 53 20,flat
button \\\\ Memo 3\\\\ , 33, 140 71 53 20,flat
button \\\\ Son\\\\ , 8, 211 46 53 20,flat
button \\\\ Memo Sil\\\\ , 9, 13 46 105 23,flat
button \\\\ Tümünü Sil\\\\ , 11, 13 75 105 23,flat
button \\\\ Memo List\\\\ , 12, 12 104 105 23,flat
box \\\\ \\\\ , 13, 5 2 122 133
button \\\\ Tamam\\\\ , 14, 137 111 65 22,ok flat default
button \\\\ İptal\\\\ , 15, 208 111 65 22 begin_of_the_skype_highlighting              208 111 65 22      end_of_the_skype_highlighting, cancel flat
}
on 1:dialog:memoservx:sclick:*:{
if $did == 1 { if $dialog(memo1) == $null { dialog -ma memo1 memo1 }
}
if $did == 8 { %msg memoserv read last }
if $did isnum 31-34 { %msg memoserv read $calc($did - 30) }
if $did == 15 { halt }
if $did == 12 {
}
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 flat
text \\\\ Nick:\\\\ , 2, 15 7 26 13
edit \\\\ \\\\ , 3, 47 5 175 19, autohs
text \\\\ Memo:\\\\ , 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 flat
}
on 1:dialog:memo1:sclick:1:{
if $did(3) == $null { %erromsg = Yanlış Deneme | dialog -ma erro erro | halt }
if $did(5) == $null { %erromsg = Yanlış Deneme | 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 flat
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 flat
}
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 erro {
title \\\\ Dikkat! HATA Oluştu\\\\
size 238 164 220 90
text %erromsg, 2, 60 19 145 18, center
box \\\\ \\\\ , 3, 12 46 196 10
button \\\\ Tamam\\\\ , 4, 72 62 75 22, ok flat
}
dialog chan3 {
title %chan.t
size 290 181 229 101
button %chan.b, 1, 34 73 75 20,ok flat
text \\\\ Kanal:\\\\ , 2, 29 11 31 13
edit \\\\ \\\\ , 3, 65 7 148 19, autohs
text \\\\ Sifre:\\\\ , 4, 26 31 35 14
edit \\\\ \\\\ , 5, 65 29 148 19, autohs
box \\\\ \\\\ , 8, 7 55 217 11
button \\\\ Vazgeç\\\\ , 9, 123 72 75 20,cancel flat
}
dialog chan4 {
title %chan.t
size 290 181 228 75
button %chan.b, 1, 34 48 75 20,ok flat
text \\\\ Kanal:\\\\ , 2, 29 11 31 13
edit \\\\ \\\\ , 3, 65 7 148 19, autohs
box \\\\ \\\\ , 8, 5 29 217 11
button \\\\ Vazgeç\\\\ , 9, 124 48 75 20,cancel flat
}
dialog chan5 {
title %chan.t
size 290 181 229 101
button %chan.b, 1, 34 73 75 20,ok flat
text \\\\ Kanal:\\\\ , 2, 29 11 31 13
edit \\\\ \\\\ , 3, 65 7 148 19, autohs
text \\\\ Nick:\\\\ , 4, 33 31 26 14
edit \\\\ \\\\ , 5, 65 29 148 19, autohs
box \\\\ \\\\ , 8, 7 55 217 11
button \\\\ Vazgeç\\\\ , 9, 123 72 75 20,cancel flat
}
dialog chan6 {
title \\\\ Access Ekle\\\\
size 290 181 232 117
button \\\\ Ekle\\\\ , 1, 36 92 75 20,ok flat
text \\\\ Kanal:\\\\ , 2, 29 11 31 13
edit \\\\ \\\\ , 3, 65 7 148 19, autohs
text \\\\ Nick:\\\\ , 4, 33 31 26 14
edit \\\\ \\\\ , 5, 65 29 148 19, autohs
text \\\\ Level:\\\\ , 6, 30 54 30 14
edit \\\\ \\\\ , 7, 65 52 32 19
box \\\\ \\\\ , 8, 8 75 217 11
button \\\\ Vazgeç\\\\ , 9, 122 92 75 20,cancel flat
}
dialog chan7 {
title %chan.t
size 290 181 229 101
button %chan.b, 1, 34 73 75 20,ok flat
text \\\\ Kanal:\\\\ , 2, 29 11 31 13
edit \\\\ \\\\ , 3, 65 7 148 19, autohs
text \\\\ Nick:\\\\ , 4, 33 31 26 14
edit \\\\ \\\\ , 5, 65 29 148 19, autohs
box \\\\ \\\\ , 8, 7 55 217 11
button \\\\ Vazgeç\\\\ , 9, 123 72 75 20,cancel flat
}
dialog chan8 {
title %chan.t
size 290 181 232 117
button %chan.b, 1, 36 92 75 20,ok flat
text \\\\ Kanal:\\\\ , 2, 36 11 31 13
edit \\\\ \\\\ , 3, 72 7 148 19, autohs
text \\\\ Nick/Host->>:\\\\ , 4, 2 31 67 15
edit \\\\ \\\\ , 5, 72 29 148 19, autohs
text \\\\ Sebeb:\\\\ , 6, 32 54 35 14
edit \\\\ \\\\ , 7, 73 53 145 19, autohs
box \\\\ \\\\ , 8, 6 75 217 11
button \\\\ Vazgeç\\\\ , 9, 122 92 75 20,cancel flat
}
dialog chan9 {
title %chan.t
size 290 181 243 96
button %chan.b, 1, 41 69 75 20,ok flat
text \\\\ Kanal:\\\\ , 2, 6 8 77 14,right
edit \\\\ \\\\ , 3, 87 6 148 19, autohs
text %chan.e, 4, 6 31 77 16, right
edit \\\\ \\\\ , 5, 87 29 148 19, autohs
box \\\\ \\\\ , 8, 5 51 231 11
button \\\\ Vazgeç\\\\ , 9, 126 68 75 20,cancel flat
}
dialog chan31 {
title %chan.t
size 290 181 243 96
button %chan.b, 1, 41 69 75 20,ok flat
text \\\\ Kanal:\\\\ , 2, 6 8 77 14,right
edit \\\\ \\\\ , 3, 87 6 148 19, autohs
text %chan.e, 4, 6 31 77 16, right
edit \\\\ \\\\ , 5, 87 29 148 19, autohs
box \\\\ \\\\ , 8, 5 51 231 11
button \\\\ Vazgeç\\\\ , 9, 126 68 75 20,cancel flat
}
dialog nick4 {
title %nick.t
size 290 181 229 101
button %nick.b, 1, 34 73 75 20,ok flat
text \\\\ Sifre:\\\\ , 2, 33 11 31 13
edit \\\\ \\\\ , 3, 65 7 148 19, autohs
text \\\\ e-mail:\\\\ , 4, 28 31 34 14,left
edit \\\\ \\\\ , 5, 65 29 148 19, autohs
box \\\\ \\\\ , 8, 7 55 217 11
button \\\\ Vazgeç\\\\ , 9, 123 72 75 20,cancel flat
}
on 1:dialog:nick4:sclick:1:{
if $did(3) == $null { %erromsg = Sifre Bos Birakilmis | dialog -ma erro erro | halt }
if $did(5) == $null { %erromsg = e-mail Bos Birakilmis | dialog -ma erro erro | halt }
%msg nickserv %nick.c $did(3) $did(5)
unset %nick.*
}
on 1:dialog:chan31:init:0:{
did -a chan31 3 %chana
}