:top
    settextlinetrigger BSTL :bstl "How many holds of "
    pause
:bstl
    setvar $line CURRENTLINE & "@"
    striptext $line "Ore "
    getword $line $product 5
    if ($product <> "Fuel") and ($product <> "Organics") and ($product <> "Equipment")
        goto :top
    end
    getword $line $bstl 10
    if ($bstl <> "take") and ($bstl <> "leave") and ($bstl <> "buy") and ($bstl <> "sell")
        getword $line $bstl 7
        if ($bstl = "swipe?")
            goto :steal
        end
        goto :top
    end
    gettext $line $var "? " "@"
    if ($var = "")
        gettext $line $var "[" "]"
    end
    if ($bstl = "take")
        killalltriggers
        settexttrigger A :takeOk "Planet command (?=help) [D]"
        settexttrigger B :takeNo "There aren't that many on the planet!"
        pause
        :takeOk
            killtrigger B
            if ($product = "Fuel")
                add $ore $var
            elseif ($product = "Organics")
                add $org $var
            elseif ($product = "Equipment")
                add $equ $var
            end
            if ($turnscut = 0)
                setvar $turnscut 1
            end
            goto :update
        :takeNo
            killtrigger A
            goto :top
    elseif ($bstl = "leave")
        killalltriggers
        settexttrigger A :leaveOk "Planet command (?=help) [D]"
        settexttrigger B :leaveNo "They don't have room for that many on the planet!"
        pause
        :leaveOk
            killtrigger B
            if ($product = "Fuel")
                subtract $ore $var
            elseif ($product = "Organics")
                subtract $org $var
            elseif ($product = "Equipment")
                subtract $equ $var
            end
            goto :update
        :leaveNo
            killtrigger A
            goto :top
    elseif ($bstl = "buy")
        :buyPrice
            killalltriggers
            settextlinetrigger A :buyNo "Your offer ["
            settextlinetrigger B :buyOk " empty cargo holds."
            settextlinetrigger C :buyOk "Command [TL="
            settextlinetrigger D :buyOk "We are selling up to "
            settextlinetrigger E :top "We're not interested."
            settextlinetrigger F :buyExp "For your great trading you receive"
            pause
        :buyNo
            killalltriggers
            getword CURRENTLINE $cash 5
            if ($cash = "")
                gettext $line $cash "[" "]"
            end
            goto :buyPrice
        :buyOk
            killalltriggers
            subtract $creds $cash
            if ($product = "Fuel")
                add $ore $var
            elseif ($product = "Organics")
                add $org $var
            elseif ($product = "Equipment")
                add $equ $var
            end
            goto :update
        :buyExp
            getword CURRENTLINE $expup 7
            add $exp $expup
            pause
    elseif ($bstl = "sell")
        :sellPrice
            killalltriggers
            settextlinetrigger A :sellNo "Your offer ["
            settextlinetrigger B :sellOk " empty cargo holds."
            settextlinetrigger C :sellOk "Command [TL="
            settextlinetrigger D :sellOk "We are selling up to "
            settextlinetrigger E :top "We're not interested."
            settextlinetrigger F :sellExp "For your great trading you receive"
            pause
        :sellNo
            killalltriggers
            getword CURRENTLINE $cash 5
            if ($cash = "")
                gettext $line $cash "[" "]"
            end
            goto :sellPrice
        :sellOk
            killalltriggers
            subtract $creds $cash
            if ($product = "Fuel")
                subtract $ore $var
            elseif ($product = "Organics")
                subtract $org $var
            elseif ($product = "Equipment")
                subtract $equ $var
            end
            goto :update
        :sellExp
            getword CURRENTLINE $expup 7
            add $exp $expup
            pause
    end

    :steal
        gettext $line $var "] " "@"
        if ($var = "")
            gettext $line $var "[" "]"
        end
        killalltriggers
        settexttrigger A :stealOk "You start your droids loading the cargo and"
        settexttrigger B :stealNo "There aren't that many holds of"
        pause
        :stealOk
            killalltriggers
            if ($product = "Fuel")
                add $ore $var
            elseif ($product = "Organics")
                add $org $var
            elseif ($product = "Equipment")
                add $equ $var
            end
            if ($turnscut = 0)
                setvar $turnscut 1
            end
            goto :update
        :stealNo
            killalltriggers
            goto :top

:update
   updates the script window yada yada yada