
subs to automate Perfect haggle
Code:
:set_haggle
setvar $file GAMENAME & "_HaggleOpt.txt"
delete $file
loadvar $mbbs
loadvar $_CK_PTRADESETTING
if ($mbbs = TRUE)
setvar $mbbs_ep "On"
else
setvar $mbbs_ep "Off"
end
return
:worst_price
write $file "Off"
write $file "On"
write $file $mbbs_ep
write $file $_CK_PTRADESETTING
write $file "Off"
write $file "Off"
write $file "Active"
write $file "On"
return
:best_price
write $file "Off"
write $file "Off"
write $file $mbbs_ep
write $file $_CK_PTRADESETTING
write $file "Off"
write $file "Off"
write $file "Active"
write $file "On"
return
:blue_price
write $file "Off"
write $file "On"
write $file $mbbs_ep
write $file $_CK_PTRADESETTING
write $file "On"
write $file "Off"
write $file "Active"
write $file "On"
return
:speed_price
write $file "Off"
write $file "On"
write $file $mbbs_ep
write $file $_CK_PTRADESETTING
write $file "Off"
write $file "Off"
write $file "Inactive"
write $file "On"
return