API tools faq
paste
pony

pager2

pony
Jul 20th, 2015
271
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.58 KB | None | 0 0
raw download clone embed print report
  1. #page.dialog on
  2. on *:TEXT:*:#:{
  3. if (%nick.rely1 isin $1-) && ($nick != $me) && (%pager == ON) && ($pagelists(status) == on) && (!$readini($pagelists(file),halt,#)) { /splay PAGE.wav | /dialog -m page page | timerinfo 1 0 /infopage
  4. }
  5. }
  6. #page.dialog end
  7. /timerpage 1 0
  8.  
  9.  
  10. on *:dialog:page:init:0:{
  11. dll $mdx SetMircVersion $version
  12. dll $mdx MarkDialog $dname
  13. dll $mdx SetDialog $dname bgcolor $rgb(0,0,0)
  14. 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)
  15. 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)
  16. 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)
  17. 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
  18. dll $mdx SetBorderStyle $dname staticedge
  19. }
  20. #page.dialog on
  21. dialog page {
  22. title "ponys Pager System"
  23. size -1 -1 321 47
  24. option dbu
  25. text "You have been paged by:", 2, 1 4 64 8 noborder
  26. text "", 3, 66 4 55 8 noborder
  27. text "Room:", 4, 1 13 17 8 noborder
  28. text "", 5, 19 13 269 8 noborder
  29. text "Date:", 6, 217 1 14 8 noborder
  30. text "", 7, 231 1 56 8 noborder
  31. list 9, 1 22 322 11 noborder
  32. button "Close", 11, 284 34 37 10, flat ok
  33. icon 13, 245 29 20 20, $mircdir\iconpics\profile1.JPG, 0, noborder
  34. icon 14, 227 29 20 20, $mircdir\iconpics\helpop.JPG, 0, noborder
  35. icon 15, 208 29 20 20, $mircdir\iconpics\host.JPG, 0, noborder
  36. icon 16, 188 29 20 20, $mircdir\iconpics\owner.JPG, 0, noborder
  37. icon 17, 145 29 43 20, $mircdir\iconpics\Join1.JPG, 0, noborder
  38. icon 12, 3 29 53 20, $mircdir\iconpics\15mban.JPG, 0, noborder
  39. icon 18, 56 29 53 20, $mircdir\iconpics\1hrban1.JPG, 0, noborder
  40. menu "Joins", 19
  41. item "just join", 20, 19
  42. item "Hello", 21, 19
  43. item "Can i help", 22, 19
  44. item "Ya im here", 23, 19
  45. menu "Warns", 24
  46. item "Dont Talk", 25, 24
  47. item "I Didnt", 26, 24
  48. item "Ill Ignor", 27, 24
  49. item "Put Up", 28, 24
  50. menu "Kicks", 29
  51. item "Rude", 30, 29
  52. item "To Take This", 31, 29
  53. item "Can Be Nice", 32, 29
  54. item "Heard Enought", 33, 29
  55. menu "Bans", 34
  56. item "1 Min", 35, 34
  57. item "15 Min", 36, 34
  58. item "1 Hour", 37, 34
  59. item "24 Hours", 38, 34
  60. }
  61. on *:dialog:page:sclick:17:{ /join %page.chan | msg %page.chan Hey %page.nick Im here,did u need something? }
  62. on *:dialog:page:rclick:17:{ /join %page.chan | echo -a 11PAGED CHANNEL }
  63. on *:dialog:page:sclick:14:{ /join %page.chan | /mode %page.chan1 +h %pro.nick | msg $page.chan Hey %page.nick }
  64. on *:dialog:page:rclick:14:{ /join %page.chan | /mode %page.chan -h %pro.nick }
  65. on *:dialog:page:sclick:15:{ /join %page.chan | /mode %page.chan +o %pro.nick | msg %page.chan Hey %page.nick }
  66. on *:dialog:page:rclick:15:{ /join %page.chan | /mode %page.chan -o %pro.nick }
  67. on *:dialog:page:sclick:16:{ /join %page.chan | /mode %page.chan +q %pro.nick | msg %page.chan Hey %page.nick }
  68. on *:dialog:page:rclick:16:{ /join %page.chan | /mode %page.chan -q %pro.nick }
  69. on *:dialog:page:sclick:13:{ echo -a Looking up %page.nick Profile | sockwrite -n $C_Sock(%page.chan) PID %page.nick }
  70. 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 }
  71. 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 }
  72. on *:dialog:page:menu:20:{ /join %page.chan | echo -a Join Channel }
  73. on *:dialog:page:menu:21:{ /join %page.chan | msg %page.chan Hey %page.nick Hello }
  74. on *:dialog:page:menu:22:{ /join %page.chan | msg %page.chan Hey %page.nick Im here,did u need something? }
  75. on *:dialog:page:menu:23:{ /join %page.chan | msg %page.chan Hey %page.nick Ya Im here :P }
  76. on *:dialog:page:menu:25:{ /join %page.chan | msg %page.chan Hey %page.nick Dont talk to me like that }
  77. on *:dialog:page:menu:26:{ /join %page.chan | msg %page.chan Hey %page.nick I didnt do nothing }
  78. 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 :) }
  79. 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 }
  80. 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 }
  81. 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 }
  82. 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 :) }
  83. 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 }
  84. 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 }
  85. 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 }
  86. 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 }
  87. 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 }
  88. #page.dialog end
  89. alias page { dialog -m page page }
  90. alias nickset { dialog -m nickset nickset }
  91. dialog nickset {
  92. title "plz follow the info"
  93. size -1 -1 314 46
  94. option dbu
  95. button "Set nicks", 1, 74 31 37 12, ok
  96. button "Cancel", 2, 117 31 37 12, cancel
  97. edit "", 5, 60 2 132 26, multi return autohs
  98. text "SET NOTICE NICK", 3, -1 3 58 8, right
  99. text " SET PAGE NICK", 4, -1 12 58 8, right
  100. text "enter your notice nick frist ", 6, 194 0 97 8
  101. 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
  102. }
  103. #page on
  104. on *:TEXT:*:#: {
  105. 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 }
  106. }
  107. menu @Page {
  108. %page.nick %page.chan:/join %page.chan
  109. clear:/clear | .set %page.nick | .set %page.chan
  110. op
  111. .join %page.nick
  112. ..justjoin:/join %page.chan
  113. ..hello:/join %page.chan | msg %page.chan hi there %page.nick | msg %page.chan how u doing
  114. ..tyback:/join %page.chan | msg %page.chan Ty %page.nick :P
  115. ..loliseen:/join %page.chan | msg %page.chan LOL i seen that %page.nick
  116. ..youthink:/join %page.chan | msg %page.chan You think so %page.nick
  117. ..IMhere:/join %page.chan | msg %page.chan im here %page.nick how can i help you
  118. ..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
  119. .kicks %page.nick
  120. ..SHUTAP %page.nick:/raw kick %page.chan %page.nick SHUTAUPPPP :P:P
  121. ..You think %page.nick:/raw kick %page.chan %page.nick HAHA-YOU-THINK
  122. .OPS %page.nick
  123. ..+Owner in %page.chan:/join %page.chan | /mode $active +q %page.nick
  124. ..+Host in %page.chan:/join %page.chan | /mode %page.chan +o %page.nick
  125. ..+Voice in %page.chan:/join %page.chan | /mode %page.chan +v %page.nick
  126. ..-deop in %page.chan:/join %page.chan | /mode %page.chan -qov %page.nick
  127. }
  128.  
  129. #page end
  130. #pageshh off
  131. on *:TEXT:*:#:{
  132. 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 }
  133. }
  134. #pageshh end
  135.  
  136.  
  137. on 1:dialog:nickset:sclick:1:{
  138. if ($numtok($did(5,1),34) > 1) {
  139. set %nick.rely $gettok($did(5,1),4,34)
  140. set %nick.rely1 $gettok($did(5,2),4,34)
  141. }
  142. else {
  143. set %nick.rely $did(5,1)
  144. set %nick.rely1 $did(5,2)
  145. }
  146. }
  147. on *:START:{
  148. :loop
  149. if (!%nick.rely) || (!%nick.rely1) {
  150. if ($$?="Nick Names Plz set Normal text exp pony? Not Unicode or Fancy nicks:") {
  151. .set %nick.rely $gettok($!,1,32) | .set %nick.rely1 $gettok($!,1,32)
  152. goto loop
  153. }
  154. }
  155. }
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!