makimaki

Working on it Dialog Buzzen DCX Based

Jun 21st, 2010
262
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 2.91 KB | None | 0 0
  1. ; ######################################
  2. ; #******* Custom Access Lister *******#
  3. ; #********* DCX Based Dialog *********#
  4. ; ######################################
  5. ;This Dialog Was Made For Use With IRCX Servers And You Must  Have DCX.DLL  To Use This.
  6. ;Designed By MakiMaki & extremity
  7. ;Thanks err0r, p0d, and seraphim
  8. ;Enjoy :)
  9.  
  10. ;Edit File Path For DCX.DLL
  11. alias -l dcx { if ($isid) returnex $dll($mircdirdcx\dcx.dll,$1,$2-) | else dll " $+ $mircdirdcx\dcx.dll" $1 $2- }
  12.  
  13. menu channel {
  14.   access : xaccess
  15. }
  16. alias xaccess { dialog -m xaccess xaccess }
  17. dialog xaccess {
  18.   title "Access Lister"
  19.   size -1 -1 606 291
  20. }
  21. on *:dialog:xaccess:init:0:{
  22.   dcx Mark $dname xaxi
  23.   xdialog -b $dname +ty
  24.   xdialog -c $dname 3 check 6 4 150 20 tabstop | xdid -t $dname 3 Auto Access Me
  25.   xdialog -c $dname 6 comboex 170 4 100 300 dropdown tabstop
  26.   xdid -a $dname 6 0 0 0 0 0 Owner
  27.   xdid -a $dname 6 0 0 0 0 0 Host
  28.   xdid -a $dname 6 0 0 0 0 0 HelpOp
  29.   xdid -a $dname 6 0 0 0 0 0 Voice
  30.   xdid -a $dname 6 0 0 0 0 0 Grant
  31.   xdid -a $dname 6 0 0 0 0 0 Deny
  32.   xdid -a $dname 6 0 0 0 0 0 Clear All
  33.   xdialog -c $dname 7 button 338 5 100 20 tabstop | xdid -t $dname 7 Add Access Entry
  34.   xdialog -c $dname 2 button 275 5 40 20 tabstop | xdid -t $dname 2 Clear
  35.   xdialog -c $dname 5 button 445 4 75 20 tabstop | xdid -t $dname 5 Load
  36.   xdialog -c $dname 4 button 525 4 75 20 tabstop | xdid -t $dname 4 Save
  37.   xdialog -c $dname 1 listview 3 28 600 260 report singlesel fullrow nolabelwrap tooltip tabstop grid transparent showsel
  38.   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
  39.   ;Edit the file path to the icons you wish to use.
  40.   xdid -w $dname 1 +n 0 icons\Owner.ICO
  41.   xdid -w $dname 1 +n 0 icons\Host.ICO
  42.   xdid -w $dname 1 +n 0 icons\Helpop.ICO
  43.   xdid -w $dname 1 +n 0 icons\Voice.ICO
  44.   xdid -w $dname 1 +n 0 icons\Deny.ICO
  45.   xdid -w $dname 1 +n 0 icons\Grant.ICO
  46.   access.get
  47. }
  48. alias xaxi { if (mouse isin $2) { halt } }
  49.  
  50. ; ########################
  51. ; #*****Access Data******#
  52. ; ########################
  53. ;Coded By extremity
  54.  
  55. ;DCX Callbacks
  56. alias -l udcx { if ($dcx(IsUnloadSafe)) $iif($menu, .timer 1 0) dll -u dcx.dll | else echo 4 -qmlbfti2 [DCX] Unable to Unload Dll. }
  57. alias -l xdid { if ( $isid ) returnex $dcx( _xdid, $1 $2 $prop $3- ) | dcx xdid $2 $3 $1 $4- }
  58. alias -l xdialog { if ( $isid ) returnex $dcx( _xdialog, $1 $prop $2- ) | dcx xdialog $2 $1 $3- }
  59. alias -l xpop { if ( $isid ) returnex $dcx( _xpop, $1 $prop $2- ) | dcx xpop $2 $1 $3- }
  60. alias -l xpopup { if ( $isid ) returnex $dcx( _xpopup, $1 $prop $2- ) | dcx xpopup $2 $1 $3- }
  61. alias -l mpopup { dcx mpopup $1 $2 }
  62. alias -l dcxml dcx dcxml $1-
  63. alias  xpopup {  if ( $isid ) returnex $dcx( _xpopup, $1 $prop $2- ) |  dcx xpopup $2 $1 $3- }
  64.  
  65. ; ##################################
  66. ; #***********END CODE*************#
  67. ; ##################################
Add Comment
Please, Sign In to add comment