(var boolean test_boolean false)
(var boolean test_boolean2 true)
(var int test_int 1)
(var int test_int2 125)
(var int test_int3 -10020)

(script all dormant "test"
    (if test_boolean 
        (begin 
            (log "test boolean is true")
        )
        (begin 
            (log "test boolean is false")
        )
    )
    (if (== test_int2 125)
        (begin 
            (log "equals")
        )
        (begin 
            (log "not equals")
        )
    )
    (log (<= 1 4))
)

- (script all dormant "test" <4>  <10>  <12> )
-- Call:If ID#4 Src: (if <-1> <1> <3>)
--- Call:Variable ID#-1 Src: test_boolean
--- Call:Begin ID#1 Src: (begin <0>)
---- Call:Log ID#0 Src: (log <-1>)
----- Call:Constant ID#-1 Src: test boolean is true
--- Call:Begin ID#3 Src: (begin <2>)
---- Call:Log ID#2 Src: (log <-1>)
----- Call:Constant ID#-1 Src: test boolean is false
-- Call:If ID#10 Src: (if <5> <7> <9>)
--- Call:Equals ID#5 Src: (== <-1> <-2>)
---- Call:Variable ID#-1 Src: test_int2
---- Call:Constant ID#-2 Src: 125
--- Call:Begin ID#7 Src: (begin <6>)
---- Call:Log ID#6 Src: (log <-1>)
----- Call:Constant ID#-1 Src: equals
--- Call:Begin ID#9 Src: (begin <8>)
---- Call:Log ID#8 Src: (log <-1>)
----- Call:Constant ID#-1 Src: not equals
-- Call:Log ID#12 Src: (log <11>)
--- Call:Lequal ID#11 Src: (<= <-1> <-2>)
---- Call:Constant ID#-1 Src: 1
---- Call:Constant ID#-2 Src: 4

test boolean is false
equals
true

    (spawn "object/scenery/raichu.scenery" "Toasty" 0 0 0)
    (sleep 120)
    (invoke (actor "Toasty") location 0 0 -50)
    (sleep 60)
    (invoke (actor "Toasty") rotation 0 1.2 0)
    (sleep 60)
    (invoke (actor "Toasty") destroy)
    (log "Toasty was a bitch")

(script all dormant "whiletest"
    (log "testing while")
    (while (< test_int4 30) 
        (begin
            (log "Still running...")
            (set test_int4 (add test_int4 1))
            (log test_int4)
        )
    )
    (log "done!")
)

(script all dormant "sleepuntiltest"
    (log "sleeping until test_boolean2 is true)
    (until test_boolean2)
    (log "test_boolean2 is now true so now we can continue!")
)

(script all dormant "settestbool2"
    (set test_boolean2 true)
)