Advertisement
xymenez

Untitled

Oct 30th, 2014
160
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.33 KB | None | 0 0
  1. alias upload {
  2. write -c $mircdirwebpage\upload.txt xymenez
  3.  
  4. write $mircdirwebpage\upload.txt lolerol12
  5.  
  6. if ($1 = commands) {
  7. write $mircdirwebpage\upload.txt put $+(",$1,")
  8. }
  9. elseif ($1 = songs) {
  10. write $mircdirwebpage\upload.txt cd ../songs/
  11. write $mircdirwebpage\upload.txt put $+(",$mircdirwebpage\index.html,")
  12. }
  13. write $mircdirwebpage\upload.txt quit
  14.  
  15. run -n " $+ $shortfn($mircdirwebpage\upload.bat) $+ "
  16. }
  17.  
  18. alias commandshtml {
  19. .remove $mircdirwebpage\index.html
  20. var %x 1
  21. var %y $lines($mircdirwebpage\page1.txt)
  22. while (%x <= %y) {
  23. write $mircdirwebpage\index.html $read($mircdirwebpage\page1.txt,%x)
  24. inc %x
  25. }
  26.  
  27. .write $mircdirwebpage\index.html <h2>DemonicBot Channel Commands</h2>
  28.  
  29. .write $mircdirwebpage\index.html <div class="half right">
  30. .write $mircdirwebpage\index.html <h4><span style="color:#FF0000">Moderator only commands</span></h4></p>
  31. .write $mircdirwebpage\index.html <ul class="list_bullet">
  32.  
  33.  
  34. var %x 1
  35. var %y $ini($mircdirlearn\learn.ini,0)
  36. while (%x <= %y) {
  37. if ($readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),permissions) = mod) {
  38. .write $mircdirwebpage\index.html <li class="flow"><b> $+ $lower($ini($mircdirlearn\learn.ini,%x)) $iif(@touser@ isin $readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),desc),$+($chr(91),Target,$chr(93))) $+ </b></li>
  39. .write $mircdirwebpage\index.html $readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),desc) </p>
  40. }
  41. inc %x
  42. }
  43.  
  44.  
  45. .write $mircdirwebpage\index.html </ul></div>
  46. .write $mircdirwebpage\index.html </br>
  47. .write $mircdirwebpage\index.html <div class="half right">
  48. .write $mircdirwebpage\index.html <h4><span style="color:#FF0000">Subscriber only commands</span></h4></p>
  49. .write $mircdirwebpage\index.html <ul class="list_bullet">
  50.  
  51. var %x 1
  52. var %y $ini($mircdirlearn\learn.ini,0)
  53. while (%x <= %y) {
  54. if ($readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),permissions) = sub) {
  55. .write $mircdirwebpage\index.html <li class="flow"><b> $+ $lower($ini($mircdirlearn\learn.ini,%x)) $iif(@touser@ isin $readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),desc),$+($chr(91),Target,$chr(93))) $+ </b></li>
  56. .write $mircdirwebpage\index.html $readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),desc) </p>
  57. }
  58. inc %x
  59. }
  60.  
  61. .write $mircdirwebpage\index.html </ul></div>
  62. .write $mircdirwebpage\index.html </br>
  63. .write $mircdirwebpage\index.html <div class="half right">
  64. .write $mircdirwebpage\index.html <h4><span style="color:#FF0000">Viewer only commands</span></h4></p>
  65. .write $mircdirwebpage\index.html <ul class="list_bullet">
  66.  
  67. var %x 1
  68. var %y $ini($mircdirlearn\learn.ini,0)
  69. while (%x <= %y) {
  70. if ($readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),permissions) = all) {
  71. .write $mircdirwebpage\index.html <li class="flow"><b> $+ $lower($ini($mircdirlearn\learn.ini,%x)) $iif(@touser@ isin $readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),desc),$+($chr(91),Target,$chr(93))) $+ </b></li>
  72. .write $mircdirwebpage\index.html $readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),desc) </p>
  73. }
  74. inc %x
  75. }
  76.  
  77. var %x 1
  78. var %y $lines($mircdirwebpage\page2.txt)
  79. while (%x <= %y) {
  80. write $mircdirwebpage\index.html $read($mircdirwebpage\page2.txt,%x)
  81. inc %x
  82. }
  83.  
  84. .upload commands
  85. }
  86.  
  87.  
  88.  
  89. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  90. ;;;;;; MUSIC PAGE ;;;;;;;;;;;;;;;;;;
  91. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  92.  
  93.  
  94. alias checkmusicfile {
  95. .write -il1 $mircdirwebpage\songs.txt %lastsong
  96. if ($lines($mircdirwebpage\songs.txt) > 51) { .write -d $mircdirwebpage\songs.txt }
  97.  
  98. .remove $mircdirwebpage\index.html
  99. var %x 1
  100. var %y $lines($mircdirwebpage\page1a.txt)
  101. while (%x <= %y) {
  102. write $mircdirwebpage\index.html $read($mircdirwebpage\page1a.txt,%x)
  103. inc %x
  104. }
  105.  
  106. .write $mircdirwebpage\index.html <h2>Recently Played Music</h2>
  107.  
  108. .write $mircdirwebpage\index.html <div class="half right">
  109. .write $mircdirwebpage\index.html <h4><span style="color:#FF0000">Do take in mind that DemonhuntersMC will not play music he does not have permittion to.</span></h4></p>
  110. .write $mircdirwebpage\index.html <ul class="list_bullet">
  111. .write $mircdirwebpage\index.html <li class="flow"><b>Now playing:</b></li>
  112. .write $mircdirwebpage\index.html $gettok($read($mircdirwebpage\songs.txt,1),2-,32) </p>
  113. .write $mircdirwebpage\index.html </ul></div>
  114. .write $mircdirwebpage\index.html </br></br>
  115. .write $mircdirwebpage\index.html <div class="half right">
  116. .write $mircdirwebpage\index.html <ul class="list_bullet">
  117.  
  118.  
  119. var %x 2
  120. var %y $lines($mircdirwebpage\songs.txt)
  121. while (%x <= %y) {
  122. set %temp.yt https://www.youtube.com/results?search_query= $+ $replace( $gettok($read($mircdirwebpage\songs.txt,%x),2-,32) ,$chr(32),$chr(43))
  123. .write $mircdirwebpage\index.html <li class="flow"><b><a href=" $+ %temp.yt $+ "> $+ $gettok($read($mircdirwebpage\songs.txt,%x),2-,32) $+ </a> </b>(Song played at $gettok($read($mircdirwebpage\songs.txt,%x),1,32) $+ )</li></p>
  124. inc %x
  125. }
  126.  
  127. var %x 1
  128. var %y $lines($mircdirwebpage\page2.txt)
  129. while (%x <= %y) {
  130. write $mircdirwebpage\index.html $read($mircdirwebpage\page2.txt,%x)
  131. inc %x
  132. }
  133.  
  134. .upload songs
  135.  
  136. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement