Messages

31

Suggestions / Re: Tides, as an addition to the weather aspect.

« on: August 25, 2014, 03:05:10 PM »

The tide idea seems like so much fun, but I can already see the complications building up...

32

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

33

Newbie / Re: Greetings From A DarwinBots Newbie...

« on: August 14, 2014, 12:17:23 PM »

Yay! A new programmer for db. Botsareus can't do it all!  Wish I could help, but VB is far from my expertise...

34

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

35

F2 bots / Re: Gnat 3.0 (F2)(SB)(MysticalDumpling)20.7.14

« on: August 05, 2014, 03:53:24 PM »

Thenk yuo!  Saber is cool especially.

36

Formula 1 / Re: F1 League August of 2014

« on: August 05, 2014, 02:50:35 PM »

Actually, this is very surprising...

37

Formula 2 / Re: F2 League August of 2014

« on: August 05, 2014, 02:49:31 PM »

Yay! 2nd place! 

38

Short Bots league / Re: SB League Summer 2014

« on: August 05, 2014, 02:48:23 PM »

Yay! 4th place! 

39

F2 bots / Re: Gnat 3.0 (F2)(SB)(MysticalDumpling)20.7.14

« on: August 05, 2014, 02:40:59 PM »

I have to say that this robot has some very unique eyes. 

They are from Etch (Moonfisher, I believe...)

40

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

41

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

42

F2 bots / Re: Knotbot v2 (MB)(Interesting)(f3) (MysticalDumpling) 2.6.14

« on: June 30, 2014, 12:18:48 PM »

I meant f2... but it is not really a league bot.

43

F2 bots / Re: Knotbot v1 (MB)(Interesting)(f3) (MysticalDumpling) 2.6.14

« on: June 30, 2014, 12:18:32 PM »

I meant f2... but it is not really a league bot.

44

Darwinbots3 / Re: Realistic eyes?

« on: June 15, 2014, 06:11:58 AM »

I like Num's idea.

45

Darwinbots3 / Re: Sound/Smell

« on: June 07, 2014, 08:42:36 PM »

I like that idea.