instead of

 var %a = 1
  while ($gettok(%Bad.channels,%a,32)) {
    did -a BadChannel 3 $gettok(%Bad.channels,%a,32)
    inc %a
  }

u can use /didtok
so replace that code above by this

didtok $dname 3 32 %Bad.channels

to avoid error msgs make your alias DBK like this

alias DBK dialog $iif($dialog(badchannel),-v,-m BadChannel) BadChannel

about if (%badchannel.action == 31) { ban -u ...
u can use ban -ku this will ban kick the nick so u can doit like this

if (%badchannel.action == 31) { ban -ku $calc(%Dmins * 60) $comchan($2,%t) $2 %bc.bantype %badchannel 3TempBan %Dmins $+ Minutes! }