MemoServ Addonu

Eylül 19, 2008 at 11:24 am Yorum bırakın

MemoServ ile ilgili işlemlerinizi pratik olarak halletmenizi sağlayan bir mIRC eklentisi.

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.*
}

Entry filed under: mIRC Hazır Kodlar. Tags: .

Dialoglarda Kayan Yazı BadNick’leri Cinsel Kanala Sokmak

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Takvim

Eylül 2008
P S Ç P C C P
    Eki »
1234567
891011121314
15161718192021
22232425262728
2930  

Most Recent Posts


%d blogcu bunu beğendi: