@program #2918
1 1000 d
i
$include $lib/alynna
$include $lib/pokedex
$def POKEDEX "$pokedex" match
$def CURPROP propx @
 
: itemx
var dir
var tmp
var pokename
var propx "/item/" propx !
"|" explode pop dir ! 
POKEDEX str CURPROP dir @ "/type" cat rot dup pokename ! setprop 
POKEDEX str CURPROP dir @ "/subtype" cat rot setprop 
POKEDEX str CURPROP dir @ "/desc" cat rot setprop 
str "Properties set for '" dir @ "'." cat "@attack" pretty tellhere
;

: pokeattacks
var pokearray
var pokenum
var dir
var count
var item
var value
var level
var tmp
var propx "/pokemon/" propx !
"|" explode 1 - count ! dir ! count @ array_make pokearray !
str "pokemon/byname/" dir @ cat getdex dir !
pokearray @ foreach value ! 
 value @ "/" explode tmp !
  tmp @ 2 = if item ! value ! then
  tmp @ 1 = if item ! "0" value ! then
  tmp @ 0 = if "" item ! 0 value ! then
 POKEDEX str CURPROP dir @ "/attacks/" item @ cat value @ setprop
repeat
str "Properties set for '" dir @ "'." cat "@pokeattacks" pretty tellme
;
 
: pokemon
var dir
var tmp
var pokename 
var propx "/pokemon/" propx !
"|" explode pop dir ! 
POKEDEX str CURPROP dir @ "/name" cat rot dup pokename ! setprop 
POKEDEX str CURPROP dir @ "/type" cat rot setprop 
POKEDEX str CURPROP dir @ "/height" cat rot setprop 
POKEDEX str CURPROP dir @ "/weight" cat rot setprop 
POKEDEX str CURPROP dir @ "/evolution" cat rot setprop 
POKEDEX str CURPROP dir @ "/evomethod" cat rot setprop 
POKEDEX str CURPROP dir @ "/desc" cat rot setprop 
POKEDEX str CURPROP "byname/" pokename @ cat dir @ setprop 
str "Properties set for '" dir @ "'." cat "@pokemon" pretty tellme
;
 
: attack
var dir
var tmp
var pokename
var propx "/attack/" propx !
"|" explode pop dir ! 
POKEDEX str CURPROP dir @ "/type" cat rot dup pokename ! setprop 
POKEDEX str CURPROP dir @ "/pp" cat rot setprop 
POKEDEX str CURPROP dir @ "/desc" cat rot setprop 
str "Properties set for '" dir @ "'." cat "@attack" pretty tellme
;
 
: hm
var dir
var tmp
var pokename 
var propx "/HM/" propx !
"|" explode pop dir ! 
POKEDEX str CURPROP dir @ "/name" cat rot dup pokename ! setprop 
POKEDEX str CURPROP "byname/" pokename @ cat dir @ setprop 
str "Properties set for '" dir @ "'." cat "@hm" pretty tellme
;
 
: tm
var dir
var tmp
var pokename 
var propx "/TM/" propx !
"|" explode pop dir ! 
POKEDEX str CURPROP dir @ "/name" cat rot dup pokename ! setprop 
POKEDEX str CURPROP dir @ "/cost" cat rot setprop 
POKEDEX str CURPROP "byname/" pokename @ cat dir @ setprop 
str "Properties set for '" dir @ "'." cat "@tm" pretty tellme
;

: pokeselect
var dir
var tmp
var pokename 
var propx "/pokemon/" propx !
"|" explode pop dir ! 
me @ "_pokeselect" dir @ setprop 
me @ "_pokename" rot setprop 
str "Properties for pokemon '" dir @ "' selected." cat "@tm" pretty tellhere
;

: pokeevolve 
var dir
var tmp
var pokename 
var propx "/pokemon/" propx !
dup "Nothing" smatch if pop exit then
"/" explode pop me @ "_pokeselect" getprop dir ! 
POKEDEX str CURPROP dir @ "/evolution" cat rot setprop 
POKEDEX str CURPROP dir @ "/evomethod" cat rot setprop 
;

: pokeattacks2
var pokearray
var pokenum
var dir
var count
var item
var value
var level
var tmp
var propx "/pokemon/" propx !
me @ "_pokeselect" getprop dir ! 
":" explode array_make pokearray !
pokearray @ foreach value ! 
 value @ "/" explode tmp !
  tmp @ 2 = if item ! value ! then
  tmp @ 1 = if item ! "0" value ! then
  tmp @ 0 = if "" item ! 0 value ! then
 POKEDEX str CURPROP dir @ "/attacks/" item @ cat value @ setprop
repeat
;

: tmhm
var dir
var tmp
var pokename 
var propx "/pokemon/" propx !
"/" explode pop me @ "_pokeselect" getprop dir ! 
POKEDEX str CURPROP dir @ "/tmhm" cat rot setprop 
;

: breedcompat
var dir
var tmp
var pokename 
var propx "/pokemon/" propx !
dup "None" smatch if pop exit then
"/" explode pop me @ "_pokeselect" getprop dir ! 
POKEDEX str CURPROP dir @ "/breedcompat" cat rot setprop 
;

: breedmoves
var dir
var tmp
var pokename 
var propx "/pokemon/" propx !
dup "None" smatch if pop exit then
"/" explode pop me @ "_pokeselect" getprop dir ! 
POKEDEX str CURPROP dir @ "/breedmoves" cat rot setprop 
;

: pokedescg
var dir
var tmp
var pokename 
var propx "/pokemon/" propx !
"/" explode pop me @ "_pokeselect" getprop dir ! 
POKEDEX str CURPROP dir @ "/descg" cat rot setprop 
;

: pokedescs
var dir
var tmp
var pokename 
var propx "/pokemon/" propx !
"/" explode pop me @ "_pokeselect" getprop dir ! 
POKEDEX str CURPROP dir @ "/descs" cat rot setprop 
;

: exploder
var dir
var tmp
var pokename 
var propx "/attack/" propx !
"|" explode pop dir ! 
POKEDEX str CURPROP dir @ "/name" cat dir @ dup pokename ! setprop 
POKEDEX str CURPROP dir @ "/type" cat rot setprop 
POKEDEX str CURPROP dir @ "/damage" cat rot setprop 
POKEDEX str CURPROP dir @ "/pp" cat rot setprop 
POKEDEX str CURPROP dir @ "/accuracy" cat rot setprop 
POKEDEX str CURPROP dir @ "/subtype" cat rot setprop 
POKEDEX str CURPROP dir @ "/factor" cat rot setprop 
POKEDEX str CURPROP dir @ "/desc" cat rot setprop 
str "Properties set for '" dir @ "'." cat "@pokemon" pretty tellhere
;


 
: main
command @ "@pokemon" smatch if pokemon exit then
command @ "@pokeattacks" smatch if pokeattacks exit then
command @ "@attack" smatch if attack exit then
command @ "@item" smatch if itemx exit then
command @ "@hm" smatch if hm exit then
command @ "@tm" smatch if tm exit then
command @ "@pokeselect" smatch if pokeselect exit then
command @ "@pokeevolve" smatch if pokeevolve exit then
command @ "@pokeattacks2" smatch if pokeattacks2 exit then
command @ "@tmhm" smatch if tmhm exit then
command @ "@breedmoves" smatch if breedmoves exit then
command @ "@breedcompat" smatch if breedcompat exit then
command @ "@pokedescg" smatch if pokedescg exit then
command @ "@pokedescs" smatch if pokedescs exit then

command @ "@explode" smatch if exploder exit then
"Formats: @pokemon <number>|<name>|<type>|<height>|<weight>|<evolves to>|<evolve method>|<desc>" "@pokemon" pretty tellme
"         @pokeattacks <pokemon>|<attack>|<attack>/<level learned>..." "@pokemon" pretty tellme
"         @attack <name>|<type>|<pp>|<desc>" "@pokemon" pretty tellme
"         @item <name>|<type>|<subtype>|<cost>|<desc>" "@pokemon" pretty tellme
"         @hm <num>|<name>" "@pokemon" pretty tellme
"         @tm <num>|<name>|<cost>" "@pokemon" pretty tellme
;
.
c
q