Author Topic: Arsenal Arbitraris  (Read 2365 times)

Offline bacillus

  • Bot Overlord
  • ****
  • Posts: 907
    • View Profile
Arsenal Arbitraris
« on: April 26, 2008, 11:16:08 PM »
'Arsenal Arbitraris
'V1.0
'Shoots a variety of viruses in a sythesized natural selection process.

'Core gene
''Set virus protection&conspec
''Make virus and delete potentially dangerous genes
''Move, shoot and tie-feed
''Reproduce
''Body Control
cond
start
 77 .out2 store
 77 .tout2 store
 *.thisgene ++ *.genes -- *.thisgene sub rnd *.thisgene ++ add

.mkvirus store
 *.thisgene -- .delgene store
 2 .up store
 *.nrg 7 div .vshoot store
 30 *.eye3 *.eye5 sub sgn 0 floor .aimsx store
 30 *.eye3 *.eye5 sub sgn 0 floor .aimdx store
 .tie inc
 *.tin2 *.tout2 sub sgn abs -- abs *.tiepres mult .deltie store
 99 .sharenrg store
 -1 .tieloc store
 -1000 .tieval store
 -6 .shoot *.out2 *.in2 sub sgn abs *.eye5 40 sub sgn 0 floor mult

mult store
 50 *.thisgene -- sgn abs -- abs *.nrg 2500 sub sgn 0 floor mult

.repro mult store
 *.nrg 3 div *.body sub dup .strbody store - .fdbody store
stop

'Virus 1 - kill shot
cond
 *.out2 77 !=
start
 *.thisgene .mkvirus store
 -32000 .vshoot store
stop

'Virus 2 - clears genes
cond
 *.out2 77 !=
start
 *.thisgene 1 rnd 2 mult -- add .delgene store
 *.thisgene .mkvirus store
 *.nrg 2 div .vshoot store
stop

'Virus 3 - ties to others
cond
 *.out2 77 !=
start
 *.thisgene .mkvirus store
 50 .vshoot store
 .tie inc
 -1 .tieloc store
 -1000 *.tin2 77 sub sgn abs 2 mult -- mult .tieval store
stop

'Virus 4 - Mass reproduction
cond
 *.out2 77 !=
start
 *.thisgene .mkvirus store
 20 *.nrg sub sgn 0 floor mult .repro store
 100 .vshoot store
stop

Virus 5 - Spreads virus to other areas
cond
 *.out2 77 !=
start
 20 .dx store
 20 .up store
 *.thisgene .mkvirus store
 50 .vshoot store
stop
"They laughed at Columbus, they laughed at Fulton, they laughed at the Wright brothers. But they also laughed at Bozo the Clown."
- Carl Sagan