/* Sell Steal Transport */
/* Made by Dell Bond */
/* Version 1.0 */

Ship2=ZocAsk("Which ship do you want to transport to after this one?", "0")

Ship1=ZocAsk("Which ship are you in right now?", "0")

call zocsend "pt"
call zocwait "you want to sell ["
holdz=GetNumber(0,0)
call zocsend "^m^m"

do forever

call skipbuy
call steal

call zocsend "x"
call zocsend ship2
call zocsend "^mq"

call zocsend "pt^m^m"
call zocwait "are selling up"

call skipbuy
call steal

call zocsend "x"
call zocsend ship1
call zocsend "^mq"

call zocsend "pt^m^m"
call zocwait "are selling up"

end

exit

GetNumber:
holdfinal=""
call zocwait "]"
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal
                                                          
skipbuy:
result= ZocWaitMux("o you want to buy", "Command")
SELECT
        WHEN result=0 THEN x="1"
        WHEN result=1 THEN x="2"
end
if x=1 then call zocsend "0^M"
if x=2 then RETURN(0)

result= ZocWaitMux("o you want to buy", "Command")
SELECT
        WHEN result=0 THEN x="1"
        WHEN result=1 THEN x="2"
end
if x=1 then call zocsend "0^M"
if x=2 then RETURN(0)
RETURN(0)

steal:
call zocsend "pr"
call zocsend "^M"
call zocsend "s3"
call zocsend holdz
call zocsend "^M"
result = zocwaitmux("Success!","Suddenly you're Bust","aren't that many holds")
select
WHEN result=0 then bust=0
when result=1 then bust=1
when result=2 then bust=2
end
if bust=1 then exit
if bust=2 then do
	zocsend "o31^Mq"
	call zocwait "]:["
	call zocsend "pr"
	call zocsend "^M"
	call zocsend "s3"
	call zocsend holdz
	call zocsend "^M"
	result = zocwaitmux("Success!","Suddenly you're Bust")
	select
	WHEN result=0 then bust=0
	when result=1 then bust=1
	end
	if bust=1 then exit
	end
RETURN(0)