Memoserv Paneli Uyeols10
GÖNÜLLİMANİ PAYLAŞIM PLATFORUMUNA HOŞGELDİNİZ
GÖNÜLLİMANİ FORUM'dan Yararlanmak İçin Lütfen ÜYE Olunuz! İyi Forumlar...


Join the forum, it's quick and easy

Memoserv Paneli Uyeols10
GÖNÜLLİMANİ PAYLAŞIM PLATFORUMUNA HOŞGELDİNİZ
GÖNÜLLİMANİ FORUM'dan Yararlanmak İçin Lütfen ÜYE Olunuz! İyi Forumlar...

Would you like to react to this message? Create an account in a few clicks or log in to continue.

    Memoserv Paneli

    CooL
    CooL
    CooL
    ADMİNİSTRATOR

    ADMİNİSTRATOR


    Yaş Yaş : 38
    Mesaj Sayısı Mesaj Sayısı : 1384
    Kayıt Tarihi Kayıt Tarihi : 09/05/09
    • Post n°1

    Memoserv Paneli Empty Memoserv Paneli

    Mesaj tarafından CooL Perş. Tem. 30 2009, 09:36

    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
    }

    • Sayfa başına dön

      Similar topics

      -

      Forum Saati Paz Mayıs 12 2024, 02:14