Threaded Mode | Linear Mode

Sirocco · 02-08-2016 06:04 PM

make it self with sources

Code:

[FUNCTION f_arraysort]

if !strlen(<args>)

    local.count = "0"

    return 0

endif

if <eval((<args> / 1000) * 1000)> > 0

    local.count = "<eval(<args>)>"

elseif <eval((<args> / 100) * 100)> > 0

    local.count = "0<eval(<args>)>"

elseif <eval(<args> / 10)> > 0

    local.count = "00<eval(<args>)>"

elseif <eval(<args> / 10)> == 0

    local.count = "000<eval(<args>)>"

endif

return 1

fortags member_* 

    local.num = 0<local.num> + 1

    plocal.char= <local._var_value>

    call f_arraysort <plocal.char.tag.char_questnumber>

    ptag.charexp<local.count>_<plocal.char.uid> = <plocal.char.uid>

endfor

local.place = <eval <tag.char_count> + 1>

forptags charexp*

    local.place = <local.place> - 1

    plocal.char= <local._var_value>

    tag.temp_<eval(<local.place>)> = <plocal.char.uid>

endfor

fortags temp_*

//

endfor

Threaded Mode \| Linear Mode Loop on tags.
Author	Message