reqRecording
logging off

gosub :9_dupescripts~scriptcheck

setVar $Header~Script "World Trade"
loadvar $_CK_PTRADESETTING
if ($_CK_PTRADESETTING = 0)
loadvar $PTRADESETTING
setvar $_CK_PTRADESETTING $PTRADESETTING
end
setvar $PercTrade $_CK_PTRADESETTING
setvar $PPT~PercTrade $_CK_PTRADESETTING

listActiveScripts $scripts
setvar $a 1
while ($a <= $scripts)
lowercase $scripts[$a]
if ($scripts[$a] = "ep_haggle2010.cts")
stop ep_haggle2010
end
add $a 1
end

:set_haggle
setvar $file GAMENAME & "_HaggleOpt.txt"
delete $file
loadvar $mbbs
if ($mbbs = TRUE)
setvar $mbbs_ep "On"
else
setvar $mbbs_ep "Off"
end
write $file "Off"
write $file "Off"
write $file $mbbs_ep
write $file $_CK_PTRADESETTING
write $file "On"
write $file "Off"
write $file "Active"
write $file "On"

killalltriggers
seteventtrigger hag0 :hag0 "SCRIPT LOADED"
setdelaytrigger wait0 :wait 30000
load ep_haggle2010
send "*"
waiton "Command [TL="
pause
:hag0
killalltriggers
# check location
waiton #179
send "*"
waiton "ommand"
waiton #179
send "*"
waiton "ommand"
cutText CURRENTLINE $location 1 12
if ($location <> "Command [TL=")
        clientMessage "This script must be run from the command menu"
        halt
end



# get defaults    <<<<<<<<< Look for this line in 2_worldtrade.ts

#:9_dupescripts~scriptcheck
:scriptcheck
#set array
listActiveScripts $scripts
listActiveScripts $scriptsx
#end load background scripts check for duplicates
:duplicates
setvar $a 1
:duplicates0
while ($a <= $scripts)
setvar $b 1
lowercase $scripts[$a]
while ($b <= $scripts)
lowercase $scriptsx[$b]
if (($a <> $b) and ($scripts[$a] = $scriptsx[$b]))
stop $scripts[$a]
goto :scriptcheck
end
add $b 1
end
add $a 1
end
return