[Sunay]

Selam Arkadaşlar bana 2 tane hazır kod lazim
1. Dialog Seklinde BanListesini
2. Dialog Seklinde Kanal listesini

şimdiden tesekkurler

[diEfoRyoU]

daha iisi Verilmiş ağaıda Tebrikler MaeLStrOm

[Sunay]

tesekkur ederim fakat arkadaşım sunucudaki kanallari listeliycez dialog icine ?

[MaeLStrOm]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

dialog liste {
title "List&Ban"
size -1 -1 181 153
option dbu
edit "", 1, 113 17 62 132, multi autovs vsbar center
button "Kanallar", 2, 123 5 37 12
button "Banlar", 3, 13 5 37 12
edit "", 4, 4 17 98 133, multi autovs vsbar
}
on *:dialog:liste:*:*:{
if ($devent == INIT) {
if ($active != #) {
did -a liste 4 Kanal üzerinde olmadan banları göremessin.
}
}
if ($devent == SCLICK) {
if ($did == 3) { 
set %chan $active
if ($regex(%chan,$chr(35))) {
var %ban $ibl(%chan,0)
did -r liste 4
if %ban == 0 { did -a liste 4 Ban Yokki }
while %ban {
did -a liste 4 $crlf
did -a liste 4 Banmask: $ibl(%chan,%ban)
did -a liste 4 $crlf
did -a liste 4 Ban Atan: $ibl(%chan,%ban).by
did -a liste 4 $crlf
did -a liste 4 Ban Tarihi: $ibl(%chan,%ban).date
did -a liste 4 $crlf
did -a liste 4 $crlf
dec %ban
}
}
elseif (!$regex(%chan,$chr(35))) { 
did -r liste 4 
did -a liste 4 Kanal üzerinde bulunmalısın. 
}
elseif $regex(%chan,$chr(35) && !$chan(%chan).ibl {
who %chan
return
}
}
if ($did == 2) {
did -r liste 1
enable #rawpüf
list
halt
}
}
}
#rawpüf off
raw 321:*: halt
raw 322:*: haltdef | did -a liste 1 $2 | did -a liste 1 $crlf 
raw 323:*: disable #rawpüf
#rawpüf end
raw *:*: echo -a $numeric $1-
alias liste { dialog -ma liste liste }