Updated code

on *:text:!d *:#: {
  var %songnick $+(30, $nick)
  var %timerDD $+(dd)
  if ($timer(%timerDD) != $null) && ($nick != %player1) && ($2 != %opponent) {
    msg $chan A Duel is currently going on! Please wait $timer(%timerDD).secs seconds until you can start a match!


  }
  elseif ($timer(%timerDD) != $null) && ($nick != %opponent) && ($2 != %player1) {
    msg $chan A Duel is currently going on! Please wait $timer(%timerDD).secs seconds until you can start a match!


  }
  elseif ($timer(%songnick) != $null) {
    msg $chan You're currently in a duel or just ended one! please wait $timer(%songnick).secs until your match timer expires!


  }

  elseif ($timer(%songnick) == $null) {
    SET %player1 $nick
    SET %opponent $2
    var %IDexist = $readini(%pointsfile, $findID(%opponent), name)
    var %IDexist2 = $readini(%pointsfile, $findIDID(%player1), name)
    var %IDexist3 = $readini(%dicerecord, $dicerecord(%player1), name)
    var %IDexist4 = $readini(%dicerecord, $dicerecord2(%opponent), name)
    var %songnick $+(30, $nick)
    var %currentPoints = $readini(%pointsfile, $findIDID(%player1), points)
    var %currentPoints2 = $readini(%pointsfile, $findID(%opponent), points)
    var %pointstoplay $3
    var %bcoinsused $calc(%currentPoints - %pointstoplay)
    var %bcoinsused2 $calc(%currentPoints2 - %pointstoplay)
    var %r1 = $rand(2,12)
    if ($2 == $nick) {
      msg $chan You cannot duel yourself!
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt

    }
    elseif ($3- !isnum) {
      msg $chan Make sure you use a number!
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt
    }
    elseif (%player1 != %IDexist2) {
      msg $chan You haven't started earning bcoins yet! Type in !join to start doing so! :D
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt

    }
    elseif ($2 != %IDexist) {
      msg $chan The opponent must exist in the bcoins list in order to be dueled!
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt

    }
    elseif (%pointstoplay > 10000) {
      msg $chan You must bet less than/equal to 10000 bcoins!
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt

    }
    elseif (%currentPoints < %pointstoplay) || (%currentPoints2 < %pointstoplay) {
      msg $chan you or your opponent do not have enough bcoins to dice duel!
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt

    }
    elseif (. isin $3) {
      msg $chan Decimals aren't allowed! Make sure your bcoin amount is a whole number!
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt

    }
    elseif ($3 <= 0) {
      msg $chan You can't bet less than 0!
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt

    }
    elseif ($2 == bradmasta_bot) {
      msg $chan Bradmasta_bot is too godly at dice dueling to be faced O_O
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt

    }
    elseif ($2 == bradmasta) {
      msg $chan Brad is too good to lose Kappa
      unset %dd
      unset %pot
      unset %opponent
      unset %player1
      unset %pot2
      | halt

    }

    elseif (%currentPoints >= %pointstoplay) && (%currentPoints2 >= %pointstoplay) && (%player1 != %IDexist3) && (%opponent != %IDexist4) {
      set %dd $nick $2 $3
      SET %pot $calc($3 * 2)
      SET %pot2 $3
      set %dice1 %r1
      writeini -n %dicerecord $calc(%diceID + 1) name $nick
      writeini -n %dicerecord $calc(%diceID + 1) wins 0
      writeini -n %dicerecord $calc(%diceID + 1) losses 0
      writeini -n %dicerecord $calc(%diceID + 1) ties 0
      writeini -n %dicerecord $calc(%diceID + 2) name $2
      writeini -n %dicerecord $calc(%diceID + 2) wins 0
      writeini -n %dicerecord $calc(%diceID + 2) losses 0
      writeini -n %dicerecord $calc(%diceID + 2) ties 0
      inc %diceID 2
      writeini -n %pointsfile $findIDID(%player1) points %bcoinsused
      writeini -n %pointsfile $findID(%opponent) points %bcoinsused2
      set %ddr1. $+ $nick %r1
      msg $chan  Dice duel between $nick and $2 for %pot bcoins! ; $nick rolled a %r1 $+ , $2 Type !broll.
      TIMER [ $+ [ %songnick ] ] 1 300 msg $chan $nick The match timer has expired! You may now Duel again!
      .timerDD 1 90 EndDD
    }
    elseif (%currentPoints >= %pointstoplay) && (%currentPoints2 >= %pointstoplay) && (%player1 == %IDexist3) && (%opponent != %IDexist4) {
      set %dd $nick $2 $3
      SET %pot $calc($3 * 2)
      SET %pot2 $3
      set %dice1 %r1
      writeini -n %dicerecord $calc(%diceID + 1) name $2
      writeini -n %dicerecord $calc(%diceID + 1) wins 0
      writeini -n %dicerecord $calc(%diceID + 1) losses 0
      writeini -n %dicerecord $calc(%diceID + 1) ties 0
      inc %diceID 1
      writeini -n %pointsfile $findIDID(%player1) points %bcoinsused
      writeini -n %pointsfile $findID(%opponent) points %bcoinsused2
      set %ddr1. $+ $nick %r1
      msg $chan  Dice duel between $nick and $2 for %pot bcoins! ; $nick rolled a %r1 $+ , $2 Type !broll.
      var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2)
      TIMER [ $+ [ %songnick ] ] 1 300 msg $chan $nick The match timer has expired! You may now Duel again!
      .timerDD 1 90 EndDD
    }
    elseif (%currentPoints >= %pointstoplay) && (%currentPoints2 >= %pointstoplay) && (%player1 != %IDexist3) && (%opponent == %IDexist4) {
      set %dd $nick $2 $3
      SET %pot $calc($3 * 2)
      SET %pot2 $3
      set %dice1 %r1
      writeini -n %dicerecord $calc(%diceID + 1) name $nick
      writeini -n %dicerecord $calc(%diceID + 1) wins 0
      writeini -n %dicerecord $calc(%diceID + 1) losses 0
      writeini -n %dicerecord $calc(%diceID + 1) ties 0
      inc %diceID 1
      writeini -n %pointsfile $findIDID(%player1) points %bcoinsused
      writeini -n %pointsfile $findID(%opponent) points %bcoinsused2
      set %ddr1. $+ $nick %r1
      msg $chan  Dice duel between $nick and $2 for %pot bcoins! ; $nick rolled a %r1 $+ , $2 Type !broll.
      var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2)
      TIMER [ $+ [ %songnick ] ] 1 300 msg $chan $nick The match timer has expired! You may now Duel again!
      .timerDD 1 90 EndDD
    }

    elseif (%currentPoints >= %pointstoplay) && (%currentPoints2 >= %pointstoplay) {
      set %dd $nick $2 $3
      SET %pot $calc($3 * 2)
      SET %pot2 $3
      set %dice1 %r1
      writeini -n %pointsfile $findIDID(%player1) points %bcoinsused
      writeini -n %pointsfile $findID(%opponent) points %bcoinsused2
      set %ddr1. $+ $nick %r1
      msg $chan  Dice duel between $nick and $2 for %pot bcoins! ; $nick rolled a %r1 $+ , $2 Type !broll.
      var %r1 = $($+(%,ddr.,$gettok(%dd,1,32)),2)
      TIMER [ $+ [ %songnick ] ] 1 300 msg $chan $nick The match timer has expired! You may now Duel again!
      .timerDD 1 90 EndDD
    }
    else {
      msg $chan You need to specify the amount!
    }
  }
}
on *:text:!broll:#: {
  if (!%dd) { msg $chan  No duel in progress. | halt }
  if (!$istok(%dd,$nick,32)) { msg $chan You are not one of the duelists. | halt }
  var %d1 = $gettok(%dd,1,32), %d2 = $gettok(%dd,2,32)
  var %currentPoints = $readini(%pointsfile, $findIDID(%player1), points)
  var %currentPoints2 = $readini(%pointsfile, $findID(%opponent), points)
  var %currentPoints3 = $readini(%pointsfile2, $findIDIDIDIDID(%player1), points)
  var %currentPoints4 = $readini(%pointsfile2, $findID2(%opponent), points)
  var %currentwinsp = $readini(%dicerecord, $dicerecord(%player1), wins)
  var %currentlossesp = $readini(%dicerecord, $dicerecord(%player1), losses)
  var %currenttiesp = $readini(%dicerecord, $dicerecord(%player1), ties)
  var %currentwinso = $readini(%dicerecord, $dicerecord2(%opponent), wins)
  var %currentlosseso = $readini(%dicerecord, $dicerecord2(%opponent), losses)
  var %currenttieso = $readini(%dicerecord, $dicerecord2(%opponent), ties)
  var %r2 = $rand(2,12)
  set %ddr2. $+ $nick %r2
  set %dice2 %r2
  msg $chan  $nick rolled a %r2 $+ .
  if (%dice1 && %dice2) {
    if (%dice1 > %dice2) {
      writeini -n %pointsfile $findIDID(%player1) points $calc(%currentPoints + %pot)
      writeini -n %pointsfile2 $findIDIDIDIDID(%player1) points $calc(%currentPoints3 + %pot2)
      writeini -n %dicerecord $dicerecord(%player1) wins $calc(%currentwinsp + 1)
      writeini -n %dicerecord $dicerecord2(%opponent) losses $calc(%currentlosseso + 1)
      msg $chan  %d1 won the %pot bcoin pot with a %dice1 $+ - $+ %dice2 $+ .

    }
    elseif (%dice1 < %dice2) {
      writeini -n %pointsfile $findID(%opponent) points $calc(%currentPoints2 + %pot)
      writeini -n %pointsfile2 $findID2(%opponent) points $calc(%currentPoints4 + %pot2)
      writeini -n %dicerecord $dicerecord2(%opponent) wins $calc(%currentwinso + 1)
      writeini -n %dicerecord $dicerecord(%player1) losses $calc(%currentlossesp + 1)
      msg $chan  %d2 won the %pot bcoin pot with a %dice1 $+ - $+ %dice2 $+  .

    }
    elseif (%dice1 == %dice2) {
      writeini -n %pointsfile $findIDID(%player1) points $calc(%currentPoints + %pot2)
      writeini -n %pointsfile $findID(%opponent) points $calc(%currentPoints2 + %pot2)
      writeini -n %dicerecord $dicerecord(%player1) ties $calc(%currenttiesp + 1)
      writeini -n %dicerecord $dicerecord2(%opponent) ties $calc(%currenttieso + 1)
      msg $chan  %d1 and %d2 tied with a %dice1 $+ - $+ %dice2 $+  .
    }
    unset %dd
    unset %ddr.*
    unset %pot
    unset %player1
    unset %opponent
    unset %pot2
    unset %dice1
    unset %dice2
    .timerDD off
  }
}
alias EndDD {

  var %currentPoints = $readini(%pointsfile, $findIDID(%player1), points)
  var %currentPoints2 = $readini(%pointsfile, $findID(%opponent), points)
  writeini -n %pointsfile $findIDID(%player1) points $calc(%currentPoints + %pot2)
  writeini -n %pointsfile $findID(%opponent) points $calc(%currentPoints2 + %pot2)
  unset %dd
  unset %ddr.*
  unset %pot
  unset %opponent
  unset %player1
  unset %pot2

}

alias -l findIDID {
  var %searchName = %player1
  var %i = 1

  while (%i <= %pointsID) {
    var %name = $readini(%pointsfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findIDIDIDIDID {
  var %searchName = %player1
  var %i = 1

  while (%i <= %pointsID2) {
    var %name = $readini(%pointsfile2, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findID {
  var %searchName = %opponent
  var %i = 1

  while (%i <= %pointsID) {
    var %name = $readini(%pointsfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findID2 {
  var %searchName = %opponent
  var %i = 1

  while (%i <= %pointsID2) {
    var %name = $readini(%pointsfile2, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findID2 {
  var %searchName = %opponent
  var %i = 1

  while (%i <= %pointsID2) {
    var %name = $readini(%pointsfile2, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}

alias -l dicerecord {
  var %searchName = %player1
  var %i = 1

  while (%i <= %diceID) {
    var %name = $readini(%dicerecord, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l dicerecord2 {
  var %searchName = %opponent
  var %i = 1

  while (%i <= %diceID) {
    var %name = $readini(%dicerecord, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}


alias -l slotsrecord {
  var %searchName = $nick
  var %i = 1

  while (%i <= %slotsID) {
    var %name = $readini(%slotsrecord, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}


on 2:text:!sdt:#: {
  var %currentPoints = $readini(%pointsfile, $findIDID(%player1), points)
  var %currentPoints2 = $readini(%pointsfile, $findID(%opponent), points)
  writeini -n %pointsfile $findIDID(%player1) points $calc(%currentPoints + %pot2)
  writeini -n %pointsfile $findID(%opponent) points $calc(%currentPoints2 + %pot2)
  unset %dd
  unset %ddr.*
  unset %pot
  unset %opponent
  unset %player1
  unset %pot2

  .timerDD off
  msg $chan The dice timer has been turned off!

}
_____________________________________


on *:TEXT:!everything:#: { msg $chan Click this link to see everything you'll need to know about the stream! :D http://pastebin.com/zeQx1kg8 }
on *:text:!Matt:#: { msg $chan EXCUUUUUUSE ME! }
on *:text:!noice:#: { msg $chan NOICE! Kreygasm PogChamp }
on *:text:!newgame:#: { msg $chan Want to know any information regarding the new in channel game? Check out this link! http://pastebin.com/HF47GMh8 }
on *:text:!discord:#: { msg $chan Want to have a chill place where you can talk to myself and others outside of twitch? Check out the streams Discord server :D https://discord.gg/qb4UQB9 }
on *:text:!1000:#: { msg $chan  Monday June 28, 2015 at 5:02am. Bradmasta reached 1,000 followers. DarkCoolBoy was the 1,000th. Ended stream with 817k on TTFAF }
on *:text:!diced:#: { msg $chan YOU'VE BEEN DICED PogChamp }
on *:text:THANK YOU:#: { msg $chan NO THANK YOU! }
on *:text:!Syd:#: { msg $chan BabyRage NEVER LUCKY BabyRage }
on *:text:!fail:#: { msg $chan RIP D: }
on *:text:Thx:#: { msg $chan NO THANK YOU! }
on *:text:Thanx:#: { msg $chan NO THANK YOU! }
on *:text:thanks!:#: { msg $chan NO THANK YOU! }
on *:text:ty:#: { msg $chan NO THANK YOU! }
on *:text:THANKs:#: { msg $chan NO THANK YOU! }
on *:text:!Kristen:#: { msg $chan Okok }
on *:text:!hax:#: { msg $chan HAX0R }
on *:text:!donated:#: { msg $chan https://pbs.twimg.com/media/CMG4m95WIAARDbV.jpg:large }
on *:text:!kotty:#: { msg $chan CoolCat CoolCat CoolCat CoolCat CoolCat CoolCat  }
on *:text:!dj:#: { msg $chan BloodTrail 666 - the Time-out of the beast }
on *:text:!w3kongs:#: { msg $chan ALL HAIL THE KONGS Kreygasm }
on *:text:!braf:#: { msg $chan http://i155.photobucket.com/albums/s313/bradmaster0/v7sdo6_zpsc5gtklxv.jpg }
on *:text:!red:#: { msg $chan R E D B O Y S PogChamp }
on *:text:!BTTV:#: { msg $chan Emotes that have been created so far: "BmBraf" and "BmEggs" :) Give them a shot! }
on 3:text:!2222giveaway:#: { msg $chan for details on how to enter the giveaway, please go here: http://pastebin.com/GHacKnJ7 :D }
on *:text:!question:#: { msg $chan YES SIR?? }
on *:text:!giveaway:#: { msg $chan No giveaway currently! }

on *:text:!ryan:#: {
  var %songID = $readini(%songfile, 100, name)
  var %Ident = $readini(%songfile, 100, Identifier)
  var %artistID = $readini(%songfile, 100, artist)
  var %songstring = %ident %songID %artistID
  var %songstring2 = %ident %songID
  var %label_check = No song currently on the queue!
  var %label_line = $read(C:\Users\Brad\Desktop\Songlist\custom_label_file.txt, n, 1)
  var %nickname $nick
  var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %read_text3 $read(%file_search2,r,%songstring)
  var %songnick $+(9946, $nick)

  if (%read_text3) {
    msg $chan Ryan's favorite song is already on the queue Kappa
  }
  elseif ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) && (%label_check == %label_line) {
    TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add Ryan's Favorite song to the queue!
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %songstring
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1

    msg $chan Ryan's song has been added to the setlist! :)
  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) {
    TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add Ryan's Favorite song to the queue!
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1

    msg $chan Ryan's song has been added to the setlist! :)
  }
  else {
    msg $chan you must wait $timer(%songnick).secs seconds before you add Ryan's favorite song to the list!
  }
}

on *:text:!ultra:#: {

  if ($nick == doopian) || ($nick == missesdoom) || ($nick == ferguson_115) || ($nick == xxkrypto) {

    msg $chan $nick has been awared the Ultracoin ( SeemsGood ) for witnessing Brad achieving 900k on Revolution Deathsquad with his 162nd FC!

  }
  elseif ($nick == kanoha92) {

    msg $chan $nick has been awared the Ultracoin ( CoolCat  ) for obtaining all 6 megacoins at least once! PogChamp

  }
  else {

    msg $chan You were not awarded an Ultracoin!
  }




}


on *:text:Can you play rev death?:#: {
  var %songID = $readini(%songfile, 122, name)
  var %Ident = $readini(%songfile, 122, Identifier)
  var %artistID = $readini(%songfile, 122, artist)
  var %label_check = No song currently on the queue!
  var %label_line = $read(C:\Users\Brad\Desktop\Songlist\custom_label_file.txt, n, 1)
  var %songstring = %ident %songID %artistID
  var %songstring2 = %ident %songID
  var %nickname $nick
  var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %read_text = $read(%file_search,r,%regex_text)
  var %read_text3 $read(%file_search2,r,%songstring)
  var %songnick $+(16, $nick)

  if (%read_text3) {
    msg $chan I WOULD LOVE TO ADD THIS SONG BUT IT'S ALREADY ON THE QUEUE! YOU HAVE A GOOD STREAM THE TWITCH WAY!
  }
  elseif ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) && (%label_check == %label_line) {
    TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add rev death if you ask "can you play rev death?" (no quotes)! :)
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %songstring
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan ABSOLUTELY SIR! REV DEATH HAS BEEN ADDED TO THE LIST! HAVE A GOOD STREAM THE TWITCH WAY!
  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) {
    TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add rev death if you ask "can you play rev death?" (no quotes)! :)

    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan ABSOLUTELY SIR! REV DEATH HAS BEEN ADDED TO THE LIST! HAVE A GOOD STREAM THE TWITCH WAY!
  }
  else {
    msg $chan you must wait $timer(%songnick).secs seconds before you add Matt's favorite song to the list!
  }
}

on *:text:!salami:#: {
  var %regex_text = Queued Songs:
  var %songID = $readini(%songfile, 115115, name)
  var %Ident = $readini(%songfile, 115115, Identifier)
  var %artistID = $readini(%songfile, 115115, artist)
  var %songstring = %Ident %songID %artistID
  var %songstring2 = %Ident %songID
  var %nickname $nick
  var %label_check = No song currently on the queue!
  var %label_line = $read(C:\Users\Brad\Desktop\Songlist\custom_label_file.txt, n, 1)
  var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %read_text = $read(%file_search,r,%regex_text)
  var %read_text3 $read(%file_search2,r,%songstring)
  var %songnick $+(11515, $nick)
  if (%read_text3) {
    msg $chan Matt's insanely hard request is already on the queue!
  }
  elseif ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) && (%label_check == %label_line) {
    TIMER [ $+ [ %songnick ] ] 1 84000 msg $chan $nick you may now add Matt's insanely hard request if you type in !salami :)
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %songstring
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan Matt's insanely hard request has been added to the list!
  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) {
    TIMER [ $+ [ %songnick ] ] 1 84000 msg $chan $nick you may now add Matt's insanely hard request if you type in !salami :)

    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan Matt's insanely hard request has been added to the list!
  }

  else {
    msg $chan you must wait $timer(%songnick).secs seconds before you add Matt's insanely hard request to the list!
  }
}




on *:text:!brandon:#: {
  var %regex_text = Queued Songs:
  var %songID = $readini(%songfile, 39, name)
  var %Ident = $readini(%songfile, 39, Identifier)
  var %artistID = $readini(%songfile, 39, artist)
  var %songstring = %Ident %songID %artistID
  var %songstring2 = %Ident %songID
  var %nickname $nick
  var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %label_check = No song currently on the queue!
  var %label_line = $read(C:\Users\Brad\Desktop\Songlist\custom_label_file.txt, n, 1)
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %read_text = $read(%file_search,r,%regex_text)
  var %read_text3 $read(%file_search2,r,%songstring)
  var %songnick $+(25, $nick)
  if (%read_text3) {
    msg $chan B_rocks favorite song is already on the queue!
  }
  elseif ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) && (%label_check == %label_line) {
    TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add B_rocks favorite song if you type in !brock :)
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %songstring
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan B_rocks favorite song has been added to the list!
  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) {
    TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add B_rocks favorite song if you type in !brock :)

    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan B_rocks favorite song has been added to the list!
  }

  else {
    msg $chan you must wait $timer(%songnick).secs seconds before you add B_rocks favorite song to the list!
  }
}
on *:text:!killer:#: {
  var %regex_text = Queued Songs:
  var %songID = $readini(%songfile, 644, name)
  var %Ident = $readini(%songfile, 644, Identifier)
  var %artistID = $readini(%songfile, 644, artist)
  var %songstring = %Ident %songID %artistID
  var %songstring2 = %Ident %songID
  var %nickname $nick
  var %label_check = No song currently on the queue!
  var %label_line = $read(C:\Users\Brad\Desktop\Songlist\custom_label_file.txt, n, 1)
  var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %read_text = $read(%file_search,r,%regex_text)
  var %read_text3 $read(%file_search2,r,%songstring)
  var %songnick $+(334534, $nick)
  if (%read_text3) {
    msg $chan Killers favorite song is already on the queue!
  }
  elseif ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) && (%label_check == %label_line) {
    TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add Killers favorite song if you type in !killer :)
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %songstring
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan Killers favorite song has been added to the list!
  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) {
    TIMER [ $+ [ %songnick ] ] 1 10000 msg $chan $nick you may now add Killers favorite song if you type in !killer :)

    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan Killers favorite song has been added to the list!
  }

  else {
    msg $chan you must wait $timer(%songnick).secs seconds before you add Killer favorite song to the list!
  }
}


on *:text:!brad:#: {
  var %songID = $readini(%songfile, 9999, name)
  var %Ident = $readini(%songfile, 9999, Identifier)
  var %artistID = $readini(%songfile, 9999, artist)
  var %songstring = %Ident %songID %artistID
  var %songstring2 = %Ident %songID
  var %nickname $nick
  var %label_check = No song currently on the queue!
  var %label_line = $read(C:\Users\Brad\Desktop\Songlist\custom_label_file.txt, n, 1)
  var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %read_text = $read(%file_search,r,%regex_text)
  var %read_text3 $read(%file_search2,r,%songstring)
  var %songnick $+(45, $nick)
  if (%read_text3) {
    msg $chan Brad's choice is already on the queue!
  }
  elseif ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) && (%label_check == %label_line) {
    TIMER [ $+ [ %songnick ] ] 1 1000 msg $chan $nick You may give Brad the option of choosing his own song again!
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %songstring
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan Brad now has the option of choosing his own song!
  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) {
    TIMER [ $+ [ %songnick ] ] 1 1000 msg $chan $nick You may give Brad the option of choosing his own song again!

    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1


    msg $chan Brad now has the option of choosing his own song!
  }

  else {
    msg $chan you must wait $timer(%songnick).secs seconds before you can give Brad the option of choosing his own song!
  }
}
on *:text:!ss:#: {
  var %songID = $readini(%songfile, 99999, name)
  var %Ident = $readini(%songfile, 99999, Identifier)
  var %artistID = $readini(%songfile, 99999, artist)
  var %songstring = %Ident %songID %artistID
  var %songstring2 = %Ident %songID
  var %nickname $nick
  var %label_check = No song currently on the queue!
  var %label_line = $read(C:\Users\Brad\Desktop\Songlist\custom_label_file.txt, n, 1)
  var %file_search = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %read_text = $read(%file_search,r,%regex_text)
  var %read_text3 $read(%file_search2,r,%songstring)
  var %songnick $+(999, $nick)
  if (%read_text3) {
    msg $chan Sandstorm is already on the queue!
  }
  elseif ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) && (%label_check == %label_line) {
    TIMER [ $+ [ %songnick ] ] 1 84000 msg $chan $nick If you see this the bots been on for 24 hours Kappa
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %songstring
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1

    msg $chan Sandstorm has been added to the queue!
  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) {
    TIMER [ $+ [ %songnick ] ] 1 84000 msg $chan $nick If you see this the bots been on for 24 hours Kappa


    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1

    msg $chan Sandstorm has been added to the queue!
  }

  else {
    msg $chan Sandstorm can only be requested once per stream Kappa
  }
}


on *:text:!solo:#: { msg $chan Solo Insanity Incoming! PogChamp }
on *:text:!sf:#: { msg $chan Solo FC HYPE! PogChamp }
on *:text:!cmon:#: { msg $chan Really Brad? FailFish }
on *:text:!fc:#: { msg $chan FC HYPE! PogChamp }
on *:text:!1k:#: { msg $chan 1k Notestreak HYPE! PogChamp }
on *:text:!2k:#: { msg $chan 2k Notestreak HYPE!! Kreygasm }
on *:text:!3k:#: { msg $chan 3k Notestreak HYPE!!! PogChamp Kreygasm }
on *:text:Kappa:#: { msg $chan Kappa Kappa Doopian is the king of Kappa counting! }
on *:text:!twitter:#: { msg $chan My Twitter is here: https://twitter.com/Bradmasta make sure to follow so you can see when i'm streaming! :) }
on *:text:!update:#: { msg $chan Here are the latest updates to the stream: http://pastebin.com/Mfc1ZLn3 :D }


on 3:TEXT:!starttimers:#: {

  startupdate
  msg $chan All timers have been started.


}

alias -l startupdate {
  .timer.timerhelp1235 0 1200 msg $chan check out the latest updates to the stream here: http://pastebin.com/Mfc1ZLn3 :D
}
alias -l starteverything {
  .timer.timerhelp91919191919 0 1500 msg $chan Need to know something about the stream? Check this link!: http://pastebin.com/zeQx1kg8
}






on 3:text:!songsoff:#: {


  timer.nosongs 1 84000 msg $chan song timer has ended.
  msg $chan Songs can no longer be added for the time being.
}

on 3:text:!songson:#: {

  timer.nosongs off
  msg $chan Songs may now be added again!
}


on *:text:!random*:#: {


  var %random = $rand(1,1001)
  var %timeout = $rand(1,10)
  var %label_check = No song currently on the queue!
  var %label_line = $read(C:\Users\Brad\Desktop\Songlist\custom_label_file.txt, n, 1)
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search3 = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %songID = $readini(%songfile, %random, name)
  var %nickname $nick
  var %Ident = $readini(%songfile, %random, Identifier)
  var %artistID = $readini(%songfile, %random, artist)
  var %command = !random
  var %songstring = %ident %songID %artistID
  var %songstring2 = %ident %songID
  var %read_text $readini(%songfile, %random, name)
  var %read_text3 $read(%file_search2,r,%songstring)
  var %songnick $+(20, $nick)
  if ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($1 == %command) && (%read_text3) {
    msg $chan This song already exists on the queue!
  }
  elseif ($nick == bradmasta) && ($2 == timer) && ($timer(%songnick) == $null) {

    msg $chan There is no timer to turn off!
  }

  elseif ($nick == bradmasta) && ($2 == timer) && ($timer(%songnick) != $null) {


    TIMER [ $+ [ %songnick ] ] off

    msg $chan timer has been turned off

  }
  elseif ($nick isop #) && (%timeout == 5) {


    TIMER [ $+ [ %songnick ] ] 1 600 msg $chan $nick you can now add another song LUL

    msg $chan since I can't timeout mods, you can't request a song for 10 minutes LUL EleGiggle LUL

  }
  elseif (%timeout == 5) {

    msg $chan /timeout $nick 600

  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif (%read_text3 == $null) && ($timer(%songnick) == $null) && (%label_check == %label_line) {

    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %songstring
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search3 Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1
    msg $chan $nick %songID has been added to the list! Thank you! :)
    TIMER [ $+ [ %songnick ] ] 1 300 msg $chan $nick you may now add another song! :)





  }
  elseif ($1 == %command) && (%read_text) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) < 15) && ($timer(%songnick) == $null) {


    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search3 Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1
    msg $chan $nick %songID has been added to the list! Thank you! :)
    TIMER [ $+ [ %songnick ] ] 1 300 msg $chan $nick you may now add another song! :)

  }
  elseif ($1 == %command) && (%read_text == $null) {
    msg $chan That doesn't exist on my list!
  }
  elseif ($1 != %command) {
    msg $chan That isn't the correct format! Make sure to type in the command in the correct format of !as [x] where [x] is the number.
  }
  else {
    msg $chan You must wait $timer(%songnick).secs seconds before you can add another song!
  }
}


on *:text:!as*:#: {

  var %label_check = No song currently on the queue!
  var %label_line = $read(C:\Users\Brad\Desktop\Songlist\custom_label_file.txt, n, 1)
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search3 = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %songID = $readini(%songfile, $2, name)
  var %nickname $nick
  var %Ident = $readini(%songfile, $2, Identifier)
  var %artistID = $readini(%songfile, $2, artist)
  var %command = !as
  var %songstring = %ident %songID %artistID
  var %songstring2 = %ident %songID
  var %read_text $readini(%songfile, $2, name)
  var %read_text3 $read(%file_search2,r,%songstring)
  var %songnick $+(20, $nick)
  if ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($1 == %command) && (%read_text3) {
    msg $chan This song already exists on the queue!
  }
  elseif ($nick == bradmasta) && ($2 == timer) && ($timer(%songnick) == $null) {

    msg $chan There is no timer to turn off!
  }

  elseif ($nick == bradmasta) && ($2 == timer) && ($timer(%songnick) != $null) {

    TIMER [ $+ [ %songnick ] ] off

    msg $chan timer has been turned off

  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif (%read_text3 == $null) && (%read_text) && ($timer(%songnick) == $null) && (%label_check == %label_line) {

    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %songstring
    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search3 Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1
    msg $chan $nick %songID has been added to the list! Thank you! :)
    TIMER [ $+ [ %songnick ] ] 1 300 msg $chan $nick you may now add another song! :)





  }
  elseif ($1 == %command) && (%read_text) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) < 15) && ($timer(%songnick) == $null) {


    write C:\Users\Brad\Desktop\Songlist\Songs.txt %songstring
    writeini -n %file_search3 Songs $calc(%newsongsID + 1) %songstring2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname
    inc %newsongsID 1
    inc %nicknameID 1
    msg $chan $nick %songID has been added to the list! Thank you! :)
    TIMER [ $+ [ %songnick ] ] 1 300 msg $chan $nick you may now add another song! :)

  }
  elseif ($1 == %command) && (%read_text == $null) {
    msg $chan That doesn't exist on my list!
  }
  elseif ($1 != %command) {
    msg $chan That isn't the correct format! Make sure to type in the command in the correct format of !as [x] where [x] is the number.
  }
  else {
    msg $chan You must wait $timer(%songnick).secs seconds before you can add another song!
  }
}

on *:text:!qs:#: {


  if ($lines(C:\Users\Brad\Desktop\Songlist\songs.txt) == 0) {
    msg $chan There are no songs on the queue.

  }
  else {
    window -h @. | var %i 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%i) {
      var %n $v1
      aline @. $gettok($remove(%n,[,]),2,46) $readini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%n)
      inc %i
    }
    var %i = $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)
    var %q 1
    while %q <= %i {
      var %list $addtok(%list,$line(@.,%q),44)
      var %newini = C:\Users\Brad\Desktop\Songlist\Temp.ini
      savebuf @. C:\Users\Brad\Desktop\Songlist\temp.txt
      writeini -n %newini Top %q $+($chr(40),%q,$chr(41)) - $read(C:\Users\Brad\Desktop\Songlist\temp.txt,n,%q)
      inc %q

    }
    .remove C:\Users\Brad\Desktop\Songlist\temp.txt
    window -c @.
    window -h @. | var %r 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Temp.ini,Top,%r) {
      var %n $v1
      aline @. $gettok($remove(%n,[,]),2,46) $readini(C:\Users\Brad\Desktop\Songlist\Temp.ini,Top,%r)
      inc %r
    }
    var %k 1 | while %k <= 15 {
      var %list2 $addtok(%list2,$line(@.,%k),44)
      inc %k
    }
    window -c @.
    msg $chan The queue contains: $replace(%list2,$chr(44),$+($chr(44),$chr(32)))
    remini -n %newini Top
  }

}


on *:text:!find*:#: {


  var %file_search = C:\Users\Brad\Desktop\Songlist\index.txt
  var %command = !find
  var %read_text3 = $read(%file_search, nr, $2-)
  if ($1 == %command) && (%read_text3) {
    msg $chan The index for %read_text3 is $readn
  }
  elseif ($1 == %command) && (%read_text3 == $null) {
    msg $chan Unfortunately that doesn't exist on my list :( Also, make sure you're search with all lowercase letters!
  }
  elseif ($1 != %command) {
    msg $chan That isn't the correct format! Make sure to type in the command in the correct format of !as [x] where [x] is the number.
  }
  else {
    msg $chan test
  }
}
on 3:text:!line*:#: {


  var %file_search = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %read_text2 = $read(%file_search)
  var %command = !line
  var %read_text = $read(%file_search, n, $2)

  if ($2 > $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {

    msg $chan This line isn't occupied right now!

  }
  elseif ($1 == %command) && (%read_text2) {
    msg $chan Line $2 contains %read_text
  }
  elseif ($1 != %command) {
    msg $chan That isn't the correct format! Make sure to type in the command in the correct format of !find [x] where [x] is the line you're searching for.
  }
  else {
    msg $chan test
  }
}


on 2:text:!e*:#: {

  var %songID $readini(%songfile, $3, name)
  var %Ident $readini(%songfile, $3, Identifier)
  var %artistID $readini(%songfile, $3, Artist)
  var %songstring = %ident %songID %artistID
  var %command = !e
  var %spot = $calc($2 - 1)
  var %file_search = $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,1)
  var %file_search6 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search3 = $readini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,songs,$2)
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search10 = $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,%spot)
  var %file_search5 = C:\Users\Brad\Desktop\Songlist\instantqueue2.txt
  var %file_search13 = $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,$2)
  var %file_search9 = $readini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,songs,$2)
  var %file_search14 = $readini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,songs,2)
  var %file_search15 = $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,1)
  var %SongandIdent
  %SongandIdent = %Ident %songID
  var %read_text3 $read(%file_search5,r,%SongandIdent)
  var %read_text $read(%file_search6,r,%SongandIdent)

  if ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 0) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) == 0) {

    msg $chan There are no songs on the list to change!


  }
  if ($1 == %command) && ($2 > 15) {
    msg $chan There are only at most 15 songs to change! The format is "!c [x] [z]" Where [x] is the line being changed and [z] is the song you're changing to
  }

  if ($1 == %command) && (%songID == $null) {
    msg $chan This song doesn't exist or the command was formatted wrong!
  }

  if ($1 == %command) && ($2 > $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {

    msg $chan You can't change a song to a spot that currently isn't occupied!


  } | halt

  if ($1 == %command) && (%read_text) {

    msg $chan you can't change a song to a song that is already on the list!

  } | halt

  if ($1 == %command) && (%read_text3) && ($2 <= 4) {

    msg $chan You cant change an instant-queued song's spot on the instant-queue!

  } | halt
  if ($1 == %command) && ($2 >= 5) {
    msg $chan $readini(%file_search4, Songs, $2) was changed to %songID ! Thank you! :)
    writeini -n %file_search4 Songs $2 %SongandIdent
    write -dl $+ $2 %file_search6
    write -il $+ $2 %file_search6 %songstring


  } | halt

  if ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) >= 1) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 1) && (%file_search14 == %file_search15) && ($2 == 1) {
    msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
    writeini -n %file_search4 Songs 1 %SongandIdent
    write -dl1 %file_search6
    write -il1 %file_search6 %songstring


  } | halt

  if ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) >= 1) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 1) && ($2 == 1) {
    msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
    writeini -n %file_search4 Songs 1 %SongandIdent
    write -dl1 %file_search5
    write -il1 %file_search5 %SongandIDent
    write -dl1 %file_search6
    write -il1 %file_search6 %songstring


  } | halt

  if ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 0) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 1) {
    msg $chan $readini(%file_search4, Songs, $2) was changed to %songID ! Thank you! :)
    writeini -n %file_search4 Songs $2 %SongandIdent
    write -dl $+ $2 %file_search6
    write -il $+ $2 %file_search6 %songstring


  } | halt
  if ($1 == %command) && (%file_search10 != %file_search9) {



    if ($2 == 2) {
      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 2 %SongandIdent

      write -dl2 %file_search6
      write -il2 %file_search6 %songstring

    } | halt
    elseif ($2 == 3) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 3 %SongandIdent

      write -dl3 %file_search6
      write -il3 %file_search6 %songstring

    } | halt
    elseif ($2 == 4) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 4 %SongandIdent

      write -dl4 %file_search6
      write -il4 %file_search6 %songstring

    } | halt
  }

  if ($1 == %command) && (%file_search10 == %file_search9) {



    if ($2 == 2) {
      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 2 %SongandIdent
      write -dl1 %file_search5
      write -il1 %file_search5 %SongandIDent
      write -dl2 %file_search6
      write -il2 %file_search6 %songstring

    } | halt
    elseif ($2 == 3) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 3 %SongandIdent
      write -dl2 %file_search5
      write -il2 %file_search5 %SongandIDent
      write -dl3 %file_search6
      write -il3 %file_search6 %songstring

    } | halt
    elseif ($2 == 4) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 4 %SongandIdent
      write -dl3 %file_search5
      write -il3 %file_search5 %SongandIDent
      write -dl4 %file_search6
      write -il4 %file_search6 %songstring

    } | halt
  }
  if ($1 == %command) && (%file_search13 != %file_search9) {

    if ($2 >= 4 ) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID ! Thank you! :)
      writeini -n %file_search4 Songs $2 %SongandIdent
      write -dl $+ $2 %file_search6
      write -il $+ $2 %file_search6 %songstring


    } | halt
    elseif ($2 == 2) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 2 %SongandIdent

      write -dl2 %file_search6
      write -il2 %file_search6 %songstring

    } | halt
    elseif ($2 == 3) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 3 %SongandIdent
      write -dl3 %file_search6
      write -il3 %file_search6 %songstring

    } | halt
  }

  if ($1 == %command) && (%file_search13 == %file_search9) {

    if ($2 >= 4 ) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID ! Thank you! :)
      writeini -n %file_search4 Songs $2 %SongandIdent
      write -dl $+ $2 %file_search6
      write -il $+ $2 %file_search6 %songstring


    } | halt
    elseif ($2 == 2) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 2 %SongandIdent
      write -dl2 %file_search5
      write -il2 %file_search5 %SongandIDent
      write -dl2 %file_search6
      write -il2 %file_search6 %songstring

    } | halt
    elseif ($2 == 3) {

      msg $chan $readini(%file_search4, Songs, $2) was changed to %songID :) Thank you!
      writeini -n %file_search4 Songs 3 %SongandIdent
      write -dl3 %file_search5
      write -il3 %file_search5 %SongandIDent
      write -dl3 %file_search6
      write -il3 %file_search6 %songstring

    } | halt
  }
  else {
    msg $chan something broke!

  }
}

on 3:text:!r*:#: {
  var %song $2
  %song = $readini(%songfile, $2, name)
  var %songID = $readini(%songfile, $2, name)
  var %Ident = $readini(%songfile, $2, Identifier)
  var %file_search = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %points = $readini(%pointsfile, $findIDID($1), name)
  var %command = !r
  var %artistID = $readini(%songfile, $2, artist)
  var %songstring = %ident %songID %artistID
  var %songstring2 = %songID
  var %isqueue = $readini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,$2)
  %symbols = ,
  var %read_text $read(C:\Users\Brad\Desktop\Songlist\Songqueue.txt)
  var %read_text2 $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,1)
  var %read_text5 $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,2)
  var %read_text3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,1)
  var %read_text6 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
  var %read_text7 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
  var %file_search3 = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %file_search5 = C:\Users\Brad\Desktop\Songlist\RNI.txt
  var %read_text4 $read(%file_Search,r,%songstring)
  var %delete $remove(%read_text, %song, %ident, %symbols )

  if ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) = 0) && ($lines(%instantqueue2) = 0) {
    msg $chan There are no songs on the queue.
  }
  elseif ($2- !isnum) {
    msg $chan Make sure to use only numbers, and make sure you format the command right! Remember, "!r [x]" where [x] is the song being removed.
  }
  elseif (. isin $2) {
    msg $chan Don't use decimals!
  }
  elseif ($2 > 15) {
    msg $chan There are only at most 15 songs on the queue! The number after "r" represents the place in the queue the song is. Example, the song being played currently is first, so to remove it, you would use "!r 1"
  }
  elseif ($2 > $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
    msg $chan You can't remove a line that doesn't exist!
  }

  elseif ($2 == 2) && (%read_text6) {
    msg $chan Don't try to remove an instant requested song that hasn't been played yet!
  }

  elseif ($2 == 3) && (%read_text7) {
    msg $chan Don't try to remove an instant requested song that hasn't been played yet!
  }
  elseif ($2 == 2) && (%read_text3) {
    msg $chan Don't try to remove an instant requested song that hasn't been played yet!
  }

  elseif ($2 == 3) && (%read_text6) {
    msg $chan Don't try to remove an instant requested song that hasn't been played yet!
  }

  elseif ($2 == 4) && (%read_text7) {
    msg $chan Don't try to remove an instant requested song that hasn't been played yet!
  }
  elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) > 1) && (%isqueue == %read_text3) {


    var %fix 1
    remini -n %file_search4 names $2
    window -h @fixini
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 Names %fix $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt

    var %fixini 1
    write -dl $+ $2 C:\Users\Brad\Desktop\Songlist\Songs.txt
    write -dl 1 C:\Users\Brad\Desktop\Songlist\instantqueue2.txt
    remini -n %file_search3 songs $2
    window -h @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs %fixini $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write -il1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %read_text5
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt

    dec %nicknameID 1
    dec %newsongsID 1
    msg $chan removing the song off the queue. The current song now is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1) requested by $readini(C:\Users\Brad\Desktop\Songlist\Requestorname.ini, Names, 1)
  }
  elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) > 1) && ($2 == 1) {


    window -a @fixini
    var %fixini 1
    remini -n %file_search4 names $2
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names %fixini $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fixini),2,61)
      inc %fixini
    }
    window -c @fixini
    dec %nicknameID 1
    dec %newsongsID 1
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt

    window -a @fixini
    var %fixini 1
    write -dl $+ $2 C:\Users\Brad\Desktop\Songlist\Songs.txt
    remini -n %file_search3 songs $2
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs %fixini $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write -il1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt %read_text5
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    msg $chan removing the song off the queue. The current song is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1) requested by $readini(C:\Users\Brad\Desktop\Songlist\Requestorname.ini, Names, 1)
  }
  elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) > 1) {


    window -a @fixini
    var %fixini 1
    remini -n %file_search4 names $2
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names %fixini $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fixini),2,61)
      inc %fixini
    }
    window -c @fixini
    dec %nicknameID 1
    dec %newsongsID 1
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt

    window -a @fixini
    var %fixini 1
    write -dl $+ $2 C:\Users\Brad\Desktop\Songlist\Songs.txt
    remini -n %file_search3 songs $2
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs %fixini $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    msg $chan removing the song off the queue. The current song is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1) requested by $readini(C:\Users\Brad\Desktop\Songlist\Requestorname.ini, Names, 1)
  }


  elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) == 1) {
    write -dl1 C:\Users\Brad\Desktop\Songlist\Songs.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
    write -il1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt No song currently on the queue!
    remini %file_search4 names 1
    remini %file_search3 Songs 1
    dec %newsongsID 1
    dec %nicknameID 1
    msg $chan removing the top song off the queue. There are no more songs on the queue!

  }

  elseif ($1 != %command) {
    msg $chan That isn't formatted correctly! Make sure to type in the command in the correct format of !r [x] where [x] is the number.
  }
  else {
    msg $chan Something went wrong! Check the formatting and try again :)
  }
}

on 2:text:!cl:#: {
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  remini -n %file_search4 Names
  %nicknameID = 0
  write -c C:\Users\Brad\Desktop\Songlist\Songs.txt
  write -dl1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt
  write -il1 C:\Users\Brad\Desktop\Songlist\custom_label_file.txt No song currently on the queue!

  msg $chan Clearing list..
}

on 2:text:!ctq:#: {
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %file_search3 = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  remini -n %file_search4 Names
  %nicknameID = 0
  remini -n %file_search3 Songs
  msg $chan Clearing the queue...
  %newsongsID = 0
  %songsID = 1

}
on 2:text:!cis:#: {

  msg $chan Clearing instant song queue..
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  remini -n %file_search4 Names
  %nicknameID = 0
  write -c C:\Users\Brad\Desktop\Songlist\instantqueue2.txt

}


on *:text:!cs:#: {

  if ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) == 0) {

    msg $chan There are no songs currently on the queue.
  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) = 1) {
    msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,1) and was requested by $readini(C:\Users\Brad\Desktop\Songlist\Requestorname.ini, Names, 1)
  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) > 1) {
    msg $chan The current song is $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,1) requested by $readini(C:\Users\Brad\Desktop\Songlist\Requestorname.ini, Names, 1) and the next song is $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,n,2) requested by $readini(C:\Users\Brad\Desktop\Songlist\Requestorname.ini, Names, 2)
  }
}

______________________________________________________________________________________________________________
alias -l findIDID {
  var %searchName = $1
  var %i = 1

  while (%i <= %pointsID) {
    var %name = $readini(%pointsfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findrequestor {
  var %searchName = $readini(%pointsfile, %pointsID, name)
  var %i = 1

  while (%i <= %pointsID2) {
    var %name = $readini(%pointsfile2, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
____________________________________________________________________________

on *:text:!join:#: {
  var %songnick $+(4, $nick)
  IF ($timer(%songnick) == $null) {
    addTimerPoints $nick
    addTimerPoints2 $nick
    write C:\Users\Brad\Desktop\Songlist\suggest.txt $nick
    $+(timer4, $nick) 1 3600 msg $chan $nick you may now type in !join again to earn 5001 bcoins!
    msg $chan Thank you typing in !join! You can type this in once per hour to earn 5001 bcoins! :) If you're new, you can now earn bcoins through the in channel games!
  }
  else {
    msg $chan $nick you must wait $timer(%songnick).secs seconds before you can type in !join D:
  }
}


alias -l addTimerPoints {
  var %ID = $findID(%pointsfile, %pointsID, $1)
  if (%ID == 0) {
    $addUser($1)
    %ID = $findID(%pointsfile, %pointsID, $1)
  }
  else {
    var %currentPoints = $readini(%pointsfile, %ID, points)
    writeini -n %pointsfile %ID points $calc(%currentPoints + 5001)
  }
}
alias -l addTimerPoints2 {
  var %ID2 = $findIDIDIDID(%pointsfile2, %pointsID2, $1)
  if (%ID2 == 0) {
    $addUser2($1)
    %ID2 = $findIDIDIDID(%pointsfile2, %pointsID2, $1)
  }
  else {
    var %currentPoints2 = $readini(%pointsfile2, %ID2, points)
    writeini -n %pointsfile2 %ID2 points $calc(%currentPoints2 + 5001)
  }
}

alias -l addUser {
  writeini -n %pointsFile $calc(%pointsID + 1) name $1
  writeini -n %pointsFile $calc(%pointsID + 1) points 5001
  inc %pointsID
}
alias -l addUser2 {
  writeini -n %pointsFile2 $calc(%pointsID2 + 1) name $1
  writeini -n %pointsFile2 $calc(%pointsID2 + 1) points 5001
  inc %pointsID2
}
alias -l addUser3 {
  writeini -n %megacoins $findcoins name $1
  writeini -n %megacoins $findcoins coin1
  inc %megaID
}
alias -l addUser4 {
  writeini -n %megacoins2 $findcoins name $1
  writeini -n %megacoins2 $findcoins coin2
  inc %megaID
}
alias -l addUser5 {
  writeini -n %megacoins3 $findcoins name $1
  writeini -n %megacoins3 $findcoins coin3
  inc %megaID
}
alias -l addUser6 {
  writeini -n %megacoins4 $findcoins name $1
  writeini -n %megacoins4 $findcoins coin4
  inc %megaID
}
alias -l addUser7 {
  writeini -n %megacoins5 $findcoins name $1
  writeini -n %megacoins5 $findcoins coin5
  inc %megaID
}
alias -l addUser8 {
  writeini -n %megacoins6 $findcoins name $1
  writeini -n %megacoins6 $findcoins coin6
  inc %megaID
}
on *:text:!bcoins*:#: {
  var %findmename = $nick
  SET %findmename2 $2
  var %points = $readini(%pointsfile, $findIDID($nick), points)
  var %points3 = $readini(%pointsfile, $findmename3($2), points)
  var %points2 = $readini(%pointsfile2, $findIDIDIDIDID($nick), points)
  var %points4 = $readini(%pointsfile2, $findmename4($2), points)
  var %findme = $readini(%pointsfile, $findIDID(%findmename), name)
  var %findme2 = $readini(%pointsfile, $findmename2(%findmename2), name)
  var %currentPoints = $readini(%pointsfile, $findIDID(%name), points)
  var %ID = $findIDIDID(%Hallofawesome, %HallofawesomeID, $1)

  if ($2 == $null) {


    if (%findme == $null) {

      msg $chan $nick you haven't started earning bcoins yet! Type in "!join" to start doing so! :D

    }
    else {
      if (($nick == anenthran) && (%points2 isnum 2000000-4000000)) || (($nick == just1thing) && (%points2 isnum 2000000-4000000)) || (($nick == kristen91885) && (%points2 isnum 2000000-4000000)) || (($nick == ryantwitchy) && (%points2 isnum 2000000-4000000)) || (($nick == kanoha92) && (%points2 isnum 2000000-4000000)) || (($nick == kraken_smakin) && (%points2 isnum 2000000-4000000)) || (($nick == classiccamgil) && (%points2 isnum 2000000-4000000)) || (($nick == remefx) && (%points2 isnum 2000000-4000000)) || (($nick == doopian) && (%points2 isnum 2000000-4000000)) || (($nick == thezombiehunter3165) && (%points2 isnum 2000000-4000000)) || (($nick == destinyspowerofstupidity) && (%points2 isnum 2000000-4000000)) {

        msg $chan $nick has %points bcoins and has earned %points2 all time! $nick is a member of the Hall of Awesome, a list only reserved for the most dedicated viewers and supporters of bradmasta! :)
      }
      elseIF (%points2 >= 4000000) && (%ID == 0) {
        $addHall($nick)
        msg $chan $nick has %points bcoins and has earned %points2 all time! $nick has done it! $nick has been added to the Hall Of Awesome for achieving over 2,000,000 bcoins all time! :D
      }
      elseif (%points2 isnum 1-99999) {
        msg $chan $nick has %points bcoins and has earned %points2 bcoins all time!
      }
      elseif (%points2 isnum 100000-249999) {
        msg $chan $nick has %points bcoins and has earned %points2 bcoins all time! $nick enjoys Bradmasta's stream!
      }
      elseif (%points2 isnum 250000-499999) {
        msg $chan $nick has %points bcoins and has earned %points2 bcoins all time! $nick has been with the channel for some time now!
      }
      elseif (%points2 isnum 500000-999999) {
        msg $chan $nick has %points bcoins and has earned %points2 bcoins all time! $nick is a high roller! PogChamp
      }
      elseif (%points2 isnum 1000000-1999999) {
        msg $chan $nick has %points bcoins and has earned %points2 bcoins all time! $nick has an impressive amount of bcoins!
      }
      elseif (%points2 isnum 2000000-3999999) {
        msg $chan $nick has %points bcoins and has earned %points2 bcoins all time! $nick has a seriously gambling problem Kappa
      }
      elseif (%points2 isnum 4000000-9999999) {
        msg $chan $nick has %points bcoins and has earned %points2 all time! $nick is a member of the Hall of Awesome, a list only reserved for the most dedicated viewers and supporters of bradmasta! :)
      }
      elseif (%points2 isnum 10000000-49999999) {
        msg $chan $nick has %points bcoins and has earned %points2 all time! $nick is a member of the Hall of Awesome, a list only reserved for the most dedicated viewers and supporters of bradmasta! $nick as also reach deIlluminati status! O_O
      }
      elseif (%points <= 0) {
        msg $chan $nick You have no bcoins! But has earned %points2 bcoins all time!
      }
    }
  }
  if ($2 != $null) {
    if ($2 != %findme2) {

      msg $chan $2 hasn't earned any bcoins yet!

    }
    else {
      if (($2 == anenthran) && (%points4 isnum 2000000-4000000)) || (($2 == just1thing) && (%points4 isnum 2000000-4000000)) || (($2 == kristen91885) && (%points4 isnum 4000000-3500000)) || (($2 == ryantwitchy) && (%points4 isnum 2000000-4000000)) || (($2 == kanoha92) && (%points4 isnum 2000000-4000000)) || (($2 == kraken_smakin) && (%points4 isnum 2000000-4000000)) || (($2 == classiccamgil) && (%points4 isnum 2000000-4000000)) || (($2 == remefx) && (%points4 isnum 2000000-4000000)) || (($2 == doopian) && (%points4 isnum 2000000-4000000)) || (($2 == thezombiehunter3165) && (%points4 isnum 2000000-4000000)) || (($2 == destinyspowerofstupidity) && (%points4 isnum 2000000-4000000)) {

        msg $chan $2 has %points3 bcoins and has earned %points4 all time! $2 is a member of the Hall of Awesome, a list only reserved for the most dedicated viewers and supporters of bradmasta! :)
        unset %findmename2
      }

      elseif (%points4 isnum 1-99999) {
        msg $chan $2 has %points3 bcoins and has earned %points4 bcoins all time!
        unset %findmename2
      }
      elseif (%points4 isnum 100000-249999) {
        msg $chan $2 has %points3 bcoins and has earned %points4 bcoins all time! $2 enjoys Bradmasta's stream!
        unset %findmename2
      }
      elseif (%points4 isnum 250000-499999) {
        msg $chan $2 has %points3 bcoins and has earned %points4 bcoins all time! $2 has been with the channel for some time now!
        unset %findmename2
      }
      elseif (%points4 isnum 500000-999999) {
        msg $chan $2 has %points3 bcoins and has earned %points4 bcoins all time! $2 is a high roller! PogChamp
        unset %findmename2
      }
      elseif (%points4 isnum 1000000-1999999) {
        msg $chan $2 has %points3 bcoins and has earned %points4 bcoins all time! $2 has an impressive amount of bcoins!
        unset %findmename2
      }
      elseif (%points4 isnum 2000000-3999999) {
        msg $chan $2 has %points3 bcoins and has earned %points4 bcoins all time! $2 has a serious gambling problem Kappa
        unset %findmename2
      }
      elseif (%points4 isnum 4000000-9999999) {
        msg $chan $2 has %points3 bcoins and has earned %points4 all time! $2 is a member of the Hall of Awesome, a list only reserved for the most dedicated viewers and supporters of bradmasta! :)
        unset %findmename2
      }
      elseif (%points4 isnum 10000000-49999999) {
        msg $chan $2 has %points3 bcoins and has earned %points4 all time! $2 is a member of the Hall of Awesome, a list only reserved for the most dedicated viewers and supporters of bradmasta! $nick as also reach deIlluminati status! O_O
        unset %findmename2
      }
      elseif (%points3 <= 0) {
        msg $chan $2 has no bcoins! But has earned %points4 bcoins all time!
        unset %findmename2
      }
    }
  }
}


alias -l addHall {
  writeini -n %Hallofawesome $calc(%HallofawesomeID + 1) name $1
  inc %HallofawesomeID
}

on *:text:!bn:#: {
  var %currentPoints = $readini(%pointsfile2, $findIDIDIDIDID($nick), points)
  var %pointsneeded = $calc(4000000 - %currentPoints)

  if (($nick == anenthran) && (%points2 isnum 2000000-4000000)) || (($nick == just1thing) && (%points2 isnum 2000000-4000000)) || (($nick == kristen91885) && (%points2 isnum 2000000-4000000)) || (($nick == ryantwitchy) && (%points2 isnum 2000000-4000000)) || (($nick == kanoha92) && (%points2 isnum 2000000-4000000)) || (($nick == kraken_smakin) && (%points2 isnum 2000000-4000000)) || (($nick == classiccamgil) && (%points2 isnum 2000000-4000000)) || (($nick == remefx) && (%points2 isnum 2000000-4000000)) || (($nick == doopian) && (%points2 isnum 2000000-4000000)) || (($nick == thezombiehunter3165) && (%points2 isnum 2000000-4000000)) || (($nick == destinyspowerofstupidity) && (%points2 isnum 2000000-4000000)) {

    msg $chan You're already in the Hall of Awesome!

  }
  elseif (%currentPoints isnum 1-3999999) {
    msg $chan $nick You need %pointsneeded Bcoins to reach the Hall of Awesome!
  }
  elseif (%currentPoints >= 4000000) {
    msg $chan $nick You have %currentpoints bcoins, which is enough to enter the Hall of Awesome! Simply type into chat !bcoins and you'll be added! :D
  }
}




on *:text:!mega*:#: {

  var %i 1
  var %j 1
  var %found 0
  var %remainder 0
  var %output = $2 has $+ $chr(32) $+ $chr(32)
  var %output2 = $nick you have the Mega Coins:  $+ $chr(32) $+ $chr(32)
  var %ID = $findallmega(%allmega, %allmegaID, $nick)
  var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID($nick), points)
  var %newPoints2 = $calc(%currentPoints2 + 1000000)
  var %currentPoints = $readini(%pointsfile, $findIDID($nick), points)
  var %newPoints = $calc(%currentPoints + 1000000)



  if ($2 != $null) {

    while (%i < 7) {
      %j = 1
      while ($readini(%megacoinstest, n, %i, %j) != $null) {

        var %user $readini(%megacoinstest, n, %i, %j)

        if (%user == $2) {

          var %currentCoin
          if (%i == 1) {
            %currentCoin = %1 $+ $chr(32) $+ $chr(32)
          }
          elseif (%i == 2) {
            %currentCoin = %2 $+ $chr(32) $+ $chr(32)
          }
          elseif (%i == 3) {
            %currentCoin = %3 $+ $chr(32) $+ $chr(32)
          }
          elseif (%i == 4) {
            %currentCoin = %4 $+ $chr(32) $+ $chr(32)
          }
          elseif (%i == 5) {
            %currentCoin = %5 $+ $chr(32) $+ $chr(32)
          }
          else {
            %currentCoin = %6 $+ $chr(32) $+ $chr(32)
          }

          inc %found
          %output = %output $+ %currentCoin
        }
        inc %j

      }

      inc %i

    }

    %remainder = $calc(6 - %found)
    if (%remainder == 6) {
      msg $chan $2 has no megacoins $nick
    }
    elseif (%remainder >= 1) {
      msg $chan %output $+ They need %remainder megacoins to get 1 million bcoins!
    }
    elseif (%remainder == 0) {

      msg $chan %output $+ They have all 6 megacoins!

    }
  }
  elseif ($2 == $null) {

    while (%i < 7) {
      %j = 1
      while ($readini(%megacoinstest, n, %i, %j) != $null) {

        var %user $readini(%megacoinstest, n, %i, %j)

        if (%user == $nick) {

          var %currentCoin
          if (%i == 1) {
            %currentCoin = %1 $+ $chr(32) $+ $chr(32)
          }
          elseif (%i == 2) {
            %currentCoin = %2 $+ $chr(32) $+ $chr(32)
          }
          elseif (%i == 3) {
            %currentCoin = %3 $+ $chr(32) $+ $chr(32)
          }
          elseif (%i == 4) {
            %currentCoin = %4 $+ $chr(32) $+ $chr(32)
          }
          elseif (%i == 5) {
            %currentCoin = %5 $+ $chr(32) $+ $chr(32)
          }
          else {
            %currentCoin = %6 $+ $chr(32) $+ $chr(32)
          }

          inc %found
          %output2 = %output2 $+ %currentCoin
        }
        inc %j

      }

      inc %i

    }

    %remainder = $calc(6 - %found)
    if (%remainder == 6) {
      msg $chan $nick You don't have any mega coins! Keep playing the slots to win 1! If you obtain all 6, you win 1,000,000 bcoins!
    }
    elseif (%remainder >= 1) {
      msg $chan %output2 $+ ! You need %remainder megacoins to get 1 million bcoins!
    }
    elseif (%remainder == 0) && (%ID == 0) {
      addmeganame

      writeini -n %pointsfile $findIDID($nick) points %newpoints
      writeini -n %pointsfile2 $findIDIDIDIDID($nick) points %newpoints2

      msg $chan %output2 $+ megacoins! You have just won 1 million bcoins!
    }
    elseif (%remainder == 0) {
      msg $chan %output2 $+ which is all 6 megacoins!
    }

  }
}

alias -l addmeganame {
  var %ID = $findallmega(%allmega, %allmegaID, $nick)
  if (%ID == 0) {
    $addallmega($nick)
    %ID = $findallmega(%allmega, %allmegaID, $nick)
  }

}
alias -l addallmega {
  writeini -n %allmega $calc(%allmegaID + 1) name $nick
  inc %allmegaID
}
on *:text:!Hoa:#: {
  msg $chan To see who's made it into the Hall of Awesome, simply scroll to the bottom of Brads twitch page, or go to this link: http://pastebin.com/kgWbmLRV :)
}
// Format: !addPoints [name] [points]
on 3:text:!ab*:#: {
  var %name = $2
  var %points = $3
  var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%name), points)
  var %newPoints2 = $calc(%currentPoints2 + %points)
  var %currentPoints = $readini(%pointsfile, $findIDID(%name), points)
  var %newPoints = $calc(%currentPoints + %points)

  writeini -n %pointsfile $findIDID(%name) points %newPoints
  writeini -n %pointsfile2 $findIDIDIDIDID(%name) points %newPoints2

  msg $chan %points bcoins were added to %name
}

on 3:text:!au*:#: {


  writeini -n %pointsFile $calc(%pointsID + 1) name $2
  writeini -n %pointsFile $calc(%pointsID + 1) points 2000


  writeini -n %pointsFile2 $calc(%pointsID2 + 1) name $2
  writeini -n %pointsFile2 $calc(%pointsID2 + 1) points 2000
  inc %pointsID
  inc %pointsID2


  msg $chan $2 has been added to the bcoins list! :)
}

alias -l adduserspoints {
  var %ID = $findID(%pointsfile, %pointsID, $2)
  if (%ID == 0) {
    $addUser($2)
    %ID = $findID(%pointsfile, %pointsID, $2)
  }
  var %currentPoints = $readini(%pointsfile, %ID, points)
  writeini -n %pointsfile %ID points $calc(%currentPoints + 5)
}
alias -l adduserspoints2 {
  var %ID2 = $findIDIDIDID(%pointsfile2, %pointsID2, $1)
  if (%ID2 == 0) {
    $addUser2($2)
    %ID2 = $findIDIDIDID(%pointsfile2, %pointsID2, $1)
  }
  var %currentPoints2 = $readini(%pointsfile2, %ID2, points)
  writeini -n %pointsfile2 %ID2 points $calc(%currentPoints2 + 5)
}
on 3:text:!tb*:#: {
  var %name = $2
  var %points = $3

  var %currentPoints = $readini(%pointsfile, $findIDID(%name), points)
  var %newPoints = $calc(%currentPoints - %points)

  writeini -n %pointsfile $findIDID(%name) points %newPoints

  msg $chan %points bcoins were taken from %name
}
on *:text:!is*:#: {

  var %hoa = $nick
  var %findsubname = $nick
  var %currentPoints = $readini(%pointsfile, $findIDID($nick), points)
  var %newPoints = $calc(%currentPoints - 15000)
  var %newPoints2 = $calc(%currentPoints - 7500)
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %songID $readini(%songfile, $2, name)
  var %command = !is
  var %ident $readini(%songfile, $2, Identifier)
  var %artistID $readini(%songfile, $2, artist)
  var %songstring = %ident %songID %artistID
  var %songstring2 = %ident %songID
  var %file_search3 = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %file_verify = $readini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,1)
  var %file_verify2 = $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,1)
  var %read_text $read(%file_search2,r,%songstring)
  var %IDexist = $readini(%Hallofawesome, $findIDIDID($nick), name)
  var %read_text3 $read(C:\Users\Brad\Desktop\Songlist\Songs.txt,w,%songstring)
  var %read_text4 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,w,%songstring2)
  var %pointsneeded $calc(15000 - %currentPoints)
  var %pointsneeded2 $calc(7500 - %currentPoints)
  var %songnick $+(6, $nick)
  var %read_text2 $readini(%songfile, $2, name)
  var %subcheck $readini(%subfile, $findsub($nick), songsleft)
  var %songsleftcheck $calc(%subcheck - 1)
  if ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($nick == bradmasta) && ($2 == timer) && ($timer(%songnick) == $null) {

    msg $chan There is no timer to turn off!

  }
  elseif ($nick == bradmasta) && ($2 == timer) && ($timer(%songnick) != $null) {

    TIMER [ $+ [ %songnick ] ] off
    msg $chan timer has been turned off!
  }

  elseif ($1 == %command) && (%read_text2 == $null) {
    msg $chan That song doesn't exist! | haltblack anti venom
  }
  elseif ($1 == %command) && (%read_text4 != $null) {
    msg $chan %songID is already on the instant song queue!
  }

  elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) >= 3) {
    msg $chan There can only be 3 songs added to the instant queue at one time! Please wait for this list to lower! Thank you :) | halt
  }
  elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 15) {
    msg $chan Only 15 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!


  }
  elseif ($1 == %command) && (%songstring2 == %file_verify) {

    msg $chan That song is already on the top of the list!

  }

  elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 0) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) == 0) {

    msg $chan There is nothing on the list so there is no need to instant request a song or use your bcoins for it! Save them for the slots :D

  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 0) && (%read_text3 != $null) && (%subcheck >= 1) {


    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,1)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!


  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 0) && (%read_text3 == $null) && (%subcheck >= 1) {



    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    inc %nicknameID 1
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,1)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1


    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!


  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%file_verify == %file_verify2) && (%read_text3 != $null) && (%subcheck >= 1) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!



  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%file_verify == %file_verify2) && (%read_text3 == $null) && (%subcheck >= 1) {



    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt
    inc %nicknameID 1


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1



    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!



  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%read_text3 != $null) && (%subcheck >= 1) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!



  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%read_text3 == $null) && (%subcheck >= 1) {


    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    inc %nicknameID 1
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    inc %newsongsID 1
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!


  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%file_verify == %file_verify2) && (%read_text3 != $null) && (%subcheck >= 1) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!



  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%file_verify == %file_verify2) && (%read_text3 == $null) && (%subcheck >= 1) {


    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt
    inc %nicknameID 1


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1



    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!


  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%read_text3 != $null) && (%subcheck >= 1) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    writeini -n %file_search4 Names 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 4 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    writeini -n %file_search3 Songs 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 4 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    write -il4 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!


  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%read_text3 == $null) && (%subcheck >= 1) {


    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    writeini -n %file_search4 Names 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 4 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt
    inc %nicknameID 1


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    writeini -n %file_search3 Songs 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 4 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1



    write -il4 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    writeini -n %subfile $findsub($nick) songsleft %songsleftcheck
    msg $chan $nick %songID has been added to the instant queue! You have %songsleftcheck free instant requests left!

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list! Remember you have %songsleftcheck free instant requests remaining!


  }

  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 0) && (%read_text3 != $null) && ($nick == %IDexist) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,1)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini

    writeini -n %pointsfile $findIDID($nick) points %newPoints2
    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID


    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 0) && (%read_text3 == $null) && ($nick == %IDexist) {

    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    inc %nicknameID 1
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,1)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1

    writeini -n %pointsfile $findIDID($nick) points %newPoints2
    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID


    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 0) && (%read_text3 != $null)  {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,1)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini

    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 0) && (%read_text3 == $null)  {


    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    inc %nicknameID 1
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,1)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1

    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID


    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)

  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%file_verify == %file_verify2) && (%read_text3 != $null) && ($nick == %IDexist) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)

  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%file_verify == %file_verify2) && (%read_text3 == $null) && ($nick == %IDexist) {

    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt
    inc %nicknameID 1


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1


    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)

  }

  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%read_text3 != $null) && ($nick == %IDexist) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%read_text3 == $null) && ($nick == %IDexist) {

    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    inc %nicknameID 1
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    inc %newsongsID 1
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%file_verify == %file_verify2) && (%read_text3 != $null) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)

  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%file_verify == %file_verify2) && (%read_text3 == $null) {

    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 2 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt
    inc %nicknameID 1


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 2 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 2) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1


    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il2 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)


  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%read_text3 != $null)  {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 1) && (%read_text3 == $null)  {

    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    inc %nicknameID 1
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,2)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    inc %newsongsID 1
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini


    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID


    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%file_verify == %file_verify2) && (%read_text3 != $null) && ($nick == %IDexist) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)

  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%file_verify == %file_verify2) && (%read_text3 == $null) && ($nick == %IDexist) {

    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt
    inc %nicknameID 1


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1


    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID
    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)


  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%read_text3 != $null) && ($nick == %IDexist) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    writeini -n %file_search4 Names 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 4 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    writeini -n %file_search3 Songs 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 4 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini


    writeini -n %pointsfile $findIDID($nick) points %newPoints2
    write -il4 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID


    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 7500) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%read_text3 == $null) && ($nick == %IDexist) {


    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    writeini -n %file_search4 Names 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 4 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt
    inc %nicknameID 1


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    writeini -n %file_search3 Songs 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 4 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1


    writeini -n %pointsfile $findIDID($nick) points %newPoints2
    write -il4 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID


    msg $chan $nick %songID has been added to the instant queue! Also, due to you being a member of the Hall Of Awesome, you only have to wait an hour instead of two, and this will only cost you 7,500 bcoins :)

    TIMER [ $+ [ %songnick ] ] 1 3600 msg $chan $nick you may now add a song to the top of the list if you have 7,500 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%file_verify == %file_verify2)  && (%read_text3 != $null) {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini



    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)

  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%file_verify == %file_verify2)  && (%read_text3 == $null) {

    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 3 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt
    inc %nicknameID 1


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 3 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 3) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1


    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il3 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%read_text3 != $null)  {

    var %i 1
    while (%i <= $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {
      if ($read(C:\Users\Brad\Desktop\Songlist\Songs.txt,%i) == %songstring) { /write -dl $+ %i C:\Users\Brad\Desktop\Songlist\Songs.txt }
      inc %i
    }
    var %q 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%q) {
      if ($readini(%file_search3,Songs,%q) == %songstring2) {
        remini -n %file_search3 Songs %q
        remini -n %file_search4 Names %q
      }
      inc %q
    }
    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    writeini -n %file_search4 Names 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 4 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    writeini -n %file_search3 Songs 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 4 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini


    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il4 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID

    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  }
  elseif ($1 == %command) && ($timer(%songnick) == $null) && (%currentpoints >= 15000) && ($lines(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt) == 2) && (%read_text3 == $null)  {


    window -a @fixini
    var %fix 1
    loadbuf -rt @fixini %file_Search4
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
    remini %file_search4 Names
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,1),2,61)
    writeini -n %file_search4 Names 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,2),2,61)
    writeini -n %file_search4 Names 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
    writeini -n %file_search4 Names 4 %hoa
    while (%fix <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
      writeini -n %file_search4 names $calc(%fix + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fix),2,61)
      inc %fix
    }
    window -c @fixini
    .remove C:\Users\Brad\Desktop\Songlist\fix.txt
    inc %nicknameID 1


    write C:\Users\Brad\Desktop\Songlist\instantqueue2.txt %text %ident %songID
    window -a @fixini
    loadbuf -rt @fixini %file_Search3
    savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
    remini %file_search3 Songs
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 1 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,1),2,61)
    writeini -n %file_search3 Songs 2 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,2),2,61)
    writeini -n %file_search3 Songs 3 $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,3),2,61)
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
    writeini -n %file_search3 Songs 4 $read(C:\Users\Brad\Desktop\Songlist\instantqueue2.txt,n,3)
    var %fixini 1
    while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
      writeini -n %file_search3 Songs $calc(%fixini + 4) $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
      inc %fixini
    }
    .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
    window -c @fixini
    inc %newsongsID 1


    writeini -n %pointsfile $findIDID($nick) points %newPoints
    write -il4 C:\Users\Brad\Desktop\Songlist\songs.txt %text %ident %songID %artistID


    msg $chan $nick %songID has been added to the top of the list and will be played next! 15,000 bcoins have been deducted. Keep earning more!

    TIMER [ $+ [ %songnick ] ] 1 7200 msg $chan $nick you may now add a song to the top of the list if you have 15,000 bcoins! :)
  }
  elseif ($1 == %command) && (%currentpoints < 7500) && ($nick == %IDexist) {
    msg $chan You don't have enough bcoins to add a song to the instant songlist! Since you're a member of the Hall of Awesome, you only need to have 7,500 bcoins. You currently need %pointsneeded2 bcoins.
  }
  elseif ($1 == %command) && (%currentpoints < 15000) {
    msg $chan You don't have enough bcoins to add a song to the instant songlist! You currently need %pointsneeded bcoins.
  }
  elseif ($1 != %command) {
    msg $chan That isn't formatted correctly! Make sure to format the command as !is [x] where [x] is the number of the song you want played.
  }
  else {
    msg $chan you must wait $timer(%songnick).secs seconds before adding another song to the top of the list!
  }
}


// ------------------------------------------------------------------------------------------------------------------------
alias -l findID {
  var %file = $1
  var %ID = $2
  var %user = $3
  var %i = 1
  while (%i <= %ID) {
    if ($readini(%file, %i, name) == %user) {
      return %i
    }
    inc %i
  }
  return 0
}


alias -l findIDID {
  var %searchName = $1
  var %i = 1

  while (%i <= %pointsID) {
    var %name = $readini(%pointsfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findmename3 {
  var %searchName = %findmename2
  var %i = 1

  while (%i <= %pointsID) {
    var %name = $readini(%pointsfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findmename4 {
  var %searchName = %findmename2
  var %i = 1

  while (%i <= %pointsID2) {
    var %name = $readini(%pointsfile2, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findIDIDID {
  var %searchName = $nick
  var %i = 1

  while (%i <= %HallofawesomeID) {
    var %name = $readini(%Hallofawesome, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findIDIDIDID {
  var %file = $1
  var %ID = $2
  var %user = $3
  var %i = 1
  while (%i <= %ID) {
    if ($readini(%file, %i, name) == %user) {
      return %i
    }
    inc %i
  }
  return 0
}
alias -l findIDIDIDIDID {
  var %searchName = $1
  var %i = 1

  while (%i <= %pointsID2) {
    var %name = $readini(%pointsfile2, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID) {
    var %name = $readini(%megacoins, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID) {
    var %name = $readini(%megacoins, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins2 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID2) {
    var %name = $readini(%megacoins2, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins3 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID3) {
    var %name = $readini(%megacoins3, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins4 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID4) {
    var %name = $readini(%megacoins4, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins5 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID5) {
    var %name = $readini(%megacoins5, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins6 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID6) {
    var %name = $readini(%megacoins6, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findallmega {
  var %searchName = $nick
  var %i = 1

  while (%i <= %allmegaID) {
    var %name = $readini(%allmega, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findmename2 {
  var %searchName = %findmename2
  var %i = 1

  while (%i <= %pointsID) {
    var %name = $readini(%pointsfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findsub {
  var %searchName = $nick
  var %i = 1

  while (%i <= %subID) {
    var %name = $readini(%subfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
______________________________________________________________
on *:LOAD:{
  SET %Winners 0
  SET %Sjackpot 200
  SET %Mjackpot 400
  SET %Ljackpot 600
  SET %MjAckpot 800
  SET %Ujackpot 1000
  SET %jackpot 10000
  SET %symbol.0  4Head 
  SET %symbol.1  EleGiggle 
  SET %symbol.2  PogChamp 
  SET %symbol.3  OSsloth 
  SET %symbol.4  deIlluminati 
  SET %symbol.5  Kappa 
  SET %symbol.8  Apple 
}

ON *:UNLOAD:{
  UNSET %jackpot
  UNSET %symbol.*
}

on *:TEXT:!slots:#: {
  var %slotsnick $nick
  var %points = $readini(%pointsfile, $findIDID(%slotsnick), points)
  var %ID = $readini(%pointsfile2, $findIDID(%slotsnick), name)
  var %IDexist = $readini(%slotsrecord, $slotsrecord(%slotsnick), name)

  IF (%ID == $null) {
    msg $chan $nick You haven't started earning bcoins in this channel yet! Type in !join to start earning them! :)

  }
  ELSEIF (%points >= 100) && ($nick != %IDexist) {
    writeini -n %slotsrecord $calc(%slotsID + 1) name $nick
    writeini -n %slotsrecord $calc(%slotsID + 1) wins 0
    writeini -n %slotsrecord $calc(%slotsID + 1) bcoinswon 0
    inc %slotsID

    slotsetup
  }
  ELSEIF (%points >= 100) && ($nick == %IDexist) {

    slotsetup
  }
  ELSE {
    msg $chan You don't have enough bcoins to play!
  }
}
alias slotsetup {
  SET %chanslot $chan
  SET %nickslot $nick
  var %songnick $+(15436, $nick)
  IF ($timer(%songnick) == $null) {
    TIMER [ $+ [ %songnick ] ] 1 180 msg $chan $nick you may use the slots again!
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    INC %Sjackpot 200
    INC %Mjackpot 200
    INC %Ljackpot 200
    INC %Xjackpot 200
    INC %Ujackpot 200
    INC %Tjackpot 200
    INC %jackpot 700
    var %pointstoplay = 100
    var %bcoinsused = $calc(%currentPoints - %pointstoplay)

    writeini -n %pointsfile $findIDID(%nickslot) points %bcoinsused

    playslot
  }
  ELSE {
    msg $chan %nickslot You have to wait $timer(%songnick).secs seconds before playing again.

  }
}

alias playslot {
  SET %col.0 %symbol. [ $+ [ $rand(0,5) ] ]
  SET %col.1 %symbol. [ $+ [ $rand(0,5) ] ]
  SET %col.2 %symbol. [ $+ [ $rand(0,5) ] ]
  SET %col.3 %symbol. [ $+ [ $rand(5,9) ] ]
  var %ID = $findcoins(%megacoinstest, %megaID, $1)
  var %ID2 = $findcoins2(%megacoinstest, %megaID2, $1)
  var %ID3 = $findcoins3(%megacoinstest, %megaID3, $1)
  var %ID4 = $findcoins4(%megacoinstest, %megaID4, $1)
  var %ID5 = $findcoins5(%megacoinstest, %megaID5, $1)
  var %ID6 = $findcoins6(%megacoinstest, %megaID6, $1)
  if ((%col.0 != %symbol.0) && (%col.1 == %symbol.0) && (%col.2 == %symbol.0)) || ((%col.0 != %symbol.1) && (%col.1 == %symbol.1) && (%col.2 == %symbol.1)) || ((%col.0 != %symbol.2) && (%col.1 == %symbol.2) && (%col.2 == %symbol.2)) || ((%col.0 != %symbol.3) && (%col.1 == %symbol.3) && (%col.2 == %symbol.3)) || ((%col.0 != %symbol.4) && (%col.1 == %symbol.4) && (%col.2 == %symbol.4)) || ((%col.0 != %symbol.5) && (%col.1 == %symbol.5) && (%col.2 == %symbol.5)) || ((%col.0 == %symbol.0) && (%col.1 == %symbol.0) && (%col.2 != %symbol.0)) || ((%col.0 == %symbol.1) && (%col.1 == %symbol.1) && (%col.2 != %symbol.1)) || ((%col.0 == %symbol.2) && (%col.1 == %symbol.2) && (%col.2 != %symbol.2)) || ((%col.0 == %symbol.3) && (%col.1 == %symbol.3) && (%col.2 != %symbol.3)) || ((%col.0 == %symbol.4) && (%col.1 == %symbol.4) && (%col.2 != %symbol.4)) || ((%col.0 == %symbol.5) && (%col.1 == %symbol.5) && (%col.2 != %symbol.5)) || ((%col.0 == %symbol.0) && (%col.1 != %symbol.0) && (%col.2 == %symbol.0)) || ((%col.0 == %symbol.1) && (%col.1 != %symbol.1) && (%col.2 == %symbol.1)) || ((%col.0 == %symbol.2) && (%col.1 != %symbol.2) && (%col.2 == %symbol.2)) || ((%col.0 == %symbol.3) && (%col.1 != %symbol.3) && (%col.2 == %symbol.3)) || ((%col.0 == %symbol.4) && (%col.1 != %symbol.4) && (%col.2 == %symbol.4)) || ((%col.0 == %symbol.5) && (%col.1 != %symbol.5) && (%col.2 == %symbol.5)) {
    SET %winlineslot %nickslot just won 2000 bcoins!
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + 500)
    var %jackpotwon2 = $calc(%currentPoints2 + 500)
    var %jackpotstats = $calc(%bcoinswon + 500)
    var %currentWins2 = $calc(%currentWins + 1)

    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats
  }
  ElseiF (%col.0 == %symbol.0) && (%col.1 == %symbol.0) && (%col.2 == %symbol.0) && (%col.3 == %symbol.8) && (%ID == 0) {
    SET %winlineslot %nickslot just won %Sjackpot bcoins and the mega coin ( 4Head ) ! Check your mega coins by typing in !mega :D
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Sjackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Sjackpot)
    var %jackpotstats = $calc(%bcoinswon + %Sjackpot)
    var %currentWins2 = $calc(%currentWins + 1)
    $addmega($nick)
    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats
    SET %Sjackpot 200
  }
  elseif (%col.0 == %symbol.0) && (%col.1 == %symbol.0) && (%col.2 == %symbol.0) {
    SET %winlineslot %nickslot just won %Sjackpot bcoins!
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Sjackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Sjackpot)
    var %jackpotstats = $calc(%bcoinswon + %Sjackpot)
    var %currentWins2 = $calc(%currentWins + 1)

    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats
    SET %Sjackpot 200
  }
  elseIF (%col.0 == %symbol.1) && (%col.1 == %symbol.1) && (%col.2 == %symbol.1) && (%col.3 == %symbol.8) && (%ID2 == 0) {
    SET %winlineslot %nickslot just won %Mjackpot bcoins and the mega coin ( EleGiggle ) ! Check your mega coins by typing in !mega :D
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Mjackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Mjackpot)
    var %jackpotstats = $calc(%bcoinswon + %Mjackpot)
    var %currentWins2 = $calc(%currentWins + 1)
    $addmega2($nick)
    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats
    SET %Mjackpot 400
  }
  elseIF (%col.0 == %symbol.1) && (%col.1 == %symbol.1) && (%col.2 == %symbol.1) {
    SET %winlineslot %nickslot just won %Mjackpot bcoins!
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Mjackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Mjackpot)
    var %jackpotstats = $calc(%bcoinswon + %Mjackpot)
    var %currentWins2 = $calc(%currentWins + 1)

    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats
    SET %Mjackpot 400
  }
  elseIF (%col.0 == %symbol.2) && (%col.1 == %symbol.2) && (%col.2 == %symbol.2) && (%col.3 == %symbol.8) && (%ID3 == 0) {
    SET %winlineslot %nickslot just won %Ljackpot bcoins and the mega coin ( PogChamp ) ! Check your mega coins by typing in !mega :D
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Ljackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Ljackpot)
    var %jackpotstats = $calc(%bcoinswon + %Ljackpot)
    var %currentWins2 = $calc(%currentWins + 1)
    $addmega3($nick)
    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats
    SET %Ljackpot 600
  }
  elseIF (%col.0 == %symbol.2) && (%col.1 == %symbol.2) && (%col.2 == %symbol.2) {
    SET %winlineslot %nickslot just won %Ljackpot bcoins!
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Ljackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Ljackpot)
    var %jackpotstats = $calc(%bcoinswon + %Ljackpot)
    var %currentWins2 = $calc(%currentWins + 1)

    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats

    SET %Ljackpot 600
  }
  elseIF (%col.0 == %symbol.3) && (%col.1 == %symbol.3) && (%col.2 == %symbol.3) && (%col.3 == %symbol.8) && (%ID4 == 0) {
    SET %winlineslot %nickslot just won %Xjackpot bcoins and the mega coin ( OSsloth ) ! Check your mega coins by typing in !mega :D
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Xjackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Xjackpot)
    var %jackpotstats = $calc(%bcoinswon + %Xjackpot)
    var %currentWins2 = $calc(%currentWins + 1)
    $addmega4($nick)
    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats
    SET %Xjackpot 800
  }
  elseIF (%col.0 == %symbol.3) && (%col.1 == %symbol.3) && (%col.2 == %symbol.3) {
    SET %winlineslot %nickslot just won %Xjackpot bcoins!
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Xjackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Xjackpot)
    var %jackpotstats = $calc(%bcoinswon + %Xjackpot)
    var %currentWins2 = $calc(%currentWins + 1)

    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats

    SET %Xjackpot 800
  }
  elseIF (%col.0 == %symbol.4) && (%col.1 == %symbol.4) && (%col.2 == %symbol.4) && (%col.3 == %symbol.8) && (%ID5 == 0) {
    SET %winlineslot HOLY! %nickslot just won %jackpot bcoins!! PogChamp %nickslot has also earned the ( deIlluminati ) mega coin! Check your mega coins by typing in !mega :D!
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %jackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %jackpot)
    var %jackpotstats = $calc(%bcoinswon + %jackpot)
    var %currentWins2 = $calc(%currentWins + 1)
    $addmega5($nick)
    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats
    SET %jackpot 15000
  }
  elseIF (%col.0 == %symbol.4) && (%col.1 == %symbol.4) && (%col.2 == %symbol.4) {
    SET %winlineslot %nickslot just won %Tjackpot bcoins!
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Tjackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Tjackpot)
    var %jackpotstats = $calc(%bcoinswon + %Tjackpot)
    var %currentWins2 = $calc(%currentWins + 1)

    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats

    SET %Tjackpot 1200
  }
  elseIF (%col.0 == %symbol.5) && (%col.1 == %symbol.5) && (%col.2 == %symbol.5) && (%col.3 == %symbol.8) && (%ID6 == 0) {
    SET %winlineslot %nickslot just won %Ujackpot bcoins and the mega coin ( Kappa ) ! Check your mega coins by typing in !mega :D
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Ujackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Ujackpot)
    var %jackpotstats = $calc(%bcoinswon + %Ujackpot)
    var %currentWins2 = $calc(%currentWins + 1)
    $addmega6($nick)
    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats

    SET %Ujackpot 1000
  }
  elseIF (%col.0 == %symbol.5) && (%col.1 == %symbol.5) && (%col.2 == %symbol.5) {
    SET %winlineslot %nickslot just won %Ujackpot bcoins!
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%nickslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%nickslot), points)
    var %currentWins = $readini(%slotsrecord, $slotsrecord(%nickslot), wins)
    var %bcoinswon = $readini(%slotsrecord, $slotsrecord(%nickslot), bcoinswon)
    var %jackpotwon = $calc(%currentPoints + %Ujackpot)
    var %jackpotwon2 = $calc(%currentPoints2 + %Ujackpot)
    var %jackpotstats = $calc(%bcoinswon + %Ujackpot)
    var %currentWins2 = $calc(%currentWins + 1)

    writeini -n %pointsfile $findIDID(%nickslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%nickslot) points %jackpotwon2
    writeini -n %slotsrecord $slotsrecord(%nickslot) wins %currentWins2
    writeini -n %slotsrecord $slotsrecord(%nickslot) bcoinswon %jackpotstats

    SET %Ujackpot 1000
  }


  MSG %chanslot 100 bcoins have been inserted into the machine! Good luck! :::  %col.0 %col.1 %col.2   :::  $iif(%winlineslot == $null, Unlucky %nickslot BibleThump ,%nickslot won!! Kreygasm)

  IF (%winlineslot != $null) MSG $chan %winlineslot
  UNSET %winlineslot
}
alias -l addmega {
  writeini -n %megacoinstest $calc(2 - 1) $calc(%megaID + 1) $1
  inc %megaID
}
alias -l addmega2 {
  writeini -n %megacoinstest $calc(3 - 1) $calc(%megaID2 + 1) $1
  inc %megaID2
}
alias -l addmega3 {
  writeini -n %megacoinstest $calc(4 - 1) $calc(%megaID3 + 1) $1
  inc %megaID3
}
alias -l addmega4 {
  writeini -n %megacoinstest $calc(5 - 1) $calc(%megaID4 + 1) $1
  inc %megaID4
}
alias -l addmega5 {
  writeini -n %megacoinstest $calc(6 - 1) $calc(%megaID5 + 1) $1
  inc %megaID5
}
alias -l addmega6 {
  writeini -n %megacoinstest $calc(7 - 1) $calc(%megaID6 + 1) $1
  inc %megaID6
}
on *:text:!items:#: {
  msg $chan The items and their values: 4Head = 200, Shazam = 400, PogChamp = 600, GasJoker = 800, Kappa = 1000, deIlluminati = 1200, and SEVEN + Secret = jackpot (NOTE: jackpots for each will increase if no one wins!)
}
on *:text:!jackpot:#: {
  msg $chan Current secret jackpot is %jackpot , 3 4Head is %Sjackpot , 3 EleGiggle is %Mjackpot , 3 PogChamp is %Ljackpot , 3 OSsloth is %Xjackpot ,  3 Kappa is %Ujackpot , and 3 deIlluminati is %Tjackpot
}

alias -l findID {
  var %file = $1
  var %ID = $2
  var %user = $3
  var %i = 1
  while (%i <= %ID) {
    if ($readini(%file, %i, name) == %user) {
      return %i
    }
    inc %i
  }
  return 0
}
alias -l findIDID {
  var %searchName = $1
  var %i = 1

  while (%i <= %pointsID) {
    var %name = $readini(%pointsfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
; {}
alias -l findIDIDIDIDID {
  var %searchName = $nick
  var %i = 1

  while (%i <= %pointsID2) {
    var %name = $readini(%pointsfile2, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID) {
    var %name = $readini(%megacoinstest, $calc(2 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins2 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID2) {
    var %name = $readini(%megacoinstest, $calc(3 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins3 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID3) {
    var %name = $readini(%megacoinstest, $calc(4 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins4 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID4) {
    var %name = $readini(%megacoinstest, $calc(5 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins5 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID5) {
    var %name = $readini(%megacoinstest, $calc(6 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins6 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID6) {
    var %name = $readini(%megacoinstest, $calc(7 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l slotsrecord {
  var %searchName = $nick
  var %i = 1
  while (%i <= %slotsID) {
    var %name = $readini(%slotsrecord, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }
  return 0
}
______________________________________
on *:Text:!suggest*:#: {
  var %IDexist = $readini(%suggest, $findsuggest($nick), name)
  var %command = !suggest
  if ($1 != %command) {
    msg $chan That isn't formatted correctly! Make sure to format the command as !bug [x] where [x] is the issue/bug you spot with the bot.
  }
  elseif ($nick != %IDexist) {
    filter -ff C:\Users\Brad\Desktop\Songlist\suggest.txt NULL $nick
    msg $chan You are not allowed to make suggestions yet! You still need to type in !join (which you can do once per hour) $calc(60 - $filtered) times before you can make a suggestion!
  }
  else {
    write C:\Users\Brad\Desktop\Songlist\suggestions.txt $nick %text - $2-
    msg $chan Your suggestion has been noted! Thank you :)
  }

}


alias -l findsuggest {
  var %searchName = $nick
  var %i = 1

  while (%i <= %suggestID) {
    var %name = $readini(%suggest, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
________________________________________________
on *:TEXT:!top10:#: {
  run_top10 #
}
alias run_top10 {
  window -h @. | var %i 1
  while $ini(C:\Users\Brad\Desktop\Songlist\points2.ini,%i) {
    var %n $v1
    aline @. $gettok($remove(%n,[,]),2,46) $readini(C:\Users\Brad\Desktop\Songlist\points2.ini,%n,points) $readini(C:\Users\Brad\Desktop\Songlist\points2.ini,%n,name)
    inc %i
  }
  filter -cetuww 1 32 @. @.
  var %i 1
  var %q 1
  while %i <= 10 {
    var %list $addtok(%list,$line(@.,%i),44)
    var %newini = C:\Users\Brad\Desktop\Songlist\Temp.ini
    inc %i
    savebuf @. C:\Users\Brad\Desktop\Songlist\temp.txt
    writeini -n %newini Top %q $+($chr(40),%q,$chr(41)) - $read(C:\Users\Brad\Desktop\Songlist\temp.txt,n,%q)
    inc %q

  }
  .remove C:\Users\Brad\Desktop\Songlist\temp.txt
  window -c @.
  window -h @. | var %r 1
  while $ini(C:\Users\Brad\Desktop\Songlist\Temp.ini,Top,%r) {
    var %n $v1
    aline @. $gettok($remove(%n,[,]),2,46) $readini(C:\Users\Brad\Desktop\Songlist\Temp.ini,Top,%r)
    inc %r
  }
  var %k 1 | while %k <= 10 {
    var %list2 $addtok(%list2,$line(@.,%k),44)
    inc %k
  }
  window -c @.
  msg $chan Top 10 bcoins earners are: $replace(%list2,$chr(44),$+($chr(44),$chr(32)))
  remini -n %newini Top
}
________________________________________________________________
on 3:text:!ticket*:#: {
  var %raffle $+(99, $nick)
  var %suggest $+(109, $nick)
  var %currentPoints = $readini(%pointsfile, $findIDIDID($nick), points)
  var %findname = $readini(%pointsfile, $findIDIDID($nick), name)
  var %file_search C:\Users\Brad\Desktop\Songlist\Raffle.txt
  var %raffleentry = $nick
  var %Read_text (%file_search,r,%raffleentry)
  var %bcoinsused2 = $calc($2 * 5000)
  var %bcoinsused = $calc(%currentpoints - ($2 * 5000))
  var %ticketsentered = $2
  var %bcoinsneeded = $calc(%bcoinsused2 - %currentpoints)
  filter -ff C:\Users\Brad\Desktop\Songlist\raffle.txt NULL $nick
  if ($2 isnum) {
    if (. isin $2) {

      msg $chan No decimals allowed!
    }
    elseif (%findname == $null) {
      msg $chan $nick you have not earned any bcoins to enter the raffle! Type !join to gain 5,001 bcoins, and type "!ticket 1" to get an entry in! :)

    }
    elseif ($2 == $null) {

      msg $chan specify the amount of tickets you'd like to enter! make sure to format is as !ticket [x] where [x] is the amount of tickets you want entered! 5,000 bcoins is equal to 1 ticket :)
    }
    elseif (%currentPoints < %bcoinsused2) {

      msg $chan You do not have enough bcoins for that many tickets! You need %bcoinsneeded more bcoins for that many tickets!


    }
    elseif ($2 > 200) {
      msg $chan you can only enter at most 200 tickets!
    }
    elseif ($filtered <= 200) && ($2 > $calc(200 - $filtered)) {
      msg $chan you can only have 200 ticket entries total!
    }
    elseif ($filtered > 200) {
      msg $chan You can only have 200 tickets entered!
    }
    elseif (%currentpoints >= 5000) && ($timer(%raffle) == $null) {
      var %i = 5000
      while (%i <= %bcoinsused2) {
        write C:\Users\Brad\Desktop\Songlist\Raffle.txt %raffleentry
        inc %i 5000
      }
      writeini -n %pointsfile $findIDIDID($nick) points %bcoinsused
      msg $chan $nick %bcoinsused2 bcoins have been deducted and %ticketsentered tickets have been added!
      TIMER [ $+ [ %raffle ] ] 1 3600 msg $chan $nick You may now add another entry!


    }
    else {
      msg $chan Please wait $timer(%raffle).secs seconds before adding another entry :)
    }
  }
  else {
    msg $chan STOP BREAKING MY BOT
  }
}




On *:TEXT:!mytickets:#: {

  filter -ff C:\Users\Brad\Desktop\Songlist\Raffle.txt NULL $nick
  msg $chan $nick has $filtered ticket(s)!
}

on 3:text:!draw:#: {
  var %winner = $read(C:\Users\Brad\Desktop\Songlist\raffle.txt,n)
  msg $chan The winner of this drawing is %winner PogChamp ! Congratulations %winner :D
  write C:\Users\Brad\Desktop\Songlist\winner.txt %winner


}

on 2:text:!clrf:#: {
  write -c C:\Users\Brad\Desktop\Songlist\Raffle.txt
  msg $chan clearing raffle entries..
}



on *:text:!join:#: {
  var %songnick $+(4, $nick)
  IF ($timer(%songnick) == $null) {


    write C:\Users\Brad\Desktop\Songlist\suggest.txt $nick
  }
}

On *:TEXT:!myjoins:#: {
  var %IDexist = $readini(%suggest, $findsuggest($nick), name)
  filter -ff C:\Users\Brad\Desktop\Songlist\suggest.txt NULL $nick

  if ($filtered <= 59) {
    msg $chan $nick has typed !join $filtered time(s)! They are $calc(60 - $filtered) away from making suggestions in Bradmasta's Channel!
  }
  elseif ($filtered >= 60) && ($nick != %IDexist) {
    writeini -n %suggest $calc(%suggestID + 1) name $nick
    msg $chan $nick has typed !join at least 60 times! Since $nick has done so at least 60 times, they are now able to make suggestions for Bradmasta's channel!
    inc %suggestID 1
  }
  elseif ($filtered >= 60) {
    msg $chan $nick has typed in !join $filtered times and can make suggestions in Bradmasta's Channel!
  }


}
// ------------------------------------------------------------------------------------------------
alias -l findIDIDID {
  var %searchName = $1
  var %i = 1

  while (%i <= %pointsID) {
    var %name = $readini(%pointsfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findsuggest {
  var %searchName = $nick
  var %i = 1

  while (%i <= %suggestID) {
    var %name = $readini(%suggest, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
________________________________________________________________________________
on *:LOAD:{
  SET %symbol.10  NinjaTroll 
  SET %symbol.11  MrDestructoid 
  SET %symbol.12  BabyRage 
  SET %symbol.13  OSsloth 
  SET %symbol.14  KappaRoss 
  SET %symbol.15  KappaPride 
  SET %symbol.16  PraiseIt 
  SET %symbol.8  Apple 
}

on *:text:!thc:#: {

  var %flowersnick $nick
  var %points = $readini(%pointsfile, $findIDID(%flowersnick), points)
  var %ID = $readini(%pointsfile2, $findIDID(%flowersnick), name)

  IF (%ID == $null) {
    msg $chan $nick Twitch Hot Cold is getting removed soon. Be on the lookout for a really cool game :)

  }
  ELSEIF (%points >= 5000) {

    msg $chan Twitch Hot Cold is getting removed soon. Be on the lookout for a really cool game :)
  }
  ELSE {
    msg $chan You don't have enough bcoins to play! You need $calc(20000 - %points) more bcoins to play!
  }
}

alias -l flowersetup {
  SET %flowerslot $nick
  SET %chanslots $chan
  var %flowernick $+(12345, $nick)
  IF ($timer(%flowernick) == $null) {
    TIMER [ $+ [ %flowernick ] ] 1 86400 msg $chan %flowerslot You may now play Twitch Hot Cold again! :)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %pointstoplay = 5000
    var %bcoinsused = $calc(%currentPoints - %pointstoplay)

    writeini -n %pointsfile $findIDID(%flowerslot) points %bcoinsused

    playpoker
  }
  ELSE {
    msg $chan $nick You can only play Twitch Hot Cold once per stream.

  }
}
alias -l playpoker {
  SET %col.8 %symbol. [ $+ [ $rand(10,16) ] ]
  SET %col.9 %symbol. [ $+ [ $rand(0,16) ] ]
  SET %col.10 %symbol. [ $+ [ $rand(7,11) ] ]
  var %ID = $findcoins(%megacoinstest, %megaID, $1)
  var %ID2 = $findcoins2(%megacoinstest, %megaID2, $1)
  var %ID3 = $findcoins3(%megacoinstest, %megaID3, $1)
  var %ID4 = $findcoins4(%megacoinstest, %megaID4, $1)
  var %ID5 = $findcoins5(%megacoinstest, %megaID5, $1)
  var %ID6 = $findcoins6(%megacoinstest, %megaID6, $1)


  if (%col.8 == %symbol.10) || (%col.8 == %symbol.11) || (%col.8 == %symbol.12) {
    msg $chan %col.8 was chosen, %flowerslot unlucky BibleThump D:
  }
  elseif (%col.8 == %symbol.13) {
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 5000)


    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    msg $chan %symbol.13 has been chosen! %flowerslot gets their money back Kappa

  }
  elseif (%col.8 == %symbol.14) {
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 10000)
    var %jackpotwon2 = $calc(%currentPoints2 + 10000)

    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
    msg $chan %symbol.14 has been chosen! %flowerslot wins 10,000 bcoins! PogChamp

  }
  elseif (%col.8 == %symbol.15) {
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 20000)
    var %jackpotwon2 = $calc(%currentPoints2 + 20000)

    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
    msg $chan %symbol.15 has been chosen! %flowerslot wins 20,000 bcoins!! PogChamp Kreygasm

  }
  elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%col.10 == %symbol.10) {
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 1000000)
    var %jackpotwon2 = $calc(%currentPoints2 + 1000000)

    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
    msg $chan %symbol.16 has been chosen! %flowerslot also wins the secret jackpot of 1,000,000 bcoins!
  }
  elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID == 0) {
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 30000)
    var %jackpotwon2 = $calc(%currentPoints2 + 30000)
    $addmega($nick)
    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
    msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin ( 4Head ) ! PogChamp :D
  }
  elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID2 == 0) {
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 30000)
    var %jackpotwon2 = $calc(%currentPoints2 + 30000)
    $addmega2($nick)
    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
    msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin ( ShibeZ ) ! PogChamp :D

  }
  elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID3 == 0) {
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 30000)
    var %jackpotwon2 = $calc(%currentPoints2 + 30000)
    $addmega3($nick)
    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
    msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin ( PogChamp ) ! PogChamp :D
  }
  elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID4 == 0) {
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 30000)
    var %jackpotwon2 = $calc(%currentPoints2 + 30000)
    $addmega4($nick)
    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
    msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin ( OSsloth ) ! PogChamp :D
  }
  elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID5 == 0) {
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 30000)
    var %jackpotwon2 = $calc(%currentPoints2 + 30000)
    $addmega5($nick)
    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
    msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin ( deIlluminati ) ! PogChamp :D
  }
  elseif (%col.8 == %symbol.16) && (%col.9 == %symbol.8) && (%ID6 == 0) {
    var %currentPoints2 = $readini(%pointsfile2, $findIDIDIDIDID(%flowerslot), points)
    var %currentPoints = $readini(%pointsfile, $findIDID(%flowerslot), points)
    var %jackpotwon = $calc(%currentPoints + 30000)
    var %jackpotwon2 = $calc(%currentPoints2 + 30000)
    $addmega6($nick)
    writeini -n %pointsfile $findIDID(%flowerslot) points %jackpotwon
    writeini -n %pointsfile2 $findIDIDIDIDID(%flowerslot) points %jackpotwon2
    msg $chan %symbol.16 has been chosen! %flowerslot wins 30,000 bcoins and the Megacoin ( Kappa ) ! PogChamp :D
  }


}



___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________



on 3:text:!quest:#: {
  SET %questpot 0
  if ($timer(.questtimer) == $null) {
    msg $chan $nick has started a Quest! Gather your gear, prepare your team, and join in! Type in "!qj [x]" with [x] being how much you'd like to contribute toward the quest. The more people joining, the more likely everyone will get some good loot! (see full rules here: )
    timer.questtimer 1 3600 msg $chan Another quest may be started! Type in !quest to do so!
    startquest
  }
  else {

    msg $chan A quest has already been started!
  }
}

on 3:text:!qj*:#: {
  var %questnick $nick
  var %points = $readini(%pointsfile, $findIDID(%questnick), points)
  var %pointstoplay = $2
  var %ID = $readini(%pointsfile2, $findIDID(%questnick), name)
  var %peoplein = $lines(C:\Users\Brad\Desktop\Songlist\Quest.txt)
  var %file_search = C:\Users\Brad\Desktop\Songlist\Quest.txt
  var %found = $read(%file_search,r,%questnick)
  var %bcoinsused = $calc(%points - %pointstoplay)


  if (%ID == $null) {

    msg $chan you can't join this quest because you haven't earned any bcoins! Please type !join, then you may join the quest by typing in !qj [x] where [x] is the bcoins you are contributing.

  }
  elseif (%found != $null) {

    msg $chan you're already in the quest!

  }
  elseif ($2- !isnum) {

    msg $chan Please use a number!

  }
  elseif (. isin $2) {

    msg $chan No decimals!

  }

  elseif ($2 <= 0) {

    msg $chan please type in an amount that's more than 0!

  }
  elseif ($2 >= 1001) {

    msg $chan A max of 1000 bcoins can be contributed per quest!

  }
  elseif (%ID != $null) && (%points < 1) {

    msg $chan You don't have enough bcoins to join the quest! You need at least 1!

  }

  elseif (%ID != $null) && (%points >= 1) && ($lines(C:\Users\Brad\Desktop\Songlist\Quest.txt) == 0) {

    writeini -n %pointsfile $findIDID(%questnick) points %bcoinsused
    write C:\Users\Brad\Desktop\Songlist\Quest.txt $nick
    inc %questpot $2

    msg $chan $nick has joined the quest! There is 1 person participating in the quest! Good luck!

  }
  elseif (%ID != $null) && (%points >= 1) && ($lines(C:\Users\Brad\Desktop\Songlist\Quest.txt) >= 1) {

    write C:\Users\Brad\Desktop\Songlist\Quest.txt $nick
    writeini -n %pointsfile $findIDID(%questnick) points %bcoinsused
    inc %questpot $2

    msg $chan $nick has joined the quest! There are $calc(%peoplein + 1) people participating in the quest! Good luck!

  }






}

on 3:text:!qc:#: {

  if ($timer(.questtimer) != $null) {

    msg $chan There has been %questpot bcoin(s) contributed to the current quest!

  }
  else {

    msg $chan There is currently no quest active at the moment!

  }
}





alias -l startquest {

  timer.currentquestline 1 1 msg $chan Your quest is over! Here are the results:






}


___________________________________________________________________________________________________________________________________________

alias -l addmega {
  writeini -n %megacoinstest $calc(2 - 1) $calc(%megaID + 1) $1
  inc %megaID
}
alias -l addmega2 {
  writeini -n %megacoinstest $calc(3 - 1) $calc(%megaID2 + 1) $1
  inc %megaID2
}
alias -l addmega3 {
  writeini -n %megacoinstest $calc(4 - 1) $calc(%megaID3 + 1) $1
  inc %megaID3
}
alias -l addmega4 {
  writeini -n %megacoinstest $calc(5 - 1) $calc(%megaID4 + 1) $1
  inc %megaID4
}
alias -l addmega5 {
  writeini -n %megacoinstest $calc(6 - 1) $calc(%megaID5 + 1) $1
  inc %megaID5
}
alias -l addmega6 {
  writeini -n %megacoinstest $calc(7 - 1) $calc(%megaID6 + 1) $1
  inc %megaID6
}

alias -l findID {
  var %file = $1
  var %ID = $2
  var %user = $3
  var %i = 1
  while (%i <= %ID) {
    if ($readini(%file, %i, name) == %user) {
      return %i
    }
    inc %i
  }
  return 0
}
alias -l findIDID {
  var %searchName = $1
  var %i = 1

  while (%i <= %pointsID) {
    var %name = $readini(%pointsfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}

alias -l findIDIDIDIDID {
  var %searchName = $nick
  var %i = 1

  while (%i <= %pointsID2) {
    var %name = $readini(%pointsfile2, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID) {
    var %name = $readini(%megacoinstest, $calc(2 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins2 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID2) {
    var %name = $readini(%megacoinstest, $calc(3 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins3 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID3) {
    var %name = $readini(%megacoinstest, $calc(4 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins4 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID4) {
    var %name = $readini(%megacoinstest, $calc(5 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins5 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID5) {
    var %name = $readini(%megacoinstest, $calc(6 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
alias -l findcoins6 {
  var %searchName = $nick
  var %i = 1

  while (%i <= %megaID6) {
    var %name = $readini(%megacoinstest, $calc(7 - 1), %i)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
____________________________________________________________________
on *:text:!stats:#: {

  var %nickname $nick
  var %file_search = C:\Users\Brad\Desktop\Songlist\Dice_record.ini
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Slots_record.ini
  var %dicefound = $readini(%dicerecord, $dicerecord(%nickname), name)
  var %dicewins = $readini(%dicerecord, $dicerecord(%nickname), wins)
  var %dicelosses = $readini(%dicerecord, $dicerecord(%nickname), losses)
  var %diceties = $readini(%dicerecord, $dicerecord(%nickname), ties)
  var %slotsfound = $readini(%slotsrecord, $slotsrecord(%nickname), name)
  var %slotswins = $readini(%slotsrecord, $slotsrecord(%nickname), wins)
  var %slotsbcoins = $readini(%slotsrecord, $slotsrecord(%nickname), bcoinswon)

  if (%dicefound == $null) && (%slotsfound != $null) {

    msg $chan $nick has won the slots %slotswins times and won a total of %slotsbcoins bcoins! (Stats accurate as of October 17th, 2016)

  }
  elseif (%dicefound != $null) && (%slotsfound == $null) {

    msg $chan %dicefound has a record of %dicewins - %dicelosses - %diceties in dice dueling! (Stats accurate as of October 17th, 2016)

  }
  elseif (%dicefound != $null) && (%slotsfound != $null) {

    msg $chan %dicefound has a record of %dicewins - %dicelosses - %diceties in dice dueling and has won the slots %slotswins times and won a total of %slotsbcoins bcoins! (Stats accurate as of October 17th, 2016)

  }
  else {

    msg $chan You haven't played the slots or competed in a dice duel yet!

  }

}
alias -l dicerecord {
  var %searchName = $nick
  var %i = 1
  while (%i <= %diceID) {
    var %name = $readini(%dicerecord, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }
  return 0
}


alias -l slotsrecord {
  var %searchName = $nick
  var %i = 1
  while (%i <= %slotsID) {
    var %name = $readini(%slotsrecord, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }
  return 0
}
________________________________________________________________________

on 3:text:!startcheck:#: {
  window -h @.
  set %checknum 1
  timerverify

  msg $chan check started.
}

on 3:text:!stopcheck:#: {

  timer.check off
  timer.verifycheck off
  msg $chan timer stopped.
}


alias -l timerverify {

  timer.verifycheck 0 1 verify




}

alias -l verify {

  var %verifyname = $read(%V1, n, 1)
  var %follower = $read(%V2, n, 1)
  var %findmename = $read(%V1, n, 1)
  var %findme = $readini(%tokensfile, $findtokens(%findmename), name)
  var %currenttokens = $readini(%tokensfile, $findtokens(%findmename), tokens)

  if (%checknum == 1) {
    set %checknum 0
    write -il1 C:\Users\Brad\Desktop\Songlist\writeto.txt %checknum
    echo -@. no change
  }
  elseif (%checknum == 0) {

    if (%verifyname != %follower) {

      if (%findme == $null) {
        writeini -n %tokensfile $calc(%tokensID + 1) name %verifyname
        writeini -n %pointsFile $calc(%tokensID + 1) tokens 1
        inc %tokensID
        write -d11 C:\Users\Brad\Desktop\Songlist\V2.txt
        write -il1 C:\Users\Brad\Desktop\Songlist\V2.txt %verifyname
        set %checknum 1
        echo -a change

      }
      else {

        writeini -n %tokensfile $calc(%tokensID + 1) name %verifyname
        writeini -n %pointsFile $calc(%tokensID + 1) tokens $calc(%currenttokens + 1)
        write -d11 C:\Users\Brad\Desktop\Songlist\V2.txt
        write -il1 C:\Users\Brad\Desktop\Songlist\V2.txt %verifyname
        set %checknum 1
        echo -a change
      }

    }
    else {
      set %checknum 1
      echo -@. no change
    }
  }
}

on 3:text:!22222songsoff:#: {


  timer.nosongs 1 84000 msg $chan song timer has ended.
  msg $chan Songs can no longer be added for the time being.
}

on 3:text:!22222222songson:#: {

  timer.nosongs off
  msg $chan Songs may now be added again!
}

on 3:text:!222222request*:#: {


  var %file_search3 = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  // var %currentTokens = Whatever file location and name you go with
  var %newTokens = $calc(%currentTokens - 1)
  var %nickname $nick
  var %command = !request
  var %songnick $+(20, $nick)
  if ($timer(.nosongs) != $null) {

    msg $chan Songs cannot be requested at this time!
  }
  elseif ($nick == ukogmonkey) && ($2 == timer) && ($timer(%songnick) == $null) {

    msg $chan There is no timer to turn off!
  }

  elseif ($nick == ukogmonkey) && ($2 == timer) && ($timer(%songnick) != $null) {

    TIMER [ $+ [ %songnick ] ] off

    msg $chan timer has been turned off

  }
  elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) < 10) && ($timer(%songnick) == $null) {


    write C:\Users\Brad\Desktop\Songlist\Songs.txt $2
    writeini -n %file_search3 Songs $calc(%newsongsID + 1) $2
    writeini -n %file_search4 Names $calc(%nicknameID + 1) %nickname

    writeini -n %tokensfile $findtokens($nick) tokens %newTokens
    inc %newsongsID 1
    inc %nicknameID 1
    msg $chan $nick $2 has been added to the list! Thank you! :) You now have %tokens Token(s) left!
    TIMER [ $+ [ %songnick ] ] 1 600 msg $chan $nick you may now add another song! :)

  }
  elseif ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 10) {
    msg $chan Only 10 songs can be added to the list at one time! Please wait until songs have been played, and the list is reduced, Thanks!

  }
  elseif ($1 != %command) {
    msg $chan That isn't the correct format! Make sure to type in the command in the correct format of !request [x] where [x] is the song you want!
  }
  else {
    msg $chan You must wait $timer(%songnick).secs seconds before you can add another song!
  }
}

on 3:text:!222222222remove*:#: {
  var %file_search3 = C:\Users\Brad\Desktop\Songlist\Songqueue.ini
  var %file_search4 = C:\Users\Brad\Desktop\Songlist\Requestorname.ini
  var %command = !remove




  if ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) = 0) {
    msg $chan There are no songs on the queue.


    elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) > 1) {


      window -a @fixini
      var %fixini 1
      remini -n %file_search4 names $2
      loadbuf -rt @fixini %file_Search4
      savebuf @fixini C:\Users\Brad\Desktop\Songlist\fix.txt
      remini %file_search4 Names
      write -dl1 C:\Users\Brad\Desktop\Songlist\fix.txt
      while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fix.txt)) {
        writeini -n %file_search4 names %fixini $gettok($read(C:\Users\Brad\Desktop\Songlist\fix.txt,n,%fixini),2,61)
        inc %fixini
      }
      window -c @fixini
      dec %nicknameID 1
      dec %newsongsID 1
      .remove C:\Users\Brad\Desktop\Songlist\fix.txt

      window -a @fixini
      var %fixini 1
      write -dl $+ $2 C:\Users\Brad\Desktop\Songlist\Songs.txt
      remini -n %file_search3 songs $2
      loadbuf -rt @fixini %file_Search3
      savebuf @fixini C:\Users\Brad\Desktop\Songlist\fixini.txt
      remini %file_search3 Songs
      write -dl1 C:\Users\Brad\Desktop\Songlist\fixini.txt
      while (%fixini <= $lines(C:\Users\Brad\Desktop\Songlist\fixini.txt)) {
        writeini -n %file_search3 Songs %fixini $gettok($read(C:\Users\Brad\Desktop\Songlist\fixini.txt,n,%fixini),2,61)
        inc %fixini
      }
      .remove C:\Users\Brad\Desktop\Songlist\fixini.txt
      window -c @fixini
      msg $chan removing the song off the queue. The current song is $read(C:\Users\Brad\Desktop\Songlist\songs.txt,n,1) requested by $readini(C:\Users\Brad\Desktop\Songlist\Requestorname.ini, Names, 1)
    }


    elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) == 1) {
      write -dl1 C:\Users\Brad\Desktop\Songlist\Songs.txt
      remini %file_search4 names 1
      remini %file_search3 Songs 1
      dec %newsongsID 1
      dec %nicknameID 1
      msg $chan removing the top song off the queue. There are no more songs on the queue!

    }

    elseif ($1 != %command) {
      msg $chan That isn't formatted correctly! Make sure to type in the command in the correct format of !remove [x] where [x] is the number.
    }
    else {
      msg $chan Something went wrong! Check the formatting and try again :)
    }
  }
}


on 3:text:!2222tokens:#: {

  var %currenttokens = $readini(%tokensfile, $findtokens(%findmename), tokens)

  if (%currenttokens > 1) {
    msg $chan $nick you currently have 0 tokens!

  }

  else {

    msg $chan $nick has %currenttokens token(s)!

  }

}
on 3:text:!givetokens*:#: {
  var %name = $2
  var %tokens = $3
  var %findme = $readini(%tokensfile, $findtokens(%findmename), name)
  var %currentTokens = $readini(%pointsfile, $findtokens(%name), tokens)
  var %newTokens = $calc(%currentTokens + %tokens)

  if (%findme == $null) {



    writeini -n %tokensfile $calc(%tokensID + 1) name $2
    writeini -n %pointsFile $calc(%tokensID + 1) tokens 1
    inc %tokensID
    msg $chan %tokens token(s) have been given to %name

  }
  else {

    writeini -n %tokensfile $findtokens(%name) tokens %newTokens

    msg $chan %tokens token(s) have been given to %name
  }
}


on 3:text:!222222queue:#: {


  if ($lines(C:\Users\Brad\Desktop\Songlist\songs.txt) == 0) {
    msg $chan There are no songs on the queue.

  }
  else {
    window -h @. | var %i 1
    while $ini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%i) {
      var %n $v1
      aline @. $gettok($remove(%n,[,]),2,46) $readini(C:\Users\Brad\Desktop\Songlist\Songqueue.ini,Songs,%i)
      inc %i
    }
    var %i 1 | while %i <= 10 {
      var %list $addtok(%list,$line(@.,%i),44)
      inc %i
    }
    msg $chan The queue contains the following requests: $replace(%list,$chr(44),$+($chr(44),$chr(32)))
    window -c @.
  }
}

on 3:text:!22222222change*:#: {

  var %command = !change
  var %file_search = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %file_search2 = C:\Users\Brad\Desktop\Songlist\Songqueue.ini



  if ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) == 0) {

    msg $chan There are no songs on the list to change!


  }
  elseif ($1 == %command) && ($2 > 10) {
    msg $chan There are only at most 10 songs to change! The format is "!change [x] [z]" Where [x] is the line being changed and [z] is the song you're changing to
  }


  elseif ($1 == %command) && ($2 > $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {

    msg $chan You can't change a song to a spot that currently isn't occupied!


  }


  elseif ($1 == %command) && ($lines(C:\Users\Brad\Desktop\Songlist\Songs.txt) >= 1) {
    msg $chan $readini(%file_search2, Songs, $2) was changed to $3 ! Thank you! :)
    writeini -n %file_search4 Songs $2 $3
    write -dl $+ $2 %file_search
    write -il $+ $2 %file_search $3


  }
}

on 3:text:!line*:#: {


  var %file_search = C:\Users\Brad\Desktop\Songlist\Songs.txt
  var %read_text2 = $read(%file_search)
  var %command = !line
  var %read_text = $read(%file_search, n, $2)

  if ($2 > $lines(C:\Users\Brad\Desktop\Songlist\Songs.txt)) {

    msg $chan This line isn't occupied right now!

  }
  elseif ($1 == %command) && (%read_text2) {
    msg $chan Line $2 contains %read_text
  }
  elseif ($1 != %command) {
    msg $chan That isn't the correct format! Make sure to type in the command in the correct format of !find [x] where [x] is the line you're searching for.
  }
  else {
    msg $chan test
  }
}



_________________________________________________________________________________________________________________________________________






alias -l findtokens {
  var %searchName = $readini(%tokensfile, %tokensID, name)
  var %i = 1

  while (%i <= %tokensID) {
    var %name = $readini(%tokensfile, %i, name)
    if (%name == %searchName) {
      return %i
    }
    inc %i
  }

  return 0
}
______________________________________________________________________________________________________________________________
alias JSONVersion {
  if ($isid) {
    return $iif($1 != short,JSONForMirc v,v) $+ 0.2.4
  }
}
alias JSONError {
  if ($isid) {
    return %JSONError
  }
}
alias -l COMOpenTry {
  if (!$len($com($1))) {
    if ($len($~adiircexe) && $appbits == 64) {
      .comopen $1 ScriptControl
    }
    else {
      .comopen $1 MSScriptControl.ScriptControl
    }
    if ($com($1) && !$comerr) {
      return $true
    }
  }
}
alias JSONOpen {
  if ($isid) return
  unset %JSONError
  debugger -i 0 Calling /JSONOpen $1-
  var %switches = -, %error, %com, %file
  if (-* iswm $1) {
    %switches = $1
    tokenize 32 $2-
  }
  if ($regex(%switches, ([^dbfuw\-]))) {
    %error = Invalid switches specified: $regml(1)
  }
  elseif ($regex(%switches, ([dbfuw]).*?\1)) {
    %error = Duplicate switch specified: $regml(1)
  }
  elseif ($regex(%switches, /([bfu])/g) > 1) {
    %error = Conflicting switches: $regml(1) $+ , $regml(2)
  }
  elseif (u !isin %switches && w isin %switches) {
    %error = -w switch can only be used with -u
  }
  elseif ($0 < 2) {
    %error = Missing Parameters
  }
  elseif (!$regex($1, /^[a-z][a-z\d_.-]+$/i)) {
    %error = Invalid handler name: Must start with a letter and contain only letters numbers _ . and -
  }
  elseif ($com(JSONHandler:: $+ $1)) {
    %error = Name in use
  }
  elseif (b isin %switches && $0 != 2) {
    %error = Invalid parameter: Binary variable names cannot contain spaces
  }
  elseif (b isin %switches && &* !iswm $2) {
    %error = Invalid parameters: Binary variable names start with &
  }
  elseif (b isin %switches && !$bvar($2, 0)) {
    %error = Invalid parameters: Binary variable is empty
  }
  elseif (f isin %switches && !$isfile($2-)) {
    %error = Invalid parameters: File doesn't exist
  }
  elseif (f isin %switches && !$file($2-).size) {
    %error = Invalid parameters: File is empty
  }
  elseif (u isin %switches && $0 != 2) {
    %error = Invalid parameters: URLs cannot contain spaces
  }
  else {
    if (!$COMOpenTry(JSONHandler:: $+ $1)) {
      %error = Unable to create an instance of MSScriptControl.ScriptControl
    }
    else {
      %com = JSONHandler:: $+ $1
      if (!$com(%com, language, 4, bstr, jscript) || $comerr) {
        %error = Unable to set ScriptControl's language to Javascript
      }
      elseif (!$com(%com, timeout, 4, bstr, 60000) || $comerr) {
        %error = Unable to set ScriptControl's timeout to 60seconds
      }
      elseif (!$com(%com, ExecuteStatement, 1, bstr, $JScript) || $comerr) {
        %error = Unable to add required javascript to the ScriptControl instance
      }
      elseif (u isincs %switches) {
        if (1 OK != $jstry(%com, $jscript(urlInit), $escape($2-).quote)) {
          %error = $gettok($v2, 2-, 32)
        }
        elseif (w !isincs %switches && 0 ?* iswm $jsTry(%com, $jscript(urlParse), status="error").withError) {
          %error = $gettok($v2, 2-, 32)
        }
      }
      elseif (f isincs %switches) {
        if (1 OK != $jstry(%com, $jscript(fileParse), $escape($longfn($2-)).quote)) {
          %error = $gettok($v2, 2-, 32)
        }
      }
      elseif (b isincs %switches) {
        %file = $tempfile
        bwrite $qt(%file) -1 -1 $2
        debugger %com Wrote $2 to $qt(%file)
        if (0 ?* iswm $jstry(%com, $jscript(fileParse), $escape(%file).quote)) {
          %error = $gettok($v2, 2-, 32)
        }
      }
      else {
        %file = $tempfile
        write -n $qt(%file) $2-
        debugger %com Wrote $2- to $qt(%file)
        if (0 ?* iswm $jstry(%com, $jscript(fileParse), $escape(%file).quote)) {
          %error = $gettok($v2, 2-, 32)
        }
      }
      if (!%error) {
        if (d isin %switches) {
          $+(.timer, %com) -o 1 0 JSONClose $1
        }
        Debugger -s %com Successfully created
      }
    }
  }
  :error
  %error = $iif($error, $error, %error)
  reseterror
  if (%file && $isfile(%file)) {
    .remove $qt(%file)
    debugger %com Removed $qt(%file)
  }
  if (%error) {
    if (%com && $com(%com)) {
      .comclose %com
    }
    set -eu0 %JSONError %error
    Debugger -e 0 /JSONOpen %switches $1- --RAISED-- %error
  }
}
alias JSONUrlMethod {
  if ($isid) return
  unset %JSONError
  debugger -i 0 Calling /JSONUrlMethod $1-
  var %error, %com
  if ($0 < 2) {
    %error = Missing parameters
  }
  elseif ($0 > 2) {
    %error = Too many parameters specified
  }
  elseif (!$regex($1, /^[a-z][a-z\d_.\-]+$/i)) {
    %error = Invalid handler name: Must start with a letter and contain only letters numbers _ . and -
  }
  elseif (!$com(JSONHandler:: $+ $1)) {
    %error = Invalid handler name: JSON handler does not exist
  }
  elseif (!$regex($2, /^(?:GET|POST|PUT|DEL)$/i)) {
    %error = Invalid request method: Must be GET, POST, PUT, or DEL
  }
  else {
    var %com = JSONHandler:: $+ $1
    if (1 OK != $jsTry(%com, $JScript(UrlMethod), status="error", $qt($upper($2))).withError) {
      %error = $gettok($v2, 2-, 32)
    }
    else {
      Debugger -s $+(%com,>JSONUrlMethod) Method set to $upper($2)
    }
  }
  :error
  %error = $iif($error, $v1, %error)
  reseterror
  if (%error) {
    set -eu0 %JSONError %error
    if (%com) {
      set -eu0 % [ $+ [ %com ] $+ ] ::Error %error
    }
    Debugger -e $iif(%com, $v1, 0) /JSONUrlMethod %switches $1- --RAISED-- %error
  }
}
alias JSONUrlHeader {
  if ($isid) return
  unset %JSONError
  debugger -i 0 Calling /JSONUrlHeader $1-
  var %error, %com
  if ($0 < 3) {
    %error = Missing parameters
  }
  elseif (!$regex($1, /^[a-z][a-z\d_.\-]+$/i)) {
    %error = Invalid handler name: Must start with a letter and contain only letters numbers _ . and -
  }
  elseif (!$com(JSONHandler:: $+ $1)) {
    %error = Invalid handler name: JSON handler does not exist
  }
  elseif (!$regex($2, /^[a-z_-]+:?$/i)) {
    %error = Invalid header name: Header names can only contain letters, _ and -
  }
  else {
    %com = JSONHandler:: $+ $1
    if (1 OK !== $jsTry(%com, $JScript(UrlHeader), status="error", $escape($regsubex($2, :+$, )).quote, $escape($3-).quote).withError) {
      %error = $gettok($v2, 2-, 32)
    }
    else {
      Debugger -s $+(%com,>JSONUrlHeader) Header $+(',$2,') set to $3-
    }
  }
  :error
  %error = $iif($error, $v1, %error)
  reseterror
  if (%error) {
    set -eu0 %JSONError %error
    if (%com) set -eu0 % [ $+ [ %com ] $+ ] ::Error %error
    Debugger -e $iif(%com, $v1, 0) /JSONUrlMethod %switches $1- --RAISED-- %error
  }
}
alias JSONUrlOption {
  if ($isid) return
  unset %JSONError
  Debugger -i 0 /JSONUrlOption is depreciated and will be removed. Please use /JSONUrlMethod and /JSONUrlHeader
  if ($2 == method) {
    JSONUrlMethod $1 $3-
  }
  else {
    JSONUrlHeader $1-
  }
}
alias JSONUrlGet {
  if ($isid) return
  unset %JSONError
  Debugger -i 0 Calling /JSONUrlGet $1-
  var %switches = -, %error, %com, %file
  if (-* iswm $1) {
    %switches = $1
    tokenize 32 $2-
  }
  if (!$0 || (%switches != - && $0 < 2)) {
    %error = Missing parameters
  }
  elseif (!$regex(%switches, ^-[bf]?$)) {
    %error = Invalid switch(es) specified
  }
  elseif (!$regex($1, /^[a-z][a-z\d_.\-]+$/i)) {
    %error = Invalid handler name: Must start with a letter and contain only letters numbers _ . and -
  }
  elseif (!$com(JSONHandler:: $+ $1)) {
    %error = Specified handler does not exist
  }
  elseif (b isincs %switches && &* !iswm $2) {
    %error = Invalid bvar name: bvars start with &
  }
  elseif (b isincs %switches && $0 > 2) {
    %error = Invalid bvar name: Contains spaces: $2-
  }
  elseif (f isincs %switches && !$isfile($2-)) {
    %error = Specified file does not exist: $longfn($2-)
  }
  else {
    %com = JSONHandler:: $+ $1
    if ($0 > 1) {
      if (f isincs %switches) {
        if (0 ?* iswm $jsTry(%com, $JScript(UrlData), status="error", $escape($longfn($2-)).quote).withError) {
          %error = $gettok($v2, 2-, 32)
        }
        else {
          Debugger -s $+(%com,>JSONUrlGet) Stored $longfn($2-) as data to send with HTTP Request
        }
      }
      else {
        %file = $tempfile
        if (b isincs %switches) {
          bwrite $qt(%file) -1 -1 $2
        }
        else {
          write -n $qt(%file) $2-
        }
        Debugger -s $+(%com,>JSONUrlGet) Wrote specified data to %file
        if (0 ?* iswm $jsTry(%com, $JScript(UrlData), status="error", $escape(%file).quote).withError) {
          %error = $gettok($v2, 2-, 32)
        }
        else {
          Debugger -s $+(%Com,>JSONUrlGet) Stored $2- as data to send with HTTP Request
        }
        .remove $qt(%file)
      }
    }
    if (!%error) {
      if (0 ?* iswm $jsTry(%com, $JScript(URLParse), status="error").withError) {
        %error = $gettok($v2, 2-, 32)
      }
      else {
        Debugger -s $+(%com,>JSONUrlGet) Request finished
      }
    }
  }
  :error
  %error = $iif($error, $v1, %error)
  reseterror
  if (%error) {
    set -eu0 %JSONError %error
    if (%com) set -eu0 % [ $+ [ %com ] $+ ] ::Error %error
    Debugger -e $iif(%com, $v1, 0) /JSONUrlGet %switches $1- --RAISED-- %error
  }
}
alias JSONGet {
  if ($isid) return
  unset %JSONError
  debugger -i 0 /JSONGet is depreciated and will be removed. Please use /JSONUrlGet
  JSONUrlGet $1-
}
alias JSONClose {
  if ($isid) return
  unset %JSONError
  Debugger -i 0 /JSONClose $1-
  var %switches = -, %error, %com, %x
  if (-* iswm $1) {
    %switches = $1
    tokenize 32 $2-
  }
  if ($0 < 1) {
    %error = Missing parameters
  }
  elseif ($0 > 1) {
    %error = Too many parameters specified.
  }
  elseif (%switches !== - && %switches != -w) {
    %error = Unknown switches specified
  }
  elseif (%switches == -) {
    %com = JSONHandler:: $+ $1
    if ($com(%com)) { .comclose %com }
    if ($timer(%com)) { $+(.timer,%com) off }
    unset % [ $+ [ %com ] $+ ] ::Error
    Debugger -i %com Closed
  }
  else {
    %com = JSONHandler:: $+ $1
    %x = 1
    while (%x <= $com(0)) {
      if (%com iswm $com(%x)) {
        .comclose $v1
        $+(.timer,$v1) off
        unset % [ $+ [ $v1 ] $+ ] ::*
        Debugger -i %com Closed
      }
      else {
        inc %x
      }
    }
  }
  :error
  %error = $iif($error, $v1, %error)
  reseterror
  if (%error) {
    set -eu0 %JSONError %error
  }
}
alias JSONList {
  if ($isid) return
  Debugger -i 0 Calling /JSONList $1-
  var %x = 1, %i = 0
  while ($com(%x)) {
    if (JSONHandler::* iswm $v1) {
      inc %i
      echo $color(info) -a * # $+ %i : $regsubex($v2, /^JSONHandler::/, )
    }
    inc %x
  }
  if (!%i) {
    echo $color(info) -a * No active JSON handlers
  }
}
alias JSON {
  if (!$isid) {
    return
  }
  var %x, %calling, %i = 0, %com, %get = json, %ref = $false, %error, %file
  if ($JSONDebug) {
    %x = 0
    while (%x < $0) {
      inc %x
      %calling = %calling $+ $iif(%calling,$chr(44)) $($ $+ %x,2)
    }
    debugger -i 0 Calling $!JSON( $+ %calling $+ $chr(41) $+ $iif($prop,. $+ $prop)
  }
  if (!$0) {
    return
  }
  if ($regex($1, ^\d+$)) {
    %x = 1
    while ($com(%x)) {
      if (JSONHandler::* iswm $v1) {
        inc %i
        if (%i == $1) {
          %com = $com(%x)
          break
        }
      }
      inc %x
    }
    if ($0 == 1 && $1 == 0) {
      return %i
    }
  }
  elseif ($regex($1, /^[a-z][a-z\d_.-]+$/i)) {
    %com = JSONHandler:: $+ $1
  }
  elseif ($regex($1, /^(JSONHandler::[a-z][a-z\d_.-]+)::(.+)$/i)) {
    %com = $regml(1)
    %get = json $+ $regml(2)
    %ref = $true
  }
  if (!%com) {
    %error = Invalid name specified
  }
  elseif (!$com(%com)) {
    %error = Handler doesn't exist
  }
  elseif (!$regex($prop, /^(?:Status|IsRef|IsChild|Error|Data|UrlStatus|UrlStatusText|UrlHeader|Fuzzy|FuzzyPath|Type|Length|ToBvar|IsParent)?$/i)) {
    %error = Unknown prop specified
  }
  elseif ($0 == 1) {
    if ($prop == isRef) {
      return %ref
    }
    elseif ($prop == isChild) {
      Debugger -i 0 $!JSON().isChild is depreciated use $!JSON().isRef
      return %ref
    }
    elseif ($prop == status) {
      if ($com(%com, eval, 1, bstr, status) && !$comerr) {
        return $com(%com).result
      }
      else {
        %error = Unable to determine status
      }
    }
    elseif ($prop == error) {
      if ($eval($+(%,%com,::Error),2)) {
        return $v1
      }
      elseif ($com(%com, eval, 1, bstr, error) && !$comerr) {
        return $com(%com).result
      }
      else {
        %error = Unable to determine if there is an error
      }
    }
    elseif ($prop == UrlStatus || $prop == UrlStatusText) {
      if (0 ?* iswm $jsTry(%com, $JScript($prop))) {
        %error = $gettok($v2, 2-, 32)
      }
      else {
        return $v2
      }
    }
    elseif (!$prop) {
      return $regsubex(%com,/^JSONHandler::/,)
    }
  }
  elseif (!$regex($prop, /^(?:fuzzy|fuzzyPath|data|type|length|toBvar|isParent)?$/i)) {
    %error = $+(',$prop,') cannot be used when referencing items
  }
  elseif ($prop == toBvar && $chr(38) !== $left($2, 1) ) {
    %error = Invalid bvar specified: bvar names must start with &
  }
  elseif ($prop == UrlHeader) {
    if ($0 != 2) {
      %error = Missing or excessive header parameter specified
    }
    elseif (0 ?* iswm $jsTry(%com, $JScript(UrlHeader), $escape($2).quote)) {
      %error = $gettok($v2, 2-, 32)
    }
    else {
      return $gettok($v2, 2-, 32)
    }
  }
  elseif (fuzzy* iswm $prop) {
    if ($0 < 2) {
      %error = Missing parameters
    }
    else {
      var %x = 2, %path, %res
      while (%x <= $0) {
        %path = %path $+ $escape($($ $+ %x, 2)).quote $+ $chr(44)
        inc %x
      }
      %res = $jsTry(%com, $JScript(fuzzy), %get, $left(%path, -1))
      if (0 ? iswm %res) {
        %error = $gettok(%res, 2-, 32)
      }
      elseif ($prop == fuzzy) {
        %get = %get $+ $gettok(%res, 2-, 32)
      }
      else {
        return $regsubex(%get, ^json, ) $+ $gettok(%res, 2-, 32)
      }
    }
  }
  if (!%error) {
    if (fuzzy* !iswm $prop) {
      %x = $iif($prop == toBvar, 3, 2)
      while (%x <= $0) {
        %i = $($ $+ %x, 2)
        if ($len(%i)) {
          %get = $+(%get, [", $escape(%i), "])
          inc %x
        }
        else {
          %error = Empty index|item passed.
          break
        }
      }
    }
    if (!%error) {
      if ($prop == type) {
        if (0 ?* iswm $jsTry(%com, $JScript(typeof), %get)) {
          %error = $gettok($v2, 2-, 32)
        }
        else {
          return $gettok($v2, 2-, 32)
        }
      }
      elseif ($prop == length) {
        if (0 ?* iswm $jsTry(%com, $JScript(length), %get)) {
          %error = $gettok($v2, 2-, 32)
        }
        else {
          return $gettok($v2, 2-, 32)
        }
      }
      elseif ($prop == isParent) {
        if (0 ?* iswm $jsTry(%com, $JScript(isparent), %get)) {
          %error = $gettok($v2, 2-, 32)
        }
        else {
          return $iif($gettok($v2, 2-, 32), $true, $false)
        }
      }
      elseif ($prop == toBvar) {
        %file = $tempfile
        if (0 ?* iswm $jsTry(%com, $JScript(tofile), $escape(%file).quote, %get)) {
          %error = $gettok($v2, 2-, 32)
        }
        else {
          bread $qt(%file) 0 $file(%file) $2
        }
        if ($isfile(%file)) { .remove $qt(%file) }
      }
      elseif (0 ?* iswm $jsTry(%com, $JScript(get), %get)) {
        %error = $gettok($v2, 2-, 32)
        if (%error == Object or Array referenced) {
          %error = $null
          Debugger -s $+(%com,>$JSON) Result is an Object or Array; returning reference
          return %com $+ :: $+ $regsubex(%get, /^json/, )
        }
      }
      else {
        var %res = $gettok($v2, 2-, 32)
        Debugger -s $+(%com,>$JSON) %get references %res
        return %res
      }
    }
  }
  :error
  %error = $iif($error, $v1, %error)
  if (%error) {
    set -eu0 %JSONError
    if (%com && $com(%com)) {
      set -eu0 $+(%,%com,::Error) %error
    }
    var %r
    %x = 0
    while (%x < $0) {
      inc %x
      %r = $addtok(%r, $chr(32) $+ $ [ $+ [ %x ] ] , 44)
    }
    debugger -e $iif(%com && $com(%com),%com,0) $!JSON( $+ %r $+ ) $+ $+ $iif($prop,. $+ $prop) --RAISED-- %error
  }
}
alias JSONDebug {
  if ($isid) {
    return $iif($group(#JSONForMircDebug) == on, $true, $false)
  }
  elseif ($0) {
    tokenize 32 $iif($group(#JSONForMircDebug) == on, off, on)
  }
  if ($regex($1-,/^(?:on|enable)$/i)) {
    .enable #JSONForMircDebug
    debugger -i Debugger Now Enabled
  }
  elseif ($regex($1-, /^(?:off|disable)$/i)) {
    .disable #JSONForMircDebug
    if ($window(@JSONForMircDebug)) {
      close -@ @JSONForMircDebug
    }
  }
}
#JSONForMircDebug off
alias -l Debugger {
  if ($isid) return
  if (!$window(@JSONForMircDebug)) {
    window -zk0 @JSONForMircDebug
  }
  var %switches = -, %c
  if (-* iswm $1) {
    %switches = $1
    tokenize 32 $2-
  }
  if (e isincs %switches) {
    %c = 04
  }
  elseif (s isincs %switches) {
    %c = 12
  }
  else {
    %c = 03
  }
  var %n = $iif($1, $1, JSONForMirc)
  %n = $regsubex(%n, /^JSONHandler::, )
  aline -p @JSONForMircDebug $+($chr(3),%c,[,%n,],$chr(15)) $2-
}
#JSONForMircDebug end
alias -l Debugger return
menu @JSONForMircDebug {
  .Clear: clear -@ @JsonForMircDebug
  .Disable and Close: JSONDebug off
}
alias -l tempfile {
  var %n = 1
  while ($isfile($scriptdirJSONTmpFile $+ %n $+ .json)) {
    inc %n
  }
  return $scriptdirJSONTmpFile $+ %n $+ .json
}
alias -l escape {
  var %esc = $replace($1-,\,\\,",\")
  return $iif($prop == quote, $qt(%esc), %esc)
}
alias -l JScript {
  if (!$isid) return
  if (!$0) return (function(){status="init";json=null;url={m:"GET",u:null,h:[],d:null};response=null;var r,x=['MSXML2.SERVERXMLHTTP.6.0','MSXML2.SERVERXMLHTTP.3.0','MSXML2.SERVERXMLHTTP','MSXML2.XMLHTTP.6.0','MSXML2.XMLHTTP.3.0','Microsoft.XMLHTTP'],i;while(x.length){try{r=new ActiveXObject(x.shift());break}catch(e){}}xhr=r?function(){r.open(url.m,url.u,false);for(i=0;i<url.h.length;i+=1)r.setRequestHeader(url.h[i][0],url.h[i][1]);r.send(url.d);return(response=r).responseText}:function(){throw new Error("HTTP Request object not found")};read=function(f){var a=new ActiveXObject("ADODB.stream"),d;a.CharSet="utf-8";a.Open();a.LoadFromFile(f);if(a.EOF){a.close();throw new Error("No content in file")}d=a.ReadText();a.Close();return d;};write=function(f,d){var a=new ActiveXObject("ADODB.stream");a.CharSet="utf-8";a.Open();a.WriteText(d);a.SaveToFile(f,2);a.Close()};parse=function(t){if(/^[\],:{}\s]*$/.test((t=(String(t)).replace(/[\u0000\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g,function(a){return'\\u'+('0000'+a.charCodeAt(0).toString(16)).slice(-4)})).replace(/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g,'@').replace(/"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g,']').replace(/(?:^|:|,)(?:\s*\[)+/g,''))){try{return eval('('+t+')');}catch(e){throw new SyntaxError('Unable to Parse: Invalid JSON');}}throw new SyntaxError('Unable to Parse: Invalid JSON')};fuzzy=function(){var a=Array.prototype.slice.call(arguments),b=a.shift(),c="",d=Object.prototype.toString.call(b),e,f,g,h,i;for(e=0;e<a.length;e+=1){f=a[e];if(b.hasOwnProperty(f)){if(typeof b[f]==="function")throw new TypeError("Reference points to a function");b=b[f];c+="[\""+f+"\"]"}else if(d==="[object Object]"){if(typeof f==="number")f=f.toString(10);f=f.toLowerCase();g=-1;i=!1;for(h in b){if(b.hasOwnProperty(h)&&typeof b[h]!=="function"){g+=1;if(h.toLowerCase()===f){b=b[h];c+="[\""+h+"\"]";i=!0;break}else if(g.toString(10)===f){b=b[h];c+="[\""+h+"\"]";i=!0;break}}}if(!i)throw new Error("No matching reference found");}else{throw new Error("Reference does not exist")}d=Object.prototype.toString.call(b)}return c}}());
  if ($1 == FileParse)     return if(status!=="init")throw new Error("Parse Not Pending");json=parse(read(@1@));status="done";
  if ($1 == UrlInit)       return if(status!=="init")throw new Error("JSON handler not ready");url.u=@1@;status="url";
  if ($1 == UrlMethod)     return if(status!=="url")throw new Error("URL Request Not Pending");url.m=@1@;
  if ($1 == UrlHeader)     return if(status!=="url")throw new Error("URL Request Not Pending");url.h.push([@1@,@2@]);
  if ($1 == UrlData)       return if(status!=="url")throw new Error("URL Request Not Pending");url.d=read(@1@);
  if ($1 == UrlParse)      return if(status!=="url")throw new Error("URL Request Not Pending");json=parse(xhr());status="done";
  if ($1 == UrlStatus)     return if(status!=="done")throw new Error("Data not parsed");if(!response)throw new Error("URL request not made");return response.status;
  if ($1 == UrlStatusText) return if(status!=="done")throw new Error("Data not parsed");if(!response)throw new Error("URL request not made");return response.statusText;
  if ($1 == UrlHeader)     return if(status!=="done")throw new Error("Data not parsed");if(!response)throw new Error("URL Request not made");return response.getResponseHeader(@1@);
  if ($1 == fuzzy)         return if(status!=="done")throw new Error("Data not parsed");return "1 "+fuzzy(@1@,@2@);
  if ($1 == typeof)        return if(status!=="done")throw new Error("Data not parsed");var i=@1@;if(i===undefined)throw new TypeError("Reference doesn't exist");if(i===null)return"1 null";var s=Object.prototype.toString.call(i);if(s==="[object Array]")return"1 array";if(s==="[object Object]")return"1 object";return "1 "+typeof(i);
  if ($1 == length)        return if(status!=="done")throw new Error("Data not parsed");var i=@1@;if(i===undefined)throw new TypeError("Reference doesn't exist");if(/^\[object (?:String|Array)\]$/.test(Object.prototype.toString.call(i)))return"1 "+i.length.toString(10);throw new Error("Reference is not a string or array");
  if ($1 == isparent)      return if(status!=="done")throw new Error("Data not parsed");var i=@1@;if(i===undefined)throw new TypeError("Reference doesn't exist");if(/^\[object (?:Object|Array)\]$/.test(Object.prototype.toString.call(i)))return"1 1";return"1 0";
  if ($1 == tofile)        return if(status!=="done")throw new Error("Data not parsed");var i=@2@;if(i===undefined)throw new TypeError("Reference doesn't exist");if(typeof i!=="string")throw new TypeError("Reference must be a string");write(@1@,i);
  if ($1 == get)           return if(status!=="done")throw new Error("Data not parsed");var i=@1@;if(i===undefined)throw new TypeError("Reference doesn't exist");if(i===null)return"1";if(/^\[object (?:Array|Object)\]$/.test(Object.prototype.toString.call(i)))throw new TypeError("Object or Array referenced");if(i.length>4000)throw new Error("Data would exceed mIRC's line length limit");if(typeof i == "boolean")return i?"1 1":"1 0";if(typeof i == "number")return "1 "+i.toString(10);return "1 "+i;
}
alias -l jsTry {
  if ($isid) {
    if ($0 < 2 || $prop == withError && $0 < 3) {
      return 0 Missing parameters
    }
    elseif (!$com($1)) {
      return 0 No such com
    }
    else {
      var %code = $2, %error, %n = 2, %o, %js
      if ($prop == withError) {
        %error = $3
        %n = 3
      }
      %o = %n
      while (%n < $0) {
        inc %n
        set -l $+(%, arg, $calc(%n - %o)) $eval($+($, %n), 2)
      }
      %code = $regsubex($regsubex(%code, /@(\d+)@/g, $var($+(%, arg, \t ),1).value), [\s;]+$, )
      %error = $regsubex($regsubex(%error, /@(\d+)@/g, $var($+(%, arg, \t ),1).value), [\s;]+$, )
      if ($len(%code)) {
        %code = %code $+ $chr(59)
      }
      if ($len(%error)) {
        %error = %error $+ $chr(59)
      }
      %js = (function(){error=null;try{ $+ %code $+ return"1 OK"}catch(e){ $+ %error $+ error=e.message;return"0 "+error}}());
      debugger $1>$jsTry Executing: %js
      if (!$com($1, eval, 1, bstr, %js) || $comerr) {
        return 0 Unable to execute specified javascript
      }
      return $com($1).result
    }
  }
}