Threaded Mode | Linear Mode

Skul · 09-24-2012 02:41 PM

tag.override.value would be great.

this is the best script I could 'muster' up, it sendpacket doesn't work at all, not sure why exactly, here it is:

Code:

[function testbuy]

sysmessage Buy from who?

targetf f_testbuy

[function testbuy]

if (<argo.ischar>)

    if (<argo.npc>==brain_vendor)

        if (<argo.findlayer.26.rescount>)

            forcont <argo.findlayer.26>

                if (<tag0.override.value>)

                    local.x += 1

                    local.id<dlocal.x>.value=<tag0.override.value>

                    local.id<dlocal.x>.name=<name>

                elseif (<value>)

                    local.x += 1

                    local.id<dlocal.x>.value=<value>

                    local.id<dlocal.x>.name=<name>

                endif

            endfor

            if (<local.x>)

                for x 1 <local.x>

                    if (strmatch(<local.packet>,0))

                        local.packet=d<local.id<dlocal.x>.value> <eval strlen(<local.id<dlocal.x>.name>)> <char_to_asc <local.id<dlocal.x>.name>>

                    else

                        local.packet=<local.packet> d<local.id<dlocal.x>.value> <eval strlen(<local.id<dlocal.x>.name>)> <char_to_asc <local.id<dlocal.x>.name>>

                    endif

                endfor

                sendpacket 074 <totalargs 074 0 d<targ.uid> <local.x> <local.packet>> d<targ.uid> <local.x> <local.packet>

            endif

        else

            argo.speak i have nothing to sell.

        endif

    endif

endif

[function char_to_asc]

if !(<isempty <args>>)

    local.x=<eval strlen(<args>)>

    local.args=<args>

    while (<local.x>)

        if (strmatch(<local.return>,0))

            local.return=<asc <strsub 0 1 <local.args>>>

        else

            local.return=<local.return> <asc <strsub 0 1 <local.args>>>

        endif

        local.args=<strsub 1 0 <local.args>>

        local.x -= 1

    endwhile

endif

return <local.return>

[function totalargs]

if !(<isempty <args>>)

    local.args=<args>

    while !(strmatch(<local.args>,0))

        local.x += 1

        local.args=<streat <local.args>>

    endwhile

endif

return <dlocal.x>

[eof]

Threaded Mode \| Linear Mode Vendor Shop HELP
Author	Message