Advertisement
intersys

Untitled

Jul 10th, 2015
393
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 3.64 KB | None | 0 0
  1. dialog bbb {
  2.   title "New Project"
  3.   size -1 -1 199 156
  4.   option dbu
  5.   tab "Friends", 1, 0 0 199 156
  6.   list 4, 2 41 195 98, tab 1 extsel size
  7.   button "Add Friend", 5, 2 140 37 12, tab 1
  8.   button "Delete Friend", 7, 80 140 37 12, tab 1
  9.   button "Clear Freinds", 8, 160 140 37 12, tab 1
  10.   tab "Infoline", 2
  11.   list 9, 2 41 195 98, tab 2 extsel size
  12.   button "Add New", 10, 2 140 37 12, tab 2
  13.   button "Delete Infoline", 11, 80 140 40 12, tab 2
  14.   button "Clear Infolines", 12, 152 140 45 12, tab 2
  15.   tab "Blacklist", 3
  16.   list 13, 2 41 195 98, tab 3 extsel size
  17.   button "Add User", 14, 2 140 37 12, tab 3
  18.   button "Delete User", 15, 52 140 37 12, tab 3
  19.   button "Clear Users", 6, 104 140 37 12, tab 3
  20.   button "Channel Scanner", 16, 153 140 44 12, tab 3
  21. }
  22. dialog Addfriend {
  23.   size -1 -1 284 102
  24.   title "Dialog"
  25.   text "Nick/Mask:",1,9 25 58 17
  26.   text "Modes on join:",2,9 47 74 17
  27.   text "Add Friend",3,116 3 59 17
  28.   edit "",4,71 25 204 16, autohs
  29.   check "+ Voice",5,88 47 65 17
  30.   check "+Op",6,187 47 65 17
  31.   button "Add new friend",7,94 71 106 24
  32. }
  33. Dialog Addinfo {
  34.   size -1 -1 284 193
  35.   title "Dialog"
  36.   text "Nick/Mask:",1,7 23 55 17
  37.   text "Add infoline:",2,7 45 69 17
  38.   text "Edit infoline",3,108 4 68 17
  39.   edit "",4,66 23 208 18, autohs
  40.   edit "",5,70 45 208 18, autohs
  41.   list 6,7 71 272 86,extsel size
  42.   button "Add new infoline",7,4 165 89 24
  43.   button "Edit infoline",8,106 165 71 24
  44.   button "Remove infoline",9,190 165 89 24
  45. }
  46. dialog Addblack {
  47.   size -1 -1 284 121
  48.   title "Dialog"
  49.   text "Nick/Mask:",1,9 25 58 17
  50.   text "Modes on join:",2,9 47 74 17
  51.   text "Add Blacklist",3,116 3 62 17
  52.   text "Reason:",4,9 69 50 17
  53.   edit "",5,71 25 204 16, autohs
  54.   check "+ Kick",6,88 47 65 17
  55.   check "+ Ban",7,187 47 65 17
  56.   button "Add user to the Blacklist",8,76 89 140 24
  57.   edit "",9,54 69 204 16, autohs
  58. }
  59. alias mdx_fullpath { return $+(",C:\Users\Bar\Desktop\Others\בר\mIRC for orel\mdx.dll,") }
  60. alias mdx { dll $mdx_fullpath $1- }
  61. alias mdxinit {
  62.   dll $mdx_fullpath SetMircVersion $version
  63.   dll $mdx_fullpath MarkDialog $dname
  64. }
  65.  
  66. on *:dialog:*:*:*:{
  67.   if ($dname == bbb) {
  68.     if ($devent == init) {
  69.       mdxinit
  70.       mdx SetControlMDX $dname 4 showsel rowselect  > $views
  71.       mdx MarkDialog $dname
  72.       mdx SetControlMDX $dname 1001 positioner  minbox > C:\Users\user\Desktop\בר\mIRC for orel\dialog.mdx
  73.       mdx SetControlMDX $dname 4 ListView report nosortheader single grid > C:\Users\user\Desktop\בר\mIRC for orel\views.mdx
  74.       mdx SetControlMDX $dname 9 ListView report nosortheader single grid > C:\Users\Bar\Desktop\Others\בר\mIRC for orel\views.mdx
  75.       mdx SetControlMDX $dname 13 ListView report nosortheader single grid > C:\Users\Bar\Desktop\Others\בר\mIRC for orel\views.mdx
  76.       did -i $dname 4 1 headerdims 95 200 90
  77.       did -i $dname 4 1 headertext Nick $chr(9) Mask $chr(9) Modes
  78.       did -i $dname 9 1 headerdims 95 200 90
  79.       did -i $dname 9 1 headertext Nick $chr(9) Mask $chr(9) Infolines
  80.       did -i $dname 13 1 headerdims 70 135 130 50
  81.       did -i $dname 13 1 headertext Nick $chr(9) Mask $chr(9) Reason $chr(9) Modes
  82.     }
  83.     elseif ($devent == sclick) {
  84.       if ($did == 17) {
  85.         writeini -n Friends.ini Nick
  86.         writeini -n Daily.ini $dates Etime $did(21)
  87.       }
  88.     }
  89.   }
  90.   elseif ($dname == Addinfo) {
  91.     if ($devent == init) {
  92.       mdxinit
  93.       mdx SetControlMDX $dname 6 ListView report single grid > C:\Users\Bar\Desktop\Others\בר\mIRC for orel\views.mdx
  94.       did -i $dname 6 1 headerdims 46 222
  95.       did -i $dname 6 1 headertext Num $chr(9) Infoline
  96.     }
  97.     elseif ($devent == sclick) {
  98.       writeini -n Friends.ini Nick
  99.       if ($did == 5) { writeini -n Friends.ini Nick $iif($readini(Infoline.ini,%Address2,Info) }
  100.     }
  101.   }
  102. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement