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, 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
}

Remotenize Ekledikten Sonra /memoservx memoservx Panele Ulaşabilirsiniz

Alıntıdır