IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
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 }