[DBP] Bacteria - GameCreators Forum

Author

Message

Rapidrory

14

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 28th Dec 2010 20:13 Edited at: 29th Dec 2010 01:04

Link

A little bacteria simulation in 12 lines

You start with one bacterium which will divide up to a maximum of 1000 bacteria. You can feed them by clicking anywhere on the screen. The size of each bacterium corsponds to how hungry it is, and the colour indicates it's age.

EDIT: Forgot to metion but it does use the Matrix1 Utility Plug-in. It's not as an essential part of the code, so you can just replace it if you need to.

Compressed

sync on:sync rate 100:sw=screen width():sh=screen height():mcnum=1100:dim x#(mcnum):dim y#(mcnum):dim ang#(mcnum):dim mov(mcnum):dim hunger(mcnum):Dim hungertime(mcnum):dim alive(mcnum):dim age(mcnum):dim wander(mcnum):dim speed#(mcnum):dim fx(100):dim fy(100)
dim fq(100):cnum=1:fnum=1:get image 1000,0,0,20,20,1:x#(cnum)=sw/2:y#(cnum)=sh/2:ang#(cnum)=rnd(360):fill circle 10,10,10,rgb(0,250,0):get image 1,0,0,20,20:fill circle 10,10,10,rgb(100,250,100):get image 2,0,0,20,20:fill circle 10,10,10,rgb(100,200,100)
get image 3,0,0,20,20:fill circle 10,10,10,rgb(100,150,100):get image 4,0,0,20,20:fill circle 10,10,10,rgb(100,100,100):get image 5,0,0,20,20:hunger(cnum)=100:alive(cnum)=1:color backdrop 0:do:lock pixels:if mouseclick()=1 and mc=0:mc=1:new=0
for res=1 to fnum:if fq(res)<=0:new=res:endif:next res:if new=0:inc fnum:new=fnum:endif:fx(new)=mousex():fy(new)=mousey():fq(new)=9900:endif:if mouseclick()=0:mc=0:endif:total=0:for cn=1 to cnum:if alive(cn)=1:distcheck=1000:f=0:foodtarget=0:if wander=0
for f=1 to fnum:if fq(f)>0:dist=sqrt((x#(cn)-fx(f))^2+(y#(cn)-fy(f))^2):if dist<distcheck:distcheck=dist:foodtarget=f:endif:endif:next f:endif:if foodtarget>0 and wander(cn)=0:ang#(cn)=atanfull(fx(foodtarget)-x#(cn),fy(foodtarget)-y#(cn)):mov(cn)=1:endif
if hunger(cn)<50 and foodtarget>0:wander(cn)=0:endif:if hunger(cn)>200 or foodtarget=0:wander(cn)=1:endif:if wander(cn)=1:if rnd(50)=1:inc ang#(cn),rnd(100)-50:mov(cn)=rnd(100)+10:endif:endif:a#=age(cn):speed#(cn)=1.5-(a#/4000):If mov(cn)>0:dec mov(cn)
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn)):y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn)):if x#(cn)<0 or x#(cn)>sw or y#(cn)<0 or y#(cn)>sh:inc ang#(cn),180:x#(cn)=newxvalue(x#(cn),ang#(cn),1):y#(cn)=newzvalue(y#(cn),ang#(cn),1):endif:endif
if distcheck<10 and wander(cn)=0:inc hunger(cn):dec fq(foodtarget):endif:if oldtotal<999:if hunger(cn)>50 and rnd(1000)=1 and age(cn)>1000:gosub repro:endif:endif:inc age(cn):inc hungertime(cn):if hungertime(cn)>100:dec hunger(cn):hungertime(cn)=0:endif
if hunger(cn)=0 or age(cn)>5000:alive(cn)=0:endif:sprite cn,x#(cn),y#(cn),floor(age(cn)/1000)+1:size=hunger(cn):if size>250:size=250:endif:scale sprite cn,size:inc total:sprite 1000,mousex()-10,mousey()-10,1000:else:if sprite exist(cn):delete sprite cn
endif:endif:next cn:unlock pixels:if stats=0:text 0,0,"Life forms: "+Str$(total):endif:if total=0:goto gameover:endif:oldtotal=total:for f=1 to fnum:if fq(f)>0:center text fx(f),fy(f)-7,str$(ceil(fq(f)/100)):circle fx(f),fy(f),10:endif:next f:sync:loop
repro:new=0:for res=1 to cnum:if alive(res)=0:new=res:endif:next res:if new=0:inc cnum:new=cnum:endif:x#(new)=x#(cn):y#(new)=y#(cn):ang#(new)=rnd(360):speed#=1:hunger(new)=hunger(cn)/2:alive(new)=1:wander(new)=1:hunger(cn)=hunger(new):age(new)=0:cls 0:return
gameover:cls 0:do:center text sw/2,sh/2,"ALL LIFE FORMS DIED":sync:loop

+ Code Snippet

sync on:sync rate 100:sw=screen width():sh=screen height():mcnum=1100:dim x#(mcnum):dim y#(mcnum):dim ang#(mcnum):dim mov(mcnum):dim hunger(mcnum):Dim hungertime(mcnum):dim alive(mcnum):dim age(mcnum):dim wander(mcnum):dim speed#(mcnum):dim fx(100):dim fy(100)
dim fq(100):cnum=1:fnum=1:get image 1000,0,0,20,20,1:x#(cnum)=sw/2:y#(cnum)=sh/2:ang#(cnum)=rnd(360):fill circle 10,10,10,rgb(0,250,0):get image 1,0,0,20,20:fill circle 10,10,10,rgb(100,250,100):get image 2,0,0,20,20:fill circle 10,10,10,rgb(100,200,100)
get image 3,0,0,20,20:fill circle 10,10,10,rgb(100,150,100):get image 4,0,0,20,20:fill circle 10,10,10,rgb(100,100,100):get image 5,0,0,20,20:hunger(cnum)=100:alive(cnum)=1:color backdrop 0:do:lock pixels:if mouseclick()=1 and mc=0:mc=1:new=0
for res=1 to fnum:if fq(res)<=0:new=res:endif:next res:if new=0:inc fnum:new=fnum:endif:fx(new)=mousex():fy(new)=mousey():fq(new)=9900:endif:if mouseclick()=0:mc=0:endif:total=0:for cn=1 to cnum:if alive(cn)=1:distcheck=1000:f=0:foodtarget=0:if wander=0
for f=1 to fnum:if fq(f)>0:dist=sqrt((x#(cn)-fx(f))^2+(y#(cn)-fy(f))^2):if dist<distcheck:distcheck=dist:foodtarget=f:endif:endif:next f:endif:if foodtarget>0 and wander(cn)=0:ang#(cn)=atanfull(fx(foodtarget)-x#(cn),fy(foodtarget)-y#(cn)):mov(cn)=1:endif
if hunger(cn)<50 and foodtarget>0:wander(cn)=0:endif:if hunger(cn)>200 or foodtarget=0:wander(cn)=1:endif:if wander(cn)=1:if rnd(50)=1:inc ang#(cn),rnd(100)-50:mov(cn)=rnd(100)+10:endif:endif:a#=age(cn):speed#(cn)=1.5-(a#/4000):If mov(cn)>0:dec mov(cn)
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn)):y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn)):if x#(cn)<0 or x#(cn)>sw or y#(cn)<0 or y#(cn)>sh:inc ang#(cn),180:x#(cn)=newxvalue(x#(cn),ang#(cn),1):y#(cn)=newzvalue(y#(cn),ang#(cn),1):endif:endif
if distcheck<10 and wander(cn)=0:inc hunger(cn):dec fq(foodtarget):endif:if oldtotal<999:if hunger(cn)>50 and rnd(1000)=1 and age(cn)>1000:gosub repro:endif:endif:inc age(cn):inc hungertime(cn):if hungertime(cn)>100:dec hunger(cn):hungertime(cn)=0:endif
if hunger(cn)=0 or age(cn)>5000:alive(cn)=0:endif:sprite cn,x#(cn),y#(cn),floor(age(cn)/1000)+1:size=hunger(cn):if size>250:size=250:endif:scale sprite cn,size:inc total:sprite 1000,mousex()-10,mousey()-10,1000:else:if sprite exist(cn):delete sprite cn
endif:endif:next cn:unlock pixels:if stats=0:text 0,0,"Life forms: "+Str$(total):endif:if total=0:goto gameover:endif:oldtotal=total:for f=1 to fnum:if fq(f)>0:center text fx(f),fy(f)-7,str$(ceil(fq(f)/100)):circle fx(f),fy(f),10:endif:next f:sync:loop
repro:new=0:for res=1 to cnum:if alive(res)=0:new=res:endif:next res:if new=0:inc cnum:new=cnum:endif:x#(new)=x#(cn):y#(new)=y#(cn):ang#(new)=rnd(360):speed#=1:hunger(new)=hunger(cn)/2:alive(new)=1:wander(new)=1:hunger(cn)=hunger(new):age(new)=0:cls 0:return
gameover:cls 0:do:center text sw/2,sh/2,"ALL LIFE FORMS DIED":sync:loop

Uncompressed

sync on
sync rate 100
sw=screen width()
sh=screen height()
mcnum=1100
dim x#(mcnum)
dim y#(mcnum)
dim ang#(mcnum)
dim mov(mcnum)
dim hunger(mcnum)
Dim hungertime(mcnum)
dim alive(mcnum)
dim age(mcnum)
dim wander(mcnum)
dim speed#(mcnum)
dim fx(100)
dim fy(100)
dim fq(100)
cnum=1
fnum=1
get image 1000,0,0,20,20,1

x#(cnum)=sw/2
y#(cnum)=sh/2
ang#(cnum)=rnd(360)
fill circle 10,10,10,rgb(0,250,0)
get image 1,0,0,20,20
fill circle 10,10,10,rgb(100,250,100)
get image 2,0,0,20,20
fill circle 10,10,10,rgb(100,200,100)
get image 3,0,0,20,20
fill circle 10,10,10,rgb(100,150,100)
get image 4,0,0,20,20
fill circle 10,10,10,rgb(100,100,100)
get image 5,0,0,20,20
hunger(cnum)=100
alive(cnum)=1
color backdrop 0

do
lock pixels
if mouseclick()=1 and mc=0
mc=1
new=0
for res=1 to fnum
if fq(res)<=0 then new=res
next res
if new=0 then inc fnum:new=fnum

fx(new)=mousex()
fy(new)=mousey()
fq(new)=9900
endif
if mouseclick()=0 then mc=0
total=0
for cn=1 to cnum
if alive(cn)=1

distcheck=1000
f=0
foodtarget=0

if wander=0
for f=1 to fnum
if fq(f)>0
dist=sqrt((x#(cn)-fx(f))^2+(y#(cn)-fy(f))^2)
if dist<distcheck then distcheck=dist:foodtarget=f
endif
next f
endif

if foodtarget>0 and wander(cn)=0
ang#(cn)=atanfull(fx(foodtarget)-x#(cn),fy(foodtarget)-y#(cn))
mov(cn)=1
endif

if hunger(cn)<50 and foodtarget>0 then wander(cn)=0
if hunger(cn)>200 or foodtarget=0 then wander(cn)=1

if wander(cn)=1
if rnd(50)=1 then inc ang#(cn),rnd(100)-50:mov(cn)=rnd(100)+10
endif
a#=age(cn)
speed#(cn)=1.5-(a#/4000)
If mov(cn)>0
dec mov(cn)
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn))
y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn))
if x#(cn)<0 or x#(cn)>sw or y#(cn)<0 or y#(cn)>sh
inc ang#(cn),180
x#(cn)=newxvalue(x#(cn),ang#(cn),1)
y#(cn)=newzvalue(y#(cn),ang#(cn),1)
endif
endif

if distcheck<10 and wander(cn)=0 then inc hunger(cn):dec fq(foodtarget)

if oldtotal<999
if hunger(cn)>50 and rnd(1000)=1 and age(cn)>1000 then gosub repro
endif
inc age(cn)
inc hungertime(cn)
if hungertime(cn)>100 then dec hunger(cn):hungertime(cn)=0
if hunger(cn)=0 or age(cn)>5000 then alive(cn)=0

sprite cn,x#(cn),y#(cn),floor(age(cn)/1000)+1
size=hunger(cn)
if size>250 then size=250
scale sprite cn,size
inc total
sprite 1000,mousex()-10,mousey()-10,1000

else
if sprite exist (cn) then delete sprite cn
endif
next cn
unlock pixels
if stats=0
text 0,0,"Life forms: "+Str$(total)
endif
if total=0 then goto gameover
oldtotal=total
for f=1 to fnum
if fq(f)>0
center text fx(f),fy(f)-7,str$(ceil(fq(f)/100))
circle fx(f),fy(f),10
endif
next f
sync
loop

repro:
new=0
for res=1 to cnum
if alive(res)=0 then new=res
next res
if new=0 then inc cnum:new=cnum

x#(new)=x#(cn)
y#(new)=y#(cn)
ang#(new)=rnd(360)
speed#=1
hunger(new)=hunger(cn)/2
alive(new)=1
wander(new)=1
hunger(cn)=hunger(new)
age(new)=0

cls 0
return

gameover:
cls 0
do
center text sw/2,sh/2,"ALL LIFE FORMS DIED"
sync
loop

+ Code Snippet

sync on
sync rate 100
sw=screen width()
sh=screen height()
mcnum=1100
dim x#(mcnum)
dim y#(mcnum)
dim ang#(mcnum)
dim mov(mcnum)
dim hunger(mcnum)
Dim hungertime(mcnum)
dim alive(mcnum)
dim age(mcnum)
dim wander(mcnum)
dim speed#(mcnum)
dim fx(100)
dim fy(100)
dim fq(100)
cnum=1
fnum=1
get image 1000,0,0,20,20,1

x#(cnum)=sw/2
y#(cnum)=sh/2
ang#(cnum)=rnd(360)
fill circle 10,10,10,rgb(0,250,0)
get image 1,0,0,20,20
fill circle 10,10,10,rgb(100,250,100)
get image 2,0,0,20,20
fill circle 10,10,10,rgb(100,200,100)
get image 3,0,0,20,20
fill circle 10,10,10,rgb(100,150,100)
get image 4,0,0,20,20
fill circle 10,10,10,rgb(100,100,100)
get image 5,0,0,20,20
hunger(cnum)=100
alive(cnum)=1
color backdrop 0

do
lock pixels
if mouseclick()=1 and mc=0
mc=1
new=0
for res=1 to fnum
if fq(res)<=0 then new=res
next res
if new=0 then inc fnum:new=fnum

fx(new)=mousex()
fy(new)=mousey()
fq(new)=9900
endif
if mouseclick()=0 then mc=0
total=0
for cn=1 to cnum
if alive(cn)=1

distcheck=1000
f=0
foodtarget=0

if wander=0
for f=1 to fnum
if fq(f)>0
dist=sqrt((x#(cn)-fx(f))^2+(y#(cn)-fy(f))^2)
if dist<distcheck then distcheck=dist:foodtarget=f
endif
next f
endif

if foodtarget>0 and wander(cn)=0
ang#(cn)=atanfull(fx(foodtarget)-x#(cn),fy(foodtarget)-y#(cn))
mov(cn)=1
endif

if hunger(cn)<50 and foodtarget>0 then wander(cn)=0
if hunger(cn)>200 or foodtarget=0 then wander(cn)=1

if wander(cn)=1
if rnd(50)=1 then inc ang#(cn),rnd(100)-50:mov(cn)=rnd(100)+10
endif
a#=age(cn)
speed#(cn)=1.5-(a#/4000)
If mov(cn)>0
dec mov(cn)
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn))
y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn))
if x#(cn)<0 or x#(cn)>sw or y#(cn)<0 or y#(cn)>sh
inc ang#(cn),180
x#(cn)=newxvalue(x#(cn),ang#(cn),1)
y#(cn)=newzvalue(y#(cn),ang#(cn),1)
endif
endif


if distcheck<10 and wander(cn)=0 then inc hunger(cn):dec fq(foodtarget)

if oldtotal<999
if hunger(cn)>50 and rnd(1000)=1 and age(cn)>1000 then gosub repro
endif
inc age(cn)
inc hungertime(cn)
if hungertime(cn)>100 then dec hunger(cn):hungertime(cn)=0
if hunger(cn)=0 or age(cn)>5000 then alive(cn)=0

sprite cn,x#(cn),y#(cn),floor(age(cn)/1000)+1
size=hunger(cn)
if size>250 then size=250
scale sprite cn,size
inc total
sprite 1000,mousex()-10,mousey()-10,1000

else
if sprite exist (cn) then delete sprite cn
endif
next cn
unlock pixels
if stats=0
text 0,0,"Life forms: "+Str$(total)
endif
if total=0 then goto gameover
oldtotal=total
for f=1 to fnum
if fq(f)>0
center text fx(f),fy(f)-7,str$(ceil(fq(f)/100))
circle fx(f),fy(f),10
endif
next f
sync
loop

repro:
new=0
for res=1 to cnum
if alive(res)=0 then new=res
next res
if new=0 then inc cnum:new=cnum

x#(new)=x#(cn)
y#(new)=y#(cn)
ang#(new)=rnd(360)
speed#=1
hunger(new)=hunger(cn)/2
alive(new)=1
wander(new)=1
hunger(cn)=hunger(new)
age(new)=0

cls 0
return

gameover:
cls 0
do
center text sw/2,sh/2,"ALL LIFE FORMS DIED"
sync
loop

There is no such thing as "Too Fast!"

Back to top

Profile PM

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 30th Dec 2010 00:43

Link

That's quite fun, I like it.

Back to top

Profile PM Email

Rapidrory

14

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 17th Jan 2011 22:44 Edited at: 17th Jan 2011 23:28

Link

I've changed the code now so that the bacteria evolve depending on how its set up. It basically works by adding abnormalities to the variables when a bacteria reproduces, so if that abnormality helps it survive, it lives to pass it on when it divides.

The challenge is to get the starting parameters as low as possible and still get a stable colony. You now no longer have to manually place food or restart if the colony dies, thats all automatic.

If you leave it running for a while you can get some quite intresting changes

(The parameters that can be changed are in the code itself, and not set in-simulation, so you have to recompile to change them)

sync on
sync rate 0
set display mode 1024,768,16
set window on
set window title "Evoloution"

sw=screen width()
sh=screen height()

mcnum=2000
dim x#(mcnum)
dim y#(mcnum)
dim ang#(mcnum)
dim mov(mcnum)
dim hunger(mcnum)
Dim hungertime(mcnum)
dim alive(mcnum)
dim age(mcnum)
dim wander(mcnum)
dim speed#(mcnum)
dim maxage(mcnum)
dim maxspeed#(mcnum)
dim maxhunger(mcnum)
dim minhunger(mcnum)
dim maxhungerspeed(mcnum)
dim reprospeed(mcnum)
dim fov(mcnum)
dim fx(100)
dim fy(100)
dim fq(100)

REM CHANGE THESE VALUES TO CHANGE THE BEHAVIOUR

maxage(mcnum)=4000 `How old it gets befor it dies
maxspeed#(mcnum)=1 `How fast it goes
maxhunger(mcnum)=100 `How hungry it is befor it stops eating
minhunger(mcnum)=50 `How hungry it is befor it starts eating
maxhungerspeed(mcnum)=25 `How quickly it getts hungry
reprospeed(mcnum)=500 `How fast it reproduces
fov(mcnum)=700 `The maximum distance it can see food from
startfood=99 `The amount of food that appears at the beginnining (this alows time for the colony to become strong)
food=99 `The maximum amount of food that appears in one go
REM *********************************************

cnum=1
fnum=1
get image 1000,0,0,20,20,1

fill circle 10,10,10,rgb(0,250,0)
get image 1,0,0,20,20,1
fill circle 10,10,10,rgb(100,250,100)
get image 2,0,0,20,20,1
fill circle 10,10,10,rgb(100,200,100)
get image 3,0,0,20,20,1
fill circle 10,10,10,rgb(100,150,100)
get image 4,0,0,20,20,1
fill circle 10,10,10,rgb(100,100,100)
get image 5,0,0,20,20,1
fill circle 10,10,10,rgb(50,50,50)
get image 6,0,0,20,20,1

gosub reset

color backdrop 0

do
lock pixels

gosub placefood

total=0
totalmaxage=0
totalmaxspeed#=0
totalmaxhunger=0
totalminhunger=0
totalmaxhungerspeed=0
totalreprospeed=0
totalfov=0

for cn=1 to cnum
if alive(cn)=1

Gosub Findfood
Gosub Wander
Gosub LifeControl
Gosub DrawCreatures

inc total

else
if sprite exist(cn) then delete sprite cn
endif
next cn

Gosub Stats
Gosub DrawFood

if total=0 then gosub reset:inc restarts
oldtotal=total

unlock pixels
sync
loop

repro:
new=0
for res=1 to cnum
if alive(res)=0 then new=res
next res
if new=0 then inc cnum:new=cnum
abage=0
abspeed#=0
abhunger=0
abhungspeed=0
if 1=1
abage=rnd(30)-15
abspeed#=rnd(2)-1
abhunger=rnd(6)-3
abhungspeed=rnd(4)-2
abminhunger=rnd(2)-1
abrepro=rnd(10)-5
abfov=rnd(10)-5
endif
maxage(new)=maxage(cn)+abage
maxspeed#(new)=maxspeed#(cn)+(abspeed#/10)
maxhunger(new)=maxhunger(cn)+abhunger
maxhungerspeed(new)=maxhungerspeed(cn)+abhungspeed
minhunger(new)=minhunger(cn)+abminhunger
fov(new)=fov(cn)+abfov
reprospeed(new)=reprospeed(cn)+abrepro
if reprospeed(new)<0 then reprospeed(new)=0
x#(new)=x#(cn)
y#(new)=y#(cn)
ang#(new)=rnd(360)
hunger(new)=hunger(cn)/2
alive(new)=1
wander(new)=1
hunger(cn)=hunger(new)
age(new)=0
inc repronum
cls 0
return

PlaceFood:
if fq(1)=0 and spacekey()=0
mc=1
new=0
for res=1 to fnum
if fq(res)<=0 then new=res
next res
if new=0 then inc fnum:new=fnum

Positionfood(new,rnd(food)*100+100)

endif
if mouseclick()=0 then mc=0
return

FindFood:
distcheck=Fov(cn)
f=0
foodtarget=0

if wander=0
for f=1 to fnum
if fq(f)>0
dist=sqrt((x#(cn)-fx(f))^2+(y#(cn)-fy(f))^2)
if dist<distcheck then distcheck=dist:foodtarget=f
endif
next f
endif

if foodtarget>0 and wander(cn)=0
ang#(cn)=atanfull(fx(foodtarget)-x#(cn),fy(foodtarget)-y#(cn))
mov(cn)=1
endif

if hunger(cn)<minhunger(cn) and foodtarget>0 then wander(cn)=0
if hunger(cn)>maxhunger(cn) or foodtarget=0 then wander(cn)=1

if distcheck<10 and wander(cn)=0 then inc hunger(cn):dec fq(foodtarget)
return

Wander:
if wander(cn)=1
if rnd(50)=1 then inc ang#(cn),rnd(100)-50:mov(cn)=rnd(100)+10
endif
a#=age(cn)
speed#(cn)=maxspeed#(cn)-(a#/4000)
If mov(cn)>0
dec mov(cn)
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn))
y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn))
if x#(cn)<0 or x#(cn)>sw or y#(cn)<0 or y#(cn)>sh
inc ang#(cn),180
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn))
y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn))
endif
endif
return

LifeControl:
if oldtotal<799
if hunger(cn)>50 and rnd(reprospeed(cn))=1 and age(cn)>500 and age(cn)<maxage(cn)-1000 then gosub repro
endif
inc age(cn)
inc hungertime(cn)
if hungertime(cn)>maxhungerspeed(cn) then dec hunger(cn):hungertime(cn)=0
if hunger(cn)=0 or age(cn)>maxage(cn) or total>799 then alive(cn)=0

inc totalmaxspeed#,maxspeed#(cn)
inc totalmaxage,maxage(cn)
inc totalmaxhunger,maxhunger(cn)
inc totalminhunger,minhunger(cn)
inc totalmaxhungerSpeed,maxhungerSpeed(cn)
inc totalreprospeed,reprospeed(cn)
inc totalfov,fov(cn)

return

DrawCreatures:
sprite cn,x#(cn),y#(cn),floor(age(cn)/1000)+1
size=hunger(cn)
if size>500 then size=500
scale sprite cn,size
return

Stats:
sprite 1000,mousex()-10,mousey()-10,1000
if mouseclick()=2
stats=sprite collision(1000,0)
if stats>0 and statflag=0 then statflag=stats
endif
if statflag>0
text 0,0,"Max Speed: "+str$(maxspeed#(statflag))
text 0,10,"Max Age: "+str$(maxage(statflag))
text 0,20,"Max Hunger: "+str$(maxhunger(statflag))
text 0,30,"Min Hunger: "+str$(minhunger(statflag))
text 0,40,"Metabolism Rate: "+str$(maxhungerSpeed(statflag))
text 0,50,"Reproduction Rate: "+str$(reprospeed(statflag))
else
text 0,0,"Life forms: "+Str$(total)
if total>0
text 0,10,"Av Speed: "+str$(totalmaxspeed#/total)+"/"+str$(maxspeed#)
text 0,20,"Av Age: "+str$(totalmaxage/total)+"/"+str$(maxage)
text 0,30,"Av Max Hunger: "+str$(totalmaxhunger/total)+"/"+str$(maxhunger)
text 0,40,"Av Min Hunger: "+str$(totalminhunger/total)+"/"+str$(minhunger)
text 0,50,"Av Metabolism Rate: "+str$(totalmaxhungerSpeed/total)+"/"+str$(maxhungerSpeed)
text 0,60,"Av Max Vision: "+str$(totalfov/total)+"/"+str$(fov)
text 0,70,"Av Reproduction Rate: "+str$(totalreprospeed/total)+"/"+str$(reprospeed)
endif
text 0,80,"Reproductions: "+str$(repronum)
text 0,90,"Restarts: "+str$(restarts)
if total>maxtotal then maxtotal=total
text 0,100,"Max Life forms: "+str$(maxtotal)
text 0,110,"Time: "+str$((timer()-time)/1000)
endif

if mouseclick()=0 then statflag=0
Return

DrawFood:
for f=1 to fnum
if fq(f)>0
center text fx(f),fy(f)-7,str$(ceil(fq(f)/100))
circle fx(f),fy(f),10
endif
next f
return

reset:
cnum=1
x#(cnum)=sw/2
y#(cnum)=sh/2
ang#(cnum)=rnd(360)
hunger(cnum)=200
alive(cnum)=1
age(cnum)=0

repronum=0

maxage(cnum)=maxage(mcnum)
maxspeed#(cnum)=maxspeed#(mcnum)
maxhunger(cnum)=maxhunger(mcnum)
minhunger(cnum)=minhunger(mcnum)
maxhungerspeed(cnum)=maxhungerspeed(mcnum)
reprospeed(cnum)=reprospeed(mcnum)
fov(cnum)=fov(mcnum)

maxage=maxage(cnum)
maxspeed#=maxspeed#(cnum)
maxhunger=maxhunger(cnum)
minhunger=minhunger(cnum)
maxhungerspeed=maxhungerspeed(cnum)
reprospeed=reprospeed(cnum)
fov=fov(cnum)
time=timer()

Positionfood(1,startfood*100)

return

function Positionfood(new,amount)
fx(new)=rnd(screen width())
fy(new)=rnd(screen height()-20)
fq(new)=amount
endfunction

+ Code Snippet


sync on
sync rate 0
set display mode 1024,768,16
set window on
set window title "Evoloution"

sw=screen width()
sh=screen height()

mcnum=2000
dim x#(mcnum)
dim y#(mcnum)
dim ang#(mcnum)
dim mov(mcnum)
dim hunger(mcnum)
Dim hungertime(mcnum)
dim alive(mcnum)
dim age(mcnum)
dim wander(mcnum)
dim speed#(mcnum)
dim maxage(mcnum)
dim maxspeed#(mcnum)
dim maxhunger(mcnum)
dim minhunger(mcnum)
dim maxhungerspeed(mcnum)
dim reprospeed(mcnum)
dim fov(mcnum)
dim fx(100)
dim fy(100)
dim fq(100)

REM CHANGE THESE VALUES TO CHANGE THE BEHAVIOUR

maxage(mcnum)=4000 `How old it gets befor it dies
maxspeed#(mcnum)=1 `How fast it goes
maxhunger(mcnum)=100 `How hungry it is befor it stops eating
minhunger(mcnum)=50 `How hungry it is befor it starts eating
maxhungerspeed(mcnum)=25 `How quickly it getts hungry
reprospeed(mcnum)=500 `How fast it reproduces
fov(mcnum)=700 `The maximum distance it can see food from
startfood=99 `The amount of food that appears at the beginnining (this alows time for the colony to become strong)
food=99 `The maximum amount of food that appears in one go
REM *********************************************


cnum=1
fnum=1
get image 1000,0,0,20,20,1


fill circle 10,10,10,rgb(0,250,0)
get image 1,0,0,20,20,1
fill circle 10,10,10,rgb(100,250,100)
get image 2,0,0,20,20,1
fill circle 10,10,10,rgb(100,200,100)
get image 3,0,0,20,20,1
fill circle 10,10,10,rgb(100,150,100)
get image 4,0,0,20,20,1
fill circle 10,10,10,rgb(100,100,100)
get image 5,0,0,20,20,1
fill circle 10,10,10,rgb(50,50,50)
get image 6,0,0,20,20,1

gosub reset

color backdrop 0

do
lock pixels

gosub placefood


total=0
totalmaxage=0
totalmaxspeed#=0
totalmaxhunger=0
totalminhunger=0
totalmaxhungerspeed=0
totalreprospeed=0
totalfov=0

for cn=1 to cnum
if alive(cn)=1

Gosub Findfood
Gosub Wander
Gosub LifeControl
Gosub DrawCreatures

inc total

else
if sprite exist(cn) then delete sprite cn
endif
next cn


Gosub Stats
Gosub DrawFood


if total=0 then gosub reset:inc restarts
oldtotal=total

unlock pixels
sync
loop

repro:
new=0
for res=1 to cnum
if alive(res)=0 then new=res
next res
if new=0 then inc cnum:new=cnum
abage=0
abspeed#=0
abhunger=0
abhungspeed=0
if 1=1
abage=rnd(30)-15
abspeed#=rnd(2)-1
abhunger=rnd(6)-3
abhungspeed=rnd(4)-2
abminhunger=rnd(2)-1
abrepro=rnd(10)-5
abfov=rnd(10)-5
endif
maxage(new)=maxage(cn)+abage
maxspeed#(new)=maxspeed#(cn)+(abspeed#/10)
maxhunger(new)=maxhunger(cn)+abhunger
maxhungerspeed(new)=maxhungerspeed(cn)+abhungspeed
minhunger(new)=minhunger(cn)+abminhunger
fov(new)=fov(cn)+abfov
reprospeed(new)=reprospeed(cn)+abrepro
if reprospeed(new)<0 then reprospeed(new)=0
x#(new)=x#(cn)
y#(new)=y#(cn)
ang#(new)=rnd(360)
hunger(new)=hunger(cn)/2
alive(new)=1
wander(new)=1
hunger(cn)=hunger(new)
age(new)=0
inc repronum
cls 0
return

PlaceFood:
if fq(1)=0 and spacekey()=0
mc=1
new=0
for res=1 to fnum
if fq(res)<=0 then new=res
next res
if new=0 then inc fnum:new=fnum

Positionfood(new,rnd(food)*100+100)

endif
if mouseclick()=0 then mc=0
return

FindFood:
distcheck=Fov(cn)
f=0
foodtarget=0

if wander=0
for f=1 to fnum
if fq(f)>0
dist=sqrt((x#(cn)-fx(f))^2+(y#(cn)-fy(f))^2)
if dist<distcheck then distcheck=dist:foodtarget=f
endif
next f
endif

if foodtarget>0 and wander(cn)=0
ang#(cn)=atanfull(fx(foodtarget)-x#(cn),fy(foodtarget)-y#(cn))
mov(cn)=1
endif

if hunger(cn)<minhunger(cn) and foodtarget>0 then wander(cn)=0
if hunger(cn)>maxhunger(cn) or foodtarget=0 then wander(cn)=1

if distcheck<10 and wander(cn)=0 then inc hunger(cn):dec fq(foodtarget)
return

Wander:
if wander(cn)=1
if rnd(50)=1 then inc ang#(cn),rnd(100)-50:mov(cn)=rnd(100)+10
endif
a#=age(cn)
speed#(cn)=maxspeed#(cn)-(a#/4000)
If mov(cn)>0
dec mov(cn)
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn))
y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn))
if x#(cn)<0 or x#(cn)>sw or y#(cn)<0 or y#(cn)>sh
inc ang#(cn),180
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn))
y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn))
endif
endif
return

LifeControl:
if oldtotal<799
if hunger(cn)>50 and rnd(reprospeed(cn))=1 and age(cn)>500 and age(cn)<maxage(cn)-1000 then gosub repro
endif
inc age(cn)
inc hungertime(cn)
if hungertime(cn)>maxhungerspeed(cn) then dec hunger(cn):hungertime(cn)=0
if hunger(cn)=0 or age(cn)>maxage(cn) or total>799 then alive(cn)=0

inc totalmaxspeed#,maxspeed#(cn)
inc totalmaxage,maxage(cn)
inc totalmaxhunger,maxhunger(cn)
inc totalminhunger,minhunger(cn)
inc totalmaxhungerSpeed,maxhungerSpeed(cn)
inc totalreprospeed,reprospeed(cn)
inc totalfov,fov(cn)

return

DrawCreatures:
sprite cn,x#(cn),y#(cn),floor(age(cn)/1000)+1
size=hunger(cn)
if size>500 then size=500
scale sprite cn,size
return

Stats:
sprite 1000,mousex()-10,mousey()-10,1000
if mouseclick()=2
stats=sprite collision(1000,0)
if stats>0 and statflag=0 then statflag=stats
endif
if statflag>0
text 0,0,"Max Speed: "+str$(maxspeed#(statflag))
text 0,10,"Max Age: "+str$(maxage(statflag))
text 0,20,"Max Hunger: "+str$(maxhunger(statflag))
text 0,30,"Min Hunger: "+str$(minhunger(statflag))
text 0,40,"Metabolism Rate: "+str$(maxhungerSpeed(statflag))
text 0,50,"Reproduction Rate: "+str$(reprospeed(statflag))
else
text 0,0,"Life forms: "+Str$(total)
if total>0
text 0,10,"Av Speed: "+str$(totalmaxspeed#/total)+"/"+str$(maxspeed#)
text 0,20,"Av Age: "+str$(totalmaxage/total)+"/"+str$(maxage)
text 0,30,"Av Max Hunger: "+str$(totalmaxhunger/total)+"/"+str$(maxhunger)
text 0,40,"Av Min Hunger: "+str$(totalminhunger/total)+"/"+str$(minhunger)
text 0,50,"Av Metabolism Rate: "+str$(totalmaxhungerSpeed/total)+"/"+str$(maxhungerSpeed)
text 0,60,"Av Max Vision: "+str$(totalfov/total)+"/"+str$(fov)
text 0,70,"Av Reproduction Rate: "+str$(totalreprospeed/total)+"/"+str$(reprospeed)
endif
text 0,80,"Reproductions: "+str$(repronum)
text 0,90,"Restarts: "+str$(restarts)
if total>maxtotal then maxtotal=total
text 0,100,"Max Life forms: "+str$(maxtotal)
text 0,110,"Time: "+str$((timer()-time)/1000)
endif

if mouseclick()=0 then statflag=0
Return

DrawFood:
for f=1 to fnum
if fq(f)>0
center text fx(f),fy(f)-7,str$(ceil(fq(f)/100))
circle fx(f),fy(f),10
endif
next f
return

reset:
cnum=1
x#(cnum)=sw/2
y#(cnum)=sh/2
ang#(cnum)=rnd(360)
hunger(cnum)=200
alive(cnum)=1
age(cnum)=0

repronum=0


maxage(cnum)=maxage(mcnum)
maxspeed#(cnum)=maxspeed#(mcnum)
maxhunger(cnum)=maxhunger(mcnum)
minhunger(cnum)=minhunger(mcnum)
maxhungerspeed(cnum)=maxhungerspeed(mcnum)
reprospeed(cnum)=reprospeed(mcnum)
fov(cnum)=fov(mcnum)

maxage=maxage(cnum)
maxspeed#=maxspeed#(cnum)
maxhunger=maxhunger(cnum)
minhunger=minhunger(cnum)
maxhungerspeed=maxhungerspeed(cnum)
reprospeed=reprospeed(cnum)
fov=fov(cnum)
time=timer()

Positionfood(1,startfood*100)

return

function Positionfood(new,amount)
fx(new)=rnd(screen width())
fy(new)=rnd(screen height()-20)
fq(new)=amount
endfunction

This style of simulation would actually be useful for the solving of a variety of problems... like i've got to have a finished working design for a race car by tommorow so we can start work on it on thursday... if i made a simulator like this (but alot more complex!) so it could handle a whole load of variables, just set the environmental constants, load a rough model, run the program and after a while you get a high performance car! (or you would do if i could code to that level...)

There is no such thing as "Too Fast!"

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 21st Jan 2011 17:57

Link

Yeah, evolution is an awesome thing like that.

"I have faith, that I shall win the race, even though I have no legs, and am tied to a tree." ~Mark75

Back to top

Profile PM

TheConnorian

14

Years of Service

User Offline

Joined: 18th Dec 2009

Location: I\'m in ur game, pwning ur noobs

Posted: 31st Jan 2011 01:19

Link

dude i would love to play this but i keep getting errors with the fill circle bit.

Back to top

Profile PM

Rapidrory

14

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 1st Feb 2011 20:18

Link

just change the 'fill circle' bit to 'circle' and then use ink comands to set the colour..

There is no such thing as "Too Fast!"

Back to top

Profile PM

n008

17

Years of Service

User Offline

Joined: 18th Apr 2007

Location: Chernarus

Posted: 11th Feb 2011 19:29

Link

Interesting bug: After running this for about 18 hours (By accident) it crashed with an Image error on line 227. 0.o

"I have faith, that I shall win the race, even though I have no legs, and am tied to a tree." ~Mark75

Back to top

Profile PM

enderleit

16

Years of Service

User Offline

Joined: 30th May 2007

Location: Denmark

Posted: 15th Feb 2011 15:50

Link

That's pretty cool... I made an Ant simulator once, but the graphics we're really crappy compared to this...

- Martin Enderleit
http://sites.google.com/site/menderleit

Back to top

Profile PM Email Website

Rapidrory

14

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 17th Feb 2011 21:52

Link

@n008

I think thats due to the number of bacteria. if you increase 'Mcnum' at the beggining it should solve that problem.

There is no such thing as "Too Fast!"

Back to top

Profile PM

sadsack

20

Years of Service

User Offline

Joined: 27th Nov 2003

Location: here

Posted: 20th Feb 2011 01:58

Link

would like to see it but don' have the plug in.
it sound neat
renny

Life is not fair, so deal with it.
http://www.gusroundtable.com/

Back to top

Profile PM Email Website

xilith117

14

Years of Service

User Offline

Joined: 1st Nov 2009

Location:

Posted: 20th Feb 2011 19:02

Link

hey thats pretty awsome! good job!

Back to top

Profile PM Website

29 games

18

Years of Service

User Offline

Joined: 23rd Nov 2005

Location: not entirely sure

Posted: 22nd Feb 2011 00:13

Link

I really like this.

It might be quite cool to have the food grow, so they would act like plants it that respect, and then the bacteria as animals that feed off the plants.

I've also fancied doing something like predators and prey.

I might have a go at something like that myself.

@sadsack, I don't have any plugins and just changed the fill circle command to a normal circle command (like Rapidrory mentioned a few posts back) and it works fine.

Back to top

Profile PM Email

sadsack

20

Years of Service

User Offline

Joined: 27th Nov 2003

Location: here

Posted: 22nd Feb 2011 02:19

Link

Hey, I like it, do you mind if I play around wirh the code.
renny

Life is not fair, so deal with it.
http://www.gusroundtable.com/

Back to top

Profile PM Email Website

Rapidrory

14

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 23rd Feb 2011 12:56

Link

@sadsack, Go for it, I always like to see other peoples ideas

There is no such thing as "Too Fast!"

Back to top

Profile PM

sadsack

20

Years of Service

User Offline

Joined: 27th Nov 2003

Location: here

Posted: 24th Feb 2011 02:04

Link

thanks

Life is not fair, so deal with it.
http://www.gusroundtable.com/

Back to top

Profile PM Email Website

Rich Dersheimer

AGK Developer

14

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 8th Mar 2011 23:57 Edited at: 9th Mar 2011 01:24

Link

Cool! I made a different looking bacteria. Here's a demo of the way it looks. I'd like to combine it with your logic/AI and see how it behaves.

+ Code Snippet

ink 0xFFFFFF,0
type MyAmoeba
    x as integer
    y as integer
endtype
dim Amoeba(36) as MyAmoeba
nCenterX#=screen width()/2:nCenterY#=screen height()/2        
do
    if rnd(50)=1:nAddX = rnd(6)-3:nAddY = rnd(6)-3:endif
    nCenterX# = nCenterX# + nAddX:nCenterY# = nCenterY# + nAddY
    if nCenterX#<30 then nAddX=2
    if nCenterY#<30 then nAddY=2
    if nCenterX#>screen width()-30 then nAddX=-2
    if nCenterY#>screen height()-30 then nAddY=-2
    for nAngle=1 to 36:X#=newxvalue(nCenterX#,(nAngle*10.0)+rnd(8)-4,30.0+rnd(8)-4):Y#=newzvalue(nCenterY#,(nAngle*10.0)+rnd(8)-4,30.0+rnd(8)-4):Amoeba(nAngle).x=int(X#):Amoeba(nAngle).y=int(Y#):next nAngle
    Amoeba(0).x = Amoeba(36).x:Amoeba(0).y = Amoeba(36).y    
    cls
    for x=1 to 36:line Amoeba(x-1).x,Amoeba(x-1).y,Amoeba(x).x,Amoeba(x).y:line Amoeba(x).x,Amoeba(x).y,newxvalue(Amoeba(x).x,x*10,5),newzvalue(Amoeba(x).y,x*10,5):next x
    t=timer():while timer()<t+50:endwhile
loop

EDIT: Woah! Both sets of code make my home computer freak out! They ran okay at work (WinXP) but totally spaz out my display on my home Vista system. Ouch!

Attachments

Login to view attachments

Back to top

Profile PM Email

Rich Dersheimer

AGK Developer

14

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 9th Mar 2011 21:46 Edited at: 9th Mar 2011 21:52

Link

Here's what I came up with - it's pretty simple. I'm guessing it could be compressed to 20 lines or less. Oh, and you MUST have IanM's matrix plugin to compile, I use his fill commands.

set display mode 1024,768,32
maximize window
sync on
sync rate 60
sync
randomize timer()
cls 0
center text 512,350,"Releasing the germs..."
center text 512,370,"Left-click to drop some food."
center text 512,390,"Right-click to pick the food back up."
sync

type myAmoeba
    speed as integer
    scale as integer
    growth as integer
endtype

dim Amoeba(10) as myAmoeba

for a=1 to 10
    Amoeba(a).speed = 3
    Amoeba(a).scale = 1000
    Amoeba(a).growth = 5
next a

for r=1 to 20
    fill circle 33-r/2,33-r/2,21-r,rgb(200+r*2,50+r*10,0)
next r
get image 1001,0,0,64,64,1

set bitmap format 21
create bitmap 1,128,128
set current bitmap 0
cls 0xFF444444
for x=1 to 30
    c = rgb(rnd(50)+50,rnd(50)+50,rnd(50)+50)
    fill circle rnd(1024),rnd(768),rnd(200),c
next x
blur bitmap 0,6
blur bitmap 0,6
get image 1000,0,0,1024,768
texture backdrop 0,1000
sync

get image 1,0,0,128,128

for s=1 to 10
    sprite s,rnd(950)+50,rnd(700)+30,1    
    offset sprite s,56,56
    rotate sprite s,rnd(360)
next s
sprite 11,512,300,1001
offset sprite 11,32,32
hide sprite 11
dim tempX(36)
dim tempY(36)

do
    set current bitmap 1
    cls 0
    ink 0xFFFFFFFF,0
    
    for nAngle=1 to 36
        tempX(nAngle)=newxvalue(64,(nAngle*10.0),50+rnd(8)-4)
        tempY(nAngle)=newzvalue(64,(nAngle*10.0),50+rnd(8)-4)
    next nAngle
    
    tempX(0)=tempX(36)
    tempY(0)=tempY(36)
    
    for nL=1 to 36
        line tempX(nL-1),tempY(nL-1),tempX(nL),tempY(nL)
        line tempX(nL),tempY(nL),newxvalue(tempX(nL),nL*10.0,10.0),newzvalue(tempY(nL),nL*10.0,10.0)
    next nL
    fill 64,64,0xFF2222FF
    fill circle 64,64,25,0xFF3333FF
    get image 1,0,0,128,128,1    
    set current bitmap 0
    DeadSprites=0
    for s=1 to 10
        if rnd(10)=1 then rotate sprite s,sprite angle(s)+rnd(4)-2
        if sprite visible(11)
            x1# = sprite x(s)
            y1# = sprite y(s)
            x2# = sprite x(11)
            y2# = sprite y(11)
            angle#=ATAN((y1#-y2#)/(x1#-x2#))
            nDistance = sqrt((x1#-x2#)^2 + (y1#-y2#)^2)
            if x2# <= x1# then angle#=angle#-90.0 else angle# = angle#+90.0
            if nDistance<200 then rotate sprite s,angle#                    
            Amoeba(s).speed = 6
        else
            Amoeba(s).speed = 3
        endif
        
        if nDistance<6 and sprite visible(11)
            Amoeba(s).speed = 3
            Amoeba(s).growth = 5
            rotate sprite s,rnd(360)
            hide sprite 11
        endif
        move sprite s,Amoeba(s).speed 
        if sprite x(s)<-56 then rotate sprite s,rnd(180)
        if sprite x(s)>1080 then rotate sprite s,rnd(180)+180
        if sprite y(s)<-56 then rotate sprite s,rnd(180)+90
        if sprite y(s)>836 then rotate sprite s,rnd(180)-90        
        if Amoeba(s).growth > 0
            inc Amoeba(s).scale,100
            if Amoeba(s).scale >1500 then Amoeba(s).scale = 1500
            dec Amoeba(s).growth
        endif
        dec Amoeba(s).scale,10
        if Amoeba(s).scale<10
            Amoeba(s).scale = 10
            inc DeadSprites
        endif
        scale sprite s,Amoeba(s).scale/10
    next s
    if DeadSprites = 10
        center text 512,350,"GAME OVER"
        sync
        wait key
        end
    endif
    if mouseclick()=1 AND sprite visible(11)<>1
        sprite 11,mousex(),mousey(),1001
        show sprite 11
    endif
    
    if mouseclick()=2 then hide sprite 11

sync
    t=timer()
    while timer()<t+80
    endwhile
loop

+ Code Snippet

set display mode 1024,768,32
maximize window
sync on
sync rate 60
sync
randomize timer()
cls 0
center text 512,350,"Releasing the germs..."
center text 512,370,"Left-click to drop some food."
center text 512,390,"Right-click to pick the food back up."
sync

type myAmoeba
    speed as integer
    scale as integer
    growth as integer
endtype

dim Amoeba(10) as myAmoeba

for a=1 to 10
    Amoeba(a).speed = 3
    Amoeba(a).scale = 1000
    Amoeba(a).growth = 5
next a

for r=1 to 20
    fill circle 33-r/2,33-r/2,21-r,rgb(200+r*2,50+r*10,0)
next r
get image 1001,0,0,64,64,1

set bitmap format 21
create bitmap 1,128,128
set current bitmap 0
cls 0xFF444444
for x=1 to 30
    c = rgb(rnd(50)+50,rnd(50)+50,rnd(50)+50)
    fill circle rnd(1024),rnd(768),rnd(200),c
next x
blur bitmap 0,6
blur bitmap 0,6
get image 1000,0,0,1024,768
texture backdrop 0,1000
sync

get image 1,0,0,128,128

for s=1 to 10
    sprite s,rnd(950)+50,rnd(700)+30,1    
    offset sprite s,56,56
    rotate sprite s,rnd(360)
next s
sprite 11,512,300,1001
offset sprite 11,32,32
hide sprite 11
dim tempX(36)
dim tempY(36)

do
    set current bitmap 1
    cls 0
    ink 0xFFFFFFFF,0
    
    for nAngle=1 to 36
        tempX(nAngle)=newxvalue(64,(nAngle*10.0),50+rnd(8)-4)
        tempY(nAngle)=newzvalue(64,(nAngle*10.0),50+rnd(8)-4)
    next nAngle
    
    tempX(0)=tempX(36)
    tempY(0)=tempY(36)
    
    for nL=1 to 36
        line tempX(nL-1),tempY(nL-1),tempX(nL),tempY(nL)
        line tempX(nL),tempY(nL),newxvalue(tempX(nL),nL*10.0,10.0),newzvalue(tempY(nL),nL*10.0,10.0)
    next nL
    fill 64,64,0xFF2222FF
    fill circle 64,64,25,0xFF3333FF
    get image 1,0,0,128,128,1    
    set current bitmap 0
    DeadSprites=0
    for s=1 to 10
        if rnd(10)=1 then rotate sprite s,sprite angle(s)+rnd(4)-2
        if sprite visible(11)
            x1# = sprite x(s)
            y1# = sprite y(s)
            x2# = sprite x(11)
            y2# = sprite y(11)
            angle#=ATAN((y1#-y2#)/(x1#-x2#))
            nDistance = sqrt((x1#-x2#)^2 + (y1#-y2#)^2)
            if x2# <= x1# then angle#=angle#-90.0 else angle# = angle#+90.0
            if nDistance<200 then rotate sprite s,angle#                    
            Amoeba(s).speed = 6
        else
            Amoeba(s).speed = 3
        endif
        
        if nDistance<6 and sprite visible(11)
            Amoeba(s).speed = 3
            Amoeba(s).growth = 5
            rotate sprite s,rnd(360)
            hide sprite 11
        endif
        move sprite s,Amoeba(s).speed 
        if sprite x(s)<-56 then rotate sprite s,rnd(180)
        if sprite x(s)>1080 then rotate sprite s,rnd(180)+180
        if sprite y(s)<-56 then rotate sprite s,rnd(180)+90
        if sprite y(s)>836 then rotate sprite s,rnd(180)-90        
        if Amoeba(s).growth > 0
            inc Amoeba(s).scale,100
            if Amoeba(s).scale >1500 then Amoeba(s).scale = 1500
            dec Amoeba(s).growth
        endif
        dec Amoeba(s).scale,10
        if Amoeba(s).scale<10
            Amoeba(s).scale = 10
            inc DeadSprites
        endif
        scale sprite s,Amoeba(s).scale/10
    next s
    if DeadSprites = 10
        center text 512,350,"GAME OVER"
        sync
        wait key
        end
    endif
    if mouseclick()=1 AND sprite visible(11)<>1
        sprite 11,mousex(),mousey(),1001
        show sprite 11
    endif
    
    if mouseclick()=2 then hide sprite 11

    sync
    t=timer()
    while timer()<t+80
    endwhile
loop

Attachments

Login to view attachments

Back to top

Profile PM Email

Rapidrory

14

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 10th Mar 2011 23:13

Link

wow, that looks awesome Rich! unfortunately texture backdrop is now an obsolete command apparently, but still quite cool!

There is no such thing as "Too Fast!"

Back to top

Profile PM

Rich Dersheimer

AGK Developer

14

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 11th Mar 2011 00:44

Link

Thanks!

Quote: "unfortunately texture backdrop is now an obsolete command"

Nah, it was put back in for Dark Clouds with upgrade 7.4, however SCROLL BACKDROP was taken OUT, for some unexplained reason.

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 25th Apr 2011 14:20

Link

I found Rich's picture so cool, I started working on another type of amoeba-like thing you might be able to use.

Back to top

Profile PM Email Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 4th May 2011 08:02

Link

hey rich, could you compile and package up a .zip for us?

i'm looking at this today and it is awesome!
you have started a buzz, rapidrory!
(and it's so captivating to watch...i let it go 15 minutes...
longer than i probably play most games i try out!)

Random Realms
Space Conflict

Back to top

Profile PM Email Website

Rich Dersheimer

AGK Developer

14

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 4th May 2011 17:34 Edited at: 4th May 2011 18:33

Link

Quote: "hey rich, could you compile and package up a .zip for us?
"

I just tried cutting and pasting from my above code snippet, and it doesn't work at all. Has something changed with the way the forum code snippets works?

Anyway, here's the .exe, in a .zip file.

Attachments

Login to view attachments

Back to top

Profile PM Email

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 4th May 2011 22:09

Link

thanks, rich, i don't have any of the plugins mentioned,
so that helps.
your version looks beautiful, but i can only keep
one bacteria alive at a time (or one group of them)

Random Realms
Space Conflict

Back to top

Profile PM Email Website

Rich Dersheimer

AGK Developer

14

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 4th May 2011 22:47

Link

@IBOL - thanks! Mine's not really a game or anything, just a demo of how I made the amoeba graphic.

Back to top

Profile PM Email

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 6th May 2011 17:17

Link

i'm working on my own version now. thanks for the inspiration.

Random Realms
Space Conflict

Back to top

Profile PM Email Website

Rapidrory

14

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 7th May 2011 01:06

Link

Glad to see it being appreciated.

Can't wait to see what you make from it IBOL, having been a great fan of your previous games (i spent hours playing space conflict and random realms!)

Thanks for the .exe Rich, it was looking a bit plain without the background

There is no such thing as "Too Fast!"

Back to top

Profile PM

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 8th May 2011 08:37

Link

here's what i have so far.
it is similar to what i've seen here, but multiple "food's" are placed randomly,
and i use procedurally generated "bacteria" pictures.

here are some of the rules that apply:

+ Code Snippet

- there are 3 kinds of food, and each cell prefers a particular kind, and gets better nutrition from that kind. this is by the *individual* , and not by the "race"
- food supply increases and decreases over time.
- smaller cells are faster, faster cells burn more energy to live.
- larger cells are slower, and burn more nutrition due to size
- cells must be of a certain age & have enough nutrition to reproduce.
- cells reproduce by splitting. there is a chance of mutation for every new cell born.
- each new litter, even without "mutation" has very slightly different characteristics than its parent.
- some cells can "eat" other cells, and gain nutrition from it.
- cells "fight" based on "weapons" (poison, fangs, pounce) and defenses (stealth, armor, agility)
- combat stats are only gained thru "mutation"
- a large enough cell will have a combat advantage over a smaller cell.

the whole thing is full of remmed out stuff and random thoughts,
since it's been designed at the same time as being programmed
(not the best way of doing things!)

you can click on a particular bacteria to see its information.
hold controlkey to make the bacteria disappear.
(in case you need to read stuff)

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, May 04, 2011

Rem ***** Main Source File *****

set display mode 800,600,32
sync on
sync rate 0
sync
randomize timer()
set window position 50,50

set text font "lucida console"

if file exist("bug debug.txt") then delete file "bug debug.txt"
open to write 1,"bug debug.txt"

type life_form
x as float
y as float
spd
age
nut b
size
span
reproAGE
reproNUT
reproLIT
AGG
FEAR
PRED
metab
stealth
armor
agility
poison
fangs
pounce
ID
img
L$ as string
chewing
TX
TY
i2
FoodPref
Eff
endtype
 ` eff is metabolic efficiency.

Type Food
 kind
 x
 y
 time
 amount
Endtype

dim c(24,24)
dim d(25,25)

dim col(9) as dword

col(0)=rgb(255,255,255)

Global TotalID
Global Mutation
Global Elap
Global NumMutations
Global Predations
Global Supply
Global AvgSize
Global HiMetab
Global HiEff
Global Starvations
Global BioDiversity
 ` Global Favorite

Global alive
     Global aliveguy

starthere:

TotalID=1
Mutation=8+rnd(7)
Elap=0
NumMutations=0
Predations=0
Supply=10
AvgSize=75
Starvations=0
HIBD=0
seconds=0
HiEff=0
HiMetab=0

INITIALIZE_BASE_CELLS()

Create_Drops()

Dim LF(201) as life_form

dim fo(10) as Food

Dim Pa(201,5)
 ` this is PARENTS. the last 5 parents of this organism.
 ` 3 generations is not all that much seperation...

` so, make a 'first cell' , and then the game begins.
` - food drops at random locations, and the bacteria moves toward it.
` - it eats , breeds , or dies as needed.

` clear out old stuff:
for t=1 to 201
 if sprite exist(t) then delete sprite t
 kill_cell(t)
 if image exist(t)
  delete image t
 endif
    for u=0 to 5 
     Pa(c,u)=0
    next u
next t

Create_First_Cell()

for t=1 to 10
 fo(t).x=rnd(600)+50
 fo(t).y=rnd(500)+50
 fo(t).kind=1
 sprite 300+t,fo(t).x,fo(t).y,905
 fo(t).amount=24
next t

cel=0

t1=timer()

do
cls
` lock pixels

` "elap" is how many milliseconds have passed since the last loop.
  ` it is used to determine how much EFFECT everything has this loop
  
elap=timer()-t1
t1=timer()

` elap=1

IF CONTROLKEY()
 HIDE ALL SPRITES
ELSE
 SHOW ALL SPRITES
ENDIF

`FOR T=1 TO 100
`IF SPRITE EXIST(T)
`IF LF(T).TX=0 OR LF(T).TY=0
` TEXT 400,T*5,"LF #"+STR$(T)+" DOES NOT HAVE A TARGET"
`ENDIF
`ENDIF
`NEXT T

` LFs only take action if the SPACEKEY is NOT pressed, and the mouse is also not clicked
IF SPACEKEY()=0 and mouseclick()=0

` ### AI BEGIN
inc cel
 if cel>100 
  cel=1
  One_Hundred_Cycles()
 endif
  if sprite exist(cel)
   ` ### AI BEGIN
   ` find NEAREST FOOD
   ` find other cells , and determine their threat level or tastiness.
   
    dis=9999
    fx=0
    fy=0
     for t=1 to 10
      if sprite exist(t+300)
       i=sprite image(t+300)-904
       d=d2d(lf(cel).x,lf(cel).y,fo(t).x,fo(t).y)
       
        ` make non-favorite food be less desirable:
       if i<>lf(cel).FoodPref then d=d*2
       
        if d<dis
         dis=d
         fx=fo(t).x+rnd(10)-5
         fy=fo(t).y+rnd(10)-5
        endif
      endif
     next t 
        
        ` by now, we have an FX,FY. 
         ` but if the cell is VERY HUNGRY, it might actively hunt its kin.
          IF LF(CEL).NUT<1
           for t=1 to 100
            if t<>cel
            if sprite exist(t)
             d=d2d(lf(cel).x,lf(cel).y,lf(t).x,lf(t).y)*3
              if d<dis
               a=combat_score(cel,t)
               b=combat_score(t,cel)
               if a>b
                ` the hungry cell will try to eat this cell!
                   fx=lf(t).x+rnd(6)-3
                   fy=lf(t).y+rnd(6)-3
                   dis=d
               endif
              endif         
            endif
            endif
           next t
          ENDIF
        
        ` this sets target for FOOD:
      if fx>0 and fy>0
       lf(cel).tx=fx
       lf(cel).ty=fy
`        rotate sprite cel,atanfull(lf(cel).x-lf(cel).tx,lf(cel).y-lf(cel).ty)-180
      ELSE
       ` FOR SOME REASON, WE DID NOT FIND A TARGET FOR THIS LF TO GO TO.
      endif
      
   
   ` ### AI END   
  endif
` ### AI END

Control_Life_Forms()

inc counter,elap
     if counter>100 : ` (50+supply*10)
      Spawn_Food()
      dec counter,100 : ` (50+supply*10)
     endif

ENDIF

ink col(0),0

if alive>0 
 inc seconds,elap
else
 center text 400,300,"PRESS  ENTER  TO  RESET"
  if returnkey() then goto starthere
endif

if BioDiversity>HIBD
 HIBD=BioDiversity
endif

` supply=3+abs(sin(seconds)*8)

`text 0,0,"Elap : "+str$(elap)
text 0,0,"Seconds : "+str$(seconds/1000.0,1)
text 0,15,"FPS : "+str$(screen fps())
text 0,30,"Births : "+str$(TotalID)
text 0,50,"Mutation Rate : "+str$(Mutation)+"%"

text 0,65,"Mutations  : "+str$(NumMutations)
text 0,80,"Starvations: "+str$(Starvations)
text 0,95,"Predations : "+str$(Predations)

text 0,115,"BioDiversity: "+str$(BioDiversity)
text 0,130,"HIBioDiv: "+str$(HIBD)
text 0,145,"# Alive: "+str$(alive)

text 0,535,"food supply:"+str$(supply)
text 0,550,"AvgSize:"+str$(AvgSize)
text 0,565,"HiMetab:"+str$(Himetab)
text 0,580,"HiEff:"+str$(HiEff)

` MostAlive

IF MOUSECLICK()

SPRITE 999,MOUSEX(),MOUSEY(),905
SCALE SPRITE 999,5

Q=sprite collision(999,0)

if Q>100 then Q=0

ENDIF

`if alive<2 or Q=0
`if aliveguy>0
` Q=aliveguy
`endif
`endif

`Q=0

if Q>0
if sprite exist(Q)=0
 Q=0
endif
endif

if Q>0 and lf(Q).age>0

` circle lf(Q).x+12,lf(Q).y+12,15
 circle lf(Q).x+11,lf(Q).y+11,12

center text 739,0,"SPD : "+str$(lf(Q).spd)
center text 739,15,"AGE : "+str$(lf(Q).AGE)
center text 739,30,"NUT : "+str$(lf(Q).NUT)
center text 739,45,"SIZE : "+str$(lf(Q).SIZE)
center text 739,60,"metab : "+str$(lf(Q).metab)
center text 739,75,"efficiency : "+str$(lf(Q).eff)

center text 739,100,"REPROAGE : "+str$(lf(Q).REPROAGE)
center text 739,120,"REPRONUT : "+str$(lf(Q).REPRONUT)
center text 739,140,"SPAN : "+str$(lf(Q).SPAN)
center text 739,155,"+PRED : "+str$(lf(Q).pred)

center text 739,180,"POISON : "+str$(lf(Q).POISON)
center text 739,200,"FANGS : "+str$(lf(Q).FANGS)
center text 739,220,"POUNCE : "+str$(lf(Q).POUNCE)

center text 739,260,"STEALTH : "+str$(lf(Q).STEALTH)
center text 739,280,"ARMOR : "+str$(lf(Q).ARMOR)
center text 739,300,"AGILITY : "+str$(lf(Q).AGILITY)

center text 739,340,"ID : "+str$(lf(Q).ID)
center text 739,360,"img : "+str$(lf(Q).img) : `paste image lf(Q).img,740,360

center text 739,400,"tx : "+str$(lf(Q).tx)
center text 739,415,"ty : "+str$(lf(Q).ty)

`center text 739,," : "+str$(lf(Q).)
`center text 739,," : "+str$(lf(Q).)
`center text 739,," : "+str$(lf(Q).)

if sprite exist(Q)=0 then Q=0

endif

`for t=1 to 400
` if sprite exist(t)
`  offset sprite t,sprite width(t)/2,sprite height(t)/2
` endif
`next t
 
for t=300 to 310
 if sprite exist(t)
  offset sprite t,sprite width(t)/2,sprite height(t)/2
 endif
next t

` unlock pixels
sync

loop

end

Function One_Hundred_Cycles()

BioDiversity=0

` for avgsize calc, n is how many cells are alive, z is the added-up size
n=0
z=0

` DELETE UNUSED IMAGES:
     for t=1 to 100
      lf(t).i2=0
     next t
     
     alive=0
     aliveguy=0
     
     for t=1 to 100
      if lf(t).age>0
      if lf(t).img>0
       lf(lf(t).img).i2=1
       inc n
       inc z,lf(t).size
       inc alive
       aliveguy=t
      endif
      endif
     next t
     
     for t=1 to 100
      if image exist(t)
      if lf(t).i2<1
       delete image t
      else
       inc BioDiversity
      endif
      endif
     next t

` POSSIBLY ADJUST THE FOOD SUPPLY:
 if rnd(11)=0
  if supply<4
   inc supply
  else
   if supply>9
    dec supply
   else
    sgn=(rnd(1)*2)-1
    supply=supply+sgn
   endif
  endif
 endif
 
 
  if n>0
   avgsize=z/n
  else
   avgsize=0
  endif

Endfunction

Function Spawn_Food()

f=0
 numfood=0

` determine how many food we HAVE, and if there are any food sprites available to use.
for u=1 to 10
 v=300+u
  if sprite exist(v)
   inc numfood
  else
   f=v
  endif
next u

if numfood<supply and f>0
 ` we need a new food, AND there is a sprite available.
 n=f-300
 fo(n).x=rnd(700)+50
 fo(n).y=rnd(500)+50
 fo(n).kind=905+rnd(2)
 sprite f,fo(n).x,fo(n).y,fo(n).kind
 fo(n).amount=25
 scale sprite f,100
endif

Endfunction

Function Combat_Score(a,b)
 ` this function will calculate a COMBAT SCORE for
 ` LF(A) vs. LF(B).
  ` when we have a possible combat, we'll call this twice.
  ` once for a vs. b, once for b vs. a
  ` whichever is higher will win (but no combat for a tie)

if a>0 and b>0 and a<101 and b<101
    
    ` a size difference of 50 will give a combat bonus.

x=0    
    if ((LF(a).size-LF(b).size))>50 then inc x

if LF(a).poison>lf(b).stealth then inc x , (LF(a).poison-lf(b).stealth)
    if LF(a).fangs>lf(b).armor then inc x , (LF(a).fangs-lf(b).armor)
    if LF(a).pounce>lf(b).agility then inc x , (LF(a).pounce-lf(b).agility)

`    if LF(a).poison>lf(b).stealth then inc x
`    if LF(a).fangs>lf(b).armor then inc x
`    if LF(a).pounce>lf(b).agility then inc x

endif

Endfunction x

Function Control_Life_Forms()
 ` everything moves towards its target. if it arrives at its target, 
  ` the target is set to 0,0

for t=1 to 100
 if sprite exist(t)
  ` allow to spawn , or move if can't spawn.
   ` also, increase age, decrease nutrition, and kill if necessary.
   
   if lf(t).age>lf(t).span
    ` THIS ONE DIES OF OLD AGE (or starvation)
    kill_cell(t)
    if sprite exist(t) then delete sprite t
    inc Starvations
    
   else
    ` did NOT die yet. so control it.
     
      ` AGE. age double for starving. also "process nutrition".
     inc lf(t).age,elap
      if lf(t).nut<1 
       inc lf(t).age,((elap*lf(t).metab)/75) : ` this is STARVATION
      else
       dec lf(t).nut,((elap*lf(t).metab)/100)
      endif

if (lf(t).age>=lf(t).reproAGE) AND (lf(t).nut>lf(t).reproNUT)
      ` this one can SPAWN RIGHT NOW. do it!
      
`      if t=1
`       text 0,120,"I AM READY TO SPAWN!"
`      endif
      
      Cell_Spawns(t)
      
     else
      ` can't spawn.
       ` therefore, it probably MOVES.
       
       
       ` we'll just try some PREDATION right here!
        `  Predations
        
        
`      FOR PREDS=1 TO 3
        
`      FOR PREDS=1 TO 5
        
        v=sprite collision(t,0)
         if v>0 and v<101
      
         if lf(t).img<>lf(v).img : ` try not to eat your own kind!
         
          a=combat_score(t,v)
          b=combat_score(v,t)
           if a>b
            ` T EATS V !
             delete sprite v
             kill_cell(v)
             inc Predations
             inc lf(t).nut,lf(t).pred
           endif
           
         endif
        
         endif
`      NEXT PREDS   
         
         ` if he has reached his destination, select a random target
       if d2d(lf(t).x,lf(t).y,lf(t).tx,lf(t).ty)<2
        lf(t).tx=rnd(600)+50
        lf(t).ty=rnd(500)+50
       endif
         
         
       if lf(t).tx>0 and lf(t).ty>0 and lf(t).size>0
       
           x#=lf(t).x
           y#=lf(t).y

` speed is currently affected by size:
              ` spd = (lf(t).spd + lf(t).size)/2
              spd = (lf(t).spd*100)/lf(t).size

IF LF(T).NUT<7500
           ` A NEW THING: any cell that is SATIATED, doesn't bother to MOVE.
            ` (might not favor the fittest though...
             ` it actually favors the HUNGRY...)

` MOVEMENT
             if x#<lf(t).tx
              x#=x#+(elap/999.9)*spd
              `x#=x#+(elap/999.9)*lf(t).spd
             endif             
             if y#<lf(t).ty
              y#=y#+(elap/999.9)*spd
              `y#=y#+(elap/999.9)*lf(t).spd
             endif             
             if x#>lf(t).tx
              x#=x#-(elap/999.9)*spd
              `x#=x#-(elap/999.9)*lf(t).spd
             endif             
             if y#>lf(t).ty
              y#=y#-(elap/999.9)*spd
              `y#=y#-(elap/999.9)*lf(t).spd
             endif
          ENDIF
          
          
           sprite t,x#,y#,sprite image(t)
`           offset sprite t,sprite width(t)/2,sprite height(t)/2
           
           lf(t).x=x#
           lf(t).y=y# 
          
           ` check for EATING:
          for u=1 to 10
           v=u+300
           if sprite exist(v)
           if sprite collision(v,t)
            i=sprite image(v)-904
                if lf(t).FoodPref=i
                 inc lf(t).nut,250 : ` 4500
                else
                 inc lf(t).nut,100 : ` 2000
                endif
            `delete sprite v
            
            dec fo(u).amount
            
            `lf(t).tx=rnd(700)+50
            `lf(t).ty=rnd(500)+50
            
            if fo(u).amount>0
             scale sprite v,fo(u).amount*4
            else
             delete sprite v
            endif
            
            
            
`            fo(u).x=rnd(600)+50
`            fo(u).y=rnd(500)+50
`            sprite v,fo(u).x,fo(u).y,905
           endif
           endif
          next u
          
       endif
       
     endif : ` can't spawn.
     
    
   endif : ` hasn't died.
 
 endif
next t

Endfunction

Function Create_Cell_Image()

` 0's are "OFF"
    ` 1's are "always on"
    ` 2's are "50% chance" to become '1', or be turned OFF
    ` then , any totally isolated cell is DELETED. (0) (orthoganal or diagonal)
    ` then , the entire thing is "SKINNED" (3)
     ` (any 0 surrounded by a 1 (or 2) is turned into a 3)
    ` then between 5 and 25  '1's'  are turned into 4s (organs)
    
    ` 1's, 3's, and 4's are each their own colors. 
     ` there should be no 2's , and 3 colors.

for x=1 to 24
    for y=1 to 24
     d(x,y)=c(x,y)
    next y
    next x
    
    ` 0's and 1's are already taken care of.
    
    chance=rnd(2)+3 : `  16% - 25% chance
    
    ` do 2's
    for x=1 to 24
    for y=1 to 24
     if d(x,y)=2 
      if rnd(chance)=0
       d(x,y)=1
      else
       d(x,y)=0
      endif
     endif
    next y
    next x
    
    ` now REMOVE ISOLATED CELLS
    for x=1 to 24
    for y=1 to 24
     if d(x,y)=1      
          ` check for neighbors:
         n=0
          for t=x-1 to x+1
          for u=y-1 to y+1
           if t<>x or u<>y : ` you are not your own neighbor!
           if d(t,u)=1 
            inc n
           endif
           endif
          next u
          next t       
           if n=0
            d(x,y)=0
           endif  
     endif
    next y
    next x
    
    ` now make SKIN:    
    for x=1 to 24
    for y=1 to 24
     ` select an empty cell
     if d(x,y)=0
          for t=x-1 to x+1
          for u=y-1 to y+1
           if t=x or u=y : ` if it's got a cardinal neighbor
            if d(t,u)=1
             d(x,y)=3 : ` make it skin!
            endif
           endif       
          next u
          next t
     endif  
    next y
    next x
    
    ` now make ORGANS:
    org=(rnd(20)+5)*(rnd(1)+1)
    
    for t=1 to org
     ` at this point, any 1 can become a 4    
        repeat
         x=rnd(23)+1
         y=rnd(23)+1
        until d(x,y)=1
         d(x,y)=4     
    next t

CREATE BITMAP 1,24,24
SET CURRENT BITMAP 1
CLS

repeat
a=50+rnd(185)
b=50+rnd(185)
c=50+rnd(185)
until abs(a-b)>30 or abs(b-c)>30

col(1)=rgb(a,b,c)
col(3)=rgb(c,a,b)
col(4)=rgb(b,c,a)

`cls
for x=1 to 24
for y=1 to 24
 if d(x,y)>0  
  ink col(d(x,y)),0
  box x*18,y*18,x*18+18,y*18+18  
  dot x,y
 endif
next y
next x

One_Hundred_Cycles()
I=0
 repeat
  inc i
 until image exist(i)=0
 
 get image i,0,0,24,24,1
 
DELETE BITMAP 1
set current bitmap 0

Endfunction I

Function INITIALIZE_BASE_CELLS()

restore
for y=1 to 24
for x=1 to 24
 read c(x,y) 
next x
next y

data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : ` 1
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : ` 2
data 0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0 : ` 3
data 0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0 : ` 4
data 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0 : ` 5
data 0,0,0,2,2,2,2,2,2,1,1,1,1,1,2,2,2,2,2,2,2,0,0,0 : ` 6
data 0,0,0,2,2,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,2,0,0,0 : ` 7
data 0,0,2,2,2,2,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,0,0 : ` 8
data 0,0,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,0,0 : ` 9
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 10
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 11
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 12
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 13
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 14
data 0,0,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,0,0 : ` 15
data 0,0,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,0,0 : ` 16
data 0,0,2,2,2,2,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,0,0 : ` 17
data 0,0,0,2,2,2,2,2,1,1,1,1,1,1,1,2,2,2,2,2,2,0,0,0 : ` 18
data 0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0 : ` 19
data 0,0,0,0,2,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,0,0,0,0 : ` 20
data 0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0 : ` 21
data 0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0 : ` 22
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : ` 23
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : ` 24

Endfunction

Function D2D(x,y,a,b)
 d#=sqrt( (x-a)*(x-a) + (y-b)*(y-b) )
Endfunction d#

Function Kill_Cell(c)
    LF(c).x=0
    LF(c).y=0
    LF(c).spd=0
    LF(c).age=0
    LF(c).nut=0
    LF(c).size=0
    LF(c).span=0
    LF(c).reproAGE=0
    LF(c).reproNUT=0
    LF(c).reproLIT=0
    LF(c).AGG=0
    LF(c).FEAR=0
    LF(c).PRED=0
    LF(c).metab=0
    LF(c).stealth=0
    LF(c).armor=0
    LF(c).agility=0
    LF(c).poison=0
    LF(c).fangs=0
    LF(c).pounce=0
    LF(c).ID=0
    LF(c).img=0
    LF(c).L$=""
    LF(c).chewing=0
    LF(c).TX=0
    LF(c).TY=0  
    LF(c).Eff=0
Endfunction 
  
Function Create_First_Cell()  
 ` no randomness in the first cell, besides position.
  ` span & age are measured in MILLISECONDS,
   ` so the starting SPAN is 20 seconds,
    ` and the breeding age is 6 seconds.
 ` NUT is also measured in milliseconds. (so it has 2 seconds of nutrition)

C=1

I=Create_Cell_Image()

LF(c).x=rnd(600)+50
    LF(c).y=rnd(500)+50
    LF(c).spd=100
    LF(c).age=1
    LF(c).nut=500
    LF(c).size=75
    LF(c).span=9000
    LF(c).reproAGE=3000
    LF(c).reproNUT=1300
    LF(c).reproLIT=2
    LF(c).AGG=0
    LF(c).FEAR=0
    LF(c).PRED=500
    LF(c).metab=100
    LF(c).stealth=0
    LF(c).armor=0
    LF(c).agility=0
    LF(c).poison=0
    LF(c).fangs=0
    LF(c).pounce=0
    LF(c).ID=1
    LF(c).img=I
    LF(c).L$=""
    LF(c).chewing=0
    LF(c).TX=0
    LF(c).TY=0  
    LF(c).Eff=100
    
    for t=0 to 5 
     Pa(c,t)=0
    next t

sprite 1,LF(c).x,lf(c).y,i
 scale sprite 1,75

Endfunction

Function Cell_Spawns(c)
 ` basically, cell # c is taken as the parent, 
  ` and has a LITTER of 2-n new cells.
  ` the NEW CELLS are (nearly) identical to its PARENT, 
   ` UNLESS IT MUTATES. in that case , it mutates according to the mutate function.

` NEED TO INCLUDE *PARENTS* HERE.

`for t=1 to LF(c).reproLIT

for t=1 to 2

num=0
  repeat
   inc num
  until LF(num).age=0 or num>100
  
  if num<101

inc TotalID

Mut=0
      I=LF(c).img
       ` the more diverse the population already is, the LESS chance of mutations.
     if rnd(99)<(Mutation-(BioDiversity/2))
      I=Create_Cell_Image()
      Mut=1
     endif

LF(num).x=LF(c).x+rnd(50)-25
    LF(num).y=LF(c).y+rnd(50)-25
    LF(num).spd=LF(c).spd+rnd(7)-3
    LF(num).age=1
    LF(num).nut=500
    LF(num).size=LF(c).size+rnd(7)-3
    LF(num).span=LF(c).span+rnd(9)-3
    LF(num).reproAGE=LF(c).reproAGE-rnd(7)+3
    LF(num).reproNUT=LF(c).reproNUT-rnd(7)+3
    LF(num).reproLIT=LF(c).reproLIT
    
    LF(num).AGG=LF(c).AGG
    LF(num).FEAR=LF(c).FEAR
    LF(num).PRED=LF(c).PRED
    LF(num).metab=LF(c).metab
    
    LF(num).stealth=LF(c).stealth
    LF(num).armor=LF(c).armor
    LF(num).agility=LF(c).agility
    
    LF(num).poison=LF(c).poison
    LF(num).fangs=LF(c).fangs
    LF(num).pounce=LF(c).pounce
    
    LF(num).ID=TotalID
    LF(num).img=I
    `LF(num).L$=""=LF(c).l$
    LF(num).chewing=0
    LF(num).TX=rnd(600)+50
    LF(num).TY=rnd(500)+50

LF(num).Eff=LF(c).Eff+rnd(4)-2

LF(num).FoodPref=rnd(2)+1

if mut=1
  Mutate_Cell(num)
 endif

IF LF(num).spd>499 THEN LF(num).spd=300+RND(100)
    IF LF(num).size>499 THEN LF(num).size=300+RND(100)
    IF LF(num).span>30000 THEN LF(num).span=30000-RND(2000)
    IF LF(num).reproAGE<1000 THEN LF(num).reproAGE=1000+RND(50) 
    IF LF(num).reproNUT<800 THEN LF(num).reproNUT=800+RND(50)
    IF LF(num).PRED>2500 THEN LF(num).PRED=2500-RND(100)
    IF LF(num).Eff>300 THEN LF(num).Eff=200+RND(100)

` a further limitation to speed is based on size:
    if LF(num).spd>LF(num).size*3 then LF(num).spd=(LF(num).size*2)+rnd(LF(num).size)

`  write string 1,"the cell i spawned has image # "+str$(LF(num).img)

sprite num,LF(num).x,lf(num).y,LF(num).img
`     rotate sprite num,(360/num)
     scale sprite num,LF(num).size+1
     
     
     ` FIGURE METABOLISM NOW.
     m=LF(num).spd + (LF(num).size/75)
     m=m+(LF(num).stealth+LF(num).armor+LF(num).agility) : `*3
     m=m+(LF(num).poison+LF(num).fangs+LF(num).pounce) : ` *5
     
`     m=100
     
      ` this adjusts metabolism for EFFICIENCY
     m=(m*100)/lf(num).Eff
     
     lf(num).metab=m
     
     if lf(num).metab>HiMetab then HiMetab=lf(num).metab
     if lf(num).eff> HiEff then  HiEff=lf(num).eff
     
  endif
  
  
next t

Kill_Cell(c)
delete sprite c
Endfunction

Function Mutate_Cell(c)

Inc NumMutations
` this counts how many CELLS mutate, not necesssarily how many mutations
 ` occur (some cells do 2 mutations at a go)

` for now, ALL CHANGES ARE POSITIVE.

changes = 1 +( rnd(1)*rnd(1) )

` there are 14 things that can change during a mutation.

Done6=0

for t=1 to changes

repeat
 x=rnd(13)
until Done6=0 or x<>6

mult=(rnd(1)*rnd(1))+1    
` mult=1
  
    select x
     
     case 0
      ` speed and size are now capable of going DOWN to balance metabolism
      if lf(c).spd<300 or rnd(2)=0
       inc LF(c).spd,(rnd(9)+9)*mult
      else
       if lf(c).spd>200
        dec LF(c).spd,((rnd(30)+30))
       endif
      endif
     endcase
     
     case 1     
      if ( avgsize<300 or rnd(1)=0 ) and (supply>5 or rnd(1)=0)
        inc LF(c).size,(rnd(10)+10)
      else 
       if lf(c).size>125
        dec LF(c).size,((rnd(30)+30))
       endif
      endif
     endcase
     
     case 2
        inc LF(c).span,(rnd(100)+100)*mult
     endcase
     
     case 3
       if LF(c).reproAGE>1000
        dec LF(c).reproAGE,(50+rnd(50))*mult
       endif
     endcase
     
     case 4
      if LF(c).reproNUT>800
        dec LF(c).reproNUT,(50+rnd(50))*mult
      endif
     endcase
     
     case 5   
      ` better metabolic efficiency        
       inc LF(c).Eff,10+rnd(10)
     endcase
     
     case 6
      ` halves your size when avg size is too big.
        if AvgSize>300
        if LF(c).size>150
         LF(c).size=LF(c).size/2
          dec t
          Done6=1
           ` this gives them an extra advantage for losing so much size
        endif
        endif
     endcase
     
     case 7
        inc LF(c).PRED,(99+rnd(99))*mult
     endcase
     
     case 8   
        inc LF(c).stealth,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 9
        inc LF(c).armor,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 10
        inc LF(c).agility,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 11    
        inc LF(c).poison,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 12
        inc LF(c).fangs,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 13
        inc LF(c).pounce,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
endselect

next t

Endfunction

` still need to make food, poison, and mutagen.
`  food is green, poison is red, mutagen is blue or purple.

Function Create_Drops()

col(5)=Rgb(0,128,0)
col(6)=Rgb(255,0,66)
col(7)=Rgb(128,0,192)

for t=5 to 7
    
    CREATE BITMAP 1,24,24
    SET CURRENT BITMAP 1
    CLS
    
     ink col(t),0
    
     for u=t-4 to t+2
      circle 12,12,u
     next u    
    
     I=t+900 : ` 905,906,907
     
     get image i,0,0,24,24,1
     
    DELETE BITMAP 1
    set current bitmap 0

next t

Endfunction

` 200 is too many. go to 100 <X>

` perhaps have a "SPAWNING COUNTDOWN", 
` where you grow in size, and then POP, and your offspring appear then.

` perhaps PREDATION occurs ANY TIME that two cells who meet 
` have a DIFFERENT COMBAT SCORE.
 ` weapons & defenses.
` compute a score for any two that touch.
` if the scores favor one, it kills the other.
` also, perhaps this is only done every 100 loops (just like AI choices)

` maybe the 3 colored pickups could just be a KIND of food,
 ` and each life form has a FAVORITE COLOR OF FOOD.
 ` it's just a "flavor" item, to give different cells different GOALS.
  ` (they could even have a BEATS relationship.
   ` someone who prefers red only gets 1/2 from green and 1/4 from blue)
   
   
   
   ` DELETE OLD IMAGES EVERY 100 CYCLES.
   
   ` ALLOW PREDATION OF *ALL* CONTACTED LIFE-FORMS.
   
   ` USE A "COLL-DOWN" FOR RESPAWNING FOOD...
    ` maybe every 25 cycles.
    ` perhaps also have a "max food" that changes over time,
     ` alternating between 3-10
     
     
` AT SOME POINT THEY JUST STOP MOVING. WHY?

` supply=3+(sin(seconds)*8)

` animation for DEATH BY STARVATION: slowly shrinks to nothing,
 ` OR fades away to nothing.
 
` animations for active predation:
 ` spin in one complete circle.
  ` but that might mess with the "placement / onscreen orientation"
   `
   
` if the cell whose AI TURN it is has LOW NUTRITION,
 ` (<1) , then that cell might ACTIVELY look for another cell to PREDATE,
  ` if the food is too far away.

` perhaps SAVE THE COLORS of all creatures, 
 ` and introduce one new color randomly for every mutation.

` possibly only mutate every 3 generations in a line
 ` once mutated, must spawn 3 times before its children can mutate again.
 `  LF(num).mutate=lf(c).mutate-1
  ` if lf(num).mutate<1 then (mutate possible)

` it would be possible to use "FOOD SIZE" like the other simulation,
 ` where contact with a LF() will decrease the FOOD SIZE, and the sprite is actually 
  ` SCALED DOWN, but more LFs can EAT THE SAME PIECE OF FOOD.

` we could GRAPH population, diversity, even STATS, over time.
` store it in  a TYPED variable for every 5 seconds,
 ` and show it whenever.
 
 ` could save a MOST_KILLS stat for all organisms AND globally,
  ` that says "any life form that has the current KILL hi-score has a low chance of mutation,
   ` (except that this would select AGAINST that LF over time)

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, May 04, 2011

Rem ***** Main Source File *****

set display mode 800,600,32
sync on
sync rate 0
sync
randomize timer()
set window position 50,50

set text font "lucida console"

if file exist("bug debug.txt") then delete file "bug debug.txt"
open to write 1,"bug debug.txt"

type life_form
x as float
y as float
spd
age
nut b
size
span
reproAGE
reproNUT
reproLIT
AGG
FEAR
PRED
metab
stealth
armor
agility
poison
fangs
pounce
ID
img
L$ as string
chewing
TX
TY
i2
FoodPref
Eff
endtype
 ` eff is metabolic efficiency.

Type Food
 kind
 x
 y
 time
 amount
Endtype



dim c(24,24)
dim d(25,25)

dim col(9) as dword

col(0)=rgb(255,255,255)

Global TotalID
Global Mutation
Global Elap
Global NumMutations
Global Predations
Global Supply
Global AvgSize
Global HiMetab
Global HiEff
Global Starvations
Global BioDiversity
 ` Global Favorite

     Global alive
     Global aliveguy

starthere:

TotalID=1
Mutation=8+rnd(7)
Elap=0
NumMutations=0
Predations=0
Supply=10
AvgSize=75
Starvations=0
HIBD=0
seconds=0
HiEff=0
HiMetab=0


INITIALIZE_BASE_CELLS()

Create_Drops()

Dim LF(201) as life_form

dim fo(10) as Food

Dim Pa(201,5)
 ` this is PARENTS. the last 5 parents of this organism.
 ` 3 generations is not all that much seperation...

` so, make a 'first cell' , and then the game begins.
` - food drops at random locations, and the bacteria moves toward it.
` - it eats , breeds , or dies as needed.


 ` clear out old stuff:
for t=1 to 201
 if sprite exist(t) then delete sprite t
 kill_cell(t)
 if image exist(t)
  delete image t
 endif
    for u=0 to 5 
     Pa(c,u)=0
    next u
next t


Create_First_Cell()

for t=1 to 10
 fo(t).x=rnd(600)+50
 fo(t).y=rnd(500)+50
 fo(t).kind=1
 sprite 300+t,fo(t).x,fo(t).y,905
 fo(t).amount=24
next t


cel=0

t1=timer()

do
cls
` lock pixels

 ` "elap" is how many milliseconds have passed since the last loop.
  ` it is used to determine how much EFFECT everything has this loop
  
elap=timer()-t1
t1=timer()

` elap=1

IF CONTROLKEY()
 HIDE ALL SPRITES
ELSE
 SHOW ALL SPRITES
ENDIF

`FOR T=1 TO 100
`IF SPRITE EXIST(T)
`IF LF(T).TX=0 OR LF(T).TY=0
` TEXT 400,T*5,"LF #"+STR$(T)+" DOES NOT HAVE A TARGET"
`ENDIF
`ENDIF
`NEXT T


 ` LFs only take action if the SPACEKEY is NOT pressed, and the mouse is also not clicked
IF SPACEKEY()=0 and mouseclick()=0

` ### AI BEGIN
inc cel
 if cel>100 
  cel=1
  One_Hundred_Cycles()
 endif
  if sprite exist(cel)
   ` ### AI BEGIN
   ` find NEAREST FOOD
   ` find other cells , and determine their threat level or tastiness.
   
    dis=9999
    fx=0
    fy=0
     for t=1 to 10
      if sprite exist(t+300)
       i=sprite image(t+300)-904
       d=d2d(lf(cel).x,lf(cel).y,fo(t).x,fo(t).y)
       
        ` make non-favorite food be less desirable:
       if i<>lf(cel).FoodPref then d=d*2
       
        if d<dis
         dis=d
         fx=fo(t).x+rnd(10)-5
         fy=fo(t).y+rnd(10)-5
        endif
      endif
     next t 
        
        ` by now, we have an FX,FY. 
         ` but if the cell is VERY HUNGRY, it might actively hunt its kin.
          IF LF(CEL).NUT<1
           for t=1 to 100
            if t<>cel
            if sprite exist(t)
             d=d2d(lf(cel).x,lf(cel).y,lf(t).x,lf(t).y)*3
              if d<dis
               a=combat_score(cel,t)
               b=combat_score(t,cel)
               if a>b
                ` the hungry cell will try to eat this cell!
                   fx=lf(t).x+rnd(6)-3
                   fy=lf(t).y+rnd(6)-3
                   dis=d
               endif
              endif         
            endif
            endif
           next t
          ENDIF
        
        ` this sets target for FOOD:
      if fx>0 and fy>0
       lf(cel).tx=fx
       lf(cel).ty=fy
`        rotate sprite cel,atanfull(lf(cel).x-lf(cel).tx,lf(cel).y-lf(cel).ty)-180
      ELSE
       ` FOR SOME REASON, WE DID NOT FIND A TARGET FOR THIS LF TO GO TO.
      endif
      
   
   ` ### AI END   
  endif
` ### AI END

Control_Life_Forms()

    inc counter,elap
     if counter>100 : ` (50+supply*10)
      Spawn_Food()
      dec counter,100 : ` (50+supply*10)
     endif

ENDIF









ink col(0),0

if alive>0 
 inc seconds,elap
else
 center text 400,300,"PRESS  ENTER  TO  RESET"
  if returnkey() then goto starthere
endif


if BioDiversity>HIBD
 HIBD=BioDiversity
endif

` supply=3+abs(sin(seconds)*8)

`text 0,0,"Elap : "+str$(elap)
text 0,0,"Seconds : "+str$(seconds/1000.0,1)
text 0,15,"FPS : "+str$(screen fps())
text 0,30,"Births : "+str$(TotalID)
text 0,50,"Mutation Rate : "+str$(Mutation)+"%"

text 0,65,"Mutations  : "+str$(NumMutations)
text 0,80,"Starvations: "+str$(Starvations)
text 0,95,"Predations : "+str$(Predations)

text 0,115,"BioDiversity: "+str$(BioDiversity)
text 0,130,"HIBioDiv: "+str$(HIBD)
text 0,145,"# Alive: "+str$(alive)

text 0,535,"food supply:"+str$(supply)
text 0,550,"AvgSize:"+str$(AvgSize)
text 0,565,"HiMetab:"+str$(Himetab)
text 0,580,"HiEff:"+str$(HiEff)

` MostAlive

IF MOUSECLICK()

SPRITE 999,MOUSEX(),MOUSEY(),905
SCALE SPRITE 999,5

Q=sprite collision(999,0)

if Q>100 then Q=0

ENDIF


`if alive<2 or Q=0
`if aliveguy>0
` Q=aliveguy
`endif
`endif

`Q=0

if Q>0
if sprite exist(Q)=0
 Q=0
endif
endif


if Q>0 and lf(Q).age>0 

` circle lf(Q).x+12,lf(Q).y+12,15
 circle lf(Q).x+11,lf(Q).y+11,12

center text 739,0,"SPD : "+str$(lf(Q).spd)
center text 739,15,"AGE : "+str$(lf(Q).AGE)
center text 739,30,"NUT : "+str$(lf(Q).NUT)
center text 739,45,"SIZE : "+str$(lf(Q).SIZE)
center text 739,60,"metab : "+str$(lf(Q).metab)
center text 739,75,"efficiency : "+str$(lf(Q).eff)

center text 739,100,"REPROAGE : "+str$(lf(Q).REPROAGE)
center text 739,120,"REPRONUT : "+str$(lf(Q).REPRONUT)
center text 739,140,"SPAN : "+str$(lf(Q).SPAN)
center text 739,155,"+PRED : "+str$(lf(Q).pred)

center text 739,180,"POISON : "+str$(lf(Q).POISON)
center text 739,200,"FANGS : "+str$(lf(Q).FANGS)
center text 739,220,"POUNCE : "+str$(lf(Q).POUNCE)

center text 739,260,"STEALTH : "+str$(lf(Q).STEALTH)
center text 739,280,"ARMOR : "+str$(lf(Q).ARMOR)
center text 739,300,"AGILITY : "+str$(lf(Q).AGILITY)

center text 739,340,"ID : "+str$(lf(Q).ID)
center text 739,360,"img : "+str$(lf(Q).img) : `paste image lf(Q).img,740,360

center text 739,400,"tx : "+str$(lf(Q).tx)
center text 739,415,"ty : "+str$(lf(Q).ty)

 
`center text 739,," : "+str$(lf(Q).)
`center text 739,," : "+str$(lf(Q).)
`center text 739,," : "+str$(lf(Q).)

if sprite exist(Q)=0 then Q=0

endif



`for t=1 to 400
` if sprite exist(t)
`  offset sprite t,sprite width(t)/2,sprite height(t)/2
` endif
`next t
 
for t=300 to 310
 if sprite exist(t)
  offset sprite t,sprite width(t)/2,sprite height(t)/2
 endif
next t


` unlock pixels
sync



loop


end



Function One_Hundred_Cycles()

BioDiversity=0

 ` for avgsize calc, n is how many cells are alive, z is the added-up size
n=0
z=0

 ` DELETE UNUSED IMAGES:
     for t=1 to 100
      lf(t).i2=0
     next t
     
     alive=0
     aliveguy=0
     
     for t=1 to 100
      if lf(t).age>0
      if lf(t).img>0
       lf(lf(t).img).i2=1
       inc n
       inc z,lf(t).size
       inc alive
       aliveguy=t
      endif
      endif
     next t
     
     for t=1 to 100
      if image exist(t)
      if lf(t).i2<1
       delete image t
      else
       inc BioDiversity
      endif
      endif
     next t  

` POSSIBLY ADJUST THE FOOD SUPPLY:
 if rnd(11)=0
  if supply<4
   inc supply
  else
   if supply>9
    dec supply
   else
    sgn=(rnd(1)*2)-1
    supply=supply+sgn
   endif
  endif
 endif
 
 
  if n>0
   avgsize=z/n
  else
   avgsize=0
  endif


 

Endfunction 




Function Spawn_Food()

 f=0
 numfood=0

 ` determine how many food we HAVE, and if there are any food sprites available to use.
for u=1 to 10
 v=300+u
  if sprite exist(v)
   inc numfood
  else
   f=v
  endif
next u

if numfood<supply and f>0
 ` we need a new food, AND there is a sprite available.
 n=f-300
 fo(n).x=rnd(700)+50
 fo(n).y=rnd(500)+50
 fo(n).kind=905+rnd(2)
 sprite f,fo(n).x,fo(n).y,fo(n).kind
 fo(n).amount=25
 scale sprite f,100
endif

Endfunction 



Function Combat_Score(a,b)
 ` this function will calculate a COMBAT SCORE for
 ` LF(A) vs. LF(B).
  ` when we have a possible combat, we'll call this twice.
  ` once for a vs. b, once for b vs. a
  ` whichever is higher will win (but no combat for a tie)

if a>0 and b>0 and a<101 and b<101
    
    ` a size difference of 50 will give a combat bonus.

    
    x=0    
    if ((LF(a).size-LF(b).size))>50 then inc x

    if LF(a).poison>lf(b).stealth then inc x , (LF(a).poison-lf(b).stealth)
    if LF(a).fangs>lf(b).armor then inc x , (LF(a).fangs-lf(b).armor)
    if LF(a).pounce>lf(b).agility then inc x , (LF(a).pounce-lf(b).agility)


`    if LF(a).poison>lf(b).stealth then inc x
`    if LF(a).fangs>lf(b).armor then inc x
`    if LF(a).pounce>lf(b).agility then inc x



endif

Endfunction x


Function Control_Life_Forms()
 ` everything moves towards its target. if it arrives at its target, 
  ` the target is set to 0,0
  

for t=1 to 100
 if sprite exist(t)
  ` allow to spawn , or move if can't spawn.
   ` also, increase age, decrease nutrition, and kill if necessary.
   
   if lf(t).age>lf(t).span
    ` THIS ONE DIES OF OLD AGE (or starvation)
    kill_cell(t)
    if sprite exist(t) then delete sprite t
    inc Starvations
    
   else
    ` did NOT die yet. so control it.
     
      ` AGE. age double for starving. also "process nutrition".
     inc lf(t).age,elap
      if lf(t).nut<1 
       inc lf(t).age,((elap*lf(t).metab)/75) : ` this is STARVATION
      else
       dec lf(t).nut,((elap*lf(t).metab)/100)
      endif
     

     if (lf(t).age>=lf(t).reproAGE) AND (lf(t).nut>lf(t).reproNUT)
      ` this one can SPAWN RIGHT NOW. do it!
      
`      if t=1
`       text 0,120,"I AM READY TO SPAWN!"
`      endif
      
      Cell_Spawns(t)
      
     else
      ` can't spawn.
       ` therefore, it probably MOVES.
       
       
       ` we'll just try some PREDATION right here!
        `  Predations
        
        
`      FOR PREDS=1 TO 3
        
`      FOR PREDS=1 TO 5
        
        v=sprite collision(t,0)
         if v>0 and v<101
      
         if lf(t).img<>lf(v).img : ` try not to eat your own kind!
         
          a=combat_score(t,v)
          b=combat_score(v,t)
           if a>b
            ` T EATS V !
             delete sprite v
             kill_cell(v)
             inc Predations
             inc lf(t).nut,lf(t).pred
           endif
           
         endif
        
         endif
`      NEXT PREDS   
         
         ` if he has reached his destination, select a random target
       if d2d(lf(t).x,lf(t).y,lf(t).tx,lf(t).ty)<2
        lf(t).tx=rnd(600)+50
        lf(t).ty=rnd(500)+50
       endif
         
         
       if lf(t).tx>0 and lf(t).ty>0 and lf(t).size>0
       
           x#=lf(t).x
           y#=lf(t).y

          ` speed is currently affected by size:
              ` spd = (lf(t).spd + lf(t).size)/2
              spd = (lf(t).spd*100)/lf(t).size

          IF LF(T).NUT<7500
           ` A NEW THING: any cell that is SATIATED, doesn't bother to MOVE.
            ` (might not favor the fittest though...
             ` it actually favors the HUNGRY...)

            ` MOVEMENT
             if x#<lf(t).tx
              x#=x#+(elap/999.9)*spd
              `x#=x#+(elap/999.9)*lf(t).spd
             endif             
             if y#<lf(t).ty
              y#=y#+(elap/999.9)*spd
              `y#=y#+(elap/999.9)*lf(t).spd
             endif             
             if x#>lf(t).tx
              x#=x#-(elap/999.9)*spd
              `x#=x#-(elap/999.9)*lf(t).spd
             endif             
             if y#>lf(t).ty
              y#=y#-(elap/999.9)*spd
              `y#=y#-(elap/999.9)*lf(t).spd
             endif
          ENDIF
          
          
           sprite t,x#,y#,sprite image(t)
`           offset sprite t,sprite width(t)/2,sprite height(t)/2
           
           lf(t).x=x#
           lf(t).y=y# 
          
           ` check for EATING:
          for u=1 to 10
           v=u+300
           if sprite exist(v)
           if sprite collision(v,t)
            i=sprite image(v)-904
                if lf(t).FoodPref=i
                 inc lf(t).nut,250 : ` 4500
                else
                 inc lf(t).nut,100 : ` 2000
                endif
            `delete sprite v
            
            dec fo(u).amount
            
            `lf(t).tx=rnd(700)+50
            `lf(t).ty=rnd(500)+50
            
            if fo(u).amount>0
             scale sprite v,fo(u).amount*4
            else
             delete sprite v
            endif
            
            
            
`            fo(u).x=rnd(600)+50
`            fo(u).y=rnd(500)+50
`            sprite v,fo(u).x,fo(u).y,905
           endif
           endif
          next u
          
       endif
       
     endif : ` can't spawn.
     
    
   endif : ` hasn't died.
 
 endif
next t

Endfunction 



Function Create_Cell_Image()

    ` 0's are "OFF"
    ` 1's are "always on"
    ` 2's are "50% chance" to become '1', or be turned OFF
    ` then , any totally isolated cell is DELETED. (0) (orthoganal or diagonal)
    ` then , the entire thing is "SKINNED" (3)
     ` (any 0 surrounded by a 1 (or 2) is turned into a 3)
    ` then between 5 and 25  '1's'  are turned into 4s (organs)
    
    ` 1's, 3's, and 4's are each their own colors. 
     ` there should be no 2's , and 3 colors.

    for x=1 to 24
    for y=1 to 24
     d(x,y)=c(x,y)
    next y
    next x
    
    ` 0's and 1's are already taken care of.
    
    chance=rnd(2)+3 : `  16% - 25% chance
    
    ` do 2's
    for x=1 to 24
    for y=1 to 24
     if d(x,y)=2 
      if rnd(chance)=0
       d(x,y)=1
      else
       d(x,y)=0
      endif
     endif
    next y
    next x
    
    ` now REMOVE ISOLATED CELLS
    for x=1 to 24
    for y=1 to 24
     if d(x,y)=1      
          ` check for neighbors:
         n=0
          for t=x-1 to x+1
          for u=y-1 to y+1
           if t<>x or u<>y : ` you are not your own neighbor!
           if d(t,u)=1 
            inc n
           endif
           endif
          next u
          next t       
           if n=0
            d(x,y)=0
           endif  
     endif
    next y
    next x
    
    ` now make SKIN:    
    for x=1 to 24
    for y=1 to 24
     ` select an empty cell
     if d(x,y)=0
          for t=x-1 to x+1
          for u=y-1 to y+1
           if t=x or u=y : ` if it's got a cardinal neighbor
            if d(t,u)=1
             d(x,y)=3 : ` make it skin!
            endif
           endif       
          next u
          next t
     endif  
    next y
    next x
    
    ` now make ORGANS:
    org=(rnd(20)+5)*(rnd(1)+1)
    
    for t=1 to org
     ` at this point, any 1 can become a 4    
        repeat
         x=rnd(23)+1
         y=rnd(23)+1
        until d(x,y)=1
         d(x,y)=4     
    next t

CREATE BITMAP 1,24,24
SET CURRENT BITMAP 1
CLS

repeat
a=50+rnd(185)
b=50+rnd(185)
c=50+rnd(185)
until abs(a-b)>30 or abs(b-c)>30

col(1)=rgb(a,b,c)
col(3)=rgb(c,a,b)
col(4)=rgb(b,c,a)

`cls
for x=1 to 24
for y=1 to 24
 if d(x,y)>0  
  ink col(d(x,y)),0
  box x*18,y*18,x*18+18,y*18+18  
  dot x,y
 endif
next y
next x

One_Hundred_Cycles()
I=0
 repeat
  inc i
 until image exist(i)=0
 
 get image i,0,0,24,24,1
 
DELETE BITMAP 1
set current bitmap 0

Endfunction I

Function INITIALIZE_BASE_CELLS()

restore
for y=1 to 24
for x=1 to 24
 read c(x,y) 
next x
next y

data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : ` 1
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : ` 2
data 0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0 : ` 3
data 0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0 : ` 4
data 0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0 : ` 5
data 0,0,0,2,2,2,2,2,2,1,1,1,1,1,2,2,2,2,2,2,2,0,0,0 : ` 6
data 0,0,0,2,2,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,2,0,0,0 : ` 7
data 0,0,2,2,2,2,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,0,0 : ` 8
data 0,0,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,0,0 : ` 9
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 10
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 11
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 12
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 13
data 0,0,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,0,0 : ` 14
data 0,0,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,0,0 : ` 15
data 0,0,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,0,0 : ` 16
data 0,0,2,2,2,2,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,0,0 : ` 17
data 0,0,0,2,2,2,2,2,1,1,1,1,1,1,1,2,2,2,2,2,2,0,0,0 : ` 18
data 0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0 : ` 19
data 0,0,0,0,2,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,0,0,0,0 : ` 20
data 0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0 : ` 21
data 0,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0 : ` 22
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : ` 23
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 : ` 24

Endfunction 


Function D2D(x,y,a,b)
 d#=sqrt( (x-a)*(x-a) + (y-b)*(y-b) )
Endfunction d#


Function Kill_Cell(c)
    LF(c).x=0
    LF(c).y=0
    LF(c).spd=0
    LF(c).age=0
    LF(c).nut=0
    LF(c).size=0
    LF(c).span=0
    LF(c).reproAGE=0
    LF(c).reproNUT=0
    LF(c).reproLIT=0
    LF(c).AGG=0
    LF(c).FEAR=0
    LF(c).PRED=0
    LF(c).metab=0
    LF(c).stealth=0
    LF(c).armor=0
    LF(c).agility=0
    LF(c).poison=0
    LF(c).fangs=0
    LF(c).pounce=0
    LF(c).ID=0
    LF(c).img=0
    LF(c).L$=""
    LF(c).chewing=0
    LF(c).TX=0
    LF(c).TY=0  
    LF(c).Eff=0
Endfunction 
  
Function Create_First_Cell()  
 ` no randomness in the first cell, besides position.
  ` span & age are measured in MILLISECONDS,
   ` so the starting SPAN is 20 seconds,
    ` and the breeding age is 6 seconds.
 ` NUT is also measured in milliseconds. (so it has 2 seconds of nutrition)

C=1

I=Create_Cell_Image()

    LF(c).x=rnd(600)+50
    LF(c).y=rnd(500)+50
    LF(c).spd=100
    LF(c).age=1
    LF(c).nut=500
    LF(c).size=75
    LF(c).span=9000
    LF(c).reproAGE=3000
    LF(c).reproNUT=1300
    LF(c).reproLIT=2
    LF(c).AGG=0
    LF(c).FEAR=0
    LF(c).PRED=500
    LF(c).metab=100
    LF(c).stealth=0
    LF(c).armor=0
    LF(c).agility=0
    LF(c).poison=0
    LF(c).fangs=0
    LF(c).pounce=0
    LF(c).ID=1
    LF(c).img=I
    LF(c).L$=""
    LF(c).chewing=0
    LF(c).TX=0
    LF(c).TY=0  
    LF(c).Eff=100
    
    for t=0 to 5 
     Pa(c,t)=0
    next t

 sprite 1,LF(c).x,lf(c).y,i
 scale sprite 1,75

Endfunction 


Function Cell_Spawns(c)
 ` basically, cell # c is taken as the parent, 
  ` and has a LITTER of 2-n new cells.
  ` the NEW CELLS are (nearly) identical to its PARENT, 
   ` UNLESS IT MUTATES. in that case , it mutates according to the mutate function.

` NEED TO INCLUDE *PARENTS* HERE.

`for t=1 to LF(c).reproLIT

for t=1 to 2

 num=0
  repeat
   inc num
  until LF(num).age=0 or num>100
  
  if num<101

   inc TotalID

      Mut=0
      I=LF(c).img
       ` the more diverse the population already is, the LESS chance of mutations.
     if rnd(99)<(Mutation-(BioDiversity/2))
      I=Create_Cell_Image()
      Mut=1
     endif

    LF(num).x=LF(c).x+rnd(50)-25
    LF(num).y=LF(c).y+rnd(50)-25
    LF(num).spd=LF(c).spd+rnd(7)-3
    LF(num).age=1
    LF(num).nut=500
    LF(num).size=LF(c).size+rnd(7)-3
    LF(num).span=LF(c).span+rnd(9)-3
    LF(num).reproAGE=LF(c).reproAGE-rnd(7)+3
    LF(num).reproNUT=LF(c).reproNUT-rnd(7)+3
    LF(num).reproLIT=LF(c).reproLIT
    
    LF(num).AGG=LF(c).AGG
    LF(num).FEAR=LF(c).FEAR
    LF(num).PRED=LF(c).PRED
    LF(num).metab=LF(c).metab
    
    LF(num).stealth=LF(c).stealth
    LF(num).armor=LF(c).armor
    LF(num).agility=LF(c).agility
    
    LF(num).poison=LF(c).poison
    LF(num).fangs=LF(c).fangs
    LF(num).pounce=LF(c).pounce
    
    LF(num).ID=TotalID
    LF(num).img=I
    `LF(num).L$=""=LF(c).l$
    LF(num).chewing=0
    LF(num).TX=rnd(600)+50
    LF(num).TY=rnd(500)+50

    LF(num).Eff=LF(c).Eff+rnd(4)-2

    LF(num).FoodPref=rnd(2)+1

 if mut=1
  Mutate_Cell(num)
 endif


    IF LF(num).spd>499 THEN LF(num).spd=300+RND(100)
    IF LF(num).size>499 THEN LF(num).size=300+RND(100)
    IF LF(num).span>30000 THEN LF(num).span=30000-RND(2000)
    IF LF(num).reproAGE<1000 THEN LF(num).reproAGE=1000+RND(50) 
    IF LF(num).reproNUT<800 THEN LF(num).reproNUT=800+RND(50)
    IF LF(num).PRED>2500 THEN LF(num).PRED=2500-RND(100)
    IF LF(num).Eff>300 THEN LF(num).Eff=200+RND(100)

 ` a further limitation to speed is based on size:
    if LF(num).spd>LF(num).size*3 then LF(num).spd=(LF(num).size*2)+rnd(LF(num).size)


`  write string 1,"the cell i spawned has image # "+str$(LF(num).img)

     sprite num,LF(num).x,lf(num).y,LF(num).img
`     rotate sprite num,(360/num)
     scale sprite num,LF(num).size+1
     
     
     ` FIGURE METABOLISM NOW.
     m=LF(num).spd + (LF(num).size/75)
     m=m+(LF(num).stealth+LF(num).armor+LF(num).agility) : `*3
     m=m+(LF(num).poison+LF(num).fangs+LF(num).pounce) : ` *5
     
`     m=100
     
      ` this adjusts metabolism for EFFICIENCY
     m=(m*100)/lf(num).Eff
     
     lf(num).metab=m
     
     if lf(num).metab>HiMetab then HiMetab=lf(num).metab
     if lf(num).eff> HiEff then  HiEff=lf(num).eff
     
  endif
  
  
next t


Kill_Cell(c)
delete sprite c
Endfunction 


Function Mutate_Cell(c)

 Inc NumMutations
` this counts how many CELLS mutate, not necesssarily how many mutations
 ` occur (some cells do 2 mutations at a go)

 ` for now, ALL CHANGES ARE POSITIVE.

changes = 1 +( rnd(1)*rnd(1) )

` there are 14 things that can change during a mutation.

Done6=0

for t=1 to changes

repeat
 x=rnd(13)
until Done6=0 or x<>6

mult=(rnd(1)*rnd(1))+1    
` mult=1
  
    select x
     
     case 0
      ` speed and size are now capable of going DOWN to balance metabolism
      if lf(c).spd<300 or rnd(2)=0
       inc LF(c).spd,(rnd(9)+9)*mult
      else
       if lf(c).spd>200
        dec LF(c).spd,((rnd(30)+30))
       endif
      endif
     endcase
     
     case 1     
      if ( avgsize<300 or rnd(1)=0 ) and (supply>5 or rnd(1)=0)
        inc LF(c).size,(rnd(10)+10)
      else 
       if lf(c).size>125
        dec LF(c).size,((rnd(30)+30))
       endif
      endif
     endcase
     
     case 2
        inc LF(c).span,(rnd(100)+100)*mult
     endcase
     
     case 3
       if LF(c).reproAGE>1000
        dec LF(c).reproAGE,(50+rnd(50))*mult
       endif
     endcase
     
     case 4
      if LF(c).reproNUT>800
        dec LF(c).reproNUT,(50+rnd(50))*mult
      endif
     endcase
     
     case 5   
      ` better metabolic efficiency        
       inc LF(c).Eff,10+rnd(10)
     endcase
     
     case 6
      ` halves your size when avg size is too big.
        if AvgSize>300
        if LF(c).size>150
         LF(c).size=LF(c).size/2
          dec t
          Done6=1
           ` this gives them an extra advantage for losing so much size
        endif
        endif
     endcase
     
     case 7
        inc LF(c).PRED,(99+rnd(99))*mult
     endcase
     
     case 8   
        inc LF(c).stealth,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 9
        inc LF(c).armor,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 10
        inc LF(c).agility,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 11    
        inc LF(c).poison,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 12
        inc LF(c).fangs,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
     case 13
        inc LF(c).pounce,1+(rnd(1)*rnd(1)*rnd(1)*rnd(1))
     endcase
     
endselect

next t


Endfunction


` still need to make food, poison, and mutagen.
`  food is green, poison is red, mutagen is blue or purple.


Function Create_Drops()

col(5)=Rgb(0,128,0)
col(6)=Rgb(255,0,66)
col(7)=Rgb(128,0,192)

for t=5 to 7
    
    CREATE BITMAP 1,24,24
    SET CURRENT BITMAP 1
    CLS
    
     ink col(t),0
    
     for u=t-4 to t+2
      circle 12,12,u
     next u    
    
     I=t+900 : ` 905,906,907
     
     get image i,0,0,24,24,1
     
    DELETE BITMAP 1
    set current bitmap 0

next t

Endfunction 


` 200 is too many. go to 100 <X>

` perhaps have a "SPAWNING COUNTDOWN", 
` where you grow in size, and then POP, and your offspring appear then.

` perhaps PREDATION occurs ANY TIME that two cells who meet 
` have a DIFFERENT COMBAT SCORE.
 ` weapons & defenses.
` compute a score for any two that touch.
` if the scores favor one, it kills the other.
` also, perhaps this is only done every 100 loops (just like AI choices)


` maybe the 3 colored pickups could just be a KIND of food,
 ` and each life form has a FAVORITE COLOR OF FOOD.
 ` it's just a "flavor" item, to give different cells different GOALS.
  ` (they could even have a BEATS relationship.
   ` someone who prefers red only gets 1/2 from green and 1/4 from blue)
   
   
   
   ` DELETE OLD IMAGES EVERY 100 CYCLES.
   
   ` ALLOW PREDATION OF *ALL* CONTACTED LIFE-FORMS.
   
   ` USE A "COLL-DOWN" FOR RESPAWNING FOOD...
    ` maybe every 25 cycles.
    ` perhaps also have a "max food" that changes over time,
     ` alternating between 3-10
     
     
` AT SOME POINT THEY JUST STOP MOVING. WHY?     




` supply=3+(sin(seconds)*8)

` animation for DEATH BY STARVATION: slowly shrinks to nothing,
 ` OR fades away to nothing.
 
` animations for active predation:
 ` spin in one complete circle.
  ` but that might mess with the "placement / onscreen orientation"
   `
   
` if the cell whose AI TURN it is has LOW NUTRITION,
 ` (<1) , then that cell might ACTIVELY look for another cell to PREDATE,
  ` if the food is too far away.
  
  


` perhaps SAVE THE COLORS of all creatures, 
 ` and introduce one new color randomly for every mutation.
 
 


` possibly only mutate every 3 generations in a line
 ` once mutated, must spawn 3 times before its children can mutate again.
 `  LF(num).mutate=lf(c).mutate-1
  ` if lf(num).mutate<1 then (mutate possible)



` it would be possible to use "FOOD SIZE" like the other simulation,
 ` where contact with a LF() will decrease the FOOD SIZE, and the sprite is actually 
  ` SCALED DOWN, but more LFs can EAT THE SAME PIECE OF FOOD.
  


` we could GRAPH population, diversity, even STATS, over time.
` store it in  a TYPED variable for every 5 seconds,
 ` and show it whenever.
 
 ` could save a MOST_KILLS stat for all organisms AND globally,
  ` that says "any life form that has the current KILL hi-score has a low chance of mutation,
   ` (except that this would select AGAINST that LF over time)

Random Realms
Space Conflict

Back to top

Profile PM Email Website

Rapidrory

14

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 12th May 2011 00:00 Edited at: 12th May 2011 22:52

Link

Looking good so far IBOL.

I had a look at making it into a game also, and here is what i've come up with as a sort of prototype. it's pretty basic atm and has a few glitches, but its quite interesting. It's kinda a bacteria herding sort of game where you herd them by drawing fences with the mouse (you can remove the fence again with right mouse button)... you'll see what i mean...

sync on
color backdrop 0

sw=screen width()
sh=screen height()
dots=10

dim x#(dots)
dim y#(dots)
dim ang#(dots)
dim mov(dots)
dim speed#(dots)
dim flag(dots)
dim col(dots)
size=5

for cn=1 to dots
x#(cn)=rnd(sw)
if cn-1<dots/2
col(cn)=1
y#(cn)=rnd(sh/2)
else
col(cn)=2
y#(cn)=rnd(sh/2)+sh/2
endif
next cn

fill circle size,size,size,rgb(255,0,0)
get image 1,0,0,size*2,size*2,1
fill circle size,size,size,rgb(0,0,255)
get image 2,0,0,size*2,size*2,1

cls rgb(255,255,255)
get image dots+2,0,0,2,2,1
cls 0
fill circle 5,5,5,rgb(255,255,255)
get image dots+1,0,0,10,10,1
bl=dots+1

do
cls 0
check=0

if timer()>time+1000 then inc clock:time=timer()

text 0,0,"TIME: "+str$(clock)

for cn=1 to dots
sprite cn,x#(cn),y#(cn),col(cn)

gosub wander

if col(cn)=1
if sprite y(cn)>sh/2 then inc check
else
if sprite y(cn)<sh/2 then inc check
endif

next cn

gosub click

line 0,sh/2,sw,sh/2
center text sw/2,sh/4,"BLUE"
center text sw/2,sh/4+sh/2,"RED"

if check=10 then goto win

sync
loop

Click:

if mouseclick()=2
sprite 1000,mousex(),mousey(),dots+2
if sprite collision(1000,0)>dots
delete sprite sprite collision(1000,0)
endif
delete sprite 1000
endif

if mouseclick()=1
sprite 1000,mousex(),mousey(),dots+2
if sprite collision(1000,0)=0
inc bl
sprite bl,mousex()-5,mousey()-5,dots+1
endif
delete sprite 1000
endif
return

Wander:

if rnd(100)=1 then inc ang#(cn),rnd(100)-50:mov(cn)=rnd(100)+100
speed#(cn)=0.1
If mov(cn)>0
dec mov(cn)
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn))
y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn))
if x#(cn)<0 or x#(cn)>sw or y#(cn)<0 or y#(cn)>sh
inc ang#(cn),180
x#(cn)=newxvalue(x#(cn),ang#(cn),1)
y#(cn)=newzvalue(y#(cn),ang#(cn),1)
endif
endif

if sprite collision(cn,0)>0
inc ang#(cn),180
repeat
x#(cn)=newxvalue(x#(cn),ang#(cn),1)
y#(cn)=newzvalue(y#(cn),ang#(cn),1)
sprite cn,x#(cn),y#(cn),cn
until sprite collision(cn,0)=0
endif
return

win:
ink rgb(100,100,100),0
do
cls 0

center text sw/2,sh/2,"YOU WIN"
center text sw/2,sh/2+10,"YOUR TIME: "+str$(clock)+" SECONDS"
sync
loop

+ Code Snippet

sync on
color backdrop 0

sw=screen width()
sh=screen height()
dots=10

dim x#(dots)
dim y#(dots)
dim ang#(dots)
dim mov(dots)
dim speed#(dots)
dim flag(dots)
dim col(dots)
size=5

for cn=1 to dots
x#(cn)=rnd(sw)
if cn-1<dots/2
col(cn)=1
y#(cn)=rnd(sh/2)
else
col(cn)=2
y#(cn)=rnd(sh/2)+sh/2
endif
next cn

fill circle size,size,size,rgb(255,0,0)
get image 1,0,0,size*2,size*2,1
fill circle size,size,size,rgb(0,0,255)
get image 2,0,0,size*2,size*2,1

cls rgb(255,255,255)
get image dots+2,0,0,2,2,1
cls 0
fill circle 5,5,5,rgb(255,255,255)
get image dots+1,0,0,10,10,1
bl=dots+1

do
cls 0
check=0

if timer()>time+1000 then inc clock:time=timer()

text 0,0,"TIME: "+str$(clock)

for cn=1 to dots
sprite cn,x#(cn),y#(cn),col(cn)

gosub wander

if col(cn)=1
if sprite y(cn)>sh/2 then inc check
else
if sprite y(cn)<sh/2 then inc check
endif

next cn

gosub click


line 0,sh/2,sw,sh/2
center text sw/2,sh/4,"BLUE"
center text sw/2,sh/4+sh/2,"RED"

if check=10 then goto win

sync
loop

Click:

if mouseclick()=2
sprite 1000,mousex(),mousey(),dots+2
if sprite collision(1000,0)>dots
delete sprite sprite collision(1000,0)
endif
delete sprite 1000
endif

if mouseclick()=1
sprite 1000,mousex(),mousey(),dots+2
if sprite collision(1000,0)=0
inc bl
sprite bl,mousex()-5,mousey()-5,dots+1
endif
delete sprite 1000
endif
return

Wander:

if rnd(100)=1 then inc ang#(cn),rnd(100)-50:mov(cn)=rnd(100)+100
speed#(cn)=0.1
If mov(cn)>0
dec mov(cn)
x#(cn)=newxvalue(x#(cn),ang#(cn),speed#(cn))
y#(cn)=newzvalue(y#(cn),ang#(cn),speed#(cn))
if x#(cn)<0 or x#(cn)>sw or y#(cn)<0 or y#(cn)>sh
inc ang#(cn),180
x#(cn)=newxvalue(x#(cn),ang#(cn),1)
y#(cn)=newzvalue(y#(cn),ang#(cn),1)
endif
endif

if sprite collision(cn,0)>0
inc ang#(cn),180
repeat
x#(cn)=newxvalue(x#(cn),ang#(cn),1)
y#(cn)=newzvalue(y#(cn),ang#(cn),1)
sprite cn,x#(cn),y#(cn),cn
until sprite collision(cn,0)=0
endif
return

win:
ink rgb(100,100,100),0
do
cls 0

center text sw/2,sh/2,"YOU WIN"
center text sw/2,sh/2+10,"YOUR TIME: "+str$(clock)+" SECONDS"
sync
loop

I would have added more to it but i'm supposed to be revising for A levels atm so spare time is very limited... any ideas welcome

There is no such thing as "Too Fast!"

Back to top

Profile PM

Rich Dersheimer

AGK Developer

14

Years of Service

User Offline

Joined: 1st Jul 2009

Location: Inside the box

Posted: 12th May 2011 00:54

Link

That was cool. One thing you might change is, at the end, the white letters were not very readable over my blockade. Maybe grey blocking sprites?

And how about if the blocking sprites have a limited lifespan, so you have to scramble when your fence starts to fade away?

Back to top

Profile PM Email

Rapidrory

14

Years of Service

User Offline

Joined: 21st Aug 2009

Location:

Posted: 12th May 2011 22:52 Edited at: 12th May 2011 22:55

Link

cool idea on the fading!

The aesthetics of the whole thing is going to be changed at some point and the ending will be replaced with more levels or similar...
This was only a proof of concept so that ending screen won't be there on the main game. But point accepted, i had tried vaguely to do something about it but i wasn't too concerned...

There is no such thing as "Too Fast!"

Back to top

Profile PM

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 13th May 2011 17:08

Link

well, mine is still a simulation, and not a game,
but it's really interesting (at least to me) how the life-forms evolve over time.
you can even get a graph of the first 1600 seconds of a run by hitting shift.
i borrowed a lot from the ideas here, and came up with something i'm happy with.

Rapidrory , i tried yours, and it's a neat idea. i got them all on one side, but nothing happened. must have been the wrong side.
you should continue with it. fading fences would be a good idea.

Rem Project: Dark Basic Pro Project
Rem Created: Wednesday, May 04, 2011

Rem ***** Main Source File *****

set display mode 800,600,32
sync on
sync rate 0
sync
randomize timer()
set window position 50,50

set text font "lucida console"

if file exist("bug debug.txt") then delete file "bug debug.txt"
open to write 1,"bug debug.txt"

type life_form
x as float
y as float
spd
age
nut b
size
span
reproAGE
reproNUT
reproLIT
AGG
FEAR
PRED
metab
stealth
armor
agility
poison
fangs
pounce
ID
img
L$ as string
chewing
TX
TY
i2
FoodPref
Eff
 aninum
 anidir
endtype
 ` eff is metabolic efficiency.

Type Food
 kind
 x
 y
 time
 amount
Endtype

TYPE INFORMATION
  alive
  biodiversity
  AvgSize
  supply
   stealth
   armor
   agility
   poison
   fangs
   pounce
ENDTYPE

dim c(24,24)
dim d(25,25)

dim col(9) as dword

dim i(801) as INFORMATION

col(0)=rgb(255,255,255)

Global TotalID
Global Mutation
Global Elap
Global NumMutations
Global Predations
Global Supply
Global AvgSize
Global HiMetab
Global HiEff
Global Starvations
Global BioDiversity
 ` Global Favorite

Global alive
     Global aliveguy

starthere:

Create_Background()

TotalID=1
Mutation=8+rnd(7)
Elap=0
NumMutations=0
Predations=0
Supply=10
AvgSize=75
Starvations=0
HIBD=0
seconds=0
HiEff=0
HiMetab=0

INITIALIZE_BASE_CELLS()

Create_Drops()

Dim LF(201) as life_form

dim fo(12) as Food

Dim Pa(201,5)
 ` this is PARENTS. the last 5 parents of this organism.
 ` 3 generations is not all that much seperation...

` so, make a 'first cell' , and then the game begins.
` - food drops at random locations, and the bacteria moves toward it.
` - it eats , breeds , or dies as needed.

` clear out old stuff:
for t=1 to 201
 if sprite exist(t) then delete sprite t
 kill_cell(t)
 if image exist(t)
  delete image t
 endif
    for u=0 to 5 
     Pa(c,u)=0
    next u
next t

Create_First_Cell()

for t=1 to 10
 fo(t).x=rnd(600)+50
 fo(t).y=rnd(500)+50
 fo(t).kind=1
 sprite 300+t,fo(t).x,fo(t).y,905
 fo(t).amount=24
next t

cel=0

t1=timer()

do
cls
` lock pixels

paste image 1334,0,0

` "elap" is how many milliseconds have passed since the last loop.
  ` it is used to determine how much EFFECT everything has this loop
  
elap=timer()-t1
t1=timer()

if mouseclick() then elap=0

` elap=1

IF CONTROLKEY()
 HIDE ALL SPRITES
ELSE
 SHOW ALL SPRITES
ENDIF

` LFs only take action if the SPACEKEY is NOT pressed, and the mouse is also not clicked
IF SPACEKEY()=0 and mouseclick()=0

` ### AI BEGIN
inc cel
 if cel>100 
  cel=1
  One_Hundred_Cycles()
 endif
  if sprite exist(cel)
   ` ### AI BEGIN
   ` find NEAREST FOOD
   ` find other cells , and determine their threat level or tastiness.
   
    dis=9999
    fx=0
    fy=0
     for t=1 to 10
      if sprite exist(t+300)
       i=sprite image(t+300)-904
       d=d2d(lf(cel).x,lf(cel).y,fo(t).x,fo(t).y)
       
        ` make non-favorite food be less desirable:
       if i<>lf(cel).FoodPref then d=d*2
       
        if d<dis
         dis=d
         fx=fo(t).x+rnd(10)-5
         fy=fo(t).y+rnd(10)-5
        endif
      endif
     next t 
        
        ` by now, we have an FX,FY. 
         ` but if the cell is VERY HUNGRY, it might actively hunt its kin.
          IF LF(CEL).NUT<1
           for t=1 to 100
            if t<>cel
            if sprite exist(t)
             d=d2d(lf(cel).x,lf(cel).y,lf(t).x,lf(t).y)*3
              if d<dis
               a=combat_score(cel,t)
               b=combat_score(t,cel)
               if a>b
                ` the hungry cell will try to eat this cell!
                   fx=lf(t).x+rnd(6)-3
                   fy=lf(t).y+rnd(6)-3
                   dis=d
               endif
              endif         
            endif
            endif
           next t
          ENDIF
        
        ` this sets target for FOOD:
      if fx>0 and fy>0
       lf(cel).tx=fx
       lf(cel).ty=fy
`        rotate sprite cel,atanfull(lf(cel).x-lf(cel).tx,lf(cel).y-lf(cel).ty)-180
      ELSE
       ` FOR SOME REASON, WE DID NOT FIND A TARGET FOR THIS LF TO GO TO.
      endif
      
   
   ` ### AI END   
  endif
` ### AI END

Control_Life_Forms()

inc counter,elap
     if counter>100 : ` (50+supply*10)
      Spawn_Food()
      dec counter,100 : ` (50+supply*10)
     endif

ENDIF

ink col(0),0

if alive>0 
 inc seconds,elap
else
 center text 400,300,"PRESS  ENTER  TO  RESET"
  if returnkey() then goto starthere
endif

save_information(int(seconds/2000))