Re:Who's the best programmer? (locopuyo)

Wed, 31 Dec 2008 11:27:43 GMT

ew delphi

Re:Who's the best programmer? (immortaldanmx)

Tue, 30 Dec 2008 20:52:04 GMT

Thats terrible. Tony Stark could build that in a cave with scraps.

Kidding. I havent programmed since I had Visual Basic class and played with Python because I was bored in Networking.

Who's the best programmer? (Kess DuKe)

Tue, 30 Dec 2008 20:37:40 GMT

Program rajzolo_wasd;
Uses crt;
Var
        x,y:integer;
        gomb:char;
Begin
        Textcolor(14);
        Clrscr;
        x:=40;
        y:=13;
        Gotoxy(x,y);
        Repeat
                gomb:=readkey;
                If(gomb='w')then begin
                        y:=y-1;
                        Gotoxy(x,y);
                        Gotoxy(1,1);
                        Write(x,',',y);
                        Gotoxy(x,y);
                end;
                If(gomb='a')then begin
                        x:=x-1;
                        Gotoxy(x,y);
                        Gotoxy(1,1);
                        Write(x,',',y);
                        Gotoxy(x,y);
                end;
                If(gomb='s')then begin
                        y:=y+1;
                        Gotoxy(x,y);
                        Gotoxy(1,1);
                        Write(x,',',y);
                        Gotoxy(x,y);
                end;
                If(gomb='d')then begin
                        x:=x+1;
                        Gotoxy(x,y);
                        Gotoxy(1,1);
                        Write(x,',',y);
                        Gotoxy(x,y);
                end;
                If(gomb='n')then write('*');
                If(gomb='m')then write(' ');
        Until(gomb='x');
End.

It is written in Free Pascal and you can draw with it.