# Haggle.cts (haggle.ts) substitute to make TWX's Pack 2 routines compatable w/ EP's haggle.
# Replace the haggle.cts or haggle.ts file in the Include folder with this one.
:haggle
setTextLineTrigger buy :buy "We are selling up to "
setTextLineTrigger sell :sell "We are buying up to "
#new trigger
settextlinetrigger mess :mess "You don't have anything they want"
#sends the worldtrade back to the other port instead of stalling.
pause

:mess
killalltriggers
return

:buy
killtrigger mess
killTrigger getCredits
killTrigger done
setTextTrigger onhand :buyOnHand "]?"
pause
   :buyOnHand
   getWord CURRENTLINE $product 5
   if ($product <> $BuyProd)
      send "0*"
      setTextTrigger getCredits :getCredits "empty cargo holds."
      pause
   end
   send "*"
   # External haggle occurs here
#new trigger
   settexttrigger oops :oops "We're not interested."
#send the haggle to try again. This happens Very Rarely but will stall the worldtrade at times.
   setTextTrigger getCredits :getCredits "empty cargo holds."
   pause

:sell
killtrigger mess
killTrigger getCredits
killTrigger done
send "*"
# External haggle occurs here
settexttrigger oops :oops "We're not interested."
setTextTrigger getCredits :getCredits "empty cargo holds."
pause

:getCredits
killTrigger buy
killTrigger sell
killtrigger oops
getWord CURRENTLINE $Credits 3
stripText $Credits ","
setTextLineTrigger buy :buy "We are selling up to "
setTextLineTrigger sell :sell "We are buying up to "
setTextTrigger done :done "Command [TL="
pause

:oops
killalltriggers
send "p t"
goto :haggle

:done
killTrigger buy
killTrigger sell
killtrigger oops
return