MircALem.gen.tr

on *:Load:{
.echo -a Kodlama AdReNaLiNe e ait değildir..
.echo -a www.mircalem.gen.tr
}
dialog op_conf {
title “Op Konferansı”
size -1 -1 231 158
option dbu
edit “”, 2, 3 141 176 13, multi autohs
button “Mesajı Yolla”, 3, 182 142 44 12, default
list 4, 181 4 45 135, size
edit “”, 1, 3 4 176 135, multi vsbar
}
on ^*:notice:*:*: {
if ($target == $+(@,$chan)) {
if ((!$dialog(op_conf)) && (%autopop == $true)) {
set %chan $chan
dialog -md op_conf op_conf
dialog -t op_conf Op Konferansı: %chan
}
did -a op_conf 1 $+([,$nick,]) $1- $crlf
}
halt
}
on ^*:text:*:*: {
if ($target == $+(@,$chan)) {
if ((!$dialog(op_conf)) && (%autopop == $true)) {
set %chan $chan
dialog -md op_conf op_conf
dialog -t op_conf Op Konferansı: %chan
}
did -a op_conf 1 $+([,$nick,]) $1- $crlf
}
halt
}
on *:DIALOG:op_conf:sclick:3: {
//notice @ $+ %chan $did(op_conf,2)
did -a op_conf 1 $+([,$me,]) $did(op_conf,2) $crlf
did -r op_conf 2
did -f op_conf 2
}
on *:DIALOG:op_conf:init:*: {
op_list
list_refresh
}
on *:DIALOG:op_conf:close:*: {
unset %chan
unset %ops
.timer.refresh off
.timer.refresh1 off
}
on *:DIALOG:op_conf:dclick:4: {
set %nick $replace($did(op_conf,4).seltext,@,$null)
query %nick
unset %nick
}
alias -l op_list {
var %a = $nick(# $+ %chan,0,o)
while (%a) {
set %ops $addtok(%ops,$nick(# $+ %chan,%a,o),46)
dec %a
}
set %ops $sorttok(%ops,46)
set %x 1
while (%x <= $nick(# $+ %chan,0,o)) {
set %name $+(@,$gettok(%ops,%x,46))
did -a op_conf 4 %name
inc %x
}
unset %name
unset %x
}
alias ops {
if (!$dialog(op_conf)) {
set %chan $chan
dialog -md op_conf op_conf
dialog -t op_conf Op Konferansı: %chan
if ($1) opsay $1-
if ($1) did -a op_conf 1 $+([,$me,]) $1-
}
else {
dialog -o op_conf op_conf
dialog -n op_conf op_conf
}
}
alias -l list_refresh {
.timer.refresh 0 30 did -r op_conf 4
.timer.refresh1 0 30 op_list
}
alias opsay {
//notice $+ @ %chan $1-
}