PM-WIP1

_amp_par_shape = [
    cond (>< $arg1 0 2) [
        _amp_par_name = "Circle"
    ] (>< $arg1 3 5) [
        _amp_par_name = "Cylinder Shell"
    ] (>< $arg1 6 11) [
        _amp_par_name = "Cone Shell"
    ] (>< $arg1 12 14) [
        _amp_par_name = "Cubic Volume"
    ] (>< $arg1 15 20) [
        _amp_par_name = "Line Volume"
    ] (>< $arg1 21 23) [
        _amp_par_name = "Sphere"
    ] (>< $arg1 24 26) [
        _amp_par_name = "Square"
    ] (>< $arg1 27 31) [
        _amp_par_name = "Orb"
    ] [_amp_par_name = "Invalid"]
]

_amp_par_main = [
    "Flames"
    "Shape Shifting"
    "Capture Bars"
    "Lens Flare"
    "Legacy Types"
]
_amp_par_sub = [
    ["Normal Fire" "Soul Fire" "Smoke Only"]
    [Flare Lightning Smoke Water Snow]
    ["Normal Meter" "Versus Meter"]
    ["Normal Flare" "Normal Flare + Sparkle" "Fixed Flare" "Fixed Flare + Sparkle"]
    [Steam Water Explosion]
]
_amp_par_order = [
    [0 11 12]
    [4 7 9 10 13]
    [5 6]
    [32 33 34 35]
    [1 2 3]
]

_amp_par_type = 0
_amp_par_subtype = 0



newgui particles [
    guistayopen [
        cond (= $_amp_par_type 0) [





        ]
        guitab "Type"
        loop c 5 [
            guibutton (at $_amp_par_main $c) [
                _amp_par_type = @c
                tmp0 = (rndo (at $_amp_par_order @c))
                _amp_par_subtype = $tmp0
                entupdate
            ] (_amp_img (? (= $_amp_par_type $c) "radio_on" "radio_off"))
            if (= $_amp_par_type $c) [
                guilist [
                    guilist [guistrut 4 1]
                    guilist [
                        i = (at $_amp_par_order $_amp_par_type)
                        loop z (listlen $i) [
                            n = (at $i $z) // particle number
                            guicondbutton (= $n $tmp0) "^f0" "" (at (at $_amp_par_sub $_amp_par_type) $z) [
                                _amp_par_subtype = @n
                                tmp0 = $_amp_par_subtype
                                entupdate
                            ] 1 (_amp_img "sel") (_amp_img "radio_off")
                        ]
                    ]
                ]
            ]
        ]
    ]
] "Particles" [
    _amp_par_subtype = $tmp0
    _amp_par_type = (listfind p $_amp_par_order [> (indexof $p $tmp0) -1])
]