OpenEuphoria

Re: Funny Moves

• Posted by Liona Kerslake <paulk at UNISERVE.COM> Nov 21, 2000
• 568 views

Sorry for the enigmatic letter, I don't like to give away what I'm working
on 'till it's decent. So, here is the piece of code that's causing the
problem: Please and thanks for looking at it.
--Thomas
---/\===

--Start your binary!

integer action
atom LEFT,RIGHT
LEFT=333
RIGHT=331

procedure walkLEFT()
        if action=LEFT then
            display_image({sides,ups}, walkL[2])    --just BMPs*
            pause(.1)
            display_image({sides,ups}, blackout[2])        *
            display_image({sides,ups}, walkR[2])            *
            pause(.1)
            sides+=1
        end if
end procedure

procedure walkRIGHT()
        if action=RIGHT then
            display_image({sides,ups}, walkL[2])
            pause(.1)
            display_image({sides,ups}, blackout[2])
            display_image({sides,ups}, walkR[2])
            pause(.1)
            sides-=2
        end if
end procedure

procedure walkies()
    action=get_key()
    if action=LEFT then
        walkLEFT()
    elsif action=RIGHT then
        walkRIGHT()
    end if
end procedure

while 1 do
walkies()
end while