API tools faq
paste
Guest User

Untitled

a guest
Nov 20th, 2018
82
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 41.07 KB | None | 0 0
raw download clone embed print report
  1. on *:TEXT:!nick*:#:{
  2. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  3. msg $chan [SYNTAX] !nick <my new nickname>.
  4. halt
  5. }
  6. if ($readini(udata.ini,$address,pnick) == $null) {
  7. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  8. halt
  9. }
  10. if ($readini(udata.ini,$address,access) != Admin) {
  11. msg $chan [ERROR] You do not have the right privleges to perform this command.
  12. halt
  13. }
  14. if ($readini(udata.ini,$address,status) == suspended) {
  15. msg $chan [ERROR] You are under suspension.
  16. halt
  17. }
  18. if ($readini(udata.ini,$address,access) == Admin) {
  19. /nick $2
  20. halt
  21. } }
  22.  
  23. on *:TEXT:!join*:#:{
  24. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  25. msg $chan [SYNTAX] !join <channel>.
  26. halt
  27. }
  28. if ($readini(udata.ini,$address,pnick) == $null) {
  29. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  30. halt
  31. }
  32. if ($readini(udata.ini,$address,access) == $null) {
  33. msg $chan [ERROR] You do not have the right privleges to perform this command.
  34. halt
  35. }
  36. if ($me ison $2) && $readini(udata.ini,$address,access) != $null {
  37. msg $chan [ERROR] I am already in $2 $+ .
  38. halt
  39. }
  40. else {
  41. msg p invite $2
  42. timer 1 1 join $2
  43. timer 1 1 msg $chan I have attempted to join $2 $+ . Please ensure I have access in $2 if it is set to invite only or if it is keyed.
  44. halt
  45. } }
  46.  
  47. on *:TEXT:!part*:#:{
  48. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  49. msg $chan [SYNTAX] !nick <channel>.
  50. halt
  51. }
  52. if ($readini(udata.ini,$address,pnick) == $null) {
  53. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  54. halt
  55. }
  56. if ($readini(udata.ini,$address,access) == $null) {
  57. msg $chan [ERROR] You do not have the right privleges to perform this command.
  58. halt
  59. }
  60. if ($me ison $2) && $readini(udata.ini,$address,access) != $null {
  61. part $2 Leaving on request by $readini(udata.ini,$address,pnick) $+ .
  62. msg $chan I have parted $2 $+ .
  63. halt
  64. }
  65. else {
  66. msg $chan [ERROR] I am not in $2 $+ , so I therefore cannot part $2 $ + !
  67. halt
  68. } }
  69.  
  70.  
  71. on *:TEXT:!invite*:#:{
  72. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && !$2 {
  73. msg $chan [SYNTAX] !invite <nick>.
  74. halt
  75. }
  76. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  77. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  78. halt
  79. }
  80. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  81. msg $chan [ERROR] You do not have the right privleges to perform this command.
  82. halt
  83. }
  84. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null {
  85. invite $2 $chan
  86. msg $chan $2 has been invited to $chan $+ .
  87. halt
  88. }
  89. else {
  90. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  91. halt
  92. } }
  93.  
  94. on *:TEXT:!op*:#:{
  95. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  96. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  97. halt
  98. }
  99. if ($me isop $chan) && $readini(udata.ini,$address,access) == Member {
  100. msg $chan [ERROR] You do not have the right privleges to perform this command.
  101. halt
  102. }
  103. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  104. msg $chan [ERROR] You do not have the right privleges to perform this command.
  105. halt
  106. }
  107. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null {
  108. mode $chan +o $2
  109. halt
  110. }
  111. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 == $null {
  112. mode $chan +o $nick
  113. halt
  114. }
  115. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null {
  116. mode $chan +o $2
  117. halt
  118. }
  119. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 == $null {
  120. mode $chan +o $nick
  121. halt
  122. }
  123. else {
  124. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  125. halt
  126. } }
  127.  
  128. on *:TEXT:!deop*:#:{
  129. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  130. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  131. halt
  132. }
  133. if ($me isop $chan) && $readini(udata.ini,$address,access) == Member {
  134. msg $chan [ERROR] You do not have the right privleges to perform this command.
  135. halt
  136. }
  137. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  138. msg $chan [ERROR] You do not have the right privleges to perform this command.
  139. halt
  140. }
  141. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 == $me {
  142. msg $chan [ERROR] You may not DEOP, KICK or BAN me.
  143. halt
  144. }
  145. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 == $me {
  146. msg $chan [ERROR] You may not DEOP, KICK or BAN me.
  147. halt
  148. }
  149. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null {
  150. mode $chan -o $2
  151. halt
  152. }
  153. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 == $null {
  154. mode $chan -o $nick
  155. halt
  156. }
  157. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null {
  158. mode $chan -o $2
  159. halt
  160. }
  161. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 == $null {
  162. mode $chan -o $nick
  163. halt
  164. }
  165. else {
  166. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  167. halt
  168. } }
  169.  
  170. on *:TEXT:!voice*:#:{
  171. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  172. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  173. halt
  174. }
  175. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  176. msg $chan [ERROR] You do not have the right privleges to perform this command.
  177. halt
  178. }
  179. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 != $null {
  180. mode $chan +v $2 $3-
  181. halt
  182. }
  183. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 == $null {
  184. mode $chan +v $nick
  185. halt
  186. }
  187. else {
  188. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  189. halt
  190. } }
  191.  
  192. on *:TEXT:!devoice*:#:{
  193. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  194. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  195. halt
  196. }
  197. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  198. msg $chan [ERROR] You do not have the right privleges to perform this command.
  199. halt
  200. }
  201. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 != $null {
  202. mode $chan -v $2
  203. halt
  204. }
  205. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 == $null {
  206. mode $chan -v $nick
  207. halt
  208. }
  209. else {
  210. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  211. halt
  212. } }
  213.  
  214. on *:TEXT:!ban*:#:{
  215. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && !$2 {
  216. msg $chan [SYNTAX] !ban <pnick/nick) <reason>.
  217. halt
  218. }
  219. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  220. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  221. halt
  222. }
  223. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  224. msg $chan [ERROR] You do not have the right privleges to perform this command.
  225. halt
  226. }
  227. if ($me isop $chan) && $readini(udata.ini,$address,access) == Member {
  228. msg $chan [ERROR] You do not have the right privleges to perform this command.
  229. halt
  230. }
  231. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 == $me {
  232. msg $chan [ERROR] You cannot DEOP, KICK or BAN me.
  233. halt
  234. }
  235. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null && $3 == $null {
  236. mode $chan +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  237. timer 1 2 kick $chan $readini(adata.ini,$2,nick) Kicked by $readini(udata.ini,$address,pnick) $+ ; No Reason Supplied.
  238. halt
  239. }
  240. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null && $3 == $null {
  241. mode $chan +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  242. timer 1 2 kick $chan $readini(adata.ini,$2,nick) Kicked by $readini(udata.ini,$address,pnick) $+ ; No Reason Supplied.
  243. halt
  244. }
  245. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null && $3 != $null {
  246. mode $chan +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  247. timer 1 2 kick $chan $readini(adata.ini,$2,nick) Kicked by $readini(udata.ini,$address,pnick) $+ ; $3-
  248. halt
  249. }
  250. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null && $3 != $null {
  251. mode $chan +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  252. timer 1 2 kick $chan $readini(adata.ini,$2,nick) Kicked by $readini(udata.ini,$address,pnick) $+ ; $3-
  253. halt
  254. }
  255. else {
  256. msg $chan [ERROR] I do not hold operator (+@) status, so therefore I cannot fulfil your request.
  257. halt
  258. } }
  259.  
  260. on *:TEXT:!unban*:#:{
  261. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && !$2 {
  262. msg $chan [SYNTAX] !unban <pnick>) <reason>.
  263. halt
  264. }
  265. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  266. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  267. halt
  268. }
  269. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  270. msg $chan [ERROR] You do not have the right privleges to perform this command.
  271. halt
  272. }
  273. if ($me isop $chan) && $readini(udata.ini,$address,access) == Member {
  274. msg $chan [ERROR] You do not have the right privleges to perform this command.
  275. halt
  276. }
  277. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null && $3 == $null {
  278. mode $chan -b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  279. halt
  280. }
  281. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null && $3 == $null {
  282. mode $chan -b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  283. halt
  284. }
  285. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null && $3 != $null {
  286. mode $chan -b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  287. halt
  288. }
  289. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null && $3 != $null {
  290. mode $chan -b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  291. halt
  292. }
  293. else {
  294. msg $chan [ERROR] I do not hold operator (+@) status, so therefore I cannot fulfil your request.
  295. halt
  296. } }
  297.  
  298.  
  299. on *:TEXT:!kick*:#:{
  300. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && !$2 {
  301. msg $chan [SYNTAX] !kick <nick> <reason>.
  302. halt
  303. }
  304. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  305. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  306. halt
  307. }
  308. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  309. msg $chan [ERROR] You do not have the right privleges to perform this command.
  310. halt
  311. }
  312. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 == $me {
  313. msg $chan [ERROR] You may not DEOP, KICK or BAN me.
  314. halt
  315. }
  316. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 != $null && $3 == $null {
  317. kick $chan $2 Kicked by $readini(udata.ini,$address,pnick) $+ ; No Reason Supplied.
  318. halt
  319. }
  320. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 != $null && $3 != $null {
  321. kick $chan $2 Kicked by $readini(udata.ini,$address,pnick) $+ ; $3-
  322. halt
  323. }
  324. else {
  325. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  326. halt
  327. } }
  328.  
  329. on *:TEXT:!adduser*:#:{
  330. if ($readini(udata.ini,$address,access) == Admin) && !$3 {
  331. msg $chan [SYNTAX] !adduser <pnick> <access level>.
  332. halt
  333. }
  334. if ($readini(udata.ini,$address,nick) == $null) {
  335. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  336. halt
  337. }
  338. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == removed {
  339. msg $chan [ERROR] User already exists:  $+ $2 $+ . Their current status is Removed by Administrator.
  340. halt
  341. }
  342. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == suspended {
  343. msg $chan [ERROR] User already exists:  $+ $2 $+ . Their current status is Suspended by Administrator.
  344. halt
  345. }
  346. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == idle {
  347. msg $chan [ERROR] User already exists:  $+ $2 $+ . Their current status is  User deemed idle by Administrator.
  348. halt
  349. }
  350. if ($readini(udata.ini,$address,access) == Admin) && $3 == Admin && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null {
  351. writeini adata.ini $2 access Admin
  352. writeini adata.ini $2 automode +o
  353. writeini adata.ini $2 pnick $2
  354. writeini adata.ini $2 sponser $readini(udata.ini,$address,pnick)
  355. writeini adata.ini $2 status active
  356. msg p adduser #cruiser $2 400
  357. msg $chan Successfully added $2 as an Administrator.
  358. msg p note send $2 $readini(udata.ini,$address,pnick) has just added you as an Administrator. For a list of commands, type !help.
  359. halt
  360. }
  361. if ($readini(udata.ini,$address,access) == Admin) && $3 == Admin && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null {
  362. writeini adata.ini $2 access Admin
  363. writeini adata.ini $2 automode +o
  364. writeini adata.ini $2 sponser $readini(udata.ini,$address,pnick)
  365. writeini adata.ini $2 status active
  366. writeini udata.ini $readini(adata.ini,$2,address) access Admin
  367. writeini udata.ini $readini(adata.ini,$2,address) automode +o
  368. msg p adduser #cruiser $2 400
  369. mode #cruiser +o $readini(adata.ini,$2,nick)
  370. msg $chan Successfully added $2 as an Administrator.
  371. msg $readini(adata.ini,$2,nick) $readini(udata.ini,$address,pnick) has just added you as an Administrator.
  372. msg p note send $2 $readini(udata.ini,$address,pnick) has just added you as an Administrator. For a list of commands, type !help.
  373. halt
  374. }
  375. if ($readini(udata.ini,$address,access) == Admin) && $3 == Operator && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null {
  376. writeini adata.ini $2 access Operator
  377. writeini adata.ini $2 automode +o
  378. writeini adata.ini $2 pnick $2
  379. writeini adata.ini $2 sponser $readini(udata.ini,$address,pnick)
  380. writeini adata.ini $2 status active
  381. msg p adduser #cruiser $2 100
  382. msg $chan Successfully added $2 as an Operator.
  383. msg p note send $2 $readini(udata.ini,$address,pnick) has just added you as an Operator. For a list of commands, type !help.
  384. halt
  385. }
  386. if ($readini(udata.ini,$address,access) == Admin) && $3 == Operator && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null {
  387. writeini adata.ini $2 access Operator
  388. writeini adata.ini $2 automode +o
  389. writeini adata.ini $2 sponser $readini(udata.ini,$address,pnick)
  390. writeini adata.ini $2 status active
  391. writeini udata.ini $readini(adata.ini,$2,address) access Operator
  392. writeini udata.ini $readini(adata.ini,$2,address) automode +o
  393. msg p adduser #cruiser $2 100
  394. mode #cruiser +o $readini(adata.ini,$2,nick)
  395. msg $chan Successfully added $2 as an Operator.
  396. msg $readini(adata.ini,$2,nick) $readini(udata.ini,$address,pnick) has just added you as an Operator. For a list of commands, type !help.
  397. msg p note send $2 $readini(udata.ini,$address,pnick) has just added you as an Operator. For a list of commands, type !help.
  398. halt
  399. }
  400. if ($readini(udata.ini,$address,access) == Admin) && $3 == Member && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null {
  401. writeini adata.ini $2 access Member
  402. writeini adata.ini $2 automode +v
  403. writeini adata.ini $2 pnick $2
  404. writeini adata.ini $2 sponser $readini(udata.ini,$address,pnick)
  405. writeini adata.ini $2 status active
  406. msg p adduser #cruiser $2 25
  407. msg $chan Successfully added $2 as Member.
  408. msg p note send $2 $readini(udata.ini,$address,pnick) has just added you as an Member. For a list of commands, type !help.
  409. halt
  410. }
  411. if ($readini(udata.ini,$address,access) == Admin) && $3 == Member && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null {
  412. writeini adata.ini $2 access Member
  413. writeini adata.ini $2 automode +v
  414. writeini adata.ini $2 sponser $readini(udata.ini,$address,pnick)
  415. writeini adata.ini $2 status active
  416. writeini udata.ini $readini(adata.ini,$2,address) access Member
  417. writeini udata.ini $readini(adata.ini,$2,address) automode +v
  418. msg p adduser #cruiser $2 25
  419. mode #cruiser +v $readini(adata.ini,$2,nick)
  420. msg $chan Successfully added $2 as Member.
  421. msg $readini(adata.ini,$2,nick) $readini(udata.ini,$address,pnick) has just added you as a Member. For a list of commands, type !help.
  422. msg p note send $2 $readini(udata.ini,$address,pnick) has just added you as an Member. For a list of commands, type !help.
  423. halt
  424. }
  425. if ($readini(udata.ini,$address,access) != Admin) {
  426. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  427. halt
  428. }
  429. else {
  430. msg $chan [ERROR] Unknown access level: $3 $+ .
  431. halt
  432. }
  433. }
  434.  
  435. on *:TEXT:!access*:#:{
  436. if ($readini(udata.ini,$address,access) == Admin) && !$3) {
  437. msg $chan [SYNTAX] !access <pnick> <access level>.
  438. halt
  439. }
  440. if ($readini(udata.ini,$address,nick) == $null) {
  441. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  442. halt
  443. }
  444. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,pnick) == $null) {
  445. msg $chan [ERROR] Unknown user: $2 $+ .
  446. halt
  447. }
  448. if ($readini(udata.ini,$address,access) == Admin) && $3 == admin && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null {
  449. writeini adata.ini $2 access Admin
  450. writeini adata.ini $2 automode +o
  451. writeini adata.ini $2 status active
  452. writeini udata.ini $readini(adata.ini,$2,address) access Admin
  453. writeini udata.ini $readini(adata.ini,$2,address) automode +o
  454. msg p modinfo #cruiser access $2 450
  455. msg p adduser #cruiser $2 450
  456. mode #cruiser +o $readini(adata.ini,$2,nick)
  457. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access to Administrator.
  458. msg $readini(adata.ini,$2,nick) $nick $+ , $readini(udata.ini,$address,pnick) has just modified your access to Administrator.
  459. msg p note send $readini(adata.ini,$2,pnick) $readini(adata.ini,$2,pnick) $+ , $readini(udata.ini,$address,pnick) has just modified your access to Administrator.
  460. halt
  461. }
  462. if ($readini(udata.ini,$address,access) == Admin) && $3 == admin && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null {
  463. writeini adata.ini $2 access Admin
  464. writeini adata.ini $2 automode +o
  465. writeini adata.ini $2 status active
  466. msg p modinfo #cruiser access $2 450
  467. msg p adduser #cruiser $2 450
  468. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access to Administrator.
  469. msg p note send $readini(adata.ini,$2,pnick) $readini(adata.ini,$2,pnick) $+ , $readini(udata.ini,$address,pnick) has just modified your access to Administrator.
  470. halt
  471. }
  472. if ($readini(udata.ini,$address,access) == Admin) && $3 == Operator && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null {
  473. writeini adata.ini $2 access Operator
  474. writeini adata.ini $2 automode +o
  475. writeini adata.ini $2 status active
  476. writeini udata.ini $readini(adata.ini,$2,address) access Operator
  477. writeini udata.ini $readini(adata.ini,$2,address) automode +o
  478. msg p modinfo #cruiser access $2 100
  479. msg p adduser #cruiser $2 100
  480. mode #cruiser +o $readini(adata.ini,$2,nick)
  481. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access to Operator.
  482. msg $readini(adata.ini,$2,nick) $nick $+ , $readini(udata.ini,$address,pnick) has just modified your access to Operator.
  483. msg p note send $readini(adata.ini,$2,pnick) $readini(adata.ini,$2,pnick) $+ , $readini(udata.ini,$address,pnick) has just modified your access to Operator.
  484. halt
  485. }
  486. if ($readini(udata.ini,$address,access) == Admin) && $3 == Operator && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null {
  487. writeini adata.ini $2 access Operator
  488. writeini adata.ini $2 automode +o
  489. writeini adata.ini $2 status active
  490. msg p modinfo #cruiser access $2 100
  491. msg p adduser #cruiser $2 100
  492. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access to Operator.
  493. msg p note send $readini(adata.ini,$2,pnick) $readini(adata.ini,$2,pnick) $+ , $readini(udata.ini,$address,pnick) has just modified your access to Operator.
  494. halt
  495. }
  496. if ($readini(udata.ini,$address,access) == Admin) && $3 == Member && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null {
  497. writeini adata.ini $2 access Member
  498. writeini adata.ini $2 automode +v
  499. writeini adata.ini $2 status active
  500. writeini udata.ini $readini(adata.ini,$2,address) access Member
  501. writeini udata.ini $readini(adata.ini,$2,address) automode +v
  502. msg p modinfo #cruiser modinfo access $2 25
  503. msg p adduser #cruiser $2 25
  504. mode #cruiser -o+v $readini(adata.ini,$2,nick)
  505. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access level to Member.
  506. msg $readini(adata.ini,$2,nick) $nick ( $+ $readini(udata.ini,$address,pnick) $+ ) has just modified your access level to Member.
  507. msg p note send $readini(adata.ini,$2,pnick) $readini(udata.ini,$address,pnick) has just modified your access level to Member.
  508. halt
  509. }
  510. if ($readini(udata.ini,$address,access) == Admin) && $3 == Member && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null {
  511. writeini adata.ini $2 access Member
  512. writeini adata.ini $2 automode +v
  513. writeini adata.ini $2 status active
  514. msg p modinfo #cruiser access $2 25
  515. msg p adduser #cruiser $2 25
  516. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access level to Member.
  517. msg p note send $readini(adata.ini,$2,pnick) $readini(udata.ini,$address,pnick) has just modified your access level to Member.
  518. halt
  519. }
  520. if ($readini(udata.ini,$address,access) != Admin) {
  521. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  522. halt
  523. }
  524. else {
  525. msg $chan [ERROR] Unknown access level. Please choose Admin, Operator, or Member.
  526. halt
  527. } }
  528.  
  529. on *:TEXT:!suspend*:#:{
  530. if ($readini(udata.ini,$address,access) != Admin) {
  531. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  532. halt
  533. }
  534. if ($readini(udata.ini,$address,pnick) == $null) {
  535. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  536. halt
  537. }
  538. if ($readini(udata.ini,$address,access) == Admin) && !$3 {
  539. msg $chan [SYNTAX] !suspend <pnick>
  540. halt
  541. }
  542. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) == $null {
  543. msg $chan [ERROR] Unknown user: $2
  544. halt
  545. }
  546. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == removed {
  547. msg $chan [ERROR] Unable to perform command; $readini(adata.ini,$2,pnick) has previously been removed by an Administrator.
  548. halt
  549. }
  550. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == idle {
  551. msg $chan [ERROR] Unable to perform command; $readini(adata.ini,$2,pnick) has previously been deemed as IDLE by an Administrator.
  552. halt
  553. }
  554. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == suspended {
  555. msg $chan [ERROR] Unable to perform command; $readini(adata.ini,$2,pnick) is under suspension. Time remaining until lifted: $duration($calc(%suspension. [ $+ [ $2 ] ] - $ctime))
  556. halt
  557. }
  558. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == approved && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null && $3 < 1000 {
  559. remini udata.ini $readini(adata.ini,$2,address) automode
  560. writeini adata.ini $2 status suspended
  561. remini adata.ini $2 automode
  562. set %calc. [ $+ [ $2 ] ] $calc($3 * 60)
  563. set %suspension. [ $+ [ $2 ] ] $calc($ctime + %calc. [ $+ [ $2 ] ]))
  564. msg $readini(adata.ini,$2,nick) Hello, $readini(adata.ini,$2,nick) $+ , $nick has just suspended your access for a period of $3 minutes. To view the status of your suspension, type !status at anytime.
  565. msg $chan $readini(adata.ini,$2,nick) has been SUSPENDED f1or a period of $3 minutes.
  566. timer $time($calc($ctime + %calc. [ $+ [ $2 ] ] )) 1 1 writeini adata.ini $2 status approved
  567. timer $time($calc($ctime + %calc. [ $+ [ $2 ] ] )) 1 1 msg $chan $readini(adata.ini,$2,pnick) $+ 's suspension has expired.
  568. halt
  569. }
  570. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == approved && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null && $3 < 1000 {
  571. writeini adata.ini $2 status suspended
  572. set %calc. [ $+ [ $2 ] ] $calc($3 * 60)
  573. set %suspension. [ $+ [ $2 ] ] $calc($ctime + %calc.plank))
  574. msg $chan $readini(adata.ini,$2,pnick) has been SUSPENDED f2or a period of $3 minutes.
  575. timer $time($calc($ctime + %calc.plank )) 1 1 writeini adata.ini $2 status approved
  576. timer $time($calc($ctime + %calc.plank )) 1 1 msg $chan $readini(adata.ini,$2,pnick) $+ 's suspension has expired.
  577. halt
  578. } }
  579.  
  580.  
  581.  
  582. on *:TEXT:!idle*:#:{
  583. if ($readini(udata.ini,$address,access) != Admin) {
  584. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  585. halt
  586. }
  587. if ($readini(udata.ini,$address,pnick) == $null) {
  588. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  589. halt
  590. }
  591. if ($readini(udata.ini,$address,access) == Admin) && !$2 {
  592. msg $chan [SYNTAX] !idle <pnick>.
  593. halt
  594. }
  595. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == $null {
  596. msg $chan [ERROR] Unknown user: $2 $+ .
  597. halt
  598. }
  599. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) != $null {
  600. remini adata.ini $2 automode
  601. remini adata.ini $2 access
  602. writeini adata.ini $2 status idle
  603. msg $chan Successfully set $readini(adata.ini,$2,pnick) $+ 's account as idle.
  604. msg p remuser #cruiser $2
  605. msg p note send $readini(adata.ini,$2,pnick) Your access has been set as idle by $readini(udata.ini,$address,pnick) due to inactivity $+ . If you wish to have this removed, please contact an Administrator.
  606. halt
  607. } }
  608.  
  609.  
  610.  
  611. on *:TEXT:!remove*:?:{
  612. if ($readini(udata.ini,$address,access) != Admin) {
  613. msg $nick [ACCESS DENIED] You do not have the right privleges to perform this command.
  614. halt
  615. }
  616. if ($readini(udata.ini,$address,pnick) == $null) {
  617. msg $nick [ERROR] You are not authenticated. Type !login to authenticate.
  618. halt
  619. }
  620. if (readini(udata.ini,$address,access) == Admin) && !$2 {
  621. msg $nick [SYNTAX] !remove <pnick>
  622. halt
  623. }
  624. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) == $null {
  625. msg $nick [ERROR] Unknown user: $2 $+ .
  626. halt
  627. }
  628. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) != $null && $readini(adata.ini,$2,nick) != $null {
  629. remini adata.ini $2 automode
  630. remini adata.ini $2 access
  631. writeini adata.ini $2 status removed
  632. remini udata.ini $readini(adata.ini,$2,address) access
  633. remini udata.ini $readini(adata.ini,$2,address) automode
  634. msg $nick Successfully removed $readini(adata.ini,$2,pnick) $+ 's access.
  635. mode #cruiser +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  636. kick #cruiser $readini(adata.ini,$2,nick) Your access has been removed by $readini(udata.ini,$address,pnick) $.
  637. msg p note send $readini(adata.ini,$2,pnick) Your access has been removed by $readini(udata.ini,$address,pnick) $+ .
  638. msg p remuser #cruiser $2
  639. msg $readini(adata.ini,$2,nick) Your access has been removed by $readini(udata.ini,$address,pnick) $+ .
  640. halt
  641. }
  642. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) != $null && $readini(adata.ini,$2,nick) == $null {
  643. remini adata.ini $2 automode
  644. remini adata.ini $2 access
  645. writeini adata.ini $2 status removed
  646. msg $nick Successfully removed $readini(adata.ini,$2,pnick) $+ 's access.
  647. mode #cruiser +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  648. msg p remuser #cruiser $2
  649. msg p note send $readini(adata.ini,$2,pnick) Your access has been removed by $readini(udata.ini,$address,pnick) $+ .
  650. halt
  651. } }
  652.  
  653. on *:TEXT:!remove*:#:{
  654. if ($readini(udata.ini,$address,access) != Admin) {
  655. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  656. halt
  657. }
  658. if ($readini(udata.ini,$address,pnick) == $null) {
  659. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  660. halt
  661. }
  662. if (readini(udata.ini,$address,access) == Admin) && !$2 {
  663. msg $chan [SYNTAX] !remove <pnick>
  664. halt
  665. }
  666. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) == $null {
  667. msg $chan [ERROR] Unknown user: $2 $+ .
  668. halt
  669. }
  670. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) != $null && $readini(adata.ini,$2,nick) != Not authed {
  671. remini adata.ini $2 automode
  672. remini adata.ini $2 access
  673. writeini adata.ini $2 status removed
  674. msg $chan Successfully removed $readini(adata.ini,$2,pnick) $+ 's access.
  675. mode #cruiser +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  676. kick #cruiser $readini(adata.ini,$2,nick) Your access has been removed by $readini(udata.ini,$address,pnick) $.
  677. timer 1 1800 mode #cruiser -b $readini(adata.ini,$2,nick)
  678. msg p note send $readini(adata.ini,$2,pnick) Your access has been removed by $readini(udata.ini,$address,pnick) $+ .
  679. msg p remuser #cruiser $2
  680. msg $readini(adata.ini,$2,nick) Your access has been removed by $readini(udata.ini,$address,pnick) $+ .
  681. halt
  682. }
  683. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) != $null && $readini(adata.ini,$2,nick) == Not authed {
  684. remini adata.ini $2 automode
  685. remini adata.ini $2 access
  686. writeini adata.ini $2 status removed
  687. msg $chan Successfully removed $readini(adata.ini,$2,pnick) $+ 's access.
  688. mode #cruiser +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  689. msg p remuser #cruiser $2
  690. msg p note send $readini(adata.ini,$2,pnick) Your access has been removed by $readini(udata.ini,$address,pnick) $+ .
  691. halt
  692. } }
  693.  
  694. on *:TEXT:plank.add*:?:{
  695. if ($nick == $me) && $5 {
  696. msg $2 There is more than one user matching your query; $read(users.txt,$4) $read(users.txt,$5) $read(users.txt,$6) $read(users.txt,$7) $read(users.txt,$8) $read(users.txt,$9) $read(users.txt,10) $read(users.txt,$11)
  697. halt
  698. } else { msg $me plank.add $chan $readini(udata.ini,$address,pnick) $read(users.txt, $+ [ %search ] ) }
  699.  
  700. if ($nick == $me) && $readini(adata.ini,$4,status) == removed {
  701. msg $2 [ERROR] User: $4 is not a member anymore.
  702. halt
  703. }
  704. if ($nick == $me) && $3 == $readini(adata.ini,$4,pnick) {
  705. msg $2 You can't plank yourself, noob!
  706. halt
  707. }
  708. else {
  709. set %addpoint $+ [ $4 ] $calc($readini(adata.ini,$4,plankpoints)) + 1
  710. writeini adata.ini $4 todaysplankaddedpointdate. $+ $3 $date
  711. writeini adata.ini $5 todaysplankaddedpointreset. $+ $3 $ctime($date 23:59:59)
  712. writeini adata.ini $5 plankpoints %addpoint [ $+ [ $3 ] ]
  713. timer 1 1 unset %addpoint [ $+ [ $5 ] ]
  714. msg $2 Succesfully added a plank point to $3 $+ . They now have3 $readini(adata.ini,$3,plankpoints) plank points.
  715. halt
  716. }
  717. }
  718.  
  719. on *:TEXT:humour.add*:?:{
  720. if ($nick == $me) && $5 {
  721. msg $2 There is more than one user matching your query; $read(users.txt,$4) $read(users.txt,$5) $read(users.txt,$6) $read(users.txt,$7) $read(users.txt,$8) $read(users.txt,$9) $read(users.txt,10) $read(users.txt,$11)
  722. halt
  723. }
  724. if ($nick == $me) && $readini(adata.ini,$4,status) == removed {
  725. msg $2 [ERROR] User: $4 is not a member anymore.
  726. halt
  727. }
  728. if ($nick == $me) && $4 == $readini(udata.ini,$readini(adata.ini,$3,address),pnick) {
  729. msg $2 Don't be a plank, $readini(adata.ini,$3,nick) $+ ! You can't add a plank point to yourself, noob! :-|
  730. halt
  731. }
  732. else {
  733. set %addpoint $+ [ $4 ] $calc($readini(adata.ini,$4,plankpoints)) + 1
  734. writeini adata.ini $4 todaysplankaddedpointdate. $+ $4 $date
  735. writeini adata.ini $4 todaysplankaddedpointreset. $+ $4 $ctime($date 23:59:59)
  736. writeini adata.ini $4 plankpoints %addpoint [ $+ [ $4 ] ]
  737. timer 1 1 unset %addpoint [ $+ [ $4 ] ]
  738. msg $2 Succesfully added a plank point to $4 $+ . They now have3 $readini(adata.ini,$4,plankpoints) plank points.
  739. halt
  740. }
  741. }
  742.  
  743.  
  744. on *:TEXT:plank.remove*:?:{
  745. if ($nick == $me) && $readini(adata.ini,$3,access) != Admin {
  746. msg $chan [ERROR] You do not have the right privleges to remove plank points.
  747. halt
  748. }
  749. if ($nick == $me) && $readini(adata.ini,$3,access) == Admin && $readini(adata.ini,$4,plankpoints) < 1 {
  750. msg $chan [ERROR] $3 is on 30 plank points so therefore you cannot remove anymore plank points.
  751. halt
  752. }
  753. if ($nick == $me) && $6 {
  754. msg $2 There is more than one user matching your query; $read(users.txt,$4) $read(users.txt,$5) $read(users.txt,$6) $read(users.txt,$7) $read(users.txt,$8) $read(users.txt,$9) $read(users.txt,10) $read(users.txt,$11)
  755. halt
  756. }
  757. else {
  758. set %rempoint $+ [ $4 ] $calc($readini(adata.ini,$4,plankpoints)) - 1
  759. writeini adata.ini $4 plankpoints %rempoint [ $+ [ $4 ] ]
  760. timer 1 1 unset %rempoint [ $+ [ $4 ] ]
  761. msg $2 Succesfully removed a plank point for $4 $+ . They now have3 $readini(adata.ini,$4,plankpoints) plank points.
  762. halt
  763. } }
  764.  
  765. on *:TEXT:humour.remove*:?:{
  766. if ($nick == $me) && $readini(adata.ini,$3,access) != Admin {
  767. msg $chan [ERROR] You do not have the right privleges to remove humour points.
  768. halt
  769. }
  770. if ($nick == $me) && $readini(adata.ini,$3,access) == Admin && $readini(adata.ini,$4,plankpoints) < 1 {
  771. msg $chan [ERROR] $3 is on 30 humour points so therefore you cannot remove anymore plank points.
  772. halt
  773. }
  774. if ($nick == $me) && $6 {
  775. msg $2 There is more than one user matching your query; $read(users.txt,$4) $read(users.txt,$5) $read(users.txt,$6) $read(users.txt,$7) $read(users.txt,$8) $read(users.txt,$9) $read(users.txt,10) $read(users.txt,$11)
  776. halt
  777. }
  778. else {
  779. set %rempoint $+ [ $4 ] $calc($readini(adata.ini,$4,humourpoints)) - 1
  780. writeini adata.ini $4 humourpoints %rempoint [ $+ [ $4 ] ]
  781. timer 1 1 unset %rempoint [ $+ [ $4 ] ]
  782. msg $2 Succesfully removed a humour point for $4 $+ . They now have3 $readini(adata.ini,$4,humourpoints) humour points.
  783. halt
  784. } }
  785.  
  786.  
  787.  
  788.  
  789. on *:TEXT:!plank*:#:{
  790. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  791. msg $chan [SYNTAX] !plank <pnick>.
  792. halt
  793. }
  794. if ($readini(udata.ini,$address,access) != $null) && $2 == remove {
  795. var %search
  796. var %x 1
  797. while ($read(users.txt,%x)) {
  798. if ($3 isin $read(users.txt,%x)) { var %search $addtok(%search,%x,32) }
  799. inc %x
  800. }
  801. if (!%search) { msg $chan [ERROR] Unknown user: $3 $+ . }
  802. else { msg $me plank.remove $chan $readini(udata.ini,$address,pnick) $read(users.txt, $+ [ %search ] ) }
  803. halt
  804. }
  805. if ($readini(udata.ini,$address,access) != $null) {
  806. var %search
  807. var %x 1
  808. while ($read(users.txt,%x)) {
  809. if ($2 isin $read(users.txt,%x)) { var %search $addtok(%search,%x,32) }
  810. inc %x
  811. }
  812. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  813. else { msg $me plank.add $chan $readini(udata.ini,$address,pnick) %search }
  814. halt
  815. }
  816. if ($readini(udata.ini,$address,access) == $null) {
  817. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  818. halt
  819. }
  820. if ($readini(udata.ini,$address,access) == Admin) && $2 == remove && $3 == $null {
  821. msg $chan [SYNTAX] !plank remove <pnick>.
  822. halt
  823. }
  824. if ($readini(udata.ini,$address,pnick) == $null) {
  825. msg $chan [ERROR] You are not authenticated. To authenticate: type !login
  826. halt
  827. }
  828. } }
  829.  
  830.  
  831. on *:TEXT:!humour*:#:{
  832. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  833. msg $chan [SYNTAX] !humour <pnick>.
  834. halt
  835. }
  836. if ($readini(udata.ini,$address,access) != $null) && $2 == remove {
  837. var %search
  838. var %x 1
  839. while ($read(users.txt,%x)) {
  840. if ($3 isin $read(users.txt,%x)) { var %search $addtok(%search,%x,32) }
  841. inc %x
  842. }
  843. if (!%search) { msg $chan [ERROR] Unknown user: $3 $+ . }
  844. else { msg $me humour.remove $chan $readini(udata.ini,$address,pnick) $read(users.txt, $+ [ %search ] ) }
  845. halt
  846. }
  847. if ($readini(udata.ini,$address,access) != $null) {
  848. var %search
  849. var %x 1
  850. while ($read(users.txt,%x)) {
  851. if ($2 isin $read(users.txt,%x)) { var %search $addtok(%search,%x,32) }
  852. inc %x
  853. }
  854. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  855. else { msg $me humour.add $chan $readini(udata.ini,$address,pnick) $read(users.txt, $+ [ %search ] ) }
  856. halt
  857. }
  858. if ($readini(udata.ini,$address,access) == $null) {
  859. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  860. halt
  861. }
  862. if ($readini(udata.ini,$address,access) == Admin) && $2 == remove && $3 == $null {
  863. msg $chan [SYNTAX] !humour remove <pnick>.
  864. halt
  865. }
  866. if ($readini(udata.ini,$address,pnick) == $null) {
  867. msg $chan [ERROR] You are not authenticated. To authenticate: type !login
  868. halt
  869. }
  870. } }
  871.  
  872.  
  873.  
  874.  
  875. on *:TEXT:!hug*:#:{
  876. msg $chan [ERROR] The use of hug points has been disabled by an Administrator due to a maintenance upgrade.
  877. halt } }
  878.  
  879.  
  880. on *:TEXT:!points*:#:{
  881. msg $chan [ERROR] The use of points has been disabled by an Administrator due to a maintenance upgrade.
  882. halt
  883. }
  884. } }
  885.  
  886.  
  887.  
  888. on *:TEXT:seen.user.check*:?:{
  889. if ($nick == $me) && $5 {
  890. msg $2 There is more than one user matching your query; $read(users.txt,$4) $read(users.txt,$5) $read(users.txt,$6) $read(users.txt,$7) $read(users.txt,$8) $read(users.txt,$9) $read(users.txt,$11) $read(users.txt,$12)
  891. halt
  892. }
  893. if ($nick == $me) {
  894. set %user $read(users.txt,$4)
  895. msg $2  $+ $read(users.txt,$4) ( $+ $readini(adata.ini,$read(users.txt,$4),lastaddress) $+ ) was last seen $readini(adata.ini,$read(users.txt,$4),seen) $duration($calc($ctime - % [ $+ [ $read(users.txt,$4) ] $+ seen ] )) ago.
  896. halt
  897. }
  898. }
  899.  
  900. on *:TEXT:!seen*:#:{
  901. if ($readini(udata.ini,$address,pnick) == $null) {
  902. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  903. halt
  904. }
  905. if ($readini(udata.ini,$address,access) == $null) {
  906. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  907. halt
  908. }
  909. if (!$2) && $readini(udata.ini,$address,access) != $null {
  910. msg $chan [SYNTAX] !seen <user>.
  911. halt
  912. }
  913. if ($readini(udata.ini,$address,access) != $null) {
  914. var %search
  915. var %x 1
  916. while ($read(users.txt,%x)) {
  917. if ($2 isin $read(users.txt,%x)) { var %search $addtok(%search,%x,32) }
  918. inc %x
  919. }
  920. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  921. else { msg $me seen.user.check $chan $2 %search }
  922. }
  923. halt
  924. } } }
  925.  
  926.  
  927. on *:TEXT:!login*:#:{
  928. if ($readini(udata.ini,$address,pnick) != $null) {
  929. msg $chan [ERROR] You are already authenticated as $readini(udata.ini,$address,pnick) $+ .
  930. halt
  931. }
  932. if ($nick ison #cruiser) && $readini(udata.ini,$address,pnick) == $null {
  933. set %1 $nick
  934. set %2 $address
  935. msg P verify $nick
  936. timer 1 2 unset %1
  937. timer 1 2 unset %2
  938. halt
  939. }
  940. else {
  941. msg $chan [ERROR] Please join #cruiser then re-authenticate.
  942. halt
  943. }
  944. }
  945.  
  946. on *:TEXT:!login*:?:{
  947. if ($readini(udata.ini,$address,pnick) != $null) {
  948. msg $nick [ERROR] You are already authenticated as $readini(udata.ini,$address,pnick) $+ .
  949. halt
  950. }
  951. else {
  952. set %1 $nick
  953. set %2 $address
  954. msg P verify $nick
  955. timer 1 2 unset %1
  956. timer 1 2 unset %2
  957. timer 1 3600 remini ndata.ini $readini(udata.ini,$address,nick)
  958. timer 1 3600 remini udata.ini $address
  959. timer 1 3600 remini adata.ini $readini(udata.ini,$address,pnick) nick
  960. timer 1 3600 remini adata.ini $readini(udata.ini,$address,pnick) address
  961. msg $nick You have successfully been authenticated.
  962. timer 1 3600 msg $nick You have been logged out for security reasons. To log back in, type: !login
  963. halt
  964. } }
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!