В общем-то уже работает. Высокоурвневых слов пока нет, но пощупать можно так:
.
code forth
: new-skill ( skill-id level -- L2Skill )
"net.sf.l2j.gameserver.SkillTable" class "getInstance" 0 jget
"getInfo" { int.class int.class } jget
;
: use-skill ( L2Skill player -- )
over if
>r 0 boolean 0 boolean r> "useMagic" { "net.sf.l2j.gameserver.model.L2Skill" class bool.class bool.class } jexe else
2drop
then
;
1177 5 new-skill player@ use-skill
Используется Wind Strike 5-го уровня.