/* Sell Steal Move */
/* Made by Dell Bond */
/* Version 2.0 */

CALL ZocTimeout 60

SAY ""
SAY ""
sector2=zocask("Which sector do you want to steal from after this one?", "0")

CALL ZOCSEND "^M"
CALL ZOCWAIT "]:["
sector1=GetNumber(0,0)

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

do forever

call zocwait "How many holds of"
call skipbuy
call steal

call zocsend sector2
call zocsend "^m"

call zocsend "pt^m^m"
call zocwait "How many holds of"
call skipbuy

call steal

call zocsend sector1
call zocsend "^mpt^m^m"
end


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)