I made a few functions to make certain tedious commands to write out a little easier. I will take suggestions for new commands from anyone who feels like it would be nice to not have to write out the same thing over and over.
Here are the commands:
rndcol()-
replace rgb(rnd(255) , rnd(255) , rnd(255))
with rndcol()
rndcolbox(left , top , right , bottom)-
replace box left , top , right , bottom , rgb(rnd(255) , rnd(255) , rnd(255)) , rgb(rnd(255) , rnd(255) , rnd(255)) , rgb(rnd(255) , rnd(255) , rnd(255)) , rgb(rnd(255) , rnd(255) , rnd(255))
with rndcolbox(left , top , right , bottom)
imagesprite(image$ , imagenum , spritenum , x , y)-
replace
load image image$ , imagenum
sprite spritenum , x , y , imagenum
with
imagesprite(image$ , imagenum , spritenum , x , y)
bgimage(image$ , imagenum , x , y)-
replace
load image image$ , imagenum
paste image imagenum , x , y
with
bgimage(image$ , imagenum , x , y)
fillcirc(x , y , rad)-
replace
for cir = 0 to rad
circle x , y , cir
next cir
with
fillcirc(x , y , rad)
Again I will be accepting suggestions to add to the list.
[Edit]No more download. Decided it was stupid to have to download functions so putting them in code boxes.
function rndcol()`No parameters
col = rgb(rnd(255) , rnd(255) , rnd(255))
endfunction col
function rndcolbox(left , top , right , bottom)`Positions for box
box left , top , right , bottom , rndcol() , rndcol() , rndcol() , rndcol()
endfunction
function imagesprite(image$ , imagenum , spritenum , x , y)`Image string , image number , sprite number , sprite x , sprite y
load image image$ , imagenum
sprite spritenum , x , y , imagenum
endfunction
function bgimage(image$ , imagenum , x , y)`Image string , image number , posx , posy
load image image$ , imagenum
paste image imagenum , x , y
endfunction
function fillcirc(x , y , rad)`posx , posy , and max radius for filled circle
for num = 0 to rad
circle x , y , num
next x
endfunction
