Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 30th, 2012  |  syntax: None  |  size: 20.35 KB  |  hits: 17  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. dialog AccessDialog {
  2.   title "The Access Bot Dialog vNa & Zrt"
  3.   size -1 -1 139 90
  4.   option dbu
  5.   tab "Settings", 1, 5 3 125 77
  6.   box "Settings", 2, 11 19 112 39, tab 1
  7.   text "Channel:", 3, 17 31 25 8, tab 1
  8.   edit "", 5, 47 29 50 10 begin_of_the_skype_highlighting              47 29 50 10      end_of_the_skype_highlighting, tab 1 autohs center
  9.   text "ChanTag:", 4, 18 42 25 8, tab 1
  10.   button "Save/Close", 7, 9 63 37 12, tab 1 ok cancel
  11.   button "Save", 8, 49 63 37 12 begin_of_the_skype_highlighting              49 63 37 12      end_of_the_skype_highlighting, tab 1 ok
  12.   edit "", 6, 47 41 50 10 begin_of_the_skype_highlighting              47 41 50 10      end_of_the_skype_highlighting, tab 1 autohs center
  13.   button "Styles", 10, 90 63 37 12 begin_of_the_skype_highlighting              90 63 37 12      end_of_the_skype_highlighting, tab 1
  14.   tab "Users", 9
  15.   list 15, 43 25 81 52 begin_of_the_skype_highlighting              43 25 81 52      end_of_the_skype_highlighting, tab 9 size
  16.   button "Add", 16, 10 23 25 12, tab 9
  17.   button "Del", 17, 10 51 25 12, tab 9
  18.   button "Access", 18, 10 37 25 12, tab 9
  19.   button "Clear", 19, 10 65 25 12, tab 9
  20. }
  21. dialog styles {
  22.   title "Styles Dialog Zrt & vNa"
  23.   size -1 -1 102 39
  24.   option dbu
  25.   text "Style1:", 1, 4 5 22 8
  26.   text "Style2:", 2, 4 17 22 8
  27.   edit "", 3, 28 5 50 10, autohs
  28.   edit "", 4, 28 16 50 10, autohs
  29.   button "Save", 5, 78 5 23 20, ok
  30.   edit "", 6, 11 27 84 10, autohs center
  31. }
  32.  
  33.  
  34. on *:dialog:AccessDialog:init:*: {
  35.   var %b = 1
  36.   while (%b <= $ini(Access.ini,0)) { did -a $dname 15 $ini(Access.ini,%b) | inc %b }
  37.   if (%MYChannel) { did -a $dname 5 %MyChannel }
  38.   if (%voicetag) { did -a $dname 6 %voicetag }
  39. }
  40. on *:dialog:Styles:init:*: {
  41.   if (%acc.color1) { did -a $dname 3 %Acc.Color1 }
  42.   if (%acc.color2) { did -a $dname 4 %Acc.Color2 }
  43.   if (%acc.color1) && (%acc.color2) { did -a $dname 6 %Acc.Color1    %Acc.color2 }
  44. }
  45. on *:dialog:Styles:edit:*: {
  46.   if ($did == 3) { .set %Acc.Color1 $did(3) }
  47.   if ($did == 4) { .set %Acc.Color2 $did(4) }
  48. }
  49. on *:dialog:AccessDialog:Edit:*: {
  50.   if ($did == 5) { /set %MyChannel $did(5) }
  51.   if ($did == 6) { /set %VoiceTag $did(6) }
  52. }
  53. on *:dialog:AccessDialog:sclick:*: {
  54.   if ($did == 18) { /run Access.ini }
  55.   if ($did == 10) { /Styles }
  56.   if ($did == 16) {
  57.     :START2
  58.     var %ddx =  $readini(Access.ini,%User,Level)
  59.     Var %User = $Input(Type Username,e,Type Username)
  60.     if (%User) {
  61.       if ($readini(Access.ini,%User,User)) { echo -a User %User already used. | GOTO :START2 }
  62.       else {
  63.         var %Pass = $Input(Type Password,e,Type Password)
  64.         if (%Pass) {
  65.           :MasterPass
  66.           var %MasterPass = $input(Type Masterpass,e,Type MasterPass)
  67.           if (11 !iswm %MasterPass) { echo -a Wrong MasterPass | GOTO MasterPass }
  68.           else {
  69.             :Level
  70.             var %Level = $Input(Type Level Admin/Master/Owner,e,Type Level Admin/Master/Owner)
  71.             if (%Level == Admin) { did -a $dname 15 %User - $readini(Access.ini,%User,Level) | echo -a Admin successfully added. (User: %User ) (Pass:  %Pass ) | .writeini -n Access.ini %User User %User | .writeini -n Access.ini %User Pass %Pass | .writeini -n Access.ini %User status OFF | .writeini -n Access.ini %User Level Admin | .writeini -n Access.ini %User Since $date $+ - $+ $time | .writeini -n Access.ini %User By Dialog Control | .writeini -n Access.ini %User LastLogin never }
  72.             elseif (%Level == Master) { did -a $dname 15 %User | echo -a Master successfully added. (User: %User ) (Pass:  %Pass ) | .writeini -n Access.ini %User User %User | .writeini -n Access.ini %User Pass %Pass | .writeini -n Access.ini %User Status OFF | .writeini -n Access.ini %User Level Master | .writeini -n Access.ini %User Since $date $+ - $+ $time | .writeini -n Access.ini %User By Dialog Control | .writeini -n Access.ini %User LastLogin never }
  73.             elseif (%Level == Owner) { did -a $dname 15 %User %ddx | echo -a Owner successfully added. (User: %User ) (Pass: %Pass ) | .writeini -n Access.ini %User User %User | .writeini -n Access.ini %User Pass %Pass | .writeini -n Access.ini %User Status OFF | .writeini -n Gatherbot\Access.ini %User Level Owner | .writeini -n Access.ini %User Since $date $+ - $+ $time | .writeini -n Access.ini %User By Dialog Control | .writeini -n Access.ini %User LastLogin never }
  74.             elseif (%Level) && (%Level != Admin) && (%Level != Master) && (%Level != Owner) { echo -a $des(Wrong level) | GOTO Level }
  75.           }
  76.         }
  77.       }
  78.     }
  79.   }
  80. }
  81. if ($did == 17) && ($did($dname,15).seltext) { .remini -n Access.ini $did($dname,15).seltext | echo -a $did($dname,15).seltext successfully removed.) | did -d $DName 15 $did($DName,16).sel }
  82. if ($did == 19) {
  83.   var %x = $input(Are You Sure?,y,Are You Sure)
  84.   if (%x == $true) {
  85.     did -r $dname 16
  86.     remove Access.ini
  87.   }
  88. }
  89. alias Accdialog { if (!$dialog(AccessDialog)) dialog -m AccessDialog AccessDialog }
  90. alias Styles { if (!$dialog(Styles)) dialog -m Styles Styles }
  91. menu * {
  92.   Dialog Access Bot { Accdialog }
  93. }
  94. on *:text:*:?: {
  95.   if ($1 == !Login) && ($readini(Access.ini,$2,Pass) == $3) && (!$read(Access.ini, w, * $+ $address)) && ($3) {
  96.     if ($nick !ison %MYChannel) { msg $nick You must be on the channel %MYChannel for login.) | halt }
  97.     .writeini -n Access.ini $2 Logged $address | whois $nick
  98.     .writeini -n Access.ini $2 Status ON
  99.     .writeini -n Access.ini $2 LastLogin $date $+ - $+ $asctime(HH:nn)
  100.     msg $nick You Have been Connected to $Upper($readini(Access.ini,$2,level)) Account. ( $+ $2 $+ )
  101.     if ($readini(Access.ini,$2,level == Owner) && ($readini(Access.ini,$2,level == Master) && ($readini(Access.ini,$2,level == Admin) { mode %MYChannel +o $nick }
  102.   }
  103. }
  104. on *:text:*:?: {
  105.   if ($1 == !Logout) && ($Show($address($nick,2),Owner).logged?) || ($Show($address($nick,2),Master).logged?) || ($Show($address($nick,2),Admin).logged?) {
  106.     var %o = $ifmatch
  107.     var %L = $upper($left($readini(Access.ini,%o,Level),1)) $+ $remove($readini(Access.ini,%o,Level),$left($readini(Access.ini,%o,Level),1))
  108.     msg $nick You have been disconnected from your %L $+ account. ( $+ %o $+ ) Reason: Logout)
  109.     msg %MyChannel ( $+ $nick $+ has disconnected from his %L $+ account. ( $+ %o $+ ) Reason: Logout)
  110.     .writeini -n Access.ini %o Status OFF | .remini -n Access.ini %o Logged
  111.     if ($nick !ison %MYChannel) { msg $nick You must be on the channel %MYChannel for logout. | halt }
  112.   }
  113. }
  114. ;;;;;;;;;;;; Owners Commands. Level == Owner
  115. on *:text:*:?: {
  116.   if ($Show($address,Owner).logged?) {
  117.     if ($1 == !help) || ($1 == !commands) && (!%kflood) {
  118.       msg $nick 14,1[15«0 00,01Commands: 09,01?0bantag -9TAG0- 9• ?0unbantag -9TAG0- 9• ?0qban -9Nick0,9Qacc0- 9• ?0-qban -9Nick0,9Qacc0-  15,1»14]
  119.       msg $nick 14,1[15«0 00,01Commands: 09,01?0av -9Nick0,9Qacc0- 9• ?0-av -9Nick0,9Qacc0- 9• ?0ao -9Nick0,9Qacc0- 9• ?0-ao -9Nick0,9Qacc0-  15,1»14]
  120.       msg $nick 14,1[15«0 00,01Commands: 09,01?0add -9Admin0,9Master0- -9Name0- -9Pass0- 9• ?0del -9Name0- -9Level0-  15,1»14]
  121.       msg $nick 14,1[15«0 00,01Commands: 09,01?0voicetag -9TAG0- 9• ?0unvoicetag -9TAG0- 9• ?0voicetaglist 15,1»14]
  122.       msg $nick 14,1[15«0 00,01Commands: 09,01?0Topic -9Massage0- 9• ?0Welcome -9Massage0- 15,1»14]
  123.       msg $nick 14,1[15«0 00,01Commands in channel: 09,01?0/9!0Owners 9• ?0/9!0Masters 9• ?0/9!0Admins 15,1»14]
  124.       set -u5 %kflood ON
  125.     }
  126.     elseif ($1 == ?ao) && ($2) && (!%kflood) {
  127.       msg q chanlev %MYchannel $2 +ao
  128.       msg $nick %c1 $+ 0,1[15« 0ao By Access bot 15»0]
  129.       set -u5 %kflood ON
  130.     }
  131.     elseif ($1 == ?-ao) && ($2) && (!%kflood) {
  132.       msg q chanlev %MYchannel $2 -ao
  133.       msg $nick %c1 $+ 0,1[15« 0Deao By Access bot 15»0]
  134.       set -u5 %kflood ON
  135.     }
  136.     elseif ($1-2 == !Add admin) && ($3) && (!%kflood) && (i$readini(Access.ini,$3,User)) {
  137.       .timer 1 1 .writeini -n Access.ini $3 User $3
  138.       .timer 1 2 .msg $nick %Acc.Color1 $+ Done! The $3 Has been Admin Account For Login Type : !login $3 $4
  139.       .timer 1 2 .writeini -n Access.ini $3 Pass $4
  140.       .timer 1 3 .writeini -n Access.ini $3 Status OFF
  141.       .timer 1 4 .writeini -n Access.ini $3 Level Admin
  142.       .timer 1 5 .writeini -n Access.ini $3 By $nick
  143.       .timer 1 6 .writeini -n Access.ini $3 LastLogin NEVER
  144.     }
  145.     elseif ($1-2 == !Del Admin) && ($readini(Access.ini,$3,Admin) {
  146.       .remini -n Access.ini $3
  147.       .timer 1 2 .msg $nick %Acc.Color1 $+ $3 Has Been From Access Bot $+ %acc.color2
  148.     }
  149.     elseif ($1-2 == !Add Master) && ($3) && (!%kflood) && (i$readini(Access.ini,$3,User)) {
  150.       .timer 1 1 .writeini -n Access.ini $3 User $3
  151.       .timer 1 2 .msg $nick %Acc.Color1 $+ Done! The $3 Has been Master Account For Login Type : !login $3 $4
  152.       .timer 1 2 .writeini -n Access.ini $3 Pass $4
  153.       .timer 1 3 .writeini -n Access.ini $3 Status OFF
  154.       .timer 1 4 .writeini -n Access.ini $3 Level Master
  155.       .timer 1 5 .writeini -n Access.ini $3 By $nick
  156.       .timer 1 6 .writeini -n Access.ini $3 LastLogin NEVER
  157.     }
  158.     elseif ($1-2 == !Del Master) && ($readini(Access.ini,$3,Master) {
  159.       .remini -n Access.ini $3
  160.       .timer 1 2 .msg $nick %Acc.Color1 $+ $3 Has Been From Access Bot $+ %acc.color2
  161.     }
  162.     elseif ($1 == ?qban) && ($2) && (!%kflood) {
  163.       msg Q permban %MYchannel $2
  164.       msg $nick %c1 $+ 0,1[15« 0AddQBan By Access bot 15»0]
  165.       set -u5 %kflood ON
  166.     }
  167.     elseif ($1 == ?-qban) && ($2) && (!%kflood) {
  168.       msg q bandel %MYchannel $3- $2
  169.       msg $nick %c1 $+ 0,1[15« 0DeleteQBan By Access bot 15»0]
  170.       mode %MYchannel -b $2
  171.       set -u5 %kflood ON
  172.     }
  173.     elseif ($1 == ?av) && ($2) && (!%kflood) {
  174.       msg q chanlev %MYchannel $2 +av
  175.       msg $nick 0,1[15« 0av By Access bot 15»0]
  176.       set -u5 %kflood ON
  177.     }
  178.     elseif ($1 == ?voicetag) && ($2) && (!%kflood) {
  179.       if ($2 isin %voicetag) { msg $nick 0,1[15«0 $2 is Already in the Voicetag List! 15»0] | set -u5 %kflood ON | halt }
  180.       set %voicetag %voicetag $2
  181.       set %vtag $2
  182.       voiceall
  183.       msg $nick 0,1[15«0 $2 is Added to Voicetag List. 15»0]
  184.       set -u5 %kflood ON
  185.     }
  186.     elseif ($1 == ?unvoicetag) && ($2) && (!%kflood) {
  187.       if ($2 !isin %voicetag) { msg $nick 0,1[15«0 $2 is Not exists in Voicetag List! 15»0] | set -u5 %kflood ON | halt }
  188.       set %voicetag $remove(%voicetag,$2 $+)
  189.       set %vtag $2
  190.       devoiceall
  191.       msg $nick 0,1[15«0 $2 has been Removed From the List. 15»0]
  192.       set -u5 %kflood ON
  193.     }
  194.     elseif ($1 == ?bantag) && ($2) && (!%kflood) {
  195.       msg q permban %MYchannel * $+ $2 $+ * 0,1[15« 0Bantag By Access bot 15»0]
  196.       set -u5 %kflood ON
  197.     }
  198.     elseif ($1 == ?unbantag) && ($2) && (!%kflood) {
  199.       msg q bandel %MYchannel * $+ $2 $+ *!*@*
  200.       set -u5 %kflood ON
  201.     }
  202.     elseif ($1 == ?voicetaglist) && (!$2) && (!%kflood) {
  203.       msg $nick 0,1[15« 14Voice tag List (0Total: $numtok(%voicetag,32) $+ 14):0 $replace(%voicetag,$chr(32),$chr(32) $chr(44) $chr(32)) 15»0]
  204.       set -u5 %kflood ON
  205.     }
  206.     elseif ($1 == ?-av) && ($2) && (!%kflood) {
  207.       msg q chanlev %MYchannel $2 -av
  208.       msg $nick 0,1[15« 0Deav Remove By Access bot 15»0]
  209.       mode %MYchannel -v $2
  210.       set -u5 %kflood ON
  211.     }
  212.     elseif ($1 == ?topic) && ($2-) && (!%kflood) {
  213.       msg q settopic %MYchannel $2-
  214.       set -u5 %kflood ON
  215.     }
  216.     elseif ($1 == ?welcome) && ($2-) && (!%kflood) {
  217.       msg q welcome %MYchannel $2-
  218.       set -u5 %kflood ON
  219.     }
  220.   }
  221. }
  222. ;;;;;;;;; Admins Commands ;; level = Admin CMD: ?+av , ?-av
  223. on *:text:*:?: {
  224.   if ($Show($address,Admin).logged?) {
  225.     if ($1 == !help) || ($1 == !commands) && (!%kflood) {
  226.       .timer 1 1 .msg $nick %Acc.Color1 $+ Commands are: ?+av <Nick/Address> , ?-av <Nick/Address)
  227.     }
  228.     elseif ($1 == ?+av) && ($2) && (!%kflood) {
  229.       msg q chanlev %MYchannel $2 +av
  230.       msg $nick %Acc.Color1 $+ Av By Control Access bot %Acc.Color2
  231.       set -u5 %kflood ON
  232.     }
  233.     elseif ($1 == ?-av) && ($2) && (!%kflood) {
  234.       msg q chanlev %MYchannel $2 -av
  235.       msg $nick  %Acc.Color1 $+ UnAv By Control Access bot %Acc.Color2
  236.       set -u5 %kflood ON
  237.     }
  238.   }
  239. }
  240. ;;;;;;;;; Masters Commands ;; Level = Master CMD: ?qban , ?unqban , ?bantag , ?unbantag , ?+av , ?-av , ?+ao , ?-ao ,add admins, ?voicetopic
  241. if ($Show($address,Master).logged?) {
  242.   if ($1 == !help) || ($1 == !commands) && (!%kflood) {
  243.     .timer 1 1 .msg $nick %acc.color1 $+ ?qban , ?unqban , ?bantag , ?unbantag , ?+av , ?-av , ?+ao , ?-ao ,add admins, ?voicetopic $+ %acc.color2
  244.   }
  245.   elseif ($1 == ?+av) && ($2) && (!%kflood) {
  246.     msg q chanlev %MYchannel $2 +av
  247.     msg $nick %Acc.Color1 $+ Av By Control Access bot %Acc.Color2
  248.     set -u5 %kflood ON
  249.   }
  250.   elseif ($1 == ?-av) && ($2) && (!%kflood) {
  251.     msg q chanlev %MYchannel $2 -av
  252.     msg $nick  %Acc.Color1 $+ UnAv By Control Access bot %Acc.Color2
  253.     set -u5 %kflood ON
  254.   }
  255.   elseif ($1-2 == !Add admin) && ($3) && (!%kflood) && (i$readini(Access.ini,$3,User)) {
  256.     .timer 1 1 .writeini -n Access.ini $3 User $3
  257.     .timer 1 2 .msg $nick %Acc.Color1 $+ Done! The $3 Has been Admin Account For Login Type : !login $3 $4
  258.     .timer 1 2 .writeini -n Access.ini $3 Pass $4
  259.     .timer 1 3 .writeini -n Access.ini $3 Status OFF
  260.     .timer 1 4 .writeini -n Access.ini $3 Level Admin
  261.     .timer 1 5 .writeini -n Access.ini $3 By $nick
  262.     .timer 1 6 .writeini -n Access.ini $3 LastLogin NEVER
  263.   }
  264.   elseif ($1-2 == !Del Admin) && ($readini(Access.ini,$3,Admin) {
  265.     .remini -n Access.ini $3
  266.     .timer 1 2 .msg $nick %Acc.Color1 $+ $3 Has Been From Access Bot $+ %acc.color2
  267.   }
  268.   elseif ($1 == ?bantag) && ($2) && (!%kflood) {
  269.     msg q permban %MYchannel * $+ $2 $+ * 0,1[15« 0Bantag By Access bot 15»0]
  270.     set -u5 %kflood ON
  271.   }
  272.   elseif ($1 == ?unbantag) && ($2) && (!%kflood) {
  273.     msg q bandel %MYchannel * $+ $2 $+ *!*@*
  274.     set -u5 %kflood ON
  275.   }
  276.   elseif ($1 == ?ao) && ($2) && (!%kflood) {
  277.     msg q chanlev %MYchannel $2 +ao
  278.     msg $nick %c1 $+ 0,1[15« 0ao By Access bot 15»0]
  279.     set -u5 %kflood ON
  280.   }
  281.   elseif ($1 == ?-ao) && ($2) && (!%kflood) {
  282.     msg q chanlev %MYchannel $2 -ao
  283.     msg $nick %c1 $+ 0,1[15« 0Deao By Access bot 15»0]
  284.     set -u5 %kflood ON
  285.   }
  286.   elseif ($1 == ?qban) && ($2) && (!%kflood) {
  287.     msg Q permban %MYchannel $2
  288.     msg $nick %c1 $+ 0,1[15« 0AddQBan By Access bot 15»0]
  289.     set -u5 %kflood ON
  290.   }
  291.   elseif ($1 == ?unqban) && ($2) && (!%kflood) {
  292.     msg q bandel %MYchannel $3- $2
  293.     msg $nick %c1 $+ 0,1[15« 0DeleteQBan By Access bot 15»0]
  294.     mode %MYchannel -b $2
  295.     set -u5 %kflood ON
  296.   }
  297. }
  298. on *:text:*:%MYchannel:{
  299.   if ($1 == ?Owners) || ($1 == !Owners) && (!%kflood) { Level Owner | set -u5 %kflood ON }
  300.   elseif ($1 == ?Masters) || ($1 == !Masters) && (!%kflood) { Level master | set -u5 %kflood ON }
  301.   elseif ($1 == ?Admins) || ($1 == !Admins) && (!%kflood) { Level Admin | set -u5 %kflood ON }
  302.   elseif ($1 == ?Total) || ($1 == !Total) && (!%kflood) { Level Total | set -u5 %kflood ON }
  303.   elseif ($1 == !help) || $1 == !commands) && (!%kflood) {
  304.     msg $chan 14,1[15« 9• 0PM Massages - Type: !9Help0,!9Commands 9• 15,1»14]
  305.     set -u5 %kflood ON
  306.   }
  307.   elseif ($1 == !Credits) || $1 == ?credits) && (!%kflood) {
  308.     msg $chan 0,1[15« 14The Access Bot Dialog by 0vNa14 & 0Zrt 15»0]
  309.     set -u5 %kflood ON
  310.   }
  311. }
  312.  
  313. on *:join:%MYchannel:{
  314.   if (%voicetag $+ * iswm $nick) && (%voicetag) { mode %MYchannel +v $nick }
  315. }
  316.  
  317. alias voiceall {
  318.   if ($me isop %MYchannel) {
  319.     var %x = 1
  320.     while (%x <= $nick(%MYchannel,0)) {
  321.       if (%vtag $+ * iswm $nick(%MYChannel,%x)) mode %MYchannel +v $nick(%MYChannel,%x))
  322.       inc %x
  323.     }
  324.     unset %vtag
  325.   }
  326. }
  327.  
  328. alias devoiceall {
  329.   if ($me isop %MYchannel) {
  330.     var %x = 1
  331.     while (%x <= $nick(%MYchannel,0)) {
  332.       if (%vtag $+ * iswm $nick(%MYChannel,%x)) mode %MYchannel -v $nick(%MYChannel,%x))
  333.       inc %x
  334.     }
  335.     unset %vtag
  336.   }
  337. }
  338. on *:text:*:%MYchannel:{
  339.   if ($1 == ?Owners) || ($1 == !Owners) && (!%kflood) { Level Owner | set -u3 %kflood ON }
  340.   elseif ($1 == ?Masters) || ($1 == !Masters) && (!%kflood) { Level master | set -u5 %kflood ON }
  341.   elseif ($1 == ?Admins) || ($1 == !Admins) && (!%kflood) { Level admin | set -u5 %kflood ON }
  342.   elseif ($1 == !help) || $1 == !commands) && (!%kflood) {
  343.     msg $chan 14,1[15« 9• 0PM Massages - Type: !9Help0,!9Commands 9• 15,1»14]
  344.     set -u5 %kflood ON
  345.   }
  346.   elseif ($1 == !Credits) || $1 == ?credits) && (!%kflood) {
  347.     msg $chan 0,1[15« 14This Access bot created By 0vNa 14& 0`GrusT. 15»0]
  348.     set -u5 %kflood ON
  349.   }
  350. }
  351.  
  352. on *:join:%MYchannel:{
  353.   if (%voicetag $+ * iswm $nick) && (%voicetag) { mode %MYchannel +v $nick }
  354. }
  355.  
  356. alias voiceall {
  357.   if ($me isop %MYchannel) {
  358.     var %x = 1
  359.     while (%x <= $nick(%MYchannel,0)) {
  360.       if (%vtag $+ * iswm $nick(%MYChannel,%x)) mode %MYchannel +v $nick(%MYChannel,%x))
  361.       inc %x
  362.     }
  363.     unset %vtag
  364.   }
  365. }
  366.  
  367. alias devoiceall {
  368.   if ($me isop %MYchannel) {
  369.     var %x = 1
  370.     while (%x <= $nick(%MYchannel,0)) {
  371.       if (%vtag $+ * iswm $nick(%MYChannel,%x)) mode %MYchannel -v $nick(%MYChannel,%x))
  372.       inc %x
  373.     }
  374.     unset %vtag
  375.   }
  376. }
  377. alias Level {
  378.   if ($1- != Total) {
  379.     var %x = 1 , %temp , %y = 1 , %a = $show($1-)
  380.     if ($numtok(%a,32) == 0) { msg %Mychannel $FS(Color1).Designs $+ There Are No $FS(Color2).Designs $+  $+ $1- $+ s $+  $+ $FS(Color1).Designs In The Access Data }
  381.     elseif ($numtok(%a,32) > 0) {
  382.       while ($gettok(%a,%x,32)) {
  383.         var %temp = %temp $gettok(%a,%x,32)
  384.         if ($numtok(%temp,32) == 9) {
  385.           if (%y == 1) { msg %Mychannel  $+ $upper($left($1-,1)) $+ $remove($1-,$left($1-,1)) $+ s Are: ( $+  $+ $show($1-,ON).num $+ / $+ $show($1-,ALL).num $+ ) $+ - %Temp) | var %temp | inc %y 1 }
  386.           else { .timer 1 %y msg %MyChannel %Temp | var %temp | inc %y }
  387.         }
  388.         inc %x
  389.       }
  390.       if (%y == 1) { msg %MyChannel  $+ $upper($left($1-,1)) $+ $remove($1-,$left($1-,1)) $+ s Are: ( $+  $+ $show($1-,ON).num $+ / $+ $show($1-,ALL).num $+ ) $+ - %Temp }
  391.       else { .timer 1 %y msg %MYChannel %Temp }
  392.     }
  393.   }
  394.   elseif ($1- == Total) {
  395.     var %on = $calc($show(Admin,ON).num + $show(Master,ON).num + $show(Owner,ON).num + $show(Manager,ON).num) , %max = $ini(Access.ini,0)
  396.     msg %mychannel Total Users:  3( $+  $+ %on $+ / $+  $+ %max $+ )
  397.   }
  398. }
  399. alias Show {
  400.   if ($prop == logged?) && ($2) { var %x = 1 | while ($ini(Access.ini,%x)) { if ($readini(Access.ini,$ini(Access.ini,%x),logged) == $1) && ($readini(Access.ini,$ini(Access.ini,%x),Level) == $2) { return $ini(Access.ini,%x) } | inc %x } }
  401.   if ( ($prop == nick?) || ($prop == nick) ) && ($1) {
  402.     if ($readini(Access.ini,$1,Logged)) { return $ialchan(* $+ $readini(Access.ini,$1,Logged),%MyChannel,1).nick }
  403.     else { return No such nickName }
  404.   }
  405.   if ($prop == NUM) && ($2 == ALL) && ($1) {
  406.     var %x 1, %temp
  407.     while ($ini(Access.ini,%x)) {
  408.       if ($readini(Access.ini,$ini(Access.ini,%x),Level) == $1) { var %temp = %temp $ini(Access.ini,%x) }
  409.       inc %x
  410.     }
  411.     return $numtok(%temp,32)
  412.   }
  413.   if ($prop == num) && ($2 == ON) && ($1) {
  414.     var %x = 1
  415.     while ($ini(Access.ini,%x)) {
  416.       if ($readini(Access.ini,$ini(Access.ini,%x),status) == ON) && ($readini(Access.ini,$ini(Access.ini,%x),Level) == $1) { var %temp = %temp $ini(Access.ini,%x) }
  417.       inc %x
  418.     }
  419.     return $numtok(%temp,32)
  420.   }
  421.   if (!$prop) && ($1) && (!$2) {
  422.     var %x 1, %tempa
  423.     while ($ini(Access.ini,%x)) {
  424.       if ($readini(Access.ini,$ini(Access.ini,%x),status) == ON) && ($readini(Access.ini,$ini(Access.ini,%x),Level) == $1) { var %temp = %temp 3• $ini(Access.ini,%x) ( $+  $+ $readini(Access.ini,$ini(Access.ini,%x),Logged) $+ ) }
  425.       if ($readini(Access.ini,$ini(Access.ini,%x),status) == OFF) && ($readini(Access.ini,$ini(Access.ini,%x),Level) == $1) { var %temp = %temp 4• $ini(Access.ini,%x) ( $+  $+ $readini(Access.ini,$ini(Access.ini,%x),status) $+ ) }
  426.       inc %x
  427.     }
  428.     return %temp
  429.   }
  430.   :END
  431. }
create a new version of this paste RAW Paste Data