1. stuff
Hello everyone,
As usual I am kinda behind schedule on Balenfaire. I have decided to
change it to be more of an RPG. I might even release an alpha version
with little or no graphics since that is what I have the most trouble
with. However when I do get graphics in it I plan to use one of the 3d
engines that IS SURE TO BE AVAILABLE BY THEN. If anyone has ever played
or saw "Betrayal at Krondor" that is kinda how I want Balenfaire to
look. It will probably be esentially turn based because realtime just
takes away from the rpg feel and I want it to be more strategy than
action so it will be mouse driven mainly and maybe even have alternate
keyboard controlls not to mention voice activation (jk).
As for now, all I have is a simple dos screensaver that demonstrates how
random Euphoria's rand() funcion is besides bein fun to watch. There is
a few variables you can change like speed, density, etc...
And of course you might want to change the video mode to work with your
computer.
Sincerely,
Lewis Townsend
<Paintcan.ex>
include graphics.e
include get.e
include image.e
constant rain = 10, --how often it does the rainbow drip
speed = 50, --something to do with speed
density = 5 --smaller the number the more dribbles
-- also affects speed
object g,k,color,rainbow --,speed,density
g = graphics_mode (257)
tick_rate (30)
procedure delay ()
object t
t = time ()
while time () - t > 1 do end while
end procedure
procedure init ()
rainbow = rand (rain)
color = rand (256) - 1
g = repeat ({0,0}, 640 /density)
for i = 1 to 640 /density do
g [i] [1] = i * density
end for
if rand (100) = 100 then clear_screen () end if
end procedure
procedure dostuff ()
k = rand (640 /density)
g [k] [2] = g [k] [2] + 1
end procedure
procedure fade ()
object p
for i = 1 to 70 do
p = get_all_palette ()
delay ()
all_palette (p * .99999999999)
end for
end procedure
init ()
while get_key () != 27 do
for i = 1 to speed do dostuff() end for
if rainbow = 10 then color = rand (256) - 1 end if
draw_line (color,g)
if g [1] [2] >= 480 then init () end if
end while
fade ()
g = graphics_mode (-1)
</Paint can.ex>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
