API tools faq
paste
Advertisement
intersys

Untitled

intersys
Jul 31st, 2015
433
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.98 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. dialog Addinfo {
  35. size -1 -1 290 261
  36. title "Dialog"
  37. text "Nick/Mask:",1,7 23 51 13
  38. text "Add infoline:",2,7 45 60 13
  39. text "Edit infoline",3,108 4 55 13
  40. edit "Edit1",4,66 23 208 18
  41. edit "Edit2",5,70 45 208 18
  42. list 6,7 91 272 130,size
  43. button "Add new infoline",7,4 234 89 24
  44. button "Edit infoline",8,106 234 71 24
  45. button "Remove infoline",9,190 234 89 24
  46. button "Show nick infolines",10,10 66 264 20
  47. }
  48. dialog Addblack {
  49. size -1 -1 284 121
  50. title "Dialog"
  51. text "Nick/Mask:",1,9 25 58 17
  52. text "Modes on join:",2,9 47 74 17
  53. text "Add Blacklist",3,116 3 62 17
  54. text "Reason:",4,9 69 50 17
  55. edit "",5,71 25 204 16, autohs
  56. check "+ Kick",6,88 47 65 17
  57. check "+ Ban",7,187 47 65 17
  58. button "Add user to the Blacklist",8,76 89 140 24
  59. edit "",9,54 69 204 16, autohs
  60. }
  61.  
  62. on *:dialog:*:*:*:{
  63. if ($dname == bbb) {
  64. if ($devent == init) {
  65. mdxinit
  66. mdx SetControlMDX $dname 4 showsel rowselect > $views
  67. mdx MarkDialog $dname
  68. mdx SetControlMDX $dname 1001 positioner minbox > $dialog_path
  69. mdx SetControlMDX $dname 4 ListView report nosortheader single grid > $views_path
  70. mdx SetControlMDX $dname 9 ListView report nosortheader single grid > $views_path
  71. mdx SetControlMDX $dname 13 ListView report nosortheader single grid > $views_path
  72. did -i $dname 4 1 headerdims 95 190 100
  73. did -i $dname 4 1 headertext Nick $chr(9) Mask $chr(9) Modes
  74. did -i $dname 9 1 headerdims 95 200 90
  75. did -i $dname 9 1 headertext Nick $chr(9) Mask $chr(9) Infolines
  76. did -i $dname 13 1 headerdims 70 135 130 50
  77. did -i $dname 13 1 headertext Nick $chr(9) Mask $chr(9) Reason $chr(9) Modes
  78. var %x = 1
  79. while ($ini(Friends.ini,%x)) {
  80. did -a $dname 4 $readini(Friends.ini,$ini(Friends.ini,%x),nick) $chr(9) $&
  81. $readini(Friends.ini,$ini(Friends.ini,%x),QName) $+ $iif($readini(Friends.ini,$ifmatch,QName),.users.quakenet.org,None) $chr(9) $&
  82. $iif($readini(Friends.ini,$ini(Friends.ini,%x),modes) == opvoice,Op + Voice,$ifmatch)
  83. inc %x
  84. }
  85. }
  86. elseif ($devent == sclick) {
  87. if ($did == 5) { dialog -m Addfriend Addfriend }
  88. elseif ($did == 10) { dialog -m Addinfo Addinfo }
  89. elseif ($did == 14) { dialog -m Addblack Addblack }
  90. elseif ($did == 7) {
  91. remini Friends.ini $gettok($did($dname,4).seltext,6,32)
  92. did -r $dname 4 | var %x = 1
  93. while ($ini(Friends.ini,%x)) {
  94. did -a $dname 4 $readini(Friends.ini,$ini(Friends.ini,%x),nick) $chr(9) $&
  95. $readini(Friends.ini,$ini(Friends.ini,%x),QName) $+ $iif($readini(Friends.ini,$ifmatch,QName),.users.quakenet.org,None) $chr(9) $&
  96. $iif($readini(Friends.ini,$ini(Friends.ini,%x),modes) == opvoice,Op + Voice,$ifmatch)
  97. inc %x
  98. }
  99. }
  100. elseif ($did == 8) { .remove Friends.ini | did -r $dname 4 }
  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 > $views_path
  138. did -i $dname 6 1 headerdims 46 222
  139. did -i $dname 6 1 headertext Num $chr(9) Infoline
  140. }
  141. if ($devent == sclick) {
  142.  
  143. }
  144. }
  145. }
  146. on *:join:#: {
  147. if ($read(friends.ini, w, * $+ $qname($nick) $+ *) != $null) || ($read(friends.ini, w, * $+ $nick $+ *) != $null) {
  148. if ($me isop #) {
  149. var %x = 1
  150. while ($ini(Friends.ini,%x)) {
  151. if ($readini(Friends.ini,$ifmatch,QName) == $qname($nick)) {
  152. $iif(Voice isin $readini(Friends.ini,$ini(Friends.ini,%x),modes),mode $chan +v $nick,$null)
  153. $iif(Op isin $readini(Friends.ini,$ini(Friends.ini,%x),modes),mode $chan +o $nick,$null)
  154. }
  155. inc %x
  156. }
  157. $iif(Voice isin $readini(Friends.ini,$nick,modes),mode $chan +v $nick,$null)
  158. $iif(Op isin $readini(Friends.ini,$nick,modes),mode $chan +o $nick,$null)
  159. }
  160. msg # $stl(Hi  $+ $nick $+  $+ $chr(44) You are in my friends!)
  161. }
  162. }
  163. ;n7=alias qauth { return $remove($gettok($address($nick,1),1,64),*!*) }
  164. alias checkq { return $iif(users.quakenet.org isin $gettok($address($1,1),2,64),1,0) }
  165. alias qname { return $remove($gettok($address($1,1),2,64),*!*,.users.quakenet.org) }
  166. alias ifmask { return $ial(*!*@ $+ $1).nick }
  167. alias stl { return 15»07»10» $1- 10«07«15« }
  168. alias mdx_fullpath { return $+(",$mircdir,mdx.dll,") }
  169. alias views_path { return $+($mircdir,views.mdx) }
  170. alias dialog_path { return $+($mircdir,dialog.mdx) }
  171. alias mdx { dll $mdx_fullpath $1- }
  172. alias mdxinit {
  173. dll $mdx_fullpath SetMircVersion $version
  174. dll $mdx_fullpath MarkDialog $dname
  175. }
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!