OpenEuphoria

Bmp files in langwars

• Posted by Daniel W Garrett <deathwarrior at JUNO.COM> Dec 21, 1996
• 1468 views

Heres the part im trying to change in vars2.e in the LangWars demo, Heres
all the data, but i dont know how to load a bmp file
within this part of the file. HELP!!!


--------------------------------------
-- Graphic symbols for some objects --
--------------------------------------
global constant
    BASIC_R = ":##=-",
    SHUTTLE_L = "-=:",
    SHUTTLE_R = ":=-",
    EUPHORIA_L = "O-=",
    EUPHORIA_R = "=-O",
    FORTRAN_L =
                              -- this is the part im trying
object bitmap_input                          -- to change. If i can get
one
sequence palette_data                    -- of em write then i can
figgure
sequence bitmap_data                    -- the rest of em. I got little
bmp
                                                            -- files of
ships that i made that
if graphics_mode(19) then               -- i think would look really cool
     puts(1, "Graphics Set Error\n")  -- in the game. And Im new with
     abort(1)                                          -- this stuff( 2nd
day useing
end if                                                    -- Euphoria) so
it a be good
                                                           -- practise
too.

bitmap_input = read_bitmap("fly2.bmp")
if atom(bitmap_input) then
    puts(1, "Bitmap Read Failure\n")
else
    palette_data = bitmap_input[1]/4
    bitmap_data = bitmap_input[2]
    all_palette(palette_data)
    display_image({0,0},bitmap_data)
end if

while get_key()= -1 do
end while

if graphics_mode(-1) then
     puts(1, "Graphics Set Error\n")
     abort(1)
end if





    FORTRAN_R = ">+-",
    KRC_L = "O**<",
    KRC_R = ">**O",
    ANC_L = "-8**<",
    ANC_R = ">**8-",
    CPP_L = "=8**<",
    CPP_R = ">**8="

global constant MAX_SHIP_WIDTH = 30 -- widest flying ship width

--------------------------------------------------------------------------------
------------

Daniel W. Garrett
DeathWarrior at Juno.Com