alias upload {
  write -c $mircdirwebpage\upload.txt xymenez

  write $mircdirwebpage\upload.txt lolerol12

  if ($1 = commands) {
    write $mircdirwebpage\upload.txt cd ../
    write $mircdirwebpage\upload.txt put $+(",$mircdirwebpage\index.html,")
  }
  elseif ($1 = songs) {
    write $mircdirwebpage\upload.txt cd ../songs/
    write $mircdirwebpage\upload.txt put $+(",$mircdirwebpage\index.html,")
  }
  write $mircdirwebpage\upload.txt quit

  run -n " $+ $shortfn($mircdirwebpage\upload.bat) $+ "
}

alias commandshtml {
  .remove $mircdirwebpage\index.html
  var %x 1
  var %y $lines($mircdirwebpage\page1.txt)
  while (%x <= %y) {
    write $mircdirwebpage\index.html $read($mircdirwebpage\page1.txt,%x)
    inc %x
  }

  .write $mircdirwebpage\index.html <h2>DemonicBot Channel Commands</h2>

  .write $mircdirwebpage\index.html <div class="half right">
  .write $mircdirwebpage\index.html <h4><span style="color:#FF0000">Moderator only commands</span></h4></p>
  .write $mircdirwebpage\index.html <ul class="list_bullet">


  var %x 1
  var %y $ini($mircdirlearn\learn.ini,0)
  while (%x <= %y) {
    if ($readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),permissions) = mod) {
      .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>
      .write $mircdirwebpage\index.html $readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),desc) </p>
    }
    inc %x
  }


  .write $mircdirwebpage\index.html </ul></div>
  .write $mircdirwebpage\index.html </br>
  .write $mircdirwebpage\index.html <div class="half right">
  .write $mircdirwebpage\index.html <h4><span style="color:#FF0000">Subscriber only commands</span></h4></p>
  .write $mircdirwebpage\index.html <ul class="list_bullet">

  var %x 1
  var %y $ini($mircdirlearn\learn.ini,0)
  while (%x <= %y) {
    if ($readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),permissions) = sub) {
      .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>
      .write $mircdirwebpage\index.html $readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),desc) </p>
    }
    inc %x
  }

  .write $mircdirwebpage\index.html </ul></div>
  .write $mircdirwebpage\index.html </br>
  .write $mircdirwebpage\index.html <div class="half right">
  .write $mircdirwebpage\index.html <h4><span style="color:#FF0000">Viewer only commands</span></h4></p>
  .write $mircdirwebpage\index.html <ul class="list_bullet">

  var %x 1
  var %y $ini($mircdirlearn\learn.ini,0)
  while (%x <= %y) {
    if ($readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),permissions) = all) {
      .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>
      .write $mircdirwebpage\index.html $readini($mircdirlearn\learn.ini,$ini($mircdirlearn\learn.ini,%x),desc) </p>
    }
    inc %x
  }

  var %x 1
  var %y $lines($mircdirwebpage\page2.txt)
  while (%x <= %y) {
    write $mircdirwebpage\index.html $read($mircdirwebpage\page2.txt,%x)
    inc %x
  }

  .upload commands
}



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; MUSIC PAGE ;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


alias checkmusicfile {
  .write -il1 $mircdirwebpage\songs.txt %lastsong
  if ($lines($mircdirwebpage\songs.txt) > 51) { .write -d $mircdirwebpage\songs.txt }

  .remove $mircdirwebpage\index.html
  var %x 1
  var %y $lines($mircdirwebpage\page1a.txt)
  while (%x <= %y) {
    write $mircdirwebpage\index.html $read($mircdirwebpage\page1a.txt,%x)
    inc %x
  }

  .write $mircdirwebpage\index.html <h2>Recently Played Music</h2>

  .write $mircdirwebpage\index.html <div class="half right">
  .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>
  .write $mircdirwebpage\index.html <ul class="list_bullet">
  .write $mircdirwebpage\index.html <li class="flow"><b>Now playing:</b></li>
  .write $mircdirwebpage\index.html $gettok($read($mircdirwebpage\songs.txt,1),2-,32) </p>
  .write $mircdirwebpage\index.html </ul></div>
  .write $mircdirwebpage\index.html </br></br>
  .write $mircdirwebpage\index.html <div class="half right">
  .write $mircdirwebpage\index.html <ul class="list_bullet">


  var %x 2
  var %y $lines($mircdirwebpage\songs.txt)
  while (%x <= %y) {
    set %temp.yt https://www.youtube.com/results?search_query= $+ $replace( $gettok($read($mircdirwebpage\songs.txt,%x),2-,32) ,$chr(32),$chr(43))
    .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>
    inc %x
  }

  var %x 1
  var %y $lines($mircdirwebpage\page2.txt)
  while (%x <= %y) {
    write $mircdirwebpage\index.html $read($mircdirwebpage\page2.txt,%x)
    inc %x
  }

  .upload songs

}