Code: Select all
include "math.pixi"
set_pixel_size( WINDOW_XSIZE / 2048 )
resize( get_screen(), WINDOW_XSIZE, WINDOW_YSIZE )
scr = get_screen()
xscr = get_xsize( scr )
yscr = get_ysize( scr )
prob = 10
while(1)
{
$greyshd = rand_range_int(0, 100)
$grey = get_color(rand_range_int(0, 150), greyshd, $greyshd)
$i = 0 while $i < 100
{
fire(rand_range(-xscr, xscr), 0+yscr/2-10, $grey)
$i + 1
}
effector(EFF_HBLUR, 1.5)//try
effector(EFF_VBLUR, 1.5)//try
effector( EFF_SPREAD_LEFT, prob+1, WHITE )
effector( EFF_SPREAD_RIGHT, prob, WHITE )
effector( EFF_SPREAD_UP, prob, WHITE )
while( get_event() ) { if EVT[ EVT_TYPE ] == EVT_QUIT { breakall } }
frame()
}
fn fire($x, $y, $c)
{
dot($x, $y, $c)
}