; ######################################
; #******* Custom Access Lister *******#
; #********* DCX Based Dialog *********#
; ######################################
;This Dialog Was Made For Use With IRCX Servers And You Must  Have DCX.DLL  To Use This.
;Designed By MakiMaki & extremity
;Thanks err0r, p0d, and seraphim
;Enjoy :)

;Edit File Path For DCX.DLL
alias -l dcx { if ($isid) returnex $dll($mircdirdcx\dcx.dll,$1,$2-) | else dll " $+ $mircdirdcx\dcx.dll" $1 $2- }

menu channel {
  access : xaccess
}
alias xaccess { dialog -m xaccess xaccess }
dialog xaccess {
  title "Access Lister"
  size -1 -1 606 291
}
on *:dialog:xaccess:init:0:{
  dcx Mark $dname xaxi
  xdialog -b $dname +ty
  xdialog -c $dname 3 check 6 4 150 20 tabstop | xdid -t $dname 3 Auto Access Me
  xdialog -c $dname 6 comboex 170 4 100 300 dropdown tabstop
  xdid -a $dname 6 0 0 0 0 0 Owner
  xdid -a $dname 6 0 0 0 0 0 Host
  xdid -a $dname 6 0 0 0 0 0 HelpOp
  xdid -a $dname 6 0 0 0 0 0 Voice
  xdid -a $dname 6 0 0 0 0 0 Grant
  xdid -a $dname 6 0 0 0 0 0 Deny
  xdid -a $dname 6 0 0 0 0 0 Clear All
  xdialog -c $dname 7 button 338 5 100 20 tabstop | xdid -t $dname 7 Add Access Entry
  xdialog -c $dname 2 button 275 5 40 20 tabstop | xdid -t $dname 2 Clear
  xdialog -c $dname 5 button 445 4 75 20 tabstop | xdid -t $dname 5 Load
  xdialog -c $dname 4 button 525 4 75 20 tabstop | xdid -t $dname 4 Save
  xdialog -c $dname 1 listview 3 28 600 260 report singlesel fullrow nolabelwrap tooltip tabstop grid transparent showsel
  xdid -t $dname 1 +l 0 23 $null  $chr(9) +l 0 100 User Name $chr(9) +l 0 150 Address $chr(9) +l 0 180 Reason $chr(9) +l 0 40 Time $chr(9) +l 0 100 Set By
  ;Edit the file path to the icons you wish to use.
  xdid -w $dname 1 +n 0 icons\Owner.ICO
  xdid -w $dname 1 +n 0 icons\Host.ICO
  xdid -w $dname 1 +n 0 icons\Helpop.ICO
  xdid -w $dname 1 +n 0 icons\Voice.ICO
  xdid -w $dname 1 +n 0 icons\Deny.ICO
  xdid -w $dname 1 +n 0 icons\Grant.ICO
  access.get
}
alias xaxi { if (mouse isin $2) { halt } }

; ########################
; #*****Access Data******#
; ########################
;Coded By extremity

;DCX Callbacks
alias -l udcx { if ($dcx(IsUnloadSafe)) $iif($menu, .timer 1 0) dll -u dcx.dll | else echo 4 -qmlbfti2 [DCX] Unable to Unload Dll. }
alias -l xdid { if ( $isid ) returnex $dcx( _xdid, $1 $2 $prop $3- ) | dcx xdid $2 $3 $1 $4- }
alias -l xdialog { if ( $isid ) returnex $dcx( _xdialog, $1 $prop $2- ) | dcx xdialog $2 $1 $3- }
alias -l xpop { if ( $isid ) returnex $dcx( _xpop, $1 $prop $2- ) | dcx xpop $2 $1 $3- }
alias -l xpopup { if ( $isid ) returnex $dcx( _xpopup, $1 $prop $2- ) | dcx xpopup $2 $1 $3- }
alias -l mpopup { dcx mpopup $1 $2 }
alias -l dcxml dcx dcxml $1-
alias  xpopup {  if ( $isid ) returnex $dcx( _xpopup, $1 $prop $2- ) |  dcx xpopup $2 $1 $3- }

; ##################################
; #***********END CODE*************#
; ##################################