Posts: 650
Threads: 26
Joined: Aug 2004
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!
quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Posts: 115
Threads: 6
Joined: Feb 2003
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.
very F***ing song remains the same
To everyone who sucks-up for the fame
Out of strength you know we speak the truth
Every trend that dies is living proof
MasterMinds Software
Posts: 650
Threads: 26
Joined: Aug 2004
i'll try it, thanks.
quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Posts: 3,522
Threads: 189
Joined: Dec 2003
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.
Posts: 650
Threads: 26
Joined: Aug 2004
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?
quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Posts: 394
Threads: 16
Joined: Jun 2003
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.
ammit potato!
|