(version 2)
(include "sci.sh")
(exports
    0 aboutCode
)
(use "Main")
(use "Print")
(use "DCIcon")
(use "Cycle")
(use "Obj")
(script 19)


(local
    local0
    local1
    local2[5]

)
(instance public aboutCode of Code
    (properties)

    (method (doit)
        (var temp0[300])
        = local0 (send ((send gMainIconBar:curIcon)):cursor)
        (send gGame:setCursor(999))
        (if (not 
        (if (Message(0 19 2 0 0 1 @temp0) or 1)
            (Print:
                font(0)
                mode(1)
                addTextF(@temp0 global27)
                init()
            )
        )
)
            0
        )(else
            (if (not (Print:
                font(0)
                mode(1)
                addText(2 0 0 2 0 0 19)
                init()
            )
)
                0
            )(else
                (if (not (Print:
                    font(0)
                    mode(1)
                    addText(2 0 0 3 0 0 19)
                    init()
                )
)
                    0
                )(else
                    (if (not (Print:
                        font(0)
                        mode(1)
                        addText(2 0 0 4 0 0 19)
                        init()
                    )
)
                        0
                    )(else
                        (if (not (Print:
                            font(0)
                            mode(1)
                            addText(2 0 0 5 0 0 19)
                            init()
                        )
)
                            0
                        )(else
                            (if (not (Print:
                                font(0)
                                mode(1)
                                addText(2 0 0 6 0 0 19)
                                init()
                            )
)
                                0
                            )(else
                                (if (not (Print:
                                    font(0)
                                    mode(1)
                                    addText(2 0 0 7 0 0 19)
                                    init()
                                )
)
                                    0
                                )(else
                                    (if (not (Print:
                                        font(0)
                                        mode(1)
                                        addText(2 0 0 8 0 0 19)
                                        init()
                                    )
)
                                        0
                                    )(else
                                        (if (not (Print:
                                            font(0)
                                            mode(1)
                                            addText(2 0 0 9 0 0 19)
                                            init()
                                        )
)
                                            0
                                        )(else
                                            (if (not (Print:
                                                font(0)
                                                mode(1)
                                                addText(2 0 0 10 0 0 19)
                                                init()
                                            )
)
                                                0
                                            )(else
                                                (if (not (Print:
                                                    font(0)
                                                    mode(1)
                                                    addText(3 0 0 1 0 0 19)
                                                    init()
                                                )
)
                                                    0
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )
        )
        (self:dispose())
    )


    (method (dispose)
        (send gGame:setCursor(local0 1))
        DisposeScript(19)
    )

)
(instance theIcon1 of DCIcon
    (properties
        cycleSpeed 15
    )

    (method (init)
        (if (local1)
            (send (= cycler (Fwd:new())):init(self))
        )(else
            = cel 0
            (send (= cycler (End:new())):init(self))
        )
    )

)
(instance theIcon2 of DCIcon
    (properties
        cycleSpeed 15
    )

    (method (init)
        (send (= cycler (Fwd:new())):init(self))
    )

)
(instance theIcon3 of DCIcon
    (properties
        cycleSpeed 15
    )

    (method (init)
        (send (= cycler (Fwd:new())):init(self))
    )

)
