; Copy this into remote and press F11 to activate
; You need this text file (Notepad works well) http://pastebin.com/vHexnaRW in your Mirc directory (enter //run $mircdir, then drag and drop), and title it pokemonsprites
; C/P a set with the first line in the format "pokemon @ item" and watch!
alias F11 {
  dialog -md html html
}
dialog html {
  title "Set to HTML script by firecape !!! charmander was here and firecape used my script as a base >:("
  size -1 -1 175 135
  option dbu
  text "Specify generation (bw/dp), will default to bw if left blank.", 4, 10 4 150 8, center
  edit "", 3, 24 18 125 10
  edit "", 1, 24 43 125 62, multi
  text "Paste Here", 2, 61 30 50 9, center
  button "Done", 6, 24 113 125 12, ok
}
on *:dialog:html:sclick:6: {
  var %1 $gettok($did(form,1),1,32)
  var %sprite.pokemon %1
  var %deoxysformes Deoxys-S Deoxys-N Deoxys-A
  var %sprite.weird Rotom-W Rotom-H Rotom-S Rotom-F Rotom-C Giratina-O Shaymin-S
  var %sprite.number $remove($read(pokemonsprites.txt, w,  * $+ %sprite.pokemon $+ *), $+ %sprite.pokemon $+ )
  var %sprite.number $round( $+ %sprite.number $+ )
  if (%sprite.number >= 387 && %sprite.pokemon !isin %deoxysformes && %sprite.pokemon !isin %sprite.weird) {
  var %sprite.number $calc(%sprite.number + 3) }
  if (%sprite.number >= 414 && %sprite.pokemon != Wormadam-G && %sprite.pokemon != Wormadam-S && %sprite.pokemon !isin %sprite.weird) {
  var %sprite.number $calc(%sprite.number + 2) }
  if (%sprite.number >= 494 && %sprite.pokemon != Wormadam-G && %sprite.pokemon != Wormadam-S && %sprite.pokemon !isin %sprite.weird) {
  var %sprite.number $calc(%sprite.number + 7) }
  if (%sprite.number >= 563) {
  var %sprite.number $calc(%sprite.number + 1) }
  if (%sprite.number >= 568 && %sprite.pokemon != darmanitan && %sprite.pokemon != darmanitan-d) {
  var %sprite.number $calc(%sprite.number + 1) }
  if (%sprite.pokemon == genosect) {
  var %sprite.number $calc(%sprite.number + 1) }
  var %linkhtml <p><img src=" $+ $+(/download/sprites/,$iif($did(html,3) == bw,bw/,dp/),%sprite.number,.png) $+ " alt=" $+ $upper($left(%sprite.pokemon,1)) $+ $right(%sprite.pokemon,$calc($len(%sprite.pokemon)-1)) $+ " /><br />
  echo -a %linkhtml
  var %b 1
  if ($gettok($did(html,1,2),1,32) $+ 1 == 1) { set %b 100 }
  while ($did(html,1,$calc(%b + 1)) != $null) {
    echo -a $did(html,1,%b) $+ <br />
  inc %b }
  echo -a $iif(%b == 100,$null,$did(html,1,%b) $+ </p>)
}