Qbasicnews.com

Ok, Iâll try to be careful about this one...
letâs say dot1 is male, dot2 is female ok so far? Good, hang on...
letâs say dot1 has intelligence of 120 and dot2 has intelligence of 110 ok?
letâs say dot1 'gets it on' with dot2, here comes dot3 (male or female),
dot3 has an intelligence of 115 ((dot1 intelligence + dot2 intelligence) \ 2)
hereâs the thing, I can create the posion of the dot1 easily by using:
PSET (x,y), color
and dot2:
PSET (x2,y2), color
or whatever...
but, while still running the program I can't create dot3 position (PSET (x3,y3), color)
while still in the program and I can't figure out how.
also that dot has to retain and transfer data. hell-if-i-know.
what im trying to do is create a "society" of dots. as well as adding 'speed,streangh' ect.
too intelligence. including "emotions" like happiness and straight or gay (or bi)
basicly im gunna keep adding at it but I can't figure out that first part. Please help!

Use an array with TYPE example....

Code:
Type DotData

        Strength  as integer

        Intelligence  as integer

        Happiness   as integer

        Sadness   as integer

        Stamnina  as integer

        Sexuality  as integer

        ect.

End Type

Dim Shared Dots(1 to max) as DotData  

CreateDot 1,20,120,100,10,50,1

CreateDot 2,20,110,80,30,70,3

Sub CreateDot(DotNumber,Strength,Intelligence,Happiness,Sadness,Stamnina,Sexuality)

Dots(DotNumber).Strength = Strength

Dots(DotNumber).Intelligence = Intelligence

ect,

End Sub

Sub CreateDotChild(FatherNum,MotherNum,ChildNum)

Dots(ChildNum).Strength = (Dots(FatherNum).Strength+Dots(MotherNum).Strength)\2

Dots(ChildNum).Intelligence = (Dots(FatherNum).Intelligence+Dots(MotherNum).Intelligence)\2

Ect.

End Sub

not sure of your skill at qb... but this should be pretty easy to adapt to your code... untested as i don't have a version of qb on this pc... and haven't used qb in a long time... but it should all work.

i'll try it, thanks.

Add mutations, or you'll end up with everyone having the same of all values.

Also, make certain "females" look for certain males, and vice verse.

I made a simillar thing long time ago, with a map, and the dots roamed around, brown was food, blue was water. And the learned where the water and food where and so on, could tell each other of findings and stuff.

Add predators, it's always fun, and instead of making the prey avoid predators, make the prey learn what can kill it, and avoid that, and the oposite ofr the predators, they learn what they can eat, sintead of having it hardcoded. Like, the first predators will try to eat everything, but grass wont taste too good, the first prey wont be afraid of the predators, cause the predators havent killed any prey yet, and so on.

It's very cool to watch the dots "evolve", especially if you add mutation.

Like, there's a 0.1% chanse that dot 3 will get a boost for one of it's skills by a huge amount.

Also, the predators wont attack strong prey etc etc. You get it.

I know, I know one step ata time... stuff like incest might go on. retardation, super genus 'social groups' based on intelligence or ...maybe even... ethnicity??.... who knows?
btw, how would one be able save a world in progress?

To save it ------------
[syntax="qbasic"]
OPEN file$ FOR OUTPUT AS #1 '### or use FREEFILE
WRITE #1, array(1)
PRINT #1, variable
'### whatever, look up the output functions in the HELP file
CLOSE #1 ' or FREEFILE
[/syntax]

To load it ------------
[syntax="qbasic"]
OPEN file$ FOR INPUT AS #1 '### or use FREEFILE
INPUT #1, variable
'### whatever, look up the output functions in the HELP file
CLOSE #1 ' or FREEFILE
[/syntax]

Dio and Z!re, did you guys do these as part of a challenge? Because the way you've been describing it makes it sound pretty damn cool. I really want to make one now. Maybe I'll implement it as part of my current project.

Qbasicnews.com

Dio

BinarySHOCK

Dio

Z!re

Dio

potato