Threaded Mode | Linear Mode

Skul · 09-26-2012 08:18 PM

This is the packet you'll need to buy an item from a vendor

Code:

[comment sphere]

in sphere.ini add:

packet159=f_packet_0x9f

[function f_packet_0x9f]

ref1=<local.char>

ref2=((<local.6> | (<local.5> * 256)) | (( <local.4> | (<local.3> * 256)) * 65536))

for x 1 <local.8>

    local.item<dlocal.x>=((<local.<eval <local.item> +12>> | (<local.<eval <local.item> +11>> * 256)) | (( <local.<eval <local.item> +10>> | (<local.<eval <local.item> +9>> * 256)) * 65536))

    local.item<dlocal.x>.amount=(<local.<eval <local.item> +13>> | <local.<eval <local.item> +14>>)

    local.item += 6

endfor

for x 1 <local.x>

    if (<uid.<local.item<dlocal.x>>.tag0.override.value>)

        local.cost += <uid.<local.item<dlocal.x>>.tag0.override.value>)

    else

        local.cost += <uid.<local.item<dlocal.x>>.value>

    endif

endfor

if (<eval <ref1.findlayer.21.rescount i_gold> +<ref1.findlayer.29.rescount i_gold>> >= <dlocal.cost>) || (<ref1.isgm>)

    if !(<ref1.isgm>)

        forcont <ref1.findlayer.21>

            if (<local.cost>)

                if (<type>==t_gold)

                    if (<amount> > <local.cost>)

                        amount -= <local.cost>

                        update

                        local.cost=

                    else

                        local.cost -= <amount>

                        remove

                    endif

                endif

            endif

        endfor

        if (<local.cost>)

            forcont <ref1.findlayer.29>

                if (<local.cost>)

                    if (<type>==t_gold)

                        if (<amount> > <local.cost>)

                            amount -= <local.cost>

                            update

                            local.cost=

                        else

                            local.cost -= <amount>

                            remove

                        endif

                    endif

                endif

            endfor

        endif

    endif

    for x 1 <local.x>

        if (<uid.<local.item<dlocal.x>>.amount>==<dlocal.item<dlocal.x>>.amount>)

            ujd.<local.item<dlocal.x>>.cont=<ref1.findlayer.21>

        else

            uid.<local.item<dlocal.x>>.amount -= <local.item<dlocal.x>.amount>

            serv.newitem=<uid.<local.item<dlocal.x>>.baseid>

            new.amount=<local.item<dlocal.x>.amount>

            new.cont=<ref1.findlayer.21>

        endif

    endfor

    ref2.speak That will be <dlocal.cost> gold.  Thank you very much!

else

    ref2.speak You can not afford that.

endif    

ref1.sendpacket 09e w24 d<ref2.uid> w0 d0 w0 w0 w0 w0 w0 0 //I was hoping this line will close the vendor list, but it doesn't do anything.

Threaded Mode \| Linear Mode Vendor Shop HELP
Author	Message