/* REXX (CREATED BY ZOC LEARN MODE) */

CALL ZocTimeout 3600

SAY ""
SAY ""
SAY "SST script will steal in current sector first."
SAY "What is the ship number of the ship you're going to?"
PULL SHIP2
say ""
say ""
SAY "What is the ship number of the ship you're currently in?"
PULL SHIP1


holds1=0
holds2=0
DO 10000

z=STEALSDT(0)
if z=1 then do
        CALL ZocSend "pn"
        call zocwait "   <"
        call zocwait ">"
        planet=zoclastline()
        call zocsend planet
        call zocsend "^M"
        call zocwait "sell ["
        call zocsend "^M"
        call zocwait "our offer ["
        offer=GETITALL(0,0)
z=SELLHAGGLE(offer)
end

call zocwait "Command"
call zocsend "l"
result= ZocWaitMux("   <", "Planet command")
SELECT
        WHEN result=0 THEN x="1"
        WHEN result=1 THEN x="2"
end

if x=1 then do
        call zocwait ">"
        planet=zoclastline()
        call zocsend planet
        call zocsend "^M"
end

call zocsend "tnl3^Mq"

call zocsend "x"
call zocWait "ship to beam to (Q=Quit)"
call zocsend SHIP2
call zocsend "^M"
call zocwait "Security code accepted"
call zocwait "ship to beam to (Q=Quit)"
call zocsend "q^M"
call zocwait "Command"


z=STEALSDT(0)
if z=1 then do
        CALL ZocSend "pn"
        call zocwait "   <"
        call zocwait ">"
        planet=zoclastline()
        call zocsend planet
        call zocsend "^M"
        call zocwait "sell ["
        call zocsend "^M"
        call zocwait "our offer ["
        offer=GETITALL(0,0)
z=SELLHAGGLE(offer)
end


call zocwait "Command"
call zocsend "l"
result= ZocWaitMux("   <", "Planet command")
SELECT
        WHEN result=0 THEN x="1"
        WHEN result=1 THEN x="2"
end

if x=1 then do
        call zocwait ">"
        planet=zoclastline()
        call zocsend planet
        call zocsend "^M"
end

call zocsend "tnl3^Mq"


call zocsend "x"
call zocWait "ship to beam to (Q=Quit) "
call zocsend SHIP1
call zocsend "^M"
call zocwait "Security code accepted"
call zocwait "ship to beam to (Q=Quit) "
call zocsend "q^M"
call zocwait "Command"

END

exit



STEALSDT:
call zocsend "pr"
call zocsend "^M"
call zocsend "s"
call zocwait "Equipment"
call zocwait "Buying"
call zocwait "   "
call zocwait "   "
call zocwait "      "
portproduct=""
holdfinal=""
portproduct=zoclastline()
DO addchar=1 to length(portproduct)
        product=substr(portproduct,addchar,1)
        if product<>"]" then DO
          if product<>"," then DO
            if product<>" " then holdfinal=holdfinal||product
          end
        end
END

holdfinal2=""
call zocsend "3"
call zocwait "to swipe? ["
call zocwait "]"
holds1=""
holds1=zoclastline()
DO addchar=1 to length(holds1)
        holdsone=substr(holds1,addchar,1)
        if holdsone<>"]" then DO
          if holdsone<>"," then DO
            if holdsone<>" " then holdfinal2=holdfinal2||holdsone
          end
        end
END

selloff=1
if holdfinal>holdfinal2 then DO
        holdfinal=holdfinal2
        selloff=0
end
call zocsend holdfinal
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
RETURN(selloff)


GETITALL:
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
                                                          

SELLHAGGLE:
               
offer1=arg(1)
haggle106=offer1*106/100-1
haggle106=trunc(haggle106,0)
haggle105=offer1*105/100-1
haggle105=trunc(haggle105,0)
haggle104=offer1*104/100-1
haggle104=trunc(haggle104,0)
haggle103=offer1*103/100-1
haggle103=trunc(haggle103,0)
haggle102=offer1*102/100-1
haggle102=trunc(haggle102,0)
haggle101=offer1*101/100-1
haggle101=trunc(haggle101,0)

call zocsend haggle106
call zocsend "^M"

a=2
DO WHILE a<>0
result= ZocWaitMux("our offer", "You have", "we're not int", "final offer")
SELECT
        WHEN result=0 THEN x="1"
        WHEN result=1 THEN x="2"
        WHEN result=2 THEN x="3"
        WHEN result=3 THEN x="4"
end

if x=1 then DO
        if a=4 then do
        call zocsend haggle105
        call zocsend "^M"
        end
        if a=3 then do
        call zocsend haggle104
        call zocsend "^M"
        end
        if a=2 then do
        call zocsend haggle103
        call zocsend "^M"
        end
        if a=1 then do
        call zocsend haggle102
        call zocsend "^M"
        end
        if a=0 then do
        call zocsend haggle101
        call zocsend "^M"
        end
a=a-1
end

if x=2 then do
        a=1
        return(0)
        end
if x=3 then do
        return(0)
        dead=1
end
if x=4 then do
        call zocsend haggle104
        call zocsend "^M"
end

END

RETURN(0)