execute an action in a dropdownbox

[Landiin]

Actually this is better coding here.. It checks to see if a script actually needs to be executed..

<?xml version="1.0" encoding="utf-8"?>
<Page BackgroundColor="#554736" eq2usescomwndcontrols="true" Name="tp" OnHide="visible=True" ScrollExtent="220,20" Size="220,20" UserMovable="true">
    <Page AbsorbsInput="false" BackgroundOpacity="1.000" Name="Frame" PackLocation="left,top" PackSize="absolute,absolute" RStyleDefault="/rectlist.win_plain" ScrollExtent="221,21" Size="221,21" />
	<Button Location="1,1" Name="TpButton" OnActivate="" OnPress="Activated=Parent.Tp_Dropdownbox.SelectedItem.IsScript OnActivate=Parent.Tp_Dropdownbox.SelectedItem.Script" ScrollExtent="19,19" Size="19,19" Style="/CommonElements.SmallPushButton" />
    <Dropdownbox DataSource="TpDestinationDS" Location="20,2" Name="Tp_Dropdownbox" OnSelect="Activated=SelectedItem.IsScript OnActivated=SelectedItem.Script" PackSize="a,f" RowTemplate="/Templates.dropdowntemplate" ScrollExtent="197,18" Size="197,18" Style="/Fetish.dropdownlist.dropdown_default" />
    <DataSource Name="TpDestinationDS">
        <Data Name="TP000" text="Choose Your Destination..." IsScript="false"/>
        <Data Name="TP001" text="-------------------Spell-------------------" IsScript="false" />
        <Data Name="TP002" text="Spire Portal" IsScript="true" Script="useability 1634378213
Activated=False"/>
        <Data Name="TP003" text="Druid Ring Portal" IsScript="true" Script="useability 41973245
Activated=False"/>
        <Data Name="TP004" text="Home Sweet Home" IsScript="true" Script="useability 368171195
Activated=False"/>
        <Data Name="TP005" Text="Guild Hall" IsScript="true" Script="useability 3266969222
Activated=False" />
        <Data Name="TP006" text="----------------Item--------------------" IsScript="false" />
        <Data Name="TP007" text="Quel'ule" IsScript="true" Script="inventory equipvdl -703437333
use_itemvdl -703437333
Activated=False" />
        <Data Name="TP008" />
        <Data Name="TP009" />
        <Data Name="TP010" />
    </DataSource>    
    <Page AbsorbsInput="false" BackgroundOpacity="1.000" Name="Framebutton" PackLocation="left,top" PackSize="absolute,absolute" RStyleDefault="/rectlist.win_plain" ScrollExtent="21,21" Size="21,21" />
    <Page AbsorbsInput="false" BackgroundOpacity="1.000" eq2usecomwndcontrols="true" Location="0,-1" Name="Bkg" PackSize="absolute,absolute" RStyleDefault="/SpecialElements.Compass.data.bkg.rect" ScrollExtent="218,22" Size="218,22" />
</Page>