alias randomaq dialog -m randomaq randomaq
dialog -l randomaq {
title "Random Korumasi Ekle/Çıkar ! by absolut"
size -1 -1 174 165
option dbu notheme
icon $mircdirrandom\favicon.ico, 0
combo 1, 8 18 112 107, size
button "Ekle ", 2, 130 37 39 12, default flat multi
button "Çıkar", 3, 131 56 39 12, default flat multi
button "Tamam ", 4, 129 79 41 12, default flat multi ok
radio "Random Korumasini Aç", 5, 4 131 63 10
radio "Random Korumasini Kapat ", 6, 85 132 72 10
icon 7, 130 3 40 24, $mircdirrandom\warn.PNG, 0, noborder
text " Random Ident Eklemek için *!*ident*@*", 8, 2 154 108 8
text " Random Nick Eklemek için *Nick*!*@*", 9, 2 143 95 8
text " ßy absolut", 10, 126 149 45 9
}
 
 
 
on *:dialog:randomaq:*:*: {
if ($devent == init) { randomaq.init }
if ($devent == sclick) {
if ($did == 5) { .enable #randomaq }
if ($did == 6) { .disable #randomaq }
if ($did == 2) { if ($did(1) != $null) { /.auser randomaq $did(1) | randomaq.init } }
if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | randomaq.init } }
if ($did == 1) { if ($did(1).state == 1) { writeini " $+ $mircini $+ " randomaq randomaq on }
if ($did(1).state == 0) { writeini " $+ $mircini $+ " randomaq randomaq on }
}
}
}
 
alias randomaq.init {
did -r randomaq 1
if ($readini " $+ $mircini $+ " randomaq randomaq == on) { did -c randomaq 1 }
set %ul 1 
while (%ul <= $ulist(*,0)) {
if ($level($ulist(*,%ul)) == randomaq) { did -a randomaq 1 $ulist(*,%ul) }
inc %ul 1
}
unset %ul
}
#randomaq off
on randomaq:join:#: {
if ($readini " $+ $mircini $+ " randomaq randomaq == on) { 
if (($me isop $chan) || ($me ishelp $chan)) { 
ban $chan $nick %bantipi | kick $chan $nick 0,7 • 1,1 4R15andom 7G15irişi 4Y15asaktir8. 0,7 •  %logo
}
} 
}
on randomaq:text:*:#: {
if ($readini " $+ $mircini $+ " randomaq randomaq == on) { 
if (($me isop $chan) || ($me ishelp $chan)) { 
ban $chan $nick %bantipi | kick $nick $chan 0,7 • 1,1 4R15andom 7G15irişi 4Y15asaktir8. 0,7 •  %logo
}
} 
}
on randomaq:notice:*:#: {
if ($readini " $+ $mircini $+ " randomaq randomaq == on) { 
if (($me isop $chan) || ($me ishelp $chan)) { 
ban $chan $nick %bantipi | kick $nick $chan 0,7 • 1,1 4R15andom 7G15irişi 4Y15asaktir8. 0,7 •  %logo
}
} 
}
on randomaq:action:*:#: {
if ($readini " $+ $mircini $+ " randomaq randomaq == on) { 
if (($me isop $chan) || ($me ishelp $chan)) { 
ban $chan $nick %bantipi | kick $nick $chan 0,7 • 1,1 4R15andom 7G15irişi 4Y15asaktir8. 0,7 •  %logo
}
} 
}
#randomaq end