API tools faq
paste
Advertisement
pony

user list

pony
May 7th, 2020
67
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 20.77 KB | None | 0 0
raw download clone embed print report
  1. Make a Folder called Scripts[v1] then make a file called Lists.ini in the mirc folder ,
  2.  
  3.  
  4. alias userlists {
  5. if ($1 == file) { return Scripts[v1]\User_Lists.ini }
  6. if ($1 == status) { return $readini(Scripts[v1]\User_Lists.ini,userlists,status) }
  7. if ($1 == message) {
  8. if ($2 == autokick) {
  9. if ($3 == added) { return $+(userlists[a-kick\added]) }
  10. elseif (!$3) { return $+(userlists[a-kick\,$readini(Scripts[v1]\User_Lists.ini,kick,$ial($nick).addr),]) }
  11. }
  12. }
  13. if ($1 == scan) {
  14. if (!$2) { echo -a $theme(time) error $theme(x) userlists 1:2 you did not specify a channel1...2 }
  15. elseif ($2) {
  16. echo -a $theme(time) 1* ------------------------------2 | echo -a $theme(time) 1*2 scanning $+($lower($theme(replace,$left($2,7))),1...2) for users1...2 | echo -a $theme(time) 1* ------------------------------2
  17. var %cnt = 1, %ttl = $nick($2,0), %users = 0
  18. while (%cnt <= %ttl) { $iif($readini($userlists(file),kick,$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 $+(kick,$str( ,2)) $theme(x) $nick($2,%cnt)) | inc %cnt }
  19. var %cnt = 1
  20. while (%cnt <= %ttl) { $iif($readini($userlists(file),gowner,$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 gowner $theme(x) $nick($2,%cnt)) | inc %cnt }
  21. var %cnt = 1
  22. while (%cnt <= %ttl) { $iif($readini($userlists(file),gvoice,$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 gvoice $theme(x) $nick($2,%cnt)) | inc %cnt }
  23. var %cnt = 1
  24. while (%cnt <= %ttl) { $iif($readini($userlists(file),ghost,$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 ghost $theme(x) $nick($2,%cnt)) | inc %cnt }
  25. var %cnt = 1
  26. while (%cnt <= %ttl) { $iif($readini($userlists(file),ghelper,$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 ghelper $theme(x) $nick($2,%cnt)) | inc %cnt }
  27. var %cnt = 1
  28. while (%cnt <= %ttl) { $iif($readini($userlists(file),gwatch,$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 gwatch $theme(x) $nick($2,%cnt)) | inc %cnt }
  29. var %cnt = 1
  30. while (%cnt <= %ttl) { $iif($readini($userlists(file),gurl,$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 gurl $theme(x) $nick($2,%cnt)) | inc %cnt }
  31. var %cnt = 1
  32. while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(lowner.,$remove($2,$chr(35),$chr(37))),$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 lowner $theme(x) $nick($2,%cnt)) | inc %cnt }
  33. var %cnt = 1
  34. while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(lhelper.,$remove($2,$chr(35),$chr(37))),$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 lhelper $theme(x) $nick($2,%cnt)) | inc %cnt }
  35. var %cnt = 1
  36. while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(lhost.,$remove($2,$chr(35),$chr(37))),$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 lhost  $theme(x) $nick($2,%cnt)) | inc %cnt }
  37. var %cnt = 1
  38. while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(gurl.,$remove($2,$chr(35),$chr(37))),$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 gurl  $theme(x) $nick($2,%cnt)) | inc %cnt }
  39. var %cnt = 1
  40. while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(lspec.,$remove($2,$chr(35),$chr(37))),$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 lspec  $theme(x) $nick($2,%cnt)) | inc %cnt }
  41. var %cnt = 1
  42. while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(!NoLq.,$remove($2,$chr(35),$chr(37))),$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 !NoLq  $theme(x) $nick($2,%cnt)) | inc %cnt }
  43. var %cnt = 1
  44. while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(!NoLo.,$remove($2,$chr(35),$chr(37))),$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 !NoLo  $theme(x) $nick($2,%cnt)) | inc %cnt }
  45. var %cnt = 1
  46. while (%cnt <= %ttl) { $iif($readini($userlists(file),$+(!localshit.,$remove($2,$chr(35),$chr(37))),$gaddy($nick($2,%cnt)).addr),echo -a $theme(time) 1*2 !localshit  $theme(x) $nick($2,%cnt)) | inc %cnt }
  47. var %cnt = 1
  48. echo -a $theme(time) 1* ------------------------------2 | echo -a $theme(time) 1*2 scan complete1...2 | echo -a $theme(time) 1* ------------------------------2
  49. }
  50. }
  51. :end
  52. }
  53.  
  54. menu menubar,status,nicklist {
  55. -
  56. User Lists
  57. .$iif($readini($userlists(file),userlists,status) == on,$style(2)) Enable:{ writeini -n $userlists(file) userlists status on | echo -a $theme(time) user lists $theme(x) enabled1...2 }
  58. .$iif($readini($userlists(file),userlists,status) != on,$style(2)) Disable:{ writeini -n $userlists(file) userlists status off | echo -a $theme(time) user lists $theme(x) disabled1...2 }
  59. .-
  60. .$iif($readini($userlists(file),halt,$active) == on,$style(1)) $iif($me ison #,Halt Channel) {
  61. if ($readini($userlists(file),halt,$active) == on) { remini $userlists(file) halt $active * | echo -a $theme(time) user lists $theme(x) halt for $remove($active,$chr(35),$chr(37)) 1:2 removed1...2 }
  62. elseif (!$readini($userlists(file),halt,$active)) { writeini -n $userlists(file) halt $active on | echo -a $theme(time) user lists $theme(x) halt for $remove($active,$chr(35),$chr(37)) 1:2 added1...2 }
  63. }
  64. .-
  65. .$iif($me ison #,Auto Kick)
  66. ..$iif($readini($userlists(file),kick,$ial($$1).addr),$style(2)) Add:{
  67. writeini -n $userlists(file) kick $gaddy($1) $$1 $$?="Enter Reason:" $$1 | echo -a $theme(time) user lists $theme(x) a_kick 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2)
  68. if ($me isowner $active) {
  69. if ($$1 isowner $active) { /kick $active $$1 $userlists(message,autokick,added) }
  70. }
  71. if ($me isowner $active) || ($me isop $active) {
  72. if ($$1 isop $active) && ($$1 !isowner $active) { KICK $active $$1 $userlists(message,autokick,added) }
  73. elseif ($$1 !isop $active) && ($$1 !isowner $active) { KICK $active $$1 $userlists(message,autokick,added) }
  74. }
  75. }
  76. ..$iif(!$readini($userlists(file),kick,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) kick $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) a_kick 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  77. ..-
  78. ..$iif($readini($userlists(file),kick,$ial($$1).addr),$style(2)) Quick Add:{
  79. writeini -n $userlists(file) kick $gaddy($1) $$1 quick.add | echo -a $theme(time) user lists $theme(x) a_kick 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2)
  80. if ($me isowner $active) {
  81. if ($$1 isowner $active) { KICK $active $$1 $userlists(message,autokick,added) }
  82. }
  83. if ($me isowner $active) || ($me isop $active) {
  84. if ($$1 isop $active) && ($$1 !isowner $active) { KICK $active $$1 $userlists(message,autokick,added) }
  85. elseif ($$1 !isop $active) && ($$1 !isowner $active) { KICK $active $$1 $userlists(message,autokick,added) }
  86. }
  87. }
  88. .-
  89. .$iif($me ison #,Global)
  90. ..$iif($me ison #,Global Owner)
  91. ...$iif($readini($userlists(file),gowner,$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) gowner $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) g_owner 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  92. ...$iif(!$readini($userlists(file),gowner,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) gowner $gaddy($1) * | echo -a $theme(time) user lists $theme(x) g_owner 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  93. ..$iif($me ison #,Global Host)
  94. ...$iif($readini($userlists(file),ghost,$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) ghost $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) g_host 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  95. ...$iif(!$readini($userlists(file),ghost,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) ghost $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) g_host 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  96. ..$iif($me ison #,Global Helper)
  97. ...$iif($readini($userlists(file),ghelper,$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) ghelper $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) g_helper host 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  98. ...$iif(!$readini($userlists(file),ghelper,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) ghelper $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) g_helper host 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  99. ..$iif($me ison #,Global Watch)
  100. ...$iif($readini($userlists(file),gwatch,$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) gwatch $gaddy($1) $$1 | /auser watch $$1 - $buzz.decode($$1) *! $+ $$ial($$1 $+ *,1).addr - $fulldate by 4[0 $me 4] | echo -a $theme(time) user lists $theme(x) g_watch 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  101. ...$iif(!$readini($userlists(file),gwatch,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) gwatch $ial($$1).addr * | .ruser watch *! $+ $$ial($$1 $+ *,1).addr | echo -a $theme(time) user lists $theme(x) g_watch 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  102. ..$iif($me ison #,Global Voice)
  103. ...$iif($readini($userlists(file),gvoice,$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) gvoice $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) g_voice 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  104. ...$iif(!$readini($userlists(file),gvoice,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) gvoice $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) g_voice 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  105. ..$iif($me ison #,Global URL)
  106. ...$iif($readini($userlists(file),gurl,$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) gurl $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) g_url 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  107. ...$iif(!$readini($userlists(file),gurl,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) gurl $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) g_url 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  108. .-
  109. .$iif($me ison #,Local)
  110. ..$iif($me ison #,Local Owner)
  111. ...$iif($readini($userlists(file),$+(lowner.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) $+(lowner.,$remove($active,$chr(35),$chr(37))) $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) l_owner 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  112. ...$iif(!$readini($userlists(file),$+(lowner.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) $+(lowner.,$remove($active,$chr(35),$chr(37))) $gaddy($1) | echo -a $theme(time) user lists $theme(x) l_owner 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  113. ..$iif($me ison #,Local Host)
  114. ...$iif($readini($userlists(file),$+(lhost.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) $+(lhost.,$remove($active,$chr(35),$chr(37))) $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) l_host 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  115. ...$iif(!$readini($userlists(file),$+(lhost.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) $+(lhost.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) l_host 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  116. ..$iif($me ison #,Local Helper)
  117. ...$iif($readini($userlists(file),$+(lhelper.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) $+(lhelper.,$remove($active,$chr(35),$chr(37))) $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) l_host Helper 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  118. ...$iif(!$readini($userlists(file),$+(lhelper.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) $+(lhelper.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) l_host Helper 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  119. .$iif($me ison #,Local STOPS)
  120. ..$iif($me ison #,Local spec)
  121. ...$iif($readini($userlists(file),$+(lspec.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) $+(lspec.,$remove($active,$chr(35),$chr(37))) $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) l_spec 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  122. ...$iif(!$readini($userlists(file),$+(lspec.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) $+(lspec.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) l_spec 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  123. ..$iif($me ison #,No Local Owner)
  124. ...$iif($readini($userlists(file),$+(!NoLq.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) $+(!NoLq.,$remove($active,$chr(35),$chr(37))) $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) l_No Local Owner 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  125. ...$iif(!$readini($userlists(file),$+(!NoLq.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) $+(!NoLq.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) l_No Loacal Owner 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  126. ..$iif($me ison #,No Local Host)
  127. ...$iif($readini($userlists(file),$+(!NoLo.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) $+(!NoLo.,$remove($active,$chr(35),$chr(37))) $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) l_NO Local Host 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  128. ...$iif(!$readini($userlists(file),$+(!NoLo.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) $+(!NoLo.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) l_NO Local Host 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  129. ..$iif($me ison #,Local Shit List)
  130. ...$iif($readini($userlists(file),$+(!localshit.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) $+(!localshit.,$remove($active,$chr(35),$chr(37))) $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) l_Local Shit List 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  131. ...$iif(!$readini($userlists(file),$+(!localshit.,$remove(#,$chr(35),$chr(37))),$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) $+(!localshit.,$remove($active,$chr(35),$chr(37))) $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) l_Local Shit List 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  132. .-
  133. .$iif($me ison #,Watch list)
  134. ..$iif($readini($userlists(file),gwatch,$ial($$1).addr),$style(2)) Add:{ writeini -n $userlists(file) gwatch $gaddy($1) $$1 | echo -a $theme(time) user lists $theme(x) g_Watch 1:2 add $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  135. ..$iif(!$readini($userlists(file),gwatch,$ial($$1).addr),$style(2)) Rem:{ remini $userlists(file) gwatch $ial($$1).addr * | echo -a $theme(time) user lists $theme(x) g_Watch 1:2 rem $+(1[2,$$1,1\2,$left($ial($$1).addr,17),1*]2) }
  136. .$iif($me ison #,Scan Channel) { userlists scan # }
  137. .Open File:{ run $userlists(file) }
  138. }
  139. on ^*:join:#:{
  140. if ($nick != $me) && (!$hget(flood,#)) && ($userlists(status) == on) && (!$readini($userlists(file),halt,#)) {
  141. if ($me isowner #) || if($nick($chan,p-o-n-y,') || if($nick($chan,pony_1,') || if($nick($chan,pony,') {
  142. if ($readini($userlists(file),gowner,$gaddy($nick).addr)) { MODE $chan +q $nick }
  143. if ($readini($userlists(file),ghost,$gaddy($nick).addr)) { MODE $chan +o $nick }
  144. if ($readini($userlists(file),ghelper,$gaddy($nick).addr)) { MODE $chan +h $nick }
  145. if ($readini($userlists(file),$+(lowner.,$remove(#,$chr(35),$chr(37))),$gaddy($nick).addr)) { MODE $chan +q $nick }
  146. }
  147. if ($me isowner #) || ($me isop #) || if($nick($chan,p-o-n-y,') || if($nick($chan,pony_1,') || if($nick($chan,pony,') {
  148. if ($readini($userlists(file),kick,$gaddy($nick).addr)) { KICK $chan $nick $userlists(message,autokick) | /access $chan add DENY $ial($nick).addr 0 : $userlists(message,autokick) }
  149. if ($readini($userlists(file),gvoice,$gaddy($nick).addr)) { MODE $chan +v $nick }
  150. if ($readini($userlists(file),$+(lhost.,$remove(#,$chr(35),$chr(37))),$gaddy($nick).addr)) { MODE $chan +o $nick }
  151. if ($readini($userlists(file),$+(lspec.,$remove(#,$chr(35),$chr(37))),$gaddy($nick).addr)) { MODE $chan -v $nick }
  152. if ($readini($userlists(file),$+(!NoLq.,$remove(#,$chr(35),$chr(37))),$gaddy($nick).addr)) { MODE $chan -q $nick }
  153. if ($readini($userlists(file),$+(!NoLo.,$remove(#,$chr(35),$chr(37))),$gaddy($nick).addr)) { MODE $chan -o $nick }
  154. if ($readini($userlists(file),$+(lhelper.,$remove(#,$chr(35),$chr(37))),$gaddy($nick).addr)) { MODE $chan +h $nick }
  155. if ($readini($userlists(file),$+(!localshit.,$remove(#,$chr(35),$chr(37))),$gaddy($nick).addr)) { .set %deny.nick $nick | /kick $chan $nick ACCESS DENY | /access $chan add deny $gaddy(%deny.nick).addr)) 5 ACCESS DENY }
  156. if ($readini($userlists(file),gwatch,$gaddy($nick).addr)) { .echo -a 4WARNING 11 $nick is a 8Watched 11user 4WARNING in $chan | /splay flood.wav }
  157. }
  158. hadd -mu1 flood $chan $true
  159. }
  160. }
  161. on ^*:OP:#:{
  162. if ($readini($userlists(file),$+(!NoLo.,$remove(#,$chr(35),$chr(37))),$ial($opnick).addr)) goto Test | halt
  163. {
  164. :test {
  165. if ($readini(nohost.ini, $nick, nohost) != true) {
  166. writeini nohost.ini $nick nohost true
  167. /mode # -o $opnick
  168. .msg $chan ( $nick ) Please do not Host ( $opnick ) , he/she is not alowed to host here
  169. .timer 1 30 /remini nohost.ini $nick nohost
  170. halt
  171. }
  172. else {
  173. /mode # -o $opnick | /mode # -o $nick | msg $chan Hey ( $nick ) I said Do NOT HOST ( $opnick ) Here!!!!
  174. }
  175. }
  176. {
  177. :end {
  178. echo -a 4 END
  179. }
  180. }
  181. }
  182. }
  183. on ^*:OWNER:#:{
  184. if ($readini($userlists(file),$+(!NoLq.,$remove(#,$chr(35),$chr(37))),$ial($opnick).addr)) goto Test | halt
  185. {
  186. :test {
  187. if ($readini(nohost.ini, $nick, nohost) != true) {
  188. writeini nohost.ini $nick nohost true
  189. /mode # -q $opnick
  190. .msg $chan ( $nick ) Please do not Owner ( $opnick ) , he/she is not alowed to Owner here
  191. .timer 1 30 /remini nohost.ini $nick nohost
  192. halt
  193. }
  194. else {
  195. /mode # -q $opnick | /mode # -q $nick | msg $chan Hey ( $nick ) I said Do NOT OWNER ( $opnick ) Here!!!!
  196. }
  197. }
  198. {
  199. :end {
  200. echo -a 4 END
  201. }
  202. }
  203. }
  204. }
  205. on ^*:VOICE:#:{
  206. if (($1 == +v) && ($2 == $vnick)) {
  207. if ($readini($userlists(file),$+(lspec.,$remove(#,$chr(35),$chr(37))),$ial($vnick).addr)) goto Test | halt
  208. {
  209. :test {
  210. if ($readini(nohost.ini, $nick, nohost) != true) {
  211. writeini nohost.ini $nick nohost true
  212. /mode # -v $vnick
  213. .msg $chan ( $nick ) Please do not Voice ( $vnick ) , he/she is not alowed to Have Voice here
  214. .timer 1 30 /remini nohost.ini $nick nohost
  215. halt
  216. }
  217. else {
  218. /mode # -v $vnick | /mode # -q $nick | /mode # -o $nick | /mode # -v $nick | msg $chan Hey ( $nick ) I said Do NOT Voice ( $vnick ) here !
  219. }
  220. }
  221. {
  222. :end {
  223. echo -a 4 END
  224. }
  225. }
  226. }
  227. }
  228. }
  229.  
  230. ;on watch:TEXT:*:*:{
  231. if ($chan == $active) { goto test232 }
  232. /splay ChatTag.wav | .set %watch.can $Chan | /echo # 8* $converter($nick) WATCHED user 4(11 $stripstyle($1-) 4) 8 WATCHED 
  233. :test232 {
  234. /splay ChatTag.wav | .set %watch.can $Chan | /echo -a 8* $converter($nick) WATCHED user in %watch.can 4(11 $stripstyle($1-) 4) 8 WATCHED 
  235. }
  236. }
  237. ;on watch:TEXT:*:*:/splay ChatTag.wav | .set %watch.can $Chan | /echo # 8* $converter($nick) WATCHED user 4(11 $+($chr(40),$chr(160),$stripstyle($1-),$chr(160),$chr(41)) 4) 8 WATCHED  | /echo -a 8* $converter($nick) WATCHED user in %watch.can 4(11 $stripstyle($1-) 4) 8 WATCHED 
  238. ;on watch:join:#:{
  239. .set %watch.can $Chan | /splay online.wav | /echo # 8* WATCHED user 4(11HAS Joined %watch.can 4) 8 WATCHED  | /echo -a 8* WATCHED user 4(11HAS Joined %watch.can 4) 8 WATCHED  | /joined %watch.can
  240. }
  241.  
  242.  
  243. echo -a 10* TAB 4 1 11Main 
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!