(version 2)
(include "sci.sh")
(exports
    0 rgHalo
)
(use "Main")
(use "Class_255_0")
(use "Cycle")
(use "Game")
(use "PicView")
(script 616)



(instance public rgHalo of Rgn
    (properties)

    (method (init)
        Load(rsVIEW 702)
        (halo:
            init()
            hide()
            ignoreHorizon()
            illegalBits(0)
            ignoreActors()
            setCycle(Fwd)
        )
        (super:init())
    )


    (method (doit)
        (var temp0)
        (asm
            lag     global124
            bnt     code_00f2
            pushi   #view
            pushi   0
            lag     gEgo
            send    4
            push    
            ldi     34
            eq?     
            bnt     code_006a
            pushi   #loop
            pushi   0
            lag     gEgo
            send    4
            push    
            ldi     2
            eq?     
            bt      code_006a
            pushi   #loop
            pushi   0
            lag     gEgo
            send    4
            push    
            ldi     3
            eq?     
code_006a:  not     
            bnt     code_00f2
            pushi   #nsLeft
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #nsRight
            pushi   0
            lag     gEgo
            send    4
            add     
            push    
            ldi     2
            div     
            sat     temp0
            pushi   #mover
            pushi   0
            lag     gEgo
            send    4
            bnt     code_00c0
            pushi   #loop
            pushi   0
            lag     gEgo
            send    4
            push    
            dup     
            ldi     0
            eq?     
            bnt     code_00ac
            lst     temp0
            pushi   #xStep
            pushi   0
            lag     gEgo
            send    4
            add     
            sat     temp0
            jmp     code_00bf
code_00ac:  dup     
            ldi     1
            eq?     
            bnt     code_00bf
            lst     temp0
            pushi   #xStep
            pushi   0
            lag     gEgo
            send    4
            sub     
            sat     temp0
code_00bf:  toss    
code_00c0:  pushi   225
            pushi   2
            lst     temp0
            pushi   #nsTop
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   #nsBottom
            pushi   0
            lag     gEgo
            send    4
            add     
            push    
            ldi     2
            div     
            push    
            pushi   66
            pushi   1
            pushi   #priority
            pushi   0
            lag     gEgo
            send    4
            push    
            pushi   232
            pushi   0
            lofsa   halo
            send    18
            jmp     code_0108
code_00f2:  pushi   #contains
            pushi   1
            lofsa   halo
            push    
            lag     gCast
            send    6
            bnt     code_0108
            pushi   #dispose
            pushi   0
            lofsa   halo
            send    4
code_0108:  ret     
        )
    )

)
(instance halo of Actor
    (properties
        view 702
    )

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed))
            return 
        )(else
            (if ((super:handleEvent(pEvent)))
                return 
            )(else
                (if (Said('look,look/halo,glow,cloud,spell'))
                    (self:doVerb(1))
                )
            )
        )
    )


    (method (doVerb theVerb)
        (switch (theVerb)
            (case 1
                proc255_0(616 0)
            )
        )
    )

)
