(include "sci.sh")
(use "Main")
(use "eureka")
(use "Print")
(use "Obj")
(script 219)



(instance public sCommandWD40 of Script
    (properties)

    (method (dispose param1)
        (super:dispose(rest param1))
        DisposeScript(219)
        DisposeScript(205)
    )


    (method (changeState newState)
        (var temp0[20])
        (switch (= state newState)
            (case 0
                ((send gSQ5:handsOff()) (send (ScriptID(202 14)):setScript(0)) (send (ScriptID(1887 24)):disposeWhenDone(0)) = cycles 1  )
            )
            (case 1
                ((send gSQ5:handsOn()) (send gSq5IconBar:select((send gSq5IconBar:at(2)))) (send gSQ5:setCursor(982 1)) = register (Print:
                        mode(1)
                        window(ScriptID(205 0))
                        width(125)
                        addColorButton(0 1 0 0 24 0 0 205 13 29 31 0 0 0)
                        addColorButton(1 1 0 0 25 0 10 205 13 29 31 0 0 0)
                        addColorButton(2 1 0 0 26 0 20 205 13 29 31 0 0 0)
                        addColorButton(3 1 0 0 27 0 30 205 13 29 31 0 0 0)
                        addColorButton(4 1 0 0 28 0 40 205 13 29 31 0 0 0)
                        init()
                    )
 = cycles 1  )
            )
            (case 2
                (
                (switch (register)
                    (case 0
                        ((self:setScript(sScanPlanet self))  )
                    )
                    (case 1
                        ((self:setScript(sScanShips self))  )
                    )
                    (case 2
                        ((self:setScript(sStatusReport self))  )
                    )
                    (case 3
                        ((self:setScript(sRecommendation self))  )
                    )
                    (case 4
                        ((self:setScript(sBelayThatOrder self))  )
                    )
                    (default 
                        (= cycles 1 )
                    )
                )
  )
            )
            (case 3
                (
                (if (<> register 4)
                    (send gTestMessager:say(43 0 0 2 self))
                    = state 0
                )(else
                    = cycles 1
                )
 )
            )
            (case 4
                ((send gSQ5:handsOn()) (send gSq5IconBar:select((send gSq5IconBar:at(2)))) (send gSQ5:setCursor(982 1)) (send (ScriptID(1887 24)):disposeWhenDone(1)) (self:dispose()) )
            )
        )
    )

)
(instance sScanPlanet of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (
                (switch (gEurekaCurLocation)
                    (case 1
                        ((send gTestMessager:say(33 0 48 1 self))  )
                    )
                    (case 2
                        ((send gTestMessager:say(33 0 48 1 self))  )
                    )
                    (case 5
                        (
                        (if (proc0_1(30))
                            (send gTestMessager:say(33 0 27 1 self))
                        )(else
                            (send gTestMessager:say(33 0 27 2 self))
                        )
 )
                    )
                    (case 3
                        ((send gTestMessager:say(33 0 56 1 self))  )
                    )
                    (case 6
                        ((send gTestMessager:say(33 0 30 1 self))  )
                    )
                    (case 7
                        ((send gTestMessager:say(33 0 28 1 self))  )
                    )
                    (case 8
                        ((send gTestMessager:say(33 0 28 2 self))  )
                    )
                    (case 9
                        ((send gTestMessager:say(33 0 31 1 self))  )
                    )
                    (case 10
                        ((send gTestMessager:say(33 0 31 2 self))  )
                    )
                    (case 11
                        ((send gTestMessager:say(33 0 31 3 self))  )
                    )
                    (case 12
                        ((send gTestMessager:say(33 0 31 4 self))  )
                    )
                    (case 13
                        ((send gTestMessager:say(33 0 31 5 self))  )
                    )
                    (case 14
                        ((send gTestMessager:say(33 0 5 2 self))  )
                    )
                    (default 
                        ((send gTestMessager:say(33 0 5 Random(1 3) self)) )
                    )
                )
  )
            )
            (case 1
                ((self:dispose()) )
            )
        )
    )

)
(instance sScanShips of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (
                (switch (gEurekaCurLocation)
                    (case 6
                        (
                        (if (proc0_1(42))
                            (if ((eureka:damaged))
                                (send gTestMessager:say(34 0 20 1 self))
                            )(else
                                (send gTestMessager:say(34 0 22 1 self))
                            )
                        )(else
                            (send gTestMessager:say(34 0 30 1 self))
                        )
 )
                    )
                    (case 14
                        (
                        (if (proc0_1(39))
                            (send gTestMessager:say(34 0 49 4 self))
                        )(else
                            (send gTestMessager:say(34 0 49 3 self))
                        )
 )
                    )
                    (default 
                        (
                        (if (proc0_1(37))
                            (if (proc0_1(39))
                                (send gTestMessager:say(34 0 49 4 self))
                            )(else
                                (send gTestMessager:say(34 0 49 3 self))
                            )
                        )(else
                            (if (proc0_1(75))
                                (send gTestMessager:say(34 0 49 1 self))
                            )(else
                                (send gTestMessager:say(34 0 5 Random(1 3) self))
                            )
                        )
 )
                    )
                )
  )
            )
            (case 1
                ((self:dispose()) )
            )
        )
    )

)
(instance sStatusReport of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (
                (if (>= (eureka:puke) 4)
                    (send gTestMessager:say(41 0 16 1 self))
                )(else
                    (send gTestMessager:say(41 0 5 Random(1 3) self))
                )
 )
            )
            (case 1
                ((self:dispose()) )
            )
        )
    )

)
(instance sRecommendation of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (
                (if (((== gEurekaCurLocation 5) and proc0_1(30)) and (== global142 0))
                    (send gTestMessager:say(30 0 27 1 self))
                )(else
                    (if (((== gEurekaCurLocation 6) and proc0_1(94)) and not proc0_1(63))
                        (send gTestMessager:say(30 0 30 0 self))
                    )(else
                        (if (proc0_1(42))
                            (if ((eureka:hits))
                                (switch (Random(1 2))
                                    (case 1
                                        (send gTestMessager:say(30 0 11 1 self))
                                    )
                                    (case 2
                                        (send gTestMessager:say(30 0 20 1 self))
                                    )
                                )
                            )(else
                                (send gTestMessager:say(30 0 49 1 self))
                            )
                        )(else
                            (if ((== gEurekaCurLocation 15) and not proc0_1(87))
                                (send gTestMessager:say(30 0 40 0 self))
                            )(else
                                (if ((== gEurekaCurLocation 8) and not proc0_1(75))
                                    (send gTestMessager:say(30 0 28 0 self))
                                )(else
                                    (if ((eureka:damaged))
                                        (send gTestMessager:say(30 0 11 1 self))
                                    )(else
                                        (if (== gEurekaCurLocation 14)
                                            (send gTestMessager:say(30 0 50 0 self))
                                        )(else
                                            (send gTestMessager:say(30 0 5 Random(1 3) self))
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
 )
            )
            (case 1
                ((self:dispose()) )
            )
        )
    )

)
(instance sBelayThatOrder of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                ((send gTestMessager:say(3 0 5 Random(1 3) self))  )
            )
            (case 1
                ((self:dispose()) )
            )
        )
    )

)
