MemoServ uyarıcısı

dialog memoserv {
  title "Memoserv Addon"
  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.*
}