#eggsearch off
on *:TEXT:!eggsearch *:#debug: {
  var %window = $iif($chan,$v1,$nick), %limitOutput = $iif(#* iswm %window, $true, $false)
  if ($2 == $null) { return }
  tokenize 44 $2-
  ; %var = "" means initialize it to null. It looks better than %var, %var2, %var3 imo
  var %EG1 = $1, %EG1List = "", %EG2 = $2, %EG2List = "", %outputList = ""
  var %EG1Count = 1, %EG2Count = 1, %EG.LST = eggGroups.lst
  if ($read(%EG.LST, ns, %EG1) == $null || * * iswm $v1) {
    msg %window $qt($1) is not a valid egg group | msg #debug $v1 | return
  }
  else {
    %EG1List = $v2
        %outputList = %EG1List
  }
  if (%EG2 != $null && ($read(%EG.LST, ns, $v1) == $null || * * iswm $v1)) {
    msg %window $qt($2) is not a valid egg group | return
  }
  else {
    var %EG2List = $v2
    while ($gettok(%outputList, %EG2Count, 44)) {
      var %pkm = $v1
      if (!$isTok(%EG2List, %pkm, 44)) var %outputList = $remtok(%outputList, %pkm, 44)
      inc %EG2Count
    }
  }
  var %count = 1, %output = ""
  while ($gettok(%outputList, %count, 32)) { var %pkmid = $v1, %output = $addtok(%output, $iif($pokemon(%pkmid).species, $v1, %pkmid), 44) | inc %count }
  %output = $replace(%output, $chr(44), $+($chr(44),$chr(32)))
  msg %window $iif(!%output, No matching Pokemon found, $iif(%limitOutput, $left(%output, 300) ..., %output))
  :error
  if ($error) msg %window $v1
}
#eggsearch end
on *:TEXT:!index *:*: {
  var %pkm = $toID($2-), %window = $iif($chan,$v1,$nick)
  if ($pokemon(%pkm).num !== $null) { msg %window Hex: 0x $+ $base($v1,10,16) Dec: $v1 }
  else { msg %window Not a pokemon }
}
on *:TEXT:!check:*: msg $iif($chan,$v1,$nick) !check N/Name Returns Nth Pokemon uploaded to Pokecheck, or Pokemon uploaded to Pokecheck by Name
on *:TEXT:!check *:*: {
  var %window = $iif(!$chan,$nick,$chan)
  if ($0 < 2) {
    msg %window !check N/Name Returns Nth Pokemon uploaded to Pokecheck, or Pokemon uploaded to Pokecheck by Name
    halt
  }
  var %pkm = $toID($2)
  if (/ isin $2-) {
    if ($numtok($2-,47) == 2) && ($gettok($2-,1,47) < 65536) && ($remove($gettok($2-,2,47),*) < 65536) {
      msg %window http://www.pokecheck.org/?p=search&tid= $+ $replace($2-,/,% $+ 2F,*,$null) $+ $iif($right($2-,1) === *, &notpub=1)
    }
    else if ($left($2,1) == ~) && ($gettok($2-,2,47) isnum) {
      msg %window http://www.pokecheck.org/?p=box&bid= $+ $gettok($2-,2,47) $+ &u= $+ $right($gettok($2-,1,47),-1)
    }
    else {
      msg %window Invalid TID/SID
    }
    halt
  }
  else if ($remove($2-,*,/) isnum 0-65535) {
    msg %window http://www.pokecheck.org/?p=search&tid= $+ $remove($2,*,/) $+ $iif($right($2,1) === *,&notpub=1)
  }
  else if ($left($2,1) === @) {
    msg %window http://www.pokecheck.org/?p=search&tid=%40 $+ $remove($2,*,@) $+ $iif($right($2,1) === *,&notpub=1)
    halt
  }
  else if (($left($2,1) === $chr(35)) && ($right($2-,-1) isnum)) || ($2- isnum) {
    msg %window http://www.pokecheck.org/?p=detail&uid= $+ $iif($2- isnum, $2-, $right($2-,-1))
    halt
  }
  else if ($isTok(3 4 5, $pokemon(%pkm).gen, 32)) {
    msg %window https://www.pokecheck.org/?p=search&ivt=150&pokemon= $+ $pokemon(%pkm).num
    return
  }
}
;https://www.pokecheck.org/i/itm/004.png
on *:TEXT:!dex:*:/var %window = $iif(!$chan,$nick,$chan) | /msg %window !dex pokemon Returns Link to Serebii's Pokedex of pokemon
on $*:TEXT:/^!(smog)?(dex|sprite)( s(hiny)?)? .+$/Si:*: {
  var %window = $iif(!$chan,$nick,$chan)
  if (*smog* iswm $1) { var %smog = $true | tokenize 32 $remove($1, smog) $2- }
  if ($1 == !sprite) { var %dex.sprite = $true }
  if (($2 == s) || ($2 == shiny)) { tokenize 32 $2- | var %dex.shiny = $true }
  var %pokemon = $toID($2-)
  if ($istok(%gen6pkm,%pokemon,46)) { msg %window What the fuck is a $proper(%pokemon) $+ ? | return }
  if ($isPokemon(%pokemon) || (($2 isnum 1-649) && ($calc($2 - $int($2)) == 0))) {
    ;if ($numtok($2,45) == 2) { var %dex.forme = - $+ $lower($gettok($pokemon(%pokemon).species,2,45)) }
    if ($numtok($2,45) == 2) { var %dex.forme = - $+ $lower($gettok($pokemon(%pokemon).species,2,45)) }
    ;$gettok($2,2,45)
    if ($2 isnum 1-649) {
      var %dex = $int($2)
    }
    else if ($pokemon(%pokemon).num > 0) {
      var %dex = $ifmatch
    }
    if (%dex > 749) {
      goto :notpkmn
    }
    ;if (%dex.sprite) { msg %window http://play.pokemonshowdown.com/sprites/afd/ $+ %pokemon $+ .png }
    if (%dex.sprite) {
      ;var %sprite = http://sprites.pokecheck.org/ $+ $iif(%dex.shiny,s,i) $+ / $+ [ $base(%dex,10,10,3) ] $+ %dex.forme $+ .gif
      if ($pokemon(%pokemon).isMega) { var %dex.forme = -m $+ $iif($right(%pokemon,1) != a, $v1) }
      if (%dex.shiny) var %sprite = http://www.serebii.net/Shiny/XY/ $+ $base(%dex,10,10,3) $+ %dex.forme $+ .png
      else var %sprite = http://www.serebii.net/xy/pokemon/ $+ $base(%dex,10,10,3) $+ %dex.forme $+ .png

      if (%smog) {
        if ($read(smogspritenums.txt, ns, $2-) || $readn) { %sprite = $+(http://www.smogon.com/download/sprites/bw/,$v1,.png) }
        else { %sprite = Not Found }
      }
      if ($pokemon(%pokemon).num < 1) var %sprite = No sprite available.
      msg %window %sprite
    }
    else {
      if (%smog) {
        msg %window http://www.smogon.com/bw/pokemon/ $+ $lower($2-)
      }
      else {
        msg %window http://www.serebii.net/pokedex-xy/ $+ [ $base(%dex,10,10,3) ] $+ .shtml
      }
    }
  }
  else if ($isMove(%pokemon)) {
    msg %window http://www.serebii.net/attackdex-xy/ $+ $lower($remove($move(%pokemon).name,$chr(32))) $+ .shtml
  }
  else if ($isAbility(%pokemon)) {
    msg %window http://www.serebii.net/abilitydex/ $+ $lower($remove($ability(%pokemon).name,$chr(32))) $+ .shtml
  }
  else if ($isItem(%pokemon)) {
    if (%dex.sprite) msg %window https://www.pokecheck.org/i/itm/ $+ $base($item(%pokemon).num,10,10,3) $+ .png
  }
  else if ($false) {
    if (%dex.sprite) msg %window https://www.pokecheck.org/i/itm/ $+ $base($item(%pokemon).num,10,10,3) $+ .png
  }
  else {
    :notpkmn
    msg %window $2- is not a Pokemon.
  }
}
on *:TEXT:!vdex*:*: {
  var %window = $iif(!$chan,$nick,$chan), %pokemon = $toID($2)
  if ($0 < 2) {
    msg %window !vdex pokemon Returns Link to Veekun's Pokedex of pokemon
    halt
  }
  if ($isPokemon(%pokemon)) {
    ;var %dex =
    ;throwDebug %dex
    msg %window http://veekun.com/dex/pokemon/ $+ [ $lower($pokemon(%pokemon).species) ]
  }
  else {
    :notpkmn
    msg %window $2 is not a Pokemon.
  }
}
on *:TEXT:!upc:*: { var %window = $iif(!$chan,$nick,$chan) | msg %window !upc [move] Returns Link to UPC's Page on [move] }
on *:TEXT:!upc *:*: {
  var %window = $iif(!$chan,$nick,$chan), %move = $toID($2-)
  if ($isMove(%move)) {
    msg %window http://upokecenter.com/dex/?lang=en&move= $+ $move(%move).num
  }
  else {
    :notpkmn
    msg %window $qt($2-) is not a move.
  }
}