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

CALL ZocTimeOut 3600
call zocrespond "[Pause]", "^m"
call zocrespond "avoids?", "n"

password = ZocAskp("What is your password?")

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

do forever

call skipbuy
call steal

call zocsend "qyt"
call zocsend "^mn^m"
call zocsend password
call zocsend "^m"
call zocwait "Option? (A,D,I,R,P,?)"
call zocsend "rpy"
call zocwait "Command"
call zocsend "pt^m^m"

call zocwait "How many holds of"

call skipbuy
call steal

call zocsend "qyt"
call zocsend "^mn^m"
call zocsend password
call zocsend "^m"
call zocwait "Option? (A,D,I,R,P,?)"
call zocsend "rpy"
call zocwait "Command"
call zocsend "pt^m^m"
call zocwait "How many holds of"

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

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 
	call zocnotify "Script Stop"
	exit
	end
RETURN(0)

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)