(version 2)
(include "sci.sh")
(exports
    0 rm13
)
(use "Main")
(use "Sound")
(use "Game")
(use "View")
(use "Obj")
(script 13)

(instance public rm13 of Rm
    (properties
        picture 1300
        style $000a
    )

    (method (init)
        (super:init())
        (send gLongSong:
            number(110)
            setLoop(-1)
            play(10)
            fade(127 10 30 0)
        )
        (send global2:setScript(waitAWhile))
    )


    (method (dispose)
        (send gMH:delete(waitAWhile))
        (send gKH:delete(waitAWhile))
        (super:dispose())
    )

)
(instance waitAWhile of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOn())
                (send gMH:addToFront(waitAWhile))
                (send gKH:addToFront(waitAWhile))
                = ticks 800
            )
            (case 1
                (send global2:newRoom(801))
            )
        )
    )


    (method (handleEvent pEvent)
        (if ((== (send pEvent:type) evKEYBOARD) and (== (send pEvent:message) KEY_RETURN))
            (send global1:handsOn())
            (send global2:newRoom(801))
        )
        (if (((== (send pEvent:type) evMOUSEBUTTON) and (> (send pEvent:x) 290)) and (> (send pEvent:y) 175))
            (send global1:handsOn())
            (send global2:setScript(highlightArrow))
        )
        (super:handleEvent(pEvent))
    )

)
(instance highlightArrow of Script
    (properties)

    (method (changeState newState)
        (switch (= state newState)
            (case 0
                (send global1:handsOff())
                (mySound:
                    number(910)
                    loop(1)
                    play()
                )
                (anArrow:
                    setCel(1)
                    init()
                )
                = ticks 24
            )
            (case 1
                (anArrow:setCel(0))
                = ticks 6
            )
            (case 2
                (send global2:newRoom(801))
            )
        )
    )

)
(instance anArrow of View
    (properties
        x 313
        y 198
        view 1302
        priority 15
        signal $0010
    )
)
(instance mySound of Sound
    (properties)
)
