API tools faq
paste
Advertisement
_MM_IKKE

aliases.ini

_MM_IKKE
Nov 21st, 2018
220
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 19.22 KB | None | 0 0
raw download clone embed print report
  1. [aliases]
  2. n0=/a {
  3. n1=  ;Syntax: <text>
  4. n2=  ;Usage: To echo a msg to channel admins only ~admin chat
  5. n3=  msg % $+ $chan 1 $+ $1-
  6. n4=}
  7. n5=/addbot {
  8. n6=  ;Syntax: <r|reg|regular|u|user>
  9. n7=  ;Usage: Add a bot to the bot list, manually
  10. n8=  if ($1) {
  11. n9=    if ($2) {
  12. n10=      if ($2 isin $read(lists\userbots.txt, w, $2)) {
  13. n11=        var %line.tmp = $readn
  14. n12=        if ($1 == u || $1 == user) {
  15. n13=          echo 4 -at ERROR:1 This bot is already acknowledged as a user bot
  16. n14=        }
  17. n15=        elseif ($?!="This bot is already acknowledged as a user bot. $crlf $+ Remove there and add to regular list?") {
  18. n16=          write -dl $+ %line.tmp lists\userbots.txt
  19. n17=          write lists\bots.txt $2
  20. n18=          echo 2 -at Removed $2 out of user bot list and added to regular bot list
  21. n19=        }
  22. n20=        else {
  23. n21=          echo 4 -at ERROR:1 This bot is already acknowledged as a user bot
  24. n22=        }
  25. n23=      }
  26. n24=      elseif ($2 isin $read(lists\bots.txt, w, $2)) {
  27. n25=        var %line.tmp = $readn
  28. n26=        if ($1 == r || $1 == reg || $1 == regular) {
  29. n27=          echo 4 -at ERROR:1 This bot is already acknowledged as a regular bot
  30. n28=        }
  31. n29=        elseif ($?!="This bot is already acknowledged as a regular bot. $crlf $+ Remove there and add to user bot list?") {
  32. n30=          write -dl $+ %line.tmp lists\bots.txt
  33. n31=          write lists\userbots.txt $2
  34. n32=          echo 2 -at Removed $2 out of regular bot list and added to user bot list
  35. n33=        }
  36. n34=        else {
  37. n35=          echo 4 -at ERROR:1 This bot is already acknowledged as a regular bot
  38. n36=        }
  39. n37=      }
  40. n38=      elseif ($1 == r || $1 == reg || $1 == regular) {
  41. n39=        write lists\bots.txt $2
  42. n40=        echo 2 -at Added $2 to regular bot list
  43. n41=      }
  44. n42=      elseif ($1 == u || $1 == user) {
  45. n43=        write lists\userbots.txt $2
  46. n44=        echo 2 -at Added $2 to user bot list
  47. n45=      }
  48. n46=      else {
  49. n47=        echo 4 -at ERROR:1 Usage: /addbot <r|u> <nick>
  50. n48=      }
  51. n49=    }
  52. n50=    else {
  53. n51=      echo 4 -at ERROR:1 Usage: /addbot <r|u> <nick>
  54. n52=    }
  55. n53=  }
  56. n54=  else {
  57. n55=    echo 4 -at ERROR:1 Usage: /addbot <r|u> <nick>
  58. n56=  }
  59. n57=}
  60. n58=
  61. n59=/addcmd {
  62. n60=  ;Syntax: <command>
  63. n61=  ;Usage: Adds the specified command to the command list. This determines usage, help reply and status
  64. n62=  if ($1) {
  65. n63=    if ($left($1,1) == !) { var %cmd = $1 }
  66. n64=    else { var %cmd = $chr(33) $+ $1 }
  67. n65=
  68. n66=    if ($readini(lists\cmdlist.ini,%cmd,active) == $null) {
  69. n67=      write lists\cmdlist.txt %cmd
  70. n68=
  71. n69=      writeini lists\cmdlist.ini %cmd active 0
  72. n70=      writeini lists\cmdlist.ini %cmd usage $?="Usage of %cmd ?"
  73. n71=      writeini lists\cmdlist.ini %cmd help $?="Help of %cmd ?"
  74. n72=      writeini lists\cmdlist.ini %cmd status $?="Status needed? $crlf $crlf $+ v = any $crlf $+ h = halfop $crlf $+ o = op $crlf $+ q = owners $crlf $+ i = only me"
  75. n73=      echo 2 -at Added " $+ %cmd $+ " to the cmd list
  76. n74=    }
  77. n75=    else {
  78. n76=      echo 4 -at ERROR:1 " $+ %cmd $+ " is already in the list
  79. n77=    }
  80. n78=  }
  81. n79=  else {
  82. n80=    echo 4 -at ERROR: 1Usage: /addcmd <command>
  83. n81=  }
  84. n82=}
  85. n83=/addscript {
  86. n84=  ;Syntax: <script>
  87. n85=  ;Usage: Adds the specified script to the scripts list. Specify path.
  88. n86=  if ($1) {
  89. n87=    if (!$exists(scripts\ $+ $1-)) {
  90. n88=      echo 4 -at ERROR: " $+ $1- $+ " does not exist!
  91. n89=    }
  92. n90=    elseif ($1- !isin $read(bot\scriptlist.txt,w,$1- $+ *)) {
  93. n91=      write bot\scriptlist.txt $1-
  94. n92=      echo 2 -at Added " $+ $1- $+ " to the script list
  95. n93=    }
  96. n94=    else {
  97. n95=      echo 4 -at ERROR: " $+ $1- $+ " is already in the list
  98. n96=    }
  99. n97=  }
  100. n98=  else {
  101. n99=    echo 4 -at ERROR: Usage: /addscript <path\file.ini>
  102. n100=  }
  103. n101=}
  104. n102=/algorythm {
  105. n103=  ;Syntax: <Xlow> <Xhigh> <Formula>
  106. n104=  ;Usage: Specify a formula using x, add the limits and it will return all values
  107. n105=  if ($1 isnum) {
  108. n106=    if ($2 isnum) {
  109. n107=      if ($3) {
  110. n108=        var %i = $1
  111. n109=        while (%i <= $2) {
  112. n110=          echo -a X = %i $+ : $3- = $replace($3-,X,%i) = $calc($replace($3-,X,%i))
  113. n111=          inc %i
  114. n112=        }
  115. n113=      }
  116. n114=      else {
  117. n115=        echo 4 -at ERROR: Usage: /algorythm <Xlow> <Xhigh> <formula>
  118. n116=      }
  119. n117=    }
  120. n118=    else {
  121. n119=      echo 4 -at ERROR: Usage: /algorythm <Xlow> <Xhigh> <formula>
  122. n120=    }
  123. n121=  }
  124. n122=  else {
  125. n123=    echo 4 -at ERROR: Usage: /algorythm <Xlow> <Xhigh> <formula>
  126. n124=  }
  127. n125=}
  128. n126=/annoyingban {
  129. n127=  ;Syntax: <nick>
  130. n128=  ;Usage: Unset the user's modes (including protect) and adds a lot of annoying bans.
  131. n129=  if ($1) {
  132. n130=    if ($1 ison $active) { mode $chan -ohv $1 $1 $1 }
  133. n131=    mode $chan +bbbbbbbbbb $1 $address($1,0) $address($1,1) $address($1,2) $address($1,3) $address($1,4) $address($1,5) $address($1,6) $address($1,7) $address($1,8)
  134. n132=    mode $chan +bbbbbbbbbb $replace($address($1,0), a, ?, e, ?, i, ?, u, ?,o, ?) $replace($address($1,1), a, ?, e, ?, i, ?, u, ?,o, ?) $replace($address($1,2), a, ?, e, ?, i, ?, u, ?,o, ?) $replace($address($1,3), a, ?, e, ?, i, ?, u, ?,o, ?) $replace($address($1,4), a, ?, e, ?, i, ?, u, ?,o, ?) $replace($address($1,5), a, ?, e, ?, i, ?, u, ?,o, ?) $replace($address($1,6), a, ?, e, ?, i, ?, u, ?,o, ?) $replace($address($1,7), a, ?, e, ?, i, ?, u, ?,o, ?) $replace($address($1,8), a, ?, e, ?, i, ?, u, ?,o, ?) $replace($address($1,9), a, ?, e, ?, i, ?, u, ?,o, ?)
  135. n133=    mode $chan -ee $1 * $+ $1 $+ *!*@*
  136. n134=  }
  137. n135=  else {
  138. n136=    echo 4 -at ERROR: 1Usage: /annoyingban <nick>
  139. n137=  }
  140. n138=}
  141. n139=/aut {
  142. n140=  ;Syntax: none
  143. n141=  ;Usage: Logs in on QuakeNet IRC
  144. n142=  auth IKKE <redacted>
  145. n143=}
  146. n144=/cake {
  147. n145=  ;Syntax: <nick>
  148. n146=  ;Usage: Will give a cake to the specified nickname using randomly chosen adjectives and nouns in the active window
  149. n147=  if ($1) {
  150. n148=    if ($1 ison $active) {
  151. n149=      var %adjective = $read(bot\adjectives.txt)
  152. n150=      var %noun = $read(bot\nouns.txt)
  153. n151=      describe $chan gives a cake to $1 $+ . Tastes like $iif(($left(%adjective,1) == a || $left(%adjective,1) == e || $left(%adjective,1) == u || $left(%adjective,1) == i || $left(%adjective,1) == o) && $left(%adjective,2) != eu,an,a) %adjective %noun $+ !
  154. n152=    }
  155. n153=    else {
  156. n154=      echo 4 -at ERROR:1 $1 is not on channel
  157. n155=    }
  158. n156=  }
  159. n157=  else {
  160. n158=    echo 4 -at ERROR:1 Usage: /cake <nick>
  161. n159=  }
  162. n160=}
  163. n161=/calc {
  164. n162=  ;Syntax: <Formula>
  165. n163=  ;Usage: solve a mathematical formula
  166. n164=  if ($1) {
  167. n165=    echo 1 Solution: $1- = $calc($1-)
  168. n166=  }
  169. n167=  else {
  170. n168=    echo 4 -at ERROR:1 Usage: /calc <formula>
  171. n169=  }
  172. n170=}
  173. n171=/convert {
  174. n172=  ;Syntax: <file>
  175. n173=  ;Usage: This will convert a .map file into CreateObject's. The text file is in the GRX format: [ID] [oID] [X] [Y] [Z] [rX] [rY] [rZ]
  176. n174=  if ($exists($1)) {
  177. n175=    var %lines = $lines($1)
  178. n176=    var %line = 1
  179. n177=    var %newfile = $remove($1,.txt) $+ _c.txt
  180. n178=
  181. n179=    while (%line <= %lines) {
  182. n180=      write -n %newfile CreateObject $+ $chr(40)
  183. n181=
  184. n182=      var %var = 2
  185. n183=      while (%var <= 7) {
  186. n184=        write -n %newfile $gettok($read($1,%line), %var , 32) $+ $chr(44) $+ $chr(32)
  187. n185=        inc %var
  188. n186=      }
  189. n187=
  190. n188=      write -n %newfile $gettok($read($1,%line), 8 , 32) $+ $chr(41) $+ ; $+ $crlf
  191. n189=      inc %line
  192. n190=    }
  193. n191=
  194. n192=    echo 2 -at Successfully created file %newfile (lines: %lines $+ )
  195. n193=    run notepad.exe "C:\Users\<redacted>\Documents\mIRC\ $+ %newfile $+  "
  196. n194=  }
  197. n195=  else {
  198. n196=    echo 4 -at ERROR:1 /convert <file>
  199. n197=  }
  200. n198=}
  201. n199=/convspawns {
  202. n200=  ;Syntax: <file>
  203. n201=  ;Usage: This will convert Sumo's old spawning system with the new one
  204. n202=  if ($exists($1)) {
  205. n203=    var %line = 2
  206. n204=    var %newfile = $remove($1,.txt) $+ _c.txt
  207. n205=
  208. n206=    while (%line <= 100) {
  209. n207=      write -n %newfile AddDynamicSpawn $+ $chr(40)
  210. n208=
  211. n209=      var %var = 3
  212. n210=      while (%var <= 5) {
  213. n211=        write -n %newfile $gettok($read($1,%line), %var , 44) $+ $chr(44) $+ $chr(32)
  214. n212=        inc %var
  215. n213=      }
  216. n214=
  217. n215=      write -n %newfile $gettok($read($1,%line), 6 , 44) $+ $chr(41) $+ ; $+ $crlf
  218. n216=
  219. n217=      inc %line 2
  220. n218=
  221. n219=    }
  222. n220=
  223. n221=    echo 2 -at Successfully created file %newfile (lines: $lines(%newfile) $+ )
  224. n222=    run notepad.exe "C:\Users\<redacted>\Documents\mIRC\ $+ %newfile $+  "
  225. n223=  }
  226. n224=  else {
  227. n225=    echo 4 -at ERROR:1 /convert <file>
  228. n226=  }
  229. n227=}
  230. n228=
  231. n229=/countsigns {
  232. n230=  ;Syntax: <text>
  233. n231=  ;Usage: counts the amount of time a sign was found in the given text
  234. n232=  if ($1) {
  235. n233=    var %sign.def = $?="What character?"
  236. n234=    var %i = 1
  237. n235=    var %sign.amt
  238. n236=    while (%i <= $calc($len($1-)-$len(%sign.def)+1)) {
  239. n237=      if ($mid($1-,%i,$len(%sign.def)) == %sign.def) { inc %sign.amt }
  240. n238=      inc %i
  241. n239=    }
  242. n240=    echo -at Amount of times found " $+ %sign.def $+ ": %sign.amt
  243. n241=  }
  244. n242=  else {
  245. n243=    echo 4 -at ERROR:1 /countsigns <text>
  246. n244=  }
  247. n245=}
  248. n246=/cw {
  249. n247=  ;Syntax: none
  250. n248=  ;Usage: pastes CW password to clipboard and opens browser
  251. n249=  run iexplore.exe http://176.57.141.63/cp-clan/
  252. n250=}
  253. n251=/ddmap {
  254. n252=  var %map = $?="Map Name"
  255. n253=  var %file = Maps\ $+ %map $+ .pwn
  256. n254=  var %newfile = ConvMaps\ $+ %map $+ .pwn
  257. n255=  var %lines = $lines(%file)
  258. n256=  var %i = 1
  259. n257=
  260. n258=  while (%i <= %lines) {
  261. n259=
  262. n260=    write " $+ %newfile $+ " $replace($read(%file,%i), $+($chr(44),$chr(32),$chr(49),$chr(51),$chr(48),$chr(41),$chr(59)) , $+($chr(41),$chr(59)))
  263. n261=    inc %i
  264. n262=  }
  265. n263=  write " $+ %newfile $+ " $chr(125)
  266. n264=}
  267. n265=/delbot {
  268. n266=  ;Syntax: <bot>
  269. n267=  ;Usage: Use this command to delete a bot out of the list
  270. n268=
  271. n269=  if ($1) {
  272. n270=
  273. n271=    if ($1 isin $read(lists\userbots.txt, w, $1)) {
  274. n272=      echo 2 -at Deleted " $+ $read(lists\userbots.txt, $readn) $+ " out of the user bot list
  275. n273=      write -dl $+ $readn lists\userbots.txt
  276. n274=    }
  277. n275=    elseif ($1 isin $read(lists\bots.txt, w, $1)) {
  278. n276=      echo 2 -at Deleted " $+ $read(lists\bots.txt, $readn) $+ " out of the regular bot list
  279. n277=      write -dl $+ $readn lists\bots.txt
  280. n278=    }
  281. n279=    else {
  282. n280=      echo 4 -at ERROR: " $+ $1 $+ " is not in the list
  283. n281=    }
  284. n282=  }
  285. n283=  else {
  286. n284=    echo 4 -at ERROR: Usage: /delbot <bot>
  287. n285=  }
  288. n286=}
  289. n287=
  290. n288=/delcmd {
  291. n289=  ;Syntax: <command>
  292. n290=  ;Usage: Use this command to delete it out of the command list. The command list gets used to echo the appropriate messages to #[MM]IKKE.echo
  293. n291=  if ($1) {
  294. n292=    if ($left($1,1) == !) { var %cmd = $1 }
  295. n293=    else { var %cmd = $chr(33) $+ $1 }
  296. n294=
  297. n295=    if (%cmd == $read(lists\cmdlist.txt,w,%cmd)) {
  298. n296=      write -dl $+ $readn lists\cmdlist.txt
  299. n297=      echo 2 -at Deleted " $+ %cmd $+ " out of the cmd list
  300. n298=    }
  301. n299=    else {
  302. n300=      echo 4 -at ERROR: " $+ %cmd $+ " is not in the list
  303. n301=    }
  304. n302=  }
  305. n303=  else {
  306. n304=    echo 4 -at ERROR: Usage: /delcmd <command>
  307. n305=  }
  308. n306=}
  309. n307=/delscript {
  310. n308=  ;Syntax: <scipt>
  311. n309=  ;Usage: Removes a script out of the scripts list
  312. n310=  if ($1) {
  313. n311=    if ($exists(scripts\ $+ $1-)) {
  314. n312=      echo 4 -at ERROR: " $+ $1- $+ " still exists!
  315. n313=    }
  316. n314=    elseif ($1 isin $read(bot\scriptlist.txt,w,$1 $+ *)) {
  317. n315=      write -dl $+ $readn bot\scriptlist.txt
  318. n316=      echo 2 -at Deleted " $+ $1- $+ " out of the script list
  319. n317=    }
  320. n318=    else {
  321. n319=      echo 4 -at ERROR: " $+ $1- $+ " is not in the list
  322. n320=    }
  323. n321=  }
  324. n322=  else {
  325. n323=    echo 4 -at ERROR: Usage: /delscript <path\file.ini>
  326. n324=  }
  327. n325=}
  328. n326=/encode {
  329. n327=  ;Syntax: <text>
  330. n328=  ;Usage: will echo the $decode stuff
  331. n329=  if ($1) {
  332. n330=    clipboard $+($chr(36),decode,$chr(40),$encode($1-,m,1),$chr(44),m,$chr(44),1,$chr(41))
  333. n331=    echo -at Copied $+(",$chr(36),decode,$chr(40),$encode($1-,m,1),$chr(44),m,$chr(44),1,$chr(41),") to clipboard
  334. n332=  }
  335. n333=  else { echo 4 -at ERROR:1 Usage: /encode <text> }
  336. n334=}
  337. n335=/getasc {
  338. n336=  ;Syntax: <text>
  339. n337=  ;returns all ASCII numbers
  340. n338=  set %ascmsg.temp $+($chr(36),+,$chr(40))
  341. n339=  var %i = 1
  342. n340=  while (%i < $len($1-)) {
  343. n341=    set %ascmsg.temp $+(%ascmsg.temp,$chr(36),chr,$chr(40),$asc($mid($1-,%i,1)),$chr(41),$chr(44))
  344. n342=    inc %i
  345. n343=  }
  346. n344=  set %ascmsg.temp $+(%ascmsg.temp ,$chr(36),chr,$chr(40),$asc($mid($1-,%i,1)),$chr(41),$chr(41))
  347. n345=  echo -a %ascmsg.temp
  348. n346=  unset %ascmsg.temp
  349. n347=}
  350. n348=/hug {
  351. n349=  ;Syntax: none
  352. n350=  ;Usage: "hugs" a player
  353. n351=  me hugs4 $chr(9829) $chr(9829) $chr(9829) 6 $+ $$1- 4 $+ $chr(9829) $chr(9829) $chr(9829)
  354. n352=}
  355. n353=/initotxt {
  356. n354=  ;Syntax: <file> <section> <lines>
  357. n355=  ;Usage: Converts a .ini file to a .txt file. Will output in "File\section.txt"
  358. n356=  if (!$1) {
  359. n357=    echo 4 -at ERROR: Usage: /initotxt <file> <section> <amount of lines>
  360. n358=  }
  361. n359=  elseif (!$2) {
  362. n360=    echo 4 -at ERROR: Usage: /initotxt <file> <section> <amount of lines>
  363. n361=  }
  364. n362=  elseif (!$3) {
  365. n363=    echo 4 -at ERROR: Usage: /initotxt <file> <section> <amount of lines>
  366. n364=  }
  367. n365=  elseif ($3 !isnum) {
  368. n366=    echo 4 -at ERROR: Usage: /initotxt <file> <section> <amount of lines>
  369. n367=  }
  370. n368=  elseif (!$exists($1 $+ .ini)) {
  371. n369=    echo 4 -at ERROR: File " $+ $1 $+ .ini" doesn't exist
  372. n370=  }
  373. n371=  else {
  374. n372=    var %i = 0
  375. n373=    while (%i <= $3) {
  376. n374=      write $1 $+ \ $+ $2 $+ .txt $readini($1 $+ .ini, n, $2, n $+ %i)
  377. n375=      inc %i
  378. n376=    }
  379. n377=    echo -at Sucessfully converted $1
  380. n378=  }
  381. n379=}
  382. n380=/invert {
  383. n381=  ;Syntax: <file>
  384. n382=  ;Usage: Inverts the lines of a file
  385. n383=  if ($1) {
  386. n384=    var %file = $1 $+ .txt
  387. n385=    if ($exists(%file)) {
  388. n386=      var %i = $lines(%file)
  389. n387=      if (%i < 1000 || $?!="Lines exceed 1000 (total: %i $+ ). Continue?") {
  390. n388=        while (%i > 0) {
  391. n389=          write " $+ $1 $+ _inverted $+ .txt $+ " $read(%file,%i)
  392. n390=          dec %i
  393. n391=        }
  394. n392=        echo -at Successfully inverted $1
  395. n393=      }
  396. n394=
  397. n395=    }
  398. n396=    else {
  399. n397=      echo 4 -at ERROR:1 $1 does not exist
  400. n398=    }
  401. n399=  }
  402. n400=  else {
  403. n401=    echo 4 -at ERROR:1 Usage: /invert <file>
  404. n402=  }
  405. n403=}
  406. n404=/j {
  407. n405=  ;Syntax: <channel> <opt:password>
  408. n406=  ;Usage: to join a channel
  409. n407=  join #$$1 $2-
  410. n408=}
  411. n409=/loadbot34 {
  412. n410=  ;Syntax: none
  413. n411=  ;Usage: loads IKKE3 & IKKE4
  414. n412=  server -me %irc.server 6697 <redacted> -i IKKE3 -j #[MM]IKKE
  415. n413=  .timer 1 5 server -me %irc.server 6697 <redacted> -i IKKE4 -j #[MM]IKKE
  416. n414=}
  417. n415=/netsplit {
  418. n416=  ;Syntax: none
  419. n417=  ;Usage: connects to all IRC servers within network
  420. n418=  if ($server != exnet.fr.irc.tl) { server -me exnet.fr.irc.tl 6697 -i [MM]IKKE_EX -j #[MM]IKKE,#help,#sa-mp }
  421. n419=  if ($server != gamerx.nl.irc.tl) { server -me gamerx.nl.irc.tl 6697 -i [MM]IKKE_GX -j #[MM]IKKE,#help,#sa-mp }
  422. n420=  if ($server != foco.nl.irc.tl) { server -me foco.nl.irc.tl 6697 -i [MM]IKKE_FOCO1 -j #[MM]IKKE,#help,#sa-mp }
  423. n421=  if ($server != foco2.us.irc.tl) { server -me foco2.us.irc.tl 6697 -i [MM]IKKE_FOCO2 -j #[MM]IKKE,#help,#sa-mp }
  424. n422=  if ($server != foco.lu.irc.tl) { server -me foco.lu.irc.tl 6697 -i [MM]IKKE_FOCO3 -j #[MM]IKKE,#help,#sa-mp }
  425. n423=}
  426. n424=/panel {
  427. n425=  ;Syntax: none
  428. n426=  ;Usage: Opens the New Dawn server CP in Internet Explorer
  429. n427=  run iexplore.exe http://176.57.141.63/server.dawn-tdm.com/
  430. n428=}
  431. n429=/pass {
  432. n430=  ;Syntax: <opt: amount of characters)
  433. n431=  ;Usage: generates a random password
  434. n432=
  435. n433=  set %pass.tmp $null
  436. n434=  var %i = 1
  437. n435=
  438. n436=  if ($1 !isnum) { var %length = 10 }
  439. n437=  else { var %length = $1 }
  440. n438=
  441. n439=  if ($?!="Use special characters? $crlf $crlf $+ : ; < = > ? @ [ \ ] ^ _ ` * + , - . / $chr(39) ( ) ! $chr(35) $chr(36) $chr(37) $chr(38) ") {
  442. n440=    while (%i <= %length) {
  443. n441=      set %pass.tmp %pass.tmp $+ $chr($rand(33,122))
  444. n442=      inc %i
  445. n443=    }
  446. n444=  }
  447. n445=  else {
  448. n446=    while (%i <= %length) {
  449. n447=      var %j = $rand(1,3)
  450. n448=      if (%j == 1) {
  451. n449=        set %pass.tmp %pass.tmp $+ $chr($rand(97,122))
  452. n450=      }
  453. n451=      elseif (%j == 2) {
  454. n452=        set %pass.tmp %pass.tmp $+ $chr($rand(65,90))
  455. n453=      }
  456. n454=      else {
  457. n455=        set %pass.tmp %pass.tmp $+ $chr($rand(48,57))
  458. n456=      }
  459. n457=      inc %i
  460. n458=    }
  461. n459=  }
  462. n460=
  463. n461=  clipboard %pass.tmp
  464. n462=  echo -at Random password:4 %pass.tmp 1(copied to clipboard)
  465. n463=  unset %pass.tmp
  466. n464=}
  467. n465=/said {
  468. n466=  ;Syntax: none
  469. n467=  ;Usage: sends the amount your nickname got said to the chat
  470. n468=  msg $active Your nick ([MM]IKKE) has been said2 %saidmyname 1times
  471. n469=}
  472. n470=/SQL {
  473. n471=  ;Syntax: none
  474. n472=  ;Usage: Opens up the New Dawn MySQL in Internet Explorer
  475. n473=  ;run iexplore.exe http://176.57.141.63/pma/
  476. n474=  clipboard <redacted>
  477. n475=}
  478. n476=/status {
  479. n477=  ;Syntax: none
  480. n478=  ;Usage: checks your AFK and IG status
  481. n479=  echo 2 -a Status:  $iif(%ig,9In-Game  1( $+ $igserver $+ ),$iif(%afk,9AFK,4OFF) )
  482. n480=}
  483. n481=/rev {
  484. n482=  ;Syntax: <text>
  485. n483=  ;Usage: reverses the text
  486. n484=
  487. n485=  set %rev.txt $null
  488. n486=  set %rev.len $len($1-)
  489. n487=  set %rev.chr $null
  490. n488=  var %i = 1
  491. n489=
  492. n490=  while (%i <= %rev.len) {
  493. n491=    set %rev.chr $mid($1-,$calc(%rev.len - %i +1),1)
  494. n492=    if (%rev.chr == $chr(32)) {
  495. n493=      set %rev.txt %rev.txt %rev.chr
  496. n494=    }
  497. n495=    else {
  498. n496=      set %rev.txt %rev.txt $+ %rev.chr
  499. n497=    }
  500. n498=    inc %i
  501. n499=  }
  502. n500=
  503. n501=  clipboard %rev.txt
  504. n502=  echo -at Copied "4 $+ %rev.txt $+ 1"to clipboard
  505. n503=
  506. n504=  unset %rev.txt
  507. n505=  unset %rev.len
  508. n506=  unset %rev.chr
  509. n507=}
  510. n508=/txttoini {
  511. n509=  ;Syntax: <file> <section>
  512. n510=  ;Usage: This will write the file "File\section.txt" to "file.ini"
  513. n511=  if (!$1) {
  514. n512=    echo 4 -at ERROR: Usage: /txttoini <file> <section>
  515. n513=  }
  516. n514=  elseif (!$2) {
  517. n515=    echo 4 -at ERROR: Usage: /txttoini <file> <section>
  518. n516=  }
  519. n517=  elseif (!$exists($1 $+ \ $+ $2 $+ .txt)) {
  520. n518=    echo 4 -at ERROR: File "$1 $+ \ $+ $2 $+ .txt" doesn't exist
  521. n519=  }
  522. n520=  else {
  523. n521=    var %i = 1
  524. n522=    while (%i <= $lines($1 $+ \ $+ $2 $+ .txt)) {
  525. n523=      writeini $1 $+ .ini $1 $+ \ $+ $2 $+ .txt n $+ %i $read($1 $+ \ $+ $2 $+ .txt, %i)
  526. n524=      inc %i
  527. n525=    }    
  528. n526=    echo -at Sucessfully converted $1
  529. n527=  }
  530. n528=}
  531. n529=/update {
  532. n530=  ;Syntax: <text>
  533. n531=  ;Usage: Will update the updates list. You can specify a channel to send it to. It will also send a message to the current window
  534. n532=  if ($1) {
  535. n533=    msg #[MM]IKKE UPDATE: $1- (SVN log: http://pastebin.com/PND34bBS )
  536. n534=    if ($active != #[MM]IKKE) {
  537. n535=      msg $active UPDATE: $1- (SVN log: http://pastebin.com/PND34bBS )
  538. n536=    }
  539. n537=  }
  540. n538=  else {
  541. n539=    echo 4 -at ERROR:1 Usage: /update <update>
  542. n540=  }
  543. n541=}
  544. n542=/w {
  545. n543=  ;Syntax: <name>
  546. n544=  ;Usage: whois + whowas someone
  547. n545=  whois $$1
  548. n546=  whowas $$1
  549. n547=}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!