API tools faq
paste
Guest User

Untitled

a guest
Jan 26th, 2018
101
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 20.35 KB | None | 0 0
raw download clone embed print report
  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. }
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!