chaos
Owner
Hit Alt+R and put this somewhere in the textbox:
copy and paste information from Metalkid's program like normal, and it will output it on one line instead of taking up 7.
please post bugs in here
edit: you have to paste the full output.
<+Mekkah> Skarmory - #227 (Impish)
<+Mekkah> HP: 17
<+Mekkah> Att: 30
<+Mekkah> Def: 16
<+Mekkah> SpA: 8
<+Mekkah> SpD: Invalid
<+Mekkah> Speed: 28
->
<+Mekkah> Impish #227 Skarmory: 17 / 30 / 16 / 8 / Invalid / 28
Code:
on 1:INPUT:* {
if ( $regex(ivpaste,$1-,^([^-]+) - #(\d{1,3}) \(([a-zA-Zï]+)\)$) ) {
set %ivpaste $regml(ivpaste, 3) $chr(35) $+ $regml(ivpaste, 2) $regml(ivpaste, 1) $+ :
haltdef
}
elseif ( $regex(ivpaste, $1-, ^HP: (\d{1,2}|x|Invalid)( - \d{1,2})?$) ) {
set %ivpaste %ivpaste $regml(ivpaste,1) $regml(ivpaste,2)
haltdef
}
elseif ( $regex(ivpaste, $1-, ^Att: (\d{1,2}|x|Invalid)( - \d{1,2})?$) ) {
set %ivpaste %ivpaste / $regml(ivpaste,1) $regml(ivpaste,2)
haltdef
}
elseif ( $regex(ivpaste, $1-, ^Def: (\d{1,2}|x|Invalid)( - \d{1,2})?$) ) {
set %ivpaste %ivpaste / $regml(ivpaste,1) $regml(ivpaste,2)
haltdef
}
elseif ( $regex(ivpaste, $1-, ^SpA: (\d{1,2}|x|Invalid)( - \d{1,2})?$) ) {
set %ivpaste %ivpaste / $regml(ivpaste,1) $regml(ivpaste,2)
haltdef
}
elseif ( $regex(ivpaste, $1-, ^SpD: (\d{1,2}|x|Invalid)( - \d{1,2})?$) ) {
set %ivpaste %ivpaste / $regml(ivpaste,1) $regml(ivpaste,2)
haltdef
}
elseif ( $regex(ivpaste, $1-, ^Speed: (\d{1,2}|x|Invalid)( - \d{1,2})?$) ) {
set %ivpaste %ivpaste / $regml(ivpaste,1) $regml(ivpaste,2)
haltdef
say %ivpaste
unset %ivpaste
}
}
please post bugs in here
edit: you have to paste the full output.
<+Mekkah> Skarmory - #227 (Impish)
<+Mekkah> HP: 17
<+Mekkah> Att: 30
<+Mekkah> Def: 16
<+Mekkah> SpA: 8
<+Mekkah> SpD: Invalid
<+Mekkah> Speed: 28
->
<+Mekkah> Impish #227 Skarmory: 17 / 30 / 16 / 8 / Invalid / 28