Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - MysticalDumpling

Pages: [1] 2 3 4
1
Off Topic / Haskell?
« on: December 22, 2015, 03:57:14 PM »
I use a windows, and I want to use a IDE to write code, or at least something that can debug. Nothing works, the closest is Atom plugins, but the setup requires command lines that- surprise! only give instructions for Linux.

Pls help.

2
Interesting behaviour bots / BlindBot[evo][interesting]
« on: November 14, 2015, 10:55:19 AM »
Cute lil' bots that can operate without sight pretty well. It could be in the F1, but most certainly not designed for it!
Code: [Select]
'Tiebot shall only communicate via the tie. Also, it can do stuff blind.

'Delete birth tie and zoom a bit away
'Set up identity
cond
*.robage 0 =
start
.deltie inc
100 .up store
50 .tout1 store
stop

'OK,so I am not a baby. Make some ties.
cond
*.robage 10 >
*.numties 0 =
start
20 .up store
.tie inc   
stop

'If I tied to a conspec, break the tie and turn away
cond
*.tin1 *.tout1 =
*.numties 1 =
start
.deltie inc
123 .aimsx store
stop

'FEED (on veggie body)
cond
*.numties 0 >
*.tin1 *.tout1 !=
start
-6 .tieloc store
-50 .tieval store
*.tiepres .tienum store
stop

'If I can, create the childs
cond
*.nrg 5000 >
start
314 .aimdx store
50 .repro store
314 .aimsx store
stop

'If something is hurting me, break all ties
cond
*.pain 0 >
start
*.tiepres .deltie
50 .dn store
stop

'Metabolism
start
*.nrg *.body 10 mult add 20 div *.body sub 1 floor .strbody store
*.body *.nrg *.body 10 mult add 20 div sub 0 floor 30000 *.nrg sub 10 div ceil  .fdbody store
stop

3
Evolution and Internet Sharing Sims / Tip for evolution sims
« on: November 13, 2015, 05:31:20 PM »
Check out the "average mutations" graph, and the population graph. No selective pressure means random jumps and drops on average muts and steady increase of population to the limit, while selection of non-neutral mutations results in a steep change in avg. mut. and a u-shaped population dip and recovery. So, even if nothing exciting is happening visually, know you can monitor evolution rates!

4
Off Topic / Befunge compiler/interpreter
« on: November 11, 2015, 02:47:50 PM »
Anyone know any good Befunge-98 interpreters, or if someone actually managed to create a compiler for it? Can't find any that work, and I managed to th*q up my computer with a dishonest one. Yay me.

5
Off Topic / Hi!
« on: November 11, 2015, 02:36:31 PM »
Hi! Enough said, I think.

Also, cool link (shows some sweet evolutionary diversity)
http://www.orchidspecies.com/

6
Off Topic / Absence
« on: September 07, 2014, 07:45:37 AM »
I finally got my visa to move to the Usa. I will not be able/ not have time to play w/ Darwinbots for a while... In case you are wondering, I will be moving to Naples Florida. Wish me luck! My English is good enough, right? I will be going on the train to the airport to the other airport on a few days.

 :D I will miss all of you!

7
DNA - General / I'm not sure what I just did, but it is interesting...
« on: August 15, 2014, 08:57:56 AM »
Some bizzare aiming. It is a segment of a new SS bot I'm working on...

50
'Repro
*.nrg 1000 sub sgn 0 floor .repro mult 1 rnd mult
-6
'Moving
1 rnd -298 mult add
'Shooting
*.eye5 0 sub sgn abs 0 floor 7 mult add

store

8
Single store / Insulsus(SS)MysticalDumpling 13.8.14
« on: August 13, 2014, 12:51:18 PM »
Code: [Select]
'Insulsus
'Randomly selects a list of sysvars and addstores

'Sysvars- tie repro up sharenrg (4)
'Range of 1 to 830
'1, 300, 330, 830
start
50

'Up
5 rnd sgn
'Tie
329 10 rnd sgn mult add
'Feed
830 1 rnd mult add
'Repro
'Need condition!
*.nrg 1000 sub sgn 0 floor 300 mult 1 rnd mult add

1 floor 830 ceil addstore

stop

9
F2 bots / Gnat 3.0 (F2)(SB)(MysticalDumpling)20.7.14
« on: July 20, 2014, 09:31:02 PM »
Code: [Select]
'==========
'Gnat 3.0 based on Quickdraw
'==========
start
50 .repro store
341 .aimsx store
500 .dn store
500 .dx store
*.thisgene .delgene store
stop

start
50 .repro store
341 .aimsx store
500 .dn store
500 .dx store
*.thisgene .delgene store
stop

start
50 .repro store
341 .aimsx store
500 .dn store
500 .dx store
*.thisgene .delgene store
stop


'==========
'Init
'==========
cond
*.robage 3 <
start
'Eyes- from Etch!
-140 dup *.eye1dir sub sgn abs .eye1dir mult store
  -105 dup *.eye2dir sub sgn abs .eye2dir mult store
  -70  dup *.eye3dir sub sgn abs .eye3dir mult store
  -35  dup *.eye4dir sub sgn abs .eye4dir mult store
  35   dup *.eye6dir sub sgn abs .eye6dir mult store
  70   dup *.eye7dir sub sgn abs .eye7dir mult store
  105  dup *.eye8dir sub sgn abs .eye8dir mult store
  140  dup *.eye9dir sub sgn abs .eye9dir mult store
  -30  dup *.eye1width sub sgn abs .eye1width mult store
  -25  dup *.eye2width sub sgn abs .eye2width mult store
  -15  dup *.eye3width sub sgn abs .eye3width mult store
  5    dup *.eye4width sub sgn abs .eye4width mult store
  45   dup *.eye5width sub sgn abs .eye5width mult store
  125  dup *.eye6width sub sgn abs .eye6width mult store
  285  dup *.eye7width sub sgn abs .eye7width mult store
  605  dup *.eye8width sub sgn abs .eye8width mult store
  1221 dup *.eye9width sub sgn abs .eye9width mult store
  .deltie inc

'ID
-32000 32000 rnd .out2 store
12 .out1 store
'Misc.
.shootval .vloc store
31000 .venval store
.eyef 9 rnd sub .ploc store
50 .pval store
stop

'==================
'Focuseye
'==================

cond
  *.eye1 0 >
  *.eye2 0 > or
  *.eye3 0 > or
  *.eye4 0 > or
  *.eye5 0 > or
  *.eye6 0 > or
  *.eye7 0 > or
  *.eye8 0 > or
  *.eye9 0 > or
start
'Focus using the narrowest eye that sees something
  *.eye1 *.eye2 *.eye3 *.eye4
  *.eye5 *.eye6 *.eye7 *.eye8 *.eye9
  floor floor floor floor
  floor floor floor floor
  50 store
  -4 *50 *.eye1 sub sgn abs -- - .focuseye mult store
  -3 *50 *.eye2 sub sgn abs -- - .focuseye mult store
  -2 *50 *.eye3 sub sgn abs -- - .focuseye mult store
  -1 *50 *.eye4 sub sgn abs -- - .focuseye mult store
  0  *50 *.eye5 sub sgn abs -- - .focuseye mult store
  1  *50 *.eye6 sub sgn abs -- - .focuseye mult store
  2  *50 *.eye7 sub sgn abs -- - .focuseye mult store
  3  *50 *.eye8 sub sgn abs -- - .focuseye mult store
  4  *50 *.eye9 sub sgn abs -- - .focuseye mult store
stop



'=============================================================================
'=============================================================================


start
*.eyef 0 =
*.in1 *.out1 =
*.in2 *.out2 != and or
200 .aimsx store
clearbool

'Approach tasty things
*.eyef 0 >
*.in1 *.out1 !=
*.in2 *.out3 = or and
'Borrowed from Etch
*.refvelup 250 *.eye3 sub add *.velup abs - floor .up store
 
*.refvelsx - .dx store
*.refxpos *.refypos angle .setaim store
clearbool


'Turn towards pain
*.shang 0 !=
*.shflav 0 != and
*.shflav -2 != and
*.shang .setaim store
0 .shang store
0 .shflav store
clerbool

'ATTACK!
*.in1 *.out1 !=
*.in2 *.out2 = or
*.eyef 0 > and
*.refvelup 100 *.eye5 sub add *.veldn abs - floor .up store
*.refxpos *.refypos angle .setaim store
*.refveldx .dx store
-6 .shoot store
*.refkills 0 >
*.venom 10 > and
-3 .shoot store
clearbool


*.waste 10 >
*.waste .shootval store
-4 .shoot store
clearbool

'============================
'Production!
'============================
*.nrg 3211 >
*.venom 100 < and
20 .strvenom store
clearbool
*.shell 65 10 rnd add <
*.nrg 3211 > and
20 .mkshell store
clearbool
*.poison 1000 <
*.nrg 3211 > add
20 .strpoison store
clearbool
*.body 90 >
*.body 90 sub 10 mult .fdbody store
clearbool
*.body 90 <
*.nrg 4000 >= and
100 .strbody store
clearbool
'=================


'===========
'Reproduction!
'===========
*.nrg *.body 10 mult add 800 > and
80 *.velscalar sub 0 floor .sx store
50 .repro store
628 rnd .aimsx store
clearbool

10
F2 bots / Shinto(F2)(Evo)(interesting)(MysticalDumpling)20.7.14
« on: July 20, 2014, 09:30:21 PM »
Code: [Select]
'Peacable bot
'Does not attack unless attacked, then all of its children will (remebers dna length in epigen memory)

'Vendettas
def vend1 971
def vend2 972
def vend3 973

'==========
'Quickdraw- Moonfisher
'==========
start
50 .repro store
341 .aimsx store
500 .dn store
500 .dx store
*.thisgene .delgene store
stop

start
50 .repro store
341 .aimsx store
500 .dn store
500 .dx store
*.thisgene .delgene store
stop

start
50 .repro store
341 .aimsx store
500 .dn store
500 .dx store
*.thisgene .delgene store
stop


'==========
'Init
'==========
cond
*.robage 3 <
start
'Eyes- from Etch!
-140 dup *.eye1dir sub sgn abs .eye1dir mult store
  -105 dup *.eye2dir sub sgn abs .eye2dir mult store
  -70  dup *.eye3dir sub sgn abs .eye3dir mult store
  -35  dup *.eye4dir sub sgn abs .eye4dir mult store
  35   dup *.eye6dir sub sgn abs .eye6dir mult store
  70   dup *.eye7dir sub sgn abs .eye7dir mult store
  105  dup *.eye8dir sub sgn abs .eye8dir mult store
  140  dup *.eye9dir sub sgn abs .eye9dir mult store
  -30  dup *.eye1width sub sgn abs .eye1width mult store
  -25  dup *.eye2width sub sgn abs .eye2width mult store
  -15  dup *.eye3width sub sgn abs .eye3width mult store
  5    dup *.eye4width sub sgn abs .eye4width mult store
  45   dup *.eye5width sub sgn abs .eye5width mult store
  125  dup *.eye6width sub sgn abs .eye6width mult store
  285  dup *.eye7width sub sgn abs .eye7width mult store
  605  dup *.eye8width sub sgn abs .eye8width mult store
  1221 dup *.eye9width sub sgn abs .eye9width mult store
  .deltie inc
'Memloc
.dnalen .memloc store
'ID
-32000 32000 rnd .out2 store
12 .out1 store
'Misc.
.shootval .vloc store
31000 .venval store
.eyef 9 rnd sub .ploc store
50 .pval store
stop

'==================
'Focuseye
'==================

cond
  *.eye1 0 >
  *.eye2 0 > or
  *.eye3 0 > or
  *.eye4 0 > or
  *.eye5 0 > or
  *.eye6 0 > or
  *.eye7 0 > or
  *.eye8 0 > or
  *.eye9 0 > or
start
'Focus using the narrowest eye that sees something
  *.eye1 *.eye2 *.eye3 *.eye4
  *.eye5 *.eye6 *.eye7 *.eye8 *.eye9
  floor floor floor floor
  floor floor floor floor
  50 store
  -4 *50 *.eye1 sub sgn abs -- - .focuseye mult store
  -3 *50 *.eye2 sub sgn abs -- - .focuseye mult store
  -2 *50 *.eye3 sub sgn abs -- - .focuseye mult store
  -1 *50 *.eye4 sub sgn abs -- - .focuseye mult store
  0  *50 *.eye5 sub sgn abs -- - .focuseye mult store
  1  *50 *.eye6 sub sgn abs -- - .focuseye mult store
  2  *50 *.eye7 sub sgn abs -- - .focuseye mult store
  3  *50 *.eye8 sub sgn abs -- - .focuseye mult store
  4  *50 *.eye9 sub sgn abs -- - .focuseye mult store
stop

cond
*.eyef 0 =
*.in1 *.out1 =
*.in2 *.out2 != and or
start
200 .aimsx store
stop
'===================

'Approach tasty things
'Veggies tend not to have eye commands.
cond
*.eyef 0 >
*.refeye 0 =
start
'Borrowed from Etch
*.refvelup 250 *.eye3 sub add *.velup abs - floor .up store
 
*.refvelsx - .dx store
*.refxpos *.refypos angle .setaim store
stop

'Skit around things that look dangerous
cond
*.refkills 0 >
*.in1 *.out1 !=
*.in2 *.out2 = or and
start
5 rnd .sx store
10 .aimsx store
stop

'Turn towards pain
cond
*.shang 0 !=
*.shflav 0 !=
*.shflav -2 !=
start
*.shang .setaim store
0 .shang store
0 .shflav store
stop

'ATTACK!
cond
*.in1 *.out1 !=
*.in2 *.out2 = or
*.menval *.vend1 =
*.memval *.vend2 = or
*.memval *.vend3 = or and
*.refeye 0 = or
*.eyef 0 > and
start
*.refvelup 100 *.eye5 sub add *.veldn abs - floor .up store
*.refxpos *.refypos angle .setaim store
*.refveldx .dx store
-6 .shoot store
*.refkills 0 >
*.venom 10 > and
-3 .shoot store
stop

cond
*.waste 10 >
start
*.waste .shootval store
-4 .shoot store
stop

'============================
'Production!
'============================
cond
*.nrg 3211 >
start
*.venom 100 <
20 .strvenom store
dropbool
*.shell 65 10 rnd add <
20 .mkshell store
dropbool
*.poison 1000 <
20 .strpoison store
stop

*.body 90 >
*.body 90 sub 10 mult .fdbody store
clearbool
*.body 90 <
*.nrg 4000 >= and
100 .strbody store
clearbool
'=================

'Vendetta!
cond
*.pain 100 >
*.eyef 0 > and
*.in1 *.out1 !=
*.in2 *.out2 = or and
start
*.vend1 0 =
*.memval .vend1 store
*.vend2 0 =
*.memval *.vend1 != and
*.memval .vend2 store
*.vend3 0 =
*.memval *.vend1 != and
*.memval *.vend2 != and
*.memval .vend3 store
stop

'===========
'Reproduction!
'===========
start
*.nrg *.body 10 mult add 800 > and
80 *.velscalar sub 0 floor .sx store
50 .repro store
628 rnd .aimsx store
stop

11
F2 bots / Knotbot v2 (MB)(Interesting)(F2) (MysticalDumpling) 2.6.14
« on: June 02, 2014, 04:01:18 PM »
Code: [Select]
'Revamped Knotbot w/ processing

def havnrg 21
def stillneednrg 22
def seenothing 23

'tout1, tout2 conspec
'tout3- ask for nrg
'tout4- X-cord of target
'tout5- Y-cord of target

cond
*.robage 0 =
start
123 .tout1 store
-32000 32000 rnd .tout2 store
stop

start
.tie inc
stop

cond
*.body 200 >
*.nrg 9100 > or
start
50 .repro store
stop

cond
*.tin1 *.tout1 !=
*.tin2 *.tout2 = or
*.numties 0 >
start
*.eyef 50 <
0 .seenothing store
*.trefxpos *.trefypos angle .setaim store
*.refvelup 30 add .up store
*.refveldx .dx store
0 .fixpos store
clearbool
*.eyef 50 >
-6 .shoot store
.fixpos inc
stop

cond
*.myup *.refup =
*.eye5 0 = or
start
0 .fixpos store
.seenothing inc
stop

'Get rid of waste
cond
*.waste 100 >
start
*.waste .shootval store
-4 .shoot store
stop

'=====================================
'Social Aspects
'=====================================
'Can I give nrg?
cond
*.nrg 7500 >
start
.havnrg inc
stop

'Do I need nrg?
cond
*.nrg 500 <
*.multi 1 =
start
.tout3 inc
.stillneednrg inc
stop

'Do I still need nrg
cond
*.nrg 2000 >
*.stillneednrg 0 >
start
0 .stillneednrg store
stop

cond
*.stillneednrg 0 =
start
0 .tout3 store
stop

'Donate nrg
cond
*.tout3 0 >
*.havnrg 0 >
start
-2 .sharenrg store
stop

'Do I see something interesting?
cond
*.eyef 0 >
*.myup *.refup !=
start
*.refxpos .tout4 store
*.refypos .tout5 store
stop

'If I see nothing interesting, head towards the target
cond
*.seenothing 0 >
*.tin4 *.tin5 mult 0 !=
start
*.tin4 *.tin5 angle .setaim store
20 .up store
*.tin4 .tout4 store
*.tin5 .tout5 store
stop


12
F2 bots / Knotbot v1 (MB)(Interesting)(F2) (MysticalDumpling) 2.6.14
« on: June 02, 2014, 04:00:40 PM »
This is, of course, based on Numsgil's definition. Fun to watch.
Code: [Select]
cond
*.robage 0 =
start
123 .tout1 store
stop

start
.tie inc
stop

cond
*.body 200 >
*.nrg 9100 > or
start
50 .repro store
stop

cond
*.tin1 *.tout1 !=
start
*.eyef 50 <
*.trefxpos *.trefypos angle .setaim store
*.refvelup 30 add .up store
*.refveldx .dx store
0 .fixpos store
clearbool
*.eyef 50 >
-6 .shoot store
.fixpos inc
stop

cond
*.myup *.refup =
*.eye5 0 = or
start
0 .fixpos store
stop

13
Off Topic / Happy Mother's day!
« on: May 26, 2014, 02:48:06 PM »
It's mother's day in Poland, anyway. Happy Memorial day to yall Americans (lucky...)

It is today, right?

14
Suggestions / Species Forking
« on: May 08, 2014, 05:26:51 PM »
However great species forking is, it raises one problem- after a few 100 thousand cycles, the population graph gets cluttered with long-extinct species. I saw once a species goes extinct, remove it from all graphs. A forked-off species cannot be replaced if it goes extinct.

15
Code: [Select]
'Bot that (like Saber) finds a veggie and shhots from behing
'However, these bots farm the veg and protect it

cond
*.robage 0 =
start
.chlr .memloc store
.chrlr .tmemloc store
628 .eye5dir store
.shootval .vloc store
-31000 .venval store
180 *.velscalar sub 0 floor .dn store
.deltie inc

start
*.eye5 0 >
*.memval 0 > and
  *.refxpos *.refypos angle 628 add .setaim store
  628 .aimshoot store
  .tie inc
  *.refveldn 100 *.eyef sub add *.velup abs - floor .dn store
  *.refveldx .dx store
*.eye5 50 >
*.trefnrg 6000 >=
-1 .shoot store
clearbool
*.tmemval 0 >
12 .sharenrg store
stop

start
*.eye5 0 =
*.myeye *.refeye = or
*.eyef 0 != and
314 rnd .aimsx store
stop

start
*.nrg *.body 10 mult > and
  *.nrg *.body 10 mult sub .strbody store
stop

start
.nrg *.body 10 mult < and
  *.body 10 mult *.nrg sub .fdbody store
stop

start
*.venom 1000 <=
*.nrg 500 >
10 rnd 1 =
.strvenom inc
stop

start
 *.nrg *.body 10 mult add 1000 > and
10 .strvenom store
20 .repro store
   7117 10 mult *.veldx *.velup mult mult
    356 *.velup dup mult mult
    100 *.veldx dup mult mult
    add div
  *.velup sgn - sqr 628 mult add
  - *.aim add 628 add .setaim store
stop

start
*.myeye *.trefeye =
*.tiepres .deltie store
stop

start
*.waste 100 >
-4 .shoot store
stop

'=================Defending================
'Use other eyes to spot an enemy and shot venom at it
'Abalone focuseye cycle
cond
*.eyef 0 =
start
*.timer 4 sub 6 ceil .focuseye store
*.focuseye 6 =
0 .timer store
stop

cond
*.eyef 50 >
*.memval 0 =
*.myeye *.refeye !=
start
*.refxpos *.refypos angle .aimshoot store
-3 .shoot store
stop

cond
*.focuseye 0 =
start
.focuseye inc
stop

Pages: [1] 2 3 4