/* REXX Equipment Buy down Script
        Written  bye Ripclaw


        NOTICE: This script will dump equip on 
*/

/* ====================================================

!!!! IF not planet number = 0 it dumps on the lowest number
!!!! planet.  If you wish to use another planet number please
!!!! add it here..                                      


!!!! 0 for default!                                     */

planet = 0

IF planet <> 0 THEN planet = planet || "^M"

/* ==================================================== */
say ""
say ""
say"How many cycles do you wish too run?"
PULL CYCLES1

CALL ZocTimeout 120

CALL ZocSend "D"
CALL ZocWait "Class "
CALL ZocWait " ("


temp = ZocLastLine()
class = substr(temp, 1, 1)
reject = "^m"
one = "0^m^m"
two = "0^m0^m^m"


IF class = 1 THEN reject = "^m"
IF class = 2 THEN z = BadPort()
IF class = 3 THEN z = BadPort()
IF class = 4 THEN z = BadPort()
IF class = 5 THEN reject = one
IF class = 6 THEN reject = one
IF class = 7 THEN reject = two


DO CYCLES1
        CALL ZocSend "PT"
        CALL ZocSend reject
        CALL ZocWait "offer ["
        price=GETITALL()
        offer=(price*(144/100))%1
        CALL ZocSend offer || "^M"
        result=ZocWaitMux("offer [", "Command", "ou only")
        select
                WHEN result=0 THEN DO
                        offer=(price*(144/100))%1
                        CALL ZocSend offer || "^M"
                        result=ZocWaitMux("offer [", "Command")
                        select
                                WHEN result=0 THEN DO
                                        offer=(price*(142/100))%1
                                        CALL ZocSend offer || "^M"
                                        result=ZocWaitMux("offer [", "Command")
                                        select
                                                WHEN result=0 THEN DO
                                                        offer=(price*(139/100))%1
                                                        CALL ZocSend offer || "^M"
                                                        result=ZocWaitMux("offer [", "Command")
                                                        select
                                                                WHEN result=0 THEN DO
                                                                        offer=(price*(135/100))%1
                                                                        CALL ZocSend offer || "^M"
                                                                        result=ZocWaitMux("offer [", "Command")
                                                                        select


                                                                                WHEN result=0 THEN DO
                                                                                        offer=(price*(128/100))%1
                                                                                        CALL ZocSend offer || "^M"
                                                                                        result=ZocWaitMux("offer [", "Command")
                                                                                        select
                                                                                              WHEN result=0 THEN ZocSend "^M"
                                                                                              WHEN result=1 THEN offer=0
                                                                                        END  /* select */
                                                                                END /* when */
                                                                                WHEN result=1 THEN offer=0
                                                                        END  /* select */
                                                                END /* when */
                                                        WHEN result=1 THEN offer=0
                                                        END /* select */
                                                END /* when */
                                        WHEN result=1 THEN offer=0
                                        END /* select */
                                END /* when */
                        WHEN result=1 THEN offer=0
                        END  /* select */
                END /* when */
                WHEN result=1 THEN offer=0
                WHEN result=2 THEN NoMoney()
        END

CALL ZocSend "l"
IF planet = 0 THEN DO
        result=ZocWaitMux("   <", "Planet command")
        SELECT
                WHEN result=0 then x="1"
                WHEN result=1 then planet=""
        END
        if x=1 then DO
                CALL ZocWait ">"
                planet=ZocLastLine()
                planet=planet||"^M"
        END
END
CALL ZocSend planet || "tnl3^Mq"

END
EXIT



BadPort:
CALL ZocMsgBox "C A N N O T    B U Y     E Q U I P M E N T    F R 0 M    T H I S    P O R T", 1
EXIT


NoMoney:
CALL ZocSend "0^M"
CALL ZocMsgBox " N O   M O N E Y ! ! ! ", 1
EXIT


GETITALL:
offerfinal=""
call zocwait "]"
portoffer=zoclastline()
DO i=1 to length(portoffer)
        temp=substr(portoffer,i,1)
        IF temp <> "]" THEN DO
          IF temp <>"," THEN offerfinal=offerfinal||temp
        END
END


RETURN offerfinal