API tools faq
paste
Guest User

Untitled

a guest
Dec 17th, 2018
70
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 53.18 KB | None | 0 0
raw download clone embed print report
  1. on *:TEXT:auth.nickchange*:?:{
  2. if ($nick == $me) && $readini(udata.ini,$3,access) == $null {
  3. msg $4 [ACCESS DENIED] You do not have the right privleges to perform this command.
  4. halt
  5. }
  6. if ($nick == $me) && $readini(udata.ini,$3,access) != $null && $5 == $null {
  7. msg $4 SYNTAX] !nick <my new nickname>.
  8. halt
  9. }
  10. if ($nick == $me) && $readini(udata.ini,$3,access) != $null && $5 != $null {
  11. /nick $5
  12. halt
  13. } }
  14.  
  15.  
  16. on *:TEXT:!nick*:#:{
  17. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  18. msg $chan [SYNTAX] !nick <my new nickname>.
  19. halt
  20. }
  21. if ($readini(udata.ini,$address,pnick) == $null) {
  22. timer 1 1 msg $me $me auth.nickchange $nick $address $chan $2
  23. halt
  24. }
  25. if ($readini(udata.ini,$address,access) != Admin) {
  26. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  27. halt
  28. }
  29. else {
  30. /nick $2
  31. } }
  32.  
  33. on *:TEXT:auth.join*:?:{
  34. if ($nick == $me) && $readini(udata.ini,$3,access) != Admin {
  35. msg $4 [ACCESS DENIED] You do not have the right privleges to perform this command.
  36. halt
  37. }
  38. if ($nick == $me) && $readini(udata.ini,$3,access) == Admin && $5 == $null {
  39. msg $4 [SYNTAX] !join <channel>.
  40. halt
  41. }
  42. if ($nick == $me) && $readini(udata.ini,$3,access) == Admin && $me isin $5 {
  43. msg $4 I am already in $5 $+ !
  44. halt
  45. }
  46. if ($nick == $me) && $readini(udata.ini,$3,access) == Admin {
  47. msg P invite $5
  48. timer 1 3 join $5
  49. timer 1 1 $4 Joining channel: $5 $+ ...
  50. halt
  51. } }
  52.  
  53.  
  54. on *:TEXT:!join*:#:{
  55. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  56. msg $chan [SYNTAX] !join <channel>.
  57. halt
  58. }
  59. if ($readini(udata.ini,$address,pnick) == $null) {
  60. timer 1 1 msg $me auth.join $nick $address $chan $2
  61. halt
  62. }
  63. if ($readini(udata.ini,$address,access) != Admin) {
  64. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  65. halt
  66. }
  67. if ($me ison $2) && $readini(udata.ini,$address,access) != $null {
  68. msg $chan I am already in $2 $+ !
  69. halt
  70. }
  71. else {
  72. msg p invite $2
  73. timer 1 3 join $2
  74. timer 1 1 msg $chan Joining channel: $2 $+ ...
  75. halt
  76. } }
  77.  
  78. on *:TEXT:auth.part*:?:{
  79. if ($nick == $me) && $readini(udata.ini,$3,access) != Admin {
  80. msg $4 [ACCESS DENIED] You do not have the right privleges to perform this command.
  81. halt
  82. }
  83. if ($nick == $me) && $readini(udata.ini,$3,access) == Admin && $5 == $null {
  84. msg $4 [SYNTAX] !join <channel>.
  85. halt
  86. }
  87. if ($nick == $me) && $readini(udata.ini,$3,access) == Admin && $me isin $5 {
  88. msg $4 I am already in $5 $+ !
  89. halt
  90. }
  91. if ($nick == $me) && $readini(udata.ini,$3,access) == Admin {
  92. msg P invite $5
  93. timer 1 3 join $5
  94. timer 1 1 $4 Joining channel: $5 $+ ...
  95. halt
  96. } }
  97.  
  98.  
  99. on *:TEXT:!part*:#:{
  100. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  101. msg $chan [SYNTAX] !part <channel>.
  102. halt
  103. }
  104. if ($readini(udata.ini,$address,pnick) == $null) {
  105. timer 1 1 msg $me auth.part $nick $address $chan $2
  106. halt
  107. }
  108. if ($readini(udata.ini,$address,access) != Admin) {
  109. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  110. halt
  111. }
  112. if ($me ison $2) && $readini(udata.ini,$address,access) == Admin {
  113. part $2
  114. halt
  115. }
  116. else {
  117. I'm not in $2 $+ !
  118. } }
  119.  
  120. on *:TEXT:auth.invite*:?:{
  121. if ($nick == $me) && $readini(udata.ini,$3,access) == $null {
  122. msg $4 [ACCESS DENIED] You do not have the right privleges to perform this command.
  123. halt
  124. }
  125. if ($nick == $me) && $me isop $4 && $readini(udata.ini,$3,access) != $null && $5 == $null {
  126. msg $4 [SYNTAX] !invite <nickname>.
  127. halt
  128. }
  129. if ($nick == $me) && $me isop $4 && $readini(udata.ini,$3,access) != $null && $5 != $null {
  130. timer 1 1 invite $5 $4
  131. msg $4 $5 has been invited to $4 $+ .
  132. halt
  133. }
  134. if ($nick == $me) && $readini(udata.ini,$3,access) != $null && $5 != $null {
  135. msg $4 [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  136. }
  137. }
  138.  
  139.  
  140. on *:TEXT:!invite*:#:{
  141. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && !$2 {
  142. msg $chan [SYNTAX] !invite <nick>.
  143. halt
  144. }
  145. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  146. timer 1 1 msg $me auth.invite $nick $address $chan $2
  147. halt
  148. }
  149. if ($readini(udata.ini,$address,access) == $null) {
  150. msg $chan [ERROR] You do not have the right privleges to perform this command.
  151. halt
  152. }
  153. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null {
  154. timer 1 1 invite $2 $chan
  155. msg $chan $2 has been invited to $chan $+ .
  156. halt
  157. }
  158. else {
  159. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  160. halt
  161. } }
  162.  
  163. on *:TEXT:!op*:#:{
  164. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  165. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  166. halt
  167. }
  168. if ($me isop $chan) && $readini(udata.ini,$address,access) == Member {
  169. msg $chan [ERROR] You do not have the right privleges to perform this command.
  170. halt
  171. }
  172. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  173. msg $chan [ERROR] You do not have the right privleges to perform this command.
  174. halt
  175. }
  176. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null {
  177. mode $chan +o $2
  178. halt
  179. }
  180. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 == $null {
  181. mode $chan +o $nick
  182. halt
  183. }
  184. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null {
  185. mode $chan +o $2
  186. halt
  187. }
  188. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 == $null {
  189. mode $chan +o $nick
  190. halt
  191. }
  192. else {
  193. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  194. halt
  195. } }
  196.  
  197. on *:TEXT:!deop*:#:{
  198. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  199. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  200. halt
  201. }
  202. if ($me isop $chan) && $readini(udata.ini,$address,access) == Member {
  203. msg $chan [ERROR] You do not have the right privleges to perform this command.
  204. halt
  205. }
  206. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  207. msg $chan [ERROR] You do not have the right privleges to perform this command.
  208. halt
  209. }
  210. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 == $me {
  211. msg $chan [ERROR] You may not DEOP, KICK or BAN me.
  212. halt
  213. }
  214. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 == $me {
  215. msg $chan [ERROR] You may not DEOP, KICK or BAN me.
  216. halt
  217. }
  218. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null {
  219. mode $chan -o $2
  220. halt
  221. }
  222. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 == $null {
  223. mode $chan -o $nick
  224. halt
  225. }
  226. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null {
  227. mode $chan -o $2
  228. halt
  229. }
  230. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 == $null {
  231. mode $chan -o $nick
  232. halt
  233. }
  234. else {
  235. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  236. halt
  237. } }
  238.  
  239. on *:TEXT:!voice*:#:{
  240. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  241. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  242. halt
  243. }
  244. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  245. msg $chan [ERROR] You do not have the right privleges to perform this command.
  246. halt
  247. }
  248. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 != $null {
  249. mode $chan +v $2 $3-
  250. halt
  251. }
  252. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 == $null {
  253. mode $chan +v $nick
  254. halt
  255. }
  256. else {
  257. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  258. halt
  259. } }
  260.  
  261. on *:TEXT:!devoice*:#:{
  262. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  263. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  264. halt
  265. }
  266. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  267. msg $chan [ERROR] You do not have the right privleges to perform this command.
  268. halt
  269. }
  270. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 != $null {
  271. mode $chan -v $2
  272. halt
  273. }
  274. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 == $null {
  275. mode $chan -v $nick
  276. halt
  277. }
  278. else {
  279. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  280. halt
  281. } }
  282.  
  283. on *:TEXT:!ban*:#:{
  284. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && !$2 {
  285. msg $chan [SYNTAX] !ban <pnick/nick) <reason>.
  286. halt
  287. }
  288. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  289. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  290. halt
  291. }
  292. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  293. msg $chan [ERROR] You do not have the right privleges to perform this command.
  294. halt
  295. }
  296. if ($me isop $chan) && $readini(udata.ini,$address,access) == Member {
  297. msg $chan [ERROR] You do not have the right privleges to perform this command.
  298. halt
  299. }
  300. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 == $me {
  301. msg $chan [ERROR] You cannot DEOP, KICK or BAN me.
  302. halt
  303. }
  304. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null && $3 == $null {
  305. mode $chan +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  306. timer 1 2 kick $chan $readini(adata.ini,$2,nick) Kicked by $readini(udata.ini,$address,pnick) $+ ; No Reason Supplied.
  307. halt
  308. }
  309. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null && $3 == $null {
  310. mode $chan +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  311. timer 1 2 kick $chan $readini(adata.ini,$2,nick) Kicked by $readini(udata.ini,$address,pnick) $+ ; No Reason Supplied.
  312. halt
  313. }
  314. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null && $3 != $null {
  315. mode $chan +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  316. timer 1 2 kick $chan $readini(adata.ini,$2,nick) Kicked by $readini(udata.ini,$address,pnick) $+ ; $3-
  317. halt
  318. }
  319. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null && $3 != $null {
  320. mode $chan +b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  321. timer 1 2 kick $chan $readini(adata.ini,$2,nick) Kicked by $readini(udata.ini,$address,pnick) $+ ; $3-
  322. halt
  323. }
  324. else {
  325. msg $chan [ERROR] I do not hold operator (+@) status, so therefore I cannot fulfil your request.
  326. halt
  327. } }
  328.  
  329. on *:TEXT:!unban*:#:{
  330. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && !$2 {
  331. msg $chan [SYNTAX] !unban <pnick>) <reason>.
  332. halt
  333. }
  334. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  335. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  336. halt
  337. }
  338. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  339. msg $chan [ERROR] You do not have the right privleges to perform this command.
  340. halt
  341. }
  342. if ($me isop $chan) && $readini(udata.ini,$address,access) == Member {
  343. msg $chan [ERROR] You do not have the right privleges to perform this command.
  344. halt
  345. }
  346. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null && $3 == $null {
  347. mode $chan -b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  348. halt
  349. }
  350. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null && $3 == $null {
  351. mode $chan -b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  352. halt
  353. }
  354. if ($me isop $chan) && $readini(udata.ini,$address,access) == Admin && $2 != $null && $3 != $null {
  355. mode $chan -b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  356. halt
  357. }
  358. if ($me isop $chan) && $readini(udata.ini,$address,access) == Operator && $2 != $null && $3 != $null {
  359. mode $chan -b *!* $+ @ $+ $readini(adata.ini,$2,pnick) $+ .users.netgamers.org
  360. halt
  361. }
  362. else {
  363. msg $chan [ERROR] I do not hold operator (+@) status, so therefore I cannot fulfil your request.
  364. halt
  365. } }
  366.  
  367.  
  368. on *:TEXT:!kick*:#:{
  369. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && !$2 {
  370. msg $chan [SYNTAX] !kick <nick> <reason>.
  371. halt
  372. }
  373. if ($me isop $chan) && $readini(udata.ini,$address,pnick) == $null {
  374. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  375. halt
  376. }
  377. if ($me isop $chan) && $readini(udata.ini,$address,access) == $null {
  378. msg $chan [ERROR] You do not have the right privleges to perform this command.
  379. halt
  380. }
  381. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 == $me {
  382. msg $chan [ERROR] You may not DEOP, KICK or BAN me.
  383. halt
  384. }
  385. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 != $null && $3 == $null {
  386. kick $chan $2 Kicked by $readini(udata.ini,$address,pnick) $+ ; No Reason Supplied.
  387. halt
  388. }
  389. if ($me isop $chan) && $readini(udata.ini,$address,access) != $null && $2 != $null && $3 != $null {
  390. kick $chan $2 Kicked by $readini(udata.ini,$address,pnick) $+ ; $3-
  391. halt
  392. }
  393. else {
  394. msg $chan [ERROR] I do not hold operator (+@) status, so I therefore cannot fulfil your request.
  395. halt
  396. } }
  397.  
  398. on *:TEXT:!adduser*:#:{
  399. if ($readini(udata.ini,$address,access) == Admin) && !$3 {
  400. msg $chan [SYNTAX] !adduser <pnick> <access level>.
  401. halt
  402. }
  403. if ($readini(udata.ini,$address,nick) == $null) {
  404. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  405. halt
  406. }
  407. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == active {
  408. msg $chan [ERROR] User already exists:  $+ $2 $+ . Their current status is $readini(adata.ini,$2,access) $+ .
  409. halt
  410. }
  411. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == removed {
  412. msg $chan [ERROR] User already exists:  $+ $2 $+ . Their current status is Removed by Administrator.
  413. halt
  414. }
  415. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == idle {
  416. msg $chan [ERROR] User already exists:  $+ $2 $+ . Their current status is  User deemed idle by Administrator.
  417. halt
  418. }
  419. if ($readini(udata.ini,$address,access) == Admin) && $3 == Admin && $readini(adata.ini,$2,access) == $null {
  420. var %x 1
  421. while ($read(members.txt,%x)) {
  422. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  423. inc %x
  424. }
  425. if (!%search) { write members.txt $2
  426. msg $me adduser $2 $readini(udata.ini,$address,pnick) $chan admin }
  427. else { msg $me adduser $2 $readini(udata.ini,$address,pnick) $chan admin }
  428. halt
  429. }
  430. if ($readini(udata.ini,$address,access) == Admin) && $3 == operator && $readini(adata.ini,$2,access) == $null {
  431. var %x 1
  432. while ($read(members.txt,%x)) {
  433. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  434. inc %x
  435. }
  436. if (!%search) { write members.txt $2
  437. msg $me adduser $2 $readini(udata.ini,$address,pnick) $chan operator }
  438. else { msg $me adduser $2 $readini(udata.ini,$address,pnick) $chan operator }
  439. halt
  440. }
  441. if ($readini(udata.ini,$address,access) == Admin) && $3 == member && $readini(adata.ini,$2,access) == $null {
  442. var %x 1
  443. while ($read(members.txt,%x)) {
  444. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  445. inc %x
  446. }
  447. if (!%search) { write members.txt $2
  448. msg $me adduser $2 $readini(udata.ini,$address,pnick) $chan member }
  449. else { msg $me adduser $2 $readini(udata.ini,$address,pnick) $chan member }
  450. halt
  451. } }
  452.  
  453.  
  454. on *:TEXT:adduser*:?:{
  455. if ($nick == $me) && $5 == admin && $readini(adata.ini,$2,nick) == $null {
  456. writeini adata.ini $2 access Admin
  457. writeini adata.ini $2 automode +o
  458. writeini adata.ini $2 pnick $2
  459. writeini adata.ini $2 sponser $3
  460. writeini adata.ini $2 status active
  461. writeini adata.ini $2 plankpoints 0
  462. writeini adata.ini $2 humourpoints 0
  463. writeini adata.ini $2 hugpoints 0
  464. msg p adduser #cruiser 450
  465. msg $4 Successfully added $2 as an Administrator.
  466. msg p note send $2 $3 has added you as an Administrator. For a list of commands, type /me $me !help.
  467. halt
  468. }
  469. if ($nick == $me) && $5 == admin && $readini(adata.ini,$2,nick) != $null {
  470. writeini adata.ini $2 access Admin
  471. writeini adata.ini $2 automode +o
  472. writeini adata.ini $2 pnick $2
  473. writeini adata.ini $2 sponser $3
  474. writeini adata.ini $2 status active
  475. writeini adata.ini $2 plankpoints 0
  476. writeini adata.ini $2 humourpoints 0
  477. writeini adata.ini $2 hugpoints 0
  478. writeini udata.ini $readini(adata.ini,$2,address) access Admin
  479. writeini udata.ini $readini(adata.ini,$2,address) automode +o
  480. msg p adduser #cruiser 450
  481. msg $4 Successfully added $2 as an Administrator.
  482. msg p note send $2 $3 has added you as an Administrator. For a list of commands, type /me $me !help.
  483. mode #cruiser +o $readini(adata.ini,$2,nick)
  484. halt
  485. }
  486. if ($nick == $me) && $5 == operator && $readini(adata.ini,$2,nick) == $null {
  487. writeini adata.ini $2 access Operator
  488. writeini adata.ini $2 automode +o
  489. writeini adata.ini $2 pnick $2
  490. writeini adata.ini $2 sponser $3
  491. writeini adata.ini $2 status active
  492. msg p adduser #cruiser 100
  493. msg $4 Successfully added $2 as an Operator.
  494. msg p note send $2 $3 has added you as an Operator. For a list of commands, type /me $me !help.
  495. halt
  496. }
  497. if ($nick == $me) && $5 == operator && $readini(adata.ini,$2,nick) != $null {
  498. writeini adata.ini $2 access Operator
  499. writeini adata.ini $2 automode +o
  500. writeini adata.ini $2 pnick $2
  501. writeini adata.ini $2 sponser $3
  502. writeini adata.ini $2 status active
  503. writeini adata.ini $2 plankpoints 0
  504. writeini adata.ini $2 humourpoints 0
  505. writeini adata.ini $2 hugpoints 0
  506. writeini udata.ini $readini(adata.ini,$2,address) access Operator
  507. writeini udata.ini $readini(adata.ini,$2,address) automode +o
  508. msg p adduser #cruiser 100
  509. msg $4 Successfully added $2 as an Operator.
  510. msg p note send $2 $3 has added you as an Operator. For a list of commands, type /me $me !help.
  511. mode #cruiser +o $readini(adata.ini,$2,nick)
  512. halt
  513. }
  514. if ($nick == $me) && $5 == member && $readini(adata.ini,$2,nick) == $null {
  515. writeini adata.ini $2 access Member
  516. writeini adata.ini $2 automode +v
  517. writeini adata.ini $2 pnick $2
  518. writeini adata.ini $2 sponser $3
  519. writeini adata.ini $2 status active
  520. writeini adata.ini $2 plankpoints 0
  521. writeini adata.ini $2 humourpoints 0
  522. writeini adata.ini $2 hugpoints 0
  523. msg p adduser #cruiser 25
  524. msg $4 Successfully added $2 as a Member.
  525. msg p note send $2 $3 has added you as a Member. For a list of commands, type /me $me !help.
  526. halt
  527. }
  528. if ($nick == $me) && $5 == member && $readini(adata.ini,$2,nick) != $null {
  529. writeini adata.ini $2 access Member
  530. writeini adata.ini $2 automode +v
  531. writeini adata.ini $2 pnick $2
  532. writeini adata.ini $2 sponser $3
  533. writeini adata.ini $2 status active
  534. writeini adata.ini $2 plankpoints 0
  535. writeini adata.ini $2 humourpoints 0
  536. writeini adata.ini $2 hugpoints 0
  537. writeini udata.ini $readini(adata.ini,$2,address) access Member
  538. writeini udata.ini $readini(adata.ini,$2,address) automode +v
  539. msg p adduser #cruiser 25
  540. msg $4 Successfully added $2 as a Member.
  541. msg p note send $2 $3 has added you as a Member. For a list of commands, type /me $me !help.
  542. mode #cruiser +v $readini(adata.ini,$2,nick)
  543. halt
  544. } }
  545.  
  546.  
  547.  
  548.  
  549.  
  550.  
  551. on *:TEXT:!access*:#:{
  552. if ($readini(udata.ini,$address,access) == Admin) && !$3 {
  553. msg $chan [SYNTAX] !access <user> <access level>.
  554. halt
  555. }
  556. if ($readini(udata.ini,$address,nick) == $null) {
  557. msg $me auth.access $nick $2 $3
  558. halt
  559. }
  560. if ($readini(udata.ini,$address,access) == Admin) && $3 == admin && $readini(adata.ini,$2,access) == $null {
  561. var %x 1
  562. while ($read(members.txt,%x)) {
  563. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  564. inc %x
  565. }
  566. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  567. else { msg $me access $2 $readini(udata.ini,$address,pnick) $chan admin }
  568. halt
  569. }
  570. if ($readini(udata.ini,$address,access) == Admin) && $3 == operator && $readini(adata.ini,$2,access) == $null {
  571. var %x 1
  572. while ($read(members.txt,%x)) {
  573. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  574. inc %x
  575. }
  576. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  577. else { msg $me access $2 $readini(udata.ini,$address,pnick) $chan operator }
  578. halt
  579. }
  580. if ($readini(udata.ini,$address,access) == Admin) && $3 == member && $readini(adata.ini,$2,access) == $null {
  581. var %x 1
  582. while ($read(members.txt,%x)) {
  583. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  584. inc %x
  585. }
  586. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  587. else { msg $me access $2 $readini(udata.ini,$address,pnick) $chan member }
  588. halt
  589. }
  590. }
  591.  
  592. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,pnick) == $null) {
  593. msg $chan [ERROR] Unknown user: $2 $+ .
  594. halt
  595. }
  596. if ($readini(udata.ini,$address,access) == Admin) && $3 == admin && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null {
  597. writeini adata.ini $2 access Admin
  598. writeini adata.ini $2 automode +o
  599. writeini adata.ini $2 status active
  600. writeini udata.ini $readini(adata.ini,$2,address) access Admin
  601. writeini udata.ini $readini(adata.ini,$2,address) automode +o
  602. msg p modinfo #cruiser access $2 450
  603. msg p adduser #cruiser $2 450
  604. mode #cruiser +o $readini(adata.ini,$2,nick)
  605. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access to Administrator.
  606. msg $readini(adata.ini,$2,nick) $nick $+ , $readini(udata.ini,$address,pnick) has just modified your access to Administrator.
  607. 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.
  608. halt
  609. }
  610. if ($readini(udata.ini,$address,access) == Admin) && $3 == admin && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null {
  611. writeini adata.ini $2 access Admin
  612. writeini adata.ini $2 automode +o
  613. writeini adata.ini $2 status active
  614. msg p modinfo #cruiser access $2 450
  615. msg p adduser #cruiser $2 450
  616. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access to Administrator.
  617. 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.
  618. halt
  619. }
  620. if ($readini(udata.ini,$address,access) == Admin) && $3 == Operator && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null {
  621. writeini adata.ini $2 access Operator
  622. writeini adata.ini $2 automode +o
  623. writeini adata.ini $2 status active
  624. writeini udata.ini $readini(adata.ini,$2,address) access Operator
  625. writeini udata.ini $readini(adata.ini,$2,address) automode +o
  626. msg p modinfo #cruiser access $2 100
  627. msg p adduser #cruiser $2 100
  628. mode #cruiser +o $readini(adata.ini,$2,nick)
  629. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access to Operator.
  630. msg $readini(adata.ini,$2,nick) $nick $+ , $readini(udata.ini,$address,pnick) has just modified your access to Operator.
  631. 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.
  632. halt
  633. }
  634. if ($readini(udata.ini,$address,access) == Admin) && $3 == Operator && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null {
  635. writeini adata.ini $2 access Operator
  636. writeini adata.ini $2 automode +o
  637. writeini adata.ini $2 status active
  638. msg p modinfo #cruiser access $2 100
  639. msg p adduser #cruiser $2 100
  640. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access to Operator.
  641. 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.
  642. halt
  643. }
  644. if ($readini(udata.ini,$address,access) == Admin) && $3 == Member && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) != $null {
  645. writeini adata.ini $2 access Member
  646. writeini adata.ini $2 automode +v
  647. writeini adata.ini $2 status active
  648. writeini udata.ini $readini(adata.ini,$2,address) access Member
  649. writeini udata.ini $readini(adata.ini,$2,address) automode +v
  650. msg p modinfo #cruiser modinfo access $2 25
  651. msg p adduser #cruiser $2 25
  652. mode #cruiser -o+v $readini(adata.ini,$2,nick)
  653. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access level to Member.
  654. msg $readini(adata.ini,$2,nick) $nick ( $+ $readini(udata.ini,$address,pnick) $+ ) has just modified your access level to Member.
  655. msg p note send $readini(adata.ini,$2,pnick) $readini(udata.ini,$address,pnick) has just modified your access level to Member.
  656. halt
  657. }
  658. if ($readini(udata.ini,$address,access) == Admin) && $3 == Member && $readini(udata.ini,$readini(adata.ini,$2,address),pnick) == $null {
  659. writeini adata.ini $2 access Member
  660. writeini adata.ini $2 automode +v
  661. writeini adata.ini $2 status active
  662. msg p modinfo #cruiser access $2 25
  663. msg p adduser #cruiser $2 25
  664. msg $chan Successfully modified $readini(adata.ini,$2,pnick) $+ 's access level to Member.
  665. msg p note send $readini(adata.ini,$2,pnick) $readini(udata.ini,$address,pnick) has just modified your access level to Member.
  666. halt
  667. }
  668. if ($readini(udata.ini,$address,access) != Admin) {
  669. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  670. halt
  671. }
  672. else {
  673. msg $chan [ERROR] Unknown access level. Please choose Admin, Operator, or Member.
  674. halt
  675. } }
  676.  
  677. on *:TEXT:!suspend*:#:{
  678. if ($readini(udata.ini,$address,access) != Admin) {
  679. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  680. halt
  681. }
  682. if ($readini(udata.ini,$address,pnick) == $null) {
  683. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  684. halt
  685. }
  686. if ($readini(udata.ini,$address,access) == Admin) && !$3 {
  687. msg $chan [SYNTAX] !suspend <pnick>
  688. halt
  689. }
  690. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) == $null {
  691. msg $chan [ERROR] Unknown user: $2
  692. halt
  693. }
  694. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == removed {
  695. msg $chan [ERROR] Unable to perform command; $readini(adata.ini,$2,pnick) has previously been removed by an Administrator.
  696. halt
  697. }
  698. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == idle {
  699. msg $chan [ERROR] Unable to perform command; $readini(adata.ini,$2,pnick) has previously been deemed as IDLE by an Administrator.
  700. halt
  701. }
  702. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == suspended {
  703. msg $chan [ERROR] Unable to perform command; $readini(adata.ini,$2,pnick) is under suspension. Time remaining until lifted: $duration($calc(%suspension. [ $+ [ $2 ] ] - $ctime))
  704. halt
  705. }
  706. 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 {
  707. remini udata.ini $readini(adata.ini,$2,address) automode
  708. writeini adata.ini $2 status suspended
  709. remini adata.ini $2 automode
  710. set %calc. [ $+ [ $2 ] ] $calc($3 * 60)
  711. set %suspension. [ $+ [ $2 ] ] $calc($ctime + %calc. [ $+ [ $2 ] ]))
  712. 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.
  713. msg $chan $readini(adata.ini,$2,nick) has been SUSPENDED f1or a period of $3 minutes.
  714. timer $time($calc($ctime + %calc. [ $+ [ $2 ] ] )) 1 1 writeini adata.ini $2 status approved
  715. timer $time($calc($ctime + %calc. [ $+ [ $2 ] ] )) 1 1 msg $chan $readini(adata.ini,$2,pnick) $+ 's suspension has expired.
  716. halt
  717. }
  718. 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 {
  719. writeini adata.ini $2 status suspended
  720. set %calc. [ $+ [ $2 ] ] $calc($3 * 60)
  721. set %suspension. [ $+ [ $2 ] ] $calc($ctime + %calc.plank))
  722. msg $chan $readini(adata.ini,$2,pnick) has been SUSPENDED f2or a period of $3 minutes.
  723. timer $time($calc($ctime + %calc.plank )) 1 1 writeini adata.ini $2 status approved
  724. timer $time($calc($ctime + %calc.plank )) 1 1 msg $chan $readini(adata.ini,$2,pnick) $+ 's suspension has expired.
  725. halt
  726. } }
  727.  
  728.  
  729.  
  730. on *:TEXT:!idle*:#:{
  731. if ($readini(udata.ini,$address,access) != Admin) {
  732. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  733. halt
  734. }
  735. if ($readini(udata.ini,$address,pnick) == $null) {
  736. msg $chan [ERROR] You are not authenticated. Type !login to authenticate.
  737. halt
  738. }
  739. if ($readini(udata.ini,$address,access) == Admin) && !$2 {
  740. msg $chan [SYNTAX] !idle <pnick>.
  741. halt
  742. }
  743. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,status) == $null {
  744. msg $chan [ERROR] Unknown user: $2 $+ .
  745. halt
  746. }
  747. if ($readini(udata.ini,$address,access) == Admin) && $readini(adata.ini,$2,access) != $null {
  748. remini adata.ini $2 automode
  749. remini adata.ini $2 access
  750. writeini adata.ini $2 status idle
  751. msg $chan Successfully set $readini(adata.ini,$2,pnick) $+ 's account as idle.
  752. msg p remuser #cruiser $2
  753. 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.
  754. halt
  755. } }
  756.  
  757. on *:TEXT:remove.pm*:?:{
  758. if ($nick == $me) && $4 {
  759. msg $2 There is more than one user matching your query; $read(members.txt,$3) $read(members.txt,$4) $read(members.txt,$5) $read(members.txt,$6) $read(members.txt,$7) $read(members.txt,$8) $read(members.txt,9) $read(members.txt,$10)
  760. halt
  761. }
  762. if ($nick == $me) && $readini(adata.ini,$read(members.txt,$3),status) == removed {
  763. msg $2 [ERROR] $read(members.txt,$3) is not a member. To view their current status, type !whois $read(members.txt,$3) $+ .
  764. halt
  765. }
  766. if ($nick == $me) && $readini(udata.ini,$readini(adata.ini,$read(members.txt,$3),address),nick) != $null {
  767. remini adata.ini $read(members.txt,$3) automode
  768. remini adata.ini $read(members.txt,$3) access
  769. writeini adata.ini $read(members.txt,$3) status removed
  770. remini udata.ini $readini(adata.ini,$read(members.txt,$3),address) access
  771. remini udata.ini $readini(adata.ini,$read(members.txt,$3),address) automode
  772. msg $2 Successfully removed $read(members.txt,$3) $+ 's access.
  773. mode #cruiser +b $readini(adata.ini,$read(members.txt,$3),address)
  774. kick #cruiser $read(members.txt,$3) Your access has been removed by $readini(ndata.ini,$2,pnick) $+ .
  775. msg p note send $read(members.txt,$3) Your access has been removed by $readini(ndata.ini,$2,pnick) $+ .
  776. msg p remuser #cruiser $read(members.txt,$3)
  777. halt
  778. }
  779. if ($nick == $me) && $readini(udata.ini,$readini(adata.ini,$read(members.txt,$3),address),nick) == $null {
  780. remini adata.ini $read(members.txt,$3) automode
  781. remini adata.ini $read(members.txt,$3) access
  782. writeini adata.ini $read(members.txt,$3) status removed
  783. msg $2 Successfully removed $read(members.txt,$3) $+ 's access.
  784. mode #cruiser +b $readini(adata.ini,$read(members.txt,$3),lastaddress)
  785. msg p note send $read(members.txt,$3) Your access has been removed by $readini(ndata.ini,$2,pnick) $+ .
  786. msg p remuser #cruiser $read(members.txt,$3)
  787. halt
  788. } }
  789.  
  790. on *:TEXT:remove.chan*:?:{
  791. if ($nick == $me) && $5 {
  792. msg $2 There is more than one user matching your query; $read(members.txt,$4) $read(members.txt,$5) $read(members.txt,$6) $read(members.txt,$7) $read(members.txt,$8) $read(members.txt,$9) $read(members.txt,10) $read(members.txt,$11)
  793. halt
  794. }
  795. if ($nick == $me) && $readini(adata.ini,$read(members.txt,$4),status) == removed {
  796. msg $2 [ERROR] $read(members.txt,$4) is not a member. To view their current status, type !whois $read(members.txt,$4) $+ .
  797. halt
  798. }
  799. if ($nick == $me) && $readini(udata.ini,$readini(adata.ini,$read(members.txt,$4),address),nick) != $null {
  800. remini adata.ini $read(members.txt,$4) automode
  801. remini adata.ini $read(members.txt,$4) access
  802. writeini adata.ini $read(members.txt,$4) status removed
  803. remini udata.ini $readini(adata.ini,$read(members.txt,$4),address) access
  804. remini udata.ini $readini(adata.ini,$read(members.txt,$4),address) automode
  805. msg $2 Successfully removed $read(members.txt,$4) $+ 's access.
  806. mode #cruiser +b $readini(adata.ini,$read(members.txt,$4),address)
  807. kick #cruiser $readini(adata.ini,$read(members.txt,$4),nick) Your access has been removed by $readini(ndata.ini,$3,pnick) $+ .
  808. msg p note send $read(members.txt,$4) Your access has been removed by $readini(ndata.ini,$3,pnick) $+ .
  809. msg p remuser #cruiser $read(members.txt,$4)
  810. halt
  811. }
  812. if ($nick == $me) && $readini(udata.ini,$readini(adata.ini,$read(members.txt,$4),address),nick) == $null {
  813. remini adata.ini $read(members.txt,$4) automode
  814. remini adata.ini $read(members.txt,$4) access
  815. writeini adata.ini $read(members.txt,$4) status removed
  816. msg $2 Successfully removed $read(members.txt,$4) $+ 's access.
  817. mode #cruiser +b $readini(adata.ini,$read(members.txt,$4),lastaddress)
  818. msg p note send $read(members.txt,$4) Your access has been removed by $readini(ndata.ini,$3,pnick) $+ .
  819. msg p remuser #cruiser $read(members.txt,$4)
  820. halt
  821. } }
  822.  
  823.  
  824.  
  825.  
  826. on *:TEXT:!remove*:?:{
  827. if ($readini(udata.ini,$address,access) != Admin) {
  828. msg $nick [ACCESS DENIED] You do not have the right privleges to perform this command.
  829. halt
  830. }
  831. if (readini(udata.ini,$address,access) == Admin) && !$2 {
  832. msg $nick [SYNTAX] !remove <user>
  833. halt
  834. }
  835. if ($readini(udata.ini,$address,access) == Admin) {
  836. var %search
  837. var %x 1
  838. while ($read(members.txt,%x)) {
  839. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  840. inc %x
  841. }
  842. if (!%search) { msg $nick [ERROR] Unknown user: $2 $+ . }
  843. else { msg $me remove.pm $nick %search }
  844. halt
  845. } }
  846.  
  847.  
  848. on *:TEXT:!remove*:#:{
  849. if ($readini(udata.ini,$address,access) != Admin) {
  850. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  851. halt
  852. }
  853. if (readini(udata.ini,$address,access) == Admin) && !$2 {
  854. msg $chan [SYNTAX] !remove <pnick>
  855. halt
  856. }
  857. if ($readini(udata.ini,$address,access) == Admin) {
  858. var %search
  859. var %x 1
  860. while ($read(members.txt,%x)) {
  861. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  862. inc %x
  863. }
  864. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  865. else { msg $me remove.chan $chan $nick %search }
  866. halt
  867. } }
  868.  
  869. on *:TEXT:plank.add*:?:{
  870. if ($nick == $me) && $5 {
  871. msg $2 There is more than one user matching your query; $read(members.txt,$4) $read(members.txt,$5) $read(members.txt,$6) $read(members.txt,$7) $read(members.txt,$8) $read(members.txt,$9) $read(members.txt,10) $read(members.txt,$11)
  872. halt
  873. }
  874. if ($nick == $me) && $readini(adata.ini,$read(members.txt,$4),status) == removed {
  875. msg $2 [ERROR] User: $read(members.txt,$4) is not a member anymore.
  876. halt
  877. }
  878. if ($nick == $me) && $3 == $readini(adata.ini,$read(members.txt,$4),pnick) {
  879. msg $2 [ERROR] You can't plank yourself, noob!
  880. halt
  881. }
  882. if ($nick == $me) && $readini(adata.ini,$3,todaysplankaddedpointdate. $+ $read(members.txt,$4)) == $date {
  883. msg $2 [ERROR] You have already added a plank point to $read(members.txt,$4) for today. You can next add another plank point to this user in $duration($calc($readini(adata.ini,$3,todaysplankaddedpointreset. $+ $read(members.txt,$4) - $ctime))) +.
  884. halt
  885. }
  886. else {
  887. set %addpoint $+ [ $read(members.txt,$4) ] $calc($readini(adata.ini,$read(members.txt,$4),plankpoints)) + 1
  888. writeini adata.ini $3 todaysplankaddedpointdate. $+ $read(members.txt,$4) $date
  889. writeini adata.ini $3 todaysplankaddedpointreset. $+ $read(members.txt,$4) $ctime($date 23:59:59)
  890. writeini adata.ini $read(members.txt,$4) plankpoints %addpoint [ $+ [ $read(members.txt,$4) ] ]
  891. timer 1 1 unset %addpoint [ $+ [ $5 ] ]
  892. msg $2 Successfully added a plank point to $read(members.txt,$4) $+ . They now have3 $readini(adata.ini,$read(members.txt,$4),plankpoints) plank points.
  893. unset %addpoint $+ [ $read(members.txt,$4) ]
  894. halt
  895. }
  896. }
  897.  
  898. on *:TEXT:humour.add*:?:{
  899. if ($nick == $me) && $5 {
  900. msg $2 There is more than one user matching your query; $read(members.txt,$4) $read(members.txt,$5) $read(members.txt,$6) $read(members.txt,$7) $read(members.txt,$8) $read(members.txt,$9) $read(members.txt,10) $read(members.txt,$11)
  901. halt
  902. }
  903. if ($nick == $me) && $readini(adata.ini,$read(members.txt,$4),status) == removed {
  904. msg $2 [ERROR] User: $read(members.txt,$4) is not a member anymore.
  905. halt
  906. }
  907. if ($nick == $me) && $3 == $readini(adata.ini,$read(members.txt,$4),pnick) {
  908. msg $2 [ERROR] You can't humour yourself, noob!
  909. halt
  910. }
  911. if ($nick == $me) && $readini(adata.ini,$3,todayshumouraddedpointdate. $+ $read(members.txt,$4)) == $date {
  912. msg $2 [ERROR] You have already added a humour point to $read(members.txt,$4) for today. You can next add another humour point to this user in $duration($calc($readini(adata.ini,$3,todayshumouraddedpointreset. $+ $read(members.txt,$4) - $ctime))) +.
  913. halt
  914. }
  915. else {
  916. set %addpoint $+ [ $read(members.txt,$4) ] $calc($readini(adata.ini,$read(members.txt,$4),humourpoints)) + 1
  917. writeini adata.ini $3 todayshumouraddedpointdate. $+ $read(members.txt,$4) $date
  918. writeini adata.ini $3 todayshumouraddedpointreset. $+ $read(members.txt,$4) $ctime($date 23:59:59)
  919. writeini adata.ini $read(members.txt,$4) humourpoints %addpoint [ $+ [ $read(members.txt,$4) ] ]
  920. timer 1 1 unset %addpoint [ $+ [ $5 ] ]
  921. msg $2 Successfully added a humour point to $read(members.txt,$4) $+ . They now have3 $readini(adata.ini,$read(members.txt,$4),humourpoints) humour points.
  922. unset %addpoint $+ [ $read(members.txt,$4) ]
  923. halt
  924. }
  925. }
  926.  
  927. on *:TEXT:hug.add*:?:{
  928. if ($nick == $me) && $5 {
  929. msg $2 There is more than one user matching your query; $read(members.txt,$4) $read(members.txt,$5) $read(members.txt,$6) $read(members.txt,$7) $read(members.txt,$8) $read(members.txt,$9) $read(members.txt,10) $read(members.txt,$11)
  930. halt
  931. }
  932. if ($nick == $me) && $readini(adata.ini,$read(members.txt,$4),status) == removed {
  933. msg $2 [ERROR] User: $read(members.txt,$4) is not a member anymore.
  934. halt
  935. }
  936. if ($nick == $me) && $3 == $readini(adata.ini,$read(members.txt,$4),pnick) {
  937. msg $2 [ERROR] You can't hug yourself, noob!
  938. halt
  939. }
  940. if ($nick == $me) && $readini(adata.ini,$3,todayshugaddedpointdate. $+ $read(members.txt,$4)) == $date {
  941. msg $2 [ERROR] You have already added a hug point to $read(members.txt,$4) for today. You can next add another hug point to this user in $duration($calc($readini(adata.ini,$3,todayshugaddedpointreset. $+ $read(members.txt,$4) - $ctime))) +.
  942. halt
  943. }
  944. else {
  945. set %addpoint $+ [ $read(members.txt,$4) ] $calc($readini(adata.ini,$read(members.txt,$4),hugpoints)) + 1
  946. writeini adata.ini $3 todayshugaddedpointdate. $+ $read(members.txt,$4) $date
  947. writeini adata.ini $3 todayshugaddedpointreset. $+ $read(members.txt,$4) $ctime($date 23:59:59)
  948. writeini adata.ini $read(members.txt,$4) hugpoints %addpoint [ $+ [ $read(members.txt,$4) ] ]
  949. timer 1 1 unset %addpoint [ $+ [ $5 ] ]
  950. msg $2 Successfully added a hug point to $read(members.txt,$4) $+ . They now have3 $readini(adata.ini,$read(members.txt,$4),hugpoints) hug points.
  951. unset %addpoint $+ [ $read(members.txt,$4) ]
  952. halt
  953. }
  954. }
  955.  
  956. on *:TEXT:points*:?:{
  957. if ($nick == $me) && $5 {
  958. msg $2 There is more than one user matching your query; $read(members.txt,$4) $read(members.txt,$5) $read(members.txt,$6) $read(members.txt,$7) $read(members.txt,$8) $read(members.txt,$9) $read(members.txt,10) $read(members.txt,$11)
  959. halt
  960. }
  961. else {
  962. msg $2  $+ $read(members.txt,$4) $+  has a total of3 $readini(adata.ini,$read(members.txt,$4),humourpoints) humour,3 $readini(adata.ini,$read(members.txt,$4),plankpoints) plank &3 $readini(adata.ini,$read(members.txt,$4),hugpoints) hug points.
  963. halt
  964. }
  965. }
  966.  
  967.  
  968.  
  969. on *:TEXT:plank.remove*:?:{
  970. if ($nick == $me) && $readini(adata.ini,$3,access) != Admin {
  971. msg $chan [ERROR] You do not have the right privleges to remove plank points.
  972. halt
  973. }
  974. if ($nick == $me) && $readini(adata.ini,$3,access) == Admin && $readini(adata.ini,$read(members.txt,$4),plankpoints) < 1 {
  975. msg $chan [ERROR] $read(members.txt,$4) is on 30 plank points so therefore you cannot remove anymore plank points.
  976. halt
  977. }
  978. if ($nick == $me) && $5 {
  979. msg $2 There is more than one user matching your query; $read(members.txt,$4) $read(members.txt,$5) $read(members.txt,$6) $read(members.txt,$7) $read(members.txt,$8) $read(members.txt,$9) $read(members.txt,10) $read(members.txt,$11)
  980. halt
  981. }
  982. else {
  983. set %rempoint $+ [ $read(members.txt,$4) ] $calc($readini(adata.ini,$read(members.txt,$4),plankpoints)) - 1
  984. writeini adata.ini $read(members.txt,$4) plankpoints %rempoint [ $+ [ $read(members.txt,$4) ] ]
  985. timer 1 1 unset %rempoint [ $+ [ $read(members.txt,$4) ] ]
  986. msg $2 Successfully removed a plank point for $read(members.txt,$4) $+ . They now have3 $readini(adata.ini,$read(members.txt,$4),plankpoints) plank points.
  987. unset %rempoint $+ [ $read(members.txt,$4) ]
  988. halt
  989. } }
  990.  
  991. on *:TEXT:hug.remove*:?:{
  992. if ($nick == $me) && $readini(adata.ini,$3,access) != Admin {
  993. msg $chan [ERROR] You do not have the right privleges to remove hug points.
  994. halt
  995. }
  996. if ($nick == $me) && $readini(adata.ini,$3,access) == Admin && $readini(adata.ini,$read(members.txt,$4),hugpoints) < 1 {
  997. msg $chan [ERROR] $read(members.txt,$4) is on 30 hug points so therefore you cannot remove anymore hug points.
  998. halt
  999. }
  1000. if ($nick == $me) && $5 {
  1001. msg $2 There is more than one user matching your query; $read(members.txt,$4) $read(members.txt,$5) $read(members.txt,$6) $read(members.txt,$7) $read(members.txt,$8) $read(members.txt,$9) $read(members.txt,10) $read(members.txt,$11)
  1002. halt
  1003. }
  1004. else {
  1005. set %rempoint $+ [ $read(members.txt,$4) ] $calc($readini(adata.ini,$read(members.txt,$4),hugpoints)) - 1
  1006. writeini adata.ini $read(members.txt,$4) hugpoints %rempoint [ $+ [ $read(members.txt,$4) ] ]
  1007. timer 1 1 unset %rempoint [ $+ [ $read(members.txt,$4) ] ]
  1008. msg $2 Successfully removed a hug point for $read(members.txt,$4) $+ . They now have3 $readini(adata.ini,$read(members.txt,$4),hugpoints) hug points.
  1009. unset %rempoint $+ [ $read(members.txt,$4) ]
  1010. halt
  1011. } }
  1012.  
  1013.  
  1014. on *:TEXT:humour.remove*:?:{
  1015. if ($nick == $me) && $readini(adata.ini,$3,access) != Admin {
  1016. msg $chan [ERROR] You do not have the right privleges to remove humour points.
  1017. halt
  1018. }
  1019. if ($nick == $me) && $readini(adata.ini,$3,access) == Admin && $readini(adata.ini,$4,plankpoints) < 1 {
  1020. msg $chan [ERROR] $3 is on 30 humour points so therefore you cannot remove anymore plank points.
  1021. halt
  1022. }
  1023. if ($nick == $me) && $6 {
  1024. msg $2 There is more than one user matching your query; $read(members.txt,$4) $read(members.txt,$5) $read(members.txt,$6) $read(members.txt,$7) $read(members.txt,$8) $read(members.txt,$9) $read(members.txt,10) $read(members.txt,$11)
  1025. halt
  1026. }
  1027. else {
  1028. set %rempoint $+ [ $4 ] $calc($readini(adata.ini,$4,humourpoints)) - 1
  1029. writeini adata.ini $4 humourpoints %rempoint [ $+ [ $4 ] ]
  1030. timer 1 1 unset %rempoint [ $+ [ $4 ] ]
  1031. msg $2 Successfully removed a humour point for $4 $+ . They now have3 $readini(adata.ini,$4,humourpoints) humour points.
  1032. halt
  1033. unset %rempoint $+ [ $read(members.txt,$4) ]
  1034. } }
  1035.  
  1036.  
  1037.  
  1038.  
  1039. on *:TEXT:!plank*:#:{
  1040. if ($readini(udata.ini,$address,pnick) == $null) {
  1041. msg $me plank.auth
  1042. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  1043. msg $chan [SYNTAX] !plank <pnick>.
  1044. halt
  1045. }
  1046. if ($readini(udata.ini,$address,access) != $null) && $2 == remove {
  1047. var %search
  1048. var %x 1
  1049. while ($read(members.txt,%x)) {
  1050. if ($3 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  1051. inc %x
  1052. }
  1053. if (!%search) { msg $chan [ERROR] Unknown user: $3 $+ . }
  1054. else { msg $me plank.remove $chan $readini(udata.ini,$address,pnick) %search }
  1055. halt
  1056. }
  1057. if ($readini(udata.ini,$address,access) != $null) {
  1058. var %search
  1059. var %x 1
  1060. while ($read(members.txt,%x)) {
  1061. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  1062. inc %x
  1063. }
  1064. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  1065. else { msg $me plank.add $chan $readini(udata.ini,$address,pnick) %search }
  1066. halt
  1067. }
  1068. if ($readini(udata.ini,$address,access) == $null) {
  1069. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  1070. halt
  1071. }
  1072. if ($readini(udata.ini,$address,access) == Admin) && $2 == remove && $3 == $null {
  1073. msg $chan [SYNTAX] !plank remove <pnick>.
  1074. halt
  1075. }
  1076. if ($readini(udata.ini,$address,pnick) == $null) {
  1077. msg $chan [ERROR] You are not authenticated. To authenticate: type !login
  1078. halt
  1079. }
  1080. } }
  1081.  
  1082.  
  1083. on *:TEXT:!humour*:#:{
  1084. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  1085. msg $chan [SYNTAX] !humour <pnick>.
  1086. halt
  1087. }
  1088. if ($readini(udata.ini,$address,access) != $null) && $2 == remove {
  1089. var %search
  1090. var %x 1
  1091. while ($read(members.txt,%x)) {
  1092. if ($3 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  1093. inc %x
  1094. }
  1095. if (!%search) { msg $chan [ERROR] Unknown user: $3 $+ . }
  1096. else { msg $me humour.remove $chan $readini(udata.ini,$address,pnick) %search }
  1097. halt
  1098. }
  1099. if ($readini(udata.ini,$address,access) != $null) {
  1100. var %search
  1101. var %x 1
  1102. while ($read(members.txt,%x)) {
  1103. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  1104. inc %x
  1105. }
  1106. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  1107. else { msg $me humour.add $chan $readini(udata.ini,$address,pnick) %search }
  1108. halt
  1109. }
  1110. if ($readini(udata.ini,$address,access) == $null) {
  1111. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  1112. halt
  1113. }
  1114. if ($readini(udata.ini,$address,access) == Admin) && $2 == remove && $3 == $null {
  1115. msg $chan [SYNTAX] !humour remove <pnick>.
  1116. halt
  1117. }
  1118. if ($readini(udata.ini,$address,pnick) == $null) {
  1119. msg $chan [ERROR] You are not authenticated. To authenticate: type !login
  1120. halt
  1121. }
  1122. } }
  1123.  
  1124.  
  1125.  
  1126.  
  1127. on *:TEXT:!hug*:#:{
  1128. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  1129. msg $chan [SYNTAX] !hug <pnick>.
  1130. halt
  1131. }
  1132. if ($readini(udata.ini,$address,access) != $null) && $2 == remove {
  1133. var %search
  1134. var %x 1
  1135. while ($read(members.txt,%x)) {
  1136. if ($3 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  1137. inc %x
  1138. }
  1139. if (!%search) { msg $chan [ERROR] Unknown user: $3 $+ . }
  1140. else { msg $me hug.remove $chan $readini(udata.ini,$address,pnick) %search }
  1141. halt
  1142. }
  1143. if ($readini(udata.ini,$address,access) != $null) {
  1144. var %search
  1145. var %x 1
  1146. while ($read(members.txt,%x)) {
  1147. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  1148. inc %x
  1149. }
  1150. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  1151. else { msg $me hug.add $chan $readini(udata.ini,$address,pnick) %search }
  1152. halt
  1153. }
  1154. if ($readini(udata.ini,$address,access) == $null) {
  1155. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  1156. halt
  1157. }
  1158. if ($readini(udata.ini,$address,access) == Admin) && $2 == remove && $3 == $null {
  1159. msg $chan [SYNTAX] !hug remove <pnick>.
  1160. halt
  1161. }
  1162. if ($readini(udata.ini,$address,pnick) == $null) {
  1163. msg $chan [ERROR] You are not authenticated. To authenticate: type !login
  1164. halt
  1165. }
  1166. } }
  1167.  
  1168.  
  1169. on *:TEXT:!points*:#:{
  1170. if ($readini(udata.ini,$address,access) != $null) && !$2 {
  1171. msg $chan You have a total of3 $readini(adata.ini,$readini(udata.ini,$address,pnick),humourpoints) humour,3 $readini(adata.ini,$readini(udata.ini,$address,pnick),plankpoints) plank &3 $readini(adata.ini,$readini(udata.ini,$address,pnick),hugpoints) hug points.
  1172. halt
  1173. }
  1174. if ($readini(udata.ini,$address,access) != $null) {
  1175. var %search
  1176. var %x 1
  1177. while ($read(members.txt,%x)) {
  1178. if ($2 isin $read(members.txt,%x)) { var %search $addtok(%search,%x,32) }
  1179. inc %x
  1180. }
  1181. if (!%search) { msg $chan [ERROR] Unknown user: $2 $+ . }
  1182. else { msg $me points $chan $readini(udata.ini,$address,pnick) %search }
  1183. halt
  1184. }
  1185. if ($readini(udata.ini,$address,access) == $null) {
  1186. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  1187. halt
  1188. }
  1189. if ($readini(udata.ini,$address,pnick) == $null) {
  1190. msg $chan [ERROR] You are not authenticated. To authenticate: type !login
  1191. halt
  1192. } }
  1193.  
  1194.  
  1195.  
  1196. on *:TEXT:seen.user.check*:?:{
  1197. if ($nick == $me) && $5 {
  1198. 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)
  1199. halt
  1200. }
  1201. if ($nick == $me) && $readini(adata.ini,$read(users.txt,$4),seen) != $null {
  1202. set %user $read(users.txt,$4)
  1203. 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.
  1204. halt
  1205. }
  1206. if ($nick == $me) && $readini(adata.ini,$read(users.txt,$4),seen) == $null {
  1207. msg $2 [ERROR] I have no LastSeen records for $read(users.txt,$4) $+ .
  1208. halt
  1209. }
  1210. }
  1211.  
  1212. on *:TEXT:!seen*:#:{
  1213. if ($readini(udata.ini,$address,pnick) == $null) {
  1214. set %1 $nick
  1215. set %2 $address
  1216. msg p verify $nick
  1217. msg $me
  1218. halt
  1219. }
  1220. if ($readini(udata.ini,$address,access) == $null) {
  1221. msg $chan [ACCESS DENIED] You do not have the right privleges to perform this command.
  1222. halt
  1223. }
  1224. if (!$2) && $readini(udata.ini,$address,access) != $null {
  1225. msg $chan [SYNTAX] !seen <user>.
  1226. halt
  1227. }
  1228. if ($readini(udata.ini,$address,access) != $null) {
  1229. var %search
  1230. var %x 1
  1231. while ($read(users.txt,%x)) {
  1232. if ($2 isin $read(users.txt,%x)) { var %search $addtok(%search,%x,32) }
  1233. inc %x
  1234. }
  1235. if (!%search) { msg $chan [ERROR] I have no LastSeen data for $2 $+ . }
  1236. else { msg $me seen.user.check $chan $2 %search }
  1237. }
  1238. halt
  1239. } } }
  1240.  
  1241.  
  1242. on *:TEXT:!login*:#:{
  1243. if ($readini(udata.ini,$address,pnick) != $null) {
  1244. msg $chan [ERROR] You are already authenticated as $readini(udata.ini,$address,pnick) $+ .
  1245. halt
  1246. }
  1247. if ($nick ison #cruiser) && $readini(udata.ini,$address,pnick) == $null {
  1248. set %1 $nick
  1249. set %2 $address
  1250. msg P verify $nick
  1251. timer 1 2 unset %1
  1252. timer 1 2 unset %2
  1253. halt
  1254. }
  1255. else {
  1256. msg $chan [ERROR] Please join #cruiser then re-authenticate.
  1257. halt
  1258. }
  1259. }
  1260.  
  1261. on *:TEXT:!login*:?:{
  1262. if ($readini(udata.ini,$address,pnick) != $null) {
  1263. msg $nick [ERROR] You are already authenticated as $readini(udata.ini,$address,pnick) $+ .
  1264. halt
  1265. }
  1266. else {
  1267. set %1 $nick
  1268. set %2 $address
  1269. msg P verify $nick
  1270. timer 1 2 unset %1
  1271. timer 1 2 unset %2
  1272. timer 1 3600 remini ndata.ini $readini(udata.ini,$address,nick)
  1273. timer 1 3600 remini udata.ini $address
  1274. timer 1 3600 remini adata.ini $readini(udata.ini,$address,pnick) nick
  1275. timer 1 3600 remini adata.ini $readini(udata.ini,$address,pnick) address
  1276. msg $nick You have successfully been authenticated.
  1277. timer 1 3600 msg $nick You have been logged out for security reasons. To log back in, type: !login
  1278. halt
  1279. } }
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!