API tools faq
paste
Advertisement
intersys

Untitled

intersys
Jul 29th, 2015
311
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 6.30 KB | None | 0 0
raw download clone embed print report
  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.   title "Dialog"
  24.   size -1 -1 203 102
  25.   option pixels
  26.   text "Nick:", 1, 9 25 29 17
  27.   text "Modes on join:", 2, 9 47 74 17
  28.   text "Add Friend", 3, 81 3 59 17
  29.   edit "", 4, 42 25 154 16, autohs
  30.   check "+ Voice", 5, 88 47 58 17
  31.   check "+Op", 6, 152 47 65 17
  32.   button "Add new friend/Edit Friend", 7, 32 71 145 24
  33. }
  34.  
  35.  
  36. Dialog Addinfo {
  37.   size -1 -1 284 193
  38.   title "Dialog"
  39.   text "Nick/Mask:",1,7 23 55 17
  40.   text "Add infoline:",2,7 45 69 17
  41.   text "Edit infoline",3,108 4 68 17
  42.   edit "",4,66 23 208 18, autohs
  43.   edit "",5,70 45 208 18, autohs
  44.   list 6,7 71 272 86,extsel size
  45.   button "Add new infoline",7,4 165 89 24
  46.   button "Edit infoline",8,106 165 71 24
  47.   button "Remove infoline",9,190 165 89 24
  48. }
  49. dialog Addblack {
  50.   size -1 -1 284 121
  51.   title "Dialog"
  52.   text "Nick/Mask:",1,9 25 58 17
  53.   text "Modes on join:",2,9 47 74 17
  54.   text "Add Blacklist",3,116 3 62 17
  55.   text "Reason:",4,9 69 50 17
  56.   edit "",5,71 25 204 16, autohs
  57.   check "+ Kick",6,88 47 65 17
  58.   check "+ Ban",7,187 47 65 17
  59.   button "Add user to the Blacklist",8,76 89 140 24
  60.   edit "",9,54 69 204 16, autohs
  61. }
  62. alias mdx_fullpath { return $+(",C:\Users\Bar\Desktop\Others\בר\mIRC for orel\mdx.dll,") }
  63. alias mdx { dll $mdx_fullpath $1- }
  64. alias mdxinit {
  65.   dll $mdx_fullpath SetMircVersion $version
  66.   dll $mdx_fullpath MarkDialog $dname
  67. }
  68.  
  69. on *:dialog:*:*:*:{
  70.   if ($dname == bbb) {
  71.     if ($devent == init) {
  72.       mdxinit
  73.       mdx SetControlMDX $dname 4 showsel rowselect  > $views
  74.       mdx MarkDialog $dname
  75.       mdx SetControlMDX $dname 1001 positioner  minbox > C:\Users\Bar\Desktop\Others\בר\mIRC for orel\dialog.mdx
  76.       mdx SetControlMDX $dname 4 ListView report nosortheader single grid > C:\Users\Bar\Desktop\Others\בר\mIRC for orel\views.mdx
  77.       mdx SetControlMDX $dname 9 ListView report nosortheader single grid > C:\Users\Bar\Desktop\Others\בר\mIRC for orel\views.mdx
  78.       mdx SetControlMDX $dname 13 ListView report nosortheader single grid > C:\Users\Bar\Desktop\Others\בר\mIRC for orel\views.mdx
  79.       did -i $dname 4 1 headerdims 95 190 100
  80.       did -i $dname 4 1 headertext Nick $chr(9) Mask $chr(9) Modes
  81.       did -i $dname 9 1 headerdims 95 200 90
  82.       did -i $dname 9 1 headertext Nick $chr(9) Mask $chr(9) Infolines
  83.       did -i $dname 13 1 headerdims 70 135 130 50
  84.       did -i $dname 13 1 headertext Nick $chr(9) Mask $chr(9) Reason $chr(9) Modes
  85.       var %x = 1
  86.       while ($ini(Friends.ini,%x)) {
  87.         did -a $dname 4 $readini(Friends.ini,$ini(Friends.ini,%x),nick) $chr(9) $&
  88.           $readini(Friends.ini,$ini(Friends.ini,%x),QName) $+ $iif($readini(Friends.ini,$ifmatch,QName),.users.quakenet.org,None) $chr(9) $&
  89.           $iif($readini(Friends.ini,$ini(Friends.ini,%x),modes) == opvoice,Op + Voice,$ifmatch)
  90.         inc %x
  91.       }
  92.     }
  93.     elseif ($devent == sclick) {
  94.       if ($did == 5) { dialog -m Addfriend Addfriend }
  95.       if ($did == 10) { dialog -m Addinfo Addinfo }
  96.       if ($did == 14) { dialog -m Addblack Addblack }
  97.       if ($did == 17) {
  98.         writeini -n Friends.ini Nick
  99.         writeini -n Daily.ini $dates Etime $did(21)
  100.       }
  101.     }
  102.   }
  103.   elseif ($dname == Addfriend) {
  104.     if ($devent == sclick) {
  105.       if ($did == 7) {  
  106.         if ($ial($did(4)) != $null) {
  107.           if ($checkq($did(4)) == 1) {
  108.             writeini -n friends.ini $did(4) QName $qname($did(4))
  109.           }
  110.           if ($checkq($did(4)) != 1) {
  111.             writeini -n friends.ini $did(4) QName None
  112.           }
  113.           if ($did(5).state == 1) || ($did(6).state == 1)  {
  114.             writeini -n friends.ini $did(4) modes $iif($did(5).state == 1,Voice,Op)
  115.             writeini -n friends.ini $did(4) modes $iif($did(6).state == 1,Op,Voice)
  116.           }
  117.           if ($did(5).state == 1) && ($did(6).state == 1)  { writeini -n friends.ini $did(4) modes OpVoice }
  118.           elseif ($did(5).state == 0) && ($did(6).state == 0)  { writeini -n friends.ini $did(4) modes None }
  119.           writeini -n friends.ini $did(4) Nick $did(4)
  120.           did -r bbb 4
  121.           var %x = 1
  122.           while ($ini(Friends.ini,%x)) {
  123.             did -a bbb 4 $readini(Friends.ini,$ini(Friends.ini,%x),nick) $chr(9) $&
  124.               $readini(Friends.ini,$ini(Friends.ini,%x),QName) $+ $iif($readini(Friends.ini,$ifmatch,QName),.users.quakenet.org,None) $chr(9) $&
  125.               $iif($readini(Friends.ini,$ini(Friends.ini,%x),modes) == opvoice,Op + Voice,$ifmatch)
  126.             inc %x
  127.           }
  128.           echo -ag 03Succsefuly!01 $did(4) added to the friends list.
  129.         }
  130.         else { echo -ag 04Error!01 $did(4) not found! }
  131.       }
  132.     }
  133.   }
  134.   elseif ($dname == Addinfo) {
  135.     if ($devent == init) {
  136.       mdxinit
  137.       mdx SetControlMDX $dname 6 ListView report single grid > C:\Users\Bar\Desktop\Others\בר\mIRC for orel\views.mdx
  138.       did -i $dname 6 1 headerdims 46 222
  139.       did -i $dname 6 1 headertext Num $chr(9) Infoline
  140.     }
  141.   }
  142. }
  143. on *:join:#: {
  144.   if ($read(friends.ini, w, * $+ $qname($nick) $+ *) != $null) || ($read(friends.ini, w, * $+ $nick $+ *) != $null) {
  145.     var %x = 1
  146.     ;if ($me isop #) {
  147.     while ($ini(Friends.ini,%x)) {
  148.       if ($readini(Friends.ini,$ifmatch,QName) == $qname($nick)) {
  149.         $iif(Voice isin $readini(Friends.ini,$ini(Friends.ini,%x),modes),mode $chan +v $nick,$null)
  150.         $iif(Op isin $readini(Friends.ini,$ini(Friends.ini,%x),modes),mode $chan +o $nick,$null)
  151.       }
  152.       inc %x
  153.     }
  154.  
  155.     msg # $stl(Hi  $+ $nick $+  $+ $chr(44) You are in my friends!)
  156.   }
  157. }
  158. alias checkq { return $iif(users.quakenet.org isin $ial($1).host,1,0) }
  159. alias qname { return $gettok($ial($1).host,1,46) }
  160. alias ifmask { return $ial(*!*@ $+ $1).nick }
  161. alias stl { return 15»07»10» $1- 10«07«15« }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!