1. Bmp files in langwars
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
