(version 2)
(include "sci.sh")
(exports
    0 rm101
)
(use "Main")
(use "Print")
(use "Game")
(script 101)



(procedure (localproc_002d)
    (var temp0, temp1[5])
    = temp1 0
    = temp0 (Print:
            addText(1 0 1 1 0 12)
            addEdit(@temp1 5 120 12)
            addButton(200 1 0 0 1 0 26)
            addButton(320 1 0 0 2 120 26)
            addButton(410 1 0 0 3 0 40)
            addButton(490 1 0 0 4 120 40)
            addButton(720 1 0 0 5 0 54)
            addButton(999 1 0 0 6 120 54)
            init()
        )
    (if (temp1)
        (send global2:newRoom(ReadNumber(@temp1)))
    )(else
        (switch (temp0)
            (case 200
                (send global2:newRoom(200))
            )
            (case 320
                (send global2:newRoom(320))
            )
            (case 410
                (send global2:newRoom(410))
            )
            (case 490
                (send global2:newRoom(490))
            )
            (case 720
                (send global2:newRoom(720))
            )
            (case 999
                (send global2:newRoom(130))
            )
            (default 
                (send global2:newRoom(210))
            )
        )
    )
)


(instance public rm101 of Rm
    (properties)

    (method (init)
        DrawPic(0)
        Animate((send gGQg3KDHandler:elements) 0)
        (super:init())
        localproc_002d()
    )

)
