kod:
Kick Sayacı:
alias kick { kick $1- %kicksayac | kicksayac }
alias kicksayac {
if (%kicksayac == ) {
set %kicksayac 1
}
%kicksayac = %kicksayac + 1
halt
}
Kline Sayacı:
alias kline { kline $1- %klinesayac | klinesayac }
alias klinesayac {
if (%klinesayac == ) {
set %klinesayac 1
}
%klinesayac = %klinesayac + 1
halt
}
Memo Bilgi kutusu
;Memo geldiğinde uyaran bir dialog.
dialog ms {
title \"MemoServ Bilgi Kutusu\"
size -1 -1 220 85
text \"*** Yeni bir notunuz var.\"210 10 220 200
text \"*** Okumak için tamam butonuna basınız.\"310 30 220 200
button \"&Tamam\"470 50 85 25ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}
Kick Sayacı:
alias kick { kick $1- %kicksayac | kicksayac }
alias kicksayac {
if (%kicksayac == ) {
set %kicksayac 1
}
%kicksayac = %kicksayac + 1
halt
}
Kline Sayacı:
alias kline { kline $1- %klinesayac | klinesayac }
alias klinesayac {
if (%klinesayac == ) {
set %klinesayac 1
}
%klinesayac = %klinesayac + 1
halt
}
Memo Bilgi kutusu
;Memo geldiğinde uyaran bir dialog.
dialog ms {
title \"MemoServ Bilgi Kutusu\"
size -1 -1 220 85
text \"*** Yeni bir notunuz var.\"210 10 220 200
text \"*** Okumak için tamam butonuna basınız.\"310 30 220 200
button \"&Tamam\"470 50 85 25ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}