[soc.net-people] suicide.c

al@gtx.com (Alan Filipski) (09/16/88)

Has anyone got a copy of Nathan Glasser's program suicide.c?
It was posted to net.suicide in early January 1983.


  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 ( Alan Filipski, GTX Corp, 8836 N. 23rd Avenue, Phoenix, Arizona 85021, USA )
 ( {allegra,decvax,hplabs,amdahl,nsc}!sun!sunburn!gtx!al       (602)870-1696 )
  ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

nathan@eddie.MIT.EDU (Nathan Glasser) (09/16/88)

In article <754@gtx.com> al@gtx.UUCP (Alan Filipski) writes:
>Has anyone got a copy of Nathan Glasser's program suicide.c?
>It was posted to net.suicide in early January 1983.

I don't think I've actually got a copy of my original posting, but
I could probably reconstruct the program without too much difficulty.
If someone actually still has a copy (I'd be pretty impressed by this),
they can feel free to post it, otherwise I can probably get around to it.

Probably a better place to post it now would be in comp.sources.games.
-- 
				Nathan Glasser
fnord				nathan@{mit-eddie.uucp, xx.lcs.mit.edu}
"A tribble is the only love that money can buy."	    
Presently there is insufficient evidence to conclude that tribbles spread AIDS.

jgo@mcgp1.UUCP (John Opalko, N7KBT) (09/20/88)

In article <10082@eddie.MIT.EDU>, nathan@eddie.MIT.EDU (Nathan Glasser) writes:
> In article <754@gtx.com> al@gtx.UUCP (Alan Filipski) writes:
> >Has anyone got a copy of Nathan Glasser's program suicide.c?
> >It was posted to net.suicide in early January 1983.
> 
> I don't think I've actually got a copy of my original posting, but
> I could probably reconstruct the program without too much difficulty.
> If someone actually still has a copy (I'd be pretty impressed by this),
> they can feel free to post it, otherwise I can probably get around to it.
> 
> Probably a better place to post it now would be in comp.sources.games.
> -- 
> 				Nathan Glasser

Okay, you can start being impressed.  I searched through a bunch of old tapes
and I found suicide.c AND suicide1.c.  I guess it pays to be a packrat.

I am posting the sources to comp.sources.games, per Nathan's suggestion.  They
run on SysV, but have unresolved external references on ULTRIX.  I probably
modified them to run on SysV five years ago; I don't remember.  It shouldn't
be too difficult to get them to run under BSD.



				Is it time for alt.suicide yet?

				John Opalko
				Washington State Home for the Bizarre

jgo@mcgp1.UUCP (John Opalko, N7KBT) (09/20/88)

In article <1576@mcgp1.UUCP>, I write:
> I am posting the sources to comp.sources.games, per Nathan's suggestion.

Just in case they never make it to the moderator (or if the moderator rends
them into tiny bits), I am also posting them to alt.sources.


						John

cyn@donk.UUCP (cyn) (09/21/88)

Can you believe it??? I just happened to have it hangin around all
these years!!

++++++++++++<<snip>>++++++<<snip>>++<<snip>>++++++++++++++++++++

#include <curses.h>
#include <stdio.h>

main()
{
	int i,j;

	static int cx[] = {
      20, 25, 30, 40, 44, 48, 57 };

	static char *road[]={
	  "--------------------------------------------------------------",
	  " ",
	  " ",
	  " ---  ---  ---  ---  ---  ---  ---  ---  ---  ---  ---  ---  ---",
	  " ",
	  " ",
	  "--------------------------------------------------------------" };
	static char *car[] = {
	  " _/-\__",
	  " =o--o+"};

	static char *guy[] ={
	  "o",
	  "X",
	  " "};

	static char *boom[] ={
	  "  .* .",
	  " ^ : .o. ",
	  " = \'$-# . ",
	  "  . /=./\ ",
	  "   . v .  "};

	static char *cry[] ={
	  "Hey!",
	  "You!",
	  "Watch out",
	  "for",	
	  "the",
	  "CAR !!!!"};

	static char *bye[] = {
	  " ",
	  " ",
	  " ",
	  "Bye",
	  "sick",
	  " world !!"};


	initscr();
	clear();
	printpic(road, 7, 8, 0);
	for (i=0; i < 60; i++){
		printpic(car, 2, 12, i);
		if (i%10 == 0) {
			j = i/10;
			printpic(guy, 3, 17-(j), 65);
			mvprintw(3, cx[j], cry[j]);
			mvprintw(20, cx[j]+18, bye[j]);
			if(j == 5)
				mvprintw(14, 64, "---");
		}
	}

	printpic(boom, 4, 11, 60);
	refresh();
	endwin();
	getchar();

}

printpic(pic, len, y, x)
char **pic;
int len, x, y;
{
	int i;
	for (i=0; i < len; i++)
		mvprintw(i + y, x, pic[i]);
	refresh();
}