This code is pretty good at making random smileys:
data 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0
data 0,0,0,1,1,1,1,1,1,1,1,1,0,0,0
data 0,0,1,1,1,1,1,1,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,1,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1,1,1,1,1,1,0
data 0,1,1,1,1,1,1,1,1,1,1,1,1,1,0
data 0,0,1,1,1,1,1,1,1,1,1,1,1,0,0
data 0,0,0,1,1,1,1,1,1,1,1,1,0,0,0
data 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0
cls 0
lock pixels
for y = 0 to 14
for x = 0 to 14
read a
if a
dot x,y,0xFFFFFF00
endif
next x
next y
unlock pixels
get image 1,0,0,15,15,1
cls 0
nx = screen width()/20
ny = screen height()/20
set image colorkey 1,1,1
do
for y = 0 to ny-1
for x = 0 to nx-1
px = x*20
py = y*20
paste image 1,px,py
lock pixels
n = rnd(30)+5
for i = 0 to n
dot px+rnd(12)+1,py+rnd(12)+1,0
next i
unlock pixels
next x
next y
do
omx = mx
omy = my
mx = mousex()/20
my = mousey()/20
if mx <> omx or my <> omy
ink 0xFF000000,0
line omx*20-1,omy*20-1,omx*20+16,omy*20-1
line omx*20-1,omy*20-1,omx*20-1,omy*20+16
line omx*20-1,omy*20+16,omx*20+16,omy*20+16
line omx*20+16,omy*20-1,omx*20+16,omy*20+16
ink 0xFFFFFFFF,0
line mx*20-1,my*20-1,mx*20+16,my*20-1
line mx*20-1,my*20-1,mx*20-1,my*20+16
line mx*20-1,my*20+16,mx*20+16,my*20+16
line mx*20+16,my*20-1,mx*20+16,my*20+16
endif
omc = msc
msc = mouseclick()
msd = msc-omc
if msd = 1
get image 2,mx*20,my*20,mx*20+15,my*20+15,1
save image "RNDIMAGE_"+hex$(rnd(0xEFFFFF)+0x100000)+".png",2
delete image 2
endif
sync
if scancode() then exit
loop
loop
Just click on any smileys you like and it will save them out to the current directory.
Press a key to generate a new page.
Some nice ones: