API tools faq
paste
pony

Pager Pony's

pony
Jul 17th, 2015
232
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.30 KB | None | 0 0
raw download clone embed print report
  1. on *:dialog:page:init:0:{
  2. dll $mdx SetMircVersion $version
  3. dll $mdx MarkDialog $dname
  4. dll $mdx SetDialog $dname bgcolor $rgb(0,0,0)
  5. dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63 textbg $rgb(0,0,0)
  6. dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63 background $rgb(0,0,0)
  7. dll $mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63 text $rgb(198,227,249)
  8. dll $mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63 400 tahoma
  9. dll $mdx SetBorderStyle $dname staticedge
  10. }
  11. #page.dialog on
  12. dialog page {
  13. title "ponys Pager System"
  14. size -1 -1 321 47
  15. option dbu
  16. text "You have been paged by:", 2, 1 4 64 8 noborder
  17. text "", 3, 66 4 55 8 noborder
  18. text "Room:", 4, 1 13 17 8 noborder
  19. text "", 5, 19 13 269 8 noborder
  20. text "Date:", 6, 217 1 14 8 noborder
  21. text "", 7, 231 1 56 8 noborder
  22. list 9, 1 22 322 11 noborder
  23. button "Close", 11, 284 34 37 10, flat ok
  24. icon 13, 245 29 20 20, $mircdir\iconpics\profile1.JPG, 0, noborder
  25. icon 14, 227 29 20 20, $mircdir\iconpics\helpop.JPG, 0, noborder
  26. icon 15, 208 29 20 20, $mircdir\iconpics\host.JPG, 0, noborder
  27. icon 16, 188 29 20 20, $mircdir\iconpics\owner.JPG, 0, noborder
  28. icon 17, 145 29 43 20, $mircdir\iconpics\Join1.JPG, 0, noborder
  29. icon 12, 3 29 53 20, $mircdir\iconpics\15mban.JPG, 0, noborder
  30. icon 18, 56 29 53 20, $mircdir\iconpics\1hrban1.JPG, 0, noborder
  31. menu "Joins", 19
  32. item "just join", 20, 19
  33. item "Hello", 21, 19
  34. item "Can i help", 22, 19
  35. item "Ya im here", 23, 19
  36. menu "Warns", 24
  37. item "Dont Talk", 25, 24
  38. item "I Didnt", 26, 24
  39. item "Ill Ignor", 27, 24
  40. item "Put Up", 28, 24
  41. menu "Kicks", 29
  42. item "Rude", 30, 29
  43. item "To Take This", 31, 29
  44. item "Can Be Nice", 32, 29
  45. item "Heard Enought", 33, 29
  46. menu "Bans", 34
  47. item "1 Min", 35, 34
  48. item "15 Min", 36, 34
  49. item "1 Hour", 37, 34
  50. item "24 Hours", 38, 34
  51. }
  52. on *:dialog:page:sclick:17:{ /join %page.chan | msg %page.chan Hey %page.nick Im here,did u need something? }
  53. on *:dialog:page:rclick:17:{ /join %page.chan | echo -a 11PAGED CHANNEL }
  54. on *:dialog:page:sclick:14:{ /join %page.chan | /mode %page.chan1 +h %pro.nick | msg $page.chan Hey %page.nick }
  55. on *:dialog:page:rclick:14:{ /join %page.chan | /mode %page.chan -h %pro.nick }
  56. on *:dialog:page:sclick:15:{ /join %page.chan | /mode %page.chan +o %pro.nick | msg %page.chan Hey %page.nick }
  57. on *:dialog:page:rclick:15:{ /join %page.chan | /mode %page.chan -o %pro.nick }
  58. on *:dialog:page:sclick:16:{ /join %page.chan | /mode %page.chan +q %pro.nick | msg %page.chan Hey %page.nick }
  59. on *:dialog:page:rclick:16:{ /join %page.chan | /mode %page.chan -q %pro.nick }
  60. on *:dialog:page:sclick:13:{ echo -a Looking up %page.nick Profile | sockwrite -n $C_Sock(%page.chan) PID %page.nick }
  61. on *:dialog:page:sclick:12:{ /join %page.chan | set %kb15m %page.nick | /access $active add deny %kb15m 15 | unset %kb15m | /raw kick %page.chan1 %pro.nick BAN 15 MIN }
  62. on *:dialog:page:sclick:18:{ /join %page.chan | set %kb1hr %page.nick | /access $active add deny %kb1hr 60 | unset %%kb1hr | /raw kick %page.chan1 %pro.nick BAN 1 Hour }
  63. on *:dialog:page:menu:20:{ /join %page.chan | echo -a Join Channel }
  64. on *:dialog:page:menu:21:{ /join %page.chan | msg %page.chan Hey %page.nick Hello }
  65. on *:dialog:page:menu:22:{ /join %page.chan | msg %page.chan Hey %page.nick Im here,did u need something? }
  66. on *:dialog:page:menu:23:{ /join %page.chan | msg %page.chan Hey %page.nick Ya Im here :P }
  67. on *:dialog:page:menu:25:{ /join %page.chan | msg %page.chan Hey %page.nick Dont talk to me like that }
  68. on *:dialog:page:menu:26:{ /join %page.chan | msg %page.chan Hey %page.nick I didnt do nothing }
  69. on *:dialog:page:menu:27:{ /join %page.chan | msg %page.chan Hey %page.nick If U Keep Talking To ME Or About ME Like That ,I Will Put U On Ignor :) }
  70. on *:dialog:page:menu:28:{ /join %page.chan | msg %page.chan Hey %page.nick I didnt Have to put up with this , SO KNOCK IT OFF }
  71. on *:dialog:page:menu:30:{ /join %page.chan | set %kb1m %page.nick 1 | access %page.chan add deny %kb1m 1 | unset %kb1m | /raw kick %page.chan1 %pro.nick Thats Just Rude 1 Min Ban }
  72. on *:dialog:page:menu:31:{ /join %page.chan | set %kb1m %page.nick 1 | /access $active add deny %kb1m 1 | unset %kb1m | /raw kick %page.chan1 %pro.nick I Dont Have To Take This %page.nick , SEE YA LATTERS }
  73. on *:dialog:page:menu:32:{ /join %page.chan | set %kb1m %page.nick 1 | /access $active add deny %kb1m 1 | unset %kb1m | /raw kick %page.chan1 %pro.nick Come Back Latter WHen U Can Be Nice %page.nick :) }
  74. on *:dialog:page:menu:33:{ /join %page.chan | set %kb1m %page.nick 1 | /access $active add deny %kb1m 1 | unset %kb1m | /raw kick %page.chan1 %pro.nick Well I Have Heard Enought %page.nick BY }
  75. on *:dialog:page:menu:35:{ /join %page.chan | set %kb1m %page.nick | /access $active add deny %kb1m 1 | unset %kb1m | /raw kick %page.chan1 %pro.nick BAN 1 MIN }
  76. on *:dialog:page:menu:36:{ /join %page.chan | set %kb15m %page.nick | /access $active add deny %kb15m 15 | unset %kb15m | /raw kick %page.chan1 %pro.nick BAN 15 MIN }
  77. on *:dialog:page:menu:37:{ /join %page.chan | set %kb1hr %page.nick | /access $active add deny %kb1hr 60 | unset %kb1hr | /raw kick %page.chan1 %pro.nick BAN 1 HOUR }
  78. on *:dialog:page:menu:38:{ /join %page.chan | set %kb24hrs %page.nick | /access $active add deny %kb24hrs 1440 | unset %kb24hrs | /raw kick %page.chan1 %pro.nick BAN 24 HOURS }
  79. #page.dialog end
  80. alias page { dialog -m page page }
  81. alias nickset { dialog -m nickset nickset }
  82. dialog nickset {
  83. title "plz follow the info"
  84. size -1 -1 314 46
  85. option dbu
  86. button "Set nicks", 1, 74 31 37 12, ok
  87. button "Cancel", 2, 117 31 37 12, cancel
  88. edit "", 5, 60 2 132 26, multi return autohs
  89. text "SET NOTICE NICK", 3, -1 3 58 8, right
  90. text " SET PAGE NICK", 4, -1 12 58 8, right
  91. text "enter your notice nick frist ", 6, 194 0 97 8
  92. text "then click enter on your key board, enter again then click setnicks BUT Plz Dont Use nicks with fancy letter for it will not work the way it was made to use a nick people typ to call u all the time ", 7, 195 8 97 32
  93. }
  94. #page on
  95. on *:TEXT:*:#: {
  96. if (%nick.rely1 isin $1-) && ($nick != $me) && (%pager == ON) && ($pagelists(status) == on) && (!$readini($pagelists(file),halt,#)) { /splay PAGE.wav | /window -mk0 @Page | /echo @Page 4οΏ½14 $+ $time(h15:14nn15t14) $+ 4!14 $+ $nick Paged You4!14 $chan 4!14 $1- $+ 4οΏ½ | .set %page.kicknick $nick | .set %page.nick $converter($nick) | .set %pro.nick $nick | .set %pro.chan $chan | .set %page.chan $chan | .set %page.chan1 $Comchan($nick,1) | .set %page.msg $1- | did -o page 3 66 %page.nick | did -o page 7 231 $date - $time | did -o page 5 19 %page.chan | did -o page 9 1 %page.msg | disable #page.dialog | timerpage 1 1 enable #page.dialog | did -o page 9 1 %page.msg | /dialog -m page page | halt | haltdef }
  97. }
  98. menu @Page {
  99. %page.nick %page.chan:/join %page.chan
  100. clear:/clear | .set %page.nick | .set %page.chan
  101. op
  102. .join %page.nick
  103. ..justjoin:/join %page.chan
  104. ..hello:/join %page.chan | msg %page.chan hi there %page.nick | msg %page.chan how u doing
  105. ..tyback:/join %page.chan | msg %page.chan Ty %page.nick :P
  106. ..loliseen:/join %page.chan | msg %page.chan LOL i seen that %page.nick
  107. ..youthink:/join %page.chan | msg %page.chan You think so %page.nick
  108. ..IMhere:/join %page.chan | msg %page.chan im here %page.nick how can i help you
  109. ..you rang:/join %page.chan | msg %page.chan im here | msg %page.chan u rang %page.nick | msg %page.chan how can i help u
  110. .kicks %page.nick
  111. ..SHUTAP %page.nick:/raw kick %page.chan %page.nick SHUTAUPPPP :P:P
  112. ..You think %page.nick:/raw kick %page.chan %page.nick HAHA-YOU-THINK
  113. .OPS %page.nick
  114. ..+Owner in %page.chan:/join %page.chan | /mode $active +q %page.nick
  115. ..+Host in %page.chan:/join %page.chan | /mode %page.chan +o %page.nick
  116. ..+Voice in %page.chan:/join %page.chan | /mode %page.chan +v %page.nick
  117. ..-deop in %page.chan:/join %page.chan | /mode %page.chan -qov %page.nick
  118. }
  119.  
  120. #page end
  121. #pageshh off
  122. on *:TEXT:*:#:{
  123. if (%nick.rely1 isin $1-) && ($nick != $me) { /window -mk0 @Page | /echo @Page 4?14 $+ $time(h15:14nn15t14) $+ 4!14 $+ $nick Paged You4!14 $chan 4!14 $1- $+ 4? | echo -a 4[11 $converter($nick) 4 ] 8 ***PAGED YOU*** 11 $1- | halt | haltdef }
  124. }
  125. #pageshh end
  126.  
  127.  
  128. on 1:dialog:nickset:sclick:1:{
  129. if ($numtok($did(5,1),34) > 1) {
  130. set %nick.rely $gettok($did(5,1),4,34)
  131. set %nick.rely1 $gettok($did(5,2),4,34)
  132. }
  133. else {
  134. set %nick.rely $did(5,1)
  135. set %nick.rely1 $did(5,2)
  136. }
  137. }
  138. on *:START:{
  139. :loop
  140. if (!%nick.rely) || (!%nick.rely1) {
  141. if ($$?="Nick Names Plz set Normal text exp pony? Not Unicode or Fancy nicks:") {
  142. .set %nick.rely $gettok($!,1,32) | .set %nick.rely1 $gettok($!,1,32)
  143. goto loop
  144. }
  145. }
  146. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!