[firecape]

This thread is basically for IRC scripts that make certain c&c tasks, such as html, a little bit easier.

Feel free to contribute your own as long as its not something flashy and actually useful!

This is one by me that will format any set into the proper html format. For example, if you enter

Jirachi @ Leftovers
Ability: Serene Grace
EVs: 252 HP / 40 Def / 216 SpD
Careful nature (+SpD, -SpA)
- Wish
- Iron Head
- Protect 
- Toxic / Body Slam / U-turn / Fire Punch

it will return:

<p><img src="/download/sprites/bw/385.png" alt="Jirachi" /><br />
Jirachi @ Leftovers<br />
Ability: Serene Grace<br />
EVs: 252 HP / 40 Def / 216 SpD<br />
Careful nature (+SpD, -SpA)<br />
- Wish<br />
- Iron Head<br />
- Protect<br />
- Toxic / Body Slam / U-turn / Fire Punch</p>

correct sprite and all!

You can also just put a pokemon name into the main box, and it will return that Pokemon's htmled sprite link. This supports /dp/ and /bw/. Instructions are included in the actual script, but if you have any questions feel free to ask me on irc / post here. If you find any bugs post here as well, but posts containing "bugs" caused by improper usage will be deleted. Also, please note not all IRC clients support scripting. Mirc is probably the easiest one to use, so if you don't have it get it! Mac users are out of luck i'm afraid...

Here's the script:

; 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"
  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 %sprite.pokemon $gettok($did(html,1),1,32)
  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) {
  inc %sprite.number 3 }
  if (%sprite.number >= 414 && %sprite.pokemon != Wormadam-G && %sprite.pokemon != Wormadam-S && %sprite.pokemon !isin %sprite.weird) {
  inc %sprite.number 2 }
  if (%sprite.number >= 494 && %sprite.pokemon != Wormadam-G && %sprite.pokemon != Wormadam-S && %sprite.pokemon !isin %sprite.weird) {
  inc %sprite.number 7 }
  if (%sprite.number >= 563) {
  inc %sprite.number 1 }
  if (%sprite.number >= 568 && %sprite.pokemon != darmanitan && %sprite.pokemon != darmanitan-d) {
  inc %sprite.number 1 }
  if (%sprite.pokemon == genosect) {
  inc %sprite.number 1 }
  var %linkhtml <p><img src=" $+ $+(/download/sprites/,$iif($did(html,3) == dp,dp/,bw/),%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) { var %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>) 
}

Here's a script by Charmander to format sets for c&c straight from the PO export function:

alias F12 {
  dialog -md form form
}
dialog form {
  title "Pokemon Online to C&C Formatter by Charmander"
  size -1 -1 175 135
  option dbu
  edit "", 1, 24 43 125 62, multi
  text "Paste Here", 2, 61 30 50 9, center
  edit "", 3, 24 18 125 10
  text "Set Name", 4, 61 4 50 8, center
  button "Done", 5, 24 113 125 12, ok
}
on *:dialog:form:sclick:5: {
  set -l %a echo -a
  %a [SET]
  %a name: $iif($did(form,3) == $null,$gettok($did(form,1,1),$calc($findtok($did(form,1,1),@,32) + 1) $+ -,32),$did(form,3))
  set -l %b 1
  while (%b <= 4) {
    %a move %b $+ : $gettok($did(form,1,$calc(%b + 4)),2-,32)
    inc %b
  }
  %a item: $gettok($did(form,1,1),$calc($findtok($did(form,1,1),@,32) + 1) $+ -,32)
  %a ability: $gettok($did(form,1,2),2-,32)
  %a nature: $gettok($did(form,1,4),1,32)
  %a evs: $replacecs($gettok($did(form,1,3),2-,32),SAtk,SpA,SDef,SpD,Spd,Spe)
}