Hi all,

a discussion we've had at the #rgrd irc channel leads me to announce
the very first "<1kb RL challenge"!

My 967 bytes entry follows (can also be found on http://pastie.org/248821).
It is python code, if you are on windows you will need to install a
windows curses module for Python, e.g.  http://adamv.com/dev/python/curses/

----

from curses import *
from random import *
s=initscr()
r=range
m=[40*[' '] for l in r(20)]
d=enumerate
def f(g):
        for y in r(20):
                for x in r(40):
                        g(y,x)
def n(y,x):
        if random()<0.1:
                m[y][x]='#'
f(n)
x,y,c,h=0,0,0,5
o,t,n=ord,s.addstr,randint
w=[[n(0,19),n(0,39),1] for e in r(10)]
def u(y,x):
        for i,e in d(w):
                if y==e[0] and x==e[1]:
                        return i
        return -1
def v(y,x):
        if u(y,x)>0:
                w[u(y,x)][2]-=1
        return m[y][x]==' '
while(c!=o('q')):
        t(0,41,"h: "+str(h))
        for j,e in d(w):
                m[e[0]][e[1]]=' '
                if e[2]<1:
                        continue
                z,q=max(min(w[j][0]+n(-1,1),19),0),max(min(w[j][1]+n(-1,1),39),0)
                if(z==y and q==x):
                        h=h-1
                if(m[z][q]==' '):
                        w[j][0],w[j][1]=z,q
                m[e[0]][e[1]]='e'
        m[y][x]='@'
        f(lambda y,x:t(y,x,m[y][x]))
        c=s.getch()
        m[y][x]=' '
        if o('2')==c and y<19:
                if v(y+1,x):
                        y+=1
        if o('8')==c and y>0:
                if v(y-1,x):
                        y-=1
        if o('6')==c and x<39:
                if v(y,x+1):
                        x+=1
        if o('4')==c and x>0:
                if v(y,x-1):
                        x-=1
        if h<1:
                break

On Aug 6, 6:12 pm, Ido Yehieli <Ido.Yehi...@gmail.com> wrote:

This severely pushes the definition...not only of 'roguelike', but of
'game'. I like it. :)

On 6 ago, 17:12, Ido Yehieli <Ido.Yehi...@gmail.com> wrote:

Cool, interesting!

We must decide on a final date?

I am in!

SNIP

--
Slashie
http://www.santiagoz.com/blog
http://roguetemple.com
http://slashie.net

On 6 Aug, 18:12, Ido Yehieli <Ido.Yehi...@gmail.com> wrote:

This entry doesnt seem to have monsters, what does it need to
implement in order to qualify ?

T.

My entry is at http://nate879.org/rl.c (source) and http://nate879.org/rl.exe
(Windows executable). It only runs on Windows (and maybe Wine). To get
it to run on another platform, it would require some modification.

I might improve this entry later.

To compile this, get MinGW (http://mingw.org/), and run the command
"gcc -o rl rl.c". Use the numpad with numlock on.

On Aug 6, 6:12 pm, Ido Yehieli <Ido.Yehi...@gmail.com> wrote:

and how big is python? can  my roguelike just be a dll? with a 1kb
batch file?

is it 1kb of source or 1kb of binary?

-stu

Roguelikes don't really fit well with size coding competitions, the
competition should be packing the most fun into the smallest source,
not limiting to 1kb of source.

For the contest to be fair, we need some rules. What languages can we
use? Languages like C allow multiple statements on one line, reducing
the number of newline characters. Can we use Curses, or do we have to
implement our own I/O functions?

My suggestion is this: we can use any language. We make a separate
file with the I/O functions we want to use. This would not be counted
as part of the source code for scoring purposes.

For scoring, we could have a poll in which we vote for our favorite
roguelikes. After the voting is complete, we divide each roguelike's
votes by its source code size, in bytes. This makes smaller roguelikes
score better. For example, a 10,000-byte roguelike with 100 votes gets
a score of .01, and a 1000-byte roguelike with 50 votes gets a score
of .05.

news:613672e0-394b-4f3d-a1eb-62a6070e38b8@m45g2000hsb.googlegroups.com...

This is a nice idea but it's going off on a complete tangeant from the
original intent.

I think it should just be what has already been set as a precedent by the
entries so far, which is:
  Language and libraries:
    Any language, only the language's standard libraries and optionally
curses can be used

  Size:
    Either the source OR the binary is less than 1kb (1024 bytes)

news:22e124f9-19ad-4241-aba7-53f2fed700bb@e53g2000hsa.googlegroups.com...

C# <1kRl

Game "world" (haha) generated on the fly, infinite size (within the limits
of your computer's memory)

Tested under .NET in Windows and Mono in Linux

Press any key except escape to start, arrow keys to move, escape to exit

943 bytes, C#
http://nrkn.com/1kRl/Program.cs

Binary, 6144 byes:
http://nrkn.com/1kRl/1kRl.exe

Code:

using System;using System.Collections.Generic;namespace _1kRl{class Program{
class M{Dictionary<string,char>d=new Dictionary<string,char>();int
p=9,x,y,u,
v;char a='@',w='#',f='.';Random r=new Random();public
M(){x=p;y=p;d[S(x,y)]=a;
ConsoleKey k =
K();while(k!=ConsoleKey.Escape){Console.Clear();u=x;v=y;switch
(k){case ConsoleKey.LeftArrow:x--;break;case
ConsoleKey.RightArrow:x++;break;
case ConsoleKey.UpArrow:y--;break;case
ConsoleKey.DownArrow:y++;break;}if(C(S(
x,y))==w){x=u;y=v;}d[S(u,v)]=f;d[S(x,y)]=a;for(int j=0;j<p*2-1;j++){for(int
i=0;i<p*2-1;i++){Console.Write(C(S(i-p+x,j-p+y)));}Console.WriteLine();}k=K ();

int l){return Convert.ToInt32((s.Split('_'))[l]);}char C(String s){if(
d.ContainsKey(s))return d[s];return d[s]=r.Next(9)<8?f:w;}ConsoleKey K(){
return(Console.ReadKey(true)).Key;}}static void Main(string[]args){M m=new
M();}}}

My game is called Energon Absorber.

Collect all the e's (energons) within the lowest amount of turns.
There will always be 10 energons, randomly placed. It wont crash if
you attempt to walk off the edge, and the win condition is collection
of all the energons.

e: Number of energons left
t: Number of turns used so far

Its written in Java and there are 2 versions since the rules seem a
little unclear at this point: Version one uses only input/output
streams: unfortunately Java sucks with input, so you have to press
'enter' after one or more directional keys. Its sad I know. Version 2
has a keyboard class I quicky whipped up that can sit in a seperate
file. It creates a small JFrame that listens to input as long as it
has window focus, but this version still outputs with the standard
output stream to console... Its 1000x easier to use since you dont
have to hit 'enter' all the time, so I recommend people do.

Version 1: 991 bytes
Version 2: 984 bytes

class M{
  static char m[][]=new char[10][10];
  static int k,X=5,Y=5,x,y,a,b,s,t,e=10;
  public static void main(String[] A)throws Exception{
    for(;y<10;y++)
      for(x=0;x<10;x++){
        if(m[x][y]!='e'){
          m[x][y]='.';
          if(Math.random()<.1&&e>0&&(x!=5&&y!=5)){m[x][y]='e'; e--;}
        }
        if(x==9&&y==9&&e>0)x=y=0;
      }
    m[X][Y]='@';
    while(true){
      e=0;
      for(y=0;y<m[0].length;y++){
        for(x=0;x<m.length;x++){
          System.out.print(m[x][y]);
          if(m[x][y]=='e')e++;
        }
        System.out.println();
      }
      if(e!=0)System.out.println("t:"+t+"  e:"+e+"\n");
      else System.out.println("U Win! t:"+t+"\n");
      k=System.in.read();
      if(e==0)System.exit(0);
      m[X][Y]='.';
      if(k==50&&Y!=9){Y++;if(e!=0)t++;}
      if(k==52&&X!=0){X--;if(e!=0)t++;}
      if(k==54&&X!=9){X++;if(e!=0)t++;}
      if(k==56&&Y!=0){Y--;if(e!=0)t++;}
      m[X][Y]='@';
    }
  }

For version 2, replace the line which reads k=System.in.read(); with
k=F.g(); and use this code in a seperate file:

import java.awt.event.KeyEvent;
import java.awt.event.KeyListener;
import javax.swing.JFrame;

public class F{

  public static JFrame frame;
  public static Keyboard vKeyboard;

  public static int g(){
    if(frame == null){
      frame = new JFrame();
      frame.setSize(10, 10);
      vKeyboard = new Keyboard();
      frame.addKeyListener(vKeyboard);
      frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
      frame.setLocationRelativeTo(null);
      frame.setVisible(true);
    }
    int key = -1;
    while(key == -1){
      frame.requestFocus();
      try{ Thread.sleep(50); }
      catch(Exception e){ System.out.println(e); }
      key = vKeyboard.key;
      vKeyboard.key = -1;
    }
    return key;
  }

class Keyboard implements KeyListener{

  public int key;

  public Keyboard(){
  }

  public void keyTyped(KeyEvent e) {}
  public void keyReleased(KeyEvent e) {}
  public void keyPressed(KeyEvent e)
  {
    key = e.getKeyChar();
  }

-Numeron

Here is an updated version, Ive collapsed the whole thing down to one
line, and also fixed a small energon bug.

In this form its only 721 bytes :D

class M{static char m[][]=new char[10][10];static int
k,X=5,Y=5,x,y,a,b,s,t,e=10;public static void main(String[] A)throws
Exception{for(;y<10;y++)for(x=0;x<10;x++){if(m[x][y]!='e'){m[x]
[y]='.';if(Math.random()<.1&&e>0&&!(x==5&&y==5)){m[x]
[y]='e';e--;}}if(x==9&&y==9&&e>0)x=y=0;}m[X][Y]='@';while(true)
{e=0;for(y=0;y<m[0].length;y++){for(x=0;x<m.length;x++)
{System.out.print(m[x][y]);if(m[x][y]=='e')e+
+;}System.out.println();}if(e!=0)System.out.println("t:"+t+"  e:"+e
+"\n");else System.out.println("U Win! t:"+t
+"\n");k=System.in.read();if(e==0)System.exit(0);m[X]
[Y]='.';if(k==50&&Y!=9){Y++;if(e!=0)t++;}if(k==52&&X!=0){X--;if(e!=0)t+
+;}if(k==54&&X!=9){X++;if(e!=0)t++;}if(k==56&&Y!=0){Y--;if(e!=0)t+
+;}m[X][Y]='@';}}}

If you can find it in there, replace the line which reads
k=System.in.read(); with k=F.g(); to use it with my Keyboard related
classes above.

-Numeron

On Aug 7, 2:17 am, konijn_ <kon...@gmail.com> wrote:

It does have monsters, they  are the e's that move around randomly and
reduce your hp if they hit you.

On Aug 7, 4:12 am, stu <yakumo9...@gmail.com> wrote:

Whatever you wish, although the original idea was 1kb of source.

news:g7du03$o18$1@registered.motzarella.org...

C# <1kB RogueLike v2

992 bytes, now with a win condition:

http://nrkn.com/1kRl/v2/
http://nrkn.com/1kRl/v2/Program.cs
http://nrkn.com/1kRl/v2/1kRl.exe

Code (slightly bigger than 992 bytes due to carriage returns added for
convenience when reading from Usenet):

using System;using System.Collections.Generic;namespace _1kRl{class Program{
class M{Dictionary<string,char>d=new Dictionary<string,char>();int p=9,x,y,
u,v,z;char a='@',w='#',f='.',q='$',c;Random r=new Random();public M(){x=y=p;
d[S(x,y)]=a;ConsoleKey k=K();while(k!=ConsoleKey.Escape){Console.Clear();
u=x;v=y;switch(k){case ConsoleKey.LeftArrow:x--;break;case
ConsoleKey.RightArrow:x++;break;case ConsoleKey.UpArrow:y--;break;case
ConsoleKey.DownArrow:y++;break;}c=C(S(x,y));if(c==w){x=u;y=v;}if(c==q){
Console.WriteLine("Win");K();return;}d[S(u,v)]=f;d[S(x,y)]=a;z=p*2-1;for(in t
j=0;j<z;j++){for(int i=0;i<z;i++){Console.Write(C(S(i-p+x,j-p+y)));}
Console.WriteLine();}k=K();}}string S(int x,int y){return String.Format(
"{0}_{1}",x,y);}int L(String s,int l){return Convert.ToInt32((s.Split('_'))
[l]);}char C(String s){if(d.ContainsKey(s))return d[s];return d[s]=r.Next(
9999)==9?q:r.Next(9)<8?f:w;}ConsoleKey K(){return(Console.ReadKey(true)
).Key;}}static void Main(string[]args){M m=new M();}}}

news:g7e4f0$3rl$1@registered.motzarella.org...

There was a whole method in there that wasn't being called.  Duh.

927 bytes

news:g7e5oq$e45$1@registered.motzarella.org...

Bugger this, I'm starting a new thread :)

Well, since I started this all, I might as well show you guys my rl:
monsters, thingies etc.
http://pastie.org/249060 (It's Extremely Dark v1, made in FreeBasic)
Keys: Arrow Keys to move and S to search (for the exit). To finish,
you need to get past lvl 3.
SImple, huh? I'll upload an exe too...

On 7 Aug, 12:20, Deveah <dev...@gmail.com> wrote:

Here is it! http://deveah.googlepages.com/1024biED.exe

On 7 Aug, 12:27, Deveah <dev...@gmail.com> wrote:

Sorry for triple posting, but that H8L1E4 code is: H = health points;
L = the level you're on; E = enemies around you
I hope it's enough

On Aug 7, 12:12 am, Ido Yehieli <Ido.Yehi...@gmail.com> wrote:

FYI, 967 is with using tabs, i think google groups replaced them with
spaces.

-Ido.

On 7 elo, 01:12, Ido Yehieli <Ido.Yehi...@gmail.com> wrote:

I thought 7DRL was bad enough, but in theory a 7DRL could
become a real roguelike. This 1kb is just a waste of time.

On Aug 7, 1:03 pm, Krice <pau...@mbnet.fi> wrote:

Then don't join the challenge.

news:a583d0a9-4ef2-4a24-b27a-50704027ecb5@e53g2000hsa.googlegroups.com...

Unless you like programming because it's fun

On Aug 7, 2:23 am, Ido Yehieli <Ido.Yehi...@gmail.com> wrote:

My bad!
Still, the contest should define what the minimum content is for the
entry.

T.